(* 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[ 295610, 6122] NotebookOptionsPosition[ 289611, 5931] NotebookOutlinePosition[ 290147, 5952] CellTagsIndexPosition[ 290104, 5949] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Facio"}], "-", RowBox[{"PDB", " ", "source"}]}], ",", " ", RowBox[{"ES", " ", "23", " ", "February", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570642361769864*^9, 3.5706423633454666`*^9}}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJxTTMoPSmViYGAQAmJmIBZZ5/6w6kjsAbcp39jiZ/zcXzpZgiXsXtCBbZ// Xql4qX1A/Oa578HaoQ5vAnfIta6OPnB9cYEtl3vUgVp707hdE0MPVIMMmOXo ABV3gIo7QMVh5jhAzTkANccBaq8D1F57qL0Oh79qxPRrZR2YdLreY/9flgO2 XECT5yYcCOPT3TTX3+KAx8MqkXXrkxxA2kXSMg4Yg4B0+gH51teBO9iSD/Qf Ahpg7+8AFXeAijtAxWHmOEDNOQA1B2avA9ReB6i9Dmkg0JZy4FbX39TvTxgO /Ah+vHQ2T9QBoGv5dJWMD1zxTRKIcI11CAJ667Us1H75pAP3VNgap56PPQCy Xi7XwwEq7gAVd4CKw8xxgJpzAGoOzF4HqL0OUHsdAOE+yYE= "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[7, 24.], SphereBox[8, 24.], SphereBox[9, 24.], SphereBox[10, 24.], SphereBox[11, 24.], SphereBox[12, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[1, 34.], SphereBox[2, 34.], SphereBox[3, 34.], SphereBox[4, 34.], SphereBox[5, 34.], SphereBox[6, 34.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{13, 7}, 15.], CylinderBox[{14, 8}, 15.], CylinderBox[{15, 9}, 15.], CylinderBox[{16, 10}, 15.], CylinderBox[{17, 11}, 15.], CylinderBox[{18, 12}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{1, 2}, 15.], CylinderBox[{1, 3}, 15.], CylinderBox[{1, 13}, 15.], CylinderBox[{2, 4}, 15.], CylinderBox[{2, 14}, 15.], CylinderBox[{3, 5}, 15.], CylinderBox[{3, 15}, 15.], CylinderBox[{4, 6}, 15.], CylinderBox[{4, 16}, 15.], CylinderBox[{5, 6}, 15.], CylinderBox[{5, 17}, 15.], CylinderBox[{6, 18}, 15.]}}]}, Boxed->False, ImageSize->199.28847188615413`, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.570641992236415*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t1", "=", RowBox[{"1.889726", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.000", ",", "1.397", ",", RowBox[{"-", "0.00"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.209", ",", "0.700", ",", "0.00"}], "}"}], ",", RowBox[{"{", RowBox[{"1.210", ",", RowBox[{"-", "0.698"}], ",", "0.00"}], "}"}], ",", RowBox[{"{", RowBox[{"0.000", ",", RowBox[{"-", "1.397"}], ",", "0.00"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.209"}], ",", RowBox[{"-", "0.700"}], ",", "0.00"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.210"}], ",", "0.698", ",", RowBox[{"-", "0.00"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.000", ",", "2.500", ",", RowBox[{"-", "0.00"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.164", ",", "1.250", ",", "0.00"}], "}"}], ",", RowBox[{"{", RowBox[{"2.165", ",", RowBox[{"-", "1.247"}], ",", "0.00"}], "}"}], ",", RowBox[{"{", RowBox[{"0.000", ",", RowBox[{"-", "2.500"}], ",", "0.00"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.164"}], ",", RowBox[{"-", "1.250"}], ",", "0.00"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.165"}], ",", "1.248", ",", RowBox[{"-", "0.00"}]}], "}"}]}], "}"}]}]}], ";"}], "\n", RowBox[{"MatrixForm", "[", "t1", "]"}]}], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, {3.5705590525489826`*^9, 3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "2.639947222`", "0.`"}, {"2.2846787340000003`", "1.3228081999999999`", "0.`"}, {"2.28656846`", RowBox[{"-", "1.319028748`"}], "0.`"}, {"0.`", RowBox[{"-", "2.639947222`"}], "0.`"}, { RowBox[{"-", "2.2846787340000003`"}], RowBox[{"-", "1.3228081999999999`"}], "0.`"}, { RowBox[{"-", "2.28656846`"}], "1.319028748`", "0.`"}, {"0.`", "4.724315`", "0.`"}, {"4.089367064`", "2.3621575`", "0.`"}, {"4.09125679`", RowBox[{"-", "2.356488322`"}], "0.`"}, {"0.`", RowBox[{"-", "4.724315`"}], "0.`"}, { RowBox[{"-", "4.089367064`"}], RowBox[{"-", "2.3621575`"}], "0.`"}, { RowBox[{"-", "4.09125679`"}], "2.358378048`", "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.570641992314415*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"u", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}]], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, 3.5705592408949137`*^9, {3.5705593512807074`*^9, 3.5705593890483737`*^9}, { 3.570559442712468*^9, 3.5705594826641383`*^9}}], 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["12"], "Output", CellChangeTimes->{3.570641992330015*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"un", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "\"\\"", ",", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, 3.5688146762563534`*^9, 3.56881472549004*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.570641992345615*^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[{"\<\"Z\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "12"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570641992361215*^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", ",", "9", ",", "10", ",", "11", ",", "12"}], "}"}]], "Output", CellChangeTimes->{3.5706419923768153`*^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.25713", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.22522", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{3.5706419924080153`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.25713`", ",", "0.25713`", ",", "0.25713`", ",", "0.25713`", ",", "0.25713`", ",", "0.25713`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.5706419924080153`*^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\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5706419924236155`*^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.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.570641992439215*^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["6"], "Output", CellChangeTimes->{3.570641992454815*^9}], Cell[BoxData["6"], "Output", CellChangeTimes->{3.570641992454815*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}, {3.570559817191126*^9, 3.570559818907129*^9}}], Cell[BoxData["\<\"C6H6\"\>"], "Output", CellChangeTimes->{3.570641992470415*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Lighter", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5682659184078283`*^9, 3.5682659267694435`*^9}, {3.568265972477524*^9, 3.568266002725977*^9}, 3.568277802649102*^9, {3.568820898608082*^9, 3.568820922429324*^9}, 3.5688217528499823`*^9, 3.568821789307246*^9, { 3.569406212748887*^9, 3.569406252544557*^9}, {3.569492717066082*^9, 3.5694927471737347`*^9}, {3.5694931324008117`*^9, 3.5694931369404197`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5681199008322024`*^9, 3.568119920691037*^9}, {3.5681199536070952`*^9, 3.568119958521104*^9}, {3.568120000641178*^9, 3.568120067206495*^9}, { 3.5681211528280015`*^9, 3.5681211643408213`*^9}, 3.5681213201694956`*^9, { 3.568121503313817*^9, 3.568121508961027*^9}, {3.568266015439999*^9, 3.5682660461096525`*^9}, 3.568277806081108*^9, {3.568381589141924*^9, 3.568381589391525*^9}, 3.5688217602599955`*^9, {3.568821800305266*^9, 3.568821801397268*^9}, 3.5693901242572327`*^9, {3.570559203182847*^9, 3.5705592101248593`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5681199008322024`*^9, 3.568119920691037*^9}, {3.5681199536070952`*^9, 3.568119958521104*^9}, {3.568120000641178*^9, 3.568120067206495*^9}, { 3.5681211528280015`*^9, 3.5681211643408213`*^9}, 3.5681213201694956`*^9, { 3.568121503313817*^9, 3.568121508961027*^9}, {3.568266015439999*^9, 3.5682660461096525`*^9}, 3.568277806081108*^9, {3.568381589141924*^9, 3.568381589391525*^9}, 3.5688217602599955`*^9, {3.568821800305266*^9, 3.568821801397268*^9}, 3.5693901242572327`*^9, {3.570559203182847*^9, 3.5705592101248593`*^9}, {3.5705595108377876`*^9, 3.570559516188597*^9}}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {100., 286.6}], LineBox[{{{94.32977999273973, 266.77961894742526`}, {79.33, 240.8}}, {{ 85.66977999273973, 271.77961894742526`}, {70.67, 245.8}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {50., 200.}], LineBox[{{{79.33, 240.8}, {64.33022000726027, 214.8203810525748}}, {{ 70.67, 245.8}, {55.67022000726027, 219.8203810525748}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {100., 286.6}], LineBox[{{90.00064598739964, 303.9208810206263}, {75., 329.905}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {50., 373.21}], LineBox[{{75., 329.905}, {59.99935401260035, 355.8891189793737}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {100., 286.6}], LineBox[{{120., 286.6}, {131., 286.6}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {162., 286.6}], LineBox[{{131., 286.6}, {142., 286.6}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {50., 200.}], LineBox[{{30., 200.}, {0., 200.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {-50., 200.}], LineBox[{{0., 200.}, {-30., 200.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {50., 200.}], LineBox[{{60.000499387041415`, 182.6797802551531}, {65.5, 173.155}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {81., 146.31}], LineBox[{{65.5, 173.155}, {70.99950061295858, 163.6302197448469}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {50., 373.21}], LineBox[{{{30., 368.21}, {0., 368.21}}, {{30., 378.21}, {0., 378.21}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {-50., 373.21}], LineBox[{{{0., 368.21}, {-30., 368.21}}, {{0., 378.21}, {-30., 378.21}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {50., 373.21}], LineBox[{{60.00049938704141, 390.5302197448469}, {65.5, 400.055}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {81., 426.90000000000003`}], LineBox[{{65.5, 400.055}, {70.99950061295858, 409.57978025515314`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {-50., 200.}], LineBox[{{{-64.33022000726027, 214.8203810525748}, {-79.33, 240.8}}, {{-55.67022000726027, 219.8203810525748}, {-70.67, 245.8}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {-100., 286.6}], LineBox[{{{-79.33, 240.8}, {-94.32977999273973, 266.77961894742526`}}, {{-70.67, 245.8}, {-85.66977999273973, 271.77961894742526`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {-50., 200.}], LineBox[{{-60.000499387041415`, 182.6797802551531}, {-65.5, 173.155}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {-81., 146.31}], LineBox[{{-65.5, 173.155}, {-70.99950061295858, 163.6302197448469}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {-50., 373.21}], LineBox[{{-59.99935401260035, 355.8891189793737}, {-75., 329.905}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {-100., 286.6}], LineBox[{{-75., 329.905}, {-90.00064598739964, 303.9208810206263}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {-50., 373.21}], LineBox[{{-60.00049938704141, 390.5302197448469}, {-65.5, 400.055}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {-81., 426.90000000000003`}], LineBox[{{-65.5, 400.055}, {-70.99950061295858, 409.57978025515314`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {-100., 286.6}], LineBox[{{-120., 286.6}, {-131., 286.6}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.08735150244584207], FontWeight->Plain], {-162., 286.6}], LineBox[{{-131., 286.6}, {-142., 286.6}}]}}}, {}, {}}, ImageSize->{{0., 114.48}, {0., 104.61493333333333`}}, PlotRange->{{-184.5, 180.}, {116.31, 449.40000000000003`}}]], "Output", CellChangeTimes->{3.5706419925172153`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.570629062517209*^9, 3.5706291293789268`*^9}, {3.5706291729654036`*^9, 3.5706291809370174`*^9}, {3.5706292822747955`*^9, 3.570629287251204*^9}, { 3.5706293460321074`*^9, 3.5706293615541344`*^9}, {3.570629425873048*^9, 3.5706294543742976`*^9}, {3.570629510456396*^9, 3.5706295315632334`*^9}, { 3.5706295789561167`*^9, 3.5706295883629327`*^9}, {3.570629676066287*^9, 3.57062968946671*^9}, 3.570629738450796*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.570629062517209*^9, 3.5706291293789268`*^9}, {3.5706291729654036`*^9, 3.5706291809370174`*^9}, {3.5706292822747955`*^9, 3.570629287251204*^9}, { 3.5706293460321074`*^9, 3.5706293615541344`*^9}, {3.570629425873048*^9, 3.5706294543742976`*^9}, {3.570629510456396*^9, 3.5706295315632334`*^9}, { 3.5706295789561167`*^9, 3.5706295883629327`*^9}, {3.570629676066287*^9, 3.57062968946671*^9}, 3.570629738450796*^9, {3.5706403092742586`*^9, 3.5706403203190784`*^9}, 3.570640412000439*^9, {3.570640546659876*^9, 3.5706405616983023`*^9}, {3.5706406744397*^9, 3.5706406861241207`*^9}, { 3.57064081090874*^9, 3.5706408605012274`*^9}, {3.5706415485092354`*^9, 3.5706415825484953`*^9}, 3.5706416878330803`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"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.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.6371598588001754`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.6418376238675814`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.640685694515964`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.6371598588001754`", "0.`", "0", "0", "0", "0", "0", "0", "0"}, {"2.640685694515964`", "0", "0", "0", "2.6418376238675814`", "0.`", "0", "0", "0", "0", "0", "0"}, {"2.084367778`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"0", "2.08258179571624`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "0", "2.08163933862772`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "0", "0", "2.084367778`", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"0", "0", "0", "0", "2.08258179571624`", "0", "0", "0", "0", "0", "0.`", "0"}, {"0", "0", "0", "0", "0", "2.0825817957162402`", "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.570641992548415*^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.25713`", ",", "0.25713`", ",", "0.25713`", ",", "0.25713`", ",", "0.25713`", ",", "0.25713`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`"}], "}"}]], "Output", CellChangeTimes->{3.5706419925640154`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Gij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, { 3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.569341165522358*^9, 3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}, { 3.57059671735485*^9, 3.570596744467697*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Hij", "=", RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Hij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679601758938704`*^9, 3.5679601965327067`*^9}, { 3.567960427147912*^9, 3.567960432217921*^9}, {3.5679605764089737`*^9, 3.5679605968294096`*^9}, {3.5679607389456596`*^9, 3.5679607643581038`*^9}, 3.5681142501278777`*^9, 3.5681218877140923`*^9, 3.569341165537958*^9, 3.5693418217531104`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Kij", "=", RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Kij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679602339571724`*^9, 3.567960257419614*^9}, { 3.567960343406965*^9, 3.567960353500182*^9}, {3.5679604155258913`*^9, 3.567960421422702*^9}, {3.567960854323462*^9, 3.567960874197897*^9}, { 3.5679611596939983`*^9, 3.567961170270817*^9}, {3.5679614000124207`*^9, 3.567961407016833*^9}, {3.5679615066074076`*^9, 3.567961509649413*^9}, 3.5679616124379935`*^9, 3.5679616766477065`*^9, {3.5679617424486217`*^9, 3.5679617456310277`*^9}, 3.567961801276325*^9, {3.5679618582788253`*^9, 3.5679618970760937`*^9}, {3.5679620279135237`*^9, 3.567962030113127*^9}, 3.567962107894864*^9, {3.567962149468937*^9, 3.5679621572533503`*^9}, 3.5679623389156694`*^9, {3.567962645815009*^9, 3.567962648888214*^9}, { 3.567962691647889*^9, 3.567962693020692*^9}, {3.568048161486014*^9, 3.568048162827616*^9}, 3.5680482096900983`*^9, 3.5681142588638926`*^9, 3.568121899632513*^9, 3.5681219958534822`*^9, {3.568277844675576*^9, 3.5682778463603787`*^9}, {3.569341165537958*^9, 3.569341165537958*^9}, { 3.5693418217531104`*^9, 3.5693418217531104`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.5683793122399254`*^9, 3.568379313019926*^9}, { 3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, { 3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 3.5705968020785985`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}, { 3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 3.5705968602823005`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tval", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.567963992456174*^9, 3.567964003890994*^9}, { 3.5679640974287586`*^9, 3.5679642038209453`*^9}, {3.56796433180357*^9, 3.567964353487608*^9}, {3.567964403641696*^9, 3.567964453046983*^9}, { 3.5679646160984693`*^9, 3.5679646168316708`*^9}, {3.567964688747797*^9, 3.567964762255126*^9}, {3.568277859480002*^9, 3.568277863598409*^9}, { 3.568379511358675*^9, 3.5683795129030776`*^9}, 3.5688214977895346`*^9, { 3.56882774467134*^9, 3.56882781892747*^9}}], Cell[BoxData["20.501003179077692`"], "Output", CellChangeTimes->{3.570641992595216*^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["204.18708486468535`"], "Output", CellChangeTimes->{3.5706419926108155`*^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["224.68808804376303`"], "Output", CellChangeTimes->{3.5706419926264153`*^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["8.549631140052401`"], "Output", CellChangeTimes->{3.5706419926420155`*^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["11.95137203902529`"], "Output", CellChangeTimes->{3.5706419926420155`*^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\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>"}, {"\<\"C\"\>", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.0614499294000876`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "1.0637888119337906`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "1.0632128472579818`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "1.0614499294000876`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.0632128472579818`", "0", "0", "0", "1.0637888119337906`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"\<\"H\"\>", "1.2579377779999996`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "1.2561517957162396`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "1.2552093386277199`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "1.2579377779999996`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "1.2561517957162396`", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "1.25615179571624`", "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.570641992673216*^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.0614499294000876`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.0637888119337906`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1.0632128472579818`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "1.0614499294000876`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "1.0632128472579818`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1.0637888119337906`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1", ",", "1.2579377779999996`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "2", ",", "1.2561517957162396`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "3", ",", "1.2552093386277199`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "4", ",", "1.2579377779999996`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "5", ",", "1.2561517957162396`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "6", ",", "1.25615179571624`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5706419926888156`*^9}], Cell[BoxData["12"], "Output", CellChangeTimes->{3.5706419927044153`*^9}], Cell[BoxData["6"], "Output", CellChangeTimes->{3.5706419927044153`*^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.45"}], ";"}], "\[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.45"}], ";"}], "\[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"}], "}"}]}], "]"}]}], ";"}]}], "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}, 3.5705969511836605`*^9, {3.570600950431086*^9, 3.57060095267749*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"(*", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Red", ",", "0.8"}], "]"}], ","}], "*)"}], RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1", ",", "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "->", "False"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0., 2.639947222, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.2846787340000003`, 1.3228081999999999`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.28656846, -1.319028748, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0., -2.639947222, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.2846787340000003`, -1.3228081999999999`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.28656846, 1.319028748, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0., 4.724315, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.089367064, 2.3621575, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.09125679, -2.356488322, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0., -4.724315, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.089367064, -2.3621575, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.09125679, 2.358378048, 0.}, 0.1]}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{1.1423393670000002`, 1.981377711, 0.}, 1.0614499294000876`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{2.285623597, 0.001889725999999925, 0.}, 1.0637888119337906`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{1.14328423, -1.979487985, 0.}, 1.0632128472579818`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-1.1423393670000002`, -1.981377711, 0.}, 1.0614499294000876`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-1.14328423, 1.979487985, 0.}, 1.0632128472579818`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-2.285623597, -0.001889725999999925, 0.}, 1.0637888119337906`]}}, {Opacity[0.5], SphereBox[{0., 4.155015, 0.}, 1.2579377779999996`]}, {Opacity[0.5], SphereBox[{3.596032747728569, 2.0780382602625265`, 0.}, 1.2561517957162396`]}, {Opacity[0.5], SphereBox[{3.597699117830767, -2.072757262292242, 0.}, 1.2552093386277199`]}, {Opacity[0.5], SphereBox[{0., -4.155015, 0.}, 1.2579377779999996`]}, {Opacity[0.5], SphereBox[{-3.596032747728569, -2.0780382602625265`, 0.}, 1.2561517957162396`]}, {Opacity[0.5], SphereBox[{-3.597922473728569, 2.0742588082625266`, 0.}, 1.25615179571624]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{0., 2.639947222, 1.45}, 1.45]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{2.2846787340000003`, 1.3228081999999999`, 1.45}, 1.45]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{2.28656846, -1.319028748, 1.45}, 1.45]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{0., -2.639947222, 1.45}, 1.45]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{-2.2846787340000003`, -1.3228081999999999`, 1.45}, 1.45]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.4], SphereBox[{-2.28656846, 1.319028748, 1.45}, 1.45]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0., 2.639947222, -1.45}, 1.45]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{2.2846787340000003`, 1.3228081999999999`, -1.45}, 1.45]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{2.28656846, -1.319028748, -1.45}, 1.45]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0., -2.639947222, -1.45}, 1.45]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.2846787340000003`, -1.3228081999999999`, -1.45}, 1.45]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.28656846, 1.319028748, -1.45}, 1.45]}, TubeBox[{{2.2846787340000003`, 1.3228081999999999`, 0.}, {0., 2.639947222, 0.}}, 0.15], TubeBox[{{2.28656846, -1.319028748, 0.}, {2.2846787340000003`, 1.3228081999999999`, 0.}}, 0.15], TubeBox[{{0., -2.639947222, 0.}, {2.28656846, -1.319028748, 0.}}, 0.15], TubeBox[{{-2.2846787340000003`, -1.3228081999999999`, 0.}, { 0., -2.639947222, 0.}}, 0.15], TubeBox[{{-2.28656846, 1.319028748, 0.}, {0., 2.639947222, 0.}}, 0.15], TubeBox[{{-2.28656846, 1.319028748, 0.}, {-2.2846787340000003`, -1.3228081999999999`, 0.}}, 0.15], TubeBox[{{0., 4.724315, 0.}, {0., 2.639947222, 0.}}, 0.15], TubeBox[{{4.089367064, 2.3621575, 0.}, {2.2846787340000003`, 1.3228081999999999`, 0.}}, 0.15], TubeBox[{{4.09125679, -2.356488322, 0.}, {2.28656846, -1.319028748, 0.}}, 0.15], TubeBox[{{0., -4.724315, 0.}, {0., -2.639947222, 0.}}, 0.15], TubeBox[{{-4.089367064, -2.3621575, 0.}, {-2.2846787340000003`, -1.3228081999999999`, 0.}}, 0.15], TubeBox[{{-4.09125679, 2.358378048, 0.}, {-2.28656846, 1.319028748, 0.}}, 0.15]}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.570641992751216*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvIdz5Hd65vfcUKHu7JNOPslnn8o+uewqu+wqu1y70pXvVpZ1EsNwMndJ LtNwZpgmDycPcs4ZjUZooIHOOeecE4BGbOQ8iXlXy+UmUkvCz68b5JJX/gdc pSo+3Y3U/f1938/3eZ+3OcCxs7fOv3Xl7K0Lb5z9i6dvnH33/IU3bv7FU9du 8FNP/DPgn/29oL+A8Hgf+Ppmn//tPyncCJ/5p8f/9PifHv//9XFd8e6PIB6t hERahXFpNeSUktKMVUM7Wg2dhBqhhquhH+LnxJSI6qtyl56lunj3Z5CMV2JM VgWZrBoqOX9CVgMjZaYsEzWwTdTCPl4Lh5Qaq4VzlJLw8XAN7EOUmOIz2/qq Ye2ugq69Ev/TwQoHR6uKK5RyZTJKwdWpuDo1peEKtVydVljdIDVA9VdB21NV U1phZfHuX2BcXgWFogpqJVdHGZVcGWVXciWUW1ELj7z2EHyyWvxLBLjgABcc 4IIDXGyAi/WP1MI3RA3WwssFe/ur4emphrurCva2Kvy74kv9KUYnuFhuhIwb oaQ03AT9wYaY+LxmPq+Vz2vjRtj43DY+t32ktBE2Pq+NF2Hnc9v43NauqtIV oLx4999BrqiEUlUFjaoaBnU1zGr+BOVQ8yJUXBnlp4K8qBAVkdchKkhWh9hE HeLjvJdSfPUYXz3KV48M1yLMqwqKKVENQixDsLsa/o4quFsq8efF1/5vMcFN lHPzVJSGm6enjHwNC2XjBjrk3Ezun4vy8Eq9vFIvr9TH1/HydXzcQS9fy8PX 8gwIO0jxtTx8LTdfy9FaibLS5d472EyFvAIq4XJ5qTpNNUwaXi7l1PIpNHxK KkiFeflRNS9LxUukkso6pBQULz1NZXjpmfG6J5Dmtf8LpHj1Sa4owRXFWNMY 9z3GK49yNZFOXn0rr7y+4t8UV/FfQaGs4qaTOWEV3GwjZeYr2rjRDlVp4z3c BB9f1c9XC1AhbniYrxrmhof5ouFR0hXma/5zhLgHIWG/B0r7HeQ+hFjtYBf3 nCR5mypwt7QPpbv/kdxWQKupKu6BQVsNi5YlpzzcBx8VpCJUTFuHhIbXT6W5 HxnuRZarylGTgvjxFO+nuDfTXOUUNcmVTnKlOa40y3KluTkplizFZSYHa5Dk yUz0ViPGEoW4tD8trukvoFRWckdYG65JK6yLdTFzDTbWw6kp1cfLXQpwHSG+ bpivG1GWcIxTCb5unK+b4OsmuUOJUUoiqBZxQSxOlMWJDpaKE2NxotymaGcV ws2Vd0o7dLt49ydQyMqhVVVwFVUwCTuk4xHS18BFefVcBRWmYjqWXUcyuFMZ KsudmqSm1PU4hDxvn8AMb2cPdIi35GaWF/BfYIbLzxe3rpZbVsstq0WW25Xl +c3QhNLcqiQNLN5SQWxKC9OohbJVQa8VSkcPoKxchINb5T4oX4ALCFERKqb+ FsLKEr5PIMPbP0aWW5YdLykj6FvlEnhO0lCT9JEUPSTZd7AWEhVuqMCt0n7d OjhZGkU59OoKGLVVMOuqYNVXw0G5DTXwc59CVJSK67kMKqOvR05bjyldA6ap vL4Bs7yfo+Z1DYewwAdPYJG3i/yScC98rp5uusAfm+dWz/PquJmY4XHJ87gI uzg1XoMpaQ0maeU5WnimrwrJ9gpeq7DMf02fqYCeu2fgMk0sqZnltFJ2Ls1F FUvL3Qzx+aPU1wcgxddJq74+AFy6QijlpKL+ENmv59NPK0r0T33rFORY0ixL KmxrdrQGWQnFsmbZ+TLsKylafby5AjdLW/lu8e7P0dBsRnurHT1tDlTd6EPd jX40Ua3X+9FGdbzbj86rInReoS5RF0ToersPaW5plprkfuV1jZihZql5fSMW DI0oFNWEJSNlasIydYi3jfhXvG3AsrGkJapgqOe+13PH64p7PcuDN8M9zstr kOceT7NdTg1XYVJUhXRnxb886Nw6VYkAEwkws/oWykYCHAbCya31UcHiyeHW 8qkTLGWKSmu4dE0DctQkNUXl1ZRKKPuMuoEnhh/+EWvdQNUXlSfN0+wTU0Ld ZQe1H6MkwtqqMTlQhWxPJVJtFTdKO3zlYIdb2kzo7OQOdzog7nJCQrXe7kPn nX703O5HPzVwqx+D1NANEUauiyB5l+KuS7jrkksDkFyg3hnA8BsizHJX56lF 7mzBdLC75masUIewamkmyWu8XbM2Y90q7Poab/+Yn2vkVxuxIogVWDLVH+y8 sOu1mOOuz7ErzrL/zzCszIxUYUq4qu4KuodwLf8WelU5PaCSW106dDZDNZzc cje33Ev5qaCBNLOacSpJOtI8TVnt11vdiGlqhprVNmGOmhfuBXKoBUH6xkPF B39cPJbzWkH1mDs4gMLhyytKcFy/2IW7l3pRcbEXNed7UfsWda4HPVXWA8Bx qXj379DZYUZPtx2iHgeGe5wYo2SUihLd68PQvX6MUGN3+zHOyshui6CglDdF ULEqqusDUF+jrgxAeZliVZTnqbcGID8nwuhrPdzZZqxaW7Bma8G6IHsLNqhD 2HS0CDfNtNQN3m44mviFJn4TZWVZBFl4IISSGEslWWBJFtir5xXVmJuoxqyk CtPiSuS6y9mGSyfAyHJYtBUsRRX7BaMXy+EolqPmoBzsXEI5WOaEoYFeyFLw gOa4u1O6Jh7cJsxw+2d5P6dvJlYCQosGAaFFYzPX0lTUIeEYHxIeHioe7D8p 2mTlrT5U3xKhgWrmNrVxmzppGd3X+tF7pR99l6gLFO1ios6JiRpueZUDsnI7 Ru+YD0qDCwfpsKvDgL4eK0S9rFCfA9I+JxSUmtJTI+V9GCtndSh5WT9UlOae CNq7IhjuiGBktUy3BmAWdHMAlnd5T5lYMeNlMYwXxTCcF0P/xgA0Z/ohfalD qIyz9RC2XK284m3ebrsFtQgf8fZf8Sst2HI2s3ZNB1VjpWwNLDUPkLme+1KH Ai18kflhkZVaYICeY+qfEVcg21X+h8Vr+2+YNMtgZaHsLJTDIIiFMrJhGWvg M7IL8GnCLHyMRUpwg9NUVt9Ed23CNM96niWZNZQKtGBowYKxhWefMrdwGWRr 2dzy+0X+/gx1d3vRwH1pKhtAy70BdFDd3KN+7pGYezTEco2wVKMs1ShLNXaZ usjHLJO+nntdS1VTlVSZA7o7toMa4fxBpuzvNmGg14bBfgck/ayqiGWi9JSZ Gqvog4xSVrBElI4lM5SLYKaslJ1Lc9wdOATXnQH2WDdv3bepW2K4KOdNMRzX xbBfpa6IYWPVLKya/nQvy9KGHU8bC7TrbcMfYM/bykffkqeFX+eObLub+dRb rlLd1li3FdZt2VKq2RL7QoE1KzAZL3L6m+csWaxZdxmfVLjKfwOrRihYZbFg TsrFgrlYMC9/PsBihago21eSRSsWjIWa4inKUzMs0hw1z0ItCsUyt7JQrXz9 VqxYWwWjtrUS+rUDm1g7UFNZH1oqBtBaycJR3VQ/PxZTw+UDGOXOSVnMCRZT /rU9sZBqFlLFQqovctff6YON583KQtpYSDsLaS+n7jhguWnFO6VivnNwmeJe E4b6bZCwcFJKMeDkMOqEibJR45V8SkpT2U8m+mGiLBUsIuWk3Fyal8v0UX4+ DvA+WClGsELMywyWi/FfIlAmhp/y3hXDwwp7WF0Pq+ukg9rO9WHP1449fzvu B9rwINB2qPjg9/DA34b7B9rz86DueltY1B1PM7ZY3g0Wd83BA2lnYa0srKkO y7S9ZabVAgevwkQlFkYrWNhy/P7BHGjVlMOhq2D+qoSLRRVOoJsn0M2i+qmv i5owCqewCTmeuClqWjiBLOQcT90CC1ksKIu5bBUK2sY1tLGAbVh3CGxuONtY 3JbyHrRXidBRzWJWi9FD9VOD1EjVAMa4UzJKwV1TsrBqnlodC6tnYQ0srJGF NV2lWFgjC6s/3wdPoxMeFtfD4npZXC+L6+Up9dy2wXnNjLdKxS3d/TVEXVoM 9ZlYXBvGBui9LKhKzJNKWSgH5abUVXx6LtXEZVm5PHv1IFyUp3oIvuphBGqG EKoZRqR2GNHaIcQE1Q0ieYt56jbj6h1mrFoxojViRPjzocpBhMoGEbw7iMDN QfiuDsAlGMyPWvEw2IGHIUHteER9+/5BkNUOtGKP2vXzKLPgm16W2s1Su3iG HaVSL5tZamOp1EvKUqnnJeXID5Zx+w9KrSrjoFLOUlewI1bBQ9P1Fs8vsyE7 bZBljrDMxVKzy2XZ8SZZ4jw1a2rFvKkNi+Y2FCxtWGKJV2wHZWaJ11ngDVe7 0EB4+z8Qx3Z0Vvehu4ZnlvvQQ/VRYmqEknJfZJSSe6PmHutYdgPLbmTZzSy7 lWW3sex2hkH7TYqx23GV5/hKH8ItToSanQiy9MEGPqZJh1j+EEsfLLPDf9MC 50Ut3iiV/s3i3X/PrKnBSJ8RoyIrxgfsUAhlpgyDtIZBF5yDbnjFHmiq2BdZ ZgvLbK+WwFkjIV2j8NWNIVgnRbh+DNEGKeKNUkRvtyJ+pxXJu63IlLUgW96C yQqekEr2qapG5Ks4TOWr6vGHpGEQMRIUqxhEhBSEGKB8F3pheFE4II8jHYfw ONzBKelxmOWnHoZ59kMsf5ClZ/m3faXSr3uasMqTXiy97aD0hq9LX4nCeEWx 9OneuyxHydMcPOUunnIPT7n3oOz+Yp9l2U2lssdZ8lSx7C3Fsk+bDsrOk71g FkreztdrZ8nbWfJ2lpxyFzODW1j3lqcD294O9NQw4tSx3PWDEFHiejGGqTFK xs8rKQ0R0LH8RpbfLBwxlt9GO3ew/C7a+SH2QBEDr4fl9wq6KagP7ut9iHc4 EW93ItZGtfIxcYgThThdIFZlR+SeBYFrepwrlb9Ewf8CcacSkj4DLd3M8ttY fgc0LL2RZbcOeuEa9ME3GEBwMMhlSWCtGYWjRgp37Ti89RMINMgQbpQj2iTn 3KhA6E43Yve6kSjvRrqiG9mqLkxVdyFf24mZug7M1rdjrr4N8w00yEbGlAZG +wbG+np2SG5Lgiwk2AyijB/BK72/h/djnfgR3ot14L1oBx5TDyOkIEIKSMIe SdghCVs0gQ0fpxlSsEIDWHYKFFBmEsCYu8z5eklBCibKMSMpvfVmV92Diwe/ VP0q+AxfV7+ueOhDrH6MlU/ywGeEQ89GPW1sxQyrP8fKL1raS9W3d7D6HVhz dmDd1VGs+9dV3/Z1oLOyHf11faz6AAYaWHlqmJJQ8nv19PN66CkzZaecdxvg ofx3GuHkaXNVj8BTNUIPH4G/fJjdk0ZbMcSeSQnmeY9d9O4AMr1u0u1CirNK itNjqtOJNIlIk4Z0kwOpOhsSlWZEburPfhuC/xWjfTqMi0yYGLAeAOAmAD4C 4IdrKEgAwggNRmBk4a11E3DWy1l8BfwNKgSb1Ii0qMmcBj5ORaEyEaLs98lK ETLVIkzW9mOqvh8zDX2Ya+rDQnMfFlt6UGjtxnJbJ9VB8Ry1MqO2NmOphbNq cwMybBtp8p/gc4avdeODRNcTvBFgeD/eifeox4TiUZQwUPcJxC6B2A7RDgJM SwRi5Tsw1JUsgfPPsrqSMFQwhZfeinVpyuBh7PYRBB9twCfMRAcQhAlBhBDE CUCKyhlaMVWEoA1zdPwFOn7BVoJgxUEICMC6uxObnk5seTsJQCd2/F3ormqH iBCIGwYw2DiIIWq0rAHjZfUcUwhBeQNjdCMsZU3Mvc1w0Ta991oRuNeG0N02 Ht82nqs2JMraEKweZ5cdR5jliFDRGlpvtSAJogQlTEAmB/zIDfiQE3mQ7XMj RzBy3U7kaBO5VjuyjVaka0y0ad2ZEgwlY/jfMNarwYTIwAxgLsKgGvRATxCs QyE4hyLwDsUQGoojNpiErUYJV52KMGgQaNQi3KxHtFVPIzLARzRDxDRaNYwk c0GmjquqH0a+cRizzUOYbx3CYvsgljrEWO4cwEqXCGtd/Vjr7qW6qU5+TFPt bMVqB0fm9kZMNoqRJVQpjuLhq500xA+TXfg7fMTbD5KdeJ96L0EqqIfxDjwg GXvUNunYCrVinWSs+pux4m3CskCGg43CSipMtAgdyWCWL3AIc1T+PdykwqcT qKjihFxTnJIDhvqiLQiNIUoakmwIGSpHIvIkYtbcjgXawiJpWBJswclrcHVi gzRsCjQIIg07gS7sBrvYBHox1CDCMK9rpGmQw2sDpJS8vBFqNkx9RQunoTY4 ytvhLu+At7yTR78LYbprlIpX9CBZ1YM0la3pQaxByT2JNyg4eyca5EjSnZP1 gsaRYKOeGY5QIeR5qKdZ02mxD9MkZLrPhXy3A9MdNky1WJCrMyJZpsHrJTRK dtGE0W4lJvp1kBMNJdFQEg0dm4OZWDiIhHcoieBQGtGhDHOCGs46LbwNegSa jQi3mhBtMyPRYeFlSBCsGi2Cm6gdQ7peilyTFPnmMcy2jWGhYwyFzlEsd49i tVeCtb4RbPQPY7N/CFsiMTZFImyI+vi5Hn6uC5t97djoacVGFzNGkxg59tp0 WTd9ow0fp7vwEfUh9UGqC++laBzEREDkARHZi7VjJ0o8iMgGEVkL0jiIyHIR ERqHnYhYhBgpIFJFRMrhrXsSPnYOn64Sfn1N8f0sP9EIcMQLcRqIUDGDgEcr cwMNg90iTzTmiMaCjWjQKFYENGgU6x6u39uFLV8XtgMlNPaC3Ris7yYW/ZDw egQsJNRYRRPkREJV0UY0OmCu7OTY1sXZqge+il7OVDwWVf0MVCI2Uh4TThSZ 2gGWcwCTNJ7pxgHMNPHzLVqkWzTIFKWilMg0y5FqlGF+LI650RhmJURlJIxZ ojIr9mOOmMz2OjHbZcUMaznFuqYqlThdQqRkIv87RjrGMdGrhkJkhJJxUiV2 QzsYgnEoCvtQAh6iERjKITo8icTINBx1BiJiIiJmhNusiHXYkeiyw1M5Dn/1 BMK1MsRJcJpLy7XIMd0mx2yHHAtdchR6ZFjpk2Gtf4I4TGBTLMXWoBTbQ6PY GZJge3iYIjJDA1Q/Ngd7sCWmL4tY7l4Oa03cltpeuknnIXyS6caL+Ii3Ainv p2kk1GPS8iDZgfukZTdOI4m1YZOkrLPNrAZJCTPHsqexREqxxTBvGKuR6HsK gaYnMXz1SfhJjfC/G/x6zo4kxG9oLFISJSFxtpOUQaCkjcmyDTOCgVg7igay TEJWXV1FQjZIx5ZfIKSbxtHN3NONobpOjDT0YpQVFegYJR2jpGO8sg2Kyg5o SYapspcpsg8udmPfwcQdrhQi9xASHNRSNOVs/QhyjSOYah7BdMsIZluHMdc2 jPn2YbYLI2XAZFE6TLZrkWtToyDLYHEijYXxJOalCcyTmHlJGAvDASwwOcz3 OzHfbcVsu5HUaWlU43jt26RwmT0KKPr1UA1YoCElOiZMw2CcfSbN0JGFf2gK 4aE84iMzSEvm4GmwkhI7KXGQEicpEeKOB94aBQcQJYcPFZJNhLlVjal2NWY6 1Zjv4VL71FgWqbAmVmFjSIWtYSW2R+TYkcixOyrD3tgEdsek2BkjNWMj2Bkd wraExIz0kZ5u7Ayy7KImmlM/Jmu66Itt+CTXg4+zPfgoy2CSoalQj4nLQ+Jy n7jsJvgzxGWTuKxH2L+Iy0oRF5qK+6Dv2IiKpQbJgWcQbH0aYzefJirVJUz0 9UVM/MQkREyijJ4JYpI2tCFHTKaJySwxWbB3YomYrLDHrBGTdWKy6e8uYrJD THaJyWBNG6NmN8aa+g8wacYYEZESEVlVN+dMTls0DSsHDmcVZ3n26wAjZ5hp IsYBL8HBLsWhLkuDnmyRYqp1HPk2KU+hFPOdUp5EKRZp1AVqusdKWSgzprtZ +i4DlpXTWFZMYkmeQ0GePcAmgYWxGBYlISwO+bAocmKh14J5IjbdrPoalVL7 4VL5MnKaiqrfCPWAC1pxgJEkBvNgmqYySVPJs+/MIjY0j+TIIrKjBfiaOPq2 uhHt8CDR7UWq1w9vrRr+esYUgcgWHdJtelKtZ+vTY65Xz2XosSzWY3VIj41h HbYkOmyPabEj1WB3XI37EypKgfsyOfZkxEY2ThGb8RFsjw9iWyoiVj3YHeZU Im6i1/bQYNoRvlOPjyeJS47ukqW7UI+ph8TmAbHZS3FSIDJbRGYjSlyIzAr7 0LKfuHgP3MVBd7HVIDV0GMGOwxi/cxh+LXuPTsCFrqInLvomBPUtiOoFXNqQ pqvkiMo0UZkjKgsO4kJUVgVUvN1FVLYCPdgOcs2hHuxFeiCp78RYY88BKi0H qHQRlV4oq0TQcTY1Fd8DGIGbw6Cf/TvE+T/GuSAhGHWTjP1Ejkka9XSHAvlO BWa7FTyKCpaYpt0nx1K/HMs07RmWfUbkwKzIjtl+G2b7BHRMWFXPMqTnsaya ZhybxCKxKRCbArEpjIZRGPaiwPyx0GvEfJeGkUWGV7+LjKxbBiXHGjWfWsss rBdHYBpMcaSZhHNwBj6iEh5epLssIT22AneTC4E2LyIdfsS7A0j1hZAVhTni GDjiGBFtYSJqNyHbaS7SPdtnxgJj0NKgBasjZqxLzNgcMxEDE3YnjMTCgD25 HveVOjxQanhPfJQq7KkUlAy7SjqOgujIh7EzMYBdKU+rhAmyvQ/5pk5m82Z8 MkVkiM2Hk3QZovMe3eYRsXmQITLpDuwQmy02po14G9aIzUqYyAguI2DjITKu esSJS3rkCILdz2Li7rNEho1IV3+ATBPVXEKG7pIgLhlTOyYZU/ICMsRlkQ1o 2d3FxExkiMsmnUXAZYe47EZ6MVLbirGGrm85SwcmmEbldBSF8C4WUTEI7xtU j3KYldKtJxCslSPK8THOtJpqFhxbxcZC1+6ia3drGDM0mOvTYEGkQWFAgyWx GiuDKqxSa0NKzA96KTflwrzYiTnmjHX9ItZ0C1jVzjGizaBwgE6hiM4BNiMC NjYssuvMM8oeIFNKMB0YaxuBokcJNUurZdrRDoRhECdhFudgIzJuIuMfLiAy soLE6Boy0nV4W3wIdQQR7Q4j2RtBWhRF82ERFEdECDNIxxhpUp02TPbYkO+3 c7l2Gp4dyxI71sbs2Bi3Y1tmw67cRjysuK+y4IHajAcaEx5qjXig1VNa3Nep sadVYVejwK56AjuqMewoh4mZiM7EPCBpITrdTL+t+GSazYnofEh9MEVsiM5j 6gHR2SM6u3ScrSSdJkFs2KBWBLcJEZuA0KAai+gkJEeQHj2KUO9RTJQdITZ0 GS2R0dJldE0I6JoR0rcSmzam3HZi04FJIpO3dZawITLLnm6s+rqxQWQ2i8j0 FpEZrKzDWH07Jhp7i5llrLIdUiIzwbQqZy5RERctJwMTR1x7jQweNng/G3y4 QY1YkwZJptdMmw65Th2RoXv3GugeBsxzaF0QG1AYZNMZNmBlxIBViZ5HU4eN UR0WRwKUn2LDoYMsDLmxYVzBumEJa4YCVojQkm4eBc0s8ZlCQZEpoSMNER03 CkMWLBLH2Z5xvPJddGRsUKoeHbSMPVpRALqBONHJwiKehn1wng1qCYHhVUQl G0iNbSE7sQ1fWwjhrgjivTGkRHF0HR6C45gC02cV2LjMGfkMZ+YeF6b6XQzg LkYrN5YkbqxKuewJN7bkLrqIi8g4iYuDmNjxQGfHQ70NDw1WihgZiJDBgPsG LfYMauzqldjV0X20Y9hVDWFP0Y+9CZasux8zHW3INjbgY+Lz4bSATg/eIz6P J9mocl24T3x2ic82XWeD+KzTdVZi33YdouNrQEp6FGnpMYT6j0JWfhSjd458 g05AS7fRtiCka2OTOkDHTHSITZ4Nas7ZhUVis0xs1vw92CA2W3SanTDdJkpc apsx3tB5MAy1EZ0eojMAGV1GyWakITL6GjkstUpOFqX3JYINOkSb9Ui0GpBm nM12mngcTcjzmM+KzDySFqJgYVOxcH8tWBmlo4/R0aVmHk8TNseN2J4wYGks TIWwNBpEQeLHlmUDG+Y1rJtXsWpaxjIxWiJCBTpQQU18lGxYsjgKYwF+v5PP b8CiWP5ddDqh4CCjYfTR9nmhE0WIThqGgSlYxXNwigvwDq4iOLKB2Ng2UhO7 yMn3EOiMItITR6I/hZrDWow/F0Xscg7rdZN41B3D+31sVP3e4ng/N0zaR31Y lvqxJvNhU+HDtsqHPY2XuFB6D1Fx46HRjUcmFx6aHHhoJkJmKx6YLbhvNlF6 7JmYgYx0IAPx0Y3y5wexp+xjk+Nc29PFyN2IT/K9+ChPdIjPe9Rj4vOQ+Nwn PrtZopPpwCbxWWfWWaHzLNN5lovO01TEJzVxDJnx4wgNHIes4jjG7h6FX0PH 0dBxiI2ATljbxtm6HUk2qoylE1PEZobYzNFxCkV0erDGTCM4zla4Fzt0nN1Y H6R1rZhgoxqtYMOq7CY2IowTG1n1GNGRER0FDMyH1joNXETG12hAmI0/1mJm 4zcjw7l3steGaeaUGTacuUE7FkYcjLAOIuHAitSB1XEH1ibo6jI7Nuno2wor xl8fgP/MAKbOibA8HsES3WTbto1N2xY2rJtYs6xzalzFEhEqGAR86D5qNi5l iu4TZebxESEbHUhFXCUvl+h57eAfKEpbxFB1aaHtdZCgIHT9CVKUI0EzsAws MuqswDe8gdDoNuLju0jLH2BS9QiBriSifWkOH1nUHslBcYF0NT7mwPMYjzQ7 eN84jY9GzcgPBzE3Sv8bD2JFFsK6MoQtdQg72iDu64OHiE0AlwiLH48sPjyy einCZCNINnqSjZ5kI0Q2E/asTEQWQmSmB5kmsKcnRFox7qu7MSei//Rwzmko x0czvfiAEL3/DUDduE+IdgnRNv1nk8lnnf6zSv9ZZupZFvwnRICC9B7ZcWRk JxESn4Cs8gSkZcfgVx8ApBEAakWY3hMzCgB1IMuWNWXvwgxTzjzhKTAUL9N3 1gjPJtvVlgAPfUdSVYeJOs5R5Y30HQbkyn4CNESAxjBBeFQ1SrYsDYy1Otjq DHAL72g0WRBpsSLRbkeq244sSzQlciFPL58dYnJhS1kc9RAID5YnPFiVebAm d2Nd4camkv5OX5eeGYb3HMPyZR0+qVbj1y3D/N4Ytp33seXYw6Z9F2v2bawQ pCXLGgpFiBZQ0DEBqTlvKZNsYyyfzMUSGtn6pPgOQV2Qt0mg6TJC2+OBri9K gtIkaBr6gXm2ryWO4mvwj2whPLaHuOwBMsrHmNK8j2BPGjGSlhycQu1zW5go /xgx8U+wYfgJHnt/ig8CD/CxPY+fMBTPj5NjWRSryig21FFsaaP0kSjuGyNE J4yHljCxCeGRjbIH8MhBnJw+PHTSm5wuPHA6cN9pw57DjD27Abs2YmRlkDZL 2daGmY76MTc0yPPRgXR7DT6e6cOHxOh9YvR4mggRowdFhOhB2W8hlCi1sOUI EQrTh0KNPCEnkJEToaGTBwgdh19FhNTNRYRCRCiiP0CIrSvL1jXlOECI+BTY upbpP2vEZzN8gFCsF9KaBkxwthotF9pWH8aIj5SheLxaRoRUREgDXa0eploT 7PUWeJqsCLTaOb86kex2Id3rLr6ZP83wO0NPn5P4OEL76RF+LMv8WJH7ub9+ rKv83GMftjQ+jJ4hnue8SFzPYq9tBr8em8ZXuhi+UnF2dT3CtushNp0PsE6U Vu07WCZGhSJGS8SISUiXZxpiClLHmIj4WnIrMVJ+F6FuKNpon7RHbY8fut44 McoRoxkYRAXOW6twDW/CL9lFRPoACfkjZFTvY0r7IeytYXg7ogh0x1F3ahl9 9f8A18TPMOv6GU/dp/gg/ik+jjzCT10z+Bk78RJpXlUnsKFLYNuQYEtKsEUl 8NAaJzYxYhPDY2cUj1zEyU2U3EE88vjx0OOl3HjgduK+mxi5OKM59di1M1Tb ZHQlOpFpkFs6Qox6kOutxcezvUSop4QQ9ZBu9IAY7RGjIkJsZespIpRsK7Wy KBGKEKEIEVKcREZxCqFhIlR1CtLyE0SIs5bqACE6UETfjhgdKGn5FkLu7hJC dKDl4NcI9WEr2ofdeB/GaxohqxdCM9tY5QARkhChCSKk4Ne0bGMGImSGud4K R6MdnhYngh1uDideDideZEQ+TArv+g8HMMsUM89WtDjBRCMPYZkusaoKY43m vqEJYVMXwsjZCYy9EYL84jLSrY/wQPYBvnC+h6+i29iPMtkoUtjxvIctz2Os E6VV5x6WHTso2ASMVlEwF4gR25me7UxHJ9LSidR0IoWe6A699F2KVG0qaDud 0PWESFGKFE1B3z8PY/8ybAPrcA9v8wBFoW5JwNCRhrU7B1ffNFztUfi7Egjz Z2L9GTRe/QQSyWfw2z7DQvgzPEz9Ah9nfoGfJh7jZ95Z/HzCxEkxjU1DBtvG NKufZo9Kk6AUTSeJxy7KkyA5JMpLmrwRPPKF8NAXoHx44HPjvs+JPY8Vux6S 5NKRJiVJGmePG6Yp9ZGkfkwNNB5QRCOiShTRiKa6ShSxn22xn62nBYoYiOI0 ojgpipGiKClSnqLZkqKRU7+jSFmiyK9qZS9rQ/gbijqRYRCadH5NUQ8Wv6aI JrRJE9piCBopq6DZCH2snRT1k6JhUiQlRQJBGsoAZZ0Z+gYbLI0OOJrd8LZ5 EOz0IdYbQFIURFYcwtRwGPnRCOakUcwLIUUexZIqhhUaxZo2hnWazKY+hqFz CkjejGPs/BqUVR8iPvxTnrqf4pepn2B/7if4Mj/PU53Fju9DbHk/wAZpWnM/ xLLrPgqObZK0joKVPc3MnmaiGRlpRmwcBQbXAsfkRZn0OxT9J6g5GGo73dB1 M0r3ZEhSHoa+RZj6VzFUFYC0PgJlMz2qPQ1LVw6O3il4RRzuOxL0oTQifVnE B3JwNnnRWvYLyOS/QsTzK6wkfo33J3+Nn079Gp+mH+Mz/ww+mzDzyhnnLDlW P4eHjiwJotwZEpRmGyRVPtLkJ00BelQgiodBtrtAAA8CPtz3u7Hnd2DXZyFJ bGtuDb1JzjZHP7INcHfFDGCt+HiO7Wz2gKKZAy8iSXv0o222tK0svYgtrUhR shXvvvX0IVx/6yk8i8svfw9XXvoefvj338OJ//g9HPu/vocfP/MUXizq6d9B xE6WtBIi2lARIoahOSbpxYAAUW8Rog3akACRtLIashrhLR+qQkyIRgmRjBCp CZCeXzMTIhshcsLS5IGz1Qdvpx+hniAPaBgpcQTZ4SimJDHMSOOYkyWwoOCc rUpgWU2L1yaxpk8ySSQhPqfG0JtpSM5vQV71E1j7f46g+lMUgp/io9mf4Zer P+NhnsESB65d/yfY8n2EDYK0RktaIUhLrl2CtIWCnV3NSjuy0I4stCO2jYKR g5zeztdV/mdWpG41QtfBeawrRpDYzHrm0F/mwGClF5KaEGSNMX5PCsbOLGzd U3D15+HnvObpTCLQm0FENIkER39nSwAejvkd9Z9Do/scyeDn2Mh+znzyBT6d /RyfTb6HX4Vm8EuCtKqJYp256KFrms1qirbDWc43iceBHB4HCVSQMIWSFBte mN8XDuNBmCk85MVe0IXdgJ07YMauV0droh25aUfOIe7uMPKS9t9BNPv/BVEX NtnUhtufw/V3nsH1t5/BDerm20/jFjm6+vL3cY06/dT3cPIHFEl6mQS9TIJe OvwMXn72Gbx65Bmcf/HU7yhydSP/DUW9zFa9WD2gaFugqKKOpDBal1MVw6RI SoqUpEhHizJCXmOFqtYBfaMHlhYfnB1BeLtDCPVFeEBjSA3FkZUkMCVNYkaW wjyb0aIqjSVNGvkJNjh5gJ8LoP+cHuI3JzF8YZfP+zOYRb9kE/4l0t5fYD79 C6zPfoZFeQYLfI78xBymJmaQlU5j0/8R1nzvY8X7GEvuByi42NgcGySJdmSn HdmmSRRHfGbXAufmglZ7QFHpbcUejNUMQtNqptUwFnUm0HdHh767VogrXBip 8WOsLgJFUwLatjTMtCJ77zQ8A7MICG8YdaUR7M0iOjCFxGAertYQo1KYFhVF d/s/wmj5R+Tiv8VO/rf46cJv8dniF/hV/n38JjKDX0xYsKFPYMsYx7aJtuPL k6JpPA5NUaQpTIuKkKZICg8jcTyMRvEgEsb9iB97YQ92Q07sBtncAhzY/LQk HyOSh9FIMcLz2nlAUt93SLpPknbZ2CSdP8TNC4dx8/xh3Dgv3JMiEnVL0NtP 4dor38dN6vWnv4/nfvB9nKQfvfL003jlGRJUpOgwXjt2GK8fP4yzJw7j6ms/ /B1J/gM/EkiKfMuPKhiLqkUYKReRpFGSJCdJGpJkYMUtJMkBVb0b+iYfLG0B OLvC8PVGERqIIz6UQFqSQk6axvREBjPyLLJjIUyOhzAtC2NGEcacMozec2aI 3sxDfOEhpLW/gFH8G/h0v0HK/2vMZn6N1blfsQEKb/rksKjIYFaxgLycNMlm kBufRlqaw4r/PSx5H6Lg3iNN9CQnI5KTnuTksMbWUbCzsVk89CUDvoPSX3N4 GICGs2TvjRH03VKg/44B/fdsEJd7MFIdwDhzkbI5CX17BhYakpOG5KUhhYYW iFIGwb5JojSN5NAMXG0R2jFTd28MkQFiKfoKNtdXyGe+wv2Fr/Dzla/wq+Uv 8Ju59/FFLI+fj9mwZU5ixyqInYyG9SicJz40qShNKkqcYmk8jCXxIBanIrgf DWIv6sNuxI2dkI1I0ZiCWuwFOLT5RjGnkmBW1o2PiNIH3zYlZqTRrh/h9oVn cQi3ePsEcXqWjw4XdQi3CdQR3Hnnabz76vdxiyidIUpnnvw+Xn36KbxGlF6j Ib1GM3rt6GGcJkpnjj+LcyefxZunnsVbzx3BrXM/KqK0QJSWiij1YV1ASUjY Fc3MWsI/uBgkSlKipCRKOspMlOxQ1LmgbvRCT2O38Dg6eRy9/QmEBpOIDaeR Gsuw3DkkRsLIMB/lOPhOcfDNK2KYZT7qOmdH75tzEF18H6N1v4J+8At4dF8g 7v8C+ewXWJ77HNvWINtgqaUtEqd5ZQGzygVME6dJWR7ZiSnilEVilInay5zk YU5yMye5aUzuOaLF9uZkOrf72OZM+E5v+w/oudqN/hsS9N9SQXTHiIF7dmJ0 0NcaYlCxrxnY16w9jNaiWfjpRiHhf5SNLiPYP4WoOI/k8CxcHNx8HNyC/XFE BhPFfw4mGt2HO7CP+el9PFrexy839vGb9S/wxeL7+G18Gj8bdWDLwqHBQTFq P6JbPSJij2LTeBSfxMN4Fg8TjOOJJO4nYtiLh6kgh0EvdiJ0pQiDUpiDW0hJ d5JiVjPKk9bzDUbvzZZi9lj380/g9sUj+D3ePluk6TbpoQ7hzoVn8Ee4e/5p XCdAt6mzBOj1p75PeJ7CafrQaQJ0+kgJnqIPEZ5zhOfNHx45hHd+dAQ/wN23 n/+GnxVa0df8THC4n+BgP1I+TH4myI8ao1UG8mPBeK0TigYP1M0B6BkKLF1R ODktewdSPKdpxEazCInD5CiC5GgMmfE46x3HNKNRntGo/awLXW8W0HvpQ4zU /QbawS/h0n+JaOBLTOV+i8L8b7Fti2DHHsaKdhbLmjwW1ZNYUC/zvBUwo5zH lHwWOfk0MhM5pGh5idEEEhI2MB8nNt8KeeLQz/BRcJMtZ4ANzsLXHvjxt93o b4u/Udl3tQf910cxcFOFgdsmiO8yHpX7MFoTZjyKM4enYWRTszF/u4sYLSA8 UkBCukJkpr/BKDs6B19PDEFRHGEacmw4watPYFi+D390H0vz+/hgfR+/3t7H 51uf47dLj/BlIocPRQ5sc2LbcQuiM7npTIk88ZnCw2QOD5IZKoX7yQT2klHs JkKcoX3YibuwE7NhJ8q8HVFj1kjpxpBX9hSb2geUtPt5SHtewN1LdBrq9sH9 nYuCnqUEJ7pDoo7hLnG69w1Mf4mzz9CNnvpLnKYTvc54dJpN7XU60ZljAkgU QXrjh0fwFjl65/kjuPDCEVx88QgqLryAwrdo2oz3Y6KsAxOMRsNlEtIkp7Qk yoSxajs7gguyeh9pCjJgRGDmUXT0J+EdpNuPZOEbiJCqKGIM2YmxOFKkKStn XFIm0XLWi/Y3ltF16RMM1f8jVEP7cBj2EebRzeV4fLnnWw6GB2eMxzSCFR1p 0rJJaUiGZgULmiW62SLJoCMpGZfkdCQ2z9R4EklOhMmxIKlyo+BfpDi1eVMk imHbbsWUehAHOL1y4Eh64iT8tmjflR6I3h2F+IYK4psmDN51YriSSNUSKeYk TVuGSE2WkBoQ/l/sIiKSJSK1jEA/GxwTd3J4hsY7Cy/7u78/hvBgHFEJL1+a QJZzxpiOl5nax+rSPj4WkLq/j3/c/TW+XHmAr5Jp7LgOcPJQHN22vUzbKWKV msKDFLFKpXE/lcReKobdZBg7CT/loexEy4TdmBazZg1m9WOYVpWQGu9+AeO9 L/x+kacniiTdvfRskaZDuHvx2UO4R5SOoIytrYjQ03+J15+k6EWvH6YHPUsd exZnTjxb8qLn6EXE5y2i8w7RufDjI7hEXX7pCKouv4BlNrQ1IrQhNLR7RKh8 hAiN0ZSUREhHQ7JgtNrBfOrBRIOfjh+GvjMGc28CjgGOxZzTnJzTvIMMCcPc w1HmJO5fWpZEjim78UwALW+sof3STzFQ/1soiI+V+ASD+8gQn1nis+lk/nQR IVcMK4Z5rOjnsEyMFjXTWNKtYlFLU9LQlNQ0JRVNSUlTUuSQlqeQkjHdy0LE yUuUOJ8FiJCfSdsboinZMKn5BqHSG5H/83d+w7XvcjfE18YweF2FoZtmDBOj kSJGkW9hNAV73ww84nleIjEaLSA5vkRksoiIp5Ac4XJGmaE4bPgHoghzG6Lc huQET5EiTooTkFn3kZjipa7t46cCRo/28eX9X+GrtT3sp+LY8QoIJVjjnUAC f4otfwwP0tO4n56kMthLp7Cb5velI9hOBSkv5cBO0kyciJGFGBnHMKnqLmHU +yLuXT5SpOjeJbaiu5eOEqe7RZyOFu8PFW+P4R7RukejKqNRCVTdefWvaEx/ xdT9DM48QzM6TJqOUseO4MzJIzj73FGc++FRvElDevuFozj/46O4SJouvUyq qKuvHEHNtRexSqrWhcR9p53mRKruSUmVCiMVBkgqrSTLibFaL8abglC2RaGl KZn6UtB3MS71Mi5xK92DMfhHmBnGkkhMJIsVr309gIZz62i5/A/oa/gSE8P7 MJEoH4lKkqhpErXuSmDTHceWO4ZtD6kyzpGsGSzr87xfw7KBaVq/gnkdzUnL uKSZxaSacUmVQ0aZRloZp8JIK7wk2UG6jChwri742f7ctq9jUunuB0Wiir+K q6uEQ6DqYhfEVyQYuqbGMM1p+I6Th8nPYSACOZO3pj0LU/c07P0zcDN5B0YW eImLvMQCiVkiVUyFw1OkaprDhfB2Af15JIroGP2ZXT6tYrfXxpHn4KZ27yM9 u48dGtSnj/fx2/f38dWjX2B/fYdkscP7E9gO8HCFqGAM9zOkKjOFvWwWe5k0 djMJ7GSi2M6EsJUmVWknybKQLB1mrRrMGEeRU3dhnD3u3uWjAlUkhw/+kGAd LdJ07xJb2+VjB4+PFr/tEMpIF33qUoms26/9e9L0VwzgAlWk6TBJOkodP0qq juIsiXrjR0fpU8fw9o+PFam68PJRXHrlKK68ehRXqXdfPYK66y9gTaDqNsPT vRH6lZJ+pSZZRm6xjV7lhpQ+Nd4cgrw9Bk13AqoOhqhuhqj+CGziKFxDcfjp 82H6VJw+VXk6hJqz62i49A/orv8SY/Qog3EfHhIVJ1G5ua++IWrDQ6q8pMoX JVUzVJ40TWPVuIplI0ORYRkLhgLm9Gx5unn6D6nSTCKjSVMJimFf7UNG5SBd JrZCJT2LVHm+oapkV/+x9AvemnJSVVGkymWoRu/5Togvk6yrKgzfMGGEZI2S rHGBrKYSWUbOdEWyBmdJ1jwi0kUkZQWCXUBYnEV8mNYpmSRZU0xaJEsSQYSz R1xOK1XHkNORLGMcc5Y49NyCycI+7u/t47MP6Fkf7mP/vZ9jf2OLdAVLVIVi 2AoLipIqgawcdrMZUsWWmI1iK0uysj5sZUhWxoIZhxkzNjWmTRLYByqKPnWo CM3vFcEScLp3WdDxJ4oPTnzzqTLSJXBVLlBF3WUvPP30v2cXPFyk6uyzAlVH i1SdPXWMPkU9fwxvfk3VS8dI1TFcevUYrrx2DNdeO4prp4/i+ukjqL/1IsZu tGL8Dqm6R6ruaTBSZiJVdkiqPRirD0DawnTRGcd4ixfKziD0PWEYSZVVoIq2 72N4Ck8kcO+1MCrPbKL20s/QQY8aoUdpSJST2xnOCQf2S6yy462Tpk3StOGL YZNELZvoUSYSZZomSZNYM61gxbSMJeMSFoykyrCAGXbHKd0McvpJZPUZimlF F6Z8yGqdpMvE7qhCelyCRY/1a6pePPiNHb3sLqzqcji0v/uFZeG3WLve7ID4 Im36ihIj7/Kyb5Gs8m+TxU7YzUDVz0A1RLIkcyRrHgn5AmFexBQbdGyYuU6S RZZT7ZRsEsHRMMLjEcQUzHmaKJcaw5SJ060lhrGmj2CO7SO/yvGP3fBXH9O3 PiFdH3yK/a11BiwfqRCY+lNsRiLYCEewm8thJ5chVSls5bhluRBFsnJOEkay nCbkbUp4pW0w9d8rMnW3aE6lexKFssvHf7/4QHhIoq5Ql0tUlQlx/TyJeooe RaLOPkOanmW3I1HnTpCkU8eLRL3x/HG8+eJxvP3ScZx/+TguvnKcRB0vEnX1 9DG8KxB15ggabr8IybtNGL89hPG7SgyRqGESNVLp4ATtgaQ+SKIiGGn0QNrq g6IrCDWJMogisDBPORnHvdI4br0axb3Xt1B56VO01n+FQfqTkjRZSVOANCVm vsQKaVplt1sXaGJ4WPdHsRmIYMk8jWXzFJZMpMm8TC1hhVoyF7BoWsS8cZ4W P4tp+ljOOIWskeUzkigjiTKQKL2DVJmQVauQkUsYdjq/A9R/KP1KdPF3Yyvh 1pdgEn4zMmysw8A7HEguKSC5asToTQdGy3xMkgSqkY2LQBl6BKCm6chscpJZ wjJHoOYJFJMe+3KUo25SQsalWY63OUwrJxGaCCOqjCBBoNL6KCZNUeStMcw5 YhgX/xL29D7mNvfxHu3q1z8lUP9AffQP2N9exZdxD7aikRJQ0TDWwiFsE6it yRQ2JwnUZJjyUy7MeBzIu4yYtsnhGmv5XYQqcXSHElzruHBzgl+4d4VEXTlB CV8QuPqrEmEHMUx4Z/P0kwJZzxbJOvcsiTpGnSBVz1E/Ok6yTpCsE3jrpRM4 /8oJXHj1BC69dhyXTx/H1deP49qZYyTrKG6cpV+9fB3SG2LSpaBnGelXjK8V DoxUeyFpIFmtUYw00bfaAxinV6l6Q9Bx0DMLv1wzGsO7L8dw87VteuvP0Uiq RKRKxhxlIlVeUhXN/xYFJvIlUrVKqtboTxuBKNYD4UMoEKk/4+0kIcphzbJE FbBqWSRsC1g0z2PePIdZ2tk07WyS35czZ6gEFUbO5CNsDlqYETmtAlnlCOf4 TmS77n0d1l8o3v0NzPK7cKjL4KJdCXQJv3kt/IJdkHTFjPUQvTmE4fMKjF7S Y/SGHWMkTCq8rdAUJ2FpEpaDVTRJwqbhZ0gPj88grphlhOI4qiX7nDfiIymk pWnOfBmOvFkEOU9EVGHEtBEkDRFkzRFM2SJsXFHMu6OYGP8cLob5xZ19fEDb +vxTEibo45+QsiX8Y9RVpGs9FuJsxeY3mSFRJGyKZ3MqTPmQ93qR99gx7dTD I++Fpr+Ow96xIl53Lh2nZQkU3b18ooTXn/P2JBE7UZSAWBG3q2TxSsnfbl84 gjtXy3D3WhnOPEXEnj5aQuxoCbE3Tp1gwKJeIGI/PkHz+h1iF187gcuvn8AV SkDsEK6fPUp8BczG3hVh/KYM47cMNDAiVu4sIjbSEIKo1omhJi9G25ltaV6K vhC0zKrvPO/gkBnHtVd3cOviz1FXt4+ewX1I9fvQB/bhynIAnPoCc84YFonX kodhinit0rA2ghGsBcNYtORQoBbNWaxZC9QiVotawLJlnl+bw7xllr2EjFmZ k6055KxkzErGrGTMQsbMZMxIxvRkTDWM4HAT5sTl30HsB7Ar78FFA/MUf3/z AC/hLxwRr4SxAT1n+jH0thySC3ruhhXSexxaqkPFd66UREzXnYFFlINzaBK+ 0SmExqcRk+eRUrFJa2eRN8whWnynKonMRAqTijSm1RmElCFEtWHEabVp4VTY wsQhgll3BAs+zp/aL+Gd28fSg318RCP74jN2yM++wv4nHxOzBXwedjAKB7Ea C2Al5idWKaxP0/qniV4RMQ+m3VZMOjVwyrox3lWB25eOHuLNceGtBWJ1l1AJ OlS8/ee4e4UfXyVk34gkCiJkdwjZjfPFuZGI/Qm97ACyw4KPEbDj1HNfQ3aS PnYSb718Eu+8chIXXjuJi6dP0scI2RkBsuN496xA+PVzAmjNr9RBel2K8Rs6 +pkNQ2UODBOyvgorRHUuiAnZUBt7ByGT94fZhR2cPRO4+PIurl34DFUErIOA jRAwtX8ftozgYb9E3h7FrCuKBQJW8Eaw7I9ghXCthcI0qBwByvI+gzlzGqu2 hSJcq7Z53s9h2TqLgnUGC9Y8Zm3TfK4pTNlzmLSnqThydqFkXsJmJ2h65Axy Zq9hFKQVWBwpx4z4XqlF4vkD0Kz0Mhe9zK0haLoqwlaDgIGd0lD6K01JYyP7 bhPE5yYw8rYOo1cJ2x03xquCkDVEoWhLQtuVgrk/A8dQFh5JDsHxSUTlU0iq pglbHtP6GcxyLokL72ONc96QJzGpSmFam0JYF4RhzA3zhBt2hYdr8cCr9cCv 9yBk9BbfpAgw7K++t4+P6Wdf/JLA/eJLAvchI9kcfulzYCXux3LCT8hSWCNs a9MhTPsDmPI6MekxI+NQQSNu47EnaLcI2iu8PYHbhO0OESvqyinq5AFs/Ji6 e+1EEbw71G3CduPi0SJmd6+V4x51913B1RjqnyFsRwjaiRPfcrSTeOPHBI6w vf3KKZz/GjbB0c6cxNWzBO4cgaOuv3EUVacqMHZ1DNJ31QTOQuDcGGLA7+P4 KDjaAGETt/khIWyvnXLg7I+SeOvHu7h0/he4V7OPFvE+BnT7kPv2YWbYcKQ/ JQhsEQ62CFcEcx7h/IaLY91yMIQFQjZ7ANmsOYUVgrZCyFYI2QohW7HNYsk2 g4Itj3n7NGYdU8g7mKCdGZ5d+gVdctIRInReTNpsmLToGc1kSCjFWJZVlYAb LUN+8O6Bpx0Q9zdw0NrcDPtebSWJqyn+0c8QaYuQtrjh4K8RGZvR//ooht7U QnLZgrFbLowLI6Xwj19a4tB0JWHsS3FyTsPNLBaQ5hCR5/jywlQ7hUkdz4Zx mpeXR2IshrQsBvtgEM7hEDyjISbYMEwyN6wKNzu5G26tG169GwGjGyGzGzIX ZyIOAdr4DqzpPbhzezy7u/Cl1+CPzsJlYxd3Z6CnjN4sNPxYzdFUZWTD0blg U7BB9TXi5sVj1PEibjcp4kfY/oDonSRSgk7h9lVBfHzt5KHig9/j7XF++/Ei aRTb7bvl+EsCV158dPbp45wBTuDccQE4gvZD6nmK7vbmS6fwFoF757VTuHD6 FC6+TujOnsQV6tq5E3j3DUL3BhPbm0cguTRC6JSQXjNCepNt87q56G79ReA8 ELGFvnjcgVeeS+PMC3t4+51f4lb1PuoH9tGrZev07kOX2odd7oVL5YVXQ+dx sGG4w5jxhjHnJ2iBEAFLI0/IZqi8Ocn4lcCyjW5GyA7xdgb/mrd5FAjaIkGb d05i1plj0s1g2pXGlIt+wdQ36QxSbkJnRdaqQ4bALWtqsKysxrK8AksTZVgY u/c1cD8q3v09LOO34VKWcXm0OG31AXR1COsbECVwCQJX/PMophYusQXiMyqM XDBz8HZCWu7jtMm+2hyFqiMGfW8CloEknCNpDtZphBjPYoxnKU2Ow+4kpjiu GPt8MHTS0np9sA74aYsBfn8A7rEgvONBmBQuDiguTrsuxkcXvEYXRkwZjDIp 9Dv3MBHdQ5DA5Wb2sDC/B//UDgLZVQRiM7B505AbU1BwHNLYU1Bbo9Bo7FAq jBgYGMXfvVqPv3u5ll51AjcuCTpJkk7hJoG7dfkUbl05RQZJ3B/g1rWTxUel e34r7fDaBeGNNCL2fxZBu3e9BJyg1588hrOHCd1R6qQA3SlCR7146gC65/A2 oTtP6C68TvDOnMLlc3Q6QnftjRNF6N598yjqX2jBqy+a8NqPXXjtlQBeOR3E S29G8PKFBF6+msaTL6fxzOk8jp5bwakL23jp5h7OVu6iU81W6tmHKsFxYEI4 uh44VB4eXTYMNgv/wdGNWFwIysNF0A5xsk/g3/I2XmybgqMtCaAdwFZg+1x0 TBK4HOZcWczwOOfdbEyeJKbccSqKnMtP6FzIOizIWLWI66VYpmUVwVNVEb4K FGRlmJHcef7b3P0nOGR34FaVw6epKnLn1wl/4bihyF1M38gY31z8o0xTZG7W 0obeV6QYesvIwdSBsbtCnmOLbQxD0R6BticGkygOOzObZzSF4EQaEUUGCWa2 jJYG1O0hm14Y+6kuJ9lzwSX89SOJD54xP7nzwy/zI6Dwo1eXgsiYwSD9f5jM SWwZjDkyGLLswRTbQ3iK7M2RvYU9LM5toTA5D38sDyV3VK30Q0V+NToPlGor qipFuHqtGU++Xo8nT17Bkyeu4O+PUc/X4jq5u36ZvN2gyz2BG1efo04Vxc/R 6J7glwkI/fHuuxVChuPt/0HoKlDGR8J98TF1RnC8Iyc5NFDPfQ3ec3iD4L35 MvXqt+Bje71EtxPg++t3avHXF+rxf1+sx99crMXpH/bg4o8MePUlN147HcCL p8N46VwcR99K4alX8zh8ZgXHCd3pK3u4ULGHt5r2cLlzDzf69nCvOYOKljTM 7Bk29gwne4bn4Ph6x0PwTYR4DX5ZkAYekAVY2mgxp1GHsMiw9l9jUeDNzvmU nXSBvM2Rtxk3zdEjMJdgYCFzjIWTnjAm3T5kXU6GFzOSFiEt92HZWFdiTyv8 pZdK8ldG9u5+h7sfwMVI51XR69TVpd+W1dYhqGtAhMzF9c1IGVqK3E2bWzFn a+OK2jHwuhbDF20YvcnhvEL49zj0vNYwVF0RGPqisA7GyFIcPmkCIcY3aasD 8nYnVJ1kocfNWYPxTeyBqdsOa5+Dj52cPZzwSD3oUaTQT0YHdDkMGnMY5nQ+ ROZG7PQ85gmpS3i8B3OC7E3vYXK+xN7C3Cb8nJyU5FY54YVy3I6qChHu3e3H jZsd+LvDF/G3z1w8hL99+hL+EP/PU5fw/e8Rwf+Xq/f8bvNAszzvYXf1zJnd 7t7ZPXPO9Dm7Z2Y+zJed6uqqsqtcVhZzzlmBkphzAEkwIUcGEIwAERnBBOac s0hJVKaiFSzJsmXLuar/gL0vSLvK++HiBUEwvbi/596HlIDQAvgG56GIrisW RN/RaXTdf0Qh/ZbP0SiMOMFtFZS4+PBIn3l5DPc7j+WEa5c47y6H0XKRUZ55 dyWeSqTtkilaLp2Wy+Csy+KsO5mUj1NJBTidnI8zgs7l4mweLRdZj8vRLUgO a2YzHEdG8jTOpW7AL+kmQkLvIDz5GZJyXiGt4hUKaLdKWk1hfQUR7SbW03J1 e5A27EJhuIqJAZ7VIcq+hBnHEuY6BZHurgXWG87E1kVMtC7g7vgNWvHuxHV6 7i7Xg7tT9BrP9G167Ta9dlOYb/NbuD6/wSNnHMP62vwy9ubmcXVmCtuTI1gb 7WUoq/FwVHnoO+FJyITnnhqoxkNXxZHnYo48N2YrxWx3JRb6ag591y/8d1sl lgbUrPgaj++u0nfX6Lmb47W4Q8/dn67Hw9l6tKdxgy+Yga1iEXbZMpyaFc68 VQw0rcLdto6JjnXMsMSZVeOwaSfg1E/CZZjCYNM0RlqmmccsXO0zcBsnuIbQ f22TaOjeQWPfVTT3M1OH6D33Hszc2i2UdXyPWbsHO2efgz60MnPHdui9m/Qe fXeHmiOh6pJmaEVG6EoaIKloQVVJKyIiNQg7VeiF0JNF9FzIiSKEHKM+pj6i /kB9WISg3+byAZD8v7G8+F+xDFspLyW/juUxBlLh+OsY4frf84rgTsmvo3hN kLD3Sn4dKVxE8AvU8LL6X8N/lk9AHsX5GpjPO/oG5uEY/AJz4ROTC9+YHMQW 1ONCUAPi/RqRHNSCi2Em5Ee4kRa3hdCEZ4jLeIWLZRxuqlcobXyFGvMrFKp3 UaLbRXndLqroNKmBbqvjz19/DdqGPUzZFzDrYJY45zHG8zzeLpz3eZ5rvt0y R/bnuIxyn+C5vM0cuc3KdmuGLpvd9ky165xqewsbuLawRq3y+gp255ewQ7dt TU9ibWIID6e1eDhJt42rDh03wik3QrcNc8oNVuF+b1nsLx035SjDPEvfQq8E iy75oeP6/8ZxdNtVtx7Xhacu4pS7O1WHg5l6PJpvQH1sL0xZk+gQLcBWvQw7 p12njq4zrGCAq/yIaQ1GyQg3r1GY1WPorB1HT8MEXJxug82TcLdO0nVTnIpT 0Ng2oe/cRl3PVRhcV2Hsp+sGr6J16CodJ6TqX1O207WGzv5VdA6swjb3yrNa rLLlNda7oRS1QS08w3QpXVfaALVIB0VxM/IDypHvL/ZCTJjwuhQxIXLEBMsR HcRjoAIxATz6Ut687bQUjREKGsPIy39CU4QczZGyn9USIUVLpAStEYJqqGqq Cm1Ua3gl2sIrKH6ptrBy/IqXpWgLFXkUFl2J8JgqWjU8phL/A5ExFYiMFiMq uvxQkaXIyrYhO8uGhI9UuHiiFqk+DcgKasKliCHEpr7COTa5dPkr5DNQy9te IUe6iwLFHkpUeyjX7KFSv4caTjt5/R5Uhj1oG6n6q9DVb2O4dYqzYNLjt3H6 bbxtlj/mSOsM/sXzBL4j7VPY5166PyM0Nybp3CYn2ga9to5d+u4qfXeV68jV hWXszC9ia5ZNcXoc8yN9eDijo/80f/Wf8GRZY5x2o2x37io8GBDjF+b7V0w7 xEfmk3peyWXRpfT8P9+lfg3WBrXYEp5WbYTmY627xVF3l6PuYK4BjxYa8HTJ gKbzQzDlzaCjfAlW6Qrs6hU4OfJ6javQiodRXz2MNsUIOtQjsOlG+b4xGnAc LuM4DTiO4ZYJKGk8tXMLGppPz3FX17dDA+7AyHrXPCRUvB20j+zA3rMCh0vo Jvb+Ffwj7AMrEGW3oELqhkLjhkRkgrzcBJW4HWpGq6rcAHmpBj3SdRQl1KI4 sU7Iz6R6XsYncrQkUHHCU9fFxzbw88VHGRAf3oC4kHq05fainTJ51ANznqBu dORSeV2wUFbKi5edXrDlORnK9jwH7Ll2Hm1w5AqywpFjQdRFHaJS9F6ITtHj N7zUISZFi1gq7qIG8VR+pJSSoCNrCJasQcR/qMTF47VI82lEdnAz8iJakXne jQsFW0it3EIRw7VYvIqyqjXkK3dRzNFXytFXUcug5eirqb0KGS0nhK2a0lJ6 A+3XzHhpmaHhWK3bpj3wjxH+4fZJDJkmMGQexzUuDNfmaLn5Q8vtLK5SK17Y pu/+CVt03sbcIlbZ6ebHh2kFPR7O0XmznHzTwjMqHT1Vm/CsSuOcfGOcfMMV vzDeKaZ+BRa6arDoMR4nXh8nnkuNZcF4AzTekJ7Gq8WN8SPjceIdcOI9XjTg 6bIBz1cb0ZQyivbCeXRULsMq5yTSrkJSOAyFaBh1VW4YaYxWhZuTTzDfCM03 gu6GUfQ1jqHGsgGZfQtKGk/dtQ1dL81H1bm2YejfRjt3XJNzCR0swJYeqpcG 71tCpcyOcokdxTltEOWbWLrMqC7tgKTcDFlFO+SVzZCK69BekA1H6xby0+tR kNFAGVCY0eiFwsxG/G8oyjIi7jJ1iUoxIv5CE+LPUUm8HteI2LA6tMhGPYOb Y4yXv0I7L03CIFccqoP6O1gUozShQriDjZd2KjK9AVGZRkRnNfEO0fxSv0as 8AWzGpGX0oh8qiCF38/FBqoeFtkmrNTpX2fi/DE9Ur0bOe9amLdtKIxrR36W mwuOG6UpLcjKcKCkagViyQqqec6L1DsQ6XZQXruDyoarqGnYgaxxB0rjDtRN O5x9O9A3bqHWsEHYJzn/mDrtE3CbJzBiGceAeQz9HaNwWUaYo2vYZoPbXqDZ Nmm2/4wNXq4zZtcYsyuz85ifHMfjpVo8WqTpFnRHxjt6Cslpmm6aI2+KI2+C I2+sCvcGSo8sd3SIYQOoPHRet4zuE5ynwnKfBisuLdYHdNxm6Txm7Y2JOtzi uLvHcfdg3sAvS+et0Hlrjfh0g+67PI624kWYK1f5UKyiMmfY4z51uRu11W40 SkfQwtFnovssdJ+9dgTlpnVU0nk1dJ6MzlN00X09WzB0LKKRMloX0cwtt4Vb biv7cFmVDWXVNpRX03U1dJ24h2umCYWFFohKrBCX21BVYUF1pQmVFUY0ispg LC1Ag30bqXkNSMtvQHqBAemFjcigMouMyCw2IqvEiCg6IiqzCdGC0qnUZkTT jjHnGxEZWw9N/SgTi2oYg56qpeoMY6gnPQ08NvDoBQMv/wGNxlEYqSYqLLcB 4flGqskLEQVNTJlIXkYWGJGebUQGlckvnUUzZlM5WQbkZDagxbiFVurk7/MR daYEl083IDOwBbkR7TShGcXJZogutqPkcgsyM+3IzGBIM6jLpEuoUCyjWr0M mWYZ4oZtVNF0kqZtyJq3oaAJ1c00YvMW9E2bqDWuY6CNxjONYZDGG7RQthH0 WtzosQ6jm9qg4/4OawuCA1d5uTK/gsXZRcxOTeGTlXo8Xq7DI7rw4c8u1By6 cJajb5YunKEDpzn6Jqpw4C7/yYFBnkMo1Lpx1NVOoZF7Zwtlqp2GhbLqpzmn KA2vq6ehzW6GJrMF0rRmLPYwmHtVWOpTHzp1kE5112JvrA43OB9vzQhOrccD BvNjzsdPOB9feJxqxJstIwyX2QLp1tILwyhLp1Pz3ZCWjDAkR6CvHkED3dpE t7bRrYXNaxC1b6C8YxOVti3UOLah4UamMy2i1ryIessiDLYlFIntKBLxoRF1 oLjUgpIyqtyK/CI78nMdKBSNIofXC0ROlIidKK20QcQZqSiVQyOu4tcuxqXm XQRzVoVkNyE0pwnhuU2IyDN67BJVyBlWZPSCHwfZv8A/qxkBmVQ6ldqEwCtG BF5oxNkIFTL1Y8iqHUMOlcuOkVc/hgIatpBGLaJKaFORcQylVBnlk2+AL03q R2f6FTbDv4ifs6iJhg7k5a+RmGtEEnWOOp/biAvUxVwDLuY0QNpGeNu2ceyj YoT7VyAlqgZpfi3ICTcjL9aConNWFKd0IP9yK9JT7UgX3JpjRw5rQV6hDQXF NtRoFyHVL0FRv4Qq4zZq6FRZC93aug0VP7+W0rVtQN+yhj7TCPo6RuCyUjY3 XHY3nHSpg1rmuFxeWPXCksesCzTq3OwypqZmOKca8MlaPZ6s0qzLgll/MuzR U6oKT2c3T7POMadnadYp7sNj4p/M6u85/Am1PJsGLqktjdMwU3aqk+oxTHN5 nfb8R/Gh+mkM08jDNPAwDdyaIkFbihStF9nXL8jRdE4BWXIlVvsPnxFvm41y b5zGnao/NC6D/QHH6+OVxkPj0rSfbtK420a83TEiNd4XRXH9KL/kRkXmCCrz RlBTPAIFzaurGkGdZBSZDWvIbdpAYdsmSsw0rYFnuIlnuGUJqvYl5JQ6kFtk QV4xDcrRWSjiIyGyeaGg1I7/hpwCJ3Kyu5CT34fCimlk5DuQKepGTrkDlzO1 yC/UoqxMiXJxNWLlDYihctqc8D1fBN8LRQhMLaEpS+CfWgyfC4WIyJBRUkSk SxCZJkVkKnVFhshL1EXedk6CiIRqBAYWCb8wLK4R/pFLSQ0qeE04enkufVFZ cvi2cPS7UkXxmCaBf5qMRykCKH/PUYJTyYU4fa4QZ84X4Oz5QqoIPsIxgW/H 58G/WInAYhX+9HE5/IMkSIpXIOuSCunBZuTE0JzJduRdZKIwxTKuOHAlzYq0 TAsysy00L09dicNztoooae0S95tF7jeLqPEAwTQzbUFFacyb0JrXoWtfRReN 203jdnPEdtG4nQ43OmhcMzVH887NrWCWmp5dwfjUHOcVE3aDzl1vwBO699FK HR4uHzl3UXjhnEUNq87DBRp3gVk/z0k7w4I5WfGTcX09Bz80EvsW4xRMTZym zTQt1UcJv21xU6PGaUxQUzTzNI08QyPP0sSztcKzvUjgvCSFM0UGx0U5bBcU sF5QwnJeidqLNTRw7V8NPPv/M/DakYG3BAM34e3VJqTH+yEjIYBrSB9El90o o4nL82lkTmBp+SgusLleqV9HvmoRRbpFiGoXGWSLqDQuIa3YiQxRJzIKrMji NM0u5igppplLnMjj7bmlwvu6me8uunaA2T6I7PIhFKlmUayZxMnoGoRcViIu R1iow0q1zOtgkQYREj2i5Ab4pIjgS/lcFP0dIrKUbKcR2QpeUyAyS07RsJk0 Lw0dRdNF0chRPDWRF2oQkSQs0jSv4FbJoWX//mfL+l6uFOzqJfjUSzCsl8et /4BAejWQ14L46U7F07MJRTiTUORFoxbhY3x49hz8ijQIKNbi498U4niAFKFx aly4rEV2jhZpERZkxDsgzptG7pU+5KV3ISPNictZDqRx/crMtxFn2rmIhAuk M3qKKxlB1Q62gSWoORG0bYuQd7D+W2hZFjK1ZZ225f7KGmqnXW32EVgdLHCW YbRSwnFydhXj0ysYHp/Fqy1G6yatukmr0q5P1tkKOGgfrtQe2nX56KnYljlo l9gKlujVRXp1jr10+mevensOYTAamM5NEzA3T8EuvD5Ty9HrM/E4Sk1SM/Tu HLVA7y7Rt8v07Qp9u0rfrnEAuy5L0H9Zhv5Lcl6Xo++SAr0pSvRcFKRCN9WS WoMb7LS32GnvLRx5lgP3k3UjqaNnOXDf7DQhNdaHnvVH2ZVQiFPDUJEq/PO4 YZRkjXDrGUUUV/0LlfO4IllAhmIRiTk2JPPUX8h34mJhJ1K4/V7OsyOVUzSN kzW9iA8RlVnSzanagysFvbhcOIDLxW6kFo0grXQE6eJhXCmxIavKjqDLZQhK LUVwGpUuQnC5HoGlegQX1iO4oA6+sZnCbw3Pl+H/QGSulqKf8zSIzFNTKkTl ClIiip6Pypaz68rYc2nedOqKhBt5DSKTKg+tKy6p+XuPYX+FgEvFtGw1p7jE M12FKUvr8qP+F2uHDIHpcgR5pOD3pkQIdSqhBKfjS3A8Oh8fRebiQ+8LOJup gnemBj7ZGvjSsr65OvgxBCNTZcgx3uaWeQvp51zIuTyInIwBTlkX0rO6cJkJ lJZHnnkOs8l3LkMrny2rgM2pUNKJIhltLHdAyUBTsY1puDPIbZtQWDdo5TUo O7i10r5cGTlv/ztaOXEbzcMwmIYxNLmCHveUJ1RfbdO+W4J9DR77PhXsu0b7 ChZeFZ4KTnf4dHDCs3mtqLhNy1BPGSqlUFc0o5lzso1z0sTA79BSbKwWFees gpJREt5WNXlYeHHWc4hAWxMXWO6AHXS2U3hdI2qo7fAXEVPULG9foJbp9lVq nW7fpNu3hZfRaDx8KY2rlJuZOsJHZjRNzqMC7lQl3FeoNBWGBV1WYeiKGtYs 6aHTFw04WD50+tP1Rv7Uf+N0VosMj9PDUE6XV6RFoDI9CtVUTPoU4grnEZJi QegVK/dqG2I4ZGJzOpGQ243ELDuSs524kNPFctiFlPweXBacXdCHy0V9LI4u nM8bxrkCTvj8MVwsHkVyVieucGpnVXUiNEWM0EvUZUFlCKNCLokQxu0sVFCx AcdCLiMgpYJj1p+X/4yoAj27MSd3gY7SUmpE59PteUpE5yoQnSPnxk+3Z0i4 0dUgOqUKkcliT8PwWP1wSici4GLBYaHgnfw9heLQ7oLZ/WnvACowXYkTiSU4 mSjCqcRSnKbOJJZxTpfBm/rgdAp8supwNlUN71QNzmbpcTJehJMJpTiVxPsn lfFtO+I4DrIqbEi7xHjKdONK1jBScweoXlwq6EFqcQ/SS7uRVc4CVtGJvGon 8iUsGzI7CpVdKFTR+moH48wOBZcPpXUBEts6JNZV1HAhaeTUNtD2Bh61rcNQ NQ8gmyNM6I5/tTtjWbD75pHdqUeC5dcPn/1worOKK7sSRqmCkqNFIoOpRgpr pQQOjthOjtgu2r6Hlu9jx+2j5V1c0lxKXpfzKKVqqMop9JSNH9ZnnPYcAtBU 7+JwH4XF87Je056X9eoX/vxACX9inKEWedsKtU4ENqkdIrBL7fH6NR6vE4cb 1D41wUSe4sM8xYSeYlJPMrEnc5SYyFHxSOWqMZmlxkSGGt35MtiyqolAIx4J CHDQHyLQhNdEII3lJD0+8AiBCCIQiSoBgYxoBOWXIbi4CiEiCR1j42B2cPB1 ISyzBxGpTkQze2MzuxGf1YuE7D4GgYt7Uz+S8wYQkzmIWAZGTM4Y/C50Izq5 h/YnIqU9yKzpoeWrEXZF+Ht5WGoV/hPC0iqpCkqMiNJWhJe2IFzUjDAR97yk Au571Qi4Uu3lufKPCLhchejiOqqWW6Ke0iG6UIOYQhVi8o9oyJby2yAFadUs LZWHTfvvBAyQDN8r7Cep1Ud1+tD9guv96fqAdBWOJ4lwgi4+mVROJwsS42xi BbwpH8o3oRIfnr7C7bSR7tfBN60Wp6NISHQZzsSU42ysGN5xYvjGV8L7QieS S+hsDvFqdScrtZsBOcIgHMLlfBculrhwqbQPqRV9yKjqQRbPT7aMNMj5MSoW PU038nVdFMnQcb3WcYckBdXWeYg7VqBtH4Wmnet8C92fGYo8jrScON9DAnYE AoTHmwRsHRHAof9IIGCjDlPdNZjulaBZoUSLXIl2uQJmuRxWqQxOiRQ91ZJf bHpuDn43KRglBaOkYIyDf5SDf4QUjHDwj1ZTlVT5FIZKxg77OE4dvcZym+dV ztiyWsfR2TbleZWzQRM/CzVNzVPLvG2d2qJ22g4JuE7tUzep27ztDt/n5XnS 6X/AbJ4Uc3T5fL4c8wUKzBcqMV+k9MIct53/B/PFal5T82Ye8zXoL2E7ypf8 DMMzNvWXPEFXYr0Jgz9EBKGMIIhTI1FBEAQYAnNLEFQoRkhxNUJFMvZoFcLL tYgor2O7rvSY2f9iNxtEL4JTXfzWgtP66dIIrsIngpU4GdqKU9HcFy/0IZhp H1EkPOAuZEpcbOb8fDRgeLoUYZzbXgjPqMF/QHgmAUmvOqzh4jZ+LUEtCDpX xDwI4kf8M5uI0KMlVA130GpEi+opUlFCIopJRNFPRMgRk0sasgQaqhB1WXyY B9yXhGzw49u/jIOfYuAQhOMc5ScIwSlCcJrN6Qx1NqmaMFQThmrCUEMYMvDh mTQE5DTDN70evhkGglCBM7G8bxwhiK9ibBA4ftzJKAsCM3qQUtHDTaUHEn0P MmQ9zNJBpBQxM7nFnC8bxMWKflyq7kcqz1OarA/pSg4PFaNC3YUsfS/F63oC pee+rrMiXWNBmqoDlyRtUGZHQOVRGIEIRC4HnbCNvblKIHYaPUA83yYQWwSC UDzeqMdsH9eUVqUK/5WXSpgpq1IBh0KBbjLRJ5VisEYCN+vIGJkYJxOTTIUp MjFNHmZYhmaYCjNkYppMTLMMTZOJaSbDDJmYIRNTJRMYyRs+7P44+fOr/7lg a3HD0TaGrvZJuNpJj+eV//hR1KJpBiumWWyY5rDdPo890zyum+dx07yA28Lr fPB4T3iGYcsCHgjiZHhoncNikQLLJQqslCixIlJiuZQqo8QqSu2FlQo12+2y WIOVMg2WuRm6KxQYKJbgyc9sNJENX7IRQDbCPWyUp0VBnB7NrhSDoIJShBRV IqREgtBShWfHDCcXEeWN5ELCXiNDxGWulOxoUexlYSlSvi3DiRANuWjHqagu +FwYQFDmAMKLBhEjHkSiZAhJNV2IY7cJz1R61tFwchDBNu/FSxn5iMpRUyq2 f37eSjOiKtrZwnMQfFEk8JepEC7k+CdeyhCcIaUISnoNYkrrEUNIYkR6xJRo EFukJCAyxOZKCAhjJb2C4JYe/l7Gh1xUHrLxc1AoyAMbP8NBYOJEUgVDohKn k6vJRg3OJkvgTfkkS+GbJKXfpVxqsxCQ24rAvDb4ZgpcVDEgqnE2voZM8L6J R/c9R+7Ocy8+34PwAvpe2o8LMnpfyVmh7EOm1IrMMn773HaSyEdS5RDOSciK dAAXFf1IUfXhkoa1ioFxSdeHFB0Z0zoRzzSMz5IgPqMScallUOZEQZVDNnLD kZcQSPkjO97niA2Gxc5PbBgw1yfFQr8M7So1z2u7WoV/gUmlglWlhFOlQA8B 6VfIMSSTMQAkmDz6jcos4ZhjYCwQjkUGxiLhWGJgLBGQRUGEZJGQLDI4Flmf lhgci4RksXQCs4UjR3sDTngOQWhv6IG9eQjO1lF0t4+j3zR5+NqY5lnMmOl0 0rDKNrhpWsJV0zKuta9g37SC29zr73askoxVUrGKR/ZVPHas4olzFU+dK3ja uYyVUg3WOM7XBVVQlRpsVFE1amxIVBSPUkHCbYfvG2NbHK9RYEhUg2fsUy+2 hcX5sEuVXIlAKeOjLC3ag0lAbhExKT+KDzkR0SC8rJaIGBgfxIYLe9hl2px4 RF7REBE5wrm8Hw/W4USomeOyB97nhzgyhxFW5EZ0hRsJkhEkSV2I5xoQz+IT kS08PBGE4n9HRO4hFhF82KPyGQMeaRBdbaU6EFVl5qrBdYMfE5Kt8kIIOUrj pRLBrJIhpCwk6xCYGH6LsXRcbGntz7DEFjBJ8qpZ7Sq5U5ejnJz4XhIfksIU +iUlPxFSRVXjFMk4Q6efTZLBmxL+la9vssKzH3uHibg/5yAoz8TqacbpGBIS JyElvH8i75so99xfuK/fOSX8L7CqpahwOm0IQWVDiJcOkYBBZGgGkal2IUtu 5VJRxy1Oh/giniamYQKbQEKRilIgsUhOyRBf1oR4UQPfV4sEblQJuTLW2WrE Z5YjNq0YqrxIkhKBvKQg5CUGICfB568pckTKIgkR/oWiWa2GSaOGmerQkBKq U61EL2kZIC3DSjlG5TKMk5Q5brYLJGWpQXh+WNZ/RskqtUat66e9sK7jxRq5 +Q9YIzmrJGaNC8c6iVmvmcJa5QSH+wjO/C0p/w0O7j+drW50M0tcHkpmSck8 KVkkJctYIxFb5lXsdqzhesc6bnVs4I5lE/dtm3jg2MIj5xaedG7hadcWnnVv 4XkP1buJF70b1Do2q+qxRW3XUJI6bMsF6bGt1NGBOyotrLzUYEdJKTTYJjVT /PEnmaCfHJFyJdYfaXE/kRJ1REoMB2QJgosqSIqUpKhIip6kNCD4kpSkKEgK A4GERFzRIewir6eocSy4lpR0kJI+UuJGQMYoKRklJaO0xBiSZMMkRM+HnCrm Ap2rQ2SeIC0i86kCDY9cpAtZnAoP14kYiR0xUhuia6yosk8iNJUlL1eLUA7e UH5cCGkKySM9eSrerkRojoAMM0TcSBGXMj1iRWrEFiuICzHKr+RyLkYZJ4Dv z2XrsGgdT/wrJieEcpQk/DJfyjCRERU5MVHCh/JNUhEVFc6GlcEnopyYmBGc 34HgQitx4P6dwPsmKg7vf473Pa/m7WoWUw0x0SDwshZBqVqcyR1BWNUIEpXc xbVuFig3snX9yFYQF2IeX0IxGxNEOiSKtBTDhj9LEntEUgnRIC4JpQIuOuJC lPIkSMipYMCIoMxjsOQTlzwBF5auRL+fUXlJLQ/IsTyoIBoadGg1sGjVsFJ2 AROqV0NMiIubqIwRlUmiMkVUlo2Hv+5co9brZ7BZR9XPeGG7fubveTGN/4gt YrPJsNli2GwTmm2GzLZ8Els149godx8u4zjuOfwX2I196GoZRE/bCHrZuAbZ rMbMh6+zumheY5ask5JNUrKNG5Yd3LJexV3rLg7su3jo3MXjrj180rOHZ717 eNG3h5euPbr/Vf8ufo9XA1epHexImnBV2oRduRG7CkrViF2NAXvaeuzp66ha Soc9nZbSYI9nZZfUzGoUmFHK8HxLIMXviJTIQ1KYJ/5ZeRyQpSSlmqTISYqW pNSTFCNJoRMvs2bx0Y64okdoikCJhpTU4XioBSeiXDhzfhQBmeMIKxwnJROk ZAJJ8jEOyHo+qvV8xBuoei9EFdThI0QSjCiCEck5KiimhJlQ0kCxiZTUIVbm RIzMjurOGYRyYwnNqOKn5pf2SIdQRlRoIcXZGpovAEOQ2eFiKwgL53NsmY75 okYMf5TYQm4xBRU4nVrEraTC8/tYv1QpISmmygjKXyE5SUBOJykIiZJ5oqLx 1QRFQ0g0HiC8IyoICQHJtxESG/zP6ZgZekIi/O8S3pf3EX6PrMX/hN9FHbc3 PQJ5yoK4ygen1yIksxbexeOI5BA5pxlDWu0osusp/QBylDZkFtcRBp6usjok ltfyqGcr0yKZTTqZJTtR3MLbjDyVvF8xQWLmJBQwV/LKEJdVBCVBUeZHIFcA Jcnv5/a1QkhWh5TCPy8jIv8MC61hIyQOnRqdWkJCDRAUN0EZYx+b5Joyw9V9 pWkea40L2DAuYJPaNi7yc1xtXOTn2OX1PY8WjsQlwjiH3cZZXDXMeH6zukuM 9gjQnm4Ke+oJXJWNYrtq6Gh5xzHPIQo2Qxe6mvvRy4zpE3YVz6sUL2GK1CyQ mFXzNjbNV7Fr3sWNjmsk5xru2q/jgfMGHnXt40n3PqnZx3PXTbzsv0lS9vF6 cB9vhvfx2fANfOa+gbfu67heo8M1ZbvnFTOvCy8RqWvFtdpmXKtvwvWGRtww GHCjoZ7Xa3nU43qdFtf1Gt6Xy75ezi1Mgisx/mxlgSgmPaLUaNLDjMkpJD1s Y0XMFNaBUD484aWNpKeZ9KhID2m6TAuQmtBLWnwcUo9jIVaciBzA6XMT8M+Y 5MdOceGYRhyLayJnTHyxgXOzkQ81xc+VWGYgMlQRRaKiiEkU7RIraqLVhX9p EMt7/Xda34A4RTdiFZ2Q9MyjpnsOYZlcmrKpojqE8WNCWUvCmFthRcw8Nr0w YhSWL2QOEaokihXMm3IBIVYzLmExxVy6M4t++gscjiUWER0uK4mH6Jxg/TrF XDmVpPQiO2r8gfuKluRoSY6e5OhxNoK7elQ1ggts/FEdCC1ykpw6xkg976sh ObzveT18L/L+F2vhf4nvu1KPwLR6BGXUk5wGtskGz78G8hNPIkY5iYv6CWQ0 TCCnYRw5tQJBVlzK5qCpMCCpgkfGZlJFLZLEOiRzHz1XToIqmkmWcFpJFyMo sUTKGBcjPr8YyoIoijGTLNDj76FnleSsDStJi0C2jdz8D1h5KZDTRfXyej/f N6zVYkyjw6RaR5voMC/XYd3IWiS8fJhxFVebWI+a1nCtmRWpZQ03BLUKWsW+ Ryu8vkwt8f2LuN7MdbxpDjcaZ2jFKezXTeKGdhzXlSO4WjN4tOYfEZSMTmMv ej0vuck9pn2Gm/4yJkzrmPO8bu8uNkjNTsd1XLPs46btJu46buGg8zYed9/B 0947eOa6i5cDd/Hp4F28Hr5LYu7i7chdfD56B1+MCbpN3cJ1aR2uC68oqunA vr4DN+vNpIZqbMcNYxv2m5ux39SEm00G3Gyux76xFjcNOt5Pg0WDAgt1siOC gpAeF4ISElSaRoI8+0wVrcFlgS0glHkRTlcHMWuCSU/oZQ7RC2xIKTr8KbiB BFlxLGKQK/Ik/NKnOYynESmeYXDMIkExQ3qakVBClQoPdzMt0ExyjIguaSI5 RkSRqigRSeLXiS1vpVoQx/vEiUmT2Ig4dS/iVN2Q9i1C2rtIkhYQniPzQjhT KgxhonqKMJUIIBEi7gHh3AHCCvjt50oRW8VPKyac5dxvyhTwEYlwJqcYf4wv wrH4AsIjIjxiHg/hOXEID7NHTX603PiZKaTG51wdfKmzEdxZIiUQGWdJkJP0 dCG0pJv0GJgxjZ77+l6oJT28P4nyv9QA/yt8X5qBK14jgrMauYMZmZNGhOUZ 4Z3mRmDNNOJZai5xV8hqnEKOkaofQK7KgsSqJiRVGSmSxJ8lqbIOyZV6JFdo +L42UtXE00rCmLOJpdx7RFXMIxHicnORdy4YuclByCFBawMyrB89O8PfwU5W /jPsHKidOh16dHq4dLUYoka1dZjU1GNG3YB5arJCiq2WTew0b2G3ZQvXWrdw vW0b+9TNduH/L94ybTODbpm3uI4L2uT1DWodN01rvM8KbrYt42brIm41z+G2 cQa3OClu6Uexrx7Cnsx1tNzgY88hGE6DEz3MIFfLKAbaZjDcvoRR4Xl9TDtY MF1jBu1jq+Mmdq23sW+7gzuOe7jfeQ+Peu7jad8BnvU/wMvBB3g1/ABv3A/w dvQBPh97gC/GH+DdxAN8OXmArwRN3afu4bbKiJt6O27VU412EmMlPSSrlWS1 mbHf3sYfoYVqwq3WBtxsqcXtJi1/DBWWjKw1p08jNSYIabHBHor8M3JIUSlz SEKKuEdwxocyP8JErQhM0TKHWEXOaxB8QYePghpJkRUfh3OQJE3BN22G9M0h QjzHHWWeBM0jrriV+dPKOkKRkERxKx/2Vi9Ei1p4Qa7OIYq9PbKUtIhNiK9o R1xFG+IqW6kWxGv6Ea/ug6x/hVqGzLXkoSk8T4EIJlVYqQFhzCpPy+QwDi9h HpUwi44wiq02MouYQ7RdrJi7R7kYZwtE+CCugAgJ1Y37TWIljzUefE4Sn1PE 5zTxOZ3EwEmuY7DUE6F6nImQER8ZSlhTSpsXeH4EfHp4bnq5wxhZ0Zq5x7TA 52I9fImO32UD8WnkLmVEQLoRQdnM8Zxm7mbNrJwt/P6aiXszfApYT+VzSKyd xRWimd00g9ymKeQ2DCBPaUZSdQuSaohSTSOSqxsoYlRFZGpMxIjns7KR55RV j+GUWC4lSuVszHlEKMSD0IXw09gYkmPTLVQ3J/H5n3DotURIT9Wii42/V1+P QZ0BI7pGjGuNmNY0EaFmLKqaMSlW4mrrVey17hKfPXpqj3iwPzENblN3LOxR Qpey7uGejeI2ctcmbCU7uGPdxm3u8Le5y99mD7vTvoy7wn+ha57BHcM47tS5 cVM7wC2k52gDOkLpv6K7sRt9zUPob53CUNsi3O3Ck65tY5Zfesl0E+umOwyj e7hmvY9bjge42/kQD3oe4bHrEZ4NPMaLoSd45X6CN6NP8HbsKb6YeIJ3k0+I zRO8n37ihfczjzGAr2cfUQ9xU9WKW3VduN1INXWSlE4S5MC+iTJbcdNswc0O M48kytzM0WHA7TY9bjerccugRNyZ08ykQGZSCFsdScrMJUks+vkyhHDJCClq YGNqolvaSJKeLY615LwOwRy2HwVb8HHYIJ04De/UWX7MPMLLFxAtWUS8YokU tXPzJR2l7aTIhIQKPvKVJkLUTobaEF3WjijSFU1FCRlU0UF6OhBfRVWbKX58 dRvidYMc1gNQDK1BLmhwFbKBFUhdy2xwSoQXKvh12TjLDWydJKpUaKB/SxSb XQ2bXVUdYiq50FRU4WReCT7kEnQsvhTHEyo8JB1PlPFnEf5KryZNOpJUizOJ 9TibKNQ0A05HyEmTgiQtkqQllLGyHJLkIs39CCRFQWmtCEpvg09KIxujEf6p TVQzAjJaEJjJ9+e0kSSqoJVB1o7w4jZElLQhkpPKp2wBEeoFnDPMI61lHrmt c8hrnkJeQz/yFAweSSuSpc1IlhgpA87V1FF6EtWOxOrmo7AiYRVcjMRVPO+F yP2Jpogz2HAruPBoyJIWTlLkJEUOEuTQN6BH34h+fROG9S0Y42YwqW3j3tyO BXU7pjmFrrZdx177Ddww7dNX+6ToJglhl2Kfukfdt1OOmzigvHDg3Mc/8vIG dZ23X8M97vn37KTLto27lg3cM6/ifvsi7rfM4J5xHHcbhnC7tu8nmv7kOVyE s86GXqML/c3jGGidh7ttFaOkabL9GuZI0wpp2uy4j6u2h7jheITbXU9wv+cp Hrk+wdPBZ3gx/AyvRp7jzdhzvJ14ji8mX+DLqef4auY58XmOb+ao+Wf41qNP 8O3CU779BHdqzczNPtxu6cWt9h6i002MunDTSsSsDtZIGyW8BEk7blqaOSgM HBI63GlRIf7sacSdPcuACvY8Uah/ZiGRqiIeSlY1PZFqJFKttKeZHaYO/tyY A9lf/hBkwUehg7TkNM5emUNA3gJttYjomkXEyZcRW2xCnMiMuFLiUd5BnDqI UwcHbQdxMiOmzEyUTIgSCyJaQiBV24gQVWOlLIiX8GMlREs/7MFK4d6EYniD aK0f4kW0pP3LrHrFKpQgnG0wjFSFse6ElbPylbLulXBfYlMNLWTVq2lAgJL5 VM0dqFCMD5PK+e2X4VhCNfck4dcMCkpNonQ4lViL0yTpTKIB3kmNOBXOyhep JE1LEDWvoLRlFeUclqEemgZI8yBpaucCZEJwphk+l5rgR8L806j0VgRkcSJl t5GodtJk4mk18bSamacmZqwJkWUmz+nwq15GtH4JF5oWkcEZntdOtU4iz+BC rpQ5JCNVMlIlI1XSBpxjy0+UclJJWkgWl6UaLkvVXJaqajjFShCamYoLkd7U WTi16r+hqY5qoIzo1Dejr7YVg/p2jOpNmNB1YIYbw7zOgiWtFZPMw2um29zn 79BWd3Dbehd3bHdJCHuV8x6podivHnTdw8Ouu3jYLegOdRuPqAddJK1zn7rB +18jYbu4b9vCgWUNB6ZFHLRN477wUt7GAXasrmN/C1U0uhuccBndGGCaDbQs E6pNjDEhp9v3sWC+g9WOA2xZHmHP/gT7nZ/gTu9zHLhe4PHgSzwbfomXo5/i 9dinBOoVvph6hS9nXuGr2Vf4eu4V4XmF7xaoxU+pl/h+SdALfLf0nHxbmTuD zB9+V+Z+guNim+zDvr0H+04C5iRcTrZBJzPLbsItmwBWPe6aNDh/+gzivc8y q4I8WeWfWYLAHAmhUnv+EWNIURMf/TYuJB3MqQbPL6Y+DDLjD8ED+Dh2Gmcu zcM/l+2ndAlRNYRJvoLoog5u+MycUoJRbuXMpCptfLRtbHcWuseCGDGPBC2K oEVVCLnkJEgOQuTwQrzULvz3RxnZklmQUCv89zLV6A6qoBzZhtK95eFLTrZk g2uQMrLCSxhHwi/iK1gCxQSLW3pYmd7zV17P7cVyxHC0B2g0OFtRjVPF1fjw XBV+nyghWFSCnFIRKi2h0uMkgTqV2IDjoQqcDFOiyLBEoFYg4sZd1rpOoNYh Nm2ismOTQA0R6GECZUZQZgeCsy3c16yEqo1AtTOiqGwTT6vZ88vwkMIOnlIL vy8L49SCCJ6OSPHhaYjh6fCXryK2YQUptFAWTZcnqI1gNfQgk0U4WdGCZLkA ViPOybgvyTmvZG0U9ydpPQFj8auRMf5ECMtPx4UoH5yPOuupek6dAFQ91eiB qUvfhu5aE1yEaFhvwZjehimdHbN6BxaoSUkT9kz3cJ1ZsG85oHUecEl5gHvO B1xU2LC6HhKeh1xYqN6HeOzRAzzpPeDxAE/67vMoLDR32cZu46D7Fu53CfEl /Ip6GwdWgmVewEH7FOEaxr3mXuzprYelDx95Dv83rJpW9Db0od84QbgWMNiy ATcr6ETbDcy0C68WcR9rHY+wY3uKa85nuNnzAnddn+LBwGs8GX6N5yNv8On4 Z3gz+RneTr/Fl7Nv8X7uLb6ef4tvFt4SoreE6TN8v/wZflh548WL1yjFdyuv 8O3Kp7jb6MTtdjduWYYZTkPYdwyS337c6CJj3b1UF/a77BT5crbjlt3IFlyL O2alh63LUUE4fS4F3pdLEJAjowk03IwaaIRmT1cRzOCbrMPvA0z4Q2A//hQz hVMpc/DNXkSwaAkRVcuIka0iqpDMFFsRI7IhtozhI7YjvtKOhGoHuSJb5ZTY Rq54rLQiqsqKiAohnLqIVCcSZJ0EipzJHUiQ82PlNiTUj0M9vgv12C5UY1eh JGbKkSPAGGCyoUPAavoXPf+cyANYBburkFpc1MPK2AVFCoSUSOGjUuJslRyn eP1DboW/T1Lg43gpAVNQGhyP17MT1nngOhYqR37DPAobllDcuIISglXaso4y zkwBrIqObVRyYwgXuxFeMUqwLNyYrAjJsbPn2eGbbuKsYtBncS7ldvCc8v35 Fs9fmUJ5fsJK7QTTxu3ThkjhfFRZvTx/WP43BKnXkGBcxWXu89nmZeR1CHyN 89vpQrKyHUlK8qVoogxIVFjJF0OLzCXK+baMtVAqLJvCH7YyyJY3ony9yZWO qmPlM1Kt5MuEbjLVq7digAu5W+9kWHViRteFOX03Fmu7MUlmr1seYt/KfmV/ jLvOJ7jX+YSMPCUr7Fq9T8kO1fcUT1xP8ZTywtP+J/hnXj6mHuFJP3lzPWAv O8DDPoabhzEhwPZYGRlcwqu1WOZx0DFOzvpxt8WJX8AVxjHQAZdhCAPGGQwK zxDbso2RlmuYbL2Fudb7WDI/xLr1KXYcz3G9+1Pc6nuFewNv8HD4LZ6Ofo4X 41/g1eQ7fDb9Dl/MvsNX8+/w9cKX+GbpHb5bfofvV97hh9V3+HH1C/y49gX+ vPY5jwRu/TN8t/4G36695g7YjVvWMdx0jJIsN250D+FGzyBu9LooEtbTxbdJ WDerYWcrbjsauUtqcZ51MNbbm3Sl4uylUninSekGHZ1gYHq1kDATO5UVv/Nr wwf+ffhj5CROnJ+DT9YCgoqXEF7JtCJZgoOC6Z5QwT3FdI7IjogyB93jRFCR HZHlJExMVVCVDj4MkVV2/IpU9ZCoI8m7SZXwv+0TFJ3IQWLDFBIaJqGZuE7C rlF7JGwXSg9l25CTMBkJkw6tQjKwhOr+BVT1zSGkTI7QinqEiGtJmRahZSqm qxw+ai3OVitxslSBDy7o8ME5NT6Ok1MqHIvTUnr8MUiGbP0M8mrnUFC/yNgi WcY19kCS1bqFctM2xB07qLBcRaVt10NWRNU4ybIh2EOWg53PyfPQCf8sC2PL isA8yvOnKb6f5yK4xM7O6mTEOvjxTn68A5HCBKqxc0O1w69kESH6dSS1rCHV vIJcyzLyLYvIbxtDfp0DSao2YkbElEYkKtkKVGYeGV/C24paRFbKGYlifr0c RPn5INLnLBwCWrpDtOx6Mz1r5WZlR5++k12wCyNEalLfyy7Yh/k64VXZzbhm YctiINxysGl1PsO9Lratnud42PsCj/rYuti8nvS/IFEDL/B/4pPBF3g2+PxQ Q88oYdMheYNP8HjgMR72P8ADFwnrI2E9JKyLCebYpFaYZLM4sI2Qsu5fwPWQ M6AT/Q1jGGhkajWtY7B5F+6Wm4TrLubaH2KZ3+SG/Rmudr6k0V/jdv9nuD/0 OR6NvMMnY1/ixeRXeD39Hm9n3+Pd/Nd4v/A1wfqasfQ1vl/9Gj+sfY0f19/j z4I2vsJfqB83v8QPmwRv8wt8u/E5bjX1Mop6GU0TjKgxgjSK671uXO8bwnVX P9XL6wSsVwDMhJtdrIdOrsCMrlie/NPnMnA2pQzeV2T4PdfvD1Pb8cc0Kz5K c+KP8U78zrcXH4SP4/i5WZxNX0BA4RINvIxIySoNZPEY6PAvNHau9Q6OZidH sxOBRQ5CSIkcCOZtwYQssqqTZupEnPBPhmSUvI/qRbyiFwnKHiSoCJmqC4mG GWgmb1L71A2oJwjYBAEbFwDbgWJsC7IRAbA1SIYYXwOLqHLNo6pnBpWdk6i0 j6LCOoSQchW/LuHS6uGra8KZmiZ8cLEOvz+vw0cxcvwpVoUMrZsaR7Z2Crm6 WcK1QLiWUWxYZWyto7R1E2XcncVmgmUVwNpDFVfziMpxRFRPEixClduJkPxO gtXNAdPNZa8H/gQuIN+OwAKegyL+/CWUyImzhQ748Ohb5oQfz1MAh1AgYz6I imFs+1etI6JhHefaV5FuWUWeTQBsnoANI7/WgmQ1O6K6GQlqOxLVFqqdaiKg ep5f7sqlYp73PEQSLjt/bruukToEy87+52RWdRMqF4EaJFCjBGqyrh8zdYMY ZWUYkVtxw/acw/oFwXqJuwyF+z1sWwyGR65XeNz/mky9JlHU0GuSRAktzP0K z4c/5fFTvHBz5XG/wNPh52xon+DR0BM8GHyIg/77XIlIWC87YvdVUrZBCS9b zn5oH8Bds+Vo3TpCLJgRy2LIWTvYuIxB4zYxu878uo3JtvuYNz3GivUTbDpf YrfnNW64PsOdwc9x4P4Sj8fe45OJr/Fy+hu8nj16FfrF7/B+6Tt8s/Idvlv9 jnh9hx83vsOfNwV9i79sfYN/p/68Rey23uP7ra/w7RazbusdbrX3M7ummV1T xGuCWI3hWv8Irg0M8dhP9fA2J270WZlnbUiRCP8A2ITffxyN38bm4Xfn5bRe LT5IacJvz7fwaOaxC7+7MIxfR/Ti32IH8PvkYfwhZYS2XUZEzSr82H78c3+a z7QZcQqldcLKOhFAvAKLaR2+HVTa6YUg3liLQDrKl++Kkw2QrH6GFSlTUqo+ kkWpSZmmG4mNM9BO3YJmipRNkbApxtjkNagm96CcuArF+A7koyTMvQ7J8Cpq BpePImwWVTwFlc4xVDjcqLD1o7i5EeEGOrCNG0+dBT5FFngzmtM0LqRrhkjX KDK1EyRshoTNMSYWUcjoKvZEF+lqE6Jrh9H1V7qqO6+jhptERPUUgj10dTG6 elioezll+lhK+3hqeAryeQoYZ6fznDhDAs8WUEWd8Oap8S3vgp+Yp6qyE4FV PE2MsmBGWQijLEC+iSjjOi6Y15BhW0W+fYmUzSC/dRB5GrZETQvPE4u0lsut 1sTrzYiUMr5qOFHEFfArLECEry9s2gbYdC2UGTbSZWMiOPQ9JKyXhPVjSE+q aocwWTuMIbkTboUT12yfcsl4hVudrEbdb0jXG9L1GR71v2UWvWUmvSVZn5Mq yv05iXqLFyPUqKDP8NKjN3g++gqfjHyKJyOMPPczPCBlBwJlAwJlt5hl1ylu Yb1siT1zJI0ZZnf+krBwpuwgBurZDg1rpOwqhpr2MdJ8F1NtD7FgfopV2wts db7Cbu8b7Pd/jjvDX+Jg9D0ek65nU9/i5cz3eDP/Az5f/BFfLv2Ir1d+ZOv7 Mxvgj/hh40eS9SPJorZ/wL8L2vkef94heTvf4oedb/DdDkNv+z3eb3+Jmxa2 wu4ZBtY0iZrE3sAYdgfd2BscolwQy9upVlRwGa7icpzKJvDRmfP4XVwxl/0a /CZOgd8m1JK2VvzbOTbD8wP48Nwo/nRlGn9MGMTxFDdOpY/i44xxfJzaj2Np /fDPsyGggAOY2ISIOuFHSwXQUoHFVEkn6epCcFkXAjjAA0ibP2/3LSZxfrxB Q7r6SZfwhyvSRscnaPqQaJyjSNjMbWhmSNk0KZsmZdPXoZq6RsJ2DwkTcmx0 AxJSVjO8gmpPjs2hsmcalV0TzDIS5hhASZsR4Y2tJMyG8HobfIptJKwDafya aZphZGhImGYSOcyvXE9+LaGwcRXFQn61bP2cX2LrLrORdDmvo5p01XCXiKiZ QZRk1kNXSCHpKu7jkCFhpS6czHLgdLYTp3JIGOk646Gri3RRJVQpT1dFNwKq uhBY3YWgGmacxIkQKQeVlFmm2UQs175LljVk2VeQ7yBl1mmEcwoFSwfhK3fB T94D7xoH1QHv6lZEytQIrqjkaS5COAmzapuodlh1VspJdTPP+tClG0CfbghD OjdG6kYwUT+KQWU3dm2vcd3xhovEZ7jd/Rb3ej/H/b4v8KD/HR4NvMOToS+Z S1/iE4bE8xFqlD2MXeylR+/w6bigLyhh+SGJY2/wZIy5N/oSD0jZwTApG3pA 0u6StJsUd7EB5lj/EmmbYK71/ZKwRyRsBAN18xhs2MCQQXgBp1sYbTrAdNtj LFieYdXxKba6X2PP9TnEgd3oDh3ATNwQ5hOHscxMWGVGbFxyY/uKG7tprHYZ buxnu3Erdxh38odxv2AYD4qG8LBkEI9Fg3hSNoCn5f14InbhSUUvHlf24DEf osesXo84AB/V2PBQYqHMeCBtR3VJM6pFzagRGalGSET1kJTUQlakhaxAifRq A34bWUTKpPhNjJrHesqI30aZ8EHCED5KmcDxzGl8fH4YJ1NHcDZrjMS58HHa AI5nDOJE1jCOZQ7jeJYbvtxB/Gglfw7pAFooUMQhTdr8SJVfiXA736a9/Hl7 AO3lK1iM9TFezUDTUFqipnUhsWke2tk71G2KiM0SsZl9InbDg9hPQSYf34Zs bBOSESHIiNjgEqr651HZx6rYQ8S6R1DRNQiRuRnhxnZEmVhfG1jRWGW9uVum Ee10FSuiehxZ2mkPYnm1i56KWNS4hpLmDVZEImYWdq9dBqIQYMSrk3h17UPS c5OITTM8BMR6WZOJV4kLoaX9OJHpwMlsB84I4ZXLasjz4n2El4+oGz5l3Qwx SszzUd2DgOpuBEqImbQTwTKGoowTi5XtjGoa/joGZe0Ed9IxJDeMILx2AKHa MXhLe7lX8nNXW+EjYzhL2+BdWYsz5QqcLBYjMqMDEakWWLQU8bIQLwvxsuoG 4dQNo1dH7+rH4K4fR5+yFzu2z7Dn+Bw3Or/Are53uNP7Je67vqL9v8LDQabC 8Nd46v6awcR0GP2GaFHj3+DlOLsYE+NTj97jFVefT6mXE+/wbOJzPB3/DI/H X+HB2As8GCFm7sdE7YC643mlrINhBhl36YPBGYbbEO7YWw7xwh+P/mu3XW6G Sye8wvoSBuu3mGfXMdx4B6PNDzBteooF6wusOV9hq/ctCgNcqA/Zw1TOPWyJ 72O36gDXaw5wU3aAuwrCrTrAI80BnuoO8Kz2AC8b7uOV4R4+M97D50138a7l Dr5qvY337bfwtWkf78038L7jGrWH99y+31u28ZV1k1qjVqhFqKVdUPNRU8sY GzI7tFIrdNIO6GvaUVvdjNrKRujL9fh9uAj/GlmD34bK8WEEt/7oRnwQ48Af z4/iWOokh/EMHbKA0xmj+MPFXvzxkgsfXenHx+lDP1N2ImcEJ/NG4ceB7c36 5ENn+ZIyX7rLl+7yK+qGf0k3yeKRLvNCAMvSr+g23ocVUvi7cTwHbGKT8CJd urm7wsVt/PZn1NQzxExIs2liNrkL+cQOMduC1JNmq6geWkbVIDFzEbO+SVT0 jqLE0g6RhZg1mxDe1MHOyG+MGepdZEOqcoCYjSBDNYEszQxytPPEbAkFDSso Yk8sadmEiClWbr4KsYUpZruOKk+K7TPFbkLSewtSbhaR0jlEyeZYlV0cPXYi JqSXk/2Q6ZXf5cWC2EXHeBeSMIEyTiCfsh7+zBSDzK+SpHnE3Ofj5a0chQ+/ LV81J5d6CL4kLUw/iRjDOJfUUSQb3Eion0AYg8hbSsqq2klXM3y4aHpX1eJ0 uRanSqqReL4BSeeMSEpuQWJSGyJTHDDzHFu0w6yLo+ipHUd/7SQ6Wdc3LJ9j x/4F9pxfcqH/Crd73uOu62vc7/+GS9S3eDT8LZ64v8PTke9I2Pd4PvY9Xkx8 T5K+9yJS3+P/wqup76hv8Xr6Wx4J3tRXrGrv8Mnk56xtb/CQoB0QtIPRpxQb 4+g9ilk2yizjoDxwzxO0UTZHG35BWSwcMitcXJcH9cJLDXMfa9iHm0SMtTwi ZZ9gwfYSa11vSNnnKAzaR1P6O8ypf8TV5j/jeutfcMv0F9y1/AUPbP+Ox86/ 4JOuv+BFz1/wqu8veOP6Mz4f+DO+HPoR790/4puRH/A9f7ofxtkUJ6jJr/HD 9Hv8MPMl9Q4/zH6OH+Y+o15DxzOoq5uAjnNKzypQWz+Cuvoh1NcNoKHWBYNQ ypl7PVVmdItbEJvSiN8EifG7UCUpq8VH0UYci23DR8l9OJU1Q7PMMnsW8EGs BX8414k/Xu7HR8yzjzNIGQk7TsKO5YzieN4YTuSN42T+OLy5pPj85KxCzm2B MJFAGR3FBulPxgI4ywMqhKWEC0qF0wsJREwB3fw96u6RGGlz5IxSz+5D5WHt GhRT5GySnE1sQzq2gZoRcjYscLaAyv5Zipz1j6HEboLI2kLOyFizlc1RiBOa mQU3VTGINKXA2SSy1EeccWAWGFZRxLZYwigr5S5WTsbEtmtsiwJnN1BNxmp6 bkHSd9vDmWzgDjmbZ4FmhJGxk9mdOJXb6eFMQOwsf3xvDhkBNO/ibk+c+XLY +DHO/FlH/Cp5rOrGGcU4zirHPKB5EzRv5TCPVOUk2+MU98kJxBnGkGBcZKNm hCr4sWUCZCYPaN5VzThbUY8zYi1PtR4RpzSIOMnjiXpEHDcg/Bib88dNCP+o GVW/a4XsAxOUH3VAe8yC2pM2GM460OTrRGtAJ0whXbCEd8MW1QNHTC+64vvQ k9SHvnMu9F90YZCDdjiVSnfBnUllU7l9GMnvw+sZEjfDZWj6azyf/gqfTL/D 46m3eDj5GgcTn+JgnJE2zuY4zkjzvPAQI218ixSyNY6wNQ50/ZK0ONhYpl3q SQzoVjBYe5WZdhPDxvsk7TGmO55hwf4p1v4/tt47KK4E3fI8QfXs6zezsbEb sbMzMTERL3Z25s10d3X5koQT3nsrL+QlvPAmSSDx3mZiEu+9JyGTxCYeGYQA CeSlkvdSqUy/rirtuReqWv1m/jj3JkhCac7vO+dLIJPr43TTQwQ7biAr8gf0 lfyIqfq/YLb5X7DY+lec7/grLnX/xKvwE670/4Rrgz/jxvDPuK35Gfe0P+PB 2E94NP4Tnkz+hOdTf8WLaWrmX/By9i94Of8j9QNeLnyPl0vvqG+RVjiM9CI1 0ouHkSEfogaRJR9AdnEfcoTfpid1ddntqGP7qE9rQH1KNTxPKvCFnQyfOyRv k1YAfU8FjPaUY/cBwT4dMDteD9MTDcy5Cny1pxJf76vGjv01bJZNbJLc0/xJ GQkzCiJpwb3YTZkxz36lzZJz3FJoktuUWXPtt96mzEZY/dnerGXCN5oJmHBY ZpaJnA1fEFlLYaYlsz4mDS5CxkxL7CdnfeSsh9WxaxySDnLWpkFMKzlrJWet 3QirLkVoVTGci8qpCjjlbflc5CyhDSf4H55KEjhTsTaq/8YZK2Oo/EPO5hHD yhhbc07kTNpwEdKmZcQ3LyOBW4ZJKPmI4A0/Q86YZbsDarmNMctMeev/AWbb y5jZr5htt0arKCHXTRJ7YQHTJN5fyZxQyfxSyUSNeWaR0k61wlw6AFu2Rxdm micx21M4BEcultbR5bz/FLCNFrIsHxYxubCXyGEn/Ki8TSH2Wcuxz6qEKsN+ CyX2m1Vgv2klDppW4ZBJBaode9Dg0otmtz60e/aje88A+vcNQHVwEBqfQYwe HcTE8UHoTqkwy4m7wF6zFDCIC4GDuBQ8gNWQfqyH9eFqRB+3mV5cj+7BzZhu 3Irtwq24TtyStuNlVhOuDjzEOlFbE1DrY6j1MdT6GWr9XND6z1Ez/BybYze/ Znvjr5jt3P5FksbkfrSkjTHQ5hho57mgEbFiAbEbUFfdwRh3SB13x/m2J4iK +Qtqqv+Kvo6foOr5GSP9v2BM9Qumhn/B7Mh7LIy9x7mJ91jWvcflmfdYm3uP jYX3uLb0HjfP/4LbF37BneWfcfcS8bv8E+6t/hX31v6Ce+s/omdoFUmlGiSX jSC5fAQp5RqkKrnkKIeQrhxEuaIf5fJeVMi7UVnUiSrh15ALmlCVU4vCQh2+ tEuCvlseEcvCTrcChlkJjPYqYXyQO/zROuwmVkZ7K6HvwyDbV4ddB+tZKTl1 fOqx62g9q2UDg60Vhr6tXAzotrM92B0iqJuIsRaGURFcxgRFCXt/NSc5FSt8 w8wuRXgh4L25KuzJHRTJImXqi9yE0wXCqNRhtsYhphmVpCJlg/NMtNm/UdZN yjpHEdtBytqHEN3ej+g2UlZDymqK4UTKnATK8kkYg1V4Hv1EfBtOxnfjtGyb sgxSxsUsiIuZQFmYfPo3yqIrmWZMslg2RgmTLE6kjGnGJHOV8XqnDcE8nHUv smebMrbGIC5mHDOmrM1mwvMdHDEW4Vu4CWfLCFK4m4RZwoSEmSb1iDLjtDFP 6YZZQj3Fv57YCOMw7l6JA7DJGoV1Si/sU9nO2TJtJBWwlZRQhbCNzYKdJB8e 8aVwlxQgwkWJw651OOzSiEMuzTjs3AIfpzYccW7HMadOnKBOOXeiK+gK+s5e hSpsA5rITYzFXMNk3DXMxF/Hguw6ziVfx3LqDaxk3MB61g1s5FzH9bzruFlw HbeLruGe/BoeKDbxqHQDT8qv4pnyCp5XrONF5SpeVF/Gz10X8H5IiyuDD7A2 cA+rgwy0QQbaIHc01WXqAi/PYXVgnKRxP+tq/jvIXNEoG0BLCiFLI2QZF9Ca t0rINjBQfhPq6rsYq9+GrP0pznW9wDL77OrgG1wd+hbXNe+QUf0XFLW8R2nH e1T2vEfdwHs0D79HO6HrIXT9k+8xROg0hG50/j0mFt9j8pzwzrm/YJrAzaz8 hCbVVUQrRhFTSpXRaOVaSAhaHHezeIKWQNCyFIPIIWg58h7kybuQX9ROuJqR z9EeVUTIbJKwg5Dt3leGHa7MMa8SGO4jZIeqYOhVAaN9lbA42ggD5pYh97Fd PoTqGC+fYI4dr+OORtBON8BQkD9BCyVg4YK6YRJG84VXcx+pFncwtkNCVgWr 2Co92KZ0Yjd8ilU4UjyIvXkD2JPXT8LIFpVOttKGz5Gxc2SMbXFo8TfGEge2 GeudQpzAWBdvficZ6yRjnWSsowehdWSsVr7FWHHlb4yZBlbiRNwHjKWq4EvG /D9gLFRgjFtZpHKejC0ipoaM1QmMsTE2Ms2aLsCVxvdOFRijMshZJG9qVJfI 2G4yZhJMzkK4PoVyXeWcERljlBvFk8XEXjIm22KM9xQL7G5pA3bHN8A0nq2B jJnLeHUTa2EczkeC6bc7qgWmMc1MLW51cWwCwhP+3LRtpUWwjcvCcY5Rj+QK uCcUI+JACyIOtSPyYCd89nVTvTi6rx/HmVQn9qtw6sAQzuwfht9+3l0+FzCc /Rba3HeYKPwOuuLvMVfyPZbKf8CFih+wUv0D1mp/xNX6H3Gt6UfcbPkRd9p+ xL2OH/Cg8wc87v4BT3u/x/P+7/Bq4B33l2+5u7zF6+E3+GXuBd6v3MS66hHW VN+QKa5oQ0yzYZbGYZZGjtTV4QV+bpKcDbE8tv4dY/8VDYn9aE4iY6lkLPMC 2shYp3wT/WRsmIyN1j/AVPNjzLU/w7luMtYnMPYaV/m/X9O8xa3Rb3F3/B0e TL7DY913eDb9HV7M8prOfY/X89/jDXvg20Vq6Xu8W/oB3y5tXX5z7nu8Ovcd BgeuIE14XcviEaTKR/R40OBPPA4jlb5NKxpgfexDamEPz11Iy29DfGoFEjJK kJBeBGlCLk5klUP/aA6+cs2Dwd4ymB9mBSRiBvsqsMtDCX1mmNmxVlicaoUB MTM6Rp3hUnasjrjVi1gZ+TbDOKCZC5qAGD8ObIBxEA0TScToO5OITs74KvqP Il423IZskztgQ+nBh4X2dzwO4IhcYKyPjJ3XI2TnIEWqeomILSFlWEBsgYgx wjj3EgdmEP8rYj0TkHQTsW4uZd30TBcR6+JS1lCG0Ho5HLdjzDG/XlyMjsc2 4oTkf4FYDhHLJ2JFUwhVELGyWUQoWRaFGKthWazjUtZwDnFN5+Gc0McI6ydi vMrpg0RMJf5+iXlUJ6cIB0dQlYiYCREzDSVmnDJmnDLGCd3EqwcmXMKMKaPE NhjFMasEvrYZMyFfpolNMKN2S+rJFxVZDxMucKYSMhbXAMt4Nu4EMpZAxhKK 4FM5BJ+KHrilV8IlWY6zJ1sRcrIDIae6EXK6F4eO9OPQUd7Fx1Q4enwIJ06o cfqUBr4nNQg4oYHEfwUDVT9guO5HaBv/gomWf8F0218x3/kTlnp+wsW+n7Ay 8DPWhn7GVfXPuDbyM26OcqsZ/xnfTHKr0f2MRzM/4encT3g2/1c8X/gXPF/6 C36+9iPef/MG60NkbPg+VtVsjBoypmFj1KxRyxQXMzUXs6FhZlnb37dFG9Sz LDfLxhhmf4Osg5D1fQhZCyHreIql7ue8qi9wmbvhleHXvJqvCdkbQvYW9yff 4pHuWzyd/hbPZ7lczb/DqwWOhMV3hOw7gvUdAaPOCXpHyN6JgKULr4Eu1yJN kEIQgVNo+LGaGiJ8gyJp6UX9pKwX6SQtI78dGXktyMipQ1xiPo5kVbL15TCc 5PiKdBkdqob5CRZjBtkOzwoYH2mF6cl2GB0lSSdI0qkWGJ1uhpEQWIFsiGfq eZlUce/dHdLM/YQKbyE9xiENpGd3VCtMaDuTqHYuXe16RKwd6TjMq+VTPCDC 5SPvhw9z9gi1N6+XoHEokK409SIpE7RAyhZI2TwpmyNlDDGBsn4dpH2TiOud QGyvFjE9akT3kLIermTdXaSsFCENxXAsLBUpMxfWMYGymAZS1rpFWeJWWfyV ssD/FWVVXMlqFkjZIilbImVLcGHP80olZWlUOknLGCBlA9iXNchB0gHLGCqW Nzu0CqZhVaSsigHWRcK6mVqUVKCrQaTr17NxQgs/3wgTXjYhbcYxtdgdy7sv hv8uigQywcziWD75Z5ZsklbCD4gkluJgYRU8q1TwrOyGY0Yl7JKKcOx0O46f 6cIJvx6qHycDGLonVdh3eggHfNU45K/BkQAtjgdqcTJwFKd5+YyvBg0tf0Vr +0/o7PoZPb2/YGDgFwyr3kOrfo9x7XtMsV/Nsl8tsF+dZ79a5lJzmf1qjf3q 6gUuN8vvcX3lF9y8TArXfsKr+38llc+wrn6MNc0DrI6wMWpvUdco7mVa7mVa UjZCytRqpln731P2H1ErGUBTAilLnhXrYluuEGUb6CVlQ9X3oG24j8mWh5ht f4LF7qe40PcMl1UvsD78EpsjrzgMXuHO+GtS9pqUvcGTmbd4NvcWL+bf4uXC Wz1i9i1+jzdL3xKsb/F2W6qBNQKmJmCETKH9SCCMawwR++9bn5MLfyY8A6Ki BpDBOMss6EZmHgHLaUJyZiVcxd/OYis8Wg6j47UwPFyNndQurlc7D/Xh630N 2HWYUB0nTKfauG7RFX5tjCx+fLYdu0PbGVHtMIukYtrZYdphGtkMCzrJgvPa krJIGoA5ZcV5bSVrI3iHi/v1RKh2ilj5KPqIVi98SgS0mLXESURKPU+s5pE8 PEe05ojWLNGaIVoMr4EttCR941to9RKtXhWievsQ0lSO0Cai1ViE4yW5xEsp 7kDCXnQ8mmjRsiekXTiVuP2s4gdoBRdNIkShI1rTRGuWaM0RrXmitUC0FuBE JD2TBbT64JXWB+8MjoRMKktAi8oegEVMGyx4R+jBUiKYxVDaCUP+n4bCb7Wz nxpKtpAyim/hx40iUsbbQSZiFcvP8+/vjiZaUi5nDL3dEqFA1nEpY9eU1cKz oAN7ihrhVVgJ54pmOGSWwj5dgQPHinHgeAlOcy8+7dtOdeEMETsT0A+/oAH4 n1UhKGQYIWFqhIdrEBmmQTQVG0oFqXGx/XtcYvlbZflb7/0BV/t+wMbAD7g2 +AOuq37AzeEfcEuQ+nvcpvRwR/OdHu6OvMP/iTsj3+IWu9mNEaGjvcRVzXOs jzwhPw+xOsqWOMZNbIxcjZGrMXI1tsQ/myJb5ErVufPvf9C+MrIXDXHEKnGG LfE8WgWsuIX1EKvB6jsYqf+GWfsQM+2PsND9BOf7nmJFRZKHn2Nj5AVujL5g xr5kxr5ixr7C45nXeDr7Gs/nXhOtN0TrDV4tvsHrJercGz3C9Qb/gIwi4clC oqMQsSJVo0gvoRTCG2kJr9D/R2Twcgb/LEM+QmmoYWQyyzKL+pBVIGRYCxKk xXCPLod7jBKGPkoYHFCKeBmxCeofqSdWLcRsGOa81/WPE6szHdjt3wHDwA4Y BxOts21ctDqYSx0wjSZedJR5XDvRohK7YCmjkqhkKnUQDtkTOMT//1BxHw7L BfV+RLR64U+4enipB3vyO5GqmSdccwRL0CzBmkXS0AxkqmkkDuoQL6ifmdXP 5at/DLH9WkT3Ey5uytF9vYjq64RNahZXvDSYSxNhX1AOs5AaHAuvwHFuM8e5 zZyQcNNP6BXh8k3fWsAC88cI1wThmkRYmY5wzSCychbRNQSsjoA1zMOZoHgm 98ArhUrrJVwcCIRrT1Y/4aKy+7E/px8HcvsJGO8eLmq7kwa5aVHJQzCI46SS Mvoljb9l1lYr5FRKZEUgVEZsr8a8O3dLeLfGC98n64VVes/WhsbNzD6vG06F nFRFrbAsrIdTRRMcymvgmKXEab9GwtSKM3yYzvh3wzeAAyS4H2fODsA3VIWA 8CEERagREqVBePQIomI4mCgJFcfP5UnXcanrO1zu+Q5rfd/jSv/32Bj8Hpuq 73F96DvcGP6OFrup/g7/Hrc173CbVAlMbektP36DW6xlNxgam3T4VS35Gn1K jsjXOPkaJ18T16kr1ApFvsbIl3YYK4Mdv+bWru0VrD5mHE3xs2yH59Cas4K2 og10l91gmb0Ndf09jLfch679Iea7H+Fc32MsDz5hEX1KrJ/h+ugz3Bp/jruT L3Bf9wIPZ17i8exLltiXLLGv8GLhFV4uUkuv8ErQuVdiEAmk/EaXQFXJGDWB jJKJj4jUJPx45IeKcRGyzJIRZJUQLi46mcW9LIntBIq7sKQSHpIq7PIugsF+ gnWQ6/eRLbD0fdpgcLwT+mdGYBE2CnvJOFwTJmAY3AWjEK7x4Ww9EXQPW5CJ kFeEypxQmTOfLJhPwndQHXI0BEoDx7xJOORO8PI44eplcvUIYDG8tojyUXAH L6EUXaSrA97M1hT1LDVDumZI1jRjS0e6dEgYnGJsTUI6MIG4AcbWwCiOVTfB o6iG4u3hruVeyDzOyYJbdiqsEhJgml6Kr06WwMQ9GSaemTD1LmB8dZCuHpxO HsCZDO762SMIyBslXePbdE0homIakVUzpGuGdM2Srlm4c2B4cFh4pnSTrh7S xYmQ2cvoorJ7sS+nD/tzKa6RNgUTsGXL3J2kgiGz3CiB4tAxkrbDmPeVcQKL 8m5i9elWshFGI2adURzXN8okvpMrGJUkPHHfRqgGYJ/fCwfORhsmvi3vLtvi VtgUNWBvQx8cM8sIVAtTqgO+gT3wDeqHbzCHR8gQfMN4EyO4akWNIDhmBKGS EUTEcShJtYil4ihpnAbxEjUKZGtY6XlHuN5hvf8drg6+w4bqHa4Nv8N19be4 Qd3UbIXULQKlh9vaN/i/eHxNvcIt7UvcoDYJ1tWxp1gbZ3hNPMLqJOGaJFxT hGuKcE0RrkmWwgnCNcrUHGz7e7hsUROpRaNkFs1J59GStYLWwivoKr2G/spb 3BS5ejXdw1Tbfcx1PcBS70N+iUe4PPwYVzRPcG30CW6OP8WdyWe4p3uGB9PP 8Wj2OR7PPcfT+Rd4tvACzxeppRd4QfUNrrAJqra+x0WwMkq0v4GVXjKFjFId PzdNmqa3zzpkKqZ4nqDGtikbImX9SElvgEdsNTzY4z2ldXDxzYHB3goYHqiD kU8T6WogZR0wONEFgzM9MAga59Y+CUcSZps4CftkEpM6DsfUETglq2DNDLBN G4AddxA77iD2nOMO2ex/Dnlqpq0jjw5544RslJ8eIWDdOCTvJmTCt78O0yfB Ilw+ik5KAKyVcE0TLh2jS0fABLimkKiaJGATjC/CNTiG4zWtOFbbDE95HTyK CVhxJTyLygiZHG65mXDPTuFVTYBlXKz4OwQmrskwdSdgnnkw21sM6yNKWJ+s xpn0Ifhl0X15WgQVcvXicAotnWR8EbIqHaKqpwnYDBwZK+6yDgLGCEvpImDd XLsImAhZDwHrIWBUbi8B64VtIe+uYkFTsCrQwDCBHZHd0ChekAgY1QF9kmVA sgwZV4ZxXeKKtpsyJczOBN6NfcSGX9O+cBD23KIdinr4tdthWyKQ1grrYhLW yJgKaCBZ7SSLdAUPwI890DdUDb/wEfjRqv7RjGgJh4h0HGHx44jgPhMlY/zL SBgVLxtBgkyDxPhhXOp9i8t9b7E28BZXBt+SsLfYHH5Lylj91G9wQ/MGN7ej So9MvWI1FMi6pX3BXecFs+M5Nsee4QrpWhfommJ8TZEwHQnTkbBpEqZjPZwi YZMkbEyz60O4/huUIf2oj5pFU+I5NGcQrvx1tJdcQ2/FTahqb2Gk8Q4m2+5i pvMbLPbex4WBB1gZesgl7yE2tI9wY+wxbk08xt2pJ/hm+ikezDzFw9mnBOwp niw8w9PFZ3gmaOkZUoVnAuUqcZXK4HKVIaYWwSoVwBKAmiVAc7ylmaXz+IN4 ObN0htIhq2wSWeWMsTIh7QYRn0o3xtXDk2XDxT9PfN82fW92w32Ei2uW/mFG 2NFOGJzs4arVB6PAQeiHTzGi6BLZFOxSpuCQPgWnzAlKC+d0FWwFZapgx+3D PmeAJNEFHOEOBWo4FgzBMZ9k0b0OuRpGWJdI1kc8duIfyVcH46ud53aS1bJN 1RSpmoJsaJJUTfB2JajGOedP1LbheG0rvOQNpKoeHgJZcg4KeQXpKqWKSFY6 oyuZC348zCXR2O0QCxPnJJi6ZpCuXJjtKYL5gRJYkC67M7XwzWI5zBtBYAHL oZzxVTqB8PIJRFROIbJ6CtG1OjhIWuAmY+wnk64U0pXaCa/0LsZXl/jb2Huy uklXt0iXTcEoY2uMGodVvppkqWGZ2SdsYhw7n8KKR2veTyaMzl2Mfn0WVbO0 cVhkTfI+5ODKn4CzfAKuvB62ecyp/H5SpYI9u70DO7VtUTtsCpthw/vMWt4I y/xKhPlXkijhffu4YZ3ltOAm5RemJVVj8IuZQEDcJALjJ3E2cQqhMk4ODsjo lAnEpo4hLpVkpZGsVDVkKcOQyVRY6X+N1YHXWFe9xtWh19igNtUCSdc1r/B/ i+XvJmna0gtS9ZxUCWIrY2ZtTDzBlcnHWBeo0t0nTfewOkOyZkjWDBevmWV+ boF0TeHyqHrXh69s44yacB2XrnNoSltBc+4VtMk30a28joHqG9A03GInvI3p jjuY77mHc/33sCw8+a++j6sjDxhbD3Fj4iFuTz3CXd0jkvUY92cf4+HcYzya f4LHC0/wZPEJUgp6RapShWcAxS1L2K6EqBJiSiBnTmQps3SR5CxRPJcv8DxP mvjnSpKl5N9XapGc04mMwU14JjTBK7EZroFFcA2iglkM99axGLZA/5BAVRf0 T/bBwG8AhkEqGIdyXYieglmCDtapOkaTDo7ZOjjl0AE5JCtrCLZZpCpHtd1e SFZBP4liiykiVXSFQ/4I6WJRzB3WY2h14H/nsR2HFFs6rGjjuQ1eec2EaoI9 cIJQUcQpkYpXjeqRqhZ8Am/y5EWePBW18FAwrRRV5KqcnCl43uYqJwm2Mims 4yQ4ZGMDE0cZTJ3TYOpGrlgLzQ8IL0hTDsvjFbAPqIfD2SZypUVw8ShCGPJh ZeMIrxgnVxOIqqXXY5vJFVMrqY1ctcMjtQOeaWQroxPemZ3kqpNcdcE6T0Ou tOxqo9QYPT8Mi4w+ctW/hZUVsRL2MCpZTbRGYZY+QaQ4svKmiMsUnBly9uwh NvmD/FK8M7ky23Oc2pfwTiwZgA3vO5viFv7deljJm2CeXYq07jXi1AO/kEHi RKTCR+EfOQ7/mCn4SXTwj59GUOIMzibPIDRlGhFp04hK1yE2gwUgcwzxHI8J mRrIMoYg44hU5K/g8sBLrKleYn3oJdF6iQ01q57mBa5R17lPXSdKN0Q9ww3u VTfYw26MsY8xKjYmH+GK7gHWponUDE0/cwers7eoTWqNusjPCVjpsKxV4e+4 ckVZoBa10YtoSFpBU9Y6Woo20ck62Fd1HcP11zHafBNT7bcw230bi313cGHw LlaG72FN8w3XvG9wbfw+2XqAW1MPcIdX497MQ7L1EA/mHuLhPLXwEMmFvUgh VynC97DEZ9rHqSlyNUPNMa0EpshT6TmyRCnPU8KZfCn5ZxUzyKiYQqpyDNKs DmSobsBL1gqXQDmZUsD1LJeTkBLoe9WwDrZw4WI/OdpDrvph4M9FIXgIxmFU 1DDXcB3Mk6dhQ64ccshVng7OBZNwYRq55g7BLpdcCT8hV8DJWjgAx0JuAZwH jnLhc2SK09shfwgHi9upto9IVpsAWQuk8MxthEdOPVNqjDCNEaZRZtQoWWom SQ0iSV4kSaDJs6SaZ9KkqOCZ/U8uZ1IV8DqkwTWbRCXG4bC1NUWi7BJh6pgG M9dsmHvlw3w/iTpcCstjFbA6VQ1r31o4hTYiqEjLHqhFaNkoiRpjDxyDXXQD 7GMb4ZbItEpqZVqRqtQ2plU704rpmtHBtOoQqbLmzLAuGKHdtbDMG4JFei+J 6odFZj+pGiBUAzAiTsZJauxOGeMSOEkkpvh3iRCXMlu5DvZsH9YFKn4Nqojd jxXevpRYlQ4Tp252v04ixf5XyJQqboRXbAPSeq4i4mwr/LlR+Yez80VMwD9q Cv6SaeI0iwDZHAKT53E2dR6h6fOIyJxDVPYMYjkX4zgX43N4X+eMUGokcS4m 8XpeGniOy4PPidVzXBni1iQ8+aZ+hg3NM2yOPMU1Qdon7HzEiK3r2tgj4vQQ 1yYf4Cp9vD79DdZmmFCzd7E6x5Sau0FtUKvbSC1iZWry19cJMNj+6fmqkDnU SZfRkL6OpvwNtCo20VWxiYHaa1A3Xsd46w1Md97EXM8txtRtXBy6gxX1HayN 3MXV0XvYHL+H61zqbuq+wW1ehbsz93Fv9j6+mbuPxLwuJNGOSbxbUzipUuVj xGmSKE0jjRilly4QpUWK6JReQEYZVX6R+PBceQ4ZVYtIr5pDWhV3f9o7Y+g2 PFlgvLgMuwaXwjWkFG6h3PUpj7ByxlQzN6tO8XkL/ZMDRGkIhiwSRmFqosSJ ysXWKGGGFpmBTc40sZiGcyFVTJw4lF2JiT2tIBQVh2KiVMyYkvfCUSGgNEwN 8d/wz4VnzoqFb3wdLG4RDs34PQ5y3HqSJY+cWrI0isRBLU6SoxO1TWSpTk8E yWgLoxJiJIqFr4TXXcHSJy+GO3FyL8qGa1YirKTRIk4+xMnYKhom9qkMqWyY eRInrlUWh1j+jiphebIS1meqYRNQA+eIRpY/Dcsfl/tyLcIrR2EXVQf7mHq4 Jggh1cyQamFIUWmtDClmanobQ6oNVjlDDKhhoqAmChoRJ3PiZP4rTiJKg0RJ w3QahwnLsxntbJnP2C/WwVbB6BdRGuK/59fiFm0jV+nBvkyLHTyqYa3oEWmy lgtPCjbALK8SXtImpPddQ1hwC4NJQ5LGGE5TCIidgb90DgGJCyRpEYGpSwjO WEJo5iIishcQlTuPmLwZxPG/l7JrJnIayjjpkvgQJrFhJGX3YmXwKS6rnorP tK0Ps8upn+CqhhphCFGb3F82R6mxh9hkImxMsn3RxlfY89Zn7mJtlsE0x2Ca v0mx882TpnkG1NxFXGZALU+M63/4su5uqI66gLrkNTRkX0VTEWEq20RP1SZU 9ZsYab6GifbrmO66gfm+Gzg3eJMw3SJMwrfIbuPK2B1sjN8hz3dxQ3cXt6bv 4javxR0ynZDfjUSCJCsaRlIxuxqbdQrv8FTFLLWANGZRWul5pAsAlV1Eevky 82eZ8Ai6gLTqc0itXiCIWmQO3UWm+i48uV97p3QTIiUhqoBbWAXcIyrhQel7 NMLgYAd2HWKzP6li12MOBQ8TpOFtkDQwTdDAmJXBImuG7Z57e9EMXOQUAXdl D3Vlt7OnCRzkzCUFQVIwl1hT7AsEyAbFDmif34f9Rc04IKqJUAnvXnWAU/b3 Ikfu2dXkSMNM0pCjRnJUC2+2Oi9FtZ5AkZ6I0FkelXAnSO6KEmoLJNeCbG51 8ThstQXRERtbHLGzhYlNMrMpE2bueTDfUwiLgwpuUWx7J5hNp6t+++1i16gG ZpMaIdw4wyo04m9Y20XXwSW+Ea6JTVswJVOpzYSphSBRma2wzB1kXVMxm7Zg MkvrIUh92yCxMycy35NGYESIdm9DZCFCxIznYLTlY2xbTFoK+e+LCROz3EbB nOf2a0+o7ZUjsC7ppbpY8VphwarndVYOr/g2ZAzcRDoVEdZHiiYRED2NAAkp SlhkJi0hIPU8AjMuIDjrPEKyzyM8bwmR+QuIKZiDpHAW0iIdErjxJdInsmJ6 jR1I6ELLg4+xonqMy0OPsDr8iNs/pWGNG3mIK9qH7FXMoDHSw251lWFwVXeP FJEgsdrd3iaIebRAihauUQJJqyJJl2bmDT6kyAml/rOojltBbfoV1OdtoImR 1K7cRG/tJoYaN6Ft3cRE5zVM91zDfP91knQDF4Zv4JLwIx3am1gfu8Vrcgub k7dwbeo2aboNSXYr4vO7kFA4yFvI5C0eR5Kc+zkdm6yYR0rJIlJLSAkJSitb RpryEtIqVpBWSVWvILVmGSk1FyCTT0LCRzWTm1qm5r74DRbv1D7SUwW38CoS VA13OsUjugaeMTUw2NMOQ58e7DraDQNfNSnSwJAl3Ch6BLtJkQkpMuNINU6b pXNmYFc4AyfFDJxLp+FSSpJKR+FGB9gLbU7BSCrph0PpdkwJC0BBH+zye0jN fvYTf9LUSDVQ9SSqTiTIPbsKCYNqEtRAgqpJUDUJqhJjyLOkcjuGSFDpNkUl ZVskMZLcivLYNDMQsu9r+FiSIitSZC2QZIcjDvYwsc2AqUsezLyK2PJIkk8Z 96ZykqSEjW8FbAKr4BJZB7eYOpxlowotZ7zwfrKLqoaztJ40NcBVxraXRCU3 sek1M5aaOVV6YZnd/xtNVpzrZmm9XIj6oZ/AlkyKDGRaGCZPkCIdTLcpsiqa Zs4w3gvVIkVWPFvRydYk2bpkmBSxYbKV21WMwrqUX7ukD1aKLja7VngJL24X VgrvRDb2wTts7bcRFtorNruAGLY66QLzaAmBKRcQkHYRgZnLCM6+iJC8iwgr OI+IwiVEFy0gtngOcfRVPP2VqGCzZqNMKhlEkqKXdagTFwcf4NLQAz5ml4cf CC/8SS+t0UtrI99gfZRipVpnCqxPkaDpO+JzDpdnb2KFBF2e3yJID6uLm/gd jxu4vLCKS3MXcG5q2uDDN+NxRnnoeVQlrqMmawP1hZtoLt1ER+Um+upIUhNJ ahNI2sR07ybm+jexqLqG88PXsKy5jhUt/6fRG7w2N3B14gbT8QZic9oQl9cL KctQfOEo4osmkcC5lSifg4w5lKQ4h2QWuRTmTwoJSqm4jJTKVSRXUTVU7WX+ vVnEFU+QoAck6CGymMLZTGHh9cXdwmtIEF1Lx7hz1nrQNZ4Szre4ehjs72Ye dUH/RC8MAkdgEKaFUZQWxhItdidoYZqkhXkqqcqchVXBLOz4CDiWkqRyklRO kjg/XYX84ZrsUEqKynphxxyyYw4JBNlxOtjmdmBfYb0eD3X4B+wrYgRlEaCc KrjmKHG8pg7HarkSyYUfffdUVGzlTwA8SrfpodxIkBsJclNwzysugmthLhyz khFygrvRrwTZ2OOoPeXoAGML5pFDDkzdCljsuCcdKmWxK4PVSVLkq2QeVcA2 qAIu0bVwk5CiMpYrZrVtRBWc4mrhHM9MSmDBk5GkpAa4pzSQokZmTQ8s2IIs WVatuCMKu5Fpai92xfdjVwLp4X1mmDQBY9JjQnrMWIYtmeECPdakxqZYw9zR MGNIEOmxKqFKSVXFOGwrx2FHWZWqRIIs2erMOX+8wivgHaGEd1I3e8Y9FvZ7 4jkigs0udp4EMYNkF9jmlhGQcQmB2VTuJQTnLyO08CLCi88jUrGEmJIFxHFB kHIKJpRNIpH7YVI586iMywRz78LgN7io+gbLQ9/gEnf7FTWluYvLWoo9anXi Di5z8l/WsV/NkJxZpsPcdVwiPSsL1wieCM8Kj5cXr2J5/jLOzywZfviuiPtQ FnkJlclXUJ2zibqiTTSxzHWwzPWxzKmaWejaNzHetQldzyZmCc/C4CbODW/i gnoTyyObWBm9Jv6Mxtr4NURntyM2bwASLqxxhWOIY9BKi2c5IuaRwBucqDiP xJKLkJVd4g29jKSKNciq1iGrWUdizRoSCI6keIbQPCI0jwnNE2RxEcweeyL+ YLWbAEwUl4/oRrjHNBIaSsrCxHq9y60NBof7sOtIL/RPcXSGjsIwchRGklGC MwqTJJ5TRrkcE6RswsPrZV/CGCpnmauYhmsl4VFq4cYH276U8PBBsGXFtssX zgI4nbDNa8fe/FrsLRBUg72F1XDLZqkkNUera0lNLTzlFZSS2w5BoYTI0ROQ 0eOXVsKcdJIcrkKucgVcCvPhlJuByDN2iAyM3CbHDketBXIccIzkHHVxhIl1 JteiAq5FcpgfKBWft7PYzh9rP2ZQgBJ2Z5Vwia1BMGewFVdFG7rUUVINJylX pvhauCSSIBkzKrmeba6eTa1ri54sOjtngFOF+R3Xi51SFenRQl82AcO0KezO Yu6QGgtSY0VqrLg2WRdRXMFsSgRyKOFcyo8rJkjNJGyrJmFVNgzLMhLJFmde zPUrsgbezEPxhR+T+/TE0fgnZA7fRwYVETWBgPjzCEgiNGkrCMi8jMAcKv8y ggpXcLZ4GWGKi4gsOY9oLgKxZQuQltNb5SxzhFVWyfipYPwou7A0cId16Q7O q+7g4vAdLKtv06vU6C1cYmW6NHkTl3Q3sDxNzV7HxblruDhPLdDTpOWSoCXh 8gY/dwXn5i5hemL619eh3nqvnmMojVlFReomKnM3USMnOuVEp5oNrmELHQ3R GWPuTBKdaaIzR3QWhjaxRHTOazZxUcv/YnQTkdldiM4dQky+FjGFk4hlO5IU zzNdFyGVn0e8YhnxJSu8qZd5U9cQX3kFCdUbiK+5CmntOmLlC8jg1pepeYpM 7TMiQ40/Q/bEc+zJVMMtirhEs3XEssNL2Dyk7PDxLfBOaMEeWQv0vbux8wAf /WP92HF6ELvCxqEfNQ4D6TiMEse5/4zBJG0UZplEiBuplZy5U0Z0KohOlY6a ID4aZs8AEemCTV4/bPJ7KV7O7+DHrdiTV409+VQhm1KWEq7ZdGtOGY7UsEUW l8PjA2TcS4R8EVQhnl15dhXOinJSUwJn5o1TXg4i/R0Qdtpaj+hEwWALHBtC Y+eIo06OOObihGPuTixvjB3XIpjtKYH5wbLt5xOUsDqjFF9/yiaI8HA9dJUI Ly5VKsJjHa4kPIweKQtcAgFKJEBJtTBNaWNB6yA83YSnl9EzAH1JF3bEqbAz fgS7GDUGhMZYgCZvmnHB1ZERbVmgYewQkmKuNYoRfk4LC4UWlqVUmRY2lVOw qZriZTUsCI4FS5u5vBtenHjeURRj0ZtF2ztlgOBoHumJM/K/IDRiFH7SC/BP IjFpqwjIWkNALlWwiqDiyzgrX0FoyTLCWVeiys8hRrkIScU8pJUsboQ0sXoU suohTuEeJCpbsThwC0uqmzg3dJMWpbQ3cH6Miwer0YWp6zivY3WaoWZp4Xkm AYk5v7j5ES4QmY94cQNL82uYnT7367uJbL0lnDcUsasoIywVeVuwNBCWNsLS zZzpJyzDLGlawjLevYmpPgIzwLxRbWKeWbNIWE4kKRCe3YeIHDUi88YRVaBD dOEcq+giohmoscUXIVGsQFK6Ckn5Om/lFUiqNiDh/xFDUCKKl5A+/BQZmmfI HHmOzNHnyBp7QVBeEpSX2JvF2R/NRTe2hZC0wiOuDZ5cNr2EdzaUcXzJ2mHL 4vaVeye+PtiHHcdV2HFmCLs4t/RjOSoTJrjsThCUcZhmjHHhJSz5hIUBb6ck LFWEpZqwVBOWKg3HvvCtkj6qhxIut1MEM68K3vlVWz+omVUO52yuGikFOExQ 3IoIB0Fxkyu3wWCqkI6P4EJE/g2cFWWEQwHH/HxEBhAOX3s+KFFBAh2HLbjK WDNOSMcxx7/RcczTGSb2BTB1V8B8n/BLKUpYHCMhp5RbxUx4Bc1gpfhKmYEK ripny0RCHGIqtgmh4qtISDVMk1tZvtq5vnTBLKOHqwuLmIR5LNAh41BJnYJR po5DhHQIZDBSLPJIQwEp4DJuJR9lVFCKURJAsRBZV+ooxk8Z/16ZBuZcC814 PbyimkgFsz+G616soHrhF7AIxsjTj3h4gv8XYdE6+MsEMtbgn3UFAXlUwToC ikmHYpWrGulgiY9QXkB0xZL44lFx1bOQ1ugQXzuGxFo1NUBK2th9rmNedR0L w9fpx2tYZO9ZZOdZmuBAn6JHp6kZDvg5imQskIzFReFFb5dENITL8/NXMD2z /OtbVZluf6+nSLKKkrRNlBGNymLWMKLRzArWwf2ll/vLINEYJhojRGOMaEwQ jSnmyDRz5HiSEiFZgwjN0SIsbxLh+TMIL5jnlnYOkUQiUn4JUYrLiC5ZR3T5 FURVbCCKu1FE0TJCCojE0FOkq39FgjiMvSQSr4jEa2RPvcYe2tg9pg3ukna4 x7UTiQ54cnP0knXCJqwedhH1sI+shwNr2Vee3fj60AB2nBjCDt8h6MdMwjB+ CoaySRinEo2MCZhmjcM8dwy7C+c5/IhGxSwciYYz73LHIjUche/t5Aldvpc4 dHMr7uBW3MqGwqpHLJwylXAiFk7EwpxYuBaWE4FipfBG8KTCRVFBCrZVsnV2 Ei7zzxyLSklGIclwQrifIyKDooU3aOfxY0QHR4uXfKyYHbZOXFlIhrMzjrk5 47gH5e0CE8dCmHoyQ/aXw9ynAhYnKBYwKxYw60DmSHC5SIl5EIkNFihRwj6m Cg6kxDFuixKTpBaYpLRjdypXvPhuccHfKWHhSlBjVyrvrgxmRw5XFT6MZoXT MMvlusdaYME11FIgo4iSj+mxVY3j38K8jNsJ7z1zxog5Y8ScHcyM/c8rmoMk hgnPxPeWNOvx0MSutSd9mAXh+W/KYlnIFPUUYXFz8EtdJydX4Z+3Af9CnovJ S8kagspWEVJ+CWEVNFQV+1f1ImJquf7XTUNaP0GNIKFexf7eCR3NOc25PUNz znI/mGXBmRunJikdPyYns0yPWXIyS05mycmcoMWt88z8BqZmV399Q0Tz7eec i9M3oMjfRKliE1VKxgfHeiujo5PR0Us+BsjHEHuWmj1Ly541ytg4mlSNoMwh BGeP4Szv1LN5cwjJX6TvL3APY51kQIYp1hBWcgVh5RsI49c9m38JaYOPkaZ6 InKRoRHuqhfIHHtFNl4ja+INsiepqbfImf4We3MmGRWdcI/vgkdCFzxl3Wze DdxbG2HH3uXAEeVIOXFd+dKjA18dHsSOU8PY4TeEnUGMj9AhxsYkdqeRj6wJ mOWQjzzyUUQ+yslHFbtWwSgcOB4dyIeD8GZNjA3L3B6Wik6qjSOU/0+6Eg4Z NHlWGRwol4Jy8dVRXIiGs6gKmt2Jy8m/gyOPjgIYwpmfdygsg11uISICnRFG OIJO2YkwRAULgAhoGIqXhUtHbAiIAwER4XBhfFCE48ReAuJUBFOvMpgd4J5z pALm/woQp+gqmPlxewlkCSMsttwEfgOEMWKU2ApjWQd2xnVxA+H9FCNsImro J2tgxLXNMHsaxnkz3ONHYMp5Z5bLTlowRih4n8kZuzybyXkflkyQBM4ahQ7G vL+MC9QwJSGm8iGS0U4yGOuxjHTGvHecIJLCTpw1+ooz8JXwk1mjL/X44Qv8 ExnZ4iQ0YQl+mVfhx7LvX0gVkxEaJ6B8DcHKywipvITwKvJRQz7qFhFbPwtJ ow5xjWOQNg5TvRgnG5Mc3JNkY4psTJENHdnQkQ0d2ZgiG1NkY5JsTM0LqaFb EI7Cx2Mz6yIK21xYiCcH5Mouo5BcFJUwPyo2UV2ziXruHy0tzA/uH91c3Xt7 yQf/60FieVhWC790DfwzuW5lz3DFWkBQ7jkE5i1TKwhkcQwk9kGKDQSWbCCl 9wFSBx6RiSdIE+qT+jkyBB5GX24xwZzI2uYhmzzkzJCJXIGJbrgncH6HNrBM N8E2sok8NMOeFcshphlOsU1w5i7iwsHkGFGJr31U+Frgwn8YO4PJBrnQjxqC YSz5kA5xhVfBRDYIwxQ+vswQ6/wx2HIo2pMLE1bC3dyfTHL6sbugH8b53TDM aYMhN127jHLYZZZx8BbycXUsUOL/YBAIYbDtfUHyrbO9IH7erqAMNln5CAt0 QWiAM876OpCHGGZFcMxHpCCGozT6bAzOsE4dsXPGEScXHHUlBx48e7ni+B5X nNznit3OxTDxLoPpgQqYfRAYlsL7awSWw+RMKcz8yQsvW7Bi2UZVia/iahDX yDrZhh2xnVwsBrAzQQP9lDEuFxpu5FoYsaoaM0ONM0dgnK3lbR/lsjEG04Jx Vs5xmBTS+8WC/zlXioZ4u41IwFc8kqN8DQxyB+AZzRyP6SQHlISK6yADrLrx 7dwZxzjr3vDxfbN95mMsPNZ8zAUoskaFrvAMIbJz8M3egF/Bdfixt/jSL/5l VxCoXEdQFZGoYWTUXkBk/RKiGhcQ0zyN2OYJSMQXjO+Hb14xtMRhlDiMEYcx 4jBGHMaIwxhxGCUOWlaqUSIxRgTG57bOwsdq3fr2W7JbbX8/JT3zCnK5WBRw ipeQggpSUEsKGkhBMyloIwXtTIcDCfU4marFqfQpnMqcxemsJZzOvkBdwunc VZzOX8fpgis4mnIByT3fIKXvIQkQEoFNaXgrETK0L8VJkTm+5f4swf26b0nA OxJAzX4HdyndH9II67Am2AhvBBbVQgJa4BDbCkcuGU6SFjjHkQBpM1ylTXCK rMJXRzj1Tg/j6wCSEMIWFS4sGMIvqpCEeBWMhe8HpKqxM4WPYrqaicHJxopg lsfczycleYOckD0wZHPSJwH6XF0NZFXQp3Yk8nJ2F+zJgH2hICER7Hj8R9jR 9ba8ZFtQwW29FKFBrggNdEVIgAuCWZXofoj2x+94jKX7qa2znojC/2BzcsIR BwLg4oqj7q4iCMcIwvF9bjh5wBXGzkUw2VMO04NKmDIczE4wJLiBWwSU41Ru Hz45WYfPztTjc796fOJbg8+CavE1S+fnNOkXcX34kjf/K5maN5t7RMoImxJB YDk1TifwGQPcuAexO1vFu2Ccd8E4jHJVMMrj8Cig8oc+giGd/+9gwHtKn0u7 /Slm5ulG2J9uoPe5aPPR8maGeycIEn6aTfhJ1qyxt/hnkYGscUGvxW4srIzC 6pg5tsVB5ugThGSvwLfoOnzZT3zZJfy4fvpXMRpqyUEdu0bjeUQ0LyGyhStr 6xRi2kbFV1s6w+wdIgPDZEBNBtRkQE0G1GRgmGvFMDkYJgNqSjO7dR4iF73j q2Zb/rcVT/+EdE7sLDb7Am4NCm4N5a3cJjqYCNwa9kgbsDexG/uSh+CTOo8j aefgk7YMn4wVHEq/jMSWm5C130FS5z16/gFS+h8hVZj44nZAv4+8oOdfiZMg kw0oa/ItskS/b3leT3T8P8OBD5B1aDMbUAtsIlthG93KhG8VPe/EtHVi2rpI W+n3FrjFtzAhmuHMVuASXYmvuEzvCFTja8H3EUP4SjKCr+NH6FsNdrEB6NP3 O3g2yFDzgefUz2ULyKf/C1Q8c8nkQr0rpwW74iqwk21ih7Qau9I7sTOpUQ87 kpr44H/N444IpaivwzmEc+m/zGIE0+pnqWDaPcjPiZvBlt1juVMLNo/atnvM 2S3rfyRe+v/gY+PC4U+vu1EebjjqTe2l7/e74QQ9f+oQQ2Avw+eQEp+e6MKn vl34LKALnwd34ZPjtfjTESU+5q795zM1+NS/Fp9FtOKzmB58EdOPLxl6X/Pu 3Jmq4Zl3RxJHQgrHQNoAjDIGuUcP8q5gIGZxJOQM8ToZ5g7pcbZruAqJLs/R 0OVNdHgTHM5Qvs1w9OOZ8orvgRfT2ZvySuyio9/xC2SNf8sblTXx9gO3vxbd njkubIZ0+thT0e3BbApn5NdxunQTZ7hRnqmm22vXEFi/guCmiwhtOYfwNm6h bTOIbB+n1Dgtr0QvG0gfm3m/htJSYxQX6D66vY9u76fbB3Rb557Jje2WA2fx ZIIUFn7nqAa4xPVAUjXNXX0JcTXLkNatIr7hKuKbrm1ZueMukrq+QXLvh1Z+ hnQNbTzyEhni6H6zdVOnvqWV34k2zp75jkb+Xrw5frUbcGTg2vAxsY1qo5Xb YB/bDgcuwU5xbXBmWLrEt8GNQe0uiOXVI7EFLjHVcBXfVaQSn5/V4vMILR9P Lb6MG8FX8cJjqaGNaeUU4fHk1pc5yrLCQM9jieGsMsjuwc70VuxMYwmILGMJ qIJl6gD9qB/HRW4XE+N3XBlbsJMZsiO6CdZBJXqI+4PH7yD9owd3QumfPBD/ m9wR/7H7b+cEUW687KbHg6twcBEOzvgMUh6lHzshjpL82REWNgH41Lkan3k1 4rP9Tfj8aCM+9ydQIb3449Eq/PFIFT4+qsQnrDWfhLTjs8hefB47yFtJ5ybx FqaObDuXSh7Gl3Twl7zlX/JW62ew2mcKYsBlsepl85xN0Gla4bwjXUXzsi6e YV30ZWj6t8BRUAAVSCMHCj++3QvvxB7sydbRpN9xWk+8Ew7f4j9vPbLCoBIl 1FThaQ2Oa9HET2jiRxxoD3Gq5BpOszCcrr6KU7Xr8G1YRUDzMoJaL+Bs2wJC 2mcR2jGBU+UdOKGoQhtXy3aO6w6O6w6O6w6O6/axzY/QMS4UdV4UrSpo27su 4um/I6a0H7HKUUgqZxBXdY7epW+JTHz9BuIbr9O3tz7w7UOksHKksnKkDW/7 luM3Qxi/9G3m5Lcf+PY7ZNOzpxk2gmf9Of4dOSZtIrc8axfTTt920LcdcJJ2 wDm+g77toG876Nl2uIu/Ye8ha+X4dpHUwCq5DVYprbBOacZnYSP4PIoe5ij+ gt79MpE1ko/ol/z6X6aMYkemVhwzOzMH8FVaF75Oa6caYRBRDgN61zNNDXOy oh8vLHSUtIvW7YSrdSJcLWVwtZDBxSwRea7JyHdNQr5bEgp4LnCTodCVcktE kWuiHordEtjbi93iIRfkKqXioHCTQOEqKJaKgcIlmopCiUskFM4RKHEOh7MH G4qzZyz+wGMMXDyj8eWeJnx5qBVfHW2DceAw/tm7FH/klP7kUDk9zmkc0oZP o/p4q1VsHYJ/BVpH8JlUhc/58ecJFCfz5/z85yxiX9DnX6SNkFquLZmkOoP3 SIbgYTXsTzb/zcd+go8ZhgEMwiCWQMopWBA9HdRMHwtv45018T0Pk4KdJ9/h P/H47VbcTn7g5AmWD9HNHMdjjznPHtIf96l7OKm8gpM1V3Gyfg2nmlhKWi/C v30JgR3zOF4xiOPKThwrqUEdq3A93VxHN9cNb+qhXiM4uIGmrlNvudj6Qwdb IUYxgNjyMUgquNlW0sFVlzh91zh9tx3cenvLwd33kdz3iA5+suVgFoh0zctt B9O9ZPPvHDwjOPg7+NYwRPi1AuqvIbDhOpxStCzMHVyJOmFP1zhIO+ngTrq3 C64MLbfETjqYSuqAR1I7XdsFK7rQOq0T1qltVAvFMpLKEp5YhU8i1fg0dhif 8TH8jKXiz3GD+FR4HJmqnyf14gv++y9S2DiTG7EzTAmXpDp45MzAVNpL9SHI KwfB3rnw8BCUBw/XPOHnI1zy2BI8HfPgREcrglqoZpRQeigNauKwLuOxLLgR 5aIa9KAMbuA9XRFcT9WhMlh42y3h+G9QFVSDquBqVAdXwc0nA25HM4VvHvP4 33jMgAfleSQdAR5JCPSQIcA9gZk+ij961uJ/7GGZOKDEZyzXfw5uwp8jemjh IdGyArhbN1uNT7hLfCIdxqcJvDsYRp8mjeDTZNqbd/enhPorWtrGpxG2x7ix nxDsyw53hrb1o/zbOHqpoDbaVhgcTmfbeBOdQmjjkBaE5K4LBmaVmBRcPPUd /iOP7/5mYuHZgm0TZ34wjjPGHm0ZePQe0sfuUDepazhQMo+D5TM4pJzEYaWW GqQ6cai0DsXc6eQ9NK6iTzCuvPdvo9f2Q+OaIVpO45bRuEoat4LGraRxq/9m 3AQaN7HjHo374F8Z9wXSNFt14TfjCqYVbpEwdmlcX45df+IWIBi3QTDuDQQ3 3oRL2qhoXIe4LjhSwuuAOLNtubKFu8q6aNpuioZN7aFpqfRuWKcLHzfBMrGa qoRVopLGLYNNYiklF99PwjKxDsZhCqoIf4ztx58kvfiYY/Vj7u2mfqdReCYY hTyXFergdywHfkdz4X88l4+U/7E8bnqBx/PhfiAfHoL2Ud6UFz9HM+cnd6KA 0kNhcheHbgoPckLxv6GEx5LULpRuq0xUpx7KUzt53yt5dDuTDze/fP5j4fgx 3Hn05X/pRwn/dcCxXAQczUHg0Wx+CR12/eEUnHcF4A/eFfj4YAX+4N+MPwW3 4+MI7oK07idsE59I1KRUjT9Fq/CnmCH8iZc/lmp4Y0coLXbubcau/a3QP9QG g0PtsD3BFVu0K7uaH7uaPxXYTrt2wJFf2/EsuxubilMYFdrGHqlBRCHXpskf 9H6zrJ74+P77rfH06+Cd3PJt5m+DV/AsB+/YA2SMf4P0cXp2nJ6duEZd5eVV 6iK1iLTRaaSOjCBlqGfbkdunQ4guGkRMCTtB2QzNyS5bsSwaM0405o3fjCnj RE3aNmYKe+yvxkwffb1tTGpqayXLElaymXfw49fxr70iGjPwA2OGNt6GS6r2 fzKmi6wHrjSlG2WZ1kdDCupl92yDpawBVrJ6WCfVwlpWw3MVbGlQOxrULrEG NnFKWMZVY3dkNYwiinnOh2lkJsyikmEeFoM0/xhkB4UjM8gPCSU6HDyVg4On c3HoTB4O+1J+efChX47458PhaD4cj+TD6XABnA5S+/mxdx5is7sQl9MFKde8 eJ4TeBZ+80JGJVMp+V1IFVTQhTQqXXhZlcIuOPslwyGIXzeoAA7BBcKTgGfz 8V/F/+8odYz/93HqBHXSLwcnfbORVaTDzs8C4GASBh/HSJh+7oGdLoEw8JDA yCsJRnsyYLCviN5TQv9ANVWHzywK8ZmVHF/YluBLhzJ85VqLHe71Wz9cfrgD Bkc6YXi0E7an6U3fDtj7s5MFUkGdvEYkzTGkE7+nNRlyYaxo0hFEl2wiSrGJ iOKrgkXpSMGmU9/jP4ijVRxDooSRtG3SScGk28N1/CnNSZOOsx1M3Ef65F3q FnWdokknadLJZRqWJh2nSUdHkDzU/fcm/SdE5fchRk6TltKkZTSp8oPp2XT9 fzJp8m8mfY60kRc0KafnuHC1WF6Fq6mjZt7Cl1PYv2ZVNGlg3VUEMfaDaNKz 2yaNaLojvFVluhb/BY4JfCATBZNSNKgFDWop/LQ5Fy4LWTPFyZjUCKukBtjI mF00q52sjqqhGP/SKqoSNpJymMTW0aRFMIrKh0l0Jkyjk+Cako44LvjxIeE4 LSvEKVkBzFxOUadh5uEPU8rxYBzjTjwckHImOu2Xwmkv5R0PJ3cpHJ0liBSe D4s6K2EkRvMYHfKb9BDDCzu3P4zlR7GwPRIKq2NxsDoeD6sTUuw8UwB93wIY 0pbmx/L5+XxYn8jnWMuDPeVwIheOJ3JwjAvPji+CYGURif3svv4H4rDDKRD6 tKcB7WngnQljryJeLoHB3krsciyDvnMlvrIr59+rwpdOFfjatYr2rMYurxrs 2tdMa3bD6Dh1opvWZOEK6KI1qWCOiZBuOIbyHCZIKGBaxJTdQHTZJqJLNxAl fP9Mvio8g0Bb/gc+ylvmzNT9ak4hN/noC+ac5Coz8ZyiOSce04APKU7QKZpz iubU0Zw6mlO3xo9pzkmac2LLnEl/M6fr9ooVUzSGWMU0zbnICcrpWbUqTk8p p2e8aMy7/8qYT5Gqpjk17KSjNOc4452DPYNXLUtHfqbfMNKXaczL4hMaATRm II0ZvG3MsKbbCKcxoyhXdn63DOF95LVwZqQLP0BnliS8kEkL1Sy+2L9FsvAi gdymklpgk9QMWxrULolbGT+2TqijamGTwAkaXwnbhHKYy6phkVQGw+gM2KTk wz45hZMpEkGM/8D4IoQnNsLGxgfWrkFw8omlJHD2ieM5TihjPlL8Az+Wwvlw PJwPUQeoffzYi0alVbbc+ZFow6hth+qJx38UDfqrY+1Ea0phfVxKa8bThvGw oUX1eEmKP9OSUiqOBTEO9sdjscvtNAwol9gCuEkK4RpSDAPa09U9Dkd5PYJO xWOneywtmgTTQ3IYe8tpT9rSTgEDWtPArQaGHnXYtX15l3c9J2wjdu3l5/bz 8kHhVYfbYHSqF8ane2EfSJsGd8PhrGBNnmlNh/BObrdaRCtvIkZ5g9pETPlV WnUdUaVb9nyH/2erwjEpM3VCYr4Vh9Lf7Ek/TNKek7Tn5BNakPbUcXbqaM9p 2nOa9pymPac5O3UM+Cnac1KH1PER1w+daYnoQjpTTmeW0JnlF1k8V7nvX4WU m0186y0ktN9FouBM7vrJA3SniqVzmO7UcN/XUuMCJISF1yhT9xJnlOfgV3lR dGZA7brozKBtZ4YIzuTIjNx2ZkzLXUha7tGdGo7JYVhmcA9P6YeprJ0ObRdf tciSskpqpcu6YZvcBTtBKR10ZBNLpyA6LaGeo5QjNJmjM1mJo+UdOChvxIGi SuzLKUJucj0iM7oRyY0rkj3Bxv4YbD3Pwtr9LFw42JzpIOfjPB+X6sGFVvq3 cD0WD5ej1JEEuNKkLpylLntpYLeYLUNSUSGSLYf+/jdP2vqEiKNScJ+16McE 4fyRaMrPaUPplhUpE68gmFLGNkdxjNlwLLGN6sBxrowG9hFw2CfBnqMxsA6s heG+HBiy/Rp7K2DkqIC+YykMnMoZ9LTjnnoY7W/C7kMt/39779kfV7bl5/0N 9tXVeKzxjDSSbFmO8k/yC9tvpNH1eG73vX27m81MAmDOmQSYkAsoxAKqkHNi BJhAACRBAsxEToWcCQIEQJAgwRz6hpE/gJ99TqHJntH1F/C8WHUQT+2z1rP/ a62qvU/pb8Dwyy0V+pvtlfrlzmp9uZuCcyequbtSXwaBZFCtloVc07JQDKVc FY9CnplT9GnsDDieBsfT4HgKHE89VPTJB4o8PmwXbUYdwXARj3/w40fm9icZ 7XDY/oPNYvt7WEMqO2CxExa9sOiFRS8semHRC4udw0rt6FVqezssNv6Exf9V 0blNiinwwiMsHh+CxQd07pM2i1WGxWdKukYKr4PHW/B4563c997C4julwmIq bZol2owmo+MHHTzZb7NY/ndYvACLF58owmJxTo5Km0Vn9bzWnx3VhnMP9LW7 zk9fe24Q3G9T6mja67TYfHwFx++xJXy9BCS/M3dWXQyjf+nTTpK6+7z2nLqr XWduatuJa9paeklbisuVl35VuenV2CU5Mm9YRDrSr2jpqv1asiFcq/clYYla vR/k9idSUyBGf6I1+xK0Zq9t/lC5Zie2DRrhY+nyUItGP8PiFxaBi+AvlpRs 82d0MMFP33OOf68l+6DPGBQuw5Zjv14Xqq/XhkLhPh9917UnsU4HDl1U0OFK HTpUrWN001+uK9HiHee0al+1frm+VL+Evr9efRoRLNP/HQCFGy/pl1sr9RXU /WoPPd6+Gn21q5Kvq/Tlvsv6inLyV8Gm9+NcwVf1dWSjVsaRkOIa5DyD+7Ho Migsg8IycvaZGX4GhWceYmOI5bAtgB3GzF1DMjrMZywZDA2EtgFiOwh0IIod iGInMHqB0QuMXcDYRefTRefTBYxdD/j5kFK9vfJ0dMjd0ujDUP6+djwmz0ve hsQSVPHUmGLLJxUHPfGVT5R4GRJrILH2hZJv0o7feQ2JbyARGhuhkcYrjbo2 rfWDNaQguqYgQ2IZ+frsBDmbfH1+GhIfK8wi8QmFpI/E6udaVz7sI3FMa8v6 tba8X5tP9JKn6+w7+7nNB/PcAEWM47euGlSStpy2+DvUceuJDu082ao9ZU3a e/a+tp++pW2nrvPzSm0uOav87DrlZV/HrmDVcmTfwuq0NCBYSzeTDw9QbB5M NoVtULL+lEcXlmTbwUT5H8Dg1B9980c9/cnrazY7fVnbYerIBRidwGgLogWj /oMWA7khcolliSToRHhMgsckVDFcX6+L1FffH9BXiw/AY532Jt7S/uAqHaRN Dj5coyOHryv0aK2+316qX206p6W7q7X6QK3W7r6tv/anzVl7ntryAkxW6Jfb 4W33VX21t0a/PnhdXwdTlR+p1bchFEEhdfo6/Ia+MRaBxdQr0DMKj0hBGYHA osufylH+hCNMlqGMZTBZBpNlMHlmyPBnoehnJb9/ZjGY0Y4EdXz8xGIn5jUs voG7V0rrpo7shsdueOyGx+5J7IFSuwyPPRaPKS0NP+XxG0Vndyomv89eQXwC Hssm4HFa8TQ3CZdRxxpqyNp5asgXSrkNk3dfyX3/NU39G5r7t/RODKH1nQ6U ehVklPH0MOoIj+X2S0NHz8Hj+RmFoY7h8Bh1iUuvnIPHZ1p3Fh7PjcBiL2z2 a9OJPm3hHFtODmgrGX/bqUHtOG1sSOsLOrSxoFsbC3u1iXp36+kebSvzasc5 mDzfqt3nGrW97La2nYHHk9XaBI8F+XeVX3BLeflwmX+d67ynaLMdbO0RLVt3 WGuCU+V/KFVrLPOYV28Op5Cm/Q8lYy75BycpIAgWDyYoAIkLADn/nU7SdrR5 V9TSR3ohB93Mt7uiLYlcvPfHNO1nIflvgDEJcyGSLoBMxujJsV+vcwBltL5a ckh7XTew29oHjPtpPsxt/Q4fvamjx24pLPSOFm8p0dJdF/SbrZf53zqt2XNH K/c2AGgzTc4l68Y95gYjX+69hiheRxQB0Xxq2bE6fRPK7I7g+4g6816Hp19/ prWeXq1NA8oyH5TliORZInMWIMsfYzQ3RC8aVYkuH+P3Q4o60+tnJcC/5PGj xaNlHYbHD5Y2pne+s5nsMkyikd1oZPe80nqeYXDZM63UnglsTKndg/J09crd 0eH/OZJr5choU0xOH0l7WM7jD0jYE4qlrYmrQCarnyjhKjJ5/RkJGyxvgeXd F8gkWDa8olN6jUzyzK1vtB8kD55YQHJMweZNIuT2yNkpHTs3o1ALyVkk8okc VXNgOACGQwo806PAsj5LHjfx/5tBccupIW0Dw+3YDs63joJiAyhuKB4AxyFw HNS2s/3afr5HOy96tftCO9as7eV3wLSW/7+swuImFRQ3qqDkvvKLQbPoFlar mKJ6UsIdLdsQoqW0NGuOZMj/qLF0LE0BR1MVcMzD0a2AIykKOOxSwCGDJkge iFPA3lj5U9Ot2hKlqFD7Dfvvtx+DR+q8PbF217KCYtEIpMtnyTDpJmm7tWyf B6Y8NNep8OhEJI/C5FHtTb6rfUdqtP9IHXZTwcfu6EjIPYWE1is8vFGOyCaG e1Erdl/Rb3ZQwOy8r+V7mrU6qE3+RzrlH9qhwNA2BTqY3bH9Wp/Qrw1JuCtl QJs9uDStX1vTcTPHtWkc02EyYxgb8vFoDJGEScfZGQwmz01ilJBnYRL1iEY5 LFHssDNixueJ2gJyQSANjMZeAR9C2ftcqb1z2Cw2hT3ERuXpsaFM+RHKAN+7 79GZvYrJHVZMyZicpwCS2RF7cUZxVbOKv0Luvka/XQuUN58r+c68Uu7Ny13/ grz9EiCR55ZX2l8CkGhXEDAFnR4FynGgpILkXMfI26HUATaQswpE34wmrjs7 oAALyH5tBMZNaONm/n8LEG7Dtp9BPwu6tL4QDxcP8zej2nJmVNvO8buLg9p5 qV+7K7qxDu2qaOXnd7W1vI5zXFbR8XYVnmhVwYlm5Z9oxO6p4PhtOUubuc56 LdscjoUaXQzJ1j9RQGgWlklkMzhiIcAZApjH3Ao8mqzAw4kKDAbIgwC5zwmU Dv43iuz9S31nCaQTIBcEkh7GIjEFc0OjB4VMxdJQyHSIzIDIDGgMwcK0N+ke 1qB9h29A4x0dOHZfwSH1OhLapNDwFkVEtSk6ul1Ltxsia1BHUu+2Bi3Z06KV wR1ac6xLAeH4MQq/OrxaFz+o9UlD2pA8pE2eIW1Ox6eZTOIs8k4ORGbi+yzI zerR2qxBBWb0WzQ6zs1aKulAQBznpmwiz0PkeVL3+SH+ptf0LH48vCNzW6pI +2IsrfONXTla2doHIpbaO489U2rfU2wGe4Q9lMcCckhugExua9VPiNwiR5qX 7D2IdIxZXb7T7Pch08ZBT/zlWSXUQGXtE7luzCn59jNkErv/nMw9j0zytM0v tJ8e/UBpLzI5RI89CpUPoPKhDiOTx7i6UCqBcChfIHIhUwdw3HDcpnHTSTxH Ib319AjZdxQa+bsipLRkRBtPjmkzRc1WvLO9YlQ7Koe1+9KAdlX2aXdll7Zf aOR397Sl/IaKT/Wq6HS3Cs94VXi6QwVnIPNMM1bP93esd1+d5qZNWyPlT+UY EJaH5co/PJfI5igwPEuBYZlYBpamwBCoPOZS4JEEBR6CyiCnAvZH04BH6Jsd kRAZQxFJIWmlbNNRJ6GRKRw9HNMgMh19zIDGLChevjdb/6dW7MnRl0vCITJS +1xN6CNF5NF72n+sQQdCmhUc1qKjEe0Ki+pUZEyXYuK6FJvYo+W7DJE3tWp3 M7OgTcuDvVoV2qOAqH4FxgxobRyzN64HGke10TOiTWkj2pw5rC3ZpJ3cQW3P w585/F0OGpmDf7P5OuszIi0ap+WgF3Wcn8DGoXHUJvJcr6HxrXl4o7/wddKm gXn1Y+GY+iOG6GKfQXFOnv4n2Az2SB4fjm5wTOnq8TGoQOuQqej0AUXngWHJ BJ3+lJwMxxZHisgrs0q8PqukOlC89RRxnEMc5xDHZ3I3gmPzc+0r6tCBkh4d OD4AisMIJNn69LgOk7GPIo4hZP+wi9PypwEJPN2ltQiiP8eAM2B4YgDMmMQg uBkEtyCsAQW9Ciwa0tqSUa0/Na5N5ePagku2XXqgHVUPwG9Uu6qGtKu6H+vW toomfn9Pm8rqVFw2qGIQL2IiF54Fx7NeFZxFKM82Y/Vynm63lrLEHL9HFjYZ GYssxAqwfAVG5mG5CozIxkAxHBTDQDHEh+JhMAyOptGJ0rc7o2wMrdfBzYuN SeCHIJKKv0cEv9+bSR+TDYY5vtfAcxHFPP1ySYS+XOpAEEEwuRUE74Nfow6E tuhgWLsORXTqmKNLYTE9ioqjkkrsV1zyoJbvuIo43tYqRHH1gU4tDurWitA+ rXEMam0sqTdxROtdQ9ro6tXGtDFtyhgDwVFtzWFq51P9FIAiU3ttbp/W5YFh fpcCQTIwm+cxCJLEooiV4/ykHBceYg/kuDjCcZCf9SyyXlH8EwiEus5XvhYa 8igRU3tQJejzIIQe6PNTKvz9HPpmsWmbwv6HcveNKYUsndzp/SmF5YpK6UEQ gb6QTuoEFJbPyGkJInXj5RkE8TGCCIk3ZuW6/UTJd59A4lOlNEBj45z2FbQj iN2Q2A+JCCKp1JB4iDR9pHxCIbTXYRceWRQGnPJCYjcUMhnOMHlPDELhMBQy cSFwDQT6Q2Bg8ZjWnRzXRtqhzXhk66WH2lb9EPqgsBq7PKJdV0g7lzq09WKz NkNhCe158blRFZ8fVtH5QRVe6Meg8WIXBokXWxRbbpahUCefalRm/WNqQ1Lx McxRjBVhBRRe0OiAxChIjEQYIwyJKVobkkS6joPGGDrXY/oP/kc/ozDBInCx RWAGloXlWO/CLIW8ZXsLKPIKtWSDBwod2pfUiBC2aX9yJyLYBIVtOhjeqeCI Lh2O7NWxmH6Fxw3IkTgkZ8qw4umEk9LHtGLXLa0yDcxBL/Vur5YcG9BKx7AC 4kkgrnGtd49pYyr+9PRpUxZJJAcS8yCxcAQCKW1KBrUunxSNn9cVogi5pPbc LovCKBJXFEIYdWECG4e+MSgcxhjHhR4gBL1287I2+bcT/Lzg14XRPafSqZhc 7KE49JCPbREEwQFjjzFbEN2gmIIgpnQP2PjRt5hDqaI8g2gh8lvyyHrV00np 6qRzia2CwitQeG0GCh8r6SYU3pm1Kbz/hO7lifbmt2pfoRcKe6FwAArRwpOj OkRaPmKtp54kJU9qzQlK7JOGwi6tOUVBg26uJ4VvsAgc1Wq8sqZwWP4lD7T2 1EOth75NeGNL5YS2Xp6AvIfaeRm7Mq6dV8cw0jcEbobAjeW3VXJxUsUXH6q4 YhwbU9GlYRVegkTSdmElmljZobhzvYo72yknKTqr8SkE+orC6FIFxJRwLFZg dBFmSEQTHaToqEytjUzT2vAUWgOKxZAY/eZoiP7j+hB9a17T2Z0AgcmYBwIz sGzoy8XyIbBAS/cUadmeYi1en6bvN6RpTwItSlILGtipfceatR/6DoRRZEf0 KJjUejh6UCFxwwpPHJUjeUyxqQ+UkP5QrqwJtNCkYwhEA1cf7dfi4AEtjRzV qrhxBSTjs9SH2pBB7iANb6b425z3QFsKKGWKKK5LILAUPST3rC1CC1GNwFws zyv/7HYIfKRINDCKGR918QE2itFCX+zHuhRxrkmp7RDXgXmhrgvqurGeOZu8 XqjrgwlL/GblHni8iIcZfcHjI6VY8I3I5e31wbfOOhTTOlOFFk5ab07GmBc7 kT8n8hdXDXxXge868NXN0KVgdx4r+d6sUupntSe3BfhwYmGP9hf106kM+RLx KEn4AUl4XKtpX82tnm3569Jq6rW1x5mG/N0G/m5lfq9W0bKvBroAoFtHDbkB WDdVTmpL9aR2YDuvYFeNTWAPtLWqW5sBb9OFJpVWPLaW7pdUTqm4CgCrJlSE RBZeHlXRlSGsD+tS0eV2xZnPQDnbpqym59gz+YfRmYRnKiACcx7HShToBEAn 8MUAXzQS6CAZR6VqbQSdSni8vgkN1S82herbXcjebhfmATyg25MNeDZ03xup A7gle0r03YZ0Ld6QoRS6vT2J9cheh/andGt/qA3dgfBeBUUN6FDMsI7Ejio0 8YEiAMmROqnY9EdKyJqSK3da7oIZrdjZoFX72wBvkPp1WN+HjGl57EOtSZ6g F57QBgDdlDOuzbkUNNn92kKNv5XOc1vpKNAB30kSdjHgUTQF5JGE84hJXivQ TSgS6CJJvJEWdMOKrBhQVEUv33sVdr4R6JC3TswLaN3GnlrAuY31zVrQufsf K2VgBugGDXR8CXQGvHG5eobW/hS6iPheRWXTAhXTDp0EPPJuDK1sbCXgkXfj awCvFvBuzCjplgFvBvBmtDurSXtzOwCvC/B6qQLJu8yqIFTsEI3EERqHVUXM 0NIWFK8d8Ej5J5ll5OZ1J0a0LK9XKwBuZdG41pycoEWe1Hpm3cZLj7Sp+pG2 G7s8pe1Xp7Tj6iPtqJkEONpnFGxTRbtKL82ptOqpSqufqISGqRh1Lr4ypSIA LawZV1ENyncN8K71qbjGq7gKs/G3U9ktL5RF82TgywS+gEgDF81HLODFlXIE vNhC4CP3xvDz6HR+79biBKCLiNQvtkQAXSKKB3C707EswMvFDHBF+n53CcCV 6tsNmUCXqZTLT+W+8gy1M9Ue2cHdB3QGuD4djBxUkGNEh5xkiPiHCnVNKsJN HNKnFZtF9Z1LlsknsEVPlVb6lMqvFcXrArpR+ceMa0nUpFYkTWhN2iRNBb7L m9TmgnErz24lv24tBboT2MkR6/WvtdRGa4/3AhuxyG/nSOtN+xtBno0gz0ZY wA1h/Vg3jWOHQs/XAxyQeVG1Lqyb8fQAWS/W99iGjUbDCJwFXYoPumkl90/K 1TumxI5uH3TrfSvKI5OHFZU7aS0Rij4NcKTZmIt2mv1j0O3MaNKerHbtyfFq L+Xr3sJ+7SsZsLrfYNqHw2WoWGE9CtYMdG1A1yl/Cr0AgFuS2wtww1pe9ECr jk/I/wwOo8hYXzGljVXT2gps2y5Pa9tVc9eD7TXT2qstVaSOqn6A7NbxyheA Nq/SyxjBLLk6p5Kapyq+BnjXp1VU+0hFdQ8x1K52UHG0KHGVlBIXvMpufQ10 r5TV8hLw5m3FI50GRKN68UAXT8qNo+iLLbChcwJdTJq+cTixGP1ia7T+alOC vtmVCnSZWA6WD3hFWIl+sy5T36zL0jfrs5R8mfbs8nO5r87Lfe0FhR1tmXsQ heMYMaiDUSMKih7XodgJHU2aUmjKtCLTZhWd+USxOXNKLHgmVxHqUvJcaSfn tWJ7E0rn1erDFMTRE4x1UkviprTSM60AFHF9PpO1iAxRQnFcAnTEZKsBjiJ6 25lhBZZ+As4f4PzzmrUmp17h54HtwgjADSkChYu41KuIyi5FVrbJ3QFYnZgX 68Z6AMzcEiylb0aLLNaMoiUPWN9ZsCVb3yPQNLqJXYO2tGmDdchRpGdMUXlU lSX0OKdnrHbbwOb8I7Dt8DRpV3q7dmd6gQ3Q8vu0l75p//FP6raioEEri1u0 qrRdqwFtDSnVXOj3QLa0cFwrjk9q9elJBVBLrAWy9UC2pWqKVMrxCsCRzrfx vJurR7SJXnYjEn+86g2QvQYw7OorAHupkmvzAPZMxXVPVUTnU8QYi24C201q u5sjiq8eBzQm04UuZbe9xd74YHthwWYULpP6zt+ZrQDz4eXx1HZx9LtxeQAH hLF0CSkp+jYmXr/YHq//uDUJ0DKwHCwfK0TtSvRrIPt6bZZclXReVc8A7Tmp 9IXcNa8A7TWgof6eEVSNujdyRAcd4wqKnVRwwrSOJD9WSOoTRWTOKTrnmWLz 55VQNC9X6Qt5TlDNn36ljLJXWrkLXwYDmmNS/vGPFOCa0lLXjFZlTCswn4la /EibSx8B2DiKNqwtJ0mrBrSyEQVSywWe5H9Jpf7U4Wvym7Q6777CgSz8wpDC gSz8Uh+QdSuiqhNrUUoHquXFuiCqG+uZMaBZnPkhXoYvi6xB2/ysx0VyIW0u 8mliz6hP0LTROmQoIhXUGGpUKY0MqEV/hlosqMUR8nhQS6CK2+JqBLV2UPNq V1aPduf2a2/BgPYWD9mtA1XZsvxGrShq1UowW3WceXiSauE45W7emJaVTmgF iK0un1LAxWmtpfraSPW1CcQ281xbrhp7jL6N8nOqPBKgQez45bcgxvEqx2tv VFKL1b1S8Y0XIPVcxbfmVESDXXSbhHqHSu72A1qfh1ShI8ru+KDs9neYD7VW G7XMZpNM55TR+EQZNLRrYrO0JqFI/gkFhDIXy9T3HjQt1qVf7EzTX21z6zc7 s7Bc/WZXgb4MTFdCJS41u+AqSXqVcxZiySCWwjTwgJiHce5PAS+m84HIYbTs gQ7GTCooflrBSbM67H6qkPRnisielyPvhWILXymh5LVcJ17LffqN0sreKOPs G2Wdf03zSgV8eED+cWCGDgZ6ZrQMW507Q0swrU3HmaqnQO3MuLajY1vPgFr5 qIXZmlyaXjBbs4BZ/l2FgVjYxUEQ61dYZa/Cq7oUVt2u8Gow6wQfMEsGs+Ru C6NeI1ouMDOQuYwNoG+uQfNgyVpS/xR4jfvuP2Uhtsk6/C8KSxtTJEVo1HHs zIz15kq0QazyM8RoFOJRim0p7dqR6iV19mhXdp9254NX0RBKNqwl5tM+wGs5 eC0v6bDuxLkSvPzBK+DkgJbwNyvLHmn1+Wn5g9f6imltqAQxmpH1lWN+fDNG ltxwaYRfDVCKvdXxaoi6+k6lNdh1rJbv695CFYTdeg1NL1V0d15F9xAzepfi e/QKdx/S2zyUE7pyoCun4z2ULRD2WllthjCyZvMz6HqKzSrj/rTS700o7e4D pd0ZVtrtfn2flqfFafn66wN5+qvtaZR7A4qvQCBpguMrJpXA7EispHGvfCqX JWDzSrn6UimGrOtv5Kl7Z9NFk3mARvKgY0IHndMKSnis4OSnOpz6XCGZLxSR 80rRBW8UW/xGCcffynXqrdxn3in17FtlnH+rzIuMu/INWbNHq48Nag1iGOCe UWA6hGUwMwjdulIIO0UiwL1by8e0Gcq2nB2T/8khCGSWU1avNh8gUdBMT3Zf oWTJUK4ntLJfoVW9kAVd9FGh0JUMXS6vTZarxwDUawEEXEn9tvGdDypynLHe SZ9gacuCbhXOKPKED6hzNlAxaJaTojoWoOLQrC1J7QDlBage7cjq1U5g2g1M e0rpgLLvakm+uaVFq5YB0/JSr1ac6KLj7Ke4Z56dGlTAmSEFllMTnMOQ5UA6 nHUV2KUxtGuMrzleGFBx5VsK+ncWScdr3kMSVofdeA9F79EjiLr7Bnpeq+g+ mlX/TEX1TzhOq/j+BBNgQjHVo8rp/AH7CE3vfZr1xqap9YVFVGazT68aZpR+ /5HS7o8r7d4oVA1oy5kKonJJK5wVWh5zQXHM7XjGGl8BrRV0gxW48dITSJrD 5qHJ6BQ6g556oN7DWPcmU3d50CiK84PR6FTsjIISn+pQynMdSX+hkOxXCs97 I0fRWzlL3irh5Du5ICml/L08598r/eI7ZV5i3Myq3Oo3WnmwV6tD6dCjRtHX UeoviMqZlT9lzfqTM9pURoo8NaHNZePaUNCvVdk9WpXTpVVo1SrzyTSFzTRb 9QqBppBLAwqhtg2t7lHoZS/WoSNVTUry2jQlQVNSj0GFI5YITj+z4FlkfR3f PWmR48Noq3X49wovnFIEQ4mkh4ykh3Qg59HoRQwYOa/NaEN8C2nPq22eHm3L 7NMOUt6OwkHtLhnSd9n3tDi3yfq0uKVFHVpa4tWy492kPi4F2V1N07wGhPzL huV/jkl1HhdcwC6OgdKY9X3+xTcqxGXF1e9UcsUI0QI+H1Ry44OFT8kd7B4Y 3efv6t+oqIHU14goIS7FjY/RTnovek0/5Xh/q1U8glAnaa/TCNNbZbUbUaKU bwWhFkSpCVFqeKz0himl1yNK9aOgc57JXUkoqrUirlLLwSgOt8czzoSLE9gU 9liJFYhR5XO5ql+Q6l7ZCF0HH3BPZbyptz5qv2cchB6R6h4pKG5WQa45BXvm dTjjlY7lvFF4wVvaqHdyHn+v+NMflAQ+Kec+yHPxvdIuvVdGFeNmOuVceau8 a2+14lCfVoWNaHX0mNbEgVISvWTKiNaVkAYzh+kj6c/zBrSeUmQlCK3M7dLK /E6tBKGVRS1aUVyvY/SIxyoHdAyEQkDo2OUurF1JVFSJCBIY+Smx22Q5Q1CC sT7L/JRgQWS+jefHcV10rDZE263Dv1IYOhQBQBEAFEVSc5DUotGgGJLahkSv Nqf0aGt6r7bm9FtvaeygXvom476+y2nSYnLy4sIOfV/s1ZLSbhJbP4mNC0FZ V9EAryKXrz7LxZ8d9dOac6P651pVNqTc82+UV/FGBVXvVHgZNq7CyDWbm1KL G+wOdu8j3HyAmffw8k5FTSS1phcckaCmWcUxxJirE4adrt8pAHZ+ULbFj53U sjo+SVBmy3NlWBI0q/TGaaU1wk4DyaC8gmRwWZvPXoGdy7BTpbjzw9aNAuLP k8jIx4kXZmFnzmbn8ksl0y2kID3u2nc2Ozc/KvX2Dz52pmCHRBb/REHJzxWc +lKHM1/rWN5bhRW9p1T9oJiTHxR/5oMSz35Q8gXYqfigtKoPyqh+r6wr75Vz 7Z1y4TKvDh/doHyi/FrlHNXqBPhJHtGa1GEFpCPrWUNamzeodbCzHHaW53Vp OewsL2zXcrql5cUNOgI7R2HnaFWfjl7u0dErXToMOwmwkwA7CchPQpeRGKzH gucLC5VFiuNHzo6HFic+aHZahziFlZlFakADMJEAEwUwgc52rU/q1sbUXm3O 7Nfm3EEa1CH9Ou2+fpPVpG9yW/Vtfoe+K/Dqu+JuLS7poage1LITQ1pOf7H8 9DAF9ohWmH7v1IjVo2Sde60cUnwuKpOPyhTgnaJrEFH7gQIaOpixhpTie1g9 3zfwu8b3Kmzm75pJWi2UQEQ+rm5OztrHyun+A6z83uIlpwtajHlttcnyqU0m apOJ2mS0QEvTE6U3Q0vzpNKaHkDLJW05d1Wbz9VoRfxVLY+9orhzZnu+oYVE dZ4ZefEJyeqZkkhUNi1voIWypZZEY6nMDxYtaXd/p/1p0zqYjsrEP1VQyryC 017pcPYbHc1/p7DiDxQJHxR96qPiyj9y7o9yXfyolErOUf1B6VcgpuaDslDc HEjMu/FW+ZR+hbdeaUXUkFaiNqtdmHtYa6BlDbQEQEsgtCylz14GLcsKOiki 2rUMWpaVNOjwpUEdhpYj1X1YD6R0Kb4NGYnvsIjwGgmZscjwM4889JhfxPKD WH5p6LCzk3Zbh/9DIRTMoeTvMBJTOJgExNK6u3q1Pq1fG7IGtSl/SF967utX GU36dVarvs41t1736jcFXfqmqEeLiwa1GM353tQ9pSNKKnqmlOPz8px+qbRy WlnEJKvirXIqcQFiko9LCq5/UCFiUsTELLrz0cKj6D7HRr5v4nfNWAuItCBA 9FSFhDsWRBwkI4OInwXJMh5/+1NEOkGkwyDyykaklYTUAiItM0prAZEWEDlb BSI1IHINRGpA5Kp95xGz//0ciejC40+IVIMIiSi5BkSuG0QQg5uYQeTOb0Hk 99qfOqUDIHIwYU5B7hcKTn+jQznvdKTgg0JKPlAAfJTjzEfFnv2o+AsflVTx UclVH+W+jChd/agMpksm6GXfQFRu4aNbb5R/57UK776iK3jBGJl2JKSVaTQg WaYiHtT3mb3UmD1aQjJaUtBpfV7zEhBZAiLBFYMKBpFDJKNgEAmq8voptm1G /1ixQBKLpji9Ng3m6OyyjzGdMztsMPZZB6eOUvSGAMUqZ6/8XXRBqYPW4qH/ y3VPf+Nu0i/TWvWlucllpldfZnfpKwb0dfagItM4W/YTxeY/VUIxinyC1gIY Us++VtqFNxRxBKnKZOD3yuXi83FqPvOu4PZHFZJRCgGhsAFrwpo/qqAFGFrf q6AVfaHJdt54rui6J4Dwn7C/tTWj29aMbAOEr0LJ6rQzTGY7MLS9UEbbM6W3 PVEavkhrm7Q2TW4yMJy/rs3na3H0dRuGct+uyLPAcN7A8BQYngPDi08wMJ/d dQaGj8DwW2D4HcXy7yma/4BmPNGBrDkddL9UcMYbBee+1+FCYCCzhKEVUcAQ cw7NuPgDLdgPVDtoxhXOw8RIY2Jk4Iusm2jGbYC4QyamuM+/90oFFPeF9fP4 Zk7LU4AifUgrqE6+Ifl/l9VNwjefI9FJwm9nUrYwKRt0EBiCKG4PVvbpQFWP YpqJDZMhppUiAj/EtM8sUrSlHdHtMz/uuveRcMA6ROnEIa/KY8d0zj2p89lT qiikWQu9qu2Rt7XL0aA9zjbtjfPqQGIvU2BQERDgyJ6VM39O8RCQeIJ67sxL uckWqRCQTkuTQbbIoq7I5opz8WQeNUXe3Y/KJ/r5RD8fKci3os+x9aPy2vh9 23s5b75Q9I1nyun5f7BPBGRbFPgI6PqoLO9nBHRAQDty0A4B7RDApaa10+K0 m22zw9p8oRYC6iCgFgJq7NthlD2EgikoeExtukDASwh4reRrhoD3NgFIgec2 BNw1BPzBImBf2mMdyHymg7nzOpjxVkG5H3QIAo4c/6hQCIgoQxIgwIkUxFd+ VCJS4EIK3NeQBGZDOgRkUJtn3WGW3CW70trl1b9Sfv1LFTQ8VwH1VWHLUxW2 Pdav4rv0tZuZl95NFkeWkedv8tv1bWEL8tyg/RcGte/igPZV9Gr3xS5FNRKb JiqCZiIf1WIiH1E/9WPkd9mRP2gdwnUydFBliRM6S9V0Pm9am49e1bbwW0S+ XruiW7U31qt9RP1ACqKTNqII5r2DqDtLniueeZ9I1JOZ9246kVSinkblnUEX YgueYfwDV4jVQwG1QS7in4v457RibcbeK5qIO5jz4ddnifjfKhvL6SHilv2e yC9E/YdPUe+0o57RwbzvIOodRB3M7f2oZsPfyKeoJ5ioX1Pc6THFnZlQPI1j /LlZoj7H/PRF/aqJ+ls76jcWov47eYh6qpn39X9L1fqftC99TgeyTdTfWVEP JuqHiPpRoh5GjRBJjRBN1GOJejxRT6ph7l//aJGUSmJJv02HQtSz7r1V9v03 +OWVchtfKq95Xnkks/y2pyroeKzoa8NYvxzXurEORV1r1ldZ7dYt877Ka9DO 8kHtPEs3ebZXYXdJ7HdNQcBX9pRWkG872YnIUZ12Taosc1obDlE3hdwgvvXa EdmqXTFe7Uno1T7TuBPb4MwHiiK20cXzcjKj48+8UiIzOplOIaWKRp+OKhUf pdcRYxJZpnUdUEx3kEXNl0XNl0VSz0LLM4mrg7hGMZPDametWBJTP+uLpXZY e35nh7b7t8paCK2X0xLajE5C632hdC+h9RJaEpi1f67zgbV/bhOh3URolzOh l8ZctTa6x58mtOULoWVCV87/GFrXj6ElFCa05HYPuT31vgntH2hmTXj/Vvuy nulAHuElvx8ktMFI+pFTSHv5B4Wf/6AoGoUYGoU4Sr8E5NxF6ZdCaN3IeSqh TbuLa+6T/mi0sxtfK7v5JajPK5fUlNvxlFCOUuMMK+p6n6JquxVZ26HI682K uHZX4VdrFVp1Sf29k+ruGtVhO5LB1uF/Umn0uE6mTGvt/itE8iaRrNe2iBZt j+7Urrge7UlCA8w7EhkPFJzzUFHFLxRz4qWcVPHx518roQI3VL+hGqbMuWZe snlr3SnWDNl8IkV6A9Zk7pWBUZalk42jbswrggiG1s76WfFaRBB/Z0eux9x8 N7vnt1pMBIleN5JsyTLBN1H0EkUvUewiil1EsYsqzdp4RmL2PlCqd1gbScob fVGMOzGguJPIMlG0ZPncY8UzQROYoIlEMemzKKb4oui+QyTvIs33maT1yHPD 77mE39M0/EF7c+a0v2BeBwqYqKXvFXzqvY6Uv1fohfeKqADOqveKufJOcbR6 CST7JKqzZLPr/A5uYXKm1dt3Hcuk5c1sfUlj8gLReU7kxonYmCJqhxRR1491 K7yuHWtS2PU7Cq2pVU/vlLzdD4/YATxkHf4HFTvHFbDzktYdvKUNh+9rc2iz tkZ2aruzRzsJ3h5S/r70MeTloYLzJ3XYLFAgeM7zrxRH8BIIXiKtjOs6QSR4 KbcJJMnDDW+eBo5NGMGLqHvGaJh21NNHa2gmCZKJ1A/6t1aUsk2krGgx37qY rl0mWiTsLiLW/Urp3fPYnG9r1rS1NSu1e4yIDWrDOTtiy+LqFFvaT9RGmHvj yOoUNTYRu/D070UsGe+mIKluWkU3vYDnLrX1/d/ad0VpwBoZXnrz7/Q/am/u nPYVPdf+UgJ36p2Cy9/p6Ll3tC9cFhWlg4A5awgap0zABUm4wIULUnCB29ri 9draupDeZmeGiOuTCq8dxx2j2JDCb/Qr7EYX1oZ7GuH6jo4RsDagPGpHy551 /1rZtPsBe29qbVC91h9p1sawdm2J7ta2hH7tTBnS7rQx1GJcB/IfKqjoEUlg SodPTiv6EhGrfq04rj7+OlG78VqJt98oiSIvCcEPrXmi0GtPFXrd2JyOXXti 5s0iExI/KzY/s6PT/eGTESU/ZXaZz0nI7CJS3XakMnqYWz1Eq4do9cxiU/aG JaLl6RqUx9ut9WfrtDS2VrElZj/xMHPMROuRVfbEX3iihEsmWi+I1iuiBVm1 uBOBT6E8caNoHpK3x9wexNyFgbItrfEHmXD9ANHmVpN7aQL20hHuK32m/Sef KfjcWx25+BYle6sIEoaj5q1iOGfczbeKp9hNvGf8QFJhbqU0v5KH7i+sZkph 1x6RKCYIy7hCb4wo5MaQQm72KuRWF8c2HbvRqKO1d3Xo6vVjdqTs6fXfKzq7 Vf577yswuFlrQzq0Iapbm+L6tNU1qB2po9qd9UB7cse1v3BCB0snFXSCaMHr 4fJpa/+pdcedSzM6WvVYRy9jV2Z19CpWM6sjWPDVGeYHqmbNFzsiJlzvzcM7 fWdNoCzCktmNMYkyu18TGijsean03nlr+05a71Ps8Y/bdzw9I/J0D8htQlRe KydNXmxRL2EaIkwPrI9EiaNxNyGKp1FNpFFNvMKkqqE/qcV9dW/tm2TcNjfK eEeIfDfLoMYy28DTqLPSzFZw69YEH7W7YFZ7Sp5qz4mn2nfqifafeaIj5PSQ K28UTr8TWfuGOuy1nDSmcVSj8Q1g2/RKx65MK6QGu/5Ix2ondazuoY7dfICN 6NitQR0lREdveXX0RqsOM6OCkcDklgb9JEb/SlFp9bSM3YrJG5T/4XYFhHdr nbPP2mG12T2sbRmj2pEzzjAfam/JQ+07Man9pyZ1sOyRgs5hF6boe6cVfGma fneGvhe7PKODHDM6mBGdb42GLTLTw88KxhKC4wsJlmXCshAaLNOaPYSo14SI WWRC1Den1L4nP25q8fSOYyNyd/crhTCtPXWV8XcQKmZSEWEqHVOs2VsFR3Hn CVMF2aqK2XSZ2VRD3XH9lX3HiJtvrLtGuBd26pNsUxvMbn2SLwk37bOEa261 srNgWrtLZ7X7JCE7Pat9ZbM6wGw9SEYMOs91w+uhihkdroTdauzyFLw+0pFr kzqC4B2pm9DhG+M6fHNMh24N6/Ctfo49OnTTq+CbrdpXc08pnd4QO0K27P1L RWd0EaEBxRSOyHl8XKsje+UfO6C1rmFtYBZtzhrVtrwx7Sgc184SInXyIaOb 0N6ySe09h51/RBuCVVCltZq7GGHteLvjtdmo3vkaAfO+/kdE4bX+HY+vrBhY ceh+aSlZhhUH1KyPWPQ/U2r/U2wWM+vpJ+XpeyB377BSiEeyt8sad0x2h2Jy e2lEiUfJqGIZlfkkoTh8FXeRmFQ+U8Jlps5VYnKN9r7ulb1X/dbCfvXXxMPs WccaSSCNbxltWvNbMkBa61vrtjeWtb3VjtJp7Tw5o12nZ7S7bFp7z05r/7lp HbgwTRs+paDKR3CJXZlUcM0EU4E8Xkt2QNGCbowpiCkTdHNIB2/2Yz3aX9cB X8Pw1afkjvafxOO/UWRyGzHpV0z+qGLwt5PZ4KQuir2AblfOajWlXmDmqNbn jWpT4Zg2lzzQlhPj2ooH3PXz1r6pVN++qTRz2zNqmPQ2rB3qO16ZkJgHKrQv CIyp04y9NGZSzQv9bwSGoFAMZJgUwwRJ73vGJMH653zBYbL0PyY4U9iE3AQo xRcgV0endSHRGa0EyXwytvnYJwJ0ggCRfmLPmj03s2gbBUP1M/sWK9co2H2b t5Nvmg3cL9G2V9ZuWQ99kqfhFQF6bWf5ZoBKa3mNElu0tdnmZzH3l9p++pF2 oB070Y49F6CzYlL7Kie0r3pC+6+gLzXj2ncNqyWL12E3RrER7b0x+OPeDU/f GLyZHUS9oXZsjvnUzJHaq+icYcUUjVNiTyrmzLS9l62C2FTN2puIyOtmE1Hy zadKvj2nlLtzVGrPuBCs8TkXgdH0pbVgdAjpbVg71oHDO429MDGaX0SM5vUn xIWfdRGEbqyHerr3maVYJhhpViCecPVm4f8/spb+uwem5CYoKb6guLr6FlnD /+fEBCG2tuKNyllq0CIeZeYSZrkEJk0VMblCb1wz59u5/JzLeM6kmWfSzBOP F1zKCy4FawCxppdmAwytzs+Iy0sLNcsMbm0vCFE6xfM/tS5ty9mH2nrhobZf GteOKuzyA+24iqzUkABojrZfG7Emvaf/0+4Fmy2zkWZILm+3Lxj2fPlLrmZI 0XkPFENqX9jBEHuBYFR+to/m+qxcZh/NzSdQZfbRPOEKnjL6OYIBzc3GzH0B n0FV2zODkXnoMA+dz/RfWY1ohmlGu+as4tiUXOkmp5MwFtyfOvDjzgs/a3no z6wopPiikMzwEzu6ZIfhX8jh6WDwKC4zOKb4oUWS04TB0i5CUWnui2U2kJv9 uk+ZGnP27shbz5R8x+yQfE4osPrnhIIZ32hm/LyJxLyfxdUii6y0Ntv8rBt3 /VxpHVwol5JmLeM3laPZWfzEyn1+1gL+f+wjaMYKgduyBZrGlNw9EPZ5CP6l opL7FJ1lr+WP8a3ltzbVVZhNdfZGksRrM1wBduMx82GWK5glDLOM/glhwBoZ QRPWjFNbEJdWRtY2Z416ztqFxfcdT607O6V7n1r9pNWhmI36jD6tb9bahTWL nqUubH0ZnDFLwv1+XKJrByO5d0xJXf0/WwDIY0Y/opiC8U8Q+TZjxV4yMxoz M5paMOm6PatdzGrXLWb1nYWZ7ZvdDRDjaXymP+dinllMpVr3m+TY+sy6oNT2 OetiUjsxLiSVi0jlIszmbk/frG8LmU2Qn7Wi/We+tcZT1laK5N5RJXX2yBcD ezb874pKHZYj96GiS8yydnuFsdMsa/ftp0i46otBHWb2U9yeIQac9h6Rvo81 8LSNWBPWjLWQeVuxNqyd3sJYB9aJebEuft6N9Ty2CltP34y9/3KBGAaeMvjp mGzWR/uWrCZ1D//cGvafKzqd2ZvL7C36DJ2zvv2YC0O/wgy+5tsNV8csvgU+ t5DWO0/8rKn8ZxZFbouip7Y1Yc04tYWftXJs49jBsZMjo09l9J7uWWLF0L9A XRho/wLqn63pNm5/pOS+cbm6h8Jtj9uO/zeKSn8gR/4j69aP1q16jMcv/nQj QeL1v+9xs5kg5T7WwJM1Yk14rRlrwVqpPduwdqwD6+RnXo7dWA9f98786Gn3 p0XoshC312t+4VuvOamkngeKb++1Xf1PFZnQa++4yZ+wKTllb36wOK+wx20E M/7q57PV7L55zNiZtXeN4bOU+7P6CwsYtw8Yd5MNjAdgPO3A0IF5sS6GytA9 DN3N0Bf8vLCm+QvL0YssOFy+xfMRtpdtZ/+FojIfKqpwSo4TM5aXzQpT599d Oe/bJ/QTL9/FfF72s/z857an8bIbD3vwsLvD9u7/1zCTfR5OHrRXLFr+nbEX LNLHxXcM/onvpdao5EE5zMaSQpg47lvnX/7ZLFzYUvf5iI1/b9mjdn0+6np7 5CmMOwU23L5RmxG7Oz8t43V32yNeWMb72WLxRT+u3jVLLqeUxGgjbd9G+G4X Gpk1qaiiGUXhW0cZvoWEmIq/79sEn2+TfKN03bNHmVz/aYQpjDDFjNDn1z+2 0Njyaf/CwH5mLdWzF+pNWwv14jtH9Ke+GRbpHlFUzqQcRZ/F/6y9Xcfp82jc lb/DwMIOCjPWu5+NFW8mN/nG2mqP1SyINqtVU7yfxmnWqiZ/tlLVxN9lzbDP g28vKoxr7/d5NNL3qlFkziNFFePRkz/16OdL7+N9Hk3Eo4mMMsmMkhG68KYL byYzwmS8mcwIk9tn/t562mTfKF1mdZEZ4s8/rXRcMLP4qIdmoWNE/8T3+nGk Z1RRufbwjDMdZz5bro0zY6t9zrxqD9E4c2GHQJIv6NYwfY60hthqDzG5448O 0Roh4/vi80WZvXRoncOKsp1nH/5bRTC6yJIZRZ5idOU+5zEyJyOLZVRx13yL yRlVAqNKZFRJjCoJxyXhOBeOczEqF45zMSpXh724z8WoXL4Ffn7W8r6fWx4y nkpYMN/6rPjuKYTCDmZE2gNF+vZRRP3dxaKVn3nsmi+on40rkXElmnHhraQm e1xJrf/5cbl6rEWHfmYR6xefLTpM6LVvk+6w3eTw1Y1huROKKMVNDCfSbCBm ONEMJwa+nPAVy1DiGEocQ4lnKPEMJYGhJOCiRIaSyFAScVEiQzEL2MwayMSu TwvYenwL2GzzW1iL1GOWFEz5col5/O8UWTCtSLPyn4BFlZsN9Yzk0t9ZSetb mh3PaBIYTYLPMYkNPx1Nkm80iWY1Jo4xg0n0rchMsNaPJ1jbYewg2e9kR9uO ifH1NWHHZxSBUyIYRiSTzkF8ohlGDPFxQnMsEy6OCRfHhIuH5HiGEM8QEuAm gdgkMIz4z1ZlxXcZXsyT/cxacGO5oNs2s6LiX/i4DS+cVsSJnwbE4QtIDNw6 cUHsH3n+BPP8Lb7nxwV/bFXYF5+Fwdlph8G+bsX6SimzJCycS48gApHV9pKw aJ46Gu/H4H0n3nfi/Vi8HwsLcTx1HE8dx1PHmSVGsdYygc/Xj/hZXy0ya0cU 3Tble2nCPP4zhZtli2WfvB3FUzrwdjTejuFqnVytk6uN5WpjudrYBt9TNttP G4+349ptj/tZC5sW/bi0KdZa3mQeF1kjWHjz2mlfcbx1+DOFmtticbXhPHUE VxvJ1UZxtQ6uNpqrjeZqY7jaGJ46punHhRF+immbsddDLJKj7dPp/7Xv0sJg Odzc3egzTzo4t4PLiubcMZw7hnM7ObeTczs5t5NzO/Gkk/M52826PRMocxkx P7owpsN+Lnv8SrIOf6oQvBeC58LxXARPEYHnIvFcJJ6LwnNRPE0UT2Pe2fdT ZJM5XWTjp2H/z9bjf/2fdUck7ohiyA6G7GDI0ZzLwbmiOYuDSEQz7OjWBUfY CwYWzptgD/O2dfgvddQME6RDOXUYMhzOMMNv2289R3DqCIYaUY93Ixpm3Pa/ Wuf57h++/oev/+Hr/799rf/i/wUe3PWu\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0., 2.639947222, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.2846787340000003`, 1.3228081999999999`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.28656846, -1.319028748, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0., -2.639947222, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.2846787340000003`, -1.3228081999999999`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.28656846, 1.319028748, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0., 4.724315, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.089367064, 2.3621575, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.09125679, -2.356488322, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0., -4.724315, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.089367064, -2.3621575, 0.}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.09125679, 2.358378048, 0.}, 0.1]}, Text3DBox["1", {-0.6, 2.639947222, 0.}, {1, 0}], Text3DBox["2", {1.6846787340000002`, 1.3228081999999999`, 0.}, {1, 0}], Text3DBox["3", {1.6865684599999997`, -1.319028748, 0.}, {1, 0}], Text3DBox["4", {-0.6, -2.639947222, 0.}, {1, 0}], Text3DBox["5", {-2.8846787340000004`, -1.3228081999999999`, 0.}, {1, 0}], Text3DBox["6", {-2.88656846, 1.319028748, 0.}, {1, 0}], Text3DBox["7", {-0.6, 4.724315, 0.}, {1, 0}], Text3DBox["8", {3.489367064, 2.3621575, 0.}, {1, 0}], Text3DBox["9", {3.49125679, -2.356488322, 0.}, {1, 0}], Text3DBox["10", {-0.6, -4.724315, 0.}, {1, 0}], Text3DBox["11", {-4.689367064, -2.3621575, 0.}, {1, 0}], Text3DBox["12", {-4.69125679, 2.358378048, 0.}, {1, 0}], TubeBox[{{2.2846787340000003`, 1.3228081999999999`, 0.}, {0., 2.639947222, 0.}}, 0.15], TubeBox[{{2.28656846, -1.319028748, 0.}, {2.2846787340000003`, 1.3228081999999999`, 0.}}, 0.15], TubeBox[{{0., -2.639947222, 0.}, {2.28656846, -1.319028748, 0.}}, 0.15], TubeBox[{{-2.2846787340000003`, -1.3228081999999999`, 0.}, { 0., -2.639947222, 0.}}, 0.15], TubeBox[{{-2.28656846, 1.319028748, 0.}, {0., 2.639947222, 0.}}, 0.15], TubeBox[{{-2.28656846, 1.319028748, 0.}, {-2.2846787340000003`, -1.3228081999999999`, 0.}}, 0.15], TubeBox[{{0., 4.724315, 0.}, {0., 2.639947222, 0.}}, 0.15], TubeBox[{{4.089367064, 2.3621575, 0.}, {2.2846787340000003`, 1.3228081999999999`, 0.}}, 0.15], TubeBox[{{4.09125679, -2.356488322, 0.}, {2.28656846, -1.319028748, 0.}}, 0.15], TubeBox[{{0., -4.724315, 0.}, {0., -2.639947222, 0.}}, 0.15], TubeBox[{{-4.089367064, -2.3621575, 0.}, {-2.2846787340000003`, -1.3228081999999999`, 0.}}, 0.15], TubeBox[{{-4.09125679, 2.358378048, 0.}, {-2.28656846, 1.319028748, 0.}}, 0.15]}, AspectRatio->Automatic, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.570641992751216*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ 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[{"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[{"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[{"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[{"tw", "=", RowBox[{"Join", "[", RowBox[{"t", ",", "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}, 3.570642069846551*^9, { 3.570642189124361*^9, 3.5706421919947653`*^9}}], Cell[BoxData["30"], "Output", CellChangeTimes->{3.570641992766816*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "2.639947222`", "0.`"}, {"2.2846787340000003`", "1.3228081999999999`", "0.`"}, {"2.28656846`", RowBox[{"-", "1.319028748`"}], "0.`"}, {"0.`", RowBox[{"-", "2.639947222`"}], "0.`"}, { RowBox[{"-", "2.2846787340000003`"}], RowBox[{"-", "1.3228081999999999`"}], "0.`"}, { RowBox[{"-", "2.28656846`"}], "1.319028748`", "0.`"}, {"1.1423393670000002`", "1.981377711`", "0.`"}, {"2.285623597`", "0.001889725999999925`", "0.`"}, {"1.14328423`", RowBox[{"-", "1.979487985`"}], "0.`"}, { RowBox[{"-", "1.1423393670000002`"}], RowBox[{"-", "1.981377711`"}], "0.`"}, { RowBox[{"-", "1.14328423`"}], "1.979487985`", "0.`"}, { RowBox[{"-", "2.285623597`"}], RowBox[{"-", "0.001889725999999925`"}], "0.`"}, {"0.`", "4.155015`", "0.`"}, {"3.596032747728569`", "2.0780382602625265`", "0.`"}, {"3.597699117830767`", RowBox[{"-", "2.072757262292242`"}], "0.`"}, {"0.`", RowBox[{"-", "4.155015`"}], "0.`"}, { RowBox[{"-", "3.596032747728569`"}], RowBox[{"-", "2.0780382602625265`"}], "0.`"}, { RowBox[{"-", "3.597922473728569`"}], "2.0742588082625266`", "0.`"}, {"0.`", "2.639947222`", "1.45`"}, {"2.2846787340000003`", "1.3228081999999999`", "1.45`"}, {"2.28656846`", RowBox[{"-", "1.319028748`"}], "1.45`"}, {"0.`", RowBox[{"-", "2.639947222`"}], "1.45`"}, { RowBox[{"-", "2.2846787340000003`"}], RowBox[{"-", "1.3228081999999999`"}], "1.45`"}, { RowBox[{"-", "2.28656846`"}], "1.319028748`", "1.45`"}, {"0.`", "2.639947222`", RowBox[{"-", "1.45`"}]}, {"2.2846787340000003`", "1.3228081999999999`", RowBox[{"-", "1.45`"}]}, {"2.28656846`", RowBox[{"-", "1.319028748`"}], RowBox[{"-", "1.45`"}]}, {"0.`", RowBox[{"-", "2.639947222`"}], RowBox[{"-", "1.45`"}]}, { RowBox[{"-", "2.2846787340000003`"}], RowBox[{"-", "1.3228081999999999`"}], RowBox[{"-", "1.45`"}]}, { RowBox[{"-", "2.28656846`"}], "1.319028748`", RowBox[{"-", "1.45`"}]} }, 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.570641992782416*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";", RowBox[{"(*", RowBox[{ 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}, {3.5706417927120647`*^9, 3.5706418340053368`*^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[{"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[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"t", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv4"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.5706420373984942`*^9, 3.5706420511577187`*^9}, {3.5706422276720285`*^9, 3.570642229918432*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "2.639947222`", "0.`"}, {"2.2846787340000003`", "1.3228081999999999`", "0.`"}, {"2.28656846`", RowBox[{"-", "1.319028748`"}], "0.`"}, {"0.`", RowBox[{"-", "2.639947222`"}], "0.`"}, { RowBox[{"-", "2.2846787340000003`"}], RowBox[{"-", "1.3228081999999999`"}], "0.`"}, { RowBox[{"-", "2.28656846`"}], "1.319028748`", "0.`"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0.`", "4.724315`", "0.`"}, {"4.089367064`", "2.3621575`", "0.`"}, {"4.09125679`", RowBox[{"-", "2.356488322`"}], "0.`"}, {"0.`", RowBox[{"-", "4.724315`"}], "0.`"}, { RowBox[{"-", "4.089367064`"}], RowBox[{"-", "2.3621575`"}], "0.`"}, { RowBox[{"-", "4.09125679`"}], "2.358378048`", "0.`"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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.5706419927980156`*^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]", RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], ",", StyleBox[ RowBox[{"1", "/", "sq"}], FontColor->RGBColor[1, 0, 0]], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", " ", "j"}], ",", RowBox[{ RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0.0"}], ",", RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570641916654282*^9, 3.570641950833942*^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[{"-", "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.570641992813616*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.570641992813616*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "0.0"}], ";", " ", RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee", "\[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["253.09356871251507`"], "Output", CellChangeTimes->{3.570641992844816*^9}], Cell[BoxData["252.57632733320477`"], "Output", CellChangeTimes->{3.570641992844816*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.3625"}], ";"}], " ", 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.3624"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}}], Cell[BoxData["289.2814467536985`"], "Output", CellChangeTimes->{3.570641992860416*^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[{"-", "523.2927956404624`"}]], "Output", CellChangeTimes->{3.5706419928760157`*^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[{"-", "943.3137966905149`"}]], "Output", CellChangeTimes->{3.570641992891616*^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[{"-", "956.6582226973568`"}]], "Output", CellChangeTimes->{3.570641992907216*^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["202.71657956533642`"], "Output", CellChangeTimes->{3.5706419929228163`*^9}] }, Open ]], 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["289.2814467536985`"], "Output", CellChangeTimes->{3.570641992938416*^9}], Cell[BoxData["202.71657956533642`"], "Output", CellChangeTimes->{3.570641992938416*^9}], Cell[BoxData[ RowBox[{"-", "956.6582226973568`"}]], "Output", CellChangeTimes->{3.570641992938416*^9}], Cell[BoxData["7.634482758620691`"], "Output", CellChangeTimes->{3.570641992938416*^9}], Cell[BoxData[ RowBox[{"-", "464.6601963783218`"}]], "Output", CellChangeTimes->{3.570641992938416*^9}], Cell[BoxData["232.32257080238372`"], "Output", CellChangeTimes->{3.5706419929540157`*^9}], Cell[BoxData["2.000064801166337`"], "Output", CellChangeTimes->{3.5706419929540157`*^9}], Cell[BoxData[ RowBox[{"-", "232.3376255759381`"}]], "Output", CellChangeTimes->{3.5706419929540157`*^9}] }, Open ]] }, WindowSize->{1018, 939}, WindowMargins->{{71, Automatic}, {-27, 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[CellGroupData[{ Cell[579, 22, 1571, 31, 90, "Input"], Cell[2153, 55, 1671, 33, 204, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3861, 93, 1900, 50, 90, "Input"], Cell[5764, 145, 1343, 38, 202, "Output"] }, Open ]], Cell[7122, 186, 710, 14, 29, "Input"], Cell[CellGroupData[{ Cell[7857, 204, 955, 14, 29, "Input"], Cell[8815, 220, 71, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8923, 226, 1560, 29, 29, "Input"], Cell[10486, 257, 322, 6, 28, "Output"] }, Open ]], Cell[10823, 266, 1390, 22, 29, "Input"], Cell[12216, 290, 1566, 28, 29, "Input"], Cell[CellGroupData[{ Cell[13807, 322, 1234, 18, 29, "Input"], Cell[15044, 342, 902, 27, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15983, 374, 697, 14, 29, "Input"], Cell[16683, 390, 227, 5, 28, "Output"] }, Open ]], Cell[16925, 398, 908, 24, 29, "Input"], Cell[CellGroupData[{ Cell[17858, 426, 5114, 115, 130, "Input"], Cell[22975, 543, 276, 6, 28, "Output"], Cell[23254, 551, 288, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23579, 562, 519, 12, 29, "Input"], Cell[24101, 576, 324, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24462, 587, 1401, 38, 29, "Input"], Cell[25866, 627, 249, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26152, 638, 827, 23, 90, "Input"], Cell[26982, 663, 70, 1, 28, "Output"], Cell[27055, 666, 70, 1, 28, "Output"] }, Open ]], Cell[27140, 670, 1824, 35, 70, "Input"], Cell[CellGroupData[{ Cell[28989, 709, 1404, 20, 29, "Input"], Cell[30396, 731, 81, 1, 28, "Output"] }, Open ]], Cell[30492, 735, 935, 19, 29, "Input"], Cell[31430, 756, 4271, 83, 130, "Input"], Cell[35704, 841, 3292, 57, 29, "Input"], Cell[CellGroupData[{ Cell[39021, 902, 2707, 37, 29, "Input"], Cell[41731, 941, 8235, 202, 107, "Output"] }, Open ]], Cell[49981, 1146, 3067, 67, 50, "Input"], Cell[53051, 1215, 2617, 49, 50, "Input"], Cell[55671, 1266, 1254, 35, 70, "Input"], Cell[CellGroupData[{ Cell[56950, 1305, 4223, 78, 70, "Input"], Cell[61176, 1385, 1678, 37, 202, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62891, 1427, 3292, 75, 130, "Input"], Cell[66186, 1504, 309, 7, 28, "Output"] }, Open ]], Cell[66510, 1514, 2072, 49, 110, "Input"], Cell[68585, 1565, 561, 12, 50, "Input"], Cell[69149, 1579, 2148, 49, 90, "Input"], Cell[71300, 1630, 2452, 56, 90, "Input"], Cell[73755, 1688, 1759, 41, 70, "Input"], Cell[CellGroupData[{ Cell[75539, 1733, 923, 20, 29, "Input"], Cell[76465, 1755, 88, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76590, 1761, 711, 18, 29, "Input"], Cell[77304, 1781, 90, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77431, 1787, 507, 10, 29, "Input"], Cell[77941, 1799, 90, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78068, 1805, 823, 23, 29, "Input"], Cell[78894, 1830, 89, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79020, 1836, 204, 4, 29, "Input"], Cell[79227, 1842, 89, 1, 28, "Output"] }, Open ]], Cell[79331, 1846, 1971, 35, 90, "Input"], Cell[CellGroupData[{ Cell[81327, 1885, 1770, 24, 29, "Input"], Cell[83100, 1911, 2578, 50, 217, "Output"] }, Open ]], Cell[85693, 1964, 1655, 24, 29, "Input"], Cell[87351, 1990, 3421, 71, 90, "Input"], Cell[90775, 2063, 2696, 53, 90, "Input"], Cell[CellGroupData[{ Cell[93496, 2120, 939, 17, 70, "Input"], Cell[94438, 2139, 1145, 28, 48, "Output"], Cell[95586, 2169, 73, 1, 28, "Output"], Cell[95662, 2172, 72, 1, 28, "Output"] }, Open ]], Cell[95749, 2176, 10201, 233, 130, "Input"], Cell[105953, 2411, 6235, 101, 50, "Input"], Cell[112191, 2514, 10215, 234, 130, "Input"], Cell[122409, 2750, 5925, 93, 29, "Input"], Cell[128337, 2845, 8481, 174, 210, "Input"], Cell[CellGroupData[{ Cell[136843, 3023, 7741, 141, 130, "Input"], Cell[144587, 3166, 97457, 1635, 337, 5762, 130, "CachedBoxData", "BoxData", \ "Output"], Cell[242047, 4803, 3336, 60, 337, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[245420, 4868, 4346, 99, 170, "Input"], Cell[249769, 4969, 71, 1, 28, "Output"], Cell[249843, 4972, 2782, 78, 472, "Output"] }, Open ]], Cell[252640, 5053, 3692, 86, 90, "Input"], Cell[256335, 5141, 1841, 29, 50, "Input"], Cell[CellGroupData[{ Cell[258201, 5174, 3439, 71, 110, "Input"], Cell[261643, 5247, 1741, 56, 472, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[263421, 5308, 6098, 135, 130, "Input"], Cell[269522, 5445, 1037, 33, 48, "Output"], Cell[270562, 5480, 477, 9, 28, "Output"] }, Open ]], Cell[271054, 5492, 1863, 27, 29, "Input"], Cell[CellGroupData[{ Cell[272942, 5523, 3913, 83, 170, "Input"], Cell[276858, 5608, 88, 1, 28, "Output"], Cell[276949, 5611, 88, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[277074, 5617, 2276, 53, 110, "Input"], Cell[279353, 5672, 87, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[279477, 5678, 499, 15, 50, "Input"], Cell[279979, 5695, 106, 2, 28, "Output"] }, Open ]], Cell[280100, 5700, 1381, 21, 29, "Input"], Cell[CellGroupData[{ Cell[281506, 5725, 1709, 32, 50, "Input"], Cell[283218, 5759, 104, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[283359, 5766, 1415, 43, 70, "Input"], Cell[284777, 5811, 104, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[284918, 5818, 2550, 50, 90, "Input"], Cell[287471, 5870, 90, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[287598, 5876, 1218, 25, 190, "Input"], Cell[288819, 5903, 87, 1, 28, "Output"], Cell[288909, 5906, 88, 1, 28, "Output"], Cell[289000, 5909, 104, 2, 28, "Output"], Cell[289107, 5913, 87, 1, 28, "Output"], Cell[289197, 5916, 104, 2, 28, "Output"], Cell[289304, 5920, 90, 1, 28, "Output"], Cell[289397, 5923, 89, 1, 28, "Output"], Cell[289489, 5926, 106, 2, 28, "Output"] }, Open ]] } ] *) (* End of internal cache information *)