(* 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[ 371300, 7623] NotebookOptionsPosition[ 364887, 7425] NotebookOutlinePosition[ 365421, 7446] CellTagsIndexPosition[ 365378, 7443] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Facio"}], "-", RowBox[{"PDB", " ", "source"}]}], ",", " ", RowBox[{"ES", " ", "February", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"z", "-", RowBox[{"coords", " ", "set", " ", "to", " ", "zero"}]}], ";", " ", RowBox[{ RowBox[{"largest", " ", "was", " ", "0.015", " ", RowBox[{"Angstr", ".", " ", "Vnn"}], " ", "778.38917"}], " ", "\[Rule]", " ", "778.39211"}]}], " ", "*)"}], "\[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.570510383703881*^9, 3.5705104881928644`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t1", "=", RowBox[{"1.889726", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.862000"}], ",", "2.453000", ",", RowBox[{"-", "0."}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.657000"}], ",", "1.789000", ",", RowBox[{"-", "0.0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.615000"}], ",", "0.378000", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.822000"}], ",", RowBox[{"-", "0.343000"}], ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.049000"}], ",", "0.354000", ",", RowBox[{"-", "0.0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.067000"}], ",", "1.731000", ",", RowBox[{"-", "0.0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.641000", ",", RowBox[{"-", "0.340000"}], ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.796000"}], ",", RowBox[{"-", "1.779000"}], ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.987000"}], ",", RowBox[{"-", "0.214000"}], ",", RowBox[{"-", "0.0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.019000"}], ",", "2.272000", ",", RowBox[{"-", "0.0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.878000", ",", "0.339000", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.631000", ",", RowBox[{"-", "1.746000"}], ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.854000", ",", RowBox[{"-", "2.450000"}], ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.620000"}], ",", RowBox[{"-", "2.451000"}], ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.869000", ",", "1.440000", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"3.061000", ",", RowBox[{"-", "0.363000"}], ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.597000"}], ",", RowBox[{"-", "3.547000"}], ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"3.050000", ",", RowBox[{"-", "1.768000"}], ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"4.019000", ",", "0.169000", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.840000", ",", RowBox[{"-", "3.546000"}], ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"3.999000", ",", RowBox[{"-", "2.314000"}], ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.752000"}], ",", RowBox[{"-", "2.314000"}], ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.889000"}], ",", "3.547000", ",", RowBox[{"-", "0.0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.297000", ",", "2.339000", ",", RowBox[{"-", "0.0"}]}], "}"}]}], "}"}]}]}], ";"}]], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.5705100502376947`*^9, 3.5705100568053064`*^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["24"], "Output", CellChangeTimes->{3.57051896290975*^9, 3.570519095151182*^9, 3.570519305392751*^9, 3.5705200974529424`*^9, 3.5705260049372916`*^9, 3.5705260736398125`*^9, 3.570526719808547*^9, 3.570526769073434*^9, 3.5705270789523783`*^9, 3.570527266277507*^9, 3.5705279401674905`*^9, 3.570528039804866*^9, 3.5705282504052353`*^9, 3.57052837258465*^9, 3.5705287591377287`*^9, 3.5705295074086432`*^9, 3.570529547999914*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"u", "=", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.567862912170579*^9, 3.567862949329844*^9}, { 3.5678630095303497`*^9, 3.5678630107471523`*^9}, {3.5679573013548217`*^9, 3.5679573132576427`*^9}, 3.568114367533684*^9, {3.5682782383334675`*^9, 3.5682782435438766`*^9}, {3.568381606879155*^9, 3.5683816154123707`*^9}, 3.5688204675481253`*^9, {3.5688215945097046`*^9, 3.568821600578115*^9}, 3.568873215924739*^9, 3.5689108676002645`*^9, 3.5689997098393545`*^9, 3.5689998170271425`*^9, 3.5689998869308653`*^9, 3.5691460425981283`*^9, { 3.5692345679268913`*^9, 3.5692345778017087`*^9}, {3.5692346191261816`*^9, 3.569234623525389*^9}, {3.5692348865282516`*^9, 3.5692349162463036`*^9}, { 3.569234950394764*^9, 3.569234972609203*^9}, 3.569235038176118*^9, { 3.5692351317918825`*^9, 3.5692352122724237`*^9}, {3.5692354169603834`*^9, 3.5692354469124355`*^9}, {3.569237150310628*^9, 3.5692371574866405`*^9}, 3.569237204505123*^9, 3.5692374658211823`*^9, 3.5692377287596436`*^9, { 3.5692377715661187`*^9, 3.569237804872177*^9}, 3.56923802261736*^9, { 3.5692382720773983`*^9, 3.569238274901003*^9}, {3.5693394646825705`*^9, 3.56933951020345*^9}, 3.5693403424025126`*^9, 3.5693404501831017`*^9, 3.569340738003607*^9, 3.569340852819809*^9, {3.569341165475558*^9, 3.569341165491158*^9}, 3.5693414971477404`*^9, {3.5693417327081537`*^9, 3.5693417367797613`*^9}, 3.5693420227750635`*^9, 3.569342614406103*^9, 3.569343567162176*^9, 3.569343662712344*^9, 3.5693437636133213`*^9, 3.5693440705226603`*^9, 3.569344266225004*^9, 3.570297362724632*^9, 3.570297460505604*^9, 3.570453590700488*^9}], 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\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5705189629565496`*^9, 3.570519095166782*^9, 3.5705193054083514`*^9, 3.570520097468542*^9, 3.5705260049528913`*^9, 3.570526073655412*^9, 3.570526719824147*^9, 3.5705267690890336`*^9, 3.570527078967978*^9, 3.570527266293107*^9, 3.5705279401830907`*^9, 3.5705280398204656`*^9, 3.5705282504208355`*^9, 3.5705283726002502`*^9, 3.570528759168929*^9, 3.570529507424243*^9, 3.5705295480155144`*^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\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "24"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5705189630033503`*^9, 3.570519095182382*^9, 3.570519305423951*^9, 3.5705200974841423`*^9, 3.5705260049684916`*^9, 3.570526073671012*^9, 3.5705267198397474`*^9, 3.5705267691046333`*^9, 3.5705270789835777`*^9, 3.570527266324307*^9, 3.5705279401986904`*^9, 3.5705280398360653`*^9, 3.5705282504364357`*^9, 3.5705283726314497`*^9, 3.5705287591845293`*^9, 3.570529507439843*^9, 3.570529548046715*^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", ",", "7", ",", "8", ",", "11", ",", "12", ",", "13", ",", "14", ",", "16", ",", "18", ",", "9", ",", "10", ",", "15", ",", "17", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24"}], "}"}]], "Output", CellChangeTimes->{3.5705189630345497`*^9, 3.570519095197982*^9, 3.570519305423951*^9, 3.5705200974997425`*^9, 3.5705260049840918`*^9, 3.570526073686612*^9, 3.570526719855347*^9, 3.5705267691046333`*^9, 3.570527078999178*^9, 3.570527266324307*^9, 3.5705279402142906`*^9, 3.5705280398360653`*^9, 3.570528250452036*^9, 3.5705283726314497`*^9, 3.5705287592001295`*^9, 3.5705295074554434`*^9, 3.570529548046715*^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.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.22522", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.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}}], 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.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{3.5705189630813503`*^9, 3.570519095213582*^9, 3.5705193054395514`*^9, 3.5705200975153427`*^9, 3.5705260049996915`*^9, 3.5705260737022123`*^9, 3.570526719870947*^9, 3.5705267691202335`*^9, 3.570527079014778*^9, 3.5705272663399067`*^9, 3.570527940229891*^9, 3.5705280398672657`*^9, 3.5705282504676356`*^9, 3.57052837264705*^9, 3.570528759231329*^9, 3.5705295074710436`*^9, 3.570529548062315*^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.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.5705189630813503`*^9, 3.570519095213582*^9, 3.5705193054395514`*^9, 3.5705200975153427`*^9, 3.5705260049996915`*^9, 3.5705260737022123`*^9, 3.570526719870947*^9, 3.5705267691202335`*^9, 3.570527079014778*^9, 3.5705272663399067`*^9, 3.570527940229891*^9, 3.5705280398672657`*^9, 3.5705282504676356`*^9, 3.57052837264705*^9, 3.570528759231329*^9, 3.5705295074710436`*^9, 3.5705295480779147`*^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\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.57051896309695*^9, 3.5705190952291822`*^9, 3.5705193054551516`*^9, 3.570520097530943*^9, 3.5705260050152917`*^9, 3.5705260737178125`*^9, 3.570526719886547*^9, 3.5705267691358337`*^9, 3.5705270790303783`*^9, 3.570527266355507*^9, 3.570527940245491*^9, 3.570528039882866*^9, 3.5705282504832354`*^9, 3.57052837266265*^9, 3.570528759246929*^9, 3.5705295075022435`*^9, 3.5705295480779147`*^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.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.57051896312815*^9, 3.5705190952447824`*^9, 3.5705193054551516`*^9, 3.570520097546543*^9, 3.5705260050308914`*^9, 3.5705260737334127`*^9, 3.5705267199021473`*^9, 3.570526769151434*^9, 3.570527079045978*^9, 3.570527266371107*^9, 3.5705279402610908`*^9, 3.5705280398984656`*^9, 3.5705282504988356`*^9, 3.5705283726782503`*^9, 3.5705287592625294`*^9, 3.5705295075178432`*^9, 3.5705295480935144`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"bc", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", " ", RowBox[{"bc", "=", RowBox[{"bc", "+", "1"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "bc", "\[IndentingNewLine]", RowBox[{"bh", "=", RowBox[{"n", "-", "bc"}]}]}], "Input", CellChangeTimes->{{3.5688281182607965`*^9, 3.5688281434392405`*^9}, { 3.5691376772313223`*^9, 3.569137733516221*^9}, {3.569234042049968*^9, 3.569234051519184*^9}, 3.5692372799312553`*^9}], Cell[BoxData["14"], "Output", CellChangeTimes->{3.57051896314375*^9, 3.570519095260382*^9, 3.570519305470752*^9, 3.570520097562143*^9, 3.5705260050464916`*^9, 3.5705260737334127`*^9, 3.5705267199177475`*^9, 3.570526769167034*^9, 3.570527079045978*^9, 3.5705272663867073`*^9, 3.5705279402610908`*^9, 3.5705280398984656`*^9, 3.570528250514436*^9, 3.5705283726938505`*^9, 3.570528759278129*^9, 3.5705295075334435`*^9, 3.5705295481091146`*^9}], Cell[BoxData["10"], "Output", CellChangeTimes->{3.57051896314375*^9, 3.570519095260382*^9, 3.570519305470752*^9, 3.570520097562143*^9, 3.5705260050464916`*^9, 3.5705260737334127`*^9, 3.5705267199177475`*^9, 3.570526769167034*^9, 3.570527079045978*^9, 3.5705272663867073`*^9, 3.5705279402610908`*^9, 3.5705280398984656`*^9, 3.570528250514436*^9, 3.5705283726938505`*^9, 3.570528759278129*^9, 3.5705295075334435`*^9, 3.570529548124715*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, 3.57052080764419*^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[CellGroupData[{ 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"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "12.0107", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "1.00794"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"M", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"m", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"coords", "=", RowBox[{ RowBox[{"(", RowBox[{"m", ".", "t"}], ")"}], "/", "M"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"no", "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"coords", "=", RowBox[{ RowBox[{"(", RowBox[{"no", ".", "t"}], ")"}], "/", "n"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"coords", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"coords", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"coords", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, {3.5705135488734407`*^9, 3.570513659399635*^9}, {3.5705137123617277`*^9, 3.570513714842132*^9}, { 3.570516745943056*^9, 3.570516810589569*^9}, {3.5705168519920425`*^9, 3.570516878044088*^9}, {3.57051697022465*^9, 3.5705170224223413`*^9}, { 3.5705181207266703`*^9, 3.5705181399927044`*^9}}], Cell[BoxData["178.22919999999988`"], "Output", CellChangeTimes->{3.5705189631749506`*^9, 3.5705190953071823`*^9, 3.5705193055019517`*^9, 3.5705200975777426`*^9, 3.570526005062092*^9, 3.570526073764612*^9, 3.570526719933347*^9, 3.570526769182634*^9, 3.570527079077178*^9, 3.5705272664023075`*^9, 3.5705279402922907`*^9, 3.5705280399296656`*^9, 3.5705282505300355`*^9, 3.5705283727250504`*^9, 3.570528759309329*^9, 3.570529507564644*^9, 3.570529548140315*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.28290772991666663`"}], ",", RowBox[{"-", "0.5010923443333333`"}], ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.5705189631749506`*^9, 3.5705190953071823`*^9, 3.5705193055019517`*^9, 3.5705200975777426`*^9, 3.570526005062092*^9, 3.570526073764612*^9, 3.570526719933347*^9, 3.570526769182634*^9, 3.570527079077178*^9, 3.5705272664023075`*^9, 3.5705279402922907`*^9, 3.5705280399296656`*^9, 3.5705282505300355`*^9, 3.5705283727250504`*^9, 3.570528759309329*^9, 3.570529507564644*^9, 3.570529548140315*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"w3", "=", RowBox[{ RowBox[{"Sqrt", "[", "3.0", "]"}], "/", "2"}]}], ";", " ", RowBox[{"ws", "=", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "*", "w3"}], "-", RowBox[{"ws", "*", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "*", "ws"}], "+", RowBox[{"w3", "*", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "-", "2.8727498"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "t", "]"}], "\[IndentingNewLine]", RowBox[{"coords", "=", RowBox[{ RowBox[{"(", RowBox[{"m", ".", "t"}], ")"}], "/", "M"}]}]}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQBmIQzXXp/zyNqa8cJ/F/WQaie9wbtoNoh8NdYLqt/ehu EL2p+u4xEP3LZo2vJki9aG0AiK56l9MNorN89fpAtJnbqWkgOkd34nwQ/WrD o6XaQFr+xOHVINok0VPtM0he6huYtvo8+6LZrFeO50/m3AfRbpO5n4Ho/Z+i wHSLrl2iBZA+cDcoE0Rf2FefB6K1Mw8WguhQA/daEH2p+WwziH7kIM5rCaRX LulSAdErzh61BdHMrnucQHRN6/wEEH3rW2sWWP58SwuI3lMZ1gqil9zO/Aei 51l+/Q+iP987EmcF4nveSgbRAMqBoF4= "]], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "5.370547274853261`"}], RowBox[{"-", "0.04221321967024272`"}], "0.`"}, { RowBox[{"-", "2.7711146226119587`"}], "0.009677015794301802`", "0.`"}, { RowBox[{"-", "1.369177799279897`"}], RowBox[{"-", "2.2598118072185427`"}], "0.`"}, { RowBox[{"-", "2.663248297965583`"}], RowBox[{"-", "4.5802145189189405`"}], "0.`"}, { RowBox[{"-", "5.329865545095108`"}], RowBox[{"-", "4.598885566551149`"}], "0.`"}, { RowBox[{"-", "6.660399809094564`"}], RowBox[{"-", "2.362362756092832`"}], "0.`"}, {"1.3647415417931947`", RowBox[{"-", "2.248107297752364`"}], "0.`"}, { RowBox[{"-", "1.2638747111885928`"}], RowBox[{"-", "6.9057349179865835`"}], "0.`"}, {"2.747592808144639`", "0.031906173615971145`", "0.`"}, {"2.6768534125712753`", RowBox[{"-", "4.5585462431542485`"}], "0.`"}, {"5.343538497812032`", RowBox[{"-", "4.555110502577383`"}], "0.`"}, {"1.2956568741091432`", RowBox[{"-", "6.8943381152995755`"}], "0.`"}, {"5.346926138497718`", "0.0008204956372210859`", "0.`"}, {"6.656456595553607`", RowBox[{"-", "2.3089267620424723`"}], "0.`"}, { RowBox[{"-", "6.32826793851116`"}], RowBox[{"-", "6.414727870756178`"}], "0.`"}, { RowBox[{"-", "8.729566979621303`"}], RowBox[{"-", "2.3764983913869857`"}], "0.`"}, {"1.6925696886449118`", "1.82524475174931`", "0.`"}, {"2.368867388719558`", RowBox[{"-", "8.666265857821955`"}], "0.`"}, {"6.412074614357609`", "1.776644233843339`", "0.`"}, {"6.356196635701345`", RowBox[{"-", "6.361998176099762`"}], "0.`"}, {"8.725438428913769`", RowBox[{"-", "2.305808469359278`"}], "0.`"}, { RowBox[{"-", "2.3229154966040984`"}], RowBox[{"-", "8.684578582359277`"}], "0.`"}, { RowBox[{"-", "6.448414266352444`"}], "1.722661969407754`", "0.`"}, { RowBox[{"-", "1.729519883640837`"}], "1.8111792149998753`", "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.5705260050776916`*^9, 3.5705260737802124`*^9, 3.570526719948947*^9, 3.5705267691982336`*^9, 3.570527079092778*^9, 3.570527266417907*^9, 3.570527940307891*^9, 3.570528039945266*^9, 3.5705282505456357`*^9, 3.57052837274065*^9, 3.570528759324929*^9, 3.5705295075802436`*^9, 3.570529548155915*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.00021840224088005698`", ",", RowBox[{"-", "2.937777114787111`"}], ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.5705260050776916`*^9, 3.5705260737802124`*^9, 3.570526719948947*^9, 3.5705267691982336`*^9, 3.570527079092778*^9, 3.570527266417907*^9, 3.570527940307891*^9, 3.570528039945266*^9, 3.5705282505456357`*^9, 3.57052837274065*^9, 3.570528759324929*^9, 3.5705295075802436`*^9, 3.570529548155915*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"i", "\[NotEqual]", "17"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "19"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "23"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "24"}]}], ")"}], ",", RowBox[{ RowBox[{"Extract", "[", RowBox[{"t", ",", RowBox[{"{", "i", "}"}]}], "]"}], ">>>", " ", "\"\\""}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"na", "=", RowBox[{"Length", "[", "a", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"i", "\[NotEqual]", "1"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "2"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "9"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "13"}]}], ")"}], ",", RowBox[{ RowBox[{"Extract", "[", RowBox[{"a", ",", RowBox[{"{", "i", "}"}]}], "]"}], ">>>", " ", "\"\\""}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "na"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"b", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"nb", "=", RowBox[{"Length", "[", "b", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"b", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"b", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t4", "=", RowBox[{"Join", "[", RowBox[{"a", ",", "b"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "t4", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"nc", "=", RowBox[{"Length", "[", "t4", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t5", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Extract", "[", RowBox[{"t4", ",", RowBox[{"{", "i", "}"}]}], "]"}], ">>>", " ", "\"\\""}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, {3.5705135488734407`*^9, 3.570513659399635*^9}, {3.5705137123617277`*^9, 3.570513714842132*^9}, { 3.570516745943056*^9, 3.570516810589569*^9}, {3.5705168519920425`*^9, 3.570516878044088*^9}, {3.57051697022465*^9, 3.5705170224223413`*^9}, { 3.5705181207266703`*^9, 3.5705183083326*^9}, {3.5705185101813545`*^9, 3.5705185498834243`*^9}, {3.5705187889850445`*^9, 3.5705188681863832`*^9}, {3.5705190761503487`*^9, 3.57051908270236*^9}, { 3.5705200513080616`*^9, 3.5705200636632833`*^9}, {3.5705208221522155`*^9, 3.570520841215449*^9}, 3.5705209126791744`*^9, 3.570520965001666*^9, { 3.5705210067785397`*^9, 3.5705211376783695`*^9}, {3.5705255385432725`*^9, 3.570525725962002*^9}, {3.570525756272855*^9, 3.570525812791754*^9}, { 3.5705258443194094`*^9, 3.5705259882608624`*^9}, {3.5705260528605757`*^9, 3.570526064888197*^9}, 3.5705263297610617`*^9, 3.5705263676067286`*^9, { 3.570526432128442*^9, 3.5705264342188454`*^9}, {3.5705264714249105`*^9, 3.570526484716134*^9}, {3.570526522359*^9, 3.5705265707814856`*^9}, { 3.5705266510748262`*^9, 3.5705267102769303`*^9}, {3.57052676146062*^9, 3.570526762381022*^9}, 3.5705270315594945`*^9, {3.5705272568082905`*^9, 3.5705272576662917`*^9}, 3.570527931322275*^9, {3.5705280048764043`*^9, 3.5705280069668083`*^9}, 3.570528085107345*^9, {3.570528128319421*^9, 3.570528244102824*^9}, {3.570528303819729*^9, 3.570528362101432*^9}, { 3.570528413285122*^9, 3.5705284279179473`*^9}, {3.5705284691020193`*^9, 3.5705284718476243`*^9}, {3.5705285794566135`*^9, 3.5705285845110226`*^9}, {3.5705286169434795`*^9, 3.5705287436157017`*^9}, {3.570529403481261*^9, 3.5705294711229796`*^9}, 3.5705295372358956`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5.370547274853261`"}], ",", RowBox[{"-", "0.04221321967024272`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.7711146226119587`"}], ",", "0.009677015794301802`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.369177799279897`"}], ",", RowBox[{"-", "2.2598118072185427`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.663248297965583`"}], ",", RowBox[{"-", "4.5802145189189405`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.329865545095108`"}], ",", RowBox[{"-", "4.598885566551149`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.660399809094564`"}], ",", RowBox[{"-", "2.362362756092832`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.3647415417931947`", ",", RowBox[{"-", "2.248107297752364`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2638747111885928`"}], ",", RowBox[{"-", "6.9057349179865835`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.747592808144639`", ",", "0.031906173615971145`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.6768534125712753`", ",", RowBox[{"-", "4.5585462431542485`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.343538497812032`", ",", RowBox[{"-", "4.555110502577383`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.2956568741091432`", ",", RowBox[{"-", "6.8943381152995755`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.346926138497718`", ",", "0.0008204956372210859`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.656456595553607`", ",", RowBox[{"-", "2.3089267620424723`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.32826793851116`"}], ",", RowBox[{"-", "6.414727870756178`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.729566979621303`"}], ",", RowBox[{"-", "2.3764983913869857`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.368867388719558`", ",", RowBox[{"-", "8.666265857821955`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.356196635701345`", ",", RowBox[{"-", "6.361998176099762`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.725438428913769`", ",", RowBox[{"-", "2.305808469359278`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3229154966040984`"}], ",", RowBox[{"-", "8.684578582359277`"}], ",", "0.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5705295481871147`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.369177799279897`"}], ",", RowBox[{"-", "2.2598118072185427`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.663248297965583`"}], ",", RowBox[{"-", "4.5802145189189405`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.329865545095108`"}], ",", RowBox[{"-", "4.598885566551149`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.660399809094564`"}], ",", RowBox[{"-", "2.362362756092832`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.3647415417931947`", ",", RowBox[{"-", "2.248107297752364`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2638747111885928`"}], ",", RowBox[{"-", "6.9057349179865835`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.6768534125712753`", ",", RowBox[{"-", "4.5585462431542485`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.343538497812032`", ",", RowBox[{"-", "4.555110502577383`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.2956568741091432`", ",", RowBox[{"-", "6.8943381152995755`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.656456595553607`", ",", RowBox[{"-", "2.3089267620424723`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.32826793851116`"}], ",", RowBox[{"-", "6.414727870756178`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.729566979621303`"}], ",", RowBox[{"-", "2.3764983913869857`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.368867388719558`", ",", RowBox[{"-", "8.666265857821955`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.356196635701345`", ",", RowBox[{"-", "6.361998176099762`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.725438428913769`", ",", RowBox[{"-", "2.305808469359278`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3229154966040984`"}], ",", RowBox[{"-", "8.684578582359277`"}], ",", "0.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570529548202715*^9}], Cell[BoxData["16"], "Output", CellChangeTimes->{3.570529548202715*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "5.370547274853261`"}], RowBox[{"-", "0.04221321967024272`"}], "0.`"}, { RowBox[{"-", "2.7711146226119587`"}], "0.009677015794301802`", "0.`"}, { RowBox[{"-", "1.369177799279897`"}], RowBox[{"-", "2.2598118072185427`"}], "0.`"}, { RowBox[{"-", "2.663248297965583`"}], RowBox[{"-", "4.5802145189189405`"}], "0.`"}, { RowBox[{"-", "5.329865545095108`"}], RowBox[{"-", "4.598885566551149`"}], "0.`"}, { RowBox[{"-", "6.660399809094564`"}], RowBox[{"-", "2.362362756092832`"}], "0.`"}, {"1.3647415417931947`", RowBox[{"-", "2.248107297752364`"}], "0.`"}, { RowBox[{"-", "1.2638747111885928`"}], RowBox[{"-", "6.9057349179865835`"}], "0.`"}, {"2.747592808144639`", "0.031906173615971145`", "0.`"}, {"2.6768534125712753`", RowBox[{"-", "4.5585462431542485`"}], "0.`"}, {"5.343538497812032`", RowBox[{"-", "4.555110502577383`"}], "0.`"}, {"1.2956568741091432`", RowBox[{"-", "6.8943381152995755`"}], "0.`"}, {"5.346926138497718`", "0.0008204956372210859`", "0.`"}, {"6.656456595553607`", RowBox[{"-", "2.3089267620424723`"}], "0.`"}, { RowBox[{"-", "6.32826793851116`"}], RowBox[{"-", "6.414727870756178`"}], "0.`"}, { RowBox[{"-", "8.729566979621303`"}], RowBox[{"-", "2.3764983913869857`"}], "0.`"}, {"2.368867388719558`", RowBox[{"-", "8.666265857821955`"}], "0.`"}, {"6.356196635701345`", RowBox[{"-", "6.361998176099762`"}], "0.`"}, {"8.725438428913769`", RowBox[{"-", "2.305808469359278`"}], "0.`"}, { RowBox[{"-", "2.3229154966040984`"}], RowBox[{"-", "8.684578582359277`"}], "0.`"}, { RowBox[{"-", "1.369177799279897`"}], "2.2598118072185427`", "0.`"}, { RowBox[{"-", "2.663248297965583`"}], "4.5802145189189405`", "0.`"}, { RowBox[{"-", "5.329865545095108`"}], "4.598885566551149`", "0.`"}, { RowBox[{"-", "6.660399809094564`"}], "2.362362756092832`", "0.`"}, {"1.3647415417931947`", "2.248107297752364`", "0.`"}, { RowBox[{"-", "1.2638747111885928`"}], "6.9057349179865835`", "0.`"}, {"2.6768534125712753`", "4.5585462431542485`", "0.`"}, {"5.343538497812032`", "4.555110502577383`", "0.`"}, {"1.2956568741091432`", "6.8943381152995755`", "0.`"}, {"6.656456595553607`", "2.3089267620424723`", "0.`"}, { RowBox[{"-", "6.32826793851116`"}], "6.414727870756178`", "0.`"}, { RowBox[{"-", "8.729566979621303`"}], "2.3764983913869857`", "0.`"}, {"2.368867388719558`", "8.666265857821955`", "0.`"}, {"6.356196635701345`", "6.361998176099762`", "0.`"}, {"8.725438428913769`", "2.305808469359278`", "0.`"}, { RowBox[{"-", "2.3229154966040984`"}], "8.684578582359277`", "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.570529548202715*^9}], Cell[BoxData["36"], "Output", CellChangeTimes->{3.570529548202715*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, {3.5705135488734407`*^9, 3.570513659399635*^9}, {3.5705137123617277`*^9, 3.570513714842132*^9}, { 3.570516745943056*^9, 3.570516810589569*^9}, {3.5705168519920425`*^9, 3.570516878044088*^9}, {3.57051697022465*^9, 3.5705170224223413`*^9}, { 3.5705181207266703`*^9, 3.5705181399927044`*^9}, 3.570520857673478*^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"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ 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.570515453028385*^9, 3.5705155187981005`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ 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", "]"}]}]}]], "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.570510692631223*^9, 3.5705107060316467`*^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"}, {"2.5999505206974263`", "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.6675843706234708`", "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.6568566389692876`", "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.6666826115434747`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.6545834760750444`", "0", "0", "0", "2.6023750132094614`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.7339443957468066`", "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.7140912957836973`", "0", "0", "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.6665969051341225`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.6570219573549867`", "0", "0", "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.6666872985332972`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.5595569583910867`", "0", "2.7136004768277786`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.5995192020179094`", "0", "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.601748513523311`", "0", "2.655146401296145`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.072218765700072`", "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.069215454168754`", "0", "0", "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.0806578379205556`", "0", "0", "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.071595697376978`", "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.070770683780075`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0713086609582274`", "0", "0", "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.068984183246367`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.070229979362767`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"2.067989768926963`", "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.0809444427939052`", "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.5705189632373505`*^9, 3.570519095369582*^9, 3.570519305548752*^9, 3.570520097640143*^9, 3.570526005374092*^9, 3.570526073827012*^9, 3.5705267200113473`*^9, 3.570526769260634*^9, 3.570527079155178*^9, 3.570527266480307*^9, 3.5705279403702908`*^9, 3.570528040007666*^9, 3.570528250623636*^9, 3.570528373177451*^9, 3.5705287594029293`*^9, 3.5705295078454437`*^9, 3.5705295482339153`*^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.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.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`"}], "}"}]], "Output", CellChangeTimes->{3.5705189632685504`*^9, 3.5705190953851824`*^9, 3.5705193055643516`*^9, 3.5705200976557426`*^9, 3.5705260053896923`*^9, 3.5705260738426123`*^9, 3.5705267200269475`*^9, 3.5705267692762337`*^9, 3.570527079155178*^9, 3.5705272664959073`*^9, 3.5705279403702908`*^9, 3.570528040023266*^9, 3.5705282506392355`*^9, 3.5705283731930513`*^9, 3.5705287594185295`*^9, 3.570529507861044*^9, 3.570529548249515*^9}] }, Open ]], Cell[BoxData[{ 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[{ 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}}], 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[{"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[{ 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}], Cell[BoxData[{ 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[{"(*", 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}], 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["45.9034314843158`"], "Output", CellChangeTimes->{3.5705189632997503`*^9, 3.5705190954007826`*^9, 3.5705193055799513`*^9, 3.570520097686943*^9, 3.5705260054052925`*^9, 3.5705260738738127`*^9, 3.5705267200425477`*^9, 3.570526769291834*^9, 3.5705270791863785`*^9, 3.5705272665271072`*^9, 3.5705279404014907`*^9, 3.570528040038866*^9, 3.5705282506548357`*^9, 3.5705283732242513`*^9, 3.57052875944973*^9, 3.570529507876644*^9, 3.570529548280715*^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["484.42906574394465`"], "Output", CellChangeTimes->{3.5705189633153505`*^9, 3.5705190954163823`*^9, 3.5705193055955515`*^9, 3.570520097702543*^9, 3.5705260054208927`*^9, 3.5705260738738127`*^9, 3.5705267200581474`*^9, 3.570526769307434*^9, 3.5705270792019787`*^9, 3.5705272665427074`*^9, 3.570527940417091*^9, 3.5705280400544662`*^9, 3.570528250686036*^9, 3.570528373239851*^9, 3.5705287594653296`*^9, 3.5705295078922443`*^9, 3.570529548296315*^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["530.3324972282604`"], "Output", CellChangeTimes->{3.5705189633309507`*^9, 3.5705190954319825`*^9, 3.5705193055955515`*^9, 3.570520097702543*^9, 3.5705260054364924`*^9, 3.570526073889413*^9, 3.5705267200737476`*^9, 3.5705267693230343`*^9, 3.5705270792175784`*^9, 3.5705272665427074`*^9, 3.570527940432691*^9, 3.570528040070066*^9, 3.570528250686036*^9, 3.570528373255451*^9, 3.5705287594809294`*^9, 3.570529507907844*^9, 3.5705295483119154`*^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["14.44460190001707`"], "Output", CellChangeTimes->{3.570518963346551*^9, 3.5705190954475822`*^9, 3.5705193056111517`*^9, 3.570520097718143*^9, 3.570526005452092*^9, 3.5705260739050126`*^9, 3.570526720089348*^9, 3.570526769338634*^9, 3.570527079233178*^9, 3.5705272665583076`*^9, 3.570527940448291*^9, 3.5705280400856657`*^9, 3.5705282507016363`*^9, 3.5705283732710514`*^9, 3.5705287594965296`*^9, 3.5705295079234443`*^9, 3.570529548327515*^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.458829584298734`"], "Output", CellChangeTimes->{3.5705189633621507`*^9, 3.5705190954475822`*^9, 3.570519305626752*^9, 3.5705200977337427`*^9, 3.5705260054676924`*^9, 3.5705260739050126`*^9, 3.570526720089348*^9, 3.570526769338634*^9, 3.570527079233178*^9, 3.5705272665739074`*^9, 3.570527940463891*^9, 3.570528040101266*^9, 3.570528250717236*^9, 3.570528373286651*^9, 3.5705287594965296`*^9, 3.5705295079234443`*^9, 3.570529548343115*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"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\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>"}, {"\<\"C\"\>", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.0449752603487132`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "1.0787921853117355`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "1.073428319484644`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "1.0783413057717375`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.0722917380375223`", "0", "0", "0", "1.0461875066047308`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "1.1119721978734034`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "1.1020456478918488`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "1.0782984525670614`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "1.0735109786774935`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0783436492666487`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "1.0247784791955434`", "0", "1.1018002384138894`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.0447596010089548`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0458742567616557`", "0", "1.0725732006480726`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "1.247918765700072`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "1.244915454168754`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.2563578379205556`", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2472956973769778`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2464706837800748`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2470086609582274`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2446841832463669`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "1.2459299793627672`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "1.2436897689269628`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"\<\"H\"\>", "0", "1.2566444427939052`", "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.5705189633777504`*^9, 3.5705190954631824`*^9, 3.570519305642352*^9, 3.570520097749343*^9, 3.5705260054832926`*^9, 3.5705260739206123`*^9, 3.5705267201049476`*^9, 3.5705267693542337`*^9, 3.5705270792487783`*^9, 3.5705272665895076`*^9, 3.570527940479491*^9, 3.570528040116866*^9, 3.570528250732836*^9, 3.570528373302251*^9, 3.5705287595277295`*^9, 3.570529507939044*^9, 3.570529548358715*^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.0449752603487132`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.0787921853117355`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1.073428319484644`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "1.0783413057717375`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "1.0722917380375223`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1.0461875066047308`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "3", ",", "1.1119721978734034`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "4", ",", "1.1020456478918488`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "7", ",", "1.0782984525670614`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "7", ",", "1.0735109786774935`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "10", ",", "1.0783436492666487`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "8", ",", "1.0247784791955434`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "10", ",", "1.1018002384138894`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "9", ",", "1.0447596010089548`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "11", ",", "1.0458742567616557`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "13", ",", "1.0725732006480726`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "5", ",", "1.247918765700072`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "6", ",", "1.244915454168754`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "9", ",", "1.2563578379205556`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "12", ",", "1.2472956973769778`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "13", ",", "1.2464706837800748`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "11", ",", "1.2470086609582274`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "14", ",", "1.2446841832463669`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "8", ",", "1.2459299793627672`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "1", ",", "1.2436897689269628`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "2", ",", "1.2566444427939052`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570518963424551*^9, 3.570519095494383*^9, 3.5705193056735516`*^9, 3.5705200977805433`*^9, 3.5705260055144925`*^9, 3.5705260739518127`*^9, 3.5705267201361475`*^9, 3.570526769385434*^9, 3.5705270792799788`*^9, 3.5705272666207075`*^9, 3.570527940510691*^9, 3.570528040148066*^9, 3.570528250764036*^9, 3.5705283733334513`*^9, 3.5705287595589294`*^9, 3.5705295079858446`*^9, 3.5705295483899155`*^9}], Cell[BoxData["26"], "Output", CellChangeTimes->{3.570518963424551*^9, 3.570519095494383*^9, 3.5705193056735516`*^9, 3.5705200977805433`*^9, 3.5705260055144925`*^9, 3.5705260739518127`*^9, 3.5705267201361475`*^9, 3.570526769385434*^9, 3.5705270792799788`*^9, 3.5705272666207075`*^9, 3.570527940510691*^9, 3.570528040148066*^9, 3.570528250764036*^9, 3.5705283733334513`*^9, 3.5705287595589294`*^9, 3.5705295079858446`*^9, 3.570529548405515*^9}], Cell[BoxData["16"], "Output", CellChangeTimes->{3.570518963424551*^9, 3.570519095494383*^9, 3.5705193056735516`*^9, 3.5705200977805433`*^9, 3.5705260055144925`*^9, 3.5705260739518127`*^9, 3.5705267201361475`*^9, 3.570526769385434*^9, 3.5705270792799788`*^9, 3.5705272666207075`*^9, 3.570527940510691*^9, 3.570528040148066*^9, 3.570528250764036*^9, 3.5705283733334513`*^9, 3.5705287595589294`*^9, 3.5705295079858446`*^9, 3.570529548405515*^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[BoxData[{ RowBox[{ RowBox[{"rpo", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"px", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"py", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"pz", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "+", "rpo"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"px", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"py", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"pz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"qx", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"qy", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"qz", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "-", "rpi"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"qx", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qy", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704547877997913`*^9}, {3.570464729660652*^9, 3.5704647644487133`*^9}}], 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"}], "}"}]}], "]"}]}], ";"}]], "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.5705138126543036`*^9, 3.570513923788899*^9}, 3.5705140904439917`*^9, { 3.570514125029252*^9, 3.5705141378212748`*^9}, {3.570517140062148*^9, 3.570517157393779*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot10", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Red", ",", "0.5"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"coords", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"coords", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"coords", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.2"}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, { 3.5705138126543036`*^9, 3.570513923788899*^9}, 3.5705140904439917`*^9, { 3.570514125029252*^9, 3.5705141378212748`*^9}, {3.570517140062148*^9, 3.570517207033066*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Show", "[", RowBox[{ "Plot1", ",", "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "->", "False"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", "Plot9", ",", "Plot10", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Axes", "\[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.5705138126543036`*^9, 3.570513923788899*^9}, 3.5705140904439917`*^9, { 3.570514125029252*^9, 3.5705141378212748`*^9}, {3.570517140062148*^9, 3.5705171456469584`*^9}, {3.570519292897129*^9, 3.570519300775143*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.370547274853261, -0.04221321967024272, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.7711146226119587`, 0.009677015794301802, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.369177799279897, -2.2598118072185427`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.663248297965583, -4.5802145189189405`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.329865545095108, -4.598885566551149, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.660399809094564, -2.362362756092832, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.3647415417931947`, -2.248107297752364, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.2638747111885928`, -6.9057349179865835`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.747592808144639, 0.031906173615971145`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6768534125712753`, -4.5585462431542485`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.343538497812032, -4.555110502577383, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2956568741091432`, -6.8943381152995755`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.346926138497718, 0.0008204956372210859, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.656456595553607, -2.3089267620424723`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.32826793851116, -6.414727870756178, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.729566979621303, -2.3764983913869857`, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.6925696886449118`, 1.82524475174931, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.368867388719558, -8.666265857821955, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.412074614357609, 1.776644233843339, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.356196635701345, -6.361998176099762, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.725438428913769, -2.305808469359278, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.3229154966040984`, -8.684578582359277, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.448414266352444, 1.722661969407754, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.729519883640837, 1.8111792149998753`, 0.}, 0.1]}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-4.07083094873261, -0.01626810193797046, 0.}, 1.0449752603487132`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-2.070146210945928, -1.1250673957121202`, 0.}, 1.0787921853117355`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-2.01621304862274, -3.4200131630687416`, 0.}, 1.073428319484644]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-3.9965569215303454`, -4.589550042735045, 0.}, 1.0783413057717375`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-6.015473541973912, -1.2022879878815371`, 0.}, 1.0722917380375223`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-5.995132677094835, -3.4806241613219906`, 0.}, 1.0461875066047308`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-0.0022181287433513663`, -2.2539595524854534`, 0.}, 1.1119721978734034`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-1.963561504577088, -5.742974718452762, 0.}, 1.1020456478918488`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{2.056167174968917, -1.1081005620681963`, 0.}, 1.0782984525670614`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{2.020797477182235, -3.4033267704533063`, 0.}, 1.0735109786774935`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{4.010195955191653, -4.556828372865816, 0.}, 1.0783436492666487`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{0.015891081460274847`, -6.9000365166430795`, 0.}, 1.0247784791955434`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{1.9862551433402094`, -5.726442179226912, 0.}, 1.1018002384138894`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{4.047259473321178, 0.01636333462659612, 0.}, 1.0447596010089548`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{5.9999975466828195`, -3.432018632309928, 0.}, 1.0458742567616557`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{6.001691367025662, -1.1540531332026256`, 0.}, 1.0725732006480726`]}}, {Opacity[0.5], SphereBox[{-6.053977167681404, -5.915862094181338, 0.}, 1.247918765700072]}, {Opacity[0.5], SphereBox[{-8.160280263823942, -2.3726092762362416`, 0.}, 1.244915454168754]}, {Opacity[0.5], SphereBox[{1.9812402480154372`, 1.3345597222724486`, 0.}, 1.2563578379205556`]}, {Opacity[0.5], SphereBox[{2.0739359275559144`, -8.17931830087575, 0.}, 1.2472956973769778`]}, {Opacity[0.5], SphereBox[{6.119242080047191, 1.2884315784877673`, 0.}, 1.2464706837800748`]}, {Opacity[0.5], SphereBox[{6.077867148277832, -5.865374388479228, 0.}, 1.2470086609582274`]}, {Opacity[0.5], SphereBox[{8.15613907550654, -2.3066664962301053`, 0.}, 1.2446841832463669`]}, {Opacity[0.5], SphereBox[{-2.031686055842822, -8.195407954833591, 0.}, 1.2459299793627672`]}, {Opacity[0.5], SphereBox[{-6.1516866483145245`, 1.2368068359641082`, 0.}, 1.2436897689269628`]}, {Opacity[0.5], SphereBox[{-2.0144769794199613`, 1.3183283820238854`, 0.}, 1.2566444427939052`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{-5.370547274853261, -0.04221321967024272, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{-2.7711146226119587`, 0.009677015794301802, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{-1.369177799279897, -2.2598118072185427`, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{-2.663248297965583, -4.5802145189189405`, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{-5.329865545095108, -4.598885566551149, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{-6.660399809094564, -2.362362756092832, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{1.3647415417931947`, -2.248107297752364, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{-1.2638747111885928`, -6.9057349179865835`, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{2.747592808144639, 0.031906173615971145`, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{2.6768534125712753`, -4.5585462431542485`, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{5.343538497812032, -4.555110502577383, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{1.2956568741091432`, -6.8943381152995755`, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{5.346926138497718, 0.0008204956372210859, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{6.656456595553607, -2.3089267620424723`, 1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-5.370547274853261, -0.04221321967024272, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.7711146226119587`, 0.009677015794301802, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.369177799279897, -2.2598118072185427`, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.663248297965583, -4.5802145189189405`, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-5.329865545095108, -4.598885566551149, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-6.660399809094564, -2.362362756092832, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{1.3647415417931947`, -2.248107297752364, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.2638747111885928`, -6.9057349179865835`, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{2.747592808144639, 0.031906173615971145`, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{2.6768534125712753`, -4.5585462431542485`, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{5.343538497812032, -4.555110502577383, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{1.2956568741091432`, -6.8943381152995755`, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{5.346926138497718, 0.0008204956372210859, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{6.656456595553607, -2.3089267620424723`, -1.4}, 1.4]}, TubeBox[{{-2.7711146226119587`, 0.009677015794301802, 0.}, {-5.370547274853261, -0.04221321967024272, 0.}}, 0.15], TubeBox[{{-1.369177799279897, -2.2598118072185427`, 0.}, {-2.7711146226119587`, 0.009677015794301802, 0.}}, 0.15], TubeBox[{{-2.663248297965583, -4.5802145189189405`, 0.}, {-1.369177799279897, -2.2598118072185427`, 0.}}, 0.15], TubeBox[{{-5.329865545095108, -4.598885566551149, 0.}, {-2.663248297965583, -4.5802145189189405`, 0.}}, 0.15], TubeBox[{{-6.660399809094564, -2.362362756092832, 0.}, {-5.370547274853261, -0.04221321967024272, 0.}}, 0.15], TubeBox[{{-6.660399809094564, -2.362362756092832, 0.}, {-5.329865545095108, -4.598885566551149, 0.}}, 0.15], TubeBox[{{1.3647415417931947`, -2.248107297752364, 0.}, {-1.369177799279897, -2.2598118072185427`, 0.}}, 0.15], TubeBox[{{-1.2638747111885928`, -6.9057349179865835`, 0.}, {-2.663248297965583, -4.5802145189189405`, 0.}}, 0.15], TubeBox[{{2.747592808144639, 0.031906173615971145`, 0.}, { 1.3647415417931947`, -2.248107297752364, 0.}}, 0.15], TubeBox[{{2.6768534125712753`, -4.5585462431542485`, 0.}, { 1.3647415417931947`, -2.248107297752364, 0.}}, 0.15], TubeBox[{{5.343538497812032, -4.555110502577383, 0.}, { 2.6768534125712753`, -4.5585462431542485`, 0.}}, 0.15], TubeBox[{{1.2956568741091432`, -6.8943381152995755`, 0.}, {-1.2638747111885928`, -6.9057349179865835`, 0.}}, 0.15], TubeBox[{{1.2956568741091432`, -6.8943381152995755`, 0.}, { 2.6768534125712753`, -4.5585462431542485`, 0.}}, 0.15], TubeBox[{{5.346926138497718, 0.0008204956372210859, 0.}, { 2.747592808144639, 0.031906173615971145`, 0.}}, 0.15], TubeBox[{{6.656456595553607, -2.3089267620424723`, 0.}, { 5.343538497812032, -4.555110502577383, 0.}}, 0.15], TubeBox[{{6.656456595553607, -2.3089267620424723`, 0.}, {5.346926138497718, 0.0008204956372210859, 0.}}, 0.15], TubeBox[{{-6.32826793851116, -6.414727870756178, 0.}, {-5.329865545095108, -4.598885566551149, 0.}}, 0.15], TubeBox[{{-8.729566979621303, -2.3764983913869857`, 0.}, {-6.660399809094564, -2.362362756092832, 0.}}, 0.15], TubeBox[{{1.6925696886449118`, 1.82524475174931, 0.}, {2.747592808144639, 0.031906173615971145`, 0.}}, 0.15], TubeBox[{{2.368867388719558, -8.666265857821955, 0.}, { 1.2956568741091432`, -6.8943381152995755`, 0.}}, 0.15], TubeBox[{{6.412074614357609, 1.776644233843339, 0.}, {5.346926138497718, 0.0008204956372210859, 0.}}, 0.15], TubeBox[{{6.356196635701345, -6.361998176099762, 0.}, { 5.343538497812032, -4.555110502577383, 0.}}, 0.15], TubeBox[{{8.725438428913769, -2.305808469359278, 0.}, { 6.656456595553607, -2.3089267620424723`, 0.}}, 0.15], TubeBox[{{-2.3229154966040984`, -8.684578582359277, 0.}, {-1.2638747111885928`, -6.9057349179865835`, 0.}}, 0.15], TubeBox[{{-6.448414266352444, 1.722661969407754, 0.}, {-5.370547274853261, -0.04221321967024272, 0.}}, 0.15], TubeBox[{{-1.729519883640837, 1.8111792149998753`, 0.}, {-2.7711146226119587`, 0.009677015794301802, 0.}}, 0.15]}, AspectRatio->Automatic, AutomaticImageSize->True, Boxed->False, ImageSize->{360., 360.}, SphericalRegion->True, ViewPoint->{-0.27409444946857864`, -0.32534521188042276`, 3.356936509062541}, ViewVertical->{-0.4068874840758401, 1.0383792857505494`, 2.105425318226116}]], "Output", CellChangeTimes->{3.570518963486951*^9, 3.570519095572383*^9, 3.570519305735952*^9, 3.570520097842943*^9, 3.570526005608093*^9, 3.5705260740142126`*^9, 3.570526720198548*^9, 3.5705267694478345`*^9, 3.5705270793423786`*^9, 3.5705272666831074`*^9, 3.570527940588691*^9, 3.5705280402104664`*^9, 3.570528250826436*^9, 3.5705283734114513`*^9, 3.57052875962133*^9, 3.5705295080482445`*^9, 3.5705295484679155`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvHd0nIe23fezHK/Eiftz4tix/a7t+MV5fsmKu++70hV7b+iNHQRBgOi9 10Eb9N57xwzqoPcOECRIkAAJ9k6KFCVRXVe3PGUDoK51n/N3/vJa2vwGbeb7 ztlnn72n6PCZoAtu3meCPFzP/GxvwBm/Cx6ugT/b4xugb/3VvwJ/ZdcGfsbG 7R/gx39+0H8/7N74Z+M7/+32f7v9327//327fPPwP5CU0klmqoW8FAtFyRZK DUJ8D6WxPRSFd9Ru/XbJ5uFvkZ7eSW5WD8VZFiozLdQJTekWWo0WTLoXs+7B rHswxVtoixEiemgMbK/aupeizcPfIzuznfycHkpyLVQLjYIpx0JntoUe3XN/ hoUB3eOQ7nFI9zioexzYQLSFPqE3tAezj6li614LNw9/n8LcTkrye6jMt9Ag mISuPP2F7n1I9z6qe5/Q+U4J03qE6XfHKT3SVJqFcT3SeKJ+L6qHwaCOrQJR sHn4m5TmdVJe0ENNoa5YaBcsBb0M5vcxltfHZN4As/kDzOcNspg/yJLwHksF A/z3ut3HJZ3Ngs5iXtc3p0ecNfQwEdFB2dbD5L97mIr8dqoK9TBFFpqFjqI+ +goHGS4cZqJglJn8cRbyJ1gqnGS5ZJKrZZN6mJXyCf4618vHdGuUlbJhrpYO cqW4Vw8t6MIX07qZjW3nzzYf538i1dilZqrtQrFOp0IFqBIFapKEBAu1sWqu ClEd2snZrVPM2zz8I6ryTKpCF7Ubp1g8QEfxMH1FY4wUTTJZOM1c4SyXiue5 UrbAtYoFblQtslqzyM3aBW7VzQtzwqy+nmatZlI/H9OpD3GtpJ+rqtKVjE7m 49v+z82H+9tkZ3WTqysoFiqFOhWwSa1r05mbddYdOutOnXWnWtcZJ4ggXeFq UHAXp7fOPHfz8I/FtWbqCtqpL+rVmQ9jLh6nt3ia4aI5JosWmSte4lLZFZYr l7lefZXVuqvcarhG3/4E5g7Fc7f5KvdaloXLun2JO00LrDfoSuqmuFE9xmr5 INfVvGvi90JC059sPuwfkZfdQaGIWCpUCPVCi0hpFh26dTW9upp+Xc2grmZI VzMsIg7ragbVhyFd0VCUENZDr5+Zk1tXlLN5+CdUZtVSn99Gox61qWiENl1N j2o/WHyJiaIrzJZe41L5da5W3+B63Ro3G26y3nyT2oOtrAUM8NbYzsP2NR61 rwo3hBUemK5yv+0K6y2XWGucY23j6iqHWS3q5lpWK/9y87H/Z0ryuigtsFAm 1AhNBVsz1/3jzKlZo7q08YxeJoUpYXoTmrf0rbmb1OVOabKnYrsZD23nxE8v 759Sn9uou+3SJIzQWjxDuy6rr3iZ0aIVpktWWay4yXLNOtfr73Cz6S63W+9x z3SPVtcr3Mu+yxdta3zTauJpz13hNk+713ncfZMHnTe4o0u9ZbrCarPoWT/N auUgN4o6uZrd8C82H/4fUJ7fSaUqW6VZr9tgu44dBRtz38eg5n1Esz6RO8R0 zjCzuSOa/RHN/giXCoaFIc28tEC/t5Dby4IavaArXkjqYibKzPGtK83ePPwx 1RmVNOa10SzBaC6aorVoiS5d5WDRKhPF68yV3+FyzX1WGh6w1vyI26bH3Gt/ QpZVDV1eazwufsxX3bd521TPi/7HwkOe9z3gad89Hvbe4V7PLdY7V1lrF61b FnTFk7riPm4Ut/DPN8/hH1Il7al5pz0bw90i7ekoGqBX2jNUMMaYdGcqd4q5 vGkWC2ZYUkeulMywXDojHZoWpjb16GrZuLRplMtFQ1yR9F3J7uVyWieLca24 /PSyf0ZDdi3NeT20FIzTUriAuegaPUU3GSq6w2T5fRaqH7Hc8IQbLc/UrOfc 7XjJg+6XZNt30Rd8nxdVL/m6/z4fDb0UXvDR8HNeDj/l2dATHg0+5L5+drv3 Nje71ljdvPR5Xfooq1VqdFH1zzZP43+jWpWvk6TV66rri/toKR6kvWgUiyRt SJI2XjDHdMEC8xKJpZJLkrYlSdtlVqouSyiWJG8buLQpc6vV8xKDWa5XTkmN x1kpHmJFI3E1vZ1LiU04/2EFmrKbackbUgVmhWXMhWt62HuMlD5iuuopi/XP udr8EWumV9zu/Jj73W941PsJOc5S3OinvGp4wzejj3g1+obXYx8Lr/lo7BXP R1/yeOQ5D1SJOwMPuSUSrHWvsmq+rCqI7g39qkLDH78TkqqcRuoL22nUkDdK 1JuLRzEVT6oZswyqMWOFS0wXXmG+5CpLZdckkSuk7DBg2VfIvfOFEpbrrDdu YEW4JixLOi9zs15VqVVFqqZYLRvhhsZnJbONRUMtTluVyNo8/DNqU4tozu5U NcSF/EVV4zrtBbfpLXrISMVzpms/4lLTa661fcLNjk+50/2WB72f83jgc3JP LjCZ9Jo3ps/5dvIpH098zseTb4XP+GjiU55PvOHJ+Gseqip3xY9bgxqj3nVW u1ZUEXGidUS8MPFjORryW7TlOzWKG6WYkK7O0Fm0QH/RZUYLrzKl0ZwvXWWp Yo3l6lus1K1j3D/AZMAyr/Ov8llNL3fbbnOvbV24Jaxxt/UGt1tWWGta1mNt kGVGG0OPW9TFdZX/D8rxz2kwVtKiyWnJnVZJlmnNv6ly3Kev9CmjVR8xo8Zf avmMa+2fi95fcrf3Kx4OfM2ToW/IO3ud2Yy3vO3+mm9nn/Nm+hs+mf6aj2e+ 4tX0F7yY/pynKs1DleXe2EvWh5+wNnCPVYsI0iWCtEsdWru5XFn0T94JVF1O ncRJAiVRaCma0IjMY5JIWYquakRuaNusadusc6nyDldq7rFSf19X+oCso7PM xdzl4+p7vO2Y4UHHQ8nvAx523udhx13ud9zmjvmWplsT2nKN1UaNkpzBasUg qyXtXM2twvEPK9OYVktL5qCqM6fqrNCae1t27BF95S8Yrf2YmabPWDJ9yUrn N9yyfMu9/l/xaOh7no5+T/75O5Llr/l84Fd8u/iCN7Pf88nsr3gz9x2vZr/l xczXPJ35gkdTn3Jv4jXrY89ZG37Iar/IYpGAdKtp7X1crS//sTJNuQ3iapf0 a1SV0Slp73YUXZdtuymu3Ga69C4LlQ+4XPuIaw2PtXDEv7Zn5Npd1hg85pPG x3zRPcejnuc87nkmPBUe87DnEXe770u270q2b6kh4mqTeFOn5lT1cqO04S9X pim1iZaMEVqyND7ZN2jNu6ed+ZS+yleM1n/CTMvnLLV/zUr3d9zs/TV3B3/L o5Hf8XT8Lyj0fCpd+54vRn/Dt5df8mb+d3wivJn/Da/nf81LVejp7Nc8mvmc +1NvuD3xkrVRXc7QHVYHdGp9GqPuQa41V//jHyc6vUzUbVV1BlQd0bjwMm3i SmfhOv2FdxkrecBsxWMu1T6Vyj/nestLbpo+4nb7KwpcVrmc/pJPTS/4sm+B J32vedr/SviIJ/0vedj3nHu9T1m3PBL9Rd32m6y2qUHNc9I2TVWNWbu3EIe/ VKFkya1RjcpYUpXWxJ37tJc8o6/qNaMNnzHT+iWXOr7lWs/33Oz/DXeHfsej UVVo4i8o9n3JSs1v+GJKFVp+xpsFVUh4s/g7Xi/8hpcLv+LZ/Lc8mvuS+zOf cnvyFWtjT1kd0ekNa7IGtR16h7lmqvuxQo2ZGnLllpb8MVVpQ/NWMBXcokuD PlD0mPHyZ8zVvGCp4ZUK+1pX+IZb7Z9wp+tTSs/e4VruG952fcxXA4s8G/xM e09aN/QJT4e0JQZfc39Q1ex7xk1VabVbjerQaZg04K2S4yaLZLniv6qQQRVK kwSnX9aU3RSHHmIufU5vzceMNL5l2vQVlzpVod7vpRm/5qxhjNCESSINU7h5 DhMZNUVKyiRGYz+pKVOkCd4xE7xeFIcWv+fZwkaFvlKFPuP29GtuTj5jdfw+ q2M6tRHRe2CYZfPvK9Qsh9uSK82R6WjJvyKsyWXeo7vgMYOlL5ioesVc3cdc bvqUlbbPNCmfs971BXctX1Lp8VgG5wve9n3GV8OLPB/5ihcjXwpf8GxEm2Pk Mx4Mq5qDr9TsZ9oIGvQeDXqndKhDPDJJgxoa/nKFGhM0ZcmqUJoqlHFTp/YQ U9kLLDVvGG76XKe4ypGgJmzCzbgFtnMxpB1fmdvA8HY8fUeIjZvCmD5BZmYv 6cYJMtJ0W8hInSA9ZQKfsFEeLYhDc2+3KjSlCk2pQhOSyDFVaGiYRfPvp6wl U6eTIweRK+3JuybcxqRT6i56xmD5KyZqPmFejbvS+gXXzV9pWr7hdo9kse87 avw0xBXf8nb4C74amuf52He8HP+OF+Pf6vbXPB77kgejb7kzIt7JY63JWq72 3pUU3lCldCqdSj1tbX9YIQ1+tJpm0JQla8qMWxXKT5ilTBU7GFjH0XATJ/3N uAaa8Qgx64rNBEaYCY1sxydwlITEKTKyJpT9ekiKNZMcbyE7Y5zsdEHczDSO 4xc+pt8dYn32Y9ZmnrM6owpNq0ITmrKhQf7Jj+XJMGnSdS45l4QbKtNdEegJ 3SUvGax8w0T9W+abv+KK6Ruud0gXNfm3pY3G093Uh3zCet1veDv+NZ/0jfFi 4rfCbwTxeOI7nkx8w4NxkW3sU26NvGZtSJ0aeCBIjPqULSyS6o6OH8vzo+dr iVe3DDqdtDVyI8coSJzlYEgjRyPacPEzcSbQhHuwGS+VxV9lCVFecPVuwT90 FEPyFJm5G6XpIDXRTJqQnmDGaOgmJ2dM3x8VsUbxjxpRWQe56NXJ6qwEaEYd m5xnZbj/95Uxdog8WuVZ4nH2mqpzn7aCZ3SXvWKw+lMmGr5gruUbrph/xfWu X0tEfsvt/t+R5jpBc9QX3Gn+HW+nv+XZ5F/wYup3vNzEb3g+9T1Ppr7lweRX 3B1/y62xN6yNvJAGSoSGNV5DkukBrfie7r9cmcboPnI9G8nz6yY/YoT9wQ0c Dm/F3ruNE/5tuAaZuBBqwkcECog0ExZt5pyPRitijBTjNFkFE6QktZOW2k56 mpmMdBOZm2gjR4Y+u3CETCU0f3XAN7IPb/92VUfLa3KGy4M9v69MqiqTPinu SHAyb6k6D7W4ntNV/jGDtW+ZaPyKubZvudzxvXbpb7jZp8oMqDLu87QmyIuZ foeH+H8+YYILcRO4R43KWfya5zOqzPR3PJz6hruTX3Br/BPWxj/SVGusxiTP oxKeITmM3r9UmT8m/UwWeRdqyfft5EBgDYdCm7DybMXRp5WTAW2cC27DM9SM b0Q7QVEdhMV0cs6vj+DYGVKyF8gunSU1o5v0rG4ycrrIyuskO7+DnHwz2Yo/ OeXDZJcNk1k6iH9SH36xXfgEtXBtclJB/F1ZkrWp0qZUmmWVZl1leURb0Qu6 Kt4wUPc5401fSXluUZc6S2vGHLYhbbhLAJ3cOvHwHydKwpek0TVoPSRJ6FKE VCEteaNr43iGj3J3SmWZ/JS1SZVl8omgskyoQ6MqS3/Xj2Xx3Dz8NWIS2kkW 9TMMPeQk9JAZ1/3OxP8Mc3Mkna3R5J6rxiqgkkNBtRwJa+bYxRYcfVs5JfVx C+7kYlgXfpE9BEX3Ehbby7nAMUISL5FacIWs6kXS8vpJV+TPLO4lq0RKVKrH Ku0SOsko1rF2SL83SEBmP/4p3fjFtXExqOb3VTOYadEVt6Sqaunrm2TKjZmj OOky2VETFMdPU5M8g224+B3Qrslvx0sr47hHF97B48RpsaZkjhEtFUjRmkgT jBLB9A2kjqt6Y6QljXIxeAgPvx6JoKo2rapNiUzjGrOBzh+r5r55+BukZ/SQ n2mhVKgW6tMtNBkttKYKyYLBQrM0tylGP4vo+UfvFl9HUyTdKmhPWwxHvPKw DqjiaFA9x8JbsPE0q6idnAroxi2kl4vh/fhFDRAUO0S4YRjXsFnCjNdILbtB ZsMyacUjpG/wrULFqxwku3qAnOo+cmosQjfGCjWzcZiA/AH8xVnfFBPxRSPE pFt+nNKmODkVg/Zw8hVyAiQc4eMkBMh1hI2QJ8dxNKSJE75mTgeYOR9k3hwP H+3kkxd78A3T70pKU7NHiYsxkyAYhAzjxnYZ0z4eJT1d0DEtdQTvsCG8Ai0S i9uSUunXxBTLfe0/FtZt8/B3yM3upijHQmWuhQah7SfPam88zTegQg+kWRhM sdCfZKEvwYIl1kJXpIX2EMs/2Lybf0FnUwQ9rVH0tkVzIjmZ08ZMrP2qOBbU iJWWgq1ntwa/V4M/wLmQQQ3OML4xowTJi4WJEq5RlwnLvklq9ToZipyp5aJM lRxGja6uTktCBjlbxc1uHCSnsY+02n5Sqi0EFA/hl9+Ld0YbiVVjKviPe/Rn 1EZUk+NRRp53K3n+veSHjWEIHMCooT2qqXLy2djpJs6q0u7a6V7hW8vrlLdF xwkSJRzGXO32OFVaSEkwkSqkGCRG6kJm1oiEaQRj9pAwiG90Pz6hXXh5NUkE Jt4lHdd3T/bnZ7dTnNdD+bsn+9s2nuwX+vIsDKnwoyr8RPa7J/tV/BkVfjpt 60nHCTF8NNHCsAo/ENFDl1/H39+823+JuTYMi2SjT4UfMMVwOi2Ns+k5nMso wkZb2TqkG7sL/Th4D3LcfwTXkDE8NMPe8ZMEJk8TmjHN2bjrhCndpDTcI928 psLOkFY3Q3rDNBnNU2S1TJLZOk5Wmy66dZiUpmGSGga4mNuDT+EAhpYFDA2T asCQGtDLP/7RNTRGagMUkn+xmXzNucGri5Sggc1NYOvVhpNv27tNYMJDO9J7 Y0dGmTjl00dA9CSG9GmMBeMkJnaQnCT3kNKBUYsu3ah9mdZNlvJrZvEwGUVD pBcP4rexBeJ7JI1tePvWvGvA1osB/wvFue2UFfRQXfDueVGhV7eHhXE1YlqN mMvtVQbrZUn+fUnHy6LWZX1/SQ269O61kNmNZ4LVkImNJ7qDO/9o8+7/BIsm oF8TMCCpOZ2cxJm0DM6lF+KeUYlHZj02QX3YnR/G0WsMF/9JzoRNcT52mouG WfyNcwRnz3PGcIvQ0ocktzwirXOdpPoFFXuBtJZ5jKY5NWeW9HY1pmNSR60l NSWxeRgPaX1y9zWS26+Q1DKHoV7sreontsD8oxKapYQdUsKcc7kUXKij0LuT 5IudHAqp50h4M7byK85+6keg+qEt6Kle+GgYAqM7Oe03LFWcI0kh3Vg0rW3Y Q7JomSpRNmb3kJHbRWZeF2niQ1aFpKhSnkUKmVnRh7/65C/H5xVRR6yx/536 nNk8/K+U55mpLOiirrCHliINhNBf1MeoWDVVOMjcxnPShcNckY5ek/6ulI5w Qxp8o3xIxyGulw3oe336mYXLheqd+rSQoR4ldTMe0fF3Nx/m/6C7LpR+Dcmg CjDYFsfp1BRcjXm4Ke67Z9ThmdGCd5YZ++AxHD2mcQmY5WT4PK5xC3ikLOKT cYnAvCX19D7JhU8pNz0ltecuiU2XSWpdIsW8RGqH9m/nIqldC6R2z5HSNUOc aQbPsnENVwvBOQ3q0QpJ7Uvq0Yx6NERCVTf/cPMc/3faf7Kqekyx5LlWUeRp 4rB/JUdDGznm0YqNlMxJdnvTB4R04BHehW9UD4ExvZzymyIoTueTcxVjmQYy c4CUnAFStY6MKmeGyppZIj9QqsYV63adMlydBqhWPkCpxS+tg4TyceJV7tgM i/1Wo06/ewmtIrdVg9NBbVHP5rPsXcUDDGj0xorGmCmaYLFwisvF01wrm+ZG xQxrVTPcqpnhds00t2unhElhnPWaUW5VD7Na2c9KWR/LkovLOVuv9k1Fm/7O u4b1NYQx2BzFUGsspw0JnEnN5FxaMefTa/BIb8YrU75ROzYguxen0Fmc/Rc5 Eb7E6fjLuKVe4WLWstbCVc5F3iep9CXFnS8xWO4R13qNBPNVEjuuYuhaJqnn CoaeyyQqGUa1X8Kjeo5wNSW8rJ3QolaSe2+S3KXBMi+qaRq2hj6xdkt5Oxp+ XHkx9Jo2EEv2iSKsfUo4GljNMTXNykM+w9uEk38HJ4O6ORdqwTOiD5/oAQJi huQ9FghKvk5S4Q3SqnQuuWMkF4yqQaNqovxGhdStSp5DZi2lcoiUCjWyScPf NKrrG9T5zJFYO01ihdaU5uVd1069e/mwIqeR2gIz9YXd6toAnbrbgeJJxtSp maI5FosXWC5b5HrlJdaql5Qcl7jTsMS9xiXuN1/iQfMiDyTuD5rnud80q+9P 6efj3KodYbVqUKPXy9X8HpaUy6aiWv725sP+K47u38axAzuwPrCT98/68oFb JL90T+JD9ww8lW28M2U5s/oIzBkkpGAE5+hFjodd5WT8NXX6Ouezr3NRFXGN fYJBgbeg+xXxvQ+IbFsluv0GMV03iO2+TqxlhRjLNUI7rhHVPEKkzEFEbd9m B8PUweCCZlKU+5M7r0gaZzSqGrk60z/4UbFbttZmv5o3YI5jyBTPqSSDGljK 0QA58JBmrC6Y1EDZUT8LJ6TgrqGDXIgYxjt6lID4MU6FLhNkvIWhbJ3UepGr SIGhVPa3YpK06kmMtROk14+T0TBKcq2aq8oZTfP4lU5rdQ5LwdV0KbyhborE ymESSix2Wz08+e6J/RJjJbV5LTQUdtGkRWdW//qKZxlV76aLl1gsvcJyxVWu V1/jZt0Ktxuvc6/5Og9br/PIdJ3H5hWetF/jaftV4QpPzJd5bFJfW+e526wp bZhgrUayWt7PdUnxFTXob2w+9r/Gw9MXz4t+WO3bho0aantwJ3YHd/OBayAf usWx7Xwa29xz+MA6gQ+tk9njUU1Q3iihxROEl08RKSNx3LjCqZQ1TsvduRXe 4kzCS+Kq35JteUOemhNiWies4xZhXTcJ675JaPcqsR3TRJuniGobJ7JllIhG WfLNxnbJPBSR0n+LlB6NpbQ2qX1MO7BTC36LfFt7WFqvzg5qJDe6OmJKxDXN qH2cwzG/GqyC2rB278L2Yi/2fgMcDxrmTOgo7hHjeMVO4meY5kTEDYKypfFV 97WDV4kv1ahVzJJcM0tKvaJpo0xSswyKDJKhcQMyQPVj+JTPktS1pvPSWLdp HzfNk1Qn6VBciC/usP1pd/8ltTn1NOa306ThbSuapFtdHSq+zGTxVeZLV7hS ucpKzdbL4Heab3G/bZ1H5nWedKzzrGud593rvOi+xcuem7zoWdXX1/X9azzu XOa+BO1O2zw3dZarUvpVrePreqxLxiZ8yibwU4f8y6YIkGYHlugoDffPHeev bp7bn3FRnfcSvC/6Y7d/O/YaZ4eDu/jg5Hk+PBvGjnMGPjwWwTbrOHbaJLPb 1shehywOuORy0L+FiKo5omrniWlYJFZKEte2xIGQOU7Ef6yffalt+BkXG+/i 1XIX77a7JPQsCYvE9ywQ26W/65zlWEobx5JbOZrYxNF4WZXYao5ElGKT2IiN bltHF2MVkcnR4NgfCTDQHKHmRwlbzR9W808nJWl/ZGh/5HMhoxxr/3ZsQvsU S4aw9x3FOXCcUyGTuEVN4xE/i2+yTjNmnfi0hxTXPJJy3CK2cpGE2ktyupfU 1EWSWxdIVnmTNc7xEsg4CaSHhjMop41ky22RU7uj4x0JmkWK+lESa3reEWDr fQMOlKeVKne10CwL11I4gblogd6iZUaKbjBTepNLletcq73Dmgp1u+U+9033 edTxgKfdD3je84CX0sWP+h7wqv++cI/X/Xf4qF/E6LvJE8sqD3tWuCsyjBW0 MJJdh3NoJS7BZRwPKMYptgDnKCGyAJdwIUS3AwsIkziFaUXsOJnFDpcsBRo/ fLz88fUKwEEy4HhgF46SgQ9PerL9bBS/PBYqEsSww8bATts09jhkst85lwOn 8jl0toj9rsVEa63ENF8WCa4Qb17mwz3hOO+PwOewxnXqNUm92sgb6FsmUUjo 1e/1XsbeUC6UCSXYJxbhkJCPQ7zGOCJDGzYFW0MLtgl12MSVYxOTi1W4AZ/z Ol83X7as+Z/S1yg3IbEf0qYekv0baktkuC0J15RUzqdl455egkdGDRczm7BW QLR1H8PeexJHf8mXCHs2eh73xEW80i7hEn+fuKxnFDY8JdF0h6iaK8TWL6v7 y8RLzBNMl0lol6OQzYtqWeJC2TzhpT1yE52SrQdixl0R/5aYsSLmiEktWhiN /cRXttr8lBmO1GVW0SRn3Sw/0FI4R2fhsrzxKuPF68xW3CXsFzl07Mxn1jqf e+YnPOp8ytOeZzzvfcbL/me8GnjGx0NP+Xj4CW+GHwuPeD0sxgzdY0l+YlEB 4URUFSdjGzgRW8/p6BrORlZyNrSUM0EFMr+CGOIqhrhGCKEFisoFfGAXzQc2 0ew9lcWeE9nsccxil7URx/07cTqwB+cDe9l20ocPjgRIHiLFjATJQwq77TLY 65TDgRNbrDhyvoRjnuVYeVUS03JVZvka7++OkntIwcMuk5hzWWT4GskOiCNp 4AaG/uskDlzHRYbWIbka++QqHSuFchySSnE0FOKYmI9jfDbHItOxTyjGLqkB 28QKbOILJBUp+F3wx8/dD183v7/3jhyDTeEcFamtpG5WUjfrA7u167Tjzvnz 4fko2c1K5YNGWU4FoqxObANGsb8wg6PvgobpEidjLuNquMIF41UN1X1icz8i r/klsaZ7hGsfRzatEKVdHG2SWWlfkYGRYZENDZcTCK/WXpOlCy/rJWXoyRZB eu+Q0q0Q3nlVpkW7Q6E7sbFjy7T8VRIN3aQmKnfFdfPznxLGicasjTdmDNCS P01bwWW6ZKEGi24zUfaA+erHFByZYy7kGrdjJlj3rZY8vOJ5/ys+GnwlYrzi zcgrPhl9xadjH/Hp+Es+GX/O67FnrMhwLpQ3czquivCoYiKiComMzCMyooio 0Fzco8pxDy/kQkIBHiKNh0jjKdJ4iDQekpQdjtFCDNttYvjQKkaykM1+p2w+ 3BeNy4F9nDq4n23HA/jlkWARRr9nLRmxMbLbIZt9LvkcOFPMYTd5Mo9yjoks Nn7V2ATUEK8N+/6+HBzsytXYGgxhteQnVlGaWkjS4BoGwSGlAYfUeqFOqMUx tVqoxDGlHKfkUpySCnAy5GEVlSlJSZXMFGInYtkaiiQpaRwJ9sXfwx//C374 n/flb7/bjR6efhyTzbUWc2zkimwlhxvOyE4D8MEZT7mjELmjOLa7p7HjQo5Q qMBiwT9rQLZ3CIeIRZxClnGJucbJpBVc06/jHPyEyII3ZLa8Jk82N6j+JiFN a2KLYBLMa5ytuk5EwyQRSvgRdWNEyLmFVw3I7irVbTJIbsWyLgZdVwJdksxI Xky9f/TuTZQZmRayhQJl5JJ0C5VK8dWpFmqTLdQnCnEWGqKF8B7+wxa7jr97 AqEyOZ/mrA5aciVHeQuY8q/RLT83VPKAyconLNS/oMDnI6ZyXrOa95KHmTd4 mjjIba8aXg1/xpvRz8SqT/l08lPeTn7C26k33Gpd5Ep1N2diywiPrSBCiIwr Izq2hNiYQuKi80iIzCIuLFuMKsbbUPAePqLZf8JXRPMR9pyOZvepGHafFI7H sstJsI/lkGsuO63i2HEolh3bw9nuEsSHR8LYdiyeHdYp2lOZ7HbMY9/JIg64 lnL4QjlHvaqw8q0RuWrZvT+DYOsu3j9Yg8O5NvxDOzEkd5KfZ6aspIGOlEaR q0mkEowbaMDRWC/U4mSsEapwShPJUktwThbJkrKxijbqb0qkWLnY6miTmM7R 8AACPf0J8NiAHwHuvu/s9z+VAfN9Z8L8JUnb3tnvXdiLaA4H93Bc2H7Wi51u MmFWARqwcO3gWF2bgT22qRokI0EydCGFk4SVTBOhYO4Sf4O9EavYh7wgJP8t Ka2fYJQ8edXdxqfxDudrb78n373A3yJSCSGyeY6Iphk58GkOx7ZwOLqJw5F1 WBu6sE4wkzJwl5Q+qZVlmeSeOZI6Brcy/N8lR2KZn2vZRLFQoZhfm731VthW 8c8s7nWk/n+/FbYrpAeTr4l/+1MO/ivqNLktWb205EyJh5cx5a3SU3iX4fLH TNU+Z7HpNVEhn1KX/RkTpZ/L8X7BkzKpWP4yrwztfDLxJZ9Nfcnb6S/5fOYL 7pqvcrVuQLyrIjK+hsiEGqITqolJqCQuoYyE+BISY4tIkrFIjswkMSyDi1K1 gOQSAlOKhRL2nY9lv3DkfNx7HLLzUGQ7bOvBHitP9h69yG7nOHbbC0dj+c/7 4sRB9epYojhoFE+z9fMC9p0u4YBbBYc9qzjqU8vO4zXaoiVcONlGgOJJY/2v sPLp4WLCAHG5G8+r9ZJfa2Kw/SExMfJzgQ28h0N6kxyPo/51ymjAKb1e0P0o Pjoby3BOK8I5RUIXmymuloq3+diliYNJ6QR5BQmBBF3c4mLgOx7+tXc7x7tE YUHOduOr9zb//X/ESd/NcOAlX+itv7M9oIBwcCMg/Bdunjy4lx1n/STqvnIB oeJmtLiZwC67FPbYpbNPYWGXfQ4hxTNagSJa5QKRNYvs9ZnE9ewTygu+xKKY uOEZ40zyWUKM+Yqi4RWi5LMi2y5hb+zGNqZUKOFwWJGQz9EYhQMpmo2hQzPW JiFvUFioFFHl2nu0Tk1tf+vdO52L8nooybdQJmw8M1+bJ4L++OZ+6XWPiNon oex/9xLI5pv7EwSRdTDewnCUENHNQGAH/+YPBbNBK6cl492bvnKuYcpdx1L8 gOHKZ0zXv2Kx5ROutb9lrftLSnO/Zqj6G643fsvTpi/5tPYRXxTN8iqujbez 33KvY42VhjGJYy1RifVEGRqISaonLqmW+KQaEpOqMGj1JSVUkBJfSmpsIcbo HHxiy98jJKOS04RmVnLQyyAiGThy3IcjLj4c3YQXx5w9OeboxZ6jbuy382af UwK/sEni3+zIE1mT1LgMdtrlSWCL2He2jIPulWx3qNJ9NOHuYsbfe4iwmFki M7QX5n9gR0CfMv8IgcUjxNUOUDLyAyF5SnQ5+jqtjSi5B8eMJhwzG3HawAZh M+txzqzGOaMCZxly57QC/VwbW3HNIV1bWd+zSckgxDtYPm33lk/bvwvbfTuw 27Odf3ciCtvoAuwFBwUaRwUaR1lWh8B8QsunCVWo2XEmi52yrTuOZ7HN3rgZ aOw3A81uYQ8nRNiTB+VIDh0QcYM2RXWHdYRIGyfSKuHaKeHaZ22Gm0MnCjks ZxJeeUmkFRnrr/DBhxE470jAXzWLP5FIimsUceYVYtuvvUdMxzX+Dg4Z/eJj NbYyU3ZxFdgrt9jHaSfEFWkXaCYTarGLr5QBMcu5NinbaB/FFyvbZGDo6vib 7z7WsvHBjopCyyY23uzdUCBRFX87xN8ecbdfQjskoR0Vd8c3XkFK62Uyrfc9 /WPRXG+8i31SVJ5K3Hon+0RYu2b6J/Q9QGOK3GT6CC2ZW+/MM+XdxVL6mOHq F0w3fsxi22dc6/yCm5ZvuDvwHemZv6a77tcsm3/Dk87f8FbU/rZxnW+KBrgV 0o6bqBmtC4pOaiY2WUhpIUGPYRCSkptITmoiRXY9NbEOY2Il6Qp8SbF5hOXV EyEc9jPKexs5diaYY+qN1ZkgrM8EYnMmAOvT/oK47OTOHhsPDjp5s/14ML+w TuPf7ixRDzPZ6ZDP7hPFCqulHLSvx861Cxe/YYIjFohIVQ8LFgmrWMRHIpTQ t8J2Tbd9bi+Hs37AKn0Bt/wFAooXiCqeJT6vD7ckMyfD6t/DKauBg/pX9M2q FapEY+lthtKI8rZjlhJKZhF2mSXsjY7A7vA+HDZwaA+Own9yjeHnwp+fjebP z0RxUp7mVEyB0pigVXM6TAgu4H2HaPYoEe09q9QlA73nuOCcLQMcuUldZxnp EzLSJw8e4PShg/xSu2ebVcg7zTWIusrlou4+R+Xy4wUcOqMEdq6M/RrnyNqr /OdfxrNnezautqK0zLYxoIQCjWlqYCxxnavECjZx9djG123m7U2eJiqFqVUO CRrRBKU5BQN7Q72+VyNUYJusbJ6s3zeUisNZMtnR+Lr68D++e/t+aU7r5keH qossm9j4xEKjyGwq2HpptFdlHsoZYDR7kImsIaayhpkR5rKHmc/ZwJAwyHz2 AHNZfcxLrBfStj6xMBdjZtivnv/7p6wuoTG5jRbj2O/fTWnKv4+l7CnDta+Y bv6ERfPnXO3+irXeb7k79D2PRn/N8/Hf0lj3A/PdP/Bg4Ac+G/g1v+p5xW+b l0mNqiEmuVVsNhGXaiYhrYPEtE6ShBQhNbWDNH3fmNZKhrGRTK3klBSVvKSV KMEuNAcr2Tfr85FYu0di4x6BrXs4du5hOoZgd14sP3URqxOeWpeebD8VyAf2 Mfz7A5VidRYf7JGFPSzbetyMo+cAJ0ImlNOmCcteIqRkCZfcacnLRkvqie+7 SsKAMHiNxKFrWv/17E5d4HjhIt7ll5REL5FQOo67sUfTKvuQLVXOEa1zROsc KXO27GxWEY65ylQ5VRxKTGa/sDcmDKej+3E5so+fu4nG7nH8wj2W9+WKfumm zHcuWvdXgJuofV7Z8LyofV7U3uYSzXYnQdezzTaG/a7Khady2H8ih21HYtm2 X9gRvknpU4cOcfrwYT486sN2qw2bG79pIzaeVNjjkKOcWMDBU8qJrmUcda/g mGcl/+kXslzb8tl/tAa3c81EhrSRkdhCsaxRvjGP8yWTovOGxAqJjaJpA3Yb 9NVSddBSddRSdTSU45hYjL0UyiFZOVLZ0E4bbKN2duqjbVIu1nGxm3bJ/5zP X3/H7I1Pm22wua54Cw1FvZgK++kqGKQvf4ThvDHGciaYyp5kVmZ2fvMDKtMs FU5zuWgDU1yR47pcNM7lwlGWCoa5kjvAsizJFVFsKbH1D5n9JzTI6LSkjovd W++CNRXcp6f8GcN1r5hq+ZTF9i+42vMNa/3fcXdYzB77Nc8mf82r6d9QVPED oz0/sD76A28mfhBb+8lM6yEzyYQhopUEYy+J6f0kCcnpA6TqmJbRhzGzh/Ts LjJzzWTlSL8zNA0VHcRUdmgHF2LjGf8ethfjeB87rzghFnuvGOy9o3DwisTW TbnmnC9HTvpw+Kzyy6lIfmmbyH/c28BRazXjTDdOPiMcD5/gZMIkJ1OnZRWm sYlqwDZWDUjYIHYtcX3LxPcvi9zL2Crk2xnrsM+o54O4KfZnTmOXN8Op/Gnc 8qa4IK24oAaejlROy92AiJ1bIaIX45DXwKHkTA4lpXDQYGB/TAjvu4Zo4BTo 7S+KqJ7sELbZahBtLih3ReNhKMBT5L4YL4jcF0XuXSej32PX8Rj+mF3OiqMO iqPnczh0LpcdchI7rOUmDium7Yni1OEjnDl6RLz2E68jxetEdtkaFRkk8075 7DuheCqJPny+gu12FTjuLOS8fTMlhufslvM6428hLF7dyFYkKG6nr/YW4QGF m5xW6Q2N/HvskhvFX8XVZEXUFK2kFMVT8dgpuQz71BYc0vSzNHE+TXYkvVHl q2BvpCJLiC/Hdm/n2M5tHN32S2qLY6grFHIl45VT+FdO4y9nFVg2jXVAA9b+ Tdj4NmHtWU9T8QCmomG6CsfoK5hkOH+G8dw5pnPnmdOmXSy8xOXiSyyXLnF1 47NJ0p+Vig0sCvP6enbzteQVRY+VwmGuaxOvZJi5ktT0f/0l3seL98kT4v4V qfot2gof0F35nKH6j5ls/YyFji9ZtnzN6sC33Bn+jofj3/Fs6ld8NPM9r+e/ Z71rnY6uH4hIG8SQPUp6ziRZ2RNkZ4yI/70kZYyJ12OkCmlZYxhzR8jIGyJT 45xV1ENOsVJwToN8roW4Ogu2XknY+iS/h51vsnhv75eMg3+SkIhDQIKOcTj6 xWDnESyRD5BVCWH3SRX7RDrv25j5hV0HTr6DOEeM4pQwoRZOciSojqNh9VhH 1SnHbO1fe0MtMb1LxPUvET+whE1aDbbp4n6GfiYrbZ9dzw7jNFZaAMelKq7C hbwRPDK7OC9xc8oXAfLLOZQiK5uWx5HUDI6kJHEwKZ5favls8H2bIsF2x4vs FHZr+ewV93cp4e4S9/eK+z6GQnwThYQi9pyJ0QzHvKd/4vjvOKD4e/CYYvAR T6WNqPeUfy9yTA5ELsNKV3swmrPHjon2mnorORSFjV22knL7XPY6F7LvVKkc jIyabR3nbFrwOd9PcIjWmmGe1skfcAwbwjdthNjiIZIrOzFZfkt0ygDRMfUc D5AySK7tUppE742n/0R7ybWj8phTqq48VY7F2KZQ0Sw3Xs9BJeL9mt79cRma +Hj2hvpjv09Jds8OHHZtwz72XaiIKsBJwcJJwcI5JB/7UK2DkEYcgxVkAnVf fq04erfh4mnm+Pk2hmQYx/OWmC64wnzRMpeKr3GlbIWrFSusVF3nRvV1VmtW WKvdwDXhqr6+ou8vcUMm9Eb5DKslo9yQE7qe1Sbdr/mzn1J/lNroFloSZWaS t97Wv0H9rornDDZ8zISoPy97fsXyJTcGvuL2yNc8GP+Gp9Pf8kKJ8tX8dyw2 adO0zuCZqPiWNUGCIpqx8DLZBcvk5l0iL3OKjIRRicssRm2o9EJ9rYHMKhsl u3yAnIoekgqaiW8cIKFpADtZdHv/dOwDhaB0HILTVR0jjiFpQoqQjFOwgUOn NQdnUzl5MYuD3ukc9MzmgEc+H5zqVlUHORY5yj7PGg761nI4uFbcr5V3rMU6 tlbcF8fF32jLArG9i8T2L2KdpjxlFP8z9DNFRrsszUBOHds0P4e0XR113qeL JjlfOK4Z6OVC5saT2RUcMhZzxJjLkTRxP9XAB+k5fCiubxfvdzh5ifeKxMI+ fe+AjgcdvNlr58Ve24v4p5QTIAQKR90TOXrBoFjhwyEHXw45+nLYQRFbXx+2 2/ibi5t/t9/Wh/3W+to+jr1Ho/jwyAb7YzZfHdllmykjk8cH+8TEDUPnYuLi mQECA2YIjVc0yVwguHCBzMUf2BnWj4txiAvyyYHmHziv2B2Ys0Ckehib2snZ KLE/VaKf1vBfnpfceD7o3fOSDhntHIov4ZD21qGEbA4npHEwIZMDcfHsC/fD ef/uzUzy83OCcskJGbeTmoJTmoJTmoAzmgAbnxLsvMtwCWnmeFCbps7MCb92 Tnl3ctpT53C+C9ez7cwV3+BS6RpXKm5yreoW12vWWa1b52bDOrc20HiL9cab wpqwqu+v6OfLWx9OrZzZ/Ajmxue4b+Q1/dlPX+5wpTlO4dSwtMn8VjG/Q6Lf X/+a8dZPmOv4jMuWt1wf/IL1kS+5P/Elj6e/4vns19zouMFC8xRLbTNEKIxG qWKB2ZeJLbxOavEa2SXrFBStUZS/TH72DOlFi2SUzZNZOUt29RQ5NaPkVPeT 0DxGQssYiW2jYnsW9sE50gNBlt4xTIjIxikiS8jgsJum4UI+JwPKcI2olg2u 44KS06EA2VPfIv7c1cK/c2pi17kK9lysYr9fNYeCajgSXqNUVYNVXA02CWK4 LGlUz5zYPyf1n8MqtQprRQobGS9bMd9WCdROdt1ezsY+r5admRNYF0xwXFPr umHttZYv5JtwSyvlcHouh43pbCut5M8TkmXFvdkp7BL2OPmwz8mXA05+HHIK 4Ihw1DGA/XYBBMkqBGvTBGvTWHkZOeIcLKtxRHHbgaMngjh2IlBxRTgewGF7 D/Y7++l+dF+aioOaiv1OsfxC9n77MTHfOoX3t2ewd1cxR22asTvbg7PPKEGR iwQrlAfmLuEuJbIJryfKdG3zxbOYjhViuq5hHV/PfsMCp7IV2mUpwgsWiMsd wi2xnZMh0uaMhk19d9J5Oqo+dqlivFLpIUOZHF4Rh2XdjxiMcnoZHIyP588V VX6h6PK+ossH52P4QBvONbGAc9oN58R+t40nl/yLpPMl2F8owNFLkySVOhnY wWk/Md63i3M+PZz3tHDBs4cL53rwOG3mas09rtfdZ63hAbeaHrDe/IDbLQ+4 27qB+8I97rTeYb1FU9G8xmrjxgQssVq98WnbIU1AOysFVfzrP6R/Y/QwLQmL 8vurtMjrt1c8o7fuI0ZbXzPT8YZLlk+5NvAZN0fecnf8cx5Ofc7T2S+Ybpxg vmWKUBnn8GQTUWm9xBiH8ctYI7rwDqml98kue0Rh5UNKKm9TUq4xyJ8nq/YS 2fVz5DZM6jhEomkKg1lonxLl83HYeL5Nqc5x47m3jVUZk89h9zwZ/XJOqR2u sa24J5m5oNV7IasZN4n0/rBidnqJghcL+Y+nm9nlWs5uj0r2+VRyIFAJM6yK I1FVHIsVzROEpEoiOqeJ7J4myjLNMa1yKwmaVUa1RkDIUptzhFwhrxp7mZxt SSMcLBjHoXSMUxWjuJUN4l7UjrvS7Kk4ma7UHFFfYi/K7xJNdzv5s885kAOi 9SHnUNE7jKPO4VgJBx3DCM1uJjSnGWu/bAWXCI6eihD9j52JFP2tzkZi5ao0 7xqOzVn93XG/zedYD54K4uCJAA6d8OeQi7cCRRw/P5DEnm1aPIcqsXU04ejW j7O/wk7kBC4JUzJ+ur4gmT7ZDOuIevZ5FxBlXia6Y1kGr1f1kBlUWn0/dlpp /BIexUuczJrhXMY451Mtoq1EXzXeeA7V1qikmlYiylfK5JVyNKUQKxk/qxSj bqfzoUE9kLnbCDgfKNz80saDD2XytrtFSaYKfv/KrqNXDk4X83H0LMLpQikn lFJO2eXgeaEZH/dWpeA2gj3MhHu2E+nVgZdXL95aBGtNT7nV8ozbrc+4Y3rG PfMGnnK/fQMb/1+IR9w2P+Cm6S6rrTdZbdIINCxufXC4po/VioY/pP8/oza0 n+aYOdn+67Tk3cVU9oSe2ucMt7xkqv0VCz2vWe5/w+rIJ9we/5T7U5/xaPYz JhvHmW2ZJESBPzyli0jZ/uj0ceIyZkjM0p4tfEyyRimr7gWFjS9pr35AZ/kV TLmD5DRrBJpnMNYPY+iYU9uTOucoE/WVHSNLRPtSHGNKOXRBCuFdx4mNz8ck yG+n9Sl3WnDP78KtsAOXXJM2RQyHfCPY6Z3FDp8c/qNrCzsU9Ha5l7PHu5x9 ARUcDK3kcKRaFlvJsYRKDkaXENY+TnjnBBHdE2pdBcfS9LN0jUGGxiCzCpvs KmxzdczTMb8Su0LRq7CcHYotVqUjuFQMcba8H7diE7szK7F39JHXEfWd/dnt HMRel1D2u4SLplEcEY66xEjJY7E+qRB7PJrwfLW30IxtUIHoHsexc3FYucVj dT4e6/Nx2FyIw/ZCrKCMcyEK6zNB7DsepFgQJgSzz9pf0TiYnfYZ/HyfFPS4 GSd3C84Bgzgo8xyLnpAnrOOwf/3mJ3WspPzWyuqHQquINF8mquOyPF4PVpIv a9HfOlkjEDzC7hSFUGX94znTnJXnc8/UmKe0cSp8wxeWiPaqY6q8WlqZalaE VVouO8vq2ZZWwIdJ6exwUM4RdinnbLNTzrdTvrdx52JSMV6JonuAXL9PHi7e xZx0Fu1dcjntUshZl2LcnEvwE92DfDoJ8+8kMrCL6OAe4gS/gD78LnZz2/SK u+2vudfxmvudr3jQ9Qrz+TIuezTwcWIHv80v41bHI9bMGoE2bYFmpYGmeW2D UY1BO8vFeX/607cOjtIQPkez4Sot2eu0lIil1U8YaHrGuPkFc90vudz3ipWh 19wc+5g7kx+z2LrIeNMYUy0TBBvaCE3pJTxtlKj0KWIz5knIXiI5b5mQgpck 1L0ms/UNDc2fYG75iO7GdTrlxurSu8X8RZK6Fknu3ng1bVGsL+ND9wrs7FJw O1OKv7JQhMHC+fQR7e4RLhQNca50AJfCXlzis7UglIbD4zkcEMOxYHkA/2w+ 9C9g+6kSdqoiu7zK2ONfzv6Qcg5GKKFGl3Mkroz9UcWEmEYIbRc6RtXths2O HjFWcDRdkyA2W2VXYp0j5FVgU1COjZh/LL+AI7l5fJjaz36di21ZH7sLm9iu iXE+Z8DppFhqFcoelwj2uURzQGw/fDxO4p0gL5OI9elEibmBw0otkcXdRJb2 YBdWKrYnYX0hGWuPZGw8Ba9khf9k7LyS5IwNUoD4zadzbc6HyQNFY+scz3HX FM5cMLL3TKoSswTVvR17XwtHAgfZe06+z6OGA95KPf5KPcF1HFPysVby2VCC CPMike2LHI2r5liiPGGSfpZSh7VyrY2xTiI+xRFNgFOu0k7eFOc18ReU9t2S qjmcVqE6if3GEi3MInnGXLZllLPNWMB/0DnucvRm92bauch+YZcSy25bL3yT y/BNKsfFr5DjfmWcPi7WnyzizKkyzp6uVL+ruXC2Bi/XWkKCB4gIUwaP7Ccu qo+E6AGSYvpIieol0K+be52fcb/7MxrP1TLnbuKuFtebkpt83f6MH6ZXudX9 jLXOh6x23GHVfINVkzxQ2xSrLb1aAhV/wP48qgMnaIy9QnP6TVoK72KufEBv wyNG2p4w3fmMxd7nLA++4MbIS25OfCTLM8eIZulMdCaBhg5CUgYISxsnMn2W mIxF4rOvYCi4RkrJKmlVN4lq+pS8lrdUK0m0dL7BbH5Ia/0i5rAKHA+G4XU4 jMBjYQScKOPcqQrNuZmwxEFicieJq1TW3HDc5eM4FY/irJXrklyES1I+zoma gCixI1zsD01gp58yZ0Ax/96tgW1nS9nhUcpOn1L2BJayTyw7oJ2yJ6yQ/doB gc2DBLUOEmxSRpYDP5SsXZNaJhcvZJRxNEsdztUxTxpXIBTK8eblsT9Df59Z tHncltPLn2fWc+RCljQ6X9qbj8vZTJydE9gvxh86bhDzkzl2MgUrsdTmXBq2 59M44pZCVEU/MZX9WHmkYu1pFOPTsVF+t/XJwNY3Xflf8DdiH5CGg38K+3Uf tqczOO6pzBhQyvnQctw1xQe9UtjjUcjPHWT5Nl6WO6lrdK1kr0c1+31qlIo0 ASE1HH2Xfg6o5mFtc4Sb5zgSX8XRRE1AkiYgRROQKhhrZf9q+WXUKPsyJ2X9 JjhZOMG5wlGlHe3drCblV9Umo5RjqsGOzIpN9n+Ylv/eZtz5Vwo8vgo8fhyU +9sIPHsUdPxTawhIrlWsrVBwq+PM6TLOnK3m7Lk6XN0aOX++mYsXWvG9KOfj 3UZU7Dix8ePEJ45jMIyQLOeZZhjEmNjPCYdCxs51sxq9yPOie3xufsP3E5/z 66tv+Yu7n7JueclazxNWu+4Lt1jtvLr1P3QwKwA0N/7pTz/XMSLzc4nG5DWa cu/QUnqXrtr7DDQ/ZFw+arb7CZf6n7I89Izro8+ZbppmoGGY01G5BCR2EZQ8 REjqFOHp80RlLBGbe5UEhfSkijVSFM7TGm8TVveWlLYvKNa4VnW/pr3hc6wO JuIliY91TSXdO5FKDV5I/AiRisgx5RqixhnOlM/gUDKNi7FGqBIqcFHUdE4t xDk5F2dDJvZR8RwNSeRISBQ7Agv4IDCbX4oA29xK2e6lFeBfwu5g5QL9bE9E GT61FnwbevFv7MO/pY/DirxHdN8HU0o4KDk7qKYeypK3zVGkzRPydbugmD3G Qvap2fvSC9lrzOfnWg//zjqZD1xz2S+DZu1ZhaPk9rhbOSdP5eJkncbRk+ki fQbW5zI1HJnYeWZyxD2d6OphYmtHsPbS932yRXZBg2sbIATlKP4LwdnsO6Oh OlfAce8qzsi3u8U0457YJCNSi1tqBccNRWzfeNf8WaMMUB67ThSz21WR/0KV /H0VBwIU+4OrFftFcOWe/aFlhLZOE2aa5nCcDEyiyC85P5Yi8oudG9HfWtHW Jqsau+xqthsntO7GcSkZ56zyzvmSfpnONtyMqq2y0XbV4EMJxX/wiFXO8WOP c4CyTpCyTshm1jmsrLPPXrALIdDYzCkZsDNny7cYL7afu2DCzUPZ6WInXj7d Er0egoItRCmGx6UskJg2T5JxltT0afy964nxqSc5qJWgi018LD59NfYd3y5/ y9fr3/B0/WvuDYj5/a9Z63vBquWxcGfrf9RhucRq95jY38af/vSDaMPUxqxQ n36bRkXV1so7dNffZbDtHuMdD5ixPGSx/xFXhh4z1jCBpW5o8/kq38QeAjSM QanThBoXCc+8QnT+CnHS+oSqWxjq75DcfFeUv0eK/Fdo01sS2l5Q0PY9LvbF BHmUkxJWTkFCMaUpWfRe/jVRdQuEtCxgUzyHk7ER5/QGnDPqBVFfzsIlvRxn 49bbWJxTsrGJSeNwmFxEaAwHQmJ5X7r5vm0xH5wo5/2zhbzvLm32LWOHdHJn SAkXK7rxqu75f8l67+i28jQ78J4anz322t7d8Yw9nrEn2B7v8frMuENVl0oS KeYIggRAgpkUc845IAcmkAABEgRzzkHMOShLVM4lUalUpa7Quat7wnrmjM/e 9whVV/f+8REkxCM+vO9+NwDv/X4oHGWNryBQQ6g3Cu9ZMhs0uwjtboQQ9qHt LAdHxtIFf45ZACuQCh9ATfBv7MQZZSa8qe6+cVX48OwAArJHEZE3xQg3i2TG thQSWkqSnZBvp1uxIyrPTufiQHieFdrR89DxPEYWOwj3DijpgZXlTigrnYiu 5mildyIyU3AHE0ipm0MGs052E6v1HDJss0i0TEJWqoesRAW/XAO8s5h1otrh l8BjJawCc8j5BQMIKWG2qRxg3CfEVYz/1d2onDqPqpnz9OnTkDL7SM2EfgOL 4y+zDIp5R2EVvnfR+bnofnYQ0rmHaGac5P5dZDDmh3TPI8Q2Br/mIZxhLwII 98CESmYcOjK6PQnzjZSOT8g4MlZIrApV1nmkVDO3ZY0hPXcWGXnnkFmwgqzC NeSWbqKocgulNduoVO2gVrMDfetd5sa7KChdRm35KoyqLVhI/u2WHdTrV/GL m/+Inz/5R3zy8T/gzfbf4vX2r/Bi+xd4uvVTPN78Eo9I1Y82Sfqb9Pwbt/Bo 7TwFYOG3UB+M3sJrGDY+waj1CGPdR5gdIvInjrA1d4T9xee4tPoS1zZeYmt4 F7vj+0iqY2rRr6PYdIDShiuoaLmBah5lnfMh1H1PoCXR68efwzD9Aoa5VzAS 9erZRzAuP4RX+ACSOOxVtXNobpxDl30Kfa5BTL7+J8g7rxHt04i1TCOuldU2 ifg2ol+8+mWY39NTk2Di2ZW4Zgci9RbEEq2SGh3JTI+gshKc8G/BqahunE7s hUc6K6cHZwp7kNGxjCz665y+ZeQOskaX4Vvvgj+R76/vQQg9fkALiZ3I92mk ijd10d1MwrfB+R5/6EUJfM1OpCrlBH02vGPKCHoG7HgdPpAPUl/mEJZ7DtEM Y8kFy6hLHUN9fDuSkp3k9C5E0+Jqxy5BRx3TMeTHmeagrHAR7D1QEpABabTO WXyJpQyVqmVkmDYZcVjt6zx0Rpv2Zf4+zVNFC2TlZsjLtZCV1cI7tx1nhKvA 4zrhl8KXktWHgPw+BJUw4lT00dxwECo4zDQ65eN7KJ/cY7CfgMTA6GPqg7SB 4G8aoHVntXJAeGrDqWvhVpo6nmJBA30dO5D1biN+YBuBnecQyJAeYBtHTGwF AV9DwNcT8GpIGGvCEvUM9ow2iUaaPCOqedzVjmWk1i0dA76AkaFoHVkl28gu 20Vu1QEK68+LN+RX6y8y2jFalO2gvPIAauGm8KYbaLXfRrvrBhx9V9ExeICK 1kV8uvs/Wf8v6+/wepdcv/M1nu78DI8ZSR8Jqw7tvDpeW2fnDh5t0eavLv33 b98cvo3u0psYMD/FUPsRRnpI9wT90uQRNmaPsMuQcGGFP/dtYY3qnFDVhTzd OgoMByhquIqSllsob7+Hqq5HqO3/GPUjBPjES6inXxHoL1E38zH0Sw9gXHkE zxgCupQSYdqAuWMDjoFldI1Mo3HvMRpYcS2ziG2dRZx1BrE2gr6doBeujbGN 8rkhVj+HoRtxlg4ojG2IsXSLn6FHNdoRQMBHRUgRJZfihMKJjwj6k+k9SCRN nrUuIbVjCWkunvm+JWQM8cyPLcFb1Q1vbQ+8CHpvUy+8GcJCSaeh9lmEsLzM wvM9OKuQISVKjtQoBbyUBUR8tXifhV+8CQEJzQhKtOJUygpC8tagLN5EacEW 6thddfYw6hObSOU90E1eg54ypp85pOQdQlnVD2l4A84qO1GQM47KumWkmfeQ 0bqPTMc+0p27iO/YRpzWyaJU1DQhvKKVjq4ZMro6WaUa4ZV6eOW2wFvpgC8d jl8GJY2xJqCoF0HllKUSDnWZE8VDWygZJZ1ObJPeRxDCkB9q7IWEgVPSSORT 6sJp0yWWToS1sawdCCEBhPD8hra6SOmbONO9CO/OJfh2nMMpTnB8pg3xyQ0I l+oZ5IU4Y0Y440wEX6/8LGMLI01NxzpqnRtIU3NyC3nOeW6ySneRxUiZXXUJ ufVXUKS9hnLjdfGu+oKKq6jW3oG2+THx8RSWvqewjjyGdfweLOM3YO+7yCi5 hDd7RPve3/ORiN/7W7zY+xWe7v4cj3d/jEd7dDj7n7CI+H16+91LpPvld+7m eI2KLXSWXEdvwxH6CflB8vwkIb8wfoTVmSNsLhyJN3HPU9kSy5km66aRoz+P PPM1FDbfRrH9AcpcT1DR/wxVIy9QPf4K1QwFxcMfQ7twX4S7gebKM2YSkmoa Q8su6qiWDWOE/fgMGvcfoYFl3nuI2DZCXoB7u1CEvH1SvBQsrn2YsB8g5HvI /Z1MYTT0bT2IottRNNkhM2hRVlaNiHAJZLJQyBSh+CDehWgGj1ieojjbEhLY rqRuVv8Skgn507UunCbkT2uYAptn6F5YHLcAHkOAZRan1Z1IiAjD2UgZSwGf 1HzCvZRwryfcmaDjmgj3NsKdxp5kHpZKks3fwdmiPRSW76OmYgea0nksatcQ 4lOFtIAqlIRUI0PZjaTILuRT68p5PuoaL0DtvIh0x0Wkdl1EXOcFxBr5WgnJ eCPH20DI6+yEt5VFkq9pRESNXnR1YRXV8JLZ4B1Pg8+/75vNIMMw45XnhE+R E/6VvSjoX0Ph0DqKRtchoZEPo5EPNpD4OcqhjT0kclaboHOEeZsDQdS3YMI9 mIQfQriHkmJOM7mfsJ3DByXddGh9DCgUpOwBJNJBxsc2IiyJST3RAtnZVsiZ 6hUZrajr2kFd9y7SddvILNkgee8hq+IisquvIrvuELm6m4guuIKMkpsoVj9C TdMLaB2fwNT3Bk2jr9E89QLm6WeE/APYRm7DPnINjuF9OukpvNn/W9bf4PU+ Xc0+CX6fcD/4CR6d/wKPLhDuF57xe8J9n3DfWnajPUN82ICT5N5NpPcS6SP0 8tP04QvTRxiwb2LMtYVYEkVC9Qzi61eRaTpETvMd5LY/REHXExT1HaFk+CWK GX3rJm9BNcsBPXcXuuV7RPl9mNbvIy7vc7jG/hEb1/4Bm/fp7/ceEOUPiPIH MO/zd1ixtmOUx9inWVPixY2x9hE+x3ho64WsiShvYKwj4Ue29UPR0o4Igxql RHlJaRWKSyvFV9PTb0TPVCPCNfP0qYv0p4tQ2FlOfu9aRNX6c/jopuBrnIav aQY+5hmS+AxjUg3KimoRJ5UgPjwMyYpjlHunFtHGVMI7WkOUm4nyFqLcRinv RGiKC2EZvQjP6ceZggNEl15ATs0FlNdfwELvF0gMMKNc2QRTWgNa87QY73qL GtMlqBxXoBogmY1fRXTnFcSYxhBL4o1tEC4II9JJvHEmF9HeKT4nrWL8rSbB VxsgrWuki6tHWmo0ib0LXold8EjqYpx2wjOHOSO/Ez6lLuT2rCB3YAV5zC7+ NUS3vh+hpgEEGl0IaiCam2mlGh3wNrbDv4FZpZFZpVmI690IIrEH0uKctIzh o6YhfBBLX585BEkuz30eWShnGskZwzib6IQ8zAZZWjstmR2SdBvqeg9Q33+e GWQPmeUk80oB4deI8JuQZV9HYsEdZNU+RYn5DS3PF1D3fAndyOcwTP0QmulP 0Tz2Eq3jRPnEY7RP3od98iYck5dQ276ATw5+xfoarw5+iecHP8fT88JqbyT1 S0T5JaL8ElF+UVhi6xIebr6zMVniw3+A3XaEDiK8Z/AIQ+TycXK5y7GFXtc2 YsonEVu9ijjVHlLN95BufYQ0+zOkdz5HnOMBqkaZVnkk9bO3ENm8ynQ0Crl2 VPzsOzR9G0Wmq9D2XoJ+aEG8yuM9Yvse/g3RfZfovgPD3h1E2tZEZEfTK0c7 aAodo4i2DyGiuYemcojmsgeR5HaFtRdyixUSTRWKiOzCksrjG9FqUJhVjqKc ShTl8Z/yq1FcUANlSBBiw0IJ3DAkyWUELkF7thSeUTUErR4+pCO/uDaGLgcC CZSQVNJbVj/C8xnaiochLxuBpIxee+DvEejvQEZsD+pIaZaqXnTpOrF84R8o TwzZI9ehdBwi2sSX0DCFGPHGu+MrGcXLuRoJ3EbhTs4uxDQLd3nyJdUwbNea CNhGhFTWIVYegbjICJyO6IRHXA88UnrhmdkDz7xupNuXkelkdS8jm9Eje5hu gsD1VfUQsP0EbD+89QS51gYfSoCvyQm/RjqYJjobujx/+vIT/LsfmgfEkO0f r+agGvBR6hQCs+chz11EUdoyqs5OoTbOiQqJBnIOTD3bVt/PoRy8jBKGxayK A5GSw1OvITP6ACV595Ct+xSFlh+hwvlT1Az+FPXjP6ak/wj6fpLYBEFLebdM P4d1+ilssw9hJwk6hDdK+XpeHfyC9XO8PPgZnl/4CT6+KKw6+hUeXaETuUrQ XqETuUzvfeGi+6PVHPeqH832J/Q4R3CMHsFk2UJT+zZkRRPs2AoU1buQqy9B briGfPs+irsvorT/MipHryG4bBChVaQN8W3b48u1Ig2jpKldlDZdhY6v1jBI Om8dZVAUaoQgvQXj3i0Ydm9Ct3MD2u1DyOiLZW2LiLCQShkywy3j9IJDUHTM kFJHILNR/CytKCiudN+P64fC7AoUEqGFboRGBQUiJjQEsZIwJMpkSJJFEp0V 8Iysg1e0kehsYbds8CedBiaTltLpM3MGIS0YRkTJKBPcGDST93DSrwPBihFk 5sxAxUDc2jADF6XA1e6C5d4/Idowg2hSeTSfj26khDQRoc0c6hbmgxYilMcd RwQJt4HGWIjclhFWP80Q0xspNbhaBaUsHEpFOKKjpDgZ4cApIvTUWWaERibV 1mWcZUJLcTIn9LAGlnCGadSrjqVmRhA+GGM+8dYzFNOo+DAvvMd43Ifv8+sA ZaYPXlFZ8Iku5eutJTr1RGcDAhNb8GHcOfhmrCIpfR352RuozF1DXeY46hKs ROZVBJwqg9KzHOrR65CHzyNdvkMk30F1BXNUw49gcP0CxT2/ROnwL1E0/gvU 9j2DepBmc5hGcvotmmbewDL3Cq3zR7AukFbP3YP93A3U9qyiyj6IFzQKL87/ GEfCisGXvyQqicxrn7GYDK89IUJvCevoudGZ714aatWqwlaHDimFdqSW9yOt dhIZ+kVkN28gr30XRa7zCKyaZtoYICIHIKkaRHjdEGTqYSh0w+INVYrCPWbU q6TNi8jpmCUiR5BANCZYh5Fgo6Vi6XcPod25Ds3WVai3rqB+4xLq1i9A2joF CREcahmArGMSEY5hmC4zPR3s4ni9MW8UZFWgILcKBXnVIhqjQ4IRLZEgRkQj eTKpnEisp40108ZaKPB2+CU4EZDSg+DMAYTmDSGsaAThZWNQjd+Beuo+Tgb0 wS9pnq95FdWmTTQ51pm3F9HWPQjj2iMojTNQNswShXPiHQrRtNHRlmkRdbGt 5EsLhd4i3JTcg5hW4dJXciXFVilcNEzrKdxbp5BKoZCHQa7gY5QEkVGh+DC2 C7F62ncm1jhOZryDFp6JNaF3CYkDizhNrgykqQnkBAj23VPb/R489b34AGdM fThj6BeeQqoiikDM4cutFBcE8I83iiE1MFFw7g6EJDnhkb6F6CxSYdEuykv2 MNf2giCsQMqZWtJmHbRR1bDSqVYWPUW9+gto234OXd/XyOn9NTIH/wYlrleo 7H+JmqHnUI08g3b8Y5jmPkfj/GdoPvcJWhdfoG2JVLnyAO3Lt1DTv4Fq1ziO zn+FZxe/xNPLn+Px1bd4dP1TFiny8AUfHxGYt3DnYM8NxAL3hecbNh2SM5uR WtyH1OpxpGsXkNW4hlzbNvxKxuCT20sQ9iHo3ZUcdYOIUA8ShIM4Q98eXXqA ahtBOHIBme3jpMNhNwCHkED3mcARER6121eg3r6M+s2LqNu4gNoNZpqNbTrK dZSvnIP5kK/y2j0YL5NidzeO17Wo4ERXMsEfYzAqMBjK4FBEh4YhOkwKr4Ry +KSYqNVmsmEbvGOZ1BOoaam9CMwaREj+MAJyh1FHu18/fhfq6fvQUF9OpS5B WbuNAkZHVfc2jINLMK4+gmFdqIfEHzFIDCiJPSWjW3QrjXUbsdZG5mN0iW3j HAqLuVip5dYx1iCUVIKo1h7GRwujY41orEvLqiCVhSBMEYyB+UYMLTK9a+ch a1yEjMZaZltE5bnnqFx+Dl81TbVuGn7Evx+Z+GR9Nz6q78FJ6neCTE5vokCy PJKmWgBgAb1JDQGoozdpIABbWe0EYCeCqQKStF6cStuHNOc8UsrOo6fn15Cf aUGevB2aVDtaC6xoLzGQ/b6Exv4zqPq/ZlT8W+Ta3yDP+QbFvW9QPvga1aOv eN6eQzP1DMaFL2BeJBsuvUHLCtlwjSaT58u2fodA3UJV7xS1+XMy4A8JPrLf 9TcE3ms8uvGSdcSfH+L+lcO/+jb4/girFi02HQak5PUgtWwUaapZZJiX4Z07 iIAyAXwMwUW9ZMBeanIfwUe2Ug9ALoJvAhG1W6jpoD3uYsxqHTq+bdF2DLj3 CL0B/CvxthhFcy/qty6gbvM8ajcJvM1dVG9uomJ9BeabL2A6fAzjtdswXLr0 h++WxqBZzM+thDwgCJFBIYgMkSCKwPOIKWVqMMA31cZkcww6n0Tm5DQaLFZF 7zVUDVIeRgm6ybtQzRB0c/cRHHsdFbq/wdS5f8La4S9gWHtAwnsg3qSpZ+nW 79ErbxFw01DSLijbpt0Am0QMQRbDmZI1MCvb+G+UbiXTXpRtFJHWbsibLe+h hIj7PYa5ShSXlIsv4n8Tv3qgeOIZimnXS4k1j5opnKbWnK6bQFRwEJR0FyKn c54SIxRIdGPsTGQxMfburYlmEp0VgQn0wMK90+R3SUY/wgSnkU8Lrv8bnDzd AWVEP4rSR2Bg5+yaIbhMXZi+948odv4COY0vkGP9BLkdnyG3+zMUDnyKspFP UDX+GrVTLxl8n0O/+CVMy5+jYYWecO01WjaO0Lr5GG1bdxkhtlExOI2Hlz7F wytv8ODaa9w/fIkHN16wjlgf4971B7h2/qIbY4XuFWvXWvWMW04q7QhSa6bh meKETx7pPM0J7xy630JGttIeEV9htX0IF/E1QHxNQVa/hfTWXeJrg/ii6tgG 30N8+wC/OPqEL7343yFvG0ft1i5qtshmWwTV5hpK1pZgunkE4yE7fI2m8MKF f+cG1pazHjL/IMgCQyAnqE4pCuAZp8WZRAu8kjsZmfvgkzWMovYDlDovfQOo mtFbCCll2qikF60ew0k5I3/BRVTRk2q696icY+Jtq4b1u9Bv3BVvJ9Ou34a8 ZRVRbZOIIpCibJMEzwTCG6nKTBjhdFhRdgLJcY6P04i001XYXJC1NDE8UfVL K49v1X4fBRnlKCAZRwUGEjjBnIVjIo4Pl9MMRCKJoPFLoy1VquATY6ZNsxA4 7eLKEMINy8FpfQjJopHJHUJ13y2q5DJO+A8jMmkGBSWL0OmWYLMsoNNOyzr7 GNn6j5Hd9BI5tjfIcb5Fbu9b5A99huKxT1Ex+QmqZ16hbu4FdEtfwrDyOcxr n6Fx8xM0b71Ay84TtO7cQ+X4FipGZnD38mvcufoSt66/wO0bz0kNdwiZ38Nt as71K7fdjfkWav4LFht0WHMYkUwd8VC0wZPc6p3Vi9OpnfDK7oJvAcN+STdz WS/zGZlJ3QeZrp+oobtXbzIC7yDbxcjaNiDePB3XLtyc1yfgBnEdvYjvYNbr 6IbM4kQER7tqawMVW2so3VyG8dYLGG9+DMMhaeHKdfyRO9GsO+qx7dRiu9uA 7X4ztkcbkVbdgYy6YWRpZpFrWEZe8yYKbfsocV5Eec8VBOQNIrhoGKFlwwir Or4J5XTkHOJLLqKmhcjp3SVq6KEaWI3CykIjRM0taDZuQr1xCNX6IRPMEmsR 4S3nGLXn+TiHyI5NJplVKDoX+DgFhWMIcpsT4c2NyC+ucCeaP0F+Zjki/QMR Se2ODApFVEgYOUeKeEImMSqKNCpARk2uaSDXtBIydqaZLvFimiDSqS9hU9V9 KEKmdugOTkjpW7NWkVm3hdrmbTQ412F2Tr4H9fwj/DGyG58j2/YJcro+Q07f Z8gbfovCic9QOv0GlXOvUbNA07/8FbSrX8Cw8RamrU/QsPMCjXtPUDHNUza1 ibKxady48hyH157j+uERDomVG6zDw2e4evXhuztWi9wLZCw2GcR7C09LWykO HTgjqO/ZDiZzpuz8LvgXuxBU0Y3Qmh6EqXoRru2DR94sFJoNZFi3keVaocPo J9H3IdbWhxh7L2IdQvUglgiJ6XQhoq0TUhuHh79TskW3cvsFDLeOYLjxGPpr dDYHF47Xc/1/sOXQECQESK8J2yONNNp2pFcPIkslvM++hLymTRRY90h50/DN 6kdAPgFSPAiJcNGG+2ql0+mLSCpjUGi7Cm3f9vGtxA3D4i2Xsc2sFv6ecQCq jeuoX7/KQHGFxd9fvYAwmqawlmnIO9dZyywang5KtaOfAeMKdNtr7oDxPo+x DnKCQ04qVATTqBMcURQiZXg4fM/WkU8aCY5Guu02gkMwd104E+9CqeMSyrtI iz03UD1wmwbkLupG70GZ/CWUmh3ktAnLqS9Rdx8QFw+gmr+P9LanyLK+QjYN TnY/0TFCdEy+QRHjXdk8hWiRZmflK6jX6Mg330K/8wlMe89RNnuDdRGlM5so Hp/C5StHuHSNdf0Ilw+FeoYLVx/jO8eoKHYvGi739cZJnwacktvhmcSUmylc IEHuyCEqConvclJiFVHBBCzV9sAjdxaR2g3yxiYymUuiWntpAegxbaz2HkTb uxHtYBENyk4npFYHJPy3UMp/3toC0fAC+ptPoaPP0lw6/GP3UkPrNjW2HXps u4iGoQakFLUhraIPmbUTyKbTz21ch3/+KKmM9jNb+Eh3AEHF7tsWGDkjGDlP ZywipfISVO1Ew+CWiIQYEQlDRMLgcRyjOEYwJ4koWL+I2jUarbUD1KztomJl Cw03f0ij9SnMlGvz4RM6/TswXrp07PK/z8OrJRjIbH2cpYBgyIIkkDFlCknO M64KXkkmeJ+10u2TeVP7Udi0jeK2AxEIZQRCJYFQ1X8bwQWjTHrD8IvaRnbl VdS2XCJLDEJFA6ZauMe6i/pzBMu5O8jqeInsPoJhhDVB5zvzCYrmX6Fkhs6X QKjb+AKq7bfQ7H4C3cELlMwdonjuAopmN1AwMYU9AmH36hH2CYY91s6VZ9/9 Ngb+nJm5iDjwZ+ZtxanILjqPPjKDE55ZdCD5TsarLgRWuhBSS8+u6hYxEKVd R7qNzNC1gEhhrZi2bip3N+0eH+0uRHV0IcrpRFhbB8suXjwT1NYF/a3n0NFw aHly1Vfu4E/cADjXUI9Nqw5bncZjzRgjJdDtZNBFZKnn4ZfBPJ43Aq+0brqO XoKhj3TQRwAMEAADCK+l/hEAkbU7UHdcZcQjWzUOIqZp0N186lvbgPjpsayh FzJzN2rXD9j8PdSs76JqTWg+5fnmZ6zXrCOYbjyi274F/YULxwD4H9jsJABc mmNpE5hroJHy1ozdqRak1zTyUHuQqx1Hnn4BBaZVEQBFBEAJARBavoCA7CEE 5Y8gpGgEJ+LGEBS7i7yaq6i3XoSifgyRasYz7Silehj1i7dQt0Q5WbqJNBdZ YegTZNOGZk2/Qs7EaxQv/gjlq1+hkgCo2fkh8uceo2D+LgoWrvPxPPJn17B+ 4Qhrl47ew9plwUgsnX8ivhChvvNtefhzFOYWEAjFKM4vg9wvCB8F23E6pgcn 4p0MogSDcMVUEW1oGQ1FFUmh3gWPnDkRCGlWgqFzFrLmbihaXVBYWbYuKOys Die51YnQNgfLjgjnFKTOSYR1TkBz/SlBcN+9g8H/jdVmxiy7AVs9JmwNkwUI vrSSYZyJsXKc+Ldp5D356JPFHMMoFkgAhJT1iVczhdcOUMoIgPptZDTvINO+ DCUBEN08gBg2P4bSFdtG6RLlS7gph3LVPMZcv80zuIXStTWYb30K0y3y6a1X dMVP6Yrvw3D1xh+6m7/dSZLqIknx8Lb7GyhbTdiZbCFRmZBV50K2agx5zM35 hhUUNG4hkMnP+2wvfNMpXzlDCGbODy0e5ikdR2jiHgpUbHz7RfGS80jNCE/l CJSGYTrkYTb9kHUdtcvXkNT+EMmdHyO56wmSeh4jb/ErZIy/RObUc2TNPEMO G59Dxshl43PmD5A1u47Z/SPMHRxhZv/Z+99u9J+hKK+QTS4RG12cX8HJD8GJ IAdOxfbho0Th5kgXPHNd8KYf8KMfCKjp5s8LiNKsI6VtDWkdM5A2CbfyCnrP YqMj2OgIhxMhrR0IsjgQ7pxmg1kdkwi1j6P+0oM/cy/BvNqix4bThM2BBmxy yD0kZnhGMp8yUvhmMu6QeLwyXeKV2QFipO47jtS1/fDIWkQU+5tuYY/t/L5x AEpxGYU+WhNaEuuxEMWQhCKaBJNHO0LWL1tfY0/fwHT7E1qSlzSuR27jeg/a S1fwLktv2lXY7tDRl5CEeklCw03YnmjG3kwLMqocyKaBzVXNwDvBhYCMIZyh zosNzhiAfy79ScEgQoqH2OBJSFP2UaS5CpXjAo0284N2GFH6YXEVH6V5UFz2 UqrpY4Mvo2b5EusCG36AeNd9JI+8wNnx50iZeobU2SdIoz9IX7jNuoq0+X0+ v4qBjWc/+HZj/xRFuUVsaCmrHCVsbGl+Fcryq/FhYBs+UvbiRLILp3hmPfJd 8CrhGWZzz+TwLNLgnW1dQ4p9CqENpHjhCjJOcZi1i9JN6udZ9GeFO8YgYfND HdMIYbIPaul3b6X0l5jXabBqNWKt24z1wUac8tfAQ8qgyFQlXGfvkeyk4eyC D4Osf8FxkBUjCYOsJ7uqVG0hzbLFrs5DIYS95j7xKodowV5YexgGaSnaXWJH w1s6IOEkm2+9ZkdfHXdUNJrPRKOpu3bn37pXm12x1GGrnXrdYTieWh7a9ngz dqZJ1+U2ZFUP0Li1wS+JTodNFBrqldLDhgoTe3y5ZGjJoNjQwJxNlBiuQeU8 T088dLysmIGNNAnNHEB00wCkOvpmXQ+beZ51gOrlXTRc+woN17+gnaC63Hgr 2ovY6bt8fMafH9Ji3Dzxu40kDee9a2TlcSMLqlFRWIPKolp8GEVaTu7DiSw2 lCfTs5SVs0QO2UAiG5nMBB1IfQskxQWymcJnaFLrOJ35OCTtswhpn0GwbRpB rRP8/8r4/xbhL9wpYcGkx7LdBEWgr7je26mARnhGOehsunE6oZP06/wmVwYw V75LDGey2UTmyTQLvSH/f3ljr/huVqSll6m+h0VfwAZKW+gJWjoRZrFDQZaQ UQ4Mt5+zXojeQM+zorv+4I/cKWG9VYMtmx5bXcZvKHdrqhn7sxZ4ynTwUTK9 87D8GL88qVReZ2kPMmgPcvqOr3WlRzyRMIWgvE0kqHaR1rQBuXYQkfpBRDEZ RJnJII39UAp3Nhl6WN0IbxhHFRtXsbwF83U27fCtaAtMN98Qc5+w6A3JHqYb D2C8eojf6V6x2D1ya14FSvKOO1dWUAO5JBSRUgmUwie44RKcTOgm1/biwxQb iY0BRLWJuOY1JFjGcLKynaNI7myahMQygWDLLHl19vhCHT5XVVzJqkBlMbtX VIz/5HbzcyYDg4oPE6w/IkODcEpihWcMOT3GidNJHMEMElZuF/wo5AEUcuHS X68coXMbSLUIQj5Jd8S03yTcuEQxb3OJ77MIQi5h1yTkdkXHsNi1CIq46OZ+ 4+j+2P2h0To5ftNhpI6bsTXUiK1x8ihHziNMBe/IZmakdvHiTM+4TpwhKwkd 82PHAgoEU9fPjs0gpGATiZpdpDavQ6YdgMIwgEhTPyIbyAzslnCTbbSlB1Jj F8LNBBWdvvk6O3V43CnTTbeOE1gmHqLA90by/Ue/O2tUwlx2K7cC4cFB7BLz f1gootkhoUupEexUig6nUw0EXBG+61uJv1a48IPEXnyU2o0TVTP4Xtkk/kf1 Av66fh1+pln4GKZQU1aLmtIaVJdUo6qkiiV0qxwVxb/pVmFuPsLP+LBjAVAE BUMREopTYQ54xvbgFMHskcoYmU0l5qz5lbrE+zTEbqlI2C2rSG0d40snKVKN IwQ1bqUK26jCTZ0IIUnKHSOQd4x8Y7m0N59De+M5bdfHqL9w6123Fk0arLUZ sE5V3uCMbTCNC2vfRksD4BXeAG8l3RcJUnzTIImHkyZccUV1zu9lBuvDh0K3 Ckk92m12axURun7IDf1QMGdFkssjm0gBLT0IM3L8SUVh5k4o2hdgOmSXblCR b5LDbx1zuJFUYBR4/KbwhsHt/1+3cjhbueWQhTCMhwYzhIcgPjyUnVDhdKYe pyOLaCaKCLIi+LI+8K9DgLwVsal2JOW0IjiiCCHSIgQLJeHvBPH3pXp2yt2t 0m91q4SzVVzi7hZ9Ew3yO98kvC8qDwplx4gOaQc84vpwMtGF0/ROZwTvVMRT VM7Zyl6CkqhI5mk520z3Z6K0kpUl7JaU3Qpq6ESgcMmTfQwyxyikgmfqnGJx 7h3jUF87ereL65JZhxUbFdZlxhplLDLUjy8/AB5BOnjJ6J84Sx7RDPEJZMEU HoLokWnfikkx8exQ0ToSdVtIaVkS7++MMAghqFckajnHXSHc3OPujqTBgUgb wUOlN9x8KYZ2gaDfE6n6945J+vCBeGS/06HwIC/IQ4R13QN5eME4kVKNU1k6 6pOeOlJEteVZZwXw+0DWh4EahERZkZBmR0peK6TyIoRxzqTslJRdCgvj7wYX widch5BY+3GHSqtQWfquQ+/mSZjld862XHS2JdRNWaCExyLFiTA7TrFLH7lN kHAtyvfjejlfy7SUG0hihwJ1wmer3QimCfIzMPfydIQLt71SN8PZoTDHDLsy TQNEo2SfRLB11L315X9hfnXrZgB1M1hg30DEKqXwCG6El4J/m+URxxhFI+RF FvYhSvyIkh+wNaHFaxweznTzovgei1QQIhNZuFFgYpd400Uo2xLa0EE2HiEb k4E7ptiG58eaedv9yJ91hx/j1LffIv4zzE7Ui1vKCPsDCYf1UaaKyU1HoLIl bIX3u5awgpXFCGWdJKqk0VYkZ9iRmm+BLLIYMoVQRfyexRZFhAtDVAh/tkYS z4ivaDtuS2kpyouLf6srbjdTTDcjdCU8JASy0FD4nzyFoNOn8QOeHcGefpjm wHdiGPKyVqCo20B80yrO1Dpwpo6+TOWEhNoX1jKBsFa6GXYmxDbjdjMzCLJO 082UoLywwG1L/xRzDdRDPx+yKxEZEgRlpBQxygh4hLTBK4qaqOTQcG7PpAnM 6hJdzQdx7EjRqtiR5KYFSIRbgWgLwji70gbBgjoRbOxEkIkMSwTI28mw7EYE Z1Z3UxgP7fHXw6ffZO2T3/448Q/E3eGWZtSkEG9EBfvhZGbdcUfydPAQOhJd BD9WYHQxglmhrLDoEpwKMkIWZ0NqtgPphRYoYks4k5GxxcKXIvxzKGKKIFcW IkRWyOnSISzJBomyFRVsSVlx0X/6dlLILWUb/BHB0yIPDYGC9iReGookWpRU Cl96eBgyWP8tZwX/NX0F/z1/Fe9XruOEahXfq57Gd6tn8F39Gn7QuIMPGrYR 3HJsUQJahJohhQoWpZyiV0qLUug2mP+RECB6KHjyQP7d4BBERUYgJlqO0yE2 eEbTZMYxoZC/PDmk3kwq78fOQlJEW8T4mdQwi2CNCyF6DgTVRMJ2BOg7EUHL FNHGspFG20cR3jEl0qikc+I9aG4I3VBfP/qmG+75CHavt202r6DZvIoWxva/ cL8bsjBeh+UZFVZn1Vif07BDtTido4YXO3SaJ/iMMDNCh2KEDpUglJ2QssJj SwkusnOiA2n5ncgoa0VUUhmUyUKVIvpsMZRni/h9EZ8vRFhMIeetAEGxWiZG KySxFprwd2LHMxXix+4ci12khGInDUEyO5TGDp1K08IjwwAPzuQZ1nf9VfCR t0FJsfuIPvj7sVa8H2/FB4lWfD9BqDb8ILNPvP7DP8bqFjp2qeS4S+Xs0p+/ e0uQ1qRYfDeoFBHCh4BBHNhgCaKi5IiNVeBUKE1rDG0Kk/BpDo9ndjfej55H aOE64tmpxIYZBKgZP3QcKg6ur4YRpJlDK1xcJtwPbWWxUwKdStit0I5JqK4/ R/3VZ/A8bo+/+PCv0Na2gg7rKnpZw8JetK2rmLSsYoqMPdXIYuvGDPw3DX+n ZvlP3B/Zz43UYOXdlmOs5OZWeGTXwzNXA598nch8PuygP7sXFFPGDlYgLK4S 4XEUjfganAmzIpoGL6O4G5lV7YhOr0ZMRhVLWH8pJrOc4xaTUYLoDHYzlUKV WICQFC2C44WV+Vqhad39CzcBT0+oePK8xD1PBAKOosdMoHNJpnM5la4m2x07 lzPUQ++oY+fyfqCWGmlFLHUxKc+CUDY4lKQroS5KqIsBoTx06qI0Wo3QJJJv nB1BkRaSL5tZIjbzz78xLuxlXvE3b/gIJOz1wQl4e3jA18uTZsiXkuuHE4x5 H5LHf5DiwPeiF0RPF8NIGW+ehmcFbaWOgcQ4wakjATeNM8KNi0Qcaj0m4RD7 NB+nWJOoOXh85riNPuLD76OtdR4d7avotq9i6N2y76xFPrdiW8U6W7vB1m7S 2G6S9tfZ1lX3PgVz9fz9qhX3XoD/GSuTdVifqcem0NemZkYXGzJa6U5ztfDL N1LRSsmfFQiMraJpqIUkro59rUdEggryZDW8ZU7EZg8is3IQ2XUdiMlRITa3 HrF5dYjLq2XV8PsqPleO6BxOdVohJDQxIakaFJS3Q+86gLZ168/cJ3huUoVz MxrS2ZljWyYsEM0eJ3NYheWtztD7CLQukIYPy08U22L8IEhPwbUiniJ7liIr pciGs8/h9EDh7HM4BTaIvQ4KKUR4jBqSZDuFlslQ2YaKkpK/+IbNaUwZY0Q2 55+WkSvkFNgYgS/I6slhEnGNaoXHKUSfOY0TFNvvRS7iryrP4/vqC/hAv4O/ qlvD9ww7+L5xG983byOkcYIxYpyMLtwdwmoTHqcR0DxGkaWNO26ut3tGnfZF cV1/YbPXSdYCa4U/b7LRu2zyPpt84d1uu5bV93CpRVwXnT3eZ23r2W/1KpZr Vt0by/0llsdqsD5Vh02ycLLZTN/aivTWdmQKqyrkGOGb18CTWc35rSN71nN+ OXfxWoQn6SBLMSAyzUAM9CG+YAxZdaPIpm7EFRoQV6RHfJEWccVaxBer+VjP 59jvwkpEZJcirMAICZtWqnHAMHievRb3lP6P7qs0vr3F9eqcFlEk6OiQAJ7k YHpcLQXid3pN6X4n4yeCDJDE2JCU6RBNVYSSwi0jEP4F5GQiOcdeLqxZSPEO jiiALFENaWo7pIKIx1jwrt/hwZ7ifo+yUKooQ76C/Y5jr5PChIWbqQ1hVG5p GLKktJ/pBpwmbXwQ0ozQhHb8IIGRNdmB71IbvhtHbUjpxAe18/igbh7vk0Df 167A1zT9WyGosvibfh8//Dv0OBbR37mCUecqZlnLrE3WHvt+gX2/wr5fEzbx tR9v5nuLdZsYuEUM3LQebxp7teV4Ufx9YV+HuhUsvttl+S+xJuwgNlWPbQ5V SlMTUlusyLB0Iru1F3mtQ/DLsXCIVAiIJt/G6jkURkiTTey7GYoMqm9WIwIS R5BQOo0szRRy9L2IL21AfFkDEsrNiC83Ir7CwNIhrlwNWWEdIgqqIC1pRKWl GxWmTpRo2mEc3IO+a/M/uGnn3ISwBala3IJUMAXr7L8y2Bcn0ys548fmQOx9 9DsLJ/S+BMExNAisj4JMNAjtSMnqQFphK+RxpbRwZVDwMTJeqBJExReJpkBC kxEalY+I3HaEZ9oIhFZo2w5Qr9v403e0M62hP/AkBnzFLbSiiAWBdpIkxzhI p0/wSBdW1vuNR/hOAA8jrIVTYkdcjhUBxEYgSwjGvkIgJtVIOEmSaA2Cz9oR nMiKa0egolmUlYriIjcUjlX6/4CzbQL9Hecw6FzGRNcq5lmrrJ2uNZx3ruGK sE9w5xpuda7jrnMD91kPuzbewyPXOoH/yLXKH1f59CruEjk3hW2fBZagsh8Q jBvl5/Bv3B8PLQ9XY5PUvzWlFncOTWluQbrFgSxLD3IJi4LWCRQzBQTldPC8 GxES30DObER4ajNkGS1QZFsQxbkLTp1EWdE89IYZ5BhJEZUWJFS1IKGaVdPE IlRqTIirNkBWqkFEtQ3VzlFUtw+iqrUH5WYHTGMHMPZvQ+dcebfn89rMb/YF 35zXYmdOh+ggH0pAHbzztHQdx3nLK1rwjsUIICSC6BdDYssRRvdxMrgFMqb3 1NxupJfY6CGr6BFZZ6ugTKlkVSAqlT4ytRTSBCaChHzRcUTk26Dvu0SknofW tneM1n+JmYl6UZUWZ7Usnbh3VhRhEi8JErcuOEuYpJEyPLP1NDQeJJ8/gBe/ +pCCvhdYCY9wBgxCICHPymhXJDoQiduBBBAqAYIqCaRLZZIqqU6EVChpJTTK wvj3DWV4ui+wGXTMYcS5SIysYJ5NX3OtYde1gYtd27jWtYObXbu427WHh917 eNy7j4/79vBsYA9Hg7usHdY2awtPB9bxpG8ND3vWcM95TC/XaQcvG5exWTb7 +26GWh+tJlF6M9744lRGMdKaaRFaXMi2DCLXMoFCClqpdR4VtkWE5vcgNLEZ kpRWhGe0IYKDoeBJjSpqhyJqGhXly9A3ziPHJFxQV2sj6hPqraxWVgviVc2Q V5ohV3WhbmAWtb30P84xVNsHySYumKcuES47MAysvdt9etUtbO92TRWgcjBn QBqJzpNM4kMm8cs3UEWEqxtpZmLKaWYqCZVqmpkaSGloTofYoUjqR1rBADLK OwkNFZTpKhrSekQzUMZk1SI6q4ZFYkstZ7wooYnRE9F2GEYu83AuQt99AF37 9h+7PbO4KfbsbzbFXuVhRYlbkQYgiexyljnRI6OOUZkiR5iIaHYLnS8P9f2g GnjJmHhSBNNqRVgUUUpTIxib90Rb8y+ODY2kEBHxarHCmFbCktuJZivULSQ4 pge3dfRwR8YhhoTRzgWMdy1jzrVJ6GwTOnu46DqP610XcLvrEu73XMbjvst4 OngFz4ev4OXoFbwau4xPxi+xLrIu4PX4AZ/b478RSsMbeDKwgQc95B0BRtYV XDEtYq108l+7PzwSNp3LzS9BPjOQItiHw+OH0ym58MyooGUn3Web6URa4ZPT juK2cyizLqOSAlfTuYF6HmZYug3h2XbI8jugKOqAZ1IPouMXUFWzDn3LIjJN pB5VB+LVDmYmDhoVJ15rg7zWAs3kGtRjy6gfWSSm5ompaTcF9aO8uZOY2odx dAO63vl3+yuvjNdgc7pe3IxV3HqTzdubEzbztlA87RTPTvjRnfjnm4ipcvjG VME/tgZBNMahcWxEnAbh8QxGYS5iaQTppaPIqHYRPwZEkyNicnWIyRNKi5h8 NUuFCOIrPLMKYfkNKDN1wzR5jYd1mcJ5HoaeXegdG//enbJF4XSL5nv8qiPe lBzQmGB/4ioYZzLriSudiKt3BsrbbaACKKIfBNXDV9HKTOZAModTqqTjJb4i WDKWXCj+fqi8ECEsOquzanrM8Ew6qDQrtI6LFNB9qIyb7xLmabehGrSNYaxj BhOUsLmuTSy79rHtukh8XSE1XcPt7ut40HcDTwZv4mjkJl6O3cLriVt4M3UL n03fxNuZG3g7e8i6zrqKz2Yu49Ppi3g9eYDnHPynw1t42E+6os7dti3hqmmO /Hz8kXPetzadEzb2kgd5QUnOiiHYPFML4JVRC99sWtnsFngr6uEXqUNgJO1O 3gCqHFuoJXWq+mhRB/ehGz6ArMgJeakLHmdHEJuyjGr1FnQEZpy6m+ByIV7X xeLv1NPezu1CN7sN7fQW1FPrUI2voG5kCbUDc6gRSWwYldZumGdJYFMksNHF P3J/ZrAxWYutmd/s8bozaxB3/U1vbqMcO5DT2iW69ID8JqbsWhJYPQIoFsFx OhKYgfplRESyGWfkA1BmTSG9chKZ9X2IpquPKWAVmhFbZEJssQkxxQaWDhF5 ZIzcOlS18bBaBmCavcnDuk5uvQjj0D4MvVvQ2pfcCeK//rYeE3WbxNzOnB4H PNZYou5MZg28mRh93ln2aIFsizkYJcfazPpBEGN4ZDtjeCdSCuyIoFbLqNVy oeIqoIgvZ5XRn5fSMxWLa5IrMtWiJofnUJd7qMvO89DZ9qBpXHdTmvsdqL9E b0sfxuwTzEznMO3cxAIlfMN1FfuuQ1zpuoVbPXdwv/8ungzfw9HYfbyafIA3 0w+Isgf44fwDfLHwAF+eu48vF++x7rBu44tzN/HDhUN8OncVr2cu4TlR+GR0 B48onJukmNXKVszkmDE+oMVEnxbjPVqMurQY6tD8M/Gw/vq3tqIuEt81oOsI 8hb3nBV2I/amA/HJUMNTVgEvYRsNhRb+kSYEKRtpdFvI5W2QnrVBNUBHMkyZ IQkbJkkL05chkRJoNZ+ihqlTa19BrKYXEXXdaFgkyJZYixdgPMfctUBAz+9C ZhyBTD+ECI2wWlEPpLWdkFZSW0qaIK9xQFbZjPASzTcbki8PV4mbzG5PkwZn tESnXtyBOK2pGZktwu7DnTSLvcgninwF9qbT9Y/hUMXSMMaZIUls4LE3QZbW TG0bRW7qLDQ1s8hUDyG6yILYElZpC2LLmhFb3sRq5NCZEMFsWeOcRo1jEtW2 UVTQaJjnbpGpBYTyNQ1xgHpX/62brdcEByCqv1Aa1jE493moF1mn08o4QGrG XD186QQ8RYCWwIeg9KdpDCQQQ+gIPgw2IyjKifj0XgK0C7K447WTFYl1iEyu pXlkpdQgjGYyLKmCj8wbufS1JR3HLmCQrem7wJi7T7be/i18+mHEOoQJxzym KGkzzgMsd13FNnF5oeservc8wJ2BR3g0/ATPxj/Gq6mneDP7FG/nn+GLxWf4 aukpfrT8FD9e/Rg/WX3CeszvH+JHq/fxxfJdvF26hU/OEeed47hoH8H51j4c NDixr23DZmUj1kb02BjSY31Ah/U+HdZ6dGRmHRY6tZi1aY63RPxmq+xSlBSU oVTYMpuWO45A9UxMg09qFTwjSmlKasQts/0iDQiIamQis0AigDSlHRHpDsiz OqEduwq9oF/T12Cau46AgHKkBlWgIrwCamUFBaVx5TqzSMPKNZhXrsK0fAXG 5UtIoJOM0dsRo7MiRtjuUdOCGFUDIupdTA4OhDNdRNZ3QVHbRrDqUJhFps8s +UP3FQ4bY9WICPVxJ3rh3V5/nErNh0dmObJayKQMN/mtwyhoE8LNDAIYbgJi OGuxjQw4LQw4FgYc/tc0roH+o8jPXIRGtYBM7TBiytoRU25DbAWryspqRWy1 BRFlTajtW0RtzznUumbpWOgu7OMwk0pEzE5fgZlmyThMp9Iz797Z+79hcZQW Y6ZetK3bc8cWQ9jzfY+APT9rwpUZMzKbhe13NW6rYRBB6yUsDkXGDIit4nHX cM7qcCKoDcHKPiRkDCO1uBfyJC3jhhaRqVpEpbMyNFCSSZWZKtrXOraqGmFM QcbJWzBO3IBx7DqPj5wy4LYaHRunvw3eWIzbJjDlWMF05z7mnFex5ryFXed9 XO5+ghv9T9Hu0YZ9iRWXwmz4ZO4V3p57RWC+IkBf4cdrr/DTjVf42cZL/Hzz Bes5frr5DD/e/BhfbjzGncFl3Oo/h8OeOVztmsJlxwgukVUSynuRSPmNye9E kqoTyXWsGn5fyRLWNC7sQGSADyL9faHw9RWBWypWGcoLyhEb5CfuB+GVkA2f lDqciRA2aVbBR2EgwzYw1raw620IO9uO8PQOyAhcRZ4LkQXdMEzxrMzdhGdA LV2VGSUxTTBmNcFWbIS9vBZNazfRuHYDZlZi+6K40VassYvVyXIg1kCd07Uh VttCu8A8U6kngK3iXp+Rqnb6UjOZlmpAABdnlvy++26PPApFHoVCHuLtfvfT D0rx7YgAeKQXiXsze2Vr4E277EPCFZJXifUcyq1LtMsrtAQWhCS1QZJKU5dB u5zjQHDINAryVqHWLUErbENf2YGYqg73yvcOlh3hFW2op4uvG1qjRV6hRV5E Tc+CSMIV7aNoOHfPveX7JZgnt2Gklf6Dd0M3WUdxEOwLgTx7LBKChdkniC/N NCCjqRXZHL5ci1MEckC+cOdmOdm3Cn6xtQRyPYJpZ0JpZ04EdTD3jiApdxxp 5UNQpJoIYFamidaGRRukJONKM3Q0o1o+0msXWGlf7sM0c5cW5jZME4cwjQi+ mba+d5NRfvndp1THHx0mYLilB5O2BUw7tjHdcRnnOm9io/M+9p1PcKXvCOUe s5hLvIZHmkO8rF3C02wnPl95i6/W3uInG2/xs623+MX2Z/jFzqf45e4b1if4 +e5rPB7bxc2eMdYIbnYP4qarDylqoXqRpupGWh0jZnU3UsudyNJ1IlvTiSzV 8ZZyWdWd8IxWwyNSg9MyDU6GMhb4+SPa259orhB3uo0P8kdiSBC8E/LhKSUX RNTCW66Dj7AHUWQz+aANoUmCR+9gnKAxFdBc2IOokj4oy/phnL8N7yAbkmNd qM7vQ0ttH7pMXehrakPj+l3WHcSZ+hFrFqoPcWZhcQoXyyluNR5ntCFO34o4 XRPiNEaimtxi6EWUtkPcoz6iogqlOZzAbEpIFuWEkP3X3/JBQvp7Z86jyNFK wlvIw9GhgUiQBMI7g44xi+4220iJqeLrokmP0iIwuxsV1nVU2TZRy57VOXcg SRc2aeikk3UiNHwehcWbUJtWoeEERvMciyvb13VRMjqgmdiDilXPAFE/soU6 Ql24rVRa0wtplQuScspW/TDk1T2UlQ6a9APGr9VvIL41JUBc9Q28BQ+0PWPC AeF9eboRWc02aosDea2ub5y6l3CzboyKEOfxx+o5mka6dTNOhPQgXjqO6twZ pFaN0uE2IyqbldsMZT6roAnKwkY6XjOk/L+kpU5x44bKVmrK/CNqCnVl5g7H kDAfo8cb2oWRgei3IH4WY5ZhTDFAT9vPY8ZxHYsd97DZ+QTne45wbeg1Kvwf YFb9Q9xq/xwvbM/xWfNl/LB+AncS+/DT7a/wi92v8Mu9L/H1/pf41cEX+Prg c9ztn6dLmcXtgWk+TqKOkK5Td0FFCGvq7dDWWpGrFq7d7kV2TRcKDE4U6J0o 1HaiQN0J3wR6MKZjX9pEnyiymFwLL6kWnkEaJHgHEuKVhHigCHGfhGKckZYT 4ir+nrDpdBOjaxuC4u2QpLD1mfRnOd2QF/YiUoB3+QAUoU3QJ27CWzaAs9m0 jrWzaGmahcsxgT5XP5Ya3i0YNIS4xkHENfUjvrGP1ctyIYGOKd7sQLzJijiD hTBvIFEzrRPySsIqkmQeUVOD8ryy403Pc0oI9RIUpxfC2atBD6vLpcE/d98T 8M0m0+6NpiNp+2NChTzqzwoQN5r2Ss6Cbzqtv6yAkK+Eb2QdnZXweaWREaAB IcpmVDt2Cfl91HcfQE1/qRm8iOCCDWSlHGHA8SOoGtYRTXk3MBLoWTqytG7m IjTMzeqp84gxT7EmEEXXFG0YpZsaRLhw12sVnZRG2KRgkI7KBQUFSl5hgn5s Gu8UaXOsBtsi/MnuM7QoMwaWEbu0JxemG5DZ0IJswj+P7J5P0S5gFCi0jiMo 30746+iv+Tpi+TposSSJzTgRNogExQxqChegqh9CpLCYd76VkGcVsYrbxMW4 pRwFaX4j7dQiqjsWUN0+AzOdsPncE47BQ/cIXKe1ugDT6BbZ/ty7K0OOH4yY sExj2rqF6fbLmLPfwnLHQxruZ7jQ/wrXRz7FncnP0aL9EZbtP2E4/Cle9f0I X3U9xk8t2/hh9TB+efAz/Or8z/DrCz/Fry/+BA+GVnB/eBn3hhdRr+lHva6f otoHja4HWq0LerK5Qd0OU10rzDWNyKdpLTE5UWp0ooyjUEbGD0xSIyhJg7B4 DdlAy4SnRQgTX3AEs3OIFmd9g5HAEUgNCYFPHM12GAWf/+YtbyA0LBTLdgQn dUCSRmbLJluRxb3iexGWTGWR96MoYw5VlduYnftHpqpllJnXYepYh31gCR3D k2Sup9CqXPRVwuIuHIXmISQ0DyK+maPQzDFocnEU3Etem9s4Cs1QqIyINdmg bOgi21vIlHWisxY+gleE+BLWrABfzA/rcG5Ih0WGjEWGjHMMGfMMGTMdWkxZ NWJX3u29XlhQIo6FsI21EDai3Yk4Tnx3NBDJLO+zufRsuXztTMjuPdj9lQYE ciyC6d0kVLuwBBvqui9A1XcJ6sEr0AxfwWmPUkR7laHArwx14eWoiSgXrrab FQKHfu4adKy4pnkoVU5EkbqUKgeiVXZE19tYdPQVTYgop+nQcWSEOw1IZ5H1 VDhh1byyWhRllvxf7unYGud0TNL7TGkYPPwYOoTTEsDTEojI4EB4MnjkNNs5 Hd0oaB0SJ6PIOs3wMY/Q/G6G5UaKQzNCEloZPtpw8sN+JMUsoLZsCSrNKK2o A1FFwhLGrFI7osrtCOOU1PRsMHCso8a1ylqmTzuHhMaLbNkBEow7SNJtIFG9 hMQ6Ts3kHkzjy789Hf8Zk830P217mLZdx1z7Pax0PMFO9wtcHHqDw/Ef4u7M V3i88BMYan+JWefXOBz+Gq/Gv8ZPRt/i695b+Noyh4f54/j15a/xUHhTbnQT D8c2oNINQ20cpg4PQWcchMHYByM9gknvglnXgUaNDU0qCyekGTk19vdQSdb1 Q0iaGjKxOBzyHEhluZBG5EEqZYXmISwkD6FhWpzxqOBwhNI9CsNRw+HQk++b 4BvVhoA4ut2zTkgyepjxe+go+xCVOo3CtEVUlu+i3ngVautVzN/6XwiuXEdG yy6qhbgzso7+nf+FOvtV6EgY+oYJpKtGEG8ZRYJFeBQWxR5AQgsHpJkD0tTB auegWKDQNiC20Q4lByeoltalNAcx0gDEhLEk/oglKuKCfREX6IMdpvBdpvDd AT2UFQRdRafY2Y1OHWR+XpD7+jCBC5ehCTn8O9+k8FgxhfszzAiDESS+xetz toCvvdCtGbQZUXTWHIwg6kWIOBgMNWcdiEjrhGrgGtTD13GK5y7IS4f00EbU xjejObsR7UVaGBhTDfM3oWcpaVWVml5Ea3r46EK0lomB+h2jsSNWLWwAYaFF auS/O6EUNtXWDjDUOBlqSAw1apRQDwXr93+635OVh/J1SRjQJCQLScDxNTus aL4O77RC+GUxyuaoEZhrYtRtYaLhdLQtoJSJpsy6isq2dQTFMd4m2RCaYsep U8IiekwoVWuo11O7ivi3S0hMZex7UQfTyx5qB3ZR27/D2kZi4wFrH4lmToVp C+ktF5HBnzNN28jUrzHan0OmehIZtOapZW0f/c6QNC1h2nKeg3IDc7aHWOk8 wk7fa1waeYvDyS9xb+7HeLL4Mzxf/SXebP4KQ11/h8uTf4cX83+Pn85/jb+b eoH/2XcePzNN49H4HjIoFyrDGDSmcWjNY9CbR2AwD8NkHkQDDXejsQeNhi40 6x2UpjZYVI0oUHW8h9oWF/4ZFDmkmZgcVi5kMXnvQRadhwrIlPmIiGTJWeH5 nB0NPM9UwVtZBi8JI4LUAB9ZMzFiQ0BCBz4KdyIosgeKxEnE5S6jvOQAtdrr ULUe4v9j672D48rTJLGMXpk/TrsnXezp9k4n6SSFIhSK0Gjvdqanmw7ee++9 994D5b0voApV8N577w1BkCBoQAM6kOxmN7ubbWdmZ2f21m8rXwHd1xOhPz4U WCgC9d7L/DLz1Xu/r9lxG3U9R8h23GK4pdVcZa09RIj1d4jW3UJ+2y3Uth9B bLsOuXkeebIxpFQNIElYh0pYPN5Anhg6yBc7+UIR0RoRKVMjWCRDcAuTXjM5 UpWHxFA/JIfQ64UIPsgbv0xrwQfpLD6mUSjTKaYZ9IwZjEYZF4PkLzEefch4 9EGYCO8zHpW7xKMKlYxG8RShRHbctIDzj9aET2Q904SIJIiHMHVbzO1XuobJ +9FHChdwBKe2IpT8iKCXjKCXbBk4xiU3NUL8bShI6YS4pAvmxg44pW2w8v3L hPllol5yoofY70Esj2astJP+0Il4qbDWlJ2h34oEMX1UnY4/c/I1tvPb1GRO csVEryVGRUGFyzcGe3kgyMMdPV1i9HaI0U3v2G0T/bcu8P0509L5xxlRgR7n JwNInxhaxhghLbFS2AY8M0vhnVPHNlDCTay+sI8iuEVIUWFcRpVxFbXGDdon 0qGN1LDv4tK1YaSnUzwaGPjlgwgocqCZlrK5/zqaWI39+2js20eGboe1jVzp OAqkYyiRjqBENokqzTLySaMC9TYKlWsolC/w55MoEA0gr7EVsw1LmK5eeP+n VPo/XZcXjusOSKd7pNITLLa/xGbPJzgY+gK3x7/Gg5nv8HThL/Fy5a/wyfrv 8cXWX6PN8g80mv+A50v/gG9X/g5/u/g1/mniIf7WOU99GYFIOQqJagxS9Sjk GuYjzRBU6gGoafQ1ql7oVN3QKzpgUNpglJtQJuOWWkhBKzNrqZyNNiKlBI2I TC1BZEoRooRKLkYk83VkQhEi4lgkVoh/Nj7wlcAtsJFkUlBw9PiFjwlegTaE xgwiNmsWyeUbyGjaR5biOvf0HWRYDhBj3CcohhgmBqBYPiGZWGsnSLatuBZ8 9NfcRqb9Nio7jyHqPEK+cRMFGjYk0cWCbiYSytSFJCNFx0jRMZxPPA2RKhAi bkGQqAlZEb7IZRVE+OBajhiXWVdYV7NFuJZ1Pr4+T8piE88jofLoeNwYxNwY xNzi+BoGsWvhfD3F1SfejKqiGiT4eCHJRaYApAcGIj0oiGEsnyGlmmRqJspk 8I7W0InpXVe0BNGRhmTYEZbjQERBJwI8lEjyscJYeIyQuEEUFI3TdU7CrBmH 0zqIZeb4inQShF4hVtrHUMKS9yDOVcLY+g4kCJPL+N4TZFY6TpPr+Tjh9JWs FTHKDvjXSeBXWUGr5Y0oOsdoX09Ee3v86EDn6UDn6EBn6UCnbWImANEfXXxG eZ7LzrPZD6chhLNscRfESiaxBI31yiqj+SzkJldyk+vZP1qYy6TwjRY+J9Ci 2rSJWvMO8xn7p30fV1P74PN+GVI/pAa6lWNxjqZ0gJ5jUBi418yv/z0yDQfI lc0hVz6LfPkMChXTKFFMoYIKUamYQb1uDU26ZTRrF1Ci2USpehklyhmUEO7F Eud7WGtawh9hrXoBC2Uzrg36i58SbR+jymWMa26QbCeYtDzFouM1Nns/xfXh d7g98Q0ezP4KT5d+i5erv8Mnm3+Nz7f/Bl/v/Q1+dfC3mJ/4Ho/X/hlfbf0z /oYENFL/jMpxaFoGINFMQKaln2SpWRrtOLTaMSbsUehJPIOmHyYNO6bGjnJ1 N0TtAwivUCEyg8k3k5VVieisCsS4qgwxVP8Ytq/o9BJEpxYjKqkY4RHZ8PHL wZ+7teLn15j63emLg7oRmTiB+PxlpFTvUBn2kKG6jjTDdYRT3WOaBxEnGUQ8 SRavGIB8+S4Uq6y1e4jVDLiIJowQdpMcuIaMJVoPkNl6gHzLDgoNSyhQDiOx hqpl7kaShcplorPR6RCqYBSQyxEma0awuAH5kX5wy2txfcx5PmavwDVS3COX ysL0Xai0o1huQzFBW8KuL5z18GbcC0hmJYjgT7L5x4jhx7jnHixcbGfBVe9m JPsLaAtERmAQMoKCcS24iESrI+rEF8PF9fCNM8M/qRVBdLch2cwNUU4kerUh P3YEFfmLGOn5a/hlzCCrdgkNqhVo2pZg6ZzC8tS3EInG0VRpIcHYqOTcH9xH 8co+Vi8SlN2uk3yJCgcSFCSb3II4Ns54YTxXoxyBzToENErhX1vlcrTCB5au mEa1TfDxwAbd7Cbd7GaXcCe/lI723NXGVrKYW8Ld3X+MetH+bmSZJ52f90+Y 5kdHyyZDtfbKqiLbSuEZWcvtpkuIllCtFWwyGgTEGBiVTaiz7jPrHNA1j+KD X9Qi+kMxigPkEMfLoWNyaEqseQ8tQ8f4H5FlukWSLSFPKdQiClXzJNMcKtWz qFFPcTeNo5nKKDKsQaJfhlw/jwqSr0I3j3LNGMq4a3YVS9iVLWFPvIjdxnls VU7/AdnOMCpfwbjqEONagWzPsOD8CJt9n+H6yJe4PfkdTuZ+gyfLf4WXa7/D m63f4/Pdv8bX+/8Z3934G/zm5t+gf/h7HG98D5lhCzq2EpNpA2bDAkwqEk0/ BxXflYal4/c6/SwM+hkYjJN83RjM5kFYCNoyHZNW1yji642IzqlHdF49YvLr EMuKy6/lYw0fq1nM2bkXV9kL5EtjfAgowdWAFgR6WRAe3s/nZpBQxPBYu4Vk 8Q4D5R4z7wDtzACiGgcQzUYQKyWI5AKI+iFdug35yjHkq8eI1bKbMy7F6YXR rUINwV9/gDgSLt12gLy2PRRa6Bd0k7Td3SQiYwYVLYiKFs4oFa5UIFgocR3c aGzdqb6errmWRSRAIW1bAQJYPlF58CXhykk41/kVGe0srWMwrWNwqgghySIE BOcjMLAAgf6FCGJ5exW57qvy8BMhPeCcaBnBoSRbMdzDGuBBv+QVpSHojPCL E67VtMEjhGSL6kNO5CjKcpZRW0NfJL+BRtMhhu7+E2Ka1lFkoK9yrkG38D3K 9Udo1N+AmC1bLB5EepWwxNaQa7ln12lHtXDasds1Uy9B1c7o2EpLTEVv0SNE pEKQmM2uWYaA+mokBZMgJFxyoHDG3wspjICCRU5mY0n5YZ45lTytgVVHa0w1 vxQrwiV6P2GVwg/CaaWDmxEXQNIGnEtaCmOz0GiE69fdwvIuZK2BzUQ43XhO NH8qegCJJuyrkJRW1Lcf4v1fNOLqB3okBraiMqUdqqJ2tNa2oq1BhZaRe5Sz VeQp1pCn4iObT6FmBSXaZVRoF1FDNtVr59CkmYGY+JaZtxgbNqAyr0BtYfRg xKsyUf70/bilX8Khbgk3NSzFIm5K5rBfN4n/9FPKvcSwhJTjYRjXkHLW55h3 foyN/s+wP/oVjqa+w/35X+N0+S9xtv5bfLz1V/hs93f46vrv8O2N3+PXt36P +yO0uNSLWv02ZNY9aNtuwMSyWnfRZliFUTYPLZuCnt8b+DaN1iWYWhdgts/A Yh+HxTYIWe8UZH1TpFkLYgtZRSLEFrcgTqiSZsSXNLEaWHWILyb9CqvgwTQW FsU+KlxknyLHpcARxKVNIb5oEfG1a4ht3oR/QS9TbB9CKvsRXtePyMZ+RIlI SymppegnnEj1pVuQLh9BtnqEGC2NE3ddLNNXnJFlGkCCeQCe1McI63Wk0JVk 2/dQ0LaJQvMM8jVMLSYzwrQWhGmob2oaSaUMV0QSeMSTbvHFNIFF8LsYphkU X4hgUi8kNh8B1L4qtR3VKhapF5bdgrAsEYIjCxASUYDgcL6ObilUeLw4cxMc UAQfX1I4QER9C0FmSBgpV0rKNTKRyuAVqWWPN8HN14LA4G56gHHXSN3qigPU S266Jv3Vth0hp/UWxJMPIZl+COnMQ8jmH8K98QgJ2iO2lCPUth5BZNmDjHDL aR5DfClNN3X//BTnxelNjROhpE6oMAhDauSjBmESCZ+TIaSpCvlhNNFhPvgw swmXsmmkaaCvcBszqelZ1PRsUi+HqTSHtMtpFEw0YxZ1/Rppd420uyKkbsFI h4hxLUCMFP9ApLLVpLHVeCTnMDQUU9tq2GaaqelybrcafoKBprYHJlgRTBN9 KdiGwA+laAxewFWvTiQlDKKqeBSqplG0KQdh19rRm99Num0iX7WBPPUGCrTr KKZwletXUU3M1rGaKGgtpJOs9RBKeh0VW6/Gvg2dYw01bWuobp1HlWWIQmfE sXUNx+Zl3KEXuqudx7F8GodNY//xD+PbYPMKxuigxtUnmKDQzZF1a/2fY4+s uzX1De7Nf4fHy7/Ci41f46Pt3+Dt3l/iy4Pf4pvD3+LF7EPcH9tHk3wYLZTd coqChEdV234PZscD2Ox30E6RsHFL9HRlRgZVUzuF0LlKF7MIa+cMvx+FYnAe iqF5xJbIEOeKb3Fl8vcQXyGDG+IrJUioFCGhogXeyU2ISCINM+RIzdcgs9SI 7HITfFNNVMNpRJYvuMb7eGd3wa+wB4GlvQiu6kVoXR+zRp9rSZJo5hJhORJh 4SvRwiHEy4eIt04hinCKpuLGGEg7IylpFiZu9PNnhFprP4LMe0iw0aI69pDn 2EKBbQ4FzHJZzC1hWqocKXdNZYBnQgm8WD4sP1ZAQjGCWCGsUFYYqRdAe1mr daKOFUibGZFPuMYUITSOP49lURnDSU/hRFARKlwngsIjSTn/HPgHl8A3WHRO ucBSuIU2kXIKXHXXwt/HjvCoIcRmzCOpZAOpddtIl+whlW0jhhVdN4SYxkFS 7j7EMyeQzJ5AOn+CaNmga8nRECG3tjK3th+juf0IuVpCkYEmi/8nQS9UPxL1 wmogpJusHaHyNoQzf4fLNYiQyWipSbmWahSH+8E9T8zWyJDFbb3G791yRXAn 7X4c3s7sWkjaeqS2wI/lTzvtT9r5CdNFqFxXAxtILbavEFaABO601GkhofBM IuWEOzEi610Xevr8ePLHROttdS3T5BVEy3u1FbmRwyjNXsRw939GbM4MyuoX IVUtwmiZwfzwt5A2rqGlfIjtcwv5ui0UUjpKDdtUrh3UGnfoCHbQYtqChG5A QTCrHMfQOm9B13UDhu5dGHs2UOtYQo2NIc9kwwPHLk5Ix5O2DTywLOOBYRb3 6fgO6Rr+/Ke8e4W+umWMtlDtlPcwTt7N0GCu9r3Fzsg7HE59ibvzX+PR8jd4 vv4tXm9/h0/3foUvDn6Nrw5/g6ORXXYtOxqVI2jWTENMQZbquSm2h9A4n8DS 8RztfHQ678Npuw6rfgvmrj2Ye7Zh7VtHax93QZfwCcIKlGMriGWai6vQkGqa 88v1qtVIrFWxmFLSFYhM5/d5JqSXs2PWdSC3mcW/nyMxI6DYgJ+HDsAt2gr3 5HZ4ZnXAJ78L/qU9CKrsQUhdD8KbehEhEhaU6UG04nwxmZaF6xAtXkecZQKR 2h5E6Ug/Qy9iTFQ+Mylo6aPBZJppZbX1wku/i8j2HaR0bCO7k13SMY+C1kFC 1IhrujZcVehIu1LSrvScdoklNDslCEksQ2hiOcITypk2y6l6ZWjg32k08m8W KRHG58OS+POkCkQkVyAyha9LKWOVskoQKZw2SmQJyhnJ3xtGWocyLUZV4MpV Kr4H1TaoC9HCxLbsJSSVbyC5YQtJEr5f6T4iKgcRWTOE6PpBRDcNILS2B6Lp uxDP3kW8YZHUo/lWkH7KIVwTHyBEe4AEptkM0wFyjbvIp+HKk48htZr7ROug M6BCKx001TZEKE0sLSIVMoTLJLjKVOvBhuFJk+3F8mb5sDyi8uFFlS+mupew SuV2eGe0IIgVmCbcMylCkGCuA2iu/Qvg652Jq9ey4RUhgVcY1TyYJpoG2yMh i9SrgGdE449XCfoywQnG2s2XKZZKnxU8jJL0RVSX76JevI+xnb9HYPEyssTr qDGuo5lts3vun9GsYuuRH0DWzO2rWkGx8TrKTTdQzao330Cz+YDKfx3S1j2o Oh5B030CXe89GPpvwzh4A+bBPdR3URU7pqh4DjzuvoVHpOXjjn08at/Cadsy HpmmcaIb+YF6ly6oN9RwgDEZaWd6gmnHKyz1foKt4bc4mPwcx3Pv8GD5Szxd /wovt77Gm91v8Pb6t/jixne4NbqDOuajBjK6WTMPkXaVtNuCwrCHhtYXUHe8 hKX3I7T3v0Zn/1N09d2Fs2MP1oF9WAe3YRlchXJ8E6oJ1uQG4qr1iK8xIKHW iIQ6PjYY4J2pR2SWCYnF7cio6UV2yxAP/7BrXG+urgcZmg6aIMI4LRvXUhRw i+Cuv5jw5ZXXCb+SLgRUdCGorhuhjd0IF/2XdWZCxE40zu6iaX6XJnEIEZou RPB3RhpIBSPpZyb9LFRGK6uVhtLGauf/bbUjyL6F+M4NpHOX53TMwd/UAx9h ajuDvbdAO1LLnxQKSqpESFIVKVVLStUgko9RiQz0ybVoojFptg65LgOISK1F RFodIjOE4msyWVk1iM6qZlUhOrMcMemliEotpSLmIiiWtPOlgnpTYfy5jyK7 EZc8iYTcBTqDVcQ1bHJ7dxBc1I/QsgGEVzHb1jLbNpBezXyObahl+jZEs8ek ZR+i5P2IVg6wFZF63Bex2iH4qqmQpF0KYZdt2Ue+STBhM8jh64XV2sOEpUao fBEaCyLUOv5bB3eF3pVlvWiwvYRMe2Gy/ajeAXEFNIT5KNO0o5y5sEJYgYkK GJLJLJtByoUyx4adG+zgUL4+IBuBftlU92L4BlHlA+kiIkizIDFpx0wX0UJj TYMZpcVVTwP8vfl+okZQmLCIiqI91DQeoFZ9AxVGZtn++2gaPEHz8ANmuYcI snyPdPkjlGkfsf09gUT/AEq+tqx5FxVmGm3LbTRaj9HSdgyJ7QjKbuK59xl0 /U9gGHoE0/AJzGPHsI4dor5vA3XdM3g+8ADP+Hee9t3Bae8RTrsOcOok9exL eNw6ifvGvh8W0Dynng39NXsYEd/DmP4Uk7YzLHR/hI2hN9if+BRHs5/h/tLn OF37Ai+23uH17pd4c/0rnEzcxI3RbdTKR0i9WUbOFbToNkm9XSjYKdWmm6iz fAxF76cwk8Zjg28xO8jf3XuMefsyrFQN4zCj6dQO1NOsmR1oZneQUG8h5aw0 ixaEZ9MwULHSG0aQLZ0i3aaRb5xCrmUcGcJszXoxadqEhKoa0q8UHtky/EXM AK7FCYsbOl2LbXoXdcCvohOBNZ0IbuykEepkDiHFhPmR4nbUT2+hfnYLoap+ 0q8T4Tr+TE96CiPcSKcoC9WxtRvRbVQTO6udr2m1udZA8rSuI9K5Ah/nJLwt w7hcokFShhjxCdWkXTVpV4eQ5AaEJjcinCY5MrkZUSnNiEljZTShxT4BUfu4 ayp4JHNQVHYzonP4GlZ0bhNi8oRqRKxwiimvFjG51TRMFVS8SkRF1iExQYy0 VAWNmYnZdgjxeczIpQsIKl+FbybVPo9mu5j5tpzbVj3wY8aNbhEmX3WheeoW WmaOECHtZSti9lXyZ2xp0ZoBxOoGXKeX3KXXEUIVSGzdRyZzTW7rNgosizRm w0gXcV9Q+SK0ZtdUDndtG9xUhvfIuxL8C0ZbwWsX02sXMXIVIZge24/es5L+ ukrtQJXKgbAcCcJzhNs4g6OK8QG/liA0+rxCwnLIwGwEh9BfU+T92dUCWH4x UlwKksEzvAWX3eXw9TAjNJidMmEKCTkrSC7fRLX0kKy6ifCSfkSUDyComOZi kOwbIftG7yNHsYVc9Tbi5E9QYHiBWusrSFgVqseolR2jtvE6Gm33eHjuQuq8 B1X/R67Jb/qRlzCOPYN58hSWqRO0TgtzKAihvjm8HHmKs+FTPCczn/BvnVIU T3vJvq5NMnAOp+2D/+9Pb98axEDDHYyoTzFmfYEZ6tTqwGvsjH2Mw+k3uLPw KR6svMWTjc/wYvtzvNr7AvfGbyCjxYQaxQTq6JgbNJRu3Q77xgHkxptQs19o bXeg77jvmlnnGP4SwxPvMDP5FgujjzDbu40+/RDJdp2k6Idm/gBaWr4AhumU SDWKsh2oqRlBi3KOukYLwAOda1tABu1BkliPRBEtaIsciQ1MfnUNJF4FYmua cCXLgKtRdlxNdsItywnPAmH1rg7XEosB9R2upZeDJcLoYvZaWQ9qJhiMp9YR rKTOGWm/tCSljmXoQriJBLSyWjsRaWPZOxHa2opAfTuCjPz/BqFacdk8jmv8 v5GFVsTntyIp24CUVCliwptJOBHCksUknARRaVJEZ0gRm8XKEUPsnIGYETeK yIvO5c/yZYgukCGmkFXE1xRLWGKWcJKpGYHxTYhOlCIpS+Na5iurzIKcSgN8 Mi0k6xACcqbgGcN0Q5vtQ9L55fXSfjPhlvchtJoaVX+Rclv4XEMnGidvoGn6 EOG03RFMvJEq6p6a5NOQfLr+/5J0mWJ99HtsPkyK7YwWjh3k21dQYB2nvRYW ObTAu2sQ7rTZ1+Ral977XqRbf1rsQFYwvw/h8/7U6cA8GWpo6Ws0/Lv5KoTE VCAkrpLptvI9+m1+iUiswC/IvAKEMR0GROa7bv0PjBNWcSrFh8EyXPXXIDjA hqioQcSlzCIxfxmJleuIp7UO4naHFLLJlA4iooL2mg2nYfAuGofvIotikKPa 4PveRR6xGtTyDPGqM2TpXqJU/xq1fGzWnkKkvA1xBy0obaV6+FPoxj6BYfJj mKZfwTLzHNa5U7TN3UfjyDbqBxbxevwVXo6f4TkZ+XT0MU6ph6cDZF3/Ppm3 htPuSSa/jh/mCZzTLhjdZTcxKH2MYeMZxtrPMN97hnUSe3/yFW7OfYS7yx/j 4dobPNn8BC92PsXt0X2USwZQJZ9BjWoF9QymTbp9iA2HkFGmlW13mfDuQ9f9 gE74EZqGvoFl/Bv0zX6F0bnPMDH5BCuWPST6V6I8uBKi2AqIE/tRmNWF6upJ NCpWILZuQNqzjhz7GtIdq0hStLEsSJKZWHomF1JPJENCYwupV4vYBsK7RoYr oTZciib10kk96p1HMTWvwula6Nq72gbfehsC2KfLh5ZQMbaMyokVVE2tIIjW M5hNOIRQCjF0INTUgTArH1v5aHMizO5AgM6OQIP9PX5pRzSuGLpxiS9/P80K nzzhevcuxBf2ICXPifQMC1LjFYig+41KV9ItqhCTo6J0KRFXoICkm2G4d4ls 48+K+LMiteu669hSVhlfV66Ce5ISgclyyqMeyWR0BjcjmzJ1HmxtyBRbEFOn x5U4FdxCdPBguBXmFbiGUVHq/IsZbst7EFzdi9D6XgZcIl3E5xqcqJ+4joap 6wij6w6XM/yqGH41ZJ+WAVhP7TAKIZcOm25bWAfcQ76JkDbaEec2MjqpFZ3r KGifQr65Ez7sVm6UOhfjEoUqo9yTKXTawT847cRqhttqBMRUoo4uNqJAh9D4 GhKtji68nt2p/j2Ep9bjlzTdNNvpNN5JpTTnpaQhyZpcBe+QCoQHV9Nc0mDG WnAlaBjxmdOua4jiKlbgl9aJgGxuXn4/QooHEFY2iHDhw6OafpLjNhqGj5FJ 45yj3kKO9jpyDTeRZ7yNPPMdxKo+QrbhDbPdJ2iwfgJJ60sorI8g0x9BM/YZ dJOfwTDzKUzzb2BZeIXWxedoW3qIxlHmx8ElfDz9KV5PfYwXZMzTiec4HSP5 Ru6RgDdxOrSD08EFnPb0/0C8KxcfJvTUn2BA/RxDrWeY6DzD4sAZNsbOsD99 hlv8M3eXX+PB+kc43foIN4a3USYeQYV8AVVKxlT1Dhq0jKCGI0gsdyBvvw9V 10OoSTgtVVc39gT6iSeQj32DVubFvpHfIjRAikLGYXG2GsYyBWw1LZid/Bot lh2Iunbow3eQ6thGkroTSSonH4XL0m0sK8nHvCfTIVGipOZJkNDUiDhqX1SD Ej4hXbgU5sSHsQ5cSm3H5Ww7rhXa4VZqh0elDT7UPN9GJ4rZo0qGFlE6uoiy 8UX4S6mBNJ6BWgf1zIEgk5MZgNrY6oQfORZuH4U/SedPjQug3vkZ+Dd03XCn kxLuQvNOaIRHDnWlYJDMG0Fa/hAys7uQlWZGYqSOBlGH2AI94oqYg/LUkPav QTawRsZpaQz1ZJqBTONjhQFuKXoEpOqZ6VqRXNzJXDuAnOZR5DLX5jJ/ZZEd wiVVoTlVCM0uxrVUsi5QC/dICzwS7PBK74B3LplXxGxb3o2g6m6aSubbJv67 zonABgdqx5jNJ3YRpR1FqLwbYdT7cDWLOhShF7SfBpsmO5omO9zI7TfbXQ3J 27qFyI5NJHdvIKt7DQGto/Az9+OKcEMT2eZLpvmTZQHMsi6TLTAqqYEUaiR9 GqlZdWgwjiOyxEymNSOcpjs8TYSIdBYzXmRmC3Nty7nRzqExT6tyXcsVFtWM +EQFUrP0CKRX8Gcn8k3j8Y0cRxBp55PkgF86jXVOLwIL+hFMdxlaQc2rFpbH 70Hd4C3UD99ClnIV2Zpd5OgOSLsj5JruIN9yH0WtJ4hWfIIs41tU2D9DU8fn kHe9hab7DFrqnsh8DOPC5zAvvYV15WO0rZzBtvoEDeP7qBtYwJu5L/B69i1e zLzBU2rik8lnOJ14hNNxZr1xOs0xat7Q+M9+un7JGbpbTun6zjBkP8MU/9Li 0Bk2J86wN3OGmwtnOF55ifvrL7EzwL3d0o0yGaVCsUmPvo9aeuhG4zFEbfcg cT6AvOcxlINPoBx9BhWJr55+BuXUY4Qofo+G/t8jhlJUkd8BZV0nbDIHurUW LJ/8Do0DlNChfSSq+5BIZCXRhSRpupCk7WCRdcJFvuqLq+DlGiRK5YhsaEYc 2RfVokZoeRXqKhrgkzaOS4mduMSefzmvE9eIXPfyDteK8DkdC8jrXkB+3wIK 2IAKR+fhI3bAV0Y5VHacD+RV2eEtrK9PRIW1jfJ7SiQjjJ+O7k3fiQ/ovFyf hscz2SfUwytRxKMux+WMcQTnTyKucBppRdNoyuxDS5IRdaENdIlmxJWaIB3Y gmxoC3J2rkTpEGIqzIittOBaioVMsxBx7DClA0ivG0e2ZBa5qhnk6qeIhgnE qIeRUC12recUnFuL0Dy6s9xiXKYmXgsz8/3Y4MFI65lN1hV2wr+Uzb+KEZb7 OYSx1p9yXzm0garRTdSMb1HbhhDCThOi7HKNIAvT0lnrhFjbhUgzn2OHCTXZ EMx9H6xjUfNCjOxKjjV4OafhbRMi7SASc2g70sSIiamFf3I9hamJkbbF5bDD XQ5bzEgrQaOF+8Q6g+gKG5kmRXimDJFZMkRkKxCZw66Zx8qXU/+l8IiV0XUq EJ9qREo+db1CWKeQGt/EzpdrgFeOA9eS+EhXLTDOl4zzI+MCyLigUoodk0tY TR+7ThdqBm6gwLGFTCWxq9lHtp5O03AbOea7F4x7iHL7I1R3PkZm6xeo6HqH 5oF3UIy8g270DYwjz2DsuwPz6mewrn+K1o3XaFt/jgb6hU8XvsUnC1/h9fw7 nM1/hqdztIQzL3E684RFpzlzC6fT22TgzA9Cd778y39Ep+Q5euguB+guJ+ku F4bpMEm5HVLugJS7tXyGtZ41ZDT2oliyjFL5NsqVB6jSHqGOb73RfoKWrkcQ 9z2BdOgZZGMvIJt8ASkJXzt0AuXcPVwLciA2cwgVteNQqiZgs46i29kHR7sV uvV7SFQNkGosrfDxUN/5NfV6Uk5HyhHuiVqBchQOpQ4JCiUiGhl45GpEiTXc vcJSkbWVDYhho5+Ad94EfsmG/2FuBy4XOnG11Ik02zzSnfPI7J5HVj9riEXK eTDoecpJN+GqJssEQlonaaUmEUxIeWo64OWqTngqHQyN2aRbGdzZsIV71bwS ZWzuKgQk6/Bh/DQChFWoSxdQWbSEJtJOnNeFFlrM+JRWyIb3IB/Zg2KMNb6H qyltiAgSISPKiNLcHtTWTSBLuOZcs8wGvOia3x2tm6GQ65HQQFjXy5FQK0Jc g47UrkZwXgn/XjmuBhpxLcYGN4ZZD2HB8HyGWWGCYaUwi46tpMoO3xo7ygdW UTG8hsrRNQRKKGDc18EKbrOKtKNFDGE7CTUx1Fo6EWxsRYCm3bV6tjCg4j1G WQdC+bwDH5A6Vy1jCCmwMoTakUBrnZxN108rHBEsQUiKDGGsiBS2xDTa6wwF mtoW0GxfQEx1ByJotSNI08hcDSLztYgq0FDwNXCL0yAknoYg3YaUom5kVg8i p4niLuWjog/JMmG+iwQetOvu6Ua8H90P70QHfEg335we19URro9qK2mna3rh X9GJagarNN06MlTCQILryCLdsikP2eb7yLM+QFHbI5Q5T1Hd9QT1xG6G/UuU DX6JpomvoJj+CgYKmGWWFJt6CH3fbbRuvUHD9DHqxnfxdvnX+GTpW3y09DXO Ft/h6cKneLJAM7hAf7lAkVs4xun8Hk5nF3720zX91HDIXqDTdIY+sm285wxz FLhlxsJN2srduTPMsqml1vWhWLyBQtkeSpTCyaFjVLFB1LY/REPXKZr6n9EO vkDLGKPoxAtIJu9ANnsXivn7uBbag9DiGRRKlyC2LMNEkbENTEDV2Q7txn1o N8k2mnzhDhbXzHID2UZrk2jo4nNOlo0/tyJBY0SCSsNQIkGsQoco2suwhjrU VNaz6lDF8kgbJeIm4Fk2Du+qMdRPvkTj7EtEt80h3snqmkPL5kuItl8SUWMI 1I0znk24ljINNLOskwhguSuYB+VOXBNZkR4RQaYVwi2mikxrItOktJIqMk1H phldi1iFZbTBs2AFqcWrKK1cQ0M1M2nFGBYlcwhxL0OOVzmqfMtRGGVBOi1g cfYAampn0aRcd2XXbPM6G+waw9MSEkQ2JIgp5iJaaBHZ1qxCfIMU8S0mxDdp EFRYDv/8Cly6psSVMAuuxguzS5yuhd89ixxwL7TBs9QGL4qJLwWupG8JJYPL KBtehn8LmcXwFsjtC6RlD6RdDOI+DhamdAl3BdG++1PgA9jhAlxMC+TXMARQ +C7zuPynfAUuZ/E1+Z2ILOxFPEUlJbcLaem0wbEqihpZlKZBVKYW0dlaNLev osW5hpYObhvtdWS+HpEFBkQVGXE1zojABDNi2BmTiwdpoSnsoinkKiZp/yaQ wuMTWkSxKxKWuqN1z9bBPdsKN7LbK7GdnbUT3jlkG0N0wMUns76lwvlqJyr7 GE20q0g17CCD6S1DT1tpvIMsMi3X+hAFFLXSjlNU9T5B7eBTiCe/hHz2KxSN fo2G2a+hWP4axtWv0Lb6Fu3Lz2GbpjUl0z5d+Su8XflLfLLya3y0/C3Olr/C 06XP8WTpDU6XKW4rFLcVJrll2smFFTwY68D/89MlU/8cVvkz2M1n6HLSU1Lc Jkm3eYrbMsVtneKWxACa0jCNAsl15CtuoVB3F6WWB6hwPEZV1zPU9L+giL1E Rf8ZWsaPIRFuiJq9D8XCCVRLD+BePIckwqqyfROifu7+gUlotx6yTqDZvA81 6ZZgGEKCkZQz9SPBRE8pDEgzdvJ5BxL0bSwTImRqhEukiFbbEUm6hTZUkWLM 3QLP/sQ1O7qisgZueeOoGniJGjK/duol6udeomGRtfoSTbTFTWRb085L+KrH aRMn3nOtKmt3rSvrw7rcTHIHByEpJJiZKodEKyHR6uEuXDERryDRtCSaEQF0 gcFpbcxTwq3UdDh5G8xjW8iv20J14ybmOj5BurcItdESqJhTjHl1GG3/CI3y LVdebe7cQXrrNuKl3EppB+LpahNk7fyef1/K5iIxkXiU8mYl4iWtiCfx4loU iGZejQsKxYeeRlyOYF4Vhqq4ZqjbcTWfmbWYZKO05TnpmtnYCuieC5lbC4cX 4dNCuRNTykloL+n5WIEQ0wglbQS+rgEQgnN2wJ9Z1p973o8N7xKtxofM0550 0N500D9P7oVX7iBCC0fpnsdRnTaMhoR2NIRRfqNIpBwjQjL1JNima1SqqIfZ r8BMgllwOVZYw7MVkelspsWjSKuZRZZoETmqBWTr5pGin0NMOV1lmRShpSqW HGGlYngXa+GZZ4B7voXvg+89la45uxM+BeefxfpXdMFHGCRT0Y6yXuZM9RJS dFtI0xwgXXeEDONdZJpPkN32EPmOUxR3P0F5/1M0jb+DiDImm6ecLX3FhPEN 6ihZ8o1vYdj+Bm3bX0A0cRvNvXN40ziLt6u/xZu13+CjtV/hbPUbPF15hydr n+J0/TWL2W2dLnL9kIRbw8Opnh+I5nmx8KSZJGslybr6zjA4coaxyTNMz54x VBD0tTNIbFxBtvQYuRqqr+kRCu1PUOB8joJOonjgJppGjkiwO5BM33MRTE6C JZhXEZL+FBr732J55x+x8fDrPyKzHuBfQkN+CdxSbt4ll4YRbxpEPFN3grn3 fPYcW2y8kf6eGS1coUWIzMhk344IGsj3UFlRj//KNZS9nMQqq6hBaXnVe64t CUM5aV8x/BJVVLPqi3nstew2dWusDRY5Jize60Ef664cR1kRf01JHeIChAWC A0kwkis5F1ciK3AtupHkkvHAqgkwA/yShHh1fpN2CBUkjPEosrQLURXCpWa7 kHb9FsHeBuTHtUHEuGGqaYWzxYDF3d+hycmI27vPmNmPOGkfScVNVbCVKLpY HawfrtSnmnFzI+kb42U2xMlM/D9UiRYtwumVaxlNf+lpwIeRDnyYKMww7sSV 3E5cLeqAG71yBr1yNr1ydtc8cvpYg/PwanbCS8wimQW/HGQYRhDJFWxhLFXa 4MO2JczAeo/BlAEOPoxw7/P9eMSVUsFrue3NjEdS+CarcCVzEoF508jNmkVl 1jwaMofRnGJDXXgzibUDUfcuxMKSZn17JFUbwn1ESA+1ojiTKl49i2bFKrJU a/Rzq0gxrlKt21hWlgnRlUqElNJLlioRVkmCVYrgXcpIysbxftoAPFIc9JHC hQ6CgrfDs5DKVmJHUccqiplxkuTzjPcbSFUfIJXkSjfcRQbJlUVy5XY8RqGg YKNfoHGS5Jr9EtLFryBf/Rqqja8JzK9RufwdJNvfoWr+OepnH+D3S7/G308+ xe8di3iz/lu8Xv81zta/xdP1L/Fk8zPXycPTLZKLoD7dukmCrf8Qz84X5v8z qNtewNB9BhuVq4NGMaykH5GVTK+1q4hp3EGM7AZiNbcRx7da4dxDdc8N1JFQ jQKhJo4RWt+P8CZh9OEgYiSDcE+YR17zDUhsNyHrW3+P+WoIf4q09hWot+5D dUEq+cYxooxzCFP3Ic4sVDfChWGO6jaWGaFsqUFy+gudnc9rUU5KlblmhNcK c8L/xPXuvV0zwosLalFSWOciSqyfP+IDAhEfFISrSQXwyBDhanQLg5USHvFa eMeb4JPMAJLOAJLN2MEuGF7SjYjyXkRW9UIycozLXhaERnWjMH8QkoZhWJSD tNTdaDeZoFy4R7APEPSDF7ez9CNeRbLQhglX2Mez2wtX2CcqqbsKMyKatYhT tpNIVsTJdYiW6BBRL9jchh+t7vskyi+TOvGBK1RSyfQEiYUd3T6PVBIllaEy lURJHZxDkGoMQdpx2rwJEoRFmxtMiysETE9153vwEk5u8NsuZERGUXwL6HKr 4BXfyDwjIUeU5IiWTteAD+Jm4ZO7iPQ8Zu6iFdQXL6KZmzxD55ZwqRQlbmVo CCiHnNmzMHUIVeULaJBsotm0xV6xRW5sIbbRibgmtsJmbiLFP6GZ4ttkRJy4 GyHl5Em5gsXcVtYAD3LfrczkuhjoSpIwn9bumlrtXmBz8SffsYTCrmVyYJm7 cJV5fAvJ2iOk6u8ijRxJtz9EdudjlA99hprxL5iV3qGZ4iOma5Ot0eVtfg31 Nnmy+zXK579B1tQTnGx8j893v8fvdv8O/7j2Of5x8ha+a1vE2eZ3eLr1FU53 Psfp7sc43XvBesh/kyObaz/76WiR/wtJeTqkUyIzqwaQ1TSJHLI4n92h2LqJ cscuqroPSIlDmqyZ8zHGDf088P2uJRxipAPwTKKFEB9C6jiEnEk5STeAZD3L MMC9OIBY8zw5cUxO3IZ07RYkqzcQoZ9EuG4MYbphhGr7mKKZpjVtiBQm3xpo ndQqlJTXobi89nzBlJ+h6CdciPLxQ6x/IEWDPEgoZpQS042Jz+dbxwrXAFvg zabon+lAIJtzMG13WKnwaW03REP0oaN3cdmnAwFp48gVmqJyHgbrLOwd49Db 26FcPKFIDCFePkx8DyFOLdxtIgx0Jx80PaxuJPAtJ9AVJaisjHl0YOoOVtv5 ah5yA3eRiwPnHjSHX2v5NoeZ+MZpi6mJ1Mi6Car3DFPfPH0nNbKJGtlMjfRX jMGfHjRAN8E0wyIVrtEEulGn3BSdcFd1MfF1IC0iEu5p+dzsEnjE1lEnRfBK kJMHGmqlgTwwIyi1lS7Ahmu5a4gr2kBB5Qb67b9C8CUR8vzkaIpTQJsphSm/ HrUt22jU7aLRvovKrj02yB7ENPcgtqUbcaIu4p5mVEydFJMLTJtx0l5WF4Ir 1QiukiO4ugWBVRJcK2vFpUhhWisNaKqdKUwYzWuDW4kT2bYF5NKA5nYt0tAu s7Wsc3eSC/o7SLacUCfeoLDvLRPg56ia+AJ1M1+ejxJf+QqSdeoFca3c+QqV c09ROfsIr4XVASa+x+H29/j48Hv89tb3+MeDv8T3917jxTa1Ypc82CMPrjP1 XCcPrpMH++TB9o9a4X+x3GW9aQ2plLSM8n5kNjDgCbeT6lZQZNlEWfsO/OsY 8kSTP45zDmvoRURL7zkRZP3wSVtBiYIk6DyEYmiZm9RPEjAhGVlML8lML8mm XsjWb3JTbkK8dsDN2kfT0hYal9dQv7To+rwoQGNFmLkTiv0DSDdX/vRioa9C EqCIBAj38kWUXwBi/An+uGJcSxYTBRoKgbA4lgketNHeqe3wyyLA85g5WY29 N9E8cBuiYYJ/7B6kk/dwNXsWiU2rqDCsQ+JchbJ3msB/QLsrFAmgGCGgWZrh 83s9dRQFnTCmnATQ0TUxDkRIWxEuZUfUdiJWa0c03360iqZR3CgEMMEsutD/ QwIrq6hEZccZqsiA6lG6Q7rEOrrEOrrE+hUmMTKggQ7Rh87QhwwQhjT5UAx8 GMSuSJy4LGI3pkNMCYtASriA/kJciykn6RuIfgnRr4JPop7oN8E/Wbiv04Zg usWw3A6EUwzTNb/BBx+qEelLR8ROLS10wFJrh4Muce7271DpuM4Y1e+6Uli4 JS9G1IdYCfVb0kOkUwBlFECZwxXFhFv1zm+sJvHldgTU6lky+FfX4sMgoj/W iUvJ5w7xMv9+qnEeadZ5pNMhZjrmyahF/j6iX8Gop9kjM14jp/MN8vvfonjk C1TQJdXMvkP9Ihmw8iVEdD2SzS9RPvsUZdOnOFv5DV4xcryiK+q2/Q5rW9/j 2W0y4Nn3+P7bf8Tzva/w5Po7nB4Q/TeoAjees+iUrv8B+gMuFqNPYlpNL+5D BlGeKZlFDpNSgXmdyWkQgY2j8C0TPocg2eu6EdZ4/nl7lKQXsfJe/mwJ5Roi v/cQhdy0ZEOvC+kppt73kGLpxR8j2dxDyZ92gV60dh3NK3sE/SYaVlZRtzyP 6sUpKG89hvLwDuTXD0iQxYvlcn+GgoIahHv7I9IvEJdjiml9RAzgWh59YWad AVdirLiWaHd9bFLdvo+6zhtE/C00Dx6jZeQOxOP3IJk8QWD8I8i1f42F5X/C 6p1viPaHUC49hGL5AeQs2fIJEi2rRPIIYnUs/dD5HWAGol4Yza0niuRtfE64 M6zbdQFPtDBXXm1EmLieCK//MRaVV9T81xdLxpUPvUQlW30VW301W33NEmuV tf4S7rJxuCsYhRiJSgvPHV6c4PACg+jyQgjyKG5mEaNQFUHeTJDLCXIN7Q6d XpIVflS5wAwHQrI7EJrfBS+2/ebuI3xwtR2Rsf0oKRiBtGGULm8YDr5lycR9 RNcT3E1DBLiwzMyQy9fGyijUckYjhRCLuKmUmogWO2L5/+JUwg1ylACVA7F8 jGFkiZJpEBYRjPdDWvFLAv2D5A7+DoJaPc9EOY9EAj2JDi+yiU5PdYAUweoY 7yDVeh9pjgfIJcgLRz9H6eQXqJr7AjWL7wiFdyiaYgantSmafIQny7/C89Xv cLb2HV7S9r9i9n61+Q0m2Oqff/o9Xu69w/PrXxDUjAKHzNo3GQduMg7cJMhv 3MTdjaU/BPmfot5wAyn5fUivGkF6yzST0CI8inrgzZbvxV7gU+Z0fdgWXMcc 1tjFXdBNkFMFyfOAyiUmmy0Utm0Q5LNIMhLcAqz/hBAnuK3dSG5lWRlIDWNo XttB4+o2GlY3ULe6gmqCvHxhHMojAu7wGLL93T+7WMtnxdqCDZuELkyMy/Et xLcWV5MtcEtzoFC1hBJ26PLWHRe2a7sO0dB3C5HiBeruAMJqBmm5B3E1Yg5Z VRQUA8Wlg11FJtiXQWL7PrF9n9i+D+kyebB0l7geIXaHEWtkRzf2IUzZdT5R l6kkxjSIaNMoq58JxolIrcGVTsqZTspcdZFOPFGcU43i/FoUE7fRvv6IIT1j 6cjiAkOQHEbcpgqDTmtpT0S06UpiV8coe75Ujl9aOwIoUEG5Xah3cpO6SNfe 2/jAl2YwfQr51QuMqovQWeZgso8Qtyeuu6aim4eJ2RFES1myYcQoSFHF4AVG aUdojcKF5ZUoXLEa4lrD5zQdiOFjNN1alFLrkqTKC0GqsZ2hpuvlH1qyaYoQ eZqouI4k9U12s2Me3XtIbj9BaudDpPc+Qmb/I2QNPUbO6OP3kDd2in+F+/Nf 4+Hi13i8/DWeMtU+p2t/Tsdyxp59tsXafoczOpEX1z/DsxtvCdNPcHqLffno jPWU35/g8cHhxYWjga6H/wMNprtIKR1BWsMUrtLOuhd0waeyFx40Kj5lDvhX cSfWdiK0kVGvpQuRkm7X0OjA6mWkazdRYF8nWqdcp00FsCZZziGa3CpUJ5KE iy+p2hHsdfVrG6hdW0X16hIqlmegPH4KxdEJ5Id07bvbF6PN/g0Wjc1Ytwoj 6GXIqLIis64H2U2jyBXPoEC5hGIBr9YdVBGvIfXTrpHzQeU8sFUM07UDiGgY gFvUInLrbkBkYXLoXHFhNUE5QMeQoBrA/0Cs3oGEJV6ma1k+Qrh2jjXL5NzL dNDNciJEuJjSMsUaRRRTtjAJOlynRwlxWlJee7HW4r9FUW41igjUSG8/RPkG INovCDEBwYhlg72aWATPDHrWGAkbrBqecQY2WCu8k2w0dA54sWrtBwTpTYJU OOF3TCd1F1dy5pDYuIYy3ToabUt835LJB+ww4qkHrBOClBySsRQsJfmmIt/U BCojRDiPUbiEoNSOUWcIYH0fYsjJaOHyNOGmDo3OpSME6B9dwKCqm/oxeG6a ammaammaYiV73GWHTCK3kWC+i8Q2yhd7a3LXQ6T0EqfEaMbAI6T33McR4+Sd uXe4v/AOD5fe4bHr/OQXeLr+BZ5tfo7n25/h+e5b9tNPCc5P8OSmAMzXOL39 ivWS9RSPCdC7+/v4A4T+a9Rr7yAxZxgp1VOu1Hstzwmvsm4i1Q7vEgd8K50I rHW6rskPa+lEhIQNUrgmsW4JGTomkvY1FDjGkCgsyGNmEZ3vuXD5L5DU1sHN chKddoTRRteur6JqbQUVq8yUd86gOD6F/Iidje3+312MfVgxibHeRmSWW5BZ 04Ws+hHkiqaRT2QW6dfhXz6MwJpx+BZ0w7+EyKzoJTL7frxm3it+BYXNh5C0 EZndTCmKfu7mfiZ2lqbfde+zmIgUrdxCyzJ99fIhLfx1NC3sMsuOIlg7hMjW OUS0TiHSOoII+p9wk50/0+JfX3T8cE8fRAiOxjcQUcLIyqBgXI0vhFsyW2Wq BpcjlLgSqaenN+NaXBsqjNuoat1Djf0G6jqIxO7bSFQeIbl+E5GJb2G2/j2W 1v4OS/tPXDiUCCicPoFo+j5aZu4hTLFMFBKJ6lHEsDUKt9yEyvpYPUTdFNE3 QUUgAo3TLLKJqhClb0eEVid0/P/G9bb/A8p7X6BihG6GCKwiAqPEN/hrjwji O4gxszsTgbHtDxDPTrk68Cm2Rj7F3sRb3Jh+67q95M78Z7i39BlOlt/i4epb PFr7FI+3qNw7bIX7DGg3PsLjm6/x6OgVHhN1j4/PWC/wiOi7f/PuxX1kQa6H /w31xof4MNKKy8ntuJLthHuhk+CzwbPYTtfK1ljjRFADfVFLB8KkBJ5wD1Y9 QaffQH77CoE3jHgCLsFCU29ltQrFVN/mQLyNrcRoQyhbZgiBWbY2D8XdV5Df eQ758SNIb92FaHf/R9AtaMVYNcuQXmRGRkUnMmuHkN08hTxqmHdhP/zKGP1z hM8lLm7NrOhxfdQeVtfrWibWO58yLyHoHDeQT80TAJfwwxVUwo32ul7Xnb+R 2kla5wM0LRNwS7TQS7toYH6sWVyF+ugTqLjnVBQT5a37UN44hGxn48JG/98k BW2GXYowtsBw6vSlqFy2v2aCTg23VDMKpbMoViyhVMP2TcDFNGwz+u8joYK5 uHqDRNpEXuM2UpKYXesfwqo/QZtpHVUMMNXKbWTx3yKCrWX2Lppn76Bp7hih StoU6RBrECHMyCFMC1GGaUSZltmy51ls3+Yf2red0X7zv7sIJEM1tzEseYRh zTMMW84wan+F6a7XWOj7CKtDH2Nr7GPsTb4huN7g1twbHC+8wd2lN7i3+jFO NljbH+HB3ms8OHiFk8NXuH/rDPdvn72HB0TVH/Hrc9w9enzxSedPgPUfUKu4 B++UftdFn5eZKa7mONnvbQSYnZ3NDt9qhvR6B4KbhZUPOnCtqIv6u4RM4zry HEvIbWNiNHUijsCKs3YgvtWJOHaxOIIq1i5cjtWKYAb8QJMTCmGg/N0zyO48 hfT2Q4hv3P73F0sDLOqkSBHuRSjpQEb1ALIaJ1xT070Kel2Pnjkd8BGuECvp QmAFsV3Tg7B6YqSpB35FyyhX0Ap2CniaPD+Dq+khjnpcOEo0sIzdiBCmq1OG Gpd3WTuoX95C7fI61MefQXX8BqrbZ1DePiWe7kF+4wb+zQWW1izEUistQLsc G91KbAyokVVnQQ6TYV7LKAppBQplS4ioWEFU7QZiipaQULaCtMp1ZNVuIr9h E8XNW8hJO4Ky6SHsRtpU5QYaVdtoosludl14v0Vs7aFp/jbrCI3zN/l4iMbZ A4QophCimkCkeY21jEgLs4Z1is12GOrDB1Ad3IJi9wJL/w49JfsYaDzBoOIp Bg1nGGojnpxnmO55icWBl1gbeYXNsVfYnXqF6zOvcDj/CreWX+H22kscb77E nR3W/hnu3DjD8c0z3KZnu8Ndc5dQusM6vv0ce/vHF2s7BF8MP/SMZrJIH4FP /jguZzjxYVorruTb4V5CZaxqh19dOwKbHK7p3VeFGyebiCHDKjG0yO7rRAz9 d6yZjxY+tjoQY2tHjAs/bWxKVgSa6dvaxxDWPuoady89fgLxzfv/8wV+pmVi LJqFlRqcSC/rx9U4E66ltsMzrxvXKNQeOQ54FziJn04XfoIplmH1xESTcJHC MlJl5LuZkCY/49U9iNf2IEHfjQThYhcjixBPMDMnMhc2EDd1jPO1K+uoXFyB 6s4nFOiPWC+In8dQsF/KDg5+xM+ivhlrZolLqDc6FNjoVxHjJmQzeOU1UjSL ZhBRzGMq4Cd/AXHFy0gpX0Nm9Try6zZQ3LiBxIwFFGXdhk78EB2W+2hWbkFE 3Ehoe6W6TciMQm2gQUNsC7iZP2BdR+PcPhpmd6E5/Abqm19Bfetz1iesV6yn UN08Ye+8Cfnu5h9f5MausiP0ik7Rp36BPtMZ+hkbRjvPMCVc8Td4hpWRM2yM n2F7+gx782e4vnyGG+tnONxi7Z7h5nU+EjuHxM7hEXvQzdtCD7px9AI7Bw8v LiX8SQ/6X84H5haVMTQNwTtrnESfwOXMDnyYYSNW2uFR3g7vGmFtXPaiFgeu FArrjy+yB60it32ejsnp8sORxEiUtR1RrfSVxE+IsQ1B7D/R7fThjnPshNqH IaHMim89/l8vhj7NKKRIyrDjcpAaV6JN1AcBL524wkf37HZ4EVO+JQzL1Lqg mk7XsudXswUztYw0xQZyLau0vN20u12uk4XxxEy8cNUGMRNPSMcT0uHMY2H6 ftSsrqJy5RwzqrtviJlXrGc0dw8hv8UIsLvzZxefVSzrxWw9Mqw7FFjvUSG9 3ICsavrDvBGE540TMrOIzJpFTMECkkqYgCq4N2qYgOrXUda0juTMJRSWHMIs e4hu2z2ItRuEygYUhInSwrJuQNW2DlXrOsQGhveFfUJmDw1zO6id27qAyztK 7OdsjXy7NCmqoydQCXJ7ePNfXkiXs/w2usRP0a05Qzelq9d+huGO8wtEZ4fO sEiorBIq64TKFqGyTajsEiq7hMouobJDqOwQKruUrD22mh0+ruw9/IufQkSY qVyCssJy1+Qrz4QReGVNuGDyS7aZn6eZ8EGBBVdKrXBjRPOso0/KHyFE6H8M K8hun0Ogyoog17lmB8KsLEIk0GBDgKENUfZBhLePEx5jCCVEgm1DaLn1hK7r fAHfaY0cl3wVuBJmwpX4NrgRmpdSbLiWZYdnvgM+xewr5c7zm3HriZts6n8V Dwh7fK51BdHM6bFaFrERZ+h0yWU8e0kcsREnvBctvRc1Koi4cWHiLnvJ3df0 YGf0YM8gp1RKD4/+7QUuZhUtxIYUqzYF1jqVWOtXI4JvKTSD3jtn1NVOIrNn EVewiBTiIpO4yK9ZRXH9GiqIi9SsFZSW0e9LbkNruAkZc4LCfI4DDRO0xrEG rbAcWccqtCyZdROFul3ULmy68KA++oJYoGTe/pSy+RHrQjaPBNk8PA+i/woO 6TM4dGdwtBIXlJ+BHrYR4mGKeJglHhaIhyXiYYV4WCUeVomHFcrOygG/JyZW D8+wfPDiFz/Fwb8nDkpRVlBBLFShvKgG74fa8UE8j0faebsQPLFHEdtGvgme ZWZcIlHCm1eQzlaRZScOFMSB2gofmRnecjP8FTa2imHWEI//BEKIg2Abq20M gZaB//3CfpcUFiPcwxOXAgy4HNWGq2md+JCp+Qr/pHsunRK7lG8ZuxP5GVTv xOXsYVpewk+9hhwrFU7ViWhtJ7MHy9Dxo9rFWhwI1dnYGlp5+DsJxXEe9tfn Tsnlll7QLT2B9OgE/9OF/Z5TSrBEqVt2KKFv0COCri00lXYoaxgRhVOIZk8Q 7qZK47HPrlxFYc0aShsoVc0bSM/eQHnVEeSKO9BZbkFu2WQP4HFt3+CxXoeu aw36nhUYeldh6FuB0sl+wcyqvvUFj7twzN/yeAty9zHrNes5lMeUPB576fX9 i8nAf8ye8xitxjO0shm0d52ha4A6MsrGMHmGsbkzTCwSCKv0JBusbX7Pg/8e pvcEoRjdfOb6LUL9/P//6IcHCJO2fREV7E8EtOFyUgeuZnTALe//4+o9o+Jc 1yvBvY69pifPdHt67Ol22+vOrJ7uHne33fa1zz1BGQkQIooMIoPIOUMloKgC qgoKiiLnVOSccwYBAgSSKARCQkLh6OR726HvtTX7K0ryuf6xqRJCAr693/3s p+p736cSV8J0uBalw424Unwa0gF7su/LoOFP9m9JSmEr0zGd62CZTeQIYMAo aSfj7bAhbha3wUrdgMSo6HP2/zWiI87r06eXFPjMVni3o4zfrsr0ft+FIBYL ofuPYcZJKDNtEvoisBUOycw3yhEEaVmfcoXXFstNOee2itCUwblID+di/jgF JbhVoCXzbXCiAX1C3g/xu8jiR1POYaAQL3zMyb2KLAwUy6HNKESxuAR2nswx fk1wDGFTG9gLT/ZWflEjCI5jIUiaQEzaJBJFU/C/O4OElHuQ522hQLcGuW4a irIp5FVOIb9mEgV141A1jEHdOAx10zCUtczFNaxVzNSC+cvvnZxnHIpTvvHE RHwOiRdq1nnP9T8in2QL958UkWx9mxEVnSSeZNeQ7JphVoZRPo4YP/snnIZG w9H6GpyEEVW3LOFqaw1f+5sIJL4kr/8+ZhD/Mbob/zmiCf8lpgn/MaEPn4qH cDFnGBeV/fgsy4Bf5A2ZeL1FTm/mVOBadgWuZLFLlpXDUmNAckwCkmLikBgd 83+b+57oCBaUiPOCcs2pBp/Z6/G5eyV+4cUgEFCKi8yuV6KYO9hcWyaX4fPA NjgIr+IohxGo7Tk/F0cpvAbHXKrSw7GwlIG8FDb5JXAuaYSzrsGUVx1YUEyZ dUPg85DZ4xHES1t/ZM4ehcl5KM4ogk7EqOJKE/cml4EdcAsYgPfdUfhFsobE TZLLKcSmzyBROouA8AUkZ25Bod6Buoycls1BUTmLvJpZFNTPkL8pqJsnoGmj mTdOIq9pHBrDPBJr5xBbM4Uc8nhuMofnNWaDff7aLiQLSx4/fbnr99DamA5H q0vk5pppormrjSV87azOuQmW0QqjcPF2NP6Tkxp/ysT9Z5Gt+E+Rvfg0ZQAX xAO4JOvCZxmt+Ixd0if4TNyK/x6fyrpxXcpGks2Av5UVfK7fQJIw2T7GNM38 Z2Z+osLCafIx5IdmHyGYfSKuOTfAwtdguhftU189fu6vxS/usthHanExVovP AtrhmHrOUUBRF26RI1thNzA5Ek62sFbocLuoifmQ0DXS9BvID3Mhs6FtaSsk 5EeydgDR0u4HfhqKGtGm60BxaiFKMvTIii3ALZcmOPh2wc1vBN7BE/CPmEJw 7AzCU2YRmzmHxKx5BEYuI1W6A2XRA6grNyCvXOCamkd+/TwKmmahbp0lJ9NQ d0xC2TqDwq4VaLoXoOmaQXzDJDk5PC8A5Oi8CLBlXrnv+dO3eP4IrQ1p6DVk mjgSzq92tbkOd66hL+9KKWApLjhHnc/sJa4TVsI8XuILayX+yptJJaASF4P1 +IWPhg0bwUd7+2jY2Ubhlk2U6Ty0QBsr+AsDI25cN02cT/jA0R/TjiM+hrJz jpJgb22JT62L8QtnFmUu3z931eCvArX4PFSLC1HkyJ+NayotOW8Y/mzWLSRa 8sIQlcX1o2YFKySKhFcVuRBKWJRZEe0IW/rjLXIkYgrNWHiAPzb/DK3aZhhI kKF0ANq0SugyGpAdp4edRyfc7ozBK3AG/uGzNMR5JuMFxIgX2GgvIihmHWnZ e8gr2Ye6hom2egmK+iUulkUUtC5A1T4PVecsCnvuQ9O3SawTy8Q84psnEds0 JgyEIT2/w3VthHTt/OWVf8JQf1sGhtpFcLK8DGcy9FlQJjOJBJfCpKYRogI7 Fq7RuOEqnGcQDRu3GNwStg7dyoObjxb+YYVc79lw4tc5ORNcbU5OdEzCwT4K 9mTqmr0UVyxFZMkCdyyuIj4m6mcfYzMrVxgZCo+Hw02haFrito01XIg7NNov XVg4BSH46XApWGcqnp8HsB1NG4EPGfItbIdVmg4W6UQmcwoZciBDDkXNjNFN 54VTx8LJyGQjRCZty8fYbChuITM9xCjZmeXjCvRpXJW2zKheg2y55uEXTibi lhCatoxo6QoSclcQGLeF9NyHyNM/gqZuCzm1q8htXIGyZRn5hiUo29ZR2LsH Tf8u1APbUA9uQjW4jvi2ecS1zSC2ddzktlLTan7k/dMbX/4Y/a3pGG7PMM96 FeOz4HQ2C2JcCpfyanC5uAojrs8JsSYZNm6xsHWPhT1hYV8AT79iBEYUIigi C84kysVdQDRc3Aj+m9uuUSQpCjdcpLjuIME1q0z43byCiex0fGQlNIoR5sr5 lB+bG3DmEnO9ZQ0fMhJgdxPBxAUWg4tMmRcDzhPm5yzuDuk0HHrbHTUjSqoO VgIrGefM2JIZOzJzs0jYLdMOawFFBpa/Vpa9aDrqOSst6hoYtAYYSoaIabKy xMcN9JbsYKR4H872fXDyYZcQKjCxirtpa4iUriNWcQ9BCbvIYJuXzzivbtiG rG4dOU3rkAsHNjHSF/Y+hmbgEdRD+1ANP0DByDaxiRjDImINNMe2SUQ2D0O8 9vjOOSuW5iaytykVw8IEXvMwU988Db64m4kLYRJcjZCahtpf/SkrZMNWOE2P cCQsHVW4E1CM4KhCBEdL4Xonlqs/5hOuoRjWHLc70XD1JkFe9DXnSFi6nx+h bmGdgbWSjA+8OFhfZKm7yhXCKEJeXBkvfT9yYoNQextEONgw9cvw/91pwZ8E teJPQvvw87hefJbaiy8yDPh5chN+nj2Ev8gaxA1RBS4TFzMrYKlqN22xsFC2 Ijk24UO5M/PyM7RpasmLME5yjJgn1tFRvI0+7T5GtQeYKTnCUvlTam8TIbE7 CErZQKh4E1HyLQQnPURGwRGUVUdQNe4gr/kYBYZjqLuOoOl9wlVyCBVbrYKR x8gf3Uf+2APkjW8jup2rjsEgum0akQx9Pj8l5WcYEmaKG84J8VGq4M+YGsSe WfAuC5JyxexdliTjpnscl0kcCYnj4k6Ak3BQlGsRfBmjguOLmWGk8AiIh0dg HDyCYuEeFMPnMXAPiIabfxRsvSJx008CK08xovn1kcEaLGvT8UfmN946WzLQ Sx91tLrIJHLVNMxUGP/jw2Xjb3u+ZL4MZNVjKhESyWXiKvFfLBJxya4Azr6M Cv5Cj6jFX3pr8PMkIZH8PFlIJH+W1o0vb4rhZ2GF5LhkIumcoth4gaIPDBnU jTAUDsBQxFWjXSE20cny3q99jLHiI8zqT7Bc+QIbtWesLveRIDlBcu4J0tTP EJxqRIbmGZQ1Jyho3GXJf4b8jmdQdZ9A1X9M/zpCwfATsmNE3thjKMf3EWng ymtfQWTbIsKbJrHX1PiBoRvmxTzQmIJRE0uZ8FHkwS9fg0C2kiFk6XIozYem ds1VmJ4eB2v3RNzySGLHIJyWlwKnO6m4cEvMK18K/8hK3E0RmCJLocnsIpLg GSYgga0kGQslU3djYOcfCZtgCaz9xYjPKEZMfCEiQgr+jTmzdTano58kDXaI MURvdba+ahrN6cG15Me19GUQffauEEuicYm4Yo4mN4if30iDBVexOwm6E66G LcmzZZGzc+SjA2EXjVu3omBhyVhyi0RfzzQRlRSX8CGWfCRK1QqDZoRkcRkV rhM76Cp8iIGiQ4zrTjBXcYqVmjNs1r/BbvNXeNj2NYIz9pCqeoHg9GOkF55C Xvuc2XkHua0voOw4RX73c+T3k7TBE+QNH0M5eoSI1vsIb9tEWOs9hDWvYq9n AXtdo9gztP02Uf8PhptTMdaaAZ+cHPjlFSCggD6lKkGoqsw08dAiTM6llARL txQupTR6WwbsPRns7mTitr8IFx2UjJxVdORa3M2ogEdEJjwjM+AVlQ6v6DR4 R6fAMyoJHtEkLIoNcgivGJdoolKHBDa78RlaxMarEBooxx+a2Rqg1w5zaY+Q qdEuCVysrsLd2oJMWeLCh4giMCV474elzopnRfwV44aVs4bpSgvfCBXsXWLg cFuAOZo4mOOJXRQsrRhRGCQv898IbCXGxSEuOuojW/kMb6pxLq9FsrbBxwfo 1Bywyz3GuP4Uc5VnWKl7g62md3jQ+g0etX+Lw87vke/FxjpyB6maM2TVvICs /gw5LWfIbX8JRfcLKPpOkTvwHBFcbmFNO7jbuI2Quk3sDe4TW9gbWMZe3wQZ 6/jA1lXzPRQ5in4o8wehyhuEKLYI4hgtMqOKYRWrIXsqBJmWWBnCVVWIUtci js5w5XYarNyEg7WEJSUxHRfgxDrhHJxFrRfBx7UWmfFNCJXUwDNGOBrOm5b4 P8M7XkxkwishA57xqXBkn+OQIEdacSWSNXok5enYUGjJoAbRsXn/2kzeIHPl SEcmRs3j6sc7JXAlgZ8FJDP5S3DZHGcE8j76NAunNeOMEGl+YSllziyET3Ax AiIL4ESXcCKxt50JFyHGmLMmo4w1SbS2iWD8kdDTNUiIi/3ZB/KUXSRwEoaC ZZJ4n3hI8g4xUHKC8fIXmKt+jdX6r7DV/A0etH2HRx0/wNj9I/J9Z9CZ9g5H zX+L72e/w9nIr/Bq7Jd4PfYjQvQP8XLsGzwfe4eno29wOHqGxyPPsT9yhL2R R8Q2weU2NEUCuz+Qd75t+k+g0bARKBpEGVFDNBQOokUziNLEIugTinE7Lh/O iYWEHrcTq3E7oYFLsAExqmbEMywlFRpg4czf1Csbdr45cAjIhVNwLpzDFLjk Vg7/O82QpBqQlVtD0nLhnSiHd1IOvJOz4Z0ig1eyBJ7JrFQxacisqEe6vgap JVVIUpNMZTHJLERcWh4kJcP4v8w7dwZa0szRJ9M0x32CbM50SuGnULGXyzSx eTVcZuoYrnwIqAyeVqy8pihEfGaZzZBaCL8QMhrFisfPOXvGwsUz9hN+EGKQ i2c0nD2iYMO20MYpgqtZghuOwhBRFdIl4x9XZC5jiHIKhrxVkrtNch+hs/AI A7rnGK84w1ztW6w2vsNW67d40P49HnX9CGPPL5EfsIZe6fc46fgNvl/8kST+ V5yN/wqvx3+JVxM/4OXEd3g+8Q2ejr/F4fgrPBoTzgE8xt7EY2IXe+Nr2Bud 5ur8SOoF8/3gJUX9KCsZRCXRQLQRXcWDTEeDGCTJTclatCQVwzOhAO5s0T1i S+AVWwHv2Fr4xLJuxjIFazqRUtTNldUD2+hy2PorYR8s7H2mILgELl3VISiw HZLMTmQJI01TCuCdmgfvNCW80xXwSs+FZxpbMVEJJPVtENW0IKOyCWll9Ugp rkKyQLCiEAmyfMgqR8zk/iuMMNeOfZxtLsZkhwy+8jwE5rMjFjoPIU6F0yVc zzPudS5TSxOxjFSMU3Ye8fjCiiL0IrHh/BnjVHC5kwhXnwS4+sbDzTcOrn7M uq5+0fjvaD7CCXkRsL7DNOUhQkRUESSa6Y/k5pDcXCYYxRpJ3iHBj5lijjFQ SnIrX2Gu7i1Wmr7BZtv32O34EQ+7fwlj36+QH7yLQcWv8Lz37/H9KsklsWcT ArG/5OOPeDH5Pcn9FscT73A48RqPJl9gf+op9qYPCJI7tU6SZ7A3/JHcL8z3 I+gKu1BRMoAqHcktJblED58PEmMkepJEz5DonhQtCZWz4Cn4SEuNLUeEB22R FybWU484z3LmzG74xQ0hnf+HqHwIkuphWAcV0FY1cI4pxKXrlQgJ7YZE2gsZ bdsrnUUsQw2vTBVBH0xWIqetD1ktPZA2dUPc0IHM2jakVTUjtayORFcgmYU7 iSszViKHpKz3980vFQ2xhxn7MOWYPE90SDHVkYUAhrJgVoy7KmGHlBCds0yL 2II833AXglnCPwYzzxRcsNbAxbccgdEV7Lg0cAtIhVtgCiNzMpEE9+BEuAUn ELE0KEZnH67mQIYyXxFieYlk+lkSPvnH5rdz22SsrzlczXISnisQfoCOoqfo Z20dq3qF2fp3WGn+loR/h53OH7Df8wMO+mnRoY8wov5rvBj6e3y38T1emFbw D5/gjEz/T3gx9R2eTX6D48mvYZx+g4czL7E3e4K9OSPxgM/J9zT5Hu39wPf5 wbx/jvKiTlTr+lFHjpr1XMjEADHKP0+T83liiZyvEqOp5JxBxie6AFGeSkQz u8d5lyDRpwzJPhVI8alGakAd0YDwlEGIq8YhrZ1AVsMEW9NJyFsmYW+ziJDI Pkhy+iHTNMExuQh2UTIousaQ2zkKeccIcjqGkW0YhKy137TpwU2qg5tIC9sk NW7FKWETlYWboemwCozHrTARwkNi/0/zS/KjwvxeluNxA8twu8Q03dpfWcCU oCXnOoSR9wh1GSwjcri+48l7Eo07ha6bRt7T2TKdD5q4ZMdvGViDoPgaBKcU wz0kk6GbCMtgCE+He3ga3CNS4BZOrQTRG9g+2YTKkJjNjCfRIqt6ltxPQVI4 am6bfoYWUTsMsgkYsmjl8vPVLpDfp39B8l9jhuQvszZvGL7Fdue3jLCs0f3f IS+CUbnkb7iySf591mJa9+nkt2T9W7yc+ganU1/jZIr1e/orHMy+xsM5866j BbK/QPbnyf7MNDaHuz6wf/6y/1+iUttB5nvRoB9Aa9kguokhYpIKmCOWqYI1 KmCT7N8nBkJF8I2UI8Y7F7E+asT7FiPZX0/GK5ERWAtRcD3EoY0QRzRDHNmK 9PBWSBumkd08A3nrLJdbDWyvRSLkeiRG+/lrT68hr2eGOD+aWdEzhdxuqoVq 8FLWwS1TAbeMHLilZcEtVUwVFME1vQC2dJ5bkWKqIMm0Gz8mNB5Rd+MQGRKL /8O8q2qsOQ3jrazhbZSBQbD5XAQyMIZQCqEFpQyMFYjSVCOWzb6FaypuuFFR 7pmUAkOjJ0OjtxSODI7XnCsR5d8ISXI9QtJLSb2MkZ+IYn8WLYV7tBjuMZlw CEuDXWgKy5mCrlTJsFiGRHkJ4iWFyK6ehqxsHCJV3x+ZX/tqEzFmS5jUsrbN SjhGL21ghDYwXf8Wi2yG1g1Ma53vsNv7NfYHvoYy+immKv8Wr2b+Ht/sfoVn E1/j+eQ7PCf7p1Nf4fm0cHD9GzyZe23aoLBv2qBA31+i7y/R9xephNkZ+J6r 4Hw27qeoKmpFg64bTfo+GMh+DzFMTJUNYUE/gtXSEWyUjmJbP4oH+jHslwkv SaXBnz4Q76tGQkAJkgPLkBZcicyQGkjCGiCLakJ2bAuyE9qQk9SO7KQOiOI6 kN26ALlhAVevJcLPMgMpbmIoAjNRFJEEVUQ08vrmoeybY8cwCw9xoWn0qrtE dX7uhFgJd5Ec7hlZcE+nGlLS4ZqqhB0j/K3IVDjEyxBHJcTeJULiEE01/IsP N+fWJ2OcLfF4qwj21tcIC3weHI+gPA3u5pcgrID1S1WDaHUD4uhLiYWtzOjC UD8pFZEFuztMn35yODGB3rpexf+/leGkGSHCFl0y7hGbC484OTzic4hsuPNn sadC7ZluU0sakaKtYwtRjWR+n8RcLbIbZqiKCapiGB8k0ZI+CkPmAk1ii3Hg IQxFR+jWP8dw1UtM1b/CfPNrrBheY6PzDbZ73+LBwFsoYp9jpu7vcLb4G3y9 95olnxKYfENDeI2TaWLmFY7nznC48AKPlj7c/M+ct8Kct7JDWaxhZ2bqgyQ+ NT1cQVlBHRpLOtBc2oNWfT+6KIXhshFKYoySmMAavW2zdBq7+hk8LJvFQeUs Dul5/sxOCf5qJAXqkBxcgbS77LRCGyCJbEIW5SBPbENuSjsU6R1QiLqgFHcj V9SDHMMSLlqk4qZlHsI8CyGJ0KIwpRAV0nxUZEmQN7gM5cCSaf+bRxazpQmF 8JSpCWZMiZLy4OXPlFEaIrinpsIuMRu2MfTzFDYPMUmID4s3yyMOsazXUfTs qnoJquskqKuVoqFGivoqKeoqJKgqFTOjn98yFh4RCwery+evRprffPvCP8I0 C/7S3TRcE1q8UDmuhuYhhk1LvKYdSZoONsNdsHDJhs0dBWz9lHAIzMMXTgVw uNWA+IhOxp42BGXSUOL48ydQ3olEEiWepIBDbDYyqzuRXtmBtHJGntJm/n4G uFNy7il1uJPRgjvJdexWK1mXipGf2f+H5nc56hIH0JK6gDbJJoPlHvv4Q3Tp TjBQyVBZd4qZphdYNLzEWucZNnvOsN3/CoqEl5hr/m84W/0N3j18gScTZzia JKZe4njmBRV0iicLz2FceoaHKywtq1TQ6iHBFnB1Bw+W1vx+KqC/QoO2BS26 DubHPnTqhzFQNoGJsmnM6+ewql+geBbxoGwJDyuXYaxZwVH9Ck4aVhAYoTCJ JyW4GmkUTkZ4C8XDDi+2A/KkLgqnG3niHuTLupGf3YcCeS/S4luR46tHzp0B 3HKpQHh4HWQZDdAq6uhtlagq1qAtuZSCKYNnNpHD5zk6ohhe2UWEcA5rAYWk hKckGx6ms1hZ6FOTYJsoglO6HPYJKUgMj/8dOFpdY+JyvHEVXc1S9DbJ0N8g w0C9DIO1RA2fV/Lz5VJ0lUph0IpxvpXiT02jnyMj4hAVEQ9nqysfp9QKr8pd CmQzGZxkmtZyPTQHN8LyYRWuwc3wYlje5eXQ8Ncs7EcGi7CodAiWd/LZL6nx uYsezk5tSIzrhTinA24JhXBPpGUmEylqWmI+C/AAxPUDENX1IUDRhYDcDvjn tCEgqxl+1KCfqAnBknYEZ/IxtRqB8aVozWYfJ2ULkMnmPanPfLv5v0Fj4hxa Mu6hNWcXbaoDGEqeoKfiGMO1TzHZ+Axzrc+w3PEc692n2Ow7Rbbi1xgbe49n xvd4efIVHo+f4mCCQpp+jsPZZzAunOCAFerRyhH2V81bPtaZW9Ye4QGFtbGw BLOyzsdPp6JOXYeW4la06XrQXjqMHlrRiH4e0/plLOlXcU+/jp2Ke3hYvYHD uk0cN2ziWfMWTlu3EBSpRkpIFZXVSGW1QRzVBRkvXU5yPxQZA8iTDKEgewgq xRAykw1QBZejLKoNtelDaCp5iRt+dPzkTogU3VCVdEJf3YKx7hPIJDUQJyjg HCGc7itAT5QSbH3l5pN+s/OpMgU8pVSYREyrSoWLTIvbrGoWEaFwvWUBVxsB 1+BGabhRaMIQ9IlmGSYps2nKbJoym6HMpimzqUoZJsplTOpSDBZLYXf1snkQ MiUWGY9oQngVyo3Vzp0Su0NcpuVdDU7DJcdoXHZKNA1BtrgtgqWzFNbOWbBx kSO9eASZrPbi8jFImOBlrFLW19qQEv4YiUmUkaITN4OykdM8gewWpvuWcWIM suZRBKkGiQGEymoRLmM1lVWwMytDaHYzgqWtCBcGJFNy4aJahKXqMSRnZ5k1 iD4JOw9KrSNl8F+Z7/NpEO7Cl+2imS1Si9aI9rJD9FU/MQ0wmGo5xnz7Uyx3 PcVazwk2+0+gGn2P3WFak3Cq+vhTPGS/+3DmGI/mj/Fw8Qn2lw+pqEPsrhlN 2zt21w+ws7aPzZX78P+pwtLRVNiAtuJOGHRD6CydQn/pAsZLVzFXuoHVsvvY qtzGXs0uDup3cdz0AM9b9/DSsIdXHXtIDtKz6Am+ZUBmFHvb2H5kJQ0jN2MU StkY8uQTSE/shTy1F+UxvWiUjqNds4guKrajfgM9G39Hkx9gKh2GtHIQufWd aBv/W4jVvMrCwGaJDv5J5fBWVsBLwUdFKUGV5dLH5FRZTh6VJqfS6GHSdLjJ 5LBOYrqNCYWH3Q142l6Hl60FvKg2b6rM2/oqvG5cYeMhwzJVtkqVrdYRVNhy lQxLFTIsUGXCJG5ni6twvnYVTleuIobqiiXchReqrSxwx5om5hOCKwEJuGgf icuO8bjidK6uG1SXlVAIXXJh654He698iMomIa6cgrSGybhuGhZfRMD3YgTi r0dAZBth6hbkwrGbbcxJhmlktU0hLKcVYfIWhMubEClvRKy8Hgk5NUjOrkQa vT1DyhwnaUZ0dgeV14hIUTnCElWYzmGWpZmNyQZN07aHUgfRG9v3B2alVUXO oz5jG43yR2hUG1m2jOisMKK/zojRpkNMtZ2f27/U/QSrvU9wb+AIm0NPcH/0 CbYnDrEzTVXNEQt8vmTE9vl+D2xRZffXhccD3Fvdw8zM0gelnd9ImYna/Aq0 Mn0bigdopZOs0wsY0q1iSreJRf0O1iv2sVPzEA8bHuNJ8wGetR3gRYcRr7qM eNtjNFXJ9LBWZEb2QBQzCGniKLLSJpArnUZK3CCVRy8TzaA4bxlthVvorn6A 3rZd9PZso63/PuT9G1AMbMIyqxvK4U24VP8afqoFxJYsILNkDtlFQ8jJa8Dd zCo4x1BteQKoOCUVpyykAlXwzGXVlDNipbH3IazT0mAZF4YARwsEO1gglPCl 6nxvXYMfFefL0nfn+mX4MPr4ZJTCN/184q1Pkg6b1eyrblw2j6Omd12nd10j rlxDPNXmYXkNnlSbj9UNXPYJxdWAFFxyiMMVxxR62fmIaUsqzdqVKV1Qmjfj FjsUR39Gyuo5SGvn8eUX8bh9MRNRtlJIvaRQs63XhsdD3r6AHCKxepIK60QE y2SEoh1RyjbEKluQqGhCiqIB6bmMtPJKSLL1ENHf4lgL4uStiM2qRlRGoWna 7ZJiEAv0tjmW0Wkqb5IreiSh9w/M72lUxqyhVrKPOqUR9UVGNOvPj83urzdi pNmIyTYjZknzgnB8dp8Rq0NGrI8ZsTFJzBDzxKIR95b5+VUj1qi2dSptjVhZ fYyZ+U0E/FRpIjQWVFMBXQwk7DGK59BbsoqRkk3MlOxiufwhNmoOsFv/BI9b jnBkOMbzzqd41f0Ub/tO8G7gKXJShONxWfmiBiGJo9unTCEhgh4VOwZl+gIK c+9BV7yL8qqHqGx6iO6+Q7QPP0ZxzRSKq8ehqhxF7uAmFENbUI5smTbbCpsa XVQrCC9dNm1zzWIzEa7sRXhWo2ncoDd7Je98VtF8VlD2aV55+XDNEcNGCPcZ abhFWCeE4K7TDYQ5XkckFRdFtV0KEuOLQDG+DBDhAhGSVYq7UgE6hIp0VDNB 1X3pLsIXLmJ87iSGF5XlfYOeaEFcsYAn/+xleYNqtcQVnyhctIui0pLoacII PAmuU2WWLgrYuOfjlpcK9r6FcAwswu2QYjiHlsDKUosLFxXwsitEol8JFDEl KE0vRKVUAXnHCpJqZ6iuXkQoexCZ34Oo/C7E5XcgMd+A1PxWZOQ3QcyVJ1XW Iiu3ArkFbJoKmpGYZ0ACc21cthZbhYPY1AzinnoQa6rzOcuLVN28dABTKT3m bdO/h7L4DVTJHqM634iaYiOayozooNx6Kbch87HRU5TabL8R88PnG0iWKbVl 8waSZUptkVJbWBVuDF407SCZXz3A2Nx903f4LamJ0VLQ9PG9+Q7tMvqKNzBW vIM5/UOsVtEP64+w13wCo+E5nna+wIueF3jd/xLvBl/im+GXSEjrptSYZ6NH ERsgnJ41CnnCIlRsi7XqhygtP0RZwyHKDYfQdx9CU7uKwvol07i94oZJaOrG IB/aQO4wMbIBd0U9PJQN8MhvxDX5ApzV8/AtnENIIeWmGjYt8lAJ5aYqI3Tw UhXBXZkL11wpHKRS2EsotUxBakEIv30DUZSbacip8KY+YXFXjBvM7VeDzJMW 2V5EUXLRMoLl+qo3A5YXy6AH4SrG9dtiWDiIcfWmCL4WN+DyF38BX0tL+FlZ 4+qdOFyyi8Nlh1RcpSyv3c5m+VTAyjUfNp5q2PkUwSGgGI7BJbjsUgLny1nI cRvExet6eN+pRVJMI3vqRpTm16KyUI+BnDq2VG2U2ADRjyhVH2JVvUhUdyNF 3YkMdQfEqnZIC1qRTd7k7PvztL3I13aggC1csrqJktPjAQPhA90wdnTnLwRu FJlllzeAZbZhM6mdf2B+jbs4aRNlOUaUq4yoLDGigaW0jaW0i0rrMxgxbD7D dWL4fP/JNJU2TaVNU2lTVNokS+gU1TbJMjq+dBD8U3FJ0FrQwY521HQ/QWfR Oga025go2cd8xQHWao9wv4nxr+0Uh+xuT3pe4WX/G7wdeouvR97iu9G3iGd6 j/RmU+07gKyweShTN6DOfQht8RFKqo9R2vwUxYyWqupNqOs2oGlcR2HzCopa FqBtneHjGHIG15EztA758JrpZC4PrlNhSq5wOLMXYa+ah3fRHIK0swgrGkeE qhsR8loECq8eFhTANZ/VSUxxZcngIEvn81REOFvhcqgIV1zDcdXtfITnDcLS NYzVLBTXQ9gYBosQx65CmCcYn01QZLd8RbhlHuMpvHJ5003CJC+BlYMEljYS RH7557j981/Az/omhSjcf5NIcWVSXDKKK5fiyoe1uxq3vItg51/MzqAYts56 BNqUIdqHAogeQEfzj3AJ7UBsRg+y6FWF7OuLyusw1vIY8gwDxDEViFQPIZpe FE8kc/Gns1kVE1I2rtmabsg1HVAUtkKlH4aqrB+ask6kFBuQpK7E48ppYhKP KiawXy68xjiM+xTbFkW2qerHmrwbs+mt5jfx/jmK5Y9RUmiEnj5WTR9rbKTC WDI7mYp6WC77WS4HR+ltE8Q0n88aMUB1DS7wkeidPUDIb8uqjb+WQTVJaS2h q3ATg9oHmNQ/xkL1EdYbTrDdcoqH7Wd40v0Gz/re4mzwHb4aeYdvxr5GdWAD ZkJaIA6iT0UvoyB9F2pW9kLdMbQ1J5TPcyjLdpBXtYOC+vtQNW5B3XIPmrY1 FBnoW+2zKGpnvB9YQfbQCryKu+GWJ5x31UC5UFoqlkp1A7w0DbiRNw837Rz8 S2Zwt3gK4UX9iCgQRoWWwKVAAQc5kSMMZE6HrTgJlymlq+7n4ymFOfA3fmsO fBjshDnwlFaSUo8kNq3Jcj2s/UWw9xfD3k+CW3ahuGUTBlsBN/lvLMNhQ1hZ peL6pSRK63NcvMnSaJtCWdHTnHIY+fMoXTWsPYtw8ZYWNg56OHs2Isq7HUmR w0jPmIZIOYP2pb+BBYOrv2wIiQya4vIe6Af/DqKCDWTnLyBXPgx5ZhPC4nuQ xGWUph2HSCucBc6Qqx2BnD6kKOlDnq4L6qopFFaPoqimH2mlgrTqcMSacFS3 gMO6ORhZbh9XT2G/cgy7ZfSxkn7cpweu57ab9/L8L1BRUupyI3Q0qwqaVR3L YhNDdgvNqo1m1UazaqOk2mhYbVNMbXweei6j860xMtRllaNN2Q9DwQzltIYu 9TaGih9iiiVrsfYp7jWdYqftDI+63uBJ71d4PvA1Xg1/g1K/VowGdWI7eRHP ih4hN2ENBaJ9yugA6pIjFFQ94yrahVz3AIqKB1DW7iK/kXJqoZza6GAddKmu ZRR1zRMTkPYvQTa4BBdFDVzzak0Hfbip6uGuEs6yFs7brYcn4VVUD8eiWdzR zSC4VJhtPogI9iNhzPj+mfmUUxZsc2T4UiKjjCJhYZ5vbsXnpnmLhC0hzDZ3 cA+DDctgKstFKuWUptCzTIlh5xgKe0dKzZFfQ9g78NGB/8aez23DYWcTgZs3 We4upZzPNbdNw2V7fj/HXEqpAF9cV8PKWgcnVy6FgE74Rg8jNW0OGbnzdJkF xLFnckthSuqgbDo3kNNN9GzCI/s+y919pBdtI6voPvLUy+wUp5GUMYT0klmI i2cg000jh7+3omwceeUjyK8YRGEDnb5hmlFilOhDamkDnjXfw0nzOk6aVnHc uIzDhkU8oqz22Ss8qBhhaezFNh1uVdmE8xvw/hmyyh9D2WCEptUIbacRxZRS Cd1J23OAiH8iG2kN2nKHYODqNuTfQxepHtI9xlTlERbrn+Fey0vstL/Go+6v cNT/NTRcSb1+fVhNXMOB+givm7/G96N/jcTkSeTn8ttqjiBmWpLk7UBWtIcc /R7kVXtQ1D9AXhNl03YfBR2bUHXRhXqWUdg7T7Ah75uHZGAezsoquOTV0FEo HVWt6awmd00dZVMHzyJCWwsPwlI9DffSKfiXn58/EK5rQ5imDCHZObgoL8BV j0hcM0vGNJubuOUZCTvCnrJxJJwEuIciPZ8NvLA3hCnK3iUUDix+jgLc+PcC XP/x0dGFuB0Bu5tBsL0ehD+7lI9LtzIomyx8flmBG1dZzOz5s99ph1fYIHwT xxEgmoB/zhTuKKfhksTlkFoPt7R6yCibLOH06u5NhJWusFhPwE58H8GaR0jW HbApOURygXCv9TokWTNISxtHdtkicivmkVc9Y9qwVdi8AW3LKopbF1DSOo2S lmGklTfihWGX2MZzw3227ps4alnHQfMy2/l57NVOYq9ykMmqC9vaZhT+VBKX UCOqQ1vOCAyKBcpik5J4gKFSJqOqYyw2nOJe6yvsdLxh+OtEq9cgZmI3sZv/ HCcNP+Dt8K/x3Qrx4Nd4ffBr5IsfIV9OSUi3Ic5/AKl2H1ll+8ip2UNuI2XR sou89m3kd22hoPce1H2r0PQvEJMQ9c5A1DcDJ0UVbudXw7mAslDRVcyT7NyK auGurYF7cQ3cSvio49cUlcBBPwbviiEEChOT9K2mWWPX5So42H8Y1R6Nm17R 7J2iYGcaSxdjGk93m3/+BM5eUZ9ApKnC78IlMss0r85JgFf0J7jtHYXPcPtO JJzvRMHZO5KfISgpB6dgOkswLjun4E+/KGGBUsLWugy3XVrgHtgLbzqHT8oY fCST8KQTOMXV4XYie9CUBrimN8Ats/58KEcXJUEXCS8YQ4Rmio44h0jtIt30 MYLVRsQVPqHzGCFVP0BOwRpy5NNQ1Kwgr36RrjzHYr6DYi4vXecqSjsXUNox jvSqFpx1PcZZ50O86NzHs44HOOY1N9K9H1I6e42CJMaxV9WPB+UGrBXWQPPT jHIDrVmUQw7loNxEZ+E+hqjMqeoTLDa+wL221yh2GcdQ5DZWc1/gYc2vcNL/ D3i18B6vt9/j5OF7/LDwS/y4+CskxPHHlB8jT3MKUd4+xNqHkJZTEjWUBOUg b92FomMHyu4t5PdtoGBgFerBBSi7ppDePYmMXmH4UwMc8yiJAuHQuWrTiDUX /sguRdVw1RIlVXDV0UVKK+GoLYF9QSksS4bgWt6H6yw61/n1HsFyePllwM1V GCEeAxuvWEohDvbe8XDyTiCtCaQ3AS6E65141v16SFjXXWMVuO0Tj9u+hF88 1eIfT0W4BMTBNSAGLv7RfB4NZ78ok0IsrYVbZtPw2TUtnBz4I3ka+K174Rk7 BM/UUbhkTsDWdE5vHRzj6nE7qcF0UqGgCFcRv2XHGqRda5B1ryFMNYZwDTv3 ogVEFK8gqmQNLtlHNItjJGhPkKk7YT05ZCRhfS5ehjxvBoWdB9B2P0RJzy50 vRso7V1Gafe06S6m171HeNX7BC9ZG573PMZx9z47lx08at/Afqsw6HAWe/Uj 2KvpxA4T928p4jJaJGyEshZpElsmRQyWHWKy5hkWm14i7vYmGpO+wb3y/4qH Xf+Ao5n3ON54j0e77/H13A/4bv4HfL/4A35Y/BE/Lv8IJX8NpeoUSt0rSIsO IS57BAkVkUVF5LQxevDHUvRsQdG/gbzBVRQMLUDePYHkrjGk9IzBTlELB2UF HPPJuKoKTuYxYM7CsYTCZGudsKO6EjfztbDNL4UtO23bgmJc5t9fKGzCp9EF cAkrhMddFe4EyXHHOx2u9slUQwocvVOphjSqIQ0uPmlw80uFm3/KJ5DpW+iV t/2T4RyYQqTCJVhAClxDUuB2N5lIhOvdBFx2ioeVozDUOhkeHhLcuCM05cJw GAPcQ7rgGtMPh4QhWPpX4GZINW5F1MIupp6foyKS602Hs7pkUnziWog7liHp XEYIU1OYmqmJvWi4dhnhVEO07h7iSzeRrL+PQM0zxJedQlx1ilzSoqo9gKZ6 i73PHLR9BygZ2EfpwDb0A+vIbB7C24EXxCneDDzD2cBTPO9/gqf8usOefSbG bey338Ne6yL2WoQNCP30i8bfVoQMjZljaJPSI3I30UFFDFARE/zWC1TEmuE1 KoveY234PR6svMfG5nu8nPwGb2a+wbu5b/HNwrf4bvE7fL/0HX5Y/g6x4XNQ 5j+DovgVQydRdwZppRGSxn3I2h4wbO0gp3cLuf33IO9dRW7PPKJrBpHQPozE LqJnBFYyHezyyrn+K2CvqYBDYSUctHwsoVJ05XBmabChGm4V6HBLdb77+oKq HF/k6fCZfyGsQ0twO1wPz7Ay+IYUwd9PAR9XEf1BBGe2vS5+Yi56MdwYNB38 05FV0YHsynbTyEUXhlFXAWyr3cKJiEyCKcE1HTauVBNl4OWfC78wYeRyIYIS imAdlIsLzvX41KkTl1205yOXKQmru9WwoSRsY2thn1ALxxSWjvRaOItq4SKp QWb7AkQdCwgpmcJdzTRCaRBhNIhw3TqiKId4yiG5cgfpNTsIUJ8ivvolxI1n ULS+hLrtKbSteyhpWoamcgqlIw9QOryJjJYRfDX0mniFN0MvcTZ0itOhp3g6 8ARP+h/jce8e9unRex0sH+1z2DMMY6/Z8NuS+M+oSxlFi2gJBvm5JPpYNsbZ ls41vcCq4SXud79C9eB7GIff4OnYW7yY/AqvZt7h7dw7vJtni7v4Nb5d+hrf LRMrXyMmZpWd/CnkZWfIrSX4/4hrHkPSxDJCWQhHwAnVM7uX7WzvHKJaBhDd NoiYjkHEdg7CJqcSlsKe/xyWBEXpT0Yp6WkQLbhNSdzM130CG9YMJ1xghfk8 v+J8QKlHHMNDMq6HVMExvBZe4XXwD61GYGAJAu8o4OWUBdegbLjfJUKzkFXV y5AjoAcuoTK4hmdRAfyayGy4RWfhkrsMNh4yuNxRwltQV6weQSmV5+OAJXoE SItxIzIfFz2z8XP7BlyiIq4I44ADKmBJRdyMOB8HbJdI7zMfgHVbXAPb1Aqk G2aR0TGH4JJJKmIWd7VLCC1eoyI2EFm6hbjybSRX7yKdmVzUvMdLt4fo+lcQ GaiK7jNo+p5Dx1ZBz4xe2jyB0tH7SKNJvBv5Cl+NvMGb0dc4G3mJ05HneEpV PBk8xOP+R9jv28VeD42ih0bRxUDR3oXVaq36p29xytCUtoTW7C0Y1HvoYawc rT7GTOMzLBueY7P7BR70v8TB8BmOxl7h2eRrvJh5g1ezb/B2/g3eLb7F10tv 8c0ysSLgDaITNticvkROFdHwghmCAul4Rk845roQzgTcgJSdRljlMO429iG0 qc80PDPc0EcxlMNKXg6LHB0scktN+1kdi1voD61wKm2Fo/58ZK019WBVIIyr rcIldgGX3ePYXaRQERm0cgkuBTTCPrQFnuGt8CdEfmUQe+Qg9VYc178CHpEK ZNcNIqd+CPKGQXiJKuEWlUslKHDJQ8E4qoCLbxFVVQ5/rvGgjCaEyIjc+vNR tVkVcI9OgHtEDK74S/GXjhX489uNuERFXKVHWNytglVEFW7GVMM2oRp2woHV GdVwFFfhVmoZUtumkdo+jcDiCYQUziKEJeMuS0YYFRFBf4ilPyTV7SKNFTez dZ/BYx95fWeIrDlj7nqF3MGX0Ayf0hsOUTawBXF1J06TW/BujP49/g5vuHjP xl7jdPQlno4+x5PhYzweMmJ/cA97A8ImmxXs9U1hr7sP9xr1+C1J/HPUJS6i WbKF1oJ9dJUcYKiK8bKBDSjtab3rBDsU5ENakHHsBY4nXuL51Eu8nD3Dq/kz vFk4w9ulV/gdfLV8hii85cfI5E1EynaQVXeK7JbnyG5/huzuY+T0GxFbs4ro 2kVEsIHyruyFb10v/CgJvxYu1oVD2KsMLBWEth12bI7sS1pgrxPQCntK4joN 4QbxmaYeF9ksXmKEvOKeTDlk4LqnhHEyCzbecnzh3m6aqRp6twtJ4V0QhzVB GlwMsVcmoiwSKdVRyBvHkNtMtIxSBgwhVikIclIgJkiP1MQGBIk7TOPWQvLb Eahqg0eKMNRRCo/ETHgkpMIjNp7UZ+OivwJ/4daCix56XPYtx7UQ/owRlbCK YegxH+0sHJZ7M4VNrqQeSa0MT4ZJBAij7TTzCNauIKT4Hu7qthBedh8xNIcE mkMKpZDevg85paAcPEPByCuox18hsfc1skfP+PwZdGNGiJrG8N8a1vGrwnZ8 NcGyPvEOZxNvccqvfUrOnoye4PHIE+x/2LYzvIa9oRns9fdjs63igxw+Ncuh Pn0LzYp9tGoP0FtuxFjdIeZanmCl4wibvcfYZUB5NHICI7/98eRzPJt5jtO5 U7ycP8XZ4ileLZ2ykXvNj/+Sz5/j5fJzhKXdQ1j2NsLy7zM0bZ17Ydk6IitX EV61AAmVLR07hGySmD5E1hxBOdjysttRDnZFlENxO2x17fy/bUs74IJb/HhN UYGrcl72gEhccImkTydSDumsFwx6HtmUQy5ueefBzqeAKUGN62F98I/oQ1xc PzLjeyBl9B8UtcLlYijCL4ci5UYoEh3UlIGKMqhCSpIBmdm9kBT2IaigDwGa HnimF8AzIx8e6Qo+pyTSpPBMpiSSkuFAh7gRpcFfuDfhi9uluOBTjstBlASd 5UY03S6ej3F63EgUzuIrRVzjKOKbR5HQNsZ0MMrgOI/AohUEUQ7BrBWhFTuI qt1FfNMektqYvnrpsgOsE8OvkE96VROvUTj1CkUzLyAZO0Vc5zpej/4Gfz38 A/6+5xC/aZjCV4pOpr2v8Jxu/pTL95C8PRo7wv74Y+yNCxt+1rE3ynZjaOBD gvjUfO9sVdw66rP20aQ+QDuLxUCNERNNRiwYDrHafYhN5tTdoSM8HD3GwcQx nkwxpMw8xbO5EzyfP8HpgoCneLH0FKfL/PzqMZ6uHeNo/QlChC3Tqk2a4Qbu lq7jbvkKMvsPkTnEFmSUmDiEZIqYJeYJysFGbTBN6BG21n+CmxSEK26WdJi2 2V+SlcL7lg2uBMQyyMVRCmm47GYeT+KRC2uvfDaaatj5auAQVASnUC0uhwyZ zoiMSB5GS+Ur3LyYgJDrqcjgv83zS0bh3Ri0cwlkZA1BrBlGZvkw/Ar5bzKL 4SliwRAXwlOsJvL5Z8ohM4eSkMAjNQMOMQm4TilciWGQ9KEc3PX4wkePC4Gl uBRaajoz9lqsDtcTmIjSKhHJ4hTdOIyYFn6P/EH4Fo7Dv3AF/pRCAKUQXLmN 8IZdRDMyZHaRbhbq7CGmsNFXUFIGBVOvoZ5+hcKZl0jtYQvY9B7rI/+A0+n3 +NXsb/D3E1/hfd82/qa2hw7+lkv3FQ4nT/FIGGk1dUAI24MYHyYYKEcGNT+9 U/z/RVXaLuoURjRqz2+RGao3YrLFiPkOI1bZw24OGLHDRbzPRfx44gmMU4yq M09wPEvMs5tZ5OPSIY5WDvFk9RDGdSMeCWft3jPCL2fzfHCXdg2+JUsfhySm m4ckZtIUMmkKmVSCiErIpBIs1e2w1LR/AkvK4Q9NAxPjo1LhaW0NT5ubuOSb gAu3kyiCTKZ+Ga65y+kHeRSBGjY+hbAL1MIhRAen8FI4R+nhElsGm+gxyCvf 4fYNBaI9VMhmd1CclI+KzGwMMhKn68eQUDUOd3HZJ/BgSPwFPKUlBLUgLTq/ IVlKHUioA3E2nBLZeIjy4JaRhWsxxfgr4UjFgFbT0Uaf+5fiy5BSXIwoxeUY Ha4llSOksh+hNQMIrycaB3BHMWAahxugWoWv9h789Vv8mgeIa3mG5I5TpPcw fdMKslgV5LQCBZd3/jR1MPMKyb3bSGxfwuvJ7/GGmBp5jycL7/Etm79fL/01 3k+d4P3iCo6FA+JnTvHw48imB9iboQamqYGxDxr4zHwnSaX4EWqEWe86I7qq qIHG8xtW5juNWOk14h41cH/YiN1RRo8J8jtlxOMZIw7miEU+XyZWjXhovhFv 23yU6draAZaXH2Bqds101rMwyC+J5pVMDaRQUylj5yNa0ugGaTOHSKUOrioM uKpsx5VcA6KFgX6RqYgj3C2t8aWbHy75JOOCUyouOospgBxcdVfSBVSwEgYU +RfDNlgHh1A9HKPKcDumAnYUQVbTAi5cUcPFtZwtcA3kaTXQyStRpdJBly+H omcJHoyO7lJCVgFP85RMz+xS0x3FntlFpkF+HlksDlI5nFIlcJOq4CaW43am EpdiinDdrx037lK7Ue0sBu34MlwY4scmh4XBT88CU9GHwGoWmzqCcdlbOQLv ggmElj5CKHNZRMMxYlqfIbHzFKl9L5HJXCBhFsieoArIpmJayAfMDywELya+ xdnkt3g19Q1eT3+Djv732Fl6j9cbVMGjf8D7V9/haPYV+XmB/XkqYOHAvG2I CpiZxe74x4Jwvmns91EuO0CVmjZgvm9pkBIYbzVihhJYpA2sUgL3KIEtxpLt SVoC6d+dJ0j/zvI/3iEnnGS7QgjHkc4tP8TY7CbOh5f8LqJJfywtIG7AhN81 fdrddJx+ZFgK2U5FDJl2uWGNC+7BuHQnFV84pNHzZaZpXFfdCmDhoYGljxY3 A0phG6KHXUQ5HHmVb/gVQNa4iKyWJVy4UQaHgGam1XbIcjtQpG1DaVk9FOxe c3uXucyryXI12RRmk1TBQ07G5WXwZKPiIee6l5PtHLKdrYRTetb52EaZEs6S PDimZ+CaaxMszOPNr0eTcbJtxTgh6mJto7olrHVS1jopa52M6vZXzyOgaBmB ujWEVD1BWONTRLU9Q3zXKZL7XiB96CVEZFo6TrYnzxDXvYPY9nWcjL3DczYB LyeJqXd4NS108QLe8vK+x9s37/F07jWeMK0/FoZALP5kW9ACS//cLDbG+jU/ 3Q36L6l7I8oKjagvM6KdVb+PRI8YuN7Nx80usL1YJsmrJHmNJK9zja8tEEsk liQvEnPmc0Qn+N36prbwv5m3mISTyYjwFESRSScLrlfXUFz0SueazcHnDln4 0ikXV1zVuOalJWM6WAfRnEOFl2LKkVkzB0nDIqTNS8hqXUG2YRVX7nbAT9SP ZPUAsst7kVXZBGXvGhR9q8jtWyEbAoO1cJfXwCOXTAozBZVl57PUFMX8XCFb NbImyoErWXU2TZsp4J9FppFSVzwacTWwHdfCiGgD0lpZmyjSTCYgUR/ZNCcW CVm8UzALP80S/Nje+ZezctdsIYIsxpLFxN5TpAy+QETnLtNLFD/+Hh4Pvsbh yGscj77ByfgbhrQ3OGUlf0Enfzkj4BVesNd6PvcSxwsvcMhY/einO3mWz3fy 7M7NfHgj6UvTw7+AWn6AkmIjqipp2SzXnVynfSzXQ7TqsUFSOUJ6aNMztOnZ WfMxsKRwgmt1lBgm+mYf/Z7pv/sPCAsna3Taz2+H4wK7rYvssi75qMmYEl86 q3DRvQhX7pTgmr8eKfpppFXOIrN2AeKGJbK1glD9IuPzMmzd96Eq/BFDo3+N 0fVnZOkecvvXoehfI1ur7BJX4JzbBXeFMEdFOAO6iqiARx4ZyyuBo5RsSQtg L8mFq7IYzgo9bgtTYyUiXlVhiMV/MI1DuhxkQGItK0kTKwjzalqXeezdIJlj shCNE0wWd1RL8Clm8tDfg08Vk0jdfQQ23kdQyzZCWncQaiBa7rMLpkuyEX88 zAjNRvto/KUpTj9jN/xsml3x9As8Zwx/zlboZOE5jpae4WDlBA9NO2aM5ztm Vkw7ZrAxM/WBrYumh/8V+UVGaMlUZQPdlUW1jQutkwuthwutnwW1n0wNkKn+ aX6ObHUShqmD3zezcydCBP/4QnzJpHvBW42LPiUIzepBpHIQMWwsEkomkVw2 zRo1w2QxB9+0EQRkjiJUMoYI2Tg8vWYgTt9EiWYTemGgVd44UgrGEalbgXxg jU3HKrIHlpHVvwh7WRXss4jsCjiw/gkDqhxY++yzVHDJL4dzfq1pdq+TMKRK JjIP8Uk2b4f5t4hnQ5nYTGbaz0expdIJ07iG0kfPB2K75y3AQ7MGT909eJZv wqt6Cz71W/BruA9/Pi4ZnmKt6wRbvc+wM/AM+0PPTUdTGMee48k4rzyb0uMp NqfTz+h8J3jKLuSIHcjhyhHzB/tg01aTw49bTbYWV1F0zsYV08P/gFzWNm0z LbCd64d1raafGDw/QLOKKO17bL4p6d+hVymCX4wG/gkVCEhpRHBGO+7y0kcI l14zCnfJDMPhFLyShuCXOsy/H0WYZBzRvOzx2RMI9F1ArmgbFcXbqC6fg1g1 CYlawASbjgnE6paRPbgC2QBtb2Ae4v5ZOOS2wja7DHY5OtjR1mxzynFb3QQn VQ2cCkiJUgVbWQb+mfnkm9jGQ8QbzgeCfZiPnDxyPh/ZWbkKl8J7cCnZhAtD plvpBgaFRo+WP0urW2Lfv97N3r/vGDuDFPPwsanhezx+3vQZp4jZIxjniaUj iv4Qj4QtYuaY93Gcxso2FmbmPlzqIHOl8QkvhF9sBfyTGhGYbkCwrBfhikE4 pw3DXTQOj/gh+CSPICh9DGGiMURLx5HAy5Yin0BE8DLUWTuo0d1HfeU0snnJ 5Lxkn0BeNMFFlcOPsqJx3FWvmG5vEA3Qk/qmkNE7hvTeIfZJfXDUGIgmKBbu I3duBTnTU/+7+UerTdtGfc5jNJj3BnRXnjc+E1TGLIvhElPPGgW8wSt6n7ay wyu6x7C6T1t5yKL4cI6Pi/zzstFkAcIOlE9MOwN+hx8PsLG6j6WFe9D+9Ir8 W3gFa+AbWQG/+Ab4C1MhpT1wTBiAC9ese8wAvBOGKbQRhPKKRInHEC8bQ3I2 f6PccUTFL6BYvoOGsi1oiiah0I5DSeQVE6WEbgyK0jHklowiXL2ETOGK9E8h vX+M63CINaoXCv64iqU95C5uQT5vOpXePNjoD1At2ket+eb1VobAbi6UIVrW BHvBGV6Sha7zXmCdQXBDCILjDH20rW3a1TYLzDbzwX3+/1vmcQamUQbE6trj /7+9K21q6zrDT6fTfutMpzP9AU1+Sz+nEyetG9dZ6tgJGLMYYxsvYJsdIyRd kMNmEBZYEiA2iSvQLiEJCYEQCAESQixiMYtNuqZN0nGfK8lT2/neT/lw5ooZ 5pznXc553+eee94DjzcivKmJm802nP+iHZ8UqvFeng5nro5RE2M4c3kMfyyW Pu/gdOKUunxbRHGFiLIHZpRXT+JOHbVyzYNHjRE0Cz4oBTMaKXkTKVxT2yRk 7Wwd5sy36Y0dIurbRFxucuHWuAU3x6nNcSPqGGHr/Guo9VMT3jnUeJhxUBO/ yoXX9nur6GzIfledudiBmhinJszUhJVh1sllw0Mt+BhmZ6iFALUQpBaCuSxp hpmRTyrM7818Vu1hJmybjmY6z2nhYq6kRbncj/N5arzP/ONMyRh+d3UUH1ID 54rH8dk1I76kBq7cEXG1UsSNByJu15jxRcEIysqn0dAYgEJFDbQas5J3miF/ LELeI0Kh5pOtWT2RKTNd3OKkT9hQZjSjLsDIHEiilnapnVlEjT+E6mkuQFZz NiH4JVTVXB85Mzo5MzScGQOcGSMU3kThzRTeSuHtFN5J4V0U3k3hXXQBF/MK h4+CS7nhT2GlN0y4Y5lOW14X/F3cbGIanj+M95lCf1A0iveKhyk4SREFv0DB 826KKGIQK71H562aotktyCsSUV7hx0OuaEInnx0WyB5PUeBJKHonodRMcGUX oeyfgKLfBHk/Td3NiaSyoD6wjbpgCrUMDjXBFdQEFlHtn81cI/Hr3NvR5uoV CHT+RzR5d3ccfRpKLhVTNzA2M0qYGK9FJsZmJsZmrgFirpi6SWqUfIwaePSm mB98rMbZS8P4qGgCZwooZuEIPswfx3n+/fk1MXeVgAVl96wor7HhbqMN+aU2 3KmaRXPLPFp6ApB129Dca4NCY4XQb4GgnUSLToSgp7gDJigGxtGg4QzpmUZJ lxO1mbLha2zLqA5kbz2453Llbsv4BRqa1+gvDHQ9NDCNqqZR+2hULY2qp1EH KOIARdTTsDp79rPIttfFeidzVPPsp0P46LKIc6V2fEjL/D5PxPnCSXxeOoX8 G1YU37Xh2gMHbtU7cFfmxOXrjG/181C0L6D1ySxkvU7I+xxQaO0QdDa0DFC8 wSkIBjOEYbqtnlY1uHFd40Kp2oErXZZMMeVqilUVWMB9X65m98/RwHAmY2Il cNFu4QrVyuTq0Xi88/UV5108kauhFbSZkqlnL4q0iRPnr3txsWwWfyqw4sJV G93OgaIKB65VO1H+kFFF7saVch/uyyJQdi1C1R+CrM8Nudad+cRXOeQgYDuU I1Yox6Yg42/ByDnJiFTW70Rpnw0lT6YyFYarcmXm7zJQ2l+H9g6eKnqhkw4n tkzgD+dM+CiP0Er8uFgaRsENJqllTLLLCaXSg9JaT+bmyTuCl0tDEFXKKISe Zah082h66kWz3gP5kAeKYcbjUSeah71onaAriSEIZi4Zog9lOkLTEpp0zDMk 3fUSRaV31pFFdSGHqrv+EbTyfuiUY0RnITo3zn7CZbvAj09LZ4ksipKKZVyv ieHOwxUU17HnJj9uCTMMXvOobl1Bi2YFqoEwGrU+NA0wpBu8eGQk2okoWicX 0TIZgTAVhmIqBPlUAFf1bmYzDpQ8teDKEyMqfQvO11H9Bn0P26GTU1cKkcgc GBCyp1HO/dnLYBKinxFJxSpRxXG7KY5KIYHqRwnUdSZQdJ/LHWmvQLdXkWS3 MsKrOLNVnNkq8yoREbFlGYI1CoUtArk1TJLuQ8mgByV6qb6qBQW9o3C9Cam/ UQ2dbJSwrITlyZ5hUIRhoWk+vjSDz0rmOR3iKKthJvwwiQplEg++2mAquoHi mhXUdmxwNiehGqFCRpNoNbIx4ZB2gFo4EwXbKpS2GOSOKGT2RTLOGRQNelGk d+FKnxkL3b1vQ3raQLs1mQjLAV2zH0NM/o2KJVhbGIzb1hF4nMKF6wsord6g N23grrCJ+22bqOneRElDIvNpi3IwRThLdOZNtEykIEwSpiVJKAkouDA0O1Yh c8RQbJhF4WAAV3Q+5D+xIKozYqmv721I2noddI1mwnKzBbPfUStjsKrimO7c QLBnCwuaNC7cXMSlB4u4rdxCZds2qrp3UNKUQo06DblhC8IojWPchlLcgmJy EwpLCs1MVJvt6ygZCqNoaA6FA7PI184gStYZHXEhapjIVI18W0u19KN6enbj NPSNIUJawoSwCttXSUx3bWG2N41I/x5W9M+wPnSES/ejyGuM4rOKORTLdlCt 3kfTcBqyYalScjqzk9tMqiKzbKFYv0gDRVCoDyO/fx5r4gpiJlJ6UxBRo5vQ JjOlEd+GVDUEXS39qN4HfcM8IUUx0RKHrX0D092EpNlFRHuAlYFDJIePsT36 HHvGFxAuuplFLiNPsYbirmUUdi6jiMtCUW+UEymKAk0U+epFpK1pbBFecpLp /NQq0/0lRM0hRMVpQqPxRgZ/4N73DbkCV37CCtOXlmFqTcDWkcJ0zw5m+/YR 0T3DytAxkiMn2B5/gd2JUwhfzsMh+xuOTd/jm9mv8cL+NU7tp3jheIETxwkO M6+ypBciu9i0keBZyTro7sucfVHLPKJTXkKzYGn8B5A0d4ehI/HSVRFS3QIh xWBSrcPWuYVp9S6C/QeI6I8I6QTr1NAWNZSWIBXE4Gn9Bs8t/8E/wxIUNufX eO48xbHzOZ45j7HnfIYdxz5Sth2s21OZ99xRzryonZBsPsKykCz9AJL6lgHa CkK6n4U0KF+BkZCshOTJQNrHgv4QMcMREqPHSJlOsCOeQChah7/jXzh1EtLi c2rmOeHw6TrBEduB6xi7zkNsO/ex4dxBwpXCCtlH1LXMNkdo1JJ1CrNG/StI n+dqz/TdtkNbSTi1YQxSQ+OEYyEcd+8uAnTrsH4fy4YDxMeeIWk6xJZ4COHq JoK9/8ap93v8I3aEI+cRTtiOXYc4ZNt3PUPadYAt1x6S7h3EPSkSIWqICW7U QzguL5Zsk3C/CaX3hh1P78xAWxPGgGwZo/Sfyc4UnOot+Pt3MK9PY8mwi5Wx PSRMe0iJ+xDK0pjTfovT4Pf4++o+jXNACFLjb7Y99x523PQdTxrr3h2s+lLk Y2uI+ujSXrq024Owzfw2lK4SMzQ3A+ivWoC2KQYDZ5fYvg57zwa8fSkEdVyH hrY5QbexZqQPiGmobh0gbPgOp/Pf4a/xNPYcu9h3pnHAtp/bIN+e3saGbwsJ v1T6Yp20UKrGQyi+EBaZZnrM46+gXMxV3ugp9UNTGUFfwwpj2RrGmJZNdSfg 0tAntEmEhsjLRygVV+DVCS51zd8iZH+Jk8RL/GXnCDv2LaQdbE429yYhpLDp 28C6n5P71euQgFTOZRGLvlmEXG54shAu5Q7K95SHM4fkNcwKh8j6TOQ6VnId 91PymIEE5gzriIyyK1MSq2ISet9LBDZfYoMrbsq+gU1nEpvuZGYXMOVbz+wC xjlsTCr4QSIcDa5icWYJIW8Q028O3VYYRPe9GNSNTEBJtYbbmU8z77Yx73Yz 755hOhdiOrfACL1kYpcMiavk4HFy8DjjT4L5d8KTQIKUa42EY5VsazlTBSKO CIcOU/JZfwQup/fV0F/kDmu3lUXQVRVHj0y6CpJDd3LoV/ueerI3ct3gSHbv c0Ha92IkjkpLE9eCZab5ksdL1H+JXDeSKwswl9vzmpmJweEOwZsd8svc/orq VgzttXF0yd+i19IeC4ecJsvwU9IghwuRV80z7Z4nrwpzuDAlnOdwoRnpdkD+ H4eRLn3z0MUs7gX4skPl5V5uKO/GoKJSO6RzwVTqIDP9sT56OYexchjHqzPB HMbHYfzO/50Jli6V8+Te8Eu3hdk4oYzORfizQ1zOvdNUUHEqStFNKfqZfg/R XqNUmoldTzKbslBh1twhUBvtZCVHmpomMzR7JWZodK9lOpJarucrOXrykL2q 6AWPCVhDwFpSk0GaYZjUZISAR9jrMK1vYM8GAh/gczbbRXHm8TM0Uq0CAX1F QB3kAp1G6eVM50R8Pvt/mXF/++PvH3//f37jJ/8F8oUO7Q==\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.370547274853261, -0.04221321967024272, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.7711146226119587`, 0.009677015794301802, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.369177799279897, -2.2598118072185427`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.663248297965583, -4.5802145189189405`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.329865545095108, -4.598885566551149, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.660399809094564, -2.362362756092832, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.3647415417931947`, -2.248107297752364, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.2638747111885928`, -6.9057349179865835`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.747592808144639, 0.031906173615971145`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6768534125712753`, -4.5585462431542485`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.343538497812032, -4.555110502577383, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2956568741091432`, -6.8943381152995755`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.346926138497718, 0.0008204956372210859, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.656456595553607, -2.3089267620424723`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.32826793851116, -6.414727870756178, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.729566979621303, -2.3764983913869857`, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.6925696886449118`, 1.82524475174931, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.368867388719558, -8.666265857821955, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.412074614357609, 1.776644233843339, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.356196635701345, -6.361998176099762, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.725438428913769, -2.305808469359278, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.3229154966040984`, -8.684578582359277, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.448414266352444, 1.722661969407754, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.729519883640837, 1.8111792149998753`, 0.}, 0.1]}, Text3DBox["1", {-5.970547274853261, -0.04221321967024272, 0.}, {1, 0}], Text3DBox["2", {-3.371114622611959, 0.009677015794301802, 0.}, {1, 0}], Text3DBox["3", {-1.9691777992798971`, -2.2598118072185427`, 0.}, {1, 0}], Text3DBox["4", {-3.2632482979655832`, -4.5802145189189405`, 0.}, {1, 0}], Text3DBox["5", {-5.929865545095107, -4.598885566551149, 0.}, {1, 0}], Text3DBox["6", {-7.260399809094563, -2.362362756092832, 0.}, {1, 0}], Text3DBox["7", {0.7647415417931948, -2.248107297752364, 0.}, {1, 0}], Text3DBox["8", {-1.863874711188593, -6.9057349179865835`, 0.}, {1, 0}], Text3DBox["9", {2.1475928081446387`, 0.031906173615971145`, 0.}, {1, 0}], Text3DBox["10", {2.076853412571275, -4.5585462431542485`, 0.}, {1, 0}], Text3DBox["11", {4.7435384978120325`, -4.555110502577383, 0.}, {1, 0}], Text3DBox["12", {0.6956568741091432, -6.8943381152995755`, 0.}, {1, 0}], Text3DBox["13", {4.746926138497718, 0.0008204956372210859, 0.}, {1, 0}], Text3DBox["14", {6.056456595553607, -2.3089267620424723`, 0.}, {1, 0}], Text3DBox["15", {-6.928267938511159, -6.414727870756178, 0.}, {1, 0}], Text3DBox["16", {-9.329566979621303, -2.3764983913869857`, 0.}, {1, 0}], Text3DBox["17", {1.0925696886449119`, 1.82524475174931, 0.}, {1, 0}], Text3DBox["18", {1.768867388719558, -8.666265857821955, 0.}, {1, 0}], Text3DBox["19", {5.812074614357609, 1.776644233843339, 0.}, {1, 0}], Text3DBox["20", {5.756196635701345, -6.361998176099762, 0.}, {1, 0}], Text3DBox["21", {8.12543842891377, -2.305808469359278, 0.}, {1, 0}], Text3DBox["22", {-2.9229154966040984`, -8.684578582359277, 0.}, {1, 0}], Text3DBox["23", {-7.048414266352443, 1.722661969407754, 0.}, {1, 0}], Text3DBox["24", {-2.329519883640837, 1.8111792149998753`, 0.}, {1, 0}], TubeBox[{{-2.7711146226119587`, 0.009677015794301802, 0.}, {-5.370547274853261, -0.04221321967024272, 0.}}, 0.15], TubeBox[{{-1.369177799279897, -2.2598118072185427`, 0.}, {-2.7711146226119587`, 0.009677015794301802, 0.}}, 0.15], TubeBox[{{-2.663248297965583, -4.5802145189189405`, 0.}, {-1.369177799279897, -2.2598118072185427`, 0.}}, 0.15], TubeBox[{{-5.329865545095108, -4.598885566551149, 0.}, {-2.663248297965583, -4.5802145189189405`, 0.}}, 0.15], TubeBox[{{-6.660399809094564, -2.362362756092832, 0.}, {-5.370547274853261, -0.04221321967024272, 0.}}, 0.15], TubeBox[{{-6.660399809094564, -2.362362756092832, 0.}, {-5.329865545095108, -4.598885566551149, 0.}}, 0.15], TubeBox[{{1.3647415417931947`, -2.248107297752364, 0.}, {-1.369177799279897, -2.2598118072185427`, 0.}}, 0.15], TubeBox[{{-1.2638747111885928`, -6.9057349179865835`, 0.}, {-2.663248297965583, -4.5802145189189405`, 0.}}, 0.15], TubeBox[{{2.747592808144639, 0.031906173615971145`, 0.}, { 1.3647415417931947`, -2.248107297752364, 0.}}, 0.15], TubeBox[{{2.6768534125712753`, -4.5585462431542485`, 0.}, { 1.3647415417931947`, -2.248107297752364, 0.}}, 0.15], TubeBox[{{5.343538497812032, -4.555110502577383, 0.}, { 2.6768534125712753`, -4.5585462431542485`, 0.}}, 0.15], TubeBox[{{1.2956568741091432`, -6.8943381152995755`, 0.}, {-1.2638747111885928`, -6.9057349179865835`, 0.}}, 0.15], TubeBox[{{1.2956568741091432`, -6.8943381152995755`, 0.}, { 2.6768534125712753`, -4.5585462431542485`, 0.}}, 0.15], TubeBox[{{5.346926138497718, 0.0008204956372210859, 0.}, { 2.747592808144639, 0.031906173615971145`, 0.}}, 0.15], TubeBox[{{6.656456595553607, -2.3089267620424723`, 0.}, { 5.343538497812032, -4.555110502577383, 0.}}, 0.15], TubeBox[{{6.656456595553607, -2.3089267620424723`, 0.}, {5.346926138497718, 0.0008204956372210859, 0.}}, 0.15], TubeBox[{{-6.32826793851116, -6.414727870756178, 0.}, {-5.329865545095108, -4.598885566551149, 0.}}, 0.15], TubeBox[{{-8.729566979621303, -2.3764983913869857`, 0.}, {-6.660399809094564, -2.362362756092832, 0.}}, 0.15], TubeBox[{{1.6925696886449118`, 1.82524475174931, 0.}, {2.747592808144639, 0.031906173615971145`, 0.}}, 0.15], TubeBox[{{2.368867388719558, -8.666265857821955, 0.}, { 1.2956568741091432`, -6.8943381152995755`, 0.}}, 0.15], TubeBox[{{6.412074614357609, 1.776644233843339, 0.}, {5.346926138497718, 0.0008204956372210859, 0.}}, 0.15], TubeBox[{{6.356196635701345, -6.361998176099762, 0.}, { 5.343538497812032, -4.555110502577383, 0.}}, 0.15], TubeBox[{{8.725438428913769, -2.305808469359278, 0.}, { 6.656456595553607, -2.3089267620424723`, 0.}}, 0.15], TubeBox[{{-2.3229154966040984`, -8.684578582359277, 0.}, {-1.2638747111885928`, -6.9057349179865835`, 0.}}, 0.15], TubeBox[{{-6.448414266352444, 1.722661969407754, 0.}, {-5.370547274853261, -0.04221321967024272, 0.}}, 0.15], TubeBox[{{-1.729519883640837, 1.8111792149998753`, 0.}, {-2.7711146226119587`, 0.009677015794301802, 0.}}, 0.15], {RGBColor[0.5, 0., 0.], SphereBox[{0.00021840224088005698`, -2.937777114787111, 0.}, 0.2]}}, AspectRatio->Automatic, AutomaticImageSize->True, Axes->Automatic, Boxed->True, ImageSize->{360., 360.}, SphericalRegion->True, ViewPoint->{-0.27409444946857864`, -0.32534521188042276`, 3.356936509062541}, ViewVertical->{-0.4068874840758401, 1.0383792857505494`, 2.105425318226116}]], "Output", CellChangeTimes->{3.570518963486951*^9, 3.570519095572383*^9, 3.570519305735952*^9, 3.570520097842943*^9, 3.570526005608093*^9, 3.5705260740142126`*^9, 3.570526720198548*^9, 3.5705267694478345`*^9, 3.5705270793423786`*^9, 3.5705272666831074`*^9, 3.570527940588691*^9, 3.5705280402104664`*^9, 3.570528250826436*^9, 3.5705283734114513`*^9, 3.57052875962133*^9, 3.5705295080482445`*^9, 3.5705295484835157`*^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[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"px", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"py", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"pz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "clouds", " ", "above"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"qx", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qy", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "clouds", " ", "below"}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{"tc", ",", "twc", ",", "twh", ",", "tpo", ",", "tpu"}], "]"}]}], ";"}], "\[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}}], Cell[BoxData["68"], "Output", CellChangeTimes->{3.570518963518151*^9, 3.5705190956191826`*^9, 3.5705193059543524`*^9, 3.570520097889743*^9, 3.5705260056392927`*^9, 3.570526074045413*^9, 3.570526720245348*^9, 3.5705267694946346`*^9, 3.5705270793891788`*^9, 3.570527266714308*^9, 3.570527940619891*^9, 3.570528040257266*^9, 3.5705282508732367`*^9, 3.5705283734426517`*^9, 3.57052875966813*^9, 3.5705295080794444`*^9, 3.570529548514715*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "5.370547274853261`"}], RowBox[{"-", "0.04221321967024272`"}], "0.`"}, { RowBox[{"-", "2.7711146226119587`"}], "0.009677015794301802`", "0.`"}, { RowBox[{"-", "1.369177799279897`"}], RowBox[{"-", "2.2598118072185427`"}], "0.`"}, { RowBox[{"-", "2.663248297965583`"}], RowBox[{"-", "4.5802145189189405`"}], "0.`"}, { RowBox[{"-", "5.329865545095108`"}], RowBox[{"-", "4.598885566551149`"}], "0.`"}, { RowBox[{"-", "6.660399809094564`"}], RowBox[{"-", "2.362362756092832`"}], "0.`"}, {"1.3647415417931947`", RowBox[{"-", "2.248107297752364`"}], "0.`"}, { RowBox[{"-", "1.2638747111885928`"}], RowBox[{"-", "6.9057349179865835`"}], "0.`"}, {"2.747592808144639`", "0.031906173615971145`", "0.`"}, {"2.6768534125712753`", RowBox[{"-", "4.5585462431542485`"}], "0.`"}, {"5.343538497812032`", RowBox[{"-", "4.555110502577383`"}], "0.`"}, {"1.2956568741091432`", RowBox[{"-", "6.8943381152995755`"}], "0.`"}, {"5.346926138497718`", "0.0008204956372210859`", "0.`"}, {"6.656456595553607`", RowBox[{"-", "2.3089267620424723`"}], "0.`"}, { RowBox[{"-", "4.07083094873261`"}], RowBox[{"-", "0.01626810193797046`"}], "0.`"}, { RowBox[{"-", "2.070146210945928`"}], RowBox[{"-", "1.1250673957121202`"}], "0.`"}, { RowBox[{"-", "2.01621304862274`"}], RowBox[{"-", "3.4200131630687416`"}], "0.`"}, { RowBox[{"-", "3.9965569215303454`"}], RowBox[{"-", "4.589550042735045`"}], "0.`"}, { RowBox[{"-", "6.015473541973912`"}], RowBox[{"-", "1.2022879878815371`"}], "0.`"}, { RowBox[{"-", "5.995132677094835`"}], RowBox[{"-", "3.4806241613219906`"}], "0.`"}, { RowBox[{"-", "0.0022181287433513663`"}], RowBox[{"-", "2.2539595524854534`"}], "0.`"}, { RowBox[{"-", "1.963561504577088`"}], RowBox[{"-", "5.742974718452762`"}], "0.`"}, {"2.056167174968917`", RowBox[{"-", "1.1081005620681963`"}], "0.`"}, {"2.020797477182235`", RowBox[{"-", "3.4033267704533063`"}], "0.`"}, {"4.010195955191653`", RowBox[{"-", "4.556828372865816`"}], "0.`"}, {"0.015891081460274847`", RowBox[{"-", "6.9000365166430795`"}], "0.`"}, {"1.9862551433402094`", RowBox[{"-", "5.726442179226912`"}], "0.`"}, {"4.047259473321178`", "0.01636333462659612`", "0.`"}, {"5.9999975466828195`", RowBox[{"-", "3.432018632309928`"}], "0.`"}, {"6.001691367025662`", RowBox[{"-", "1.1540531332026256`"}], "0.`"}, { RowBox[{"-", "6.053977167681404`"}], RowBox[{"-", "5.915862094181338`"}], "0.`"}, { RowBox[{"-", "8.160280263823942`"}], RowBox[{"-", "2.3726092762362416`"}], "0.`"}, {"1.9812402480154372`", "1.3345597222724486`", "0.`"}, {"2.0739359275559144`", RowBox[{"-", "8.17931830087575`"}], "0.`"}, {"6.119242080047191`", "1.2884315784877673`", "0.`"}, {"6.077867148277832`", RowBox[{"-", "5.865374388479228`"}], "0.`"}, {"8.15613907550654`", RowBox[{"-", "2.3066664962301053`"}], "0.`"}, { RowBox[{"-", "2.031686055842822`"}], RowBox[{"-", "8.195407954833591`"}], "0.`"}, { RowBox[{"-", "6.1516866483145245`"}], "1.2368068359641082`", "0.`"}, { RowBox[{"-", "2.0144769794199613`"}], "1.3183283820238854`", "0.`"}, { RowBox[{"-", "5.370547274853261`"}], RowBox[{"-", "0.04221321967024272`"}], "1.4`"}, { RowBox[{"-", "2.7711146226119587`"}], "0.009677015794301802`", "1.4`"}, { RowBox[{"-", "1.369177799279897`"}], RowBox[{"-", "2.2598118072185427`"}], "1.4`"}, { RowBox[{"-", "2.663248297965583`"}], RowBox[{"-", "4.5802145189189405`"}], "1.4`"}, { RowBox[{"-", "5.329865545095108`"}], RowBox[{"-", "4.598885566551149`"}], "1.4`"}, { RowBox[{"-", "6.660399809094564`"}], RowBox[{"-", "2.362362756092832`"}], "1.4`"}, {"1.3647415417931947`", RowBox[{"-", "2.248107297752364`"}], "1.4`"}, { RowBox[{"-", "1.2638747111885928`"}], RowBox[{"-", "6.9057349179865835`"}], "1.4`"}, {"2.747592808144639`", "0.031906173615971145`", "1.4`"}, {"2.6768534125712753`", RowBox[{"-", "4.5585462431542485`"}], "1.4`"}, {"5.343538497812032`", RowBox[{"-", "4.555110502577383`"}], "1.4`"}, {"1.2956568741091432`", RowBox[{"-", "6.8943381152995755`"}], "1.4`"}, {"5.346926138497718`", "0.0008204956372210859`", "1.4`"}, {"6.656456595553607`", RowBox[{"-", "2.3089267620424723`"}], "1.4`"}, { RowBox[{"-", "5.370547274853261`"}], RowBox[{"-", "0.04221321967024272`"}], RowBox[{"-", "1.4`"}]}, { RowBox[{"-", "2.7711146226119587`"}], "0.009677015794301802`", RowBox[{"-", "1.4`"}]}, { RowBox[{"-", "1.369177799279897`"}], RowBox[{"-", "2.2598118072185427`"}], RowBox[{"-", "1.4`"}]}, { RowBox[{"-", "2.663248297965583`"}], RowBox[{"-", "4.5802145189189405`"}], RowBox[{"-", "1.4`"}]}, { RowBox[{"-", "5.329865545095108`"}], RowBox[{"-", "4.598885566551149`"}], RowBox[{"-", "1.4`"}]}, { RowBox[{"-", "6.660399809094564`"}], RowBox[{"-", "2.362362756092832`"}], RowBox[{"-", "1.4`"}]}, {"1.3647415417931947`", RowBox[{"-", "2.248107297752364`"}], RowBox[{"-", "1.4`"}]}, { RowBox[{"-", "1.2638747111885928`"}], RowBox[{"-", "6.9057349179865835`"}], RowBox[{"-", "1.4`"}]}, {"2.747592808144639`", "0.031906173615971145`", RowBox[{"-", "1.4`"}]}, {"2.6768534125712753`", RowBox[{"-", "4.5585462431542485`"}], RowBox[{"-", "1.4`"}]}, {"5.343538497812032`", RowBox[{"-", "4.555110502577383`"}], RowBox[{"-", "1.4`"}]}, {"1.2956568741091432`", RowBox[{"-", "6.8943381152995755`"}], RowBox[{"-", "1.4`"}]}, {"5.346926138497718`", "0.0008204956372210859`", RowBox[{"-", "1.4`"}]}, {"6.656456595553607`", RowBox[{"-", "2.3089267620424723`"}], RowBox[{"-", "1.4`"}]} }, 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.570518963518151*^9, 3.5705190956191826`*^9, 3.5705193059543524`*^9, 3.570520097889743*^9, 3.5705260056392927`*^9, 3.570526074045413*^9, 3.570526720245348*^9, 3.5705267694946346`*^9, 3.5705270793891788`*^9, 3.570527266714308*^9, 3.570527940619891*^9, 3.570528040257266*^9, 3.5705282508732367`*^9, 3.5705283734426517`*^9, 3.57052875966813*^9, 3.5705295080794444`*^9, 3.570529548514715*^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[{"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.5704551701564627`*^9, 3.5704551737444687`*^9}, { 3.570455243258191*^9, 3.5704552444437933`*^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[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5"}], "]"}]}], ";"}], "\[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}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "5.370547274853261`"}], RowBox[{"-", "0.04221321967024272`"}], "0.`"}, { RowBox[{"-", "2.7711146226119587`"}], "0.009677015794301802`", "0.`"}, { RowBox[{"-", "1.369177799279897`"}], RowBox[{"-", "2.2598118072185427`"}], "0.`"}, { RowBox[{"-", "2.663248297965583`"}], RowBox[{"-", "4.5802145189189405`"}], "0.`"}, { RowBox[{"-", "5.329865545095108`"}], RowBox[{"-", "4.598885566551149`"}], "0.`"}, { RowBox[{"-", "6.660399809094564`"}], RowBox[{"-", "2.362362756092832`"}], "0.`"}, {"1.3647415417931947`", RowBox[{"-", "2.248107297752364`"}], "0.`"}, { RowBox[{"-", "1.2638747111885928`"}], RowBox[{"-", "6.9057349179865835`"}], "0.`"}, {"2.747592808144639`", "0.031906173615971145`", "0.`"}, {"2.6768534125712753`", RowBox[{"-", "4.5585462431542485`"}], "0.`"}, {"5.343538497812032`", RowBox[{"-", "4.555110502577383`"}], "0.`"}, {"1.2956568741091432`", RowBox[{"-", "6.8943381152995755`"}], "0.`"}, {"5.346926138497718`", "0.0008204956372210859`", "0.`"}, {"6.656456595553607`", RowBox[{"-", "2.3089267620424723`"}], "0.`"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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[{"-", "6.32826793851116`"}], RowBox[{"-", "6.414727870756178`"}], "0.`"}, { RowBox[{"-", "8.729566979621303`"}], RowBox[{"-", "2.3764983913869857`"}], "0.`"}, {"1.6925696886449118`", "1.82524475174931`", "0.`"}, {"2.368867388719558`", RowBox[{"-", "8.666265857821955`"}], "0.`"}, {"6.412074614357609`", "1.776644233843339`", "0.`"}, {"6.356196635701345`", RowBox[{"-", "6.361998176099762`"}], "0.`"}, {"8.725438428913769`", RowBox[{"-", "2.305808469359278`"}], "0.`"}, { RowBox[{"-", "2.3229154966040984`"}], RowBox[{"-", "8.684578582359277`"}], "0.`"}, { RowBox[{"-", "6.448414266352444`"}], "1.722661969407754`", "0.`"}, { RowBox[{"-", "1.729519883640837`"}], "1.8111792149998753`", "0.`"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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.570518963564951*^9, 3.570519095665983*^9, 3.5705193060011525`*^9, 3.5705200979365435`*^9, 3.570526005686093*^9, 3.570526074107813*^9, 3.570526720292148*^9, 3.5705267695414343`*^9, 3.570527079435979*^9, 3.5705272667767076`*^9, 3.5705279406822915`*^9, 3.5705280403040667`*^9, 3.5705282509200363`*^9, 3.5705283735050516`*^9, 3.57052875973053*^9, 3.5705295081262445`*^9, 3.570529548561516*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "bc"}]}], "}"}]}], "]"}]}], "]"}]}], 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"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "bc"}]}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "\[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}], 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[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}]}], "}"}]], "Output", CellChangeTimes->{3.570518963580551*^9, 3.570519095681583*^9, 3.5705193060167522`*^9, 3.5705200979521437`*^9, 3.5705260057016926`*^9, 3.570526074107813*^9, 3.570526720307748*^9, 3.5705267695570345`*^9, 3.570527079451579*^9, 3.570527266792308*^9, 3.5705279406822915`*^9, 3.5705280403196664`*^9, 3.5705282509356365`*^9, 3.570528373520652*^9, 3.57052875974613*^9, 3.5705295081418447`*^9, 3.5705295485771155`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "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.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.570518963580551*^9, 3.570519095681583*^9, 3.5705193060167522`*^9, 3.5705200979521437`*^9, 3.5705260057016926`*^9, 3.570526074107813*^9, 3.570526720307748*^9, 3.5705267695570345`*^9, 3.570527079451579*^9, 3.570527266792308*^9, 3.5705279406822915`*^9, 3.5705280403196664`*^9, 3.5705282509356365`*^9, 3.570528373520652*^9, 3.57052875974613*^9, 3.5705295081418447`*^9, 3.5705295485927153`*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.570455383783238*^9, 3.5704554212077036`*^9}, 3.570455500955044*^9}], Cell[BoxData[ RowBox[{"(*", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], "]"}]}], "*)"}]], "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.5692132215357027`*^9, 3.5692134269568634`*^9}, { 3.569213527889041*^9, 3.569213567871911*^9}, {3.5692136024727716`*^9, 3.5692136035959735`*^9}, {3.5692136633596783`*^9, 3.5692136641240797`*^9}, {3.5692137511410327`*^9, 3.569213751343833*^9}, { 3.569213815132345*^9, 3.569213856659618*^9}, {3.5692138980308905`*^9, 3.5692139153313212`*^9}, {3.5692139536293883`*^9, 3.5692140116146903`*^9}, {3.569214080816412*^9, 3.5692141084596605`*^9}, { 3.569233762887478*^9, 3.5692337633554783`*^9}, 3.5704557399318633`*^9}], 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", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nb", "+", "bc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"nb", "+", RowBox[{"2", "*", "bc"}], "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "bc"}], "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"i", "+", "bc"}]}], "]"}], "]"}]}]}]}]}]}], "]"}], ";"}], "\[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}}], Cell[BoxData["900.0302853859476`"], "Output", CellChangeTimes->{3.570518963627351*^9, 3.570519095728383*^9, 3.570519306079152*^9, 3.5705200979989433`*^9, 3.5705260057640924`*^9, 3.570526074170213*^9, 3.5705267203701477`*^9, 3.5705267696194344`*^9, 3.570527079513979*^9, 3.570527266839108*^9, 3.570527940744692*^9, 3.5705280403664665`*^9, 3.5705282509980364`*^9, 3.5705283735830517`*^9, 3.57052875980853*^9, 3.5705295082042446`*^9, 3.570529548639516*^9}], Cell[BoxData["898.7802853859483`"], "Output", CellChangeTimes->{3.570518963627351*^9, 3.570519095728383*^9, 3.570519306079152*^9, 3.5705200979989433`*^9, 3.5705260057640924`*^9, 3.570526074170213*^9, 3.5705267203701477`*^9, 3.5705267696194344`*^9, 3.570527079513979*^9, 3.570527266839108*^9, 3.570527940744692*^9, 3.5705280403664665`*^9, 3.5705282509980364`*^9, 3.5705283735830517`*^9, 3.57052875980853*^9, 3.5705295082042446`*^9, 3.570529548639516*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.33"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sw", "=", "0.31"}], ";"}], " ", 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}}], Cell[BoxData["974.4912868857826`"], "Output", CellChangeTimes->{3.570518963642951*^9, 3.5705190957439833`*^9, 3.570519306079152*^9, 3.5705200980145435`*^9, 3.5705260057796926`*^9, 3.570526074185813*^9, 3.570526720385748*^9, 3.5705267696194344`*^9, 3.570527079513979*^9, 3.5705272668547077`*^9, 3.5705279407602916`*^9, 3.5705280403820667`*^9, 3.5705282510136366`*^9, 3.570528373614252*^9, 3.57052875982413*^9, 3.570529508219845*^9, 3.5705295486551156`*^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[{"-", "1839.878302042543`"}]], "Output", CellChangeTimes->{3.570518963658551*^9, 3.5705190957595835`*^9, 3.5705193060947523`*^9, 3.5705200980301437`*^9, 3.5705260057796926`*^9, 3.570526074201413*^9, 3.570526720385748*^9, 3.5705267696350346`*^9, 3.5705270795295787`*^9, 3.570527266870308*^9, 3.5705279407758913`*^9, 3.570528040397667*^9, 3.5705282510292363`*^9, 3.5705283736298523`*^9, 3.5705287598397303`*^9, 3.570529508219845*^9, 3.5705295486707153`*^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[{"-", "2828.113596160189`"}]], "Output", CellChangeTimes->{3.5705189636741514`*^9, 3.570519095775183*^9, 3.5705193061103525`*^9, 3.570520098045744*^9, 3.570526005795293*^9, 3.570526074201413*^9, 3.570526720401348*^9, 3.570526769650635*^9, 3.570527079545179*^9, 3.570527266885908*^9, 3.5705279407914915`*^9, 3.5705280404132667`*^9, 3.5705282510448365`*^9, 3.570528373645452*^9, 3.5705287598553305`*^9, 3.570529508235445*^9, 3.5705295486863155`*^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[{"-", "2850.483438235172`"}]], "Output", CellChangeTimes->{3.570518963689751*^9, 3.570519095790783*^9, 3.5705193061259527`*^9, 3.5705200980613437`*^9, 3.570526005810893*^9, 3.5705260742170134`*^9, 3.5705267204169483`*^9, 3.570526769666235*^9, 3.570527079560779*^9, 3.5705272669015083`*^9, 3.5705279408070917`*^9, 3.5705280404288664`*^9, 3.5705282510604362`*^9, 3.5705283736610518`*^9, 3.5705287598709307`*^9, 3.5705295082510448`*^9, 3.5705295487019157`*^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["778.3921081026266`"], "Output", CellChangeTimes->{3.570518963705351*^9, 3.570519095806383*^9, 3.5705193061259527`*^9, 3.5705200980769434`*^9, 3.5705260058264933`*^9, 3.570526074232613*^9, 3.5705267204325485`*^9, 3.5705267696818347`*^9, 3.570527079576379*^9, 3.5705272669015083`*^9, 3.5705279408070917`*^9, 3.5705280404444666`*^9, 3.5705282510760365`*^9, 3.570528373676652*^9, 3.5705287598865304`*^9, 3.5705295082666445`*^9, 3.570529548717516*^9}] }, Open ]], Cell[BoxData[""], "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.5689102484819775`*^9}, {3.568910416821873*^9, 3.568910421314681*^9}, { 3.5689104658527594`*^9, 3.568910491858005*^9}, {3.5689105421368933`*^9, 3.5689105444144974`*^9}, {3.568912692943871*^9, 3.56891270358309*^9}, { 3.569081202041748*^9, 3.5690812220097833`*^9}, {3.569081528363121*^9, 3.5690815341975317`*^9}, {3.5690815797964115`*^9, 3.5690815808572135`*^9}, {3.569087876950272*^9, 3.569087906793124*^9}, { 3.5691451539721675`*^9, 3.5691451954526405`*^9}, 3.56914526334396*^9, { 3.5691715700987234`*^9, 3.5691716005343766`*^9}, 3.5692316175093093`*^9}], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tpi", " ", "=", " ", RowBox[{"1.64", "*", "bc", "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", "rpo"}], "+", RowBox[{"1", "/", "rpi"}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", " ", RowBox[{"Ttot", "+", "Tpi"}]}], "\[IndentingNewLine]", 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}}], Cell[BoxData["974.4912868857826`"], "Output", CellChangeTimes->{3.570518963720951*^9, 3.5705190958219833`*^9, 3.570519306141553*^9, 3.5705200980769434`*^9, 3.5705260058420935`*^9, 3.5705260742482133`*^9, 3.5705267204481483`*^9, 3.570526769697435*^9, 3.570527079591979*^9, 3.570527266917108*^9, 3.5705279408382916`*^9, 3.570528040460067*^9, 3.5705282510916367`*^9, 3.570528373707852*^9, 3.57052875990213*^9, 3.5705295082822447`*^9, 3.570529548733116*^9}], Cell[BoxData["778.3921081026266`"], "Output", CellChangeTimes->{3.570518963720951*^9, 3.5705190958219833`*^9, 3.570519306141553*^9, 3.5705200980769434`*^9, 3.5705260058420935`*^9, 3.5705260742482133`*^9, 3.5705267204481483`*^9, 3.570526769697435*^9, 3.570527079591979*^9, 3.570527266917108*^9, 3.5705279408382916`*^9, 3.570528040460067*^9, 3.5705282510916367`*^9, 3.570528373707852*^9, 3.57052875990213*^9, 3.5705295082822447`*^9, 3.570529548733116*^9}], Cell[BoxData[ RowBox[{"-", "2850.483438235172`"}]], "Output", CellChangeTimes->{3.570518963720951*^9, 3.5705190958219833`*^9, 3.570519306141553*^9, 3.5705200980769434`*^9, 3.5705260058420935`*^9, 3.5705260742482133`*^9, 3.5705267204481483`*^9, 3.570526769697435*^9, 3.570527079591979*^9, 3.570527266917108*^9, 3.5705279408382916`*^9, 3.570528040460067*^9, 3.5705282510916367`*^9, 3.570528373707852*^9, 3.57052875990213*^9, 3.5705295082822447`*^9, 3.570529548733116*^9}], Cell[BoxData["18.45`"], "Output", CellChangeTimes->{3.570518963720951*^9, 3.5705190958219833`*^9, 3.570519306141553*^9, 3.5705200980769434`*^9, 3.5705260058420935`*^9, 3.5705260742482133`*^9, 3.5705267204481483`*^9, 3.570526769697435*^9, 3.570527079591979*^9, 3.570527266917108*^9, 3.5705279408382916`*^9, 3.570528040460067*^9, 3.5705282510916367`*^9, 3.570528373707852*^9, 3.57052875990213*^9, 3.5705295082822447`*^9, 3.5705295487487164`*^9}], Cell[BoxData[ RowBox[{"-", "1097.6000432467627`"}]], "Output", CellChangeTimes->{3.570518963720951*^9, 3.5705190958219833`*^9, 3.570519306141553*^9, 3.5705200980769434`*^9, 3.5705260058420935`*^9, 3.5705260742482133`*^9, 3.5705267204481483`*^9, 3.570526769697435*^9, 3.570527079591979*^9, 3.570527266917108*^9, 3.5705279408382916`*^9, 3.570528040460067*^9, 3.5705282510916367`*^9, 3.570528373707852*^9, 3.57052875990213*^9, 3.5705295082822447`*^9, 3.5705295487487164`*^9}], Cell[BoxData["548.7824972282605`"], "Output", CellChangeTimes->{3.570518963720951*^9, 3.5705190958219833`*^9, 3.570519306141553*^9, 3.5705200980769434`*^9, 3.5705260058420935`*^9, 3.5705260742482133`*^9, 3.5705267204481483`*^9, 3.570526769697435*^9, 3.570527079591979*^9, 3.570527266917108*^9, 3.5705279408382916`*^9, 3.570528040460067*^9, 3.5705282510916367`*^9, 3.570528373707852*^9, 3.57052875990213*^9, 3.5705295082822447`*^9, 3.5705295487487164`*^9}], Cell[BoxData["2.0000638664505863`"], "Output", CellChangeTimes->{3.570518963720951*^9, 3.5705190958219833`*^9, 3.570519306141553*^9, 3.5705200980769434`*^9, 3.5705260058420935`*^9, 3.5705260742482133`*^9, 3.5705267204481483`*^9, 3.570526769697435*^9, 3.570527079591979*^9, 3.570527266917108*^9, 3.5705279408382916`*^9, 3.570528040460067*^9, 3.5705282510916367`*^9, 3.570528373707852*^9, 3.57052875990213*^9, 3.5705295082822447`*^9, 3.5705295487487164`*^9}], Cell[BoxData[ RowBox[{"-", "548.8175460185022`"}]], "Output", CellChangeTimes->{3.570518963720951*^9, 3.5705190958219833`*^9, 3.570519306141553*^9, 3.5705200980769434`*^9, 3.5705260058420935`*^9, 3.5705260742482133`*^9, 3.5705267204481483`*^9, 3.570526769697435*^9, 3.570527079591979*^9, 3.570527266917108*^9, 3.5705279408382916`*^9, 3.570528040460067*^9, 3.5705282510916367`*^9, 3.570528373707852*^9, 3.57052875990213*^9, 3.5705295082822447`*^9, 3.5705295487487164`*^9}] }, Open ]] }, WindowSize->{987, 939}, WindowMargins->{{Automatic, 422}, {0, Automatic}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, Magnification->0.8999999761581421, 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, 1655, 34, 70, "Input"], Cell[2215, 56, 3327, 91, 150, "Input"], Cell[CellGroupData[{ Cell[5567, 151, 955, 14, 29, "Input"], Cell[6525, 167, 452, 6, 28, "Output"] }, Open ]], Cell[6992, 176, 2193, 33, 29, "Input"], Cell[CellGroupData[{ Cell[9210, 213, 1560, 29, 29, "Input"], Cell[10773, 244, 935, 14, 28, "Output"] }, Open ]], Cell[11723, 261, 1390, 22, 29, "Input"], Cell[13116, 285, 1566, 28, 29, "Input"], Cell[CellGroupData[{ Cell[14707, 317, 1234, 18, 29, "Input"], Cell[15944, 337, 2107, 56, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18088, 398, 697, 14, 29, "Input"], Cell[18788, 414, 750, 12, 28, "Output"] }, Open ]], Cell[19553, 429, 908, 24, 29, "Input"], Cell[CellGroupData[{ Cell[20486, 457, 4677, 109, 130, "Input"], Cell[25166, 568, 840, 13, 48, "Output"], Cell[26009, 583, 842, 13, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26888, 601, 519, 12, 29, "Input"], Cell[27410, 615, 933, 14, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28380, 634, 1401, 38, 50, "Input"], Cell[29784, 674, 791, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30612, 692, 827, 23, 90, "Input"], Cell[31442, 717, 455, 6, 28, "Output"], Cell[31900, 725, 453, 6, 28, "Output"] }, Open ]], Cell[32368, 734, 1203, 16, 29, "Input"], Cell[33574, 752, 935, 19, 29, "Input"], Cell[CellGroupData[{ Cell[34534, 775, 4596, 139, 250, "Input"], Cell[39133, 916, 473, 6, 28, "Output"], Cell[39609, 924, 587, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40233, 939, 2149, 66, 130, "Input"], Cell[42385, 1007, 2933, 73, 382, "Output"], Cell[45321, 1082, 470, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45828, 1095, 6045, 145, 350, "Input"], Cell[51876, 1242, 2807, 74, 105, "Output"], Cell[54686, 1318, 2293, 60, 86, "Output"], Cell[56982, 1380, 71, 1, 28, "Output"], Cell[57056, 1383, 3486, 87, 562, "Output"], Cell[60545, 1472, 71, 1, 28, "Output"] }, Open ]], Cell[60631, 1476, 778, 10, 29, "Input"], Cell[61412, 1488, 3996, 116, 170, InheritFromParent], Cell[CellGroupData[{ Cell[65433, 1608, 4069, 75, 70, "Input"], Cell[69505, 1685, 4737, 75, 382, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74279, 1765, 3292, 75, 130, "Input"], Cell[77574, 1842, 880, 14, 48, "Output"] }, Open ]], Cell[78469, 1859, 1808, 44, 90, "Input"], Cell[80280, 1905, 561, 12, 50, "Input"], Cell[80844, 1919, 2148, 49, 90, "Input"], Cell[82995, 1970, 2230, 52, 70, "Input"], Cell[85228, 2024, 1525, 36, 50, "Input"], Cell[CellGroupData[{ Cell[86778, 2064, 923, 20, 29, "Input"], Cell[87704, 2086, 474, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[88215, 2097, 711, 18, 29, "Input"], Cell[88929, 2117, 477, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[89443, 2128, 507, 10, 29, "Input"], Cell[89953, 2140, 474, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[90464, 2151, 823, 23, 29, "Input"], Cell[91290, 2176, 472, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91799, 2187, 204, 4, 29, "Input"], Cell[92006, 2193, 471, 6, 28, "Output"] }, Open ]], Cell[92492, 2202, 1971, 35, 90, "Input"], Cell[CellGroupData[{ Cell[94488, 2241, 1770, 24, 29, "Input"], Cell[96261, 2267, 7696, 125, 397, "Output"] }, Open ]], Cell[103972, 2395, 1655, 24, 29, "Input"], Cell[105630, 2421, 3421, 71, 90, "Input"], Cell[109054, 2494, 2696, 53, 90, "Input"], Cell[CellGroupData[{ Cell[111775, 2551, 939, 17, 70, "Input"], Cell[112717, 2570, 2771, 61, 105, "Output"], Cell[115491, 2633, 458, 6, 28, "Output"], Cell[115952, 2641, 458, 6, 28, "Output"] }, Open ]], Cell[116425, 2650, 10201, 233, 130, "Input"], Cell[126629, 2885, 6235, 101, 50, "Input"], Cell[132867, 2988, 10215, 234, 130, "Input"], Cell[143085, 3224, 5925, 93, 29, "Input"], Cell[149013, 3319, 8432, 174, 230, "Input"], Cell[157448, 3495, 7231, 125, 110, "Input"], Cell[164682, 3622, 5979, 91, 29, "Input"], Cell[CellGroupData[{ Cell[170686, 3717, 6188, 92, 50, "Input"], Cell[176877, 3811, 112456, 1920, 337, 14568, 315, "CachedBoxData", "BoxData", \ "Output"], Cell[289336, 5733, 8945, 142, 337, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[298318, 5880, 4975, 124, 190, "Input"], Cell[303296, 6006, 453, 6, 28, "Output"], Cell[303752, 6014, 7289, 191, 1042, "Output"] }, Open ]], Cell[311056, 6208, 3049, 67, 70, "Input"], Cell[314108, 6277, 1513, 45, 50, "Input"], Cell[315624, 6324, 1841, 29, 50, "Input"], Cell[CellGroupData[{ Cell[317490, 6357, 4067, 94, 150, "Input"], Cell[321560, 6453, 4000, 118, 1042, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[325597, 6576, 6760, 155, 170, "Input"], Cell[332360, 6733, 2615, 76, 67, "Output"], Cell[334978, 6811, 1342, 20, 48, "Output"] }, Open ]], Cell[336335, 6834, 120, 2, 29, "Input"], Cell[336458, 6838, 2958, 53, 29, "Input"], Cell[339419, 6893, 1863, 27, 29, "Input"], Cell[CellGroupData[{ Cell[341307, 6924, 3913, 83, 170, "Input"], Cell[345223, 7009, 469, 6, 28, "Output"], Cell[345695, 7017, 469, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[346201, 7028, 1946, 49, 110, "Input"], Cell[348150, 7079, 471, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[348658, 7090, 499, 15, 50, "Input"], Cell[349160, 7107, 493, 7, 28, "Output"] }, Open ]], Cell[349668, 7117, 1381, 21, 29, "Input"], Cell[CellGroupData[{ Cell[351074, 7142, 1709, 32, 50, "Input"], Cell[352786, 7176, 485, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[353308, 7188, 1415, 43, 70, "Input"], Cell[354726, 7233, 495, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[355258, 7245, 2550, 50, 90, "Input"], Cell[357811, 7297, 476, 6, 28, "Output"] }, Open ]], Cell[358302, 7306, 1499, 20, 29, "Input"], Cell[CellGroupData[{ Cell[359826, 7330, 1218, 25, 190, "Input"], Cell[361047, 7357, 469, 6, 28, "Output"], Cell[361519, 7365, 469, 6, 28, "Output"], Cell[361991, 7373, 486, 7, 28, "Output"], Cell[362480, 7382, 459, 6, 28, "Output"], Cell[362942, 7390, 489, 7, 28, "Output"], Cell[363434, 7399, 471, 6, 28, "Output"], Cell[363908, 7407, 472, 6, 28, "Output"], Cell[364383, 7415, 488, 7, 28, "Output"] }, Open ]] } ] *) (* End of internal cache information *)