(* 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[ 546962, 11157] NotebookOptionsPosition[ 539282, 10923] NotebookOutlinePosition[ 539782, 10943] CellTagsIndexPosition[ 539739, 10940] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "11", " ", "April", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";", " ", RowBox[{"sq3", "=", RowBox[{"Sqrt", "[", "3", "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9, {3.5719810762355733`*^9, 3.5719810786847773`*^9}, 3.5723256977094345`*^9, 3.572583124905918*^9, { 3.5727976670013523`*^9, 3.572797667157352*^9}, 3.5728672700652885`*^9, { 3.5732075583876934`*^9, 3.5732075588400946`*^9}, {3.573221345358634*^9, 3.57322135451585*^9}, {3.573369135900576*^9, 3.5733691365557775`*^9}, { 3.574682961367374*^9, 3.5746829644717793`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.570856547809803*^9, 3.5708565502590075`*^9}, 3.5708567094884872`*^9, 3.5709425310070767`*^9, 3.5730457924857635`*^9, 3.5746613722183495`*^9}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtUm1Ik1EUnl9hlmGiYhGmBjYZw0Ltg1BPaNmI0Fmsptva3rm9tqWbS01E 6EdIpcXQhD7E0lTsx5DQCNmPdWhDJWwKkhYhJFEgWRKWsR9R997Tgcu9nM/n ee7JklxVtmiFQpHNTgw7+dwmavBt62rOwZsa9L76pTTMHUADf/issLfjq3Yy IGHKWPlK289GMPk126OdpTiZwQJKO1bxh0WGhw+YNcr4vb2k0NSpA+HfacPm u+mxunA2jPevj0517QfdDvV4f14uJiwNuYscevg00hfKdOdj1jNPXXeiDsSc UBmI/jPV0FjEMhU1uKZlHtVl+Dyf/SESOAmqG2nvw9P/89trQeC+aAM7ty96 yt9wkf+aBQYXC9aPxCUTT6WW8OaaiO+0DG9mmQ1fQr9za2RgdB8KXYJ6uuea UOBI0uGmkinTYUShS3ERnlppSxlzmUHMOyaTv8cDgce785aHC4HDS9lio/63 ZeC0E0YbQPQttVP9RjMMM/dSUAY2XZ5wRKHIn21FpqZfs1ZKOP/KlL+tFRmL eF/seXw6dfrwreOHUMHNcAWDLM07LiOHkbEs0f/8MAMvK49yUjynBUKZTHC9 Buu6v7WXjOQj/1aVrCa+L60YWlDZdnmKcZHj/X0GxRgwgOC/aqb9eFdPfCok EPM/2kn3xCa435B8HV+rgcP2PpKQ0xvqlaGA9++qw6sVGWmO1DLqFzFjEheq N510WDDS/hgl2pNzbpCSLhx9PgPw5MSLjT8FZhD9Yu2kY4yD7j4L6b/pof8d rIWcs3FDPf4E0ifcgvG+PdW1MZWkj8WKxXxAfQuq+YJ26rDyzr2G5C4tivrU JoobLVQ/b8Z//FB4nw== "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[14, 24.], SphereBox[15, 24.], SphereBox[16, 24.], SphereBox[17, 24.], SphereBox[18, 24.], SphereBox[19, 24.], SphereBox[20, 24.], SphereBox[21, 24.]}, {RGBColor[0.4, 0.4, 0.4], 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.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.], SphereBox[2, 31.], SphereBox[3, 31.], SphereBox[4, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{25, 21}, 15.], CylinderBox[{28, 14}, 15.], CylinderBox[{29, 15}, 15.], CylinderBox[{30, 16}, 15.], CylinderBox[{31, 17}, 15.], CylinderBox[{32, 18}, 15.], CylinderBox[{33, 19}, 15.], CylinderBox[{34, 20}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{22, 5}, 15.], CylinderBox[{23, 12}, 15.], CylinderBox[{24, 11}, 15.], CylinderBox[{26, 11}, 15.], CylinderBox[{27, 12}, 15.], CylinderBox[{5, 6}, 15.], CylinderBox[{5, 7}, 15.], CylinderBox[{6, 8}, 15.], CylinderBox[{6, 11}, 15.], CylinderBox[{7, 9}, 15.], CylinderBox[{7, 28}, 15.], CylinderBox[{8, 10}, 15.], CylinderBox[{8, 29}, 15.], CylinderBox[{9, 10}, 15.], CylinderBox[{9, 30}, 15.], CylinderBox[{10, 31}, 15.], CylinderBox[{12, 13}, 15.], CylinderBox[{13, 32}, 15.], CylinderBox[{13, 33}, 15.], CylinderBox[{13, 34}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{1, 22}, 15.], CylinderBox[{1, 23}, 15.], CylinderBox[{2, 24}, 15.], CylinderBox[{2, 25}, 15.], CylinderBox[{3, 26}, 15.], CylinderBox[{4, 27}, 15.]}}]}, Boxed->False, ImageSize->282.44217559121745`, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.57536850843403*^9, 3.575368633015849*^9, 3.5753686751047225`*^9, 3.5753688273453903`*^9, 3.575369207252857*^9, 3.5753695278490205`*^9, 3.575369611933168*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t1", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}], ";"}], "\n", RowBox[{"MatrixForm", "[", "t1", "]"}]}], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, {3.5705590525489826`*^9, 3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}, 3.570855059411189*^9, 3.570856566545436*^9, 3.5709425310226765`*^9, 3.5730457924857635`*^9, 3.5746613722339497`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "2.093816408`"}], RowBox[{"-", "0.96496968464`"}], RowBox[{"-", "0.31766294059999994`"}]}, {"2.9740507787999997`", RowBox[{"-", "2.8338331096`"}], "5.428804852799999`"}, { RowBox[{"-", "0.7338939893599999`"}], RowBox[{"-", "3.3497283075999995`"}], "3.5349214555999997`"}, { RowBox[{"-", "3.544181113`"}], "1.70381475612`", RowBox[{"-", "3.1853221456`"}]}, {"0.17769093578`", "0.22247744198`", RowBox[{"-", "0.23797319517999999`"}]}, {"1.9210954515999998`", RowBox[{"-", "0.36732493988`"}], "1.66696509912`"}, {"0.7848976940999999`", "2.0244634637999996`", RowBox[{"-", "2.0410930526`"}]}, {"4.2586865136`", "0.8596741519199999`", "1.72195612572`"}, {"3.0970719413999994`", "3.2310535147999997`", RowBox[{"-", "1.9577561359999998`"}]}, {"4.8303286286`", "2.6452384548`", RowBox[{"-", "0.08513404602599998`"}]}, {"1.29688115928`", RowBox[{"-", "2.279954419`"}], "3.5948257697999995`"}, { RowBox[{"-", "3.8767728889999997`"}], RowBox[{"-", "0.185710932924`"}], RowBox[{"-", "1.947362643`"}]}, { RowBox[{"-", "6.291842717`"}], RowBox[{"-", "1.6678721676000001`"}], RowBox[{"-", "2.2315774334`"}]}, { RowBox[{"-", "0.5526503687`"}], "2.4848007174`", RowBox[{"-", "3.5122447436`"}]}, {"5.6156987542`", "0.40901229543999995`", "3.1783301593999997`"}, {"3.560243784`", "4.633986097199999`", RowBox[{"-", "3.3656020059999996`"}]}, {"6.6372846298`", "3.5927470712`", RowBox[{"-", "0.041141224745999995`"}]}, { RowBox[{"-", "7.498432768`"}], RowBox[{"-", "0.7529802219599999`"}], RowBox[{"-", "3.6278959747999995`"}]}, { RowBox[{"-", "7.2703428398`"}], RowBox[{"-", "1.73992741998`"}], RowBox[{"-", "0.42057741855999997`"}]}, { RowBox[{"-", "5.853426284999999`"}], RowBox[{"-", "3.5825425508`"}], RowBox[{"-", "2.8517855065999997`"}]}, {"2.5617125655999997`", RowBox[{"-", "4.082564050399999`"}], "6.6973779166`"} }, 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.57536850852763*^9, 3.575368633031449*^9, 3.5753686751203227`*^9, 3.57536882736099*^9, 3.5753692072684574`*^9, 3.57536952786462*^9, 3.5753696119487677`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, 3.5705592408949137`*^9, {3.5705593512807074`*^9, 3.5705593890483737`*^9}, { 3.570559442712468*^9, 3.5705594826641383`*^9}, 3.5708550837628317`*^9, 3.570856587480673*^9, 3.5709425310226765`*^9, 3.5730457925169635`*^9, 3.57466137224955*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.57536850854323*^9, 3.5753686330470486`*^9, 3.575368675135923*^9, 3.57536882736099*^9, 3.5753692072684574`*^9, 3.5753695278802204`*^9, 3.575369611964368*^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["21"], "Output", CellChangeTimes->{3.57536850854323*^9, 3.575368633062649*^9, 3.5753686751515226`*^9, 3.57536882737659*^9, 3.5753692072840576`*^9, 3.5753695278958206`*^9, 3.575369611979968*^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[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5753685085588303`*^9, 3.575368633078249*^9, 3.575368675167123*^9, 3.57536882739219*^9, 3.5753692072996573`*^9, 3.5753695278958206`*^9, 3.5753696119955683`*^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\"\>", ",", "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[{"\<\"O\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "21"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.57536850857443*^9, 3.5753686330938487`*^9, 3.575368675182723*^9, 3.57536882740779*^9, 3.575369207315257*^9, 3.5753695279114203`*^9, 3.5753696120111685`*^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[{ "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "1", ",", "2", ",", "3", ",", "4", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], "}"}]], "Output", CellChangeTimes->{3.57536850859003*^9, 3.575368633109449*^9, 3.575368675198323*^9, 3.5753688274233904`*^9, 3.5753692073308573`*^9, 3.57536952792702*^9, 3.5753696120267687`*^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.258", ",", 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.18048", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.48698"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}, {3.5727961392438684`*^9, 3.57279614016427*^9}, {3.572796215855603*^9, 3.5727962193812094`*^9}, { 3.5731452670909014`*^9, 3.573145275920517*^9}, {3.573366168242963*^9, 3.5733661753721757`*^9}, 3.573367679154417*^9, {3.5746744522844534`*^9, 3.574674453220455*^9}, 3.5746820022776895`*^9, {3.574682057033786*^9, 3.574682057704587*^9}, {3.574682089045042*^9, 3.574682170757985*^9}, 3.57468220769885*^9, {3.5746826561216383`*^9, 3.5746827960226836`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{3.57536850860563*^9, 3.575368633109449*^9, 3.5753686752139225`*^9, 3.57536882743899*^9, 3.5753692073464575`*^9, 3.5753695279426203`*^9, 3.5753696120423684`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.18048`", ",", "0.18048`", ",", "0.18048`", ",", "0.18048`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.57536850860563*^9, 3.575368633109449*^9, 3.5753686752139225`*^9, 3.57536882743899*^9, 3.5753692073464575`*^9, 3.5753695279426203`*^9, 3.5753696120423684`*^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\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.57536850862123*^9, 3.5753686331250486`*^9, 3.5753686752139225`*^9, 3.57536882743899*^9, 3.5753692073464575`*^9, 3.5753695279582205`*^9, 3.5753696120423684`*^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]", "\"\\""}], ",", "7.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}, 3.5733593979404716`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.57536850862123*^9, 3.575368633140649*^9, 3.5753686752295227`*^9, 3.57536882745459*^9, 3.5753692073620577`*^9, 3.5753695279738207`*^9, 3.575369612057968*^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["13"], "Output", CellChangeTimes->{3.5753685086368303`*^9, 3.575368633156249*^9, 3.575368675245123*^9, 3.57536882747019*^9, 3.575369207377658*^9, 3.5753695279738207`*^9, 3.5753696120735683`*^9}], Cell[BoxData["8"], "Output", CellChangeTimes->{3.5753685086368303`*^9, 3.575368633156249*^9, 3.575368675245123*^9, 3.57536882747019*^9, 3.575369207377658*^9, 3.5753695279738207`*^9, 3.5753696120735683`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5708566311295495`*^9, 3.5708566338907547`*^9}, 3.5709425310382767`*^9, 3.5730457925169635`*^9, 3.57466137224955*^9}], Cell[BoxData["\<\"(CH3CO2)C6H4CO2H\"\>"], "Output", CellChangeTimes->{3.5753685086524305`*^9, 3.5753686331718493`*^9, 3.575368675260723*^9, 3.5753688274857903`*^9, 3.575369207377658*^9, 3.575369527989421*^9, 3.5753696120891685`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[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[{ RowBox[{"(*", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, 3.5733691180073442`*^9}], Cell["(* Distance Matrix Bohr *)", "Text", 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}, 3.573368567997178*^9, { 3.5746565325286493`*^9, 3.574656552839885*^9}}], Cell[BoxData[{ 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[{ RowBox[{"(*", 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}, 3.573368567997178*^9, 3.5746565325286493`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, 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.0"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.24"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"Dij", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, { 3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, { 3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, { 3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 3.5682778284359474`*^9}, 3.56882183684053*^9, {3.5688219650415554`*^9, 3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, { 3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, { 3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, { 3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, { 3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, { 3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}, { 3.571113899355363*^9, 3.571113958604267*^9}, 3.57111399989754*^9, { 3.5711140388820086`*^9, 3.571114044841219*^9}, {3.571115985874628*^9, 3.5711159997742524`*^9}, {3.57313788224113*^9, 3.5731379093851776`*^9}, 3.573137959679666*^9}], 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"}, {"0.`", "2.648795209245119`", "2.6205142415958114`", "0", "0", "0", "0", "0", "0", "2.56439598090655`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.648795209245119`", "0.`", "0", "2.6406216611674673`", "0", "0", "2.78647479311946`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.6205142415958114`", "0", "0.`", "0", "2.6093973140780804`", "0", "0", "0", "0", "0", "0", "0", "0", "2.0408901257255825`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.6406216611674673`", "0", "0.`", "0", "2.603956504279978`", "0", "0", "0", "0", "0", "0", "0", "0", "2.04098105233772`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.6093973140780804`", "0", "0.`", "2.6180281740472`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0407787680719016`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.603956504279978`", "2.6180281740472`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0407836575073577`", "0", "0", "0", "0"}, {"0", "2.78647479311946`", "0", "0", "0", "0", "0.`", "0", "0", "0", "2.5462047862305086`", "2.2960950337309542`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0.`", "2.847831147869261`", "2.5381290619802077`", "0", "0", "2.2833020713645573`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.847831147869261`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "2.059755396261058`", "2.059702770660282`", "2.059813025061571`", "0"}, {"2.56439598090655`", "0", "0", "0", "0", "0", "0", "2.5381290619802077`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.5462047862305086`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.8271916655827711`"}, {"0", "0", "0", "0", "0", "0", "2.2960950337309542`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.2833020713645573`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.0408901257255825`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.04098105233772`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.0407787680719016`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.0407836575073577`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.059755396261058`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.059702770660282`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.059813025061571`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.8271916655827711`", "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.57536850869923*^9, 3.575368633218649*^9, 3.575368675307523*^9, 3.5753688275325904`*^9, 3.5753692074244576`*^9, 3.5753695280518208`*^9, 3.575369612135968*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, { 3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, { 3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, { 3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, { 3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, { 3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, { 3.5712028115629635`*^9, 3.5712028346354036`*^9}, {3.5746569418109684`*^9, 3.574656960905402*^9}}], 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.59"}], ",", 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}, {3.5733681085139713`*^9, 3.573368111025576*^9}, {3.5733681833629026`*^9, 3.573368184579705*^9}, { 3.573368233454591*^9, 3.573368234047392*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.18048`", ",", "0.18048`", ",", "0.18048`", ",", "0.18048`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.5241`"}], "}"}]], "Output", CellChangeTimes->{3.5753685087148304`*^9, 3.5753686332498493`*^9, 3.575368675338723*^9, 3.5753688275637903`*^9, 3.5753692074712577`*^9, 3.575369528098621*^9, 3.5753696121671686`*^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[CellGroupData[{ 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", "]"}], "*)"}], "\n", 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"}], "}"}]}], "]"}]}], "\n", 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"}], "}"}]}], "]"}]}], "\n", RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor"}]}], " ", RowBox[{"(*", " ", RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", RowBox[{"pairs", ":", " ", RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}], "\n", 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"}], "}"}]}], "]"}]}], "\n", RowBox[{"TvalC", "=", RowBox[{"Tval", "-", "TvalH"}]}]}]}]], "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}, 3.574657067547189*^9}], Cell[BoxData["39.57918281649276`"], "Output", CellChangeTimes->{3.5753685087460303`*^9, 3.5753686332810493`*^9, 3.575368675369923*^9, 3.5753688275949907`*^9, 3.5753692074868574`*^9, 3.5753695281142206`*^9, 3.5753696121983685`*^9}], Cell[BoxData["580.5206977068588`"], "Output", CellChangeTimes->{3.5753685087460303`*^9, 3.5753686332810493`*^9, 3.575368675369923*^9, 3.5753688275949907`*^9, 3.5753692074868574`*^9, 3.5753695281142206`*^9, 3.5753696121983685`*^9}], Cell[BoxData["620.0998805233515`"], "Output", CellChangeTimes->{3.5753685087460303`*^9, 3.5753686332810493`*^9, 3.575368675369923*^9, 3.5753688275949907`*^9, 3.5753692074868574`*^9, 3.5753695281142206`*^9, 3.5753696121983685`*^9}], Cell[BoxData["12.70739177734584`"], "Output", CellChangeTimes->{3.5753685087460303`*^9, 3.5753686332810493`*^9, 3.575368675369923*^9, 3.5753688275949907`*^9, 3.5753692074868574`*^9, 3.5753695281142206`*^9, 3.5753696121983685`*^9}], Cell[BoxData["26.87179103914692`"], "Output", CellChangeTimes->{3.5753685087460303`*^9, 3.5753686332810493`*^9, 3.575368675369923*^9, 3.5753688275949907`*^9, 3.5753692074868574`*^9, 3.5753695281142206`*^9, 3.5753696121983685`*^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, {3.574656664645282*^9, 3.5746566773749037`*^9}, { 3.574656980265036*^9, 3.5746569955686626`*^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", "]"}]}], "\n", RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.6"}], ")"}], " ", "&"}]}], "]"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CC", "]"}]}], " "}], "\n", 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.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, {3.574656664645282*^9, 3.5746566773749037`*^9}, { 3.574656980265036*^9, 3.5746569955686626`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.56439598090655`", ",", "2.5381290619802077`", ",", "2.5462047862305086`"}], "}"}]], "Output", CellChangeTimes->{3.57536850876163*^9, 3.575368633296649*^9, 3.575368675385523*^9, 3.5753688276105905`*^9, 3.5753692075024576`*^9, 3.575369528129821*^9, 3.5753696122139683`*^9}], Cell[BoxData[ RowBox[{"2.5495766097057553`", "\[PlusMinus]", "0.013454168596830069`"}]], "Output", CellChangeTimes->{3.57536850876163*^9, 3.575368633296649*^9, 3.575368675385523*^9, 3.5753688276105905`*^9, 3.5753692075024576`*^9, 3.575369528129821*^9, 3.5753696122139683`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.648795209245119`", ",", "2.6205142415958114`", ",", "2.6406216611674673`", ",", "2.6093973140780804`", ",", "2.603956504279978`", ",", "2.6180281740472`", ",", "2.78647479311946`", ",", "2.847831147869261`"}], "}"}]], "Output", CellChangeTimes->{3.57536850876163*^9, 3.575368633296649*^9, 3.575368675385523*^9, 3.5753688276105905`*^9, 3.5753692075024576`*^9, 3.575369528129821*^9, 3.5753696122139683`*^9}], Cell[BoxData[ RowBox[{"2.671952380675297`", "\[PlusMinus]", "0.0923168999010663`"}]], "Output", CellChangeTimes->{3.57536850876163*^9, 3.575368633296649*^9, 3.575368675385523*^9, 3.5753688276105905`*^9, 3.5753692075024576`*^9, 3.575369528129821*^9, 3.5753696122139683`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0408901257255825`", ",", "2.04098105233772`", ",", "2.0407787680719016`", ",", "2.0407836575073577`", ",", "2.059755396261058`", ",", "2.059702770660282`", ",", "2.059813025061571`", ",", "1.8271916655827711`"}], "}"}]], "Output", CellChangeTimes->{3.57536850876163*^9, 3.575368633296649*^9, 3.575368675385523*^9, 3.5753688276105905`*^9, 3.5753692075024576`*^9, 3.575369528129821*^9, 3.5753696122295685`*^9}], Cell[BoxData[ RowBox[{"2.0212370576510303`", "\[PlusMinus]", "0.07896202464676837`"}]], "Output", CellChangeTimes->{3.57536850876163*^9, 3.575368633296649*^9, 3.575368675385523*^9, 3.5753688276105905`*^9, 3.5753692075024576`*^9, 3.575369528129821*^9, 3.5753696122295685`*^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.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, {3.574656664645282*^9, 3.5746566836773148`*^9}, { 3.5746567220533824`*^9, 3.5746567296193953`*^9}}], Cell[BoxData["9"], "Output", CellChangeTimes->{3.5753685087928305`*^9, 3.575368633312249*^9, 3.575368675401123*^9, 3.57536882762619*^9, 3.575369207518058*^9, 3.575369528161021*^9, 3.5753696122295685`*^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.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, {3.574656664645282*^9, 3.5746566836773148`*^9}, { 3.5746567220533824`*^9, 3.5746567296193953`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "3"}], "}"}]], "Output", CellChangeTimes->{3.5753685087928305`*^9, 3.5753686333278494`*^9, 3.575368675401123*^9, 3.5753688276417904`*^9, 3.575369207533658*^9, 3.575369528161021*^9, 3.5753696122451687`*^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.259"}]}], "]"}]}], "]"}], "\[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.258"}]}], "]"}]}], "]"}], "\[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.2595"}]}], "]"}]}], "]"}], "\[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.2595"}]}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{ 3.574656734486604*^9, 3.5746567701950665`*^9, 3.574656840972391*^9, { 3.574674470271285*^9, 3.574674475481694*^9}, {3.574674526181783*^9, 3.574674528927388*^9}, {3.5746746901536713`*^9, 3.5746746947712793`*^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[{ RowBox[{ RowBox[{"conn", "[", RowBox[{"[", "10", "]"}], "]"}], "=", RowBox[{"{", RowBox[{"10", ",", "7", ",", "11", ",", "17"}], "}"}]}], ";"}], "*)"}], "\[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}, {3.5733216830258026`*^9, 3.573321731307887*^9}, 3.5746648213532076`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"}], "}"}]], "Output", CellChangeTimes->{3.575368508824031*^9, 3.575368633343449*^9, 3.5753686754323235`*^9, 3.5753688276573906`*^9, 3.5753692075492578`*^9, 3.575369528176621*^9, 3.575369612260769*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "4", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "1", ",", "5", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "2", ",", "6", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "3", ",", "6", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "4", ",", "5", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "2", ",", "11", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "9", ",", "10", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "8", ",", "18", ",", "19", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "1", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "7", ",", "21"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "11"}], "}"}]} }, 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.575368508824031*^9, 3.575368633343449*^9, 3.5753686754323235`*^9, 3.5753688276573906`*^9, 3.5753692075492578`*^9, 3.575369528176621*^9, 3.575369612260769*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpo", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"nj", "+", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"nj", "+", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"tplo", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"tplu", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";"}], "*)"}]}], "\[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, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}}], Cell["\<\ (*--------------------------------------------------------------------------*) (* next: \[Pi]-clouds for C,half occ each above and below *)\ \>", "Text", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, {3.574655628725462*^9, 3.5746556677099304`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", " ", "=", " ", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}]}], ";", " ", RowBox[{"c", " ", "=", " ", RowBox[{"Take", "[", RowBox[{"c", ",", " ", "P"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"v", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"x2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", " ", "\n", " ", 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"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 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"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T1", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T2", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T3", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"Chop", "[", RowBox[{"U", " ", ".", " ", "T"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"mk", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"ml", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"mk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], " ", "=", " ", "rpo"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"ml", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], " ", "=", " ", RowBox[{"-", "rpi"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"U1", " ", "=", " ", "mk"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U2", " ", "=", " ", "ml"}], ";", " ", "\[IndentingNewLine]", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"mk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ml", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", " ", "=", " ", "mk"}], ";", " ", "\n", " ", RowBox[{"U2", " ", "=", " ", "ml"}], ";", " ", "\[IndentingNewLine]", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"mk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ml", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", " ", "=", " ", "mk"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U2", " ", "=", " ", "ml"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"mk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ml", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"v", ",", " ", "v1", ",", " ", "v2"}], "]"}], ";", " ", "\n", " ", RowBox[{"v", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"mk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", RowBox[{"v2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"ml", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x2", ",", " ", "y2", ",", " ", "z2", ",", " ", "1"}], "}"}]}], "}"}]}], ";", " ", "\n", " ", RowBox[{"p", " ", "=", " ", RowBox[{"v", " ", ".", " ", "Q"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"mk", " ", "=", " ", RowBox[{"v1", " ", ".", " ", "Q"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ml", " ", "=", " ", RowBox[{"v2", " ", ".", " ", "Q"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", RowBox[{"mk", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"mk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ml", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"ml", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"mk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"ml", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], ",", " ", RowBox[{"{", RowBox[{"k", ",", " ", "nj"}], "}"}]}], "]"}], ";"}], " "}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, 3.5731486865617046`*^9, {3.5731490505259438`*^9, 3.573149068278775*^9}, { 3.573149110008848*^9, 3.573149243825884*^9}, {3.5731493138232064`*^9, 3.5731493450700617`*^9}, {3.574658310026972*^9, 3.5746585452285843`*^9}, { 3.574659591943223*^9, 3.5746596938582015`*^9}, {3.574664442038542*^9, 3.574664456640167*^9}}], Cell["\<\ (*-------------------------------------------------------------------------*) (* O12, O13 \[Pi] clouds; half occ above/below *) \ \>", "Text", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.573148680368494*^9}, {3.5746557104540057`*^9, 3.574655729111638*^9}, { 3.5746640930035286`*^9, 3.5746641230803814`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12", ",", "7", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "8", ",", "10"}], "}"}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, 3.573183074758076*^9, {3.573313757602282*^9, 3.573313827084804*^9}, { 3.573313870749281*^9, 3.5733138932289205`*^9}, {3.5733143087668505`*^9, 3.5733143094220514`*^9}, 3.574655698067584*^9, {3.574664136683605*^9, 3.5746641904412994`*^9}, 3.5746642515154066`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", " ", "=", " ", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"v", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"x2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"y2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\n", " ", RowBox[{"z2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", " ", RowBox[{"-", "y2"}], ",", " ", RowBox[{"-", "z2"}], ",", " ", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"v", " ", ".", " ", "Q"}]}], ";", " ", "\n", " ", RowBox[{"p", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T1", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T2", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T3", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"Chop", "[", RowBox[{"U", " ", ".", " ", "T"}], "]"}]}], ";", " ", "\[IndentingNewLine]", 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"}]}], ";", " ", "\[IndentingNewLine]", 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"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", " ", "=", " ", "nk"}], ";", " ", "\n", " ", RowBox[{"U2", " ", "=", " ", "nl"}], ";", " ", "\[IndentingNewLine]", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", " ", "=", " ", "nk"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U2", " ", "=", " ", "nl"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"v", ",", " ", "v1", ",", " ", "v2"}], "]"}], ";", " ", "\n", " ", 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"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", RowBox[{"v2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x2", ",", " ", "y2", ",", " ", "z2", ",", " ", "1"}], "}"}]}], "}"}]}], ";", " ", "\n", " ", 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"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", RowBox[{"nk", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", RowBox[{"nj", " ", "+", " ", "k"}], "]"}], "]"}], " ", "=", " ", RowBox[{"nk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", RowBox[{"nj", " ", "+", " ", "k"}], "]"}], "]"}], " ", "=", " ", RowBox[{"nl", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], ",", " ", RowBox[{"{", RowBox[{"k", ",", " ", "2"}], "}"}]}], "]"}], ";"}], " "}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, { 3.573183074758076*^9, 3.5731830995309196`*^9}, {3.573183400018647*^9, 3.573183403669054*^9}, {3.574657533005207*^9, 3.5746575357196116`*^9}, 3.57465758042929*^9, {3.5746576188989573`*^9, 3.574657656120623*^9}, { 3.574657805210085*^9, 3.5746580781325645`*^9}, {3.5746597562739115`*^9, 3.574659803885195*^9}, {3.574664210424935*^9, 3.574664211329736*^9}, { 3.5746646838389664`*^9, 3.574664694290984*^9}}], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O12,O13 in C=O, two doubly occ LP *)\ \>", "Text", CellChangeTimes->{{3.573213657265206*^9, 3.5732137071540937`*^9}, { 3.57331351711226*^9, 3.5733135247562733`*^9}, 3.5746557964101562`*^9, { 3.5746643799192324`*^9, 3.5746643831328382`*^9}, 3.5746732567499037`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "12", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "13", ",", "9"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"rlo", " ", "=", " ", "1.125"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plota", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "2"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plotc", "=", " ", "Plota"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Plotd", " ", "=", "Plota"}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plote", "=", " ", "Plota"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plotb0", " ", "=", "Plota"}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.5746625442640085`*^9}, {3.5746628828158026`*^9, 3.5746629097414503`*^9}, 3.574664223185757*^9, {3.5746695839262524`*^9, 3.574669588512661*^9}, { 3.5746696590715847`*^9, 3.574669659258785*^9}, {3.574682369907935*^9, 3.5746823705943365`*^9}, {3.574682413759612*^9, 3.574682423228829*^9}, { 3.574682475629321*^9, 3.57468248066813*^9}, 3.574682520073799*^9, { 3.575368742964842*^9, 3.5753687547896624`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", " ", "=", " ", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"a1", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"a2", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"d1", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", "\n", RowBox[{"\[Alpha]", " ", "=", " ", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a1", "^", "2"}], " ", "+", " ", RowBox[{"a2", "^", "2"}], " ", "-", " ", RowBox[{"d1", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a1", "*", "a2"}], ")"}]}], "]"}]}], ";", " ", "\n", RowBox[{"L", " ", "=", " ", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], " ", "+", " ", "rlo"}]}], ";", " ", "\n", RowBox[{"\[Beta]", " ", "=", " ", RowBox[{"ArcSin", "[", RowBox[{"rlo", "/", "L"}], "]"}]}], ";", " ", "\n", RowBox[{"\[Gamma]", " ", "=", " ", RowBox[{ RowBox[{"3", "*", RowBox[{"\[Pi]", "/", "2"}]}], " ", "-", " ", RowBox[{"\[Alpha]", "/", "2"}]}]}], ";", " ", "\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"}], "]"}], "]"}]}], ";", " ", "\n", RowBox[{"y2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\n", RowBox[{"z2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", " ", "\n", RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", " ", RowBox[{"-", "y2"}], ",", " ", RowBox[{"-", "z2"}], ",", " ", "1"}], "}"}]}], "}"}]}], ";", " ", "\n", RowBox[{"p", " ", "=", " ", RowBox[{"v", " ", ".", " ", "Q"}]}], ";", " ", "\n", 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"}], "}"}]}], "]"}]}], ";", " ", "\n", 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"}], ";", " ", "\n", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], ";", " ", "\n", 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"}], "}"}]}], "]"}]}], ";", " ", "\n", RowBox[{"p", " ", "=", " ", RowBox[{"Chop", "[", RowBox[{"U", " ", ".", " ", "T"}], "]"}]}], ";", " ", "\n", RowBox[{"nk", " ", "=", " ", "p"}], ";", " ", "\n", RowBox[{"nl", " ", "=", " ", "p"}], ";", " ", "\n", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"-", "L"}], ")"}], "*", RowBox[{"Cos", "[", RowBox[{"\[Gamma]", " ", "+", " ", "1.0472"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"L", "*", RowBox[{"Sin", "[", RowBox[{"\[Gamma]", " ", "+", " ", "1.0472"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], " ", "=", " ", "0"}], ";", " ", "\n", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"-", "L"}], ")"}], "*", RowBox[{"Cos", "[", RowBox[{"\[Gamma]", " ", "-", " ", "1.0472"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"L", "*", RowBox[{"Sin", "[", RowBox[{"\[Gamma]", " ", "-", " ", "1.0472"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], " ", "=", " ", "0"}], ";", " ", "\n", " ", RowBox[{ RowBox[{"Plota", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"Plotc", " ", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", " ", "0.02"}], "]"}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", RowBox[{"P", " ", "-", " ", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", RowBox[{"i", " ", "+", " ", "1"}], ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "k", "]"}], "]"}], " ", " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Lighter", "[", "Red", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"Plote", "[", RowBox[{"[", "k", "]"}], "]"}], " ", " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Lighter", "[", "Red", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"Plotb0", "[", RowBox[{"[", "k", "]"}], "]"}], " ", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", RowBox[{"U1", " ", "=", " ", "nk"}], ";", " ", "\n", RowBox[{"U2", " ", "=", " ", "nl"}], ";", " ", "\n", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\n", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\n", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\n", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\n", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", RowBox[{"U1", " ", "=", " ", "nk"}], ";", " ", "\n", RowBox[{"U2", " ", "=", " ", "nl"}], ";", " ", "\n", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], ";", " ", "\n", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\n", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\n", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\n", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", RowBox[{"U1", " ", "=", " ", "nk"}], ";", " ", "\n", RowBox[{"U2", " ", "=", " ", "nl"}], ";", " ", "\n", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\n", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\n", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\n", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\n", RowBox[{"Clear", "[", RowBox[{"v", ",", " ", "v1", ",", " ", "v2"}], "]"}], ";", " ", "\n", RowBox[{"v", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\n", RowBox[{"v1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\n", 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"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x2", ",", " ", "y2", ",", " ", "z2", ",", " ", "1"}], "}"}]}], "}"}]}], ";", " ", "\n", RowBox[{"p", " ", "=", " ", RowBox[{"v", " ", ".", " ", "Q"}]}], ";", " ", "\n", RowBox[{"nk", " ", "=", " ", RowBox[{"v1", " ", ".", " ", "Q"}]}], ";", " ", "\n", RowBox[{"nl", " ", "=", " ", RowBox[{"v2", " ", ".", " ", "Q"}]}], ";", " ", "\n", RowBox[{"p", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\n", RowBox[{"nk", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\n", RowBox[{"nl", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\n", RowBox[{ RowBox[{"tplo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", " ", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", " ", "\n", RowBox[{ RowBox[{"tplu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", " ", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "2"}], "}"}]}], "]"}], ";"}], " "}]], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.574662530957185*^9}, {3.57466257958247*^9, 3.574662598115303*^9}, { 3.574662628457356*^9, 3.574662634525767*^9}, {3.574662668783427*^9, 3.574662705069091*^9}, {3.574662754053177*^9, 3.57466279008924*^9}, 3.57466293250189*^9, {3.574662992858396*^9, 3.574663053807703*^9}, { 3.5746645474167266`*^9, 3.5746645481187277`*^9}, {3.574664974841877*^9, 3.5746649970095162`*^9}, {3.574669718180088*^9, 3.5746697769141912`*^9}, { 3.5746825528806562`*^9, 3.574682567201482*^9}, {3.575368782276911*^9, 3.5753688174081726`*^9}, {3.5753691835408154`*^9, 3.575369193930434*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Plote", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plota", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotb0", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Axes", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"AxesLabel", " ", "->", " ", RowBox[{"{", RowBox[{"xl", ",", " ", "yl", ",", " ", "zl"}], "}"}]}], ",", " ", "\n", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", " ", "->", " ", "True"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.574662530957185*^9}, {3.57466257958247*^9, 3.574662598115303*^9}, { 3.574662628457356*^9, 3.574662634525767*^9}, {3.574662668783427*^9, 3.574662705069091*^9}, {3.574662754053177*^9, 3.57466279008924*^9}, 3.57466293250189*^9, {3.574662992858396*^9, 3.574663053807703*^9}, { 3.5746645474167266`*^9, 3.5746645481187277`*^9}, {3.574664974841877*^9, 3.5746649970095162`*^9}, {3.574669718180088*^9, 3.5746697769141912`*^9}, { 3.5746825528806562`*^9, 3.574682567201482*^9}, {3.575368782276911*^9, 3.5753688174081726`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.9367621903545529, -0.9092604847468851, 0}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.3190553834351018, 1.2658916591482385`, 0}, 1.125]}, {Opacity[0.5], SphereBox[{2.2960950337309542`, 0, 0}, 0.258]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.18048]}, {Opacity[0.5], SphereBox[{3.5692534348418805`, -2.2050456909333684`, 0}, 0.18048]}, Text3DBox["7", {2.2960950337309542`, 0, 0}, {1, 0}], Text3DBox["12", {0, 0, 0}, {1, 0}], Text3DBox["11", {3.5692534348418805`, -2.2050456909333684`, 0}, {1, 0}], TubeBox[{{2.2960950337309542`, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{2.2960950337309542`, 0, 0}, { 3.5692534348418805`, -2.2050456909333684`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {3.5692534348418805`, -2.2050456909333684`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzVnAdUXdeZ7/8Dku04iVvikjjJOHnz0ua9ybyXOPPyJpkkthP3FNuRrWIV EFWooQ5IliwXOtx+uZeOeu+yCupCXQguoglE7whRhTrz3/vsczkgpCRrvTVr Pdb6br/nfPt3vv3tr+zL21PmBgdMnzI3xH/KC6+GT5kVHOI/54XfzwznS77/ AGAHJfMFiMcDfKhudmBgYEC8+V9794m888X169flIyH/U3trmbwbLd9qaWlB TEwMXn31VSxbtgxfEe+NEop/R/vwR/LuEfnhw4cPY8yYMfLDeXl52Lp1q/gk 8vPzv6JOJ4c8IEeuH2HcsEN+5Z5j7dq1C729vfLdrq4u+byhoUEqxNdHeQ8w athZhHxbO8v4ERR4Xj566J6BivPy/A+rrwhV/P39lXL3nuFb2gEnjPDWc/eh QyJyRGI0Z86ceUh+bBRqamrkR+4DzXCyX4o7H/mOr3c82jP+fWOEL37dMNgR 4H5ZXXShka6Z4kv9NfWMhxu8fr8agazPfVkMfe1Jg1KCiX4FlFJPqq+Ip/oV eMQ78n/UTvcfSnPjcXU9nh1Zc+NpV65cKVksXLhQv/BPqiMaMYl7oeGP/r5B P+PV9nH5/Et/1bjFY10/k8kkbUJ/T12QH95jA6OH2ID++PvDLvkwut80uADx liCsDv3SCEP53n2gCQV5tG8p1E6nU55AAfuBdsDfenX9rnzh4RE5CIchDvmC Or3RCLXBYMqDx+SrvqkTFfIdwzwWZxPjVEeb9OAxfV+NSb9GakxfFS9LOE8b p/69c0v80bE86/28j/cR9ck7Xor8o2UoPFBGu9B0FG5IH/FX7zuLMfZvMCYx HvF8pHnnoy6C+HOZt2KTeRdyk/bgSOIXOPzJNnRWtUJ3f/qxBbbRD3S1Srl/ 817r7xhWkuF49QMoFyifPftXVN1sP45jrgsoyClCyWoPPCvOoMC2U6k6yjt0 dZ1G8p9Kx5+P7Bi++WAnqdnlV+9xNZ6THvnaXtdlnF/bjEvb2lGzuw3luxrg 2ZCPloJir47i0OvXr5c4vX7379Hx2b9hAn3vPooWnbgkX9uXfRUF227i/JZb qD98C5WHeuHZcxkt5dVeRUtLS73HpLJ/v6JPq6svbFpc/RkzZniv/kjz9H50 i45WyNe+WNWNFDMHfeIOao5fQ+WxbniO1qClqhqPGoxVuOmhK8UzD9TzqQdf 9B94D+M76HAfxoKoTnyxvRP7jnWh5FgbLp5oxIUTpejquKIWzNHeoEKMXF1v POY9yBMP1Orx+2gl7nlp/lVZgTW2CnZrHayJHuzY24jjhypxOK8cnV19yqmM lqfXIw49mHlihMv51eHz9zHF0TgO/Qoa1qufKF0+/6gIBypvoaG6Fw53K8wr S3Cxsh0tHX1eZyaGI/6EPo+PMHLdP2q645UHX5ufqrc/jTyGveWDJrPl5AD6 b17XTyD0Ft9QnvWxoVd0GIVHDCvWsDOLP2HJPMaL6psfz9+JnR6jq6JjrxrU ROdsDCK/+rec/9cKqpG9OLdgL+73798PXYn1q0qx+cyAeqbdLo8p9x5S5zAs vnzIq8eokW1wpIhGqffL+1wYZWf/R32zqOgW1hy+ow6vvWZdc2uYZiOHnQ9S ymfoI0MQLO6V8fziwcbzf5U+nvP9yN51U2miiB7t8p5Tj0LFYfT44T66fen+ wP5NKWNMNHSb5P2/68qc7Uba+j71Ye21U7UDw5QZJcdjCLN8R9Zn0AVqDhJf E3fyY1pe9Oh9UxN9fovXaTe/0PU7046U7M4h+q1JqcHlHuOSMDSQ8RlZObV6 fH0YM/H3V9bhX3uVacByWzM6+m94w5U1W+/g6q2hyhhDmAcr81Uvn5ECnGcM ag3PjBn3/tarVgWiEmpw5aZ+9ZnC5A/gRm+zQa17wpVBc1Zh5TMjqPA1ZVMP umy8XL/xqlKKecvL0H5jwGucmVvLvIf7urJ6Yzitr1TP3V+LJx58fX6nvuJa fwet/QOGOemLmKSGe84ufJue66hwQz/710a+XMbV0XglxB+fv6pOZkm/gZa+ AWXq2msp2+56j6QHnMZV6VmDWQ5ZBe+HXGjM+9+rYyWZOtHYrR1fD5p20cUM Pec9i5KKUb77YLJvqAPGRzeivmPoSTxnLuNCs/aantsZM2dlVd8ZAZ34Ews7 z/CWfp0+Lkdtm3Y0PZBek9qKenU9v6GGISgYEmTpQKWxqGhCywsfvicHEN8T RRyBQT/n50vO4kC55vz0gGHt3gH03r5jGNWo4SuF7rSNNqKprLS8L84/qm9+ ErEXe8u0bz6mXtt/cQC3r2vLwPMGnPoS8ICzPjPsrDpicc+z/ll9c9m87d7Y 4XH12upd9d6jPa+GW1FRYUw/R/JMw06sn1BMKL1Sxm9+Q83EomMnUUzZHG3C DsoXlFzKIcpRynGKD07w1hclqzaikZ9toPxInfliyR1sOn3X4Ap8kWjv8Gqj 1wKG5TojRTtK8afVW8Ig9eujRx/GDPFpBUuM4CA1W08dxSh2UvZSDlCOUPIo pyhnKecpFyiFFI8cWZEcmXheyWP01NThv+tzqPAmVh+8LZ/p637Wnpv3jEwv Qypv9TeMTNi7Ps2eU8dv4Zkzoz7FOmqyibLNcC0Oq+sgRnHOMIKLlBJKGeWS HE0Fb0ejkrfiUTmllqPq5bG/p4/qXB+yd2iF3qfUa/vONXtV/Y7heulucKj3 M0QSw8eqRWLeNzSPIKpAwqOT0TNq3frClYU1VG6tGqwwvD3qkgmjE+Z2hpJv GGipGpAY2GVKtRhcjBh0XYwYdD2fi0e16v06DlwvHnnOXEXaup4hg/acaUbx FeOgRw9xCXrEolIzPRUetvg8rFya8eX09PQhFRhtaXsG9RdLkc1LPHzkwlgP qpGfVIZ6QRlosbq8YtRVlBqOsC7WhAZKE6U51jQKLXwwSjxEA9/2RHyGazV1 3/aOswXOrCuKvHLeWd1ouTF07Mb0W18q1NiH1ZUHA+778XhoyMvCzIVrpwfS UDxHFCVwB86UKITFb6RsV0YwEooiZenlHF8lpdqIIc6EFkpbvAntlCvxRNKR IJCIp62Uen6sv6bueS+SanxsqZPP9LhwwxGRJl6Tz14YeT17/G+whIeGvyxr J2T7NbVqiZGnjPfHysWfeUdunOtHo800fzNHbubIzTQCM0du5sjNuEypiTWj Ls6MxngzmimtCWa0UzoSzbiaaEIXpTvJ5IueJDEruvm0k3KFPCp5yiueUm9L QASEkXEV6Lg54HVNRysG8wvdZRgTscceyGD0iJ5BIBycef+EBiJwjfdDZtBM OQ8Egq2UXRzmfsphSl60Bacp+dFWIrCiOMaK8lgrKik1cVbUxVuJwIqWBCva Eq24kmjB1SQLuig9yWb0Uvoo15JNuEbn008Rj/sovZRO0imaFSF46EXRucu0 2NhoFceOlmHjvnb57L+p14Q531sEHf3XwQxzE0LEGieOI6Khr6mF3jVuCjJo ISvCI6SFbCaOHZS9xHGQKI5RTkXbuBLYUBBtx8UYO8pi7aiIs6M63o66BDsa KS2JdrQn2dFB6Uy2odtkQy/lmsmKfrMV180WzuIbZrMPbpqFrdzg7XWzxqub jHLf8fdGxc41t9Gmwr2n1GDqa1uwdVMeMk3bsTFxO6yZ17Bj2XaccB1XtnNP XjM8UDKQG1xVHvY+UpmXPg95/5SaoDuWRxOSH7In+GNVeCQ2ENA2AvqCcHIJ 5gjBnKCciXHgAqUo1oHSWCcuxTlRFe9EbYITDYlONCc50ZbsRAel0+QgJAf6 zA5cszhw3WLHDcotq41ixW0pFgqR3bYKB3PTQmSUE2OmIn9JjD6LTK5r3lzj KRVoib9M2xasse/EF5Y9OGbej9X7r+CcbS9OJ+9CycqjXmp6cUYFSyOFlxoZ r6HqIYUwpCeVITVynqWPm4xsYUwTArA6KJxrjpXGZKMx2WlMDoYVThqTE+dj nCiMTUFxXArK41NQmZCCmkQX6pNcaKK0JrtwxZSCTnMKuim9lhT0W1Nw3erE TQqB2BxMP+7Y7Lhjt+GuFCvFQjHjrs3ETzB8GTsVeWP8cbWoxLsaJSa0e7Mk 7bVH5VjW2Pdhl+0E8hznUZBeiGNuD8pXXkBJzmkUunNRtnbvdw0xmKGk+dAI wHwNE/S+BbchwYtYx0VQJ5iSr7YY/iNSx04i0ilEOhWrJwRh3YQQui87dhNn LlEeiU6h6aXQ9Fy4EOtCUZwLpfFuVCS4UZXoRl2SG43JbrSY3Gg3u3GV0m1x o9fqxjWrC9dtLtyk3LKnEGUK7jqEOCkOseo67GIMDhvFSjFjwG5CwfipROuP omUx3gAn/rMab174dYV1jWW7HG+u4xLOZ9dg25LTuLitEbVb63BpSyU86/Lh ydqmuzo9dxDWNZIRKqZ6z3qY03tgJXGU14+qMOlxFY2c3bAJmbTaFbTaVRMC Jd6NE6Zhe/AChgcptFoXjhHtqVg3zlEK4lJRHJ+K8sRUVCaloiY5DfWUZlMa 2sxp6LCkocuahh7KNVsqrttTcZNyy+HGbcodpxsDThe1cqaIwkCKk+Kg2Cmk 7CRlpwWeDwNI2R+nx/qh82KJnurELPOgptUI+cvwHDuHNUmH5bgPpbegYF0n MiMvo+ZwHxr2dqNyTyuKdlyCZ8thtag85E2B9XV2CKv/Z9C1A6nUE7pB717+ OXLG+WHV+ACsmRCM9RNCsXlCGHZ+OAP7FidzPXYjLyYVp2NTkR+XBk9CGkoS 03ApKR1VyemoNaWj0ZyOFks62ilXrenotqWj156OfsoNRxppp+G2M42003A3 JZVohbiFXi6XKAi5UihE7yJ6FxevxR/BMymI2OlY6ecv0t/refFni48gv0ZL zJ5WzAsPn8ea2BNyfOYF1XBHt+P05luozb2BhoPXUHngKor218Cz74RiPmpI IYBOY7DmpqHVLP7hBwS7RqiqTayU/BadbzGyxk7GynH0EuODsJZQNxLq1gnT sXvCTOR+OBtHljDWi03D2bh0XEhIR1FiBkqTMlCRnIFqUwbqzRlosmSizZqJ K7ZMdFJ67Bm45sjAdcpNZwbupAhJ98FdV7rQ2JWGAXeqElq22yXUdKfQafQm xMPjFwrP5GB4Jgag8EN/nB0/GVepql5iWb5oO/aWDhjYfgV73BrXZX4XYItr k4/PbelE6Z4uXD7YSbvuQMWRNtp9Da/DcQ3vaG9Ry1Cu0Kvxw/2zBtPreh+5 J4jWYyXxR7/xhAqm8zdsRs7YKVg1LpCQQwh5GjYR8HYC3vPhLByYOBtHJ83B yaVWnEvIQGFiJoqTMlGenInLpizUmLPQYMlCszUL7bYsdNiz0EXpdWSh35mF G85M3ErJFHAzefnvujOIkpKaLoRcU9OEy0gj6zQ3+pKSUDx1Oor8w+CZEkLO tN9JU3Hhwymo27hZr5xtWFOGnYXG5W40DmTkY0NqGbav7kBRzYABz8M4tqkR +bubUJzbhLLD9biYV43Ck+VorK1XtQotYDDUax8xYB55Z9D9Mespu3fF+ybS P/gQK7m6rB4XhDXjQ7F2fBgdxAzsmDALe2nHByeG49ikuTg1eR7OT18KT1IW SpKzcMmUjSpzNmot2Wi0ZqPFlo12ezauOrLR7cxGH6U/JRs3Xdm47comZneW 0C01i5JJppnCdtMyRFmTa/FAepqM4csCZ6E4YAaKppKz3zSypj1Ppj1P8kPJ p597i6BFF29j4yljaWq0zHmO5JRhS1YVtm/qQWGD3uh5BHtyqrDKWY6dqy/h 8LYKnNx7CaeOlCPvZBmPVa3vABGxhoCk6j2PGJyFIf3T/4xu2ZA4+3qDWlHO ekI5jawP6DDGMlIbF0LQ0wh6OjaPn4mdE2Zj34fhOETIxyfPxWk/gvabD4// ApREJuCSOQdVlhzUWXPQZMtBqz0HVxwr0OnMQU9KDq5RrrtycMudgzuUgVQh 2QJutkjp0gk8PVPKdWYITfOXoILBYlnQbBQzSy8ibI8wauE8pgQSNh3HxEl6 Fd1z4TpW52qNvMcMnPNW1eLzOQeQf/A68pv0sv9DOHe8HW4a+5r1Zdi8uwyb DpShvKZdryiKcEsPOh42wB01zJC1JET7jgjV9Na2DjPnAzqGsYFYMy6UEoZ1 42cQ5izsosXunzhHwsybMh9nCDKfIIumLkRpwEJUBC5CdfgnqFuShCb7SrQ6 VqLDuRJdKSvR41qJa5Qb7hW4lboCdykDaUJyCDM9R4w/Ixs9n8SjbcEy1IbM Q1XIXFQGz0E5gRbTcosCZsIjLNefMP1puX5c4SZN0nsinrM9yN52TbleDWYx YZ7a2IrYRUdRkHcLLQyW9SahvgFSmNHDw6e9oSs6aohVYjDKFWGYXr7UG+L4 F+Sv34QVH3DOjw1SBKdjPU1xC01xF01x/8S5OMz5LgmS3gXSKwpYRIKLSDAC 1UERqA+ORBOlNSQSV5Ylo/NjJpaU3uVMMin9nyTjhpBPk3Gd0v9pEtqnLULr tIVoojSELkBt6HxUE2MlMZYHh6OENllEm/QETCdGTv6pdLT+AbgwZTJqNm/0 VdmWKKdePHYSpZS8VRvhDnchPq7IW9ou5Gs+qOO7vuisqRsWXI1G2ZlLOLuj E4lLT/KS3EVz7wBeM8704TEZRk7yxZ+xFqjh/SXxbiZehgZjg7FmLGc68W6g cW4ZL/DOwf5JAu985PktwFn/hV68ZURbQbTVxCrxhgi8UbgSGoWOaVHopHRR uik9YUIi0U3ppHSERaCd0hq2CM0CL6WOiKuJuJKIy2mlJURcFDQLnkBO+QBa aQDxTg1EgZ8f6jZvksX2A2Qn6jYbVOlqNyUj3Izo5edk4W54wT0/2uQjq3gP oYJfvbApD+f39SH580IUeQbQ2DfwppHsfSpro+/hKixWm+zPkucWrHifPD+g 5xwbhrVjZ2DDuFkMt8KxmzxzJ83DEZrqCS/PReQZQZ6RqAyKJM8o1JNjE6Ut VPBcTJ6LJU8fEozCjyTPXop4pvGMVDwj0Eymkuc08pxGnqHkSZP18gyiyQbS ZAM56wOCcOK997CRbNcojnr7RdSCs8OjsSy5XHI8bSj5ewwl/4wJMXDN2o2V iw7hSOpJ5sYb0Mpr8/bfRdLYYhlKMkAj+YEgORMbxyuSnPS5kwXJBZLkGZ0k rbIsaBjJUEFyMa5MUyTDFkuSizkHengraHZPJ0lKx3SSpHhJUupIUyM5XyMZ MkffLXlukr/XjWne7XG4F1uxKsKKrYypc8I/Q0RMGY5nbrinmJ4zKRFpC/Zi zUencDzrpGwj+KAmWlRzqlWRvUHrmTzYKgdrncYVXQRgos2l0fwG8teR5hjS fJ8u9IPptM2ZnOezsZU2KWju5xw/TJJ5JHnGfxEu0CaLaJOCZgVJVocImotJ c7GiuYR2p9HsonRLqj3TF+Of0OWlGaXRnC5oRmg0wwTNBRrNUEkTRcGztVh+ ciByX/8jcl97Sz5fxdhV/G2Y78beeanYF57C4LJe4hS2WEBZ5WdF5uL9WPt5 AY6uOomqGNWbiNGaEI2xJl/ZoPCVT8Vb/XSzb/x1pCNUSfXt4INJ6zM4v24r cv4SiFUSbJgEu45gtxDsronzNLA00zw/gp06CLaUYOvnf4arXHe6lidzqU5G nxSuS5/QUfVwYfoh3zJpyxXJdlE6KYNc6Xena1xrda7TBNd5GtcQjWvum+8g 9w1yff0t7FUbEtYu2oxjy3ejMGEP2XlwJG0/ciamIWf5EaxJKsHBtSdlK+/y sF5Ps97kiJNNDh/R5TA0OATp6zV1rw8PAB6+x0iNbZ4nVMiWLTiOIcf3aaAf GDjSae4jx0OCI43z9NQINH2cgF6TQ8SMIuLJxk9kEMkAiMFQDm4zuhTBUb9r BXpTRAS6QkaiLfYVaLRRYl1oXMplnixbvBwjJMeqsEGOxaFzaJfB93Dc/bvf wR6+Qb5+3lKAL5JqcG5tBc4zR927di+Kos0opVwS7ZJYrV1SH2dGE6WFoNoS tF7I1QStL+IjGyZan0Q8Ei2UqiWfocNTqq/3Wtz/KDLfC8TKv5DSmEFKm0lp p4FS7dJYH5mr/JS3GTKD0SRLy2qY39x1Z+MWE54bTHyuUXqYBHU6RGKUIxOk BiZKNUyYKpk4lTKBKv/ciZp5n6B+urC2RaiiX6wgpbJp8xj0hGLfS29qlN4i pTdJ6Y23sJOUHDN2amG0qwzF6+u49BbjXFYeTlncKImxkJCFhCyoibOgPt6C JkprggXtopOSaEZnkhndlJ5kQUn0TR4a0kHpTuIK7zeTpEpeNYL6CnYvScAK glqtQK0lqI0EtYPT8szMj0jDJfNlLW9O85H5NIGlquzanSnz7TuUmylZuM5E vI/SzaT8KpPzNpuWsNczca9mAl9hEtlmJjxM7s8nZOLCJ3aUz/kYl8M0UIVT puHAS29hvwHUAYISf7veHwvLVO2nSXmus/CsOIeLq8/g9NojOGNLQ1msDZVx NtTE2wiJmVGCDa2JNlxJsuEqpSvZSkBW9Jks6KdcN5tFR4XzTDRTfNHP28tz I3DkXT8MofR95K/djpz3QjnxpnOtnckAezY2TJiDtvhEonBSUigklepWlRxR 0UnTKjyudFnvEcWf284M3KD0OzLQa89Aly0THZRWayYaLZmoM2egypSBS8kZ KE7MoOdJx7n4dJyMTcfRmDScj4jFpTBGmm+/jwMvv6WXC3Lf/rM0p31vvKnW 2OdhnX8Am5MPIjedsvoADmRuRWmsAxVxDlTFO1CX4EBjogMtSQ60JztwldJl sqPXbMc1ynWLDTcoNy1W3JKNFNlMkb2UW5S6+ZE4/b4/Cj+KgbaFCj/QJ987 obSpMK6jJDWWKUDEclKwyVqhVjMUtcMUrZz4S966ZYlRlBpFyVGUHkUJ8ro9 HX12rTwpypSiXNliTkeDKR01yemoTEpHWWI6Liak4UK8qMyl4URMqiyB7qds 53J76OW3BSjkvvwGcv/wrkbqrT9iN0lpbRU7jkU7sPbT9diRvAHHErNRHOeU bZXLsq2SgoakFDRT2pJT0GFKQZfZiR7KNYtTtVQcsqFyW7RTbDbclWKlWGQr pSJkFvLHTiUtP3QWlfzOCOvL2LU4CdnvhtG0ZiI3eCEGnGZZwx5IsWo1bVnb dshat1b3/ndRAsddUQ6n3LK7ccOeKsvlvdZUdFE6LKloM6eiyZSGuuRUVCel oiIxFaUJqfDEpyI/1o3TMW4cj3YxwXKRRAo+efE1mH7xOg68omi9/gfsJ629 b/4BO8ZOVN0Sp+qWpBi6JS5UJLhQneiS3ZKmZDdaTW5cMbvQSemxuNAnOiWU G7YU3LKJTokTdyl3HA6Owy77JKJL0hsTDc+HgfCMZ5o9zg/FH0djCK4vodFT RvsKo33NRAGz9rt2E78qxKKaLDbVePkP3hKbg7YmTmXXTn3D5kK/VVNJNHJE Q6fdpDV4Gqh6LYdwOdGNcg6pmMMr4DDPxbhwksM+SjlABBkTZ+KTn7+Kjyib fvOGhuvl1zj9/oBdxLVr4af8HD8vvkfROh9urfPBS3CZl6KGl6SBl6bFlIp2 XqqrvGTdVu0S9vNS3rBrl1Z0Pe46XPKSi4s/4BxseVyeMReeiUGy3VE4wQ/n x01G18USbe+9+knYr7AzyoSsd2dy1Jy4NMc7FEnNLtpRpCY7f5rZyo4gTfkW TfoGTbufJt5nEeaudRNFV7GV06CJ06GOU6OaU6SCU6U0LgVFsU7kxzhxhoTy OKUOU/ZxepnfGIvlP/89llDif/Eq9pPWPtLa/dvfY9v7E/kZYYQ0RmPXIl7v WqTJrkWd6lq00gVcoXTSHfTQLVyzCzdh7FhobsRH9iu+JB2M6FZUzVoAD5cW z6QQRWwqCiZMwcXln2MIrofQUFiGtD/PQDdXg36LiT5Q+jsf3CG//61coOYO RZ/5pnKT/XSZfZQeulDRm+6gO22ja22mi22g1NDdVtLtltP9FtMNF5DOOdI5 STkabaO92LAn2opPX3wZy37+Chb//HeIIrE9pLX7pdewlbR2vBeA/YtNOMKV QLQizohWRLxoRdARJmWgkqtGjWpFNFsy0GbN4OoiVhlttelXbYjbznQfrQ8h 1qdHvf2HmtkRuOg/A0V+zH2nqN7DJE7HibStCZMUqB/plcHVu3F89lIuGowz xK4NAuNC6is3KPxarqxihe03W3CNq22vyYpurr5id0MHV+M2rswtlAau0rVc rau4cl/iCl4SY2P+Z0M+5TSB5FEOR1toJhakTwzB8hdf4sR7hXA0QDsJaCsB bfrDOHwxYTZyPwzHkZAlWhshPgMFQ9oImag1Z8o2QotqI4gopYfRSp9DRC+y hUA2WlRj7CFcXRaNioBwlE2djYtTZ8JDUB6/MAWKJjWZJjVxMuo2bsLLGqkf qww+j3O/LVHbx9KjojIfGZ/9K/qTjXtdzHI/TBcjuasUsU+mjVFeM6WREV8d o78qRoEVjAZLiaOIcoFyliK2IYntSLkUsT3JTVRLiWrxi69ITFH0VZtfegPr X/0zdjDG2zMhHAcY5x1lXnuSQfG5sKUoXBiPYtkKyJKtgDrVCmhlpHvFrkW+ IgK+5tQi4luuLK0N8BiuJ9rRvSwOtUHzUBU4FxWBc1AWMBvFU2fBI2lN18r/ fjSpKQGkNQWNmzcPAfUI6gvLkR8VLYP/Kyrol3ukKD1JnIPiwa+8sb/YN9ae IJIqbXtVA/OGOuYQVcwnKihlZHGRUkA5RxF1rmNq09oeVcNZ+rNfYwnnXNSL v/NyWvPaO9g0fhZ2kNFeRnkHyegYGZ1i4nB+ynwOYgFK/BfiEqUqMhG1UYlo WJyIllgGCI4cdDlzmE/xfmkioSSil9I5bzlaghaiKXgBGoLma6AoFYRVFhiO YsLySFiqfO9PT+VHs5rih+Ytm3WT+mc1+fqYn18WqXucllOqvXS+6OCDf5YJ p9hi1xqnZaPM8OW+OrEHU2T/FWqn4kW1Z/O8ql4dVxXXfdHa1lxR6Vr8s9/Q ihShF1+F41evMUuYSUKzJaF9tKJDE0WvYz5OM63KJx0PyQhCFUzmqwKYC1Hq AyPQSGkKiiCJCLRS2oIjGL62By/C42gJFnQWooGEaoPnk858VAQJOnNQTEKe ANKR9Xi9mExT8p+K85Mn6nT+h5pwYg9tudpyqm++9JU7L38ld16K5418r15t Qa1WSfwltXX1oiqcnDNgEft698uNb9oGOLGDOfJnvyUSTrAXf4/P/+NPWPnu VKyn4Wwmmp00nH3EcoiGM4hmIYqYm5cSi0BTHcBkmkgkGuJoFmiCNSztQkIi cCVEu28NWYSmEIFnIfEsQBURVQbPQzkRFRNRUeBshYh4AqapYnAA8qdM0vH8 i96AXLVRWoDclRtNo6njgx9JEjUGGrqRlKg9nTqRUwZD2a9KyltVaXSNTuVn r5DIHxn+T5fl3fXjBJVwRWUeqczHcRI5QyKDVCLoYSNQHRhJKpGoD4oklUg0 i64EpY3iQxaReJJUIg1UFqGBZGopVSSjUZmH4iBBhYYTqErkgZxWgaQSEIgL /pN1Kj/Riy00GkGmLFrfnP2kd3O2MIxyZRzFBhxi3oi9zyfUNtiDau4YjcRH QvkxIn/6Esy/H8MsO1RikdVF5pFbxs/Bzg/nYh8N5ZDoIkxZqGEhkqKpokkj sERqWIKi6D2iOE+iiCWKWKLQFhJFFFESyZVQYgolFkoT8TQQjcQSIrDMR1mw whJELHqlO4hYgriIBRLL1MmKyv9SVMQm+8ukom3AFxPjMTl6j/IcFwwUThqm Sq7Bx4q90+tEX0GAeFa2JXLG+DE9DCKMaYOlVgFjgoAxjzYynzAW0EYEjEUK RoQGgyCqgzQY9QTQqGC0hIjyv8DxFNpDdRiRaKE0EUhDqA6DjilEwQiei6Jg wgjm7AkmjODpBhhTFIyfybsn5e8pmihn1IBPqUHnqct/yDDwncNmhRi1aHRp tb3nkPMXReD9QQLrxoVzligCkwYJnJYEIkggkgQiJYGqwKghBEQzRBBolaX8 KE4UPniCTwcB1AsAFA3AApQRQnEIc4iQORQCCCGAEAIIJoCgQFyKj1EAfqGK vdUcRBXlMqWCckl17cSPUrR+xY+x56NYrB6jBiaLlLOwVgxswn0Gxsvq4cDa uFpeofQlMKVO0TYb9Kp6m4g+jPW2+iVJqOGKWz/nEzTKkUWghiO7HDo4souh HFkoRxbKkYWqkYVwZMGBaN6+VY3sVaV1wbptWPkXaj1mmioazpKXY9MErRa2 l1ofpNaeWR+j/qM4hoXpMjS868qQoeJthoxiB8o1RybDyUwZVrZ7i1+ZqGbY WcEQtCRJL35loDgiHmXhH0utL4UuQGmo0HreUK1DNa0LqXXjMK0fRVNRKVa8 F4TVf5nmLXUK1hup9XayPj39I1yNN4tNRalatP8886N05knpzATS5cakPruW IXQwW2hj1tDE7KGOWUQVs4nyJFGHSkeBqEMx2xBZh8g+ji+1oDB8KUqmUeNp 1HgaNZ5GjadR42nUODQUBdRYpQxacfaHTEODsOq9wWKjLKPR3o+HLdaLQlrK luKSCdxdZ6pM6W47REKcJtO9Hlsa0780poFpaDGnocGUJrcRVjJVLGPKKKtB cak4w1QyL8Ytq0EixdzJhHzPsmRcDKNZhFHdMKobJtQNQ2FoCM4GBwzT9sLa HVjxLrX9C7VVpayDnEraTkM7xaGl4yItl/s+Xbhtd+Em0/Z+mxt9Vm2vqF6N aWaqX++txrhREu+Gh6nB+Vg3TsW4GJq6uIBQSybQ2ykbmSLuWJZALcOVtjOk tgXUtmHH9iHaPoJGTymy3gnFyvemk+9MHBC1JLHjVBZGbFpN5NvM9h2y9HLb xllmE3uCU5jhp6DHkiLLNVdMLrQku9CY5EJtoguXE1woj3fJvcYFjG/PUsGT qhSUSwXFRlqxoXY907W1TNW2MwnwTJ8llS2ksueorCrhvK7Cj11RSch+Zzqn 20w0fRbjI4tkL/DWLMtmdyi3bTZm2HbctIpCpLbDu8csCpTa7u9WSlOSE/WJ TlTTX1TEO1Ea50RRjJOJo4NBm9gt7aBDtvPi23jxbYxlrdTQQmdslg755NyF KKSW+dSyfudOpeQbSsn0P4Uh+92ZcsP4TQvXrtt88BxvzbhFuWmxMO3X9ub3 mbW9+l0is03W9vE3Mx9qSLCjJt6Oy3F2lMfaURxjl78BEL8FOEkRaX8ulfqC Sont8Bujzb5SM1/kRixFPnU7FTpNL65qin2HafdOZLwzAz0mbfP/dZP2QwD5 gwD54wkzXzerZFL7kUVHkmgVaD/AED/EqI2zMt+2Mt+2MrrTfrQhfrwhfsRx nHJI5ttmYjPLFGCdCBI1zfZRs9PUrLOsXNfsTRV174gSKSsztiSZrcnGg9aM eAa96jXxnmhYiF/AtCWINo+ZOYz2K5nqWC1tEy2hIvWLmrPqFzZHZGqrxZpi G4P4GcraQa2+oFaFPJFQRGn1lrqQZa4VaB1sJPnIpPJpdKq+knhZb8yJTEmk C6KPVz0sSzIGv8NzSBXf8GSaNqcdbm/bbpg2IsM9Hxkt87aWONMo2SN8SnYL RWIi87QYLQyviv778jRqoCsgNn3oCqhOxttKARHllmlxvziTr8yDnpR937ro wWyocoRs6Lwh9tezIWPsP9LZVVtO/72uiK/1jqmvHOET8rHxdMUqurzwN6Qb BhMwnlW1Vv9kiGGr+HaJ/GCpjGFL1MA80UNTvftF8upsPoaztaitSGrrwTvq bN18uZnxUL6MmMXtlyW6s2osJ5QF6VHyF8OsSD+FHjCKo6qdImPEna/cCfUl FFCFA0pL/RjCDkr4rthNJb6v6fRf/k8K/z+7wz/8J65ytYE=\ \>"]], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-1.1599790588729324`, -0.5989379044410749, 0}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.06130047557691745, 1.304039984852475, 0}, 1.125]}, {Opacity[0.5], SphereBox[{4.1772523846152305`, 0, 0}, 0.18048]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.18048]}, {Opacity[0.5], SphereBox[{1.8548577579630008`, -4.04809197961882, 0}, 0.259]}, Text3DBox["10", {4.1772523846152305`, 0, 0}, {1, 0}], Text3DBox["13", {0, 0, 0}, {1, 0}], Text3DBox["9", {1.8548577579630008`, -4.04809197961882, 0}, {1, 0}], TubeBox[{{4.1772523846152305`, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{4.1772523846152305`, 0, 0}, { 1.8548577579630008`, -4.04809197961882, 0}}, 0.02], TubeBox[{{0, 0, 0}, {1.8548577579630008`, -4.04809197961882, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True]}], "}"}]], "Output", CellChangeTimes->{3.575368827750991*^9, 3.575369207642858*^9, 3.575369528270221*^9, 3.5753696123543687`*^9}] }, Open ]], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O10,O11 in C-O-H and C-O-C, two doubly occ LP *)\ \>", "Text", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}}], Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"conn", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "11", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "10", ",", "3"}], "}"}]}], "}"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"tpso", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"tpsu", "=", "tpso"}], ";"}], "Input"], "\n", RowBox[{ RowBox[{ RowBox[{"Plota", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "2"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plotc", "=", " ", "Plota"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Plotd", " ", "=", "Plota"}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plote", "=", " ", "Plota"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plotb0", " ", "=", "Plota"}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670446904168*^9}, {3.5746710892508965`*^9, 3.574671127018563*^9}, { 3.574671266124007*^9, 3.574671266124007*^9}, {3.574671949327207*^9, 3.574671952228812*^9}, 3.5746720468897786`*^9, {3.574672142595947*^9, 3.5746721470419545`*^9}, {3.5753684465643215`*^9, 3.5753684560179377`*^9}, {3.575368711281186*^9, 3.5753687266784134`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"c", " ", "=", " ", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"a1", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"a2", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"d1", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", "\n", " ", RowBox[{"\[Alpha]", " ", "=", " ", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a1", "^", "2"}], " ", "+", " ", RowBox[{"a2", "^", "2"}], " ", "-", " ", RowBox[{"d1", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a1", "*", "a2"}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"L", " ", "=", " ", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "21", "]"}], "]"}], " ", "+", " ", "rlo"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Beta]", " ", "=", " ", RowBox[{"ArcSin", "[", RowBox[{"rlo", "/", "L"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "1"}], ",", RowBox[{"\[Gamma]", " ", "=", RowBox[{ RowBox[{"\[Pi]", "/", "5"}], " ", "-", RowBox[{"\[Alpha]", "/", "2"}]}]}], ",", " ", RowBox[{"\[Gamma]", " ", "=", " ", RowBox[{ RowBox[{"3", "*", RowBox[{"\[Pi]", "/", "2"}]}], " ", "-", " ", RowBox[{"\[Alpha]", "/", "2"}]}]}]}], "]"}], ";", " ", "\n", " ", "\[IndentingNewLine]", RowBox[{"v", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"x2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", " ", "\n", " ", 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"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 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"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T1", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T2", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T3", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"Chop", "[", RowBox[{"U", " ", ".", " ", "T"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", "p"}], ";", " ", RowBox[{"nl", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"-", "L"}], "*", RowBox[{"Sin", "[", "\[Gamma]", "]"}], "*", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", "=", " ", RowBox[{"L", "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}], "*", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], " ", "=", " ", "rlo"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", "=", " ", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], " ", "=", " ", RowBox[{"-", "rlo"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"Plota", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"Plotc", " ", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", " ", "0.02"}], "]"}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", RowBox[{"P", " ", "-", " ", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", RowBox[{"i", " ", "+", " ", "1"}], ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "k", "]"}], "]"}], " ", " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Lighter", "[", "Red", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"Plote", "[", RowBox[{"[", "k", "]"}], "]"}], " ", " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Lighter", "[", "Red", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"Plotb0", "[", RowBox[{"[", "k", "]"}], "]"}], " ", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", " ", "=", " ", "nk"}], ";", " ", "\n", " ", RowBox[{"U2", " ", "=", " ", "nl"}], ";", " ", "\[IndentingNewLine]", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", " ", "=", " ", "nk"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U2", " ", "=", " ", "nl"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", " ", "=", " ", "nk"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U2", " ", "=", " ", "nl"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"v", ",", " ", "v1", ",", " ", "v2"}], "]"}], ";", " ", "\n", " ", 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"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", RowBox[{"v2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x2", ",", " ", "y2", ",", " ", "z2", ",", " ", "1"}], "}"}]}], "}"}]}], ";", " ", "\n", " ", 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"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", 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[{"tpso", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"tpsu", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ",", " ", RowBox[{"{", RowBox[{"k", ",", " ", "2"}], "}"}]}], "]"}], ";"}], " "}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.57467048205103*^9, 3.5746705596923666`*^9}, { 3.57467096030107*^9, 3.574670965371079*^9}, {3.574671247216774*^9, 3.5746712771688266`*^9}, {3.5746714284734926`*^9, 3.5746715738501472`*^9}, {3.574671616063822*^9, 3.574671780534911*^9}, 3.5746718110797644`*^9, 3.5746721941540375`*^9, {3.5746722378497143`*^9, 3.5746722899070053`*^9}, {3.574672371073948*^9, 3.574672409106815*^9}, { 3.5746724505248876`*^9, 3.5746724544404945`*^9}, {3.57467249738737*^9, 3.574672498401372*^9}, 3.574672534031834*^9, {3.5753683237609053`*^9, 3.5753683581745663`*^9}, {3.5753683958954325`*^9, 3.5753684067374516`*^9}, {3.57536846840436*^9, 3.575368469808362*^9}, 3.5753686259958363`*^9, {3.5753686635607023`*^9, 3.5753686693171124`*^9}, { 3.5753693476063037`*^9, 3.575369366638337*^9}, {3.575369405014405*^9, 3.5753695209538083`*^9}, 3.5753695871291246`*^9, 3.5753697808658648`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Plote", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plota", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotb0", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Axes", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"AxesLabel", " ", "->", " ", RowBox[{"{", RowBox[{"xl", ",", " ", "yl", ",", " ", "zl"}], "}"}]}], ",", " ", "\n", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", " ", "->", " ", "True"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.57467048205103*^9, 3.5746705596923666`*^9}, { 3.57467096030107*^9, 3.574670965371079*^9}, {3.574671247216774*^9, 3.5746712771688266`*^9}, {3.5746714284734926`*^9, 3.5746715738501472`*^9}, {3.574671616063822*^9, 3.574671780534911*^9}, 3.5746718110797644`*^9, 3.5746721941540375`*^9, {3.5746722378497143`*^9, 3.5746722899070053`*^9}, {3.574672371073948*^9, 3.574672409106815*^9}, { 3.5746724505248876`*^9, 3.5746724544404945`*^9}, {3.57467249738737*^9, 3.574672498401372*^9}, 3.574672534031834*^9, {3.5753683237609053`*^9, 3.5753683581745663`*^9}, {3.5753683958954325`*^9, 3.575368412197461*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.49049221571661833`, 1.10150950804857, 1.125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.49049221571661833`, 1.10150950804857, -1.125}, 1.125]}, {Opacity[0.5], SphereBox[{-2.5462047862305086`, 0, 0}, 0.258]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.18048]}, {Opacity[0.5], SphereBox[{0.9137602800466993, -1.5822994449168335`, 0}, 0.5241]}, Text3DBox["7", {-2.5462047862305086`, 0, 0}, {1, 0}], Text3DBox["11", {0, 0, 0}, {1, 0}], Text3DBox["21", {0.9137602800466993, -1.5822994449168335`, 0}, {1, 0}], TubeBox[{{-2.5462047862305086`, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{-2.5462047862305086`, 0, 0}, { 0.9137602800466993, -1.5822994449168335`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {0.9137602800466993, -1.5822994449168335`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztWmlwW9d1/kKK1C7H1mInHidqkzgZNXHT8bSeaeK0TadWO2nSTifj/xpN pnZry4pEKfIS1VrNxVYty3ZASaQ2UiQlkRLBDSDBBSQB7isAEgApUlxAEgQo iotEUqTweu579z48Qg+UO9OZ9kffzMXbz/3Ofs59+OWuhDd+8/auhDd379q+ c9+uvW+8uXv/9tfe2UeXYr8GoJBG6nawY4kO+U8hJEliN/83d//OdrEMz2vK hbfknXxFPmLjBfa7il35bvSHvhVx7QmPP6vSXKVz9zvRX9yuc+2Poz/+lPwb h/n5eVitViQlJcn3Z2dnsSE6KVkuMeyGQmCNTCAzMxOvv/66/MLAwAB8Ph92 797NiK2RH1u1jFZYAu/Ku9UqCkZk586dKC4ulons2bMHMRwNm4RdV6YVML6n EDoo7+KXEWLboUOHGIp4TsPv98uX29ra8KfKm6+qpOi+UJByRtsm9e63NVAF v4w643dqakqGGsdRMPJaVrgsXlLo/0zHImJ0RL5BX3TP67DKJuLaW8tv9/b2 ysoUb3LxcQx/xdWvpS2wbNKf9zn5YK2ursRE+fn58vFGzg4TDHuOCeRH/yPc b+PsMU0ym2ViZ6wdOXKEzfwMf0uA45L/4WO6jlum6yewvlk+2PwY64wtwXph rhGv/+rXaLlWiVZDCZypJnjOmdCfbsLQJRNGM0sQyCrGfFcPFrq9EI7B7Icd cTvhSP/2q0vk6/LBN3T1ImTPnuhq9qLQUIxygxm5JzLRZKhE51kr3OnV6Ltc jaGr1Ri7Vo1grhX3blVhxliO+4WlmCsqwVKvF48mghx07DK6OxQgP18eGWLC 4lRMVSiMbUxhxLei9q2ylTTVtiOH0N0ylMFMyKyGGtSn2tF2vh5dFxvRm9GE gZxmjOY2I5DfhMnCRsyUNGCutA4LlloslluxVGHBUnkJQv1exHNhCVfkhsDB 7ooSd9jTzIaZYyvRYBsqjHXIJpldN1ShwFALi6EBtYZmNJ9rhb9tFMHOMUy6 xjDd7cesx4+5Hj8Wbo9hsY9Gew+WaloQsjUiZLdDslsh2UoR6qyL4wDZ9MwG 2J5A7tB4iaz+F1aObLHcK7WuriAuI3lWI89Qj3qjB/3No9yASDJTM5A8Xkgt jTRqITVaILnqVuso9wfacLHcHL+hSQAig2jjAQ+K8TzSCFDZJMJKYzfGfdPc dEkSMwSozw2p0wap1YLQsBdCPoz89evXhQI3qIJR5scrKybMZzXS00ZtFi7I ItfySfy+oKxjBq7C6N7CKUn3pyB12fCozQStvhiLzEwI00adSZ+LLrQtXyGI suvseC1/39ncQ8CsBHJK8f4YVQYbtUC7q/BoOgihRsYuI8WfWEFIK+B9Ooqj aCTAvXy1LMAKo2tZLhH7WB3aKvi7g5ACt4VxLkvUTA7r/3uQRWXDSEQWJrE6 shHVTjb5t6Chl5D0rm1SWRhQr63i87vdbllUp0+fFsaLddFZ+VlE1Fy5KBJq ZE62PD8wewmDieVg9PK8YKg+p1G9vl6HhtagRAG2Njojv9AJWAw+29P5swLX ZCTKtboo2f74wVqcLX6ExZlRFaHfd49Q9vEg9LjVhEvEbyq0vq/6wLf4S9oa gjEmUrGcj5qanuXqfNRTpUUUw9/WA5v0YT8K2iWcODMrtFFh7JA9OGzdUetD Xt3/IEK2bHs+ik0ISgz68xzvotMMyaf6YYzqf6LKLesNyTf/My+kipM5brbB QlA9XOHxshyETNjgBsBh/tGKMUUbeLVpi8mbWP220PtYjxy4pOFuHmFj4Wga w4H3+zFyL+x0F2rCgl6jQu6W42I2lQ1C2toCn7csO3TQbeaEtIVJZO6i4+3C AqaCCFEOkJw1kAa6RRRxtMziyOm78D8QJhyLgo6H6iwi9fkp1Slga+Qg6aRK bD2/x2aKMANN0/F0dBae1ghYhDmNm32Pc8hSqdRSCqmtGlJHA6TRERzZa8Sl vAUE5iWVlaZhVHf2cVAK5aBvBrVGL65RCZFNpUS2oZRl8Y1cKCJdcav4etTw qHhetMJ13Yq5kImHl/YqR846SPVk4o1VOPlWFXJLpilJexEaHMOjyRlhMdmp w3BNaEP3GkyPzGCoZRSVhhYUGxqRa7ARV5U0TIwzwYLWiJ7SwS7x7LtO46+a yK1fErHIzTicmJgQQtcGb4W7rZDueFF7/Dqqym4jVF2NR1Y7HlZSnWtpwoy5 BZPFrUg/cocUNoo7OW3wZLTCcYGq0dRGqkrrqTq1UZVqJaVZZMeoMNrVMku0 qfq2ppeilTCPv9CxNbYZDIZwX7uVMN3G22854PUEsdRch4elJVgwW/CgpBKz RdW4Z6xF8KYNaacH0dMyhN7LdnSl2dCWSrU+YbYaKmCiEvEWtU+VVC6yqkyU Ygwzm041UBlz/FdB/3KEViLtjIf7l1RXCOL9EyMYmxGGswlLwSAWqWKezivC 5A0TgtdKMZZVhvIkC9xpNM5Z0JlaRj2VmbRQglZjPbzNXpHr2MzCoFbpO0OU y3pFB2frx1FSAmOLKSk9PR1/xl+/ltaJk2enMT4vqdF9YTSI6XYvrAVejNW1 Ypyi0miz95s6xsI9kAv5MZDh5BKjTTMidyleLp+9JCKiJvOyzel0qhrUdjJC J8cSSnHVvKQhFYuDh+uweH9cPhOLbLyJ0jj9Y2D1SjAu0T95gqGwgpcM5WVO IfH3Hhhbl9dNR1MCKlUtKKH9KKDWqnJbr4kpUZQr+rM/Vw3WjU8/vYfSnpBa U3+SsajSf4HTYhplxSh7V2hU6EjPzhTXw4sROhMbqwzEa2Kdh4IbXlZhDWH/ 7zxyGhd1cqolnMZFctXqTEhBcRy+3Pm4QsS6C19uekXM2DyFD08F5Hz8FL+W 17IYoZA4NeszL2EbI82LxO0ryF2EzL/kpG9c7kL6tTmWRiFSR2XHYMR08fK7 kVmA6PD+VdvfM76EiHl//yonfOKQDTdqlLpNTJZtcKFzXLsyHPYABpQX5M9r pBi5csnwcCn+lFNIOTaI4i5tkUEzXZhC34x2JVhZuBKJgFjjk4XLbr2IHA4S seFH4mCxWKDdGGmxTsis+9/+tR3tvhAv2whOQQj+h1o4SrwS0ZxLWJiRHPHC nXNEaR0bEa6U59SHV8myEhshDQPz49CRAYzOSGqWyrNLmF7SZvRYWalCI9v4 LCvMppsX4iMvr5QfRPxlNifKd6FcR+t9HP/DPTkRbOXXLKTs+YUZ+ey7HAUD zd5ncYKUu00jyMdiJ9vilgGLjCrCi5gIhEEf3VeAjCLFObfxa+k3e7D0ICif vRgRWhiiONVyNmoBrY4mHQ3c5elIFvPfiDj+QQfym7VtSyz+42SfSvBFjUyY d3JlxukIY4MWVpRkvnoZwki08kt/zUmfShmH2as4/XPCPc8+eAwZc3qGjpfi T0IWF00ienYZNvc+7N3ngm+SB6BYlaVYbgJu6h2dVG9+WRTCTJtHrjBEM6tV o16/uCEyfOhhibgWq07+qgryLg6njMJ/X8Izuq6hhEK25RgKqVq2wJFGLWTd EqaNlZg3mTBXZxcNC/N8zVcEvYjGcet1P8K+rl9w4HzWrJwnNkcFpfhRnqEB 9nQXevN60JTRhod1HmrdOmhUYXrIp4pTWw5H/3qiWYr/OX/o+MEyXKt8JJ9t eQKY/HN34HNSE5jTA5eDzG78PvWPlF/r2+F3OHlfF/6GyDaxcKzph/AvfJ7k D3tQ7FTm2fokQXzkwMk3ylF8Ywa+0UX4PQ9QXxJAwUUn/F4PN/34ZatsmsJG 0Qf+WbULN858MYP24RB38U3qzF10z541hKS3FQ4cjcMItXgxW9OPoeJ+tGb2 oMjQKa8PzkwEdmg0IMoWpdjAP6mzDeN3v6dqepoHFGG8pxJsKDE9hGNEROnV WCwrwZypCgFqjHqoIbJTI5Qrr6Taed8f/ojBBcyn+5WYrmUaxz4PYnxOiDWO WigzmoyT+Oy9ZhRbltA+Fu7rH44FMWGyo/dsATUsBWikmZzNHkVZ6zBLGg62 e+Az2dB3yYiBy0YMXzFiNMMIP40piw1zDs9mPpM274qqkuv9lxxgbkY3LufP y2fitXxDOS4da8EXR5xUt4XQOBLiNdgmjLS50Z5upL7WiK6LRngJxW1CcYfG ICHxEYqxTCPGaQSvGjFJY7bcJnyLlXbikw9H8o/81kfv1eFmg7a2iSPdWnEl qQN/+KgHzg4JY7MSL5mewb2RAFxFNjSm5aOVEHUQIhchchOiHkLTR2ju0Bgi RCOZHBWhmcgiVFn5uJedj0V/4GmdOE17OQ6uUmKnDPMXHObHJ30we0Ia24qD +awNWaecMHwyCKdLwuisqDCfQdW5fNSez0d9mhHNBLONYFqTz6MmOQ3mw2eQ uy8RN2hc+20iTIc/Q11KGo3zGCeYQRp3s2WoWgGyjakyMlZr0P6DxrlSLy3A d1cU+nEoT2vG9c+7YfjcD6dXgu++pNbWTYW1qCDE1YTYeiYLpYSoMCERRTRi 6CiJmqAC+s3fn4xb+5OQty+J0Cchh9Bn7U1EMT3vOXsVE4T6oT8A8c2XNZMs YvNorZdllGv4exX5OD5IHJTTxXruHYybKgoyR39TjKLMSbj6JAzOhL7D3y85 ewtlBJ6BNh1IjIH5QBL7SaaQa0pIQQmNIhoF+1NgZAzsSybxJ5Hok2TwGe8k wp16Ffed6lcm7bq6Hmie9HbyE2f7HM5dmZLTyVoubga65kovTrxpkSOmc0BS V90KCDFDW3YgERYGtpzAbqTDZBopdDkFpTRU8Frgv03Gtb0K8Ct7PuIJY3np H0XSHPRr/ORYQhGyLUvcAhTQLh54E/dYUVIwB8ew+Ji8BQ2XbhLORFQcSELF wWRUyiOFjmkQ2nIaDH1pAkdOqAsZckJ9k1DfINQ5NG6cOA93i3szV65Y0WZZ Q9Tk0K+iOQN/x0+SDjtQ2Clx6Mqvu8mDhhvj+ORALYrND9E5KvF/OWzB3Ypa NBz9DFXEQNVBNpJppNB5CioPCCY+hiXhY5kJxkDRPrIbYuAWMZBL4PPeOwPT uVvwtnBbCbeubBM2E14JA6/z18n3TVTgNBqKyFeKMXyxCIGrhZitsmMpEMSn n95F21BIfKvyNt2W08Xp95vQWf8IrcTJj7myg9m3ECBXazp6BlZmP1aynE3E SLLKTDkxYEng2iDbKSImGCNFH5xB+WdZqCBPLyVGesOMiNJKu6ChLOzjJ5wH 9sWYbTZDDbou1GEopx6TdG3OXAPflVwkvNsNX6cnRs0oFlw63oLPjzooJVKD SH3ZyzznzDndcpAL0rhzNhuuU+mKZoiJShoVCcnERDLKCLyZRgmBr0lKh/1M NhoooNoo/luJidZCm1qIMzUIG1JMmq8MPCV/78kh1GZDm8zB7VwPxs09uG/1 YPRmK6q+tGHc1YWGlIu4+G4Fvkyk1NOppJ5XeEyfrbBhkuCyVBKg4b+qpJhh GgMZSuphKYilIheNTkpLrRT3mwhuHcF1UNqaHAmIj1jiOwNv6JYBXgWH3Y3r Bhf6W++G/SEe3c5FfPj+AMq+6EJVZicVfs3wOLp+wtmknEtZjrIdQQtcVbLf SIaSDVlWZDmb5e5uguak0U7wWtLzMdzq5hk2Viy+8gk1oDZQxsuFFOxX0w7b Z2d5cLo0BFePhOFZvpg0MQhv8c2f8tco37L6REbFKoQxQuO7olQO/YSolxB5 CM0dqm/8bZ4XtZOSZ4/fVia73UWTy9JQgzKTDpNSe0Udb9FWYWEsgJkOD6Zp 3Ovw7NBSi8XCHQ9CzSZNB7MaD6o9CJi96MvzoOWiSzYSZizMaPYs94D5JvLW 8iIaZWT11WT9dgzn1KEr3U5eUS3/WSbbUPiO1vfXYHE8iIVumiSzEMMXmP8X yXGAxQNXs2ev8vT/ib9Z/v9uxR2+9l/RnJcS\ \>"]], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{1.0322890627551795`, -0.623125269039888, 1.125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{1.0322890627551795`, -0.623125269039888, -1.125}, 1.125]}, {Opacity[0.5], SphereBox[{-4.1772523846152305`, 0, 0}, 0.18048]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.18048]}, {Opacity[0.5], SphereBox[{-2.093523867707062, 3.9763141974585583`, 0}, 0.2595]}, Text3DBox["13", {-4.1772523846152305`, 0, 0}, {1, 0}], Text3DBox["10", {0, 0, 0}, {1, 0}], Text3DBox["3", {-2.093523867707062, 3.9763141974585583`, 0}, {1, 0}], TubeBox[{{-4.1772523846152305`, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{-4.1772523846152305`, 0, 0}, {-2.093523867707062, 3.9763141974585583`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {-2.093523867707062, 3.9763141974585583`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True]}], "}"}]], "Output", CellChangeTimes->{3.5753685089488306`*^9, 3.5753686334526496`*^9, 3.5753686755415235`*^9, 3.5753688277977905`*^9, 3.575369207689658*^9, 3.5753695284262214`*^9, 3.5753696125103693`*^9}] }, Open ]], 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.0663976046225594`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "1.0522571207979057`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "1.0623108305837337`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "1.0466986570390402`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "1.043978252139989`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1.0510140870236`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "2", ",", "1.13523739655973`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "8", ",", "1.1659155739346305`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "1", ",", "1.0629579904532749`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "8", ",", "1.0498245309901038`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "7", ",", "1.0538623931152542`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "7", ",", "0.928807516865477`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "8", ",", "0.9224110356822786`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "3", ",", "1.1928901257255826`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "4", ",", "1.19298105233772`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "5", ",", "1.1927787680719018`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "6", ",", "1.1927836575073578`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "9", ",", "1.2117553962610583`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "9", ",", "1.211702770660282`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "9", ",", "1.2118130250615713`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "11", ",", "1.1226116655827711`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.575368508980031*^9, 3.5753686334838495`*^9, 3.575368675557123*^9, 3.575368827828991*^9, 3.575369207720858*^9, 3.5753695284574213`*^9, 3.575369612541569*^9}], Cell[BoxData["21"], "Output", CellChangeTimes->{3.575368508980031*^9, 3.5753686334838495`*^9, 3.575368675557123*^9, 3.575368827828991*^9, 3.575369207720858*^9, 3.5753695284574213`*^9, 3.575369612541569*^9}], Cell[BoxData["13"], "Output", CellChangeTimes->{3.575368508980031*^9, 3.5753686334838495`*^9, 3.575368675557123*^9, 3.575368827828991*^9, 3.575369207720858*^9, 3.5753695284574213`*^9, 3.575369612541569*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}, {3.5713747544125347`*^9, 3.571374762618149*^9}, 3.5713830670175667`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"nj", "+", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"nj", "+", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8e", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8f", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpso", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8g", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpsu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, {3.571838766139532*^9, 3.571838773908346*^9}, 3.5718388425484667`*^9, {3.571838961763876*^9, 3.571838969236289*^9}, {3.571839027970392*^9, 3.5718390313399982`*^9}, { 3.571839741203645*^9, 3.5718397450100517`*^9}, {3.572538612521628*^9, 3.572538701894185*^9}, {3.572538746213863*^9, 3.572538844837236*^9}, 3.5725397817592816`*^9, {3.5726093687611146`*^9, 3.5726094120667906`*^9}, { 3.5726201406133776`*^9, 3.5726201439517837`*^9}, {3.5726204342214937`*^9, 3.572620455406331*^9}, {3.5726210034788933`*^9, 3.572621009968505*^9}, { 3.5728421659278097`*^9, 3.5728422874676228`*^9}, {3.572844941796685*^9, 3.57284494451109*^9}, {3.572850660423529*^9, 3.5728506878327775`*^9}, 3.5731240021791506`*^9, {3.573124038683215*^9, 3.57312404156922*^9}, 3.5731241655738378`*^9, {3.573150838242284*^9, 3.5731508464166985`*^9}, { 3.5732110436990156`*^9, 3.573211066116255*^9}, {3.573212991206436*^9, 3.573213000894053*^9}, {3.573213104540635*^9, 3.573213182462772*^9}, { 3.5732202689099436`*^9, 3.573220322745638*^9}, {3.573220354086093*^9, 3.5732203696081204`*^9}, {3.573220402914179*^9, 3.573220410448992*^9}, { 3.5746631320730405`*^9, 3.574663233114418*^9}, {3.5746640424906397`*^9, 3.574664047560649*^9}, {3.5746708183720207`*^9, 3.574670838917257*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot9a", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot9b", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", RowBox[{"(*", RowBox[{"Plot2", ","}], "*)"}], "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8d", ",", "Plot8e", ",", "Plot8f", ",", "Plot8g", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"(*", " ", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ","}], "*)"}], RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", RowBox[{"(*", RowBox[{"Plot9a", ",", "Plot9b", ","}], "*)"}], RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", 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]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot8a", ",", "Plot8b", ",", 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]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"(*", RowBox[{"Plot8c", ","}], "*)"}], "Plot8d", ",", "Plot8e", ",", "Plot8f", ",", "Plot8g", ",", 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"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.573211072949067*^9, 3.5732110779254756`*^9}, {3.5732129727516036`*^9, 3.573212981300419*^9}, { 3.5732130120948725`*^9, 3.57321301629128*^9}, {3.573213384015126*^9, 3.573213388164733*^9}, {3.573220427063021*^9, 3.57322044338065*^9}, { 3.5733208085662665`*^9, 3.5733208285343018`*^9}, {3.57332089027921*^9, 3.5733208917144127`*^9}, {3.5733209483737125`*^9, 3.5733209652997417`*^9}, {3.5733210904587617`*^9, 3.5733211330312366`*^9}, {3.5746581574587035`*^9, 3.5746581598923078`*^9}, {3.5746632559372582`*^9, 3.5746632963569293`*^9}, 3.574669479281269*^9, {3.5746708530664816`*^9, 3.5746708831121345`*^9}, { 3.5746734822639*^9, 3.5746735338531904`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.17769093578, 0.22247744198, -0.23797319517999999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.9210954515999998`, -0.36732493988, 1.66696509912}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.7848976940999999, 2.0244634637999996`, -2.0410930526}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.2586865136, 0.8596741519199999, 1.72195612572}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.0970719413999994`, 3.2310535147999997`, -1.9577561359999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.8303286286, 2.6452384548, -0.08513404602599998}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.29688115928, -2.279954419, 3.5948257697999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.8767728889999997`, -0.185710932924, -1.947362643}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.291842717, -1.6678721676000001`, -2.2315774334}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.093816408, -0.96496968464, -0.31766294059999994`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.9740507787999997`, -2.8338331096, 5.428804852799999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.7338939893599999, -3.3497283075999995`, 3.5349214555999997`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-3.544181113, 1.70381475612, -3.1853221456}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.5526503687, 2.4848007174, -3.5122447436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.6156987542, 0.40901229543999995`, 3.1783301593999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.560243784, 4.633986097199999, -3.3656020059999996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.6372846298, 3.5927470712, -0.041141224745999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.498432768, -0.7529802219599999, -3.6278959747999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.2703428398, -1.73992741998, -0.42057741855999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.853426284999999, -3.5825425508, -2.8517855065999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.5617125655999997`, -4.082564050399999, 6.6973779166}, 0.12]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.0493931936899998`, -0.07242374894999998, 0.71449595197}, 1.0663976046225594`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.4811206297397004, 1.1229550134637278`, -1.1390173601418054`}, 1.0522571207979057`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.0892274275024936`, 0.2458263066466686, 1.694445002514311}, 1.0623108305837337`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.9409848177499995`, 2.6277584892999997`, -1.9994245942999997`}, 1.0466986570390402`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.5445075711000005`, 1.7524563033599998`, 0.818411039847}, 1.043978252139989]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.963700285, 2.9381459847999998`, -1.0214450910129997`}, 1.0510140870236]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.6089883054399998`, -1.3236396794400003`, 2.6308954344599997`}, 1.13523739655973]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-5.083883932699753, -0.9265314152877346, -2.089420155497999}, 1.1659155739346305`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.9923958208989523, -0.3891939932540235, \ -0.27902255212546007`}, 1.0629579904532749`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.958066957741972, -0.5872404401303041, -1.1076254992618726`}, 1.0498245309901038`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.160996945497253, -2.5653252691670687`, 4.53973334430406}, 1.0538623931152542`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.24721240599965666`, -2.8329000391444223`, 3.5638623778929546`}, 0.928807516865477]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.7048311176105733`, 0.7911273941308814, -2.587357270484166}, 0.9224110356822786]}, {Opacity[0.5], SphereBox[{-0.166263190701064, 2.351819767187312, -3.087262519706002}, 1.1928901257255826`]}, {Opacity[0.5], SphereBox[{5.22370626984494, 0.5391924481610619, 2.757635593402566}, 1.19298105233772]}, {Opacity[0.5], SphereBox[{3.4264366899802186`, 4.228688722249834, -2.9588852167517867`}, 1.1927787680719018`]}, {Opacity[0.5], SphereBox[{6.115268975025972, 3.319019138441479, -0.05385041157212357}, 1.1927836575073578`]}, {Opacity[0.5], SphereBox[{-7.1529826814047555`, -1.0149163299070973`, \ -3.2281260938521124`}, 1.2117553962610583`]}, {Opacity[0.5], SphereBox[{-6.990188379549035, -1.719297274036838, -0.9390849995505564}, 1.211702770660282]}, {Opacity[0.5], SphereBox[{-5.978942618473422, -3.034382425475555, -2.674223176229409}, 1.2118130250615713`]}, {Opacity[0.5], SphereBox[{2.679985027985162, -3.724386034157492, 6.333508512387537}, 1.1226116655827711`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-0.3724264873657801, 1.2209830258261907`, 0.574650592177609}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.3754878117801448`, 0.6358284992124624, 2.476900578653507}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.23456700154413906`, 3.022936467645814, -1.2285736439566721`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{3.7148487983061083`, 1.8592023200118994`, 2.537544245186419}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{2.5486247485625713`, 4.2254888604549325`, -1.1390351701142483`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{4.286831685319851, 3.6448205355111813`, 0.7306151412651917}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.7409117097995805, -1.2823342006592728`, 4.404549099834547}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-4.466532929219147, 0.5812130757097766, -0.9354285246198506}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.2855777298203954`, -2.347653099218986, 4.342070962977521}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-4.13401071810369, 2.4706443853317492`, -2.173357049015046}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0.7278083589257807, -0.7760281418661907, -1.0505969825376078`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{2.466703091419854, -1.3704783789724622`, 0.8570296195864922}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.3352283866558603`, 1.0259904599541856`, -2.853612461243328}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{4.8025242288938905`, -0.13985401617190057`, 0.9063680062535807}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{3.6455191342374293`, 2.236618169145067, -2.7764771018857513`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{5.3738255718801495`, 1.645656374088819, -0.9008832333171923}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.8528506087604195`, -3.2775746373407277`, 2.785102439765451}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-3.2870128487808525`, -0.9526349415577762, \ -2.9592967613801493`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.18221024889960558`, -4.351803515981013, 2.727771948222478}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.9543515078963094`, 0.936985126908252, -4.197287242184954}, 1.4]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.335150691420496, -4.259168995776283, 4.253034290269305}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-4.448749957792792, 2.1213816124992637`, -4.028928188657879}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.3324780256522781`, -2.839867594162643, 2.492799948870005}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.430312372066485, 2.3690502181766533`, -3.040283397696358}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{3.559894283352148, -1.4043384401880983`, 6.005747820776049}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.5695361574714806`, -1.1549328605085574`, 1.249862345249234}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{4.446472815956184, -3.014874480603067, 4.708576988522199}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.0313248111527873`, -2.6117745635144094`, \ -0.3781550990912221}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.9210954515999998`, -0.36732493988, 1.66696509912}, { 0.17769093578, 0.22247744198, -0.23797319517999999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7848976940999999, 2.0244634637999996`, -2.0410930526}, { 0.17769093578, 0.22247744198, -0.23797319517999999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.2586865136, 0.8596741519199999, 1.72195612572}, { 1.9210954515999998`, -0.36732493988, 1.66696509912}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.0970719413999994`, 3.2310535147999997`, -1.9577561359999998`}, {0.7848976940999999, 2.0244634637999996`, -2.0410930526}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.8303286286, 2.6452384548, -0.08513404602599998}, { 4.2586865136, 0.8596741519199999, 1.72195612572}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.8303286286, 2.6452384548, -0.08513404602599998}, { 3.0970719413999994`, 3.2310535147999997`, -1.9577561359999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.29688115928, -2.279954419, 3.5948257697999995`}, { 1.9210954515999998`, -0.36732493988, 1.66696509912}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.291842717, -1.6678721676000001`, -2.2315774334}, \ {-3.8767728889999997`, -0.185710932924, -1.947362643}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.093816408, -0.96496968464, -0.31766294059999994`}, { 0.17769093578, 0.22247744198, -0.23797319517999999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.093816408, -0.96496968464, -0.31766294059999994`}, \ {-3.8767728889999997`, -0.185710932924, -1.947362643}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.9740507787999997`, -2.8338331096, 5.428804852799999}, { 1.29688115928, -2.279954419, 3.5948257697999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.7338939893599999, -3.3497283075999995`, 3.5349214555999997`}, {1.29688115928, -2.279954419, 3.5948257697999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.544181113, 1.70381475612, -3.1853221456}, {-3.8767728889999997`, -0.185710932924, \ -1.947362643}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.5526503687, 2.4848007174, -3.5122447436}, { 0.7848976940999999, 2.0244634637999996`, -2.0410930526}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.6156987542, 0.40901229543999995`, 3.1783301593999997`}, { 4.2586865136, 0.8596741519199999, 1.72195612572}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.560243784, 4.633986097199999, -3.3656020059999996`}, { 3.0970719413999994`, 3.2310535147999997`, -1.9577561359999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.6372846298, 3.5927470712, -0.041141224745999995`}, { 4.8303286286, 2.6452384548, -0.08513404602599998}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.498432768, -0.7529802219599999, -3.6278959747999995`}, \ {-6.291842717, -1.6678721676000001`, -2.2315774334}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.2703428398, -1.73992741998, -0.42057741855999997`}, \ {-6.291842717, -1.6678721676000001`, -2.2315774334}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.853426284999999, -3.5825425508, -2.8517855065999997`}, \ {-6.291842717, -1.6678721676000001`, -2.2315774334}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.5617125655999997`, -4.082564050399999, 6.6973779166}, { 2.9740507787999997`, -2.8338331096, 5.428804852799999}}, 0.1]}}, AspectRatio->Automatic, AutomaticImageSize->True, Boxed->False, ImageSize->{360., 360.}, SphericalRegion->True, ViewPoint->{0.751884143192663, -2.1628365303903756`, -2.491346699683601}, ViewVertical->{-0.019610644399245744`, -1.374979964334471, 0.06942572574617273}]], "Output", CellChangeTimes->{3.5753685090268307`*^9, 3.5753686335462494`*^9, 3.5753686756195235`*^9, 3.575368827875791*^9, 3.5753692077832584`*^9, 3.575369528504222*^9, 3.575369612603969*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsu4WXpFman/eoR/KxZFlwZBlkS15ZluHoSKvV7M70zDQUM1d1FzNmVTIz M2MkRSRDJDMzcyVEcmYxV3dX08zO7GpX619EVo+2V3+CdU794n7xBXzvvfd9 Xvgq8vBV9zs3Ha66212/+gd7Xa8637G77vYHe5xcdeonfwv+1h2r/gDr8V/B Dw9/pX9/ZWd9sJ75r8f/9fj/v8cbtuEnDPct246sit16ack2/Pc8fvKW4ZFV zGUjJEc3khHVSHZUE8aIJvLCGskPaaQwsIFC3zos3au83nxL5NZXWGzDP+bp 07dUVAyTlNCIIVEfTWiiML6J0rgmzLFNVEU3UaOvrNVX1oY2URcsBUg+DdS4 17Lcvkz41lfO24Z/qq98Q3XVEKnJ+spkfaVUJJUnNVGtS9TpEo26RIu+vk1f 366vb9fXd4RLukSHLtER0EiHLjGROciX628I3brEnG34n3j+7C0ZyXVkpmrC qU0UpDVRprFKqk9pojm5mbakZjoTmumJb6Evrpn++GYG9HzAOury/bp8vy4/ oEv3BzfQ61PLg/ZFQrYuNWsb/hemxhZ1iTpy0hoxpmsmklmqTW+mKa2VttR2 upI76E3uZCC5i6GUbkbSuhlN72LMpk6pnbHUVkZTWhhNbGZUizsa2cBwUA2z Wb0Eb13yvm34X5keXyQ3rRZTeiOmDF0yo5mKjFbqMjpo1le2p/XSk9pPf+oA w+mDjBqGGM8aYip7iOmcIWZyB6UBZnL6pV6ms7qZMnQyLTOmtTJTcfVMhFWz kNtN0NalZ2zDP+flszeY0qrJz6inwKBLG1qp0EfrDL00Z/TTkT5Eb/oIg+lj jGSOM549wZRxkpm8SWbzJ5krmGReWiiYkMakUebzh5kzDTCX28tcdhdz6a3M JjYwHVHJs74FArdMmLYN/zsvnr4iL8VMYUatLt9EcWYH5Zm91GYO0GwYoSNj jN6MSQYzpxnNuc+EcZbp/Dl6Y3poPJHGvHsJi6XzLJfNSbPSfZZLZ1gqnWKp ZJzFolEW8gc1+x4WMtuYlx/NRJfz7eNXBPzYlLbqLu13FSWGRqmTssx+qjOH adTM2w1T9BjuM5g1x2juAhN5i8wULjFXsozhaBVjrr28SW5n0zjAWuUya1XL rFctSRY9n2elQqaVT7NYMoGlcBiLqRdLVisLKTVMxxT9YMqUbfiXvHr2iqLU ckq1MWU2UwaoyByjLnOKFpnRZVigP2uREeMKE/mrTBetM1e6gcW8SfLZIYYS 5nlVNctGxX026zZ5YNO6tMZG7SrrNUusVFtYrJzDUj6FpXgUS16PTGpiPs3M y9FZ/H9sUkd1B2VpVZRntFFuGNAmjVOVOUOjYV6rs0hv1gpDxnXGCjaZKn7I bNkjFioes1T9hOSjyUx6FfNVah4PGp/yqMmqJ9Jj6REPmh6w0bDBav0aS7XL WKoXNJVpLCUjMqsLS04ts+kFP5g0aRv+Fa+evqQ0uZRywWrO6MVsGJPuU2Ow yHdW6Mpcpz/3ASMFj5gsecL98mfMV75gseYlK3WvSD2ZyYy/mXeGYh61vOJx 6yuetL2UXvC47TmPWp+y2fKYteaHLDVqdetXZNq8TJuUaYNYClqxGMt5OTGN 349NWxibpTylEnNau0wbkqZlmkVkrdJq2KQ75xED+U8ZK37OdPlLZitfY6l5 w3LdF6w1fkn6GSOzwTV8nVPOk44veSo96/xCeiu94XHnK4Wvl6y3PWO55QmL TZsyTytXow2tGMNSqs0sqmWjqeVvmlYcb8KcUi/TtGLp4zJtXvFmRaY9oDXr CT2m5wwWvWK87A0zlV8wX/MVi3XvWG38mvWWb8i4UMR8RCNf51XxtOtbnnV/ y/Oeb6SvedbzjifdX/Kw+y0bna9ZaX/BUusTLM3rMm9R5mlTK7Vy5S2isvBv mlaWUCTTWjGnDsq8GZm3REX6BvWGJ7TlvqCn4DVDJV8wYf6K+9Vfs1D3rTbm O9Zafs1G268xXClnIaaNbwrredb7G573/YYXfb+Wvtfxdzzt+4ZHve/Y7PmS 1a43LHU8x9L2UOatyjytXK1WrrqThTLzj037PylPMGNW0DenjkpzMm+VyoyH 1Gc9p830hp6iLxkq/5qJqm+5X/s9lobfsNz8p6y1/Y7Njt+RdaMaS0IX35Q2 8bz/z3ghvRz4Ha8GfsuLgT/l6cCvedT/PZsyca33S5a7X2Hp0Mq1yu+atXKN 8rl6BY3KGl7NTfpuWTdhG/41C8NTmOOrMSf1yMoJLeKCrNyQhU+oz3lFW/6X 9JR8zZD5Oyaqf8P9ut9iafozllv/nPWO/8hm11+QfaeexZRevjG38nzgL3gx +Je8HPoL6T/yYujPeTb0Ox4P/imbA1rw/ncs97zB0qUF7HigRZTrtczI0gEt YgOvLDP8TROHZGJcHebEfpmp4+QlmbhJpeEZ9blvaCt8R0/ZdwxV/oaJ2t9x v+HP9XV/IRf6S9Y7/5P27K/IvtfIUno/X1e18XzoP/FyWBqx6i95MfIXPBv+ cx4P/5YHQ79mbeAblvu+wNLzUmY+xtKpPe6Y1YIOaTGbeb0091+YOChIY0RG /IDMlPslLcvEh4q8L6gzfUFr0df0lH9PV9n3dJb9mv6K3zBS/aeMW1ezTavY +5/IdmpiOUsm1spEmWfpeMFQ9ZTeN8mwZGl/wuOR3/Fg+DesD33Hcr/o6tNe 92ive9ZUuMkNOxT2mlt4vfxfmjgwiTlKJsaKkPj7MnNFJj4iN/ExhekvyUl5 QVbyC3I1mlJfUGx4iTn7JdXGV9Tnv6Kp8BUJzlkq8tJpToiiObuKdqlL6smp pDe7kr7sCloy8mlOM9GaU0V/aR/jDQp7fU8luWOvjruUMNpaePmfTfw9KRHa 5BiZF3ufnLAF4kMWSYzaIC7qATFSctxjMpOfqt55rmz/ArPALsmaxRBfRXpk PnEuUdREJtCTHE1FfAGtGWUMGisZlkaMFYzkmhnJMTOcXcZQVintKbnUxibR Ziikr6geS7/M69EKtjfz7duXvj8OMeWh1eQEdpHgNUiC3wwJIUuEBi0TGrZO TLSsS5B1KU8xZkjpM6TGVJAUbiItKo/s6DxS3KNpik5gIDVa5W0+9Yl5NCfl M5BZyoTJzKQ0oZwwkVumcqmU0axiBjKMNMXF0xgTTUN4CJN1jcy3N/4QYibe L9zzd9+RHlVLglsTCR4DJPhOEeIzR1DA0u/NS0p4hCH1MXEyJSY0k4QwIymR JjKjTZji8sjwjKYtLkGFYhT1yTItJY/WFBMdyUYG0guZzClV9VbGjKmMKVOJ zC2W2QVazGyV0NbPhtEa4UdfRtx768Ztw/9tsy61+z5JGe0kuNTJyj5iPScI 9LxPYIAKaVkYFb1JUuJDYqNMRIVkEhtqJDHCSHq0kZxYEwUJJrK8o1WoJzBm iKIxVR4mL+uQuqTeNFmZlse0LJstLOV+UQkzRYUqbwokE31ZcXSmhOrzvioI I1SBZfH9qxf4bJk6Zhv+362F7JkhvXeOdJWc8Q5VJLp0Eek6SqDHfYL8LQTL 3PDIMcLDoggLMhAZnEusFjM5yohBppqUJYsSTeT4xNKdmMR4ZrSq8TzaM/JU feXRkylzsk0MZBvlhSaZqqxYVsxceSGz5fmSkdH8RL0vhM5UH0XFHBYqs1Uw bpnsvWXyqG34N+9Nnpa5MlkOnNG/QEJwI4kObUQ6DRPkJrP9FgkKHiY0OFIu m0xIYA6RIUbitMKp2v+sOBN5CXmUyB2NfnHqUZKZyIpRwZhPe1Y+XTn59Obm 0W8yMZhnYjjPyIiOZ2XyQlUh81X5Ko+MjBcn0psTzIAplKWmHJbqs1mszmKh NJPvX7/Aa8v0Edvwb2X6tzJ9koy++zJ7DoNMN/Qvkl45SbxdE5H3BghymSHY Z5Fg/zAiQiPx980hJCiXCK14vNw3LUZ0xeeTL6JKkgsw+cfTl5Iid41VTVJI R24B3XLT3vx8+gvzGSw0MVRsZLhIUyjMZaFWU6jNY6EmV3WLzDcFM9+Qzmpb LqstOaw0ZLNck8VimcE2Bc8fT6FueglD77TMVhjqt5A5sCStkj2wToJ/OxG3 +whyFI1e6UQEhhMWHIefphD0fgoJkXmaQr6mUKApFGgKhZgCE+lLS2XSqCnk agp5hXQVFNIrX+4v0RTK8lQwaBfkKMOlOYyZc2RyHnN11uMEpmuTWO/JY63L xHp7LmutOaoMs1nVNB711v8whWHb8IdMPniGQbuQ2TdDpnYgc2BZWiNrYEPT eEBO/yOS/IcJti8kwjuIqMAw7UaSbRqBQUbCQ/O0E/maRoGmUUheYiElKUXk BSfRl5mmLiOO5rwipekiOosL6SlVtC3XVCo0lUo5VJU40BSGzFlM1uQofWcz Vh3Pg4ECNvvz2ejNY6PbxEZHLhvWqTRkaSoGHvbW4bE1lVLb8LfpH1hhWKs/ 2r/KSN/KP7Od/iOef/U1hu5RMrVRmUIks986w3XN8IFm+EgzfEJu/zMyzatE OnoS6RVEdEC4ZpmMj28uAYEmwkLyhEu+onqBcNEmJRZRnFqEKTRZNKczXhhH U0ExrcVFdJQV0WXWTKsK6KuW39UInWoj/ZU5UjZ95gzGatNY6c7h4XAhDwYL 2PibM23JZt0601oDv377HPetmRa+v6NjvZtTXj5MUkwjGbFN5MQ0YYpqoiBS CpdCmygMaqTDNMJCzyovN9/yT98vx9SDp2T2TGjDZ7UU8tf+H5bisZbiqZbi Ocb+l2TVtpOeFkG0mz8xfuFEBCTg7W3Ez99EiJYjJryA5OgCDHFFGJOkhBxM Ean05GbQX5RGQ1ExzaXFtJm1JJVakppCumsL6KnLp6dWMbs6l57KLNpLE5lo SuXpWDGPR4tsS7IxpCUZ0JL0vV+S9vdL0mTgyVDdD8uR//7u1NjYKomJDWRY 70wlaeoayxKaqIxvojquiVotT320FCGFSSE6Fyj5NioOD/N24y3/5H0zb+ga 0vJMkaX4nyVHyup/ID0hWx6So2Ux9r/COPAGgymO7MJEMg2xxHiGEBMQjb93 Nr6++QQFFhAZWii8C0nT8mRreTKi08mNSlM0MtBRkktdSTGN5VqiSnlNdTHt tUV8QEd9oebTKY/pEBetZSk0lUbRVBzBs4kSHo8X81BLtDny15bI6jVdRi1R jvjIYq0pg9988fz9fP47hoYFw8iaKqgGkqIaSZOLGMIbyQptJFuJIse/nrne NWa7Vvhsa1lNtuF/YHxsmdSkegwpWlapWDJLNclNNGiZm7XMbVrmDi1xl5a4 S0vcpa/vkgd2ygPbg/V6QBOt3o3Wm0//2Pa1P2Vq8xGZ4jGr575WeVmrq0jT /1h6blvh3P7XWuG3ZNd1kZ2fQG5RMrnFqRhL00kIjyXcLxlfzwIC/AoVUIuI iSgiObaYjKRipTMDmRHpdBpyaC0xUlVaSq25hIaqEppqSmiuK6alXqopoLnK pNXPpK0qmdbKeFrM0awMGHkyoa5eK705VsTGDytt5bNHjtglR+zIVtMoRxyp 5R/9tfujY2NrJCQ2kqxlMWhZjPK+Ai1NsZamVEtTrqUxa2kq5H2V8r4qv0aq vOpZUYPxZv0NJ7ZW3/j+5mVd9QCZqQ3kpG3duCyXaqTGVK2o1Kmd6NEu9Oly A7rckDRsVeLWOKTLD1hvXiou9MnpewMVDzxq+UrO/g/fb0X9hGJA94S2Yp7s vjXpofQU++BMHIOzcbYqJJcQv+vkFCTZtiG3JF1bkYmxLIsso4Eo32QCvIoI DihWTishLraUlKRSEqMzSQ010GrIlQPnUaatqDCXUlVZSk2NtqVWqi7S1qjS rM2S6xtor0mlrTqJ1qpYpjozeDpVwqPJYh5M/LAd2opBbUW/nL5HTq8QutEp p29Nfz+nf/L7e8rpWp9MyWS9r6x1KtO6VGpdarQlddqSBq1LkwJCk9amWZ7a rC1p8dfa+jTS4l6n3LnM8a0tybEN/4znT9+oA6nUltSrxm+kKEO7KdVJLekt Kkdb6UltYyClnWFpNLWD8bQOJtPbmVL5O2Vo1dii581MpDUzJtNGZdaItmk4 vIF+v1rebb79B7bL/TGZHQNkdU0Tll/Pmav32LljL7t37GPvjv3s33GAgzYd xPn8r3C99Amul7cTHeZASnoYprJc8lQhFKpSyEkzkBhjIjSkhMjoMmITy4iO yibSO4sGg5GawjzyS8opKi+npKJMKqVSdV1Lg4nOZiOdquU6lYyKU5woSnYg xnkv0Y67Sfc6QqrHYZLdD5HoepCiyCs0Z3kwXh2jyC1YegVLj2DRTn6xNvH3 bdP6R1t35VPqyZQzZ0lGq4Onvr8zrxWp02Y1alVa5MBtWpkOa1iJ2got3ZFN H9CtXfs79CjC9AZJvvV0ulbylRA6urVf2bbhf9N+vSY7pUJ7VUdeRqOaWrmA oZl6Q5u6ww66MrroS+9hKK2XsYw+JjP7mVYPfj+nn7ncfuaNfVKv1MN8bhdz OR3cz2pn2rqP2r9JWTquvn/YesPtwZutCf4JL778itDcIs5evcmunbvYu3MP +3fu4+DO/RzaeYAjO49wdOdxrhw7jPulnXhc2Yv953u4dnAnVw/swOPWWZKS Iiky51NaUUBFdSHVKlTzTKrP80tJjowm5F4crUnJdBWnUFFTRqVoMleoUmxT mdVWoFF1e4uJ0kwvEr2PEe1yiBinfUTf20XU3R2kux0gXfuW5nmYVLdDpLgc JNlpP8n2+0i+u0fu7Kw9FF09Br56MKFEsvX/HC+0edly/9z0JptMUrH1/zqs 0Ukb2JDSTEtSC+2JrXTFt9Eb10a/xoGEdgYT2hjU+cGEFgbjmxkUicMicTii keGQOga8q/h68w1H/vou/nNaqnvJS6+hIKNBO9iiHWzXDnYpsPTSbRhQlzzI SMYwE5kjTOeMMmscYz5vDEvBGEuFYywXjUoj0rA0qHMDLOb3spDXrV3tYDaz jfsyfTq+nrGQKr55+Pr9dP8EHw8XIbeNPTt3agt3awv3avv2afv2S6c4vusM J3af5cbxI3he2sWNAzu5cVDjoT3cPLRX2sctjZG+rpRVFmqriqhW/qlrLKHY FIPjZ/u58dM/JGjbvyf52iEqcqPo7CihS+ruKNZYSENFAvFeJ4hwOkyY/QEi 7PcTab9X27ibyFvbSHPaS6rjXtKc95HmdlA6RKq2M1Xbmeqg1+7tpjT4LBMV oXz1cJK/9/5/DF9qK7fIaFLlkSc2/kdKbBGtmdr0VppS22lL6aIruZvepB4G knoZSu5jJLWP0bQ+xtL7GE/vVYTrYSyti3FFu4nkNiYSFeFiG5mIqGU0oIJv Hrw+vLWjV2zD32OmQ0x19FHgGkipSyBmqcJZo1TuFMhyWx9LbX3/zvb2/0OJ ulMZsFLhtk4O0Io5s5u6zD5aMwfVUo8wYLD+L9OEmr4pZkzTzOXPYCmaYalk hpXSGdbKZ1iXNsqnpSlpQs/HWCsdYaVkiPumHjlQq0J2k3yylv4wM9WOaghX XzO+8obx5dc8f/v937GZ83OWLQtEB/py6uBu9u3YzgEhfnjXHvnDXo7t2s+x nSc5Ib84Kb/4bM953M9t5+7RHfKFXdw6vIdbR/Zy+8g+bh/dj92xg9gfP4j/ 7YtU1JVQ3VBCfVMpl3b9lAt/8u9x+PCnRO37E2KO/pSwI39EdV4k3Z3yjc5i cuPtCHc+SoiD/MLhEBEOB4lyPECMw35i5A8x93aSZL+LdPlFurPVP/ZIe7d8 xOXAlr846ZzDTtLubmesPJC/+3vfeGNjrtDQKN8olG/8zzb2KpTF6hQ1m7Tv 7an9dKcMqN8eYjB1hJH0EcYMo0xkjTKVPcq0NJMzwowq7JnsQWmAGW3b/Yxu 8dbOfcX4mZgaJkLKxNyrQ1s+ctE2/F21LA9pN+RR4hZIlVsQ9VKzWzBtUofU 5RosyzpdgpUKOpx13kmvOwYxkpLHF+sP37c7f4/nGw+5L1+z+lue/KxIPlYi FcvPltr7WJSvvV5/uAX8Z7x8+oqClDLFtFpK5Wvlhh5q5GfNmaN0ysf6DdOM ZN1nIneO+/nzzBctsFhiYaXMwpp5kfXKRTarLDystmqBRzXzPKqeY0V+N24a VktsDVrddGoB2pOaaY+tpVX+1uxXQHlYOekNC6TXSfpcWtU8+dXN9AwOsLYm P16d4frpvdz4fB/njuzggJzvsJzvmBzvxK59HLc63s4znNp9js/3nuf0/gt4 nt+pALST24d3/97p7hw7gJ2c7t6JQzidOozL54fV3l+hurGUuGBHTn/8x1z5 5Z/gsu1DYo//goTTPyf6zM8UTA7T3VVKVoID4S7HCXY8QqgUrsAU5WzNL4eI dTpAnPJMnBwrWTWCwXW/tinDdZ+61nTXvTraS6ICVqJei7yzTQHsEyKv/4rw Sz8jNK2WlNp5UrReE0uvmVh8JVe07su/2NoXWwyolyMqlWc2U5LZjllrWavU 3aQk0J42QnfaGP1pEwxlTDKaOcVE9jRTuTOKCzPM5s0wJ83nT0tT0qSejzNv GlWKH2I+u4+FjE4WFAfm4qqYDC9875Tn33dErzYfyAtMlLkHUOMeRJPU7h5M t9QvDbqHMOwWwog0apWrnstFh+SgA07B9MpJux2CmLQ66drDv/2+R/viy5es ritISQ2N2TRLLQ3qYOo11mazuTLD5vIMX719qcW0fuYfMKcYWuAWQLm4qP5r fLSIizardNlWqcV5i4sGh0CVyX1bgJ+lvbqDEq1nqYJ9uRJphWGYBvl3e+YM vZlzDGUtMG5cZKZgmfniFRbLVlmpWGO9ao3NmjUe1q7zuG6NJ/VrPG1YZaNm kfuKtyP5EwxrTQdNI/TlDtKd1UeHAkZHcrP6xBra1SE0+xuJzy4iLCuToMQw whLCiYgPJzI2XHVpGP4On+Osusj5wk7ufr6N60c+UvD8mIt7d3Jm14Hf+7g1 uJ7ef5GzBy/hdHKHzcfvKLja2QLrAe7Kx++ePIT9Z4dxPn0Yt3NK0uePKGBe wf22Pv/zP+bWL3+K7/5fEnf6Ywzy8bQLPyPmwn9QUnQn0OGYfPwYIU5HCVOg jXQ+QrQU63KYOCXYeAXReBclWAXWLI8DZHrsJ0nHsfY7lZy3a6uiFIL/jR63 E2X3CVG3f0XUtZ/z+cc7iFB82eJcqpLM89R1b9Az1E9FcSHpsUlkxqYR6e9J pJ832arfTVH5qrELaUufkJ9P0Z8+w3DmLGPZ80waF5jOsygmWZgvtLBQZMFS bLHFpsUSa4yaZ7F4lkXlRUvBFBZrgWQcwJLZhSWtkfkkMy9H5ji45fDn3nvm a0Xhcnd/qjwCafSQs3sG0espR/cIZtQjhHE5/JR7KNPST7ivx/+H+256Luef kvOPywOH5fyD8sBe+wDeKTJ/+dULRsbVZLXl0NGeQ7fU25ZLvzTYKrVIzVJT LgMNUp1eq8nBHO2L4c51jPfsqRN4LQKu4z18fbJjQNcctErXHdR1B6R+XbtP 4HXr+p32gWy29P43tql9bvsRQHFyKWVpDZQrJZlFQLVhiibDLF2ZFvqzlhk1 rjJVsM5sySaL5Q9YqXzIevVDHtQ94lH9I540PuKZ9XcI9RvMmZeY1EpPlMwx XjLLaLF2p2iKgYJxekRDZ84AnYpWdQkl5AYHkOpnR2KQI9HpEcSlRZCQEkFS cgTJiRG43zjGvc8+wf7UJ3he2IXbme04HP8Ex2Of4nh4Gw4qPez37eHqnuOc 3rdFwLnDl0XBTu6oxLBTpL/7AwEnDuu7DuNw+gguZ4/gfuEoXpeO4nl0G8G7 PuHCL36O0/6PCTq9jejLO0i9to2cG7+i9sYviL17gEAnRXopxPmYov4xolyP EiPFuR4h3u0wCSonEtz2k6bInuq67wPVHzv5Q6IddhBjv13PNDru3BrvfUrM 3Y+Ivvlzzm0TzJ9sx6CEl1zeS1xeFYEJYQQrEIRE+BPkcZcYfxdSQrxIDfYj LSiA9IAgMv2CyfUJxegZRp57OI0R1fQkDzBpWlGwWmW2aI2FkjUspWssla2x XL7GitkqBTDzirSkcxbbb38s2iJL4QQW0yCW7A4shjrmUop/gODs+7ut3YZc Kj38qfEMoFkAdEkDgmBUmvQMYcYzlFmPMBYki8xa9LTCsKTHf2E7XhAoc3LS GYXnSYXmHhdPslzOUhBmp0Iuh/7OXIakkU4jYx1GJqTJdqnNyFSr1KLjJiN9 hfGY7M+Td/cCeXYXKLh1gcJr56m/6yAglXUEwZgQnHAP/YApUfh3xWGojcOJ 9yyOWJORktCAssGsktBXaw/52+9Ln47KVspSqii3/fRkUEBMUmuYU5+1RE/W KvVR09S7djKaPMeC+QnLVU9Zq33GZv1zHjU+50nzc561POdh4xOmyleZ1opP li0yopAzWDAhEMboyx+hJ09lu6mPTtMAprgYMiK8yA51JzvEgdzAO6RkRpBm iCAjI5LM9EgSwt3luJ/geuYT3D6XTn2K6/GPcT/5KR7Ht+FxbDtucni3w9LB /bju28fVg+c4f+QKzid3YXd4r+rvLRjuHVc6OHVE7fYRHM8cxVUwuJ/ZR8DB XxGz85dkfbYLk90ZHD5TG35xB+4XdxJ2YxfJdjsYCDpH4dVPybzyMeF2BwhV CRThepwot+PEuh0jzv0oCR5HSPQ4JCkVKDV8oEJoN/9KZdEuaae0Q9pOrLOI cLKSsU2UfEzM7Q+5oB7z4t7t2F1VSZWmlChFpUYQq8AQFehMtLc9ke6OJHi5 kykacoJDMAaFkR8QTpFvJCU+kZR5R1MhVXpF0xxsUgmk8qbsoYLXI5bNjxTA HsmmtapH/H1bIFuvfqBnG6xWrbNUsYJFJayldFZkiIp8pQdjm8io4PXk7IEt KM68rz96BUW1oKgTFK2egfQIiiHBMC6HnxYEc57hgiGCJa8IVqQ17wjWvSM+ YEMHf6DHcD0NY80rTC+HMubpRa3nDYo8z1MilUk1EfcY65bvS9NdRmakWTEy Jz7mrRIf8+JjtCRebeMF6SJmx4tU2l+k6u5Fqu9cpOaGnl++wIiTjy09zXmE Mu8R+hNBGcp/az1kVtjY0JQmXIIYU2cwqFz19drDn7zPFSWJhZSnNL7/6dOY 2qBZ6jOWaDOs05PzgMA9VdSca2XGvY6ZyC5Wa1+x0fCah01veNLyhmdtb1mp f8Z0xQMmK9YZVNcwXDwvzTJUcp/Bkmn6iyfpLRqnKbcRU2QIBRHBFIUHURLq jznYk9JQe0wJnuTkRJKbHYkxM5Kgu8fwOr8Nr3M78D67E+/T0qlteCpX+J3a Lun8yf14nziA9/ED+AoDn8MHcDlwFOcTu7lrzRM6d09o2CtP2NA4fRTHc8fw EBJRhz4k9ehO8q4coMj+CPWxlzl3/FNunt2G8+VtuF/fRoDjcQxel8l2OErR 3X0U3fiYFLs9RLqdJNr9BLEex4n3PEai51GNh3RuPwlqQ+Nd9vxEZdRu7UKc yy5pp22Mtcp5G7EOHxN950Nunv7kA+wufcS/JiTGjXgFhiQpMSGAaK87+jal CTcnfUyvuXiR6x9KcZBA8I2l0jNRMTuJOu9k6n0TqfePp9E3niafOLrCCpkx zrBa/Zy1mhds1D5no+45m3XPmFPtNJ8+xFrBHMs1D1hUzWupEBjl97GUqG4q 6hUcDSzkFPCeitO24R/yVg1CrbsfDZ7+tNioULwVERMiYkZELNiIiGTVO0ru H8UDnygeSo98o8TlYz3+Iz1GShE6H8Ggt5N4Pk+l7wWqpBqp3ucCDV7nGa2K Z7ZHCEgWIbLYZWKp0/QByx0mmTJdniBTLqpU2lKD20WaXC7R7CQ5XKbl7iVa bun42kW6rt9i2XML1FXpAz2G81M9D9P5rYw2r5Jv1prFXIOYUgM95uDPNyrn rBOfG56iLLEcc4pSR9qQGJmmMt1CQ8Ya7VkP6TM9xf/4fRqCNpnLVlJ2y2XF t5Q1k4XHre942v6OuZrnTCulDJWKj5IVhktVf5UtMVq+xIgS9lD5AgPlc9Rl V1IcG0tRbDRFMRGURodijgqkOtyXuhBXyqOdyTdGU5AbrQraA9+L4kCdxAf4 6/FneClluO/7CJedH+Kx60NV/7/C58AOfA/ulI17CTipmufUIQLFRMjBbTip 1rqnWsremjpOipHPj+J0eDv+e35GwslPyLq6m7zbRzFaOwN1DL7XD1KqiBQd 4yovdaWkJIYIn7N43j1O4N2T6hZOUaD3FtvvUibfoY7hILGeJ4j3EideR4n2 OCjtJ1E9c7wUZ5WbVXulPaq5dkt7bMdxrjv1nk9IcP3pT7A7/Uv+L7ycjpGq 8JAupUR7Eed5hwRPBxLdXUly8yTRwZf4G8EU2CdS6ZJGnZuBJs9M2nyy6fTP oScwl96gLLqCU+kITKRd4Fgbio36t2w2vOFB4xs10rO0OBSwEdTK74xNPKhR PVX3EIsaQ0uVZesnuGVDyiTtqq/UWExN7d/i5HPb8Ae8sXHio55ii5MuZY5B Odm43O6+HHFBjCyLjzXlsk2faPERIyZieOoXw3O/aCmGF/5bx8/8oujyvU2d nxzd/yKNPhdpdT9Pm9cF2nWuQ8x0eF9gRrws95hY6REja90m/jHrepyvSlBE uEizj3iQ2rwv0aF41uV5mW6PK3S7Sc6So57f1XkxM3jrjszawvcDPUbyL/U8 wpbb1pXZrBltUVOyiJk590DuuwQw4einlPKA+ZH7lCfWYE5Wz5E6Jl7mxMoK jYYHdOQ+pa/gJQmOm+TEPaEpaoipiGbWw6p45JPDqp+ZB21fM1X9kqGyRwyU bjJcvsGoWarYkC2jletsZ7hyjer0IkoTkilNTFT+iqcsIYaKhEiq40Kpiw5Q 4exFQ8hdivPiKDHFkRp4m8Aruwi6vBv/8ztxU8ftIXkf1rj/F3iqS/Y98EsC juwk8Jjed2w3wcd3E3JyL6GfHyBCpVbEwY9xVQduY+XQHjw+/WOd+4jkczvJ vLmPbMcDmttB/O6IBbvjBN05RFqsOy2dJbR2lVBSEEaQ60n8nE7ga38Mfyle nXeu2xFKXQ9gVhNRcHcbcd7HifY8QozXIeWUA7b+I87tgEowq3TssU9rEe+x l3+nkmy3nu8lyXs7Se4f4nftl9w+9gtuHfmQO0d+jsOJD8k0xpCdG0Oi9y2S vO6R7OlCqqdgsfcn/loYiVcF1DWVVs4ZNHln0+afS1eQkd5QEwPheQxH5DOm 7nw0SufCUugNTGYoqoyHze9o9ypi0j6F13rPs/KH/OXQOs/al1hqfIql/gGW WpVdVWpGqlRyVSizlNXzZm72R8D8Q4YMOTQpsVhh6ZBnDSgqjymhzAiUBa8o wRLNukB5YAXFL5an/rE8l15KH/AqIPYDXgfEEkqf2s4m/0uq2S7R7nCOTqnH /py687P03ztDv+NZfbkKphgH1nvz2LSqL58H0sP+fFpFWEfAZTql7oAr9Hhc ot/jMgMqvobt9TnXy+oyrjDsekVd+FV1/lcYsLvMmJ0dT0TtExH7xFfy28p6 D5XtNn3CRbpSjQ2bYCxCZs7Fn9U0Iwsj85gTVHol9Su9TAkZC1Xp6zRmPabD 9IK+4jdKD18yVfU1lclL5Af3Mhzfy3pSGy9iq3jmm8N0XBf9ZY8ZVNcyXPmE sSqp+gnjNU8YrXmsLsdMeXKGSrx0KVVKpiIlgeqkGOqSImlMCKElxo/WcGfK CxKpyE8kWGE/9Ppegi7txl2ttOexbSqxPsXPpk/wPfIRfpL/0R2EnNJ7P9tD mBT++R4ipPiz6gROfEyUkHLf9guCt39InFJTysU9pN3Zrz75EH63juJ9+wR+ dicIvHeCYIfjZCd70txRTGtnMVnJjvg4ChXnk/i7nCTA9RQBGsNUihncj1Hs eZhK931UOXxKljqQGO/DQuEg8e6HrHQcVJca73HARlC8p/U+bYLXPv4tyb7b SPb+lSj4BX7Xf4XdyY+xO/5L7I99iOPRnxPtdx2TIkaKtx1p3s6ke3mQaBdE ws1wEm/GkHIrjsxbCRjvJtHgm0tnaD69EYUMRhUxHFPEeFwxU/HFTCcWMyuN RGfSaO9N7Vl7NvwK+Sajhj+vbOZN9wxPR16w2vqGpZaXWJoeY2nYwFK3JKl1 r1WKqWrhQVcH73H57P3vMax1WKPyS6tHAO3yqB7hMqy8MukZyZxwWfKOYc0n VrjECpc4nvnH8TIgXqDE8yYwnrfSB3yhx3/JoIhp971Ep+MFOtVm9Eh90oA0 6HCBIbXkI/fOMXb3LCOiYaU2iUcDBTweLODJUAH3C4PoDr5Mb/BVuryVQJwv 0u98iWFpTJqUpp0vM6PCbFaa0fGE61VGna/qey8zdfeubHkhkK/Yct4zEfTU Ro/IUZ24Jnqs5Cz9QI6zH0b3eMzxrZgTVYwlz4icZSWETRqzn9GR/4q+ki8Z qfiGqZrvmG/4Df1KOmUJ92lNHmEpa5BXme28S6rkSXwtE8YFRqpfMaamZkIa l9rz+6lIzaEiLZuK9CwVfAaNabpGCnVpiTSmxNKSHEl7QjAdUR5UFqVQLYXd 3E/Erf3q27fjddLanOywNSmBn1m1Df8TnxCooipQ50JFSfiZvUSc3Uvkub1E SdFn95B4+D+QduCnpO//OYkntpN6Rc3ErX14XjuKy7XjuN88gdcdUXP3BAH2 JwhSg+J9fQ9NHUU0dxYSH3we799Tc8pGTZD7KUI9Tomwo+rdj5Pvc4xKn0PU KnmUumwnTb18vIeVGnUw/0F1mvKO90ESpETvA6T47ybFV32P70ckiZq7pz7l 3mef4nDqE5xO/AoX5ZsYrxsU5iWR7uOAwcedDDd/Em+pm7kdS8qdBNLvJpNj n0q+cxolbhn0RJYwEFOqYFbGWGIZk8nlzKSWM5tWznhMDoPqZvvvOKhddWIp KJzfNnXzqm2cR53fs9nxDavtX7HU9hpLy3MszSrOmlalOSyNo6Knk4WKkh9B 8ycMW380pRzT7hFEp4qxfuWXMQEz7RXNgoBZETAbguWR+qhn0suABF4HJgiW BL4ISuBL6StpIcCDLpeLAsWqS/TKwQfk1ENOcn6783RLjVc+o+XKKdoun5RO 0Oh5lSpTLNXGWCYaDLT4nmcg7JrsuESXm1KM22WGVYmNS1NuV9XLX2VeWpAs 7ldYVLpZcrmMRZpU2hm7d4WZe3dtuS+ONNmqfBig9OMfzUPBsy5wVgTOkneI wAliUbuRdS0Ic5w6mIQRgTMraFapynhEY+5zOgrf0lf2jpHKb5mq/Q3zjb+1 /RHMRsd/ZLjiC0riRgTKOM8KB/nG1Mr3KWVs5A4zVvcV4/VfMaCKrCotT99n ospgpNJ6T9GQTXVmFnWGDHVKaTSnJ9KWFktnchjdsSqOMwKpK0sn0u6g0sw+ vD/bhc/nu/A9vYuAM6q+zu4i9Pwugs9sJ+T0NkLOKNWc3k3UhX1EX9xHzMX9 xJ78FRkH/pC8E39E/ukPyT+r5+re/S8dwvHCMRyvHMf5+gncbm1B43tPacRB 0DipQruzj8Z2648WUon0/kytxUl8BI2voPF3+4xAj88I8fyMcL0W4nGCKIGT 5XuCMv+j1PodoM5jB0WO25RVDouUIyLmMPGCKsH3EEm++0j1/1T6xEZNhONH ImYbDp9vx1ly07H7cZFz+BeYkoLI9HEh28ebxNvhJNuJmHuJpIkWg1MGRlcD RZ5ZlKuFqQ00MpRYwWhyJRNplUxnVDFrqFZFH8GQa4B8M5zNmBgWowJUWQex XjvHk+7f8ajrN2x2fcda59csdXyBpV35ps36Z1Tr0oIoUnXW1KMWp+LHuSaX Jjdv2twD6PAIUdMQpj4mknHPKO4LGYuQWfON44FweSJcXqijei29DUrky+BE 3klfS0+DtOVqOPqES59w6ZMbt99TH3NHqFw/Q7PUKrVJ7ddO03n9M7pvnKTz 9knq5SYNhfHUxbloyc9QYfc55punaVG+GvK8JluuCeHrzHlfF8bX5fLXVS5e Z9X7mtr8a6x5XGVNCC0LrWnlnUnlnFUXD1sefB0Yxwuh81ToPBI6G/5RrPhF sOQT9h6dQLLP+VHkXqZ8o2YmQdVayppc+zGNxpd0FH1BX/nXyh/fM1X/p8w1 /xnLbX/OYutvde4d3ebXVOeu0Gbc+knG1+Z+flfUyPfJhSqG15RjcqnOKBAm UlY+Vdn51GSbqMvOpSErm+ZMA22Z6lQzEujOiKInyZ+mrBCMMc7E3DuMt3KI 75k9+Clv+Ct/BF3YQ4gqrPBLqsIuWfHZQfiF7YTpXOSlA8SoUUk+/EcUnPoZ VZc/oubmxxRd/pDcSx+TfEZV3en9OJ7fwsbp+nFchY2HqjMfVWf+yimBalwC 7PZR35qvEimIGL/P8RQ23mr6fZRn/IRNgLAJ9hIyXso7XicIVTMT5nGMRK/j FAScoCrwCPV+e9Uff6LSaj/xvkeEzGGS/A8onKUGbFOJZsUmSdi4XxYyp3fi dEYNm0YPyVNVpeexj8hPDiXH14N01yCS70aTqo4/zSGVdGcDWW5Z5HnlUuxn xBxooiY0j/6kCsbTa5nKrKU7zEC7cxCT/urDY+J5kJbEZlYSa7m53E/JZSw2 nbX6Rzzq+S2bPb9WO/0NS11fsdiphNPxTNqUFoXRlPDpU9lW9QM2p2zDFKsd XbS6+dHhHiR0QuX+IlTYTCjbzHrHsiRs1vzieShsngYk8lLIvAlKEjZJwiaJ b6wKSVJJpewgbPqVYdqETM3Ns9TdOk/9TaEjtUitUvstNTu3z9J9+wx9tz+X TtEe60JzaQL1XmeodT5D+R2rzlEl7OqlQTUy931vsuB3kyVpxf+mbLrBuo43 VAVv+F5nUxhteG4hdF+ZZ/LuZZ74hMhWZUjpmRB6HKhSMyCaNety2vBRueYV jPlSALnnUjDHjgufBaGzTmXmExryVGIVf0mv+VuGhc5kg9Bp+S1L7X/GTNP3 DFR9QVv5S7oq3tBU9Jj6gnmmKiZ4XT/C72q7eJydSW9cOPUpmdRmF1OTUyTM iqjNLaQhJ5+mHBMt2dm0Z2fQlZ1CT3YsvWmBNFVnU5DspYxzGF+VXX7n9uGv bBKoTBJ8eT9hV/YTeU3Z5fo+Iq/sJvLyTiLOf0rCyZ9j+uznmK9+TO3dHdQ5 76LEaTfZV35F2gVF+PPq2c9tx+Wcss7l4zgKHReh4y50vFSi+Tpa8VG/L3Rq m03kZvoQ7fM5HjrvKXS8hY6P0PEXOkFCJ8DrJIFCJ9jnuHSScKETJYQMwqcs 5Bi1wQepD9hJmfc20rz2khywm9RAlYqBarACPiHW8yMczuzCUVnUVeHBQ6OX 5KMy1FslaGFKOEY/LzVRoaQ6xJPmmEqGsDG4ZZPtZSTfL4/SoAIqwwqptf6P fHwpfQnFtPskMOAdyf3IBFZSU4RLGkt5WawX1bBRWMWqqVR1XDoz2dU87BM6 vb9hrec7lrrfsdj9Fku3arVu1Wrdy1i61OF09LPQVP030Vnv6KZNBUuHe4jQ CVcPHqnuJppJZZw5YbMkbNb9E3gkbJ4FJvFK2LwNTuYr6euQZL6VlgO9hM1l ehwu0XjnAlVCpvrWBaFzgcZbF2mR2qUOvdZld4Huu+fpVZdjvUcweO9zegKu 02oMos7zLCV2ZynV62V39T1CsP7eJZqVRXrVwdz3ETZBt1kLvM2Gxs2gW2wG 3hION5UVb6j/v85D76usKkvNCjeLyz3Zmsir4ASeC58nQXE8DIxhXfis+EUq LGwVbR23FOU/T6TEv0dFmxWdDaHzlPq817SVvEenRug0/imzVnQ6fktf1Ru6 K/S6+SWd1uMaZScVaF3Vz/WZMTaaJhgwxDGeoQyeHExnWjI1xhJqpXqp0VhE izFf2cpIpzGLblMafaZ4+gxBNNcpUxXFqcNR335hv7A5QODlAwRdOUjItQNE XD9A1E1lGHU/sTf3Env2I7KETOmVT6m5t5M61z1Ueuwh03EvcbcPkHZzJ2mX PyH18nZSrmy3ZS7Hy8ds6DgLHVeh4yl0rJ2Mj71wtdtLdVMu2QZvW7Hm7XIS DxVrXhq91N34qrvxU8bx9VSG8lam8hE+GiOFTZTnMSK9jpHgfxxT6HEqwg9T F6rv8/+I7ICPSAnaTnLQNhJVsHnf3IGjsqmTwoOb5Cn5nN2HrwpT98MfU56b RF6AD+kuUaQ5JQmbDBs2mV4mcvwKKAgqoiy8hKqoElUsJZS7q1N0i2A0JIG5 pFSWFJIW840sFptZKatlrayG9bIqNksrmFPGn0hJZbVpk80+odP7Hcs977D0 qmDrfYGl75G0omOh0zXAQnPNj9HxotHFi3a3QKETKkXQ6xHFsFcMU8o4c77x QieBDWHzSNg8FzavhcwXwuVdSArfhKbwndTrcZlu+0tU3ThH5S0rOhepuy2M pJbbKtzuXKbDTr2OMOgWXr2OavitNwuczqkHOs2Ao/qedDeq3IWMw3nKHS5S 4XiJGuHYJLU6X6FTmaTHhs8NNkLvsCk9sCrkNg9DbvFQGD0MvMkjZaHHPtdY UhFnvXHw1D9UNifyQvg8FTqPgtSzCZ/VgCjNbSvztAsd02dJqs0bMccIneQt dOqETquyTk/FNwzWfst44/fcb/01o+pfeqtf01j2jNaKV3RY0an9gl6dH2x8 x3Dz19Tmd1CbkURvbjLjxgSmsqMYSQpWljEqm5XRrMjXkldEe34+XQW59BYa 6C9IpNsQSGuDibZGE+G3D6svOShs1O9cPUTw9UM2nCJuHyL6jnRR0VuZpvDi J1Te3SVk9lHtvY8clwPE3T1k/c92dUoniLc7QOoNRfur20i9tp34q9txuHQM h2vHcLqpzHPnOG73juPpeFw9zz68hE5FQw4FxdGEe1qLtFO4qWjzcD2Jp469 hY6Pp4o4oeOnrOMvbILdjxGufifC87hwU/ZR3xPle4zk4KMURh6lKGwHhSG/ Uqb4ma1YC3cTNsqmjuf2Kwvux13ylnwlv9PWW4ifUGPOpSDYj1SnWOGj3sY1 k0xPI9m+BRiFTWF4KWVRpRT5pmO2j6BL/joWm8pshoH7RgMzhUUsltezZK5j pULoVAidimo2KiqxFOQxZUhlJs/MZr/6nD4VbH1fYelX1hkQOgNCZ0Do9Aud nn4ejA/+DXKaXXzocAuykdP5npwRKzk+ccwr4Sz7J74nJ1nkJMsLU0ROCu9C reSkshLoTb1qsApRU2WlRrTUiJYGqfnOFdrsrtBx9wpd9lfocbxCr9MV+tUG DbheYsjtIiOiZcT1c5X7npQ7ncfsLGpcRKHrZXnCFZrdrtIuCro9rtEnDbhf Uy15gwfhd3koPQq341HYHR6F3uaRCHosep4E6HUlnzmPKyx43ONNiOpMBaJn wfEiJ06JKlbkRLOkum3JT4nHJxjjqUSK7BswR6vVSV6nQvVarekVzcVv6TK/ Y6D2G8Yav2Wm9TtGGr6gp/ol9SKnueIlbaKos+4tPQ1f0t/4FUMt76jIyMec YRSBamWMaQwVpDKZl6gaIYrR9Fjasoy0FpSolSqgu8RIX0km/cWqe80ptDfl 09GcT6Q69oArhwi6dljUHCbk5mHC7xwh/Npe4s98TO75Tyi/vYsal/3UeB+g wHMfCQ57RM0R4tQmiRz7QyIn7t4BEu/sIe36pzaCUm5uw1c1n/1V0XNT9Igc F5HjducA7rf3EeKr6FWXhbkhixCPk4SJHhe1QG5KOu4ix1PkuLkrUYkcKz3+ bsdEznFCPU4QJpLCRVKEyInw07HPEWKCDpIeup3csG2YQmS3/y+IOvshbp+p xTl3ANdzB/GQvCW/8wfxVyJKDXSirtJEYVgAac7xZLimk+meQ5Z3HjkB1j/R LSU3wES+cwI1rnF0yxfHkg1MZmcxVVjCXFk9C+Z6LJX1LFbVsVxdy2qNyKmu kirZrDYrmqUykZnIcvMKq/3vWBr4EsvgGyxDImdI5AyJnMFpJZ8+Xm+u/Yic P6LFxZcOV+vP1sNETiS9KtVGlG+mfK3kJLAsajaUbx4FWclJsZHzZUiqyEnl W6nL/gbl189SedOaay5RLWLqREzjnau03LlG+93rdNpfp9vpukqu6/S5bnn/ kLqSEa/LjHpdYlRlWnPIRcyuosbtMpXuV6kWLQ2eKuO89Hnv6/T4XKdfGpSG 9XxKnc+jyHs8jrTeR3scYUcWj0XQExH0NOimcs11FnyUd5QP34QmiRyVm6Ln sejZVN5ZDRQ5trwjcnxDyBE5uZ/nYo6cxZyo5t7wmGrTSxqL39BpVilW85WI ecdU69fqbh7TVfWcuvJnNFW+oEXktIucbhHV2/QVnbUiz1BAdXYRNbklmDNV fuVm0KO8MlmUxkJ+IotZEYyoAu8sLaKnPI++8izRk0hLSQodLYV0thViirlH 4LUjBN84QsitowRe3UfY5x+TdvpjCm/swuykHON1kGKfQ7a/mYpz2EfMvd3E 39llYybW8TBxjod0/qCkvKO8lHJTuef2duJEz73LR7l3XfTcVul24wBON/aq 89lDbKwjJTUGSusyCHKxUnGKALeTODurtFPecdWxi5tIU47xczmEv+sxAkVO kCgKETUhKt/CRE6Yv8gJOE60yIkN2kmcOpzU4G0k3dlB6iVRfPrnBH+2Ddfz h/A8fxifCypPLx6ydXVJAU7UV+VTlhyF0TdG3U4GmR4qIVWm5QaXkGIXR55d NPU+yXRFGxhMz6ZPnWOHusj7omauQuSIGkt1HYu1tSxLK3XVrNaJnLoKycz9 wkwmcxKZr+5mdfBLloaUb4ZfYRl5JqnTGVkSPZMip5fvvnr7I3KyaXH+z+R0 vCdn2EZOPHMiZ8lGTrLISVHMTuGVqPkidIucNc8YSm6cxnzjgqo05YnbV6gR LXV3rtN05watd2/QYX+TLqeb9Lrcos/tJgOeNxlUzrB6/6jvNcb9rjDmc576 oMtUqL+vVF6pEjG1er1JjU2bCOny1+elfjU0QxqH1dSM+t5gTbw8lnc9ibbq Lk8i7XgSbqXnlo2e9YBrzPlcYc3Pk5ei55nosZLzQHlnTRXbspUcf1VsfqG0 3Ykm97TICZvGHL+COf0hlbnPqS9UTil/o+rsLcPKKRMtX9FS/lAV2lOqy9UM iZzm6le01okwkdPd/CVNZaOYswqoyimm2lgqAsuoVlVQnp1DW0EWE8ovi6Vp rKmZsRTEMlySQV9FFp1F8bS3Wv+6sIiu9iLMxmACRU2w8kLI+V3Envgl2Zd3 UGy/D7PHIcp8D5HldZhElyMkuVr/QtT6lyFqbpR34u8p9+h9sY6ixkn0OGl0 3E+GqEoROcl2n2J38Qh2Vw5L+7l7dQ/21/coB+0hIzuYgqo0imrSSU50IcBV zYzbVtXmpLzjqOcOzkfx0Hf6OEsix0/kBIicwPeNT5DICRY5IQEnFNmiA60/ WI7Uo6/DDjwv7iVSUSDp6m4yLnxK4ulPCDyjJkf2+F0+godyUV1NIQ21hVSZ UjD5RYsag+2+QMrdJDVsoRQ7xlMbmEFbfDbtGTk0ZZXSnGumPa9U61nJnPLM fE0dC7V1WOprWaqvYbmxmpWGSlYbK1hrKGde1eCEKZGxnBhWht+wOCJqRp9L T7CMbWq0iKQJZnu7fvgV2hY2njRbsXERNq7hfw2bOCat2KhMs2KzbsMm+UfY vAhIoOGuHaXXzgmbi0o2V4TNNZVpN2i4c5Nmu1u02d+m0/E23S636XW/Tb/X bQa8bzPke4sRuf+YSqoJufa4/0VqA4SM+vpqIVUjXGr1nib/W7QH6vNSX5A+ G6zPBuuzamhGVZKN6/PrUcIl1p4nMf8lOg+CrjPvf1WlphevhM1zKzZKOg+C rdjEsmxLOsJGjdCSXxBZwqY8aFKNzqLt9po5R+VawXNayl7SXfWKgfo3jDW9 VXOzSVvlYyrL9HrFcxpUtjXXvaat4S2dLV/w/7H1ntGRpdlxYJyRzpFWS5Fn diVxZQ6NuCIpipqhm53pcvAmHRKuCgXvvfceSPgEEh7pkfDee+/Le9gquPKm q83MNKeb3N8b72VWT4/O/ridKDQKdb/vRtwbkfne9/rajBgy9mCEtBklbcY6 h0TaTHQxOvsx3yMcyWLCwaAR590teGEox76+mNKuWKRJvN1PURUqJ+WqURPm hjLXX6BNYY+eMCkG0hToy/OgR+YwIVwbKJMaMz3QmKWwXk2cJSGF3AWV5oo/ 5X9dRBZpUqxs0iS6kTX0RnGXUUCPFHvdBbGBrogNcUUcmVOU7Q/zYCssw23o HG2DzqxCQYIUhcn0W2leyE9VIi1JhlT+nqxkCXLImhymkUvW5JM1Bbk+KMz3 QVGhD4rJmtIiD7KmslhgTWGGMxL9ZUjwk9LbSKlCpWiIkMAQ4oJ27ytoUV5E YbgSZYmB0BQmojYrHl2tVfQyarQk1aPpWjksQVUYTWvBZLkBUw3tGGvrw5hh FFPmEcxzi5e6B3FzaBRPOGf2OGP2yZiDmQkczo3jaH4MT+dHcTw/whjC3mg7 7tFX3u2sw9Pbn5MpZMzdtzi8x1lz74ys2cfBrbv4/NXL32XNfVrvT6yxDpsN DpCbZM19sma3UGBNExHWTOvdgrdkzedkzVdkzVZ8CSYTEzEYEYSRaEqrmEiy hoiPiyFrYjGfGIellDha+nisc/lbOQnYyY8Xryu4WRSH22TCXaL/vioKd0tC MFXKIZMXhfH8GEwUxmKqOA5zJXFYUfHvlyVgqzweO+VxuMm4TTl2h3LsnorM KYnCm/pkBplTR+bUkjk1ZE5VLGVbNPb5ex8VBFtZU/4D1pTaWFNC1hRXkDml mI+tw0DBXQxV0eQ0ceAYXnBQvMZs/1uskB2bkx+wNPISU/1nmBt+gaGB1xgb fofJsQ9sjDRDM2TOwlfo03ZigKwZImuGyZqRjiGMsqRj3SOY6h3B7MAIZvq6 KdHMuDfQgeMBDu6Ocgx5X0Lqhb9GjvPfotj5J6h0/CuMetmjnY24n8ZmgKbC mOspXndfm0njQqjWC5+hZCvRmEPm5JA1OVJo82TQ58jQmOaGumTh1iwX8fYs TaIj6ijV6uJpcmIuoTRI+MDeBYkBjGAXpLP51zWXQNfbAiNzMg21on24Faqc AOTFuCM/ToKiJCnKOWTyOMhyOLyy02hQMpTIyrKanTwanAIOm3wOmwIanJJC GQePE/LSnJFwnZTxl/Pf82AokRCgQHagFNUhSg4dD3T6u6BD+RkC/+4vEfaL nyLx4k+Reel/otjhJzBKk9AXWIPJdC1mytndNB3obh5Ev3YMo6ZRTFq4r93D WOwbxI3hETwmZZ6QMruzE9gjZfZJmYOFMRwtjODp4jCeLQ7iyYQZd/oacKeX hn52Dvv33uDg/kvGOQ7uPcPBnV082rn16c6YT5Q5W9oUPyZaSf9EGTVukDL3 SJknRQ04JGVOSJkXpMsbxgdS5ll2DRbjVRiKjiRlQjhowkmZaA6bWEzGxWE2 PgELSQlYTk3AWmYif2citvITscPucaM4ETdL43GbVLhH2N8vp+YiZZbaSzFO LTZRGMehE0+9loA5UmW5PBFrlfz7Vfz7VQm4ybhNXXaXca+CtOFAeSpQpMFK m9ekzWuBNtVx9DukTFkEHheHkDIclN9Tpl6kzNP/hTLn7Wb0ZO5goPQxBjVP MaQ9o0Z7gameV9RkdDPjbzE3dI6x3mNMD3IQDbzE0NAbjNHlTJJO0zOkzfwX 6CFl+kiZAXM/BkmZIVJmiJQZ6eGg6SNtBlne0WHqukHM9Juw1GvAeGkaUq78 DCUOf4cKp5+g1uVvoPf8e1iu/z3u10bDkkWapNMppPmgmnSxXpfvjfocLzQI b/zmKRnCp/RytOXLYBK0G6MlU4L6NFfUJjuLt3XVJvE1wRFq6rOy4AtIVjoh 5aozUgjX7MTraGxvRnNnC1o5ALV9rdD1t6JBW4qcKHeU0i1VpHkgJ94FuUlu yCVl8kiZ3AwFckjfbOaTTdpkUaNlC0Hq5OZJkRTMKcbpEn9dTsooSBWBLp5I DKSrCvJCRrASBXxtDPNGF51W7D/8BBk//wmyL/8Nii/+NepdforVRCUms1ox qjKgq7oXnfUjnEJj6NOPURCMcoCzDfVyT/sHsT06godTE3g0M44npMsu6bJL uuwvjuBgaRiHS0M4Wh7AvTEtbg3W49ZALXX3LHbvvcAe6bJ3/wR7947w6PZj vHv95ncpo8PJ4oZ4r/pKGimTWY21bDX1Ux3ukjKPOWUOSJljUuY5p8xrUuY9 KbPKCTOfUEZD6k9tFkbKRGGEdBmLIdzjEjCbkIiFlEROriT+viRs5CVjqzAZ O8XJuFGahFtliZwSCbhXGY/7ldRavSpsDJRjnFpMoMtUaSKmy5IwX5GE5aok rDM2a5KwU5OMm3y9XcO/T012jzrsHqfJPU6T140peE3avNIk4VUdKaOm3amJ wX5lJJ6oQvFSVfE9ZZ6TMicqUqaUlCklZUrKcVRUgo8b6/h4/g16c++jv+oQ A5w0Q4YzaqvnmO5/gUVhwvQdY7DrCGN8HRo4Rx8nzdDIW4xOvMfE9AeMjTxG JynTY+hBr6kPfe0D6KelGegawiBLOto/jHF2wSlSZmZ8ALPjPfyeAZEKKWKd LqFYcQn1tC5avwvoCL+EzugLGKsNRXmSDypSfVCZ4YsqmvGabB/U5vhAQ2hq 8jlt8j0ZHqgnTVpJGWOhAoZCOfQFnDgFUrTluKM50w1qUked5IiaBDtUxlxA oFKCSKUL4nycoCovQq2uGXXGZmjaW9DQ0YzRSRPubvWiqTQcxaRMSaoC6bHO SE9wQwYnTUaqBBlpEqRleCGVtEnJFixMKon8t4hLuYpkUjH2qjti/WSIu65A nD+1JykTT8okkCbJwV5IC/VGuvDGxFUZ/C78AtEXf4E8p5+jzOVnqFf8HHq/ z2AI+jlm6hrQXtqNjpoBdDYMkzKj6KUwG2wfwSh171TfEO3kALbGhnF/ehwP ZsbwkHR5tDCKx6TLk6UR7C1TlK0MYn+tHzeHGzmRNLgxVIO7S1N4dP8Mj++f 8vUYD+4e4OnBMeQ/vLjGgvlkUiW1nNCuwiqpskWq3M7X4CHd/75gZUqacEYb 84pU2eMEmo8rxVx8JakSSKpEYCgyBsPRcZwwCZiIT8JMUhIW0pKxnJWMtdwU bBSkYKs4BTslKbhRloxbFcm4w2lxjxPiTnUsXXUzdhbaME4RNlmSgCnSZJo/ M1fF31GdgjV1CjYZ27X8+4xbdfz7tUm4yylyryaOlInBEenxqpFUaSBVNImk Szxe1cZiv4pUKQuj+MoW3f8rkSoaK1VUNd9T5aCoGO9JFWFHniy/RXfRLvrU T9HfekJhdUoxdYYZUmOk+xA9lj0M8nW07xm6+l6il5NnYOwNhiffoa9TOGyp A536HnSRKt3t/ejpGEBP1yD6ekmXgWEMD1OcsZzjY/0Y5nSZmOrCdfufI9Tt MlIUdqi+bgddxBVoY6+gMeoCBhoTYWlMJVV8rVTJ8kV1ji/U9Ay17OCaAi/q fk+GkqFACzu6oUgBPUNHQaQjVXSFdP75fM3na54bGtMd6WsuI9zPA2F+Cswv LGCKDrmrS48J6vv1hW5sLndja60HOxs9uLnVA40qAnnJFFTR9CNxrkikl0kk XRI5ZRJIobh0T8TR00Qm+CIgMBTXrkaTKq6IvipBzDUZPZMCsf7KHyGWPPnv iCdLkkLILg6VZOqy4iR/ePz85/C/chnpUjuUe11GU+AVNIddhjrwHzBmbIO5 uBOWqn501A+hs3UE3cYR9FOLDVOLjfcPYXpogI5zCHemxnBvdhT3aFseUIM9 oAZ7xKHymCx5ssbBMmfCzmg9B1EdtkeqcWt5EvfIknv3TnH37jPcvPkEv/71 N7/LFEfx4JOllDKRKStZNdjIpX3Jt9kXMuXoB1rsNn9uMq4cM/HV6I4MRl94 FAYiYzEUFc/BkojxBDIlOQXzGalYzk7FWl4qNgrTsFWSim1VKm5UEOlkwO3q JHEw3CDKb+104c6NbsxyYEyoEunmkjFdmYLZ6lQsqlOxWsvfUce/r0nFjoZ/ n3FbQ7ZQc92tpSZT0wZRc71sTsELsuVlQyJe1ifgpYZMqSFTKsgUVTbeikyp xzmZcqyq/Z4pRyVl1JxF1ls2/w7zWuFegAP0aI7Rqz3FQPspRntOKZ9O0W58 hC7LLvq7D9Df+wwdAy/QPfIKfeNv0G0RnhVigVnXzZ/rhYUyrMPC6GYP7B1E z+AQ+kmSwVGSpo9mdbIbc0v9CJdcQKj8MmIkl1Ee6IDWGDuoY66gNvYitrco K7YG0E7yV5AkldkkCklSnUeiFJAodAe1JEltkRK1nB/NJImOBNEWyX/E/8jw r6EtpJkhX7QFEmjz3dCW64yWDDskhXrh7Nmh9VQQJ/zqq494fryLxRmCYaEL y6TJyir91UY3RkY0qFCFISHOHZHRLoiIdUV4PIOTJYxxPdgXPteC4eUVCW+f KFwlRZJIkShfCaKvyRFNOsZcVyLG3xMxAV6I5TRJ4D+fGEwa6+rRrM6DJyeJ v8tFRDldhuqaPapC7FARegmqwJ9heZEtpVmP9soeWOoHyRFOFMMwei3DGOgZ wgjF18RQP1YobG9OjeD27AjuzA3j7sIw7pEf98mPB+THw40+TpwGbI5psDmu xsZoNbbJkZvkx427J9i6eYBff/MtFL/LD+FQoPmkMiylVYrCazXnt8LrkTBN ihvZiZtwkF+HhdhijMVVYipeje7oIPSGR6M/Ig6DUYkYik3CaGIKplJTMZeZ hsXcNKwWpGO9OB2b1OHb5WnYqSRHOB1uCQJKTe8xUIURdRqW69KwPqTGBKfI JKfIVFUqpmvSsFCbhhUN/58mHVv1/PsNabjZkIpb9eQIfckdTQKnCieSOgbH 5MXzpmQ8b0zCi4YEvKiPw546Eo8rw8iFLLzhFHlJwXUm8kMt8uOotAL7JSoc d1isd/tfwKz2GSxlh5TCJ+giP3rJjyHyQ9v6ACbDY3S076Kncx/dvU9hHnyB ztFX6By4B2NjC/TaLhiot4wcIkZyw9g1ABMraOEA6RwcRO9wNwbHuzC90I/Z 5X50WuoQoLiMMNkVFAU7oT7eHioOkK7WVJEXW1v9fBVOtErg4LgqcqOS3Kgm N2rIjZoiL6jJjZpsDgcOirZiBYO6iyG8thUJIUMrB0lrgSta85zRSHKcPju0 nvZhh6+//ojT012cnjNe7GJqpRPTa51IyfGHl9IZXt5u8PR1h9RZAbmrEh7u nlAoguHhGQlPksGbZEgNdEWkrxSRV+WIIhmiSIao656IIhmiSYaYAHJUr+HS ezEy2cdR4gtf14ucnXYo8neAKsweReGXORDUWF7qE99NH241or2W7aWZW2eg K2kfRk/3EAb6BjAy1IelEW7N1DB2ZoZwc47EWBjkQBjA7dV+3Fnvw+Z0G51l PdYm6rA6ocbqGC3F0iTWb59g5cYRfkUiePzwVjIH3GrupluowJIwKGjGNzko bgmDotA6KATTfjujApOxpRiJrcZ4fB26SILusBgSIR79JMFAbDKGk1IxkZaG mSwCOC8dy4UZWC1Jx0YZiVBBIFeRDDVs9upkSiTKhKQALHo748DfGccB9ljI CcMkB8RUdRqma9MxV5eOpXr+jgb+DsZ2Yzp2GtNwg/LiVgPJRCLc1tD8Uzrt ESnnzck4b0rCeWMCnjbE4kltJB5VheKAJBBdRxmlVBmlVJkaR6oqHJSW41FJ Kf7x5QtYz3L7BT68+A5G1SGRx6nQdoouyqk6zQM0Nz+GVrcLo3kPls4DWCin TCPPYZp4Bb1Gg9a2LrTpetBm6EMbJ0QrHUcby6br7oO5twMjMz0Yn+vF1GIf ZlnqhZV+dHfVIcHDC72ZQZSOvnQuddgk8re2hWBPIwO2N3sxP9VEh2FlQCUZ IHw4XlWgRFWuFFVkQGuxB4NSSmSAQvyz8HVLMSdHkQTNZEBfvT92N03/1rbM h89eIZWldrviDjd7Kdwc5ZA4e0DmSpSLSA+Ah3cUlER5RrAL270U4UR5xDUF IvyUiCDKw2ko0hJC0NxWh77RHhvKrccZxoZ445q7HTIDHZEdehkD3XVY5LKX lnqJdMZyD8b0beLh4BbtMDrMRDsNWg9RPtDfS6M3gLXJIWxMD2GTKN9aHMAO Ub5D07A6pcXyeCOWJ+qxNKnBElG+RJQvLkxiZusQX//6W+UPAW6Pr05fUueX U+dXYYlKSOj02+z0dwroG4oasMfYof0ei1ERyDUYiauDJTIIXezy3eEJ6I1K Ql9cCgYI8NH0NExmp2M2PwMLRRlYLiVAyzOwVsmOX02gEuDrBHhvYSwMSjm2 vGT4KlSKrxNkeFwUhAlOgkkbwGc1/B0E+HJDJtYaM7DZRJI0pX0P8pv0BzcJ 7JuaOCqrSJwQ4KfNSThtSsB+Qwwe10XiQXWo6BNeUAGdEeDPympxWFaNfVUl HpeW4Wln578Wt+H/wVT3C+jrjmEgrhubDlCteYS6lido1O2htX0fuq5DGPqO YBg5ga66HFpNPRpbutDQ2o16XS807PD1eiMsgx0YmOjC8Ew3xubY9XVFaGos QE6iN7KEC0JkTmgLU6A/1RWlyV5oqYhBj7EQ8xONxHQvowdbm5Tsm/wdlhw0 FHlDneeB8iwJyrPdGZQzJZ5oLVGKry18bSpRMORoLJaipyWE878a5/eM+OXb B79vu1vJMHUXldopBAYmw8VeBldHBdxclHB384RU4gWZzBtyj2t0EJ7IDKGM ueqGUG8JQjxdEOLlimK2q47+TnQNdRHPwsDqQWtTEerU+ShPDkKWwh9zbFGj tXEwNBXA2FyAJXbspaUeLFFWLa10YW6yHX1NOnbuPlgsQ+jq6KPL6sb8yDAW J4awTDyvEs+r7Nor891YnNRhfqxJ3Jo54nl2QsNXNWZHq3DzxsKn84b9bEPr q9NXlOGVmE+vJpDVNKy1omT5BOTRiByMRpegJ0ZNIGvQG5ODrqhIdIbFoysy CT0EcV9yGoYy0jGWnYEpgniWIJ5XZWCRIF6qIhhr2Lkpz5f0heirLYTOxw+3 QgPx67RAfJPrh1epbpipT8ckZcpUbQamCeK5+kwsNmZipYlAbsrABmOLYN5u 4jxvpJmmRNmhLLmhjsKzlmRGIo6a4vGwPhoP6yJorINxTgCfEMBPCeD9shrs skM/UlXgDmXKr168sJ1E+TO8ffUt7t/5GnX1hyiofIRizROUteyhSr8Pdfsh NF1HqCeKm1QlaKmqQIu6mh28DfWtBrSa9NQj7egZ6UD/RCdaWELhutkE8UJA wiLGE3lEcJbCCfoIBYbSXFGR4oWqNC9Up3uhhqGriMS02Km7sbHVybBgfdOM qfFK9LWnQVcbhKYiDxtyPdFUrEQDO3J3awTmBnNwd7UO5487cP7QjLP7Rnz9 9gE+QXhm5xDGqV2Ypk9QqVtBSqEB/uFZcCKMnQljV4kn3GSeCPRyQ6q/PQWI E6qLUtBcX4n2znZYeiywEMLqmnwU5EQjNlSJ6GAlVbkSib7OiHdxhzZMLl4W WRgnXF4vHEHhyfwiqL1yCGG6hNUORjum+lox0NSAHp0BA2YTpvl7p0d6Mcu9 mx3rwMyIAZNDLZgaacYUITzJljxJ4TExXoeVuXrs7bThl+8efIKw9Zigy3i6 sIPplCrMZtRgMbsWq7k0tRQbt6m6+8NzMBJZhI5oquwYDTqictARGQ5LeBz7 cRI6Cd9uwreP8B3KIYQJ38liQlCViZmKTMxWUTSwt87ri7CxM4DpgRbU+nG4 kgLvciPwFfvvflcxbqyZManJxIQ6Q3ydZv+dI3wXCd9lxmpzBtab2csJ382m FGw2JmKzPh6bmmgctibhkPB91ByL+w1RuKcJx42qIPZdDftuHXYpLh6x/z5g /71NgfHNy1f4tzYL2tBxH5X6XVRbjpBev4us1gPkGA6Raz5EefMYWmtr0Vqv oc3Uod1iQHuPiVbUjLraXPHS7jjCNDZMiaRIJdIJ1+xYT+SzhPmeTjBGeWAo 3RWVqYRqGhsqoVorHkTFyPCAviyEMO1gtDNMNIB6LK+1YnGlEacPuvBubwCv d/vxkvF8txfnuz2MbkYnzp9YcP7IjNP7Bnz3zftPx5E/fPoWhvHHME4+JWKp hebfwrT0OUxrX8K0+StU9N5B+81v0L58DLO2Ce2GNrSbuDQzJW6HiZpKjcKs KC7HC8HXKSwCPRBHtCZxicm+wtXjriILGxPkKCIrhcONVIleKE/yREWiB7VN MEYGOPhXzUSsgejVYnqiCXfnLBhvb8NYpxajXW10+W30kq0YHmzB0FAzBkca sbOuZ+i4NDLxMZn4wOD9w0PeLopAnUitxnSGGnME6jKBupmnQWdoDlVvIfsq ORfNYkWWwRQeTtBGoZ1K2BybAktyKroyCFSCdLAgAyPFmRglSMcrMigA0jGl Lcbq1iDWdyhtbgzBXKfCcEIsXlLJHhtp8e4M4fbdQeysmDBBFTxOkE4SpFME 6SwBukCALjFWCNJVgnSNIF2j/VtviMd6XTT2CNIHLXG42xSDO42RuKUJw/3K TOwRoI8J0Hu0gHdV1bhJG/hyc9vWf/4WDw/fc/rvwTh+DOPsCxiX3rCaH1jN L1jdA5jYD8xtzWindGtvp3PvMqIwOwIZ7CVRoTRAIcIlOkqkRHoigwDNIUAL CNBiH0e0x8oxnOEkgrMmwwZO8VNaLzTk8DXLAw1p7pjk6FvdNBCgWiytNWNn sw0fDgbxVgDoXj9e7PXhfI8A3SNA97oYvwXo8T297QkMf891PIBx7IDoPINp 9hVMi+9hWuU6Nr6GafuXMN/4Fdpv/Rqmlka061q4Ji2Jp0dBchhSw9kzuY6A qwqE+nNdRGZ8CFEprI3IzKNkMEQSmYkyFCcQmYmelAhe1lkhEDDFA1XxbjCU h5Bgeiwst2F+sQkf9obwfncI754M4g3j1ZMBvCDhznd/uKZu65p2LSIyT0g6 7x8ewvkZvjx7jdGUakwQmtPC7RI5ddAH5cAcSliGl0AbqYEhuhHa4DCYIgnL +BgY45NhpH41p6ejg7DsZu/sZe/s5+gfKGcv1RVjcWMQQ8NNtPvFyEv2QHqw BJXX3TGU4g5TNs0G+4i2JhqDljxsLxsxwxE/xtE/TmhOEJrTHPtzjAXCcpGw XGpMZiRiuTEeK3VRuNsST7MZg1tNUbjZGIEtTQjulpfivqoWt1Vq3CAkt0or 8YKQtJbxb6AfeMxSPoVh+gzGhVcwrryDcZ1NZvsj9OyV5uYmQrKVjUWLgrQw pEWxgTBCA+WIDlGwjB6EoxKZhGNurBcKWK5iXyd0xHNdGY6ozmCvFKAonkrm JZ661JDnKZ6R35AhQT1F7NRoBZbX21jKJpw+7ML7/QERjq/2Ccf9PjzfZ+n2 Wbp9AY5sKE/acfrIhK/fP/yExun1p1ZmjZFZ02TWwlsYlz9wKUTk5lcw73zN XvlLmCz9MLeyV2pbURAXgrQgBdKJulA/BYKuCWhUINqGxhR+P9XXBYXeLjBG u6ExSYoS9kfhVJByolA4krk6wxM1mUrUJEtQk+gKrSoQ88uteHSz3YbEIbwl El8TiS93B/CcDDsXGPa/Lmm3HWePTfjlh0ef0BhksxUbbf0YSVdjLKsWmoBs NAcXQBdSDH14BZqIwpaIfIqOSBhiiMJkauf0JOizUhjpMOWlo1OVhq7yVAoH PfRteUiNVyKL0044yKQ41QfFUe6oJgpHUt1hyZFBI3zoluuDeuGDt2xa3zwf 9FdGEoEZGCYSx/g6SWRO00nNEoWzROEcUTjTGIupmhDstMQyoilOI7HZEI7l umA2QqqQUjXWS2uwUlKJX718/WMbAD988R0MA3RG46cwsCcaFl/DuPqOVfsA nb4bxoYGmJqbqacCkBYiR3qkB8IIvtAAVor9UOgjqZFWbZnLKVbICpUIp0om SjCU5fj9x++1BJ9wjFF9vhcahSgQjsiToYFDvTHDDRMjpeyFWnzYH8Q7AvAN wfeK4HshVOqAlTro/r5aZwTg8UMj/uk3H35sa+2GTzyaII/YDo2LBODq5zBu fCSXvmA75NBetLb4wsjrSPOTIp3LSAxUIMBbJoIvzAa+BBF8nki56opCHxeY Yt3RmCxDSbI3VGyB5ZTLlWzxVZkEX5bwrAkZ1MmuUCfxZysC8W53GG93BeAN iW3wNYH3gsB7ziWd7/fZgGdbzr4VfCcEn88PT4T/B3w8f41V3QBUfpmoDMhH bXARGkJL0RhRCU2ECg3BkWiJjEYrJ2tbWjzachKhLUiEvjiBfrQaXT0aFOaF IZltISPBeuNpYYoPStMYkW4i6EbTJOjIlbEt+LAt+LAt+KAp3xuNuZ6oz5Rh oC4WEwTZGGOUln2MbmeCgJtoTMBYQyxG6yMwVh2E9ZYYSspoTusILNaHYpHT eLlEjYWSatzp7MNXL19ZH9D0l5haPodhmDZ98jkM8y9hWH7DNkGpNf0I+loN CkJ8kCpUJ0iG9HBW55rMCrbg/z+weaPkmgs6kgSwcfgSaOpsgi1X+NDaWwRb QyHBVshulyuc2+uK+gwX8YPqkwe2TseqvGa8PGCnO+j9kYi0f8nCdOJsz4KT J2a8PJ75P2w4s9LlAIbREzpy0mX+NQxL7NmUEcZNa9823/iCIi4aqd6uSL8q Qbq/DNFcRSBxFsyRG3bd43ucJYcTZ9fcUEismeKIsxTijJ1BRYwJB65WsndX Z1vv9q3JkEOd4io+i6Y1U4L9lRZbc7Ni7CV79vcYO/gBbQ46RZydEmevT2Y/ 4SzU9rwR/fhNqCt7UZZKlgcVoSS0BOXhKlT6RxJzYaiLjkBTbgZ06lKYTQ3o He2gvq1FYqQc8VGeIr4yOXbykqxnApRSAZVGuaE2yA2j6RJ05sus2CogthjN hcIn+M0sy4/FA//a2BVmB6ow1JCEofpERgIGG+IwWBeJweoQ9FcHYJENbaE5 ks0uHON1IRgtKcJ2Rz++fPna9uSDn+D9599C13MI/egZwURwcZwaVtjN1t+g tlKDFOFwQ193pAUQWKEKBF6Vi/MmKugHqi7GCznxwrEg3uKRIx3JUgxmO6FK OO5D+IiXTblOAFahFVgNRZ7ioTj1WdaDCo15Ukw1RxFUAyKoXllBJZbijKU4 YylOWYqTvXY8JeX/6dsP/6etEU8tM+1BdrBxvs6QFwtE1gp5sU50bb5Hdc8m AiUuSKE4S/N2R/o1KWJ8iSovGUJEVHEpgUqrkKOTSvYjqogsY7wEDakUckJp iKhyKoLKLNudfLmC8ZeiJtUNTUSUPke4hl2OJyvNongTEPXChqizAyE+LaOL QUTtW3BMgnAZvwOq/4mHz96RH0/Yi49hWngBE1di3vwI48whNVYLjM1amClH 2zvpAfvN0BlqKKmliKI0FUCVSmmdGf9bUKmEpkVQNYS5cBq7wZInHBRBUBUS VEXeNEveaCkWXr0IMuGkbnfoK4NonMwY7yymUSpEf2syOqpCYKGfNVdeZ1OL xEInPfB4EW7NduI/irn/Nd5//Cdo+55BP3YOPSuhX3wF/corhEQkIdHdgRVw t3UoOYJ8CaLrVhDFhXLnCaJ0gijblnuxvyssKVIMEESV2T7ccXYoAqi2gB2K ANIw33qGJlc4yc8VTdmuMBZIYSmUY3e90daVyOfDXpwe9uCEO39CEB1z55+S z8+PZz/hf2r5BfRDJ9BPEPuzL8VJrif+DcR/SGQy3OV+iJRLkKJ0Q5qvBDHC 2PMkeHx/C544gicpwgtJfu4oJIAM8YJElKFI4HS6N8o4zSvIhUqCpypXeOfI HbXkuC5XwZAzpBil/H3xSWsRPKdM//TAmv7pYRe/7uQSOvCM3fWrj499fwic v8bDI0J+gq57mq57/rkIHNPG52jf+QqG/k3oNW0wanUwt1vfQMiMcGUnUiIy nCymME4RupGw+eIJJQRNug9Kot3REO5Cf+YCS76UwPFFY5EvmorZjRgtJQRO CYFTLIwJiXjUaI8hDXOrekyvajG52oyxlXoML1HA32wSMz8i7HcfGP+zmPZf WTHTfwLd+HPoqD8qTCuQOjojwIXpydyQ7CNFGueA8ClDqJ8ckQEeiBHetiJT 0zjNsphybpKXeIdfOze8j3gRNrqKeKkmXtQF3uLH5nXEeV2BktaSS8p2h5E4 MRbJYC6SY7QtXMTKGTf7mJt9zM0+5mY/Y8M5Ysp7j8x/aNvlqeVX0A2fQTf5 QkxXR4hXWlYgc3KBu8wPXnIf8UDLFE8JEpl6kAdx4iMXL0+J5OiKtaWeSA1R wNAnSlGXJkMhcSLcoKIiToQjkipyGJRHNcRIWy7tVR5xkkeccCYIV4+dEyNn bC4njGMh7QMh7e7vU3/K1A+emK/+8HlK/4Md/hHlwxGMc/S+S69hWv8A8/aX 9LtfU7MOQ9+khdGgR36iP92FFMF0GRHMWHiDKTmaaojSITfRqoZKhHMEiY96 4mOQ+GgvoAQv9EV9MTHCaCphgyE+mkoZxEhjkXCmILs9Y3CkDBOrrRhdbcTw ch36FyuxdqMBh7viZuO7bz/gv4g5/3cC5J/R1n8K7dhL5pMImYML5E5uCHWT IVFBVl6VIYbgEFp5OMERTSbGM98UGjvhBu5s6upCfzeYCY5egqPMdktpVb7P 958bq6mpheOmm4WrwIsVDDlDBiNDXyIVWfiMO3zEFn7ERnLEHT6gnt6jnv7u 28/xf4m5/jdMsmtoh8+hnXwpoiOtsAVyRxdIJD7sIv7wl7JDyNgEvaWIUBIZ 3kSG8NGZkHeoNe94dpB8IkNHZNSKtyaRj+KtS0QHcy+j2a7i6GkWHqonRL4C bflytAnXExLMi4O5bHJ9REAv8+yhYngq6rKnQt4CKrjH3333+e8g468wvUFZ NnbI7nFKC/AKprV3MG99pPek/J8/RGtNK+rKVEi+5oSUUA+EU1SGc6djKcOS bLfKZycK5oyoSPdFfjJ1cqIz2vNc0VpKo1ahgLpCjvoKJRrLiYZyupgyfl3K zlFKWuZSnuU4o1Xtj5HVFgyt1qNvWY2ehXLsc6d3udPPns3+sZjun2OS6Umv OENu7wq5gzukrl4Ic1cgiZuaek2OYB+rWowMViKGKSZGWe9JFu7mzw8g+7mx 3QRDibChOcLRSj6oJCCq6O6raa5aChTihTU6gkFXIoe2RAACN5lgmBvOxiG3 9EAIOpF9buqTJ+Km/icbZieXiYOh59BOvILMjmk6ME1nGTuEPyTyAIS7yZEs tz5pINiTjc2G3UjuaIzwZq6fBHn+VHjEQA27Q65wzC2nSCExUJzuQfeuEI9J b8xVErMeYrot7AqtwoU/4ie8Uta6l+n1MM0ea6qs/wG1+R53k6naPgS1AeA/ 48HBB7qLfbaHExg5Powrbzg+2B52PsJyW/CARyiOT0CilxOS2MiEuR0SpERU KCEb6UXd4Y3MDCVymU5hiQLFLHxNrgsMKleYyx3RVO2BZkZrjXAXeVu1Ar/H /3JHq7jbBEZDofDzzpzzzrCMFKJ3RYMujo3R1Ro85u4+O577E9ujBU8O93Hd zR3yK9xVe3coHKSQuvshXOIhHiicQEaFXCM+OZcjmV4c00vidEuj1s5lJ9DT KliyHFBE01PC4pdSn5bleNKWSrmTTFG8bUn4xPzfoFUoeqlMjOZSatThLOzR gu6y8Lt7nXj0pANPj+eszeov8P6Lf0br4BlkIjbdmJo7JG7XWPhASOVBCHen exFGglJOV6NAsJ8HIoRdpGuOIvFzSPwWFr0qVYosqrfcdGEYK1CVoRDf06jP UYon5DXme1CtKWgG5FRuMvFj/SYWfY9F32XR98Swpvlk11pw64eFCLcVXNe/ S8bTTs6w2Es0/usC4z+Q8Z/DcucLeLu4IFbqgnhiM4kpBvkryXgWO9EDqaRI FntOISmiKlVQ3Qjn8TvBXOCCziJ7tAg7ppJBx9AzfgQ99+7fkEJUPOVS/j8X agdnugFntBlj0bFci/aFSmze0Qm7+adiiv83ZocHKLbkiPXxQIBEDoWdFG6X 3eFur4C/K50tdzKSTL/OggeSPiGkT0QEKRQqRbZAHxa6OcMNeWyfhRmeKOUu 1uXYdq/QQ/w4rrnY+gFyU4lQYBkbEk1JqQTqYnc82uvGw91OPHjcgW+//fyP bF1+dmQA/u5W/LleEsINl6544KKTH664XKd0kSNGToPBZnSd6fmzyIGkTIiP u/gMkcYECcrpj7K5k6XCO8LpSvG9OHW2cFC1BzQssEaQ4oUK+iQGi9vAFDVs PuvrGqbVg8dM7dFeFx4+6cS33320fYxmK+6f48HeR0paeqKpM/G9AuMq2bzJ Au+8Rw3FoNzFDb6udA0KWtFrbONhdNrxrohPckUqI4e+pohuoTTNjam6oDro EvTRl2CO+wWaEp3QkuQEbZoz9IJ1y6HyzqNfyqXs5de6dAe0ptqjKdmONtUO Rn0Celngw2dz/1VM789shWWL9pDDx5UM5jyXkS5SOze4XnSBP2kTxTkZzp+5 fpXFJ/ZC2MrDrwnHcLmjOVmGSpqDzFgJSlNp7kmL2jwld01p3TkWtoGFrRdC 3Dk56ljgGuKvqtgN95504fbDDvwjZ/cffwKbUFUpq0rxKWHPdr3sCrufO8Hh M2fYXfGEneM1eDl5IlLGnk36Xmdu/uwyATQ16ezXGir+0lgX5MTKmZMS5axq Jatalc3qsqrqfCEUFKMEIatax6rWMmpY1aHBLNzf7cZ95nXnUSd+8+1H68dN iLBhbmqFdmr0lGx9AYPA1rXX4gOYM8u1nCzu8GAxPX38EBvoQh/ihORYZyTF uyCTxcxNZEHDnVAY5QRVtBNqWEwDi2lhMZtZzFYWU5fsBEOKE4wMU4YT1Zwb TGzFBvZJbQYZnWaHxqTLMNcE48FsH37z8QOs1fxTjPX3id1CUDoKR1d4sJpK 4TGDLszJVQkfd0/2a9JV5oo4L3eE+brT+kkQ5u2IFFazPkmGsmQJMmLYVeLI C2EnM7gzwo6xmmrumJo7JuyWmlFFVVbBZldexJ8rcMXe8QL+xIas+y+/QEpJ LXNxYi7Mx4n5OLIRO0mo0T0gdVCwugpOZAWuOskRQR5HKdwQ5uWGIIULUq65 Qx0nQWGMGxLDqS4j6OfYgIuzFSjK5b/LSlaSn1XMq5oNuIa5VVN1VbAJC/n0 9Wfh1iOKAuYU+MMS/jmF7HfQCe544hyGOeH9O6HpvkZGWZtIAF9uT2SEM2Jj 3KlXaDXDnJAVxTKGOCKNIZYwkgLWVkJj9GWW8DOxhMKjOXWpLGEaS8jymTId Ycpm5DrAkG0HbeYVNKdfRl3sRSx0NeLxiBkP+kz49uOHP7FV8f2vv+POqamv bTvnaH2CrYK6xcNFCS83JXxZST8Jq0kdG87WEevtJmqVSG8nthBXFCcw7XSm nOqKtAxXZNIPZrNF5HI+FBJRwi5VFEoZcqgYwp2OxQUSFGRIkB0u/Z6LQi4T j5+jbeMAqaW/raYH0aVwlEDKSsqdlda8XD3h4+aJa+7CI84oA6VyRCuldOzM QzhzjJxMTHBEDBmREEPExTlSBjohn56lKMeFCsAFpYXuRJI7yphbKaOEUcQ/ j0/W4ZvffLR+ooHI7wv5z9ANnUFPD6gX3yt7hfSSVnhLXBATcpkq3gGJxFBq ArFMbCddc0S67xVkXrdHVoC9+KCR0jAHVF67CH0YeRj1CzTGO3LwO3JkOUKf 6gA9m6iBvNOnX4E25SLaWMCmlMtQR11BVcgVHM61Y3+qHXtjZjweYCG/+GAd T/8VE49OuHF74sZ9KqZIAWdSwNkDSlLSi4X0ZSH9WEh/mRcCGOHXaEqu2iPM 8yKH/mXkRtixwToghZuWyU3L4SbmMcWCJEqnJHvOBkcaEkFDO6NAiFi2mggP 5FIZZgbI/+hTLb/5TkxHu3UgRpqK9WRaHiLGKN0dFd/XUynijKl9qqfEC0FK Tk4vCYIVlxHneQnZwZeRGnwJ8cF2SIpyRCrTy2CauQkOKObulTAtIbWSLGeU pvNrjqHiGGfkBUhx/vTA+iEBomzv4U4svBQdm276pVjL3PImxAZfRELYFfZR /gsxHIjsR/HBboj2cUHCVf75qvUgyPwARxQHO6GcdWwNvwxjzGfQJDihkWRs ZiatzKKVdRR6Z3PiJTTFXEJD6GXh+PwYB/wraOOdcaevCk/n23E0Y8bBhBm7 g0Z898Un9/tnmGQxtZu73Ll9pKpsBXWwFlTKYsq5Y0oy01ssqJdY0LBrgrO0 o8i0Q7inHXvcBaRLiR3/Kyj2vyQ+Gy3H7wqyAy4hN1CIiyi8dgmFvnz1/gxV xGtFkCvK/V2gukbm+glvCeZzt2z4/+Zba07b+4wD6BgV3ZNiVYXchEfNSx09 2G+VrKonAefJqnqxe3jjmsQbQV5SaiF7Mb8gt0tIU1xBbdAVFF7/TDwIPe3q FWQwxwz/i8j0v4CcaxdQcv0yKgLtUBFghyp/JzG/CuFYa+Z6q9eEf/z4wcbS aFuWE4v0YCPPWdlXyM8LQ0LIJSSEXmGfuoLkcHskhbsiwtsVMT7s9D7CO3tU Z1fdkccJUMSpVC1neyXTesjOmigX1BLedfFuqEtwRX2UK5rCHdAcbocm/r5G sriNPaWdsslIuXS2ZsHpCh3rohlPZ804nDBhb8AotNv/9OmtgkfH3MQn3Lx9 cQP1DJm9dQPljjQ0pIPcxRMe3Dgvbpy/kmYmyJF0YGG97BHBiPG2R6zkInJk 1pNTqwOuIJcbm8co8BYOySf0vexQQhAUyy+hWHoBpfKLqPVzRI1wkHGAC6r8 nNCbnywOdOt7cv/CVuDHYm4/ErP7MzE/A0Nuy1HqwAI7KllkT+bpzSJ7M08f +Ht60nkLedqLeYYxQiWXke1hhwZSVnX9ItKZWyYjh/nlMr885RXkM78C2QVU Mffaqw6o9bWHOtCZk47qkwV/MGjGfU6sp0uznwZrjG0r33/5/6JRb0Zhbhhi Ai8gjt0hkZVOC7NHFJce5eGEeC9XpLDaGax0DitdQEwX+0tQp7DDcKg9Jsld Ned9XQSVXKQE9RGscqgD6kOoe/i7msKvoJW9tzPFFZ0Z7mhPc8HLrQ6cr7PS q+04YaWfzZpwNGHE7oDB9pb4X7DMT6HbfMTt22XsQ7/Dbdw5RGhYHBTCmxfk iszZC3Jun4ebD8IC2GdCnBDoad2+CG8H2h/OEx9HJEq5RfIr0AXboy7wCgp8 2YgZJdwqFbetjFHOLS3zvAyVx0WoFBdQd9UOmiAn1IW6itu5pq3Ew35u4+KM Lcd/yWn7G+g2vs/xR2KS/01M07h9hDBbqlIHT1bci+n6sOK+TNcXYYHuCGZ6 gV5Cug6ipItkqpGSK8jjEpqF23pI4ywf4TEODshnFPgIyLRHsfIyUck0lReh uc6tZghn/9aFuWCsKhVPONqejFjH28NukTy2i7Bslf8PeP38AbSWUhTXFSAu 4AISOBtSQu2QTukULrVDrJw8VzghjdUXuU2tUsSqlwZJoSFARyMcMR1/EXVR /HOUOxoiXdAQ7vQjNPJ//D4abfQ2crx00w1150gwSQH8+kanWPznG9bin7L4 xyz+0zEjqT9tfa/4v9j29QH0W09InT1uqFD7Ixh3niFD1Qi5nauoQ2VOPpBx Q8MCqEVZ+wBuXLCwmdzIaEaCr3DzPEN2GSWkkTHEAQ1BpDS/V3rVEWWkS8U1 hx9RUNjjfyejuefeFxkXUO71GerZ9oWFacKdsTfJETPKfR004WRpxvbG5V9j 6vEzGLYe29Lc/22q289g2j5BTfcC3TcxYM/6OzJdZ1/IXK+J9Y8JdWbKDkzZ kW2dG8+IYcoxLEARl9JGDFRz7OTwe/m+1sd4FBMHJQwV4VrK+qs8L0DNlt8Y 6MBgp2CD3e6sxv40ZQ5z3icW9oZNeNLL8fjxw/UfwuAv0N5dhlZLCbSdZRRc wtsVV5DKTcoMc0YEs4iTOSBZQZng6YQcH+G5CG4oJtFUwTQfJNgoFfVM0iVo qL4bIp3RSNXdFC0EnW4M1TUlRlu0vdgADFRAPXkS7HRk4c2tLrwiFl5ssxFs WnBmw8LJjBFHo3p89+UHgtT6Bqtu7Q4Mmw+5w7tiHzXuPGWcwLRzBvP2OWRX BAvsAS+pEtGEbzxHTjCLGyjsKuV1lPDEXu5gMouedtUZaez5ZR72aOc6m4Ko xjioy/2cUXHdCZXsl9UUJzXczRrOhSq/SxzqF1F19TPU+NExxLlipiFNFJGH 0xQe49zdIRPOlmf+g+0zsYcv3zHdB7Z0rdgVcCumvG1N2bz1AnKmLbUnIBwJ COdrIoYTo105BqypBzPtUEYkU49j2nEye5QQ2zr2XLX/ZeTze4WMYkYpQ3WN BofjqcznMsp9LqHc94KI9Sb+fE9hEI4WLDgS9BKn6hFTP+JkPRwxYr/PIOgm vx9qgL/E2MokWsxF0HaooOuqQKUqAlmcClkERlaoCyIkDsyInoA9IsPLGbm+ zuIhq6UcjOUcPPUswDh9w2zqZfYHV+o2FzTST7TRWWsZ+kQhnPk1lV6sPbSJ VO1pzvhwrwfv7nTh9e0uvLjZiXMBIBvtOFsx43TBhOMpA15sTf17G/sevHgL w8Y9MvARN5vs2xY2+pTYOEf7zgu0b79CZqkWMjslZ6sbEiJcvt/kIO9PjKO9 4QamXqXpv8ZBx9ZXqXRAB51jC6PMn4Ip0BVVFE7VwS6oCXGGWohQukkOkxqK wRqKrWqKsKY4Z5ysWHC8SAkzTwlDcXo0acIBN/psZcaa9k+hX79rS1nAyJE1 7e1TxjkxYk27fes11J1rTJ3e25H48BfMrQsiOYv8vTjnmH4wKRnO9KN9BX3N kDugjIPEIJxm7ceBweUUXXNDiZ8rVFxGGatTESjA/Qoq/KgL/S6K6beyMncH 1The7sCzJQueESvPCPFnTP8Z0386asTBgF7U17Z3vy+IL7+Hm7dPcPfOKRrq ZtFWNwdD7RzM6jm01zCq5mAqn8Ns92083jrF2xdf/5GN1JMPn6LJWMAZVAI9 m4+hqxKm7mpiywF5VBCFURLOIPpQpQtSvQT1QYt0zVX8PKo0yA3loW6opwAb I5Zm04nyeHc0J7hDl8RIdoNeCCoOfYoL/+yM1gQ6QuJroDYW20MNeH+/G2/u duMlG9FzAWdbFiqSdpwvm3A6Z8CzKR2+++r9v7NdW6Bfu0WckdRbuyzSU7FY pu3nJDMLtf0alu236Nh+xwL50AAxbaFQ3GyhUMHezpzswpERrkhipLEgWeyj meyr1eyrXexZrWGCMHdHZQjlM5emDnNDLWV2LfFax76qpv5Tc0Srgy7x/11G jzpVfLLi6aoFJ8tWvB3PWot1OGzEF/sP8ekqj4c2jhg5pYxC/9w+ZpwxXnAN r7iG1wTbW1g238Gy9QGhoVnUzJwF/LdTot0QQm4ECIAj2EK4jghfV3EtiVfd kCSniSMQjWGOovwXDE8JgapiMyvjeirEB4EQdDTvldTYVYGX+XoR883pzL8T p2uM1Q6ugUHgnSxQEHIdJ1MmPBs14OXGtA1vPxdffoy3b7/CyMhNtDTOwtg0 hy5GP2O4cQ5jDXOYqJ/DpGYOU8ThJDE4QQyOEoNDpXPoKZjF3vqpTa3/D3aP d2ge7kabqQh6iwqGzgqYuqph7lZD25yHfOGNmUgp4pWUwJS/WVxhfoAExSES lIVZD5xXx0ipv5wxnuiK2UxOuiQptClS6FIlBJyETY0WMJ2gTHeFNt0FLUkO 0Ge5YmlAg/meWjyYa8NbgvHVXTa8W514fsM6Ec/XzDhfMuJkTo+vTh7YqvlT VlO4vIITcYPV3BJ05gnjuVjJ9u03ROJ7IvED2pd3UdeYh2S2ghQ24KhAF1aR FfR24UR0RTyrl0xhl3FNgmyKuywFHQP/fxfR1saoCOX6wqWooawXnkVRR5En HKqvYfes5SCopbpT05K3ZXhh0lyO/QU9VR1zX+sQDZw4zansjinrj0YM+CdO 9E9XtBnIJiPZZNzaY97PxLFoEtFofWu2fes90fiBaPyca/kC5uV95KReRUqk K1KZgz9ZI6wlkGgM4VoiuZY4riWJa0mWu6DSW3guhjPyr0tRFCBFCUWrijUr tz1fozLcTXwkTSXtQFUwLUqSB26Pt3CwdOP5ZhcHTifVqBWZZ2TX2YIZZ1zL 6RTrMa4nKqds97zjZ+LLvycsv8T46A20Nc/A3DKH3lZCkjHBr2cZC81zWCZM VwnTNcJ0nRBdJ0TXCNEVQnSpYg7zKsK2aA4jObP48vnX30vM97/+R4qgu2jp aoDOXAKDpQJGSjxTVy0FnAZd3Q2oTPUjVGXiCWcpVyXIvC5BXpBwWKAMZZFy VEZbD3ivD3DGGHvjbJYDWlLl0KbJCU0ZdBlS6DOFkECX6Y42QlWfQ7HTVYTl 0XosDtZhrrsGz7bMeH2vGy84o58Truc7FnE+n69QBC3p6dm1n5CqX9kmUu+z 0qzyFqu8dW7rN+9Y4Q/oEKq78wV0HRoYexrQ1FqAVPbNhHB3CiAXhHq7Eanu RKpwqYKUSJUi5zqXyJFQy2HXQyS2RbPaETJUc+nqaBlqyca6WJrROEYs+2iE A8MO2iwfTiE1ZjorsdZfQw8iPHbTakLPidYzovWUFT6ZMODV1jR+bLvI/OHz VyLbjDR5pq0DBkXcFtm2ZUWq+LHf5kei9Quu50t07nwF41A/TD2NKMj0R1q0 O6IDiViuJ5AdJJTrieJ64rieJK4n3uEz+nYXmKmfCwLlKAqWoyREBlW4DOVc VyU7TAXnQEWoIyo5GptSvTHdVYOpjnK82unBy+3u71Er9NNzIvaciD0nYs9F xBrIQB3+6av3tuOx8A/iyx/i/buv2OQmYWqdRXcbGyRjUjuHOcYyv14nercY N4jeW0TubSL3DpF7hw32DtF7i8P+Jgf9djV/luhdYoOdL+D39Lfwh7axqV25 AT1HT6u+AHpzGYyWKpg61QwNOojmnq4mDHS3QJ0RhLI4D2QGyZARKENuCLci XAFVlAIVsQrUCIeoU1WOJbtjNofITVegLVPBshLB2URwNhGczcabLUEbm+t8 XwnWppuwMtGApRE22oFabIw14PUDbhnR+5zq8lxotFtE7jq3asXA0aPFd1+/ x6fLuz/86tcwrN6EcZ2l3ziEaZMjn7rdtPVGLLtliyXf/hKmqVUYyUBzbxPa +1vQrC1h2SWI4LAI82a5fVhmX5l4tU2Gnww5AXLkUNHUUZP10E5oYzkioxWo jpGjRngEQ7wcdQkyhvAkExeoo2ihsn3JwEbM95OFPdWEQBntEwfGNkv+Axif UyGfzrDkk3p8+fTB93fuCEPDSM1p2njCdTxlsOFuvmIIl0jaILzxJdf0NSn5 S1hW+DPdjWjvbRbXVJgdRFkjJYzdEMA1hXBNkVxT3FU5YSwnjGmRSFczoZof okBRqAIltoPyy6PkqIghnNmQKyhzmtKvYravAbO9dZjpqcIRO8erGz3Y4ve2 2AY2u+uxSXwIg+R7KM9RPs/o8frG5CcY/7348vuYGt2EsWUClrYZ9BG6Yzo2 XMYSY52xw+/dIpzvEsoPGI8Yj9vm/gWe8Jv/m/AlHhHhD4jwu0T2DSJ6s5J9 upi/JmMKX519hX9nc3Z1La1ILClHdmU5VHkBqCgMRUVRJExsYOaORnR2NqO3 qxWDvW0YHdCiPi8UpbEeSAuSIztMgQLuRkmMB8rjPVCdqBSftDkcK8VsthOa M5VoyfJgpYnsHEaunCGDNk+KpeEybC60Yn2uGatE9dJ4PRZG6jDLRna0Y8ZL yofnlA/nN239eFNAtZFjWMf8738C9MPzlwT0bRjXdgkEFnjj3AaCdwTB5yz+ lyz+1zB01MPM/tXe1wLLQBs6BnRo0ZUjPz0UYV4SApqF95UjmYXP8BcO1fRA Nntbra8EfexXbQluJK1wu5aHSFx1ogK1SQK4XVET44zu2iSOlFYuq5mgric5 1QRDBQ7XaO0I6vOdH4B62WwF9awBTye1NkD/AwzLW1zHfa5hn3HMYE/eEK67 eQ/zxke0C2DeJJi3f4WOG9/ANDSI9p5m65r627guHWqqMzhrhKtJhDfVZT8A tAJxTpdQJpXBEkrFF+qBwggPjlcPlEZ7QBWjQFmEG3u0M4Z0KswPtjKaMMI9 6qsvRL86H2OaYozVFmGsphCjVYzyAoyq8jFalItltQq3dNV4MtDIdenwz1+/ t13J/He2t79mxjZgbh1Hp3YaA7pZTOjZWhmr+nlsM27pFnGP8Ui7iCd83Tcs 4dC4hCPTIp6aF/C0fZ6vQszxe3M4MMxhV2fF/l228VsUHlvls1jOmcLXZ1/9 ge1m2meHB5gcGaIx9qBM9ICrgx3cHR0QIL+EFJrbdDrF9CA7bpA9Yr0onfLi KcFVGOrXYWxYj0kK9kHqkpo0b+RHK5EX5YGiOCVUCZ6oTFaigsZnME6GGeK9 MUuJphyleC2ecB1Wc54CPfVhBEYldpZ12FrUYmOhDauzzVieasTCuAYWTQwG WxOx1JWNhY4szJkziXkCZZt43yRI1vT4+vmDH9uWM33vMQwr92BaI0bWT5Bc 2oKUUi1SS/VIKzUiQ2VGfkkpKkui0dxSCEufFesdAwZ0DhrRO2RGXVkmEvyI B1/6IT9SOcADWSFKZHGGVypl6Ism3mk9y+OVqExQktakdjKxH0cJlR+IiY4K rLIZr05osTLWim5NArrq4tCS5yselNtEl1DPoTavy8B8WzruDVbbMM+BNKfD l8/u/8H3kN/hUjiL1jmLNk5R2bXM5ejg4OAOJwcJXBykrJgUbg4yKN3cUFUa g+qyOHFZFlbIwmV1DJjQoq1CZVk2KyxDhI8CMVxawjUlIu2uQKWQoZ3yKzdc yW6lRFG0EOzn7Otm4RClUSOm+5ox2FyK7pocRhZ6qrMwrinAXGMJ5uqLMVtX hBl1IWaqCjBTno8ZVR5mCPuZ/GzM5GRivTIfb+5t2SD/t+LLH2FmdBWW1lF0 aScJ+RlMEuYL+kWsGZaxY1jFHf0aHujX8cSwgQPTBo7aN3DcsYHTrg2cdW/g vGedscZYZSzjrGsJp50LeGaZxxFpsEcKPBTgTwVzs2oGq3kT+PLky9+zbe7k yCB9unChkQfCGZGM61I3yB3t4eHoKB47lnH9AlKvXkK07BLCXC8zriDKzQ6x Entu1jWmX46pCRNmpsxYoIft0eWhnK6lNMkLxYmeKEv2QhH7ZF+8DFOkgCbb E/XCybC5SnQ3RGJ9Uo3b6ybcWjNiZ9WA7WU9ZgfL0NOahOoUJ1QlO6Iqka4l 3g6N6W4cGRI0pQn377iiMdGZGErBXY6Kw6XWTxTQL2wgubga/uGxcHZ0gauj GxktfHIsgcxRCrmTF1JoyTNC7ZHJ2ZwR7oLijAC0aivQRfj3DVkwNNyBUUZz RQ6KkiP580r+vBIpXpSmXnL0cIK1xruJLFex3Zdxed2NmRhnJ1ifa8c6Zagw 583loeJp6w10GvVMuY4pN6W40WlI6UQkaCYNmjg6mmJJi0gnLNQn416PCq9v T/7Bp/NIlm/CtPqYsK8Xl+Pi5MYluUPC5UgcFeJnLHLn61C4+HNSeYjvYmcS upns1OKy2irEu/87BizoHuhA/0AnGZ4HdUkuYoVrXy/ZocRDDmOEOzIpQdNo oPSE96BJjcVxC6Ody6pHX10+oZ+Hrso89FTmoLc0G8Ml2VhRl2K1VogSLJEG i+z+i6TBImmwWJqLxaIcLBZkYTE3HfMZydQlNz7d+vk34ssf4/O3H9HRPERF PoZ+3TRb/yIWiP814n7HsIW7hh08MtzAnukmjiw3cdx1C2c9t/C87xZeDNzE q8GbeD14A2+GdvBmcJtfbzI28LJ/7f8j672D4trWLM8VetU9Ex0xPRFdHTHV PVEd090x9aLmmet0r7yEh0xIg/fee++9TbxNvPfeexAIEAjkJYQMQt5LV7q6 uu5VdU9VzNon0TVv/vjIlITgnJ3fb6+1Ms/Zm99DLtpncat5GtuUhyuUhPNl E9jQjOFK0yr+3f71LEIHNGlJDCuEwYYwsHxtVPBn2ZkYwpKaYGVoBG+LU4i1 PwYv46PwNj4JbxN9+JgZwV9ugmCL/duGGNOzghwxMd6I6ckmzM00Y3GuBcsL LehvTkZbTQIyLa2xGueI6xolehsTMNSaiAPYPNNM57VJh36OfmZjqQGzg7mo zabvCjNGdqgRcghDbhB1KOAUcvxPsKP0UR5hjIoIU3YUi99XHkJvFaiHlkQr 3Nne/t/3h/nWzjaM9E+yewxgxlORG5pIl8aLy3aUhlZQGdrDXmaFaFd9Wjdj yp4J53+WgxmL0TrABfXV+ejrbcFgfxtGB9swPtyGydE2dDUWIcXDB41uLlhP ccZ4jivqC2MoZ+1YnmnjqS1Pt+A/YIKhpFnjI21DUBjO/Bpshjx/I5YhNL56 KArQR3WEDFoCUhUmQ2WIGSoCTVDBUFDBUFDupYfJgsB/vz+DXtzdQ05DJ6Ew gAlPyZSnJOPpmEvXb6l5evY8NQeojRxhaexEWTOTTs1fbQgvc0O+msZ8NEKs nxNaCEd7dysBaUNvdzsGe9tRU5gDv8OnUKFQYMKbOSvKD9PDbQcwM9KKv8Ps SDP6tDnoKEhGczbVNDMZrZlJ6CJffZlxGMqIxZnCDKyQj1VyssZazUvDAhlZ yEnCQlYCFjLjscDvW0iLxkJiOBbiWjEXOYS3d1+rdZh8st+izx+/QHNZB+fG fnTRJQ3UzGKyZgkLtSvEZJ2YnMPFuk1cb9zCzdbzuNNxAXtdF/Cg9wIe9V3A k4ELeDp4Hs8Ht/B8aJN1jrWBZ4Nn8XSA6PQt42EvJaVrHneIzI2maVwVElI+ jo28ETxY2sH/uj/J3mYvuVNIBSpeEipKCZVAG7FEjArWBqdgwxfFli+KL5EJ URwjLnrwMTGAr6kR/IhLkIWpdI9XpLWM3kIuXc0c72CCnmaxjl0rFudbsbzY ipXTbRRketQTf0a+2aeoUv0JNfTWW6ut2KRv3mJtrjTjHKunNgp5keypKJn0 qKFm5EeaID/cUFoqWRN4kr12HFURRqgMNzzAJyb4N2w1cV2jPkr5T0FKcclv 0v5yKyekWcGDp2dKZygjOhY8JSX7TGVIz2FgC7WhHaw4AXurGQtcqSdOxvBh b/mwt3wsTHj6pgiwMJNuT6qvKMTgQJu00cvEaAemxjuR6KGE+xd/QuyhT1Bg 8GdojP6AkYZcLM8yH0rVhsGmVJSJ21NDLSiFPDXar3zqT34QTy3QiGUAjdcx VIlPl2ixBEJVYeKOAKEtRij20YfG7TiyHQ4hztcdGTUjqJjaRuXENirGWKOs oes4f/M1nr3+fn8duyPMwJEwpR0wNTQkV8bSlKEwFFe9WvHRnmPgAEuyZU22 bEycpfMPUBvw/PkyW4iXXnf+vjx/cT1nZUk+urva0dfTjiqyZcnzdvrHPyD6 y0+RZ/AJUgz5EjuZYoZTykR/HQbqNBSdVDRmpqIpKxUthKwzOwl92YkYyo7H WFYszhYzWhRlYqMwE+cKMrDFqLFF4FYI5ZImkZWApbw4LOXESGsIrqSXYS1t DGfiBvHN3muofk3Zf2PInEF7RTe6qkbRVz2LsZplzNWcxXLtJjZqL+BiwyVc a76MnbYr2O26ins91/Cw/xqeDF7Ds+FreDFyDS9Hr+LV2BW8Hr/MusS6yD+f 599v4tnIOp4MrfL/nMFe7yJud8xhu2UG1+qYVcpHcTZ7AG/vv/q3+1d0jdKk edooftYkP1YAK4iQhbACaMjtqE32fIUc+AqJUfcxOglfY334mRrC38wYARz5 YJUZIqxkiBZvKDrKkehsrtuwy9UMA+0FWFxow/LpdmYYBYJlnyNG/3OUqw+i yekzlLGaY8RGmFtrbfg/CF0r6vI8kB9tDg0rP1qOAhqzgmgzFEaZopDAFUaI Jf1PsjOPU5cMOKGLS8ANUB0lLvlml4bpoyzwBCcAJUJUSmqnArvXt/fX59KX Jph8kvdxgpHr60FhYAg1LZAVu1BN22NJ8qzZhba0PuJDpmhHQ3aZAfw4Bn4K E/grSZ6S5KlkCFfJEUn3luHnirGRDkyMdaIsPQQuxz6F/6HPkHrqIMotvkC5 6hPkqz7FaFM2zsy1sxUipL1zsoPMqb1yaFj5wTxXClch6SoMNkZhkCEK/E+i OpTkhfDcgpn1goyRR+ryKFh5nieR63EMua6HEcJcaXXcADm1I6ie3kb1JIsU akmhdpg1uI2qvuu4cOMVdKvvHkNBehJs5cacffRJoaF096C4BFhhoKRRt5OE +yOFtqTQzcIWYTb67IXfjoU/x8JfKeOYyDjeZqgtLaCYt8PT6CBsv/wMzn/4 FAknvkKR/CAyLQ4iV/kZZsfa0VOTg+acdDRmpaEpJw0tOanoyE1BL0P+EGuM dm+SCedcSS62inNxnnVBVGkuLpXm4HJZNtZL0rBSnIyVogSsFMZhRROFdU05 aR3HVtYI1pP68f7eq4+Liv55v/1fPH5OY92Orooh9FTNYKh6GVM16zhdcx5r tZexVX8NV5q3sd1+A7e7d3Cv7yYeDd7Ck+FbeD56C6/Gb+H1xE18PXkTb6d2 8G76Bmsbb6ev4evpq3g9dRkvJqiLY1t4NLKB+4Or2O1bws2uBR2VteO4WDqE ax2L+5Pi76XWFEh6sSQkbZUIZAXbigWnxGIqDJac7B34UjkaGcPJSMaXgROg 0Sn4Uf/8qX8B1L9AvhyhljJp7YJYB3MkEMkkOvBUD4Vux00vCwx1FWK0Jx9e ZgcRoTiERLMvUeVwBG1eX0LrdYj1Beb7crC51o46jZfYdSxW3CtVEGuBwlhz FMWI+53FrbZmKCaaRZHGKCKOBcEnUS4uHI42QnU0dVA8+V+oG3STQccpyYz9 jIbhgk56n7vb2/vSn8ao+Mup+/C0lSRTTTKtBZnsSCtqos0+lfamToh10kcw NUF8su3PTgzYpzKQVIaSyAhm8hhbC8TZW9DZutI1d8LD4Au4HT+I4COfI8P0 MLQ2h1Bt+RlKHQ6ipyAI7VWR0ISrkB2sQA6tQB4rP9QchaFyacM3sZ1iUajY xsqIMdEAteEmKOejxvckND7UdH/xXF/3Z+/j0HgeQZjqBOz1DGF7gv9GOmup j7Wks3acRX2sIZ01pLO6j9V9HanRMRwDBVzVMmZLPQYx3VXKanElPMdAZUAq DX+h0t7MBf5Was5QehwLzswK+lAlx4MzcwDHIoAzVLBazhnRHBH8mYJO5Wef wuqPnyDg4GdIMT6CYvUhzlBfoND6c86k9mjOJZXZGWjiYwurLS8dPaxBTQZG NZmY4OM0DeeF0iJcKCuiwBThciWrqghXqwpxVVuAy9pcrFXQnJanYK0sEWsl cdL6upfLpnG5aByXcodwLq3nr8C8eu4KOsv60FMxhb6qJYxq1zFbfQHLNVex Xn8DF5pvosG9DyMyLS661+Bu80U8Gd3Di/E9vJrcw5upPbyd2cO72bt4P8ea 32Xdxjfzt/Bubgdv5rbxcuYank9fxpNJmtixTdwdZvajbO7QoG43i7f3hrFZ 1IO/2f9oW4DpZW0hvSo+LB2YKh2YtmqEsyJt+ApYyOBEF+dibAJHYyv4m8vh R3Pqz5wXaKYzpkF8RcKs5T9/epEoPp3xUEibemb6KpHtp5Q2ki5LcIAH589I k4PQWB9BjfsJtHkfRZc3tdP3ICesYNTlexNIJUuBgjgFiuLETY3FcRb4W5QQ 0pJYOUrEjebRpiwBqB4qoti1ccaojTVCXYwB6mL5PEofhf76pEWFaNIXRUIj GPnDlDpC/+3+m96FaYn7Y6Aj1J+lJqXWBkawNTDhoxVs2J221Ax7Eyc4ypzp C0goXWsAuzKQhAayK4PEXekkNIyERu0TmsCxSHJWQJsdC7uvPoU7OzPO4BDy 1cegdTyGZuev0OT8OdrSnJAXTt0MUSJHvDkYqkB+mAKFYlPTcAtptYOScBlK 6FJLSKe4Cr4kiBNTgB7rFMdHKCrHK1Cfz06hwE/czXAUuW5fwpGkOegZwI6k 1nMyl9aUo4bWUUPrSGodSa0d2oaLox/kJw0g5/e50SeZSx7CiIQK/6CESp+E GjjA2kgQ6kJCXeEgd2OIseRYGEiEBuyPRSDHQoyHuAc3hBVurRuTNCcruP/h IFy//BKRxseQYXlSujRR63QM9Y4HMRKg2ic0A815mWjVZKFTk4P+/FwM5+dh nDXN54t8vFRRTjIrcKW6gsGrnOJTjuv1ZdiuL8WNhhJs1eRiXUu3q03F2Yok khqDa9WLuF5JoSodw5X8ftrJ+Y8r1P95/5aKtqJWdJeNordiAQNVaxjXnsd8 9VWs1N3AuaY7uNR+F5U2y1iPO497JWdw00+DBw2beDX1GG9mHhPHR3i/8Ajf Lj7Ch9MPWQ9Y9/HtaeJ7ehdfL97Gq4WbeDF3A09n6YapqffGmT+ppzeZKW90 zGK7cRSXqvrweOOabicFPZJq/jOpIj4GSKSqfyHV1hLRLH+FnKQaw9nEAk4m NnxlzOFPdxtoaowgGUlV7HeprTkdILvURYEkj48fXaiQ5a9iZlIh051uTXYI WUo9JNueQJG3PioCDVEfYoDOsJPoDjmEFXZZKXWjIE53b2Uhq5hVwioVm45K +7+ZS3vAlcaZoVSsUEBSK2MMUZdgIt0DVx/P59K9cAbI9TFFnJ0asbYqHbXU 1UhLBaqSE3VuIgvjNPg+H4fBVrgJlTRpOZgYw0bfGPaUExt9W8LqIMHqYOYM J7krwq0MGCuNePpisvoF1hAOa4SNBaIdLBAvYHVVIMXBGCnHPkMNw0Cg4VEk s0k1LpxM3DixeJ9CC8Eap5uodTyCbMKaE6aUFh8siFCiKEKBkgix3ypPPZKn Hqnbu6uQwBYR2KIg/pwgPdYpFDJdF+7/uYDPC/yO0QB/BWcjIzjTDTkR2kAX PzQS2gZC20B5LW4fRHHbIJI0ubC3OQ5H6xNwsjoBR/UJWJkeh71MH45mhrDU V7EIqyFhNXaGnSlhlbnBydwdfmpLSVIDlCbS5KUDVXfDfLCVBUIpChEqYyTQ 7OceO4xRN1t4Gp6gvdFDjJ0eEhw48XjoozvMHMuRXhjxskdXZDBaeExt+Yys BYztrLGCIkyxZvl8vaycoFYT0hpcq6/G9YZqbDdV40azFjstVbjZWkkHWYpz dTk4V8t4WpOG9YoEkrCGG3WncUM7je2yEVwt7sbTtSv7u678af8mhStnL6Kz uBc9FOG+ihUMVm5isuoyFmtuYLXhDjbb9nC56yE6Em5jrvQOrmVN4FFcHR4H 5uFFxyW8m3+B94vP8e3Sc3y3zDrzjPUU3608xoeVR/jmzAO8PXMPr5fu4sXp O3hKfh9Rcu9PM9WS3VtDZ3Gjl0fZPoFrDf1YK23bjyMG7NhueHNEfw1u0K8l VoBrZ4lYe0u+GnK4mpgQXjVczGzhamYPfyMDBAl45Yxm/PdQyks4pSXaSYF4 NyWSPFVI9VExqqmR6WWGfFtKi/IIut0NsZbhhAQPA2QFGDGSGVJOGLloXdfy nbEYr8KA33G0eB9DaQQNoLT7nAqlUikp1QqWkGxzlMXLCLQpITZGVZwRGpJM 0JBojIYEPk8kvHH6ErwJDmrE26spfQJgpU52CfBMb8/v9tX29o1taTh894dD APxxLvOUy2FHiB0MzKi89rA3doCDKQGWucDFwo3el47Dgo6DTStSarBQFw5H GAGOtFcghkMSZ2eCdMURFBkeRoNaH+OBVvSsnEcc9BHvfAopbuJQDdAWq8Zk jC16fA3Q5XIYlXzURKiYxlUojuT8FSWKQ8DEXkSICyLEVq+GKA4xpIMq4ixI 2EP1WWIfS0IcKBT3EFw597oSYBeqrrM+f2ZdPbKrc5DDVJhXnYt8+scQsXKr 4yn48ph87VhMn96qk/ARd+Gp9CQl9WXkcTO13FdaNzgSXGeFB7wsLKWJTAJX JVRWLo2DADeI/y+C551l9CVKTfTQ4GCGZh/d5ULO4mdbn0Sk00lEOR9HZUIw 2qMiMBoVgqkQPwwS4K70TPQWlGGosAzjrOmicsyXlGG9sorQNuB6YwOdZANu tDRgp60BN9vrcauzDre7anGnW4utJg02G3OxWU+Aq1Nwo3WLgBONBqJRM4Vt 7QAulbT+FbzX1q+iu3gYvaUL6Ctfx3DlRUxXXcfputtYa97D+c6HuNL7FDtD zzFdeQu9MWO4mjGEZxnteB1birf91/Ht8hsC+wbfr77GD2uvWC/x/doLfFh7 jvdrT/F2leK88hAvz9zHM0L8mCL8gAJ8l+J7i155Z3AFN7opvK1DOF/bvg/v H9mp5vCRulW8l6R7wzbEVizCaImIfXBj7K0Q52AlLT3hbmIKZ1MbgmsHN7kD wTVkmSCY8IaohNxwanVQINpFiXh3FZK91EgluDkuBqiyO4RWJwMMBsswQgXt S1UhLc4JYZ56SArQR0aoHqqyHVGd6UeIrdAZrcQgveBAwDE0ibsfE9QHUJao wv+G8kQlysUKFokWLDn/luKbYAyt4DXFFA3JJmhM0rFbQ3bT3cXbVYmOaqb2 eAeVxG8s+Y1heI1gc+ngzaFVTuBQWEgfCPvtv4cdxIgQSgsYoFLAnvA6El47 Q536OlJ9nc1d4aJwJ7xCfQW8ZlJwE7ZQDEeYnUK6RkTc0aSRfYVq9Sm0OZuh J1CB1nAFqjP84GZ5AsFs3GgPqmSCLYqT/ZAbYIWGUDW6GWT7/PXQ4cawF0K1 lbZtVqEsRmzdzJAbRXijaJnDjGifjQixAJmxQXpOoMOoyuF8HsrHkFPSVlEe MnO40VH42p9EgNsJRIRyYmjIQ0m9BmX1edDkxyDIRQ/BzvoI5UsW6miAMHtD no8+z0+8f3+KAdmMUYOhXSyjZC6Dv0wJN3MnuCgJscKKE5mRNJEFqfadCMcj 1PQk4k9+gXz5UWht+fp4WKA2QFyeqUBlVhSKssKQnxWOkpxQ9GgzUZGcyPOL R31MPAbiEzEeG4XpiBBMRkRhOD0fE8VazJRqMV9ehasNLbje3Ep4WwlvK252 sLpacFts+NvThN2+Rtztr8f1rgpstWiw1ZyDjbo07HReoa6dJ8wEuWmRMI9j u6YL3z19Yf5rkIMw1z2HnqIJ9JUuo69sCyMVVzGjvYmlxrs42/YA53ue4OrA C9wceYW7429wvuM+uhOmcTVvEi/z+/A+vQbPszoJ7jf48ew3+Gn9HX7ceIsf Ngj3xmu833iJd+vP8ebsU7xce4znKw/weHkPDxZvYW/2Om5PXsTOCI+yfxHb nWO43NyJ98+eSwrssy85ujeExacuhNhGB3GUnRWiCXEsIY53tGZ3WsDD1FRS YDeZPdzNHeEjUxNkU4TIZdI6SKGkINyRCueqQryHGsn0RPnqr9DocoKda4jB aDkGky3QSPUsjLREuzYeE8MlqNVGY3qsGOtnu5ETK9Y9tKQltkRznAo9MTIC rY9+/yNoYGeWJ6lRnqxikeQkkpxMJU6mEpPeapLbmGqGxhQTNCXTRpNmbZwe UpytkOxkiSSW4FlHsxJxtpx0OAazfd0H9pVYXKT1a5ADOCTBHBIxLOG2VnDQ N2HuN4M9rbSjiU6FnanCrkp3RFrprHQwYQ6RYKZt5M8KMz+FZMODKFEdQ4Or Adr9zdBBm1jBPJsdwGQQ54aFuXYszrdjaaEdA20ZSCdcaWK1liBLVDIDt0dY oC9MzGsn0eF3EpVhPOVYpgsqcSGHqCDShBabSSLClJNWEZ/9J3415p8JOKs4 ks8JdDHVOcNLHwH2MgRQbQMdjvP5UYSJy9JL4qBtKkBNYwFyUv2kJSCixKdR LoY0VoaIcTREhACZljrU5DgiTPT5u6LMTPAVYmjCYpiyYuhWAixs4WdJmKm8 uomNMJsbIvLoZ8g0PIRiTmZVrsao8TNFnq+59OlVipcSCc4mGBttxcRYK4a6 K9FSnI7anGzU5+VzfuckE5FIs5qCicQUnI5PwEpEJBZTczBbWYdlbT2utXRg u60TOx2dhLgTt7o7cbuvA7f727E72I67Q63YG27Bdp+WmBViqzUP51trsdN7 gzpHoDupzO2ruNE2S4UeZACd/g3MTWjP7UJP4Qz6StYI9EWMVmxjtvYOlprv Y73zMS70Pce1oVe4OfY17k5+g4ez73Gl+xHmCf7l4nm8ZoT+vqAF70v68NPG d/jp3Af8uPktfth8j+823+Hbzbd4d+4Nvt54hVeE+jmBfkKgHy7tYm9hB7dn eJTjm7gxtMyzmMLVji48vnQJ3vR7vta6rtUpshohUsdaIpIgRxHkGAdrxBHk BCdrdqcFPE3NdIosc4S7hRM9lB0CTQTMtNMqShA7N9yJHlHcmqI+jnJa6BZv AwYcE/TS+rYQ4pIoFWVEbOtgCW22N1ZWurC62o21tS70taZIawqKZRGzKT9i zaFqyk9HrDkGYkwxHH4Kvf6HUR0rQ7lYFilFIS0sVZbKzqYcVycbozHNDE1p pgTaCHXJhsgPlCPVxQoprGTn3wIdT6BjbS1QTTkWr5ZYXcfX2uJnkv05JkEc k5B9ksW4uJvKGCr3aTZ1grOcnlrhBjeVh3QFho5mTm5qc+nKjGijI8gyPYIK Br4GLxM0B5tBGyonxRbIDFAxTqiQ4y/H/FwbaW4jzW0oy3BFepgaGeG65aiz SLO4tLMpUoG+KDmGSedw4HE00D0XcWwKY+WUazlKIs0OEFsz/Bdp6V3xzrtY E7k0ylh6LCHQpVF6SPY5AX8rUQTZ8jj8lYeouEeQl+GLhpYiNDYVSZcoxbob MRkxvxK8KEsqtFgGwfg4wvSPIEzvCMJPHUe0gQHijAwRZ2KEBAv++kQS/Tki LVQIkxtILIee/BLJJw4iX8aOsBM3YJki31suXXkeR++W6KVCio8SqV5ylGdF YHysBZ3VGWjJTyPLGrJcjIb8CjQWVKMmrZhTfDYmknNwJjULm6mp2IyLw1ZF Da6395DHXtzs7sWt3l4yzBrswe5wN+6OdmFvrJN8tuPGQC0udBVjq6OApI3R s96h1JHn3stk+hxriT9ngg697Tcs96Ajt4++fh59RRvoL72MscodzNbfxXLr Q6x3P8WFgZe4NvIGtybeYW/6Wzya/4Bnp7/H6+Uf6Lgv4mLlMl7XTOMvld34 qWYY307s4afz3+OH89/hu/Mf8O35b/Fu6x2+3vwar869xPP1Z3iy9ggPz+xh 7/Rt3J67hp1JWohRzjhDM7ja04fFzhb4MLP4WpNj6489K97P+qVno+2tEUuO 450EyzYIZZT0NDODG1l2lzvCQ+EMT5UrAshysEzHcojKhPP0EeRYHIbWSQ/N AcbMOWQ4TmQ4FXLFThiRViiggxY7YRTQRS+Lfd9WO7Gy2oXasmBkkeWceLFg oTU0CTbQ8M+lzItNdOW9nAuGGYNHIk6gK+wEtIzF5WKJs3Q5SslvdYoxmjJM yTIjcirjNlnOYv5MdbX+K57VSCDPCUKgaYGjbXUvWlFqAsdDtyybGJOAfZZD bawQYWfNcbFGqJWaLMvgZGwJp32L7SpYVnvAV2ktsRwirOfJQ0g59RUKFCdR 4USr72eG8kBz6fLkFKaOdObQLHHlbTDHhZz2tWuozq04Pd8KTYyVxHImWc7k eGVHWSFP7MBNrqs4v3XFKTkOcoxFGZDpo6gUFpvjLK7dE1s4lIhN61ninfpS zoGlMfz3WPHcABVxR5h8jh1AIAPp3yKIX0PIdJj6MFI5tbSIm5jKkpDgaYwk VjwFOZKxOMyMTtz0BGL4GEOmo4yOIoZcx1KcE2WGSDI3okinmBvjINLovlPp qjMNDiLhyCfIYSwu4c+ocBSLEJgi1pn+TVym6Mbh9yTM+5eyinv5qvIiKc7N 6KxMI8RZqMktRJ2mHPX5WsJch5aiBrRkV6MlpRQjGUVYySvEBY0G13MzcD0/ D9caW3CzbxC3BwZwe2gAd0YGsDvWj72JPtyb7MG9qW761AZc6CnF+a5ChttJ 3By+RzRuE/LrrAsEe41gU5y7evH9i2fyXwNtgo7sAfRqTqOvcJNAX8WY9hZm G+5huf0x1nue48Lga1wbfYtbk+/pjD/g0eL3jL0/4vXKT3i39hdCfQmbNWt4 3byIf24Ywk9F9fhh7j5+uPAjvrv4Pb698AHvLrzH1+ff4dXWGzw/9wJP1p/g 4eoD7C3dwZ35bezMXMSNCbrt0Xlc6x+kI42CL4H2E41r/Ss7aSsaVwiz9b4w 2/AVtUGisw2SWGKRMOGyPcwF0C7wUrshQGGDYDM5wg1PIUX/SxSqT6DK3RD1 QcyukTIUhtMuBlshK4ygEmhpP5EYqwMooKX+z2itjsXymQ5y3YHCJGvdIqTk OZs85yXaIJ9VlGSDwjg1Kugs2xIVGEiUYTTeECOR1P44A2oZeU43RR1L8NyY boJa8lxCcUp3s0Gaq/UBCeoSCekkZ7H2qUCa8syAH2Nngb2d6/BhqvOjXZFG xFrgbMlRsdofFWuOig1HhaPAxOlirJRwdhE4K3U4B1gyj+gfRdyRz5DLfi+x 0kelmwnKiXKGjwViRe/6qJHiT5wDiXOwuJCeFiSMHJVFUZ6b0deRBU2sNdKI slgGP5OjlcXpL1fsS8ChyY9SS6m5KV6N/iQFxhLMMB6th56wk9CGU39j5L98 8Ca9lS/TvZ3PabAi/hjKY48g2vkEgmyZiG2ZfFmRYpkhq6OIUh1CR3spyjKD pEvE08helEofEXJ+j0yPJvoU4hgaEi1OIV5+nHWMxRBhYUCGjZGuNkYGK938 JDT6X6DK5HNoTb9CuaUeylyMkerIaZ/TZxjHPdxFd9lxrJe4sUCMiXhnVI6a /EgM0gh3FCXSumlQncscpqlCfUEtGgrJcnEzukra0F/eQZqa0ZtRitPFFbhY Xoad8kLcKsrCzfpq3B4ewZ3REeyOD9PyDlMqh3BvZgD3Z/twcaCKlrgcW93F uDP+FDtjD0nGXdwYucmilR2mQA8xPfcP49X1y/hroDOH0Ju3hL6CLR7CNYxW 38Fs0wMsdzzFet9LXBj6GtfGv8Gt6Q/Ym/sej07/iGdnfsKr1b/g7fo/4dtz /4THC29xtn4DLzvO4J/bJvA/tK348fQDfHfpR3x76Xu8u/gBX1/4Bq/Of43n m6/wZOMZHq49xN6Zu7izuIOdOfqI6Q1CvYCrQ0OoToom0Ip9oD+2rg5ooUJR Djp1jiPMCc46oJNdfgW0WIt3H2jP48xUX3yKHFqwUms9VHkYozLITLo+KN6P ahhohbQQsZEJlYYtmssW1Qig8+Ms8Xdor43B6eU2nD7TLm3VnREnVha2RhbF OVcINGEuSCbUKTYoSSWTTM41iUp0pVpgiAZ7NEEPgxGH0BBzHI2ZMjRk6sCu olhn+6oPSEQbIs3NWkI6xZVAuxBoQp1AqOMZ9GMdLDA/SJ9tKVbm25/irC1/ AVpos70YFQLNKS6cf+dqJIeLmf3PQLtSr4N+/wek0VUWmp+QXGW5uwmyPGSS GEVKzctJxFct7RSYxkScKfZdow7n0ku3lEdhbrYJ3Q2JyIsVG/VYSpsnZEhr 4NOvEHKxH0Qh57l8wpwfq0IF/U1HsgrDKRYYTzQh2CfQEXqcIFugJN5C2iei NEGOsgQTVCSeQGXCcZQR6AMIsdNnm4bR/0eyolmx1icQa3kEPe0VqMwKRbqX WNHLGJHm+ogisDEKmmqlARJVBkih8U5h+k1SHkey6iTLABlWxsi0MUaO8eeo NPwEbYqv0G5zGI22R1BpeYw/m76FHRdqp/wZaLEPUwzHJF6MCYFO8TNHrJsh ejuL0V6UhKrsAmhzy1GjqUZdQQPqC5vRXNyGzrJO9Fd1YaSmGzP1PZjTtmGq TIut2mrs1Fdit64IdyqzcWegC7tT47g7M4Z7cyO4Nz+MB/ODuDioJdQVuMR/ vzP1gv71Ccm4z0xK1z1BkR6nnx1bIdjjeL1z7Tc8d6M9fRg9Ocvoyz/P9LxN nncx2/wQS53PyPMrXBh+i2sT73Fz5gPuzn/P1PsDnq38iFdrP5HnvzAd/wXf bf0THi5+jaXGDTzrXcM/987gX5q78LZ+BN9e/gHvLn2Hry9+i1cX3uL51ms8 OfccD88+wt7KHm4v3cTOAqedOfI8tYgrI0PMKbbkmZ1rpZJ4DrQWCVF0rpXU udGOgmedOAuek1xsybMtAhVM0DJLCrQT3Iz4qnx+GKWHvkSzQh+lagOUU45y vWWI8VAg0lONWF9LaYNEsQ1OOnnOjNC5RyE3eXFixxJLtNZEY/50KxaWWpHH bk0jzOmsjHgbqrTYc5wqTaALCXRRqg2K08UmAyqUJCvpqhXoptseohoPs1t7 Yo+iMckA1QRaXLiV4W6LdKmo0uQ61U1HdLLLR6rZTUz7sY6K3xJNVy2IDuSY hNhY7xNt8zPRcU628JEr4GaqhoO+Cl6fHELGZ1+izswIpZYnUeZghFxHM+ma 0TAmdEF0BImO8ebv8xNEW/5qpzBxrYc5ipOcMDvdiM76BGl8Ukh0GmlOj6Jr ibHe35yDNCeIdxdIdIKK7kVNSVaiNlGF3jQlRtPkzJWGGI3iOETxNUm0QGmS OSqSDVCZfBKVSceRF3acRIc6GJDoCH6NYcWxEuxZJK+vQ4uarHDphvJIUhyt 5HytYjxWGyHRyggp1kZIszVEhh0pttFDGi17ulgRzeIoio0/QbPyK/Q4HsOg 1yn0+p1Chc0RFFudRK7iFIm20BHNMQ9z5ZiQ6GiOSRzHJDFA3EVmglgPI/S0 FKCtMEWy29rcSlRr6lCb30Si29BU0onOim70VfdiqLYHK63DzMLjtM4TmK1t wUpjA3N0He52VOF+WzHudZQxO3fj3sIY7i+O4OZUBy4Na5l0K2mMl3Bn5hX/ 7hl2ph6RD8r09A7rEp/Tdo9P4fWt7d8Q7Y65lnX0ZJFojSD6BueVXcxIRD/H 2f5XOD/8Na4yP9+cfY+7Cx9I9Hd4uvo9Xp79AV9v/ID3mz/iw/kf8f3Fn6je r3B5aBuPBtfxl+EF/Gt3H77rHMO7y9/hzSVB9Ds8P/+GRL/Ag/XH2Fu9h9vL t7CzdBU3FmgkZhZxeXQQ4cyPvpb7RLN7xZU4IVTncNG5DoJoG8Q6CaJtSbSt jmhXW+nTKi+ZEj5//go5n32OZjM9DLjKMczOLHWlQbMW66ry1eL8G0Gio33E /kOWuv2H9vdSEiYyO+aXPVeaq6Mxu9jMapGyc4rQp1gd2ZkkOptE55HofMpz QRo1KsMaRZmWKMpSoyBDyfysQGOGObrptQdS9NAXcxhNXgeRbSVn5wqmyyWq 00h1qjt/PqlO/qjTLtRM0hbrRKKH/opoKxJtTaJt94kmzVEclxiOSdz+uLh+ eQxR/89nKNPTQ5u9BXoDrFFHnYliiAxRmksXRITZ02Q6KyWif+lemkwSLXKy IDor1Jy5wgnTU/XoqIuTxieZRKdG7u8wQaKz43TvK+SS6ByxIQJLaLXYibM4 VintOtCcpkJ/Fo14Bo04x6I3/gSqk/VQmXoKlSnM8iQ61p2B2MEQ4Zx1ollx rARWkiirExjsrEFddiSdjRzRNNKxNNFiTYEEaxMk2Zog1Z7G2sEYWY5GyGHA FmuC5csPoo6a3OV4HIPe+hgIMkCdjxEKXBgCHGi4bekbSH4KZwVhukP3iQ5j CImSxoTG21/JMK27oa6rMRctBamoyytAZa4WWk0DzXgLaos60FRKlazsRW9N H063jGKjYwLneyZxqW8K14amcb5/BKtdHQzJTbg9WI+Hg1V40lOIvZ4y3F8a w/WJZhJdg63BSjrid7gz+4bsvcCN2cdUPYbpORrvOSrg7DrJnsHrOzu/IdoD 15buoit9Gb25Oo0errmLKRJ9mhq91v8SWyNvcGXiLXZmv8Huwns8WP4WT1Y+ 4MXZD3hz7jt8s8WgfP57BuYf8P2lH/ADNXlj+Drujmzgh4nT+NdBBuuBMTxb 2MXLi9/gGYl+LBH9BHdJ9K0VEr1Mok+fw/W5BVwY64e32mKfaDU1el+LBNH2 f0U0uzaBNCe56ogO02d8+uMnqNY/gR4HGQYZBXuEhvg6wtfBEwEq4VKVCHHi q+WuRqS3JaL9LRFPh5kYKnSHHSqcJDs2ixk6m8m4QRuFqbkmTM03oTDRGkmi m0l0Cjs4jR2cyRSdTaJzSXReOjUqg1Eyy5LFjs5W8tECuSkyGnJzpmcZWlMM 0eeqjz5GuHKFHk23hy3K9oG20QHtZoVEVx3Q8S6/AprD4m+p+v8DTXnWAW0r Ae116hR8/+HPyD18HPVqGbq8rdAebkfr4wQPGw+EWMgQopDrJGkf6DB3XfPG im3IOWzJTNBp4k3sCFagKerLwjE5VYvW2jiU8JSTCHQygU6l4U6LsZZySA4n uExCnC2AFhfCEeYimu9iUfz7Qsp2ZaoabRyWoVw5RjIN0JVyCM2JX/HvT1Ky xe3zxpzQjXkuJrQbBJWVxJKuRiN0I111aMiNRqqzHLFWJoi3NkWCrW6xVbGk brpYT8vZFDmuJsi2+AoV5l+ize44+rz0MRRsjPYgE5R6maBAXNjH0FEm1q5z OIYy+1MotRMLAzNJM+iEurIItNjTNYaGO87bDPEEOjPGAR31uWjWpKBBo0FF Tg0q8xqhzW9DdXEnx0ncktqH6aYRnGkbx9muSWz1TtNIz9B+zuD6+Czldhbr g/1Y6W+meW7Cw8laPB8vx+PuTFxqz8SFkRpsT6xhb/497sy/xc35VxS8p7ix +IB1myUEkJZ2dg6vd3d+m6I/4Aq/pTOFRGdvoa/4OobouiebHmKh8ylW+15g c4S6O/EG27Nf4zbT8r3ld3i8+g2er7/H63Pf4u3Wt/hGvJ/NpPzh0gd8f5l1 5QNWBjmPjJ3Dh5kz+JfxMfzU1oRXS7d1RG++wH0SvXv2Hm6u3cKNFX7v0gau zs3h7EgXvFX7RFuSaKuPRFvvE22zT7Ttz0RHKeXMiH9C8dGjaLMyRR9fht4I RtogOnFHJ3jbeZBoD/g5eSJYqUAwnWaIq1rasjHCV7fLmNi2PFFqU2pPNPWJ RKeLnZ4znTE204AJliZet+NNIqlOZAunULPTSHlmCmM19TmHjjsnk66TGp2b pUJutgI5WdS3dDNUZMqhIdlpTBS11OQeFwsMs0W79T9BkfzUb5BOEkizEoi1 hLTzL0j7CaQtdUgHcFyC95GO4Lj4mcvh89khJH16CBUyE7TwHNtD7FDob80x tIablYeEdICVLYL4veJzvp81iUhHMDOK7YfjiHQikU4JVSM1iMdMDGpLwzE2 WYMWznBFRFfsDfZxB6CUGJFEbKS3FtLpbTLFlejRcuTHqFAYS5SJcxExL0qi ZotiItFmKtCabYCOrBPoTD+C1kT6FvdDzLCmiHAyRTTRjHcykzZHSnESy9+Z IpGJYaynAb31RdL1WWLd5ARbGfVbhmRHGTGXIcNVhnRqeb7sIBqsj6HLw4Ca bILecGZ1LwMUuomF1uQoEGsre5qhyNOUaUwfFY4nUO50Cln0ByFMOSFEWuzv HuYj/JxM2p0ulkiX5oeio70YjbkpaNLkoCynFhW5zajKb4e2uBu15b0YZtqc axnHUvsE1ronca5/Gheoz5dGZ3B1cgbbMzPYmZ/GrcUprI604cKkbkmWO0PZ uNUViyutsdjt2MEeFfQOmdtZfE0+nuHGMpFeZpZevsY/09POE+m7Nz8irbsa +z+iLWGJlvA8eouuY7DqDsYa72Ou4zHO9D2j2D7HxYmXuE4zf2vhDfaWvsbD 1bd4evYtXm68w5vNb/D2/Df45uJ7fHuJdfn9AXy4Qn+OxxvPcWniHN7Nr+L/ nZnE/+hrw8vlm3hEfb638Rh31vdw8ywdxOolbC+fxSWe4RNOOIXJiexcJTv3 VzTbia79xVkKmoMpMkFffIUsVr05nZC7Et2h1qgIEHnbDp6W7vBi9wqafUiz rxM72d4ZQZYKBDmqEEyNDpU2nBS75Foils48IYIOPIpUx1giJdIcNRURGJqs wzDdZnaUStoNNI4dHM/HBOpzUpI1UklzOmnOIM2ZGezmLFEqZNBd5qSaoSRD TqJlyCRV0TzucEcH5Lk7otnTGgMuMgxbHkWz/BBybNiV7tbSNrgSzW4ki84v hjTv3dxGEcfFT/3LLPeR5lDSbPfnLxHyj19Ao2eAWqaKFn9bVISSLi87Olcb adsmDwtruFuTaFsPBJPmIKUFZ0l2rhAkN6XkMCNJcwwddzxpTgxRMk+bIiXQ BNqSUIxMVGOUROfHqKV3wRLE+jL0P8mkOTVOFP1NjNgNSIa8KAvkkeZ8epyC BEsUJFqiMImVTKrFXotij690PdRmnkJT5kk0xB1DldNhlKg/QwLzb4yTnDST VD6mstJJqsbfHhN9TZiksGV4KPh9MmlpwWQnc6S4sOi2sxRHUaE6ilYXffT4 m6Av3Az1IWYo9jVCoYc+itwNUMQcXEDBLfCRSWtmF3mbQut6HBVilV63U5wZ 5QgmzcHuHBs3M850Joj0NKGBMUahJhSdg1q6/mQahWzU5paQ6BZU5HegsrgH PdVDGGsYxTRpXuyYxJneKawPzFAVSfT4NC5PT1O1pnB9YYqedBK3lidwdWEQ p4dKsdqfjUsD6fh2tB8fei7im9mruH36a/pXCvQZ0rzykEWaV0jzGQr04hy+ f/v6NzA786c9pD5voUdzDX0VtzHScA8z7Q+w1PsYZ4ee4Pz4M1ydfsH55CV2 l17hwcprPD77Bs83vsarza/x5vxbvL3wFu8uvcU3l9/ivagruud71OCzJPrV 6TX8z4Vp/MtIJ16ML2Pv3CPcPncXO+s3sL12EV0N4+io6cfU8CqqC9vhYxXE zv1V1+7THLFvK90+/RKxf/wCFUb6aHU0R2egNRojbJDjp/tc2kemgJfKCV7W 7vBm93rbk2jS7OusI9rf3gqBzKZBHmKjPEuEBVgikpkxJow6TYsZH6VGUogp qksj0Ddai/7xWlRXREl7VaaS5GhWLGmOT2JHJ7Oj6bZTSHMKaU7NpK5lKpGS Zo68NBny09iNPK5UDztm5jR+rSSldpxx7FHm5YBOT0sMO5tgSPklak0O0lZS c9w5Y+zTHOWsuxdmorcHfirSvD8u/hwX+yMn4fLfP0XKoZMoU5mj3ssa1aF2 TBj0LfwdiW52nB3sOEvYwV+lhqe5Cp5qe/jaOCPA3BxBVvQqDtQhF529DPcR O0gKjZYxN9LKkuYE0jwwosXgWDWGxquRF24BDelNoj7Hk+YE0iwlkEgLZJKe bNKcE22BHOpybpzI0pbQkOb8ZFYKyRY0p1Pn0gxQkqaP4lSxCoihWIUeVe6n UOt4CKXWh6X1sZOdzZEminpdmRyGyYFWTA8yq6YHMlebk3YLkmyBRPOj0MgP o9ZeD+0+JugJlaElXI4yeoviAM6oYr2+YFPUBAk9NkQRdbrIkyUWifc2Qgn/ XM7fXe52Armuegi0M6WvM0aQWD6ENIeS5nB+b0tPFdr6q9CQFova7CzU5eSj PLuB2tyJ7op+9FcPY7hhDJOt45in1V7qm8TqIIkem8Tm5CQuUNUuzU/SE0/g +tI4qRzDhekWbLC/locrMNFTSav9Ej/Q5/7lNhk5Q11efYkba7Tba6R5jTSv 0W6vbmD79Jz5b0l+fvcbtMWfQ1fONfSU3sJg7V1MtuxhsfsBj+IhNsce4/LU U2zPPeM88Rx7Z17g4dpLPFl/hefnXuHl1mu8vvAaby6+xteXXuOtqMu6xzes O6ucFUbX8XTpLP5paQ7/OtmD6co+1JVPIS+1l/N0N0qTOa+ldqGtcBIlUU18 hfI452oQZ6dBlE0SIqxDqT/UleMn4f/7T6E5fgL11syhdMlN4bbIpw6Jbk1h CWLE+97eFlbwUjvDa59kb0fSTJJ9XViuHqSZNNDFBtBtBzAwBtNdhoewkxkY xW5ESQyMdQ2Z6ByqRtdoDcpLwunCVdK7YSkJ1GdWVKIVYlL4PJVdnUZXnC5K hQTqjtgrKVPshuVnJR1XCo/rb6SjK6eT5DG6OqLa2x49nkqMOBmgX/YZihQn EEe/EEuCtTmJ0it0Z3sbvkr6FJLoYmQK5d//EeF/PoJcU3a3syW0gXbIDmBo drZDrIv4uXbU9H2K3XUUh5F6D0GxBWcvM92qHEEcvyB76rMLdchNhlAPOlxq VLSvKWKpaSl0pz1DWvSR4v5RreS0c0Pk0hVxieFKxIeRVupwNqlNI8GZJDgr 2pznzPBMZ51DgnOoxbkkODeVNHN8itNIEQkuZCUGGdMTmDFFmELjRW30MkKj 6yk0qw+h2E6PTlpB92yCjioNpobaMDPchs6KNDpvCySo+O8GX6HcgpruboT2 QBnaIuRMVhYoCLRAUZAcxcEylJDecv6ehjAZ6sPMUMlZqdBbEMzy0iPNpNed DtvtGEo9jsJfLNxNfQ/gzBroaoxgD2NpYdeGrko0keKmihw0pqagLTMH/XnF 6CriMZX3o6dmCAONoxhrG8NM1wQW+iZI5gRWxyewPjWBzdkJnF8Yx6XT47iy PIaNqRacJb2rYzXYnBjA9thrTI1/wN3bP+A+1fEW6d05+xw31h+z6K7XGZjX mUbX1nHv8gXzXy/c8R8xrd1Ge/pVdBXeRK92F6NNdzHbuYfl/vtYH3mACxMP cXX2MXYWnuDO8lPcW32Gh/zpwjk/ZeZ9vvUCL8+/wKsLrIsvDuD1xRcwEk/x 4sJzRuPnmB1cR3PJAMrS21Gb1oyGlCbUZfagMaMLTWntGCgYwVjJJMaLJlHo modCZw0KnDTQEOJsq1ykGKUhTS8MxXJbvmAqNIbYoijYBkkeNr9pVAGJQCRI pYKPuRJeVi7worH2orH2phT7EF4fV3f4uLnDz9WJcqxEICUoSAAcxNgcpJAk KI4N3NinRfOAFi1s4lY2cCwbIo6GO45RMI7SEp9McAW8bMxYVkwaJSxJjtg4 YyRzIvj1cSV72P2NdHD/jl8517CC7W2R6emIRh8b9HmYY9juODoM/4gM2VHs 3do+sL9iaUZoJNT/8Dl8/2+K9AlDFNooUeZji2w/WmZXW0TSqkfvoysEfh/f A0jkr/2Hnw8g1NYK7hK9JtK9Qf5W7FJ7dik1LshNaI0pddgEMTzxikJmQepN 52AVunnyTU2ZyKSGZXMAiiIVyItWUmeZHKLoZkluKslNZy5OJ7kZ8UwVHJxM epQskpstkSsnsYbITzVEWpTYLU5+ACHE8D8jnDKbzsmjwl2OJsbddutTaDU/ iDDjL+Fz4hP4f/VHRBz+I3IpjTlmlMnjR1CrJrCeFmgLVaCclRsgVg5VoDBY gSLxQVqoHKWU4pIgQ9QT6voI2QHURZjhU1SQ5RI/zh8+euRYD1rP4yj3PIpE cQeWrTH8qL5+LlRgd2MUl6Whpq0CdZ2V6GktYZpPRV9WHvpzi9iuZdS6ZnTS R/eS2+G2UUx0j2F2YBwLw2NYGh/HyvQ4zs6S1XlRA1iZbMYyeV0ercb6eD/u nn7Deo27dLd3V17i9toL5kz6540nuHGOqntuj8XcuXGZbnUdLx/cM//16m// Ac2xF9GRu4Ou8jsYqN/FRNsu5nvuYmVwD+fG7uPi1ANcm3uIndPU9GXx2dET 6f2pRxtP8WTzKZ5uPSWcT3+H5+ef4r+Ip3iy9QRtVdMozh6AJr0b2qwudGSR z4xmDCbVoDetFQPZXZgvm8Ri6SROk9m2oErUuGpQ5ZiDcnUGtMoM1FrmoMYm D5VWGhTbJiKRnMbti8tf8XpAAva/IlBsvMUO9bK0hyf11ot66+XMbOxCN01k vYmsl7sbfPnf/T2IrbcFgumQQtm1GbkhqKKLqe6vRO0Aa7gSOcWhxJldHaVE OLsyjF0ZRj0JTVIjJJEONIYa5mNOrdSBIzRPR82/0R2ex6/Llv+WxK//STqV CBemAld75Hs7oJlOvtfVBIv2JzHx1Vdo/b8+x/jf/wnV/3gIcZ+fQJ6cWuJq Tbdpiwjm5RDm4DBH/gyCG+VMeDksH48h3k13HL+TjuOUdBxJ7rYIsWP2l+50 NJZ27/CjrvnTJQbQJYpl7hPFdMU+be6uRGuvzi2OUB9qM92lW5DLOAZlzLlF cUJvzZFAapNIbUo0iySncHzSOD7ppDadbjkjxVLa+TM3xRCpJDZIZE0Hjjeh DXFSSJ/fRvDPYi2kPBc1aplDO3g8hSaHEPbpPyLq8J+QePgfkXP492g2+woj PlZo81ehRlyOFqCQFkDNDVJBw+xeEKpEUZhCt64BcS0OMUZ9lPikr45fP+VX GeoizVgmpNgYFcFG5NgQ1T7HkSnu5bAyQiA1N5y/Pz/WFQN99ViYaMaF0x24 tNSB4RINutJz0JNdiN78UvQVVzJxatFb34H+thGMdI9gYmAEMyOjmB8fxemp USyMd2JhtBlzwzWYH6lmabEy1ofbi69wZ/El7iy9wJ0zz3Fn7RlunX2CnQ3q 7CaZ3byHG1t0y5s7ErdXVlYtfsvs870PaE65jvbC2+im1g417WKqYxeLfbtY Hb6LcxN7uDhzD1fn7+PG0gPcOvMAu6sPsXf2Ie5vPMIDZtiHm49+h0ebj/D3 uDh9DSVktDy3H9q8ATSw6jK70ZHdidFsmp6MRszFlWMgnM3hp4HWLhGjkTU4 ndnH+TYLrdbp6OJjj0suut00aHPLR61DPios81Eoz0OSvefPjfmR2wMSEv9d krMUTzsEEFwvC2qtkgbRmvASXE+C60lwPV3d4OHGcnGEm60K7jYyaWcdTzcj pJaloqCjHEXd5Sjpq0DpQAXKhirg62cCX5pn32ATeIfL4B0hgxtNpQt1wsVS uQ+NrQ4aN92xHWB4/YhNoocoAaz4+ndIILDxYv7xsEYsK9yNsZ7wFXrZYjsj FvW/P4lrfzqON58fx49KM6zFB6DAy4a/wxq+1lbwt7Wm0bVBiIMAlxA7/wJu jCvnrziJWIldd7v9A0kgtcf5a205hMwCYoE+Z5aHDIneMiT5yaAtiMT4SAMm xxpwdq6Vc3wnPVsnbm50ooA8FEWSC/HhEZnNjaG6UsEyyEJGDNU21lxiNoXM JpPZFCptslDbFPriCEMmSXpzJtUgMhpEXoOdVAgVV5WxYpgN4tyUSHSxQqTs JHwPHUT8sc+Rc/LP0Oh9Cq3FF2iw+QKLWc7IFVeGszI+Xh1OW6MJVaEgnHNJ hBLFTN/FkXJUktS6aHMiGy2QreUh1kSboTbalGUi7WhSQ3xreGjVQSeQJPZ+ ceYwuMsw2lKE1al2rM+049x8B7YWO3BmqB6tKVloz8hHp2STyylylQSmGn31 1RhoqsFQWw1GOmsw2s3qrcF4fzUmBqtp9bWYHKrCwkgPbsw/p2l9jpunn+Hm mae4SQG8efYR0XyI7XP3sb1Fid3a5eNt1g6ubVzEs4cPLX692PAXGNfeQXPW TbSV7qKndhfDLUS2i8gO7GJlZBcbk7s4P7OLy/N3cf30HnbO7OHWyj1ODvew e/Y+7q7fx96GqHvYnLqMMrJZmdcHbS5DbFY3WjK7eKZd6MroxGBmO2YyWzAf WoAWp0S0OSSi3TERXaxePp/1zMWYTw7GAzQYDcpHr78GHV75aHHPR6NzPups 81GpyEOKg6fUlgn7TSm4SPL4yO5/k9iNdbaBB7n1VCjhwYDooRKlgLvaAm6W FnC1NJe2EHW2lMFRbYaAsFBUnb6A4slZlMzMomyOtcBanEXOQBesrM1gxVdW qZZDYW4BNcvdSiWxJjFDZoVjJTOIdZPYPYB4Htjf73NjK/GiK4GrDWKIa7QH c7KHJSKZa/OzUhF2ygPNXzrgrqED/qfaHv/qpMaPk3XSJ0g+akv4EFlfG2sE 2BFbIhtCZD8eQqSLbuoQh3BAOojfScMU52bL3CymDPH176TfHSuOgflWbOGT 7CFHkjf1KckDG3Pt2Fro0OnLcifn+E5cW+3EdbJ7ZqwUeeE6h5wXq0QGcUiK MJW0Nolam0Qw4uNU/DUMt/8V8cQ3LkGNSF9DzjIcYTs5AohsoKOC2CpZOmwj KLEx4o05T3FTjAnUXxyE05GjiDY6hhzzoyizOoI656PQuh5CXZw9coLtiC1l PNASWcGcFkItpSWF8sWiBrQCRVGcXmgDKsnlAdRyMvkUNZxiqnl44sa0alqj 6lhT3SP5rY4yhDb8FF9BTh+OcgzVFmB5pBXLE204M92O1VnyyyHZ4JB0F+Uz 0eWhJbsIrbTJrWUVdJRV6KitQlejFj0tlN4OLfq6tOhnJB7sq8JwXyWGqAAb E1dwZfYpTesTXF94jOtLj7G98ohT4wNcJ0VXaYmvbt3FtfO7uH7+Dh9v4erm Nm5v31L8ek18Mlu3h8bc2/ztu+imNR5q3cVkD+0xmV0e3cXZiV1sktkLc7u4 sriLa0ucBc7s4sbKLnZWWWu7WJ+8iPLsdlTkUF/JaTU5bWJ1sHpZg+mdGErl GYdWodk1Az2sYY80jHqkYsI7FdN+qdiIyceZuCJMhOdhIDAXg8H56A8U3HJm 88lHG7ltcqTmqvOQus9s/K+YTZSYTZIMsrCf0U7W0lvUbuTWTamAm0oso2YB F5YTeXUirw7k1U5lhvz+edSff4j6C6yLrEusyw9Rx6q98hDhGi3MDOWQmZjD 0lxB7bbU6RzNaZiTzc/ARLnuc+tmK0FjS2Bj3XXAxLrrQIlhRRPWKFYkgQ13 t0SlJkV6Naqd4lFwyB2bqkB87+GLV2or3B8a4at2g57BEt6WVoSWWkudDeDv 10Fr8xtoxTEcEEdxQBwGv/B3B+7/Vpv938rfTkZinMx4jDIs7ffmGnHdYG9u 0gqeP9OBi0T1ElG9TJmtyvFGJgNtJmU2mTIWE8YATJmNIRfRxDWKFRmnRgQT f1CoDVzpaHwZnP3Iqj9Z9SerAWQ1gKwGkNUQchruqubx8P/wOJqq82FNeXU+ dRg++seQphAfxh5DgcsxFLoexkhTNsa7SsirFTKkC7zJapglciMos5HkNVp3 /Ughp5HyKGponAWqpTKHNk7Ooo2II6N8rOajlsxqY4ygjdRDGF+Fu7dv4JvX L3FxZYZ2tpW2uA2np9uwxDFZoc6ucky0idmozShAnaYE9cVlqK+oQEN1BZrq K9DSxDjRWom2jgp0dlagq6sc0wOz2Jx4hPNTD3Fh5iEuzT/A5dOs5fu4snoP l8/u4dLGXVzc3MUlausBXCatv+PzW9hcv4L377/9uMzWF/t3n4803kdd3h00 Veyig7AOENbx7l3M9O/iNAV2ZZzAThHYWQrt/C4uEthLBPYKgV0eP084W1Ga 0cbqQBXBrKcBbs/sRR9N7lBGP0bT+jCX1Isun2ICp8GgbwFGfPMw5Z+DxdA8 LEXmYTEyB8sJWowEaTAclIehwBz0+1F43UPQ7RmNngAC601gXTSoZ7hNcfCQ UJCAdf9oQP/2Z/OZsF+RzlbwtlLCmbA6qSwopOZwoEDas2zVMsQUVKGGdqSW 6aF2i0VgawlsDYE9gGp+/ffQ8quHbwScFWp4ExQfguJnZ4NAghJMUELFp7UE JcLlN8CSFx7g/4loshLtLiixISXkWnhgdkeYO4WSnTzEQyhxCkCOsTNC/kEf WX80QtGfDVF/2AT19oGotQvA/8fVW0ZHdqZZuntl0zRO98zqe2dWT/V09/Q0 TFXZriq7yk4niCEiJIWYGVPMzJgpTjEzM0shZqUwxClWMtvOclXPuj/vPkeR Lrt+7IhQSJlx4nv2SwHfyZA7wvKmBuz1ha3HGKt8eE9VrPqwwH44hGviQWgj iIcQ7KCSo6AfPr6/KA7DDsZYnVVw0PqdO6dV7lygOxdnG7A8z+hdoJYakJvm ghhWr5gwA/hyPvD104VvAAdjDrQ+LLTenBXsna1gauICczNXLj1nCc4c7uZS eFgawMPKkMOzETzZNHgzWoVPOPlY8XkW3UV3Vy3CXK1hpXkdDre/QIzJbeQ4 3ESyww0UhJpwMLw6vv7mbKT6myLJzwTJAYzYIEZsCCNWeCOZRf8uj6MgVIhQ GYpUJ+YpjBAG2sJICf5Y9bMepSvuoFQQrMbKNnq1scqP8NWbl3y6IxgZrMXo SB3GFHUYn6xHX1cFcmPSWZKycP9uDu7n5qGggCrOQ1F5Hkqq8lBalYP2piFM dp1hpucM8/1nLGNnWB45xcr4KVanTpgEKZa31cVj8VScKytCkD4Qg/QBA3Zx eQ/fvP/2w36yn6pOZ/Ts8rcoZpCWMUhrGaQtDNJudsEDDNLRbnbDfQxGdsJz DNIFBuniJAO4+wGy4yuQFVeJnIQ63E8UgrOVwdnJCtqNzsRe9Md3YyqmG3Ox PWj3KkSLezY67+RgwCcHc745mAnLwXR4NhTBGdjJ6MREGPv7QKGiZqKfXXKH Zxha3fxZVWPQzura7M6O2CEN5fJEtnnmYsH6A6FWCb0mL4TW7u/FOdDP1hju lkawMJTC3FACU0N9uHj7o5DjdtE8tUgxNIsYmoVUgagLrD77Bs9+/X/Fdelr aYMT65kzw9LV3EyMCy/GhDdjwtfmKi78GRcBjIpA4WgCheoVyGj4EWska5wj j4Nyk2jA7foXSFanj9SNkaNuggJ1U5RQmZ9JUXzdCJW3TVF5yxTlN0xQ+qUJ 7n3KufhffgGTX16HvVQKNz62h6Xw+Oa/e3w+tr/d1eMHiDU0gBH5J6rHZuoQ ZQpf5oL8jDgcH+6pNjz6N1YPJWNuFCP0/NgYTThRj8mpekzPMj7nqQVqqR7d /dkI4iDo6qXF9dOmdBiDurBmpyjXM4KxvhwmRtawsWB+sdZl/uBMby4crwHc GI9uVkZwZxX1tNJnWmO3WcBeqaNGjMc+dpnC8Vmx0w01V0ea821khZmjrSr1 GoOxFn+KyZEaqpqZ3w1JgVfbqKSGCiHJPpzpID1ARwi9CAP8OQoiZbgfKcX9 qCsJPxdESXifPqWDfIbjam8Sfvv1U9WeoH+Pd+9e4vhUiYXVUfSN16Kloxwp jMPU5CykZmQjO6cOxYWDKCsdRCeDoq/xqtUcZWBMdB1jioExM3QVGPPjDA5W rgVWrgXG4AJjcI4xOM8YXHhwdT27dIiv3/9Gtbn6L1Xh19XyBEUMvXKGXh0f pYX1sYuP0M/QG2J9HOUjKPgI43yEkqxWZMaUITuuGnkJTShJ7EB1Yg8aE/vR ljCIgbgBTMUOYiFhCCtJQxgLa2ToFKDVNQNlt12woOGMPc9oTEXmYyG+FEe5 AzjM6cNMdDkUYfepfAwFZaM/kCEYloWeoEx0+LGp9UhHg30K8sxCfleDxHZN aBf/gk3bVaP4/WbxQzHyY8OYHBeJlfNv8OCCuvyGSemRcPH4mysUfyZ2jA6M NkdGmzOjTXQ8o82LbvcWPmpFt/va8fH8+Oj/Cj9a3c+BzSQf14fyMpHC8/qX iPxCA1mabFA1TVCmaYoaDVM0aJihhWpTN0OHmhk6b/P6lhnaqdYbpmj6ksH4 qQQJ//IlnP/1U5h8/iVc+PDuDDhP4RD48HdUh+DDYPPlEfg6COJjU958/Ds0 8h0HE+SkxzEEhad0A0cnShyfbWNxbRT9E7UYnKrD0Aw1x9vCaRo2xpGUEgoj uTZ01CTQ05BBqm0AA11DGDKwjCRyyGXGTHWacObfOJvoMhnpwZlB5mwmXOsg JS4ITc3CuXmq0NFZjYa6PFTkR7OKRCCCg0SrtyMWkyxQmROBuoIoMa7EqBoV VI3JsSr0t2SgMNEBST56SPbTY5uqi3ThtEKMK+FsXPnC9oBRjK4og6vtxqL5 c7SE0sNwXRBOV8pxslhydQal/4rnJ+9RHr6BquQDVGUei61fbckxJ8RjtNdd VZb+NlqbATTKAFLQ3hO09yTtPcUAmmIATXJOm1wQitfkklC8JhlIioVDfPXN byH//mmAf4LHj3+LldV3yC89Rimjp5r/fQOjp5XR08H/vov/fWPzMtIjipAZ XcWCxZEvrhMl8f2oihtEe9wwRmNHMBU/hvnEcTxImcBmxiR2MqcwEtGAWusk VGh5YUnHExdOnpiOK8FBbi/Oi8ZwVjiC04JhzMdXYzyqGGORBRgMzUV/CCMo PAddwVno9MtAm0cq6m0TEG3jcE3on66JzdOfftc+BTn+sH3yY8r2YdTkpceq TnT3n9Db1g57BocjO0RnOtOVznRnh+jJcc7T1uwavOyEC3sz/A942JvCkyNj 8C+uI/0285+WMcq0TFCrZYpmqkPLDD2MiH5qkFExTI0wMkYYGcOMiqGb/N1N U3QzOjquG6P6F/oI+F+fwu6zL2FnIIMLH9+Nj+3Ox/YQHttTeGxPPvYfio/t TmUxEo4O9/5GVXGev36P5NwOVg4faNHsOpoy6OkYQJ9VREKjy6RyBFndgp+V Ojs7YWtiTeYDLcRFBjANp6K2sQJlJXeRFncHEV7GCHA2gr+DIRMNuzxNNeRY SVHvpY04DyMkeBoh6Y4R0n0NUXc/HBM0+YSiEpOKcl6Xorc1GXVF/uLHBPNo 8vtRRtd4YUgiwpZ6udGGyKHP6/OcMdQQitO1aqoSpw/o86US/JXqvfW+qlOU pR6iLPsYZQU0etkx6quZvxvovFYavZMVo5dtFFunoRGKrdMwW6dhGnyIBh9i lRimyYeo5Z0nqvM/XVedF31h9S1WlO+QXf0Q9+npYnq6nCETH5iL1PAypEc1 ICu6HcUxvaiPGUJX7BiGYicwETeNuaRZrKTNYePeAnayF3CYv4ijgkW0OGah Ss8Py1I/PHb1w1HhGJ6Uz+JJxTQel0/hsmwC5yWMg+Q6jMaUYiiqiD7OR3/U ffRE5qIrRKgG6WhxS0SBbZDQflwTe48/FXuPACbD73cfvkyK3rSykBgHe9pU Z67+E3S3tyM1IR52FqZwsDSFkzUtLcjGlBHvbGvKJb6bGo8kUwvkaxmiUEuO Ylq4ihZupH3bqV5aeJAa1TTDOG08pW6OaXW2gzP08t9gmm6eZFOloIZvmWDg hjF6r8tR93M9JKrJYCmTwF741JDV1cM78aGFB3aihIfu62nH3344feDkQ5S2 76C06wi+UYXwiy2BlWsINJintfQN4Wd+A2kRXkiL8kb+vQRUVhSjsroE+Xlp iAtzQTjt6mXHJkh4tZ7XAY6GCHXmv9NSQ56N8FlDbSTSsh9OHZgmnDqQ1k33 lqGpMJiWLaNKaOMi9gH3MTqcg5dbLdhW5EPRGI3RhiisjebibL0Bp+v1ON2o o2p5m75dp29X6dvlkv+sepvq6cVv0NP8GIU5RygqZtJkXq5iXq5j29FIk7Vw LG9n29ExfIzOMYp5uZO27ZjmNdXG5Xjz9X+oTtt3W7z6F/Q09CGTaS8vvJzt VhOKo7tRQ1u2xYyjL2YGo3HzmE5awlL6CtYzV7Gdu4aDgjUcF6/jrHQdvR5l qDYIwYpRMJ56BON57QO8qF2hlvC8ZgFPq+dwWTWD04pJbBewyUmpx0BMCXoi CtEbW4RuwZ6cI9p9ktHgGoNwO3uhWF+Djz1Tk1Cm/wjeDqbwojzpx+yr9MRe /eqzGIrMfPrMACVaRijTlqNG2xjN2ibootcGBJ9Rk1rmmNE0x7yGORspcyxp WFzDCu/4M16aYZlapBXn2XPMsLmfUDPG2C1jDN2Qo/dzQ0zYB/xIZannr75F aYuStjpEac8pSgcvUDbyBGXjz1E+9QIlOXdRXpCNiqI8VJYUoLKsEDFBbgh0 MRS/7uBuI/TXMtyxNWAbZMAiYogw/k7YY+O+LW3DXl3cvkt4M9bn6s3Yu36G yPSn/GTIuqPD+SYF42OFoqWUc+WipZ5vNuPJRhMeUecbjTjboKU2aalNWmqz hqKlNmiptTIcLRf/jap5eyLU4AfMVUVHyKs6RkE9O1X2yRUdtBbtVE071Qwd X0P1iFDNd87f4eVX/yH+Y9VJfG+pTiPy4skLZIdlIiekEPfD6zlWd6IsahAN 0ePoiJ7FYOwSxpNWMZe+jpXMTWzmKbFXuI2jkh2cle/gIG8Z87H9qDFmv2kW iWfeEXjdqKQ28apxAy8b1/C84QEe1y/honYex7TUYfkk5jM7MJpUi65oWim2 AF0RrNxBKWjxjkOyo7tQ5ZiaPOwEG3nYXVU4N15npl3Z6O9VJ2xVdvcxVclY bQ1RoW1EG8nRQit1a5tiiBZSaFlgmprXssSSpiUeaFlhndrQtsImtSXKkrct sa5tjlVabpl97AL72RkOj5O35VDcNMTgFwbYTMn/kepltl6WltKWA5Sy5JT2 naN0+BHKxuiniWcoax5BeV4m/ZRLP+Uj2tueo6oMgUxBLpYyOFlI2UjI4E0v +dNLIU4GiKCXIuilEkc9NPloXqUm+ijdzwh3/YU3CekjYR904Y1M4fM4Pjro bU7E4mQJXilb8GKrGc9ELzXjcpNe2mzE6Ra9tEUvbdFLW/TSFr20SS+tl+Hd s3VVuv1jzG28xcL2OyztvsPyPnXwDiuH76y/b5QfY7RjFJkBd5EfUomC8DYU RQygMlKBpqhZdEcvYzhhDZNpW1jI3MFa3h62Cw9wUPoQJxUPcVl9hKOiLRwW rqHWPA4rVnF47huLd60HeNu2T+3ides2XrRs4WnzOi4bV3Fav4yHNfPYq5yG kiVyLX8AkzktmMlvRkdYOtoC4lHtEQZHFhNHFhMHGxP0dbejl/oH8Zj/Gm/P zlEtt2Q7aYAqbUPRHEKO6dZmy6VtgXGaYoZmWNSypjGsaQAbmsEG27o22NW1 uYa9qwtrhtyOriW2dSxoFJqE/36ZtXFewxgzakaYvGmAoS+keDIydWWQT1Bc v4uStiMmmzOUDlygdOQRShWPUdq7zv7lHg2SjWh3GwRaSxFoL2PqlMHOVCqa w4Pm8BE20hLNYSiaI1KmhlJnHTT5aiBF2FfMl0lGMIZqb+2sYPZQIYbIFk5r 66ONHF9trA1mfZdkngrmoDEutxpxTp0qaQ4lzaFk3VLSHMoqmqMCJzTH26fr oVfwb37IEo+foyK1FDkB93E/pAEFYT0oDh9FTcQMWqOW0Bu/htEUJabv7WEp 9xAbhUfYLT3Bw8pTnNWc41HdOU7KDnBSvs3+Phkrdkl4EZCErztP8RVD6F3n Ed50HuJlxz6etu/iUasSZ80bOG5cwUEte6rKKWwUj2Crdhx77dPYaxrBbm0n 1svq8b9VZbbR1hmVmlLUEHYtQTcQdCdhDRC0gpBnCHhJy4bwbLGpY0fIdtjV s8MBdahvh4e8PtK3u8YLW2E+1rPhr6z5J5ZQ6lpgXeeK+YKmHPNqhpi+KYNC 1/xHqjz07OVvUdxwgJKOU5T0nqNkiMxHL1lgHqH4Xob4hlOAma74TZMgOykc zSTkLYHzB95Cn0LeQp8S4WqESAN1lLnqosmPvH2Fjafk4j7q98g6M4Tts/DF 9r9BtnAeBD9tFAbqojJUioOxfBXuJjzeIm4la4qAepuot5kHtol7W4V7qwJH xB32fdb/hu3lLZSwwOf5l6EguBWFoQMoCZtEXcQC2qJX0ZekxFjGHmazH2K5 4ASbJefYq7jEcc0jXNQ/wZOmp9i5v42LmkPU2qdjxTEdL4LT8E3PY+oSX3F1 3jAqXvac4FnXQzzu3Mc5u73j1g0ckvdu7Ry2KjgXFg1gr4sJoG0cu0292Kpp wKPVjf+lmnqPxyfRYGRO3DKOWUaoJ+4W4u5lIh8h6imiXiDqVW07bOraM37t sa9vj4f6DjiWOOCEOhMkdWChOZPY489xKrHj72xpB3LXZ2FgzK/qsCDw/17S kGNBzQBTNyW47OhV9TEfEfx/oKjpCMWdZyjuuyD4S5SMXSI5OQf+RhoIMCF0 C30E2UhgY6TPkfKH0AM5U4UI0N2MxA1+ytxYAfw1kCx8vCuAQU7gd0MIXfjI 2YfvPgfqIS9ABxVhElSESlAdLrvK/iT+SNmEi20G+Dap75D6DqnvkPoOs/92 JU5I/e2Ljd+DXp9Zg7LYKuT7VaMgqAuFIaMoDZ1FfcQKOuI2MZC6h/HMh5jL P8WD4gtslT/GfvVTnNQ/x2XTCzxrfYm9YsJsOEWtUyZWXDPxMvQeft3/Au/7 n+Hrgad4O/AYr/ov8bzvDI/ZpFx0MSF0bOOwdR27jYtQ1kxhtXwYyrYZ7HVO YbdtEMoGIW2poP8Dujx9UK0pIXAOmgzGBlbrDibxAQJXEPgsYS/r2GND1wE7 eo4E7oQjiRNhOxG0Ey6oS5kTHolypBxwIRNMYI8jqR32JTZQEvy6ngVWhIBn J7GkYciAl2JKYnbVdPwUq1tvUNR8gqKuczK/REqpAiaaGvCVaZG5DgLN9BBk reJtcsXb3Ur23TASInSOwmna5eTtro/GAPIWNqMKkiM9WHivUi5+KTYrnAo1 QC6ju5yMK8KllARVEVL05rrgMVlfkvX5TgPOdhquWO+S9S4jfKdK5H20WY7f fvv896O8MbMJ5TENyPdlNg/oQ1HQBMpCF9AQtY7OxB0MZhxiIucU84UXeFD6 BMqqZzioe4mTxtfMzm/wrOMtDsrP8Kz5ArVuuVj2yMXLiBz8evAN3g+9xtdD L/F26DleDT7F88FHeNx/hoveI5x07+GwYwu7LQ+grJ/FWvUYNpsmsNczI+5h ut3ShmfKjX9SjfzHigl0MLHXasgI3JgyQxPbuS4CHyLwCS07zBP4qq4jlHpO 2CPwhxJnnEqdcS5zxiMDZzymnlBPDZ2v4amBE/6CdzniwoBJQGaPA3Lfkdpg g9wfkPuyjikTvZzcZSzuevj29OzvVT3Qs1f/F4XNp+R+ATs7X0jVteGkpwc/ mQ78jcncQgJbAzI3lsDRXAY3awPcsRO+OG2IYCZ1YS+ECGNNlHrooyFQE0kB cqQGGSM9xBgZwqapwhehhS+UM77LyLs8gszJuiKCcR6pj6poGbYmcnGx03jF e5fxvVsn8j7ZrcYJmR8rK3F5NIDwK943xKt/h3JhA83suSuiW5Dv3YwCv0EU BU6jPGyZvf4mOpP3MXjvGBP5F5gvfsxAfM6AfIWDhjc4bXmHR+1f4aTuKQ4q L/C89RK1ngVY8i7Ai6j7+HbkK7wfeYevR97g7cgrvBp5gefDT/Fk8BIXA6c4 6X2Iw64dZvJ1KJsWsV43jjXh1L4DzO69Y9jp6MSznU38kyq1r5SUo1pdH3Ua RqhjH15H4C2s4D0EPkLgU9r2WNRxxBqBb+s741DqghPqXOZK4K6k60rYrnhG XcNzQxf8JW/TBIaMfkNHnJL8oYE9dmXsBKTWWJVYYVmPaV7HhOQNsaipj/Pa BvxP1doJ2Lsnn0NyWwtSNR3oa1999t/PQA8BTOceDHF7uVRE7mplAC/hu3hO Rgh0lSNUQG6ihVJPfdQTeaLwrgqRpxJ5OpFnsGcrZIiXhhugLIKKJPYoQVKU R0tQGSNFx31nEfcJcZ8Q9wlD/ITIj4n8iMgPmNIjfoh7e34bLfd66Zp25Hu1 ocB3GEUBs8S9ioa4bXSmHWIw6xQT9x9hvuQZVqteQln3BgdN73Da9jUedb5n bn+Jh0T+ousparxLsOhXghcxxfj16Hv8euwbfD32Fd6OvcWrsVd4Pvqc3e8T XAyx0ePwedizh72OTShbl7HeMIXlGhbz4UVxE8Sd7m4829v6DvdwSARq1aXE LafMUM8xrVXTGr2athjVsscMUS8R9QZR70pc8FDqilOivhRQG7rhqZEbnlMv jATcL3n5l7ztgmfUIyPmAiPmBEMH7BH5FpGvEfmyPgNdj4GuI2eSl2I3LkE1 NfybuO23FaNaelsHMnVdGPNvvPUZ5XIJvNmii6jNZHAhak+i9ha2ACDqEKIO J+oSL6IO0kR8oLDFrzFSiDo7VI6iMEM2zYYoiTBEaSSRRxE3I7qMiMtiJCiP k6I0TkKs9Tgi5qM9QbW8XYOHrN4H7Nlevdj8PdI787touTvAutCFfI92FHiP kvQ868U6GuJ30Zl+hMGcc0wUPsF82QusVr9mVX2Hg5avcdr+Ho+6fo2Tptc4 bn6JV30vUO1XhoXAMjyPK8N7xbd4P/4eX49/g7fjX+HV+Bs8V7zE49GnuBi+ xMngKQ77DrHbpWTVXsF6yyyWG4awN3q1Pd52bzeefkf6v2AsJIqkDUiZQa1h jnoNK7Rp2KKfQa3QdsCsrhNWSHmTlPdI+UjmhnMDNzwSKbuTsjteyt2v4ZXc HX+F13I3/uiGZ3LGvdwFZ3JnHDHG9wh7y8AOqzIbLAuxrc/Y1jMmbANMa2n/ g2qocTeRXm0JbWYAG4kUMiZ7Rw09+EgkzOac04XPbpoawMnSAG62hvByNIKv ixyB5Bxmoo1iLzYiQRri5nLprNzZQQa4z+xdQM5F5FwcSZFxSTQVQ8XKUCIw jpeiOF6CobYwHJLz4Z6gWt6uwR45n50MIfL3IM/toSV9GOWhPchz60CB1xgh LzBjbKA+YQ8dGccYzL3AeNFTzJe/wIMaQm4k5FZm7Y5v8Kj7PSv4BU47mJ0H X6I6qAYLoY14mliN9xO/xjcT7/HVBCFPEPLEWzwbf4XHiue4GHmMk6EzHPY/ xG7PDrY6VrHeNofl5uGrDWNGJqDs68KjvQ3844eSPTaODmuWbHX2aOqmlAUa NKzRIYK2h4LhPKfnjAf6Ltgi5H1CPjZwx4WhOx4beZCmB15Qr6jXxh7XeOHO iH5pTNDUI8I+I+wjRvW+Eau+oT3WGNXLQlRLGNX6TOJ6hpjT0VFF9D+KpD3F 3YKvzlIi7KHsYsSo1ddHAJP4HdZrOxJ3tDCAi40R3B2McMdZDn93OYJNOV3d YY8dqCG+CiO8AiMM2sJ5cIRNjgsYzYVRFCkXkXIRKRfHCYSlKKIKEiQYIOlr 2CfrP+BlLXaFXvxkGFHfp/xv2JndR0vqCEoCu5Hj3IkCDwWK/BdJeRN1ifto v3uCgdxHIuW5ClKufYWtpjfYb32Hk86vcNnzNZS1lzjveoZXQ0/RETWFi/vL +I/mSSZrNuGT3+Dd5Nd4M/kVXk6S8gR7OVI+H32C4+FzHAwcYad3F1vda1jr JOW2EexNkjKJbgx0/JPqpKsnYxPod/dH7W2WZ3UzypKAbdChacdh2wHjjGIR sMSVgN2wT7gnhHtp6IEnImBPAvbEK2NPvBFF0CYEbuIuEn5s7IpzYxJmOO+T spLhvMZwXpGRsNSSYt7WN8K8rq6qRP8LV7iZZfiKspdqT2hnI0PYCp+dZky7 sTv3kwgnotaEo6EWXBi/7hY68LLSha+tLoJIOZ/xXMFOPIOU7wmvswkvqXDq ygs3Qj5jWXir6n4MiccyzuNkKIinEoRNLaTiNvU5CXrYJeMdTlvbO+zIToaj fwh4e+YAzcmjaEtbRLZDF+67CoAXRMC1iQdoI+C+3EuMFT/BbMVzrNS+ZHP8 io3TGxx3vWED/ZZNM5uq3idYrtzHQD5ztuJr/H9bz/DV3BN8NfUV3k29w+up twT8Bk8nXoqAzwj4aPgC+wLg/l1s9q1jtWcOSx0M46lF7CgUWOlv/T7gsaAY AmZBvk3AalZoVLclYHsCdiRgZ8wxeh9I3FhQBcAeBOyBSyNPPCFYETDBvjIh XOqteC0AJnxCfkzI54R8xDDelxOwEQEzjJcNmK8NCFjGyUtqhAUW4SvAf6cC fLV/vw0TtExDRzz7uJGmHowpUy19uGgJp/PTgbOBLhyN9cT37N2s9OFlI5w9 Vge5BFxKwFFsv1MCDHA3WNh7SDi3puoUfdEMawK+hrw4A/wn5InnH5AhJ1GK 7AR9ZBLwFkesze1aPDwZjvkhXOXUAZoSCTdlEfc9hpDnPI5C3wV2dhuoTmBk M0f35p5jtOgRpiueYKn2GTaannPMfYmjrlfYbbpkd3yO875HeD50gRm2YHsb v8XL0/d4NfOcYN/gDfVq6jWeT77Ck4kXuFQ8w+noYzwk3L2hI2wP7jJS17Da N4eN0VnszSxga3wET08Ofgg3FrW3BLjm1BXcdq3fgysV4Lqrovd7cAn2pckV 3NcCWNOr65emAlwPPCbgcxPCNRbgOhOu4xVcQ8I1ZDE2IFwZuy4LcxXc/yHC tZboEqoWoQqnlf8dXEMtRjAbbhMdI1jrcp6S6cJLzkotfDDDUh/unLN9THSR 5SVFob86QtwkCONMHe2tj9RgA/EkqpmM3izCzYol7FiDa8iON8AfI5N87zF4 7zJ4M+J1OdbX4tkLZez3J+W/RWPcGFqTFlHqP4kcewUK7iyiJHQDVfF7aEo/ RFfuCYaLzjFZfomF2sdYa3yC7banOOx8JvLcaj3FGaffZ8OP8IKt8ivWVhY1 Evxr8nzFYH3JYH2BZ5wwHk88w4XiCU5GL3E4cobdkSNsDe9gfWgVKwMz2Bib wc4Mp2bFEL55+/oD0+NRMg2MRc1NMr1lLgZsg8BU0wH9Ok5QkOkss/HKB6bk eWzoiQvyfCz3IlMvvDDxIlcvcvUSeb4i1xdCwJLrIzI9M3ETme6R6RaZrhqR qRHrrhGZGpKpgRHWXV1Ub8z8M559/S3u5RWSqYZ4umMDBqyhhi656kGmKSNX Q5GrKbla6Mphq2cAV5k+PBi4LuZkayWBp7EuMsg1niwD3KQIcpcihINUmJce kjk0pZNrBrneZdDeZVbOYNimMzOnse6mscNKidNHfIge3n/7Mu77UP8f1EWN ojlhEW0Zm7hnNYp89wUUBa+jTPg6Yeo+OrIfYqDgGONlp5irOceDhguCfIS9 zsdYqiGU9mOcDhzjMZujpyytz5llX0w85/hBin/FS95FPZ14ikfjj3GuuCQk VtjRY+yMHmBzVIm14RUsD0xia3oem9PT2Ftb+mfx6P6JLGPQZemFuptX8Smy 1HJAH1unMVbWGf0rlptkucfke8zYPCfLR2T5hCyfmXyPp6mXyPI59ZQsL8ny lPH5kCx3yXJTTpZyspSTpZwsjcywZEiW/r4/+oDym9+gaGobAYn3IFXX/AFO KVFKidJI25CDkhHMdIlTT84BSg5rfTkcmMdd2V55MlQ9jXXEcxtF3dGHt6sE fh5SBDAnB7G9CvbWQ4S/PpJZZFPYSiWxlUpkK5UYK0VCrARxoVJEuRogzEYW /0OUyolzNMUuojVtE6WBLKyO87jvv8bWextVyeybM/fRm3+I0dKHmK46xmL9 Kdaaz7At7MhQfwFl1xlOhk9xPnKJS+bSx4rHeDr++A8I7zH7zifjj4iQTZWC 7fPYGR4qTrCnOIRSsYv1sU08GFnEwsAYtuaXsDI1gW/evcU/f5hs/WPQaeGF 2hssoreuOLayiPaS46juFcdlctwgx13G5ENyPCXDC+oROT4xuWL5nAyv4QUJ /iXjkXmYHC9Ejm44ZCHdMSZHY0c8MCZHY+ZZOYuo3BSLhoZ4PT3FDCscz/8m yG9RNKNE8ewuUup6CJOxqa5FkJx0NSSQaBqqYBqpYMqvYOpfwbSVGMNeaswO ij0y4zjJTR+RjEUvwvRyZx4mXL87hMp49bvDrspPF9GcdKMiZYiMkCDa1xCR wuvc9nJE2Bsi1FaG36P5/PSd+E5Dc/ImWrP3kO+5zLq9yqFqC2XxDM6MXXTk 7mGwaB/jFYeYrX2I5aYjrLceY6P9FOs9jLLBcxwPneOUPe05o+5y7OIa+6Bz rt4lLy8UZzgbO2UlPMGR4hgH44fYGd/DxrgSD8YeYHGEre/EHFbnFrG9vqZ6 g+mfsFxQjTH/BNR8acbqyZ5XzQYtpNnDqjnCqJxi1VwkzTXS3GZUHjDDHslV REnzEUk+pp4KMhXIXkXkI2bZc9I8Js0DRuU2aW6Q5oqx3RVNY0sskea6Bwej 6am/U7W8Aszi6U2UzG5TuyiZ24VUTQVUXQcSDQMRqEzLCEaEaUyYZpyCLfSN CdSYBdcYtjIT2BuYwPz6bTjf0kSOjR4CLW6yuN7iIKQGd1s1eNmp4Q7lbXsb d2xuwc9Sg/AMKCNxz7ooB2Nx3zoB6HhPS/z33zb+W4wU76AhfhPN9/ZQk7yD e07LyAvY4LjE6EzZQVPWDrru72KobA8T1fuYqz/gdHmItXaGWBenzt4j7Pcf 4+HQMWeUY5yMnDAUTplH/4JVkveNHVEPcUiIe+MH2J5gBzSxjQfj65gfW8L0 8AweLKxhdmr2X1RReTQyhRG/BHSa+6D2piWrpQ2aNezQSY5DnF0myHGere0q OW6x+9ljZB4yMo8FluR4Tl2aXPG8RqKewgvKJr+LyCNG5J4JOx8TJ6yZOGDZ hBxNrLFkYoEFuQnWgwKvGP4hi+SvUTy1Tn5KlM7uXEMpIf4jJLeJUY0Y1QSM jElNI8i05cRoDBNdE2I0IUZTWHESspGZwo7x6CCXwEb3V3DRuYlE69uIsL4F LxNiM1aDr/FtBFCB8lsIMrqFQOmXCNS/jhDJl4ix0kSUjba4/cDVhmWGUPS0 4Pc4CjtT1YavozFtD815D1ESvolMzzXkhjKdxG+jOkPYsWobPUU7GK7YwUTt LmYbd7HUuofVDgZX9z6UvQccPw6wN3iAg6EDLt7B8AEX72DkAPuj+0yrewxE jicTO1ibUDIINzE7voaJ0UVMTy5jZnYZX3399b+q3gwa9I3HqH8Sqr604Khi zRnUDm2skv1kKFZJdjxLQjySoZIM9zh7HpDhETvYEzIUWZLehSghBj3ELueY /A5ZIXdNmVVNmVVNmVVNbcnPCovG5li0s8fLmZkPDHs3D1E6w9rDOCydI8My MvwHBCVkQXZbmyHJvKohJ0NjhqIJDHVMGYpmMNU3g4XUHLbGDEMjbTiQk6Ox Ouz1v4CnsDsLwy+W4eZvqo5AUzUEU6HkGca/CyfLcMMbCJdeR7jkCyTw52Th FALkGG9JnlZ6Cd//tNg/YpM9Sm38LhoyD8VtiXK813DPZwO5EcSXpET1PeLL 20Z3yTYGK7ahqN3GdOMO5lt3sNy+gwddbEJ7drDZu4Ot/h0oB6ghaoT3jW1j Q7GN1fFtIlNibmILU+MbGBtbw+jYCqbm1ontPUck4Vj+J4eVGQz5JqHXJRJV N61Ry6oo5NFuVsUhchPib07KysjRcl3Fbofs9uWMQ2MP8mPHQ52Q14l47c77 3K6YmbhAacq4M3PAipk9Fs1ssGhqiVljM2zFJ+DvVC+orV08Ren0GqFtfQBH bnsomz1AWt0ApLe0SU8fEnUTkjNlVTSDgY455HrmMJVYwM7EAHZyNVJTZ7LU gDPlJLkOX/1byGTSTGKyDDLTQCgVToKRVBQJxpBgDGlFy75ElPQLRJFeupka 0phUU6y1UOhtzaakHO9fvoCqZVVTLdtQ+SlqUg/QkHeMttJjZPtvIMN/C9lR ShQmK1GVqURTvhKdxUr0E+FIzTYmGoixeRtzbdtY6NjGUvc2VnqpfmqIGiGy MSUWFUpGmpLYtjCm2MLg2AZ62J8OT67jHXPU/1F9f6PXOxFD/imoY+NSedsW 9Rr2Ysj1MuSEEjgpuUK3RHSrRLdpSHxG7tghuj25gNCdIUgZC3JjmmTzQmRb DLU1M0cR2YKZHeZNrTFDbKuh4Xg+M/t3qo/olkyuMNTYpZNa2SyJze5TD1E+ e4SK2RM4OvhCdkuP1EhM0wxSbQvIdC1gJLGEg5UeY43xZaJBYpokpgk3M0rI hZJbyLVTRyrJhZlrIoKKomLMNRBrpo44U+HUHGqIM/gScbLr1BdINb6Be5bq yLDTxnhxGtZbKrDaUC68eRn7fXB/j2fHv0Z55A6q7z5Ew/1jtJcfoyRpBymB W5xclMhPVaKc8OoJr5XwuisIsEaJ4XolFM1KTLQRTKcS0z1KzPTzepAa5n0c IsYJb4QaGNtC98gm2gZX0cPYe/v1tz9WfQfuzfEl+nxTMBSQhlqJB6rU7NDA wbCd5U7kxnCbYKqcJbcFclshtzVy2yC3LUopF+SGbUrJ1LhJXuvk9cDMieHl gFkym2F6nCSz1dBIPKytV53Y/C/w8uwC2+MzqAlJQAPVHJKI1uBEtFMdQbwO TERLQAImCms56878heorBuvnT1A69QBlMxvkuy1yFhiXzx6T8xkqZ85xt0YB 6U2yVjNhm2NB1pYwMTQlZ33YyDUYoZpwIGMnUy24mGnB05yS3kCI8IlNe4Gb GiJ5n8A5loqjEsyF07CoI4kRmWB0A4lG13nN/Gr0K2Rb3UZVqB2U3ZXY6qzA VlsFNprKOab3X33Q94/w4uwSW4oZjgazGC6uRWVQAmvc7tis8BHM0Rm8PLkQ /9Llyh/qqpe2np18i5LYPVRmHqOu8BitlceoLzhAdsIOUmOVyKI/irKUqLxP j5TQI5UM8lolehqV6Gsl+w4lBruVGOqjBvgz/dE3RB/RI21U09AWavvWMbV6 otpo8q+vTOGXioHAdFRLPVGpbo96TUe0aTuhh5PJEE2hYDBP0RRzMlcsGrhx ynfDA2rVyO0aR0ZXHvoDtqvL9MMi/TDHUjll6oBxUzuMmbJtDY3GSkIyvrm4 FB90Z3waTaHxaAlNQHtoIrqp/tAkDFEjIUkYpcaCqSDepjeG6Y1B/0T0slU7 GpnBn6k+fFE6sYAywRzsfctndikmgJlT6hwVM5eomn6MqqknCIktYSMlpzks YcwmyctFG/aEbGOsqTKHFpxoDGGvsjuCZDcRIRPOK62Oe1SUhTZiqHgLLSRY aCKJEopsCoM+yeQGkk2vU1/w9ue4a3cb87UZ2OuvZMdaiZ3uCuy0V0DZXIaj 0X78ueo7JUI87DIeGrkGTXz+LVQ7Y6KLz70nOOkaevnE2VLwqfcwLLo4bTwc mXG+8oumePXf0Ff/GGVZx6guPkYzvdJVf4yi7H3ERm8hhV7JzlaigF4pL1Wi poqeqaMHmpRooVda6ZXWLt5mLmmiX+qpaqq8ZwuVvWt4+vr9J6oPNs3kNaDb Px19QXdRKfNCmboDarWc0KzjhC5dF/TTIiPMGwpaZJJ5Y5oWmTWkXYxcMU93 zMldWHZdMM1WeIIleYz+GGIrNWBii/nQGCwmpIreeM01mSmrQUcYW/Jw8qYG w+iDsGRMhCZjipql5kKSMS8omLeDeF9gEqYDEjFBjyjokRGfeLw7ubj6MtjH WGcwlk4s0iprKJ/epg5okeMrm0w/QuX0E9rkKaqnnqNm+gWc7IPZp5nDxVYC X3ddWMtVVqFNHEy14UKLeFI+gmS3xDMrFtMmmVSMpXDiFx0kUEniyV+0kWKj yXpCu5jfRIrFlxTtYvE5h9cwMq3C4XAlB9VKDjcV4llL9zrLsdNShuPRPvyp +Bz+BlNclnYuS3sY0yXVw2Xp51IMUSNcijFqnMsxzuUY53Io6JsxLocw3Yyw O17Jr4HjlXm0VH386txbmoXLQPPUVbGTaDhGD2fnxtpDlFfsI56FKI3myWKi yWeiKWCiKW5QoqSF1zRQIYtRfjtN1sqkMrSL0eUT1d4Df4X94Tl00jHddEyb RzyqDb1RqemEem1ntNIxXXqu6KNjBumYESaVMbplzMj1GsZolf+KEZpliDNT P9XNuWn8TggWEzMwm5CGry8e4Q2N0hUeh57wBPQJJqHGwpMwSc3SLAvUMldm hWKC4tr8Kda4OmtcnVVqhSu0SMPMU7OMrCmu0FpeterLqZ/QMY9QNrGE8ikm lqk9ihVn6oy6RAUTSuXUMzrmBaqnX6Fm5jVq597A18MCvq468HfXUzlGC7Z0 iyPlRqd4mevAz0IXvjLh3JtqKLXXQLY9K46Vrni6gkQbXSTb6iLFTgep9tqi Y1I5uaVa36RuoDzaiQ1dPE4U1Rxzq5gIK3E4VIFDuuawtxwHnWXYbSnFb14/ /2NVzRWWqTMsHt1cpm4uUQ+XZ4Aa4fIouDST1AwXZ5aaC06+hnmuzZ9gnqsz S+/MUNP0z7Qvy7J3HL46voD9lYe0VQP0k0f/gc6OJygooY+qWawaj9HSdozO rmP09h1jgLN6Yf0+SppZttv3UdFF9eyjlCqiuqaPMbP5GK+/+i0+U2Wb1yeP 0ErvtNM7wree2r0SUCP3QaWOM+ronSZmmzb6ppO+6TJwRbeRIHpK7owOqs3Y EYN3wjAWGofphAxs1DbhHbPLbGkVM0oc+rkaA9QwV2SCmuGKLITTFFyVNWqD q7JFKbkq24KCf3e9xaq0ycS8Rj0ITMASU/OCXxyU+dV/pPJO6eg0vbOC8knm 0ilmmikuzRQzzdRj0TeVk/TNFH0z/Ya+eYtqxQHK6nIRFWyBANE7WrA21qZ3 dNix6LIo6bIo6dE7+vCTqSOWKnPQone0EGt9tTm+cBqLZAc9pDrqIc2JHuLE mMq5I9X2Fpqzw9BbmYaeikQstmfjbLwaJ4J/RitxxMxzNFiOh71lOBT801py 9TT+X7yld3rD48XV6ucqDVBDXCkFV2oq7CoPL1BLXJll6gFX54EqvB7QQCtM QMvUEkNskSG26BePeZ84fEMT2V2ZSE+VLJbX3yGngpWL1aui5Ri1nUxCvaxo A+yAhqlR3h7jfQomKl7vnL3Di3e//UL1DZjdsQU0BTPPhGaiOywTAxFZaHIM R5tzBDpdI9DjFoEqmfM19HlEMO31eIZjKDgB4/GZGIu/h+H4DBxPz4v/mfCk +2mRIT7xYT7xEWqST3yOWuKTX+WT3+CTV/KJ71B71L6YYw54+Wc45O8OxPv4 t7TFpEckxt0jMcZDGHYJx4p/HHbyq/9Q9dWRUvaD5eMsShM7FLPu5CkqJpli JpliJp+javIVU8wb1My+pVW+QmlNLioa8lHVeB/RIVZwY7qwNtahVXRpFT1a RZ9WoU2E8yPKmFokmqhgyslx1BbPkZDgIEWSowTJzhKkuOgjxUETKSxaKfZq HPmjMVCXiX72Ln3VKVjpysHFZA3OJmgXRRUtU4mT4Qoc0y5HtMvDzlJcTPeq +vu/EpduQFy6BJVYfKhxLtsMl22eS7PEpXlArdEvG9SmkHO2goXsLAYWR4EN al0IMAZXi6UXWsw90WTmgcutPdhe2Uaq6qDmt95heecdHuy/w9oh9ZA6eodV 6snr395SHdi2YhF1IXfRFHYP7RG0SGQW+qOzMEANxlCxgvjE4zLRF3cPCzUt eDi9cLVdQ6D4xZHB8FjaIY7PJx6jEUyGfH6CJZb53Nb43LbCU7ATlkI7pNIC qTiijsNTcUIte8diyi0SA/Yh6BdkF4xe2yB02wSiwzoAbZYBfJJ+aDTxRUlc DVYPXuPZ69+Ij146Oo9yxQY9whI0wRI0cYaKiUfUU1ROvGAJek1/vKU/vmLL No2KujxUNdynP4Q9S4twvygJ3u7WsDUR3iTV55AroT+k9Acl00Kklg4qrPWR 66CDWAcZ4p1kSHSmR5z16RNtJAklys8cw/TbcGMeatN9cD/EDGku6sj20Eb+ HT3keerytg6y3bQxlB2AlTo+7wE2L72lOOwuxm/fPPsutIa4jsIajkRchdbo 9zNwmFCuU7BGbVBbISnMulxX3t4NEdY2BXMM3QFbb+SqmyCfus+Br/C2CYpv G6PkpjGKb8jR4BKCFuabA05Zr08uLK88U/jhVVYW9s3xRSjZDu5MLl0TTyT1 B+InH3aFTz9MLeCPVB3XQFg0DzKWfUUcFS9Cn+WBLhP4GoFvEe5ueBoOwtLw MDydsNOxG5SCWfcYjDiFY5RiP+MYBg2MOoZixCEUQw4hNEIw+mwDaYAAdFr5 o53wm018UFoyhqLOXdQP7uBe2zTKx9h7KFg2mfXKFawfiseoGGf9mHgJ/4Ry BCRWIii5Cslx7qisv0oK1Y2FqG4qJvxS1HDgyMtNQaCHHVxNpfA0k7FjNSB4 bYRq6KKcdSObtSLGyQCxTlLEOwq7R2qiMsUfLQWJ6CxLRmmMA7J8pJSE0keW lw7uuqqhmLcLvfVw30sP+YSfR/h5zlo0kgaGMnxx3F+Cy/lecSWHwmIIWlxD Lke48MLbh5ywyGVcYaysM242Q9OwTe1S+6HCsqZj2SsKrUZOKNU0RZmGGSqo KqpW/KiRKRpvU7dM0Ej29WQ/pJoTB9i0LN2vxVtO2eZXBqj73ndFRnlEYySr INVx2m+ah7PIw3lAolskekU1HUfhGTiNYNfpwb93ZianJkRFYJK6xstwdtUT TmFQkPCoYwiGSLffLhC9pNtj5Ycuc1803ElFSfcuYovH4BzXDf+sSWS2b5Hw CVKrxhAQVwwtDT1oa+hDV9MYelrCa8EGCHTSRLCzNoI4rt5NDUBBYRLJlpFs ORqaK9DSVIl2Kj08ANmxIcIWB7grs0KK0S10xdijNDkIhfH+aC5MxRhH0LH2 clSmeiHH3xC5/gZI99RDhocu7jGU77lr4Z7zLZT5SVDiq48i0i300kUB6d53 1cZ90hVOfJVvfxvLVQk4GZ9SrWGcuI4KghWwThHpAtfxCmsaG6l0hnA69sIy uKYZjJQMdMqdUK1lhhpR5qijGjXN0UK1EW8H8XZS3cTbTbzdxDtkcQeTbCXG iXeceMeFjp0zjdkP8Q6HRvFQYlSHJWRqtrI8pGUe0gaxbjNID3gIR+F3sRuc ilEBq0sUJqgpaowSfh4S8Y7w0lkM5nGCVhDzCAN4kIgHiLjPxh+9Vr5EzNmm dBTxDGC3xC64xQ/BwrsG2vrO0GGg6WrqQU9TBn0tS0i1rWCgYw0vSz2EOmkh 1EWH0hM3y/LhIBDt74CigjQ0EmtLYxU6mqrQ3VSNeE8bmP77v8Pz//wYCZ/9 GPFf/Dvacjn0dFZB0VmJ3tos5DMzZ/kaIsWNDaGTDqs8hwgXLaS7aCLDWR0Z DjdQ5KaJYg8tFN/RRbEKcSERF7pqocBFAwXOarjvcAtpHGsV3+FNoJK4lkxu XMclJrw1hsdWaAarXgb2w+7ikOu5eida3OWiQdsMjdpEqm2BZqpNywKdVA/V p2GBfo7Wws4XQ2qUuEeAMQZvyrEgDGTEOyeIiGeJeJpjx9fsGFUbNNSKV5F0 3wTb+2jVIV4d3qTQZPDwHhDzJhHvhgtuu4sHvlwmZwFrNCZdozFKDQiIqREV coWoSCgIfIwSkA8R9xBztoC7n/m639oPvZY+aPFNQU7TEjyTO2DrX4Lrn96k 1HDrVxqQaEoh1bSAgZYVjLStYaxjg1DmxHAn4XSuWnBjU+YmE645E8p04CnT RVZsMFobq9FJzLX5qTD95Cew/fFPEPDxx8i49THuav0UyVo/Qcd9zrp1OSiI tEbGHRkSnPWQSOsku+oijXNnBnPwXeFUsq4auOd0k5iJ2l0TRe4aKPIUdgjW RZFw6hxGe5Fwv5s68mx+iVitHyP4htp36yg0+JNcx3liXiHmDWLeJuI99k+H 4few5h1DtKZEayZ+y66FiFupTqqXiAdo82Fej3AdxohboW5OmWFczRTjLNbj xD1ndYdDQqI4JKxwhFpmwV5mv7zgEysMCMbfpy3Damk5x1UGdZiQZxLFI5zm ES6GXxlRScr7PLIpj1iMCgFMwgrXGPS6xJB0DIZ4e4RS8H7hdxOChKB3jRSp j5L4MDVI4v2OQoUOYoAHsNXwRY+1FyoHd+EQnI2bv/ySuombn93GrU/VofYr OQw0LSEnbRMGtZ3UDOFsqf3NNeEu1YA7SXuQtIcBSRvowttA+H6QHmIdbdDZ XI0QW1NY/PwTOPz4pwj5/FNk6X6KPP2PcNeAo0GwJQrjHJHiTtIuEiS6siVz 44THCTHDXcjZOshkIGeRZAFJl3oK3zagPDWvodhLEz9mkWaM39GhGO+eGsix +jnuyX8M+5/y4W6qi8uo4DJOE/QiIa9SWwS9y6U8CM8UQQtfkW4j6HaCbtex 4LUFuqh+bUKmxghb+Or0JJdhUsMSUwQ+TeAzaoLMKBNMq8m/a+03ghKwztZ+ PYDpm8PQim8M3p+cf9hYqFb1wfGxEJIJZWyH0ZNhSRhnNZnhYS6R9joPcZuH OM+4FmJYoDrmFosel1j0u8aSNl3AnxXUBDXpFnONHXgMfiGGv2CAMTH0I/mn Eeh3IXRnZnXHQAw6+BH8HeQFhENb83No3LqBW5+r4fbn6rj9S32ofSaH9ucm MGFomzO0PYwNEelwBduToe0pnAHEUAdehhzZDQmbCjTSR7Bcn721DZxv/Rxm //YTeP/iZ+J5cnIMPkeJ0S9QbvBTFLKXTvYwQIIrYbtJkOTOGc1DwiKtj7ss 1JlCn+3JPpugC7y0hX38vXXwMS+1UepN8N6aLNw6lC5KfLTFn7MtP0aW2U/g 9NFP4UjqWXJrLmUaZliQl0hbWEolJ+Y90n7IqblZy5iEWXx1zNBF2p1Ut44l BoQv0lLjrF6TWtaYpmY1KQ0rzFHz1ALpL5C+sAvHgoYJ+ziOyCFJ7OETOdwl QhkUD2VgHLYCYrHmF41vSF21GVvNd9/wGxe/F6IIZdEJTRRfohpnDzHLw11m odkg9QfBacQVyXiOFmO6i9R7SXzQjeMZNUZNuHPydo//A0y7x5P6lOouhTuN weZ8yD0K7Z6BaPDwQLa3OXLvsG66yBBgcQO2FrdgY3YTNia8lt+GlaEWQ1sf RmoySK6bwULXTjwXfICZpkjci8TvkPgdI4a3Eeu4XA/+pB1srI9QAyb+W58h 5bMbcPjFZwjSuo5E+U2kmN5GgfVNVNh9jgX3WyiS/xKp9lpIdJfSAVKkeUqZ 4CXI9JIgm67IYa3OuUPKPsKOe+XkS+okXebH+3y1eE3566LUn8n9jhqybT5B ttVPEa7xEzh//BGcfvoRlzGdy5iB5dB7pH6PAZSJAxIfMHZEB5P5FXFz0r4i 3q9jReJ0i7YNpqlZLVvMUwuatljUssGipg2W6IJlaoXpb4UJf4Xt3Ja9D9u8 FPGFkd3QJE5uieyz4jkYxWI7IAbHhZU/pK6PU8UEFCHM2KHM7vwnCg56E6Q+ x8NdoUE3I+6h2ylCrNmDJN5B4t2uceh3i8eQG4dIdzqFmnRPwrQHBwuPZM5g wjW7UU8OmJSC6nD3RaWLFSpcLVHhYolqF3PUOpog1+o2Iq1vwdNGHW4Wwglr 1OBhqgZ3Y9ZoYnU10IerhNdSQ/gYS+BjROyyK+zeAnYi9yZyPyIP5O9D9W4g 4QYR3PwCFfzbWg9L8V2CIPkNRJjfRLLtbWQ53sR0lCPq7dVRb/ErFFp+gRQv GdJZ1+95CyfKkiKHM1eOjx5yRewV/nr4B15ybgvQRVmAjkra4sk7ygLZxnne RK79z5Bj8xEi2DO4/uwjuBB/+G1Nor8rot8g9h1iX/WORTuDvYvou4i+h+h7 iL2PVWxI5wr7lLYt5rTtiNuOqO2wrG13DSu84z/jgfBleua/NVFWlAV2mDuP WE0OqX3O8vtM2/sM4v2QeOyR/k5gFL49Pf+w/+kV/f+O0zHSD2ZtDmGmD2FB Ckkl/XTM84hXGO/9DNgexvsA473FORadLvGM9wQMuCVimJTH3OkWasqDhYya FeTJauHFnzl39XgEcPVq3W3ZyNe42/CWDerdrdHobsXVN0Sp9JfIN/0VAhmA vpZq7NLUWb814GeqCz8TXfiSrI9wwmjW7UgTTYSQrrdUE94ifSHg9eFL6r68 L/zGx7in9UsU6aujxloXdW5SNKbcQaCzKdxI39/8S8SyyU4LdkeCoyEK3Y14 LBI0uaihweZXKHJSxz0fA2T7ypDjJxXPtnTfTw9VAfqoDNRHRaAeKoIE0QWi tHmb9ENI35v0nX5OB3yMKJ2P4M6+wo0OcP3kI0bSPUZSJulnYTciG7MOAezW ruh3q8j3kHo/cY7q2GKSkOeEL9ZSy9oOxO2AVUE6DkRtjzVd4Wv1dpQtZUNZ Yd8xgLNyOo4jhFdDBBskMxEk4SA0AQchcdgPjsZ5ccUP8ccR/yTxs1gzT3zA PyngZ+DPBKWhjYHfw8DvZIpvJfpO10T0uiUz3adgxD0VCo90TFBTHhkMeI7q nsxzdzIw5hWLBnd7NHrYo8HTHvWewrUdmqgWDxu0e1ijxkwdlbJfoUz+K4Q7 aiPQXB3eAl7N65QafCl/DdpBQxOBepynjIhPyiDWv4VAfQ0x13tLaBW1XyLu 9qfIlX6JcmuiZ1Ne5CG8oCIVz5Q31FWJ0e5KjPVUoirLH0lehohjpY9zM0Sm uyEq7kjRxIre5noLzWzIC9mk5/pL2YVIiFiCKqoyWBAtEEIF0wJEXhEqSAfl wvbkvjeR50z8jp8gWu9jePziE1rgY+ojFJraifg3VfjbteTEb0L8HLHZywno e4h+UFv46qU9870DFqhlbUcidyRyR6zrOhIzpeeITVH22NKn9Gx5bYND50Cc R2bgNFJlgYhU9pApVxZgE3fAZm6fpf03p2cftimvUb2HLVqACULBJkERLFgg DVMhGaIFut2jVRaIRoNzPC2QiE6i73NLw6B7Oi2QQQvcpQWE7v8eo/4e5u7c w4inL5o9HdHs5XiNa+vIitns5YBWqs3LHh1edujyskUNg7LWgGla+hkCjEhc 7yZ8NL+Ev+YNBGreZsVWR4i2IE7qVLKU6VvvCyTxOkqqjlD16wi9/nOkan2O fBM1lDqw73LXQZKTFHGObNyF11MddNFUkooROmC0pwL3Y2wR4076noZIUDkh xUPGyi1Do68EHezlut1vosmN0zp7u6pgKRNYVYgUP0dVKF1AVYTRBWF0QTgd EK6Digg9FPvfQp7rL+gCOkCfDvj0Z9QndMLHiNXUZjLNYinNxqS9PzpEB5iK nXw3e7oepvte5vQh0h8n+RmSX6Qe6Dgx2J1I35nknUndCZv6TiTuCCW1TQds S+woGxw5B+Ei6i7OqGO64GFkGjsMwQVMBBzaDji8HYRF4/X4xO8Z4OSDAYJo gKAUmiCNJYBgA1LQ6BiGdqZ/oeg3OCfSACk0gHCylgwa4C5GCF3hkUkDZGHK Kwsz3tno9PRBq6cTaVN3nK6h1dsJn6CNlx3ejuiierzt0eVqjnrjm6iTfo5U 7esIkBC4RA1B2jcRrH0DoTq3EKaryXDXRCTDPFKijXT5LfHUtKm6v0SG5i+Q pPE50rS/RC5TSaGzLlKcJIiwM0C0AwE7G3BqkyHZTYbKtAAMd5ejqTxBPNlP jBD+hB9/xwiJPkZI9jVCirch670havwN0BEoQS/bul6vG2ilEapCZfRAmBQ/ Q6Ww0YuwCUQEPRCph8pIeiCKk17gLeS7k7/rJ4iSfAzPz35O/YxiJvj0o+/4 TzkI/I3Jnx0fe/oudnk9ZN/L6B8m+wlyn9N2wpKOM1bJXWC/SfZbwnd09Z2h lDiTtxN2BEkdsCu1x67EFicuIXgUlYlz8j+JyiD/dByIHmAWiGAWiGAWCI/F XljEDzNA3HffWRI+s/CdAZgBeu/EoUEwgFMUWpj8G1yS0eqaxiLA37nfw4B7 Jg2QTQNkY8IrB1Peuej08iV4Z4a5M9q9XdDmI8gZHVTX/9/eeX7Heabn/Qp2 7cRxYidZ+2zicrKOfezE2V1rpfWqLMUuNhBsYgVJlGmYAQYA0YgyAAZ9UAa9 9zLoHRj03nsftEEjCpsorrRerc9JPiXX+85QIjf/QY4/3JoRRYHzXL+7cp7n fWiNbk5oorW4OaLO4QrK2egXsWbHnPtEpO9ne5LET+Dx+eMIuCjs7TiNILsz CL5Cu3oWcZ8fR8JnP0HSmZ8i8+IHyOIIp2e3GH39FALuXoSPvZ24bzrIiYQl 9ACZHZv6y8iL8aAH5MCQGYQod3oAwz+Y9ENdr0JL+uIzfjyEu2RoavYG9IJy Hzs0MuG3PDpNLT5hejiFAv/LKAiwJXK6QCD7giC6QBBdQMN0EHQOKS4fIEX2 Mzw6+TMof0EXEI2p4B//ARN0gTm6QNXpKywCN1B39hbx36XZ0wUeoJn4O0QX cMIw8U+ILiBh6EsY9hKGPO2SBEu2EqJ3JnrBHGG67ACT7QPsemixH0QXCIqj C8Rig26wFii4AdNAANNAANNAQAhdIeCNC1gG/pvo9LDif/Rd/FdIA1Dm8JgF IAgVTPylkihUEn2tLA6NMs4u8kS0KxLR5ZKEHlUyGlw8UakkbpWU6GlugslQ x9cGtRRNagla1M5opbXRBRocr8Fw9TgKT/0C2tOfwI+o/Tmzaa6eRqDdSWjs ThD5SYRwENB+zvns4odIPvNj9gw/RcG1n6Pw1kfIZ+Med/MEQm6c5e87C797 tuwliN+ZeFnftQx04WhMvPcdtDVkozTVD5FEHaS04ncT8F8T8Ud5Xkes13XE eV+D3ucqMr3YG/gQlb8dmpnpW71PoUH1EYo9ThK1LfI1rAbBF1EQTPSCaYhf yQwgf88Gyg8/wN/xn+/TmAQ+/Ad2wr6YfUP/jPAgYuGvZe+hnmNd/dmHaD5L +med2P05W+iT/MwFKeYuShn4UpKXkryU5KVYuSyhOZO8E1YvCx7wEEcaPfY1 CdijB2zRAzaCYrEeJHgAk0Agk0Agk0Agi0BAEL7Z2cHltz3gTzFlPVLT/Ygt gJclAeQ/8Eapgz+q6AHlzP4lzjH0iljUkH6DTM/hIAltLsnoVKXAyGa/3EXC 4JeRvowBL2PdrFXLoCB9GenL0Ooug5HWRm/ooDc0c/wz2NIDmMb97M7iMQM8 SHjwMWmG3TwL7Y3TJH8K2qufQnfu58g+/z4Mn3+Myns/Fxv2rLufIPnWMSTd /hRht/j/3P5MfBU8IFBCwuzutAz0MPlFBDqcRmtjFkpSfcUHPAUpr0LD4A9x u4ZQ0g/3uC4+AEjnTQ/wuYYsvyvM9VeQxSSQTi8oDriKes1ltASeQ4vfcdR4 H0NRwFnkh9IDQklfsBDhUqljiLZ/X3QA5UeC8f1HdIGP3kPG7QeYEVzgFF1A +KLlzB26gD3xsx8S9m6fdbS4APEPE//EeSlmiH5ecIFLMizaykQXWLpMF7CT wERbtXOmOWHzrqvVBfTYoxtsaeLpAnFYE1wgiEkgiEkgiEkgiHUgSIMv+nou v5sDzB0D6HSnB3gKHhCFFvdw5NIDSugBlU4aGJwjUOys47gUz16ZdV6WhGZF MozKFHS4pqFMIWWXJ2O5pwe4yekBNLWc9BUspgr+PAXpy9FO66AXdNFanT5H EQt+Ggu+/7VzHPHOQXPzHLS32e/fOYeoe58h/BxT6mfvo/j6x6h5eAINitOo kB1H1r1PkH73GFLvfopU++NIsj+BCHthux/zxYPzCGD8axSMcZfLCJVwTIt1 R0tjJopTfRjfNxDA+A8i/WDGfyjphz26gUivG4ihB8Qz/nNIP8+fXkArEB4S IzwTKPAKDCFX0KC9hJaQs2jx/yWqvT9BfuAZ5GkFLziH7ICTCLr6vo2Inzng Y1aAjy0OMMoxYIrzf+Wpq+I3bTWn79AJ7FF3hg5wRnAAJzYBTug9J7E4wAXB AWSYE473v3GAyzIs28noANLvHOCKE3bkj3EUnIiDtx1AQwfQxNLoABo6gIYO oAkTHeBVX++bHGD59i4YRrWWHhDBZiAKVfJA5Nz3RtHDAJQ7alBK+oXOsawC /PjSRFYBIeOnoEWZyinPg9OdDOUqgb6cBV9BD1Cgzt0FjbQWmpHWTuukddMT eugFRudbKCR9LQt8AAf+oFsXEHLnAsLvXYD2yjHozv4MuSzwFSRbJz9DjzrL 4noeic5nkf3gGDLtjyH9/nGk0SvSHNkaOpxBlMM5RDueQxBbvyCXqwiW8mdK ORfEuaOpIQOFKT5IIH1/0g90ZSOgvo5gjxvQkn4E6euY/bN8Sf/xVeT6X2V/ Rw8g9fwgWjBzQeBlZAVfQWWEHZoiLsCoPcXq8BEMAZ/SA84hh17hxrnERYj9 jz+w4P/kZ5B//B6GiX9c+Hvek1eZA27SBe7SBexRKxx5E/CfEfA7i/iHiH/8 ggzTxD9L9PO2lic8LNoJ+Bn/V4j/CnPAFZYB4n8anGTBH6zHLm2LLrARTPzB xB9M/MEsA8HEH0z8mmC86u/7Hfqb1sNAnZ5RjK9AquvDCuDPCsDYdwxDvlMc ikm/XJqEalkK+/xUNKrSUCSXolQp0JejgtSr3FxQrVaSvpJxryJ9Fdo8VGin dXko0ePpgr5HCnS7OSDt/AmSv0DyF6Fh+6b5/AzCWedTLv4CRbePo1oiUOeE xZk8zuks4kk+XnoOBc6fIuvBcWQ6HEeG0wmkS2iyk4hyPocYyTlE8vcESPhz +V4j+wwZsWo0NGSivDAcsd43EMZ493e9jiD369CQfgjp60k+jXGf4XcVWaSf w4yfF0gP0PCVxPNCaVo7GqdFWn44B4VoW7REfgZj6Kdo8mGFkn8I35u2DHiB +ge096EgfRnp9/vFYeRxPMpP0HtO3qQH3EH1KXt6wAMmAQc0kH4b6XeT/iAz /xiDf1I4/CgeSxaOmFvoL12hB1yxeMAK6e+xYh+R/iHp77+hHyzQj8daCOmH sAKEkH4Im4AQ0g8Oxje7u1b6peLL52i2nicySAORdteHse/P2BfIhyDbKZ6K 61FK8hXyFDb3aTC4aFCkkKFEKUeZSgEDqVe4KVFF2rXurox7V7R4uPJnuqKD 1uXpil4vFfq8lehQOUJ3hzX51iVS58h27kOOcf+IrGvH6G2n2UOcR4nbRaQp LiBJfgGJ8vNIYAwnCN+eSz5FjsMxZDHeM6UnkS4/iQyXk+J/i5aehU56it3f WdL/DIEkX1Obgbr6DNQz8+vcLjG+b+AxyQcw7kPoBTpPOyR5X0EKYz6d5DMZ 89kknxPE+Cf13BAL+dwwkg8XjM1/hC3Sw2xREn0Z9dEX0Bx+Ck1Ov0QRc1Ug exkbMn+fk7Wc5P3Pf4Zu3zgMkHwt27TyE5+T/h3Styf9B8wBDqz9jmgl+S6S 7yf5Ydb7cZIXHiwwLR69I33a4hUr/atSrNm72xB5Ev6QIZ+EJ4QvgDeHJGA9 hOBDGfqhBB9K8KEEH2oBb/c29SDL4RO3SHZ2gUi+44P0e/6s+UEkH4ICx2jk kHohqZeSegWp58okKCD1IqUCJSoXlJK4wc0VFaRd4+6GBlqzhxuMtA5PN3R5 uaHH25XzBTs/XTByw33hc/EkAtkVxX/6MfKvn+FoeYmj1QVkqC4hQWGLRJdL SFZetOxuY9wnunyGeNLOJ/lMx2PIlhxDmow9g4LmcgJx8lPQKU4hVM7+n3Ef 4XcPldXpqCb5GpLPSfCETnURkfyZWpUtdB5XxGc1672vireHp5J6OqlnMtaz GOs5IfQAEs8Jo5F4bvhl5EbQIm1pl5ARfhGZ4ZfEalClvIlm5pmmmx8i4+RP 4M5GX0rq8ez0Onxi0c2Yb7J3F3dJlZ+4g4oT/GwnH3AIeMiYd+TI54QOUu9l rAuPIBAOOwsHZSfFU3skT9rztAXG+jyz/UFwsoj7ICQJ+7Q9Yt8JIfZQYg8V sMdasGuJXWvBvhoSbKVeJr6oSX2fdAOhv+WD5Lv+SLcPIvUQUtcih7GeK01m Vk9FvjIQ2TIp8ki8gMSLXJUodlMxNt1QrnZDtbuaWV6NRg81WjzVaPNSo8Nb jSaFI8ounEXFp6yL168i8SN2ahdOotj+Iso4eWW72SJGboc4FzskKC8jkVSS GZspjPlUekKq+hzJnkKu8gyps85LP2WMs8tTHqdXnESS60nEqE6T6il4M8Nn ZoTCUJmOClKvrElHXUmUuG0uw5Nx/egKB/sr0PFVuCRWb32MVCpjPJ0xnhFM 8qSdpaWReBaJZ5N2TuRlZJN4NolnR1xEupb9iZy5w/EeclR3Uae8hmanM6i7 +j6cf/63CP/L92B475y4v7RFEYSST2+g7Phtkr/Hen+fLd9DVJN4A4kb2d93 kXgfiQ+S+AiJj12WY8LOQn3mimBSmDmN7wcn24io/5BvCTwkEduhemwS+JqW Ma4lcK0AnN2dNkIE/mpw8E2cG6wbdppzaqG74Y34W4+RdDcIafYhyHmgRR5j PIO0c+VprF0aKi1FtkJB5ZXIV7miwNUNRW5qlKnVjHF3EndHvSc7qUfspUm6 kb1++i+Po+yDTzD281/gyckPsfjIAcVOVI/dVwwnsEhaDKewONUVJLjaIVF9 Gcnul5HiQeIejHP3c8hiZ5fveR7FypPsJY4j1/UEMtQn6BWn+N9PIJavMbQo X05M1VnoaclDnzEf5lEDtscMMERKkUrKaaScLBCn6bwtj2oWnimVxNhOYWyn MbbTSDudtDPCaeziMmlZpJ1F2pkRl5AWzo7R5TpJWy5XF6530cruUYvbqOUs EfPBP2Dob96H+X/8AsvHz6PVNx6GS04oOXYLZZ/eheHEfRhIu/KM8N2uE5oZ 320XJOgibeF0Zz9pDzG+hROewmG+MXZz6+y4dxnbeyGCCXFtQb1D1FtEvaEV cDO+w4g7jN1cGHGHEbc2DN/s7Vlpl1s37KRlNSPqhh90twMRfzcEKfZaZD4M Zx3XIZNTW4rCCalSOTLkLsh0USFH6UrF3ZDn5o4itTtpu5O2B6pJus7LXZzi Mq5wRv7Hc6j/6AK2bW3x5V1bvAh7yB7ZGVpnztiyq4jgtBXNvjrW9Yq4Ey7R g7XVk7Qf2TIOLyGJlDM9Pvv2S7QiEi0l3eJHJ5Hz6DRyvE8hi5bqdRpdxRos 9ZXBNFCG1aEybAwbsDliwERjEj3IDskelthO8RHuk78KHbN4HEknMKYTSTqZ pJNJOZUxnUrSaaScHinYZRo/D0nr/G2Fq36/J96b+Gf85w3xkjOV3XGk/+w6 Vo5fx/8+b4v9X55CrU88yu54IP+Xt1B07C5KTtij9JTl+G4Fp7Y6hnQTIRt/ 9ygeR/WJux4wa5LYlCVhWwjnHbFs75DzTqg1nMl3PUzgy5AO073FOBJ7xSVv vrazAL6ErLpxpGZ3QueajIjbGsTcC4X+QRjSHCKQ5RyFdOV9JEoVSCHgVAJO V7qxvKqZeNXfQi718EA5m7Vitu8NOYkoDvRGNFdce/Eedh7ex3P5bSzEPRYP JWglVxEmJ2CXa+I1PbFqhpYHQ8tTeEIyIXtdRtIjNmpup5EtfDPqcxE5PheQ 7XMe+R6nRMBFBJvnexr5fidRn8JwKA3EfE+ZCHmFkE2DBqwR8joht2QHQO9u Bz0BJzJpJ3EUT/YXnvtnCeMUJu1UhnEK4SYLRsDJBJzMxJ1CuEmEG+1vayPe zfcX4mXKPuKd69/du+701ycQ/N59TDEP/y97BxxcsIPBOxYV7NXyCDH3l3eQ z9xdyNxdyGpdctZBPG9Ze94ZDRcsZy7bLkkwcMcdc+yb1wh4nbahSbKBmYB/ H1sEvEXAZhGwnoATsBoWbyNG8fexFi4wjoaJjL/Ze/IO4r/H7NpTZNfPI6fR hLTcYQTf0SCMcRzDOE5wikSa8g6SJA+hl0iQKFOwT3ZBskJJ3EpkKlWcipwY 8/eR5SpFRXI4qjJj0VSWhmRHJSqEx2g4OGBZegdDeTEYaClAY2Esopmlw1XX EOl2DTHu1xDryXjyYjx5M2t72UKvZg+uPoMcX+L1u4gsv4s24m3qf4U8zzMo JOFcEjamO6Gn0A1NuWpMd5VhjpQXSHmp34BlUjaR8iop5zNpxwpPeLQ+/C+B hBNIWE/CeuH5cKH84xnCCSSsJ2E9CetJOIEteKT/5f/nBl4b8bbs/4pHRNzZ VI3tSRMkP36AlsuueOokx2ag5TmBi91jaNHlIPXj28g4dg9ZjOVsxnIOY7nw M7Yu5xxRcZ5rcPbHKAfihcBELAUlYoW2qkkk6kSss/HaoK0zSa+T8Tr5rjGI bYgzHr+H1fA4Wiwthr8Sja3i0jcbbyyE/wwzpkNk184ju85EypvIad1BStEk 4uNbEEpKCYrb7HTsoZM4IMbZGdEkFmVvj4gb15HofJ9Z3BHpbjKkySWstVLW aykzqhRlj9ifeyhQqXJCf0uBDfHm22CwNR8/QWqQEyLUDGIPy1XcgvRxnpcQ R7Lx7mcZ0J+R6iVkWq/hTve7QGNNJO0SjR3aU53RW6hGb7ErmvPdMNZRikki nuktwyzxLgwYsDhkwBLr8jLrck60FNH8M6J9WZOJV0e8McSrI94YZugY4o0h Xh2nKx07rxhOVaGPLwv3yeKR4y3xSlkbeDqJF8sSrtP1i3Bn5aqpmUBCghEP fuosdlu7ukdoKJvA7JAZ0wNmUeGN9iG0CrPNbU+U3vVCmb03On1j0ecXjyFO Y2P+CZgM0GOGNh+ox0KQXsS8TLwrRGsiWuJk8P4brBDvMsN3ibYcHo8V4l0h 3iXindNGWrdPVli3VGVVziK7ZgXZDRvIadlGTtsT5HYdIbuiDbkZzC/ZemQl RiDJ3w3xbk5IcHeGXiXhjOuMJJLO5JSVpyBNEjWQcKVaxulKhjpPOepJt95L io40LZnmYdBIa8vDUFsOmtj3pgbdR4TqPKLcziOGfbSO3ZWONTfF9xLSH9si jWTT/AW7jFS+7yj0ZQdVCFNPMsm6optkWwpcMSBcMt9ZZrlknsE7TbIzJDvH wJ0j2YUJA9J1UmhJNuwxjf10WBBfNTTOzOFMzxFa4dUOYaG28GbvLNxfKt5e 6ihc2Stck/dXcLpxCdfPnoS3ayAyUozISTaiIMkI5XvMW7d8MeqqRnm0EeWR RpSFGVESbERn3jh7kkTxsQktnjFo9YpFG6etTnZivSLdBIz66zFBslMkO0Ob I9l5kl0g2UWSXSTXRVJdoNlgnlx/Dwsku0Cy8+E6zDBo/+nJPt5Bq8DMynNk Vy4zcDeQ3US0xj3kdh4gy2BEblosU6UC8coHbHQdoBfQujhD5+CEJCdnNtrE ymAtVkpRTrTVDNZ6Ym3ylKGVWI3eNB8Zl0Lzl6GvXI/B9lxaDgY7cjDQkcUU Ho6SVHc2r0wERBvhcRYZAXbilb8ZAVeIz1+8bGh7shjbE0W0Qlo+LQ8zLWHo KHJBt3AjOQN3oLsMw8KN5Ky+40Q7QbSTRDtFtFOTBrS3sdWKlyGQgRsYSCPe ICYBDefJoODL8GKZULFfchWMaF0dBLsp3rlw7ewpSO4+hE6bhYJ0YksjQuKt Jlqv92RovO2LWbaczTFGNEfRwo1oDDWiXmNEnT9d4PNwNLhHo9FThybibWX/ 1UG8PX4J4r3Zw8Q7RrwTxDoZlGiDaXL9t5gh2Rmm42lSnQoTLAHTTMgzJDvN eJ1gX/XrJ/vWDe6V1jOGmYYlZFetM163GK+7yGnfR3pWOftXxqT8HvQuD5Co dGBGdkLMA0foHzohjXGaQ6BFCgkMBFrNOlvPOG0mTCOtw0uGToLs9qU9lqGH QLv92RRmhxBktghzoDOTlsH36ehrT0U3Bd8ZL8LzWQOezhhwOF2GJ1Ol2Jkq wfYUgU4R6BSBThbQ8gg1B0tdsdjaFB43UoyOjhJ095Sir49wCXVwuAxDo4Q8 VoaRCdoU3/Nn5tBJovUSeDEHPGIPrOIsK713EzJ72v2bkD+gPbwJx9tX8fnF z+B85yHiw7NQmGlEcYYRFQRaQ6ANBNrCeA34mRwdd3yx7Mr8oTOih0B7Iozo 0jJWQ4zoCDKinVBLbiWgzCkUtY9iUe8dhyZCNfomoJNAewl0gECHCHSENkqe Y4KR6BiJjpLoCImOkugYiY6xU14uqRAeR3DjbZrvYWbxBcNxjSG6xRDdQXrh KHQP/RDvfJud0j0kKh4g2eUh4h46II40kxmemaSZL3NGqYuEdVMqfmfd5C4V SXaSZDdJ9pJiPykOBNACBeMsF8SZTueG/k4LzX7S7CfNXtIc70nHy7nyb2ke CDSnSZO2PU2a06Q5TZrTpDlFmpM5nGczbKyPX/zy9Qtsbi9hdKYTrb0laBso QcdQKTqHaaOl6BorQed4CWZWO7H7dAlf/dMLNNTWoLGuBk31tbh/93M8vPc5 mhtqkZ2WCV+3AJRkGW1QmmXE38BAllVkWU+WLWTZTpZdDM7Q9xXou+uLdbIc Jsth5t5h8hxm/h0k0wHm4H4Gal9QK5oUhaj1TEYlA7TKOx51DNBm5l4jWXaQ ZTcrai+tjxz7BQvR8//lv5NlP5ulAU60fdo47A2OWs+RVVm3pTZ17iGz0oys +h3o7R8h9kEAElg1EiX3kCS7z56H/O6x+33ggDRHJ+Q4O6GIVVP4BrqGlbRR LUWrNQoFdn1+5EV2Q+Q2HCTDiEb4dno4RIo/4a85or9KR3aZ6CO/XvLraUvB LtPnC/J7Rn5HAr+ZMuzRdmbIb1a4Y7Tou3tGZ8hvKhuHpqY/EZfwx3h29AVK MptgyGqFIZvZTzBKX03hGyl8K4XvTDWil8IPUPjI910wfNcP224qfrTJOCN+ iKl4o/hugjYea8QYs+VoZCtGtM0Y9K/HRtccujIrUOYTh0oWvlqKL5yvbmbB a6HwRo0ebcF8DREsAW2h8bQ4bA+O4bZF8WrrUx8yStaR7BaH1HteiKfacUzq SU53kSq5j6QHLGj3HJB8nx2nozPyJM4oodqVSkukNHuwYLGAdQlR4ien0nIM B1pUHgumUeexUJpWMAlGHj9AX7UOvVS7pz0NeyxWX1Dpb9Wm7c9S7bdvdJ2j 2nPWKzhnqfZ0Nl4fzfyJ9RGcPU3DqMhqRmV2K40pSlCa1ki126h2V1ob+lLb MZTcgdHETsR+oMbE/UDseXpgLqkL88mdtA5aO60Ns0ltmNEbSaAVU7oWTEY0 Mi3V4Kudl+KfaDnEPI6Cx3EoCYiDITAe5UHxqNDEY6CgCmsD47Sxu++KvNDS heSbHkhjO5pwP4DFxBVJD+8izYnt/P2HSLzriNT7TEcOEhRIpCjlbF6lYsOn lrPRkaOd3UW3r4JpSEG3VVBgBcVVYDxUjnGtjOWNFi6YFOOBDzAc64oeuvN4 TyZezVV8K/JTCnwoiDxXht15piTxjtNiy92U89a7KedysTWTjS+PZn5gPb29 PL2KysxGVGW1oCq71YZvjMxUDZntMGZ0oCu9G/2pPRhO6cN4Uj+mkgag/9AX M87hOPDzwVL6IJYzBrAiWj+tl7/Wg4U06p9C7RkF8/FNmImqw1pJn/Rt7X4i Hi1t8ghA2u1HSL77GFF33ZBkfw/pDx/Qaemcd5yQbs9RiNoVUjuDQo5qlRyN 7gp2VwoWYxc6pwvTtwuLjAtGgl3olC6Y0CowGS6YnJRlbBkkmArigMxGerJI gy/nK6hduSWVzzGV0w7nmcppu9/e6WnVbkG4y8+i3Sa1+4H1uXMvjl6gMr2G sd9Ir2yhtdLaUZvZhRaq0Jk+gL60ISo3jPHkUUwnj2EudRzJnwZjQanD06Ag rGZPYC1nHOu5go1hLXcEq7nDWMkewHJWH5bTO7HMXLKkb8BcbCWOhpckbyfV n2Krpw9dfpYDus0eGhQ4+iP2nhb6O/ZUjirecUTKbfap9lLkOMpQyEHL4GL5 Kr/RwwVGLyVbbCVLtZLFT4VhjRKjIUp6H1UMc6GCtAgqGanAVKgTpoIfcv51 wmq0RFTw2xCngkfzTKgLVJEK7oiXX5a8ewHmAkN8Phf7681vRDRNr6A6o9Yi YqaQSDtpfWjIGERb+gh608YwlDqBsZQpTKXOYC5tFouZc0g/E4lljyQ812qx kT8HcwGtcJY2Q5vGZuEk1gvGsZo3AlNOP0xZnVhJa8Zycg1mE0p/R8R24Wic 37tHX0scgpB82x1p7JNSbznRJMi0l1lElCnYH7pQRBc2s0o2+RTRT0URVRSR NTZYhdFQFcNXxbBVYiKCFklBI+SY1TpjLVKCLQq4Ee2MwzcdhRDCFPBogSG8 yDxJAXfevlJySbhgkCIu5sFMEf/5N89+YH10ZVVqOarTKWJGM40CMg5r0ofR lD7OkXKa8TuLkZR5TKYuYjZ9CQtZy1jJWUHWhXis+mTiZWQUtopN2C5ZwU6p YMu0JWyXLsBcMov1okmsFgp3xVLInHaK2cAY58edXIDz20r+BF2+Ad8dK/UL Y2sfiUG/KPR5RCL39gNkCu54S0ol5VRSjgKZi6iksLegwVOFVm8VlWSCC3Bl H+aKoRBXjIS6sjOkhaswFimoKscildyMUdDk2IqRwhzjjO2aSIsrWlU8oIpP lhjQS1Ty22sai6xXNRZgi0rub7ZaA/pHWJlcRHVqBaWsp7XT+mgjqE2bRAsl 7EpZwGDKMsZSTZjOWMN89jqWczewWrCJnCup2AjMxxcxsdgxmLFr2MReOa1i g7aGnXITtsqXsGGYx2rJFEzFlLOwF6YCI0x51dhubnd+u+P975YjXL5vDu5p xWNcPb5RGPKNxoRvDHpV3qh76Ij8OxJk3KOaDgp2uy7sdpWoUquoJmd+b1e0 +7mhm2r2BblhMNgNw6Fu7LndMBXhioUIFX2QFqPEus4FGzqqqpPRJFiIdf7W Hw+p5D6V3Fv+Vkkb8Va874tiblHMDcb2b9+45I+wKmiZUkk96ZJpPbRhvp9E XeocjClL6EleZVyvYyJ9E7PZW1jM26Eeu1gv3kPe59nYCi3B07w+7FXu4Qlt v4pWvYMn1VvYq97EdtUqNjiyr5bPwWSYhKlsCKbSLphKGrBSUPyOlj/BzjvH 4cKsx+GiMEwdJ311mBeORXD+a2GJaZIoUCGhR7qoODWoUMGeudbDFU3ebjBS y05/N/QEumE6VI3ZMDWWw6hflCvWo2kxKqwJplNiLVaB9Vg51uMlLICMc6tH vqPjiuVCyTc3zm1RzM2lfOyZjbA0QX+FKn0Bqpm1qlPokSkDtHHaLBqSl9CW tMpWcxMj6duYytrFfN4TLBUeYLX4EBulRyi8V4idyEo8Kxqmek9xUHOEg9pD 2j4O6vawV7eN7dpNbNSswVS9BFPVLEyV4zQGegU9s6wcv3n+FE5vy/ljTGfm Uk7r+TLr6cI+uuUI5Zzy02GB/dO0VxiaHSVolshhVLig3VWFbg8V+umSo76u mKSMs4FqLNAllynlKqVcjVAzNbphLYoW7YbVGFeYdCqaEqtxLliNl2MtQYq5 BGfsL1iC2yKl5eI+s2Am4bWYZrnVzbSQ/6dvlEwoQnUS60xSNxUd4es0bQGN SSa0J22yldzGSOYepnMOsFBwhOXiZ1grfY7N8hcodjBgN7YOz0snqNwLHNY/ x2HDMxoVbTjAXsMTbHOu2ajbxGrdKky1CzDVMc7rhvm+k+rW4uXy3LtK/i1H mcdUMfidk3qCkqPC0XE6paCkyT8eI6rHaJXI0Cp3QRudstOdAe3lxmTghnF/ Naap5JxGjcVQdyxr1VgJV8MUyVcquUIlV6jkMpVcjqXFu2AlgSk0UYaZRGcs N4ax0Ai3m5ZZ78YrtcEGZfw+NijkmiAiA/ybb56/EbI6rgTVenY8iUyQiXTH xDn++zKaEtfRkbyF/vQ9jGYfYDr/KRaKnmOl9CXWhTvwKl+hRFqNJ/pmvCif pnCvcNj4BY6aXtKe46DpKfaaDrDdtIeNxm2sNq7D1LgCUxPdsmmM75kw6xvx hWnxXSH/Jzoe+VvOvHl/d+at3yfGKmQcFiniKocoM4eoHpkHWlnBjYzwdrUr uj3dMOCj5gTD8SHQHTMad8yHuGNR646lcBrdcimKRiEXdTQ24AvxKiwmKNmY uWCaQk4kMmNSSDOF3KCQ6xRyTTDquEYVV+mOy6zgVJHNtVXGWJbt+DZUJwzS JmkLqElYpYxmDpG76M/cx2juEWYKn2Ox5CXz3CusV36JltB+lLk0YJ+jz4uq ORw2vcZR85d42vIKRy1f4KDlBfZanmK75QAbzbvi8/1NrfRJI33SOMH3AzA1 t+CL9eV3Zfx7tAsyeoVYjg15W44NiDLSF6cfvyvjnvCXAApPtDK6ja7CdiBh W5AaA75qjPq7YzKIUga7Yy7UA/NhlDSCFkWLUWNeR3+Nc2MkqzCvV9EPOfNQ xtEkCZYGU+l0ZVilmSihiVEt3Pu1wvK9yEbom29e/PBNREezWsd20CFZXeIY zXFLVHAdTUlbbL+foD/7EGP5zzBT9BKLZa+Y015jvepXaAkfgUFtxEFmN17U LlKxr3DU+is8baWSxi9xYPwCe8bn2G49wobxCUxt2zB10Bk7mSM7p/l+kL/W ii82Vt5V8K8tJ+8ehbxz8Eo4efedggnfKrgbJOzsTcSURyBaXKginbHzkZpl 3h2DVHA0yAMTwR7suz0wHe6BmUgqSgVnqOBMLKM+nmUogbk0UYkhKjhIBQeS JQzXMixTPRssMTN+n/8swSLVm2Mf/ptvXvznN+pF0v9i2C7GUD3dDJVcpnob aEreEW/R6s95itGCF5gpfoUFw2usVH6Fteqv0RI5gXKvThzm9uNF/TIOWn+N Q+PXOGqjim2vcdD2CnttL7HV/gwbHaxGXbswdW/C1MNQ7pnhe+bEzja83Pwd 9f4OW539FvXeOrXU95Z6C/Q/k1W9Haq3T/WEbZLC0chGtpEtwpZUFurux+5s xD04zXiwEffAONWbiKRRvYkYGtUbj2fIU72+BBf0Ub3eJBm66X/zLNJzS4KV 0kowyylmfasDf2aVra+EWS+SThfFEhI1S+k4wiRsoillFx2Zh+jPfYbRwpeY Lv0S8+W/wnIVZaulbNHTqPTrwWHhIF4wq+1TsoO2r3HY/hUO2l9jv+NL7HZQ ts5nWO8+hKl3D6Y+ytZP2fqZAfsoW3c7fvPly98tI6+3dhl+lM3zu9M+fdbj nlOP47FAyQTZNgXZKNkTmrDNUNhf/DwkCdPs2Os5xzSzMLcHqNFL2QYo21AY JYygUbZhnTv6YhnicXRSlpAOvQIdiXK0J0rRVeiFKRbkKQ5+Uxydx+eLcfh8 8c/fNNaDq6gOY/vCsKuOsChWQ8UaU/YsiuU9xwhDdKr0FeYqvsQSQ9RU+ys0 66ZRFdiLw9JBPG9ewpO2X2GfSh10CPYKTzq+wE7XS5h7WKj7qNgAFRtkshsy 0ajYICfpnvZ3RpS/Rpt7iPgUX8uRCEGoGAz7WU7Gz9O/VgL0WKdQW/SvXU2i uENLFCtEECsZL/g65a9BjY8S9Rz4mjRstDmmtHJEaWVD3RqlQgubwOZYChqv RFOCAk16GRr1UnTWh2NkrgTLm504eLZoveX+R3ix+xKVwSwFoQzFMIZijEWh BirUlnmAvrxnGC56gYmyLzBTwXCsfoWVuldoiptCdQgVqhhk8lpk2DH02r8Q lXnS+RJ73S+w3csWpv8pVgcPYBqmQiNUaIQ+NUKFhkewOz/9jkL/EWamt073 MHRZD430+sRYnnbAQjpLhZboSqtUaJMKbVOhvWCrSiEWlZ7RbPA8NAl/hPXg KExoNCgPVKIyhKNJGI2jcFU0/50DXCXb5Mo4OU0qqrZn+VvvH1lH27KAFlRp higMs3v0MuvlJuoZaEbWxp68IwwWPcNY2XNMVTzHXPULLLE3a4ifRE04Rake ZDafx077c+x0PMcuA2uv+yl2+o6wNcAOeYi5aYSCjHL2GGOgjVGUMUGUUbzY 23l3tP1jvNraY4YOY6BFMEtHMchiWOt0GBMe0+UfJwbZClVZZ100U5UdUZkk URkbUZs/whE1eRqaKNpRqB6HtH1tAnbD4mEOi8NkmBadYX7iFhJhm9CqNhxb RUX/zfq3JUs9m6jwH0SlZooiLqEqbh21zNbN7Fo7c/fRV3SI4bJDjFewa6g+ wnzdU9RxRmiI2sCT2i0cdi7C3MbVdxxxvjyka7DZGtjH5tATrI0yS4+xzo3T PSY2aAyi8XksDg9L3v5Lu/+A0eRitKkj0OEZhU6vGPQw0wwxgCYYQLMB8VgM ZLYRhUgUhdgWtzEz64TQTUISbXDAN3+IA2pwIK6fvQTXv03bfLNVSthGEx7N qSASS9TAcuPXX6I7ewHl/lOoCFtChW4NlSz09ek7MObuMgntYaD0CUYqnmCi eh8zdftoyDhCTelvsD39DbZHn2O9fR8bXU+wydy6ObDLhe9gfVRY9BYXzIVP 0g2mWOgnV7E8Podn+/tvrhOoEV/+Ak2u4TB6RLFVikGHt47teiw7R6JjYMzS BcTV0wXWNAwQrn5L2M0r7uilCrS9EC6Xy94l9h2aZdnxXO5bm0u49CUu/dng 0N9Y/9jn21+hxHsChuBFGKJXYdBvcqg2o4nDc1v+FnpKtjFYvoPRqh1M1u5i pn4X7bXMGH0vsNxGB++k9exgtZ999dAWHd+MlTEzlrnqlSna9CZtHctTJs5Q G9K3F225z6BJHSl+MW/00qHTJ/bbow+T7GgsC9djmQtf5cLXaRs0s7h7XW/D eV6PP4CZqDfDErDB9a6+teNimWtepMsLd1tYrpH6c8yzcyh+PI/S8FWUxm2g PNmM2kwzmvPMaC8yo6fMjIEKM0aqzZioM2Oq0YxZdrrz7WYsdJmx2GdmK0kb 5nsudIELXeBCF6f5a7QFLnZ6Yglff/1rWFdba/2i6tXWvvg9ddMjHVq9hS0I ceIGk5HHCZjw13PasmwuWeRqhY0lJuJdpa0R71qosGeIKoTpYRI2ltAWudRF LnWBS53jUtdLDNbbev4LjGnrKNSsoIghWqI3o5xMa7PJtcCMthIzug1m9FeZ McwljjVxqUYutcOMmR5aP22INmrGNMN2mkuc4RJnubwZ2sTEGn79628gsyyv Tnz5ofgs8FrhOfKPYtHsHSd+Bd/LpQ09tnz9Lu6fYeyKuyuEnRW0JXF3RaJl dwWXJuytmKUJ38HPcGlTDNrVknLrTTY/RAtJ5YauIT/WjKIkM8oyzKjONaOR 5IxcUiep9dZzac1mDLWRIomN9nKJAzQSG+OSRrmksUkzxrmkMdows9LXv/4t 5Jbl1Isv/w4vuZxKD534aPMG4ctnvwT2f5xNhKeycCmjXMa4sKOAy5gKFnYV cB3/GlNcySRXMv7Wd8+jYbFYLC7Hj62F8Oneb5EZvoHsBDPyCKY4x4xKrqCO K2jmCoxcQQdX0M0V9HIFfVxBP1fQzxX0cQX9XIENBojle5hfPcSvvv6t+JOt K2gUX/49utIrYCAI4WHbjfz0bfzknfzkvfSxfn7yQX7yIdowU8cw/WtI3N4y wOTxPfHr1h5tLL56cmC9feQ/4XD3N6ivOEQqQyYjy4x8+lIpw6WSflTLj9zA j9zMj9zKj2zkRzbSj4z0ozbmhPZRy+vWwWul5VM2Wevf8+198bnPpYyGSsZ9 nfU7SSOjoI2x3sFY7+AnbA9JQHuo5XvJyaIqbA2O4n3xZ/wRDg7+GRPTr5FI IdOL6SLlZhTW8NMxeMtb+Qnp2ZX8VFX07hp+qioG8dqT166WT9IqvvwBnu0c iN/TtedWofit7+n6vvuODh+Jv/f3sf/snzG29BqTK68xs/YasxuvMWd+bYP5 rdfulh/7f4QX1b+8/5f3//L+/9f3+Ff/F8yd7HM=\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.17769093578, 0.22247744198, -0.23797319517999999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.9210954515999998`, -0.36732493988, 1.66696509912}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.7848976940999999, 2.0244634637999996`, -2.0410930526}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.2586865136, 0.8596741519199999, 1.72195612572}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.0970719413999994`, 3.2310535147999997`, -1.9577561359999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.8303286286, 2.6452384548, -0.08513404602599998}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.29688115928, -2.279954419, 3.5948257697999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.8767728889999997`, -0.185710932924, -1.947362643}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.291842717, -1.6678721676000001`, -2.2315774334}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.093816408, -0.96496968464, -0.31766294059999994`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.9740507787999997`, -2.8338331096, 5.428804852799999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.7338939893599999, -3.3497283075999995`, 3.5349214555999997`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-3.544181113, 1.70381475612, -3.1853221456}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.5526503687, 2.4848007174, -3.5122447436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.6156987542, 0.40901229543999995`, 3.1783301593999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.560243784, 4.633986097199999, -3.3656020059999996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.6372846298, 3.5927470712, -0.041141224745999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.498432768, -0.7529802219599999, -3.6278959747999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.2703428398, -1.73992741998, -0.42057741855999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.853426284999999, -3.5825425508, -2.8517855065999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.5617125655999997`, -4.082564050399999, 6.6973779166}, 0.12]}, Text3DBox["1", {-0.42230906422, 0.22247744198, -0.23797319517999999`}, {1, 0}], Text3DBox["2", {1.3210954515999997`, -0.36732493988, 1.66696509912}, {1, 0}], Text3DBox["3", {0.1848976940999999, 2.0244634637999996`, -2.0410930526}, { 1, 0}], Text3DBox["4", {3.6586865135999997`, 0.8596741519199999, 1.72195612572}, {1, 0}], Text3DBox["5", {2.4970719413999993`, 3.2310535147999997`, -1.9577561359999998`}, {1, 0}], Text3DBox["6", {4.230328628600001, 2.6452384548, -0.08513404602599998}, {1, 0}], Text3DBox["7", {0.69688115928, -2.279954419, 3.5948257697999995`}, { 1, 0}], Text3DBox["8", {-4.476772888999999, -0.185710932924, -1.947362643}, {1, 0}], Text3DBox[ "9", {-6.891842716999999, -1.6678721676000001`, -2.2315774334}, {1, 0}], Text3DBox["10", {-2.693816408, -0.96496968464, -0.31766294059999994`}, {1, 0}], Text3DBox["11", {2.3740507787999996`, -2.8338331096, 5.428804852799999}, {1, 0}], Text3DBox["12", {-1.33389398936, -3.3497283075999995`, 3.5349214555999997`}, {1, 0}], Text3DBox["13", {-4.144181113, 1.70381475612, -3.1853221456}, {1, 0}], Text3DBox["14", {-1.1526503686999998`, 2.4848007174, -3.5122447436}, {1, 0}], Text3DBox["15", {5.015698754200001, 0.40901229543999995`, 3.1783301593999997`}, {1, 0}], Text3DBox["16", {2.9602437839999998`, 4.633986097199999, -3.3656020059999996`}, {1, 0}], Text3DBox["17", {6.0372846298, 3.5927470712, -0.041141224745999995`}, {1, 0}], Text3DBox[ "18", {-8.098432768, -0.7529802219599999, -3.6278959747999995`}, {1, 0}], Text3DBox[ "19", {-7.870342839799999, -1.73992741998, -0.42057741855999997`}, {1, 0}], Text3DBox[ "20", {-6.453426284999999, -3.5825425508, -2.8517855065999997`}, {1, 0}], Text3DBox["21", {1.9617125655999996`, -4.082564050399999, 6.6973779166}, { 1, 0}], {RGBColor[1., 0.75, 0.5], TubeBox[{{1.9210954515999998`, -0.36732493988, 1.66696509912}, { 0.17769093578, 0.22247744198, -0.23797319517999999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7848976940999999, 2.0244634637999996`, -2.0410930526}, { 0.17769093578, 0.22247744198, -0.23797319517999999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.2586865136, 0.8596741519199999, 1.72195612572}, { 1.9210954515999998`, -0.36732493988, 1.66696509912}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.0970719413999994`, 3.2310535147999997`, -1.9577561359999998`}, {0.7848976940999999, 2.0244634637999996`, -2.0410930526}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.8303286286, 2.6452384548, -0.08513404602599998}, { 4.2586865136, 0.8596741519199999, 1.72195612572}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.8303286286, 2.6452384548, -0.08513404602599998}, { 3.0970719413999994`, 3.2310535147999997`, -1.9577561359999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.29688115928, -2.279954419, 3.5948257697999995`}, { 1.9210954515999998`, -0.36732493988, 1.66696509912}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.291842717, -1.6678721676000001`, -2.2315774334}, \ {-3.8767728889999997`, -0.185710932924, -1.947362643}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.093816408, -0.96496968464, -0.31766294059999994`}, { 0.17769093578, 0.22247744198, -0.23797319517999999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.093816408, -0.96496968464, -0.31766294059999994`}, \ {-3.8767728889999997`, -0.185710932924, -1.947362643}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.9740507787999997`, -2.8338331096, 5.428804852799999}, { 1.29688115928, -2.279954419, 3.5948257697999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.7338939893599999, -3.3497283075999995`, 3.5349214555999997`}, {1.29688115928, -2.279954419, 3.5948257697999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.544181113, 1.70381475612, -3.1853221456}, {-3.8767728889999997`, -0.185710932924, \ -1.947362643}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.5526503687, 2.4848007174, -3.5122447436}, { 0.7848976940999999, 2.0244634637999996`, -2.0410930526}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.6156987542, 0.40901229543999995`, 3.1783301593999997`}, { 4.2586865136, 0.8596741519199999, 1.72195612572}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.560243784, 4.633986097199999, -3.3656020059999996`}, { 3.0970719413999994`, 3.2310535147999997`, -1.9577561359999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.6372846298, 3.5927470712, -0.041141224745999995`}, { 4.8303286286, 2.6452384548, -0.08513404602599998}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.498432768, -0.7529802219599999, -3.6278959747999995`}, \ {-6.291842717, -1.6678721676000001`, -2.2315774334}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.2703428398, -1.73992741998, -0.42057741855999997`}, \ {-6.291842717, -1.6678721676000001`, -2.2315774334}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.853426284999999, -3.5825425508, -2.8517855065999997`}, \ {-6.291842717, -1.6678721676000001`, -2.2315774334}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.5617125655999997`, -4.082564050399999, 6.6973779166}, { 2.9740507787999997`, -2.8338331096, 5.428804852799999}}, 0.1]}}, AspectRatio->Automatic, AutomaticImageSize->True, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{360., 360.}, SphericalRegion->True, ViewPoint->{1.8882610509747448`, -1.074655664225218, 2.5941444460014966`}, ViewVertical->{-0.2573794267567401, 0.025985200430455848`, 1.1599955957157488`}]], "Output", CellChangeTimes->{3.5753685090268307`*^9, 3.5753686335462494`*^9, 3.5753686756195235`*^9, 3.575368827875791*^9, 3.5753692077832584`*^9, 3.575369528504222*^9, 3.5753696126195693`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJy9fQdcFcf2//cnWKMmeXmpFlRQsBfAAgr2XlBEVCxYAEWlWVARRcUuIijY FTX2nqjRvCTGrtFUS0xibIkvxhKjyUtMk9/O7pzl7N65F/L+ZT8h3rt39/Q2 M2dnuw0ZNyJqzJBxI4cNqdIhaUjCiJHDxlZpH5+knXL7H+B/Roi/KhCf8wH6 X772X/5I8T9xRv15vf6PG4wb9F9wotCfVoh/3MUPxcxPJ42f1tnuEkcL8amY +DTHOJdnnghWIElXX+RuuUj70+9Kc05sAVo3xa/TjBtvFuWiGwoCiHn1He+Z cqlkIihmfpK46D7JwxGF6Lyco1gqf7p69ar5U1UTrbvixmomAdMNEEv0f4oj JSUFYWFh+sWbNm3SQdZUAHjduC1b/6cMLl++jOjoaOzfvx+PHj3Cxx9/jKys LAuYn3/+uXphkNywZ88eHDt2DHPmzJGUl9Avnzhxoh2ah1oXm40PWfLX3377 Tb/58ePHAqibpFhQ2KFDB/NGTvH06dNx6tQpgaNAZ1sY2GL6zwaotLQ0/PLL L6YJrF27FhcvXpTYDQacAD9ugFys/1Nap1QIUUDjkMXnJ0+e6OSW1L+V0iEK UYh/9+3bhz59+piQHzx48L4VslCPUA0xK4T85Zdf6p+vXLmCd955R0J202VF 9BeT9N++fdvEMmzYMB2zhuVdjqWETu/9+/dNLEKN586dKyMBC1Lpp+LylqNH j+psccCadmuZUl9koMiUMAQjS5cuZcS5WZh7XjIs4H3//ff6N2GPgvi4uDiO AzXU5pNhxchFRRilKenfnpPnhBiF6LjayRNs3Hm6RLxIAiS7Nb45In5FWoKw DHEIHSncrkrhyHRrLi5RcKN7WZ4T5iHAcZNw4uWVXKLLYLyRpRdXCJoQCySa nzCTKamrVZiMIrzg1SJh5wZD2KWt6t88ZIgQnixYV4UIgVV68ct2Y81goiR/ KK7AXVmeI9/mjkFmY4sYMlguVLhDCXaObKSyQZrGBMUNAVNIinjhcUM7v94K n+uE4HMbJA4EJKue3MwIVWC/1jjCotVaA+sCheWXUpglZRFX1qGIVvAW1+jG kcAQ6tZfWoGmrhMzICZs8cSe2+x4bNBLKURcl4mTsPFYMm/ePJ05h1hizajx Btb5CpMjPrm5+8lfKJAIkZJ322NmVQW6OCs6bvWlFST4KYKKG2NSEVQqO8c6 j2Egm6GEwy3VX54jeykQbUkdoxCtqmh5RR1REqzYuRJV2JvLc+R9PJA6KZVe NKNKooFrrsI7yioMK0DhfyXk/+2FlPT6WQyD7g7lFHwFMB4otRaXHHNcPFLa ossMKyecauKEGyZhvHnzpgmZoovApqqyBDZbzKylsJ5eBiVzFPZZTnGuM4ue gnd7PSTjmHfhmATPJFGOiaJ4pyJGTxbXqplhLdTANVvhE+UVVtm5CD6hKpw8 FJGutxW1MBwhFPHtWYW6Q6ThcIcQf07iTkEVLvHMUjjDcwo8PeQ5AZfMiFKs UKQ4bM73mjNcgh8yiOcYn6TOcBnyeGBzNhZ6xbmlzFKwQei4d/SR50TYJjGS 9njhaa+R5HA/XWHmzyvOERrOVXHJKRUuvKCwo4u2ouP2T+i4TRI6YXf2ioIn YvIJJyOrYQbWmQpP+IcC6yBmJtZIU1KXoWBIEc8QaUXDrf4FhRqHK5zbngZs pdFAA8MMZu+icBbf/qmwQcJA0uf2vmPHDl0ItvDR34qBWzlh4GY3Snou1704 4yQ4hVuhc2kQdG5to+Q5MS4kjBTeBQYB1VYBSS+droD2oiLAjmWh3EWl09MK VdxNMiao3ICSFF5iL2ooNUkM3Q0MafJaUTKRib6skFaCwt1LSBMVjkGTAXYf 7GJFw03UFRoxnLW6u5tlyqSY/IWYmzlzJuLj43U4Rg6Tk1PWwd4rjAySJw1x eTlPc1aCVCFjYQs2sNxQCSw31KkSEKUIEe41UDYonHeCwk1oquSTy43u6WiA mqq47VWFjaRKe+DBSPxJom3QuMU5h1bSElDFH10jCDRUJS+1mlgFBf8pimhJ Mw95eXm6A4pv7a1guWgqsHNEVQpDRQMDAnvt2jVs376dg52iMJuKCv1OVtiB OxMUcWYDyy+vyBimc5MYegJRQoG+nRUsl6MrsBy9akQtwaYoQFRSXD6RUStU JkhQDZnbWsFy46qsuDxZodpSTAhEkgQ72UaF+OahADtBcV1pG1fiWhtYToUH O0ccTGBc0XU0ChN2SyprY4DlGiYDq6LQ8HiFOzzD7JZ0YAPLNVyFgaBz45lg iAPVOK61FSz3nio2mYlv4xSoyim4kmAnKi6vqgA7VuEOqrGEDSxXTzUFc0kK YfFxAoWaVgbYZEYFqcJTgSpRoVpeO1Oo4WD1Aa+XQlKJ5q+8UF25cqUOVoKY oMDopZBtgo0DcR1VouIaQtrSCpaDcAWWu4iqwLWB5cbkpbg8XmH6/2T3khqN 5TiLp1CdVUNxeZzC9FU1pg0s17AK7BiGXvi7+KYq0iRY8hRuTN4KVGMUqF5i YYVsNIiB1c3FR8HSaIXBv8zoJssMstLIcXuzy+31MnfPVxjrdE6CHasA4aOQ 1CiTl9cUvLSwAuPGpAIWqzD91xTXSbBJjEZSTy2FOEYqTJ/y/5vrD2Nl2yn4 PH2d0m6bW1FxrddSnBshzwmNW9d4imPGiNmI8V+NYwnv4o8N+/Ho0wvm2I+n Soky0SYM8a22QsYjGNXEnVFzl8SFM+cxPWIMxjeIQELEFzi65Q5+v3IbT+5+ a6Lm6ZSj1pVaR2EGMQqxc4SDarTHnJax2DZ6JnYt3oq8I3dx9NJ109F4og20 8solX9sp6mccStmpEaMQVycMy3pNwP7UBTi5NheXju/BD/dumo7IE7FEm6BA UccmFvHNGEWXsbik4LRf9VZIazYcr0el4d2FWTi9NRcfHd+icisbRs5AXQXz Q8X/jUmf0uYP4hhRsweyuiRhb/I8HF+ZgxO7svDw/i2ovM+YFVWG6HoKnMZM SGkdjeB0RWY2ZkTE69/zBqfi7TmZOL0pF5+d3GEWrlxKNnTc2+qxc8S2ga6U Dj6iXTcM9e6EBW3HYGfibIOEnUvx1aWjvOikONrMwERJgntIfYUchknjFEdS /X5YGT4RB6dn4NT6XP3c/bvXzGqR534bGq79+kymdG6IZEhYxoDqbXXQW2Nn 4MjibJzenoMbV06JU7wkoxLBholrpb5C0pGSodSIWIyu3Qs5Pcbp2E6uycH7 OzP0z6o+E5Il98CmBuoxCoYaKFAPkiFNMJkekYSpTYZi47Bp1KHy8YmtJjY3 zi33PhtK7gsNFRIYILndmr0KUT7dkNkxAXvGz8Wx5Tk4uSsbP97/xsx4/L4m BprRjDOykkZMEIS6vyVmxmFCo4FYOyAFh2ctwunXc/Hurlyzv4Vblw0NN/tG isv7MSsZXKMD5rUahe1xs/D+kiU4rZn8lU3r8fj06ZoK2UtMPJMTQ74K9fWV /jxNC47xdftgee9kHJi2EKfytOC4bgYeLBqKpwfy8OSrjy1pk7yssRUdN38V OmNS+lksz8xAbFhvtKxYAZszMrA5cwn6V2+NGYHR2DxiOt5bpLnDtlzcWKoF w0zNnnbG4aszu/CfX56YZPA6x0YG17CvQkjGdFx5RIWHIsCjIjp6VEavqpXR t/KrGFkjAEu6jcW+SfNwYnUOju3KxMMsLbqvj8FPbyTh/JE9PPwTKklBrIJp fwVVxkpCCazMNDyRjr6e1RDtU8NwlZI4vTkXn2xOQ372YOTvisf9kzlm0UMp gRuOv5UKPjB3TkV5+FeuiKYenkaYrVYNMfXq6J+ndvDDkqjORnzYOAIP3xiL 3x9cJfutpxCtpIDKKT5J1FgR4A0KyiGoihfGVKmtYxrtWwvJrRvqnyd1aYS4 FlX1z9+dXKZfTU7aQMGRnxU9d7TGCnkZs6Zl8K/sFdhVxw93erY0SGjTCMnd /fXPUYFeiGpehcdLHo1UyURSQVUXH801URhIV+nulzV3n1fdF5+1aIYnsV2Q v3iQTsHAtr7o36KOGyeBRyp7DBZ4bCRwx2yiUFsnaQkfnD6FVYsysDQiGvvr +eN+WCs8ndYH+XnReKJZvzhaNvBG16Y10TOolv79wkdnuGCoeKcwLeKnoLbA GS3lqDUSW6nqKAUzvE8o2lapanrJb2O6GS6xcww+2JxseIs7VizLxjrNZfPW 6INGyjecd4q2PNVIomIUmmmmINSYAXxGK30yEONZV0fysF8bPJ0Rrn/+5c0k LM6chOzcFPxxZhl+unfVnPPmAysemKznTFK4/3JS6Fw7ab5fa4aT6+2Lq20D DV/N0bL/7jj9c+/R05A8KRKPv3ibevK4QKh/gpuvISRZ0Vp9OEBxeRspEJGt 8jS7OerbGI8GtsPTWf10Cn5+cywmRhttApMjWiO6qYfZHshHcf5wtAAbKdyf A5i+RB4QIFrLsLpf8+e1Pr640bEF/hwXgvxlQ/B0T7ybtIi4vq0RE+yDBWP6 mZSoQgXPdIY5I0rh04ESqwAhVCbOi6pNyPjmzZsGoc/jiws3cP0zo+VXyGqr JqvTjRvj5yEdkD9XKy02x+KhJqtRvTqiZ8vmhuu3boDBLesgspUPdq3LMid5 eV5vwnRCarVRyzUeINXFRS/OiBWN9957DxlaPqbmW7HIXaCa8liYvBqZ/uNw uU8ybi9ehc21fPFt1yD8laxl9pXD8NfeBFzaNBnvaPl7WFgIgps1QvvGdckT U+ONOk38kUvwaVYeA6jstXHCPTHA8HKz3bCkfqOwB7HWZNOCBFRcF33fRqux a9QZ/LTxHH49sAM0ivpubxLeXzQHx1bn4qI2Nnxw7waWaQSuXqFFFS2yfPLR WdNgeAQm5+RFsxGVzTVUHlYCFEZUWrLgSg1G4VFWZyHEKwi9257HxuV3cO+T O/jxi0vIXz0cf+5LxIdLUo1af0suzr6/sRyTnT2c8EBoo5hHH6KYG1JZhdAF Ci50YzrwOZwTeUULmAGVKiCpd6he8IV4tUJI9UEIaZeJ8Wv+jb2f/huPDy3A t+sn4J15s3FUq93F8cO9W6oumkCFRRjJWA7mrF7CZU63PM9kzs2Gy9xDcnBe 48DfowJaa7VSN49K6OlZT+OgDUJqDEFIy/EIHZOGFcsn4Y83EnFm8RS8lZ6J k9qQ4JMT2wUT5RToqY+LB1MbB6qAx3Xwogw9XP5CnZKDCtJvBfG+GvHNPaqg i1bg9fSqrxHfDiHewzTxJyMsKQ0b1ybjxroJODgrHUc01Z/YuUT32/IKtEQ5 D9WS8qFOA6RqeVQt+48++ggPHz40JtsM33zWoVQO8eqEEJ8ohHSeiL7JaYjr 5o9jCyZjvzZ8OaGN2j87scugiPHAiQpSBPl6Vh4cw6b1XCXX0v+HlL6ekrVP KzMz4VfRE81eq46Ono0MLnpMxsApaUiJCMZwv4p4d/ESnNy+FFcvH3Mzwpt2 lDUDHT3Wwgc/NqIdIqTtXBUnghduS4I35FXOpHxkrwGo/5IP2tRohFC/JsZA YfAAxPfRqG7miSHNKuvx8v7d62YfDs8vRDavdSTZQ1zER36uumtZPyOzmjhm RiRgRL2eaFZVyz7+AejbtoWRTFvUwaBAHwwO8sLq+Ynm7CZ3spYKn6xrpVTV xug4a61ORiTgEjIZbc1eqZOmT2olzMKQDt1A5WwnXx/0bOaD3i1qYHrCgBeY UCiotVL4oaQ20kUM5HI1Ljce6qC8w+Ra8PhIxGhJWSkcTDNmCA7nLtDPhLZu iWYNa6BlU29sWreUz5GToForLLEOo1S37kDFjQ2k3u3SHD4gEmP7xZCwxGzB gZWzsD1+Ft7PXaqf5g07tJLTRqFfScdgRZAIUAidCndjZi1U1jYGGemjE/F6 ykwcWZuNT0/sUPXEtLHprCCxmxSofIFn44YysOiljFcwUhsPxYahU3UaxJSB OPJGTsPr6emYN3W8vRQi/fBQ1k6e40tRta1UcRtvppBLQ6kpMQcX7dMVizrE Y/c4rZhaplV4u4xkonnoiXW5uHBiN+7e+Vq/wVXB8yxTCcmwvTzHmz0kpYMY VbRySPLjXmukqlIF03gNB2BNxGQcSl+EUxty8faKBdiROpPK1mufG88gij/q iXRV9BSE6w6KuGejldNFUuUjrvoysNFc4FwxFzhGS9HZS3B6Rw52z56JPcnz tJI1Rw/BhpCtIV4lWtUIrKPCOYzpNgx0EU4cZ/HLmBOKy0InYP9UY7Xl/Z0L MSesDbaNT8bJzXpp+rzrqO6uwNCRyZRiHidSF3yAgty6TJL6ZGNAFDZFF6zK 7MpOQmJzX6R29Mf0bg1x9u3tMoSUclqlCM1p8Lso/NyYnZUz0+qowtmi2j41 YiRG1gxBtljAmWgs4JzcnY1pvdtiQuv6SOnWGMnd/DBSywpvrsl61SZAgYIJ sBPTKLm6jTDVfIfjeqIRbERmnewXWbDUoxW4n+VNw9PUMLwZ3xUJGnHRbRpg eHBtDG/ljV1rFr/G8gs1zjmr99rZVCtkZaPWIQjp6iYaRTod5t0ZC9sZa0RH c5bqE+ZXl45BfpYxh7pqYi90b1oH4S3qon+r2piRMIC3r5EvutkEa7NMiuJ8 xGckfkQoolAzhRWY8+laZh1b35grKSYHohfzZuBBljYS2zACj94Yi9nThiJq 6CC08K+NtgG1sHndUrM7jofxkkWoPagY40M/G+kOQUmXck3mQAOrt8OsoBHm 4tUZsXi1LFEn/+nueBzZmIxpSxaaa2Y8gtPA0VXJ0ZypxNqyIBdhrEaqkq+P 9KipMk/nhIzHGynzcWJNDo7tzsTDpSOQv3GkTvLmrQeRvfsQHv/nNw+FWJ8t gliJBB48OcWWuMSB12DZqG/1YExtMkwsl+Gd+YtxRhvBf7IlDfk5Q3TTqKbg 858KcaoncKxB0yZOLummCq3pZLrJCnD3+Dn62pqW141BwqZY/HVmGX69f9Uk U2f4FReSIwJ9GQVUexhCkSth6iDl2BpXXl9Yaly5AtpUqoBOFStgUnh/PcMn Nxqo03lILNRt1AqQLen4Ps/Q/a9f/Uv1iH5lJgNKkBVZYnUmar4gQPWJjRtV JcXF7yEdLapPKJp4VER7Md9QtTL6eVbCwCrV5XpgulHvaTXAtQ3jjaVr6rlz 7HF0XbHwFS2aeJM092UasHsb14qHdBQx1eCn0RzsURXdvTzRu1pVDK1RHYkN tag1ZhxOrTPq0x9ej8cf+xJNkYvDS4HLqwgip4VQ3vpW3Uo+l4hzkZfTxuiL NAOqijZVvNDboxpG1a6B+KYNkdLWD9O7NsKKicYsv5jZ//mesUFCMU47zyE+ ihzCxF6DSZ2cUpId7iLGcakbdl8GKxdlItKjNsZ4+iCmvg+Sg+piYqcmSA1p gvjg6ohuUsGoZfPllIKnAlgdJmpnKdpTITsvRrMlynE7ryRtepnmoSPCQtG1 ijeW+/ji63bN8UdSD2T2CcL4rv5I6uKL6MDqiAmqbghWteFEVQUVDRTCZllF 1ZPrZRW2KgI6tkyX090yqGpVJHnWwzG/xng8qD2eztac+/WR2Du1N/q1aoCI QB8MCtb+Wvng8sdnzFY2x7UX1/K2N9EUdISaDzc5W7AiK6woyRYLVt2remOd uTDSE/nLh4qFERzKjETTujXQsXFN9GheGyHBtXDp47Mm2TwRNHMtaOoy4iNJ TyvFnDouaLJ0YlpkRDpoSZxWSabMS8WsxBDkpY/GKq1GXquNf2qZFtiiCAn7 JYaZArUkNMxF0OMD8QrSqN/KXoFNNX3xTdcgw05XDtP/fXdNMvpOmIbJA1pj RKAn9qxcZPas8bzSiolUURHxNjzSgo1SHt9UIjW0UhYXNZHujojG+WZN8Mtw bXiwQKust47SqU0d2Alh/QdgZGhLxATX1Kp4rzoK8G2LIFvVI4ZG7SKfg1SH No7mVWm2Ym1+Z20/fNcjGE8nhyJ/dZS+yLEsqQ+6BhvLZBGaxw0KroPBrWti Zlx/S18g4egkyXZVdZZlgqaIbCObO3BTBSvmYz+aoOdW98WnzZuCqqa72ybj zNoMvJ6RigA/o8OhS0Ad9AiqjZT4gSRs7h5dXQibKC/D7qP4VdVKtSq0OT68 VR5LNNN4o64f7oa20gd1+WuidCovrJuJ42upFe66mbFXrVyK8x+eraOQd88i JG7+KIz1uQH59LE1uqnk/ZJ0wS80eWfU8MWlINE80dVoG9o+Gne2TtYpPaWN 8G9cOV2QsOsz0VCS6q2Qtr1Wsu+eIviw0cxDhEraL8qsvVyT9qH6/rjfp7XR ZbEuGr+/mYSPVs/AsZW0+nWTmha46RmlZGmX0qWxqaSul0JJdokWPOLwLK6c Pm8mXPF3VZPwEm9ffNEqAL/HFXRgfLt5Mt5ftgAnN+Xi4+PbdKobMbhkewNl kBOC2717N8LDw/XfUlNTxXOGNiodApoe142B2PPI6R+N5Z6NccirMd7z9MNJ LUis0aT5XkN//Ni/rd6MITq2nmjSPLtiupgSxvGd2Xh4/xvTdlViNWbliuvP OtKzj0lJSbohSAJ7MtZoCNZUca68dKmlGqmLvIKws0oAPq8diDu+gfiqVj2j 8EnogfylkcjfFYebmybh7ex5OLlBrF3tLNjUq6FCR7QWIVRNz83a6FMFKn6O 1nhGeTbB4sotcLJee/zYsguedu6AbwOD8HBIO73p69f9STi6dBrey1qCkzs0 w7501NLKRUoiksTjpLSXgo0kVb8PF5kxb/mcPorz10ZwbbQCPK5aXbzTwPCR q6Hh+DE0Ak8H9sXt9h3xcHJvfL1xEt6YsgDHtXHFxRO7ce/7a41tAuPU8Udq ZWQPcRFpuMDKSL8Q5V8zjwoI02qp5dIffhulRZxFA/HT0pG4OSgKd3v2x7Uu XfCvtOl4JyMLJ7fl4PqVUyZc3vVAKzX8GWhPK2k8oHDBkUCJNDH4CqxaTa9M j2iu8EPfNng6tY+eM//al4Bj02JxoF0E3unUG4eSUnFsVY7eA//g3k1l1cB1 Ss/KS9JoLwQ+V+1cauUwvV8k1ogepTaB+F30b4n4vG2UXstlLEtBUs9gLBs4 AYfnLtYnhz88tsWyukbsRzJFii0lxDcvK0mqWoibnt4tQr1AosbcrEUOPvuW vzZaE1ci3tuYjFFzU5E2sDmGNnoNR5fl4NjOLDy8d0u5lsY1SU9VywFddxdR g4MoKX1THAe1oLZeK9avaZHi97juRmWppbQHmsgmJIzC8AmjMbZXE0QHeCKy aSWx4BSoMA5SIt/wwEaVKlbwvFhCUnVRFuQntVHPowHt8HR6uJ60xPGvnGgM 6tACwzo2xsCmPhjS3BuRQZ7YtXZxcwUakhV/DLyGlSpVuOCyIqoOy+pbH5eL iCoS047R+P6Nsfq59i0D0cG/Drr510RvbVwWro3L0uIHGLnEXc8lK7Vcst/T H4/Pnq+p0JRKsXL6rJuL6MHt1l266CVNhDO8fHGmcWP8pA0cdaXmxeDPNxJx YccUnNpkVFmz+8QirH0rBPp66+uqr69dKqchS2Bf1nLMqRSAt6s1xV0tnXzT OBA/nTvnY6bJIcYnTds+VipVgYTPU7tLkS7SPGKbJtJbnVvoo/P8JZE6Vbf3 jsW5jYv0By+OTDWeKDguV54e3LtRXlYln2tMfiq0Uk8Lj60DcSu8Ez5v1RN/ hITiXqfOeJS32mzH52mN5MzTmuSgqyKoq+RMO2CI+nuWJudzTZrgp8Ed8DS9 r6gIDLcvjuPZ6bg8YIg5vBSlodGjU1YvJS9o1G+v74ev2jbHz8O029O025dF ayErCR/3idKsfxhudwvFL59+zJ/2o7AzQFIhGOG7Z8jkWNPKE7+Ta8X65FR5 ZGla2VXLT2+509saRemgVWB3t6fg7LoMfS5QHFuaD8Wt3tEa30PwXUjXZ+Tt X2l8XVqyAnsa+OHr9s3xn6hOmgdrleTyGC2ujMWfB6bgxoE0fLhtOTZ2GIaj XQbh9uat3gqKBspASnWS4Iu2NpGLcV2YwqwR7wWLGb637i19oPShNiLVWyFn aRRtiMEfWul2Yf1MnNQS+5GdC/XntMSxODgKJyNG42utEPh+yxbzSXLRBPu5 xh2fLHg6ox/4cW1/Gh5/fUyrmq9DNdqipW6eim3sOHZSv2BK5uql6xjfbDze bZOI7yJj8fv4MDFzr5V3Y3BnWwpOrc6g578Mv9fu3pq9V/+cGxeHExkzZVAr h2saO19o7Bz09cdNzQt/GdlZs+H+xn07xuH3g6n48s00PNLY+e7ONf18XaYp anggl+Ip3MaSY5x1N01yb96nWNTtILmNGJ18snaGKVDxWFkxnk4zV0/Hvz/b x8y2LA5ovrRnQDTe9vPHN12C8GusVmXOikD+qpGa+Y7DbweNdsWHV4/h2++u qSbjaytIJWXxSkAurndmgrAqq6olgOzd8C3mp3yLq2/f0dHdfXcjjq8wmlo+ O7HDACbJMCa2K6CjVxv0HjUDy/KmIScyAG9lZmHfQG3o4d9YiwjBeDJac+s5 WgBYHaspfjyevDUVjz9Yjx807ghewTxsXYVZcSukbFPHyphjHC9jiSIzIhdi zJTr2HnGYOzE1g04aazVGFp5zuQrWsxmelRGSK2+CE9KR96GKchp741pdV/B E63qyJ+rOfuaAl5+1Hh5cPWYalpW9TwZrXLyioRsklckksFO7HL7bmPvbD+G TzYdY6VCQRdzwer0YKwbOAWHZmXqZFw8sUsMCVDAeUFXm39lDwRVrIaQ+kMR MXEWtr4+CQva+GBBR2+8Nb4zftW4fahxe1/TXEkFaypDrWnmYFWBU5cxqV9U XrrbvvVHsandfPwwbiZuzF1AS4JCpQunztTXtEWL2I4E4yGwU0agtzNE5iWE Uf8lT7TyqI3uDVsjctpsrM2MwfzQRkjrXgd5c8YY/cYF20frXKimJlXGKFv3 OrLLraPe4pg/7iT+lfE1/jx2BU9nx+JRyihj/tzdilIT7NimA7AyfBIOpGXo wf7SCaPxWsUhzQiPrReGJpXqoWODJghvEYDITs0wumMjxLSsiWHBXrj04Smz 65T7xWCzMKpv5YFHCoOHkrj65RNkb76Dz85cwA+Lp2s1QDQeR7TGb5+eN6eo ibACYkuZRCaHjcCW2Bl4N9N4mu3D45utQpet3HRkdojHlvjZWD4xFW2aB6Jb kB/CAuoiIrgOBraqielxEcQTf3acNESGJjRk447X8s/J0mT/gZNYMysbX2fN x+/zxuHPhJ64Pz62oowm3Kb0R6cbGZu/7Zo0V6/4ju9eLMZBxSUf27NXI8an s8nL/gXZOLwxF19dPotzZz+Af71aaN20Njo015sX+PK+RTe2CQTJRwemJSpV 3azWVMwwJkNzFz6/gS3rduNk5mI8ypymjYGH4kHvYPz68Xk5r1wab2WtwIdZ Rvtlf/mQ9rwoo6QVTXTaaMrctW1b9koMrdEO6YHGdOgbsxbjcJ5RqLdmtNlV wmcbGlhZ4S0W9PQ/NyarUVmDDG3A+dbh09g0Jxs3s+bijzmJ+GNUd3ybMOJl yeGS/lHI8WqG3ZWNqeasLonYMX42xo4erX8XD8W6y2v1ng6vlpjqPxirI1Kw N22Rfs3ZI7u1aummhVNeMdH6qggPVOi6sXNkkPIxDmre4+G9hJSBLYqpGCf9 XvziFvZs2I1zizPx06IpyE8ZjFs9tIr2w/OyHaK0Vu2e0+9dXqU1jtfpqH8+ NWEq8uZNx6olxvPjbsxjZ0XEI7lBPyzrnYxdkxfg8PJcnHtvL+7dvVWMc+84 C1tK32yMymC+t6UsugrCXV0mBj0BlLJx6Yzz0lJUmYu3Yvf8bNzOmo0/Z4/B bzHaaGrDqhekYA4tXoWp1buabvgodBB+HtAX40ZEgxowKY7OiBiDxDqhyO6a hO3j5uKtJTk4sDkbFy8cc0lKENOhdW7X3dw2XI4FSihul8VnOwaFkkdRhVFG cvv5V7cwLyUTn2Qtwn8yJuPpxAj8MiMOjz44L/etKYFk757YFDAYZ3qNwn1t /PTWoMHYMWMGbUYxLSIWo2p2R0a7OGyOm4WDmUtwaFMOvrh8WlqHg2FSi7jj vLHV5IvAPM86tLGiDZsrdygrb1mauwMHFmbj+6x0/JUei1+HdsD9tSufl8nz qw8uYY6WZA+0i8S5roOQPGKkLu5tolHXuyPmBo/EhpgZ2D8vC4c3GDG7hBlT WyoURfGNF3BFYNdhSqng/Rj6p+ekUr68+g2y0rJwOWshniyciKfjw/FT6mjc 06z2eWkB767bhfffOIj0SamIrN4GM5oNw7rIVOxLz8RhrYo4dWQn/v3d1wWl lj1NmjJndbhc27QmmiqS3tWrdulzuQ8Wz9CGzTH4eWBb/P7ZeTfTuVHw9g1D Y4DUqhFhYqNiMLHlYKzsNxl7pmbg8KpcLb7uwd27NzszIVPlxW3KukejVch1 rKTzxFJVkv7GvuNYPjMbX2YtwG/zx+OvxFD8MDHWTcqbQ7PnHx4i0yPikNB5 IFIGj8bOifNxaFkOzr27F/fvfqOayhhkSFczkFKmnCWxbWz8im+elIouXsfG tbtxbNFi/JiZhqfThuNheCs8+eS8SZWRtp6xUG50c49GfO2eyOqciPiYWKyf NUeLaUtw6eIJy0wd4SQZc6NozEjULaeGFNOBt05h/exsXM+ahz/mJuHPMT3w XZLRREZ6FscOrRYa6dMVC9uMxqbR6ViTlo64UbH48vIZmqLmKZRaq0nPYs6o CReTO8aPH6/nFPHTw4cPjdnbf+DClZvYsX43zmRm4vGiVORPidQJCKj0GtpU roBulSqiS8UKuqOLY3aLGKyPSsObczVHX5+LObOmCyp6MMHYAxqvYCxEGazS IilffpQ9APReisNvn8a2edn4JmuO4RWDqlSUO8hEeryGtCbGJNy+mZrfrs3F 6SO7cOLEu7qGQpi0aNTPpUWRtiknrKyDOfPVXDuhZmdQCVz68pbpu8Pr1sX4 ht6I9vE20mYJHF6Ziw90b72l3yD9jISnygZ8zsVCo6qcc2zg5KvOlaTQfStW QoBXffTza4yRDeshKdgfUzr5Y3KHulg1I46yBF+V4UsPJEmVeps5p7CM4QuC wBLKFgQN5itS+isXZaF5dW90qV0LsX71ML19PUzt1QgjAjywuV8tfBnhhzsb VmDL8rVCaD1MN4uQwhDw5H7FXMsBzskrL4WjeqSNUfhPGTTOnzqDxtV90Lpm bYwIbIgpXRogMsgbA1pUxZsZffDduj64M6cdxsVEmWtKPDBHyNwhKjza0Vwc QpiBzqn8h4JKW++U8JtnzFjpLmV//uxZJFTviG8iwvH2mJboFVwTO/dux7rd edj6+mTkzByBt1dPVS1/kbfw+OaCxJckia48RiOxtOJWsrzptbvih+hw/JHR 1RwIfPTZF4hPiMf1O9+Z1ug4m2zNdM2dU/laEaikh0fcWXTeqsVlOvLPbKXC g4zQSVjmNY6CKOs29s6duKCGs+ZbcewN6IU/ZWMpyZGXW65kxjXbwpo1xEGb OGsD6moFTmwM74k8cVDPiDhOtO+N/LQwkxoHEVENN0ChtyDneqtuY5+2zCd3 jfJqIwcpxc1wrxIDD7UkBh7IXJBQ0MROkzXiuD0wHPkLQvTPwhvF3LnoCNRM vRtTh3WwY12lCnaO01jAetY8R1M+P8aE49eFXUzxCzadOJw5Lapinc+XuCDD 24wr0i+3Zq/BWt8Q8HMEn6RTiIu1ZdKh6KjSSEvnZNWSRrE1ez32N++FvyZp ujhrvHWNBE7DflcJkoYpjqtw1lqhVWGklMCsiESc7hiG/OlhePrNJ1QXlS1C ElQ9d8b1RIGkCFTEeLXFld59kD8nlAvjuaLlOuqB4Y0m/WTeEjFBhCyRYGnx pE1hBBXHOO9O+G6Qpp2FIWapqHo+TpHTqIWJB7D+jBqaOxGHUJKFGiOQ0bTK 7du3qa1eONL8et3xaGQ4nm5PodD0qoImhU/xLRUp5pPB8JivoIVmOTTufCQX W7PXYoNfTzxJCsflnUt1RJWL5kQ+TDjk20QIj+5tnauopknFBrwVFIq/Jocj bVyczpdnEZyHuvp5lFMF93aFkeCOuRFJONc5DJcnDUDy2EQfKQPC7sRc6WEb Ht8GGP6m6aF94Whjvdrhq7A+WDpmmOC6TtG85FXGN2UZ4ptH90IJcEOyT2ec HDoQE0dGycnOQr1CvpRJ41kVyl3g9JFMXzjzIRbV746tMUNwIiPR3wlam+E/ x5imoE1M86DdoXACtmavw8aAUCRrlXL+mS3Nimbw1GXNQzU9echDdcfCCdiu GfyCiEicStJGNGc3BRXB1lX79wxg8ie/LwL2eQOSkBClsT4zDH/c+ri1DbvK 6Kgk5lEnggmfFrI7MeyUoOmlHOIXenZoRJ8B2DtYY35eKGhOS2X0xURRo3Lp zo7hTXwSeLSf6a2Wn3/yJUYMj8Gn4WPxa3oEdQ4ITPTQFWUXIVPxchKBXXAj uOriXJbeEsPC6drlUWvxn81n8OuhvK5MS9bZ9oIX3gg76eoccg1JEDn3gszr +PeVO3hw67rZecMb/fsppCPBNzfVQNtW8VdNkZAoeH3979/w4Y2fqFylN+yI v75mTDMKSzkYc5hjdleg0VfmVBONZFM8iqmmTsKZ/MjH/j4Z9OIIfim9v4Wf I2lQ86/jy62s8e6/pcR6KRMRT2ZEhOqVVzzmdf+/QgSs0/UkCd6ATzZNz+/w uNfj/wURJAkiglt+GANJ4a+H2vKLm6+U4q/lqlA4fmKY4yfPoKdUuCZCuGOX 0LGKtwjZXkr0qklewSqCbZBKD2VwTyAi+Esqe1ojiePLFa2vtiM34MokPrip EypeUrpAxV9vQSAIrOPOpdZanvw61Dn4qoxqWt8IU3BC4Hl/HwmqCOA59QSe G1yIGQYN3oyMqs8M/FMBlr/4hFJ2HwVYmqPgVbNEQBUyWSj/90UXKHmjleo5 UZofoKQhopnBsRw3OTiFCpuHgkH+5DJRQNi4o4QxCbKwbPc/ouAFF+h5QUbo udF1ZcxSsOrD0LvbkpP4l+uTwoX90XrxTfWkf1d2L/mOxFfXKWvu+uXsvaSV FNwRNm49VNRw4coXztUxg8uLDAeJT/u3ooKj/gocnRUS7Ovcn1SkU7XIrbCT QlAuwNqp5SMAbm7UPsT9qV8hYC3jGcdXBZUyX15H+YOm+SWkgmaePs4xVWAM UMVDOLkBUfbgbzOnUEZ9GY4eGlY4YtU8HNdze4Xk/j621xib9pUbx9d8WStX J80LRcCmakXlxkaTfo5vJ/xvsKk6erkN0r18OO5eBGzuZj+6jDqvKNijHk3H 7YyttWlBn0AfRxzi7ZLCsA4ePPiKginCwe2ytUKEg5zLSvUqQXqqh9sBbQfI o8vgwsHyaskVWB5dXIB9WUHtMIVggpkQaNj7gilohzEOYJ9+UiHllQffRJXO BTER0f2UkQtLnW2do+d7CVD8p310uXEFSnPSbMUMflQZvix/4yiJnPaFo+aV imrTYRpO8DioGcnL/+fMv6hgnvZrVr23nMv+pQKFF7covAicE16uX6d49WpT NXZ1wRjVLnw1nfZm55bMXy1OflfRZEzBAYWlfzIOKL/HKLjib0unmDTcMRIJ SxKq1cDTa9t4QULb7nODpJ0XeCSKci4R1ZapBFb1BByPRNHOwaqopXc4cE02 ZfdSJCoMrF6QxCqANWGsU/yJcQ6M72tLNYfqhSP+jHW6f0QhYHUaRzNg9rd2 8NGjC2DPKWgksFzrtBe6GFGLQ9RjQgRCVbGFg+cplL86h87Rhl7CxMUh7ncB VrXLJ734hyvM1/TjUYUD4zSqgNHT/3wyrAhguaZVr2JqyO4lT7WAdTcLULGi tW/fPtXe5vEMMu2hQ2/54J462hEyvYVai0XlFPQRZMc9x63OOsa5KFQEq96S Vp/dS7ZbBLC8GuFgSXH1FHKIcw62rIIyepWc47bJ1ikhQ1hG5nQrSFFqBNxt k9g5627HVleWCKgo4WmpmALVM4wXCpNjFahoUVLkI0o1okoVyk3871Dy6oJQ iiRg3fuyuMPryQWcv4myjILLcQot1jLDgSHuQmbpyzCqKXWpwNKCHh+6cQQ2 DlTTsdQfxdMZvX6U2xzN2fDJI0O4RiuPZf8zmkARJWNpBS/8bazWHTOtvjKW +0oJc7KEmtjk0Ly4goVkBYYajAWKHeMcMfCZUzkYL67ggb8pmiyrBuOf/MaC wSp71b7GqtcTV1eIZnwhYPU0PUkBzEshhQnOgfG3uFCaJrDcPrwUrNvA0pa6 HCxPffTWa64zDxfhYaJz8MUVVKe4AK8KBUUAz6kn8I497dY46gKsO6OaqKTX rPNtp2jCl7v9pMLBcmoJrOO2mNZqcHLhYLk8CSy3DALLrVcBVjAj4oWbgrKp ClQ0PuIDmRQGtpgOtYRZwpBLy5w9zQVIXhClOBdAMQWlBJZbQUWFAKYUDpYn aQLLrYDm97gjp1rDGQcr/uRSynQF4S8yaEINxjdHn9aDi55WxrrGJcknXNwi XpSQRElvi+XYsWOHXt5TqcJVl8AxFrdgpAQ8U6HWl6W5imAufEA6uM6dO0/B RcRF9YUKF81TcY8vlBV3y27j2ud0hRXR5Ad3+oL+67FqeDJhETxeSdNcDPd2 FaVJjpZ669Yt/d9ZCjuSkyQa7+VN4hQghCkIXRAIR/OwevYMRxAJCYYQZyvU wFdyyJMtIIrzVRf9T2BJV4CiaQTuvTM5KKOHaMOGDboN9+zZ02yikT1E5AJc m/9g0iceDeyyNaaEpTWGbZdfTAftZnnhCWVOrt9nJZ/kzOKPHNmQulyzcjcx yUagYgIVRyO6esWV/G331u3G3U0/Fig0/zWUIlePC96IYmv1UiGhcRS3iOeY tCg9SwxyJ18BuKSliYt3MgnYNLCmcqCAeKu3SrjGGlNpZWemHbTqHZG0EQR3 V4MZOW9d0iXoYgK4alK4HBMFue1cA260gmR7X5c0SXNphltMOdN1jQkmORlQ dPugRWduH2VtchD0SvAJf984VB0hhIH7usQwoajGQavxvP+JBmHc8ecbcFOK CpfWULlllGYaJIksMOCmFdUyaBWNWwa9p0kYM6meHH6hAX9WEYyaLISa1LmF lGTKFElav98APd8WtXhToZOopdokvCQTDnm6xJD5N63RT2ErBJ47vASfU1Sd 8lfYkr2UYIIhb19kwF1ZVLh8kycSkTsTB3m7IQesK6qt8D2/LLs46K6+2ID2 +t+wDOr74ZbhphCABL3t7+czKm25ZRSziUK4epaBYffftIyXmAbJMgg893YJ /s2/H6fobY2EgXgWw1fy+WwD+uGi2gdtV5OSkoLjx4/rj/OJQ1C8xID13t9I WqWl0MgsJONGnxWO/w17oCVuYQ80NtcYlJDO6P88U2hWOnz4MCpVqqTTkWPc +qHk2B5TRJ2Va1yih+qR/38+43/+F03nDpQ=\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.17769093578, 0.22247744198, -0.23797319517999999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.9210954515999998`, -0.36732493988, 1.66696509912}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.7848976940999999, 2.0244634637999996`, -2.0410930526}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.2586865136, 0.8596741519199999, 1.72195612572}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.0970719413999994`, 3.2310535147999997`, -1.9577561359999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.8303286286, 2.6452384548, -0.08513404602599998}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.29688115928, -2.279954419, 3.5948257697999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.8767728889999997`, -0.185710932924, -1.947362643}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.291842717, -1.6678721676000001`, -2.2315774334}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.093816408, -0.96496968464, -0.31766294059999994`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.9740507787999997`, -2.8338331096, 5.428804852799999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.7338939893599999, -3.3497283075999995`, 3.5349214555999997`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-3.544181113, 1.70381475612, -3.1853221456}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.5526503687, 2.4848007174, -3.5122447436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.6156987542, 0.40901229543999995`, 3.1783301593999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.560243784, 4.633986097199999, -3.3656020059999996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.6372846298, 3.5927470712, -0.041141224745999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.498432768, -0.7529802219599999, -3.6278959747999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.2703428398, -1.73992741998, -0.42057741855999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.853426284999999, -3.5825425508, -2.8517855065999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.5617125655999997`, -4.082564050399999, 6.6973779166}, 0.12]}, Text3DBox["1", {-0.42230906422, 0.22247744198, -0.23797319517999999`}, {1, 0}], Text3DBox["2", {1.3210954515999997`, -0.36732493988, 1.66696509912}, {1, 0}], Text3DBox["3", {0.1848976940999999, 2.0244634637999996`, -2.0410930526}, { 1, 0}], Text3DBox["4", {3.6586865135999997`, 0.8596741519199999, 1.72195612572}, {1, 0}], Text3DBox["5", {2.4970719413999993`, 3.2310535147999997`, -1.9577561359999998`}, {1, 0}], Text3DBox["6", {4.230328628600001, 2.6452384548, -0.08513404602599998}, {1, 0}], Text3DBox["7", {0.69688115928, -2.279954419, 3.5948257697999995`}, { 1, 0}], Text3DBox["8", {-4.476772888999999, -0.185710932924, -1.947362643}, {1, 0}], Text3DBox[ "9", {-6.891842716999999, -1.6678721676000001`, -2.2315774334}, {1, 0}], Text3DBox["10", {-2.693816408, -0.96496968464, -0.31766294059999994`}, {1, 0}], Text3DBox["11", {2.3740507787999996`, -2.8338331096, 5.428804852799999}, {1, 0}], Text3DBox["12", {-1.33389398936, -3.3497283075999995`, 3.5349214555999997`}, {1, 0}], Text3DBox["13", {-4.144181113, 1.70381475612, -3.1853221456}, {1, 0}], Text3DBox["14", {-1.1526503686999998`, 2.4848007174, -3.5122447436}, {1, 0}], Text3DBox["15", {5.015698754200001, 0.40901229543999995`, 3.1783301593999997`}, {1, 0}], Text3DBox["16", {2.9602437839999998`, 4.633986097199999, -3.3656020059999996`}, {1, 0}], Text3DBox["17", {6.0372846298, 3.5927470712, -0.041141224745999995`}, {1, 0}], Text3DBox[ "18", {-8.098432768, -0.7529802219599999, -3.6278959747999995`}, {1, 0}], Text3DBox[ "19", {-7.870342839799999, -1.73992741998, -0.42057741855999997`}, {1, 0}], Text3DBox[ "20", {-6.453426284999999, -3.5825425508, -2.8517855065999997`}, {1, 0}], Text3DBox["21", {1.9617125655999996`, -4.082564050399999, 6.6973779166}, { 1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.0493931936899998`, -0.07242374894999998, 0.71449595197}, 1.0663976046225594`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.4811206297397004, 1.1229550134637278`, -1.1390173601418054`}, 1.0522571207979057`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.0892274275024936`, 0.2458263066466686, 1.694445002514311}, 1.0623108305837337`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.9409848177499995`, 2.6277584892999997`, -1.9994245942999997`}, 1.0466986570390402`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.5445075711000005`, 1.7524563033599998`, 0.818411039847}, 1.043978252139989]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.963700285, 2.9381459847999998`, -1.0214450910129997`}, 1.0510140870236]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.6089883054399998`, -1.3236396794400003`, 2.6308954344599997`}, 1.13523739655973]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-5.083883932699753, -0.9265314152877346, -2.089420155497999}, 1.1659155739346305`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.9923958208989523, -0.3891939932540235, \ -0.27902255212546007`}, 1.0629579904532749`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.958066957741972, -0.5872404401303041, -1.1076254992618726`}, 1.0498245309901038`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.160996945497253, -2.5653252691670687`, 4.53973334430406}, 1.0538623931152542`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.24721240599965666`, -2.8329000391444223`, 3.5638623778929546`}, 0.928807516865477]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.7048311176105733`, 0.7911273941308814, -2.587357270484166}, 0.9224110356822786]}, {Opacity[0.5], SphereBox[{-0.166263190701064, 2.351819767187312, -3.087262519706002}, 1.1928901257255826`]}, {Opacity[0.5], SphereBox[{5.22370626984494, 0.5391924481610619, 2.757635593402566}, 1.19298105233772]}, {Opacity[0.5], SphereBox[{3.4264366899802186`, 4.228688722249834, -2.9588852167517867`}, 1.1927787680719018`]}, {Opacity[0.5], SphereBox[{6.115268975025972, 3.319019138441479, -0.05385041157212357}, 1.1927836575073578`]}, {Opacity[0.5], SphereBox[{-7.1529826814047555`, -1.0149163299070973`, \ -3.2281260938521124`}, 1.2117553962610583`]}, {Opacity[0.5], SphereBox[{-6.990188379549035, -1.719297274036838, -0.9390849995505564}, 1.211702770660282]}, {Opacity[0.5], SphereBox[{-5.978942618473422, -3.034382425475555, -2.674223176229409}, 1.2118130250615713`]}, {Opacity[0.5], SphereBox[{2.679985027985162, -3.724386034157492, 6.333508512387537}, 1.1226116655827711`]}}, AspectRatio->Automatic, AutomaticImageSize->True, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{360., 360.}, SphericalRegion->True, ViewPoint->{1.8882610509747448`, -1.074655664225218, 2.5941444460014966`}, ViewVertical->{-0.2573794267567401, 0.025985200430455848`, 1.1599955957157488`}]], "Output", CellChangeTimes->{3.5753685090268307`*^9, 3.5753686335462494`*^9, 3.5753686756195235`*^9, 3.575368827875791*^9, 3.5753692077832584`*^9, 3.575369528504222*^9, 3.575369612635169*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.17769093578, 0.22247744198, -0.23797319517999999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.9210954515999998`, -0.36732493988, 1.66696509912}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.7848976940999999, 2.0244634637999996`, -2.0410930526}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.2586865136, 0.8596741519199999, 1.72195612572}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.0970719413999994`, 3.2310535147999997`, -1.9577561359999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.8303286286, 2.6452384548, -0.08513404602599998}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.29688115928, -2.279954419, 3.5948257697999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.8767728889999997`, -0.185710932924, -1.947362643}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.291842717, -1.6678721676000001`, -2.2315774334}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.093816408, -0.96496968464, -0.31766294059999994`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.9740507787999997`, -2.8338331096, 5.428804852799999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.7338939893599999, -3.3497283075999995`, 3.5349214555999997`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-3.544181113, 1.70381475612, -3.1853221456}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.5526503687, 2.4848007174, -3.5122447436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.6156987542, 0.40901229543999995`, 3.1783301593999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.560243784, 4.633986097199999, -3.3656020059999996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.6372846298, 3.5927470712, -0.041141224745999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.498432768, -0.7529802219599999, -3.6278959747999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.2703428398, -1.73992741998, -0.42057741855999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.853426284999999, -3.5825425508, -2.8517855065999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.5617125655999997`, -4.082564050399999, 6.6973779166}, 0.12]}, Text3DBox["1", {-0.42230906422, 0.22247744198, -0.23797319517999999`}, {1, 0}], Text3DBox["2", {1.3210954515999997`, -0.36732493988, 1.66696509912}, {1, 0}], Text3DBox["3", {0.1848976940999999, 2.0244634637999996`, -2.0410930526}, { 1, 0}], Text3DBox["4", {3.6586865135999997`, 0.8596741519199999, 1.72195612572}, {1, 0}], Text3DBox["5", {2.4970719413999993`, 3.2310535147999997`, -1.9577561359999998`}, {1, 0}], Text3DBox["6", {4.230328628600001, 2.6452384548, -0.08513404602599998}, {1, 0}], Text3DBox["7", {0.69688115928, -2.279954419, 3.5948257697999995`}, { 1, 0}], Text3DBox["8", {-4.476772888999999, -0.185710932924, -1.947362643}, {1, 0}], Text3DBox[ "9", {-6.891842716999999, -1.6678721676000001`, -2.2315774334}, {1, 0}], Text3DBox["10", {-2.693816408, -0.96496968464, -0.31766294059999994`}, {1, 0}], Text3DBox["11", {2.3740507787999996`, -2.8338331096, 5.428804852799999}, {1, 0}], Text3DBox["12", {-1.33389398936, -3.3497283075999995`, 3.5349214555999997`}, {1, 0}], Text3DBox["13", {-4.144181113, 1.70381475612, -3.1853221456}, {1, 0}], Text3DBox["14", {-1.1526503686999998`, 2.4848007174, -3.5122447436}, {1, 0}], Text3DBox["15", {5.015698754200001, 0.40901229543999995`, 3.1783301593999997`}, {1, 0}], Text3DBox["16", {2.9602437839999998`, 4.633986097199999, -3.3656020059999996`}, {1, 0}], Text3DBox["17", {6.0372846298, 3.5927470712, -0.041141224745999995`}, {1, 0}], Text3DBox[ "18", {-8.098432768, -0.7529802219599999, -3.6278959747999995`}, {1, 0}], Text3DBox[ "19", {-7.870342839799999, -1.73992741998, -0.42057741855999997`}, {1, 0}], Text3DBox[ "20", {-6.453426284999999, -3.5825425508, -2.8517855065999997`}, {1, 0}], Text3DBox["21", {1.9617125655999996`, -4.082564050399999, 6.6973779166}, { 1, 0}], {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-0.3724264873657801, 1.2209830258261907`, 0.574650592177609}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.3754878117801448`, 0.6358284992124624, 2.476900578653507}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.23456700154413906`, 3.022936467645814, -1.2285736439566721`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{3.7148487983061083`, 1.8592023200118994`, 2.537544245186419}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{2.5486247485625713`, 4.2254888604549325`, -1.1390351701142483`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{4.286831685319851, 3.6448205355111813`, 0.7306151412651917}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.7409117097995805, -1.2823342006592728`, 4.404549099834547}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-4.466532929219147, 0.5812130757097766, -0.9354285246198506}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.2855777298203954`, -2.347653099218986, 4.342070962977521}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-4.13401071810369, 2.4706443853317492`, -2.173357049015046}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0.7278083589257807, -0.7760281418661907, -1.0505969825376078`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{2.466703091419854, -1.3704783789724622`, 0.8570296195864922}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.3352283866558603`, 1.0259904599541856`, -2.853612461243328}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{4.8025242288938905`, -0.13985401617190057`, 0.9063680062535807}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{3.6455191342374293`, 2.236618169145067, -2.7764771018857513`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{5.3738255718801495`, 1.645656374088819, -0.9008832333171923}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.8528506087604195`, -3.2775746373407277`, 2.785102439765451}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-3.2870128487808525`, -0.9526349415577762, \ -2.9592967613801493`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.18221024889960558`, -4.351803515981013, 2.727771948222478}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.9543515078963094`, 0.936985126908252, -4.197287242184954}, 1.4]}}, AspectRatio->Automatic, AutomaticImageSize->True, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{360., 360.}, SphericalRegion->True, ViewPoint->{1.8882610509747448`, -1.074655664225218, 2.5941444460014966`}, ViewVertical->{-0.2573794267567401, 0.025985200430455848`, 1.1599955957157488`}]], "Output", CellChangeTimes->{3.5753685090268307`*^9, 3.5753686335462494`*^9, 3.5753686756195235`*^9, 3.575368827875791*^9, 3.5753692077832584`*^9, 3.575369528504222*^9, 3.575369612650769*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.17769093578, 0.22247744198, -0.23797319517999999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.9210954515999998`, -0.36732493988, 1.66696509912}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.7848976940999999, 2.0244634637999996`, -2.0410930526}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.2586865136, 0.8596741519199999, 1.72195612572}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.0970719413999994`, 3.2310535147999997`, -1.9577561359999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.8303286286, 2.6452384548, -0.08513404602599998}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.29688115928, -2.279954419, 3.5948257697999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.8767728889999997`, -0.185710932924, -1.947362643}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.291842717, -1.6678721676000001`, -2.2315774334}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.093816408, -0.96496968464, -0.31766294059999994`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.9740507787999997`, -2.8338331096, 5.428804852799999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.7338939893599999, -3.3497283075999995`, 3.5349214555999997`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-3.544181113, 1.70381475612, -3.1853221456}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.5526503687, 2.4848007174, -3.5122447436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.6156987542, 0.40901229543999995`, 3.1783301593999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.560243784, 4.633986097199999, -3.3656020059999996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.6372846298, 3.5927470712, -0.041141224745999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.498432768, -0.7529802219599999, -3.6278959747999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.2703428398, -1.73992741998, -0.42057741855999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.853426284999999, -3.5825425508, -2.8517855065999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.5617125655999997`, -4.082564050399999, 6.6973779166}, 0.12]}, Text3DBox["1", {-0.42230906422, 0.22247744198, -0.23797319517999999`}, {1, 0}], Text3DBox["2", {1.3210954515999997`, -0.36732493988, 1.66696509912}, {1, 0}], Text3DBox["3", {0.1848976940999999, 2.0244634637999996`, -2.0410930526}, { 1, 0}], Text3DBox["4", {3.6586865135999997`, 0.8596741519199999, 1.72195612572}, {1, 0}], Text3DBox["5", {2.4970719413999993`, 3.2310535147999997`, -1.9577561359999998`}, {1, 0}], Text3DBox["6", {4.230328628600001, 2.6452384548, -0.08513404602599998}, {1, 0}], Text3DBox["7", {0.69688115928, -2.279954419, 3.5948257697999995`}, { 1, 0}], Text3DBox["8", {-4.476772888999999, -0.185710932924, -1.947362643}, {1, 0}], Text3DBox[ "9", {-6.891842716999999, -1.6678721676000001`, -2.2315774334}, {1, 0}], Text3DBox["10", {-2.693816408, -0.96496968464, -0.31766294059999994`}, {1, 0}], Text3DBox["11", {2.3740507787999996`, -2.8338331096, 5.428804852799999}, {1, 0}], Text3DBox["12", {-1.33389398936, -3.3497283075999995`, 3.5349214555999997`}, {1, 0}], Text3DBox["13", {-4.144181113, 1.70381475612, -3.1853221456}, {1, 0}], Text3DBox["14", {-1.1526503686999998`, 2.4848007174, -3.5122447436}, {1, 0}], Text3DBox["15", {5.015698754200001, 0.40901229543999995`, 3.1783301593999997`}, {1, 0}], Text3DBox["16", {2.9602437839999998`, 4.633986097199999, -3.3656020059999996`}, {1, 0}], Text3DBox["17", {6.0372846298, 3.5927470712, -0.041141224745999995`}, {1, 0}], Text3DBox[ "18", {-8.098432768, -0.7529802219599999, -3.6278959747999995`}, {1, 0}], Text3DBox[ "19", {-7.870342839799999, -1.73992741998, -0.42057741855999997`}, {1, 0}], Text3DBox[ "20", {-6.453426284999999, -3.5825425508, -2.8517855065999997`}, {1, 0}], Text3DBox["21", {1.9617125655999996`, -4.082564050399999, 6.6973779166}, { 1, 0}], {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.335150691420496, -4.259168995776283, 4.253034290269305}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-4.448749957792792, 2.1213816124992637`, -4.028928188657879}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.3324780256522781`, -2.839867594162643, 2.492799948870005}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.430312372066485, 2.3690502181766533`, -3.040283397696358}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{3.559894283352148, -1.4043384401880983`, 6.005747820776049}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.5695361574714806`, -1.1549328605085574`, 1.249862345249234}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{4.446472815956184, -3.014874480603067, 4.708576988522199}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.0313248111527873`, -2.6117745635144094`, \ -0.3781550990912221}, 1.125]}}, AspectRatio->Automatic, AutomaticImageSize->True, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{360., 359.19201483168257`}, SphericalRegion->True, ViewPoint->{-1.5846254776573283`, 2.2605134224853, 1.9567935921611899`}, ViewVertical->{0.24672337095571245`, 1.4112481474060181`, 0.13011790426827166`}]], "Output", CellChangeTimes->{3.5753685090268307`*^9, 3.5753686335462494`*^9, 3.5753686756195235`*^9, 3.575368827875791*^9, 3.5753692077832584`*^9, 3.575369528504222*^9, 3.5753696126663694`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{ "tc", ",", "twc", ",", "twh", ",", "tpo", ",", "tpu", ",", "tplo", ",", "tplu", ",", "tpso", ",", "tpsu"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tw", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}, {3.5718402591869545`*^9, 3.5718402726497784`*^9}, 3.572328636723397*^9, {3.572328748419593*^9, 3.57232875246*^9}, { 3.5725921859362335`*^9, 3.5725921932682457`*^9}, {3.5725923978158054`*^9, 3.5725924023086133`*^9}, 3.5725926630786715`*^9, {3.5726167873570023`*^9, 3.57261679757502*^9}, 3.572620232450739*^9, {3.5726252144466896`*^9, 3.57262521482109*^9}, {3.572842310446463*^9, 3.5728423195412793`*^9}, 3.572851092419488*^9, {3.572851145927582*^9, 3.5728511735708303`*^9}, { 3.5728512529593697`*^9, 3.572851265595392*^9}, 3.5728513850916023`*^9, 3.573124143499799*^9, {3.5733124027399025`*^9, 3.573312472362825*^9}, { 3.5733130968319216`*^9, 3.5733130974091225`*^9}, {3.573316202329376*^9, 3.573316209786189*^9}, 3.573368517265889*^9, 3.5746700189174166`*^9, { 3.574670900474965*^9, 3.5746709256066093`*^9}}], Cell[BoxData["62"], "Output", CellChangeTimes->{3.575368509120431*^9, 3.5753686336398497`*^9, 3.5753686756975236`*^9, 3.575368827969391*^9, 3.5753692078612585`*^9, 3.5753695285978217`*^9, 3.5753696126819696`*^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["62"], "Output", CellChangeTimes->{3.5753685091516314`*^9, 3.57536863365545*^9, 3.5753686757287235`*^9, 3.5753688280005913`*^9, 3.5753692078924584`*^9, 3.5753695286290216`*^9, 3.5753696127131696`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"nj", "+", "2"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"nj", "+", "2"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv6", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5", ",", "tv6"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tv", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}, {3.57184030784344*^9, 3.5718403245666695`*^9}, {3.5723553440956435`*^9, 3.5723553601792717`*^9}, {3.5723567913257856`*^9, 3.572356801543803*^9}, { 3.5723587125159597`*^9, 3.572358735884801*^9}, {3.5726205042656164`*^9, 3.5726205078692226`*^9}, {3.5726209578956137`*^9, 3.5726209632776227`*^9}, {3.5726266468256054`*^9, 3.5726266628780336`*^9}, {3.57284236531176*^9, 3.57284238273699*^9}, { 3.572842728620798*^9, 3.572842734502008*^9}, 3.5731240921601086`*^9, { 3.5733125819686174`*^9, 3.573312582608218*^9}, {3.5733126196738834`*^9, 3.5733126474263325`*^9}, {3.5733131200291624`*^9, 3.5733131288743777`*^9}, 3.573368536719124*^9, {3.5746698693443537`*^9, 3.5746698885011873`*^9}}], Cell[BoxData["62"], "Output", CellChangeTimes->{3.575368509167231*^9, 3.57536863367105*^9, 3.5753686757443237`*^9, 3.5753688280161915`*^9, 3.575369207908058*^9, 3.575369528644622*^9, 3.5753696127287693`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"2", "*", "nj"}], "+", "4"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "ow", "\[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[{ RowBox[{"2", "*", "nj"}], "+", "4"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, {3.5721935303764954`*^9, 3.572193534214102*^9}, { 3.5726206642250977`*^9, 3.5726206651142993`*^9}, {3.572620782223705*^9, 3.572620782738506*^9}, {3.572620924963956*^9, 3.5726209465699935`*^9}, { 3.572842408289835*^9, 3.5728424357302833`*^9}, {3.5728424783807583`*^9, 3.57284247916076*^9}, 3.5728451195121975`*^9, {3.5731249170427575`*^9, 3.573124927962777*^9}, {3.5731450428093076`*^9, 3.5731450615449405`*^9}, { 3.5731451273458557`*^9, 3.573145132259865*^9}, {3.573312700185625*^9, 3.573312779979765*^9}, {3.5733131504804153`*^9, 3.5733131516816177`*^9}, { 3.5733132756862354`*^9, 3.5733132772462387`*^9}, {3.5733147916812983`*^9, 3.573314840275384*^9}, {3.5733593507659893`*^9, 3.573359359377204*^9}, { 3.5746698998736076`*^9, 3.574669995361375*^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[{"-", "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[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}]}], "}"}]], "Output", CellChangeTimes->{3.575368509167231*^9, 3.5753686336866503`*^9, 3.575368675759924*^9, 3.575368828031791*^9, 3.575369207908058*^9, 3.575369528644622*^9, 3.5753696127443695`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.575368509167231*^9, 3.5753686336866503`*^9, 3.575368675759924*^9, 3.575368828031791*^9, 3.575369207908058*^9, 3.575369528644622*^9, 3.5753696127443695`*^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["62"], "Output", CellChangeTimes->{3.575368509214031*^9, 3.5753686337178497`*^9, 3.575368675791124*^9, 3.575368828062991*^9, 3.5753692079548583`*^9, 3.575369528691422*^9, 3.57536961277557*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Elcharge", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "ow", "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "ow", "]"}], "\[IndentingNewLine]", RowBox[{"Nuccharge", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"cnv", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "cnv", "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "cnv", "]"}], "\[IndentingNewLine]"}], "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, {3.573315125131884*^9, 3.57331521983965*^9}, {3.573315279213355*^9, 3.573315294797782*^9}, { 3.5733153507238803`*^9, 3.5733153551854877`*^9}, {3.5733153963695602`*^9, 3.5733154277724156`*^9}, {3.5733182525629773`*^9, 3.5733182928434477`*^9}}], Cell[BoxData[ RowBox[{"-", "94.`"}]], "Output", CellChangeTimes->{3.575368509214031*^9, 3.57536863373345*^9, 3.575368675806724*^9, 3.5753688280785913`*^9, 3.5753692079548583`*^9, 3.575369528691422*^9, 3.5753696127911696`*^9}], Cell[BoxData["62"], "Output", CellChangeTimes->{3.575368509214031*^9, 3.57536863373345*^9, 3.575368675806724*^9, 3.5753688280785913`*^9, 3.5753692079548583`*^9, 3.575369528691422*^9, 3.5753696127911696`*^9}], Cell[BoxData["94.`"], "Output", CellChangeTimes->{3.575368509214031*^9, 3.57536863373345*^9, 3.575368675806724*^9, 3.5753688280785913`*^9, 3.5753692079548583`*^9, 3.575369528691422*^9, 3.5753696127911696`*^9}], Cell[BoxData["62"], "Output", CellChangeTimes->{3.575368509214031*^9, 3.57536863373345*^9, 3.575368675806724*^9, 3.5753688280785913`*^9, 3.5753692079548583`*^9, 3.575369528691422*^9, 3.5753696127911696`*^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, {3.573315125131884*^9, 3.57331521983965*^9}, {3.573315279213355*^9, 3.573315294797782*^9}, { 3.5733153507238803`*^9, 3.5733153551854877`*^9}, {3.5733153963695602`*^9, 3.5733154277724156`*^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["902.9749657989414`"], "Output", CellChangeTimes->{3.575368509245231*^9, 3.5753686337646503`*^9, 3.575368675837924*^9, 3.5753688280941916`*^9, 3.5753692079860587`*^9, 3.575369528722622*^9, 3.5753696128067694`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nb", "+", "bc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"nb", "+", "bc", "+", "nj", "+", "3"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "nj", "+", "2"}], "]"}], "]"}], "/", 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}, 3.5733150956478324`*^9, {3.5733650408599825`*^9, 3.573365073947641*^9}, { 3.573365126847334*^9, 3.573365203209468*^9}, {3.57467280495751*^9, 3.574672834457162*^9}, {3.574672996697447*^9, 3.5746729984914503`*^9}}], Cell[BoxData["902.0821086560848`"], "Output", CellChangeTimes->{3.575368509260831*^9, 3.5753686337646503`*^9, 3.575368675837924*^9, 3.5753688281097918`*^9, 3.5753692080016584`*^9, 3.575369528722622*^9, 3.5753696128223696`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.31"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sw", "=", "0.31"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", "9"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.572795632149378*^9, 3.5727956355657835`*^9}, { 3.5728516649872932`*^9, 3.5728517189321885`*^9}, {3.572851825152775*^9, 3.572851850284419*^9}, {3.5728520019946856`*^9, 3.572852210645052*^9}, 3.573124800838154*^9, {3.573322145410615*^9, 3.573322167859054*^9}, { 3.573322202803116*^9, 3.573322232630368*^9}, {3.5733683306427617`*^9, 3.5733683367267723`*^9}, {3.5733684056944933`*^9, 3.573368412932906*^9}, { 3.5733695833093615`*^9, 3.5733696100478086`*^9}, {3.5733696433694673`*^9, 3.573369694568757*^9}, {3.5733697316344223`*^9, 3.5733697335688257`*^9}, { 3.573369920425954*^9, 3.5733699263851643`*^9}, {3.57336995814682*^9, 3.573370085162243*^9}, {3.5733701175791*^9, 3.573370122087508*^9}, { 3.5733701577803707`*^9, 3.5733701630219803`*^9}, {3.573370193660434*^9, 3.573370198262442*^9}, {3.5746729482125616`*^9, 3.5746729642181897`*^9}, { 3.5746730450731316`*^9, 3.5746730625763626`*^9}, {3.574674580516679*^9, 3.5746746053675222`*^9}, {3.574674636692377*^9, 3.574674639859183*^9}}], Cell[BoxData["979.4663462176281`"], "Output", CellChangeTimes->{3.575368509260831*^9, 3.57536863378025*^9, 3.575368675853524*^9, 3.5753688281253915`*^9, 3.5753692080016584`*^9, 3.575369528738222*^9, 3.5753696128223696`*^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[{"-", "1876.051898309533`"}]], "Output", CellChangeTimes->{3.575368509276431*^9, 3.57536863379585*^9, 3.575368675869124*^9, 3.575368828140991*^9, 3.5753692080172586`*^9, 3.5753695287538223`*^9, 3.57536961283797*^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[{"-", "3033.9912762653275`"}]], "Output", CellChangeTimes->{3.5753685092920313`*^9, 3.57536863381145*^9, 3.5753686758847237`*^9, 3.5753688281565914`*^9, 3.575369208032859*^9, 3.575369528769422*^9, 3.5753696128535695`*^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[{"-", "3052.549300075333`"}]], "Output", CellChangeTimes->{3.5753685093076315`*^9, 3.57536863381145*^9, 3.5753686758847237`*^9, 3.5753688281565914`*^9, 3.575369208032859*^9, 3.575369528769422*^9, 3.5753696128691697`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", "nucleus"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", RowBox[{"Vnn", "=", RowBox[{"Vnn", "+", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vnn"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526609667845`*^9}, 3.5691527650033674`*^9, { 3.5691528050174375`*^9, 3.5691528220994673`*^9}, {3.5691528694611506`*^9, 3.5691529180864363`*^9}, {3.5691531888249116`*^9, 3.569153192974519*^9}, 3.569153245359411*^9, {3.5691532970111017`*^9, 3.5691533046239147`*^9}, { 3.5691708905147295`*^9, 3.56917090235515*^9}, {3.5691714357512875`*^9, 3.569171449775712*^9}, 3.56917197825784*^9}], Cell[BoxData["778.0662900026281`"], "Output", CellChangeTimes->{3.5753685093232317`*^9, 3.57536863382705*^9, 3.575368675900324*^9, 3.5753688281721916`*^9, 3.575369208048459*^9, 3.575369528785022*^9, 3.5753696128691697`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "now", " ", "add", " ", "the", " ", "energy", " ", "terms", " ", "of", " ", RowBox[{"Cl", "[", "Ne", "]"}], "7"}], "+", " ", RowBox[{"from", " ", "Ne_s24b2", RowBox[{"_atoms", ".", "nb"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ "Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", "Vne", "\[IndentingNewLine]", RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.296", "*", RowBox[{"(", RowBox[{"nj", "+", "2"}], ")"}], "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"rpi", "^", "2"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Tlp", " ", "=", " ", RowBox[{"8", "*", "2.25", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rlo", "^", "2"}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", RowBox[{"Ttot", "+", "Tpi", "+", "Tlp"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 3.57184067742369*^9, {3.572851887958485*^9, 3.5728519643206196`*^9}, 3.573124110349741*^9, 3.5731249811744704`*^9, {3.573321827294856*^9, 3.573321828074857*^9}, {3.5733218842973557`*^9, 3.573322060546466*^9}, { 3.5733223511749763`*^9, 3.573322362562996*^9}, {3.5733662939947844`*^9, 3.573366334227255*^9}, {3.573366373336523*^9, 3.5733663802005353`*^9}, { 3.5733670479305086`*^9, 3.573367141577473*^9}, {3.573367235162038*^9, 3.5733672396704454`*^9}, {3.5733673160013795`*^9, 3.573367336141015*^9}, { 3.57337971917793*^9, 3.573379817005702*^9}, {3.5733798503429604`*^9, 3.5733798602021775`*^9}, 3.574672644355228*^9, {3.5746726806096916`*^9, 3.5746727600450315`*^9}}], Cell[BoxData["979.4663462176281`"], "Output", CellChangeTimes->{3.5753685093232317`*^9, 3.5753686338426504`*^9, 3.575368675915924*^9, 3.575368828187792*^9, 3.575369208064059*^9, 3.575369528800622*^9, 3.57536961288477*^9}], Cell[BoxData["778.0662900026281`"], "Output", CellChangeTimes->{3.5753685093232317`*^9, 3.5753686338426504`*^9, 3.575368675915924*^9, 3.575368828187792*^9, 3.575369208064059*^9, 3.575369528800622*^9, 3.57536961288477*^9}], Cell[BoxData[ RowBox[{"-", "3052.549300075333`"}]], "Output", CellChangeTimes->{3.5753685093232317`*^9, 3.5753686338426504`*^9, 3.575368675915924*^9, 3.575368828187792*^9, 3.575369208064059*^9, 3.575369528800622*^9, 3.57536961288477*^9}], Cell[BoxData["13.17857142857143`"], "Output", CellChangeTimes->{3.5753685093232317`*^9, 3.5753686338426504`*^9, 3.575368675915924*^9, 3.575368828187792*^9, 3.575369208064059*^9, 3.575369528800622*^9, 3.57536961288477*^9}], Cell[BoxData["14.222222222222221`"], "Output", CellChangeTimes->{3.5753685093232317`*^9, 3.5753686338426504`*^9, 3.575368675915924*^9, 3.575368828187792*^9, 3.575369208064059*^9, 3.575369528800622*^9, 3.57536961288477*^9}], Cell[BoxData[ RowBox[{"-", "1295.0166638550768`"}]], "Output", CellChangeTimes->{3.5753685093232317`*^9, 3.5753686338426504`*^9, 3.575368675915924*^9, 3.575368828187792*^9, 3.575369208064059*^9, 3.575369528800622*^9, 3.57536961288477*^9}], Cell[BoxData["647.5006741741452`"], "Output", CellChangeTimes->{3.5753685093232317`*^9, 3.5753686338426504`*^9, 3.575368675915924*^9, 3.575368828187792*^9, 3.575369208064059*^9, 3.575369528800622*^9, 3.57536961288477*^9}], Cell[BoxData["2.0000236532677067`"], "Output", CellChangeTimes->{3.5753685093232317`*^9, 3.5753686338426504`*^9, 3.575368675915924*^9, 3.575368828187792*^9, 3.575369208064059*^9, 3.575369528800622*^9, 3.5753696129003696`*^9}], Cell[BoxData[ RowBox[{"-", "647.5159896809316`"}]], "Output", CellChangeTimes->{3.5753685093232317`*^9, 3.5753686338426504`*^9, 3.575368675915924*^9, 3.575368828187792*^9, 3.575369208064059*^9, 3.575369528800622*^9, 3.5753696129003696`*^9}] }, Open ]] }, WindowSize->{1044, 949}, WindowMargins->{{Automatic, 269}, {Automatic, 2}}, 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, 1926, 33, 72, "Input"], Cell[CellGroupData[{ Cell[2508, 57, 333, 7, 52, "Input"], Cell[2844, 66, 3068, 55, 287, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5949, 126, 731, 15, 52, "Input"], Cell[6683, 143, 2887, 73, 341, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9607, 221, 657, 11, 31, "Input"], Cell[10267, 234, 635, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10939, 249, 955, 14, 31, "Input"], Cell[11897, 265, 213, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12147, 273, 1560, 29, 31, "Input"], Cell[13710, 304, 638, 10, 31, "Output"] }, Open ]], Cell[14363, 317, 1419, 23, 31, "Input"], Cell[15785, 342, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[17402, 375, 1234, 18, 31, "Input"], Cell[18639, 395, 1656, 47, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20332, 447, 697, 14, 31, "Input"], Cell[21032, 463, 473, 9, 31, "Output"] }, Open ]], Cell[21520, 475, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[22453, 503, 6113, 128, 172, "Input"], Cell[28569, 633, 565, 10, 52, "Output"], Cell[29137, 645, 565, 10, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29739, 660, 519, 12, 31, "Input"], Cell[30261, 674, 639, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30937, 689, 1428, 39, 72, "Input"], Cell[32368, 730, 504, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32909, 744, 827, 23, 92, "Input"], Cell[33739, 769, 214, 3, 31, "Output"], Cell[33956, 774, 213, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34206, 782, 328, 6, 52, "Input"], Cell[34537, 790, 239, 3, 31, "Output"] }, Open ]], Cell[34791, 796, 1824, 35, 72, "Input"], Cell[36618, 833, 5011, 125, 232, "Input"], Cell[41632, 960, 1442, 19, 30, "Text"], Cell[43077, 981, 1997, 39, 52, "Input"], Cell[45077, 1022, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[46433, 1062, 4977, 90, 72, "Input"], Cell[51413, 1154, 4211, 73, 356, "Output"] }, Open ]], Cell[55639, 1230, 1027, 14, 31, "Input"], Cell[CellGroupData[{ Cell[56691, 1248, 3846, 83, 132, "Input"], Cell[60540, 1333, 579, 10, 52, "Output"] }, Open ]], Cell[61134, 1346, 2072, 49, 112, "Input"], Cell[63209, 1397, 561, 12, 52, "Input"], Cell[63773, 1411, 2148, 49, 92, "Input"], Cell[65924, 1462, 2452, 56, 92, "Input"], Cell[CellGroupData[{ Cell[68401, 1522, 3677, 96, 172, "Input"], Cell[72081, 1620, 237, 3, 31, "Output"], Cell[72321, 1625, 237, 3, 31, "Output"], Cell[72561, 1630, 237, 3, 31, "Output"], Cell[72801, 1635, 237, 3, 31, "Output"], Cell[73041, 1640, 237, 3, 31, "Output"] }, Open ]], Cell[73293, 1646, 2075, 35, 72, "Input"], Cell[CellGroupData[{ Cell[75393, 1685, 3969, 94, 172, "Input"], Cell[79365, 1781, 327, 7, 31, "Output"], Cell[79695, 1790, 287, 5, 31, "Output"], Cell[79985, 1797, 469, 9, 31, "Output"], Cell[80457, 1808, 284, 5, 31, "Output"], Cell[80744, 1815, 472, 9, 31, "Output"], Cell[81219, 1826, 286, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81542, 1836, 2672, 54, 132, "Input"], Cell[84217, 1892, 211, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[84465, 1900, 2771, 55, 92, "Input"], Cell[87239, 1957, 338, 7, 31, "Output"] }, Open ]], Cell[87592, 1967, 4820, 136, 232, "Input"], Cell[CellGroupData[{ Cell[92437, 2107, 4848, 118, 232, "Input"], Cell[97288, 2227, 325, 7, 31, "Output"], Cell[97616, 2236, 2516, 83, 341, "Output"] }, Open ]], Cell[100147, 2322, 9357, 153, 192, "Input"], Cell[109507, 2477, 8108, 111, 49, "Text"], Cell[117618, 2590, 13129, 308, 1172, "Input"], Cell[130750, 2900, 2314, 32, 49, "Text"], Cell[133067, 2934, 3087, 48, 72, "Input"], Cell[136157, 2984, 15082, 331, 1172, "Input"], Cell[151242, 3317, 368, 6, 49, "Text"], Cell[151613, 3325, 2666, 63, 232, "Input"], Cell[154282, 3390, 19027, 473, 1372, "Input"], Cell[CellGroupData[{ Cell[173334, 3867, 2406, 46, 92, "Input"], Cell[175743, 3915, 17080, 304, 177, "Output"] }, Open ]], Cell[192838, 4222, 2544, 35, 49, "Text"], Cell[195385, 4259, 4018, 84, 212, "Input"], Cell[199406, 4345, 21547, 509, 1412, "Input"], Cell[CellGroupData[{ Cell[220978, 4858, 4074, 68, 92, "Input"], Cell[225055, 4928, 9117, 173, 170, "Output"] }, Open ]], Cell[234187, 5104, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[237285, 5166, 939, 17, 72, "Input"], Cell[238227, 5185, 2071, 48, 92, "Output"], Cell[240301, 5235, 213, 3, 31, "Output"], Cell[240517, 5240, 213, 3, 31, "Output"] }, Open ]], Cell[240745, 5246, 10201, 233, 192, "Input"], Cell[250949, 5481, 6427, 103, 92, "Input"], Cell[257379, 5586, 10215, 234, 152, "Input"], Cell[267597, 5822, 5925, 93, 31, "Input"], Cell[273525, 5917, 12382, 225, 132, "Input"], Cell[CellGroupData[{ Cell[285932, 6146, 15921, 304, 352, "Input"], Cell[301856, 6452, 126583, 2178, 407, 15702, 359, "CachedBoxData", "BoxData", \ "Output"], Cell[428442, 8632, 27135, 475, 375, 9159, 179, "CachedBoxData", "BoxData", \ "Output"], Cell[455580, 9109, 8797, 179, 375, "Output"], Cell[464380, 9290, 9483, 216, 375, "Output"], Cell[473866, 9508, 7735, 172, 374, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[481638, 9685, 4855, 104, 152, "Input"], Cell[486496, 9791, 219, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[486752, 9799, 2499, 47, 92, "Input"], Cell[489254, 9848, 220, 3, 31, "Output"] }, Open ]], Cell[489489, 9854, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[491355, 9887, 4922, 109, 192, "Input"], Cell[496280, 9998, 214, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[496531, 10006, 5644, 106, 92, "Input"], Cell[502178, 10114, 2179, 67, 72, "Output"], Cell[504360, 10183, 1024, 16, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[505421, 10204, 4670, 80, 92, "Input"], Cell[510094, 10286, 212, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[510343, 10294, 2695, 47, 112, "Input"], Cell[513041, 10343, 233, 4, 31, "Output"], Cell[513277, 10349, 214, 3, 31, "Output"], Cell[513494, 10354, 216, 3, 31, "Output"], Cell[513713, 10359, 214, 3, 31, "Output"] }, Open ]], Cell[513942, 10365, 2066, 30, 31, "Input"], Cell[CellGroupData[{ Cell[516033, 10399, 2963, 56, 112, "Input"], Cell[518999, 10457, 233, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[519269, 10465, 1609, 39, 92, "Input"], Cell[520881, 10506, 233, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[521151, 10514, 3848, 80, 132, "Input"], Cell[525002, 10596, 230, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[525269, 10604, 499, 15, 52, "Input"], Cell[525771, 10621, 244, 4, 31, "Output"] }, Open ]], Cell[526030, 10628, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[527436, 10653, 1709, 32, 52, "Input"], Cell[529148, 10687, 250, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[529435, 10696, 1415, 43, 72, "Input"], Cell[530853, 10741, 249, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[531139, 10750, 2550, 50, 92, "Input"], Cell[533692, 10802, 230, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[533959, 10810, 3168, 62, 232, "Input"], Cell[537130, 10874, 228, 3, 31, "Output"], Cell[537361, 10879, 228, 3, 31, "Output"], Cell[537592, 10884, 245, 4, 31, "Output"], Cell[537840, 10890, 228, 3, 31, "Output"], Cell[538071, 10895, 229, 3, 31, "Output"], Cell[538303, 10900, 246, 4, 31, "Output"], Cell[538552, 10906, 228, 3, 31, "Output"], Cell[538783, 10911, 232, 3, 31, "Output"], Cell[539018, 10916, 248, 4, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)