(* 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[ 497099, 9934] NotebookOptionsPosition[ 489710, 9699] NotebookOutlinePosition[ 490210, 9719] CellTagsIndexPosition[ 490167, 9716] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "21", " ", "March", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9, {3.5719810762355733`*^9, 3.5719810786847773`*^9}, 3.5723256977094345`*^9, 3.572583124905918*^9, { 3.5727976670013523`*^9, 3.572797667157352*^9}, {3.5728722828253174`*^9, 3.5728722835117188`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "[", RowBox[{"\"\<22Paracyclophan\>\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, {3.5705590525489826`*^9, 3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}, 3.570855059411189*^9, 3.570856566545436*^9, 3.5709425310226765`*^9, { 3.5728721358106594`*^9, 3.5728721553730936`*^9}, 3.5728746846991367`*^9, 3.5728747488152485`*^9}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtUwlIVEEYXlPCtOzABKVcNUvt0DUtirT+8lg3NXQxSdms3q6bruvu2xU7 NDoNo0OJyA41E7NIxWrpMKL4UalMpfLAIsQOzaIsNitKE3ozvz88hjcz//Ed 4yuY1ZlTZDKZQvocZZORJWLcuwL3xntpuPtRlVdIbhyGsajPRY/x9m9tUXJo 8j76JVmhwytipEtfSy4Mus9vGxrwxUL3RuW7OTo614i0OqdD1umRfesyVeDS VyNGHhawtPlXoGZmBjqlui2zVcbC70BNafOdNIw+YRwetycDr/tAQHbd5V4a nY8ko4YldgjA+xgE4PNuz4CQfv+ph2pjkI3b3xqDQeyizIChzg3z0nWLoUVq V7pxM168IMVnPeWPJWEkG6g3BTi+UT1On7Kk2MOeBIfORp0wPomhfUcDcB62 BqGUVeCesQOvlrf63OzagGoG0FMH+37cTMoZ8wMOJ2QpfE2WDloMuN6u7dha 74f8/0sgsrYFDQaQS7Q0xe6ApFPnTHPyogjvGy3hXWNBztuxLKyQ2lhfbaH9 9nzi7Zwaq/+EfmxcKAcLAwAmLJPGHS6MpnmmidjZIUVRHsbeHZ3o+ZQCfG43 LdU15gHX17yZ+HQSgPPlbAY2lnf+euLLSwTetyofeD2dGn5O9Oz5vEhOuu+0 AO9XnUX3lGlwBJ9Vx3hsIrxrrLj69tNdj26oaO4BHXK9fMzA7LBivxI5D2WT flllRlvl92uP45UwPH7d3jWRSHWjrLBJmLVl9W0V8RRvxOMlgz/k6plAfsgG W7CpxiHCAdt2MaGUyP3y2oot3UsyPQUX4PtyFeGyWYn/tUbgfrniinxfyKa5 X4qks02g/2I1rZ55tAakovbA68i9x8KJ71+5GN56K9h0RkF5fgZ6L8ss+Cf/ bcXs/ljyUZUWOb8BFhg6cqmzrl5J9Vy1oOdhgvMJc09uHAsiX/sbSKcJKzD6 SlemQp29K1E4uIL0fD+pT7cAXOd/apDcIj01FfEcYcZgRqhHGDLaaoq2kS+c coC/s/sJuJb532Ebva+5OTj0wu/N37IEYLJVvVcBz4s2Ay+rCSOf9OjxobrM t6RfQb4c1cPlzrrnvakzCOcCBfE/X8TL3KfOyPUbXE44nUTiv1kPKR9qy1ub QiGc86PH/7lhIAU= "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[17, 24.], SphereBox[18, 24.], SphereBox[19, 24.], SphereBox[20, 24.], SphereBox[21, 24.], SphereBox[22, 24.], SphereBox[23, 24.], SphereBox[24, 24.], SphereBox[25, 24.], SphereBox[26, 24.], SphereBox[27, 24.], SphereBox[28, 24.], SphereBox[29, 24.], SphereBox[30, 24.], SphereBox[31, 24.], SphereBox[32, 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.], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.], SphereBox[10, 34.], SphereBox[11, 34.], SphereBox[12, 34.], SphereBox[13, 34.], SphereBox[14, 34.], SphereBox[15, 34.], SphereBox[16, 34.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{33, 17}, 15.], CylinderBox[{34, 18}, 15.], CylinderBox[{35, 19}, 15.], CylinderBox[{36, 20}, 15.], CylinderBox[{37, 21}, 15.], CylinderBox[{38, 22}, 15.], CylinderBox[{39, 23}, 15.], CylinderBox[{40, 24}, 15.], CylinderBox[{41, 25}, 15.], CylinderBox[{42, 26}, 15.], CylinderBox[{43, 27}, 15.], CylinderBox[{44, 28}, 15.], CylinderBox[{45, 29}, 15.], CylinderBox[{46, 30}, 15.], CylinderBox[{47, 31}, 15.], CylinderBox[{48, 32}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{1, 2}, 15.], CylinderBox[{1, 5}, 15.], CylinderBox[{1, 33}, 15.], CylinderBox[{1, 34}, 15.], CylinderBox[{2, 6}, 15.], CylinderBox[{2, 35}, 15.], CylinderBox[{2, 36}, 15.], CylinderBox[{3, 4}, 15.], CylinderBox[{3, 7}, 15.], CylinderBox[{3, 37}, 15.], CylinderBox[{3, 38}, 15.], CylinderBox[{4, 8}, 15.], CylinderBox[{4, 39}, 15.], CylinderBox[{4, 40}, 15.], CylinderBox[{5, 9}, 15.], CylinderBox[{5, 13}, 15.], CylinderBox[{6, 10}, 15.], CylinderBox[{6, 14}, 15.], CylinderBox[{7, 11}, 15.], CylinderBox[{7, 15}, 15.], CylinderBox[{8, 12}, 15.], CylinderBox[{8, 16}, 15.], CylinderBox[{9, 11}, 15.], CylinderBox[{9, 41}, 15.], CylinderBox[{10, 12}, 15.], CylinderBox[{10, 42}, 15.], CylinderBox[{11, 43}, 15.], CylinderBox[{12, 44}, 15.], CylinderBox[{13, 15}, 15.], CylinderBox[{13, 45}, 15.], CylinderBox[{14, 16}, 15.], CylinderBox[{14, 46}, 15.], CylinderBox[{15, 47}, 15.], CylinderBox[{16, 48}, 15.]}}]}, Boxed->False, ImageSize->270.69224591132564`, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{ 3.5728749859736657`*^9, 3.572875242328916*^9, 3.5728753807791595`*^9, 3.5728754760641265`*^9, {3.5728755887743244`*^9, 3.572875618164776*^9}, 3.572875651112034*^9, 3.572875688333699*^9, 3.5730240996908846`*^9, 3.5800562578049974`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t1", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", RowBox[{"\"\<22Paracyclophan\>\"", ",", "\"\\""}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "t1", "]"}], "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\<22Paracyclophan\>\"", ",", "\"\\""}], "]"}]}]}], "Input", CellChangeTimes->{{3.572874779609703*^9, 3.5728747810761056`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "4.960530749999999`"}], RowBox[{"-", "1.9439611362`"}], RowBox[{"-", "0.92318784278`"}]}, { RowBox[{"-", "4.4852646609999995`"}], "0.147704763612`", RowBox[{"-", "3.0520964626`"}]}, {"4.4998155512`", RowBox[{"-", "0.168890481798`"}], "3.0347109834`"}, {"4.946735750199999`", "1.9677716838`", "0.9598107326599999`"}, { RowBox[{"-", "2.7981172882`"}], RowBox[{"-", "2.2722065423999998`"}], "0.85476086432`"}, { RowBox[{"-", "1.9433942184`"}], "1.3564642200600001`", RowBox[{"-", "2.8321323562`"}]}, {"1.9437721635999998`", RowBox[{"-", "1.3552170009`"}], "2.8417699587999996`"}, {"2.7843222884`", "2.29601709`", RowBox[{"-", "0.81811907718`"}]}, { RowBox[{"-", "0.8227489058799999`"}], RowBox[{"-", "3.9311969978`"}], "0.24936824296`"}, { RowBox[{"-", "1.6093851479`"}], "3.463867758`", RowBox[{"-", "1.2835018992`"}]}, {"1.5748031620999998`", RowBox[{"-", "3.469536936`"}], "1.28061061842`"}, {"0.8231268510799999`", "3.9325198059999997`", RowBox[{"-", "0.23965505132`"}]}, { RowBox[{"-", "2.6255853044`"}], RowBox[{"-", "0.71140624996`"}], "3.0388683806`"}, {"0.179317989866`", "0.26631908517999997`", RowBox[{"-", "4.0460923386`"}]}, { RowBox[{"-", "0.17640025292199998`"}], RowBox[{"-", "0.23545985960000002`"}], "4.0324863114`"}, {"2.6117903046`", "0.73508451674`", RowBox[{"-", "3.0022076961999997`"}]}, { RowBox[{"-", "5.2097856094`"}], RowBox[{"-", "3.7087762475999995`"}], RowBox[{"-", "1.87804749332`"}]}, { RowBox[{"-", "6.589285589399999`"}], RowBox[{"-", "1.4052947398999998`"}], "0.147149184168`"}, { RowBox[{"-", "4.5735148652`"}], RowBox[{"-", "0.7741829476800001`"}], RowBox[{"-", "4.8494148612`"}]}, { RowBox[{"-", "5.901614298`"}], "1.58052903188`", RowBox[{"-", "2.8806983144`"}]}, {"5.872701490199999`", RowBox[{"-", "1.6203455587`"}], "2.7236620838`"}, {"4.6918117128`", "0.6597978328999999`", "4.8690680116000005`"}, {"6.5373181244`", "1.3903659045`", RowBox[{"-", "0.14717186088`"}]}, {"5.2626979374`", "3.7238940555999998`", "1.9107019585999998`"}, { RowBox[{"-", "1.13712372324`"}], RowBox[{"-", "5.5127086872`"}], RowBox[{"-", "0.9708089379799999`"}]}, { RowBox[{"-", "3.1554644747999996`"}], "4.70541774`", RowBox[{"-", "0.8879066583599999`"}]}, {"3.1125676946`", RowBox[{"-", "4.719779657599999`"}], "0.8804611379199999`"}, {"1.13351434658`", "5.5215903994`", "0.9714703420799999`"}, { RowBox[{"-", "4.2777727462`"}], "0.073984662626`", "3.9000165187999998`"}, { RowBox[{"-", "0.040710367218`"}], RowBox[{"-", "0.87622815168`"}], RowBox[{"-", "5.6996025886`"}]}, {"0.06232127375399999`", "0.94945503418`", "5.6533043016`"}, {"4.2700248696`", RowBox[{"-", "0.06529948192999999`"}], RowBox[{"-", "3.8376555608`"}]} }, 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.572874986020466*^9, 3.572875242344516*^9, 3.5728753807947593`*^9, 3.572875476079726*^9, {3.5728755887899246`*^9, 3.572875618180376*^9}, 3.572875651127634*^9, 3.5728756883492994`*^9, 3.5730240997376847`*^9, 3.5800562578169985`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.572874986020466*^9, 3.572875242344516*^9, 3.5728753807947593`*^9, 3.572875476079726*^9, {3.5728755887899246`*^9, 3.572875618180376*^9}, 3.572875651127634*^9, 3.5728756883492994`*^9, 3.5730240997376847`*^9, 3.5800562578219986`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", RowBox[{"Length", "[", "t1", "]"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822123693834*^9}, 3.568873215924739*^9, 3.5689108676002645`*^9, 3.5689997098237543`*^9, 3.5689998170115423`*^9, 3.568999886915265*^9, 3.5691460425981283`*^9, { 3.5692371678918586`*^9, 3.569237204489523*^9}, 3.569237465805582*^9, 3.56923802261736*^9, 3.5693403424025126`*^9, 3.5693404501675014`*^9, 3.569340737988007*^9, 3.569340852819809*^9, 3.569341165475558*^9, 3.56934149694494*^9, 3.569342614390503*^9, 3.569343567162176*^9, 3.569343662712344*^9, 3.569343763597721*^9, 3.5693440703198595`*^9, 3.569344266209404*^9, 3.5702973471714044`*^9, 3.5702974395391665`*^9, { 3.570297637207114*^9, 3.570297637987115*^9}, 3.570297920051211*^9}], Cell[BoxData["32"], "Output", CellChangeTimes->{ 3.572874986036066*^9, 3.572875242360116*^9, 3.572875380810359*^9, 3.5728754760953264`*^9, {3.5728755888055243`*^9, 3.5728756181959763`*^9}, 3.5728756511432343`*^9, 3.572875688364899*^9, 3.5730240997532845`*^9, 3.580056257833999*^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\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.572874986036066*^9, 3.572875242375716*^9, 3.572875380825959*^9, 3.5728754761109266`*^9, {3.572875588821124*^9, 3.572875618211576*^9}, 3.572875651158834*^9, 3.5728756883804994`*^9, 3.5730240997688847`*^9, 3.5800562578459997`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"num1", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146829331646`*^9}, 3.5688147231032352`*^9, 3.5688216336189733`*^9, 3.5711137970191836`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"um", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"un", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"num1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146885023746`*^9}, 3.5688147203576307`*^9, 3.56882164316619*^9, 3.57111380070079*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"us", "=", RowBox[{"Sort", "[", "um", "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146945707855`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "32"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.572874986051666*^9, 3.5728752424069157`*^9, 3.572875380857159*^9, 3.5728754761265264`*^9, {3.5728755888367243`*^9, 3.5728756182271757`*^9}, 3.5728756511744337`*^9, 3.572875688396099*^9, 3.573024099800085*^9, 3.580056257863001*^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", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", "31", ",", "32"}], "}"}]], "Output", CellChangeTimes->{ 3.5728749860672655`*^9, 3.572875242422516*^9, 3.572875380872759*^9, 3.5728754761421266`*^9, {3.5728755888523245`*^9, 3.572875618242776*^9}, 3.572875651190034*^9, 3.5728756884116993`*^9, 3.573024099815685*^9, 3.5800562578760014`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, { 3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.12", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.2557", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.22522", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}, {3.5727961392438684`*^9, 3.57279614016427*^9}, {3.572796215855603*^9, 3.5727962193812094`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{ 3.5728749860672655`*^9, 3.572875242438116*^9, 3.572875380888359*^9, 3.5728754761577263`*^9, {3.5728755888679247`*^9, 3.572875618242776*^9}, 3.572875651205634*^9, 3.5728756884272995`*^9, 3.5730240998312845`*^9, 3.5800562578900023`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{ 3.5728749860672655`*^9, 3.572875242438116*^9, 3.572875380888359*^9, 3.5728754761577263`*^9, {3.5728755888679247`*^9, 3.572875618242776*^9}, 3.572875651205634*^9, 3.5728756884272995`*^9, 3.5730240998312845`*^9, 3.5800562578920026`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5679472243083935`*^9, 3.567947394894693*^9}, { 3.567947453425996*^9, 3.567947471241227*^9}, {3.5679475415037503`*^9, 3.5679475448733563`*^9}, {3.5679488138107853`*^9, 3.567948820877598*^9}, { 3.568820296244224*^9, 3.5688203477867146`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.5728749860828657`*^9, 3.5728752424537163`*^9, 3.5728753809039593`*^9, 3.5728754761733265`*^9, {3.572875588883525*^9, 3.572875618258376*^9}, 3.5728756512212343`*^9, 3.5728756884428997`*^9, 3.573024099862485*^9, 3.5800562579070034`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "6.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "1.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "8.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "17.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{ 3.572874986098466*^9, 3.5728752424693165`*^9, 3.5728753809195595`*^9, 3.5728754761889267`*^9, {3.5728755888991246`*^9, 3.5728756182739763`*^9}, 3.572875651236834*^9, 3.5728756884585*^9, 3.573024099878085*^9, 3.580056257920004*^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["16"], "Output", CellChangeTimes->{ 3.572874986098466*^9, 3.5728752424693165`*^9, 3.5728753809351597`*^9, 3.572875476204527*^9, {3.572875588914725*^9, 3.5728756182739763`*^9}, 3.572875651252434*^9, 3.5728756884740996`*^9, 3.5730240998936853`*^9, 3.580056257935005*^9}], Cell[BoxData["16"], "Output", CellChangeTimes->{ 3.572874986098466*^9, 3.5728752424693165`*^9, 3.5728753809351597`*^9, 3.572875476204527*^9, {3.572875588914725*^9, 3.5728756182739763`*^9}, 3.572875651252434*^9, 3.5728756884740996`*^9, 3.5730240998936853`*^9, 3.5800562579380054`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5708566311295495`*^9, 3.5708566338907547`*^9}, 3.5709425310382767`*^9}], Cell[BoxData["\<\"C20H30O\"\>"], "Output", CellChangeTimes->{ 3.572874986114066*^9, 3.572875242484916*^9, 3.5728753809507594`*^9, 3.572875476220127*^9, {3.572875588914725*^9, 3.5728756182895765`*^9}, 3.572875651268034*^9, 3.5728756884896994`*^9, 3.5730241001432858`*^9, 3.5800562581950197`*^9}] }, Open ]], Cell[CellGroupData[{ 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", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\<22Paracyclophan\>\"", ",", "\"\\""}], "]"}]}], "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.572874834178599*^9, 3.572874835364201*^9}}], Cell[BoxData["\<\"C16H16\"\>"], "Output", CellChangeTimes->{ 3.572874986145266*^9, 3.572875242516116*^9, 3.572875380966359*^9, 3.572875476235727*^9, {3.5728755889459248`*^9, 3.5728756183051767`*^9}, 3.5728756512992344`*^9, 3.5728756885052996`*^9, 3.5730241001744857`*^9, 3.580056258248023*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot1o", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "White", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Darker", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\<22Paracyclophan\>\"", ",", "\"\\""}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, { 3.5728748619466476`*^9, 3.572874863647051*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.960530749999999, -1.9439611362, -0.92318784278}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.4852646609999995`, 0.147704763612, -3.0520964626}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.4998155512, -0.168890481798, 3.0347109834}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.946735750199999, 1.9677716838, 0.9598107326599999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.7981172882, -2.2722065423999998`, 0.85476086432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.9433942184, 1.3564642200600001`, -2.8321323562}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.9437721635999998`, -1.3552170009, 2.8417699587999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.7843222884, 2.29601709, -0.81811907718}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.8227489058799999, -3.9311969978, 0.24936824296}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.6093851479, 3.463867758, -1.2835018992}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.5748031620999998`, -3.469536936, 1.28061061842}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.8231268510799999, 3.9325198059999997`, -0.23965505132}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.6255853044, -0.71140624996, 3.0388683806}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.179317989866, 0.26631908517999997`, -4.0460923386}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.17640025292199998`, -0.23545985960000002`, 4.0324863114}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.6117903046, 0.73508451674, -3.0022076961999997`}, 0.255]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.2097856094, -3.7087762475999995`, -1.87804749332}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.589285589399999, -1.4052947398999998`, 0.147149184168}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.5735148652, -0.7741829476800001, -4.8494148612}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.901614298, 1.58052903188, -2.8806983144}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.872701490199999, -1.6203455587, 2.7236620838}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.6918117128, 0.6597978328999999, 4.8690680116000005`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.5373181244, 1.3903659045, -0.14717186088}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.2626979374, 3.7238940555999998`, 1.9107019585999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.13712372324, -5.5127086872, -0.9708089379799999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.1554644747999996`, 4.70541774, -0.8879066583599999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.1125676946, -4.719779657599999, 0.8804611379199999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.13351434658, 5.5215903994, 0.9714703420799999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.2777727462, 0.073984662626, 3.9000165187999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.040710367218, -0.87622815168, -5.6996025886}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.06232127375399999, 0.94945503418, 5.6533043016}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.2700248696, -0.06529948192999999, -3.8376555608}, 0.12]}, Text3DBox["1", {-5.560530749999999, -1.9439611362, -0.92318784278}, {1, 0}], Text3DBox["2", {-5.085264660999999, 0.147704763612, -3.0520964626}, { 1, 0}], Text3DBox["3", {3.8998155512, -0.168890481798, 3.0347109834}, {1, 0}], Text3DBox["4", {4.3467357502, 1.9677716838, 0.9598107326599999}, {1, 0}], Text3DBox["5", {-3.3981172882, -2.2722065423999998`, 0.85476086432}, {1, 0}], Text3DBox["6", {-2.5433942184, 1.3564642200600001`, -2.8321323562}, {1, 0}], Text3DBox["7", {1.3437721635999997`, -1.3552170009, 2.8417699587999996`}, {1, 0}], Text3DBox["8", {2.1843222883999998`, 2.29601709, -0.81811907718}, {1, 0}], Text3DBox["9", {-1.4227489058799998`, -3.9311969978, 0.24936824296}, {1, 0}], Text3DBox["10", {-2.2093851479, 3.463867758, -1.2835018992}, {1, 0}], Text3DBox["11", {0.9748031620999998, -3.469536936, 1.28061061842}, {1, 0}], Text3DBox["12", {0.22312685107999997`, 3.9325198059999997`, -0.23965505132}, {1, 0}], Text3DBox["13", {-3.2255853044, -0.71140624996, 3.0388683806}, {1, 0}], Text3DBox["14", {-0.420682010134, 0.26631908517999997`, -4.0460923386}, {1, 0}], Text3DBox["15", {-0.776400252922, -0.23545985960000002`, 4.0324863114}, {1, 0}], Text3DBox["16", {2.0117903046, 0.73508451674, -3.0022076961999997`}, {1, 0}], Text3DBox[ "17", {-5.8097856093999996`, -3.7087762475999995`, -1.87804749332}, {1, 0}], Text3DBox["18", {-7.189285589399999, -1.4052947398999998`, 0.147149184168}, {1, 0}], Text3DBox["19", {-5.1735148652, -0.7741829476800001, -4.8494148612}, {1, 0}], Text3DBox["20", {-6.501614298, 1.58052903188, -2.8806983144}, {1, 0}], Text3DBox["21", {5.272701490199999, -1.6203455587, 2.7236620838}, {1, 0}], Text3DBox["22", {4.0918117128, 0.6597978328999999, 4.8690680116000005`}, {1, 0}], Text3DBox["23", {5.9373181244, 1.3903659045, -0.14717186088}, {1, 0}], Text3DBox["24", {4.6626979374, 3.7238940555999998`, 1.9107019585999998`}, { 1, 0}], Text3DBox[ "25", {-1.7371237232399999`, -5.5127086872, -0.9708089379799999}, {1, 0}], Text3DBox["26", {-3.7554644747999997`, 4.70541774, -0.8879066583599999}, { 1, 0}], Text3DBox["27", {2.5125676946, -4.719779657599999, 0.8804611379199999}, {1, 0}], Text3DBox["28", {0.53351434658, 5.5215903994, 0.9714703420799999}, {1, 0}], Text3DBox["29", {-4.8777727462, 0.073984662626, 3.9000165187999998`}, {1, 0}], Text3DBox["30", {-0.640710367218, -0.87622815168, -5.6996025886}, {1, 0}], Text3DBox["31", {-0.537678726246, 0.94945503418, 5.6533043016}, {1, 0}], Text3DBox["32", { 3.6700248696, -0.06529948192999999, -3.8376555608}, {1, 0}]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{731., Automatic}, SphericalRegion->True, ViewPoint->{-0.5200736420903194, -3.1432564841919057`, -1.1399395077759393`}, ViewVertical->{-0.1124079121915735, -1.0080641080679353`, 0.668930604695118}]], "Output", CellChangeTimes->{ 3.572874986160866*^9, 3.5728752425473166`*^9, 3.5728753810131598`*^9, 3.572875476282527*^9, {3.5728755889771247`*^9, 3.572875618336376*^9}, 3.5728756513304343`*^9, 3.5728756885364995`*^9, 3.573024100221286*^9, 3.580056258281025*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {476.37, 150.34}], LineBox[{{473.85806653864745`, 150.28664706439608`}, {424.345, 149.235}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {372.32, 148.13}], LineBox[{{424.345, 149.235}, {374.83193346135255`, 148.18335293560392`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {476.37, 150.34}], LineBox[{{478.5459380265886, 149.08383522002651`}, {519.45, 125.47}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {562.53, 100.6}], LineBox[{{519.45, 125.47}, {560.3540619734114, 101.8561647799735}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {476.37, 150.34}], LineBox[{{475.7454791710834, 147.90635458945857`}, {468.665, 120.315}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {460.96000000000004`, 90.29}], LineBox[{{468.665, 120.315}, {461.58452082891665`, 92.72364541054144}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {476.37, 150.34}], LineBox[{{478.28314215069975`, 151.96866305944974`}, {499.975, 170.435}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {523.58, 190.53}], LineBox[{{499.975, 170.435}, {521.6668578493003, 188.90133694055027`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {372.32, 148.13}], LineBox[{{370.1440619734114, 146.8738352200265}, {329.24, 123.25999999999999`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {286.16, 98.39}], LineBox[{{329.24, 123.25999999999999`}, {288.3359380265886, 99.64616477997349}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {372.32, 148.13}], LineBox[{{372.9963628491034, 145.71025010665298`}, {380.66499999999996`, 118.275}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {389.01, 88.42}], LineBox[{{380.66499999999996`, 118.275}, {388.3336371508966, 90.83974989334702}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {372.32, 148.13}], LineBox[{{373.145816683897, 150.5029060357708}, {382.51, 177.41}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {392.7, 206.69}], LineBox[{{382.51, 177.41}, {391.874183316103, 204.3170939642292}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {476.37, -148.13}], LineBox[{{473.85806653864745`, -148.18335293560392`}, { 424.345, -149.235}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {372.32, -150.34}], LineBox[{{424.345, -149.235}, { 374.83193346135255`, -150.28664706439608`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {476.37, -148.13}], LineBox[{{478.5459380265886, -146.8738352200265}, { 519.45, -123.25999999999999`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {562.53, -98.39}], LineBox[{{519.45, -123.25999999999999`}, { 560.3540619734114, -99.64616477997349}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {476.37, -148.13}], LineBox[{{475.6936371508966, -145.71025010665298`}, { 468.025, -118.275}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {459.68, -88.42}], LineBox[{{468.025, -118.275}, { 460.3563628491034, -90.83974989334702}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {476.37, -148.13}], LineBox[{{475.544183316103, -150.5029060357708}, {466.18, -177.41}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {455.99, -206.69}], LineBox[{{466.18, -177.41}, {456.815816683897, -204.3170939642292}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {372.32, -150.34}], LineBox[{{370.1440619734114, -149.08383522002651`}, {329.24, -125.47}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {286.16, -100.6}], LineBox[{{329.24, -125.47}, { 288.3359380265886, -101.85616477997348`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {372.32, -150.34}], LineBox[{{372.9445208289166, -147.90635458945857`}, { 380.025, -120.315}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {387.73, -90.29}], LineBox[{{380.025, -120.315}, { 387.1054791710834, -92.72364541054144}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {372.32, -150.34}], LineBox[{{370.40685784930025`, -151.96866305944974`}, { 348.71500000000003`, -170.435}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {325.11, -190.53}], LineBox[{{348.71500000000003`, -170.435}, { 327.02314215069975`, -188.90133694055027`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {562.53, 100.6}], LineBox[{{{562.8416713269245, 95.03564581609211}, {521.9375, 71.417}}, {{ 557.8666713269246, 103.6516458160921}, {516.9625000000001, 80.03299999999999}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {476.37, 50.849999999999994`}], LineBox[{{{521.9375, 71.417}, {481.03332867307546`, 47.798354183907875`}}, {{516.9625000000001, 80.03299999999999}, { 476.05832867307544`, 56.414354183907875`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {562.53, 100.6}], LineBox[{{564.7058286730754, 99.3436458160921}, {605.61, 75.725}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {648.69, 50.849999999999994`}], LineBox[{{605.61, 75.725}, {646.5141713269246, 52.106354183907875`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {286.16, 98.39}], LineBox[{{{286.4716713269246, 92.8256458160921}, {245.56750000000002`, 69.207}}, {{281.49667132692457`, 101.44164581609212`}, {240.5925, 77.82300000000001}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {200., 48.64}], LineBox[{{{245.56750000000002`, 69.207}, {204.66332867307545`, 45.58835418390788}}, {{240.5925, 77.82300000000001}, { 199.68832867307543`, 54.20435418390788}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {286.16, 98.39}], LineBox[{{288.33582867307547`, 97.13364581609211}, {329.24, 73.515}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {372.32, 48.64}], LineBox[{{329.24, 73.515}, {370.14417132692455`, 49.89635418390788}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {562.53, -98.39}], LineBox[{{{557.8666713269246, -101.4416458160921}, { 516.9625000000001, -77.823}}, {{ 562.8416713269245, -92.82564581609212}, { 521.9375, -69.20700000000001}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {476.37, -48.64}], LineBox[{{{516.9625000000001, -77.823}, { 476.05832867307544`, -54.20435418390788}}, {{ 521.9375, -69.20700000000001}, { 481.03332867307546`, -45.58835418390788}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {562.53, -98.39}], LineBox[{{564.7058286730754, -97.13364581609211}, {605.61, -73.515}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {648.69, -48.64}], LineBox[{{605.61, -73.515}, {646.5141713269246, -49.89635418390788}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {286.16, -100.6}], LineBox[{{{281.49667132692457`, -103.65164581609211`}, { 240.5925, -80.033}}, {{286.4716713269246, -95.0356458160921}, { 245.56750000000002`, -71.41699999999999}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {200., -50.849999999999994`}], LineBox[{{{240.5925, -80.033}, { 199.68832867307543`, -56.414354183907875`}}, {{ 245.56750000000002`, -71.41699999999999}, { 204.66332867307545`, -47.798354183907875`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {286.16, -100.6}], LineBox[{{288.33582867307547`, -99.3436458160921}, {329.24, -75.725}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {372.32, -50.849999999999994`}], LineBox[{{329.24, -75.725}, { 370.14417132692455`, -52.106354183907875`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {476.37, 50.849999999999994`}], LineBox[{{476.37, 48.33749999999998}, {476.37, 1.1049999999999969`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {476.37, -48.64}], LineBox[{{476.37, 1.1049999999999969`}, { 476.37, -46.12749999999998}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {476.37, 50.849999999999994`}], LineBox[{{474.1940460901181, 52.10613726641227}, {449.52, 66.35}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {422.67, 81.85}], LineBox[{{449.52, 66.35}, {424.8459539098819, 80.59386273358771}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {200., 48.64}], LineBox[{{200., 46.12749999999998}, {200., -1.1049999999999969`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {200., -50.849999999999994`}], LineBox[{{200., -1.1049999999999969`}, {200., -48.33749999999998}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {200., 48.64}], LineBox[{{197.8241473945536, 49.89631273549709}, {173.155, 64.14}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {146.31, 79.64}], LineBox[{{173.155, 64.14}, {148.4858526054464, 78.38368726450291}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {476.37, -48.64}], LineBox[{{474.1940460901181, -49.896137266412275`}, {449.52, -64.14}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {422.67, -79.64}], LineBox[{{449.52, -64.14}, {424.8459539098819, -78.38386273358772}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {200., -50.849999999999994`}], LineBox[{{197.8241473945536, -52.106312735497085`}, {173.155, -66.35}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {146.31, -81.85}], LineBox[{{173.155, -66.35}, {148.4858526054464, -80.5936872645029}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {648.69, 50.849999999999994`}], LineBox[{{{653.6645000000001, 48.33749999999998}, {653.6645000000001, 1.1049999999999969`}}, {{643.7155, 48.33749999999998}, {643.7155, 1.1049999999999969`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {648.69, -48.64}], LineBox[{{{653.6645000000001, 1.1049999999999969`}, { 653.6645000000001, -46.12749999999998}}, {{643.7155, 1.1049999999999969`}, {643.7155, -46.12749999999998}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {648.69, 50.849999999999994`}], LineBox[{{650.8658526054464, 52.10631273549708}, {675.5350000000001, 66.35}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {702.38, 81.85}], LineBox[{{675.5350000000001, 66.35}, {700.2041473945536, 80.5936872645029}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {372.32, 48.64}], LineBox[{{{377.29449999999997`, 46.12749999999998}, { 377.29449999999997`, -1.1049999999999969`}}, {{367.3455, 46.12749999999998}, {367.3455, -1.1049999999999969`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {372.32, -50.849999999999994`}], LineBox[{{{377.29449999999997`, -1.1049999999999969`}, { 377.29449999999997`, -48.33749999999998}}, {{ 367.3455, -1.1049999999999969`}, {367.3455, -48.33749999999998}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {372.32, 48.64}], LineBox[{{374.4959539098819, 49.896137266412275`}, {399.17, 64.14}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {426.02000000000004`, 79.64}], LineBox[{{399.17, 64.14}, {423.8440460901181, 78.38386273358772}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {648.69, -48.64}], LineBox[{{650.8658526054464, -49.896312735497084`}, { 675.5350000000001, -64.14}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {702.38, -79.64}], LineBox[{{675.5350000000001, -64.14}, { 700.2041473945536, -78.38368726450291}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {372.32, -50.849999999999994`}], LineBox[{{374.4959539098819, -52.10613726641227}, {399.17, -66.35}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.005683416401695088], FontWeight->Plain], {426.02000000000004`, -81.85}], LineBox[{{399.17, -66.35}, { 423.8440460901181, -80.59386273358771}}]}}}, {}, {}}, ImageSize->Large, PlotRange->{{129.6279, 719.0621}, {-219.0914, 219.0914}}]], "Output", CellChangeTimes->{ 3.572874986160866*^9, 3.5728752425473166`*^9, 3.5728753810131598`*^9, 3.572875476282527*^9, {3.5728755889771247`*^9, 3.572875618336376*^9}, 3.5728756513304343`*^9, 3.5728756885364995`*^9, 3.573024100221286*^9, 3.58005625836403*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32"}, {"0.`", "3.0221178010351606`", "10.407400784298869`", "10.816712383906644`", "2.818666108559831`", "4.86209723657143`", "7.886122344173572`", "8.830130428853726`", "4.737639996175744`", "6.372175171373774`", "7.0636179484147625`", "8.273508360276875`", "4.761202715569509`", "6.407489072619514`", "7.0968716733236255`", "8.29696663337811`", "2.0219934012230794`", "2.022034906876643`", "4.115023803770261`", "4.139989907682241`", "11.435172154327448`", "11.55411198106285`", "11.996685640502912`", "12.02788088885395`", "5.230360230782798`", "6.890119625891358`", "8.72543618425637`", "9.821485376831104`", "5.2727188482145335`", "6.939655909996976`", "8.766478683749707`", "9.86035743455248`"}, {"3.0221178010351606`", "0.`", "10.857307394274386`", "10.410123663733229`", "4.8955051996110805`", "2.823223154237074`", "8.850364383211186`", "7.902708094391781`", "6.399307027937518`", "4.732393338354782`", "8.281377312011857`", "7.100258589832634`", "6.426222200025711`", "4.770789082064529`", "8.300869875943128`", "7.121495141341124`", "4.095823162293093`", "4.1320556909869595`", "2.0218848821628326`", "2.0219814547057924`", "11.990531744586855`", "12.13366460346993`", "11.466478313490484`", "11.508313205739585`", "6.897976944972827`", "5.217742195541044`", "9.842990926336942`", "8.75433687918583`", "6.955599359806971`", "5.273688478911312`", "9.854305850523527`", "8.793040922798989`"}, {"10.407400784298869`", "10.857307394274386`", "0.`", "3.011689546532486`", "7.901641899052131`", "8.846553559039705`", "2.8245273318189104`", "4.8849755319682195`", "7.08821394300738`", "8.316623600365523`", "4.746244050030266`", "6.407891936961277`", "7.146025328505427`", "8.306255608246623`", "4.781943259172658`", "6.3895381111535885`", "11.443004054156264`", "11.525401196500404`", "12.035412088828226`", "12.093067381899631`", "2.0219517946061103`", "2.02199222448873`", "4.087428977821034`", "4.1230034292504545`", "8.739317320974337`", "9.886815568271157`", "5.222627815843638`", "6.92607525251499`", "8.823479944105177`", "9.869393890664368`", "5.272483581918088`", "6.876987477845463`"}, {"10.816712383906644`", "10.410123663733229`", "3.011689546532486`", "0.`", "8.830130204017495`", "7.88837246766259`", "4.8581698848376265`", "2.818654188648008`", "8.28187860538968`", "7.088968631472623`", "6.406025832943992`", "4.722616192697521`", "8.29701881751167`", "7.119148727604243`", "6.367266835346449`", "4.761205510833244`", "11.976291657113858`", "12.046484310320428`", "11.484798168948235`", "11.514606609880197`", "4.104043065867847`", "4.130142168549149`", "2.022068293971619`", "2.0218783375975766`", "9.833525562388294`", "8.749537929062038`", "6.934970206008805`", "5.212525384385801`", "9.865231692493287`", "8.792652593030917`", "6.850062441926329`", "5.2542362734968435`"}, {"2.818666108559831`", "4.8955051996110805`", "7.901641899052131`", "8.830130204017495`", "0.`", "5.243184590294024`", "5.222508069295701`", "7.404783999596536`", "2.6496848497462797`", "6.236008348851673`", "4.55383150206036`", "7.267034083531264`", "2.6900168179744792`", "6.271171765589236`", "4.595614896831918`", "7.292949071113701`", "3.917667434707172`", "3.9528733158583553`", "6.1590366092731506`", "6.199106417141399`", "8.893863772180135`", "8.989457601518708`", "10.078127825020076`", "10.101731340576722`", "4.073384204363933`", "7.200821323481973`", "6.397458215901874`", "8.730098463580632`", "4.119171694172623`", "7.246497696695282`", "6.448816263484979`", "8.766290221248548`"}, {"4.86209723657143`", "2.823223154237074`", "8.846553559039705`", "7.88837246766259`", "5.243184590294024`", "0.`", "7.3929997298539405`", "5.224013060105284`", "6.221804642863451`", "2.6364688549736996`", "7.251389848969347`", "4.583736443781133`", "6.261798672115283`", "2.677316263180848`", "7.264948685365877`", "4.600515666265348`", "6.102151394385111`", "6.171526365562179`", "3.9403833157576447`", "3.964854334113732`", "10.040896396460397`", "10.189199620648969`", "8.895653097269316`", "8.945779201485559`", "7.16241114488791`", "4.057661586346193`", "8.733088856704104`", "6.425187615426775`", "7.239882968767766`", "4.102134395418422`", "8.728756290926752`", "6.452833928004665`"}, {"7.886122344173572`", "8.850364383211186`", "2.8245273318189104`", "4.8581698848376265`", "5.222508069295701`", "7.3929997298539405`", "0.`", "5.237635215871591`", "4.583651211490231`", "7.270926536290609`", "2.6539980026527696`", "6.221831446488333`", "4.618697623927047`", "7.292826944169962`", "2.6770865812711646`", "6.242410071718494`", "8.887592853000879`", "8.948550917051046`", "10.097868820803944`", "10.144719643174998`", "3.9396355511285113`", "3.965090609215388`", "6.1296544099841945`", "6.1383650133607155`", "6.427473409620101`", "8.75465564289053`", "4.066091139535294`", "7.172518275136413`", "6.470712807831577`", "8.781950024127744`", "4.093421063233775`", "7.189580247121647`"}, {"8.830130428853726`", "7.902708094391781`", "4.8849755319682195`", "2.818654188648008`", "7.404783999596536`", "5.224013060105284`", "5.237635215871591`", "0.`", "7.2752104488158285`", "4.570024221990215`", "6.253736169587233`", "2.61897867728134`", "7.293013612893059`", "4.617957639757361`", "6.221143475983307`", "2.690078229239949`", "10.054190785751716`", "10.12402966833255`", "8.933937628421425`", "8.95609572604522`", "6.1172049403723685`", "6.217702658079481`", "3.9185905606342204`", "3.95318134314158`", "8.739407947870731`", "6.410237795198654`", "7.2259479514770435`", "4.04130181063194`", "8.779032856076865`", "6.470921932069249`", "7.148555059683628`", "4.11104958478584`"}, {"4.737639996175744`", "6.399307027937518`", "7.08821394300738`", "8.28187860538968`", "2.6496848497462797`", "6.221804642863451`", "4.583651211490231`", "7.2752104488158285`", "0.`", "7.5931199248043155`", "2.6504427494818175`", "8.04898085226096`", "4.625860196503804`", "6.088863682015024`", "5.328059862239587`", "6.644019028373303`", "4.880723280736467`", "6.296314499358055`", "7.073370634818753`", "8.122272720798643`", "7.50274752279304`", "8.534004822179499`", "9.09103198032565`", "9.919330220985358`", "2.0220887968597374`", "9.01809682005235`", "4.06286322676751`", "9.68006130823261`", "6.42696683545869`", "6.733102767778615`", "7.335300839503277`", "7.588496023846063`"}, {"6.372175171373774`", "4.732393338354782`", "8.316623600365523`", "7.088968631472623`", "6.236008348851673`", "2.6364688549736996`", "7.270926536290609`", "4.570024221990215`", "7.5931199248043155`", "0.`", "8.048964458073936`", "2.688190024738817`", "6.094953702475132`", "4.588647117176386`", "6.633113988679178`", "5.31211161358752`", "8.047558013318481`", "7.110197912895933`", "6.281948266060087`", "4.9518917822383`", "9.893847011976513`", "9.242402638352615`", "8.482890433063472`", "7.582616823491367`", "8.994427853829162`", "2.021955300556126`", "9.692866433396881`", "4.103976110394916`", "6.743920444727152`", "6.387418756562619`", "7.56545794868787`", "7.317525844733258`"}, {"7.0636179484147625`", "8.281377312011857`", "4.746244050030266`", "6.406025832943992`", "4.55383150206036`", "7.251389848969347`", "2.6539980026527696`", "6.253736169587233`", "2.6504427494818175`", "8.048964458073936`", "0.`", "7.593857319895224`", "5.323722241913821`", "6.654153850733948`", "4.593341677525724`", "6.090707398208867`", "7.487656596922672`", "8.496950971346438`", "9.090872349118378`", "9.935616556208046`", "4.896308438027654`", "6.296361997332391`", "7.0911052155744665`", "8.108207718205437`", "4.074062868350458`", "9.690602821860521`", "2.021867015180063`", "9.007256757222795`", "7.3260137423627665`", "7.619613561703585`", "6.398088897632813`", "6.711907432140248`"}, {"8.273508360276875`", "7.100258589832634`", "6.407891936961277`", "4.722616192697521`", "7.267034083531264`", "4.583736443781133`", "6.221831446488333`", "2.61897867728134`", "8.04898085226096`", "2.688190024738817`", "7.593857319895224`", "0.`", "6.6489383091008`", "5.323953643403958`", "6.0516362041643585`", "4.588529883818645`", "9.872677849934155`", "9.14252371234528`", "8.516259632619084`", "7.597967730988047`", "8.069310146339928`", "7.1955877457038735`", "6.254844642955736`", "4.937342544763386`", "9.674167127399498`", "4.104484169877987`", "9.019893883033655`", "2.0219570882463596`", "7.618684326223476`", "7.326752266185772`", "6.648644259887211`", "6.38821357464202`"}, {"4.761202715569509`", "6.426222200025711`", "7.146025328505427`", "8.29701881751167`", "2.6900168179744792`", "6.261798672115283`", "4.618697623927047`", "7.293013612893059`", "4.625860196503804`", "6.094953702475132`", "5.323722241913821`", "6.6489383091008`", "0.`", "7.682453886211479`", "2.6855742356686547`", "8.12508701329295`", "6.311765191317004`", "4.9552437979168715`", "8.125477400773313`", "7.143290779438007`", "8.552567107002893`", "7.666428792696891`", "9.926081696979335`", "9.119740170591026`", "6.4300493910677705`", "6.711357260646259`", "7.324764777128456`", "7.566717390428117`", "2.0219145244890115`", "9.114253649076781`", "4.101045862100769`", "9.75978868337393`"}, {"6.407489072619514`", "4.770789082064529`", "8.306255608246623`", "7.119148727604243`", "6.271171765589236`", "2.677316263180848`", "7.292826944169962`", "4.617957639757361`", "6.088863682015024`", "4.588647117176386`", "6.654153850733948`", "5.323953643403958`", "7.682453886211479`", "0.`", "8.101959675406471`", "2.688188560799185`", "7.038766863553322`", "8.13581966747769`", "4.93126674434643`", "6.32953619985363`", "9.04453946312064`", "9.999875458934689`", "7.5424948030702765`", "8.560313935027153`", "6.677390865605646`", "6.3875275142062256`", "7.598425077612182`", "7.328321944878142`", "9.112809464335095`", "2.0218612250183168`", "9.724127628755197`", "4.109415960972412`"}, {"7.0968716733236255`", "8.300869875943128`", "4.781943259172658`", "6.367266835346449`", "4.595614896831918`", "7.264948685365877`", "2.6770865812711646`", "6.221143475983307`", "5.328059862239587`", "6.633113988679178`", "4.593341677525724`", "6.0516362041643585`", "2.6855742356686547`", "8.101959675406471`", "0.`", "7.629081383237655`", "8.504898866811669`", "7.588771743716402`", "9.925371928495798`", "9.157948088209205`", "6.342125917779151`", "5.020044125332844`", "8.073838387180503`", "7.054235705557373`", "7.33521016244892`", "7.582701502048346`", "6.392315457235622`", "6.650512965709676`", "4.11516226738443`", "9.754104269830249`", "2.0218957020964656`", "9.040950393231858`"}, {"8.29696663337811`", "7.121495141341124`", "6.3895381111535885`", "4.761205510833244`", "7.292949071113701`", "4.600515666265348`", "6.242410071718494`", "2.690078229239949`", "6.644019028373303`", "5.31211161358752`", "6.090707398208867`", "4.588529883818645`", "8.12508701329295`", "2.688188560799185`", "7.629081383237655`", "0.`", "9.065797506730702`", "9.957884801970945`", "7.570909652924061`", "8.556143926186408`", "6.997655131411931`", "8.141814196574149`", "4.897998773185818`", "6.332217227278679`", "7.564116420457325`", "7.314030521733252`", "6.7142712508715325`", "6.394220478268444`", "9.774652482937206`", "4.1119371997820355`", "9.025720746957003`", "2.0219618078372346`"}, {"2.0219934012230794`", "4.095823162293093`", "11.443004054156264`", "11.976291657113858`", "3.917667434707172`", "6.102151394385111`", "8.887592853000879`", "10.054190785751716`", "4.880723280736467`", "8.047558013318481`", "7.487656596922672`", "9.872677849934155`", "6.311765191317004`", "7.038766863553322`", "8.504898866811669`", "9.065797506730702`", "0.`", "3.3631040474008973`", "4.224417395424165`", "5.427769886695399`", "12.180262480229956`", "12.753416666311287`", "12.922524028801627`", "13.389253970385802`", "4.545748440236981`", "8.717756285770067`", "8.825704633640134`", "11.55668095362369`", "6.968784098338846`", "7.024738494869361`", "10.306089923962347`", "10.343200347951694`"}, {"2.022034906876643`", "4.1320556909869595`", "11.525401196500404`", "12.046484310320428`", "3.9528733158583553`", "6.171526365562179`", "8.948550917051046`", "10.12402966833255`", "6.296314499358055`", "7.110197912895933`", "8.496950971346438`", "9.14252371234528`", "4.9552437979168715`", "8.13581966747769`", "7.588771743716402`", "9.957884801970945`", "3.3631040474008973`", "0.`", "5.424692246227905`", "4.307655496407157`", "12.727363731297771`", "12.402591708541994`", "13.424234368311403`", "13.034117139554489`", "6.917134429238782`", "7.085426949466752`", "10.278594934884724`", "10.406867057650407`", "4.649233528912493`", "8.7947856817385`", "8.950221479813212`", "11.644693202993729`"}, {"4.115023803770261`", "2.0218848821628326`", "12.035412088828226`", "11.484798168948235`", "6.1590366092731506`", "3.9403833157576447`", "10.097868820803944`", "8.933937628421425`", "7.073370634818753`", "6.281948266060087`", "9.090872349118378`", "8.516259632619084`", "8.125477400773313`", "4.93126674434643`", "9.925371928495798`", "7.570909652924061`", "4.224417395424165`", "5.424692246227905`", "0.`", "3.3443028349315456`", "12.930232856488127`", "13.503758248168282`", "12.257527103388997`", "12.754722985734006`", "7.021822710113947`", "6.908721867849749`", "10.367018736294666`", "10.299982961717811`", "8.7954193288013`", "4.612976155629556`", "11.60900574607441`", "8.929410265574434`"}, {"4.139989907682241`", "2.0219814547057924`", "12.093067381899631`", "11.514606609880197`", "6.199106417141399`", "3.964854334113732`", "10.144719643174998`", "8.95609572604522`", "8.122272720798643`", "4.9518917822383`", "9.935616556208046`", "7.597967730988047`", "7.143290779438007`", "6.32953619985363`", "9.157948088209205`", "8.556143926186408`", "5.427769886695399`", "4.307655496407157`", "3.3443028349315456`", "0.`", "13.427172669545472`", "13.157784718358661`", "12.737164860994087`", "12.336668832813535`", "8.755687820298192`", "4.612752635247193`", "11.623067022272021`", "8.936677408652255`", "7.13334640761695`", "6.952127160224602`", "10.430531268564446`", "10.348273383717785`"}, {"11.435172154327448`", "11.990531744586855`", "2.0219517946061103`", "4.104043065867847`", "8.893863772180135`", "10.040896396460397`", "3.9396355511285113`", "6.1172049403723685`", "7.50274752279304`", "9.893847011976513`", "4.896308438027654`", "8.069310146339928`", "8.552567107002893`", "9.04453946312064`", "6.342125917779151`", "6.997655131411931`", "12.180262480229956`", "12.727363731297771`", "12.930232856488127`", "13.427172669545472`", "0.`", "3.3460904272993504`", "4.21281216327362`", "5.440028083994349`", "8.828207993577044`", "11.600279771717208`", "4.541169456200708`", "8.748561019482382`", "10.35792893774923`", "10.318601564755944`", "6.996227331294314`", "6.930918401224681`"}, {"11.55411198106285`", "12.13366460346993`", "2.02199222448873`", "4.130142168549149`", "8.989457601518708`", "10.189199620648969`", "3.965090609215388`", "6.217702658079481`", "8.534004822179499`", "9.242402638352615`", "6.296361997332391`", "7.1955877457038735`", "7.666428792696891`", "9.999875458934689`", "5.020044125332844`", "8.141814196574149`", "12.753416666311287`", "12.402591708541994`", "13.503758248168282`", "13.157784718358661`", "3.3460904272993504`", "0.`", "5.394653471795591`", "4.297269650248312`", "10.304391677553589`", "10.539902340522842`", "6.880614103267389`", "7.175637581397948`", "9.040778906338696`", "11.681307260691959`", "4.704371326545626`", "8.747039820605378`"}, {"11.996685640502912`", "11.466478313490484`", "4.087428977821034`", "2.022068293971619`", "10.078127825020076`", "8.895653097269316`", "6.1296544099841945`", "3.9185905606342204`", "9.09103198032565`", "8.482890433063472`", "7.0911052155744665`", "6.254844642955736`", "9.926081696979335`", "7.5424948030702765`", "8.073838387180503`", "4.897998773185818`", "12.922524028801627`", "13.424234368311403`", "12.257527103388997`", "12.737164860994087`", "4.21281216327362`", "5.394653471795591`", "0.`", "3.362269309556464`", "10.35508930556159`", "10.270749302149477`", "7.079464942825007`", "6.893436840552517`", "11.622339863121796`", "8.901538880338496`", "8.70433859192878`", "4.56938183564114`"}, {"12.02788088885395`", "11.508313205739585`", "4.1230034292504545`", "2.0218783375975766`", "10.101731340576722`", "8.945779201485559`", "6.1383650133607155`", "3.95318134314158`", "9.919330220985358`", "7.582616823491367`", "8.108207718205437`", "4.937342544763386`", "9.119740170591026`", "8.560313935027153`", "7.054235705557373`", "6.332217227278679`", "13.389253970385802`", "13.034117139554489`", "12.754722985734006`", "12.336668832813535`", "5.440028083994349`", "4.297269650248312`", "3.362269309556464`", "0.`", "11.600674659837964`", "8.925304327144136`", "8.773829379728285`", "4.600437511876431`", "10.406718592379375`", "10.353936414163204`", "6.982012720211913`", "6.95607659929339`"}, {"5.230360230782798`", "6.897976944972827`", "8.739317320974337`", "9.833525562388294`", "4.073384204363933`", "7.16241114488791`", "6.427473409620101`", "8.739407947870731`", "2.0220887968597374`", "8.994427853829162`", "4.074062868350458`", "9.674167127399498`", "6.4300493910677705`", "6.677390865605646`", "7.33521016244892`", "7.564116420457325`", "4.545748440236981`", "6.917134429238782`", "7.021822710113947`", "8.755687820298192`", "8.828207993577044`", "10.304391677553589`", "10.35508930556159`", "11.600674659837964`", "0.`", "10.41588593733711`", "4.702745420152802`", "11.431710387269609`", "8.049829780860323`", "6.712716543521204`", "9.331511371343485`", "8.193310229295994`"}, {"6.890119625891358`", "5.217742195541044`", "9.886815568271157`", "8.749537929062038`", "7.200821323481973`", "4.057661586346193`", "8.75465564289053`", "6.410237795198654`", "9.01809682005235`", "2.021955300556126`", "9.690602821860521`", "4.104484169877987`", "6.711357260646259`", "6.3875275142062256`", "7.582701502048346`", "7.314030521733252`", "8.717756285770067`", "7.085426949466752`", "6.908721867849749`", "4.612752635247193`", "11.600279771717208`", "10.539902340522842`", "10.270749302149477`", "8.925304327144136`", "10.41588593733711`", "0.`", "11.456426053673075`", "4.745393552695445`", "6.755291004585426`", "8.000555089235707`", "8.200539116046503`", "9.305839747323366`"}, {"8.72543618425637`", "9.842990926336942`", "5.222627815843638`", "6.934970206008805`", "6.397458215901874`", "8.733088856704104`", "4.066091139535294`", "7.2259479514770435`", "4.06286322676751`", "9.692866433396881`", "2.021867015180063`", "9.019893883033655`", "7.324764777128456`", "7.598425077612182`", "6.392315457235622`", "6.7142712508715325`", "8.825704633640134`", "10.278594934884724`", "10.367018736294666`", "11.623067022272021`", "4.541169456200708`", "6.880614103267389`", "7.079464942825007`", "8.773829379728285`", "4.702745420152802`", "11.456426053673075`", "0.`", "10.431231733307778`", "9.31209014598748`", "8.247016997609915`", "8.014003811045551`", "6.727891051466612`"}, {"9.821485376831104`", "8.75433687918583`", "6.92607525251499`", "5.212525384385801`", "8.730098463580632`", "6.425187615426775`", "7.172518275136413`", "4.04130181063194`", "9.68006130823261`", "4.103976110394916`", "9.007256757222795`", "2.0219570882463596`", "7.566717390428117`", "7.328321944878142`", "6.650512965709676`", "6.394220478268444`", "11.55668095362369`", "10.406867057650407`", "10.299982961717811`", "8.936677408652255`", "8.748561019482382`", "7.175637581397948`", "6.893436840552517`", "4.600437511876431`", "11.431710387269609`", "4.745393552695445`", "10.431231733307778`", "0.`", "8.21795710459733`", "9.317408434617903`", "6.631096864145521`", "8.011162759354855`"}, {"5.2727188482145335`", "6.955599359806971`", "8.823479944105177`", "9.865231692493287`", "4.119171694172623`", "7.239882968767766`", "6.470712807831577`", "8.779032856076865`", "6.42696683545869`", "6.743920444727152`", "7.3260137423627665`", "7.618684326223476`", "2.0219145244890115`", "9.112809464335095`", "4.11516226738443`", "9.774652482937206`", "6.968784098338846`", "4.649233528912493`", "8.7954193288013`", "7.13334640761695`", "10.35792893774923`", "9.040778906338696`", "11.622339863121796`", "10.406718592379375`", "8.049829780860323`", "6.755291004585426`", "9.31209014598748`", "8.21795710459733`", "0.`", "10.536047124183485`", "4.762025044329892`", "11.530646701942707`"}, {"6.939655909996976`", "5.273688478911312`", "9.869393890664368`", "8.792652593030917`", "7.246497696695282`", "4.102134395418422`", "8.781950024127744`", "6.470921932069249`", "6.733102767778615`", "6.387418756562619`", "7.619613561703585`", "7.326752266185772`", "9.114253649076781`", "2.0218612250183168`", "9.754104269830249`", "4.1119371997820355`", "7.024738494869361`", "8.7947856817385`", "4.612976155629556`", "6.952127160224602`", "10.318601564755944`", "11.681307260691959`", "8.901538880338496`", "10.353936414163204`", "6.712716543521204`", "8.000555089235707`", "8.247016997609915`", "9.317408434617903`", "10.536047124183485`", "0.`", "11.499227342379308`", "4.765174742199922`"}, {"8.766478683749707`", "9.854305850523527`", "5.272483581918088`", "6.850062441926329`", "6.448816263484979`", "8.728756290926752`", "4.093421063233775`", "7.148555059683628`", "7.335300839503277`", "7.56545794868787`", "6.398088897632813`", "6.648644259887211`", "4.101045862100769`", "9.724127628755197`", "2.0218957020964656`", "9.025720746957003`", "10.306089923962347`", "8.950221479813212`", "11.60900574607441`", "10.430531268564446`", "6.996227331294314`", "4.704371326545626`", "8.70433859192878`", "6.982012720211913`", "9.331511371343485`", "8.200539116046503`", "8.014003811045551`", "6.631096864145521`", "4.762025044329892`", "11.499227342379308`", "0.`", "10.431338139862444`"}, {"9.86035743455248`", "8.793040922798989`", "6.876987477845463`", "5.2542362734968435`", "8.766290221248548`", "6.452833928004665`", "7.189580247121647`", "4.11104958478584`", "7.588496023846063`", "7.317525844733258`", "6.711907432140248`", "6.38821357464202`", "9.75978868337393`", "4.109415960972412`", "9.040950393231858`", "2.0219618078372346`", "10.343200347951694`", "11.644693202993729`", "8.929410265574434`", "10.348273383717785`", "6.930918401224681`", "8.747039820605378`", "4.56938183564114`", "6.95607659929339`", "8.193310229295994`", "9.305839747323366`", "6.727891051466612`", "8.011162759354855`", "11.530646701942707`", "4.765174742199922`", "10.431338139862444`", "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.5728749862856665`*^9, 3.572875242656516*^9, 3.5728753812315598`*^9, 3.572875476500927*^9, {3.5728755890863247`*^9, 3.5728756184455767`*^9}, 3.572875651424034*^9, 3.5728756886456995`*^9, 3.573024100314886*^9, 3.580056258392031*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, 3.571808490989086*^9, { 3.572601938592864*^9, 3.572601945722077*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.03"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{"j", "\[Equal]", "10"}], " ", "&&", " ", RowBox[{"i", "\[Equal]", " ", "17"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"Dij", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, { 3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, { 3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, { 3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 3.5682778284359474`*^9}, 3.56882183684053*^9, {3.5688219650415554`*^9, 3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, { 3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, { 3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, { 3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, { 3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, { 3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}, { 3.571113899355363*^9, 3.571113958604267*^9}, 3.57111399989754*^9, { 3.5711140388820086`*^9, 3.571114044841219*^9}, {3.571115985874628*^9, 3.5711159997742524`*^9}, 3.5728753730883455`*^9, {3.572875468373313*^9, 3.572875469387315*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32"}, {"0.`", "3.0221178010351606`", "0", "0", "2.818666108559831`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219934012230794`", "2.022034906876643`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"3.0221178010351606`", "0.`", "0", "0", "0", "2.823223154237074`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0218848821628326`", "2.0219814547057924`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0.`", "3.011689546532486`", "0", "0", "2.8245273318189104`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219517946061103`", "2.02199222448873`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "3.011689546532486`", "0.`", "0", "0", "0", "2.818654188648008`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022068293971619`", "2.0218783375975766`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.818666108559831`", "0", "0", "0", "0.`", "0", "0", "0", "2.6496848497462797`", "0", "0", "0", "2.6900168179744792`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.823223154237074`", "0", "0", "0", "0.`", "0", "0", "0", "2.6364688549736996`", "0", "0", "0", "2.677316263180848`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.8245273318189104`", "0", "0", "0", "0.`", "0", "0", "0", "2.6539980026527696`", "0", "0", "0", "2.6770865812711646`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.818654188648008`", "0", "0", "0", "0.`", "0", "0", "0", "2.61897867728134`", "0", "0", "0", "2.690078229239949`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.6496848497462797`", "0", "0", "0", "0.`", "0", "2.6504427494818175`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220887968597374`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.6364688549736996`", "0", "0", "0", "0.`", "0", "2.688190024738817`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.021955300556126`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.6539980026527696`", "0", "2.6504427494818175`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.021867015180063`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.61897867728134`", "0", "2.688190024738817`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219570882463596`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.6900168179744792`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "2.6855742356686547`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219145244890115`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.677316263180848`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "2.688188560799185`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0218612250183168`", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.6770865812711646`", "0", "0", "0", "0", "0", "2.6855742356686547`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0218957020964656`", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.690078229239949`", "0", "0", "0", "0", "0", "2.688188560799185`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219618078372346`"}, {"2.0219934012230794`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.022034906876643`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.0218848821628326`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.0219814547057924`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.0219517946061103`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.02199222448873`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.022068293971619`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.0218783375975766`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.0220887968597374`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.021955300556126`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.021867015180063`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219570882463596`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219145244890115`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0218612250183168`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0218957020964656`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219618078372346`", "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.572874986332466*^9, 3.5728752426721163`*^9, 3.57287538124716*^9, 3.572875476516527*^9, {3.572875589101925*^9, 3.5728756184611764`*^9}, 3.5728756514552345`*^9, 3.5728756886769*^9, 3.5730241003460855`*^9, 3.5800562584170327`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "C", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708947833985987`*^9}, {3.572528557136052*^9, 3.57252856181606*^9}, 3.57252899467002*^9, 3.572529147612689*^9, { 3.572529371395082*^9, 3.572529383875104*^9}, {3.572531374906601*^9, 3.5725313995390444`*^9}}], Cell[BoxData["16"], "Output", CellChangeTimes->{ 3.5728749863636665`*^9, 3.5728752426877165`*^9, 3.57287538126276*^9, 3.5728754765321274`*^9, {3.572875589117525*^9, 3.5728756184767766`*^9}, 3.5728756514708347`*^9, 3.5728756886925*^9, 3.5730241003616858`*^9, 3.5800562584290333`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "count", " ", "H", " ", "atoms", " ", "bonded", " ", "to", " ", "each", " ", "C", " ", "atom"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.570894821930666*^9}, 3.5709437180911617`*^9, { 3.57252947817727*^9, 3.572529509876525*^9}, {3.5725312638188057`*^9, 3.572531289964452*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "2", ",", "2", ",", "2", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output", CellChangeTimes->{ 3.5728749863636665`*^9, 3.5728752427033167`*^9, 3.57287538126276*^9, 3.5728754765321274`*^9, {3.5728755891331253`*^9, 3.5728756184923763`*^9}, 3.572875651486435*^9, 3.5728756886925*^9, 3.5730241003616858`*^9, 3.580056258440034*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2547"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.255"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2557"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2577"}]}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708948169698577`*^9}, {3.570894956839703*^9, 3.5708949736409326`*^9}, {3.5708961320833673`*^9, 3.570896139696181*^9}, 3.570896314088887*^9, {3.5708963602181683`*^9, 3.5708963666609793`*^9}, { 3.570896482038782*^9, 3.570896483645585*^9}, {3.5708965159376416`*^9, 3.570896521194851*^9}, {3.5709435995777535`*^9, 3.5709436285158043`*^9}, { 3.5709436695594764`*^9, 3.5709437026783347`*^9}, {3.57094471360691*^9, 3.5709447144805117`*^9}, {3.571117678992402*^9, 3.571117755775737*^9}, { 3.571117807801828*^9, 3.5711178311706696`*^9}, {3.5711179386236577`*^9, 3.5711179514468803`*^9}, {3.5711180538922606`*^9, 3.5711181329531994`*^9}, {3.571118284803866*^9, 3.5711183600895977`*^9}, 3.571118418542901*^9, {3.5711187358786583`*^9, 3.571118760152301*^9}, { 3.5711189251069903`*^9, 3.571118931175401*^9}, {3.571119065756838*^9, 3.571119069968845*^9}, {3.5711191828038435`*^9, 3.5711191858302484`*^9}, { 3.571119378740187*^9, 3.571119441873498*^9}, {3.571119489453582*^9, 3.5711194938839893`*^9}, {3.571119574255331*^9, 3.571119584660549*^9}, { 3.5711196943599415`*^9, 3.5711197163091803`*^9}, {3.5711198294561787`*^9, 3.5711198460078077`*^9}, {3.5711199544435987`*^9, 3.571119960418409*^9}, { 3.57112005791858*^9, 3.5711200601337843`*^9}, {3.571122132488224*^9, 3.5711221772447023`*^9}, {3.5711222335764017`*^9, 3.571122265696858*^9}, { 3.5711223339157777`*^9, 3.5711223418093915`*^9}, {3.5711223939602833`*^9, 3.5711223957542863`*^9}, {3.571122528292119*^9, 3.571122529087721*^9}, { 3.5711226076026583`*^9, 3.5711226245598884`*^9}, 3.5711226547927413`*^9, { 3.571122698566418*^9, 3.571122702404025*^9}, {3.5711227857393713`*^9, 3.5711228031646023`*^9}, {3.571122843085072*^9, 3.5711228432878723`*^9}, { 3.5711232359405622`*^9, 3.571123255206596*^9}, 3.571123320991912*^9, { 3.5711233774484105`*^9, 3.5711234457765303`*^9}, {3.571123624911645*^9, 3.571123633975261*^9}, {3.571123734751438*^9, 3.5711237424110518`*^9}, { 3.5711242010206575`*^9, 3.5711242671491733`*^9}, {3.5711245724573097`*^9, 3.5711245843601303`*^9}, {3.571124620583394*^9, 3.5711246628750687`*^9}, { 3.571124751951225*^9, 3.5711247552428303`*^9}, {3.5711248069569216`*^9, 3.5711248951750765`*^9}, {3.5711250701761837`*^9, 3.5711251099562535`*^9}, 3.571125196598806*^9, 3.571135972980551*^9, {3.5711360048826065`*^9, 3.571136013634222*^9}, {3.571760985057314*^9, 3.5717610088005557`*^9}, { 3.5717610576442413`*^9, 3.571761063431852*^9}, {3.5725287590472064`*^9, 3.5725287902628613`*^9}, {3.572529030674884*^9, 3.572529042343704*^9}, { 3.572529556645407*^9, 3.5725296188271165`*^9}, {3.572529678793622*^9, 3.5725297125832815`*^9}, 3.572529766184975*^9, 3.5725298594731393`*^9, { 3.572529901374813*^9, 3.5725299376604767`*^9}, {3.572531381084212*^9, 3.5725313843134174`*^9}, {3.572537228892798*^9, 3.572537235429209*^9}, { 3.572537287814101*^9, 3.5725373101221404`*^9}, {3.5725380504682407`*^9, 3.5725382242837462`*^9}, {3.572538261053011*^9, 3.572538276590638*^9}, { 3.5725383120339003`*^9, 3.5725383418611526`*^9}, {3.5725384271465025`*^9, 3.57253845404095*^9}, {3.572538956424232*^9, 3.5725390373103743`*^9}, { 3.572539306644847*^9, 3.5725394512103014`*^9}, {3.5725395463080683`*^9, 3.572539593981752*^9}, {3.5725398474041967`*^9, 3.5725398481529984`*^9}, { 3.572541676133009*^9, 3.572541712605873*^9}, {3.5725419267942495`*^9, 3.572541927823851*^9}, {3.5725420320164337`*^9, 3.572542068317698*^9}, { 3.572542098675351*^9, 3.5725421006877546`*^9}, {3.572542267561248*^9, 3.5725423059217153`*^9}, {3.5726066153250785`*^9, 3.5726066318455076`*^9}, {3.5726084389526815`*^9, 3.5726084422286873`*^9}, {3.5726211211499004`*^9, 3.5726211269999104`*^9}, 3.572624425506504*^9, 3.5726245538167295`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.6"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}]}], "Input", CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, { 3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, { 3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, { 3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, { 3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, { 3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, { 3.5712028115629635`*^9, 3.5712028346354036`*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.5728749863792667`*^9, 3.572875242718917*^9, 3.57287538127836*^9, 3.572875476547727*^9, {3.5728755891487255`*^9, 3.5728756185079765`*^9}, 3.5728756515020347`*^9, 3.5728756887081003`*^9, 3.573024100392886*^9, 3.580056258454035*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"StandardDeviation", "::", "shlen"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The argument \[NoBreak]\\!\\({}\\)\[NoBreak] should have \ at least two elements. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/StandardDeviation\\\", ButtonNote -> \ \\\"StandardDeviation::shlen\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.5728749864572663`*^9, 3.572875242796917*^9, 3.57287538135636*^9, 3.5728754766257277`*^9, {3.572875589226725*^9, 3.572875618570377*^9}, 3.572875651564435*^9, 3.5728756887861*^9, 3.573024100455286*^9, 3.5800562585350394`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Mean", "[", RowBox[{"{", "}"}], "]"}], "\[PlusMinus]", RowBox[{"StandardDeviation", "[", RowBox[{"{", "}"}], "]"}]}]], "Output", CellChangeTimes->{ 3.5728749863792667`*^9, 3.572875242718917*^9, 3.57287538127836*^9, 3.572875476547727*^9, {3.5728755891487255`*^9, 3.5728756185079765`*^9}, 3.5728756515020347`*^9, 3.5728756887081003`*^9, 3.573024100392886*^9, 3.5800562585360394`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.6"}], ")"}], " ", "&"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CC", "]"}], " "}]}], "Input", CellChangeTimes->{{3.571152083381344*^9, 3.571152103920519*^9}, { 3.571200806148241*^9, 3.571200809159046*^9}, 3.571201865936102*^9, { 3.5712028396274123`*^9, 3.57120285544584*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.0221178010351606`", ",", "3.011689546532486`", ",", "2.818666108559831`", ",", "2.823223154237074`", ",", "2.8245273318189104`", ",", "2.818654188648008`", ",", "2.6496848497462797`", ",", "2.6364688549736996`", ",", "2.6539980026527696`", ",", "2.6504427494818175`", ",", "2.61897867728134`", ",", "2.688190024738817`", ",", "2.6900168179744792`", ",", "2.677316263180848`", ",", "2.6770865812711646`", ",", "2.6855742356686547`"}], "}"}]], "Output", CellChangeTimes->{ 3.572874986472866*^9, 3.5728752428125167`*^9, 3.5728753813719597`*^9, 3.5728754766257277`*^9, {3.5728755892423253`*^9, 3.5728756185859766`*^9}, 3.5728756515800347`*^9, 3.5728756888017*^9, 3.573024100470886*^9, 3.58005625854604*^9}], Cell[BoxData[ RowBox[{"2.746664699237584`", "\[PlusMinus]", "0.1275699566757433`"}]], "Output", CellChangeTimes->{ 3.572874986472866*^9, 3.5728752428125167`*^9, 3.5728753813719597`*^9, 3.5728754766257277`*^9, {3.5728755892423253`*^9, 3.5728756185859766`*^9}, 3.5728756515800347`*^9, 3.5728756888017*^9, 3.573024100470886*^9, 3.58005625854804*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CH", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", ">", "0"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.1"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CH", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CH", "]"}]}]}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.571202078205675*^9}, {3.5712022379343557`*^9, 3.5712022402275596`*^9}, {3.571202304764873*^9, 3.5712023101312823`*^9}, 3.571202353748959*^9, {3.5712024254310846`*^9, 3.5712024257586856`*^9}, { 3.57120276994209*^9, 3.5712027833893137`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0219934012230794`", ",", "2.022034906876643`", ",", "2.0218848821628326`", ",", "2.0219814547057924`", ",", "2.0219517946061103`", ",", "2.02199222448873`", ",", "2.022068293971619`", ",", "2.0218783375975766`", ",", "2.0220887968597374`", ",", "2.021955300556126`", ",", "2.021867015180063`", ",", "2.0219570882463596`", ",", "2.0219145244890115`", ",", "2.0218612250183168`", ",", "2.0218957020964656`"}], "}"}]], "Output", CellChangeTimes->{ 3.5728749864884663`*^9, 3.572875242828117*^9, 3.5728753813719597`*^9, 3.572875476641328*^9, {3.572875589257925*^9, 3.572875618601577*^9}, 3.5728756515956345`*^9, 3.5728756888173*^9, 3.573024100486486*^9, 3.5800562585570407`*^9}], Cell[BoxData[ RowBox[{"2.021954996538564`", "\[PlusMinus]", "0.00007229915291108167`"}]], "Output", CellChangeTimes->{ 3.5728749864884663`*^9, 3.572875242828117*^9, 3.5728753813719597`*^9, 3.572875476641328*^9, {3.572875589257925*^9, 3.572875618601577*^9}, 3.5728756515956345`*^9, 3.5728756888173*^9, 3.573024100486486*^9, 3.580056258559041*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5693"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.5712020689392586`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`"}], "}"}]], "Output", CellChangeTimes->{ 3.5728749864884663`*^9, 3.572875242828117*^9, 3.57287538138756*^9, 3.5728754766569276`*^9, {3.572875589273525*^9, 3.572875618617177*^9}, 3.5728756516112347`*^9, 3.5728756888329*^9, 3.5730241005020857`*^9, 3.5800562585700417`*^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["57.967378715381216`"], "Output", CellChangeTimes->{ 3.5728749865196667`*^9, 3.572875242859317*^9, 3.57287538140316*^9, 3.5728754766725273`*^9, {3.5728755892891254`*^9, 3.5728756186327767`*^9}, 3.572875651642435*^9, 3.5728756888641005`*^9, 3.573024100533286*^9, 3.5800562585960426`*^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["551.3629044225007`"], "Output", CellChangeTimes->{ 3.572874986535267*^9, 3.572875242874917*^9, 3.5728753814187603`*^9, 3.5728754766881275`*^9, {3.572875589304725*^9, 3.5728756186483765`*^9}, 3.572875651658035*^9, 3.5728756888641005`*^9, 3.5730241005488863`*^9, 3.5800562586070433`*^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["609.3302831378819`"], "Output", CellChangeTimes->{ 3.572874986535267*^9, 3.5728752428905168`*^9, 3.5728753814187603`*^9, 3.5728754766881275`*^9, {3.5728755893203254`*^9, 3.5728756186483765`*^9}, 3.5728756516736345`*^9, 3.5728756888797*^9, 3.5730241005488863`*^9, 3.580056258616044*^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["25.112660703532338`"], "Output", CellChangeTimes->{ 3.572874986550867*^9, 3.5728752428905168`*^9, 3.5728753814343605`*^9, 3.5728754767037277`*^9, {3.5728755893203254`*^9, 3.5728756186639767`*^9}, 3.5728756516736345`*^9, 3.5728756888953004`*^9, 3.5730241005644865`*^9, 3.5800562586260443`*^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["32.854718011848874`"], "Output", CellChangeTimes->{ 3.572874986566467*^9, 3.5728752429061165`*^9, 3.5728753814343605`*^9, 3.5728754767037277`*^9, {3.572875589335925*^9, 3.572875618679577*^9}, 3.5728756516892347`*^9, 3.5728756888953004`*^9, 3.5730241005800867`*^9, 3.5800562586360455`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"conj", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "identify", " ", "C", " ", "atoms", " ", "at", " ", "double", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"conj", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"conj", "=", RowBox[{"Take", "[", RowBox[{"conj", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nj", "=", RowBox[{"Length", "[", "conj", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, { 3.572624511540655*^9, 3.5726245129758577`*^9}, {3.5726259545431895`*^9, 3.5726259555883913`*^9}, {3.5726268385811424`*^9, 3.5726268436979513`*^9}, {3.5727156260686264`*^9, 3.5727156464110622`*^9}, 3.572767008717453*^9, 3.572767169428935*^9, {3.5727947272385855`*^9, 3.5727947348669987`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16"}], "}"}]], "Output", CellChangeTimes->{ 3.5728749865820665`*^9, 3.5728752429217167`*^9, 3.5728753814499607`*^9, 3.572875476719328*^9, {3.5728755893515253`*^9, 3.572875618679577*^9}, 3.572875651704835*^9, 3.5728756889265003`*^9, 3.5730241005956864`*^9, 3.5800562586550465`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "5", ",", "17", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "6", ",", "19", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "4", ",", "7", ",", "21", ",", "22"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "3", ",", "8", ",", "23", ",", "24"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "1", ",", "9", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "2", ",", "10", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "3", ",", "11", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "4", ",", "12", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "5", ",", "11", ",", "25"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "6", ",", "12", ",", "26"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "7", ",", "9", ",", "27"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "8", ",", "10", ",", "28"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "5", ",", "15", ",", "29"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "6", ",", "16", ",", "30"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "7", ",", "13", ",", "31"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "8", ",", "14", ",", "32"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"22", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"23", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"24", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"25", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"26", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"27", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"28", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"29", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"30", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"31", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"32", ",", "16"}], "}"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$, TableAlignments -> Left]]]], "Output", CellChangeTimes->{ 3.5728749865820665`*^9, 3.5728752429217167`*^9, 3.5728753814499607`*^9, 3.572875476719328*^9, {3.5728755893515253`*^9, 3.572875618679577*^9}, 3.572875651704835*^9, 3.5728756889265003`*^9, 3.5730241005956864`*^9, 3.5800562586570463`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl"}], "]"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"c1", "=", "20"}], ";", " ", RowBox[{"c2", "=", "21"}], ";", " ", RowBox[{"c3", "=", "51"}], ";"}], "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpo", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "nj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "nj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "=", "3"}], ";", " ", RowBox[{"c", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}]}], ";", "\n", RowBox[{"c", "=", RowBox[{"Take", "[", RowBox[{"c", ",", "P"}], "]"}]}], ";", "\n", RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", RowBox[{"nk", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rpi"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nl", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "nj"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"nb", "=", RowBox[{"Length", "[", "a", "]"}]}], "\[IndentingNewLine]", RowBox[{"cw", "=", RowBox[{"nb", "-", "bh"}]}]}], "Input", CellChangeTimes->{{3.5681343270045934`*^9, 3.568134331481801*^9}, 3.5681343823222904`*^9, {3.5681345934218616`*^9, 3.5681345986322703`*^9}, { 3.568134635479535*^9, 3.5681346521559644`*^9}, {3.5681351451792307`*^9, 3.568135145428831*^9}, {3.5681351781888885`*^9, 3.5681352349417877`*^9}, { 3.568135340163973*^9, 3.568135340335573*^9}, {3.568135523495495*^9, 3.5681355244314966`*^9}, {3.5681357674799232`*^9, 3.5681357771675406`*^9}, {3.568136284433632*^9, 3.5681362987700567`*^9}, { 3.568136395053426*^9, 3.5681363965510283`*^9}, {3.568381170343589*^9, 3.568381179844005*^9}, {3.5689533222924633`*^9, 3.568953376658559*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1.2560589005175804`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1.250844773266243`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "1.1539830542799154`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2", ",", "1.156261577118537`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "3", ",", "1.1569136659094552`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "4", ",", "1.153977094324004`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "5", ",", "1.0691424248731398`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "6", ",", "1.0625344274868498`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "7", ",", "1.0712990013263848`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "9", ",", "1.0695213747409087`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "8", ",", "1.05378933864067`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "10", ",", "1.0883950123694084`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "5", ",", "1.0893084089872396`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "6", ",", "1.082958131590424`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "7", ",", "1.0828432906355823`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "13", ",", "1.0870871178343273`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "8", ",", "1.0893391146199745`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "14", ",", "1.0883942803995925`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "1", ",", "1.1976934012230793`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "1", ",", "1.1977349068766427`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "2", ",", "1.1975848821628325`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "2", ",", "1.1976814547057923`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "3", ",", "1.1976517946061103`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "3", ",", "1.1976922244887298`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "4", ",", "1.197768293971619`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "4", ",", "1.1975783375975766`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "9", ",", "1.1970887968597372`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "10", ",", "1.1969553005561258`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "11", ",", "1.1968670151800627`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "12", ",", "1.1969570882463594`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "13", ",", "1.1969145244890114`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "14", ",", "1.1968612250183166`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "15", ",", "1.1968957020964655`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "16", ",", "1.1969618078372344`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.572874986644467*^9, 3.572875242999717*^9, 3.5728753815123606`*^9, 3.572875476781728*^9, {3.5728755894139256`*^9, 3.572875618757577*^9}, 3.572875651767235*^9, 3.5728756889889*^9, 3.5730241006580863`*^9, 3.5800562587210503`*^9}], Cell[BoxData["34"], "Output", CellChangeTimes->{ 3.572874986644467*^9, 3.572875242999717*^9, 3.5728753815123606`*^9, 3.572875476781728*^9, {3.5728755894139256`*^9, 3.572875618757577*^9}, 3.572875651767235*^9, 3.5728756889889*^9, 3.5730241006580863`*^9, 3.58005625872305*^9}], Cell[BoxData["18"], "Output", CellChangeTimes->{ 3.572874986644467*^9, 3.572875242999717*^9, 3.5728753815123606`*^9, 3.572875476781728*^9, {3.5728755894139256`*^9, 3.572875618757577*^9}, 3.572875651767235*^9, 3.5728756889889*^9, 3.5730241006580863`*^9, 3.5800562587240505`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}, {3.5713747544125347`*^9, 3.571374762618149*^9}, 3.5713830670175667`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, {3.571838766139532*^9, 3.571838773908346*^9}, 3.5718388425484667`*^9, {3.571838961763876*^9, 3.571838969236289*^9}, {3.571839027970392*^9, 3.5718390313399982`*^9}, { 3.571839741203645*^9, 3.5718397450100517`*^9}, {3.572538612521628*^9, 3.572538701894185*^9}, {3.572538746213863*^9, 3.572538844837236*^9}, 3.5725397817592816`*^9, {3.5726093687611146`*^9, 3.5726094120667906`*^9}, { 3.5726201406133776`*^9, 3.5726201439517837`*^9}, {3.5726204342214937`*^9, 3.572620455406331*^9}, {3.5726210034788933`*^9, 3.572621009968505*^9}, { 3.5730240705968337`*^9, 3.5730240732800384`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ">", "0.98"}], " ", "&&", " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "<", "1.05"}]}], ")"}], ",", RowBox[{"(", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}]}], "}"}], ")"}], ",", 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.06"}], "]"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.960530749999999, -1.9439611362, -0.92318784278}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.4852646609999995`, 0.147704763612, -3.0520964626}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.4998155512, -0.168890481798, 3.0347109834}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.946735750199999, 1.9677716838, 0.9598107326599999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.7981172882, -2.2722065423999998`, 0.85476086432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.9433942184, 1.3564642200600001`, -2.8321323562}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.9437721635999998`, -1.3552170009, 2.8417699587999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.7843222884, 2.29601709, -0.81811907718}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.8227489058799999, -3.9311969978, 0.24936824296}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.6093851479, 3.463867758, -1.2835018992}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.5748031620999998`, -3.469536936, 1.28061061842}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.8231268510799999, 3.9325198059999997`, -0.23965505132}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.6255853044, -0.71140624996, 3.0388683806}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.179317989866, 0.26631908517999997`, -4.0460923386}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.17640025292199998`, -0.23545985960000002`, 4.0324863114}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.6117903046, 0.73508451674, -3.0022076961999997`}, 0.255]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.2097856094, -3.7087762475999995`, -1.87804749332}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.589285589399999, -1.4052947398999998`, 0.147149184168}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.5735148652, -0.7741829476800001, -4.8494148612}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.901614298, 1.58052903188, -2.8806983144}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.872701490199999, -1.6203455587, 2.7236620838}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.6918117128, 0.6597978328999999, 4.8690680116000005`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.5373181244, 1.3903659045, -0.14717186088}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.2626979374, 3.7238940555999998`, 1.9107019585999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.13712372324, -5.5127086872, -0.9708089379799999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.1554644747999996`, 4.70541774, -0.8879066583599999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.1125676946, -4.719779657599999, 0.8804611379199999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.13351434658, 5.5215903994, 0.9714703420799999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.2777727462, 0.073984662626, 3.9000165187999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.040710367218, -0.87622815168, -5.6996025886}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.06232127375399999, 0.94945503418, 5.6533043016}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.2700248696, -0.06529948192999999, -3.8376555608}, 0.12]}, Text3DBox["1", {-5.560530749999999, -1.9439611362, -0.92318784278}, {1, 0}], Text3DBox["2", {-5.085264660999999, 0.147704763612, -3.0520964626}, { 1, 0}], Text3DBox["3", {3.8998155512, -0.168890481798, 3.0347109834}, {1, 0}], Text3DBox["4", {4.3467357502, 1.9677716838, 0.9598107326599999}, {1, 0}], Text3DBox["5", {-3.3981172882, -2.2722065423999998`, 0.85476086432}, {1, 0}], Text3DBox["6", {-2.5433942184, 1.3564642200600001`, -2.8321323562}, {1, 0}], Text3DBox["7", {1.3437721635999997`, -1.3552170009, 2.8417699587999996`}, {1, 0}], Text3DBox["8", {2.1843222883999998`, 2.29601709, -0.81811907718}, {1, 0}], Text3DBox["9", {-1.4227489058799998`, -3.9311969978, 0.24936824296}, {1, 0}], Text3DBox["10", {-2.2093851479, 3.463867758, -1.2835018992}, {1, 0}], Text3DBox["11", {0.9748031620999998, -3.469536936, 1.28061061842}, {1, 0}], Text3DBox["12", {0.22312685107999997`, 3.9325198059999997`, -0.23965505132}, {1, 0}], Text3DBox["13", {-3.2255853044, -0.71140624996, 3.0388683806}, {1, 0}], Text3DBox["14", {-0.420682010134, 0.26631908517999997`, -4.0460923386}, {1, 0}], Text3DBox["15", {-0.776400252922, -0.23545985960000002`, 4.0324863114}, {1, 0}], Text3DBox["16", {2.0117903046, 0.73508451674, -3.0022076961999997`}, {1, 0}], Text3DBox[ "17", {-5.8097856093999996`, -3.7087762475999995`, -1.87804749332}, {1, 0}], Text3DBox["18", {-7.189285589399999, -1.4052947398999998`, 0.147149184168}, {1, 0}], Text3DBox["19", {-5.1735148652, -0.7741829476800001, -4.8494148612}, {1, 0}], Text3DBox["20", {-6.501614298, 1.58052903188, -2.8806983144}, {1, 0}], Text3DBox["21", {5.272701490199999, -1.6203455587, 2.7236620838}, {1, 0}], Text3DBox["22", {4.0918117128, 0.6597978328999999, 4.8690680116000005`}, {1, 0}], Text3DBox["23", {5.9373181244, 1.3903659045, -0.14717186088}, {1, 0}], Text3DBox["24", {4.6626979374, 3.7238940555999998`, 1.9107019585999998`}, { 1, 0}], Text3DBox[ "25", {-1.7371237232399999`, -5.5127086872, -0.9708089379799999}, {1, 0}], Text3DBox["26", {-3.7554644747999997`, 4.70541774, -0.8879066583599999}, { 1, 0}], Text3DBox["27", {2.5125676946, -4.719779657599999, 0.8804611379199999}, {1, 0}], Text3DBox["28", {0.53351434658, 5.5215903994, 0.9714703420799999}, {1, 0}], Text3DBox["29", {-4.8777727462, 0.073984662626, 3.9000165187999998`}, {1, 0}], Text3DBox["30", {-0.640710367218, -0.87622815168, -5.6996025886}, {1, 0}], Text3DBox["31", {-0.537678726246, 0.94945503418, 5.6533043016}, {1, 0}], Text3DBox["32", { 3.6700248696, -0.06529948192999999, -3.8376555608}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.722897705499999, -0.8981281862939999, -1.9876421526899999`}, 1.2560589005175804`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.7232756507, 0.8994406010009997, 1.9972608580300002`}, 1.250844773266243]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.879592530758522, -2.108043080342484, -0.0344342610502576}, 1.1539830542799154`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.2146445599035074`, 0.751934639774493, -2.9421416787418244`}, 1.156261577118537]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.222110588336034, -0.7619067382462124, 2.938264379297966}, 1.1569136659094552`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.865797532094041, 2.131853627770117, 0.07106659814736327}, 1.153977094324004]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.8104330970399998`, -3.1017017701, 0.55206455364}, 1.0691424248731398`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.7763896831500001`, 2.4101659890300002`, -2.0578171277}, 1.0625344274868498`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.7592876628499998`, -2.41237696845, 2.0611902886099998`}, 1.0712990013263848`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.37602712811000005`, -3.7003669669, 0.7649894306899999}, 1.0695213747409087`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.80372456974, 3.114268448, -0.52888706425}, 1.05378933864067]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.39312914841, 3.6981937819999997`, -0.76157847526}, 1.0883950123694084`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.7118512963, -1.4918063961799999`, 1.9468146224599998`}, 1.0893084089872396`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.8820381142669997, 0.81139165262, -3.4391123474}, 1.082958131590424]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.8836859553389999, -0.7953384302500001, 3.4371281350999996`}, 1.0828432906355823`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.400992778661, -0.47343305478, 3.535677346}, 1.0870871178343273`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.6980562965, 1.51555080337, -1.9101633866899999`}, 1.0893391146199745`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.395554147233, 0.5007018009599999, -3.5241500174000002`}, 1.0883942803995925`]}, {Opacity[0.5], SphereBox[{-5.139606947407045, -3.211885781828804, -1.6092030951515373`}, 1.1976934012230793`]}, {Opacity[0.5], SphereBox[{-6.130712828407111, -1.5569552173579682`, -0.1542021265186807}, 1.1977349068766427`]}, {Opacity[0.5], SphereBox[{-4.548666348009784, -0.5146079942943659, -4.343345809816403}, 1.1975848821628325`]}, {Opacity[0.5], SphereBox[{-5.502833267408686, 1.1771094782403937`, -2.9289564057604163`}, 1.1976814547057923`]}, {Opacity[0.5], SphereBox[{5.486152232617448, -1.2116744036879783`, 2.811240897011408}, 1.1976517946061103`]}, {Opacity[0.5], SphereBox[{4.6377544254004315`, 0.4264773226409354, 4.352597451769674}, 1.1976922244887298`]}, {Opacity[0.5], SphereBox[{6.0895001410353045`, 1.5529306957760873`, 0.16449179181716622`}, 1.197768293971619]}, {Opacity[0.5], SphereBox[{5.173732508655808, 3.229422925624064, 1.642959649450542}, 1.1975783375975766`]}, {Opacity[0.5], SphereBox[{-1.0486144630131542`, -5.067449010091035, -0.6272795785434042}, 1.1970887968597372`]}, {Opacity[0.5], SphereBox[{-2.7201517057382496`, 4.355847992064328, -0.9992901150310098}, 1.1969553005561258`]}, {Opacity[0.5], SphereBox[{2.679577126091079, -4.367747018428876, 0.9931318019836115}, 1.1968670151800627`]}, {Opacity[0.5], SphereBox[{1.0461219868631058`, 5.07417344179917, 0.6304672167067424}, 1.1969570882463594`]}, {Opacity[0.5], SphereBox[{-3.812574885843143, -0.14715378863875328`, 3.657547497909436}, 1.1969145244890114`]}, {Opacity[0.5], SphereBox[{ 0.021243510791993714`, -0.5545185635560645, -5.234019998817423}, 1.1968612250183166`]}, {Opacity[0.5], SphereBox[{-0.004894935764488212, 0.6158215790371343, 5.196934726817237}, 1.1968957020964655`]}, {Opacity[0.5], SphereBox[{3.8031352705010573`, 0.16005522490801904`, -3.602428333721205}, 1.1969618078372344`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-2.116327493246132, -1.2281396957983606`, 0.2182963363814261}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-1.6370963091347095`, 0.5163340781728996, -1.7549309193867768`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{2.2553178275296344`, -2.200730134730798, 3.9132394356430242`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{3.4667244656864207`, 3.339115887407935, -1.4555139055876927`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-1.1472839572681923`, -4.722174828978545, 1.3579849806130755`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-1.9417281959704935`, 2.6931384329484906`, -0.16300004471476148`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{1.2408117813871047`, -4.238922085071341, 2.401546053669491}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{0.4967635336534513, 3.1480840770448757`, 0.873065745725234}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-2.737295750667441, -1.8426333030532251`, 3.8560869135180598`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{ 0.05391210566522564, -0.8730204059286841, -3.2422398097067795`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-0.2978444323119307, -1.3529030796041164`, 4.8670951786900245`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{2.4785956390524913`, -0.3937625517971197, -2.184917370229578}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-3.4799070831538685`, -3.3162733890016387`, 1.4912253922585728`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-2.2496921276652895`, 2.1965943619471013`, -3.909333793013223}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{1.6322264996703653`, -0.5097038670692011, 1.770300481956975}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{2.101920111113579, 1.2529182925920646`, -0.1807242487723083}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-0.49821385449180733`, -3.1402191666214554`, \ -0.8592484946930761}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-1.2770420998295067`, 4.2345970830515105`, -2.404003753685238}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{1.9087945428128952`, -2.70015178692866, 0.159675183170509}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{1.1494901685065484`, 4.716955534955123, -1.352375848365234}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-2.5138748581325587`, 0.41982080313322534`, 2.22164984768194}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{0.3047238740667755, 1.405658576288684, -4.849944867493221}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-0.054956073532069105`, 0.8819833604041165, 3.197877444109975}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{2.744984970147508, 1.86393158527712, -3.8194980221704213`}, 1.4]}, TubeBox[{{-4.4852646609999995`, 0.147704763612, -3.0520964626}, {-4.960530749999999, -1.9439611362, \ -0.92318784278}}, 0.06], TubeBox[{{4.946735750199999, 1.9677716838, 0.9598107326599999}, { 4.4998155512, -0.168890481798, 3.0347109834}}, 0.06], TubeBox[{{-2.7981172882, -2.2722065423999998`, 0.85476086432}, {-4.960530749999999, -1.9439611362, -0.92318784278}}, 0.06], TubeBox[{{-1.9433942184, 1.3564642200600001`, -2.8321323562}, {-4.4852646609999995`, 0.147704763612, -3.0520964626}}, 0.06], TubeBox[{{1.9437721635999998`, -1.3552170009, 2.8417699587999996`}, { 4.4998155512, -0.168890481798, 3.0347109834}}, 0.06], TubeBox[{{2.7843222884, 2.29601709, -0.81811907718}, {4.946735750199999, 1.9677716838, 0.9598107326599999}}, 0.06], TubeBox[{{-0.8227489058799999, -3.9311969978, 0.24936824296}, {-2.7981172882, -2.2722065423999998`, 0.85476086432}}, 0.06], TubeBox[{{-1.6093851479, 3.463867758, -1.2835018992}, {-1.9433942184, 1.3564642200600001`, -2.8321323562}}, 0.06], TubeBox[{{1.5748031620999998`, -3.469536936, 1.28061061842}, { 1.9437721635999998`, -1.3552170009, 2.8417699587999996`}}, 0.06], TubeBox[{{1.5748031620999998`, -3.469536936, 1.28061061842}, {-0.8227489058799999, -3.9311969978, 0.24936824296}}, 0.06], TubeBox[{{0.8231268510799999, 3.9325198059999997`, -0.23965505132}, {2.7843222884, 2.29601709, -0.81811907718}}, 0.06], TubeBox[{{0.8231268510799999, 3.9325198059999997`, -0.23965505132}, {-1.6093851479, 3.463867758, -1.2835018992}}, 0.06], TubeBox[{{-2.6255853044, -0.71140624996, 3.0388683806}, {-2.7981172882, -2.2722065423999998`, 0.85476086432}}, 0.06], TubeBox[{{0.179317989866, 0.26631908517999997`, -4.0460923386}, {-1.9433942184, 1.3564642200600001`, -2.8321323562}}, 0.06], TubeBox[{{-0.17640025292199998`, -0.23545985960000002`, 4.0324863114}, { 1.9437721635999998`, -1.3552170009, 2.8417699587999996`}}, 0.06], TubeBox[{{-0.17640025292199998`, -0.23545985960000002`, 4.0324863114}, {-2.6255853044, -0.71140624996, 3.0388683806}}, 0.06], TubeBox[{{2.6117903046, 0.73508451674, -3.0022076961999997`}, { 2.7843222884, 2.29601709, -0.81811907718}}, 0.06], TubeBox[{{2.6117903046, 0.73508451674, -3.0022076961999997`}, { 0.179317989866, 0.26631908517999997`, -4.0460923386}}, 0.06], TubeBox[{{-5.2097856094, -3.7087762475999995`, -1.87804749332}, \ {-4.960530749999999, -1.9439611362, -0.92318784278}}, 0.06], TubeBox[{{-6.589285589399999, -1.4052947398999998`, 0.147149184168}, {-4.960530749999999, -1.9439611362, -0.92318784278}}, 0.06], TubeBox[{{-4.5735148652, -0.7741829476800001, -4.8494148612}, \ {-4.4852646609999995`, 0.147704763612, -3.0520964626}}, 0.06], TubeBox[{{-5.901614298, 1.58052903188, -2.8806983144}, {-4.4852646609999995`, 0.147704763612, -3.0520964626}}, 0.06], TubeBox[{{5.872701490199999, -1.6203455587, 2.7236620838}, { 4.4998155512, -0.168890481798, 3.0347109834}}, 0.06], TubeBox[{{4.6918117128, 0.6597978328999999, 4.8690680116000005`}, { 4.4998155512, -0.168890481798, 3.0347109834}}, 0.06], TubeBox[{{6.5373181244, 1.3903659045, -0.14717186088}, {4.946735750199999, 1.9677716838, 0.9598107326599999}}, 0.06], TubeBox[{{5.2626979374, 3.7238940555999998`, 1.9107019585999998`}, { 4.946735750199999, 1.9677716838, 0.9598107326599999}}, 0.06], TubeBox[{{-1.13712372324, -5.5127086872, -0.9708089379799999}, \ {-0.8227489058799999, -3.9311969978, 0.24936824296}}, 0.06], TubeBox[{{-3.1554644747999996`, 4.70541774, -0.8879066583599999}, {-1.6093851479, 3.463867758, -1.2835018992}}, 0.06], TubeBox[{{3.1125676946, -4.719779657599999, 0.8804611379199999}, { 1.5748031620999998`, -3.469536936, 1.28061061842}}, 0.06], TubeBox[{{1.13351434658, 5.5215903994, 0.9714703420799999}, { 0.8231268510799999, 3.9325198059999997`, -0.23965505132}}, 0.06], TubeBox[{{-4.2777727462, 0.073984662626, 3.9000165187999998`}, {-2.6255853044, -0.71140624996, 3.0388683806}}, 0.06], TubeBox[{{-0.040710367218, -0.87622815168, -5.6996025886}, { 0.179317989866, 0.26631908517999997`, -4.0460923386}}, 0.06], TubeBox[{{0.06232127375399999, 0.94945503418, 5.6533043016}, {-0.17640025292199998`, -0.23545985960000002`, 4.0324863114}}, 0.06], TubeBox[{{4.2700248696, -0.06529948192999999, -3.8376555608}, { 2.6117903046, 0.73508451674, -3.0022076961999997`}}, 0.06]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.572874986722467*^9, 3.5728752430777173`*^9, 3.5728753815903606`*^9, 3.572875476859728*^9, {3.572875589757126*^9, 3.5728756188199773`*^9}, 3.572875651845235*^9, 3.5728756890513*^9, 3.5730241007204866`*^9, 3.580056258787054*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJyUvQd4Y2l59n9/s0tNIIEUSAgJLQk1EBIgsLB0Flhg2T69eezpvY/7FI/H vfduy5Jlyeq9WHKVbRXbcu91imdmK1kg13d9/O+j4miMxv9E1z4+Osfj57zn fX/v/TzPe460v9x37lDs8X3nDsfs+8QzZ/adOnQ45uwnfnLyDA898X+A/3NI sE9AeP8HIPzjD/zvD4eFH8KR/937tcDmSfzud7+D0+lEamoqxsbGrgR/ezew eU/gt7du3cKJEyeg1+uhVqtx8+ZNvPPOO7gc/KdOYfOE0J5PBg68f93lK6+8 gmeeeSbwh7/5zW8Cv+UpcOnSJcFJ6O+7ApuAg8A7wf4u8PNdAU8ikShwemEr eHky1HDBk1arRUpKivD+0uO9/U3g57v/qF3CdmRk5N2hk4UdvvXWW+vXePHx Xj8S+Pm+R7wKV7a4uBj4zcTEBGJiYgJtfteGUwh7wrajoyN8ig5hs0U4wUci muvz+TZ245Ohtgi/Cvfqk6E/CTdd2BPeC33Dy7gQcYoNV/GXET298So+GMWr YHNzc8J+yGvnesM/HPJ17969ADSRY//noXNH+toSOlZXVxfoGWHvXNDpyGOG TGgW3f1FCM+4uLj1VoWvuaKiIjB0IU/DIU8bGyXwTk9/FWpDqKceaZcwOlKp NLB3NujNF2XQBY+RgyEcFwY+musnIo6FL/lM0LUnYiQ29t67Qn8WZkuwv9jE fSTCIff9j+nR0Ck+HvpLhUKBqampCKqeWCdV2Dsd9Oba0NiwPgiN/cQmriKg DLvqjtIw4RVy96ko3sLdMTAwsA7TqQgaQ8IlKIbgTdiGJ5LQg5+OGF/BRfD8 fzwwJ4Muj60DHurf8Cswk36xeb+GWXrzzTfX1SB8SZFq8O6IDgoTHDr/8Q3T Vnht2XBMsJ9tMpXD7oWuEFom7H0ySjPeEwX9E8Gzngi5jzxluDk/3Vyy3hvR Cf+Ts4cpEX534n/XCT+K0glh4fhylFO+N+KU4Rlz/I/G/V2PjHv4ffhckdIi vIT9f42id++LmE9h7o4FvZ2JcinfDTXwMRoYGMuysrLNzhQ53UJnOr1+Vd/d RK7D8zU8WoJ9OcqJ3h9lJh4NnkjxmIkRkspvhv4yUsLD3iIn4ZGgN/km6vjt KEr4/g2NFY6HXEk3n7FPR/H2J1GUMJRHSUK/ikxVtgTePSGMzvq1beY2PEyr q6tht6L/mawIh4UOjTxDUVERHjx4ENj709CxUMgOnPlQ8AyNm8jFT6KI7gei 0Hsw6CppnalPbN7sn27iN1L5Qn4TQ7Ejclbw9fFNWv5sFG3/YBRI4zY9w99u 0LMNs/uXUU7yZ1HYjd30JB/dZH4LvxEYYsgInyxStf4sos/Cw7r5yf76fznZ n41y1nAOFzkLDmx61r94DA4hCXtpk5NESteBjZhtlmm+GnIgTAFhKgh7H9ow DYS9mKDT3M1lalsU0ftwlJmwP+gtO7D547pJmNmCZ6GB2zdxGTkJQi4z/mdK IMRWYRIIe+EzRGpr+AyRkX1f8AzpEfNpY7W1P4qryMwzjPreoKsbmzf2QBQR /IsN3SEcD3m7tslEPxjF1V9GAXRP0FVKxMBsbFg4LzsURUD/MqJ14VPticDx Ma0Lj4pKpVp3H25xpPiFa4RIadoddJ+wCePhBDgynYuL4v6vQ8ciK6xdQfeX o7Q+PDWj5Wth95Ga99cRnROmNuT+4iatPxvF1Uei4Lkz6OrcY5gKifH5KCLy kYiGhSkNeQtmWu+LmkgIvwlXb8L+uSiuPxoF1x1B1yc3hz8ss5FF3NkoZ/ib KBQHZ3QoM41ediVG0b2/2dAPQmNDro5s3tjkKCL1t1FgDepjaOo8KiHCS/B8 NYqrj0WRkK1BV7ERAxRtFUmAMlS8IzXCdVihPhZlgEKuAxlvxFJV9LkbHifh eJiK8IkiZfBjwXDEIQq5/0HoH0UGwY9FdHOUyigjiopFXkA4KwwGNQSS5if/ uyKJts4V/aKyo5zo76L01CuPv5SPRJnS4XInN4p0hpcUIsPky0H33wt23fpi 1+ZFDvsq7D9S3D6+oZ+E5kf6R/SVrs0yoHAzBcuOcsq/jzIDgkkMvr9+SR96 zMwKZRQlUfz+Q5Tp8GLQ7wsbpnxks8ujCOk/RPRKeFBDrp6L0jDhJTBCd5VR tCi8lhOpRcEW4ZcRI7dRi4Q5Knjv6enZzGvkyIW8/nxzWQovcAknCF9xRZQz hFcXIhO+54Nn+OkGqQqvEAnENUbR0E9FdEH4lL8Ouvrx5o0VRRG+T0UcC4fM kLcfRpm+QiQSqkhJFFfhZaxIGJ+L5P99j1OdyPGBOIrrz0Th8VdB109HaWV4 wj4ZMTob3Ucq56c3nFLohJD7b28yS98T4T6cljRH0bXPRIxYGNpfRgjo4wsS 9SbeImENeftGyFtkY/Pz88P5gzaKt3+MMmjBJUT8e8SgPW5tWcgnhekadh0p Iv8UOhaZ7AXLOHx1ExEJR5LwKQRTb+I+ktyQ+y9vPg+sUbz9c4R0hfO94NzH lzZM0MhypD2K4n02CqzBtVB8PrCJnvWHl04cUeTjsxHXGgY05PKzUfjfmPUL gAqtFvbao7j/XBRAg7IU6pcnN45SzyZeIsF8xEsw/oXb3xvFxeej0PhM0MU/ RUxE4frsdvu6q54N3SPsfSHKKPwk0tW7A70tDKSwF+GuexNvkQPwiLf3POJt g8f1+3WRLr8YhbgfR7p8AjU1NcINwcBeeCyjuY3UssiWhrO1DW6F7hO6UUDm iShuO6PoxBejdMCPIt0G11rCQD98+DCa544onr8UAV94Cv3w0QYLr7AcvCuK W+cmbiNpDLkNa14YpeD4/bHb8EyM1Il/iULoDx51GwnCe6O4bY/i9ssRVxCm 9fuPurVaretu3xfFrX0Tt5GjtsFtJGPvj+LWFkXhvhJFL773qNswY8Len0Rx G9bgyNn/lYjWhodsg9vIBPpPo7i9EBrMzs4J9HROoo/W3zGJAeck3A5u7RPr 69KRpw7ftIhclw7ej1iPt+E7ZsLeB6OcOljIf4BJxgSyMlUoyNKgglaTqUHD LQ2a0jVoTtNAfJ3bVFoSj11RYcQ6gaeiNOmrUebF05FNevcfSY4woTlPonVM cC3gQ5C2dCA/V4XSPA2qaY25GrTQZDkaKNlaNVurZWt1N2k3+P6qBpoUHk/Q QHVRhQnTBL65SWsjo/FjWhuZnTBKfSBKa4P3hv4KK8trKMxToKRAjcoCtpbW QmvLZ6vYegNbbmbLrdka2GjtbH17Bo1XYOcVWHkFVva1JUENwzkFHkyvhZKk R7X436LM6u9Etv5dgXkivCIzoD+L0vTgOsZHMNA7irICBSoLNagt4nDT5DQ1 9w2FWlgKdGjP16GD1pWnRw+3vQWCaeGi9fISu3lpnRyUDqLTcY2XdEWJvgI7 vh7lEv49ioIEk9dgXf1EZJUeOek/HOUigssnfwNVq40X0IaaYjUaijWQFGvR VqyDttgAU5EJ9kILOgqt6C6ywVViw0CpDe4yG7zlgllpZnjLTPCUGjDAv+sT Lo4X5bqlRldKG7yldnxtk4uJ1K3QxYTryUglCMfGSNH5iyiXFV6QcfcOo7pQ htpiJRpKtGgpMUBRYoauxApLcTscJU50lXbAVdqJgYoueKu6MVjdjeGabvhr uzBS20nroDngr7FjqNoKX4WJl6OHh2PrzlLBdU2GBat/PW/p6JhAN63XOQGX g1v7+LreRsbv8KVHamtQHoLLm49dbYl29/kvo3RCcM3747i9fBe1BS2oL1ag sUSH5lIz2jgeulInzCWd7IQedJe50FfRB0/VAAZrBzBc78ZooxtjTW5MiAYw GbA+mov7PRhvZMfUOzBUa8NQpRmDHHNfrgL9N1rwxtzdUBn8AXR1T0As6UZO hhpFnK9lnK9VhLyG+lhHfayn6tQn0+JV8FsncXdm7ZEnIsJBPpKT8PGnIjl5 9x89HhAK+h+J0jMxoZ6pzm1EY5EcTUSjudQKGXtEU9oNc6kL7WUD6C73oK/K B3umEx3xWgwWdGK82Y9JiR9TLcOYkQ5jtnWINkjzYVrqwXTLACbELoyKiFC9 E/5qC4ZL+be5criuN4aa+yG4eieQm8teobKV0Wo4WxqpbM2UgRaqm4w9Jaey tVHZ2thLbdRmRSLtshoyKtwaFe7JKD0VnmWRCxDfCvZUYN0qsFIU+ShXOK5E 66gd64LyxPrf0o2IKiHmFGrltFGyr4ylbthLfegsH4aregSeulFUbFWh+7gN 49d1mGqdxIxsEnNtk5hXTGCBtqgcx4JylPsjPD6MaZkP41I3Rth3ftLlr7XA X6bGYJ4EK12DoTXDv0Jf7xiK8lQoZnQoo9XQmiihEkYJOftRyX7UsA917EMD +9DIPjSyD42kzcB+NLIfTexHI2Ocq7gD96furc+oyH4MS29kVP5mRD9umIBP ROnRj0bp0eBdik898jhHfW49mim+wquFE1Je0k8MfTCXDcNRPoqe6gkM1E9h sGkGVbGDcGbMYK6RGDb7MK+cx6J6HkuaOSxr57CineV2BouaKcxrJjCjGsWk YhijMi/8Lf3wN7Fra0zsWjk8efXBJd+/hVLWgbJCNSoYuKpo9TQxA5iMvati 7+rYu0YhBgvxl73bTnPQnOxlh2ChWNzOee1gAHMkqWG7IMdr00GRFta0mKtG huRw8hDq1L9fByzclZGx62+idGXwvsqnH+lKUV4z260LdWUfxX6QOjcKa/kE Oqum0Vc3B69oAcOSRfTULECTvYDZWz2YV69iUbuKZf0KVg0ruG1cpi1h1biI ZQO72DCLOd00ptilY6oR+NsG4Zf2sTuFwKDFcHkzVno9oXZ+DBp5ByqLVKhm LK2jNdFaaG1FWmjYPkOBAZY8I+z5JjjzzeikddN6CsxMDEw0IxMDQyBZ6M7R ood93cP+7bmuQmeCDPOm4fX8/z9CfRNZXwaPra93RXbl30bpym3rnR+cCp8M dKA4Xw4JA3+gM4u9UBSPQl86DVvlHLrqFtHftIxBySpGZHcwobgLzbUpuK7O YLXJi2XjGlZNa7hjvoe7Fpr1Lu5YbmPVsool8zIvYBHThjmM66Ywoh5lhwp8 9rBDOe3r5JhS6ULz5++ga3OipkiJ2hKCSRNRrqUlerbHCF2RGSYmJrZCO5wF 7egqdKCn2MkkxYl+yrm7zAlPuQOesnaaHW7K/AAzgIEiIwbYuQOUi/50BXpT pBBXNwodGs56IxOsbzzan0L1G84/Pva4/mRGueGpBIjztJAUOIM9WuSneE7C UD4Pe80yuhtuY0B8F0OtaxhTPGAPPMSs7jVITi/iTlEHe+513LG+jru213HP /hrW7A9x134fq/Y1LNvuMge5jRn27IRxHqO6SfhVfvjlA+xVBiGRhnlN3UdC cU8nt6OuqI0pkQoNjE1NzNqkJSYoqelapkXmIifsRZ3oKO5GD7MDV2kvBspd 8FS64Kt2YbDGhaGaXqZJPdx2My3qxGCVE77KdmaBVmYDJvioGt7MNtSey4BD Y1qvJSIzvQ29KrzCq1t/99hefXTCS/JM7NGewHtp4ThUJbMwVi6jve4OukVr GGh5iCH56xhXvYFp7VuYN7wNa8FDTBfP4652GXfbf4N7jrex5ngL951v4Z7z Ddx2vo5lx0MstK9h1nYHk5ZljBpn4deOwa/0sVcZ2qUmDDc1h+5E/z3uMMmq L2xlgqVkd+ogKmW7mCS3lTigpaabintgL3ahg9reU+ZmsuWBu8oLb40XQ3X0 2eDDSIOXSZcXY40empCADfAYRaae3cxMdLjKgeEyphMU5sYrWRBdzPxWlCQy GLlCC/5PBjgN1zN6vf7jUTr25fUwHxLfwY5+iLNkCAb8f4Ak34/WwimoyhZg rL6N9sb76Ja8hgHZmxhSvo1xzX9iWv8OZ/Vv4RE9hC39Ae6Lh3HX+TusdfwO 9zt/iwed7+Be53/iTufbWOl4E4vO1zDrWMOk7TbGzAvwG6bYw8PkllessJFb GVZ9/aEnFf4B9fnNTDzkaObsFzOFbSltZ8LWCXVJL4zsVRuTkI4yH3rKh5i0 DcNT44evfgTDjSMYEY1irHkU4+JRTEhGmMCNBJK4SckQj/n4Ow9GmhgdG3op 5x3wV1igTatAxaVruM3kIxLecJLwSDc/Gvj/IUofB2/V/hOGOj0QZyghyXFA kutm145CVjwLVfkyjLV30c7u6255E1bxQ6ib78EgvY/yagb+mlk01czhVuI4 GrIIkfohemmTlrfxoPu/sNb9e9zp/i1zpd9gsfNNzHVQQhx3MWZbht80w+4d hVvRCbfMCI9YjFGnnlX3NFaWpvHmGw+D9w4/gSHXEESF1MJiFSQlQi87meb1 MJD2Q1/igYUB1VHmR1fFKPqqx+Gum8BgI9VGNIVR8RTGJdOYlDJQtk6jK4ta fKIFy8liLLB3p1rHMCEdwSh73d9MvW/iSLO60mbUoTL+Jgbz68M8R9bnX3t8 R38iSkd/LVSHOUN1WA/rsF7WYUtz90OZ2+cw3OGFhKWpJKuDA8H3eeNoLZqH qnIV0qplNNUuI7NsAgXlUyivmEVjxRyjwzxaaxfQVreA0vQJNGeMw8jiQN+0 AEXjAlrr5qFnNByzvImVnnew2P025jpfh988C7fOj15FF3rlLJ9lOrha5Oht rIdLXY/BPiMGXUb4emhdBkwN9eHO/PT60lNTXgNTGjmC0Tk4R+UlbnI/GNoT Xn/NDHEGvqY5DDdT/1sWmEwvYFLGKNu2iFnFAqTHLHDfHMVb0nHcbhvCjIKj 1DaFMfk4RjgqfglViOWdNqcZlUmZ8JdLcKfPGx6RyJs7//7oiERmF5+MMiJf iSgGW1gM5rMYLGXCWEmrZVJTzxS9noljPVP0ulQeY/I4ZJ+E1zIeSqi+gCGn F2L+O0lGF0dtkFNnkqn/FDILR3C92I9b5eMoKJ5ERck0ass5Vapm0VI7B1n9 HEdnHuqmeRQkj8PEsGZgD5nEgs1BK5pDS90sNOIlDOiW4OM08eiHMKB1o1/V Q2vHgMJApZMxOtfCrW3A+IAJY30mjNJGeo0Y6aZ1GuB3GHBvbjq0DPopDPV4 0ZwvYg5F0orttB4mpZ7AeGmLx1hmTgbed1fPBbaepiUMiZc5GisYl61ydG5j WnEbc6rbTFBvo+n4AFyiVeZVs1jRzWFWw9Fl7j+hnMWIgnNQxlFs8aKryoTr 5xI4t5QYLKv+VoR4hZPuDSMYuZ7yqSgjGLwp8GEsLa1B2tKJ/BwVSlkOVOcG FxbFzKJaWRq0MU1VsBxQcVTVHC0VCy/ltWDxKmPR1XJJjVHLRDAP+RIxvw0x /4kknYOaMYj8bB/ic9xILhxCWtEocvLHUSwMatk06ipnIKqeDQyWvGEWiqZZ 6uMsagumoSnxwywagUk6C7NgLRxQkR/iqj6UFvZCVNHHgfXDo/NyAF1wa5gU qqmDChZBLdUY61Bg2m3G9IAZU/0mTLlMmOg1YZxTcryL5jRgzG7A2uxUaEX+ 07BIdUyQWzm4RkgIlaR4gEnycGAgdYTQUj4HZ/ViYH+gaRU+8R0mDdRj2T0m y2uYVt3HrPo+5rX3WdM7MUjtnzbdwTgrkSX9Xczrmc7pVjChXcSomsmHcoKJ xzD6GjsQf/oip6qeibIIb66sIDzCkRXAvz06wpGZ6KejjPDnQ+V1K7PFgjwl yvLVqGUKJ6JJaYrQQqyeo23KCRaCVo60lXPYytG2crQtQpnN0dYna6CN58if V2HUMBbKkT6J5qsqVF1vR1paJ+IzepGY50FqwRBuZY8gt4BDXTKByvJJ1FVN QVQ7jZb6acgbZ6AUzUAtmYGE8aYudwLW+l6Y5DMw09SM3ArGEXmjC+JaF8o4 x0rznGiX9XEe98Grd8KrpbIqOdTSKirovNeM92PeY8Ych3yOQz7LIZ/mXJ7i kE9xyKc4lyfbDVh0u94bSqKas2sZqRkSWWZIilzhhZC2khmWlwuwVizDWXsb nXXLgd/0Ny7D27yKoRZWR1LmN6yQhAH3NizCkr6COx1vYNn0OlZMr2HJ9IB5 E2Ew3sOkgfGDKuRXM2Arx9DX3IP4M5c4q62MmDLc9bkROZ3DJcomg/2ZKIP9 z6HlieWleyjMlaG0QBVYvm6kSWkKmpZmYvVv5cC3c+CdtE5aV25wubqH1k0I uoRla2EFIF0Dm7AKL6yvXFajt7jzr0LjXp7UivirOsSnOZCQ6QqM+9UsjnuO MO5jgXGvqJhEbfUUmuo47o3TkHHMFRxztXQGWtkMKgomYWFerG8bhbrFA6XY BaWkFwpxL9rYS5KGHpQzGywtsMPR1gWfsQODekZWDXVbWs4OWPKZKXuL/LlI AhY4/vNuE2ap5bOMwDOMwAM2HcwaVmgSNVocrM7cC1AN0PppfQtQurjtmcel BBHyyXv+TStrjwFC4Q90uaKI/6aQclQ0BV0xOS2fDuo741AvZauf1+ZpmMGQ hCPcsgTJ+RHM2/4TCxz9FaZxq5a3sMzsYYGV3qyF6ZvpHsZIxIiO2bGG2bHS H1hB9rc5KCUq3BseeioChvDoBu/QrEfiyJuf/xQFhuAdtw8yGbzHWS8jCEoW h5z5xdRsmoZmLNLCSnMU6dBJ6ynUo4/WX6TbAncxf3iKtZRGN/+un+D05QcB 6aI6dDCytzOiu8s7cX/ibug2xD/iwdv/iRJxBxJIRuINBxIze5GU4cbVW4NI Jxk5VIQiklFeMUUyptHE/EbSNINW8SzaKPAqGUW+bRbVFROQ103BKO2GQtoH ZatgpKOVZLR0Q86Mo4bVU3m5g8HAjA7WFkMGA3xaKSbaZVgZtmBlyIJV2pbA u69iedAc4GXRa4LdpkelnBNEpkaVlEY6KptUkHWMQONZgIaUaEiJhpSI9D4k JDQj+UIrTYvk8xYUpPah7NpAsELNHQtsjWVUr9KpwPsOtr+nehL9tVOkYzqw yie54oWv9XdYsN3HJLOAqbZVLOhfIylvYNH2Nmatr2PKch/j5rvwG0mTLlid BuhQd5EQPe6N+sOfT4pcw/zXR+mIzKb/OQodnw4tGaySjop8KaqLFGgILP8y qrMS05boYSoxsrY1kQwLeoqt6Cu1rt8cGqywYriS6lUlmJlmgr/SiOEKPQbL dfDSxwCJcVFaeklL1zUVrBdkeDB5N/Q84zehGZqEyD6IhBQtEhk/khg7ktOo IbeGcTNnFNkkpbBkEuWVU8xFp9HIOSZmaiAlJXLZHJRtc1Armeup51BaOgs7 Y0ObfAAKeT9/R1rkvVDKetAm64aE2U1FjYPUWVBepEZHmxoejQTz/VrcGbHi jt8a2FZnJ6CG9spPvoPnfv1r/GRbDJ7ZdgA/FWxrDPYcv4hzqRmobVGhSWmF 1rsALWnRkRYtaSlrtCP1fD1SLrTRDAhX37cudaMxcxzy3JFQtv9R2FmFdFXN wFXLSqJhjln+PDqYYpgLqR2sqCdbFzDdOo8ZOfNB5V1MKlYxY3iAOftbmLK9 hnHrGkZMqyRlnmXgJC6cPg+3khqiNmGwpe7bGwKKMOybUPLZKJR8MrQKsrp0 F5X5EtQUyVFPSiQlOlJihJb1urnEhvZSO7rKHHCVOakHHfBVdmK4ujNwn22s rhPj9R2YaBDMickGBybq7Zios2Ks1oKRaiOGKvXwlmnhJjEDOQwyaUoMVTv+ PJTx9MwsQTs8De3IHDKKKSlX7Ui6RVhSvUhN9yMtewxZ+SzrCEtZ5TRr6hnU N85CRFgk0jm0yufQRlCUBEXKEqmybhx6lkkaJYFREBhlPxSKPhoDj4LSwnq6 ot5BYAhLuYbyIkG3vI5Tz4Z7YzYmK4nY+tPvYPtPn8arv/gJfr5jP57deQC/ 2BmLX9J+teMAfrWdRmieIzTPvRKDA4cvIK9CwsHXE5d/hJ7AVNRbCUsTks/J kHBaiSsntbhyysT3hOhcJ66edaDymheawgnKyjTaK2fRXTOPvvpFFhWLLCqW 0JS4gqmuP7AkXKKcLLL8W8Qcy0LhBsK0inmmahXj2tuYMFNWKDsjFuarlkWW r1ME5kIgZ/brLJSl+tAd80er9K9EEvPkek0YelIhGjSfCK2VVOWKUFfYSllR obnEAHmphcDYeSVOOBjSu0q70VfeG1h9FFYe/XV9GGvowwTTvilRH6bFfZhl OjDLVGBW3EPrxmxzJ6ZFhKjJTqisBIyoEx4fZcuTp0LfTTkGq2yhIvtzmLyz RnImofPPQjeyAHH7OBKS7ZSZXs4J0pPmx/WsMWSQnjyWbSVV06RjBrWsQhol c2huZRmpYLmpmkercgrNMi/qmn1oYDlXUmREQaEJxbQyVgu3rspRVqBHWZ4W 2cyasq61oaxazTRIAo1Mjoa8RGz/Gan52dPYRdv+q2fwy10xJOK53bHs51/z 5/O7YvECCXpRMFL0Igl6kQS9RIJefGk/jl9Ih4GSYyBDlbz2lLMNiD8lYuXQ RmMqdsaCxAucIefsuHapA+mXu1CaOgBz+QwcLEd76uaZxC4wiV1AY9IMBjT/ D1OGu5giMdPKBVYu85jXCDaHOc0sJjXLrFJYvirmMcKgNGJjYLIxMNmmcT3x OroUlH+jBTNdtjA8v//97wPxSnhubQM8QroSXrJcXFz8XBR4/j6UW2qlRtQX SNBYpISoRFjGtkNd2gETobGXuag2/eirGICn2oOhOi9GGnwYF/kwJR7ETMsg 5qQ+zLf6sMgBW5R5sCRzczuABWYR88wgZplBTDFLGRe1Y6TeQrWiClGBfPkK 9KVJ8cb83fXbh0ur01imrdCewOpK4Od/L7GF/t0OaAfHoKNM6UbmoR9doq0i o6APSVcJG6dx6vVhXMsYRXreBHIoVYWErYywVYlmUUfYGhnTxOzoFspUfasX 2cxqrt5U4vz5Vly/0oIbl8WMI83IvtiM3AvNyDsnQt4ZEbJONCHzSANuxdXh 5t5KXIm5ga3P/gi7fv40dj/7NF7Y+ioRI0D7YvHyvji8tJe2RzDuE7pXCN0r BO6VHbTtsXh1G7evHsDLrxzAmSvZqNP0QNk7ioSTFZQmMRLOKJFw1kDQrLhy wYbEyw5cS+jEreQe5KT0ovqmB46aWfTUz6FfxImTPgJ95e8x2fsOS+R5THEy zRCyOe0c5pnhzOtnmAVNY1Y/RalawDAh9CpmMGxZgd+xTJtBWXYZDGIlZcuC e1NjoWrp3QHaBLkSlrFCXwMjpEVfeTTOCa/wp6S+EIW64F2Jvbi9dBt1eY1o KpSjuViPFlKnLO2CodQVXIcu98JVOQhPzTBqD4ih2V6P7n01GCujPMlGsSAf xSIrmWXFKFaUI1hR+bGqGuZ2CMtKH5YUHsy3DWBG5sIU89oxMcWXGYO/hplT mRoD2WI4UqrQ5zHATfN6WOnQhgRz898M0Pr5PnJtsdsAi50zxGKF3j8D/chi gDz96F0YRu8xb+1BUrIXKal+Bssx3MgdZxCdRB4DZTHpK2dFVi2ZRT3pa6TU ZbMUvnRFhMQEMa7SrpG8nAQZihObURzfjLIrzai43IzKiyJUnReh7FQTSo83 oPhwLW6+moVrv76J1Gdv4OzP9uDl7a+SuBi8GhOHrbTttB0H4rAr5iB27j+I 7fsOYdueQ9i6m9tdh7Zg285DTES27jiIbdsPYseu49i+6ySyahqQcKoSiWda kHhWjaQLjJEX7Yi/RCVPcOJ6SjcyrvUg90YvitJcaMx2o4fx31gygpobDzDU +38xyksbV81hSjuLaUI3pyd4BoJnnKZNYc44yeRqHMNUPp96GgOqcQzamVh1 EL4cwidRMG6acXdqNHh7631/xJ6QSQlVu0BUuHCLAmK4gv9iFBADpXXwSdyY 9Xth4VdzoRYtzMPlJV3QlPQzkHrhKBtGT9UIBmrHMNgwjqoddjhPMWhmOTFV 1YsFpjlLKmoVL+k2a8072inc1U3SJnBHN4ZVLUnV+rGkHsKc0otppkMTsl6M tHSRclaCJVJ0Z1Wj41oJupub4B80YtRnwphgrKLGPSZM0MZZcwvrp+P9oTXU XhOaxNVobK5Do6gRcms3ybxNItdgHL2PFvsyA7EHSYl+pKSNIzVnAmlFk8hi VZhXSzJZLZWTyuI61gcJEsSz+kpJEiONlkUrECxejrpkCapJZh1/30A6Gy+L 0HiBiceZJtSeakDh3hzkbEtH1is3kf3iTeQ8l4Zbv7iFAwJaBwQaD2LXgUO0 w9gTewR7DxzBvgNHsZf6uGPrPux8dT927DlKjd+x+ygrqR27jmD7ziOk9TC2 7jyM+MMFSDrTiqRzOmJpRcKldsTHO5Gc3I3r13qRQRxzb7lQlOlCeVYvWop8 qExdQpfpDwycqxhRzWBcM4NJauC0gRpIHOdNU5hnerZgnsSceRwzpjGMGSZY 2U5igGM2oB2Cv2sGokoRWmubMGw14s3790KLv+9Z51JI+gUuheVDIRoLgG38 Qh9hL/iQ8fpNl8iFhX95HKPIeeR2rbC9vbiKhpx6NDOEBori4s7A7SVdySAs ZSMsiMfRWzMZKIaHmZmXxw3BlMk8QzyDWakfy5oF4riAO/oF3DUs4B7LmjXj HNZMs7hnmsEdztLb7IZl/RgWdCOY1QxhTN7HTNiG3mqWmeUyuAoa0JtZBntq HiaGTJgSbNCEaRb+Myz8Z7w0Dy20KjxNXDtMrWiR1rJEbIBEIoKkWQJxYwuU lgEYRx7CNPoaWtvvsEwdZuUxgeTMSaQWTCGtbAqZLEvzGqeRekNFlFuQkixF arIYN2k5KWIU0cppFYmtaEqRQZTUjGbiKiGuLdyKKabNFxpReTAHZftuoXTv LZTsSUfx7gwU7clH0dYsFDyfidTnk7GLeO6JPYo9ccewj3nj/q17sP+lHThA 2//STux+fgd2v7ADe2i7mTfu2iuoJ4V271HaMRzel4zkszJWG3okUz0TLjsR n9iFZKYn19P6kHGrD7lZfSjKIap5PbiR2IGqknvo73yIQea+fvUUxnRTmGCY nuJYzBDPWcsE5gI2ThvDjGUEkxY/fFRSt2GE5oPH7CGqTWita4DPov/q/4DS 8MP8kQ9u/cujlEaWrl9+LKWffURxB7s9aMrl6ObrA8dbi1xQFvugZ5ywVUxC mzMMS8EonCVj6K1gzZUzBj2Tte7iFazWurGqXyWFq6RxFWvmVdxngvLAukxb wpp1EXet87htmcWKeRqLjCfjSiaozSZm3Gq46uToqxJjoLQW/fnl6MkswIi9 bQvmhsx4F+YJ6DwBXRAstI65BfPE9OOwaJvQJq+HXCaCrFWMVqkEreJWSEUy tLXZoOudh3nsTbR2rCH+6hgS06aRlEMoi2dwo3KGuacayYkSXE1uxY2UFqSn hOBMJZi0mlQJ6pJaIEpWQp4qRWuKlOeWE+UPo5Wgyq/UovZwJmpotYcyUHPw FqqO5qHySCEq9mejYnc2yl7NxM1XUrE35jD2vbwT+1/ehQMv78aBV/Yg9pU9 WxD76h7WY3t5aB9tb8B2YNe23di1/xh2HziJ/XvO4tLBOvJpQMrFdiRc6WCI 6EXS9X5cSx/ArcwB5Ob2o7DAhayMLqbVo6zTxtDVOg6vcpKRexKj+gmMGycw aZrANJmcEcw6hlnbKLcjmLYNY9I+BK9pFG7TMM0Lt7EHarEcFQUFuD03s/7h s8cA+if//2xGftLjK49l8/PrbNZlVKI5V0EurUHlLHJDmuNFw9V+NCb3ofW6 B+r0QZiyhtGe60dXwQhcRaOQpixjrnoRs1TaCarqfOsCHtju4aH9Hl5rv0u7 gwftZLV9BXfsS1ixLWBCNYAhqR2+Fgs8YgMGmph21svg5gz1lFbAnZ+LobZG LA6bsUg0l4bMTwTWTfdg2RdcPRVM3VYDtaIRKkUzFG0S8ilFWyt5bJFDzs6U NbZB37cEy8RvYJn6T2RULiI+fRYJeXMcVKZw8WKkJknJYyvSGcOzUyQoJHvl qTLyyGI5tQ3N/F1zggKyRBEU5FRJTlUpImhTGyG7UALJ6XxIzxbSCiCmNZ0r RsPZYtSRzToKau3+HFRvz0Dmry9j/yt7EfPqXsQypsfRDm7bj4PbaTv24wC3 +1/dR0Hdh72vbCOYW7Fn604K7RkK7mkc35WJFIpmagDKTiSmuJB8w81azo30 HDdy8gdQUNSPE5c8KBYtoKaun2LXC7eQQmrH4dePY9Q4hnHzGMVxFFNWmk2A 0Y8pO4FsH8S4w4dhuw9ui2ADGDAxeDY0oSwvH288vB9KFh8LZfihgj/+pNM6 lJF38/81CpThR83DUDZmNIZWKj+D+swulCR1oDS+k0rRB8k1D5Q3h2DI9MOW O4bOggn0sabwMCQ6MiZhyn0N9xuGMF49jQmGyEnaimIZr3c8oN3HA+ca1px3 cdd5mwm5DyOKbgy3dWJQ1g6vVABTD3eTEp5aCbxVtfCVFsFbV4JlvxkrwwRy lXS+hNv8KbxbJaceZyt0qlro1E3QqlmaqVqgUrZC2SaHUt4GZasCihYl2pqV MAyswDr1DqzTv0Vr35tISlIiiYljSkILribJcDNFjqxkGfJT2lCaqkQ1gawn mM1XKbpX5ZAmyaFOJuhX6qFMaIQprQXGayK0XSqD4nI51PGVUF0phyKhAm3x ZZBdIqzniiA+mQ/RkRw0MtLXb0tD9guXCWQM4rbFEMYDOLSDxmL8MIvywyzO Y3gshnDuJYz7tu6gbUcME9N9B8/hwP4riD/YEoAyKaEbian9SEpzIzXTg7Rc D7IK3TiZ0IebFSsoF/tRVdWJ2moHTC1eeJj0D+pHmICOYNQ8gnFG7HGrfwsm KI3vI4vk0enFqNONQYcHAzY3Biwu9JudzDfrUFFSHLqvHJ1H0hT+fqTID51t 4DHy2YSvRuHxz0MPE0QGcOF1e2EFosyWwPvCeC1yzptQcNGJyvheplhuyG4M QpsxwuA9ASfTtF5GQXfZLIYq5zBazUiZcwdTojewVu/CTMM8ZhtpDXNYamEQ t6zhYRfZ7XqIWcMoxtVujKr74Vf1YlhBPuXks5WwibXwNsrhq2vCYFU5Booy cNtvwR3BRix4Enf58z8C+4OdMhi19TQRDFoJ9BqCqpYRUDk0SgVVVAm1XAlV qxJKsRJGz21YZ36HRpUXuRkS5NySIeNGG8FUMK1UIztJjaKkNlSmCFAq0Jyq gpQRXn5deB6DkJ6uRtv5aqgu10DLyK1P5YRIrIM+pRGG1Abu10N3tR7alFpC XA1lfAVUF0vQRjglh7MgjklH487ruPrqGarjQQJJ232QQNL2HsSRfQdxkO9j duzdgv3bd+PT/Mlgv5sZKQVz36HzOBtTiqvnbEiO70YSuUy+6UZKlgfX81nw cXs+cwWFsgWUVveioqaLgulAQ72Thc0wPPphDBqHMWweZr09hBHrIEYpjCMU yBGnB/5Oxq/OfvS398Nl64OLhWWPuR3alhZk3rwRutn1WDDDKhf50bcNYEYC 92+PAzOojMHPWwx2uNGcIUfRJVnw8KdQcpFXldgH8TUfFOl+6LPGYcufRmfR LPrKFuBjOPTXLmG8fhlTjctQZLyOh213sNo8iQXJMhbFS1hsXsJc0zzu2R6y FJzGlG4YE7pB5uAejGoJpboXQ8oO+NoYzaVG+MQqDDZJMFRfA19FNu6OWrfg 3qj1SayNWQnj2qgVw91tMOsaYdaLYdJJYdQJcMoJpQI6jZLKSVMpoVGooJGp oZKoYPLeZQkrQmFWK2sDFYpz9SjNtaD8lg4VVMRKKmE9U0dRCiG8poE6TQvV VQUkFxogv9QEzZUmGJJFMKc0QUcQjVebYU2T0lpgTqfdZFvSmmG8TlAJpyah CpqLpdAwtMuPZaEl9iaadqXi3I7jhPAwITxCCGkxR3A0Jrg9sHPfE4jZuZdd H7uHgrovDvuPXKJdxo1TeqRcIYgpQRCTs7y4ShBjEqaR3nofufU+FNW4UFbX jcoGJ2oabLApBtCvHwyUL16TD4MWL4ZstHYPhgRV7BiAt4ulZ7cLXfY+dNl6 0WnpQrvRCp+9DcmXz35mcw4/8ngOw0+ZCp9XDbP4tSgcfjj0aM9Qhw+F5+qR e7oVeWf1KLzQjvIrPRwTN1quD0MlPNDIcqC9cB7dpYsYqFzBYO0qRhvuYFJ0 F7Piuwy0rPHE/4XXJYNYlt1h4F9uvY0PYbFlBTOs1ac1o5g2jmLS6MeYgXW3 3oMRncBgNxl0wiej0LVoMcSyZLipHoM1+RjR1GBt3MZW3x+3bcGDCRshfMAD I70KWA1NNAkshlbCKIdJ3wajnqFZp4KeptOqqZI0pRpauQbF6VUopBoWZytQ kqNHWa4N5Vk2VFxXooawNV1Vo+WaFm3X9dCkGaG/ZYaK6tiWIIWGeaaetY85 tQXWay0wXRXBfqsNjkwFrQ3tWQrYubVlymG51QpDmpgq2QBdEtOJKxXQnS+E +kQmpHHXUbz3MgvpozjCouXIgWM4GktjQX4s7hBidsVsQQx18DP8uR+xhDAu hocPn0fM0SuM0DW4ds7ObKOfJZqghF7svTKKKzWvI6NuBDlV/civdaG4vhtl jR2obLIxa+lEj9YDl8GDfpObqSHNxqrS0Q93Rx8GOhmWu3rR5exFu82Fdmsv rCYnnGY9JnoUAoj47Zv3P7E5jOGPjkQuCm2AMbLc/noUGD8UKrdbS9uQc6wG eafaUHDGhOLzvJArLGNSBiG9OQZN1jTM+fNwlCyht3IV7po7GG64h3HRGqbE DzAnfYBF2QMYS3+Le4Z3KIrjWFWs0e5hmQI5JmYYEHkwqSOMpjFMmAikkSFC 74Zf68KwqhNDwpMgcj2GWtswLGnCUEMR7pM+EvhuPJy04QMYcylhN4pgM7bQ ZLAa22AxKmE2UO8MahgE02uIIk2jgayhJRQZ/hllOTbkX1MhPyn40a7KK22o TyB+KQYo0yzQZ9hgzrZDw6CsFPC7IoI+XgRLEnUvuRH6y7Uwn6iD53g1+qiB nXnqwFNYDm7t1FczQ4kxjYkCM0p9Sj30zCL1FwqgOXULLYdTcHH/KaJ3Akdi TxC9Ezh26AROHDrKzDCW8/bA3liBv70HELf/EA7GHkXs4bOIOZaImyUiNMhd uHaZJQwT+IMsV45lv4ar0ju4Xsb6mvzlUAjzyV8R+SsT2VHeZIBT048ufT+6 TX3otdDsLvQ6XOjp6EV3J9kjf2ayZ7a6YDRRBK0WLA8ZWTQaAjcC31id+Pjm /IW/BSvyY7RfiuTvyQB/wvcWCZ8h0ev10RD8s1BV7ekdQlFCJXKP1iH/pAqF p60oOdeDqngPZWIEsnRhpWcOlsIlOMtX0VtN/au/D7/oAcYlDzEjfYh52WtY UjzEsvIhOpv/gHfMy7jTOovb6jXMK+YwIR3GWAuxkw9hyjKBCZZ24yYeMxJP 9tWwhrqoclAbTUwclfDLmjEkKiV9drwm2JR9C14P/Ji245vCW4z3KeEwNaPd JIXdJIfN1Ma5rITFpIbZpIGJZjDSDFqyKXy6pw6FSUUBBtMuNiL1TC3SzjQg 86w4cKz8PMvoyxqIE3SQC2ymGsikHqpEVkPx5JJsWq7K4Lgph/16CxSnZeg6 zWmS58D9EhVc+Qr0FKjQWaiDo1APC9nUprZClSymj0YmlUwwWdloz2ZDe+Y6 Sg9dwpG4Uzh68BSZpB2mHWRsZtJ4gEkj2dx/kNliXOwRHIw7TjuGAyeSceT8 NZxNuoWTx9Jw4ZgJcReXkSJ5C4mFXqSUunGjkmySy+z6HuSTy0JyWdxshFXt gl3nYp+54KTuOe00Ry8c1EI7udSTSQ3LFpWxB2aLNVA8LvtNWB4Ocvnmncn1 7+UVwAz/vx8iwAzftvnj7yVZB1MoqyO+V+cbUcD8QOi+4+ribdTmNaEkvgp5 hxtQcJxx7WQ7Ss+7UJUwiKZr45BnzECbtwhLySpM2fPoypnFABNGP7VxgmDO ypgMEswl1UOsaB6ip/FtLFn+L35jGMNtHTVU7sekfBjjMqbOrT6MabhvHcc4 y7wxE48Z3BjWsZrRdhBSMysbNfxtYgxKSgllO3Fsxxu0d+GNmXZ8EBP9KjgJ pcMsRbtZTlPAZlbCalHDYiGUZi2MNINJGwAz+0I6bp3OfG+AwE+iNdkMeZIe bYnCt1Dwn5A/DattPYsW6026zlCj4xZzxWMd6MxZxBu6JTxg4dMvfNdAiRau Yg06SkzMnfUwZjOv5N8orsugTGkmwzVQXSiG6nQ6ZEfisf8XiTSG5x0XcGTn GW6PsyoRbt0ciDlMTTzAWBx38AQOHjpJO4Gt+0/jG9/+CX789E/x/Pd+it3P xOLKeQ0uZvgRn+tDfLEXyeVuXKcuptf1IrOxCznNDuSLzWhpbWeq4oLJSN0j Y4L+mdp7YSB/Cu7LyGSLrgejHjuWWQouj5C9EbLnN+DyhdO4Oz8c/r9yCF8N FwW98PO9kSs6X3o0Jkeu6HwzCneBR9qDUevz0EsN6zcS8w42ovCoDiUnnSg7 34+qxGE0XZ+EPHMO2oJlquM8K5YVuMpvw1u3DL/kASZbH2C2jfARvCWCt6J9 iFX9A7ja/gu/6XoDt7WjmFL4Ax9KHlcId2Z88LcyUFsnMWEdwxjruVGjF35D H4YNnRjWWxmwNQRQAq+0JAAdkXs33pxtZ4k1NaBEB7lzkjuHwJ2FAduigk3g zqplsCF3Fh0MZh3Sr6bg+tEk3DiaEbi8rHNVwVuoP0RdvDnwThJvgCyB2pdi hO6aifWGGeZrVrRn22BlHePMMaK3wMyapR+G2ruYNLM+a+iEu9yMgQoz+iqM 7A0duoo0sBUaYc7j6XMUMGRKobtBLbxaBW1SAfXwGm7EpWLHwTrsja1BzP4K FsslZDEPR7al4+jWFBx5JR6Hd19kLXMah/acxNe++Qy+851n8YsfPIdXfvwC jm09gNN7d+Dw/pu4nO7B5TwfrpR4kEAdTK1z4UZjN9JFTmSKrShrNkGhcUGp p86ROSXZk5tdELOXG5kOqS2dWGHKvcwKkDn9qLA0sTxKDkeDHC6OOML/6xNB Ah/D4voTpJvAGLmc863HwUgRDCzhCHcKcxvQXKCEpCi45l10iDye6GDUcqMm aQRNaVOQUQC1hcuwMEpr8lbRVXUHHlbLful9TMjvY0b5AAtqJozaB1gmiyuG BxhRvoExy//D79rHMKUaxiRtXEkeFYzMcqFyHg7yaPFjxExGmdUMmcijiTwy 4/NrxOiXFOANYrhFgPFdeGuunfnt6oghQGQHiXRa5HBYFEx1SKRVDauNRNJM Vh0vOAmJJ0/j+pGrSDuaG7i47HN1uHVGEkohP8Z00YbGK6bAnjzFAvU1G6sO moBkphOduQ70FHZS+XvgzHKiLe025jvX4C1vh7eKVt0ON22gxgZXtQU9ZQzR JWZYiowwFhDNXFZTWRIYb9WGzvkFnGI4Pnr8wroI7D2WzrIkHbtO12Pf6QbE nqjFiYPlOHNYim9/ew9lcTde+vEO7HkxDqfjmE5u/TVitm2DoqMfRU19OJ/T j/Mlblyq7kNCfS+Sm5hWVhuQ22RGo9KFJmJZp3KhWtmHMqadHd2d8HsdWJ2w h5CkjTMsj1Max4jkmBEZ16+wnBWH1v42ZzL8VXORS4wbmIxcyfla6KGNDuGL pbom0Ufr75xkBUXrmERFXgtS44Oshj8dIryEe4ai3BaICwxBh/+E0qOdKDvn QVXSKBrTptFKTDVFyzATU2ftHVjylyib8xhuXcN42xpmVPcxr7mPBd19LBnu Y9l4HyumNVgl7+C1/t/hvpkyqR7CuHoQY0ovRhRuDMn6/htTiw/DFiaV1i74 zcIDdxrG72bMdcsIqIN8OvD2nOPdeHvewcDdaRKhw/IopFtgs2nw/gCkt24l 4dLFY0g6eBo3jtxE5snCwIXlnBMh95wMmWdUwWWsT6PmsgUN8cFvClBca4cu zQnDTQdM6Z3oyO9Gd2EXQ3Q3+st60XLFj37lm7ySUQwKHxyv7YKvvoupNWW0 vgP99e3orTKhp1IPexkluNhAVtUw5rUytDfBlFkROI8u+QpSDuwKvD928mIg ZAsvhnEWO3/JcuY04o6eQ9yxs9hzLgdf/8EufPfn+/Crlw8jdudxnNi3E3G7 XsL+PbvI6gAUTsqiowdKZyfypF3Ik3cgT2ZBYo0Wl0rNW9Du7OaI25xdGPE5 cX/GgXuMRXeYka8yU18hrssTNornREA8x0nquBF1Zeno0Fd/IAJU4QGzSFDD jwKFv8gucqknBGq48Il85CK45PjBwNeQSVu6UZitQSWtltaYpUFzhgaSW7Sb msCH7PJP1iJ1D8vDMid8lol3Ryyb190S7iuqAu9bCjkVLweHsvSwE+Xn3Kgk wA0EWJq9AFXREkwVK3DUrsJSvARPzSwL6HvUzXvolCyhQzKHrpY59LTOwS6d gUsu7I9AI3sdM8ITAOo+jKl9GGX2NqIcwHCbC+O2UYzZCLCNOmsjwDZKAKvD YZMKXm0j7gzrA/C+RW4Fdp/AbxYcW9BcnMycedvPnsYLP/gWU7NvBu2738Kv v/sUju3ZhrSki0i4eBxXLh3FxbMHcTX2Im4ezVz/HG3uWQnyz7Yh67QOYZYr LprQmNge2FPe6ITuVjf0N7thz3WxxGE5W9KHvrI+2LNdaMt+HXOu1+GuJMPC lyE0ujBI8za54G7qQT9Tg75aG3pqzOioNsJUZoaRKauxUAFjvhim3OB3jRmu J+Pqod2B90dOXETsOssxfPdxxB45S47P087hwKl4fO2p5/Cdn2/Dsy9ux7bt J3Du6EHs3/cKzl6+EGBZ6eyjkeWOTpqD761k2wBFuwo+jw6vzzlpDrxGVXhA kO8zhw/C3B6C2SakAZNWysTyJHV3gjRPGFBXfgu+Pmvo+6ze88iTbQLOwte8 hHGO/JK/8GLRBpwjF4uCtxo/DFfvOArIYlmeJvABxGZaK98rcjVQ52igI956 4m0g3oZ0mvBNUqdqkbevANIrysBHTP3miScjbp03ZjZBnBtMayUFbiiKRwLv S+KI95kBprUjqLsxDTH1WVm4CEPFMuy1K1AWz0FRNIqqIi/nMVPfymGIq4bR UjOM1rphyGht9dyv7kFF6SBUsnlYxJ2QVDqgqe2Aq1W4G9TLdMGNUfswRtqp z+1Ma9tZU9nMGGKN1KusFrDeEuD6O3h7wQGvpQ6pp/Zgx7NPY88vv4sDv/oe Ymn7f/Yd7PzRt7Drh09h+w+ewtbvPYVXac8/9XX8+Eufw4+++Dns+uWPcT02 AZnHcpB9qgI5pxsDl1pwTkULdkHppWAm1ZTsROv17sB7bTrrkqwBOIvc6GKw 7mU901/pgSR5Dv3632NcO8FEgmDX9GJI5MFgsxs+8QA84j4MiHrQ1+BAb70N XfUmWKssMJYxwSihaBdLYSqqD5zDmHEN147uCQr2kZM4cPBkCPL9B09sQSzZ /hRij59FzJkUvBJ3Cf/x86340Us78KvtcTh67AR2HtiDMqkWyQUVSC0sw7XC ElwrKsW1YlpRIcpaGkm4Ej5viPBZZwThG+R60hbge3nKEiR8Mkx4OhxW5Xui AJ6dnf0I4P/2vwM8+LjIn2J5aQ2FuXKUCp+wLSTgNHlh6PsCCzQwE3i7sMxH 4J05mi3oIPHvRQd5d1LOW8/VovIAK4hEJbRXNOgq68a9qbUtoeRFeIkypJDk BCVcmj8IZdF44H1xDHk/1Y/KeD9qWcY1Z83yzPOQFs+gPN+P3CwPCjPd5J0X XD6IxqohNFcPQVI7RN6HIKsfQlvDII91QEyrqZ+AXT0ORZ2dzLdDUmGHuIyD 39yJEccQ/A4vhh0uDLU7MGgzwG2SYcqlDMm4kyLuxNXTe7DzF09j/3Pfw6Hn v4+jtOMvfB8naaf4PvaZpwhI3E+/jT/hz+9gL+F/9sufx8//5fP4Ge2ZL3wW 8S+fwa1D2cg5WYWcU83IPSNfV/iiy3YUnTej8op9PatWp/fDWuiFg4V7V5kP rqpB2PIGIS/6HSY63oS33gtP3QC3DEViH4YkPviE2+EtbrjFvegXdaG3qR1d jVbqBK+XhZ+xgtl0uQzG0uCEM+ak4eqJPaFzfhT7mJPso5bHHDmNA4KKC5wz a9l37jquV0mR3aTCmcwiXMouw5kzDdgddxYvxR7DK7FHsTX2MLbFHsT22Fjs iIvD9rhDtFhsO7Ab1dlXMGCs2xIA/QNB1In53bCYE/flKaI+FUJ9iqhPEfVJ BgNWL0K5/GQU1oUkI5L18HLVH39T8DrrkasMwZsCH0V/7wjK8ttQWahCA0ti KU1VTM65tdIcZL6LzPfQXIXBz44KnwYUPt/l5rF+zoU+zgPtlTrUHcqHOaUN lmQGgAsqPJi+Hx7kZmFlKJsA5vaHBj4f8sxR5O+xo/RYHyouDaP66jjKbo0i I82HGzcHkEnY8/O8yL3FAFDUh9oKH4EfhKhmkMAPQlo/iNYGH2S05moHxDUO /hsXpLIFONt6IWF5Ja6yQlxp4daCploHEz0XfMwSfe12uG06dOkleHM+mLcI qi6Avu+57yKOcB+mHQuDTjv7wg9wTtin4h8m7oee+SZif/R17Pnuv+LVr38B z3/18/jllz+HZ7/0WSS+fBYp29JwbW8xoRcj97QC+ed0KLhoQf4FK4ouWlGZ 4EBDSida0/sgv9kPfa4P1uJBOMuG0M1A5mIQE127DZf1DxhRMYcT++Fp8MDb yKJCMogh6RB8rYPwSD1wt/Shv6UXvc1OdDfb0cHSzVhjhbGaqUwVS8gKURD6 /HQkH9+NpKM7A/sxR89g78Hj2HvoOGKYhscQ+v0nzmLfmUSm5Ncg6fBC2ulD UmEVno89jmdfyMalUzfxatwxbIs7StiPYCdh330wDnviYjgp9mPnoQPYGbsL J5/7AU7+6vvIOrUPA/o64uDAmkD+VFDkV6ZJ/jTJnyb50yR/Oky+Hg5D9XqG vdnD+d/631EfFP94KKVWVBTIUCt8Jom0y0tIcAmrflo7s7+uYj16SwwYoHlp g2UGDJcLpoe/QkcTvlBOi6EyTeADa6aUOjSfyEd7Whuc1zlzmOY8nFnDILtP nK6GJLOD+HsgKxiDqmwWpppliJOHUXTQxfR9kFnwAC4kdiPhqgvXiUIGA31e rhs53FYU9KK63Iv6Si+aqr1orvVCQv1raeDQNAjH2jkl2nm8HaVVozDpZ6CT 2NFcY6GZ+Xs9JKJ21NfZaGb0t1vQY1FhtEcZQN9jqcduYn/g19/DQeJ95IWQ vr/4A5ymnaOdp10Qts8/jUM//gYO/vjrOPSTr2Pv01/Grm99ATuf+iJe/LfP 4bmvfBbJL59D6tabSN1eiOt765B7Som88wbqvBX5F20oumRHZaIT9Ve7IU5j hp7phbFoENYSol8xiC7GM1maG9KK/4ux7rcxKB7GcMswtz54RQMYlHhZUxN9 mrfVC3frAPqlfeiVdqNLwineTL3ntRrrWJXWKhB+vkOTewOJAvrHdyLp2Pbg 4b/CvqOnsY/k7z/OmXDqMnafZaJfKUGBVINf7z+CF0j9i3HH8fOtSTgUl4fD h09gx8Gj2HXwCPYcPMTZIzzFFcPwsRd7Du3DrridPOWZX/+Aen3mue/jNK21 IHmd/NvTAvmB5H3GypC5PGMOkj9tDJDf1d4ayFWiPUwd/mBe5OLdBtojv/cu +KsXoWwxoapAiroiBZqZ8rWV6Ei7AZZSE5wlpKHEiv5S4dPgdgwxQxipsmOs xo6JWjsm2ZOTdVaahWbiMQPGSNRIpRb2G3WQnslHV0Ybukl5e6IC7aROnKYN fQuQj9nNOFTl8zCxGHU0r6H6rA+XzzhxOrED56/04EpKL1JJwc3MPmQzOGRl 9aEkrxdVZf2orXSjvtqDxloPRHUeiBvckFD8Gti2RratqU4wG2qk83CYhiBt NKCxwUjKdRBxBjSRhOJKA3IKlLDpVIF6ykOR3/2L7zxC+zGSLdB+JkT7hRd/ iIsv/TBA+5lffgMnfv4NHHnmGzj602+wh/d8+4v4IXbz5/P/+lkkvXgWV1+9 iavbCnF1ezWux0iQd8GIoniSHt+BkngnKlO6UH+9B6Ib/VAxoBlYrVjLmN1U +tBV60PhlQX0OP6AIc00sxgKO0XdLxsk6aRdSrGXD5J27//H2nsAxbWnWZ4n VN09sxsb0x3TvTPb0Ru7s7E7baqqq6qr6tWzkkB4D0l6DyQkifceISEJIYMQ AiGB8N57770HGYQQMgh5IfuezDNt99xM9FpV/aa7Y2MVcfLeTBKU5vv9z/mu +2Oxdo6DPAf6pgXMNc1iumECE/XDGKjiQF/JOF/ehu7ianTm56M9+xBSwrVI DdcgNUyJ0BB/6IIioBcG/BAqLBbaqDSEZ5xB0ulClnqweYAXyl3CcpcZmWxU OYgKSYQmMBjawCCaRCB8AgPgG+gHv0Ad13UI0nrxM4mhNf4RYpgGYzytkWnS Mt6MWEr91rC50O/fGjSX+rWLTehoyEDWYT+EBfuYB/Wd8n4/M9OHmwF/p7o/ 3AxoOfvvAh7ee4xiduplec07Y3kfus8Nsbppg+fY9BRMYKlwEpcuTGG1ZBrr ZdPYqJjGzapp3K6exmbNFO4wD9+hdd6pGcNm9Qhu8xO9UdHP5/Zi7Fg5muNy mHLaMHe8HV2hZahOaEZd5jTH9Uuoz9lAW+EWP/1HGK19htwzlxASPojImEnE xM8gfv8MUvjtHz42i+NZczh5ag6ns2ZRcHYGRYWLKClaZJWzqsuWUFW+hOpK Wh2ru0wYr9mwlVcMIZ9Zt63/Dvq6xlFW3YtyEl3eOISy+gH+rAeZuU2or+3C QGMRdB9Ut4nfi1DdYazoSCpGbIs4KoGK8fgc0e6fcPkJYj0/YZV/Aj9nKyhd naCihKVw0rJYpoPCKwKh3tmIk15ArKwSKZo6ZAS2Ijd5BLkpkziXNoUSvsfy I4xdJ/hacxhn2KMMFixjlATXHl1Cbek/4MrcGyxz/F5puIhLTey1W4RtpEJu n8Nq+2Vm9xlW+QzmqOm6aUyyV59glY/Ws8Kr+tizd6KzpBGdFyrQef4smk4d QHKEFsmRGla7EjFhevhEJEAbHAFtaAw0EfuhikhFYEqGeTD3MgSzwkMgZnyR UnLKU56B2NCjrPBg6E1B8DGZ4BtkZB9goPj3TDpEKJz4udlw0I4T78N/oh9a c5Sw5gBvhcxgDR6yyh+wyq9dakVH03FkHTUgK8MX7az05Zmq95NGvZ867cPt hzsV/n7iWmHsFqY2EELO+6nsLNvHxSjOrjBfwVK4VK1wMdDOc6Os8gmMn5vG 7PlZLF2Yx+XiBayxWq6zim7WLOF27RK26hdxjy55v3EBD5rmqTncb5rh/Snc 5ae7Sde8VcNxvpJ+cJIdesIZVnszFk60osFUirojO5V+5gZaC++it/wxzhWv 4RQD6jGOZWGRY+yIphGTPIOEA7PmU/KPHJ/Diex5ZGbO4mzuDM6fX8SFC4so ZqWXstLLyhdRwddYwtRSXD5iPlavmNQVVw/ifPM6+kc3UNXYh+KGfhQ3MSw3 9OFESQfKG7rR0NyLAH0INC77YOSYE8gqD2J1h1IR3raIpmJZ4fESVrnnF6zw T1nhnyKc36BJ4Qal3gdSbcDvQaYN4FCu1vpBLw6H0fsUjOICmKTVCFJ2IFjb h9TIKRxJmEF+2iQupAtFzv6CNtVCi+rg2xooWMBIySJOpT7AxNQ/YbnzOhaZ x5eblnGxeRmXW5dwpW2Jxb2EZRbzEot6gZqjpuumOHxPYKx+DMMs8B5m9s5y FngZC7y4HB0FuchNj0JSpBZJUWoWuRopUVroo1OhjkiGKjwZSio1pwiePiYW uGmnwIM5hIdYMjqHcQ9FIkxMLmGhkdAHBcM32MTczwIP9oMhWM9i15o/qnip LQs8XmrDAo+X7kOCxJo2aEXr+xSREnsWdQDlj/amY1iYKsO9W324e7MXL5/f eL+F5d8scMvhPx8cZWGpbQm66ntQzlG8OrcNdWeFC92OsVOfwej5eUwXLmGR 6fcSvbI7qQPzqZ1YPcMRu/EK7jZdwYOWK3jYehmP26j2S3jSfpHLZTxqW+Tj 87jXPIM7TVO4yQ/6evUQxk9Voy0xFwvZjegwnUdNeAvqjrGhPLOBFtb36XOX cLxwBadKryC3cg0nz19CeOgEomJmEZcyh6T0eRxgSs84uYDDbN5Osxhyzy0i n6N5AUfzC6Wsc9Z3Ceu7sGwMBRXC4VcjKKweRkHtEM5UMw/03kff4ALyWd/n mgaQXd2BstZuFFbUmCOm0z5H2HyyF+6/+XN4fPwX0Nt9BD+m7hC3PaxtO8RJ 7BDt9QWiPT+DUahpHx+ofNl8cezQUEqdD78HpT4A+7geAK3eAJ08AGFemTB5 n4dJUkYWqhGs70FYwAgSYheQEs9C3j+HcjpVPd9TWx6LnC7Vc34aZUfoTlX/ gOW5LzHLXDLP8WSpeRErLYu42LqIy20LuNG1gFs9SyzySczXTWCWxT1NTTSM Y7RhFMONg+gUirySRV7RgI7SMjpnDrIPRiAhSoPEGB2S4wxIjuV7iDsMVcxB SEMSkFPVAU++B0+fQHj5Bn5Q5MEs8mAoWeTqQI7oSjpURAojPYs8hEUeEgBD iKXIQ3zFu5Ags8N/5K0tEqkY770Idv4IvtY/YRPzl4x0P8dAy5lduHd7AH+A u7f7cZclvnmj11yjv1Pi/3L+qO+vOv/hNsX//v2RG5btf5a9CWWnylF1hhki rw9NZ8eY2GYxmL+MiYJLmGPrv1J6FROnFtCk7sRaHHvNxGrcb72Oh+3X8bjj OrY71/G0ax3Puq/hWc8annavYrub1d91EQ86lnC3fQG3W2Zwo3ES12pHMJZd w4o/jYG4QrQY81F39CLqmFvy8y7j8Nl5HLvwz9V+rmYd2YVXkJK6iChWRWzK IhIPLSItcwlpRxdxLGsB2WfZn55fRl7RMvJLlnGufBnnq5ZxtoyJt2IceVVj yKsZRW7tKM7UDeNE5To6Ru6iomMMhy9UI/NsHgIjI2AKD8e+3Z/Bdq8V7PdY wfHjjyH6+C8h+eSvoKBUlObTH5uTt9F9L/QaGVSsbrXBD1pK58+hm9Kw8pV6 Pu4jXI0ggEumVF/+XOeLcLfDiPQ6g2BxCYJY8UHaBoQYOhETwX47cRHpqUvI TF/CBXYgLaz2roIZdBdM4diBJxiZ+SfMdKxyqGZ/SfdcaJ7HEkeUlbY5ZphR rHdMY2toBRu9rHqOMLMcYaYaxjDeOIqRphEMNbPaq+nUrOCOynq0l5WgqeA0 4ljl8fEGJCUFIinRiCSuq2LTEZ1dgtbZDRiiU+CpN8JLkI+l4r2Fihe2NbL5 VDKrqE3B8FQeRFz4MZhCg9jABsIvjBUfytzCZJ0gs0ei3J6jBTscl092wc/m ZwwYIS6/QaxkDwlgm+/yBYKchM23W+aS37rVj032oV+/e/Fhyf+XnR3uk9Mb mKZmpzZw7EgHTh6iDnaYZ3RapF8vDK3/1vyN7w8C/R08PtwgY7ncXfNvBXvz k4WdQtm1qD1Du88bQaswDBGQ4fNXMHXhGhZKhYsa30Bn6gpa4zdw48ItbJZO 4VHnJp50beJpz20877uNF/238LL/JnUDz/s38Kx/HU/61vCw9wrudV/Cnc4l 3Gybxzq/vKss1rFTVWiPPo2usLOoi2tHEVvY/acmceg9JGWXcWYHkqL6Gyhr vIljp1YRGbuI6NRlxB9eRtLRZew/tozMM0s4fm4FWfy906UryClfwZkqqpKW UTGJ7KoJZLHpOFk7hhP8v48xguXU30PpuWZCYQv7fa4QiVTwcneDrdXnsLO2 hoP1PjjusYbrR7+AjHAoP/kxx64fQ/f5T+DFwO4ukcFbqYba3wBtAMHgV6AJ MEKj1UKr0UJHKaVSaOQq6JRaxigNfHx84c82Nso9G1GiAoQoqhCsEyBpRXhg B4t0BgcPLOLo4UX6/xJyjy+iMX8GhUdWUFr7j5iefY7hSiHLsCVtnMVs8yzm W2fZqg5jsW4Aa52TuD3Ez3lwEas987jYxee0jmOseRjDzUPobRhER00vOqpb 0V5Zg5bSC8jOTEF8YiASkkyUkesBjJKxqBi/ioEbr1AxcomAMPNoP4DEj5AQ FGnAb0MiN0TDGJiNiKgo+IbRFsKMhMQPQToRgl0+Ixe/gIEKdfuEDY41kpT0 B7NskKhg88SGKtT1c0aTJGzSFG7TFB7cm//+AgwfHutsOXj+DzFLiE9mdeDU qU7kZHUiX5iB7EQnioULKmdaLqZccZg6SO3vRGVyBwYKp/Dk1jP80KGqP/lt hIQNQ7+NkOpfIFR2otj8WO2ZQTTmTqE9b4mJ6jJGC9cxU3IDS5W3caV2C+uN d9F+cgOj5Vu4V7WKJ0xUT/vu4/nAfbwcvI9XQ/fw5fBdvBrewovhTTwfvoXt oRt4NHAd9/vXsNVzBbfoOxtMAGvEaJVlPHaSzh6ajcaoUhzNHIc2Mhe+sefh HXgItvJQOCgi4KSIhIsyGm7KGLgrYxEaXcl4WoEoYhSdcQkRhy8iLWcZB/Mv 4UjhJRwtvoRjZUxmFVxWsBzLp3G0gvG8agrpVZM4wC4i9Wwl9lq5wXOvO5S7 98L7419D+sVnsPrkl7Cz+gKOdjZwtLWBMzFy+mw3JB//NdSf/gRaAR93F3hI 5ewHFfDWaFg2/kxTBmhUSuhkEugpH0rt4SZcQ8TVGX8Nnacnk5Q7AiQe0Epl iHTNYio7iyh5CcJ1tQgNaEFEUCuio7qQkjKMjIwFnDy2yJJgWjy9iIPp2+ib +yf27YvoLx/HUNU4xpmeJuvHMUPfmK3pY5Lqw+WOcdwYYsIansfawBwu9s5g uX8G832TGO8eRS87pPaaLrQJ1xGoqERd8XnsT4tELBGKob/kXziGmsYC9AwI l60b2HiBP8HRslaIDWHw0DBZ6SwYidhCeBuCLMlKQIj4qNkyaEOCIVZnYX9M KnRMVaoALeQyF/ju+xuEuH6GWKnNj5CksqdJJKntkKiyNSuGHUS4+x6EuX1h Ju0W/eX+/fkfnBXJcsz/H2N+bgO5OZ3Io/KpgtOWi1iXk6RqklRHihqOdaLp aCeaj3Saz1NrJkXNpKglmUroQFOUZfalD+fOfr+99HdI+pCaP9/ZC/zhYw+3 7qPyRI3lyISccTTlzqMz7xIGzl/DeNFNzJbfwXLNPaw2PjBfB3SzQziw8Qnm ip7gceEEng8+wcvhJ/hy5Am+Gn2M12OP8NXYQ7wau48XY/fwdPQOHo/cxoOh m7hLom73XcUGabpGU1plbl6t6kdPag4KAtOw210DK5EfbCRGOEiD4SQPh6si ivTEMAnEQqSM47frrY6HN8SaBIi1CRz8C+Ef24toDtxxp1aQlLuC1Hyq+DLS Si5RK0hm2onJH4XxaB18U/KReb4YriJvfPyrT0mJO0wuXtDZ7oHO5lPYfPoL WH/xKRwd7OFkbwsXW2qvNdw//ghyq4/gKhbDXSbja1FC7h8ABQlSqVTQyKSk SEqKpKRICl9K7eZCuZqXGipA7I5AmSd8PLl0C0G0Ry5iZRcQqytHeEADwkNa EBvXjcTUPqSlDyPz+AxOc4RIP7yKzIKXqOu4i86SUfSUj6K/YhijlQOY4Oc3 VdOPaRrMdE03lttHcW1oDteGZ3FtZAYr/VNYGJjC3CCpG5jAYNc4RrrHMNQ1 gP52prbWWn6m3UPN+DP0DDVRjegZrEf3QC36rz/DACUJCIfEGMF0RppoSGaa aEgWkoJ2SAqCKpgKYpPO7yU28gS0/joo/NWIEtsgQeFAw6FUDgTJgf9nktqe zYoZJ7NsEeVthXCPPURqN/vAzzE71vj7P0CS5Ui2/4IH95+ZZ2s8n9tpVkGu ZS6uCuGYHVLVQKpasnbmmqQvddGXuulLPfSlHuEi4em8n9aJXrbbvYlUbDtm c8ffb4v9cCfEvwnVx7/12KXJZVSfsKS+utPTtKdltkBXMVh4AxOlm5iruo+V +ke42vwEN9qfmq/Afr/3BaZLhVPKnuIl08aXYy/w1fgLvJl4jreTz/B6chtf Tj7Bi8lHeDbxAE/G7+HhKC2NdrU5yITYu4prXctYZVs0mluLxoQjOMjm0slL DxuRAfZiE5ykoXCVR8JdHg0vRSyTVDzEqnhI1AmQaRIh0yZBpqP0SfBSJ9Gy cpBfOb2zi+kvoEuuhCKuCKLgo/DwiWYhRLIQouChj4Cz2oS9DiJ8+pu9cPzC AT4eKpicXSC1+hT2n/0Ctrut4eToSDnAxcEObrQqF2s7uEgVZqC8mdxkASYz UEreV1NaSi+XwUcuhy/lR2nc3aHxcIeW0hAkf4kXAuUi4Rgeby/sRoQzLUpS iFhtOWL9qxER0ojIyGakHhnBwcwRHDkxilO5bP0OPUR+2ysUF62gsmAa3UU9 6C/uwlBpF0aFc8kI1GRtDybrerBGa7o+voxr4wu4NskYMDWHxZFpzFHjtKmR 3mkM9Yyhr7MP7S3N6BpoRvdgE7ES1EjVE6o6dPVXo//aNsoGFs0wSQmVNDAS Yv9wfo5BZovy9gvkz0xUINx1erhp1HDXaiDSB8PPmI3wqEiEq90Rp3BEvNIR CSpHvvdEtQP+FyRqCJeGbZFZdohjyovwIlSeewnWbi6taMWWxv3Z629+hPWH r9gyxSel4NKtx1i//wrr96i7r3aOr/tTtDcJ04h1oOhsp1nm6cSEa3PnWqZH bSZs7cLxEbSvXoLWT9AGj1muyD8sXJCdNjacYZkedViYV5RWNrLfMr/oQFQj XtzY/n6mpQ93jOwQ9/5HHx52ajnEX/9bxAn/ak50oO6U5bDJppzL6M5fx1DR bUxU3MN87SNcbNrGWttz3Oh8iTu9X+LBwFd4MvSaQeQ1XnY9wGuGwddTX+Ht 9JfUK7yZfokvZ17g5fQzPJvaxpOpx3hI8u6N3cWdkVu4ObCO5aYZNGYUo/Fg HspSjiE1Lg1KdQisXX3g6B3E6g5ndUcxdMWQtjgofY9AazwOH9MJNrEn4BOU yWY/DQrfZFZ+CqTaFJIQA3VEJjwDks3vxduYDDHl7Z/AKoiCSBvBUBkIN5UJ Vvae+OxThj4bO8hclfCVkCJnJzju/g1ENn7w2hcB9z0BcP9MC48vxHD01MHZ yxceMh37iEDISZuClKlkJEumgI7hUK/g36H8KINCRdI8oWUQ1HpRIk8EyLxh UojZcEu84YQAb19EeuQjWl2OGL9qxAbVIjai3gxc2rERpJ8cRnTaJFILhMt7 3EDhuUkO1yNoPt9F6NrRW9KOgQpWRzXBY8Ybq+3EtYkVrE9R04Rudglr82yt 5hcwMTiDwZ4pDPRMoLdrBB1t3ejsEYBrQtdgI9Vghq2bsHUP1qCzrwp9a4+R UdxAyMLMTiYNtEAnNTFZaPzhKNPAXqZiZldzUPODzGSCinlQHRrMQTIT54yR iJE7IpawxRG2eCpB7UjAHM3AJWodkKC158/szIfShO8AFyNxQJi3MxLDQgho 28rWj9C+vMUEeTSvBMVt4+iY30KH+YL+1DQ1cQfXt17h2auvd2Zd/TN0tUwQ uQ7zxHPvJ5+rJIK1RLBRmCeBCHbmdKE3uwsDp7oxRI2c7MHYiR6Mczl5shuT J6iTXVx2mY/hmyCaUxnChc47MJXWivH4Bry8tf39NHIfbtz+HQw/3PJnNr4P Zuz7yLyP9sN/zTlX0X3+BoZLtjBZ9QDz9U9wseU51tpf4Wb3V9jqf4OHQ++w PfI11lveYanhG7xtX8WbmXd4O/sO72bf4s3ca3w19xVezr7C89kX2J55hkcE 8d7EfdwZu8PO4SJas2rRdKwMTYfP4cT+YziQfBh630jYuwXAzs0IF3E4Ox9a njyWgB2A2v84dMaThO8k/EKz4B+ehYDIUwTzIFSGVFh7B2MvLXOvlx/en0kh oc1JlCbIpL5wF+nh4c2hmbK28cQnn9vC1tYDSpUBRoMCXs57YW/1CexcFXCV hMJGfgyO4gzYqo7ARsUOUbIfXl4H4e1CC/7cD1JrHZROaqiclZQKPkq1+UIl fioNDCots6SC4HlD6+0Nndib98UIUklhkEkJIVu2LxDoFY0oaTGifWoQY6pD bHgdG7J2JKS2IeZAJwLSriOzeQsnT3cjL38EZ/OGcP4sG+fCDkbKVkbKNvRX sUevbsdM1yiuTCzhytQirsws4MrsPC7Nz2Nuch5TY/Po75tmfYyjtX0ADc2E r68Jnf3UQIMZwC7B6QZrzW7XOUJbWH2EI0X1ZgC9fIPhrjfBXu7LqK+GtVgN V40B3r5Gs+tJ2ZDJ2JApghkpGSWVjkE4rUrDSY0rYpROiFU5IU7ttAvxpO9/ RryWPJK/WIE9bxszf1FiO4R6u8Dfk/Jwgo+r7S50XNrCf0LnxS10rmyZJ03I JIWlbDu7FnifJHaSxE6S2EkSOyap8TuYWXmE5y+/ttS3MGnhGMrOtpshLD/H oGmeCVKYqprtWh6709wedJ/pQ19OP4ayBzB6ahDjp4YwmT2E6dPDmKFmc4Yw Z9YgNYC5032Yze7FHMGdZ+s3n9mG+fRmTCfX4dXtJ/ihCx78K1BadjcVoSy9 HLWZfewmp5mDV9CSew3dhbcxXHYPkzWPsND4FJdaX2Kt8yvc7H2DrYF3eDjy DbbHvsWLiW+xVPc1Hg19i296ruLd/LfUN3gz/zW+mn+Hl/Nv8Hz+S2zPvcCj mW3cn3pknmSnK68Vbacb0HyiAs2ZhTiQdhwHiWNwRCLcvUPg6B5MhcBdEgOR LJ4oEjd/tgmBWfAJPgW/sFPwjzgFY1Q2lMYDsGcLuEcUQBwDzBBa2Yhg7yQ3 r0uVbDsoLy8dvN3kcHcWw8PVG55u3ti91x57ndVQG42QKz3h5mwFm70fw852 Hxyd3eDi5g4X4uUWFAG7kDTYG5Lh5pcGO+VJDhWZ/JtHIXE/DIUzhwr7JGht IqGzDobeysiCMrCwdNC7KKETyc0bTrRSCQLVcvgr5fRLubn9U3iJEOiegQh1 FaLY2gX5lSPYWIbI4FIYw/uRWnYfmeULOJrdjhOn25Cd24e8swMoOt+DlqIm tJXQ0Cpa0V3ditmBSSxPzGNZuIzLzBwWpskh74+NzmOEGh6ZQ1vnCFnsQHdX Mw2xCR19jWRSUD25rKNquV6Frulp1M9swDeOQ5FYiz0eSuzxVMFR6Q8v8ikL ioI8OBrK0GjIg3g/MJgplW2dwQf+Ck+ESZ0Q5XwYBX5s68hjDHmMEXiMJY+/ z7sOiJTamlkUdqlGyd2FY6dF7sJmRJEb/EUu8PMUAmvX5S38NbqIZTeh7F6x AFlGILsXeZ9QdhPKbkLZRSi7pihC2TVOQEcI5uJDPH6wjYqzLajM70AVaayk hGm06/J70HyWQTxvAN25Q+g/M4LhM6MYyxnDZM4Eps9MsM2bxHzeJBbPTmIp X9AElvPHqTGuj/LxYSzmDWKZNK9ks6s+0YaljEbMplX/e4j8cA+AhchPUHqg GrVHB1B3fBb1WZfQkncd3Rc2MVz+gH3GE8w3PcfF9i+x1v0GN/vfYWvoG/Z3 32J74ju8mPpbvJr5W8y1/QPeTr3B1zMv8W7hO7xZ/BZfLX6Dl4vv8HzhNbbn X+HR3DNsDN5CHyupm8mhPacJLaeqUXGsAAcPnkL6gZMIiUghedE0tBi4eETC 2T0CXlL2gsokKAzHoDGdgj4kG77h2fCPPA0N+z0r70AqAHvdOXI7KswU2th6 w9ZObMkAMlUIwuDoIIbIRQKxmwRelMiDIiw2bj4c9CWwFznDxskKdnb7YG9v B1tHdzi5ecAlKBJuIUxkYdHwYErzUOjh5epFuL0Jo5iDRiRE0ij6bzSkinRI 1aehUp6CTsog7X2UUB6E0S0Bga4RCHQKIXwGmLx1TKcaM6hKbzGUYjF8pakI kJYgQFmMYN9SRASWIC6yAYdZCTHJ9TiU3YEj2W04cqoJWXk9OHOuD6UF7Whk gmypaMZA+yBmaIIzE3OYZRs4OT5HAOcxSPUPz6OX6uqf4mODuHmpD2PDbejs bkJ7byPa+xrQMVBP1aGxowQF5SeRdKYYutTT+MJdAydlABNoCMQhTKqh4ZAE M60SQjmXipBwplIqOAwGnRYREjeEipwQLHKA775IlAbEIlzqgAhBMkH2TJ+2 DAVMrgo3JGvECJF7I0DsCaPYg3LnZ0MivV1h8HLehW4C+TP08LaHUPYQyNzy Zpyr7TLP/9FDKHvmLVD2EMruWYpO2U0wuye20Nh2EWePVqMspxnV5zpQc66L yx7U5PehMX8QbWdH0J03RhgnMJwzhbEzM5jKncVM3hzmz85j8RzHtvPzWCmY x8VC5g3hUJ8Lc9Qs12f42BQuCtO1nBvFJeaWyzk9uJTViovH6rBe2f+eyQ83 E/34Qyb/4LfO+n4/xe/bt28tzaQtLo+vo+bIIOoy51CXdQUtZ2+wO9nCUOVD TNY9xXzzS1zseI21nre4MfA17gx/gwc0y+1JGub0d3g1+x3N8W+x3P1P+LvJ u/hq5AneLPGxpW/xculrPF96g+2FL/Fo/gUGi4bQV9jHBpW9c24zWk7X4Fzm eaQfyjEjGhqZCo1/LLQBiVD5JMLNKwauXkIDmQypJhVKw1HoQnPgE34GfpFn zGhai4yw8vTDXlsJ9tnJzHja2UvJmNTSREoD4SnygaurDG6U1F0GmacMEi/K PQFJaXnQ64VpPPzgKpLvgr2DPf4Qtk4esFH7wTk4Cm5hsXAPj4NncCyfoiae 3sRTwj8lhdxDBoWnHCqiphExroqV308opPdPgZYv2TJMWI5KDtQcR5DiCIIl KSzhKAR7hCDcORq2v/GGQVQMk6YcIYZKRIVXIyG2HAnxlUjNaMeBk9SJZmLa iBNnu5Fd0IuqogbUlAsn3IwQvr/EMG/7B4ki1T00j04uOwbm0dI7jYXZYcuh mzsHtC3OdaG9h2h31eJ86WmkH0+g4pGUmYZTjeMoHVmGITkdskhiGBVKJE3s wwPZSLIVEE6I8fOHyi8AJqUYUd4OiKFiqTiJCxLkHvCzN+IkI3+OnxzxSi8k axnZU4SbZK2EvWCITEQUvShPM5rCJuIAsRvlCj8OlT1XtoR5eEjlH6CXXPbS LEtbR3DyfIV5ZpXepa1d6CWcf46eBQuiH+JZmNeG3CPVyDtSh4ozHag912uZ Uzdf2OXM8Js3hb68WQzlMk7kLmAqbwmz+cuYP7eCpYKLWLlwEZeKL+EytVpy EbOnxzCX1oarpcsUW4SSRf6MqBbN4HLhBK6cG8Iqk/CV0024eLIKr+8++tN/ G03hn4CjcGz3B4dO/cVOW3l5lGimE82MeTOaTUSzq/guBisfYaL+GeZaXmKl 80tc7X2NG4NvcGfkLR6Mv8OTKWI3Q3ec+wZfLXyD+5Pf4fHcP+LvZjbxZpnO ucyfLX+NZ0tvsb34GnP1SxgsHiGa/WjOrUR99nlm53M4d7wA6YdzcTA9GyGR +6H1j4MuIAk+xhT4mtIgVsTBTRwHsXo/ZHphW85BIprO/BrGHoeuycy4x1YG K2K5z07Btyjf4YBcObFFpD26uSngTnm4s32k5F5KSD010PqeYd3nQCYmrhIp 3DxExNoBDo4OsKUt2vgFwyEwAm6hsfAQ+AyIZMvpC09XKdkU0JZDxoyn8GRr KVJBLVZBK1Ext+6cH+PDPGsQTt31g0KiND+mkCr5HhOg9omHVh8PfVAuAgNy 4Onki89/w9ewJxA+3qdh8qtFBPvM8MgKRMdVIDalBvuPtyPpeCtSTzQhLYu2 mtOGnLNtaKgbQWcXOeyZpxXOo62PPPbPo4nLhl7hijRT2Lg8gu1bI3hCNgU+ t9b70Nl4HAVnIpGbHYVTp2JxrjQbNa3FqB3sR9HABPK6ehB3+jRzaxDEwpZT XQBkWgPkGj/mVSmCpe6IFpgUs1GkEqhEKsnbEclUisgRUQ6xKGKv8COBTt6m 6KRmOgU2d8Eo8cJ/QICEtimhbZp3hrrDn3z6iFzRa+az9/Jd/B76Lt2l7qGs fYx8Vu5C38o9It63fI+o8kdLd0nqXbOV9pLT5t6L5LKctlmzcwGHP2NpT/3W FpTRvIuYPHsJM/lXMF+wiqULV3GxeA2XS9dwpWwNV8vXsJA7gza/ClyPrMVd Do/XKq9greKyeZ6h1bIlcjuH1aJJrBYMYpWOs5pXh1tNvXgP5of7OXbA/F+/ 37Tzfv+L8G8Hy50n5eHi8DVUHyCXR2iZJy1cdpDLAXI5Xv8Usy3Psdz5Eqt9 XzKRfoXN0de4P/EGj6fe4tnMW7yYe4dXC+9oke8w2/P3+ObyN3g3eQtfrrDH XOZzlt9gc/wRRkonzFy2nq1HQ24pGnIKUX86DycymGaP5OHAoWwYTInQsWZ9 ApLha0yFH7n0D0mHgvXrKY+F3PcAJD4H4aSIgZWXiZYZhD2OGtqlAvvsKfJp ZyOhxHAmnx5uavaSarIph6cHvc5TDZGXGt5eKki9YxCRVICwyHjIpWRVxud4 CVw60jUdYSdRwMY3BLb+4fRNwTNp4T5hcJX6k0s5RORc7K6i/aqhEGkYSzVQ S7TQyLTQKiyn4PtofaD3MUInHNqo9TM/JiOzCpkGKi6VwrpCBaVCCUdbR3z0 qTv7Y29zH6xlTA43nWXfXYXgmEqECpOfZvUhMbMJ8fTO+JONSMyqR2bRAKob J1HXNo/ajnlUd86jiqqguoZnyOM4ntErnwqnOawPYLynAJUXUnD8sAEFuZEY 6TtrPt1BOE723s1ezI7nYmy2Cx0jnega7UJWzhEY9FJGdDF82COHeAkbSO0R ueOTcWIHM49JEnIocdyFVK78AfZLnJDGhyNtlMiXa5Euc7XYZjK5/D2E0GmN ErqmVMQg78XuUupJQI1SD64Ju4PckJV7jmDeR99lQQ8IaN+lB+w2he7yZEE1 +i8+MD9iXgpaEcTnLt+nod5DUX4LzmZUIv9oHWWZIiT/iOXyTK15C3TNZfTn XsJwrmWy5enz1zBXuI6loutYKbmBy2U3sFpxE2uVN3Gt6ibGaFwd4Yt4WLCG p1Xz2Ki9jvWaa1irJsFVV/jcFZJKSosnsHphAKuFbbiSX4k39x/if/uBfSM7 lP7JzhHHv7Mf5P1hOx/uMrH0p6UcVrdRmTKI2nThPIYraMy7gXam3L7KBxir f4KZlqdY6nyOK70vsD74ErdHv8TdCabWqa+wPfsaz+df4+XCG7ximv2KeC4N /yP+4fIjvJ69hxcrr4nsayw0rhBZZovCLg4J1fw/yoltERrOnMWB9JNENhep 6aeg9YtlNEwksrTRwP0wBB2AhzoanupYeKqizXv8Zfpk7PUIgDWRFa6csoe4 WtFCrfZJsc9GCjtbKRztpHBiynVxlDPZKuHiJCWOWnh5aeBNvMTsANV6/p/H CuEjHDcpzJ9Dy9MZAmAn4OrgBBtiZuMXRmQjYW+MhmtoEq2US2kAPN2JPyX2 0EDKvyv31tIqdcRQBzW7VK3SsitKxVrV6vm39YHQ+QaaH/Og9Xp6Cc/j7yg0 UCgplRpytQof/Wovdu9zgouzC8SeUoT5+SEmMJivLwYBKa0IP94P0+FmBGc0 IvhoPYKO1iIosxrRxxuRdKIRCVT8qUZkHjuG4rwMM6qbK+3ob8hC6ZkYnDpk QF3JAVxeaMCta124d3uQ6ieu/di42oSJoUzMz5ZhdbWP6sdVaqS3GBEKO4R4 2iJMwJWK9LY3W6iAa6LEgqtA6n4pOaUOyJxwUBA7zRQPD5z0DsAZdpwHGIGT iGykWmo2UYFU0a5/Zvb3eesBA830+JkS9F15SD3is/pZTz9D3fB1HGVvlHIo H4W1CyiqWUBx9TyKK+dRVDGPxr51svvQzO7Zw8XktAr5mc1cdlOWKw8UHp5E W94l9OStYjBvDaNnr5sfny28icXi21gu3cSlijtYrdwii1tkcgvX67bQFDqI /uN3cKPtNu61r+Fmwyau19/Cev0NXK1dx2oNma1axmr5LLkdw2ppLx2Wn3J7 53tcP9yH8u/D9cOtuD/d2c9ZmtCPmrQZ88H79bkbaLtwB70V9zFS9whTLU+w 2LmNy73PcG3wOW6OvMDW+Es8mHqJxzOvzNuCnrPhfLH0Jd30S9yh4z68zPTL rPJi5RWeLr/CWNk4hkvG0HyuHk35NWg8W0EVozE3H2mHsnCAqMYkZkCiCoOb NAifO2jwhZMee5x9d94IH+P6566+xNQfe23ksBIclbLeZ8HTwU5udlQBT1cn Np/OXDrLmHRVEHnr4C3WQSSKQUhCEcLiDsKXidbPPwi+/ib4sNNyYUnZunnC Rm+kq0bAxj8GdgGxcDQlwIVNspMkECKxPySSAEjEBkhEOqZlPVOsD5RyX6gU vly3IKqQ66HWGaHSBsBLZEm7XkTUw0MBmVwHuYJSUWotZDofuCkN+GSPHWxd 3OAucoNKo0d0sA9UOm+I6O4efuHwMh6FOOgIFKFHoAxl8g9l8x56gB2sGsFe +xDsuQ9G1z3Q2nwEje3PkWBwQW/jSaxMVuHOtR48uD2E+2Y0B80H5guH5W9c bcbk8DHMTuRh7WofrpnVj+vUjdUBRMntEEZEIzyJJxGNIqJC1xlPRM1uShT3 E8kDcmKpcEK6wmkXDnHlD3CYt0lO/qjQe+OI1AEHRA4webub4WQV+vPWX2aR MBOOF0OpP2H1peP2XXmMfqph5AZOsNFLTm/Gfiptfw2Cg6JwLK0ZJ1KbkZXS jFOJVDzXY7mM4jK8wnxxjHwOZPlHO82I5meM01YtV3+pOrqC3tzr3084PF24 ifniLSyV3cNFVvyVqge4WvMQ1+oeEsWHbFDXMJx8Bdu9m7jV/AC3zbqHG03E uGkTa403sVpPVGuJajVDcPU0kWVzWtGOK8Wl/39iugcXB2+jKnkGteazDtbR XHAbXeVbGKq9jwm+sPmOR1jpeYKrA9vYGHmK2+PPcHfqOR7OPGdD+gLbCy/w bPEFni+9wIvlF5jsZRC++R3eLt7AWg/HrdIRDJUIe8wb0HSuFo3nKtGYX4yG PAHTU9DRsT63l+AzNphf2Cuxh5haORJTex32Ovqa38o+V3/z8jPi+7mLDz6z VeHTvRLstpbBmtja2MphT2d1tJdbmlJnNqUubEoF0VU93VQMv37wImYKTTaS j5fsgkjihz+E3jcIfgGCTPCWymAjonxMNNQo0hoLO2MC7AMT4WJMgoN3IMk3 kPwAiCXGne/7pzRpH+ZqSuwDGckV/slJr1IbCHcauYeHZodWGjHzsoh9rIzG K1NTpFLK3k9kjIIyKg37xArsdXWCnTcjYeQZZKachLNcATdhBz+XUqUgLaQq Uq5QQMn7Jrc98LH9CPLPfwoFJaybXHYj2H0vQj2sUX92//ek3r09aDmh4P/C xlozpkaPY2LkGC6vNGF9rc8CKXWTuk1Ya3L2I8LDFlEewhlN9v8cfQlqshlU RxxQOOKg0gmHVE44LEjthCNUBpUqkqPIxxfZagekiu2QwL9l4luzYOotXG1O 5r3LfPc3MEi9EBebiqLGBRxgeIiJKUQclUilRhdifyT7AmMYjoYXIie+CgX7 W1CYQiVR8S0oiGX0DaxCjroIpxUlyA1rJKujZHWarC6Yv4OyQ5fQefoGhs/d sdhp8X0slD3EcsUjXKp6QnvcxrX6bVxveIqNpqeoN03hQetT3Ot+is3WbeoJ 9Rg3W8lyyz2stdCCmxiZG9fI7CVqHqt142SXtlpZizePHryfg+DDfS7/Pl7/ 5dUx/jPK4iZRfWgFtaeukaWbaC+9jf6aOxhrvIuZtvtY6n6AK/2PsD7MFzn2 BHcmt3FvehsPZp/i0fxTPFl4iu3Fp7vwdOkpX8b1le/wd7eeYaNzxnx5gKHi QTSdr0fj+Vo0nK9Aw7li5OzfT1d0hJWTBJ+zT9vNfnOvnYpSswfVwNpBDxsn X9g6G8zvxJa4fkFMd7vQXfmcz/ZYULXaJ4cTf8/bUw8nJ4ZdYurqqoI78XSn o3owoHpKDfBQhsJLGgtjTCliGba9NaG7INYE448h19FcjcLBZCbs0/gS1ZAd VONhE5BIXJPgyFbani2yG03dw9Oy+9VbYoJEajKvi8V+NFy/769xJJX701B9 4eKq3XksjYjqzedWezMXy/UB0BiCofA1Qmpi2xyVDn1qFvT7s6CMOQA7tr5O knRERmTBh9nZkzlZpBAQlxJPbw4FIojZQrq5u0K695fwI55Bzp/T/PYhUrQP EYK8hGNvrM0HuZ2I1rFdLSKlg7hDUtfXWiycUlfYsl4npzeom2v9uEVON6kt snqXEliNJqsxZDVOMFVymihkW5rpfrrnAXKaTi4Pa8golSFI64SjWiEHu+Gk 0ogcH3ckS2yRLJyL7mWLQLEn/Miqn1wMg1neArUwqPwQajqCqLDTCPLPQBgV RcUZMpDkl4Fk30N8PBiHdRn8fzKQqcrAab/TKImuRmViCyqJbKG+kCpGoaYM hYoK86d/LnEM+YdXzOvlGVfRdGIDo+cfYLLokfmxxYptrFQ9w+Xa57ha/wLX Gl/ievNLNMbO4WrxMzxk77fZ/gqbHS9wp+M5l89ws/0JNtofYq3tHlZbN7Ha vEGtUkzCzbTXxkFi24ztKyv4/87rh7tp/nrnlJOL/XdRkbqM6uNrqMvbQEvR TfRU3sJw/SYmW7Yw33kXF3vv4+rgA1wfeYib44+wOfUIWzOPcW/uMR7MC9OE PFp4DB885u21qRfYXP8neu11DJb0ob+4F40FdagvqEXxmWwEMd6pJLtZvU5w lrC7pKG5sIt0ZUW7serdZP5cD4CLlz+cSIijm8VbdxPYPa5+hFWML+itVgTW hlHYzkFJKeBEWF3opa5u9FZ3paVLVRghYsV4qUiX5gQSMsugC4ohq4EQq418 LABStYESzv7zh1sgI7A+jMRGk9hEEpsE24BkOHDd1juYcTmAhmk0vx6RJAje smALsfIgKoD3abxyGrXMBHdvf7h48v14+8GDRIukvqRVT/IYoUmhKjAcSmME fBNP4Eh5N45UdCEupwzOar53DX9XY4DY5zRiwxh7GZlFCiX/BqOxyIWdtxNH CwnkNFejzBVRIsv1R6KpXea1/8Bba3aXgqxIsBWCacKjvRdwjbTuMrP6XzEz eZYu2/s9rbepO1cHsEXdWx3Efaox5wBiPBiBRYKzOiKetCaS1hSFM9JUzjio dsYhrTMOU0d0zsigjuqd+X9k6p3wH5HiaUCNSUHCbZEiI7VS0i92gi9J9ZVL dplX/isMigAE6vcj3JhhVgQVSyUFZCCN0B4itBm+GebzpU4S2FNawqrOQA6h PaPIQIE+B9VR1ajwL0S5oRTlfuUo11eiXFP9/UB64dA1lB/ZMN+zPPanmCt/ jqWql7hY8wpX6r/E1cavsN78Gt1HVzF29DEej7wloG9wp/M19RW2utjtdb3A rU7Bk57gWscDrLZvYbXtFnWNose2zRHiUYLbju2rl7/fzPThXpq/+t2Nwe9P a/kQXct11uQojp5BxeGrqM5eJ0cbaC+7QU+9idGmW5hu38Ri9x1yzBcxdBfr YwzqE/dxa+o+29IH2Jp9gLtzD8jqA9wXNP8Ai1Nf4dXdv8PDkXHU0UBLc0/j bHY6QgxuCNI7IlhnD5nIBm5eXvBkQvLyVpsdx1tmMNe5RBnItjUIEnUIFWp+ zXucfWBFPndbSdiq0kyZe61pxDbMvHZsUR2Ye52FY/YENtlGeikDdtgMJKeh 8A0vQeyRMxBrTWY+JQynEo3AqDAzvYVRz/D9sDfQSX2jsc8/iUomo8lmRu2V EXAmn647fHqQTy+5hU9PWQg5DKZ5B0FEVkWKILpmBBy96KoSv11wl/nxW/JS +MBT5QN5QCgk/vT4oFT4pxUi5FgVDGl5cFIZ4cyX5MJhw818cGsCTCHZCPUP gau3hB+PhIYqhkYthk4jhlavRaDCHdHifSz5fT9CjGTfLkRLrPF/IEpihUix lRlPo+MXaKlKw/jIcTOSN34XybUdJK8O4sHqEB5Sj6icSAPiRBYTTeBwmkQk U4hkGpE8SBwPEcXDehdkUEd9XJDp60wqfZ1gzVwsQ7HRn4wy9yrtSLM9kmT2 CJF6wEcugczNCWpPX1ZCCqICMxBtIo5UfOBRpFDpxkxkBGTimP8xZPkdQzBb lGyfIziry8Q5zVGcp58WCCKiBUS0yi8XdUGlqDVVoNZYhVr/GtT61KJGTa/1 bUPF0VuoO7GJ3vxHmCp7ifnKL7FU/RqX6t7Q+95hrfkdpi7cR0PMBu4OfIvN vtfY7Poad7rfYav7LbZ6iGfPl7jV/QIbjMLXuh7jaud9rHbSS7vopV1sVbsW eZ/Rt60b29dW/zUsdxzz/b/fF27+887TP5yP6+c7G4Af3vgSJUmXUH58HVU0 0caiDXRWbmCg/gbGWm5iuvMWFnpuY2VgE1eG72Bt9A6uT2zhxtQWbk1v4fbM XWxSt2e2sDkrgHwVA4MbmBluRt2FTBTlMsYYPRHu54wIX0eEqvdB4boHIk9G NwIqIaAyiR5y1rGCI6lSadlEqmQoVaotEDiITbATCV3hbmsp/k/s2ScloFIC KoW9IwF1ZvoVGlIapwf/hqcqAB5qE7wIo0h1GNEZ5dAFx0Gso5kSUimXUkIq 1TJ2ai2QeoYfgHvUcezTx2KfXyL26BOwWxeP3dpY2CqiYOsSADtX484w93/D 2SuE5k96xKFwEwuX0wnmwBAMKQGX+kbBUWKAC+Ovq8LfvL3IlZFOOMLVzRAL 9+CDUKUVwScui+9Lw45UA0eFL+wpW4mG75cdqeIE4iOOQaf3YzergUYjh1Yj gY9eAb2PEiaVB6G0QYxUuDxPLG//G2JlvC+jmcqsES21RpSUlEr2wuT8CbR7 fo7pibMks5f6Z0I3Sehd8/weAqGDO4QO4zG10F6KGE97tqROSJQ5I0npjGQS ul/rggM6FxwinYdJZ4YvKfV1+REy+SVbm731uMaE0iAPpGjskaK2R7LSnn/C ESpXe2i9fBCqT0aM8TDiSGaC6SiSTZnYbzqGQ4HHkGk8hpMBx3Ha/wRyDScR QkLzDMdxwS8Lxb5ZKPE9iRKfEyg16zhqA/JI5jk0hpSjKawaTSG1aDbVodm/ Dk36atQHtKMuawstOfcwVf4l5qteY6n2LS41vGOD+Q0bzW9Qn3wLVxu+w53+ 73C7m5T2fIM7vd9gq/cd7va+5fpr3Op9hY3e57jWs42r3Q+x2sNy771JsUHt ZdrtmSKpvdi+fvV7Qj/ci7pDqOWw4d//nsQPl3/8A5uTLJer/iM8uvUaxWlX UZa1gap8klpCUqs30N/AEN+6ganOG5jjy1kauImLQ7dwZYRvaew2rk3cxvrk 7V24PnWb/8HFkWX0NtWhMC8bXX19WOwvx6EEP0QaXBDJ7y/KxwEBrr9AoNPP IPHwgtxLCgUhVRJSNSHV0P00dD4dk+n7w3ZEIn+mRiN7tSDYmXef0kUJ6D47 QuoghZ2TFI4ucjjTQd2kdEP+DU81+zkCKkCqDrqA1JxieBNMMftQiU742wKm v+QtIdXRuX1N8Ig4REhPwCU8E/t8ErDPkIovCOkXOkKqTsJeByOsXQJh62bp Rx28guFESJ0JqYtE2NUaBjd5KDxUwjWw4qEwsucMjIeHji6rC4arJgzurFxX 3ncPPQRZWjHk+4vgoA7DPg8VrNzlsPJQwFbM1K/2h6eWqVoVCX/TGSQHCSfL aaHRKaDzUcHHTwm9nwoaHxlhtCWjjJD+iGWYjJXbUHRWKlpujTDvzxHi+Qn0 Vn8NX+tfYr+fN26R01vk9D2jW+Tz3tUhPKAeUY/J6ZOrw0xpw3i6NoKlzjK2 pULAfc+pC1LJaRoZTSejh31dccTPFRl+ZJVf9VF/uiqXSVp7pCr8UBWu5boD kgWpHRAtEq4Gq0O4PhFxxkNICCKoQQQ1KBNpQcdx2HTCfGnjLOMp5AScRp5/ Ds4bzhDWYBRwvdQ/DxUEs9KYh6rAXOoMqo05aAouJKDFaAwuRWtkLdoiG9Ae Xo/20Hp0mGrRbqhCS0g7WnKFK/nTTqvfmo86v9T4DVPpdyiOWcZY3tfYmvx7 3Oz+W9zu+Q6bvQS371ts9RHYvnfY7H+DW31fYaPvJa71PsPVvsdY7Wd7OnCb YtIdWOH9GULbj+2NtR/cmboD649+uC39IU4t14l3xcPbb3EhfR0l2RuoPL+B hlLGXnLa17iBYXI60Ul37NnAfN8GluiUK8MbuDSygctj1MQGFoYX0NlUgq6W UlzITUdxURFaagvZ/NsjyuCMaMagIM9fI8jlZwh1/hm0wkXrPGVQi1hsjLpa Qqqn6xiY+QJ8guBvYET1C4O3t7BxhqBKAuHgpieQdBoXNQGVwdaRkDpLeV/K PKiDO1s+N0ZmD80OpOpUhKaXIyTlCMT6IAukXErNopv6UMJZisye7hEZhPQk 3KNPEdTjsPZNJqAJ+FwbBytxDKzF0bByMWGfWxBsPIItY8h/o2GGwYl8Osso OTlVR5ivtS4lnzJTPLz8o+GsDYajJgSOuhh4BR+CZD/HjKTzcKBh7/ZQw5oF a8uXby/RwUGqgwsNVbhUhkgrhIIMxEWeQog/kzm7Ub1BAx+DGnpfMVQ+4l0I 8fhUuE6M56dc+xjBHh/B6Po3MLr8QthFydv/HT77yKfVz+G79xfQ7/45ynJi 0dN4At31J7E0WoX1uVb6qJByh80eauZzTeCTujaCZ9Ryd5m5GTUzqnFBCn10 v94VB8lnOvk8TB3xF+SyiznVhX6ayKQbI1WiJDQSOYHOSNQ5MoTvQaDjJ4j3 S0CC8SCSiGcS0UwmmmlBJ4nnKWSacpBF9M4QwXxjPgqM51FkLEAqe47TxhOo 4qhbE3wBtSEXUBdaiPowKuQc2iPKqCq0hVejNawGHTHN6IptRXd0M3qIa29o DbqZhtsiWjFU8gJztZZztC42fYuRC9uoS9vGjbG/x0bXt7jZ8y1u00c3iead fqbega/NJ5VsDrzFrf7X2Oh/hWv9z4nkE0ZHpt4hpt7hdYrN6BAR7SeiN67h h/bMvE+8v/e7NrrrBxrS9/N5f7jh1zJptxYPN9/i/KHruEBiy0lsHYltJbHd 9czBzRsYad/AOKP4VC/JHdjA3BDpJbHD3YNoayxBR3MpOlrKUEBaC3MPIT5c j+RAd0Rp9yHA6acItP8xQrmMdP4571tB4yGDkplV566GL8tVmCXdQMr8mEn9 SJLBL9iy10PK5lHmDye2M05uGtqnFs5uatqpzEKrm3AimZ6k+tLaDHBXG1nu whGo+UjKKaNlhjKLhsBbIJaScDSQmiUQy2wcEA738CMk1UKre3Q2nMOOwcov FZ/JIrDHOxZ7pfGwlsTCyjMc1p4hsBGFwk4cRsTC4CALh6OcUoTTMuP49xIg DkyAuyHGgqk2BA5seu2Dc2E42gdpUiHEyYUcAZhzpWxe7ZgF/gj2HGwcpT4k X09nNpBWvg1FGHQBuUiLPggvsRckCm9ofKV0UxH85I7E9DMi+jECXX/1IwS6 /RJ/wlXS6vQ38Lf7FXz2/AQ+u38C3y9+Ar89P0OC0gHDzScx3Eg1ZGG4Ngsj 1SdxdbAaT+ie29R7Qp+vj+DF+sguvLg+wuE8N9YfCWxPk3WuSPFxRRpBPUhI 0w2ElaAeDqCMfMzfCfE+jpQTjurjUBIhQ6RsL039/8H+gDikGFORYjqEFFKa QkJTg7KRHpSDo6Y8UnoOZwILSOkFFAYUoziwBGWmUqQZ9yM36DTqwspRH1GO xkgm3KhyNEeXoSWqDF3RNeiKaeSyCZ1RVEwrehK70ZfYif74VgzENGAgshp9 oWUYyr2B2bp3WGz4GivNX+NM6DVc7PxHbLAn3ej+Gjd6v6ZpvsPtfgudd4RD ZgfZqw5+hVuDX/J5NNMhkjq8jdWRB1gdJamj1ymSOkJSB0nqzWvvQf1wE+8P t6bvt219CO9/3rFbgVLBiYXDf+/evfvLnZNl7m++QVv1PZwnqEXnaK+MwA1V hJWgdhHUvrYNDBLUYYI6SlBbGpvQVF+MZkLaQkhbCenZnEM4nh6BIMnnCJV+ ARPBNNr8dwTv+3OEUZF2P0Xwp38JhZUXtLRGvYdwpogOOokP9KxUH4Ylg9IX gZRCpIZKrIOSAEppl04E2sVTAzc2oq6eati7yuDopYYjmzwX/q6r3AA3WrO7 Mh7G1DIEJh+BxI+QUt56WqGYdP6anJrMcVciXPSPzu0eftjMqBsZdSOjroKz Rp6AlSIaX4hisIeM7pUnYp8qGdYysipiXBWHw0YaATtybEc+HdRRcPFNgKsh gT1oDONyMKw1fE7AfjhFZkOUUgRJ2hD8jzTDIzidv+tPRv2JqAH2fGsOXDoS V+FtuEn1jO8BfMkBhDUZ0dGnEWsKgkjqQVA9CKoIerkd/fNXZPPXu3jzK0Ym AdMg51/D5PgRTPa0V5u/gWHvT2EgrH4CrJ//FXw+/zHqTsdgoikLEw2CTmGy 7hSmarIwVZmF9aEaQipMbPf8+ig8yOgoXm78sy6xm8lLDECi1hkpJHU/KT1A Sg8GuCGdlKYHkmJ/R8T60lMZpOKURtTEBcFEu4/T6HHQlIT9pC4t8BAJzcJ+ Enog6CyOmM7jhOkCTpPMs4Ec6gPLUWyqRFlwFSpDq/l7B5EfyqgbUobasDLU hZeR2FI0UC3RFeiOb0BffBs6o1vQEd1KP21Hd2Iv+lMHMJDSg8GkNgzzOcMx FehLbiGpb7DQ+Ab58av02L/FtZHvsNb1Fus9b9mDCqeCMeIOvMbtHUI3Sejt wVe4NfQSG6R0beQpyaSnjpPUcZI6TlLHSerYNH21H2+eP8W/guof/A8d9PfM u2KEw/GFJdn8tfnh/wlzk0+Rk30dZ2mgRTTQSnJZRy6byGUbDfT/Zew9oOM6 8yvPe9g9O7sz4z2z9s7M2t7pbqmVqUBSoigmkMg5VEZFVKGQc84555xBIqdC zgBBBBJgDiCJwAhSFKkcWy21PbZnj/e+KkrmtPvYxjn3fa9eIVXV+333/l/4 vklyafmFHhgYbIdpSFAHKityEePrigD3d2C0exWhDm8i0uF1csj1D15C8Lsv IPrwawi2t4XWSQWtqwo6suVD7gzkzqgUWNQjREsuhQt5WKtaLpn1gaeI3JE9 D4kWnhIdvPgzLpSTRDjIoufObGQ9SMcxlCO+oh1ePsJgGyHmQTXERFEiyFe4 hFxQMCQ0Zk9jNNwjc+AeVUwYy81QusWUw5WPXXQZ8Egehj2LnaOKZFipUnFc mwYbn3TY6FJgq0mEnTYRNjRNe9as9sY0WOsTcZg15HH/dLjEVUPETCvLaoeC EqcOw6/gFGvTaAFGGqYigB+RA5eOQi4gl64Ko9n/PbwN8OTL91L7QOlbhcyk Qmi1MkhVnlDqvaCV2zLFEj7X9xHitp+VwwFEOh9AlJOg9xHpyO22zCfWbyHg +JsIIJj+hNJ45HWUEpyl9kxcHKrAhcFKXKQuDVTicn8F67MKbEw04+mVSXzz E4j3hZnQvrt/RpghegWOmGzNQ0NmEFL4Oaex8EznL8wgiUkkMdpgj5xEPZID WBx7iBHAfyLDNxJZAcmkMJsqRAbr66yQRuSSwKLgNlSQvtqgbjQF9+JESD8p NNEzu3EysIN+nIeiwEJ0hbSjh0Vmdwj7f/9WjLEdiDiJwUj6QEwvRqMHMC7Q GD+FaZK4kLOC09mLWMycxVLaGJZT+7CUdBLnTjzAdPNn6C38HrdW/gEbU7/H 1vT3uD37Pe6yyLx/6nd4sPA7eqQwjdy3eEgCdxa/wYOlr3B35UtsnyGFq59i c40F6BpJXGO6XbvBbeexsXQKf+oetdcsFP67n0+x/MVzPArX2guPLDPf/Aec v/gVTONPUHXiHhq776G8+QaqT95AffsqahoazT9T39q0C+197fzN45N9aC6J QaDLG/C1eYnv96sII3Oxzm/R9+iBhwS9jIgjryHyyBtQ28uhE25rpq/pJXr4 KoRbfvUI5o4WqhO8UA+tTM2yU2seWlGnIVciNdylZE6mhUTYMfkzLjQOR3qo k5m7UPgktCGqsIKchf8Td4aQXRATuD8nasKQbMHwMEYxT0bBLZzIRRbCTcAu qpT+V0bcEuEcQF8kch78yDwzJ+Ca2AuHyEY4RTfByidtF6z0qfg/cdRA0kJL 4ZzYAtuoGohyhyAmaeJMVpBZbSSujcS1QZkttJOsIo2E7Rlxr5qJc6JchCO6 gol7kzh2PO7ePnRDvlg+F0F4EyIiIZa6sNa25xtmjTCXD0jaB4ikoqhoUhcj iOTFUpF2byPS9m2EsbIMInWBpC7Aih8M3/yF2igsNyfj6nAlro5QQ5UssyhT Ja73VeAa7fCTq5OwQPaLnye+FrTLvPwz8zbhWWFibGHW9q+pLxlrb10Yw6nZ brQ35EN5+AVoD72AGE8HBtvoZwc7fkFLO0nb63wuq+1FU2A/Gvy60GjsQIs/ LTCoCxXBVcgmqL0RPegN7YLJ2I+rIUP4MGMIC4ldDKxdBK4HQ1F8LlIIsf2Y SJrGXPYKFvLPYjH3NJayZ7CcNYyVjE4+HkJ5zCNcPPWPuD73O9yc+g4bM99h e/Y73Jn/FndP0eIWvsH904SMVvdg8SvC9iXur3yBu2c/w/bqJ9g8R9s7/xG1 Q92m1gndeTy4dvlfAu6ne1+ev0b+A/NSiSdPvjIPb1lZPomy4jkUFi2irGQR 5QUlqCkuNb9BtSXlaObjjtwirA11ojU7HMEuTDjMlcF2ryHCcTcCD1MH6GcH jiDq4H5EHX4L0cd2I8jGGjoXNfOmDgZ6lJHVkMBZiMYHYTo9In39oTFzRu9T aqDX6KBS68iZBl7C9TT8XqlSyJhG7qYMa1ID3DR5iCxpg090GtTBSUSLrJEz 86BSwrwA9DWxAJlfBENhFBUBVxZwbhH5cIsspqeVwDUkj0YTBdfIE3BLHoF7 +jg8CJpn9iQ8sifgnj0O54xhOKWb4JBhgrZxDYHtV+HXegFeeSOQFI9DnN1B 0k5ASskpRdZJeGef5O/Ogo3En8Wk0QzaLjh4C7g5eT9DzZyVjZSAGqtDJT1c JmNRm430lBKE+ykhkTvB7/g7iHAlYq4HEc02hoql4qh4QUQu2v4dRNsJEpB7 C8HWAm674W/1OpYbo7HSEI211mSsj1VRlVgfrcQNYneD2N0kcjdodJ9dmxLm lX9wxsKDA07k+jNSOiM30JkR04lR0wklCWrUF8cjWmkN9eGX4HPkBWTyTc/x i0GWX4r5JzMCasxtDvkpDOpDWZDJ/Ljatxs1hi7U+3WjOaCXEbOP5taPqtA6 5PKDGIgyoTd4GANBV7FddhdfdW/iSukExuLJVLwJY3EmDLMoHIzuQT95G4zr x0zOaZwuPIPF/AUs509gJY/bEhowd+IjXJn5Ha5OfI31qa9xc4bF3ezX2Jr/ GrdPfYU7CzSw01/i7uIXuLf0Oe6tfEa+PsXttY+xde6Jha8LNLSLD6htPr6O jdVz+P233/yE2PNnP/4IseePnL7/7ILZp0+/QlXFOEu0KbRWW0bsG6CGq6Zg KmtFX3EeTMX55ndquLgQo4VFGCsoxlheMWpCjMwzzDe2uxFi/wbC+XEH0r6C WVAEHhGzVdDSHJFoZYWk4/vh5+AJvbsWvmI9jHID/JQGBBO1UB8fhBtY6nkL gzcKowVTGg0MOloZrc6LNidW+TBXGeDFUtCZqDkrguAd0YLQvArI/GOhJGre gXHw5KfuSdSEKTi8jBbMXP0iKaENh0tQAlzC83bBJaIIfw03QwqcmBZdE4fg ljIKV9YBzpRjyjAcUgbhmD4I15xRuBdMwth2BSE9NxDSvQ5N7RK8WLZJSscg zu2mr7WQtFaS1krSWklaKzzCMnGcpNnLSBujo4W0/wxnJUkjZW4qmtoz0jzV wnEYHcs5qblHCWB5mJucBLnSDdr3X0aU20HEULFuB3chXlgkuH2A/4QEl/cR 47DHIr79sfZvI8LuGWnHX0dtmDtWW2Kw2hSDCyeTd+HWRBVEuDlehVsEboOw bbDcu8VS7/PrU/h+5wx+Ry31Wu4RTzfaIUFtZV5PZZuqPop07TFk6I4hVWeN eJUtvA++ANXhFxHmbo0shvhsYzwyjZlIN1g66KyAk2S1nwFxCKX+Q+ZtlYYe 1Bn70BgwgNbgQbSHDaErYhg1YY3ICy3EEEPiYNQ4TsY/wrWBj/HR5D2sFEzT w4YxKShxBCPxQxiKH4CJ/PXH9WEgrhOzeQtYLFnGUsksvc6E0zm9WOu6gAuj X+Dy+Be4NvkF1qe/wM3ZL7Ax/wW2Tn2O7QXq9Ge4vUjOlj/B7TMf4/bqU/Im sPYhOXuIzUvk7dJ9agsbF67jwa2Nn8foev4Mxr8AnKVmi8PTJ19gbHjNPFzm ydopdAuj9wnDh1HTNVOYp4aKczFemofJUgt4MyVFmCsuxqmiYiwUliBRfASJ HocYad5DqOM7jC6MMKzXgo4wV1q9inDbg4i0dmKfq0OsjQdibFxhcCJwXkYY ZRbwAtUGhBG8MIMPgvXCLY+s8czg0Q91Gqj5nJxZU8zvE3PvlKgZv7jHOqvS EJR3Ej6xyfAyREIRlAhlSCLbWIj8whgeQ+FqjDRD50LoXAids384nPxD4Rya C+cw+pwP/U4dD0cGSXt2lzbRfbCLG4BdognO6aSQ/uZRMAWPohkE9WwiqPsG tY7g7utwy2HwzB2EWCCvsB/i9GZIMpshy2yBPKsFiuwWuIdlwEbmR59j0Sb3 N3PnSDkJ5KkC/ok84TVp2KmoVJBp5FBopJAbopCcUowsnRg+B5ghbPYgThh3 2P0QEtwPIpFtItsk0pjosn8X4hz3sKyPJYBxDgSQCiOAQTZvoCHSg9DF4sIJ wkcIb44WY2uqCpuCJquwNV6JLVreFmu8zf5ypq5GupsfknXHzR97ksYKKRor SxjM5MqvkMVlFkFMVx1FovdxwvdbqK1+jQgPO2Szgss2piJdX0Q465GmsxQi OUYTCvyGka/tsRgeHzcEDKE5eAQnw0bRRvAaIzqQGpyBaH6Kw6zOOoPn0Jf/ FCtddzFbsLQLUykTeBFTqePmtfHkMYwkTWAoSZhjeYQagimhCyMpPZgvnsV0 3hRWa0ZwtnoQayOf4sLYp+ZbL65Nf4r1mU9xY+5T3Jr/BBunmBtPMzcuPcXm Gfrb6kfYOPchs/Ij3Lq4gw2Bu8v3sHH5Lte3cOP8VXz/3Xd/ani8P0Lv+XMO lrl5y/Dx0y/QWD2CltoJtNdZBgsbo6apBT5epk5VtGKqNBezZfk4VVZgfsMW y4uxUlaMM2UlOFtaglQJe0EJe0DXQ8iW2CLIag8Mh15l+zrCbd4kem8SubcQ x8443tmdu48/ohx00DuHw08UjABZIPzZ6QdqiaBBj3BfH+iJnlYY4ZH4abQa qHQ6aHz9INEFQEpJNERRuKgtsB7RlS1mD3TXCVM1xEEekgBFWDLk4clw84+G szECzkTPyU/ALhyO/mFw8BdGJ0iDoy8ljYC1IgHWEV2wiemDA3tUJ9ZyrizC 3HKn4JY/A3nNGcROfIS4KUGPETG4DUPLOeJHo8zug6hkmAgOwiu9iebXRPNr YkHXSPyaiF86bOVGWEsF8wsgfkSQhuco+LbSDy5q/u98Le5a4sf3QOajgUxL /LRSIiiClkVjS1waYqzfQajtXqJ3GAns7oQuL4lKFkQMk4T5JZz4vPNeS+u0 h3oHMY5vmzNJY7QnLnXE4XJ7LC63xeISOdwYK8btmSpsT1NTlbg9QdEJzzWn oFjFv0PAEjXHkKw99tPB8iwaXo5ZVuQwl8tDyNEcRbLyOAId90F97DdIkMvJ XxwDZ5bZ+FL1LUjxscz+m6oaQKa6GwW6AfPjGv8R1AUNoSC4DklBmYhhDxof nIK6yDbkh5WhIrIW9cG3cGn8G6yUr2E6bQ7T6bOYSZ+hpjGVPoWJ1EmMpTKm UYOpEzAxrwylDcKU3I7+pHYs1y9htW4Yq+XNODP8FGujT3Fh4ikuTT3Flemn uDb7FOvzT8zXc99cpFYe4+bZD3Fz7SEh28E6A+aNS/d34eZl4RDiTfK3fnED dza2fx5Z698In+U8wp/hE8InzIPaVjeO7vpJDAoj7lBz1BK1SggvEMAZet8p wrdYUfDz0ByrVcU4V1WCC1WluESly6yQKbFCruQ4MryOIuzoPkRavYsI7ixR 9nvM9UYsFc/OOJE7RbLzHqS6H0echwE6tzQYRHHwl4UjUBWIAJ0vghk+A31Y 2zF8erPO81bT//Q+0BmN8BZG4tH5U4Hw0sRBn1IHXXy22U/c6X9eAfTBANZ5 oSmQhAtKhmdIHGu6GDgQQgdCaEdPtDEEwlquhZWjDtbuQbDzr4VDbD+c2H06 pQn13CRcWN9Jy5fpeduIGf+QAFKTHyJO0PhD6FvOE0AT/bGPEHbBPbcLnqn1 EKU3QJLRQAgbCGED3MLSYKvwpYzmIfuEWs+Wvm8nnPVTCQAaWadSfO1SX0qr pNcroNARQK0IYnEQysMq0OSrgu/BVwnfYcJ3mPAJE7gkex7GL5HiSQjdDjCB 7hPEQOqyF3/BJRl0eYf1wG40x3rhclc8rnTE4ioZvEYG13tScHeuGndmKXJ4 hwz2pEgQ4PA2S/a3cPT1X+MwZTG9Y1w7Zl4//tqv4Gf7Dr/nHeTrrGhmNEH1 ccTLDxPAl5ChDUSObxLNLs9S7RmakOlnuQUjRdWLTJUJuTpLxRcaEImQgHDC l4uKsHZ0xEyiP/4UBhMW0JcwhfDAaNRkXMZNAjOdcRozmacxm7mA2axTbOcw lTmDiQx6B2EcIZhDBNLE/nMocwQD6X1cP4mx3BM4Wz+K1eqTWBz8ECsjj7E6 9hjnJx7j4tSHuDzzIa7MfYirC0y4Sw9x7cwOrq1S5x7g6oV7uHrxHq6RvV24 bibw6qXbuHDuuhmmnwh8/iTCHxH4/L0blotkTpLAz5/NzTqK3oYJDJO6qcZp nGqcYSU+h3MN87hcf4qm3YHT5UVYqSzmeinWastwvq4MF+vK+Xw5rtaX4XpD OS3wCDK9jqBIY40I6wOIOL4P0TbvIs72PdYj+yhLHBK65CQSmOK6B2lue5Hh sRdJIgcYvGKhl+XCIE+CvzIKwdoQBOr9WfbpIZNrWPtooOS6xleYZ8yPe6kf xMIMEvpcBGZXwF4eBHvvILgaYiAKSYNnUDI82JeKaIUiUiiJToM4NgNOIbGw JYlHfQJwTK6Ek90xWDt6k8YM2If3wiHGBIfEYTimjkFTcwEB7RuIHnqI6JFH iBl9hNhxauIh2x3Ejj2AT8saa8IBUthDddE2T8KDFIrTGp7ZYBNrwEa4haSS Ph9Kj+Ni32en9gzmAVedSKALCXTVCpeo8rUxgUt9SKGPnCRaKFS6HEWgKB5d 8QXI4Xok37NQL0eEURq5ClphcCChlSqhkSihlmlhkMgQJHJGkJcTElyJocOb aCKGV4jhta44XKfWO4khkbw7VYJ789WYa0lmweYIm7d/A5u3fgPbN38D+91s d1swtH/jN3CghC9HAun42q/hIOjVX0H+3iuI9vwAkZ77EeDyLnIYSXIMacg1 FiHDp+bnE84pmnbE6MsR7B/5bNsbKApgAciceSJsDh0R8+iNPU0MFxkqlxkk V1AWfBnZqQ2MZOcxnbVM/KjsRRZ2xDHnFKZz5jCRPY2xTGKYSQyJ5WAmvTB7 jBrCSH4vH9dioboPZ+o7MD+wg9NDO1ge2cFZfparkzs4N7ODC/MPcPH0A1xa vo9LZ+7h0to9XBTmniKGFy/d24VLZgIvXrqLtfMb+O673/88+8C/QODzp/Es l5P+lWX+2Ko+dNKZe+rHSSDdvHGeBC7gTOMiLjQu4UrjCtabzuBMVRNWqspJ XwXO1VfxuWpcpq41VWO9uRo3qY2WKqSRwAKlNQq1tux4rRBjf+CXz44cx7I0 TCB4P32lEbwMz32Edh+SaZtGkQEGZQJ8lbREVTr81DEI0oYzhxogpVUJd/Sq uHMKNxNJKRdZCJTR5dBEJcOG8NkqguGsj4VnMOELTYObMA5AUALcmUcdWUjY BsSw3EuEW2SyedJAg14YBsQTAXwcXDwPb/aryrxlRLTdQUTXPUT03kdU/wNE DVLDDxA9+kC4QYnLV7m8j5ixu9A3nyV8fQSvm+qgTsAzoxHS9EbI2MoJnrcA HwPVcbHWfHmaAOFxqR/BM8Ke4DkRPGeC58zyVkSLF+v4+ny8mUMVBJDwyVyg O/g6FNbM7v5lSAuIhlYsho7SUwbKVyKGUZBYGE7D4OWF/wJfL+GcnwYahYEw 8r3zECM/0oCrPfG43pNA74un4nCjOw4bplQk6l3gdWQ37N95AfaEz4FyIoAu BNCVADpRFlhs4EYA3V7/Sb+GGwF0ffXXcHnlV3B57UUY7HYjTxeJPEMWPbCE 4bMcUcYMBDH/BzL7RxtKkKXvR5FxHBWBU6gLnUVz+Cm0RS2iI2oZ3THL6I9b xmDiMvriV9FW+CP66hcRx9J+PIvel3sGc7krmM9dwlzeaUznnsJkzizGhPlw sqYwlD0LU840BnInMVw0SvVhKLcJg9mlWGnqwlTfPcwK13YN38Pi2D0sT97D mdl7OHvqHlYX72FtmTrLdcK3SvhWCd8aPXDtEtfZrpzfxrff/fD8NDs/nUiw DE7386n1508kWKxPhNmhBXTVmszQmRpmMdF4mtAtY6XxLM43ruFq0zncbLmA rRMXsFxZSehqcKGhFpea6nC5uQHXWhpwo7UBGycasNVWj/MF+ciWH0ehzgYF GlskuB9Dkudxph/L7CPJLvvNbayThb4k2l6Kxz5LMiF9WSJKvI/V4z4Es8v2 ZTDz1YTD4JNB+8uCry4eek0IJHIdPNjFeykEAtUQq4OgjsmCyBAMG0UgjgsE GpO4t5M+WqBbaCpcghPhFBwP14g0uEdlQByeALXRHz4MuFqtCrGpGVh5/A9o nHuKvL77CK/fRHjrbYS33yWFVO89RA7cQ5TpLm2Q4icWPSKMBxE9cgdW8Gla MRPoktVJtVEtJLAe0rR6ElgPeWY9FJRgf8dEGlKoMxN4TKrn/8wqUGWAo4YW yPDpamBFS/oEAiW0PyntT6qTQeFwFBI7a4idXeDpkYD40HxEaVklSyS0OImF PqkYfmz9zRR6wZckGkVelKd5TD2ttx5S/u2akmLUFBVhvCET630JuNEbj4ky hl6r3VDavA2vD16G674X4Lb3BbiQRLe3X4D7Wy/AkyS6kUB3ymP3b34BLyJo BRGXXq9b5P7KC3B66UU4vf4y4nQhiPSPQHBAKIICQhBlyEGCshWp6l5kaEx0 xVEU+U2iImgGdWHzaI48jbaYJXTFraA3cRUDSWsYTF5jFXgX8yP/E5e6bqMk ugb5UaWYzTtL6M5gPn8Fc/lLmM5fwGTePEMmHS+bu3TWOPpzJjFUPIvhsjEM l/RjsLAZg3nlGCsswmjbeUz038P0ECEkfPNTBJHwLRK+RcK3JFxYSfgWCd/p c2wJ39IFS3tq7Ta++e6H3/zr4P3zGyhewfXz6+is6kVv7Qj662cw0rCI2cZV LDWex7nGS4TrCtZPXMVm+zXc7byO1ZpaXGxo5PYmXGltxrUTLbhxsgUbbS3Y 6mjBtboqXM6voveHI09jRwDtkUjw0iQ2yJTaErLDlgPX7gfphhbgEp+DL53g ZYr3WezZC0nCJb3CVFF0BT0dQa8nd8ZcyLxD4SzyhhtjlcjMnRZeKg1cvH3o fH44Kid3AWlwDqKCBaXCPjARDoyfrlGZkAZGQKvzgUYoKjUq9C3fwvJH/4AV avzW71Fq2kFe/0OENW4j7OQdhHfQAbup3juI7L9D9qjB24gauk0Gt+mGW9Dx rXOh6zlndcA58yRcGDU9U2shSasle7VkrxZySsHIYyXSWdiTanFcxnUWgg58 jQ5axk+tL9y0GjN3IoE9Op+YxZ87X6eHEx2JzImFgbBcXNhfFCIzLAXBcil8 pRIyJ4GfTMLiWYwAqXgXLVDExOMn8YIfEfQT0PPWmMf5qi0rRl0pVUwVFCFM LYPa+k342L0Fb6vXID7wIsT7X4SUkr/3IiTEz4voiYme5O0X4bX7BYgoMSWh fsHlb3AI0r2vQeXmBj/WrX407zB9IOI1Ccj2KUWmuhFJ8mYke3cgRdmPNM0g cn3HmDSnUMGkWRe+gBYaXnvsMroSzqAvaRWm1DWur6Ip729w8/w/0AyH0J8w jsigaLQkdZG3s5gvJH+Fy5guWMR47hyGaXqDZG4gmwVf3iiGSsYxWDyAwZJu DBaRu8IKDOZmoraI30fuRsjdOLmbpOlNkbuZeXJ4miJ3M0ycM6sU2Zs9Z2kv 3Hry4p84nfev8haH9vJ29FSbLJOS0L4nGlZxquES0+U1XGhex/XWm9hov4U7 3Rtcn8H5+iZcbmrF1dYTuHbyJNbb2nCrow3bne38nnZcLKjD44E2TOQxWmjJ mw9587JGvtqVdZ8LijVO5iMx5uNcHhbzS3RnvPR8xpv4XWRIKOm7yJQJsmzP lO9DouIoAlRy6AielmbgLlHDRcx6TiJcrcIdVMO4qCN0Sh13aC0OK0Jg559G 0NJgZ1Yq7HRhcNYEQEVzUGp15tHcolIysfz472lyf/+s/QfC9/eY2Pg9SgYf IbXjPkKbbiOU4IURvLDu2wRvGxH92zS+LUSaqMFNRA5tIKDjPGETjK4dTpmt cKLBeSZVQZRSBUkqlVYNaUY1ZJnVsBLrKQ2sJBocYy1mrdTjmJKxUyPUfCpC p4IngfPyYeurh0tAGNwJnAdh86LEroSOErkHIjakECl+AbvgJ5fgl/DnMsAs ep5UxM3k7v+2cCf1hF6hQEJMHOpZsddXUGRPpwrib2VV6SiC2v4gvI+8AumB 30JG7uTvvwhvcqcid6p9fLz3JXjveWkXJG++QMRkXMqIoeLd16HzcIU/UfMn ajo6rNLmCDz2vI4U92CkiTOQJi1FqrwOSdIWoteBZGUf0rRDzKDjKAqcRkXo POoiTqMleglttLquxLPoTaHdpa2iOnILY0P/iMXODSJoQm/SEDoTu4leFE6m 9NH2loWTD7S6UxjLm8OIYHfMlwN5LPAKh2AiciOVgxgs7aJaiGAlBvOzECoL RCdTTC/zZv/IPQxO3MPQ9D0MzxHFBYqWN7zMwm5kRSjsVm88wZff/sFM0E/Y PX9S73/BznKdtDD+ajE7NraWu+4NWD9/Dd2VPeivph/XLmBEGNO5/hIWhbm2 m27h8okt3Gi/jS128/f77+JW+wIuNZ7A1ZZ2XD/RifX2Tm7rwmZXF273dGMh qwR32zrxeKwDO4OdyNc6kD5HZCrtue6OIh83lOpdSaKdmahsyRFzG0+nS/J8 11Lwkb50kpchE7QPGfJnEVTBdcVepMv38sPbgxBvJ2g9beEiDKuq8odaT/vy 9Yc7CfSgjR2T+eADYQoQXRwcZL5woJ14eHiZh1gV7vqXyGUoau5F99INLH/4 P0jd35G6v7O0H/3dz4971r5EydAj5JoeWQg8IRB4G2Fd2wjv3iKFm4jo2yCJ txBhukkK1+GY3kbqTlItcMyog0diBbySKyBKrYA4rRKS9EpIMyvhHJok3KxM /sJwlLZ3jPQdFY60MG66qpRm+jwot+AQOIbEwtXJFe7OrvAkeSJSJ6Fkbq5Q M0JqNanIjMymZymJntSCn0ICHy93Rk9PAUH4U34yC39auRxxMVEoyE5DRVEu o3YQxF4+EHvqIXbzgchJA/nRvWTvt1BQ3u//FipKs/+38DnwMvTvv0IOXyaT b0J55AD0wt8UoPNjJGHB7L3/LUjeegOq/a9D/g7j6Gt/jUhbGWv/dKR6FSPJ oxpJYguASd59SNUOE8AJAjhDAE+hlgA2M2uejF9GZxLzZsoZtCcsoSrrB/P+ 0BY/wO0D6EkdQH/6ALrTOhEbGo9xgmfxvHmM5jJb5k5jKH8KpiLu48WDGCju xWiNCRP1vRipaiWElRgoyOJrsEZB7Q2UNN5AeesNVLXdQAch7CSEnfS/Tvpf J7PnqatP8Pk3f3j5T5xR+CPofroAWvC8H3/80QKdLeYHptFbScOunsNg7RmM 1V00z929LMzd3XIbV9vv4ZYw9CuzljB05EbXCq40dRC4Ltxo68HN9l5u68V2 Tx+uN7fjWhWBm+jDw+FePBzpRWuMDgV6J1bWjsjXe5rfrBKjB0F0Mq8XqK0t oEmOIsHLAl0K7S6V0KURujQ5pXgGI6FLNWsvg8r7KPazRqxoP1Q2ryLIdTdi uF5udEaJz3tc3wudcM1iWg2i02sQQ4uJzqhERHopvEMSUN53CksP/xZLj/6W wP2tGbp/T8z+B3LQMP0ExUMfIoeQBTcSstZthLZRHVsEbZN2t4Gw3psI77+B 8IHr8Co0wSG9laA1sa2FOwHzTCJkKeXwSiuHKJ0tAXPPqsFRmZHZ15fygRXr Kyu5YHUGOKu0tGENnKKT4BAcBydPiRkwNwLm8RNgDG0CYD4yKdT8mbDAIuQG R8FAkHReHlC6OjPYOUPj4WIeO81PTrgUlNwTQQYNEmPCkRgdgYgQ1sXskCSM CRJarjD+lsRDB4mLFtJDe6D84CUoD7wE9fsvQUe4fI++DT/n4+bZuZ6HSvXB 21DtIYh7XqTbvUog34TqXRohg6jkrV/B/5Ad0j1SkeZZhGT3aiSLWpAs63wG 2BCyfCdQyGKunA5XG7mAppjTOBG/iI6kJXSnLqEsYh29fZb7bE4m9qMzpR89 af3oy+yHKbsPtUm1iCNkY3kTmCiYxXj+HCYKZzBcPEGQxjBQOkQRrJo+jDX0 YKS2BcMV5aiNjYD8wGGE6lKRzKIwMv88YoovUOdQWrSImsqzaKw799qfOET5 RwFS+PrpymbL2BT/HV0lHeirnMBA9RKGalg21l7DfP0GVppv48LJB7jW9cg8 lffdwSd4OPoUWz1rtLAerJ/sI039uNVp4jYT7vQPYimnGY/GTHgwSppGTXg0 PoCLrZUoJFHCwCJZWmfkGTx+Pkicq7FFgdYGxQb7Z9t+aR4gKEt9DDkaK+HU 67NJ7vL0VnwVxf62qAhxRnmIE8qCHVFKGVz3wIc0hYjfQZreBWWBVohRWqMo PQ6RGR2IYPUUkd2O8OwTSCzrhTqeJfKNz0jTH0iToL/B0od/Q6L+5t8RqL/Z JawxE3WvfYEi9iDFo48Rw+AY3LyFkBObCGmnmF9Cu2+QKqr/GownVmCf0gL7 tEY4JdXANaEKbgyNrik1cE6rg116I+wyGmGf2YjjoZk44h2EI3IjrBS+pMpg bu01ejhEp8DeGA4HdwmcSZMraXIjTR6ubhCRJjGl8PCAj9wyXbi3IgXpkQWI oN2pPNygFuQpyBV62pSft3Ajn4jf64n05BgUZyciPTEaUla1UpkaUk8mS6mb O/4cMg8515Rwt5VDQag0h9+CQeQGf60aAQQoQK+Dv4cjfI7sFZIjlEyQKkq9 j+t7BIjegu7g7l3mePl/8eFvuPYO0t2SEXY8DSFWeYhzqkOiuP1nnjJ9x1HA xFgWOoeayHk0xiygNX4BbUmn0ZV6+tk10r9Ge1ofujP60EuGBnJ6MVYwipL4 MlQn1eFU4SmcqzyNc60rGCqbwFAFk2IFjaqiF6bqXgzWtGOougGDFWXI8dVB d/ggMo0J6C6ZQm/xFPoKp9CfR+VQmVQalTyJxaZz+PzBl3j53wbVT8f9LTb1 Jj59/DF6SvrRXzGHgaqzGKy+jMnam1hg+X/2xH1c7HyE670fYdP0Ce6NfIpH E59ju/ciweqnTZlws2MIm91D3DaChbwTuNM3gofj1JilfTQxhEeTg+x+fIVh e5BvcGYN7IBMnTMyNfbIYeWWryNcOmtUR3mZh/fJ17mgQBjmx8gqzt/F/H+X BrkQIpddpMmZ5UUZuSqlSshVSTBdkE8Hyo8gTGONcJUXOmJ9ES76AIEyazjY eMHR1gtOtp5wtffivqnA0aPu8JT407WqUXRyYhfh+hGk6sMfidiPbP9Awv5g bneZt/6VZTu/a+zmtygyPUTR8CNkm3YQxeQcdGIDwW23iJvlGsyQ3qsI7b0M 9/we2KY2wCGhBo6JtbBJrIN1cgOsUxpgQwRtiJutgFsKazTvQBwU+ezCEYUf /pIB0Q92wrFU/yjY2TnDwcEFjk5upM0Nri5uZtK8zKS5Qy1M+SiXm4stuZsa fsZS5EWmwVckhor+paY0Ig/oSJpRJaUkCPLz4UsryU3hjmHwC4RMLIbM053b hKWAmTvk7u5QenjSE735O4U5QPzgy2BpdDoGP+t3EXD0dQRSPgde/RkxNX1K I3jVnjeI2Tu7oHnvt3ifyxf51IsQv/XfkeqUgKDDSQg4mIWQY6VI9DzJirsX yUQtwzCK/MAplIbOoCpyFg2xc2hJmMfJ5HlUxlw27wtj3ZYR9VtTe9GW3ouu zB70ZLO+ye3BeNEkRvMnEBMSjeHCbpxpWcJEDYuzilGYqkaImgmmGmEQa6qu jUZiQc5w9AgMRw7B59AHGC6dwiiRGydyE8yUk7lss/k4gyJ2E0ls4yawWrv6 E3XCaG4/HXu0zPX98+iGzx/0t1jZG7i5KoxTOIKB8tMYqDyPoarrmBLGH2+6 h7NtD3Gp+yOsD3yCreHPcH/sS3w49TW2+6/iWusgqRvBRucoqRvDSlkbrjaO YGdqFDtj46RtDA8nx/CIjx9Nj+BiWw2JIkV+LkjXOJnnVE9ntZats0eejy3y faxRReqqo0XCkD2WQbZ8LUOCFAW4WJzuIEqCmP1CBDmhmMQVhVDBwnXuTojV O8JPfAA650OE2QfFentSdxwupM6V8rQXQeEmh7e7HMfeszK33u7CPDVGKLQR KGmbIHw/PMPux+faH9j+YG7Nzz/8PUbXv0L97BMUDu+gYPQhMofvIbF/GwHt NxDYeR1B3VcRROx0Ladhn9WGYwnNOBLbgKMJDbBKasCxJCKXWA1HOqt7VA7c o3PhGJSMA57CgKSHZX5MGYdUZE6lh7WjK2zInR25c6DDOTm5w8XZAx7uwhyS HpB6iKCRKaCTe0Pm7kVWRJCKIpAUWYaUgCAoWXyqxF5kkxIOhCilCPHTkbg0 lOalIT01ATKJFDKRpzC4DZevQSFh3lSrzJz5+/tD662E1NEFsuP20B9+A8aj b8Df6g0EHnsDQcdeh/+R15gLXyZv1Hsvk0EWa/vf4U78BrT7X6IshZxm/4tQ 7P01gXNFpFUqAj/IhP9BurFjLQuzHiRrTEjXjyA3YALFIZOojJhCbcw0mhJm 0Jo8g4zkzzFz1nLvGX6L5tRunMzoRkdWN7pzutGfP4BTxfM4V72A5YZ5RIdF s/4yYbB8mHu3UAINkrch8wDyQw29GK5vMw8e35CSCD+rI/A7ehi+Rw5imtzN 0u7miqZwqoCi3Z0ie6doefNZFPk7lUIlTOJy/Rq+vv8F/5t/fvD/jwB8/mDk TwDeWr2JPqbZgbIVmMovYbjyJqbrb2Ox9QFWOx7jcu/HuDH4GbZHv8R9YXhT 4Y4jViRXW4dxs22UAI7jQmM/FgoHcGdiHDujU7S7ScI3Rfgm8GhGEEGcIYQd tSg0utLKhDF4nJgoHGl/tD4fOwLHTBnkhKpoL9TEiOhpHsglsHm0vnx/AlgQ 6IK/YJh3RiFtrkAQISyk8rkeLGWkdH+T2gO927sszrRoCfSAytUJboRP4iCG kvCpCZ2Gst1/lDublgnqf2cxw+2CWDQpfSLQs7JB0H5P4H4vtL/g4nsmiKWH 31O/w+KORaM3vkT+8H3kjT1A/uR9FLBwLpi9g/jhG0gYuYbIwYuQVI3iWEQV joWV4Rh5sA0vgGNYNpzDc+AckQPXyFy4RuXCjbIzxuKAly8OHXHAYXsyJ2Y/ YesIa7Jna+8Ce0c3+p4Hfc+T7Mkh8lLDW6oieyq+FIm7mLuAzEMCOes6jbYc 2XGF8BNSppTeJxPE/kfqhYykOJTmZ1CZiI4MI2sSqJUKGHx8fubNR6u1/Bxp VLAelNg7QGrnAIWNPYxWu+F/fDcCqeDjb5i9T/3uK+TuFXL2Cvl6E/ojwugw uvdfZkLRsc7Tsc7TCgdTKPmeXyNGYO9AJgIO5fN3lSJJ0oEk1QBSfYaQ7T/K j3iMtdk4u+MJ1MdPojDqDCpb/z8sLHxmYe+v0Mp42ZrZhc4c+lfeKJZK57DW eBrL9LnRsjH0M8vFhMWgr4KlXO0QBhuGYaobxrAweUNjN4Yb2uh/dYhnVxNw 7CgCrA6Tv4NYIHuLZG+ZWime+gXO0Pz+PVZof8vEcIUIrjB1rqSOYzFuGN8+ +AJ/6jzAv4qeI9HbZJidxkDJWZjKrmKkagPTDfewePIRVrue4PLAp7gx/CW2 x7/B/anv8Hjue3yy8APRGyF640RvAgsFA9gwzeDe2AwejE1jZ2IaD6em6XnE b2YSj2aJ3yy9UJjktiwVRfS/4gAXZPg4IU3H9OlD/Aw2ZhOrIHpVMfTAWBHK Iz1JnDCahwty/GlwARTZyxNE3vJpgqm+1giWCby9Br37bhjInp/XAYRJRajz UyJBYg+FsxRqNxk0ZE/HnVZHzhzePwq9pxw+1E+tzksOLVuNJgixWZUQcujv fmHm7S+eEfedWad3vqW+wcLO1xi+9RmqTz9E7uRd5E1vI29mC+mT6/DvOYvU iXWIU5pg7ZcFm8Bs2AZnwz4km7/YMSwH++D0jEAXSmKIgMjBFQcPWOGwhwLW JM/KxgnH7FzofG6wdXCn8zE3O4ng5u4NLy8txMJgxPxeL1cxxB5S1mUyyLxk kEr9EBlZg+TweHjLpVBScjqfQFp2ejKKczORlhwPX18j/FikGY1GaNUkmalV IZXCmzQqJWK6pQhKplWpsxNkTg6QOTpBb7MfAdZvIsiG5FEBVm8wVRK5X9L8 Xofm4F4mt90E7hWy98HLrIh1H5C7A4J+Sz98ET57XRFxMJvc5Vm4EzNwKnuR ohtApt8QP95hFIeNoCJqFDVxY4iP+wimpX+kcZ1FR+a4Gb3e3HEM5E1gKn8G S1VzWG5dxnjlFGu5EdZyBKxqCJWZlYgOj8FQE7c1E76mQQw2DpinYjA1nER9 ejr7Dyv691HqCF/JIayUz+Bs2SzWSmdxju35shlcMGsa50uncY5AnmMYPU8e z/Pvn88cw9mkQXy38/kLf+KMwB8B+Pzlzu88u+7k1tkt9BXM0qLXCOB1jFZv YbrxARbbHmO152NcNn2OGyMMnBPf4v7M93g8/wM+Of0jLreMMnyOYzStFZda Z3Cb8N0dFgCkJmYJ4AwezhDCWXrhHCGcG2fLcDo7hBOJLP/of8W0sxyjE9OG PTINDKAEq5Ths5zeV0kAq+IEeaE0ij4Y7IYMQpsZ6Iwsfl9OMH+WwBo8Xheu a3J/Hf+Jy9cI37sI8bZBmMwBBWomLIUnNK4yaAmgj7sMesJnIGROB47+kiWR nHWegUs9d3cfkcw80WF8dgV/5eLDb7kgaQe4/AaLD74xM3eazC08FPQVTj38 EvMPv6A+w8mLO6g+sw3fzjWE9J1H1vQGsmc24JVYj2N+2ThO/qwFBoPInH8K PH1jIdOFQKM2QqUQpojyhqMuEIdYjx4XKXDMRYyjtq7kzx3W9h7kT0T+JHA1 j9jvA0/y5+Yqh6fggnw9Yv6MhC9CKpFDqc5DQXwFIg16aOliUZHhiI2JQnBQ EIKCAhERFsq/qzHPQrcLCrlilxm9v4BSJqdFyhhRpdDS+rzdXSF3dYTCxQFq JxsE2BA82zcRYidY3xvkjqUeLc/73XfMg57pPngFPpTu4Cuw4PcbC36UYHsu v/1LBL0XjPAjRYyuJUjyakWCvAOJmh6k+A4gK9CEgtBBlEay9gubR07t/8T4 /JdoSRthxhxBe+YoBrInMcNMuFB/ChPVs+gvGjYfgjSVD8JUacJA1QD6awaQ l5qP0uzSXRhsMXHf6G/ox0BDN3pqmxAnZcVrfQxBx6ljJJCxc61iERcqF3Gx cgmXqxZ34Ur1Iv4Dl6epBW6ax6XKWVwmoFdKJ3GlcByXc0ZwPq0f3z387Ker Tp4/M/BH8D1/pbMFvuO4eYbw5c5hoPAcX8M6Rqr54807WGx/gtXeT3F58Evc GPsG21O/w31hLOCFH/Hx0h9wq/sszlYNYqFoHJvDc9im+90dmWV1OIsHk7PY mZ7BzgwBnJ02w/dwbgI7c6wK6YAPZkw431GBQjpaEWEqCXJEnp8dchg8i6NE ZgDLCGA5AawggBXxXigXlOCJIjpicaQH0glukHSfGT4BPQG8ELpgoq8N4hhm 46k4TxVaVAHQET4fwmfwkMHXU1gXw/3wcZaJcuH0sHkhI4VG4fIyyiCWQi9X IS67nO/a4oOvuTzNpQDe6Z2vuF8tELu9hO8L6nMzfPMPP8HQ1g4Kly+jYOkS ZrY/pB5jlmo9dw++sQXwkBjgyTJTJIz2TQnzT3ir/KFS+0MpjAUoXOUcEAG3 oFg4seQ7LlLjsI07jth5EkIRbBxlcBDmivPUw11sgKu7MDK/wmyGHl7ez0YU 94ZYylbqj5CgWhjVBhjNJucHvUqLiOh4pBcWIjwuGXKZBT4l4VMohUk25Eoo uObNGlIpVzCKMzLImEvF7gTREUp35k6H9xFk/xYBfJMuuJtQvQrFu7uhPbyP dd7rBO9V+FC7uBQM8ODLLNg1pE84YeD60l9C8uo+xB4uQbx9LRLcmxEnOYlY JYOnvgdp/n3IDu5HYfgAu4v7aJ37R7RVrLAyG8QJEihcvTVJIxondX0lo+gp NKGHlV1v2QB6mTB7q/rQU822wYSOum52M5GoLa5DPwHsa+5He20HM1Qwgml4 wdbMTdbHKQuCF2tWcbl2DVfr1nCN1dx6/SrWGwSdpc7w8TKu1y3heu1prFfP Y71iGuv8H67lD+J252n8GwB8/oCnBcD/hhvL2+jNJoD55xlBb2Co5g6mmh/i dIcA4Ge4NPQV1se+xdY0AWT0FAY9+3jpB9wZ3sBAQjeu987hVv8EtkxTuD0s RFBCaAZwlp/BzuwM6/iduSlKAHAMDwjgfQJ4d6aPlWUpWlN0KAx0pOxRHS9G ZZwYFQSvMp7OR1UnsKVqk8SoSRSb1yuoCNV78Bcx/Yh3m9tk/2PIDnVADpVi sDMD6GuvQKU0AVliTwJKuOh8RkZMPaskzyPHEUCnCJCSvwCZUAEGsN/3p/zY 9xuFWe8lFg57lq7h9P2vdhHCL8nezhfYTwI/f8aehb+5h59SH5O/q2YG2y5v /szf7PZHmNt+gvntp2ibPIvgmBx4SgQOAyH1DoRcFUg2yZ/UF/b6UDgYI+Ho HwNNZDS8WbvYyww45CDFgWOesLKXw9pBAQcPPRzddbB3oWm6KeHCvsbVS8Xf q4KYDq7V6cmcv5k7rUwHzTEXSBlslYeo43aIzS5GUHwq5Ao1kWPwpIihtxr/ GTJvDRRc8/ZWQeWthNrbGxpvJgOFBFq5B0OpE6tnawQKGDq8RU/cDeX+1+C9 fy/0Vnt2mRk8Bt2hV6lXnullaImiWjgq8+7LZhDdKNnr+1kFViHWqQmxnq2I VnQgVtuJOH0HUoztSA4YQlzp36N74jN+8gNoSaLV5YxiuHIGPSUTOMGyry2v D+1Ffego6UVnGVXZg87qXnQ1DKC7yYTuZhNO1ncjkV1Oe30POhp7UZ5RAP0h W4RYHUOIDVsbG4QQyCACebXuEq43XMaNpsu42XwZt6iNlkvUReoCdZ7b13Cz 6SxuNizjVt0p3Kqaws3yYawX9+Hj1Zv46eLn588+/KswvoJPuTf1ZMyjP/fc zzBOEsaF9qc42/cZLg59ifXxr7E5/S3uzX9nHtfs6fL3mCp7hDMNM7ghTNTW M4HNgUlsD0/hLmvB+6wF77MWfEA3fEA3FGB8QBgfEMb7jKP3Zk24M9uL27Od uDPditX2LDQlyVAWSxAJY1W8eBcpFOOvzfwJawKDlZRgitlhDvATvWFmMMbn EEOLI7KoHCqPLOYF2yOZ6dbg5IYEhwxUc4cSOPRjYvMXCYMneUJqbYtAqTDh JcUYFkTt4poM/xsChAssZFLztYxGVkV6esPp+5+Twwef811c2CGHO5+RRWG2 mnlS+B+fsfgJai/cIotXULN6/WcOZ8nhHDmc3/4Yp7Y+efY5sHoNL4G1nffP N2DYumlgrQmBrS4ctj7RkIXEwBCbhsCkAqhCkuEg9oebyIgPrLzM32/tKswe 5w07sihT+sBH7wv/gEDzgfCIqGi4OIpwcK81nA9oEOjgzSLOAT62djDYM1MK l6xK1fROJcRi2p+3lhKmWdNCrrS0SqUGKpUaGpUSWpWCYo5Qi+mpnuTSZReC HN7mu+XPeCp/9y1ojr4L3eE3yNxr0B56bZcZxr1mFLVMp0K1qGZqVRFH8Zu/ htvLfwXXl/8SfnvCEWVdhyjXFkSIOxAmb0Okpo3e2I5E/2lUDfwBdfmzqIvr QVfeGDqKJ1CX1oOGzG405XSjOb8brUVUaTdOlFNVPUTOhDb6YRtRbCOK7S2D qCprQWREDMqyyhFs5wz1ATtGUDuEHjuGUFviSAkj/qw3reNmyw1stN7A5okb 2Dp5g5/ydts6c+l223VstV3F5skr2DhxCbdazmGzeQWbDaewWUMOqkxYL+v8 F0j8r3/ijIR5dsJfWE5d/+Oz4cW4caBoHUPVdzBBGOfpjGd6P8GFoc9xffxL wvgV7s5/jSvDTzBcdAOX+v8OtxeEiY1HCOQYbvUxog6NY3t0AnfHJ3FvchL3 p6fogoK4PjtBCMeoYYJowu25XmwTxtszLYy9Nbi7UI8fPlzBsqkIK1QJ3bGU sbSM7ljGtoT1YTHVWRGKaN1BJPkf34XMMCf25JnhTgTRCbmEMV+AMcQBSWob +DjS4Y7GoU0bCqOHgiWjgjAqmEy9CKMdgmQKBAtFUTBJ/I8IVsjN114HKmQI UEgtF1oJPLJAKms4QRQ/xSlBO59aINxlZtAOs1wObj1iIr2KmrV1zHLdQuHH pPAT6lPMb5FeamHzc/ObnVBxCkmVpyxXv1UtwBBSZF6XRBVDGl4AXWIrwjPb EJtZj9DEUkj0dEljEvSBaQgKtQwgpPELJ33B8A8MQkBIBCJSchGTVYb49Fwk pmbi/b22OPyeIxw/kMDX1RfhzjJEOYkQ5+KJaFc36BzCoHYIh8IhAnJKah8O iX0YxHYhrAaD4SMJhF7iz6RutAyRI9KyE1TxfWSn5imindgj9tBBRLz3AYL3 HET4+wcR9u7+XQh7bz93uLD97yGUCqEsHdAh+O57F6p39sDtlb+EK+VCHFVv ixBu24AQtzYEi9oRTneM03UiLcCEohihSOxESVQbKlIGUJrUjYq0blQTxVqi WFfQjXqiWE8UT9YPobVuEM1EsYkoNjcJGkRL8wiaGkeQJHRsRj/EOClY3DpA c8CeKNoglAiG2NnhRGQZbp7YwkbbNrbat7Hdsc3IuY07XVu4a9Ym1ze47Sa2 Oq5js+0KsTyPzRbi2DhPJMewUdeLzy6t/6m7gl7+X3F8/iDpW8/O2z9vlsLX bNMV9KSfM6+bqrYx1rSD2fbHWO59ivNDn+Dq+Ge4Nf05zpseoS/zKq6UX8dH Kx/js7VvcLllGNc7yGbvKG6Zxlg+juH22DjuTlCTZHF6nCKrM2PUKJkcpjkO YHuuB1uz7diaacLGZBUene/G94+E0eR+/2jlF1xdZgf8u4fLrIaX8e3OMma6 s5/ZoZMFyD8XVp8B6UQgHZFLIGPlLoiis3kfCkaNIhX5AmEspwJYTmmdPeBt 54RglkoEkiQqEOItgOkt518LZioL8paaoRSuevSTi4WLtMggaSzFPHmceyYB xVm2M1T+4mWLKW4+JJKPMbf1lPrEjOL8Fg116wuY1h6iuPOC+R1OrT6NzBrL 9NAFNYsooYSvqHwTIjK6EZ7Rh8isASRmNMIYng0HYQx9SRCkLC6NfgHw87dM hijMAOPmHW4evN6TpioyxMI/KgNRCelE0hGHP3CD42ERNG7+CGIojvIJRLzR H3G+BgRF1iE4sh660Hr4CAqpg54yhLDIDKmBf0gVAkMqERxSjtDgUoQFFSEi KB+RQdmICkhHgm8aygx5qDDkolKfgyp9Nmp8slCry0SdLgP12nQ0aNLQqElF ozoZjcpENHnHm//vJnk0mqSRaJSEoUEUgnqPQFR4JtOi2shmLyKk/YjWDCAp aAh50SbkRXYjP6odubGdyCeXReSyhFyWkcsqJtWGqiE0142iuXEUtTUDqK0z oYZs1jYMUsNcH0F6eBbCGChCNAaEKfn6uRf4WTvBeMwRYUJatbfHiehKbLTf x3bnffL3AHe77+NeD9V7H/d771F3uX4Hd3rJa88GNrtoox1ks41snlimZsno EG7Vn8S/CuYvzWA2NTWZ4czOzrZM5PvX/4zNT3e+QVeShc3+8i2MNNzHTNsj LPY8xtrgE1we+xg3pj7BZNNjPvcD7i79HR6cfYJP1r7EndEruHxiCNe6mKX7 h3FzaBSbI6PYHhvF7YkxsnZnapSl2p1pPp4ZoU8OYnO2Hxtz3diYOUnmG3Bt vGIXOVzhgnT+v8KqBcsdAcslfEN9TbUU+ZupzKJJZoY7s3VmmnVGTriFz1zy mah2RIK3GIlUslKCBOcs7ik6BHgpEciopqVhKO0tfIYoKG/vXQKg+D8QoiSu ShqnUoZApRSB5FSYbtYop203tWKOiP7CjORLZihn+Hhg4xGqz1zF7MZ9zG0+ IpRPzGDOmcH8gmB+icHVD5FSuYC0aguEWbVLyKeEr6qSGdQXTFp8NJdAZpkQ n9yFxJRe6AOSoNYH/gykQhMAJ3EgnCQh5u93VUQSzkh4KKN2wVMVRd+X6GIg 1Ubj6DE5DhzyhKONEX66UGZwBfRSEXxZDAYatfAQC8Wjl0QDOUOsFiLzXMMa FqIaFpMMrxqdeZAq4R4rb2MwFEFxUAWzwA2JhC4kBLqgQATpfOCr1CNQo0ew Vo9QYWBHht4IlQZRVLRagxi1GrFUnFmWmcjj1UpEsPeMEEsQKRYj1hiOlMQi hm172ncFa4khhOuGEOtnQmJID5LDOpEe3YGspH7kpA0gn/1WSf4QKspGUVU5 iupqimxW1gyhtNqEshqqll5LZWc28H8JR4iTimyqEeGuRSCL7ECJjDw6Q3uY e4KtI+OrNTY6PsRW14e43f0Yd3sf417fYzzopwY+xI5Zj7i+g7sD93G7/w62 +jax2UM+uy5js3ONOk1WJ8loDz67euVXf+Lk4h/hKZzbeO7C6zefbX4ez58T 7a/RnXkdfSVbGKy7h4nWB1jofogz/L8ujjzG9ckn2Jh9io623+PC6o9YP/8F nqx+ho/PfYbrPfO41D6Iqz2ktH8I60PsP0aGsDk2jK0JapKaGsbmzBCJNOEW S8ubTLM3Z1pxbbIeD8738WUI9vhnz4j8J/1E5lc7i0incWaSRiHCZoQ7Wwjl 411m//x/kO7vgDiFJ+mUIIlkJqskfN/j0GmIQoyXxEynzlmg0xkhcgudod6U UhBdlEVUCPEMVjHXPkM0gL/Ln6QnxMftwix5fNdM5bSg+59i6t4nuPjwCWZv 3SGhOySU1rnJJLtJOje/oL4y05lKOjOql0jmssUySWp5yax5vaFoBkW5lsFN krMHkJDWwdSa9jOVSi2p9ArAcTc/2NJmHERBfGyZ+dDFUQNXJw3cnbXwZL3p JchNC4U6Ep6yUOz7QA0PSTiRM5gvpVHKJVB5eyI8Nh1uXmZEpTr8F/M43yKZ IGEUQy2kCspbzbpVBSWxUmtV0OjYuekVMPjKYDCIYPBxhffRfZAd3o//n7P3 gIprT69891LbnmePx+NxGo/HYTxud7c73La7b1ZCQuRYVKZyUUWOEgIRhBAS AoRAEkFCCJFzzhkkBCgnghBFBqEsXenqXtvtN7PWvH2qkJp759pe62mtXaco gqBq/75vf6fO+R/Jpz+H5OMPIP7lTyH9pXCuw4/4kqo+/hGbgerjH76foRUf /wDyD78P75/9JVx/yEj7wz+F58/+Ap4f/AWcfv4Bfv5nfwWHD3ZD7XoEwbp6 tupqhAWXYW9EKeITmpF0qBmHjzTj6LFmHDvejLQsioimEdEj2XWCFXj71/za 03yJ9TA78WUklsHOGuKpRaQLS4iHHP56A4JcPRDsRES3M3gpgzBzfootcR2z 1Y8wV/uIKD7CQt0jLNavY7HhIbWGhQZiW7+EB/XzmK57gKkaIlrNeFt1jbpE XHuIawOe3b2Dd3xufu/xW7n2/75I7w/+r94pbB/Pv7ber0ibRs1pC5rPWdBd Ooeh6gWMNS7ieusS7nauYLp3FQ8G1zB/8SGWRh5iZXQdc73TGD1Xg6ultbhW VYcbtXW4VV+Pu411uNtcj3utVDvvd3I47qrBra4Kqhg3O85hvCUHL+eG8XJe uLrH/DD+A28J5IZeCCKcz6n2SuEt9IME8Y9568Kw4mKDNNQGaXKIM/bK3bCf QMVa4ZQgnjLvCUCObxJOaGQIk2wGVElAlQRUaQV0C0J8Ffz/g1VyK6D+hNJE 2P3YcDQiRyidt/Fr8vt78CHye3uQ29ON1hu3sb42j+axcRJqQc8E++ck++cU +ydny96p56gbWULiyV4cIp2Hcy7iSN4l61N9Ir0bOem9trCX1oPEA7nW+8Gh MZwhwyFmGHUVB8HJJxQuJNJdxCDL+66eG2Q6auDioLbe93TRWs/mE7nr4OOh g0xsglIRBJlPOFQ+aTDvz8AOVx84iyQQG/z58XFEJJ6HjvOrl0RHSKV6Pq0i Glok549QCIsXayH11UDKHigjoAqVAgqNklsJJSK0HpArnCD+7BN4f/RziD78 AD4ffQDJhz+DhJDKPySkHwvvEvsS0h3w/eRHUG6AKv3wbyH96PvU38CFkHp9 8Jfw/vlf8ft/CJ3LLvz0T/8SH/7t32D3z/h1W10Q4Sucd10Kc1QbQg50IjKx E9HJnYg52okDaZ2Iy6AyOxF/og37j9UizLwf/swEht2OMNg7w7jHA/4ENMiZ cLroOXqr4O/ohgC+/P5+fghy84TfHldUHBzBQjGza80zWGqfY67+OYF8jsXG 51hqeoblpqfUYyw20fVNJKFxCdMN85iqn8FU3QR1i2LOrRskuK2YKD3/jtHN 75B8i9HNPP7sOxrou/1C5F34V5o8hYoTD1BzxoLWCxb0VlpwsW4O483zuNG+ iLvdS5jqZwUZWobl4goWRlawNMpftncCI+erMFZajfFK4lpTg+v1tbjRVIOb LVRbNb+/Gtc7KnGtowxXOy5grPUspkaqfwPPLUNb8HxuiHw8J5PP5gfxlA3z CdVKLhNJZaK1USbw9mfW+0kb2qdyRjSZjGGzO0AerVzSRIlqCWJcU1Bt1CBJ I0GIuxPUDk4cOX2tXAZbuVRaqQymAoTTE6TulBuMlN7HBVovB/g6fI6MgjM4 39GB3ks9GBvtwsT1PoxdbEVJzQWUVJehceAy2eTAOfkYvZPMtJMvcaJkDMmn BpAiMJl7+f1pJieP9SEl/gJCg/dtPPYfcSCpHFLtfnZGM5xEQcywYXCh3ChP URi8vYPh6aCFp6tp4wX9XXZLdjt3PXw89ZCK/NgVg+ArXCvYLRVxMQXsbhFQ aqOgDYqnafO+t/Hfe5HEd/9s//3vQcSMKvbVQaLSQqbWQKZRk0Vf+Bq1jNRS 3vdhE/eCt48jPD7/CG4f/IhMfrDFCqQ9xML5gR/+BPKP/o4IUkRRQShlH/2A CNoagoQ4Soij79YfQ/T3/wNef/9XkG39OavlLmjddsPxk1/gFz/h17iYOJRk IYVjbpgpHWEBeQgNK0NkeBn2RZYhmtofUYYDpnwkyNMR7ZGCUEcjzPYS6Hc7 QU8c9fauMOzxgslJBpOjCCYHd+LojgAnin+egORh3T6UHnqGibIXWCydwVzD F1ho/ILofYGl5ldYbhH0Aiutz7DUIhyhzb7asor7zYuYapzjADdNMdo2sW82 XcRUQxeRrHjfM1++fIm8vLx/j8efvo+v39scZIVPFUbfRsmxGVSwXQrX0W4v taCvmiw2WDDeOofrnXO40zOPif4F3B9i6L64iLmRRSxcXsR0z10MF1bgUmkl RiqrcLmGXDZUYbyJaq4kd5UYbaugSnGp5Tyu9JTgyYMhPKW24OksYXxqGcLv 4CmRfEIYBT0mjI+ovDQT4tkM4wlfnKAQF3IZ4sICH6VywV6yuJ8svueRLCbQ RIlUiEM0ys37kK7xRqSXIwIctyNZK+HAo0AEWRTeKDFLvGGSesIs9YBZ7Mbf xyx2hTvMnvYwOn0Ok8vnyE6JgeVOP2ZvU7eoG/241FePmroSVNeWo5J/b0VV DWqae9E+NofC5rtIzu5FCnvkkZzLzFiXEB93ASFkMDgoAim8n3ekBxVZN5CT MQQf1T44evuRRc6SwhVF2efcxJFw9oiElwdZtGc/dCR7zgb2Q3+4s/B7ueqZ XAUeDRB7G5hUA6DyDYbYNQaRwecQFpIEucQABaXUREIbcAD70/Ktr3jUoUx4 8HEvmdH6sbfCthX58udzeBRrdJByRJdpmYx1KsIqZQP1gVwjZgP1gqvHHjh+ 9gu4/uwH8PiHn8D7Q8IpIpa/QUR/Sjh/TBh/yL74Q5v9/ieZ/VuodvwUoZ6f Y5/MDorPfwRPtkiJlUk7GEQiBJKRMPNR6N2OIdH5HC74HcIB/3QkmNNxiGym GNORakjHMV060jTpSFdxq0zHYe8UJHscQbLrUSQ6pCDQXg4dmdTZs6rucYeB PPo58tV18tjCvumB/wp/kwmFSVVE6DWq0r7Aai0ja/UqFpq/xGLLGyy1vsFK 22vqFfUSS23PMN/2BLNt67jf+u6K9oyzbZPUTYrTZksvsax5j+Tmd0s2kPzj 79g9+9HGqYjrc1+iMGEKxRmzKOdAWX+eDJazH9ZYMNxowWirBdc6LbjVY8Hd fgsmBy2YHubge3EOD0bmcLfnJvoKy9FfWo6BqgoM1lZgqJ5qrMRgcwUGmvm5 pmKMdpXj4fQQ1u8L7D2aGSL/j8jh49khPCKEj4jgI+K3Tj0kfmtUTJATDgQ7 I5bUxYS4cksFuyDc1wVRcjH2bWZQJTAofc9ggKM/ctSHkeenQCgrbxiVrJNS 5NTXjc/Gfslu/DYiRbsQ7uOAKG877PehRDsR7b0DkZ7byEk8FsnfFiySwB9j 8WY/xvob0FhXioa6StTVVqO2uhY1lfWo5jSRdOg8DmY0Y++BUwgKiUYgmYuP vcBeOIqCzJu4cOIOyrPvojpnAqlJDXD01MLJ20T2gphNQ9kHI+EqioKL1z5O ioHw2mOAyMkIsYsfpOTPg6HLy42PefIxbyPzqZnshZDBcPgpc5F86BwUUr8t fMAPP4EvMfMVWmNgnBWH6GNn+eP5I/hZL7mf9TEvXz94q4wQqY3w0eoh0TL2 6tgP9WpiKWWJEBNDb3iI3ODivgcOn/8SLsTP/Rc/hueHP4UXc6q3IPLn/dFP IPrlj+Dzyx8QvB+QSUF/C6Pjh4RvN8eKXZQdAj0+hfvP/xIaRzv4yw2I9D8q rHsVcJSERAekInhrARoJW3JAOo4SxDRCmKY9jDRFPDJk8cikTqvTcdo3HZmE 8LjXEWR4HEWGayrSHVKRuDsaAbsV0BFCvYMH/38PNknhfDCTlcK86ALEhCei K+8WRku+wuXyf8YjZtGF1q+w2PYVltvfYqXjS4o0drBRdrzEfMczzLY/xv32 NUy1Mxp2sDl2sjl2cajsZFbt6CeJDe/3xQpvHr/rft//1ym0XSDil1hf+AoF SfdxPtOCsnx2wiKmUlLYU2vBICkcIYXjHSSx24KbfRbcHiCNwuV1L1KXLbje dwNtRWXoIIUdlRXoYI/uqK1EB0nsoFsH2yuxPDmElakhrJLCNVK4RgYfksCH JHCNBK6RwNW5QayQwGVqiQRGk8D9JDA6yAXRJE/Yhvl6IEImthJo1pjgrzWx hpoQzAoe6ivsqxB2/P0nhGsMCPDORF2AnplkOwlztBJ4QO6M/VJ7xFD7pbu5 3Y1YQZJd/N4Y8S78FmJIYozPDpK4HVXZ8Vi924/V2/1bsEIQ/w7XBhrRWl+G lvpKNNfVoL6qGqeyTmJ/1H4EBQQzdO5F3JFaHM4aRXraNWSn30Jexj0UZk6i 5OQ0KnNmUJv/AK72nnDioOfsbSaAwXBjCHX3IYAee+HhvReeTsHwdjCxAZog cTND5unPMEpiPPzg4+UHiUgYEIOhUYVC5p5K2ItgMu6FUm4SJjaFCX/GW4ZW VQB8DbZ3JCJT8qAJjoerj3BtMxM8lSYbicK641qSqGNj1THsGtgIGeqFBUu9 WdzcJWyAIg8GZWe47fwE7v/wQ7j94qfwIIXuv/zp93jzEz7rHr/4O7h/8H2C yGb46d/DaL8V/i7bEeSxg6/YLkQSwAjZTuicPkaYJgr7AgT4ogMF+PbzNj4o DYF2J1Epy0OZKQGZBPCIZB+OeIUizTMUx6ksj1CcdA/FGcVh5EhSkONzBKe8 j+KUZypO8Wk46ZyKE7tTELRHCR3hMzgJp58bnT3xp0jUxeB21Ze4Uv4ECVFH cbfmBeqy/wnz7b/CetMKFtu/xnLH11jp/IoihF1si11fYL7rBWY7n+J+5zqh 27g+fS8Hxl6m056rmOrmsNje9F3vhXyLP2Fn6+DgoPWjTzYmwofkr7V8Deey LCgmf9Xkr4n8dbAL9pK/IfJ3ifyNkr8r5O8qu+A1snd9ZGMl0zHyWtOCOvJX W1GBWjJYW0UWmULn7g5ifmIIi+Rvkfwtkb1lsrf8gPlzmfD9IZYtxI3oLVLz 1Nz8ALKOmREV6IzIQDY8f2eY1axorNISv72Q6cM5rQTDl9VTWAdTIzdCRxkY qPhE8/Y3IXPej3h1LNTeGvh5ixEmcecfHyOzZ96NJXqxrMgHiN0BiaBdVvxi xXbUTuwndjXZ8VuwTu5+hnX2wIcEr6OhEG21xcg/dQKREeEICw1F8sEkHE1I wbEDaciIO4W0/Xk4ljKIjLQ7OJUxifxMVrXsWZTlzKH6zDz8fYLhbu9lvVC3 i5c/XL1DiF0E3L2i4Oq1H96eUfB2DoXINYx9LwBSd3/IvLgVCSf28r4kAGIf 4cjXMMhFsQgPPI+4xFNEjo8pKCV7olK4DozK18TXXK0Ns+IVmpSNcKLnzMzq JhWuB2O27fNhBfPSET0dG6Ce6BmJnh/zp78ZrlIfOPiI4CL2ZDZ2g+STDyD6 9B+EE4vthCol3rYV3p9+xMc+pH4BhXD2n9327/FmG4S7W2HY+Tn1GQJctyFS 5YnMpDQkRWUilqjFBh3FASoh+BiSg9Ox1z0Dp13Ood2YhNMCdgJyVCaRy+b2 tHcY8rzCcIYqkKegQHYEZ2VHkS9NRb6Y8j6GfOKX63QYyTsiiLgn9FS8NgY3 Kr/E7ZqvcK/uazScHkXi3qOYaHiF5oL/hee9r7HG4W+56x8potfNHtjNRNr9 GvPdLzHb/Yyj1mOitrpxpXkm0IF73HIo7Bsmjs3v+97mNzm+g7t3J3B8tpE+ r49yfsy2oOAM+94FC9khd+x5HU0WdLdxEmTyHOxlEmW/u8h+d5HMDQtrKLLn 9ZO71r6bKKtpxbniUoxe6sTU7UHcvzOIB/cGMTsxCMsUYZomVPe5neH2wSBf vbnZQfw5LIRulpqxDOA+VVZ62AqaiZOaTBsEH78oiE17IRUuPC0zbMBmhIZ4 6RTC9XKNMCpt1+k0UXLXYFbXQwgRq6F09YbWRyUcIo5ITnixMvstOED2/h/E 8TZO4E66y8rdAYmNuRjRdlxtLdyCx/f64YTVm93oqy20nnYUFhqC3Ox0VJcU oqWmEu2NDTiReAwnDmZxm4vM+DM4Hn4GmcljOH38Ac5mzeHC6UWU56/gdEo/ vLc6wsvODc6c24T9nm7eoQx0nPNcOeeJY9jmAuDp7A9vtjhhzpN4sNV5B0Au DoRSGsS/PIhMBfN+KMtMLg4dvgCdPoytz5+8+ZM0SmWGWmWCWi3IFi61IYkI O2Kb/ZzZ7lyltsc9mBg8mBg89eTOaCR7Wniq1Xy2zeRRD0eJGPbebnAQucLn 8+2Qb9sB6Y6dkO3cAflO4foQCt5+D4od26HcsRXancKK+X67tmEbb7fCz07Q 5zASPLOjcOXqBJxNK0FhdjlS9mayxx3FQeowoUsNSsfxwHQkMnRe1KUhXwic BOw4lU3leIUjXxSOs+JwnJOE44L6CHUURdR5VSoKlZT8GM5LuPUmkK6HEGNv QoxmP8bL3+B61VvcqiV49V9jqukfUZTWgtqTA7hW98+40fF/8KL/OZaswL3F co8ggtdD8Hpe4UHvc0z3PyFsDzE1JFw/fpaaoK7zsWFMdre8427zmxff4m7z mxefW2//DGsrX6Oufg2nzpK9YgtKKm0LudU3k792ctVlQRu5a+fE185e10r2 mof5eW6rB4j/4nO8/fILPLh/EzdvDOD2rQHcI3eT5G6K3E2Tu/vTg1twn+D9 Ne4TvWmiN/lgABPUvQf9mF8lutWFkKqZqYyREAm4mSkWbxlxU8g3kCNqWuKl pwycVvx8hUtz+sFM+Sv9oHNPxhF9KHzdRRzn5TAIR4mLVPCT6hAldbfyFs9e t8VK3ce83UXZkTsOeux3D8aaUVOYhYSYKERHhTM+52O4rRR9LeXobalCT0st upvrCdMZnDqUjuzkU8g+lI/spHPIji7EyfAi5GTOo+DUMorz1lBRsI6EkDMQ bXOCeIcznDmwuXoEwo1mcmNwcmcV96aRPJxofhcCxwYnIZQyDoFyUSAUhM5X RuAUQVD7BkPOCSc25gKCgmNh0AfDaAiGThtI4AidmtBpBJne7XdVMh74J55A 8NHcjR2ff2K9vLUTK5ezUlhEijVApYO7RksG9WSQT7+fP6ud0AM1cFMq4fnp bjK3C9Lt28ncTittyp3b4btzG++TuZ3C5SA+5zxF5P4bb7dSn1vlZ/cZ46Yc J6JOIyf6HPLiilCUXYazqYVIYbQ8ZsUtAycDjyPeLg9d8gJUm9NRQPSyRPtw 2mcfe9k+FEijUajYh0rOfmX6dP4pZYZ0OqlEn4Zi3TEUayjiV6w4imLJYZSK 0zB4ch5jFW9wrfpLIvcWdxveYrLpLW7WPkZs5EH0Fd1CS9GvsDbyv/G0ZxlL PYyW7H3LvV9gsfcV5vpe4sEAkRsicsMPbReCv0TkLhG5i0RuaBiLN8bf97rN b0Z8i7nNOz+3W29/F2M3X6K26yFOlVlwhrnyfAOzZgvZI28l7HPFZO585yzu LrzE45f/+JsbLfLh+gLWHy3i2q1+3LgzgFv3qAkiN0lN8T51c6ofj58v4tHz BXz59Su8/OqfUNg1yuIawRc3koU1CiLOGmKpATIypRTWTlcwN5Ip3QZbRl+j lS2Bqy3w5+3vQMtglqSPZ2gTTqmQw+gjhx8ZE87E0Pn4IVQsJVtsbQJg/8DJ zgFRGgnC9L4ICTBbceqqOoOHt7rwgr/mc2rqchMGWsupavS31hKxelSdPYvc w5k4ffg0Th0+i1OJhTh9oAi5MSXIj2d3z3mIkrOPUXn+KXsZsdruDMkOV/Yv ouVuJlZmeDAjeolCIGKd9nI2Q+TmD7FnIKTeQVAwc/pKgqGSEBuipRHe0xPt RZC50Jod9cTKQKz8jMFCH/ELptE05EKtJVrsU1b5hUDJ8qSPPozAoznQHTgG R7HRulKjwJaT0rYKojOnYCdfrXUhYC+/QHib/OGuFZhTwd3dEz477OD5mT3k 23f+mi27HfC1I1/sWwqrPoNpt/A+qXn3Vs5M5t2Ei/J3leJ4WAbOxJ7D2dhC 5O8vxNm4C6jJbUXl8QbkRZ9FdmA2cgJOIcU9D6Vuleg256DUPw/lAfkoNWUT oHRU+mejLiQf9aH5qAk6vQVV5mz+yRWmLJT7nUCZ8biVuXJtKjqDS9AXWo3u gHJczOXwU/0aN+re4HbDG9xrfoOp1je41bBOvhJxtXYOXTX/G2+uvsFCw4yV qUUytdD/AnMDzzAz9BTTFx9tXIOMbF0mW5fJ1ghz5MVhPFuc+7fY+qNNx3wL J10LH6k2ToUaX1hHx+QSOqZW4O0XwWpG0zOhiCT6b5hevcn0Bt8N0/OVMlP+ KuE66xoOTHrsVR3GXr6SflK5sNtIIicMJgJgsp5ta4JZrEWUVoYQow4BZhOC /fSIUnszWidswUv2PE+84u3LDd0fbcJgWzlVjUGavr+tHjXnCpCfcgK5R3KR c6QAOSk0fHwJzsSXoSCuHIVp4ygpfIqTqSPsJc40vSukO93gYS+Cq5uWpucQ Q9N70/Q+7CfermaI3TkkedLw7CW+4hCoZcHQyoNp+NANAE7iYDJ7SVC0tZcY aHjB7n4myhwMkznIuoKSVrgkL8OZio8rzZGQct400/Tm1NOQhiXCgaZ34NPp wN7sQNPvUugpA7wCIuBJ07vrTQRBWK1QBzc3D4ispt8NydbdHJK2WUOcwk4w Pk3PHqJkB5ExsPnZb+Ozbb+NCcW0h03F0R7RyjCciztDnaMKURB7AQUx5ShN FFbEHEB33hBa0jtRElWKAv+zyNxZj1umsygPLERlcCFqQs+jLuw86sPPozGC iqLCC1AblEfv59neI/4LDB5oxeD+Bgzvq7E+MhDXjvHqV7he9wq3Gl/hbvMr TLa+wnQ7P25aQ2J0CnrKlnCl7jnmL9zFWsV1zPc/w/zgU1iGn2Dm0iNMj7CH jHJmGuXMNEavj3FmGqXXL13E21cvvvNMo295ffO+Ql/r7d/gyiK9PkWvTy+j c3oFR4pqIabfhcsW+Ij1kHxXkffd8LuKswrTuZnyF5ZilzEwyeXQiZKRyhfP T66AiR+bBckUMAsHTDKV+5v9+fVG7FdzllE4sdLvQozMDr+BL2aGkIHrHRdQ cfIgk7Ua7js+gceOT+G54zN4bv8Mrp9+DF9HV4RzOjgUnkzDFyH/IF+tpHKc T6pE0cFqlBQ9R1zYORrdhaHJlVs7eO2wh6urllXTCE9Pm9HFNLrIVZhQAjmh 2Cq7ShoCjSyEIZFbukXimYR9+y5g774UGGly04bJjRsm9/MPgonyCwiEKYBm 9zNZja7wj4TEGAbjkdMwHGVXSD0JV0MU7BlGdwnLcUoM2M77woX/vIKi4M7v cdEarUu9OzJReWzn70wJZvf6nBWef4PMzg5yO1b5XTuh3E3D794OKSu7354d 1Hb4OWyH0WEbEg3hKIzLw/mEAhQmnEchC0FhXBWKYmtRur8etQmt6MsdxVDO OEZyrqA/bQinvdtxWdeAttBCVIeVoi6iFA2koHFvKZr2laI5WlAJq3wh6qjm SNslz4cO9tu2iV0YZne9dMB2udjhfSUYzBjBVVr6RuNz3G5+jnutzzHZzkjU +RxNZwcRwxhVm/MEq5d+hWfXhbL+mHZ/hNlL67h/eQ3ToyuYGmdpH5/H1JUZ ipYfu447w4Pvz3L9V+3+68OUFxYWBNsrNh6+sviQjl+g2+n4+8tbrKdn/pHV 9OIN038j2Sg3mV4lXPODhZ1mN2s5Pai0MCiYZJQK697cQwEJLOQqmPU6hh6z Gb8Pf70OZoUCRrkOOlkAa70aB5S76ftdOHNAj9cPhvB6dgiVpw7C12UHVJSa 0lKSnZ9sYZX+DD9kc/+cQ/duOO92g+Nud+xxUcDOyw9Sw1FEJFQjKqEGe+Nq kXRsDMGhF+Bir4LHTheItm6DeNt2uDjT+m4MER4BEHkHQ8JgI/UJZX0P5JzA uiy2WV+rCGE7YziR7oVJX4DY+FMwaEPgp6PVGWpMpiCYWdf9KCMtL9ieIScw ADthDOQMQSRkpnD48Hs0KSehOZIN9ZEsKA/nwTMqE1uZ87ZKaHFmSdfAvXDx D4eDxgQHnT+3ZjiIFXCj1T227yKyu+C5bTfxdWDA4dC+axdku4mAIHt+bL8d Wlrf4LCT2oEwkQjn43JQlHCG1j+PokSWg4Q6XIhvRMmBZlTFtKIuug29maO4 lHsDo7m3cDXvNsPMEJpk3ZhO7cXQsQFcTBvESMYgLh8fxGjmAMao8RP9uHNq HJcPDVEXMZJ80Wb75CGqf+PooP+Kgf0FGKsTzpZ+gpvNT3Cn9QnutT/BZOcT THc9QVFmNbLS+nD7+j9heYJDOSeDB0wwM5dXMT22TKuzul9ZwNTVOYqWv3oP k2PX8Hh5Ce+WNdm8N/pvvml5Ya+Y8E+Y0ml/+cZ3XFlYRefkPC2/iC3WJQF+ Yj0RsodKLaqD2DeIvjewIBohZXFSyNmtmfDVvmboVGboORkaGV/9dGaYKB3H OoPKl49poBPemGEBDPT3h9mgZzNQMgApmPlZ8H3JBouZzjeA5uf3in2xn8YX DF91+iBUrtuhcaXZKR1loPxcd0LNeKqk70VunnBmOvgeb/0QB2cJR086yMHT D/aufgiKOovYpDrEHqyDOugcdu2SYfcOEeztZHBnrHff6QV3F7qeScbH6vow yFj0pV6cjq0xnqlGvuF6FWkQFuY+KCSaWBh1ISz4dL6BMobAzAJtpruN/oEw sNAbAgX5Q8/RREsaxPx6D1UQvEMOQpJQCAnHDolwoeOks1CnlWOPMRYuAQfg Ergf9gyTu7XBsNcFYg9d7+LoAbcde+C2fTebnT28dtrD7TMHjiV7IGHRl9gz 7djvgmSPHcR0vILSOtih/Sgj96ECnI/PxYXEIqqKasAFFviShA6Ux3WhNrYb Tft70LqvB5dz7uFK3gSun5nCrYJpnHEfwAwzynTxDGZKZjBbOgNL+QzmKmYw L6jyPjWNscOXMZoyhtEjYxg5Ompz/lEbARcPd1q3l5MrMXLwPEYu3MM4M/y1 pnXcbFnH7TbhLI91THTxsZZZxETFoavsEufiVdy/uILpy3T92CImxgXXC1cP m7omLPE/de0BJun++cn771fU+led/839wTbb/wkH139E54QFXaz2XdNLVuN/ 8zz8NYg1HGppKbHEBInMBLncH0olpzVaVqOmbTV8mfky+RkCaAOTcP2SLdZ1 0X4TvnLOrYrDSA2Phknry66gFIYsjXDAqlnNyKOSQ68JpPv9oaF/a/JPIiVc WFFR67YDvw09b80eOxHkYYcwTzsEipzZcZTwZqfxFi51rfTjH+ZOFhmDZH5w p/td+as6u5MC1nKJfD/iD9dhj4MM9ju94bBTRPnAcacYTjslcHYKhIcrO5oX ne8TBrksgoNqCGNOCHylG873DYG3+wGEMtRG7jvKWh/8TddzUDWZBPeHWN2v 0QdCwYwu99VDQbKlfIok7JpuigB4BCXDh5HDJ7EAouQiRFaMIXv8EbKvPELI mWY4mKOxUxMCO/4fu7SB2C3VwHmnE1ztnOC+S6DVEZ52jnDbSvcL+7vs7OFt bw/RHvYAOt+L9X6vQoU7hYOYKrqEC3H5dPkFlLDOFx9spNpRnNiDsoQ+VMYN ov4Aw3zsIDpiWKOPXce1szO4eW4Wd85bUKQZw62IflgKbmC2fB5zlfOYr5rH QvU8Fqvnt2CxZo4v44Nimv/oNYymXsPIsas24x+7TA1v7A/7AwJRj8tHijGc UYXL9asYb1yl0Vdxo20VtzpWcadzBXe7V3Cl7T5i9sbhRt8MJkZo+NEF3Buf wz2W+gnhmoWT1msWTlybwZ0rd/Dl6zffuZLct3y/eX+szfd/gM57D9A1yfF5 egHd08vv/f7+fHeqrPcGfKQs+xLmX+YSmZwvrDIQKnUQtFo2d2PgFutxB/+N d02c7wzQa3WUsM6ZB/HYi6SwFET7a9kRVBT9r1NSjPxaObT0iVbjj/2RcQgQ 9jG6bad2wN9zJ4K96HcqghLWt1YYzBv9kzGc6Urs6/f+aEvr0SVkx93bBFdW fTd6X6EKgbO9OxzsvOFo5wMnytlODBc7et7eCCfnvfB0t+UbuTQCCvpeKVR7 xno1K71cEsbfPw9xhwugZ64xCH+ufiPfMN6b/YScY6v2Zn9bzNfyMTVLgIqz qFwfChkZkfJ73UIOQ3+6FREVozg59ggnrX5fp++pKw+R2HQT0vjT2K4JogJh t8cTe3Y4k1Fn/r4ucKPcd7nAc7cLXHa4MLM5WT3v7eCI5L3HUHt+yFqJF6tm MJTNwTS+gH4vo+pRIvj9YC89P0jPX0RV3GU0xI2ijerm/b74EVw/N4/b5xdx r3gJDdG30eN/BQs5V2GpWsF89QoWalawWLuC5TpBy1iuF7Rofe5Hj93CSPpN m+kzrlAj7/YBX8po5qcqcOloHobrFjHSsISxZg6wrUu43r6IG12LuNW7iNsD wvU6JxAfcxBXBidxe8yC21colvg7tPvd68J2FreuTmN6YubdoqWb33/4lt83 7wuVbRyefWV+GV0Ts6zz87Yzy6dXNtZ3WKffH9Hvj9E3/Rj9009Q3nubUSeQ ET8IUmWw1ahmzqNmWt3oF2TdiaE3CouC6axrp2h1eugob29vqFnsIvwzkBQu FEgNpaZUlC+/xwCtMQh7o+MRxFAscveE1M0VgTT5O8MHip3ZT1RQGv2Fd5T9 /DdOaJZrbIZXbmzlwoXjFbb7Piz/IgLgQQC8vY0Qi9Rw2yMY39tqfKddPnDZ JYbrbgk8dkvh4sA50nU/PDz3QSKJglIRyaYSTvMHW83v4XoUe2ML4R8YYzM/ e5vREGQzP01u3mR8NrOAYDYqLZ8XrTkQajYBpYkwMeDLTaGIOF5kNX322Dq/ Nnv8IX7B2zVq1arg/E4En+nmtg/m1BoODBkwB56AHaPZbprdgQOKIwFwIgAH IrI5SmUgL4HzZukdtJTdQF3xZdbhBSzXLuDiqV6UxhehNJEzbCLjDQt9SeIQ zT+C8oRx1MRdRWPcdbTHX0dP4nUMJl1luKe7ilcxUcpZsvwhSlQ3sZzSifka 2zk+S/WPsNzwCCuCGtex2viQ21UsNS6/W1Z0+PgtDGbyx2WOUxuJJ6sdl07U YuR4IQZKyEX9HC41zWG0ZQ5j7XO40j2Ha30WXB+khtlrzlYjLvYgro/z46sW 3KD5b9L4N6jrTDlTUwvf/44dlRvG/8NNOyrfLU4h2zge8+Xbr1nsZ2h+C7qn Noq99VRRGn/6sXU5hb7ppzT+M3TfW0cL0UvOPGM9wUwwvZYvvEIbBl9dGCtb GDRGVkY9q5zGCLXOyG5vJCBGePr4QGfkY6o0HN2XQFB0lJbSwOCnpjkCsC8u CcHBwjQo9vbCf+E87Gk9/DjU2w5BEhco2EV8TQxWlEbYK0jpTLbTZnx1/JzO dgiFSsv7GttRTFuYcfyYtMRMPjKxhlLDZacrdn5kz8857/bB/+CkKyEQND9T kKcjP+8czS4RCw+vA5BxivVVEgJ5KLw99sHkX8Ap+QQbXLBtNz3hN+qFZhdk 3akjVH3ThvkF65sDWRCY99XM90pzOBUGhZnVn1+TUdmFrMEHgu9XtyCLdndH 1pVVHO27v2H8XkTlDSEt5zrScu8gM2cSJ3PuIy/3Ac7lz6L4rAXlhbOoLp5F 0ZkHKD59H21nBtBaeRd91HL9GlYb1lASk0fjl6M0oYnG76LpB6kRFCdcYdW/ jpr4m2hKuI2OpDvoTb6DoZTbuHJqFndLH2Oy/AnuVz5FRcgUppOuYan8ARYb nmO58RlWmp5htVnQU+oJVlsIRPMaFpoZVXKnMJx5BwMnbmIg6xoGskcxeHIQ w6e6CWIjLmWXoF+4DPnGAYXDGwc0Xe6xYLTfgrEh6iI1YkFubjHOc8Yco/PH 6fwr1Bg1Mb28+SJC7477/5brN++ylG0canxlbpGOn7GeHC2sXGA9/XL6odXx wqoFXXR6YeMgUrLOIio2wbrU3JmaLhS3XUFYXDbEKmYDDUuYcLKHIQIqYwR8 6QKl1s/qRBXziK/geomMpY95QxOL+Kh07A3hJGxiOzCzNQSEYF9iCg6nptCd PpwsRZCLvZmtPaHxcEYgHa80CrsCBccHWAnR+QdATxmF7cZKCGqVfsPpWrkK P7bel7H0C5Ir9HSuhvmFJd/OGdt/sQN7tjIn7PGBqwNd7ySFp5MMImfKRQs3 N8H18fAQxUEmi2Kbi2ALyEE0p1D1RqzT8e8UXG8wcKQxUiztwn56k3WRFG7p eHMQPx8YZHW70j8UCv6tctIg5ddkVLcjo2lYMPwyPHCCt8I9YZvQeA3BeV0I yuvDoZwxGv8WNYHjNP2pnFnk582h8OwCShhHKooXUVO6gPqKeZw8MYvWojto L7+O8do5rDY9wRoNWRpTYL0AT1lCG83fR11i3B+n8a+z4t9GbeJdNB+cQEfy JPqOTGIodQJjWfdxr/w5piqfY6b6JdoOLeDS/imsMccvNb3CcvMrrLS8xFqr oBd42EoAWp9guZUdoXUNlpZljArXG8i6g/7sG+g/NY6BnIsYzO3FUG4LhnMq 0XuuBx11LLhNFvTR+APCUUU0/hCNP0zjD28cVdQ1cBd798WiqqEPl4TLIbP4 3ppa3Vh06Jt7Lv9d13+IzjtT6GbI6Z4QTjheph6i484KzjX0IypGcHk0Uk8X obz7GrruPMLgzCsMPvgCg7NfYMjyBdIKW+CjiYREFwmZUVgqJwoyTmEyrRkK vb81lMgNJrhLFXSs8FgI9gacQNzeKGjMRkQeTMH5mkacKyuHVObJoUEChVwC pVQEpcSb06WUNd7PWuM1gtsZGPTWfSWBtj2FGh1MStu5+lovH1uSOwC9tw/U 7vwRPr5Q+WqgUmrgq6Bo/B3/8Bl2fLgTLo7MN04SuLvI4OVGs7vLIaE8nEOZ c+Lg4RMPT3EcXN1SEby3lIDFQ6UKtpZ5rV4o9UFWwxuthg+07rwUDG8SDC/8 akFB0AeHQ7HJ7DLKEBOPjJp2pNe0IXN4ii5fsjpd2GZS8XR8UG4XDp2+hGOn WeZP36Wm6PgHOEW3559ZRGHhMkqKV1BRtoLayhU0VC+jtNCCs/nMqnT8vfqH LL0v6cSXKIspQllcA13fRbcPUaMs/deoWyiPu0vHT6L50DQ6j9xH37H7nDjv 4/LxSdyreInp6leYqf0ClvrXqA6exaNTI1hueY2V1tdYbfsCa9TD9lfUC6y1 swW0P8FC+yNY2tYw07qMq8X8maduoS/3GvryL6OfrWjgTDsG86vRcb4PjSz1 LSz17XR8Jx3fRcd30/E9dHwPHd9Dx/eMWtBG1yelZKJtaBJzKy/eXdJq8xHs //ObZt+850Zqvf3PsDx6gq6709bzdztuzaKgoYsmj7eaPK+qE3UXp9B5e53B 5hUG7tPkM69pdmr2jbBWuOUNxBiee4Oh+TdIu9AGkWGv9VBXb7U/xFpOvDS8 zBgAsY4jpbDCIU2rEAKR7ggyolPphmjkFNegefASQiPZ8OVilmQZ0zRF08t9 5XBnCBBzJNQI30ej6wOEXeKUny28mGQy+FPCP6NISqdLrfcNPlIYhZVdRRJo PBmsPDygUQgruulIgBZOn9th58d22MOg4+Yq+fXSxsL1nbzk1us8ebqFcyKI h6NbMjxleQiNyYVSxTamiYBaGwqNLsQWbhjw9ILzWeaNwm57ut5AhxsCQ6EL CocuhG2QrpfxMVkgSzxdH56ehYxaur62DWktA8gcE3YaZ44vwsF6P7J4AEkn +5F2agzHTt2k8yeQzvByPMeCU/kLyD+3jMKiVZQwdVdWrKG2eg0Ndato5mh5 vmgJdWXTWK9gTW57TTd+gbL9xSg70Ezn99L5l+j2KyiJu8mP76AiYRK1SffR nPIAnamz6MuYxTD7xWXW+YmqLzBd8xozdW9gafwSdbHLmDsxjbX6Vay0fYnV 9jdY63iDh510fucrrHW+wHLnMyx0PoGlYx0z7auY5qx6q4EkFd1C79kx1vYh 9J3rRH9BHZovDKCixoKaBgvqWyxoYMBp6ragmdG+edB2BFvLJQufm9YRYcdN aV03Dqccte6gfGf7zTss/w3bSzZ23PzLv/wLbsw8QOa5C7T7AYRF7UNuZQva bi6id/Ip+iafo2/qxYbtX2PAavs3tP2XNL2gtxiae7sFw/Nvv4fhhbf474jL zENCVj4SqYMnz2Bf6gno98Yh6dQZJOUUQqIIhHQ36/dOO4i3bkOQMRQiHzfI lHJaSglfXwWLsgzeHFc9aRspsRHsrguwpQQjh2M/4c1dmeL9FeAC5UoEKXxh 8lHAz0dhe/jH8GOgMojEMHCW1ou8oBfW1lYb4OHoDrtfboXdp/YMMXS8Ox3u aVvMWyySQUrJKA/XAOxxPQnfgHMQ+8ZDrox473qtNpx1PoxO531DGPR+IWxB YQxddHlAOLR0u5Y1XhMabnW74HQJHe/DbXod3V5Ht9e14lhtyxYcp83dcFxY +eryPBJPNONY1hCOZV/BsZO3aPpJGp6vUs48Tp1dRP75FRSWMKmXr6Oyeh21 tetoaHiIpsY1tDax3J9ax/OaOZrxS6x3fonS6FKUxbbS9P3UZZQeuEbD32bQ mUDlwWnUJj9A81GW2fQ59GXOYTibs+XJB5iofoPpui8x0/AWlqa36Ep/jCtH lvCII/JKx1dY7XxLo3+Jh100fRfLfpdwfZYXWOh6BkvnI8x0cgzuWsIU59Op nvu41XIL43Wj6D7fjZ7CBlQXDaCgivMqw00Jw41w+c9ylvoKmr6i14JKlvvK AQuml14KlwC1elYYVoUQ887wm/dUfsvwwr93ly4UbTL86uqq9ccIrIRFRiG3 vBZt1++jZ2LFdn74BAfZCeH8cBp/6iUGpr/YMP+XND4NP/sVS/7cV/Td0PzX dP17kYPFr/GXqO4fRc3AGGoHx1E7dAUnq5px+EwJ6oavQsKqu3PrLsjsZAhw cYV2jx18dn0KZ0c7yNVqKDVqqNS+kBj84EkPedND3qyYOlZSvZARmFmMMiVM cl/4s4oHUIEKNYKU6i0IVqqti7Op4SclDTJfkuJrvSq0UeyzBQaxD/iTFMIq vX6w+wUJ+MQODns84e65sZK2SAEfQiQVyzn8yuHmKLz1mgmpLh1e0niIZdHs RRxhONJoONIYGer8zFFQG+h2Ix8zUSRAE0jxN1ez3iuCwiAhAWLB/VRoRjbS 6ttwTCCgvoXbFqQPTlitn391Bc0sPDnFTDgnhpCadZUY3CEGU0hnyslkijnF ep9/YRWFZQ9RUvkIlbWPUVP/GA1Nj9DUvI7GxiXcrP5HTNb8Ci9qp7De/RVK 95Wx7rcx8QwQBaac2OsoOXCHtX+KCMygNoX19dg8Oo8voD9L2PuzgMun5zBR 8yWm699ipvErzDZ/jfnWr9EYu45nRTew0vk1Lf8V1vjzH3YThZ43WO1+jeWe V1jofg5L9xPM9KxjqncFU30LthMP+ieoG/x4BDdb2zHWfw3j916ipv8hMqst yKpnzb/8EDctL3Fr7iUevTuS8nsMdoW4c+eO9aMfbHL/u/2W3+H+dwHIc+P9 KcH9wpeXlpZad+0IM7AwCwsdo+vWJLrvMFPdW6JWScE6eieebCKBLWCa5X/m DQYevLWRYPmKIHxt+8/ESK+exOZ/+471YF9KB5JP9yCrmPWME8HhM2XIKqrC 51v3wHGHEyT2MuyVymByc4Sn/WdwsPsMYrmCGAgnUevhQRN5hURCRPkECKWV 8ZohyiB4mxOsmV73Z3wPVGiJgJYEaBFCxEJUOutKXsEqLfwZ8f05CQQyTPlJ pWSCgUgqSAKtxgiJVIddH+2AowCCl5Lx3hfewnLWEmIoVTIQ6diVUhG+NxEq fp9IGglPeRzkcrYCgqAzRLH8R8FoioLOFMn5nsYnCCqCoCIIKmLsy79DEhAK H/9giPg3eFECAKlWtVItSK1l3e8YRdmth+xsA7MvsRWlrXeRenwYqSeusScI IEwzAFmQeWYBJ88TBPaBwop1lFQ/RkX9E9Q0PkE9h9nGlnVcbn6KpY6v0Vv4 /+J552s87XiEkkj2guh2wjCI0v1jHHpvoiT2Hkrip1FxaBa1R+fQnL6AzhOL 6Du5xAF0EZdz53Gv7i2mGr7CTNPXmG0hCG1foynlKZYLFjhKrFvPulnrEfQW a73CtUo2QOh9AUvvU9zve4SpgVVMDS5SsxRBGLzJx0YISDeezd3Hf9o0qArF WbDmO6cLe+jf7ajccPoffMeOSnfr7X9473ThxwifE7790aNHVqfb1lHJhWX9 EV3PzH97Dj13OeDeW0PvvUd0PYPPxHP0T76k6221f1Co/YLr6fjGa0+RUXUP B/LHrTZPOnUJKVRq1jAyjjO/HrcdoXT0YAOOCitJJbchJqEJYftrYQpJwufb XOC8xx0+TszrPjqE+sjhTNt72LnAx1kPsZcGrupAeIZEwTt0L0RheyEOioSS uVovU8PISdVEu/srdAhQ6ml7PYJ9DbQ8JSzaqKG0BoQJ0hkQrFUj0Fc4Mo5S MCDJ5ZRwkUoFfJlgnOzcsOtTO7h5KeAhVsNTooaI/49YroabexzCYzNpb5P1 7Wc10VFKiaYsCGoNB3V9FOu+YHsi4B8FlR+tTusraX0lra+k9RW0vsgcAi9a 35OKKSjB0dpWHK0T1ML7LbjQVI/esWvon2GleSDoOYpbbiM1gz0g8yrtfwep 2bR+rgXHz9L6RSvIY94/x/pfXPsE5Q3PUN30DHUtT9DasIb59q+w2PkVble9 xXjt/8HrvnW0Hu5A2V7GoH20fvQ4ResfmEBJ4n2UH2buTp1Hc8YiOrKW0Ht6 GUO5SxjJm8ddRqDJxre43/wWD1rfYq79LbpPP8ONk+t40rxovS7WFqz2vsHv 8ZYTcO8XWOp7hfm+F5jtf4b7g48xNbSGqWFa/yKtf3GSovWHaf3+bjydu/97 m5wv1HnBpt91xfNvOP+3vrHb5le/+tW7A88cNz79XRDwJ/+W9dP+9P9jdN28 T//Po+cOs8/dh+i9+5gMCP5/YfO/Nfsw8D/4Eg1XHuN41V3E54/h4JlxlvVL Vp9nnBhAFnWKyqXyT9gWbD2ZWIdTghLqkLG/AsnRlYgMP4tPt7nBwVEEpdiM 4ADhyEwVnBx2suxyMFBlwtPrCBzUyXBSxcNZEQMnxT54Cou2sgyrvbQwKoQj 3Aws6Ub62ogglR+C1X70vh99T+lMCNNTTFBhRj+EG/QIUKmsO4PMSiYnqxQw KDkD64OhNkaSR096XQp3sYbzrRbecuEKB6EwBmfBHL6PczgHE7ntwiB6JVuI rxRRvj4IYZtS8XdTG4WdVmQhIBJyln+ZWUj9FBnwNofC0xRiPeJSEZ2AlOpW pNRQ1S0oam5Ed1ctujur0dVeif77wgLzM0/xUxQ13cCRtH4icIUI3MFRofLn WZBesIjsCyvIZfwpqHqEC3VPUNbwBJWs+pVNq7jW/IwW/ZIp/Essd7/BWM0/ 4/HAr3Alsx2lERx7owZQuncMJe/tP4Myxp+aYwtoylxCR/YyenOWMJi3gPHi ddypf42JxteYbubo2/oalvbXmGc3aT3yGC9rbrLKfyFYfgtW6Pnf5e1LLPW/ wPzAM8wOsfAPs/BfpPsvcRAYoftH6P4RJqCLI5gc6P79DZcLPhVyveD872+i 4d0Oyw3n/46wseaN39zEgHA8fUZGBsLDw98dibZ7UyPYHPg3cYDftn7NHxOE JxsgLKDnNkG4w+hzhyDcZfS5J4DwiiAIA8AbFHbOIiF3BAcJwaHcyzh6oh/p G4Y/nTWIPOps1uDGZPq3KExtx5mDdTh7sB4FifXIia1A1t5S5CY1wtPdiF0u BsZ6hnKdkuOnIxwdtsPZ3Y2F2Q9O/glwCkmGa0gK7INPwSkgGy4M4h72MZDu 2Af51hDIPguAapcJRlcjDO6EQGMmBP4s/GYC4I9wI+9zkg43CTIigIbdArNK jR/CxFsTwRBGCuGtZrXfXkiVAXB1lbAZMPyLtXAVGTiyZCDs4HHr5TlknLLV HE8MWiWMGjYStRRhKk8cUDkjTu2MKI0Pgg0ahPipoTAzsxEGHzYEb1MYXA2h cBFOVIlJQFFjM843NqGrsx5dXXVULVVDGKrQ1VHB37Hv/hNOWH0zjKAPHuPw sS4cTR+zHbbxfZwoXsXp8ofvo2ZJ42OUNq5ijPFnpu0LWDqEc+6/wCLNudzL l6/yf2Gp8QGKgupQGt6L0sjLKNl3A8VC9DnI+k8AqtMW0Ji5iLaTi+jOWcBA Psfg4jXcrn+Fe42vMClcDartFR50vOJ4+wrFCYtYrZjHWtfSFhb8F8wvy/3P qWdYHHiKuaEneHDxMe5feoipy0w+l1n+RwnAKJPP5euEYAR3+zvxXzbcLjhU cOavd89/JwHvQtLmfL9l09GYG/4XJt9d3wpDQuzPysr6Ruz/3Y2TvCwPycCN GXTf3GDg9sNfMzBhi/8CA5nl13Ew9xKS8i8jOXsIRzMHcJx+P5llWxT4bPYg zlPF/Fxptm1x4MqsIRQdasCF5AYUJ5ODhCrkxZbiwuF6pBhLoY04CW8GDE+5 GK7ezvS/I3zoMyWLuHtwBDwYgrzC90MUHgtxRCzcDWwIUvpfdgDu0lMQ+5yE 0jMTGtc06BwPweCwHwb7CJhdQxAkDkCgxB/BmkCE+1NmYbkP4ahRnfXYOS3H dTOZMLFxGNVGZvd9HHT5u4j1+OSXn2PH1t1wdolFWEIuNAFhUGj0DD06aPVa 6PVkR6eAUctRXiNCjNoFsRpnHBCkpXTOiNU7YZ/GAf7iXdC474TafQf2BijR 09G4heYXllzp6tqEQDf7ABHo7Kywvb0oHElC+/fOPkbWuUvEYBhHMm5Zn9Yj ubPW7fHiFes2v/ohztWtW+8Pc3uv+Tmm217Qr4zgXazIPS+w2Pscl+seYfz8 PFqjWzYOg/oeig9Ov2fJVrr+Ozpz5tCbN4urNc9ws/457jQ+x0TLc0y1PcdM x3M86HyO7rOPMXzyLuZKb8DStIzFvqdY7H+CxcEnWBh+DMvFdcyMPMT0ZXYA 4XDjMc7B45yDxwnBGLvAyGU8XVp4n+WFEv1uyP2uKwr/9b8HwTcPUNv5r4wD Qmh6R8B/3tgjaiXgOgm4QQJucgC+JXSBJ78mgF0gs+wqknKGkZw3ghQ6PpXu z+T2FB2fl20j4MLJIZRQFSeHUXVqGDWnbYvxVhxrQfnRRlSkNuJ8UgWKkitR lFSDqgNd6C7oQdKBAviHH4avJphVWAWFVg+F3gx3Tr6eYfvhHX4Aoog4+FDe WkYJGadghQl+SjPMvgEI4Mig0h7idHwIal0m7+fDoMph7M9GgE8aAr0OIsgj GgGuEQiS+iNQZoJZJpxXwDjFMSGAXSLAz0yHB+Kjj7Zi96c74PnZDuwmBW5O YigZYeScvJV6UqI3QGMgBaz0euFgJIOcNIgRzQ4QTffv1zpvwX7a3w379c4I VznARAB83XYg/eB+9LQz9VBdVGdHPTrYBDq7SUC3QEANRQK6ytEjEDDzGD0b BNSNzSHp6CCS08b59N+1TVnnFpBRvGxLnOULyC69b71/g5HoDiPRRNtTTHc8 xYOup7D0PMV87xOMVa1iqOwtRs9OoCzMtmp5SYRtmrtwcBLFKTPW+3UnLNZt e84D9BZYMF7zBNc5ZN9qeoK7LU8xKfzs9qeY6eTAnXMLHccm8bDyHlY7pjHf /4gZiBpexzxbwOzIGu4L55e8P+h+buMcExsJ99gO/nBT2X83AP//pGDzY9v+ jXmAQ7Htf/19WNYIwDUCcJ0A3GALuLnONvBrADKLxzjrDiA59yKO5FzEMcH8 J2h+ApCfPfzuFO4yjsKVG6OB7bG/QFP+COqzu1Cd3oia400oPlyO8rRqnImo RU/hIJpyW1CVWYe8jFYkxRXAS3jbyVfH1BAEjxBWe1Z+74h4+j+B/k+AtzqE /jfR//70fwDzTCArcBACyUWwPgQhxpCN5+DPYQ488o29UkH6HI7KJxAqT0GY 5ABCRFEIloYiyNcfu3d74POPd8F16x7rsfBGJykCpT7YsW0rnLx8INEZoTQK XcLAyK+DRjgWyU8JnVGCAK0P04/LFuxl6f9zRGicEKjYA7PUHsdijRhqKsR4 Xxt6Whl62hrR0d5A31Os/h30fkdPLTp7aqgqflxh9X43q383vd9D73dbOH0V XMHBowyfx6/i4EnbgZLJBZNIPT9pe6Y/wGjNQ1xtWMfN5nXcbV3HRPs6prtY hLvXMdu7jtvNa+hu+QqzE1/hXEArLgTZsuuFmOsoSrxL60+hLM1m/4aTM2g5 PY3B0mX+3HVcqV/HjcZHuNX8iD/7EX82o33nI5RlzqKz5Gs8vv4veHjzMWYH HsLCgXf24iptv4KZ0WVMf+M8E8vGuSYTmBxn47h79482Of/dGPBdByNvOP8/ Cpstvx4Dvun3TzdVfWGJz+/K/n+y8ZUv33yFLmLYfY2mv07T36Dpb7Hc3HmG c013cDC7h4PuAFJo+tTj/TieyaxzYpg5/xLOZV9mtR9D+clxVJ0eR23uFTTk XUHTmSto4UvVVngF7efHUX+imc9lO8qO0fEcgtvzhtBV3ImGnAbUna5H6ckm nMlsse18l2iYhYKZeWLo+jh40e2iyET4RB6Et0ZYwMSfrg/gABrIDBMMf20I AvWhzNyhzNxhCDXZFgwK4+AZHhS+BeHBYZz1Q8xB1oeNQckEIhmm4BPwDy3g SJCDKG0mtn0sgcPHPvDZ6gWlvQRRaj1CpO4I8LKHj48UQdGMXwxLwtJeMoMW ShpfZeYoYJLBwOgTqHBEoNIRBskeyh6pMUbc6ivFK8swXliG8Gx2CHdHu9DV 2oh2Vv02Or+tux7tgvN7a6kaElDFj8vRRed30fldrPxddH8X3V89Oo+4w5eQ kHYVCVk25yfl2zqAcImP/vIl6/2x+hVc4xB8s2UVd9pXMdHJ4N29iumeVcz0 reDBwApmh5dxtW4K58x9OB86Yv2+8wm3UXR4EiXHplCROWV9rK1gFoMVK7hU zbmibhVXG9dwg/jcbl3D3fY1THSs4UrjOtpbv8K9W19hhmFhZoh2v7jMzLPE ar9I2y9g8sq8zfbXaPvrFuuJJhO0/u3Rq+9Wm908/X7XxaQ32/5bZv/ed+wF /fg7gv+3Afgz69cEoHOcg+/VeQKwTPM/tJq/dtDCGtO+sRrrII5kDSP9+DCy T4wgN2sUBVnjNP5VlvprNP51Gv8GGs7cQHPBTbQW3kR70U10Ft9EV8kNtBcM oTmnCyVHGlCTfglDNZfQcrYNzWdbCEojGvPrUZjdApEPB2AfFZz9QuAWEguP 8ER4RtD0kUkEIInmD4NWHgC9MhB+qmCYNCHw14Ui0BCGIGMYQjhkhvpH2Mwf FIEwDg7hIREIIQhBJtuVRszCqucciAPYVgL8QxEgHJkQnoJPtkuwa7ccXp7+ 0In8cMCkh7/UjRHJGVqS0Dowgtb+i0jOPIHkEycQGLMP3joVvLQqyOSeqD2b Qh1GDfXl/EW8mR/GF8KC9nOC+4et7n8qrBT6/7X33e9xXeeZ71K25NiOE2eT tR3bsR3H63WcfeLEabspm03WsWTLsiyrUBYp9i5WUaRIggRRCaIQhSB6r4M+ fTANGPQ+KAMMMDMY9EYQJCVZcrI/Zd/b4EvoksEfsHieQ8wMhufcc973+773 O/ecc6dcGOgyQ2+qg55+32CrgYHsNzZXsVTA4DbBTPabyX6zX3ikmYn8/yuY aAHCz8XoLrwrL5DPS5d0jr4gCGtJSHzt0U2jsy6MnsYw+g1hDJlmMGwJY9QW xphdmHifxngrS3sIFZdbkH1MWmCcc2kQuZHDyIsbQdHNEfEzc9E07GVhuCtn WO8M651BDxV+X9MsBgyzrHsWw+YZjFpnWDeLMLEvzHB6yHjWP0atNtodwAid /SiZL2w2Ge2bwggVxlD3MBbnFpQHUqozX62Hycrs/+ym01c4r57//P42pP5X 5XvB5vYJWLo4bj3kfJ/E+cRcFyKTTIi6ZSfnW5jYepCY2I605C7cSelFfkof HfUAKqjzdJlD5LsXjbleGAqGYSoahqXEC1uZF83lXtgrhmC4Y6aWtDMT64e1 zAlDvoXfNUGfr0djXgMq7jTg4rlYvPTz18n5k/jRcSa2IufJ9TOR5HwkXnzl KHbvPErOH8f+N04wSX0Lh/eexJH9p3D04GkcP3QGJ45InH/r+BmcZKpwgrw/ cph/ZxE5v/8IDgrS/jDjABPYI0dZB7/zl3/1A/zDP7+AF57/GXa+tAvn9x/A 6T0/w+E3foy4lAzoXeS8sxUGpxsGh4PFBr2d129vRCMz1B34YLp1h0j3/0zC t0qEV7n7VfFoXBeWAk4ssvT3GOFubYCeQkdPwusFwnd2wTC2AqNvBQYS3zgh kN5A6j+NrrmNTc1WGu9HWUoAlZkBSeh8m2MagFM4absmgI76ILqbgugzBjFg DmKoOQivMwBvSwDDHknDe7sCSN8v3Zm5845kQ1nRXuTED0l2VBgkhkFiF4K7 KgRPTQgddSF0NU6jVz+NfmMIA5YQhmwheB0hDLuDGG5laWMbHQGx/iFy3dsr rNAZFrdWCTtNBnonMDE2hS9qaPsnkP3zGhT/3jZubn1d1jWBuXuwdNKtd8/Q tS9AZ/fjany9THEHYtIo4BM6kEwpmZHUh+yUQRSkelGWPoyqzBHUMjVqzBuD oXAMphIfLGU+2CrGYK8cg6N6FC6WIqZi1pJhNFe3wVTshLHYzkKaFFvQVGRA Va4eF8/HifdRnz1wCs8dvYgfnYjAT05H4qdnrlPRR4rbYna9JuxZPI59u97C gTdP0k2fwuEDp0WKHztyBsePnpUofuIs6X0Whw+fllggHEl9lOw+yo/Ibnr6 w0f5+9hJHGTCLCw4/R8/eBHP/vTn4pPBj+w/hrNHqFl2vwS9u5MMb0cqZVhq kRFpRU1IL6pHeqEO6fnlSM3O4+AL5P686M0fktz3ZYKvswgHr6+S3CLBgyS4 WBwsdpLdxmJFX08DvBNeTK5+wLom1z74hLwIxZwdRGHkBF1tACVpAVRkBVCX H4C+JABLeQD26gDcdQF4GkltQwDdlgB67AH0yvs7hGM7+zoCm88qOORB+pk+ ZLw7JCdcX0SVUGUeqywKwCych10ZgEtHa6kNoL0hgM4mViufyNvXHEA/raWf VQ/QWgba+bqTn9N792/ZPtJL7TI+Hv79LWQWmKd1HsgWMquXoP3JNkT6H8lq ZuPhR/TZtM9Okrl7Hom3LbgW34DriRZEMQONSW3HjYRu3ErsR2aSF7kpwyhO G0P5bR/j8jjq8ybQVOiHscTPAfZzNPwksR9OnR/uWn5e5EXd7RHmaAP0080w l7bCVEa/V06/XW5HU5kFlYVGFORQp7zyBp6j3njuyEU8RzL/+K2r1CrX8cKJ a3hj9yns2nkcb9JX76Ve2b/nFA7uP02WnsER+upjR87i2DGJzMeOn92BQ4fP 4Lvi28NHT/PdW+KOkMPk/CG+P3zsFA4dP4X91P7n4zKQUlKPv33+JTz76st4 efch3LqagWuxWTgfW4GLseW4FFuGiNgSpojFiIgpwZWoQkRE5uByRBqKhPMJ 3s1Hb00DQm1WidABgdBu4bkeIqFXggKZZUKHSOYQyRxsZpEIPT9plm7A8JqN udPIi5pEfmIARekBlGcHUFMYQGNpACaSzUaiOchft5GkI8nayN928rejlYX8 bafL9NBltvUIx2WOIeloJ5LPDSA31o8ievrS2wFU5QRQWxBAUzG/Q7uw0d07 6O7dJHCrnv9XPtK2k3V3se5uEribdXex7i7W3dkt7QDZIe4BeUrcETI6Piv2 4MsaCafW6ddff5TB6snF72zjFpO0TO3PYWK3Le1kb9c8Iq5X4lpcE64nNCMq qRWxKZ24eaMfqTe9uJM0ivxUH0oyJlCZNYma3Ck00IYNdA1mDoG1ihFKF4ST w+tm1DMWD6Eovg+tpinoK7rphlvJcLK3sg2Gqlboq1xorHKgstSC/HwDLrwb R/a+RfZewHPHrpDB16i2qTgOX8Yv9p7FL+TjoPfQDe/bexoH9pOKZO8hMvfI 0XPKessDJPNBcvcgPz509Iz08df5LYG4LMdYqDEOnLyAfWevIS67ErXuPtSz lBja8XaEEdHvML+ILMHlGxyN+ApEx5chLr4ECXHFSIorQHxsAWKjchBzLQ0N V/NRTwLXXcpHzcV82FMqEGq1SFIjSPKStCsh1w4shZxUDpvcDUncXSB31+Z7 PiOj1u++i6zYKYa8APIyA+Lq+CqObx1p20R6GUlbC2nbTLdrJ7WcpJaT1HK2 Sae22ukbHaSXncXlmEbG24M0hSnk0Z0XpLK+O3TpuZI5NNAcDKzXwnptpK2D tHWZiZ2NFGbdHtbtITc8rLuVdbewTk+3QFlhB8dT4h6OId+8eOVflTnY0tKy 6WCVxyaoZwe3UFadLP5XjcRw60Kw74rfeQOBGTplzwyyCltxNVJHT2NE5A0n nW4bYimKE28MIS1xBFkpPuSn+VF6ZwqVuUFabAiNJdMwlodhqQyjWReGg0mJ qyGMFiYmxUkDsNVMo802xe92wtk0AZuO1K3ywKDrIAQeNNa4UVHRjLwiE3IL GvDsXlL20Hk8e/QSnjt+jdS9ip/ueQev7j6H1157C6/vPIFdu05i777T2Hfg DPaRtsLSxL38vY+/9x08i/2Hz+IA+XqAauIAnfChE+dx7EwEDsrvD5K0Byii 9zLZPBd7GzWuPpG08dlmJl01uMRy7JAJiReLEZVQhbiECtxMKEdyQilSbxQj I74QmXF5SIzJwZ3rmbBdy4ctIh/WK3kwv5sH44U86N/Og/NmhUha4Wkt4iMj pp2Ee3HagU/y3+ZN1s6Ttf/60YZ8h+5zWJz9Jeqr5pFOxZBJb5tHepXQJVQy rNfUB1BPajWSWnpSy+BgcfN1a0BaLf4FNLZO4d7Djzap0FQ4I1lBcgC5GcKm 0QDK6GyryNhaMraRjDWQsWZWa2W1NlbbTMbayVg7rcFOpWBvl6xhh2gPT6GZ r0Pz98T6FWeqTu4UBqtn9J7A1m9uQ+/+qfidF2Fiaptd4MHViHpci7IgMs5N B9uOuMRuJMUPIz3Rh+xbfhRkTKGU+qs6P4y64hmG9lk6yzlYdXOw187D2TAP d9McBRQlQf402p2zaGOaW1vcA6dhimUclvpeGGrb0FTfjob6VpTTweaWmJFb 3ITj11KpdcnUQxfxwyMR+NGBd/HS66fxyq5zeHXXWbzyygns3EnG/uIk3thF ufDmaby59wz2CIuoBMYeIlsPn8O+IyxHz5GR53GU8f/I2QgcOnkR+8nU/dTA e09dwZ7TV3GnxoYiQwcuJzWSoXW4fLMOV27W4uT5BsSx3IrMQ9LNSgaXcmTc LMOdhGJk3yhEbnweMqkdqqOy0RqZvwOt9LG/ATe9rOtyHhwX89B8Pg+GU3mY bDGLJF0Ui0Mkq51QCWRdIFHXFnrlm2ifYxz8EN19G0hi6E5j2M4mk/Ll5d2l lLLlwvJuMqmcTConSZ2Dixid3vikvBJjcfZDpMVPIOMWOU43mkPXXMhqSitI TIXnlK6NjPxNVuEAbWEDkMR1A92ogVQ3kpQGls6RBayT8Mp8mjrxegIRlQUp QuKlzKd94wk3UEjC78sc3HjwKyTEG3D1chM9ph3XolvJww7EJvQQAy/SkyaQ nTaJwswgyqifqmmCdaVzDNwLMFUvUDMtwFG/CFfTIgwVkyhIoTy1L6LdsoB2 6zyqi3rQ2jzD4DENF1NcU1MPmho8HJE2FJKD2WVWZJfqEX+nAj+nLP3hgYv4 wcEreP71M3hx52m89Ab59+bbeFUo5OBrb5wStzK8sec0dpGD4iImeso3ycE9 9JZ76C33HTuPw6cjcJie8rDAwXNXsJchfs/JK3jz9DVkVllR0NiBiGQ9udcg 8S+xDtcSa3HpajXeOW5E1oVsRopKZCZWICuxDLk3S5CfUIjCG3nIictCfXQ2 uqLIwe6ofJo7X6IjMh9tpG5rRB7cdJ6W0/mYbDUJ3AuLjjJsF1m4QGc5Rw7+ 60f35btnz6Ddu4GusQ30jG+gz88ytYF+lqV7H8ny9TexsPARybSAFOZJ6fR6 2fR6+ZSXxdRVpeRqOblaSa5WkatVduHUaMHLVbsEL+ceWsDdBx89co9avXDv KxoTuBrkUrL6r25DRv61nAjFvFOCiAtkWIQD1663ITKmC7E3+pBIdmUkTyIn nZll1jTK8mbIljnUly1AX7kIc80SbPVLVOTLcOmXUcB4bW5aQbtjGe22RbQ1 L6C6hDLSMQu3YwZOZwh2mqfZNoLqhhbkVDiQVWHFnXIDYrOq8HZiIV56Kwr/ 8uYFPP/ycbyw8xRe/MUZ/Hz323hFiMt7zuOVX5zCa7tO4/U9Z/D6XmFVtLA8 lCyjdtxF7bj/rUs4SGYdPBOxAwfPXmHWeoDk2vd2FHa9FYHbFRYUNrQjgo7t alITiVWPiMR6RJJcMUm1SGB5+0QT7ryrQ3Y8nVpSBfKSylCQWILim4UouZlH kmWhiQTrj8/HQDwJNkDGfZZv89DDSN0dm4fOqDy0X8uF+VQhJj1GLJBeCyTX PMk1R3KtLPZJGv4z6Bggr4Y3cJMO6Rb9Wjr9WiYd0h06pGzyJZua0RvawBCL sj1FPbGvpBzq2Z5HeCEt4FEWsxH/L2nIta0LeKQz0Xejgvo54iyp8a6L9GhH 5PUexMQO4GbiENJTJpGdEUJhzgxj/CyhXkB9xSL01Usw1y5Tma5Qma6gPGcS upIVKsxVUoL0sC+jzbGE6jJSwzUPl2sWTjclnSsIq2sSVcZhencPMiutLCYk Fdbi7M0iBqJc7GSA+9FLx/HjV07iJ4IDYgB86c138PK+C3hl3zt0RIIzOo1X mWW8Rpn2Oqmx+9gF0uIK9tO57D/Ncobl7GXsO38d+y7EYy9LVk0L8mooSZMY 6JPpaJMaGPAEh1OH6KQ6xLMkkRtxkXW4yfEopgzLS65GYUolSpLLUZZcioqU QhQl5WCI1+pNKsRwcgFGWIZT8uBlGUrOQ39SHvrIod74XPGYMduZfPjbDJgn OeYY+cL0Ors1FLl6akT5TANlwfoFa//www//yzZmrv9edgAVsZUouG5GxNtO XL3UgcirvYiJGUTCzWHcujWG7NthojyHssIFKrlForwMvW4F5roV2BpX0VAR ppOYJYL34LGtwmMXnMAK2lzLqKoYgLtlAa6WeThaZtDcMs3gOolSvRdFjQMo aOhBTq0DmdVGnKaEuJmYg+xqM+IyK/DszynQXz2N539xDi/sPo8X976Dl/Zf wMsHL7JcwGuUQ68fekd8dNCeEyxvXaaE4e+zV7HnXOQO7HknDt/Cm+/EorJ9 Eu4QBy/TRFAbcF0GOYIgXyfIsXQCN/n+FktGciMuHrSg7Eo1CpLrUHKrFmWp 1ahIrURVWhkabxVjNLUCY2nl8KWXwZdRylLCUoTRdAKelo+h1DwMJgseoQCt lwvQeasUs7T+MK3/Vwwrb6qErLI06Uv/EciPzhT87hP0A4Xs/5ZvYJRHV6M6 3oYC4Ubn2x24dqUP0VFDSLgxguSUMdzOoCbImUdp4SLBXWbCusJsaRXm+jVY m9aQnT6HJuMDevB71Al34XGsEdg1uKghdLoRuFuX4PQsULrPwegOodw4xnR8 GIX6QeQ39SGPcTy3zonqYj1jdTEqLX2otA0io7YZr5+Iwg93nsFzb5zDz/Zf wkuHruDVo9fwixPReOMky+lo7DoTg91nWc4JD2Xa/XYMvo3d52OwiyVZ5yCq 74sbpEubRxGTbiS69USX7j2xkejWIzpReNy2HslJBqQlG5CZbETMBQty322m e6tCWXoTKjLqUXW7FrrbVXBkVGH8dg0m7tTAn6WDP7uahUaTXYHxLKKdRfQz izCckU9zJrLRhfBcyUW/ropGdR97NJShYr7qhPprjyKrTlF+exuzmP9H/M4u lEYS3phm6OI7UBDdh6sX+hB1zYv4uFF6LB/SUv3IuhNESeEyKstWUFu1yizs LowN68zOZlBa/hC21geUfuuEeJ0eeR0e9zqD9RJ0taNwtdGLty3B1DKLCtME Sk1jTA1GUKAfQp6+D7mN7ei0eNBZb2YqVAFL+6w4H2XtXYS1fwUFhkHE5Jjw 4sGreOnwNbx8NBKvHo/Eawz0O09F4fXTLGei8fpZofCzc1FIqmqGS9j3Lu99 F37HZhgRn2lBXIYZkYzc1wljRIIe0TeNSEg0EV4zpbAVWclW5N6yIv6MB3VR OpTT4KuyDKjObkRNdi0h1MOf04TJ3CZM5TUikN/AUoep/BpM5ldjIq8Svtxy jGYXo59G20tJ2RWdi66YEjyYXdmrIc2+9Hh0f0t1H105n/1z27iP/kPxO3+G 0VbGwyiiG9MB3Y1BFNFoI68MITZmFIkJ4/TOfhrwFHKYfJYUzaOmag0NRLe8 dB5pGWvQu9+D3Uo07UTXuY4WItvSsg4bpVlN4wScRFfPZLTSPIVykx8lRh+K jKPIMwxBZ+5HZ3MPfM4O+JqbUZ5FdD0zsHQwse0hun3LsA6swja0Jq7mah5d R2yBGfFFZtwoseBGqRUJTB52IKHcyjFwTd2HKyCUB8K74APq3BKLl4gaRGRv 3LHjRpYb0cL6gCQbYm5aiKyNLrmZLtlOdjmQl+5AzPlWVMW6UJ1cg6pcC3S5 JrSy+Pl6ssCCQKEZQV5DsNjEYkCwhEgXN8BfVIfxQh1G8qrQn16NvpQSDN+q ZmyuwlLnKPZpqCvl/po6pdsCrVp1f2YbQfdH8l23EfckKq/ZmSsT2vhB1KSM o+l2QMxUE25M0Df7kU5os5hM5OUFGd+DyM0P4lbaEqpMH8DcfA822xrs9jU4 BX/sXmOgXYPBOoPiai/hC6HKHCSsUzRaP2EdRwGhbbb74PPIm4Xc7Rhz2NDv csHcEoalbQ6WrkVYepdF47UNrsHmXRM374gb2Hx3YR9fh2NifQec/nuUHc7J DXFToYvFGdggsIENAhub1oB40WRpindcBNeDm1mduHGrBQnJLnFL2y3+vn3L zey1Bfm3W5B504OsSGafaTTXAgdqCqyYyHdistCJQLGTQDoQKrUjVNbMYkOw nGCXG+Ev02O8tAFDNOnBbD1Gsg3wZTdhLLMag6kl2K8xaaSsElCnU08A9lPb mDR6VviOtPT5z6Sa5J/qSCIcN4jaZB8aibA1dwZNFM056ZT8zJlu35lCdm4A V6K7EXO5HWlZYRQbmWc1zaHRwOhrmoPBwtfmMGqNNHRG3ZzyflSaAnTJAZQR 4WKjH/XWSfS2BDAhPkNC2BAzIG6IGXVasRScQCD8AOZWItyxAEv3Eix9KzRg liEa8fCqCmXhrLU1YQJu4i4HwumnA5mUCt9NrVNTNXaHECdibEL8bTtxbiXG HUjM6mH624+0230MPV3EuBW30zxMFNqRn9WO4twO3IruR1OqG7U0WGeBCxNF HkyVeBAo8yBU3orpilaEKt0sxLzKgSmGg4lKC4aLbRgtaYGvrA0+8sFHZ+PL rcNIVikWe4Y2cVYv91bWQqnToy04q+8fKvt/HhN1f7IlWAs/0trYP4Q9V1pA Xx09CF3SGBpuT8GcE4aTGXNbOfVR6RxKcoVZVj/OXRplqhlGUQXtusKHMh2R rA2gkolfVWMA1Uz+qvUBFNKO75T2otxAGzZMoskSxBADcbBzDpOdYYx3TsLX Ke38GPN4MOSw7JAVhMk5AzNlmbmTQPesbIJtG2IR9uMJu7DHVkWwpcP11oR9 YuI2Mad/jThPrhHnYlMvcW6kk7Yi7rabsrydOHcj6U4/UrOGcDtHOJ2eASOH nORn2Xe6+LobxfndSLnRy8RoAM25DuLVDX9pN6bKuxCs7EKoqhPT1R0I6doR 1BF7XQv8lR5MVvUjUOOFX9cPH7/nK2uFr8QOX5GeeFcioDdt4qxWWP8hzp95 BGehPGlq5GdyUqVWZf8u7xFjvdU3x1CXPgljTgj2whl4ymbRXT2PwboFjDYt Ii1lgbhuILNmHnkV9L1VDK06P0pr/SirZ2nwo7zRj1rdMIyV/eiwh7HYsYS5 zkVMdy0g0DWLiW75cQFd0hMyRjytmOjvlvn2OWzc/xVMTJ/N7Uy3u5Zh7iXI 9NnWQRavDPIIy9gKgWbxiScpPkWUVymhHf5VOCZXEZ1chbhUA+LS7QS4lYVO OrOXAA8S4GHSdQy5eeMoLOTlF0+ivISXXzzG114qjl6kRA1jJdmJsdJ+jNMp TbI7gao+gtqLUE0vgiyzDaMsk5hrnEK4YQLB+jH4a73w6frgq6K6qHDDV05j Lq2FNz8fB7YkQgIiv7fls48B/CkRwIWFhcfdg5JOZfrWI8Yr/C461y6+rrzh gy6VRpYVhK0gBHdZGB1VM+irnYW3cQ5jBqraxnV4md1OM/mZdS5i3r2IxdZF LHkWsdy2iBWWSdM4vLX9WKKbne+cx0z3HELds5jsocGKC5UnCOwwRjt6MNDa gocb9+S1Z5/FxoN/hYl1mtoJaBcBVYGqWK5NAHVUBHaHiOp3pGNhhU09LA7/ CmIojWJTzYhNd1E4txPUHnrpASRlehldxpCZO47cAr80C14WZJI+TekYRr1u Go26IAwJMwgm+7GQ70G4NoiZuiDm6oNY5jDcNS5hzbiAFUaoRcMM5gwhhPVT CDZNwE+gx+sG4avpZvHAV91MK26k1y7GQQ15pYCqvjf+B2pQP4moqCicP3/+ kUgrPQPjjz6G5ApzBeGnPMaHyuQp1GUGYMwLwF4SRGtFCF010+hvCGNYP4Mx 0wz81lkEmmcRcswh7JrDbMsc5hkgF5jKLlAKjZtG0V/XQ7OcIYozmCaCgd5p TPSGpHW3veMY7fYKa27hGxqUgsdvEMR/Y7rElKl9RQRRsUyLYJkCiF5hPZoA 43cVIGXrlBC0iwjWIybVRh3VShS7iGIfUfTSLEeRlj2OzLxJ5BYGUFQaQll5 mEJlBjXVs6jThTFWs0wdtAD39UXcKxrEiv4uEbuLu6Y1rJtWsW5ewZp5GStm ktc8jzkORdgYQpARZrLJh/GGYfga6H/raZrM3H01RoxVluOQho5Sltirc59H EHwKbW1tIord3d2baywVXSWUn8kxV+1rVcjukOsUfoqvjaHs5hQqqZzqswMw cwScZQG0VQfQTY72N4bgZU/GLATJNo0p+tWgM4xpVxhh6tuZ1jBmPdMYMQ2h u74TYfrYUE8IU71B+PukhdTCctJhAjvYNYTO1o5n5DkyAVRj67IIqomgmhhT zX3CXvdHXa4Aq3DWT7NvZXOvnbDbKDqpETEpzF5S2xCT1kNQBymeRpB4x4fU nElk5geQWxxCYRlz8gpmZFVz0BHQ4ZoVzNavY77xHqzRq1jJncR6fQh3zfew bhHKXdyzElwr/2ZdxqJ1EXMUi2GKxSDF4aTBj3E9xaCeZqlnQG2igGqgr62p xuJIn2KV6liqYCr4TiXp+QP1bMXTeP/99/Hqq6+KOAqnIclaWTwB7NeLaaUV HH+ApamHyDvvRVEMY0jKFKppl420S0sJ4asgfDUBdFH69FHyDPGaRyyEoplC 1s7rdwYx5Q4iQGEbbAugR9+NbiOFRHcAftrguAhZAMP9/L99k+jv8aGzox8P H7wnifa/xD1CZyB0xo4VGLsJHe3R3C9BZ6E9WgibVYbNStiETTI2wmYjbNcT 9QyRLsTc6kB0ah+hG6IWGiNsE0jNnUJmYQg5JWHCNouSynlx8ntQt4bpunsM efcx38SEN3kJIxl3cb+sH3ct97FuvY97tg2s29Zx13YXK7ZVLNqWMWddQJgu KWiehp+afpyBxGdmmDTRvZjoTQ02QleD5bH+TVtUr5VTNnqpk1UZt9+R9YzB YBDnIerq6gS8dokffwXLoQ+Qe8mHgvgplKRSezLnbCwgQKXSclgPtWlnQwC9 BGiAAHmtBIkAjTkIlJsgtLIIjyCua0OntR9jPfy7fDi6sMivj6Wnx4/2zhE8 fPj+Z+Spyc6RezB0rsBAWzLSlkwExExAzLQlCwGxCIDQOVqVXUsE5FpCE64n uRCV3IXoWwMEZIShzcfkchK3mCbfLgwju2QW+WXzaK5Yxnj1OgK1G5iuvy+e JDkvnNdnegj99Q08rJggAA/Fhz3fa36AdfsG1uz3sGK/i8XmVcw1LyFsm0fQ KsQKdtXKyG2jHGMXfdZ2gsPwpq/Fsm8AhzU0i7L/VJ1kyoAoWAmHawiGJDzh SZr4/30sTf8SWVf94tIfYRWcsGKtgZ7ORE9nJxpuotHGLKHLQETMAfTbAhgk EkNEwkskvO3MMevb4OZlDvQIp3NL5xULq9bae6bQ0uHD/Ycf/KY8x3TvvX9D p28DeqJgoFkY6c1MRMFEszATBTMRMNMszPIOmogbTbh6004UunA9eRDXb43S m00gIWsKKbkhpBfMoLhoFs6SRQxXrmNct4FA3QNMNz7ArP498URD4YC39uz3 MFtCFCge7trf4+gTCccDrDk2sOxYx6JjDXP2ZUw3L4pR2m9n1LX7pdOu7Ext 7QxPNjvGjHU4Kg+n+p6JsvhDnRLIo688aEhwY0JoEkyCbkwyhy9iMfxLNJUt IjspgAIm7OVM2+oolQz0VRamag76KrdwWLRZOiy6k4PfzcHv5uD30AwaaQYW Dn57t7TuqoXF1RWArX0CGw9/KTnRPxUHfnLxA+hJfQMH3UDaGznoRtLeyEE3 cdBNHPTLsU24Em/HlQQPriR24WqyF5Gpo4i5PYFiRsGW/EV0FK+gr/wuvFX3 6NrvY6r+IUJN72HG8D7ju3Ca3vtYtr4PT8ZH+LBuBHcd73Ow38Nd50OsOh9g 2XkPC867mHWsYtrBAXfOYcI5LZ+qxPDhYvhwdnLQ7Rg11+GYhhb47S0moBpw JT1T/I+gBZ5WzY0qcf9lWVT0dmyIyzWy6YiKhfVDpH4dg7y+jkGfybGNTshB i3QxQrhdLIwO7jYhiW5DnblfXDNkYzHTFDqG5ySd+Se49/7/xeTyB+gIkO4c bT3predoC7sF4u648W5MMy7FehAb34P0RAaslAnob0/Dlj0Hd8ESOkpW0VvB FKB6A2O19zHZ8IC69wHVE6ltfogFy0Ms0aHYMzi6DXex0byANY7umusBVl33 seTawIJrHbOuNYRcSwxs85hQH+DTwlFu4Sg77fCaa4+pBlQJzk8YZGVOSwnO wiArOxnVN46kROh3MD/3EXTMWFPJoewi+hrSu4KhWEdPX294dN2X8MBrAwc5 p7oNZVRP9cLyQq+4ZOGrcl416vaj6poNuutt0MX2Q5cwitoU5lMcQGvOHFwc wPaSFQ7gGoaq72K0bh0TDfeY0tM7GzcwY95gCNyg5+Xg1mxgtPxD/NIywYHb YKFXZlni4M271zDjXkWIIX3SwwH0hH99BoxHmPKiX3DZsTY9heOq0VKm65UR VEtWqQ/ydK/kFxSq0i8oqlWtUHfKGVuH8gRjMjSbviGfvqGIvqGUDC2ljinh AJYwVMZlNZGJM1+XB2tleg0Vl22ovsrBiuJg3RgRB6sxYxoWss1ZsIC2kmX0 VKxgQLeKkbo16vI1TOqFc3juUt7RVq0cjGY6Svs6DGnv4QPbHKabQljhAC2z LHKQ5lpWEOZABZmY+tuZ0nSozgvp4GC1dRA4O97fWMcJjQzttx4/WMpNLUH7 KXTT2ii+Sx7U2dWP0ME40zW+gfm7HylfFVSmMN0mvFO2rthz+1B5uV2eX5P0 ZENGEObsGTgK5uUGvghv3TLGGlYwoV/BlHEFIfMqFdQqZhm85+2raCudR2dK D5aLurDYNI4l9zIWmJnNMl2fbqeX6yB9xAMkQvIBEiPSARLtHRhy2U5qRBXl UC21yJIH5MtyyqoWx0J8F2zvoMY4Sr39Jlan76PsQhsqI/pQHTuC6iRpE54x K4zm/Bm0FEsHEfQIM0y1CxhuWMRY0yImmIlPmZcQsgoyZQkz9iU0MBD3lz/A h93r2OjysbcLmKeRzLTPI9Qxi8muGYx3qw8KYI+7BjDCHi/PTOOUhl9XTgRQ yxi5y8qSN8FYxDkUdlmrq9+Q/7XdGUH5JYIbNYKqm1I3G+8Q2LwQHMXT4vvO qhn01sxisGEOI01zlL3z8DNNnbJSiVGNhZrnYS1eQp/zV1iZ+BUWh+gPPLMI t88g1MkMvSsMv3p3bK+0KXyU3ez3eHBaw6sqXVRrBbmLymJoRakJNFcmqNTz FkoXV4IPUPx27+bsf2VKALUUEXqqOGthUPysrTKELt00+urCGGwMY9gQFick xs0zmKTYnGqeQcA+Q2GxxuRGcHXTCLVPI0ieTnUxV2XXJsSuSTnrWO8kRoTN v519eP/hQ5zRcHuffXwXv6Yth/Zp9FLaPv81DNkWUPSuV+xNWaKckTNYG/Ol jXGucikr76oNoq8hiMGmIDPzILUDgbGEMG4Lwe8IYtLF0srC4D3ZwZSOMmmi W+rZmJzajYgZuR+DAldHxnFOw099RtVjxVTl3n1DxVFFe+zV6No3ZfVnypxC oXxyTSnBqyJ49blSt2xMiFyVDH309J3UIj2U4f309oNGZqAWKSkadUpJkc/D Qv3how4Zk/eseoUnpHnFbXyD7FW/MBU4FsR5ldUpV/9pVY+Uy5R79IcqvBRK Eq83H4fXU7ILzb/uR2FCQEzxJLf6ezBS127uehT2cTF+dVFh9TJ+9VNhDVJh Dcm7Hr3skZcgCc+/GuyW9nAJyYWQ3vX2CUnGJEZ9YVxQeQDlRsynVZ8pXkFa 07i5IntL1BU/FTRLeno6XtfAV9p38CXo82aQEz2FXHnXkLDzTdjhI+x8M1PT KM93EXb3tLNbnexWN7vVQ03Tw271CtMK7FYPudfFbgk7eoRnu3SwtPG91zeL ixpO4wld+pYcCtSxUbmfqNWVb4v/fgF9Leu4E0+ZRe1bkCk8WodyjAg1sBsG dsPCbjQLT+tgN9zWX+/2aGM32tgND7vR2int+BCyDjeLk697R+dwaUu7vz6s 7tFo9hWVUxCZ84ktdBPWEbIjSj+E4K089+a/yYnAwuyHqK9eQAbhyKK8LGT6 Wk6W6egS6mk3ejLMSJuxsA829sFGhjWzDzYyzNpGG7F2CDZiEVAZWxC3GFzR sPpPaUSmr6htRPtUA4VkwnzyTo1e/LH47+fF9by6xkWk0vqziEIBUSilQK6k QNYRhVoK5Hrquwb2oIEo1NPq69kLQRy3DS+KR4xf0wioz2i4YvmyxbUk4n0n rTNIPqERi17TqOy/K+J0aAPVtkXcoje+TfrkkD75vPAC0qeAF1/I4bf2LWI0 vIGV+x9d1yD5M6rPFLY+YYg/qeKKYLeyLb+icZGOLa0JgD79+NZEtSR6rU9v gVEYhZc1GnBqEF5pQG2zX1Y1sKU7n1a5JvV8p/CpcD9RuH/4U42mXRpk/eTj m/7GZt+kOPb0x3yhfPNSqy23BsMUoqjtWm7re/IXFNckFHrZJ9Ws5oNSs9rk 5Jr/bIuMEPDntb+g8T9aNLB/SuMK5Jq/r2G4P9HoYqsG4jseX+1fyH9Sx9Hn Nar1yKCo8wChyM3IBP1Lbeor7QtH6Sr/8QcajbTJ9qOGUemH3MJfy9ehJr7w iRxZ/uWxtT79CITCJ/KgywPxN3LbapoLt22E31q1tsvfV+tLBUa5yv+pgkz4 Ee68K1WpU74OedQUSxFu3LIZuZa/lf+HOo7+QKOWTpUNCPJHqE2u4u+0WfnP Gtao1CKsDBBqEWqTa/kHDQb+k0YVrZIlCzU8/bjVfXKV/0uDfQpZBL8i9Fl4 93fyZ2pZ55Q7paxhkNck7RCbeeqRm6Xy5NA/PsaxyNz5e41GbLLz01ooIQy+ 0MoOoQ35ENF/ki9KqF4YaVknaFVtEv/9lGbVAunkkZJkEf5ZBaEwUjKEWgPT pKpYGJStFctrAaTtqJtUUqOquGm1vf75Fr8ivKt/QkvC5cstSVsJN6mvJvIn VJ8pN0S1Wqr+Naee0eSUsrRQcpPy4tGPpXM7ntCcWv2Uq6xA+FxocYfY3ie2 tig5JDy3xS8J8kT4RA5a39dopHgLgeXR0yKw5APkdZOffMRclCU9SgtqH5+/ PYpJdoEfq8ZM5bK0Ks7eHsWkBdqbYUoxCuGy/1yj1tvbq/VZqdYXtliErEu+ p1Hxre2yR4p8eFHDJv5Uo97E7dNEqlK+0f+oelVIKbxXrO07Gq3Fb9/hSVIQ L6n4orICEdnvyi2oJUn0dr2dlDFsKk6FLUL9Sr3qWHlte8DuVvFQVIJKbqPm +x9r1H95e/XvU1vRowvbNhv72MS31vOQ3tkunw49sUVFxKsd4rc1mju7fZod e2KDytrsJ0l5rcMhT26feSefeAG/KRNSbVjKbRmlYbWmObZdQp59YrOfkz9W rE74Yb+1Wjz0H1BJdpkXtlJV2YK2xdSUiTe1Ptq3PbZKpN7cS6MWvF/XqHX3 9mKxZIry5N/Hps+UiV61nNi5XbJL3kPunvZUlkKy39do5+Xtk0zyhPIU9KMz TEo41Grhxe2ySfLr8iz+rwdJThO1qn5+e5E2Var48BZMhX6pjzFTVM9z22OK FDdxRCO2fEGj1h9sjylSjJeXFWwrpVPuKqpFzj9ulz2SVpHvVn48v5O9xOc1 mlA08DbcoyS5pBEQzfaPVBFS8Yiyd9BcPPE3W0j6BM0maUhZiT46paKevFZi J1vUavAvtkcsnbox7TXbitNQW4si9NVrET+lcRXf2x4R61VX8ch5kurr+foW TylnMlpf1bqUP9nepei3cyl/uIVsAnTCJ8Kl8f2nNZr/9nb5LH1dTno+FpG0 bhJ/cwsXBYCUw2e1LkU5ImEbvG/eyvsdm6/kgVEu5FtbzF34YWVK+x/fK7Qt hy3NBW5OLKl7rTyHTG3wWlPyX96u85ZmqlSh+Ttb3Lisep7RaOQL2yNXl9TE u1suXXAaO2RKqf2iUORWfnd7DfRJDVySK1Ob7L//+2ZSuUOjB5/bLj+HpCYu q0inWKMwaSHEUK36JSL8xiOke1wTo1ITEaphEn6mpqagtfLh6e3zaUKq+e1N 5/aMXIPadoRP5Pqf2i55AlLFyt27j0/rf/YRXbNv3z48fPjwSUpx5vE1Khct 1Hb8+PGtJFh4/P98KP3p/CbHP1B9sOW770t/emfzu/IH4l+P/f/X6tf4T/8P QT7SNg==\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.960530749999999, -1.9439611362, -0.92318784278}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.4852646609999995`, 0.147704763612, -3.0520964626}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.4998155512, -0.168890481798, 3.0347109834}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.946735750199999, 1.9677716838, 0.9598107326599999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.7981172882, -2.2722065423999998`, 0.85476086432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.9433942184, 1.3564642200600001`, -2.8321323562}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.9437721635999998`, -1.3552170009, 2.8417699587999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.7843222884, 2.29601709, -0.81811907718}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.8227489058799999, -3.9311969978, 0.24936824296}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.6093851479, 3.463867758, -1.2835018992}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.5748031620999998`, -3.469536936, 1.28061061842}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.8231268510799999, 3.9325198059999997`, -0.23965505132}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.6255853044, -0.71140624996, 3.0388683806}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.179317989866, 0.26631908517999997`, -4.0460923386}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.17640025292199998`, -0.23545985960000002`, 4.0324863114}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.6117903046, 0.73508451674, -3.0022076961999997`}, 0.255]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.2097856094, -3.7087762475999995`, -1.87804749332}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.589285589399999, -1.4052947398999998`, 0.147149184168}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.5735148652, -0.7741829476800001, -4.8494148612}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.901614298, 1.58052903188, -2.8806983144}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.872701490199999, -1.6203455587, 2.7236620838}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.6918117128, 0.6597978328999999, 4.8690680116000005`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.5373181244, 1.3903659045, -0.14717186088}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.2626979374, 3.7238940555999998`, 1.9107019585999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.13712372324, -5.5127086872, -0.9708089379799999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.1554644747999996`, 4.70541774, -0.8879066583599999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.1125676946, -4.719779657599999, 0.8804611379199999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.13351434658, 5.5215903994, 0.9714703420799999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.2777727462, 0.073984662626, 3.9000165187999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.040710367218, -0.87622815168, -5.6996025886}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.06232127375399999, 0.94945503418, 5.6533043016}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.2700248696, -0.06529948192999999, -3.8376555608}, 0.12]}, Text3DBox["1", {-5.560530749999999, -1.9439611362, -0.92318784278}, {1, 0}], Text3DBox["2", {-5.085264660999999, 0.147704763612, -3.0520964626}, { 1, 0}], Text3DBox["3", {3.8998155512, -0.168890481798, 3.0347109834}, {1, 0}], Text3DBox["4", {4.3467357502, 1.9677716838, 0.9598107326599999}, {1, 0}], Text3DBox["5", {-3.3981172882, -2.2722065423999998`, 0.85476086432}, {1, 0}], Text3DBox["6", {-2.5433942184, 1.3564642200600001`, -2.8321323562}, {1, 0}], Text3DBox["7", {1.3437721635999997`, -1.3552170009, 2.8417699587999996`}, {1, 0}], Text3DBox["8", {2.1843222883999998`, 2.29601709, -0.81811907718}, {1, 0}], Text3DBox["9", {-1.4227489058799998`, -3.9311969978, 0.24936824296}, {1, 0}], Text3DBox["10", {-2.2093851479, 3.463867758, -1.2835018992}, {1, 0}], Text3DBox["11", {0.9748031620999998, -3.469536936, 1.28061061842}, {1, 0}], Text3DBox["12", {0.22312685107999997`, 3.9325198059999997`, -0.23965505132}, {1, 0}], Text3DBox["13", {-3.2255853044, -0.71140624996, 3.0388683806}, {1, 0}], Text3DBox["14", {-0.420682010134, 0.26631908517999997`, -4.0460923386}, {1, 0}], Text3DBox["15", {-0.776400252922, -0.23545985960000002`, 4.0324863114}, {1, 0}], Text3DBox["16", {2.0117903046, 0.73508451674, -3.0022076961999997`}, {1, 0}], Text3DBox[ "17", {-5.8097856093999996`, -3.7087762475999995`, -1.87804749332}, {1, 0}], Text3DBox["18", {-7.189285589399999, -1.4052947398999998`, 0.147149184168}, {1, 0}], Text3DBox["19", {-5.1735148652, -0.7741829476800001, -4.8494148612}, {1, 0}], Text3DBox["20", {-6.501614298, 1.58052903188, -2.8806983144}, {1, 0}], Text3DBox["21", {5.272701490199999, -1.6203455587, 2.7236620838}, {1, 0}], Text3DBox["22", {4.0918117128, 0.6597978328999999, 4.8690680116000005`}, {1, 0}], Text3DBox["23", {5.9373181244, 1.3903659045, -0.14717186088}, {1, 0}], Text3DBox["24", {4.6626979374, 3.7238940555999998`, 1.9107019585999998`}, { 1, 0}], Text3DBox[ "25", {-1.7371237232399999`, -5.5127086872, -0.9708089379799999}, {1, 0}], Text3DBox["26", {-3.7554644747999997`, 4.70541774, -0.8879066583599999}, { 1, 0}], Text3DBox["27", {2.5125676946, -4.719779657599999, 0.8804611379199999}, {1, 0}], Text3DBox["28", {0.53351434658, 5.5215903994, 0.9714703420799999}, {1, 0}], Text3DBox["29", {-4.8777727462, 0.073984662626, 3.9000165187999998`}, {1, 0}], Text3DBox["30", {-0.640710367218, -0.87622815168, -5.6996025886}, {1, 0}], Text3DBox["31", {-0.537678726246, 0.94945503418, 5.6533043016}, {1, 0}], Text3DBox["32", { 3.6700248696, -0.06529948192999999, -3.8376555608}, {1, 0}], TubeBox[{{-4.4852646609999995`, 0.147704763612, -3.0520964626}, {-4.960530749999999, -1.9439611362, \ -0.92318784278}}, 0.06], TubeBox[{{4.946735750199999, 1.9677716838, 0.9598107326599999}, { 4.4998155512, -0.168890481798, 3.0347109834}}, 0.06], TubeBox[{{-2.7981172882, -2.2722065423999998`, 0.85476086432}, {-4.960530749999999, -1.9439611362, -0.92318784278}}, 0.06], TubeBox[{{-1.9433942184, 1.3564642200600001`, -2.8321323562}, {-4.4852646609999995`, 0.147704763612, -3.0520964626}}, 0.06], TubeBox[{{1.9437721635999998`, -1.3552170009, 2.8417699587999996`}, { 4.4998155512, -0.168890481798, 3.0347109834}}, 0.06], TubeBox[{{2.7843222884, 2.29601709, -0.81811907718}, {4.946735750199999, 1.9677716838, 0.9598107326599999}}, 0.06], TubeBox[{{-0.8227489058799999, -3.9311969978, 0.24936824296}, {-2.7981172882, -2.2722065423999998`, 0.85476086432}}, 0.06], TubeBox[{{-1.6093851479, 3.463867758, -1.2835018992}, {-1.9433942184, 1.3564642200600001`, -2.8321323562}}, 0.06], TubeBox[{{1.5748031620999998`, -3.469536936, 1.28061061842}, { 1.9437721635999998`, -1.3552170009, 2.8417699587999996`}}, 0.06], TubeBox[{{1.5748031620999998`, -3.469536936, 1.28061061842}, {-0.8227489058799999, -3.9311969978, 0.24936824296}}, 0.06], TubeBox[{{0.8231268510799999, 3.9325198059999997`, -0.23965505132}, {2.7843222884, 2.29601709, -0.81811907718}}, 0.06], TubeBox[{{0.8231268510799999, 3.9325198059999997`, -0.23965505132}, {-1.6093851479, 3.463867758, -1.2835018992}}, 0.06], TubeBox[{{-2.6255853044, -0.71140624996, 3.0388683806}, {-2.7981172882, -2.2722065423999998`, 0.85476086432}}, 0.06], TubeBox[{{0.179317989866, 0.26631908517999997`, -4.0460923386}, {-1.9433942184, 1.3564642200600001`, -2.8321323562}}, 0.06], TubeBox[{{-0.17640025292199998`, -0.23545985960000002`, 4.0324863114}, { 1.9437721635999998`, -1.3552170009, 2.8417699587999996`}}, 0.06], TubeBox[{{-0.17640025292199998`, -0.23545985960000002`, 4.0324863114}, {-2.6255853044, -0.71140624996, 3.0388683806}}, 0.06], TubeBox[{{2.6117903046, 0.73508451674, -3.0022076961999997`}, { 2.7843222884, 2.29601709, -0.81811907718}}, 0.06], TubeBox[{{2.6117903046, 0.73508451674, -3.0022076961999997`}, { 0.179317989866, 0.26631908517999997`, -4.0460923386}}, 0.06], TubeBox[{{-5.2097856094, -3.7087762475999995`, -1.87804749332}, \ {-4.960530749999999, -1.9439611362, -0.92318784278}}, 0.06], TubeBox[{{-6.589285589399999, -1.4052947398999998`, 0.147149184168}, {-4.960530749999999, -1.9439611362, -0.92318784278}}, 0.06], TubeBox[{{-4.5735148652, -0.7741829476800001, -4.8494148612}, \ {-4.4852646609999995`, 0.147704763612, -3.0520964626}}, 0.06], TubeBox[{{-5.901614298, 1.58052903188, -2.8806983144}, {-4.4852646609999995`, 0.147704763612, -3.0520964626}}, 0.06], TubeBox[{{5.872701490199999, -1.6203455587, 2.7236620838}, { 4.4998155512, -0.168890481798, 3.0347109834}}, 0.06], TubeBox[{{4.6918117128, 0.6597978328999999, 4.8690680116000005`}, { 4.4998155512, -0.168890481798, 3.0347109834}}, 0.06], TubeBox[{{6.5373181244, 1.3903659045, -0.14717186088}, {4.946735750199999, 1.9677716838, 0.9598107326599999}}, 0.06], TubeBox[{{5.2626979374, 3.7238940555999998`, 1.9107019585999998`}, { 4.946735750199999, 1.9677716838, 0.9598107326599999}}, 0.06], TubeBox[{{-1.13712372324, -5.5127086872, -0.9708089379799999}, \ {-0.8227489058799999, -3.9311969978, 0.24936824296}}, 0.06], TubeBox[{{-3.1554644747999996`, 4.70541774, -0.8879066583599999}, {-1.6093851479, 3.463867758, -1.2835018992}}, 0.06], TubeBox[{{3.1125676946, -4.719779657599999, 0.8804611379199999}, { 1.5748031620999998`, -3.469536936, 1.28061061842}}, 0.06], TubeBox[{{1.13351434658, 5.5215903994, 0.9714703420799999}, { 0.8231268510799999, 3.9325198059999997`, -0.23965505132}}, 0.06], TubeBox[{{-4.2777727462, 0.073984662626, 3.9000165187999998`}, {-2.6255853044, -0.71140624996, 3.0388683806}}, 0.06], TubeBox[{{-0.040710367218, -0.87622815168, -5.6996025886}, { 0.179317989866, 0.26631908517999997`, -4.0460923386}}, 0.06], TubeBox[{{0.06232127375399999, 0.94945503418, 5.6533043016}, {-0.17640025292199998`, -0.23545985960000002`, 4.0324863114}}, 0.06], TubeBox[{{4.2700248696, -0.06529948192999999, -3.8376555608}, { 2.6117903046, 0.73508451674, -3.0022076961999997`}}, 0.06]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.572874986722467*^9, 3.5728752430777173`*^9, 3.5728753815903606`*^9, 3.572875476859728*^9, {3.572875589757126*^9, 3.5728756188199773`*^9}, 3.572875651845235*^9, 3.5728756890513*^9, 3.5730241007204866`*^9, 3.580056259013067*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzlfXVcVNn/9/u3xurWd3e/+41dA7tQ11ZUFLu7O0Cwuxu7QMBYQOwCu0BB xEKkDQSxEEFCseieec659547Z4YzI/t7nv+eeTnCvcx8zue8z6dP3H6TFk6d MmvSwmnWk6r1mD9p7tRp1guqdZ8zn9wq8z/A/0wlb7tqoL9rAfaflvzTTqP/ 0Tt/7/dw+qMMJeMm33gg/ZDuSL/Rd1XlXl5eHj59+iRdLTL+8crS/+Xw7t07 bN26FT169MCoUaOQk5Nj6mu/S/9XkFq5ffs2hg8fLn31zZs3SElJga2tLTZv 3qxQiKA/vqHf/0PQnI+PD7KyskgLcjv0u4cOHUJMTAwWcgQMWPi39H95IQuE XDnpz2Wxdu1aqTV3d3faqQUywUiVo99McFSBo0EBuXPnDk6dOqXQeGOEgQcP HtBvf6cQZl+mV/R32q35MoXXgrYpFUrtR4X6+fPn8fz5c+kqIyODokrJzZMp vJR+VDTGA9LT02Fvby/9/oOAIn1fuXKF9kyh+NwEHmWVYaAt0Wt69b30/7cl qFJeWdfnyqSfmgbsN4U6RTksLEy6+ka5R69pz+nVHJlatMIopWbI6H+Ur1Gs affkK/l/Jlr0arZM6rERxhRyv5ugRrupiBaj9lDAGH1RRCsLSJXl+k2kS7qa xct9STVj/Tx+/Dj9nVH98OEDdu/erUeVjQNtUaEaZsDg7NmzSyghFRzaGtWm ShwpNgjlDO7R/s+UyQebRrM814K1tbXU6h+CFtjnFPGUrmbILQSZ6MB3ytco 4/rWSiZPrQtPnpdThfxs1TgocLCXZID6me5efc6KsfZZW7wUT5cpzzGwbPT1 jcE9+u7NdZmOOm2VvmiXGyqf5y3Nt9w9Ju2KG5mrkOLJs6Z7fUXg6DVRV1Mt 8hIx7e91sptBJ+m40p90LHnBpNzQK3PlHpV5Kvsy7yW1aWqJcS2nN67s966m h7a5Qpo3dRW4XjOsleYWCnpoJRhG1sNWAvIVBaDayeQXqL3paJrtNgK7yrSE Khe7J8srLnEsMmr0RVlsZ4IUr0gKqfOlM1+MKm8UvxeozBSZ6lkBg0uXLi0h JVR66FVbAfkfBOphI5M/ZRrNziao8aOkUFuvjlJNE2x3ExjwHwWCbC0TXadY eF6yyMvMNOc9BEb2R+4exSIpKekrjVQxIh50LHsLWvhJgM1kky38oUg+bYGG BoZSwzsO1iJvbVmLvGxPMtnif00MjSjm6SUwfz8ZIEnvm271X9xwCfo5WNDI PwRaMdFQ0H4T9IYFxsMERH8W6MIEmeheAxYN4qwRAov1M4cDG2+F2m4j8qkM 5igBtV/kXhEdUGi4KCZFFJ7Sv1y8eJHSM0rLQNbHy1R3GuFMySWYDPAxBes7 bwp/FfR9nNyCgzIoIr4nCUzKPwVCPFYmtc00s9YmqPHCqVDbYoIxWwEpFqXz IjhGJrVR+vGtML5nCmsnIPkvgQCO5qTaCHcsgqBNMfK2BiPAk+dHRSG/1giU SkbCglzFT0lXUwQt/JsbLBaqyhKI1SY6UJGDkomVjQnyvOAq5FeY7sACgXlk 1OLi4lQ4RsrUlhkwS1/UDlJmFwssx3+4frNOyHqhfFzs+in/9DooKMgUVT61 Uqgu5EybsfIBHyAuEpD/r0CAh8vk5xlBU2lilcCo/M61wGRXNrJK1CvOUtaa IMXLqUJqpmnG1gmo/cGNDZPJoTK16Rw1njEluN8gsGx8gsbAVKjJGv2d0SCP /pUrQ6wXGACWYPIiOUSmLsW2ZQzjJz45oG0wRf348aMq5+sEDVXmQGFdk/0s WFzHO+kqpmHfYaIFXniVFizoj7K67EO/rUomurdT+TwfHlYRiPEg4135r6Ar 9EXHnzThLDA7rJLIi/ZAuQUpjZGCDb4QaJiysRoCkSlT9Hl55+kb9OBfgh5w g8GrPxtaJ0GrZgK9GCC32knt1T8NBoMPCN0FNpXvClMPhegQ02x7CCwUY5Gp A73qL1MbxDFmGKkeFJCqJhB4uYChUCzprSljzOEdUr7OJ9jVuL4yCVdI9jXB HRsfagaYmh4Q2K3qArmW6Spht1EoTwio1RDIcB+ZWg8TzHoJTGANrt9MXBVS X6kbnBZQqykQw968+pYvwZiiSmcFVqcmxxsb/t6cAVXMsyibYuZZoX5GQL2W QB7lsYClAEQWizIrx9egTwvI1xbIaE+ZfFsOCkH+UYFrgfXllMBW1ubgYSKr tNDGRAeuCcxHHYF4ypKk1G9KVvNjY2PhJyBVVyCb3WVScqWpZFlfCfFVSGkk xUjz9qiOQXO0wwrppgIuDev7lDwj5SuwKoxzXnjlEgYaG1EFhfM7JqjxwqtQ a2iC2XsCUvUEkiorJ+oLGOPi2/sCS8dKufyMQReZmsyzOA3ltIlR5U1Sfa67 TBgVqvKwlVVjb0rVwLUxMQ8SUG7A2RlWMZKNiaIBZSV+KVX6fv/+fQT3DaZ6 5hyurNedeCrlJFWkLiIgIEAVr3CBZptzXWWf0yNVXiVFrzhyYQJqrOjMS50V T+1bHDhwAE+ePFGFl2cw1ARJXvT0SJaR5IORZBknTzZEQLaRwEh01CfLavfy VUmywQKD0Vggjx1KkmWdLysge98EWV4gFbLM8lOxoUDIY1aSbJCA7J8CabTU J8sP/rcmyPKmjZHlxbM9T7acHln6piov4lpkQf406Am9r0e+vCpkvO6TiEbU AssYQ7zu4P3jeM4e6bfaRCDaclVcTijK6LKGctJAMOvAHEIFQePT1W9KAiYF thUVyVg90gM3p19AsuMJ5L19Y4onXjcUnliAyksbP59DkaFX3wu4mmnwXWNz QeUVTjfPeI2ggzkoiEhCevwrxilv95oK1E2OHORih9GcS9TuDwKeZ/xNnt33 vsP+83n4cus1MtI/inhuJtBlCx7d8nqU6VtRwn8IGJyqDvA3CgsGtWZWajp1 4CPCtiVA+ygMptjibYHCVhW1DWZYeD0zylVJXkTIMfndbpOCgv0npasunAFh zqk5d48ZlTYcfwZkywg4/dkop18fYMbmtiVvkPBXNLTJr1U2eQfA2ORnBRU2 q6owMuZ4p/WLgDkbgR4zzYoKy8CZ5anQXPUWMtJCYM5ay4ywnIGaE6awrIDN NIl+fIlyb8Gg50g/cFe6slTuXTt1GzHEtn1+Eq/ixTffUmDXWuk3z8P7T0Hz rELIS665isg3qn6ztTovoxOxcdgZPFxxE4l7L/JcsXSgJQcKs2wmuDKsePNc 8fLaSKC3nEBVUCTI1/MlFk18i2fXivEhIhV5aUnSX5Qhai0wZjLDagbKe+N/ C5hjVc9tS+KRsJdKabzCnHjSnzmFdXa+mLu+ANcf5+Nl/MdvOJgYJ4w73vu2 4LkrK+maq6ur9JO8RQyymXFees1V2RZZ6nLqN97CYV4y3iQX6a1wMeSPt18C /jj3+R8T/Ekiv18WeXMBV2VMcDqn701ERWpRoNHd4+MYxilvyZrrjzNvGH4X sMmq+7xqNDRgyZglY+BtmukPv1NF+JCdq8ZIfBTAA8oG3YBN3oD8YYJNXlfq CWwaa97TNRBuqz8j7bP+MhbGUhuOJdZGM32W+J5WErA0X6AhLRVcosJisWxk JJ7HapFfrGEc8ImhhcCsNTXOQWUBB/NKqICPape2zQtH4DUNsgqKVI/DO2kL DgAGjNI8q57xJqKqieZ5CWdO65RbKI47ZOFTpm79Cd98WwN69KqJfvO8vzUT ND9XILnNVPxfYv2UF4iL1yI7P4dxwEcBbMEIb4X+NM5BNQEHLGa8cfo2DozY ipTLd5Q4X19Q2eemdLmM8ECizsW6FS8ilnihNGCJV2fDKif9uDROcrRUVtVd 5VVRsS0vnyTBacxVRK++hc/HruFLSIjatBSU7I2RhJkF7+vszuHC/nx8ytGo MQPvoNtzXWFWqLE+27x61zDGtoHFKWtwj77LK13wPfkS2xd+QKyPBpqYZKQn Jqpd4LXhT/VeomryfzDRBd5CGXSBZ6NmKbpgzLZ/q4jomtVvcfFuPj6+zkfR 2zjGAa9MLKme0zcAUQ9kNyDi3pLjnrHTqCT3rGpVq5TcGw9ey+JieC68PLQo vhaG4vhnDHteF1kBg3mHtKwcdakQX1htp4xpfn6+xBLNZqiTo6ZC6UU1pVUq Qszt+vj41BZ0RBTBS56BAbdjSyZeXsmH9o6/vrIekJWV+WhP17uSB/nwueT6 I50HqaDHNhVzajBoSVWpROv1QGdSaL5dV8D+70pPDeI/U0nmjo2FyPUnmL9L FKpxA9UmEp80IoL5JFGfWioSyvpEVYH2iWo27RPlUBSiNxR3kl7VM9ZJXRao NzxnvDIQeEqD4rMXlN6Ux8FdvuhUsy1G1a2LvlUroX+VSnhyP4jhx7s6lpjx UVLTUvTKcCmyoFe86a0v6BWT9/2HtEjzS0fWmROKl62A8PtBaGFWCVaVLDD9 z9YYXbcaJjQww4R6lRATEsQE+ZRbiOo1fxH0hBXGjfTEcKGnoBO8IWalXlr/ YZ1oyITlUQGOu2tRdC0SxQnPpI/qQi1huFoBtsOHwsKsGrpVawa75l0wu3VD 2DavRX6vjq3WQ2upgkicsw1zztmso3x4Zm66oz8a/YraUZ4/c6MdJcKzKQ3P LxdAe/emMDwXaZ7c3+/RskpVtKteG30b1MPoZt0xrUV7zG/dGovbNMPCtiOw dfBWXB29HVEnfVVD7LzkmRoD/CroRj0TPSef+fnv9byhiZ5vXVeAHP+3yCE9 b2DwXVk3dePN7stX/0SLytVgUasuupu3gE23AbDrNxDT+g7A3L59sWDwMRwd F4BUp0C88bgEp57ecO60H44WjjhlexIhrjdx3/Uy7pL3S2KT2FqadXZnSZiR J4UZLInnA+bappFhX+GjTAUZFj3yAW1jATIsMol/Eo+3SqWVJRQxL7S440Wi jfOXFbSMJukikZHv/QF3B2e0qNUA3Vv2xtQRgzHWshEmWTXEpE71MHtIOA7t KMDnhxokhibgUehrTHXQYuGmYqxalYsN8z9h25REOI58Aqc+AXDuehw727tg W4tNBNRABLv64B4B9XVYLNv4Yz18CCyIxexOLGa/ymZKDFT4mwCrGqbhZSl4 yVkeFV7e7P8pgPcX1YhwUqULTMti7xovXJtyAonr9yMv6S3LmtwPaPHeNwN5 F70Uw6vvH7UGtbCSuH8Hi7r90afHIAywao1B7RthmJU51swZh1G9I7HjrBZh z7KJPXonx5y/IuqtFmcitLgcqoXvfS1syTDM3arB8rUFWLcoHVumpWDHuGfY OSAIzt3PwqnjX3BovQ0npxwlQ+GHIDIMt10vl1M8zxQyDG3MqqCnmRmG1jLD +NotsayLFU7vcoBoLMxMj4VoL5GJsWhibCxKYepYNXrN+Hvw2/EBxUEvkR6f yILYqAf5OOJK3ITvQ2gSn9f76uj8ZPg34g3e4fi2DISERsHDfQ8O79+DQ/t3 kfupWLAwE5ditIhLy/9RJzy/wclLi5nbdQK0afZ7bJ8Uh51DIoi58ZHMzc62 1Nx44pLzKbT8vRqs/qiN/rXqYES9ZljQqQdW9GkH2yZVERsWxEwHL9uVuSGg GBsMgWgPlsEQ8PFCU8EQ/CwGS+ojw9fPJwMHPDOQcT0aubq1Ct6+GsReIk4r 8I4cRXIldXF5junG4mH38OYlCQAL89V79gvjcdJfi0+FrARvJP78Wbp9PlwL nxAtdnoVYhozTytzMab3X2hl1gldanTC0PodYd22F5b074ppFnUxvU1NXHJ3 5IFmqP2uAE3NvABohiYf0xgAzWIamt80EwBtsk8icSdRqEcK4raFoDjCTy1f bFqdh+zrySgIvqUuBDDpAXQjsXG6N26fL0JeoUZF3dP1HpaszMGDVI1QFIxw KA9yRfzl7IomtVqjQ+N2GNDKElM69sXyXm1hZ9kAUzvUwaX9O1UvWnKdtBwM G4G8xCqlEpjLnLIVEARrEew//X3Yo8I+wHdBFLSPH6qwRz/X4OZJ4ngv+MiO V2dNmC+JCouD08JkJKfolp+M6HoTp+9o8bmg+H8Db3jQfbSoWhuWDRqgT/OG GNGuL1YM6onJxG9MtqqDmMj7Qnh/LQW8bGENH8M10Bdp+mJLQVoIsP2x9D1i XnT78CgU7XdT+iffc92nwTvfLBRcOa2aqF3LnuEpcX1FGi0nq6FYsT4fj94X Cj2HdFVBac7N0QUt69dH52YN0betJWYN6IdpfZrB66CL6ux4yP5hAjL6Odrf +sYhY5ULPrhrJYDse33ZkX5jRTj3pc+Q7nqNw4a4tohcHNyjRaFvFDRvX7CA hqZo511zkJmjmzwY1fM+LtynspavwCM2wmw3d1hICKZMHo92LZti3kgPaAJC S2wwoFc/cMjQrtASA0WARsUMGRbNl1zDoyLDxwKtBciw4vbpfcl4sSUMmgf+ ur19V4sRc7EQ2nv3dKsmJkQhKUGjXDEJeYi12wsR9T6H7bcBn96zuuFfaz7g 4+HHKE58pgoD3+WKXJdZVcXBwUGvy/yiEOauTXS5jaDLbIohKuw9vOcSH/34 scri+uW5yPJPRWHobTWn3zLnNkL8NMghI8xGfUy/B/AmvvBTbqZaUvP0SEPQ 9lRoY54Iu1e+FN1jtpTXEYPu8aGFhYnubR76mOi8vDyYjWj0Mw38TxB7evGa KjxRYUnwWPuJsKqb1PF0jcFGlyI8Tk5TLdZ22/coPC7vyGTd4+sT3wi6x2pi rHstue6xEqBB9/giRVtB91j8+9fiGHz+S167yEZvr2sxUq5lo+jqWTWfn93P H69IGFlYXKx2b/ygGFx7pEVusW6lo+Ny4kP2P4M29bXSvYqqxTFW5qN/M5xM EnSJNwftBF1iSfAp9yTEbgqH9mGA0iVaL8mGxy7Cvl80tEkvmS08ty8KfscL 8CkzQzdobq+wza0Y8Zm6JZGebonw3fCeyOQLxWXJA0QHTlQKay8Y2PrGe9Ne 0Bs2HxoVlozzs6h6RakFvsveRYiiFoV42Hrq555h64zXSEkpVCtxk4a/wo0Y OkAa9XNrxiYj78QNzm2UzJHoT2II2ep/3mMovWAlYt5jNFGwfhX9BgfGOuGu 9XZkvYj/zkTnNgx6RJTrEGepSWtLspB5/T2Kw++o+DsufIBH92SHysZppd11 OB3S4E2Wrpa4aeEzxLm9RnHkTYVeRaMlS/pXZvFZT0uuD1V7yptDqRBVxnS0 UBbrxlzA3RWPkHf6Hl55eHwvwIFVBG56EpO+5waHQ3k8idXg2jFiZC77I+x+ EPY5OiAyKIjNm1Cze9IhE5nZGgUSuTxtMy4Rt56TMS8qrq9+NAOnVqRB639D cQ5G0+KyAiA6/j1w5MjX9AqH1TbR8D9XiPyEQuS8evyDABrmzL3c3iJ6QwS0 j9hZLN9i994izBs8C8Pq1UGfqpUxqGolDJAL2mqRcNmIYCTEaZFXkKsTmWm3 seeEFonZhaphWzQ0HpnHgxWmTYLzrQlweEeqB05Z1dPQ3IoEo6LJMOMBfTm8 eJGP07cycD1Ki6wwWiN4BlOAnZ4ejfwr5zhZqoCmlauja10r2DVriwn1a2B8 fTNMbFAF4+pWQnRwEAuZN87wwd1LxSTHKuZk6iXsrFMRSLDMLcxnsJ09/AVP dr2F9kmowr1R2ETTtAw23kEbwGawvLK0sLH8/srlHMTeIxHWw0h1yoyHi/le +4EPULj/GOcAK8J9pwNam5mhS/XmsGnTAwvatcCUprUwtXkN2DY1w6aJQ1Q7 HhX2GrsWpyDh7QfV7q6aGQr3s0TOsnKV+KCClJftm/8BRf5BIpB+FADCQOJ9 ooHi0RfbDS1a8iBCiGUuR85pkRGRhexzx/UQYut1/qkMhP+JNKTtvomChFh6 5xtdovIdbIcNQ1uzmuhdty6GN++FhZ26YXbT5pjfqhHmtq6DRU070VoqY3fP 8heIfcDbcSpg8Zgx7SOCE7TIzss0nLaY1fcJPh55hOCLnnzx/n+BE+s/W4BU isSPQXX4mBbFISSqSX6ld1QDg4rNQni6JuDRugfEWAXC+CzPz7AdOgIWNeqg d8P6GNTcCtZdB2B6t36Y370XlvefJxXhnHt4w7njPuxsvQ1bmq7ka6LMbZx2 C8WlfbnIyClQZW/17Ec4eEmLhC8fFRAqCAtwx1yTEbyDhNnRj38RYCry/XII oS6j4X1/DVUydFUF5vCev9HiwS0NCi5e0JsF1gevLE7YRaPY5wIDS6IhG8H/ SDX/1jXromujxhjYvj/mjhkEm44NYdvLEna92mLn3mDYOmoxb6sGK9YUYP3C dGy1S4bDqBg49bkF584n4NTOCTuar8dJG3fcd72CQAJmHPGYbMnsusnRSErk c7KycCVOl651mzPnC8LeausqwmmkLMGG3GHqexQdP6MM9v8KXN6jslTc7bgG H8NzUOR3RgjkL8y79otEwX5PU4LNphubV6uDNo3aYmjfIZjUzwpjCaYTOplj jFUdREcGyx36BVFJWpxjNctTcuF46foirF2ajc0z07BjwivsHBQK526X4NzB FTtbbcGmJssR7HpNktlb5F1BMbFb595F2A0NsvKypTs0tpkyfCg6ECfekzjx wW0O4ZgvyQkL2CIR06UgVvhyWpGClAPERKXElTj8gged994mQGdZvqtbEQrD iIV9lyAEnRXGfI+l4f2u2yh++8w06N8iLCgEbZpMwsAhg9G/U3P0tzRH3w71 EfUgREkxqyIqoQCnw5XZkyAtphLhXrhZg1Wr8rFx3mdss0mE44goOPfyh3On o3CycMSOZmtxzMZVnRl8RYSbpg8H1n9GRqbMA51Fb2ZWCR3MqqCvWVUMrVET dl1nIzJFg9G1KlUrBeDMKHq6JeH6RpoUPTcJOO/3DQDnk3AGeAwJNIL8tdD4 XVNVkweclaI9XeMRuZbY2sdBpgEvRziNg+tJAuS9ELi570ZERIji3f4LzzAt LhCgrwZr4UxEe842LZbbF2Ld4kxsmf4OO8a9gFP/IDh3PQdnyz1wbLkJXjYH pZnCKYOGoNXv1dG9Wg0MqVMTI+u3wZyu3bGADOqUP6viwh6Hyhyg1LmKKnPM o6wbn0JSs+vS1T9MAMqbEgNA+bSfpdQue3ORGpYP7V1vE4ASJzclGpqrl5S4 QXXyJI0c+hiBJKXIKyqUo0xd6iPj/TO8iZg6ntJguoMWizcWY82KXGyc8xHb J79Bq0oWaPeHBRG3VhhSqwUmWhAnN6Q3preujWmta2Bys8q/G6AkqtIxEdu8 KA6v3eNQEBYgXKpSU5GPFzHx2DbMAX5jnJDz8s1/vw4eLzqsJOR3S4v8iFR8 uXWrBHgUaGYSVvQNR57Hab2ogZZ8t+4uwluSov1H0IYssr/q3YsKe47ts98g JTVfuj5FRPMSEdFmNZqjuXkfdG/eD8Ms+mFmr/5Y0a8DprevT961YWNh9m8O RGOFMVZvpynh2VUfSEroB9F6CMmVGFkD+Z0C8KLhJ7B3aADeuUYi8ejZ/3Lo MIn9KsAk/COCdd2HqPvNO8h9HivC+EdFjW2HTMKous0wqHoVLB82FFFBQWpp ftPKJPiRyDI9N8ME1vqzTTsXPUJUsBSNllEGrkWl6tKijJ6NGmBoi4aY1HUg 1gzri8U9msC2Y11smTlSrwDEl7N4nBkLi4cnIOv4fT2V5nH+1YBVHeDimsLY biE44lSI1AcFeBMebQJzVpHmozRWNfMl0dib4EJoQ27qWW4GODtL1HbEEFj+ UQ+T6rTBtEa1Seoop4wxIUHcToAkrFpLcq2PeUoF7rsSqT918fRlSdz78vE7 4OWUhcwcjW6iKBgtCOidGpujf8tGGNa+A+YOHYx1I7uQYKQuYh4EK2yaLouy ku3ZI+mI3p0IbVSwHuhsFcw/BQCLonWWgdMMZaPNC5y+rcXZeymE9Xy982bY YNbVR56PJliF7zwJbHIiPqIwIlCIPLdFrgLcSBpqQdLQPjVrYoJ5Ryxt14Sk oMRfN6+GrZOHsBFYO+8xzt0huRzJ2kUjQF1+K+Ly6WsIUZ0JtVrijMNBhN/2 ZRGJzYgxaNWwAboQke/XtiFG9uqFBaP7Iy7whmLhTC/9q6IKwyccWPABmoD7 KvJ8vPWbAGXO1cgVrMXdLyI+UANNsbbS11DWbVxmK3PpTlDyUzUvUUWEA2Je AsNRHB/7s/ItHnNO92Q8asB9pxPaV6uFgXUaYOqfjbHMsg1WW1nCvpMFXAaM xe1xxxEw+giujzwA3+Hu2NN5DeYSdxf1ToMTfR2wv9c2vD0fhYQzD/HGKxzx J4IRdzQQrw7dwguP63jmdhVPXb0RTdKQxyRSe0je4eQdTN40LQkg70uul7kl CfpD2qJqZXSqVk26N6pOEywmafdCq6aY1LASmx6hE2TurntwyGMPjpAwa8+2 xyj2J+83zxQLbnpIWb1ldr9YfD4qn6X7k9EhFZf7WACxdYYP7h/OQX5OseoL eBrKkEqkuK1H8hZfepINfbMzQbKystiEhrdPPp4HFUMbGaomPwYjW06xiU+I YJ22XoHosTNQcGgzFgzshCUjemF+7/ZY2NcC6+cswr4ALY7c1MKT+Pwz5G2/ OgWHLxMFoi7qhhY3rmtw01eD2z7FCLxShHuXCnH/fB6Cz+Qg1CsTYSfSEXb0 E8IPpSHCIxURJECO2JOACOfXiHB4iYitsRIsYWsfInRFmPR78PzbuD/Tj51y e3vcCaxpPxVWlZuBnZBqa9EDy/t3xvQ2tTG1ZTU8DQ9SQwyHHbl4dZVY8sCb io8wuuCTLZD12v8RYQ4pJPF/pA4oH6IzIPkBNeKV2D0v1zs4uSQJn95mq6aA J6mM7z9NU6a8stMdOyj3jl3UIjMyA9onwcZGWPbs3yOejPC9uTvwduZcFF9w wZcXd7B3x1aM7DsY0wZ0hI2VOaw71cP5gy5qk3bj4xH2hpjkvAxFWCsjJk0L 75da+L/W4naCFvcStQgh+W84eT8g78fJWjxJlgU8llw/T5J/f0U+95q848l3 XPy0kjTNWnoY7Zv3Rl/LfhjfvT/m9BmA1X3bYbplPUxtXwvn3B1YdXTnDg3y br6VlqCXMT2SrK6/c3oaio7Jm0V+FMD+q6pPulidLUajhnbjsCC8e6xFsUbD Ro2Pjks3avxtVog7RnKt4uAYaJJeKKP2D3XU6IuWA54td8CnlUugDTiAgpRH SMn4DNedu9DSvDlGDBuCUV2aYISywlA3NfcUu49okJKdb4wtZv7owhMr8wYY RDzauM49sXpEP8zu/icmd6yllnnPny9A6HkNCs+cN1a7Vqd3nVemIvXgU2hT dBVAHixWQrdrfwhPiF0oLNCUOFjr/w7Ul0SuHt/RIPv0GSV0qKB+LtzljPR7 jtMaaMJOI/39M+QU5LIq1oixN+C4h60L3M0Ch/GDQnEnluZ1xTJD3Lo5eQ1K 6wYN0IMgOLhdS0wdPBirRnYi0ViIgqAsoEsXpuNzQDqu7VjHUGOrCzzdk3Fj E60QPBOCxgBab3MMV7d/RkG6DsjSg8ZCNz7S7aTc2+epwefwbBT4eKmBTAwR /TcHLoO9Cp5cxV3/s4hNTNJJmvtr7CZZySfSQd3KqjRs2lmI6LeJ6mQLzwqz v2EhoZhqPQEdW5mjb8+puHcklBjbcLbv2FDSjp4Ix8WjRGH8gmkCxNYQbZiQ ivwT8qk/og1LbJqEBqe7psTgM52fKchhK9hpRswipjqlgo8PV9nJde4exSgM jYM2NV4Z8++QQOALnbcDybPnofjiLqQTO5uTnSb9lTPNjOz6je8lUypjo/Rt WTyuksQ2PS9LngLVW9/ivKUAhdcfcB7G6NQSK/q47ClEol8+SSJ91EVYWxfH 4417nGRQGYD8nqnKnCVc2O0C4u4U05CTxT18yKkAqItPRCcvMMyeks6GkGih yNtbnW2lMd35nrb4vIYYvJuywXuX8ZnfOc08GuvSvHW5eJmeK13pcq14LFue hacfCpTlMt/h7KlMPL5cCM2tq9IdI0iVU3ubjb9ctCi4SZBJed1EpZyJ86vT oLnuW+IUbR1YBNTpl3HvAI3kNOp8Ex/JKUh9S0FiaRZf5OuiaMrufQV4H5aH JT07okvVSuhNMsOlJKV/TFJ6lqrHuJGAeMhU5LjIRi1DNmpMzXjQPD1SJH/7 OVd9rMHqOSE4TW5lFGnUbQ/HTxQj+2YC9m1YyWPDgqlL3sV4dImEk6GRqhQt HZGI7OPyCTXfC4BhGYqX620cX5iIz0l56tZG3hcrwCgqwKUc7CdLjfgKnozW j1IG16/zTExq0Q5j6tbA2DpVMaFeZYyq+QcOTlmK5xNnovDoFhREX0VxVjI+ 5OapVRoG0+gRIbidqG6jnj3tHR6lyJMd1ZVBMSz6zpy9G9c9iSQHh6vme+2K XGTe/AhN5F11wce5oxl4uicRh5bNhoejA4OJL8qxPXlU2dYPuYvUR1LYwZDi DZuClJEDVEQZZFvVd5VXlILuoupQrQHGtuqOJR3aYkaj2ljcpDZWtqqJTT2a IuPlHeRmp7HwN9A/Eot3FCA6NVW3+31fIg6c0yIp/YPik743WRWnn9i9m/z9 xmfkBd9VtYiuFaMganwCFMDKY9aYVehYoy1G12+AflUqYyCR/uj7QRUFwLHC z177ozg0bAcebT6BT1FxjPMp7Q/g8YUCFJFwo5ZxMA0qTKJauWElir7bCe6x 4kTLqtXQtVZtDGligZlW3TCrWSOs6tgYGwa2pBVdNi3iefATDt/T4sq1s1Ss mSWzGfUcIfHEY+Vngy+RG1u8yr532FWDYm9+oUwZuHpokOqfi8Jr55UtSd9K pZOWZpXR8Y+2JIG3wMg61aRFD1RryupHxAa2Xt0effo+1g65ghu2fnjnEYj0 yChdod7mCLy3fET+F/0zDfUPJxTu/mIw88FKe6MwVyQw10TXevUwsFErTGrb GxNbdcbEFuNg12QWprXoTCfXlUpLOYwfF417SUV6llG3uPQRnIg3T84uVOpk pqvt6jKKq8WI882DNvaRAjhR4of5OOSmReGNp3RZby3VLX6r6ElLYtEtqlZH F7NmsG3eBTNbNYJN01qwbVYd262H6skii1HZPWUsvmXDcPIV5o9Pxt2TGnyK yEZ6UpqOj7A4OFs/wadX0mYMEyMhOsqEzXqLynQlR+J7YlPGwLJ+Y4wiudyC UQNhbdUKEy3HY2DbB0QJDmBCk6Vwsdkh7cdjq47p1PGKvcV4VyDTEjn6sf3u 4mY0icKL2SyB6RI+E/vt9rkouBGNgrhY9d7WTemI9SmC9v49dR5EmCB9R8bI DO2q1UbPOuYY1KAjxjVujqktGmF2y9awa23GPl7WgIqym5ANz3mPMIydm4tz oVpEPE4lgaCOwfldzuHVLSmo0jtjk2labaYlWr3TfnUn19BROX36tHErRDwj nUpt2AVjBw7G6C6tMboDSfc6NcBIqzrwPJGHgV3jMKjpZYxqsgHTm0yHLwnE WMbteSwLJ8OlVU1qzMEPEN09tW5rPmLff/pXKcaF1TvpLsfwC2QMAgNUg7Fl QyEJPFKRHXjL2PKT8kx3KteARc266FyvDUZ0GIBRbXpjskVXScTGNVkFB5ud Ui90dlze9k9fzHJSn8Qc/cppQdh2XIvTYRk6dqZdQKAHyYqydetCBSPDnDYN 4LiDNY2PB4nr5gfikvtDzJk/G1Yk/+nRzhyLZ43Hw8hgdWVz1JMirJyfhoGt gjCsyR5MbjIfe4ji0OlqxvVk69cISclVruQW2NismP0YV4JJ9lCQq7dXxNhc DItDDx/VkNAlmSQzb7it8jm4e4Z454vessJwduyfsB0yCi1qmcOqeV9YDxuE 0W0bYVKnlhjZfQcG9nyLgS2DyLjsl5BYNWUV7BetUZet0dapFLGjMHQB+HOM HZMM/+fUaOUyRjxdb+HIgjf48rZAXc3KB9Z6Q6IfJbZT+Waxy3m3+7ixOx35 2brdAFEviuB5OAsDOzzFoCZeGNtkNWY3scN1IkssD6FrSu0PapBWoMs5Qm4/ wqJF6YhJKzQ5CcPqxmxtUtTjQlw5RqQjIlqVuwNHtCQ+yoQ2JlIJOkuoAYO+ Va0e6NJtEIb0sMSgdg2lzab2c8dJHz99IQSzZ6+Wfh87xAMjuzhjfJvl0jVV DWZp2VI/3YrhAKzfT5flFXI+JBb2A28h+YEGGo2WQc+H7gbQ8wx35gZ174xo MnrEjhfm/6DosufpAqycnYSBzW9geBMH2BKnfVVZdUQ/4eWZi7OPtcjJz1Ll w+vQB3j6aXHt7j06wj8YQC4q1bN5LyeHbLy7kYHiB/d0/YsqgtdBEmz7P0RR fGw1Meqy4FSQVossWpKO7U67ccB9Dw7u24Vtm+1Zq/yz2KJii4kFzVWq1OUx tIk7xjdZAUcbR7hv2MPA/4bDedQwkvYTT5dfVMTEfuecO3h0jsavurMUSp5J bQL7MjiyIhoJoUS1czNl1nTxHZerk77FFGPlsk8YaEH99UHC7FI42zhgVo9D CE/+XEb5GJ2r3E+ixyOODphhkySVfDmvUKEU48HKWvt2kWD1WqB0xTrs4JCH uGv0rAR/WQU4g/MtRna7Cs/rH3DhcskE41uFjgT80RwM7JaAgS3uEODdYD18 DlZMWQ4/RfrpHoZVe+jaeA1reJ3NIVze9EGKWc2NI81mlPn4lCG9dfoZhJ7I RV6eRl1aw4dy7KfxTYG/wPN4LgZ2kZ3ySM4p07/SLd7tzCqhNwncB9XsCncv LW74+0rLuvlThUwVhcgYsLrEpUsFeH41H9rnMaoFcpKq7AnEByQosaFuKFcs 2oJp01dj685dBktzKiLqqQz6kF5PYWO9AGN6byECtBwj+sfi4gN6GIyW22vy CjsnPcZHEggUFBUYHr4sAJsPQVnlkh635LX8LdLfF6pJoIHWGl/y9B+8jHqP 9Ys/Ypb1e8lNDSWOtmvNHmjxeyX0IKH5sNrVMbpeOyzu0QUzWtaWpvWZ3WQ4 G5Nxttdn4wriYgKeQ5OgW5F+niSjYRc0KDh1VolAS1Y8aVcnjboIvwc5NAH8 VflYSEQ6li7Zi8Gd7mLpjiJcDEgjGC/DTqKkfrqDAFyJcjYjCXN78l4wdChm tXPEy5skzCzSHfjMZ9C1vo71xmE38O6pvCy5ggGoxoDmTnL5J27dzsD+a8m4 /zBXcrKN/v0Hmv6rBbpVaowhNf6EnWVPLO/bEdNb1iBJUFWc3btDD21ez5kL evJMg6CzxSSWD1TFdxlxxF8CvkD7OFgpSnxn0hJ5ur+Ay6FifMrXyoWTX6WP 2lgvx8m7OYiIIBFy59fEP90kkdheksIsg5OMtqyQI4aQLLoSOlWtjH5Vq2BY 5bqY06w9LrrsYWd/8GGjAdJ83Y8tXXOaewMxVwuRka1bR/h1pI2Zk4poUcUM bc0ao2fdDhj6Z3fMH9gPS7s3x8x2dTDVogYuuDuqNHlWmVLuP1CM9JvvoX3/ VhXhqKcaXCKRi8Y3SCnvmV4PyfijLs5uQgLC3mjU+QFP10jMWOiHVes2K3z8 JDkiKRLrFCdFBsOa7Maw+uPR5L9VYfF7dfSqVh2DqhP+/+yAtX26wLphFcSG BjHZ5qNCA8T5qJBNG8WSmO6a42fkZepmKAzsiCl7Ygr85pWqo32duuj/ZwMM b9EWi3r2wZKeLTC9Qz3YdqiFsx6mwY+KzMOZQyQBO3VZlXCXvUVIvJ4PTcBl vWzYcO2k4erf1TODpbn6L/l5CvhlMbhrIE7clbsYGRkps/09oqIJ/oey0LHx GjT4rTVa/bsZelZtiIn1mmJ5796YbdmYZMI1cNnNEaUAnUemg+oCYuFi+xCf 39Bop7CC6uhLnrJZEtgKcHNwQes69dCziTmGtWkE224DYD+0E2w61ce4DrX4 B3Szr7J5St8bWiT5Z0lrn3QxbjZcdxFnFPAS2uS40qxfY1aQeqH58z7j+Qfd g388Xe9j1oo8PHqXJ3GvuAtWsbIbNgxNKzeETZ0BWNOiPRaShGlp746wtaiH aW1r48p+JxVWPsz+Kqxl4LH0IV4HFZN4OY+bjGEhmc3ocWjX2By9WzXEcKvu WDS0F2x7NUL0g2CIIGNM7CG+pshPfiwBswGXfIrx+DKdCggvkfWIDC2rea9b +AoXAmkxR/e8u0Edr4O9WATN1t7qVKwizrgcxrF2tviyYgGKQ09hco+eWDGs Pxb2aAa7jnVx6aCzynPJx8KoSw6pg2ORGwPuskckgg5nIy9XK5y6rKDEDmGh oVLcv3jaTlxZcxOF1y6o2ZMIuvNnchHtXYjC61dUDbZfmUfS7A8oirir7mU0 MinFqtierkFYszEXbzKY5fyN3LuDafOzSgSY/HFx9JqqmpfNDjwbPQ3FZxwR dtkDUyaMxSCLVrAbNBj2Y3pharcG/MMVWBQmAI5FBpaq6sTj6KJ4fEktwqeM tJKTlS4z0lDkKQ+E6KBm9cyD08TOBbym9VK9qQF/EuNqvP3B5xXGbB2rWI7t S9L7KCnTVEdz5ZxncPMh9q9QWVEnM/OjejYuDbKvWNkie+sy5D+6jLDb/mhW tx7aExvTs3VDDOrSHbNGD0Sc9wV8Fayy8Pf3lx72qDwUiRVO1w70RWoUndvR Pa5oz+pUpB16Ck2kv0mIomI0uHVKA21IqCpMrvtpbT8H+d5nFUEs3fpmT7cY OLgX4WO+VnUH1JZNmf4FwW+16jCyClrYnUjMs52OW1OmQ+OzFznvY8FW4fy1 dzf27yPJ8P49WLaWBGBhWSh6ECyKgGrqSxSNgNhJlQwhh9lXEUUyk6zcfHXu wHNfMu5tfwcNUSMRQmyW1tW1EJ9vfoQ2LRmsxhD1sACH6SmDN6Lp8VHCYJuh w4RF2ic8+hVCXmvUes3KGQ/gck7edsMqdUznbtMNJT1t8dFpBVYumY+s9DQ1 J6HRzAki3MWBT1AYF9vo66iUqF1RexaWistb0vDhXQbYJqsdtu9Q6OmnGh1l 8r6p2olMnNhHOn7xGthZbVs2ktz5rxCsXbiAN9GsfLBq+i1pTu9LQSGHRRwm WafhbjyzxBXwnODj3sYW7+fMgfbWQRRlvOULSqxIuWVbOqLvEIGNCBcGCgb9 5g1uWy5Q2DkxFB9fS0crsK47rYhHykFC5eEt6Y5i7tmxFj5+GiT45UIbE6Fu qxJFqEsX38RH39c47OKMViRdOurogEdBQdzZAq8xZ+YHxL7XHWBP68U7ThC0 VTkoh0PEvj4aZIfCw5ugTQhBQaHuDFP+9GkGzAr7TKST4SmMuK8GJiUfumYC GCLqC0Px6g7dilyonucYFZ6NALqc6MY1HpXmCpc7N+XjgespqacdK1fCcWIb ZC7/oWqFsZnbo0ciMLnvbIxt/Cf6kmxniFllDKtWCauHD1GRWTv/Kc7eko+7 +KeCOk1G7YYNxdzRUzFubDICXhKznPsZ3kRjTra3RfrKBdCEeJLoO1WtqPKn lavL8UjO4XWGaNHdx8h7Hisq0CigMW54N89Au7QvBHf2ZSIvh1XTymHjpBTk n7zJA6acMP49Jg+bjH6NO2Big/oYVr0KxjSsjSUTxwojQhalsGNYLWu1waRm ViQ7qYdx9aoRGnRLeWWc5c7jo+fSrViTjfh0NvH5g7oBTTpSkSDdv94CbDyg xTW/6zgwfilejKV+3AHFyQ+RmZ/HwmS+LsHEbOuOLDy9S/QvPFRY0hIgxvy7 ujw87BX2z3uBL8kaZOdnMdCunsnGW49XJM8OVClK7ky384mr28kbxluZVUGv RlaYNngobCdPhq2NtSTZR7Zv5DKV7+XN5VXN0KmaOUY174lFHTtgSsO6mP5n HcxoUgt2jarCh4jPWfJms8Wje96G30O6Uq9Iufcdmpv9QdqsjC5mZuhnVgND a1vCadsR2I/oi03tzFH48CLS0j/wB9qyqJMBuGp9NjKInmYTm9CA+xzTZwMA qc/XPxGoLEJOk9BibTiSHkhO31wBkBrnq+vToA24oQLInn1WiioWEzaqthtX r4Y1wdPG2gZTho3GrLbtMat5A+nzM5o2VTpTFy2qVEabqjXRrXYdDGjcGXO6 kGy0Y2es7twJ67qSVLqzBUIW3EXI3JsInnUdQdOvIsj2Mu7ZXEDgpDO4M8ET t8cew81RhxEwYj9uDHPD9SF/wXfwHlwduAveA5xxuZ8TLvZ1wLne23G651Z4 9diM49024kjX9djf2R5uVmvg0mEVXh+/j7ij9/Dq8F28OnhL6d0viN13DU/d fRDjdgXRZHyjyJut//dxPozWv5uh3e+10KtKHQyq0RQT2/bEyr5WWNK2Duya VqEHLaqRJx8Iq0sUY7U4TRxc8Z0HpRlQvkJTTyDebFeG+5qLODvmLD66eONL xP1Gyu21Y5OQe/IuYm5eowNscnwHqbdFEe66FavQsVET9KxPUrc2fWDduT/m dO2NRV26St9z7nIUjhYOJNA/Im28DFR2t1J6dkNHoLVZbXSua44BTbphdv+B mNndEvMHdMMSoguLhvfAoTvExN/V4iR5nyLp2Vny8zx5XyL3r5C3D3lfu62V dvv536TPq9PiJsmkb13X4o6fFnd9tQi8qsE9khYGeRfh/uVCBF8sQAhdQXwu H6Fn8hB2OgfhXlkIP5mJ8OPpiDj6BRGHPyHy4EdE7k+TqxCuKYjcm4zIXW8R 6ZyAyJ3xiNwRhy0jt6Nz7Q7oVa8TRhHZHd2iB2b27Qv7YV0wz6oRprepQYy7 o5o5UOz0z8Mqg22OOYgNJNYw9L469nwUVkN/7PkoTHQirBHNZNNUq8beQ4B7 FvJjiaW85c9E4opnFuLdXuPFheNUQGWRqC0sOLFJa1EYT//u5kCClhp1YdWo EyYMGASbrq1g09EcU3q3k753g4zf3M3FWL08C5unJ8NhZBSce3rDqYMrxtca guaVa6FdvbYY3XUQZgzuiYntG8KmQwPYWNXFplmjFDtaDSunXoeblwafCzSI fq/BFeLCfeOIDLyR1/8HJmoRRFKG4CQtQuk+gGQtIsn7obIHIIr8jCbvGPJ+ St6x5P2MfG7rpr9gUa8VrBpbYECrdhjeohsWdOqCBZ3/hF37+phqWRsX9+/k z+GOjIzUG1KaE2eGpUP78b3w+D6DIeVR/l8M6cuX+TjimYrIR++Qk53HhjSK MHBhTRoJ/jxoZFtbMc2Gw8hUmb70V219i0nEbFu2H4jRA3thePtGGG1ljvXK ZC4705YeMXAxjKhgkFY6o2fJugJYtrZG+xb9MHbIYPRrWh9DW9Uj5qEORrSv xU5v+EnpQigJK9xIeHvY5Shm2pFOJGZzxxWytdctKtdEmzr10L2ROfo3a4Np Vj2wrHcbIlf1YW1Vm9/fz4IN1bQ+0+LceWJab4cLJ+iVsWBpBX1GKIOogWAs GGcsdFsx8g2yTxCvce+6kjhXEELLTq5Sg49yGNc/CCs37cYM2wmYN30iTI/z T5jV5zacHE6ifZsWsGrZEF1am2NQv/HYPCMFDqOj4dTLF84d3eHQcjNO2OyT zsogGWAFRTTpWQ1tSeDWg7wHt3aFl78WYYFBPwhaZNPKdJVO89r10IFW51o2 wyjLXlg6oBPGdGqA0wddDPe68x5tu1Munt8rhjYkUF2qUvJp0CrsfIwngt0I NOzsgQvHM/HyrwSkBvioD8wwSKxYBY/pIH1zsSDdOhAD58PF+JCvxDHcytQy WD/VB5cOFCAzh5V7/y2JPj2CgJ7zsJuI/uL1hVi38DO2Wccrp2qcws52ztjS bA3xfn7sgHLp27bSsdhkNMyqYnD1WpjabQ4Oubhi87ghPxodkfIICw5BU/P6 sGxBnGZbO5LhbcDL62dZhUkUW9hvyUNW2BdijN6py7n4aPv/7UjQnaReKz5A c+ywstVBv/BjmMSpC2LHv0LIm0LpSjchm4itM5PwNoEeByYvhRedoS4P7U+Y vVWDVStziJd4B4cxT+HU2x9Lm89Dq381QMf/1MeAanUwtE47zO/ZA7NIpG3b VDoCu6JKV7eoh4Q5U8NQdO60Gsrz2Z+6rv85EYALWmhuharQUpFjLl4PWnk9 Fld7q6caE93sAqurLBn6ApnHw6FJeo7fDWAUVYjYnuRVM27h8BUt0jI/qr2x 7eKDiNt0vVyhumDBwKSp17rh/UE6CJ4eeE0PgV8ydy+a1u6GjnV7YHCj7phg 2QeL+nfGNGLVpQOu9zn+V5WAFKzvF4kspxMqeCLDvGNXPl5QC3H/VonnbQvk ktXkaAjKnie6cJoPnu55C230QxieoiCq9v+qshiHefM+4tkn7vjCKWdwalcu 0jNLziXLtqLkPd1G+CC0rFILHYmL6t3SEuM79sfaQT0xt5M5pnaojQv7d6pL YSa3vYlXawNQHOpXAh5ebTdsyydq+xnaD6kqPPzmoOr68PBhIYOHRmaHFxNd PHFSKXwYPQGJhSL2C2JxIUg+eZJfF2E/+SXiX9JHdxSLwDE+2/gtbIeNIfFU ffRqao6hbVtj7uDBWDmkPSZY1VZXQFGF85kWhsJzp9RSMO9VmMI9eaHF5UvE mQfcFx4lbQAKz84MhSn6cbe1qUg/9gDa5Jf8Lnlj9XudZL8noV0OXmfonqTl MP8xgq5pkFeoLTEx/jVkwoKCMWXceHRoYo4+bRpiRM9eWDCqL574XeRO6U3F xv6RyHY6ppZn2MNNeVPksLcAr+4VQXsvQC1P82GOggwjwYc5MzlkTrin4pEz CVVior7nkDE23ch20Yzpcxc3orXIzk1X81wv11Ac3pyJ5HcZ6qaWUjgSto4/ LCxUrt57eOCoGxnyC75qczbtbuO1fQAKQ3zVHons8yaHAmSHfSQ6lKLOavBB iAEovOtjoLDZM/d5aSg+ebY0y8jYnlxPt4dw9CiSAgqdLj3DMpLwvIimq1Y0 FQUugEmWN5GqV960WPyI05MEXJ1BmA97qHfGsv5iVVlPvC8Tx+QfKNxe8tWO l9N13P4DPh2JQj7B+isLuNgWPOsxzxAcXyRdMWnYPPs+bp4rRnpOvrrObpt9 PvL9Yuj5Dqp5pKXHzQOIvDsf1TsXnJXAWNLj6FqI10EEXCIWL47fqfH1TlIH Qithuk7+oHbSi+T54Y4p0lYUE0tG2LanVdNu4MBFDT7mZKkdpE/d/GvFZ6S8 K1L3wkaT+OD+aeLiAu+qQzil/R3Er7sBbVKc/N2yuoBGf4UHF8yxx1u8fPIK axfE4MbUy3iz+Sw+37mvHvjA+05B11m9SLaD3+l9nHZ57TR/HFixxnAHT211 XJ5jzqz3iP3AC3Ms5g24j5hIaQkW28LqcVCDL37voX2XpA6rFxFc35lUcB/A MOMw1n/6VgomrP++J+5i6ehYXHfLwcfbH5GekFSa/pd0jt+qcRrr7+LZ7rjv 6IOsIB/d2vp5UVLJKbdYJ8gbpl/H1aOFyMzVqE3TR8F4emhReMZHT5C3DIxE jvMRiCJ6btj1iwhsY81fzu/g6fkOkQ9TkZudXYP7KHN31fS7yZNnT+TmVfUb Sd7L6VaZ7UtBkDR9eVkNX2n0ttI+i/i4Yu4h2UlwnJeK5CSNukdy++ZPiPch bDyJVLts2z4Qb9b7S6LNzn7iB5n95LfPMsslKpMo3WMBAe+zpkj/VzS5vott GlZPd7R7jyJPeWc2Cx5G97wpHdCbk5+tdndaj+t4eE+LrLwc1Xg6bixAgW8U Cl7pHtrl5ZaI6zNDJZkWjbDew5j5aIaJF++fDfrKW+TJnM8xFqKwPvL2j3lX 5xWJSJUmJW/K9A0WWrPDnZ9Hx2PHrDPYTkwr8VkMDnvbCzjnmoeMbN2mOfqk wvCzxMLfCdCLjrYPogJ/yKS/11tFxSesTAR5D20ClgkcLMbik/ImYIkKz8HN zfKspOFhOCXTIfGjoexHHob7pFDE3k9AXlI86zadn91o+wYJr6UNbkzYDh7R IP16CrSpiSpqdpaBSFh/nejMKxk1vX3qfJuiacg6gv7pQSYnnRSely9fUvjG GKAmCmAqCqgyAds8ORUFJwOkq99MjLIRwDbZPsedM8RtR77Hp7gnbEuXtdUF hN7QSAdYq5bocSHOHSTG98Ql3SMCiMr5zyIqFx4J/gw1ZkVKiQd9KccSjVTY M7LSSXT6BYPi2lk62fgS2sd3S2QcpnEog7j4fHicT0bk8zR1X9tptwgcd8hG eobuYPwd27KQeJUuCwzhZv/TsGNwJHJdDqqml88gRfspDfSId4jDSmFeRIfh 6pbPZsFXmTIUwwBwa3leYNXYp4h7RtdNaNh8h8vWIhJ7yf6PdXNqh3tI3CBr xu8GXeK7ya9vM9PvJo/8YIG5MLYKie8mU0X7cUnIO3kHua9jjR21JBpw5pu3 zQ3H3csavP+cps55nzudgwfnC6G9eU3t9Sm3twiYHSJJOAsZ+XyPOSTeTyq9 ZtUE6idpmYleDTSi7nztSPR4QxZwXfHKgqvNVhxfMQ9HHB1xmCD2s76Z4raA yisCPezTSRScqy6tOXJCi8zrb6FNidftMiMy7DgkEnkuB9SsjjdsLMygo6P/ ZEC1m7wv6GdCi4lVY0DyDreMggxd10CP2e9dqy3szBtIK0iGKytI2GQMDXQX DY7As8dSoMs6RjdEXj5CxjksWh2/aR2C8HajH31YiTp+vIWqKWDFRMd6ceNn LM6pYrR3FaQyczuzKuhdpT3mNGuNKQ2rY7J5VUxqUImu+GCRyKaZt3DdqwgZ OYXqsj5Hx1wkX8sgYUOQOmxUOm/NodIZoQ4bn52xIJUXJYPe8blIdwPpNFp8 kXXqW9WmsBe9Zt3WLXS5h5ZVq6BztRroX6s55rbpjAWtG0kPAZjavBom/1lJ 93wY19vYtTgNKaka9eSQvQ7FKPSRlxXrFpt9gNNQKq771SNV+NCFJQIlT5YS 9ruLQb9FoYvo7FW+mKTf7R/gRrSzVdXq6FarNgbUa4LJLbphVgtLLGzVCotb NYF90ynSjNAd+dGzzI7M6nMLT0LlLTQMgQvn8qXDKYr9vdWRn97xPpI2+kpy zVjjFbYaJw3MVhkgwDsdKyN2iQ9DzP4WAr9Iz61rWbWWdOxC/8adMb3PQNha WWJmn36Y36c3ts77AMeJr+AyIBAuXU7AycIB25quxBEbF2lq5gZ5qydbTfXG ZWm6R6OsuiqDk55aZF9/Q5fi6x7aQRTi9lyqEOGqHjJV10FgEha+e5Ym7Jha fxBPSCowsKcGszmqZlVqwaJuG4zqOhAzhvTCJMuGmNKxAaw71cX6Tc64FKHF 9WAt/iKdW7GxCBuXpGOHXSKchz+AS4/LcLHcC4fmG+Bp48aeYoAXYbFsOXFU WAK2zniLt4n0ML5MBhXdqkGfgaMNeaSnQy7DIpHvsk+FireM1Tj4mGeTh0Nd QE2lh3m2tpwEGQtb6gggNjyfRgGM1WQPuVxA26Z9MGrIYAykNVmC1+hODbBu 7jglePsJZyO1uEZ0ZtcpLRZt02Ddqhxsm/0eO8c9g0vfm3DpdAhO9OkPTZap q178XC+zpzbRtYcejg44QN62XbyluZmcgnxJI42kZi4u+Tg37SzCxm8hAUgC CypmEqVM3uSLhIfP9CBlZsns65CWPDrfdIhUXwApr5SsKVYqnD/gLmIeaAmt A5g1dSLmzZiAYwd3yzWgf0gLMOiD5G7c12K2oxar1hdg88LPcLB5A+fBYXDp dhbO7V2wo7k9TtjsVR9K8Ew9c0D24M3NKqFj1croTd4DzdpLMzkZWSxB+ruJ XTnsWXkDHtNeIsMrFolnznEyI5h6ZGnfhtkHsLvjJoSP3YzkC3fZiPCOgtkX 3lebGJEWRswkH76Zq9KidzYO/SIbDDV5mxkA/1NF+JJbrBj2/+ICEWa/EC32 EGFeuqUYG1ZkYfuMFDiNjoZLbz+4dPRQHguxhPgPb/UBBfTbMvJ/wJLETH3o QwmqV8OkehZY3rUjbBrXxJPgoDoCk/WVHPHaqQ/Yv/sLXoR8QcrLOMOPir7O j8L8vudwYkI4MjyCkXj8IkOcd1ais071RqG8nrumb3pMMXFMjU0YaPJnpkF8 TkLfdBbHbdUnvH1XwAc0v+nJEn3N36EhNPOxdf5HOE6iviqI+CpPOLd1xKSa Q9H6P7XQrVItDK5WG6PrtsSiLt2xiD21YK9DXQGsek/79LuXiajEzBJqq28d RQ/TKYtlo5/ixN4CvIssQEJEDH9KJrPhouNIFWB1s+z8IcEUQ/YsXXpUCblu wMm8sZC3rQBnGqQvGRaKZ09IaqnRCs8ekLv8s3qPrgG7rHhAV+oBNxWhWeVG sKjWCb1rWmFU3fawa0f3AJNwolVt8q6Bic0qGcJsTKJ/KiXCbL0mfWTYtv3J 8A5JRlZOPh88sAhb9PBtBWHRSh7m7Sh43FEw9QWW3hBjFovwGG+dcw+3Lhbj U07eH0bhNbLjt7IZWtRpje5/tsXQFp0xy6o3VvZog+nt6mFau1rYNn2Ektz+ rX2upYWYbWfgjTGfwbDg7KtY6t+rWwoD3VHpFd+MF8mTD27IQGJqViUBWVNA uivrK7s1bIDBzc0xvn0/rBnQDXO6kMjOqg4uHHSWayMG84o//X1wWaLLFyD+ +BpoJSdxlLDN8NwGUczf2QArqtQrRz/Cy1gtCjTKufLiAJhNzTarVgeWBJs+ LRpiWDtLLBjQD0sGtMamuWPlzVwGuLCsh2oTm4NhneQDJ9m2CYq0JR+iaHSZ hZzwllOnJrbPi8C9qyT8K2RHdZp6/mJ5ecXAhAmwbGaOnhYNMaZnf1xduXaR wBR/rQtGJI7vTFVuwIyF2L2UEaE9mjfREce3Z+FzurayPkp6Wy+dVr5HotsL aB/cBc85M3HMcPMxksK5wYOsDdJqftO/sfi1r8Lv5TO+sJ/0FHH0DLriYnUv Y3gOLqz5iKL9+7FYYDJY0ZmPHBTefhZw9F8TIs84GqB8b93UIOn82ezCYlUm Fw1PwOeDkVINlLHDBzKs6lTygGGVHT7rZjvBjWjgYOUrZ9wjcMolB7GvUtUn Mp8+9EV67Jzm6kWVE17cGCf8Sb0GnPDi9gsHjDEnP1QZKrr+aJPtK7yJJ446 4AbLMbfZfUDekRvIfhFbgiO+rMkbKoUjtnCVzyf/YTBUIpc4QuFo19JniLij xfP4eN1GNsLR0gS82vsa2kchWGLQOs8R71Er63PEq5+xI6R43zJKMRrr7M7g glsevmQb7haTN1weW/YRxYdOYKnAorMEnbcUJtgyfEy5yIyPUQQtKuwNts9K RMJb+ozILKY2LRSy7hu+IG3/ExSFXFc548Wb5bm8JTDgjNe2chxnxoRqgsLZ jB6+eBRMJyHkcVCaYJzRBSHS5KDvNZUzXtx5zpgdMMEZ/3BwY5Z0kvK9DdMu wvtQAb7kaFSnzAPAWLSf+B7ZhwNRnPBMj0X9x4Dq2wY9Fiuqj+agc4Pnzp0T 1iGtVSl6C6f575CYXKwaXxFbF09mIdolEdrHD7BMYEF//RpbcvwwevRoDBw4 EDdu3GBSNUXRPl+vO5jTNwBPIqRA3xQzUWEf4Tb/E4qOXMByTsCY6P/C4aZ/ ZLY6jPRAS2oj6F7w4fSeqAzAcs8D9qfg2Xsb7h1MwufcYtFTmdkz4Het/ojk fc+gjbilssYvAxE9ma+yvkG9ePGixBodPjaxSE0aZZVe9TMwvLzf5I0x2xLu ODkYwVveID8wFumxsYx7VlLkuY+KyIW3/QcUEGFbznHK9OMXrkfMpsjuWf0T naaiaV9QkO6hVLyz6q9wZRAPldHFemWxcd4b3L+ahQ+xn/AhJVnEMXsI57JR SUg/RDQ16YUex0wuRU9TUzhmDzqlHDPMCcYiKAcIIDc1D/zsVT4ePs/E85QM FQSeA8b9mSMZiHBMRrH3OawQaJXooU0K978pDVLO7e3tJbzpHWWacFApOf5J wB1b9L9zxkcUHJFX1jDueDsuelyNwt2/FMvNpIF6GVoQoD/7c/aAsVHKdJB3 sYzLHctTEP/XK2lCi3HJyyz7Lm+ZFC5ZdEMxpC/KnTTUBrnELyaap/Pkp1YS N3zwCFYaNK87sk7YPH8GGlMZW0FT7MmR84a8wscDj5B7z0+vKSYtoicFKE2x s2PpeFBpcXZ2prJuLfgGe9TiqQOfcHcbUdpr3lil3OPjix8EnMrZiZqBM62i ln6yoCm222qjdRpyjtxG0ZtYtSle0FiKwQup0hQrnFBjyTBkLpcPWllTl71y 8Gz3GxLMRahN8dLCN8U0TmmqigGGir1g8qo8T166Gm2CA7qB78AikoscPo3V HAfMwbM0jtd5hQMzTudp60znlThujEDU2M6Tv+w/I9XjKTThAWqrvKVhi4N4 Xf6Dk50yutS4nJ6NZxs4TDVOnwfhuyENWr8bWMON76lT8tOSKgi+azC+JSs2 OsNNXyQkE3HQQOVdt/eLFT7nD/CBZ681uDdqLTKfxTNUeG/NNpHxQqswplty JzrNnLks3jqPFvDXSEHUeHWgHF5GxWNRr4u4N/8+0vf5I9X7op7gMNE1wawI xXIcisxEE/kd+b/l8vFbbJ4ah4ATxfj8IBMpj8LVseaNFOOS12XZOsnM6tW1 ObesZGn6jOkmSURL61g4cf3KZxw9m4yYlx+QkZW1ViD+5b/ClQFlxh9vuYcL NKih4Lsi/+YgMHpMrHg78DtnX7niSwm7ztpgyR19DxDQMzWwOwUiVk7QR4Un dlYHb/MZqUGCpg00U+qNk0GT/GnR/LArTZobSDBtmoSaotbuCiRRtLhWodzQ AFZFBgcKKAcq93jXKDo0SqHMjqniTbhoZORH3JTXkwj6Vkgqes3qW7xB7q/c 46Ple4KxFB0FKUck6pNkDCLjvgLKQQqfvAejdxSqSq9ZuYnqCzOHDH7qN1nv ugl4uq8IFq+uDCmFfHOFCQNTxuSvh4BqsNJFhq8i0QrBlspfefvDEeJDnhCO OE20KUGFSiuu15QtSskUCTY6FF+FRGuxfncTUGE4GRYjOIZYaMfraBeBrAYq 5lNU16DYKrUNRQhZYMMLYWcB1VscVcNlYVzxS5l1aMf1nPZaGQYrhTAfWfmX jrCy85RNgBkGUTRBJQ21FzRwzUQDXM1XebpJB2UgeDxY7sOo8zbnigF1wxKl Ql02sMq0k37wQyiLCJ+XDSul+60pyopRUs9f5r1aOwHd08o9VpCjpL+RCJc1 JC0rvnowv4GCWgiIn1Q+yhNfS/f5U8pl9MqRsn6hq4FUU2XlJ3Ho5Ci9aipo 7SjXGpV0QWu0Jd3ktGqieJBEsxai1g6a0Csqa0pz8hCryygNdF+6y1pihpV3 yPtKp72y4qOnIq28TWD1Gkadd0x/lU7ZZDunziOxgadvQllEeFfpCPeRCfcW m4emAsI7S6e9shcGc3K8eWgioLq9dFSHyFT7GeBAqRJ2GwsIbyqt1soBsVpQ M3DWfFrKXARbF8w78HWlbU5Or5Sl5+X15J/eUXJQ0Yav1aVXabmOrwSM+uUj +iRxKvKiFpZ/XY1ZC9acYHITzLoiEDXVojYWK+poSnm/oZ+24xWrxBIp1hyP HxsX3p3PL50WzzTZGEt1DUxIHUF7s0unfnNNtvc9hyUzJqINHdNL19hCk42x AhSvU0zqKWIUYXoleu6vXekYWGqSAXbMqYENYsZZtEjYunRWY6WhkLLn9zFg aX+5JvhgZXxpFVrOgzHWwDQpa4mqCkiPLi3pDTLpcWLTJFpOxrJnUzGFosJb ZOITBIokWkY1uPS2QX4KBCYaIKJEKyKL+i9Bg/1LayjkdFepjJYvkTnTpkmz /xY00bt0xmGP3IC1Yk35GqlCHCLq3b9CXRllN5m6jYGNoS8jbHcundbtlwmz UjiPC8Obj3c6lI7qYZmqncBqiCak25ZOU+X6ipxFSZpak4ODMwq/CppoZdCE EW3ykptggSdvhNi6JFFBmOjxT4JGm5ZWh8/yzYrn68wUwRJlOqK22cKzUij5 Ra51vZVBPB9mBvZFyYVY03yYw/Z8lcIKeJemabY1iLc+PwrarV1aYyBPsynJ TKkWVtfges+ZKXVnI9FF9lF2j49nqpvQci4ZCTAUcN02Bug/S5U5el5fGd/8 5kXRhGiV0hk0uQ6mmD99NNhDpXkjR+8oT85iBd6ST0H+quGQ6XDOuB4n9qw6 SJul3xO186/StSPvTVPXzvGTkiKqv5TOQMkTGepSKtH0PE/1x9LZpMcy1SUG CmiQe/CRT8XS2h15h5WyyKSkaVNoMkRKUYOQbY+SI+jnFPHx8ZKssxmlUmQo cTK1FQp7rOc1a9bEhg0bTH0zQf7mKqUtajmuX7/ORDtF/utC1bim8xDry/qn /5s/LVLlOF1f4PjPfuGkRvqsckP667T/P3/H//wfEomcSQ==\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{"tc", ",", "twc", ",", "twh", ",", "tpo", ",", "tpu"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tw", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}, {3.5718402591869545`*^9, 3.5718402726497784`*^9}, 3.572328636723397*^9, {3.572328748419593*^9, 3.57232875246*^9}, { 3.5725921859362335`*^9, 3.5725921932682457`*^9}, {3.5725923978158054`*^9, 3.5725924023086133`*^9}, 3.5725926630786715`*^9, {3.5726167873570023`*^9, 3.57261679757502*^9}, 3.572620232450739*^9, {3.5726252144466896`*^9, 3.57262521482109*^9}}], Cell[BoxData["74"], "Output", CellChangeTimes->{ 3.572874986753667*^9, 3.5728752434833183`*^9, 3.5728753816215606`*^9, 3.5728754768909283`*^9, {3.572875590084727*^9, 3.5728756189447775`*^9}, 3.572875652172836*^9, 3.5728756893789015`*^9, 3.5730241007828865`*^9, 3.580056259155075*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dw", "]"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}, {3.5720164790812473`*^9, 3.572016508424899*^9}, {3.57235540487335*^9, 3.572355408040156*^9}, { 3.572356807768214*^9, 3.5723568154122276`*^9}, {3.572621722359356*^9, 3.572621725962962*^9}}], Cell[BoxData["74"], "Output", CellChangeTimes->{ 3.5728749868004675`*^9, 3.572875243514518*^9, 3.5728753816527605`*^9, 3.5728754769221277`*^9, {3.5728755901159267`*^9, 3.572875618975978*^9}, 3.5728756522040358`*^9, 3.572875689410101*^9, 3.573024100814087*^9, 3.5800562591910768`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tv", "]"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}, {3.57184030784344*^9, 3.5718403245666695`*^9}, {3.5723553440956435`*^9, 3.5723553601792717`*^9}, {3.5723567913257856`*^9, 3.572356801543803*^9}, { 3.5723587125159597`*^9, 3.572358735884801*^9}, {3.5726205042656164`*^9, 3.5726205078692226`*^9}, {3.5726209578956137`*^9, 3.5726209632776227`*^9}, {3.5726266468256054`*^9, 3.5726266628780336`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "4.960530749999999`"}], RowBox[{"-", "1.9439611362`"}], RowBox[{"-", "0.92318784278`"}]}, { RowBox[{"-", "4.4852646609999995`"}], "0.147704763612`", RowBox[{"-", "3.0520964626`"}]}, {"4.4998155512`", RowBox[{"-", "0.168890481798`"}], "3.0347109834`"}, {"4.946735750199999`", "1.9677716838`", "0.9598107326599999`"}, { RowBox[{"-", "2.7981172882`"}], RowBox[{"-", "2.2722065423999998`"}], "0.85476086432`"}, { RowBox[{"-", "1.9433942184`"}], "1.3564642200600001`", RowBox[{"-", "2.8321323562`"}]}, {"1.9437721635999998`", RowBox[{"-", "1.3552170009`"}], "2.8417699587999996`"}, {"2.7843222884`", "2.29601709`", RowBox[{"-", "0.81811907718`"}]}, { RowBox[{"-", "0.8227489058799999`"}], RowBox[{"-", "3.9311969978`"}], "0.24936824296`"}, { RowBox[{"-", "1.6093851479`"}], "3.463867758`", RowBox[{"-", "1.2835018992`"}]}, {"1.5748031620999998`", RowBox[{"-", "3.469536936`"}], "1.28061061842`"}, {"0.8231268510799999`", "3.9325198059999997`", RowBox[{"-", "0.23965505132`"}]}, { RowBox[{"-", "2.6255853044`"}], RowBox[{"-", "0.71140624996`"}], "3.0388683806`"}, {"0.179317989866`", "0.26631908517999997`", RowBox[{"-", "4.0460923386`"}]}, { RowBox[{"-", "0.17640025292199998`"}], RowBox[{"-", "0.23545985960000002`"}], "4.0324863114`"}, {"2.6117903046`", "0.73508451674`", RowBox[{"-", "3.0022076961999997`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, { RowBox[{"-", "5.2097856094`"}], RowBox[{"-", "3.7087762475999995`"}], RowBox[{"-", "1.87804749332`"}]}, { RowBox[{"-", "6.589285589399999`"}], RowBox[{"-", "1.4052947398999998`"}], "0.147149184168`"}, { RowBox[{"-", "4.5735148652`"}], RowBox[{"-", "0.7741829476800001`"}], RowBox[{"-", "4.8494148612`"}]}, { RowBox[{"-", "5.901614298`"}], "1.58052903188`", RowBox[{"-", "2.8806983144`"}]}, {"5.872701490199999`", RowBox[{"-", "1.6203455587`"}], "2.7236620838`"}, {"4.6918117128`", "0.6597978328999999`", "4.8690680116000005`"}, {"6.5373181244`", "1.3903659045`", RowBox[{"-", "0.14717186088`"}]}, {"5.2626979374`", "3.7238940555999998`", "1.9107019585999998`"}, { RowBox[{"-", "1.13712372324`"}], RowBox[{"-", "5.5127086872`"}], RowBox[{"-", "0.9708089379799999`"}]}, { RowBox[{"-", "3.1554644747999996`"}], "4.70541774`", RowBox[{"-", "0.8879066583599999`"}]}, {"3.1125676946`", RowBox[{"-", "4.719779657599999`"}], "0.8804611379199999`"}, {"1.13351434658`", "5.5215903994`", "0.9714703420799999`"}, { RowBox[{"-", "4.2777727462`"}], "0.073984662626`", "3.9000165187999998`"}, { RowBox[{"-", "0.040710367218`"}], RowBox[{"-", "0.87622815168`"}], RowBox[{"-", "5.6996025886`"}]}, {"0.06232127375399999`", "0.94945503418`", "5.6533043016`"}, {"4.2700248696`", RowBox[{"-", "0.06529948192999999`"}], RowBox[{"-", "3.8376555608`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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.572874986816067*^9, 3.572875243530118*^9, 3.5728753816683607`*^9, 3.572875476937728*^9, {3.572875590131527*^9, 3.5728756189915776`*^9}, 3.5728756522040358`*^9, 3.572875689425701*^9, 3.573024100829687*^9, 3.5800562592040777`*^9}], Cell[BoxData["74"], "Output", CellChangeTimes->{ 3.572874986816067*^9, 3.572875243530118*^9, 3.5728753816683607`*^9, 3.572875476937728*^9, {3.572875590131527*^9, 3.5728756189915776`*^9}, 3.5728756522040358`*^9, 3.572875689425701*^9, 3.573024100829687*^9, 3.580056259209078*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}]}], "]"}]}], "\[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", "*", "nj"}]}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, {3.5721935303764954`*^9, 3.572193534214102*^9}, { 3.5726206642250977`*^9, 3.5726206651142993`*^9}, {3.572620782223705*^9, 3.572620782738506*^9}, {3.572620924963956*^9, 3.5726209465699935`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.572874986816067*^9, 3.572875243545718*^9, 3.572875381683961*^9, 3.572875476953328*^9, {3.572875590131527*^9, 3.5728756189915776`*^9}, 3.572875652219636*^9, 3.572875689425701*^9, 3.573024100845287*^9, 3.58005625924508*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{ 3.572874986816067*^9, 3.572875243545718*^9, 3.572875381683961*^9, 3.572875476953328*^9, {3.572875590131527*^9, 3.5728756189915776`*^9}, 3.572875652219636*^9, 3.572875689425701*^9, 3.573024100845287*^9, 3.58005625924708*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "j"}]}], ")"}], ",", RowBox[{"1", "/", "sq"}], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dcw", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, 3.5721935303764954`*^9, {3.5721935661785583`*^9, 3.5721935879405966`*^9}, {3.5721936909943776`*^9, 3.572193697218788*^9}, { 3.5721937395728626`*^9, 3.57219374339487*^9}, {3.5721937963725624`*^9, 3.5721938223154078`*^9}, {3.572193859786674*^9, 3.572193861533877*^9}, 3.5723554650270557`*^9, {3.5723567325136824`*^9, 3.5723567701565485`*^9}, 3.572621740954589*^9}], Cell[BoxData["74"], "Output", CellChangeTimes->{ 3.572874986878467*^9, 3.572875243592518*^9, 3.5728753817307606`*^9, 3.572875477000128*^9, {3.5728755901783266`*^9, 3.572875619038378*^9}, 3.572875652266436*^9, 3.5728756894725013`*^9, 3.5730241009076867`*^9, 3.5800562592930827`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "0.0"}], ";", " ", RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}, { 3.570457123841494*^9, 3.5704571330923104`*^9}, {3.570457176959587*^9, 3.570457191296013*^9}, {3.570463789649801*^9, 3.570463797637015*^9}, { 3.5704639300032473`*^9, 3.5704639472412777`*^9}, {3.570464099403945*^9, 3.5704641196371803`*^9}, {3.570464183737693*^9, 3.5704641855628963`*^9}, { 3.570855532092019*^9, 3.5708555433240385`*^9}}], Cell[BoxData["1235.8117647991419`"], "Output", CellChangeTimes->{ 3.5728749868940673`*^9, 3.572875243608118*^9, 3.572875381746361*^9, 3.572875477015728*^9, {3.572875590193927*^9, 3.5728756190539775`*^9}, 3.572875652282036*^9, 3.572875689503701*^9, 3.573024100923287*^9, 3.580056259314084*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nb", "+", "bc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"nb", "+", "bc", "+", "nj", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "nj"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"rpo", "+", "rpi"}], ")"}]}]}]}]}]}], RowBox[{"(*", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"i", "+", "nj"}]}], "]"}], "]"}], "*)"}], "]"}], ";"}], "\[IndentingNewLine]", "Vee", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.571840548723463*^9, 3.571840579798718*^9}, { 3.5718477253093*^9, 3.5718477304573092`*^9}, {3.572620810756155*^9, 3.5726208298349886`*^9}, {3.5726208600522413`*^9, 3.5726208972739067`*^9}, { 3.57279778559276*^9, 3.57279781975682*^9}}], Cell[BoxData["1234.7403362277125`"], "Output", CellChangeTimes->{ 3.572874986909667*^9, 3.5728752436237183`*^9, 3.572875381761961*^9, 3.572875477015728*^9, {3.572875590209527*^9, 3.5728756190695777`*^9}, 3.572875652297636*^9, 3.572875689503701*^9, 3.5730241009388866`*^9, 3.5800562593240843`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.3553"}], ";"}], " ", 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.3553"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.572795632149378*^9, 3.5727956355657835`*^9}, { 3.5728738759937162`*^9, 3.572873909440175*^9}, {3.5728752341233015`*^9, 3.572875237976508*^9}, {3.5728755831427145`*^9, 3.572875644357222*^9}, { 3.572875681594487*^9, 3.5728756838096914`*^9}}], Cell[BoxData["1332.9862541127252`"], "Output", CellChangeTimes->{ 3.572874986925267*^9, 3.5728752436237183`*^9, 3.5728753817775607`*^9, 3.572875477031328*^9, {3.572875590209527*^9, 3.5728756190695777`*^9}, 3.572875652297636*^9, 3.572875689503701*^9, 3.573024100954487*^9, 3.580056259333085*^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[{"-", "2513.863419847652`"}]], "Output", CellChangeTimes->{ 3.572874986925267*^9, 3.5728752436393185`*^9, 3.572875381793161*^9, 3.5728754770469284`*^9, {3.572875590225127*^9, 3.5728756190851774`*^9}, 3.572875652313236*^9, 3.5728756895193014`*^9, 3.573024100954487*^9, 3.5800562593430853`*^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[{"-", "3640.9562906291285`"}]], "Output", CellChangeTimes->{ 3.5728749869408674`*^9, 3.572875243654918*^9, 3.572875381793161*^9, 3.572875477062528*^9, {3.572875590225127*^9, 3.5728756190851774`*^9}, 3.572875652313236*^9, 3.5728756895349016`*^9, 3.573024100970087*^9, 3.5800562593550863`*^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[{"-", "3678.025058329737`"}]], "Output", CellChangeTimes->{ 3.5728749869564676`*^9, 3.572875243654918*^9, 3.5728753818087606`*^9, 3.572875477078128*^9, {3.572875590240727*^9, 3.5728756191007776`*^9}, 3.572875652328836*^9, 3.5728756895349016`*^9, 3.5730241009856873`*^9, 3.580056259364087*^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["1094.160016538595`"], "Output", CellChangeTimes->{ 3.5728749869564676`*^9, 3.5728752436705184`*^9, 3.5728753818087606`*^9, 3.572875477078128*^9, {3.5728755902563267`*^9, 3.5728756191007776`*^9}, 3.572875652328836*^9, 3.5728756895505013`*^9, 3.573024101001287*^9, 3.5800562593750877`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ratio", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", RowBox[{"2", "*", "Vnn"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"Vee", "-", "Vnn"}], ")"}]}]}]], "Input"], Cell[BoxData["6.237610408237295`"], "Output", CellChangeTimes->{3.580056259384088*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.296", "*", "nj", "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"rpi", "^", "2"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", RowBox[{"Ttot", "+", "Tpi"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 3.57184067742369*^9}], Cell[BoxData["1332.9862541127252`"], "Output", CellChangeTimes->{ 3.5728749869720674`*^9, 3.5728752436705184`*^9, 3.572875381824361*^9, 3.572875477093728*^9, {3.5728755902563267`*^9, 3.572875619116378*^9}, 3.5728756523444357`*^9, 3.5728756895505013`*^9, 3.5730241010168867`*^9, 3.5800562593940887`*^9}], Cell[BoxData["1094.160016538595`"], "Output", CellChangeTimes->{ 3.5728749869720674`*^9, 3.5728752436705184`*^9, 3.572875381824361*^9, 3.572875477093728*^9, {3.5728755902563267`*^9, 3.572875619116378*^9}, 3.5728756523444357`*^9, 3.5728756895505013`*^9, 3.5730241010168867`*^9, 3.5800562593950887`*^9}], Cell[BoxData[ RowBox[{"-", "3678.025058329737`"}]], "Output", CellChangeTimes->{ 3.5728749869720674`*^9, 3.5728752436705184`*^9, 3.572875381824361*^9, 3.572875477093728*^9, {3.5728755902563267`*^9, 3.572875619116378*^9}, 3.5728756523444357`*^9, 3.5728756895505013`*^9, 3.5730241010168867`*^9, 3.5800562593960886`*^9}], Cell[BoxData["15.814285714285718`"], "Output", CellChangeTimes->{ 3.5728749869720674`*^9, 3.5728752436705184`*^9, 3.572875381824361*^9, 3.572875477093728*^9, {3.5728755902563267`*^9, 3.572875619116378*^9}, 3.5728756523444357`*^9, 3.5728756895505013`*^9, 3.5730241010168867`*^9, 3.580056259397089*^9}], Cell[BoxData[ RowBox[{"-", "1250.8787876784165`"}]], "Output", CellChangeTimes->{ 3.5728749869720674`*^9, 3.5728752436705184`*^9, 3.572875381824361*^9, 3.572875477093728*^9, {3.5728755902563267`*^9, 3.572875619116378*^9}, 3.5728756523444357`*^9, 3.5728756895505013`*^9, 3.5730241010168867`*^9, 3.5800562593980885`*^9}], Cell[BoxData["625.1445688521676`"], "Output", CellChangeTimes->{ 3.5728749869720674`*^9, 3.5728752436705184`*^9, 3.572875381824361*^9, 3.572875477093728*^9, {3.5728755902563267`*^9, 3.572875619116378*^9}, 3.5728756523444357`*^9, 3.5728756895505013`*^9, 3.5730241010168867`*^9, 3.5800562593980885`*^9}], Cell[BoxData["2.0009432217817458`"], "Output", CellChangeTimes->{ 3.5728749869720674`*^9, 3.5728752436705184`*^9, 3.572875381824361*^9, 3.572875477093728*^9, {3.5728755902563267`*^9, 3.572875619116378*^9}, 3.5728756523444357`*^9, 3.5728756895505013`*^9, 3.5730241010168867`*^9, 3.580056259399089*^9}], Cell[BoxData[ RowBox[{"-", "625.7342188262489`"}]], "Output", CellChangeTimes->{ 3.5728749869720674`*^9, 3.5728752436705184`*^9, 3.572875381824361*^9, 3.572875477093728*^9, {3.5728755902563267`*^9, 3.572875619116378*^9}, 3.5728756523444357`*^9, 3.5728756895505013`*^9, 3.5730241010168867`*^9, 3.580056259400089*^9}] }, Open ]] }, WindowSize->{1452, 829}, WindowMargins->{{Automatic, 219}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 1683, 30, 52, "Input"], Cell[CellGroupData[{ Cell[2265, 54, 662, 12, 31, "Input"], Cell[2930, 68, 4099, 72, 294, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7066, 145, 522, 12, 72, "Input"], Cell[7591, 159, 3961, 101, 506, "Output"], Cell[11555, 262, 927, 15, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12519, 282, 955, 14, 31, "Input"], Cell[13477, 298, 296, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13810, 308, 1560, 29, 31, "Input"], Cell[15373, 339, 925, 15, 31, "Output"] }, Open ]], Cell[16313, 357, 1419, 23, 31, "Input"], Cell[17735, 382, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[19352, 415, 1234, 18, 31, "Input"], Cell[20589, 435, 2487, 71, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23113, 511, 697, 14, 31, "Input"], Cell[23813, 527, 682, 12, 31, "Output"] }, Open ]], Cell[24510, 542, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[25443, 570, 5735, 123, 52, "Input"], Cell[31181, 695, 813, 14, 52, "Output"], Cell[31997, 711, 813, 14, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32847, 730, 519, 12, 31, "Input"], Cell[33369, 744, 931, 15, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34337, 764, 1401, 38, 31, "Input"], Cell[35741, 804, 725, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36503, 822, 827, 23, 92, "Input"], Cell[37333, 847, 296, 5, 31, "Output"], Cell[37632, 854, 298, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37967, 864, 284, 6, 52, "Input"], Cell[38254, 872, 309, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38600, 882, 2027, 38, 92, "Input"], Cell[40630, 922, 308, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40975, 932, 5128, 126, 212, "Input"], Cell[46106, 1060, 7711, 129, 746, "Output"], Cell[53820, 1191, 24930, 606, 443, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78787, 1802, 2100, 42, 72, "Input"], Cell[80890, 1846, 25672, 375, 521, "Output"] }, Open ]], Cell[106577, 2224, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[107933, 2264, 4925, 87, 72, "Input"], Cell[112861, 2353, 8137, 129, 521, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[121035, 2487, 2570, 53, 132, "Input"], Cell[123608, 2542, 297, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[123942, 2552, 2598, 53, 92, "Input"], Cell[126543, 2607, 490, 10, 31, "Output"] }, Open ]], Cell[127048, 2620, 9726, 201, 232, "Input"], Cell[CellGroupData[{ Cell[136799, 2825, 1947, 43, 72, "Input"], Cell[138749, 2870, 311, 6, 31, "Output"], Cell[139063, 2878, 698, 14, 21, "Message"], Cell[139764, 2894, 442, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[140243, 2909, 570, 14, 52, "Input"], Cell[140816, 2925, 786, 14, 52, "Output"], Cell[141605, 2941, 365, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[142007, 2953, 2767, 54, 72, "Input"], Cell[144777, 3009, 757, 14, 31, "Output"], Cell[145537, 3025, 364, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[145938, 3037, 3698, 81, 112, "Input"], Cell[149639, 3120, 855, 15, 52, "Output"] }, Open ]], Cell[150509, 3138, 2072, 49, 112, "Input"], Cell[152584, 3189, 561, 12, 52, "Input"], Cell[153148, 3203, 2148, 49, 92, "Input"], Cell[155299, 3254, 2452, 56, 92, "Input"], Cell[157754, 3312, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[159538, 3357, 923, 20, 31, "Input"], Cell[160464, 3379, 314, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[160815, 3389, 711, 18, 31, "Input"], Cell[161529, 3409, 314, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[161880, 3419, 507, 10, 31, "Input"], Cell[162390, 3431, 314, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[162741, 3441, 823, 23, 31, "Input"], Cell[163567, 3466, 321, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[163925, 3476, 204, 4, 31, "Input"], Cell[164132, 3482, 317, 5, 31, "Output"] }, Open ]], Cell[164464, 3490, 1975, 34, 72, "Input"], Cell[CellGroupData[{ Cell[166464, 3528, 4534, 109, 212, "Input"], Cell[171001, 3639, 458, 9, 31, "Output"], Cell[171462, 3650, 3555, 118, 506, "Output"] }, Open ]], Cell[175032, 3771, 8797, 140, 152, "Input"], Cell[183832, 3913, 11359, 295, 1352, "Input"], Cell[195194, 4210, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[198292, 4272, 939, 17, 72, "Input"], Cell[199234, 4291, 3307, 76, 112, "Output"], Cell[202544, 4369, 289, 5, 31, "Output"], Cell[202836, 4376, 292, 5, 31, "Output"] }, Open ]], Cell[203143, 4384, 10201, 233, 72, "Input"], Cell[213347, 4619, 6427, 103, 31, "Input"], Cell[219777, 4724, 10215, 234, 72, "Input"], Cell[229995, 4960, 5925, 93, 31, "Input"], Cell[235923, 5055, 9490, 146, 52, "Input"], Cell[CellGroupData[{ Cell[245438, 5205, 15480, 296, 232, "Input"], Cell[260921, 5503, 131743, 2238, 375, 20883, 419, "CachedBoxData", "BoxData", \ "Output"], Cell[392667, 7743, 40808, 674, 374, 11770, 197, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[433512, 8422, 4318, 96, 152, "Input"], Cell[437833, 8520, 298, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[438168, 8530, 2499, 47, 92, "Input"], Cell[440670, 8579, 298, 5, 31, "Output"] }, Open ]], Cell[440983, 8587, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[442849, 8620, 4159, 89, 172, "Input"], Cell[447011, 8711, 4883, 143, 1136, "Output"], Cell[451897, 8856, 292, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[452226, 8866, 4635, 86, 52, "Input"], Cell[456864, 8954, 2629, 81, 72, "Output"], Cell[459496, 9037, 1250, 20, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[460783, 9062, 4670, 80, 92, "Input"], Cell[465456, 9144, 296, 5, 31, "Output"] }, Open ]], Cell[465767, 9152, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[467655, 9183, 2963, 56, 112, "Input"], Cell[470621, 9241, 307, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[470965, 9251, 1373, 36, 92, "Input"], Cell[472341, 9289, 311, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[472689, 9299, 2788, 60, 112, "Input"], Cell[475480, 9361, 309, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[475826, 9371, 499, 15, 52, "Input"], Cell[476328, 9388, 329, 6, 31, "Output"] }, Open ]], Cell[476672, 9397, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[478078, 9422, 1709, 32, 52, "Input"], Cell[479790, 9456, 328, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[480155, 9467, 1415, 43, 72, "Input"], Cell[481573, 9512, 329, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[481939, 9523, 2550, 50, 92, "Input"], Cell[484492, 9575, 316, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[484845, 9585, 230, 8, 31, "Input"], Cell[485078, 9595, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[485202, 9601, 1891, 36, 192, "Input"], Cell[487096, 9639, 317, 5, 31, "Output"], Cell[487416, 9646, 316, 5, 31, "Output"], Cell[487735, 9653, 333, 6, 31, "Output"], Cell[488071, 9661, 315, 5, 31, "Output"], Cell[488389, 9668, 334, 6, 31, "Output"], Cell[488726, 9676, 316, 5, 31, "Output"], Cell[489045, 9683, 315, 5, 31, "Output"], Cell[489363, 9690, 331, 6, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)