(* 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[ 513285, 10783] NotebookOptionsPosition[ 504668, 10512] NotebookOutlinePosition[ 505169, 10532] CellTagsIndexPosition[ 505126, 10529] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "9", " ", "March", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9, {3.571827748466633*^9, 3.5718277615706563`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.570856547809803*^9, 3.5708565502590075`*^9}, 3.5708567094884872`*^9, 3.5709425310070767`*^9, 3.5718260162795906`*^9, { 3.5718335328027935`*^9, 3.5718335566708355`*^9}}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtVHlIk2EYF9MQMzs0s0trf3RJhdYfikdPM13qJDSPKbPmdN/msjbbXFOb 17akAzLS6ACli8o0OqQiQp+yoCTtzsI/wiJMzdBKyy773vfZCx8fz/Ycv+N5 vyVqQ6rG3c3NLUx8pojPoXtjy5UVW9Ejw3fVtfoUvJ3g4x5S4wP7Nqg+PtUr 8I75SKBHQCScOC6eAgW2PrS0NZ5WwNHYA4X9ZVHo1bwwO99PAZv6Sv0v39wK StYwKgU2tdsWhZ/3w67H4pGHY4Ve7KRQoHMo5VZQXBYsC2WV4cDn5iig54wx 2jszC/0vy/pKdcXI+/gocUf/74ujiRnI/+814TNJ70T54EpMvRXkHJrQ4lnx 555eE9QEvO3+4RcCK1jhiBYYHFlBMb1nKYGxCojIAG/WaP9OHF8uJkbn4tSq +tgDzQuAx04dsvH+3UlQxoBIdch51eiAz+lIorkROuJ5cCewMAVyYdsx+ZyD nQup73QbchxWATlNczp+Fmk7p5Vihyj3oeoQwjVchLzep5T0zQohvT4VAc/z tQGvKxOA81ang8BOXRXhmptH/QYFwvWqEhdl50e+2yyn+Kqr/+tKl95yiGYC tBRBMDOitorwj6hJ/xlaYDYFOuLIp1Ua5HkxAtztPBV349tGwmPSAN+bGQKu ZcdgJL6gxw/nTt5fPJJGebGCS2cV8ek2Itc1TCD+81TE942R9NcYiZ+gh38v rQNLH6Uh90taTjjKDWjqmf11g0GCvP6vFROZsePp1P+0hfz7Z4UHi6/s0o2m U9xgAc4nuZxw2Q0QuHSL55lUCc3b46A9ul6A3IerAs1dbUfOO09KOsotxHeN HaTi9ZBsl5KO8Rba/xIH9dtbQPwGBNAdHt6z/hWgeqYiorVZhUXcgFxoGn2e rK4F2N3WOH/NMxX5kpNLc1oNWMv0bdfg97+iEE3xwOvytfie9Q3NBDd2Rgop ztHSXntnkt5jhbSvlwzk0wsNOBq6mp7UxyOvu2Ajvr/1GJz3JVt6T4Yct6ME p4jX5K2QAHx/ZGbi6yyBn1tEZ5UJGMMGxZqpf4trPyf1UFfjzH7RLCP+XnbC oRFc98n1dq9Gw2w7dmbJaL8mTZTnXg38u6KWAc/7ZYJ1bK6nnfBHCnTf/gjw HyNvO44= "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[23, 24.], SphereBox[24, 24.], SphereBox[25, 24.], SphereBox[26, 24.], SphereBox[27, 24.], SphereBox[28, 24.], SphereBox[29, 24.], SphereBox[30, 24.], SphereBox[31, 24.], SphereBox[32, 24.], SphereBox[33, 24.], SphereBox[34, 24.], SphereBox[35, 24.], SphereBox[36, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[1, 34.], SphereBox[2, 34.], SphereBox[3, 34.], SphereBox[4, 34.], SphereBox[5, 34.], SphereBox[6, 34.], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.], SphereBox[10, 34.], SphereBox[11, 34.], SphereBox[12, 34.], SphereBox[13, 34.], SphereBox[14, 34.], SphereBox[15, 34.], SphereBox[16, 34.], SphereBox[17, 34.], SphereBox[18, 34.], SphereBox[19, 34.], SphereBox[20, 34.], SphereBox[21, 34.], SphereBox[22, 34.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{37, 23}, 15.], CylinderBox[{38, 24}, 15.], CylinderBox[{39, 25}, 15.], CylinderBox[{40, 26}, 15.], CylinderBox[{41, 27}, 15.], CylinderBox[{42, 28}, 15.], CylinderBox[{43, 29}, 15.], CylinderBox[{44, 30}, 15.], CylinderBox[{45, 31}, 15.], CylinderBox[{46, 32}, 15.], CylinderBox[{47, 33}, 15.], CylinderBox[{48, 34}, 15.], CylinderBox[{49, 35}, 15.], CylinderBox[{50, 36}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{1, 2}, 15.], CylinderBox[{1, 5}, 15.], CylinderBox[{1, 11}, 15.], CylinderBox[{2, 6}, 15.], CylinderBox[{2, 12}, 15.], CylinderBox[{3, 4}, 15.], CylinderBox[{3, 5}, 15.], CylinderBox[{3, 13}, 15.], CylinderBox[{4, 6}, 15.], CylinderBox[{4, 14}, 15.], CylinderBox[{5, 37}, 15.], CylinderBox[{6, 38}, 15.], CylinderBox[{7, 8}, 15.], CylinderBox[{7, 11}, 15.], CylinderBox[{7, 15}, 15.], CylinderBox[{8, 12}, 15.], CylinderBox[{8, 16}, 15.], CylinderBox[{9, 10}, 15.], CylinderBox[{9, 13}, 15.], CylinderBox[{9, 17}, 15.], CylinderBox[{10, 14}, 15.], CylinderBox[{10, 18}, 15.], CylinderBox[{11, 39}, 15.], CylinderBox[{12, 40}, 15.], CylinderBox[{13, 41}, 15.], CylinderBox[{14, 42}, 15.], CylinderBox[{15, 19}, 15.], CylinderBox[{15, 43}, 15.], CylinderBox[{16, 20}, 15.], CylinderBox[{16, 44}, 15.], CylinderBox[{17, 21}, 15.], CylinderBox[{17, 45}, 15.], CylinderBox[{18, 22}, 15.], CylinderBox[{18, 46}, 15.], CylinderBox[{19, 20}, 15.], CylinderBox[{19, 47}, 15.], CylinderBox[{20, 48}, 15.], CylinderBox[{21, 22}, 15.], CylinderBox[{21, 49}, 15.], CylinderBox[{22, 50}, 15.]}}]}, Boxed->False, ImageSize->388.2535796782632, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.5718335943449016`*^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.571826016295191*^9, 3.5718335566708355`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "2.3052767473999998`"}], RowBox[{"-", "1.32921437114`"}], "0.06738762915999999`"}, { RowBox[{"-", "1.8456764869399997`"}], "0.51185118436`", RowBox[{"-", "1.845317439`"}]}, {"1.8621548976599998`", RowBox[{"-", "0.53826955384`"}], "1.81986282978`"}, {"2.3219063362`", "1.3027771043999998`", RowBox[{"-", "0.09284790755799999`"}]}, { RowBox[{"-", "0.459203418`"}], RowBox[{"-", "1.84029076784`"}], "1.9101350408`"}, {"0.46018607551999996`", "1.8418025486399998`", RowBox[{"-", "1.9154262735999998`"}]}, { RowBox[{"-", "6.472878467799999`"}], RowBox[{"-", "2.1200835994`"}], RowBox[{"-", "1.68508757146`"}]}, { RowBox[{"-", "6.0034705293999995`"}], RowBox[{"-", "0.25431932508`"}], RowBox[{"-", "3.6246834405999997`"}]}, {"6.004415392399999`", "0.25585000314`", "3.6193922078`"}, {"6.473823330799999`", "2.1215953801999996`", "1.6798152359199998`"}, { RowBox[{"-", "4.6169785632`"}], RowBox[{"-", "2.6064990718`"}], "0.13074069331`"}, { RowBox[{"-", "3.7072644668`"}], "1.0508766286`", RowBox[{"-", "3.6677691934`"}]}, {"3.7083983024`", RowBox[{"-", "1.0493648478`"}], "3.6624779606`"}, {"4.618112398799999`", "2.6080108525999997`", RowBox[{"-", "0.13601869802799998`"}]}, { RowBox[{"-", "8.7845802836`"}], RowBox[{"-", "3.3973494027999998`"}], RowBox[{"-", "1.6217250586799998`"}]}, { RowBox[{"-", "7.8748661872`"}], "0.2599318113`", RowBox[{"-", "5.420301085799999`"}]}, {"7.875811050199999`", RowBox[{"-", "0.2584200305`"}], "5.415009853`"}, {"8.7855251466`", "3.3988611836000002`", "1.6164527231399999`"}, { RowBox[{"-", "10.630653612999998`"}], RowBox[{"-", "2.8863674924000002`"}], RowBox[{"-", "3.4644346758`"}]}, { RowBox[{"-", "10.1807098524`"}], RowBox[{"-", "1.07003845024`"}], RowBox[{"-", "5.3501922512`"}]}, {"10.181654715399999`", "1.07155023104`", "5.344901018399999`"}, {"10.6219608734`", "2.8631238625999997`", "3.4859775521999996`"}, { RowBox[{"-", "0.8131868923199999`"}], RowBox[{"-", "3.2013848165999996`"}], "3.3629563896`"}, {"0.79187078304`", "3.2429587886`", RowBox[{"-", "3.3349884447999996`"}]}, { RowBox[{"-", "4.969034517`"}], RowBox[{"-", "3.9689915177999997`"}], "1.5826833195199999`"}, { RowBox[{"-", "3.3657909786`"}], "2.4553209918`", RowBox[{"-", "5.0816621866`"}]}, {"3.3559644034`", RowBox[{"-", "2.4337781153999996`"}], "5.093756433`"}, {"4.9578851336`", "3.9911013119999996`", RowBox[{"-", "1.5711748881799998`"}]}, { RowBox[{"-", "9.1489194564`"}], RowBox[{"-", "4.7613536296`"}], RowBox[{"-", "0.174181714598`"}]}, { RowBox[{"-", "7.555691465799999`"}], "1.6601620855199999`", RowBox[{"-", "6.8438316816`"}]}, {"7.5566363288`", RowBox[{"-", "1.65865030472`"}], "6.8385404488`"}, {"9.161769593199999`", "4.7641882186`", "0.173125357764`"}, { RowBox[{"-", "12.388098793`"}], RowBox[{"-", "3.8856546011999997`"}], RowBox[{"-", "3.430797553`"}]}, { RowBox[{"-", "11.5987602428`"}], RowBox[{"-", "0.69502232554`"}], RowBox[{"-", "6.741975450199999`"}]}, {"11.601027914`", "0.69611836662`", "6.7353614092`"}, {"12.3816737246`", "3.8588204919999995`", "3.4636787853999995`"} }, 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.5718335943605013`*^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.571826016295191*^9, 3.5718335566708355`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5718335943761015`*^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["36"], "Output", CellChangeTimes->{3.5718335943761015`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"un", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "\"\\"", ",", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, 3.5688146762563534`*^9, 3.56881472549004*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5718335943917017`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"num1", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146829331646`*^9}, 3.5688147231032352`*^9, 3.5688216336189733`*^9, 3.5711137970191836`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"um", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"un", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"num1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146885023746`*^9}, 3.5688147203576307`*^9, 3.56882164316619*^9, 3.57111380070079*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"us", "=", RowBox[{"Sort", "[", "um", "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146945707855`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "33"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "34"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "35"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "36"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.571833594407302*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"num", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.56881016518083*^9, 3.5688102745058217`*^9}, { 3.5688103430679426`*^9, 3.5688103543155622`*^9}, {3.5688124958093233`*^9, 3.568812496386524*^9}, {3.5688126345871673`*^9, 3.568812635491969*^9}, { 3.568812673025635*^9, 3.5688126732128353`*^9}, {3.5688127492161684`*^9, 3.568812848541543*^9}, 3.5688129280080824`*^9, {3.568813062152718*^9, 3.5688131360032477`*^9}, 3.568813172678912*^9, 3.568821701869093*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", "35", ",", "36"}], "}"}]], "Output", CellChangeTimes->{3.571833594407302*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, { 3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.1", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.2557", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.22522", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{3.5718335944229016`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.5718335944385014`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5679472243083935`*^9, 3.567947394894693*^9}, { 3.567947453425996*^9, 3.567947471241227*^9}, {3.5679475415037503`*^9, 3.5679475448733563`*^9}, {3.5679488138107853`*^9, 3.567948820877598*^9}, { 3.568820296244224*^9, 3.5688203477867146`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5718335944385014`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "6.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "1.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "8.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "17.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.5718335944541016`*^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["22"], "Output", CellChangeTimes->{3.5718335944541016`*^9}], Cell[BoxData["14"], "Output", CellChangeTimes->{3.571833594469702*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5708566311295495`*^9, 3.5708566338907547`*^9}, 3.5709425310382767`*^9, 3.571826016310791*^9, 3.5718335566864357`*^9}], Cell[BoxData["\<\"C22H14\"\>"], "Output", CellChangeTimes->{3.571833594469702*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Lighter", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", 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]"}], "\[IndentingNewLine]", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "Input", CellChangeTimes->{{3.570856658569998*^9, 3.5708566598024*^9}, 3.5709425310382767`*^9, 3.571826016310791*^9, 3.571826582373385*^9, { 3.5718266352574778`*^9, 3.5718266480807004`*^9}, 3.5718335566864357`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.3052767473999998`, -1.32921437114, 0.06738762915999999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.8456764869399997`, 0.51185118436, -1.845317439}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.8621548976599998`, -0.53826955384, 1.81986282978}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.3219063362, 1.3027771043999998`, -0.09284790755799999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.459203418, -1.84029076784, 1.9101350408}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.46018607551999996`, 1.8418025486399998`, -1.9154262735999998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.472878467799999, -2.1200835994, -1.68508757146}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.0034705293999995`, -0.25431932508, -3.6246834405999997`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.004415392399999, 0.25585000314, 3.6193922078}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.473823330799999, 2.1215953801999996`, 1.6798152359199998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.6169785632, -2.6064990718, 0.13074069331}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.7072644668, 1.0508766286, -3.6677691934}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.7083983024, -1.0493648478, 3.6624779606}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.618112398799999, 2.6080108525999997`, -0.13601869802799998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.7845802836, -3.3973494027999998`, -1.6217250586799998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.8748661872, 0.2599318113, -5.420301085799999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.875811050199999, -0.2584200305, 5.415009853}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.7855251466, 3.3988611836000002`, 1.6164527231399999`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-10.630653612999998`, -2.8863674924000002`, -3.4644346758}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-10.1807098524, -1.07003845024, -5.3501922512}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.181654715399999`, 1.07155023104, 5.344901018399999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.6219608734, 2.8631238625999997`, 3.4859775521999996`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.8131868923199999, -3.2013848165999996`, 3.3629563896}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.79187078304, 3.2429587886, -3.3349884447999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.969034517, -3.9689915177999997`, 1.5826833195199999`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.3657909786, 2.4553209918, -5.0816621866}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.3559644034, -2.4337781153999996`, 5.093756433}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.9578851336, 3.9911013119999996`, -1.5711748881799998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.1489194564, -4.7613536296, -0.174181714598}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.555691465799999, 1.6601620855199999`, -6.8438316816}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.5566363288, -1.65865030472, 6.8385404488}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.161769593199999, 4.7641882186, 0.173125357764}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-12.388098793, -3.8856546011999997`, -3.430797553}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.5987602428, -0.69502232554, -6.741975450199999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.601027914, 0.69611836662, 6.7353614092}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.3816737246, 3.8588204919999995`, 3.4636787853999995`}, 0.1]}, Text3DBox["1", {-2.9052767474, -1.32921437114, 0.06738762915999999}, {1, 0}], Text3DBox["2", {-2.4456764869399996`, 0.51185118436, -1.845317439}, {1, 0}], Text3DBox["3", {1.2621548976599999`, -0.53826955384, 1.81986282978}, {1, 0}], Text3DBox["4", {1.7219063362, 1.3027771043999998`, -0.09284790755799999}, { 1, 0}], Text3DBox["5", {-1.059203418, -1.84029076784, 1.9101350408}, {1, 0}], Text3DBox["6", {-0.13981392448000002`, 1.8418025486399998`, -1.9154262735999998`}, {1, 0}], Text3DBox["7", {-7.072878467799999, -2.1200835994, -1.68508757146}, {1, 0}], Text3DBox[ "8", {-6.603470529399999, -0.25431932508, -3.6246834405999997`}, {1, 0}], Text3DBox["9", {5.4044153924, 0.25585000314, 3.6193922078}, {1, 0}], Text3DBox["10", {5.8738233308, 2.1215953801999996`, 1.6798152359199998`}, { 1, 0}], Text3DBox["11", {-5.2169785632, -2.6064990718, 0.13074069331}, {1, 0}], Text3DBox["12", {-4.3072644667999995`, 1.0508766286, -3.6677691934}, {1, 0}], Text3DBox["13", {3.1083983024, -1.0493648478, 3.6624779606}, {1, 0}], Text3DBox["14", {4.0181123988, 2.6080108525999997`, -0.13601869802799998`}, {1, 0}], Text3DBox[ "15", {-9.3845802836, -3.3973494027999998`, -1.6217250586799998`}, {1, 0}], Text3DBox["16", {-8.4748661872, 0.2599318113, -5.420301085799999}, { 1, 0}], Text3DBox["17", {7.2758110502, -0.2584200305, 5.415009853}, {1, 0}], Text3DBox["18", {8.1855251466, 3.3988611836000002`, 1.6164527231399999`}, {1, 0}], Text3DBox[ "19", {-11.230653612999998`, -2.8863674924000002`, -3.4644346758}, {1, 0}], Text3DBox["20", {-10.7807098524, -1.07003845024, -5.3501922512}, {1, 0}], Text3DBox["21", {9.5816547154, 1.07155023104, 5.344901018399999}, {1, 0}], Text3DBox["22", {10.021960873400001`, 2.8631238625999997`, 3.4859775521999996`}, {1, 0}], Text3DBox["23", {-1.4131868923199997`, -3.2013848165999996`, 3.3629563896}, {1, 0}], Text3DBox["24", {0.19187078304000005`, 3.2429587886, -3.3349884447999996`}, {1, 0}], Text3DBox["25", {-5.5690345169999995`, -3.9689915177999997`, 1.5826833195199999`}, {1, 0}], Text3DBox["26", {-3.9657909786000003`, 2.4553209918, -5.0816621866}, {1, 0}], Text3DBox["27", {2.7559644033999997`, -2.4337781153999996`, 5.093756433}, {1, 0}], Text3DBox["28", {4.3578851336, 3.9911013119999996`, -1.5711748881799998`}, {1, 0}], Text3DBox["29", {-9.7489194564, -4.7613536296, -0.174181714598}, {1, 0}], Text3DBox["30", {-8.155691465799999, 1.6601620855199999`, -6.8438316816}, { 1, 0}], Text3DBox["31", {6.9566363288, -1.65865030472, 6.8385404488}, {1, 0}], Text3DBox["32", {8.5617695932, 4.7641882186, 0.173125357764}, {1, 0}], Text3DBox[ "33", {-12.988098792999999`, -3.8856546011999997`, -3.430797553}, {1, 0}], Text3DBox[ "34", {-12.198760242799999`, -0.69502232554, -6.741975450199999}, {1, 0}], Text3DBox["35", {11.001027914, 0.69611836662, 6.7353614092}, {1, 0}], Text3DBox["36", {11.781673724600001`, 3.8588204919999995`, 3.4636787853999995`}, {1, 0}]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.571833594516502*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {567.5, -50.}], LineBox[{{567.5, -29.50148353873829}, {567.5, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {567.5, 50.}], LineBox[{{567.5, 0.}, {567.5, 29.50148353873829}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {567.5, -50.}], LineBox[{{{587.7521058060764, -55.919483721753174`}, {613.3, -70.67}}, {{ 582.7521058060764, -64.57948372175316}, {608.3, -79.33}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {654.1, -100.}], LineBox[{{{613.3, -70.67}, {638.8478941939236, -85.42051627824685}}, {{ 608.3, -79.33}, {633.8478941939236, -94.08051627824685}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {567.5, -50.}], LineBox[{{549.9079259060571, -60.521791966477934`}, {522.8, -76.735}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {478.09999999999997`, -103.47}], LineBox[{{522.8, -76.735}, {495.6920740939429, -92.94820803352206}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {567.5, 50.}], LineBox[{{{582.7521058060764, 64.57948372175316}, {608.3, 79.33}}, {{ 587.7521058060764, 55.919483721753174`}, {613.3, 70.67}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {654.1, 100.}], LineBox[{{{608.3, 79.33}, {633.8478941939236, 94.08051627824685}}, {{ 613.3, 70.67}, {638.8478941939236, 85.42051627824685}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {567.5, 50.}], LineBox[{{549.9079259060571, 60.521791966477934`}, {522.8, 76.735}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {478.09999999999997`, 103.47}], LineBox[{{522.8, 76.735}, {495.6920740939429, 92.94820803352206}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {740.7, -50.}], LineBox[{{740.7, -29.50148353873829}, {740.7, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {740.7, 50.}], LineBox[{{740.7, 0.}, {740.7, 29.50148353873829}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {740.7, -50.}], LineBox[{{722.9478941939236, -60.24948372175317}, { 697.4000000000001, -75.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {654.1, -100.}], LineBox[{{697.4000000000001, -75.}, { 671.8521058060765, -89.75051627824685}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {740.7, -50.}], LineBox[{{{760.9650555712619, -56.05315887006799}, { 788.0685, -72.2655}}, {{755.618055571262, -64.99215887006798}, { 782.7215, -81.2045}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {830.09, -103.47}], LineBox[{{{788.0685, -72.2655}, { 815.1719444287381, -88.47784112993205}}, {{782.7215, -81.2045}, { 809.8249444287381, -97.41684112993204}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {740.7, 50.}], LineBox[{{722.9478941939236, 60.24948372175317}, {697.4000000000001, 75.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {654.1, 100.}], LineBox[{{697.4000000000001, 75.}, {671.8521058060765, 89.75051627824685}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {740.7, 50.}], LineBox[{{{755.618055571262, 64.99215887006798}, {782.7215, 81.2045}}, {{ 760.9650555712619, 56.05315887006799}, {788.0685, 72.2655}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {830.09, 103.47}], LineBox[{{{782.7215, 81.2045}, {809.8249444287381, 97.41684112993204}}, {{788.0685, 72.2655}, {815.1719444287381, 88.47784112993205}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {654.1, -100.}], LineBox[{{654.1, -120.49851646126172`}, {654.1, -131.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {654.1, -162.}], LineBox[{{654.1, -131.}, {654.1, -141.50148353873828`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {654.1, 100.}], LineBox[{{654.1, 120.49851646126172`}, {654.1, 131.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {654.1, 162.}], LineBox[{{654.1, 131.}, {654.1, 141.50148353873828`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {387.48999999999995`, -52.080000000000005`}], LineBox[{{387.48999999999995`, -31.581483538738297`}, { 387.48999999999995`, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {387.48999999999995`, 52.080000000000005`}], LineBox[{{387.48999999999995`, 0.}, {387.48999999999995`, 31.581483538738297`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {387.48999999999995`, -52.080000000000005`}], LineBox[{{{407.88992087237193`, -57.662129164895674`}, { 435.36449999999996`, -73.2445}}, {{ 402.7509208723719, -66.72312916489568}, { 430.22549999999995`, -82.30550000000001}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {478.09999999999997`, -103.47}], LineBox[{{{435.36449999999996`, -73.2445}, { 462.839079127628, -88.82687083510433}}, {{ 430.22549999999995`, -82.30550000000001}, { 457.700079127628, -97.88787083510434}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {387.48999999999995`, -52.080000000000005`}], LineBox[{{369.8980136986041, -62.60193875120541}, { 340.93499999999995`, -79.92500000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {294.38, -107.77000000000001`}], LineBox[{{340.93499999999995`, -79.92500000000001}, { 311.9719863013958, -97.2480612487946}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {387.48999999999995`, 52.080000000000005`}], LineBox[{{{402.7509208723719, 66.72312916489568}, {430.22549999999995`, 82.30550000000001}}, {{407.88992087237193`, 57.662129164895674`}, { 435.36449999999996`, 73.2445}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {478.09999999999997`, 103.47}], LineBox[{{{430.22549999999995`, 82.30550000000001}, {457.700079127628, 97.88787083510434}}, {{435.36449999999996`, 73.2445}, { 462.839079127628, 88.82687083510433}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {387.48999999999995`, 52.080000000000005`}], LineBox[{{369.8980136986041, 62.60193875120541}, {340.93499999999995`, 79.92500000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {294.38, 107.77000000000001`}], LineBox[{{340.93499999999995`, 79.92500000000001}, {311.9719863013958, 97.2480612487946}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {920.7, -52.080000000000005`}], LineBox[{{920.7, -31.581483538738297`}, {920.7, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {920.7, 52.080000000000005`}], LineBox[{{920.7, 0.}, {920.7, 31.581483538738297`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {920.7, -52.080000000000005`}], LineBox[{{902.8695791276281, -62.19262916489566}, {875.395, -77.775}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {830.09, -103.47}], LineBox[{{875.395, -77.775}, {847.920420872372, -93.35737083510432}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {920.7, -52.080000000000005`}], LineBox[{{{941.0769840541822, -57.94510649675048}, { 970.0445, -75.26900000000002}}, {{ 935.5079840541822, -67.25710649675047}, {964.4755, -84.581}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1013.8199999999999`, -107.77000000000001`}], LineBox[{{{970.0445, -75.26900000000002}, { 999.0120159458178, -92.59289350324956}}, {{964.4755, -84.581}, { 993.4430159458178, -101.90489350324954`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {920.7, 52.080000000000005`}], LineBox[{{902.8695791276281, 62.19262916489566}, {875.395, 77.775}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {830.09, 103.47}], LineBox[{{875.395, 77.775}, {847.920420872372, 93.35737083510432}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {920.7, 52.080000000000005`}], LineBox[{{{935.5079840541822, 67.25710649675047}, {964.4755, 84.581}}, {{ 941.0769840541822, 57.94510649675048}, {970.0445, 75.26900000000002}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1013.8199999999999`, 107.77000000000001`}], LineBox[{{{964.4755, 84.581}, {993.4430159458178, 101.90489350324954`}}, {{970.0445, 75.26900000000002}, { 999.0120159458178, 92.59289350324956}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {478.09999999999997`, -103.47}], LineBox[{{478.3380696312384, -123.96713394509825`}, {478.46, -134.465}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {478.82, -165.46}], LineBox[{{478.46, -134.465}, { 478.58193036876156`, -144.96286605490175`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {478.09999999999997`, 103.47}], LineBox[{{478.3380696312384, 123.96713394509825`}, {478.46, 134.465}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {478.82, 165.46}], LineBox[{{478.46, 134.465}, {478.58193036876156`, 144.96286605490175`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {830.09, -103.47}], LineBox[{{829.8552364546653, -123.96717207788429`}, { 829.7349999999999, -134.465}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {829.3799999999999, -165.46}], LineBox[{{829.7349999999999, -134.465}, { 829.6147635453345, -144.96282792211574`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {830.09, 103.47}], LineBox[{{829.8552364546653, 123.96717207788429`}, {829.7349999999999, 134.465}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {829.3799999999999, 165.46}], LineBox[{{829.7349999999999, 134.465}, {829.6147635453345, 144.96282792211574`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {294.38, -107.77000000000001`}], LineBox[{{{273.8729161550611, -102.37753986669706`}, { 244.514, -85.729}}, {{279.22491615506107`, -92.93953986669707}, { 249.86599999999999`, -76.29100000000001}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {200., -54.25}], LineBox[{{{244.514, -85.729}, { 215.15508384493896`, -69.08046013330295}}, {{ 249.86599999999999`, -76.29100000000001}, { 220.50708384493893`, -59.64246013330295}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {294.38, -107.77000000000001`}], LineBox[{{294.6180312380889, -128.26713439099015`}, {294.74, -138.77}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {295.1, -169.77}], LineBox[{{294.74, -138.77}, { 294.8619687619111, -149.27286560900987`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {294.38, 107.77000000000001`}], LineBox[{{{279.22491615506107`, 92.93953986669707}, {249.86599999999999`, 76.29100000000001}}, {{273.8729161550611, 102.37753986669706`}, { 244.514, 85.729}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {200., 54.25}], LineBox[{{{249.86599999999999`, 76.29100000000001}, { 220.50708384493893`, 59.64246013330295}}, {{244.514, 85.729}, { 215.15508384493896`, 69.08046013330295}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {294.38, 107.77000000000001`}], LineBox[{{294.6180312380889, 128.26713439099015`}, {294.74, 138.77}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {295.1, 169.77}], LineBox[{{294.74, 138.77}, {294.8619687619111, 149.27286560900987`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1013.8199999999999`, -107.77000000000001`}], LineBox[{{1031.651083844939, -97.65853986669707}, {1061.01, -81.01}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1108.2, -54.25}], LineBox[{{1061.01, -81.01}, {1090.368916155061, -64.36146013330294}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1013.8199999999999`, -107.77000000000001`}], LineBox[{{1013.5819687619111`, -128.26713439099015`}, { 1013.46, -138.77}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1013.1, -169.77}], LineBox[{{1013.46, -138.77}, { 1013.338031238089, -149.27286560900987`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1013.8199999999999`, 107.77000000000001`}], LineBox[{{1031.651083844939, 97.65853986669707}, {1061.01, 81.01}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1108.2, 54.25}], LineBox[{{1061.01, 81.01}, {1090.368916155061, 64.36146013330294}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1013.8199999999999`, 107.77000000000001`}], LineBox[{{1013.5819687619111`, 128.26713439099015`}, {1013.46, 138.77}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1013.1, 169.77}], LineBox[{{1013.46, 138.77}, {1013.338031238089, 149.27286560900987`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {200., -54.25}], LineBox[{{200., -33.75148353873829}, {200., 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {200., 54.25}], LineBox[{{200., 0.}, {200., 33.75148353873829}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {200., -54.25}], LineBox[{{182.28818049864168`, -64.56894505576615}, {173.215, -69.855}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {146.43, -85.46000000000001}], LineBox[{{173.215, -69.855}, { 164.14181950135833`, -75.14105494423386}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {200., 54.25}], LineBox[{{182.28818049864168`, 64.56894505576615}, {173.215, 69.855}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {146.43, 85.46000000000001}], LineBox[{{173.215, 69.855}, {164.14181950135833`, 75.14105494423386}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1108.2, -54.25}], LineBox[{{{1102.775, -33.75148353873829}, {1102.775, 0.}}, {{ 1113.625, -33.75148353873829}, {1113.625, 0.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1108.2, 54.25}], LineBox[{{{1102.775, 0.}, {1102.775, 33.75148353873829}}, {{1113.625, 0.}, {1113.625, 33.75148353873829}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1108.2, -54.25}], LineBox[{{1125.9118195013584`, -64.56894505576614}, { 1134.9850000000001`, -69.855}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1161.77, -85.46000000000001}], LineBox[{{1134.9850000000001`, -69.855}, { 1144.0581804986416`, -75.14105494423382}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1108.2, 54.25}], LineBox[{{1125.9118195013584`, 64.56894505576614}, {1134.9850000000001`, 69.855}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.029371608128682145`], FontWeight->Plain], {1161.77, 85.46000000000001}], LineBox[{{1134.9850000000001`, 69.855}, {1144.0581804986416`, 75.14105494423382}}]}}}, {}, {}}, ImageSize->{{0., 376.42300669107857`}, {0., 140.45678290549623`}}, PlotRange->{{126.43, 1181.77}, {-200.7670329225234, 193.01777469189255`}}]], "Output", CellChangeTimes->{3.5718335946101017`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}}], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 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}], 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[{"j", "\[Equal]", "10"}], " ", "&&", " ", RowBox[{"i", "\[Equal]", " ", "17"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"Dij", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, { 3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, { 3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, { 3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 3.5682778284359474`*^9}, 3.56882183684053*^9, {3.5688219650415554`*^9, 3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, { 3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, { 3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, { 3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, { 3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, { 3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}, { 3.571113899355363*^9, 3.571113958604267*^9}, 3.57111399989754*^9, { 3.5711140388820086`*^9, 3.571114044841219*^9}, {3.571115985874628*^9, 3.5711159997742524`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36"}, {"0.`", "2.6942894159366717`", "0", "0", "2.6579886839284654`", "0", "0", "0", "0", "0", "2.6418620521235243`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.6942894159366717`", "0.`", "0", "0", "0", "2.6628345868629917`", "0", "0", "0", "0", "0", "2.6603361880433463`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0.`", "2.694306320332628`", "2.663102090321042`", "0", "0", "0", "0", "0", "0", "0", "2.6580187413524405`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.694306320332628`", "0.`", "0", "2.660515487443902`", "0", "0", "0", "0", "0", "0", "0", "2.641602001913047`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.6579886839284654`", "0", "2.663102090321042`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220215580429888`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.6628345868629917`", "0", "2.660515487443902`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219817783262863`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0.`", "2.7319319675912`", "0", "0", "2.6416276714976377`", "0", "0", "0", "2.641853142347974`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.7319319675912`", "0.`", "0", "0", "0", "2.6415819392019584`", "0", "0", "0", "2.6440156329065854`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0.`", "2.731905645241228`", "0", "0", "2.6414270133359232`", "0", "0", "0", "2.6440193084178443`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.731905645241228`", "0.`", "0", "0", "0", "2.641498807611219`", "0", "0", "0", "2.6418531423479736`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.6418620521235243`", "0", "0", "0", "0", "0", "2.6416276714976377`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219956601878946`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.6603361880433463`", "0", "0", "0", "0", "0", "2.6415819392019584`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219202528012286`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.6580187413524405`", "0", "0", "0", "0", "0", "2.6414270133359232`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022218537702325`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.641602001913047`", "0", "0", "0", "0", "0", "2.641498807611219`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.021894661036617`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.641853142347974`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "2.657944315312976`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220366704293355`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.6440156329065854`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "2.662827661267757`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022116881093101`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.6440193084178443`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "2.662827661267757`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0221168810931003`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6418531423479736`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "2.6748147117607095`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022095863143599`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.657944315312976`", "0", "0", "0", "0.`", "2.656611038574375`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219593820226365`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.662827661267757`", "0", "0", "2.656611038574375`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022019900128895`", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.662827661267757`", "0", "0", "0", "0.`", "2.6190078356627398`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0221150956633416`", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6748147117607095`", "0", "0", "2.6190078356627398`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220035438835793`"}, {"0", "0", "0", "0", "2.0220215580429888`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.0219817783262863`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219956601878946`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219202528012286`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022218537702325`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.021894661036617`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220366704293355`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022116881093101`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0221168810931003`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022095863143599`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219593820226365`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022019900128895`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0221150956633416`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220035438835793`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.571833594641302*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\n", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708947833985987`*^9}}], Cell[BoxData["22"], "Output", CellChangeTimes->{3.571833594672502*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.570894821930666*^9}, 3.5709437180911617`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.571833594672502*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2547"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.255"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2557"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2577"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", 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[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708948169698577`*^9}, {3.570894956839703*^9, 3.5708949736409326`*^9}, {3.5708961320833673`*^9, 3.570896139696181*^9}, 3.570896314088887*^9, {3.5708963602181683`*^9, 3.5708963666609793`*^9}, { 3.570896482038782*^9, 3.570896483645585*^9}, {3.5708965159376416`*^9, 3.570896521194851*^9}, {3.5709435995777535`*^9, 3.5709436285158043`*^9}, { 3.5709436695594764`*^9, 3.5709437026783347`*^9}, {3.57094471360691*^9, 3.5709447144805117`*^9}, {3.571117678992402*^9, 3.571117755775737*^9}, { 3.571117807801828*^9, 3.5711178311706696`*^9}, {3.5711179386236577`*^9, 3.5711179514468803`*^9}, {3.5711180538922606`*^9, 3.5711181329531994`*^9}, {3.571118284803866*^9, 3.5711183600895977`*^9}, 3.571118418542901*^9, {3.5711187358786583`*^9, 3.571118760152301*^9}, { 3.5711189251069903`*^9, 3.571118931175401*^9}, {3.571119065756838*^9, 3.571119069968845*^9}, {3.5711191828038435`*^9, 3.5711191858302484`*^9}, { 3.571119378740187*^9, 3.571119441873498*^9}, {3.571119489453582*^9, 3.5711194938839893`*^9}, {3.571119574255331*^9, 3.571119584660549*^9}, { 3.5711196943599415`*^9, 3.5711197163091803`*^9}, {3.5711198294561787`*^9, 3.5711198460078077`*^9}, {3.5711199544435987`*^9, 3.571119960418409*^9}, { 3.57112005791858*^9, 3.5711200601337843`*^9}, {3.571122132488224*^9, 3.5711221772447023`*^9}, {3.5711222335764017`*^9, 3.571122265696858*^9}, { 3.5711223339157777`*^9, 3.5711223418093915`*^9}, {3.5711223939602833`*^9, 3.5711223957542863`*^9}, {3.571122528292119*^9, 3.571122529087721*^9}, { 3.5711226076026583`*^9, 3.5711226245598884`*^9}, 3.5711226547927413`*^9, { 3.571122698566418*^9, 3.571122702404025*^9}, {3.5711227857393713`*^9, 3.5711228031646023`*^9}, {3.571122843085072*^9, 3.5711228432878723`*^9}, { 3.5711232359405622`*^9, 3.571123255206596*^9}, 3.571123320991912*^9, { 3.5711233774484105`*^9, 3.5711234457765303`*^9}, {3.571123624911645*^9, 3.571123633975261*^9}, {3.571123734751438*^9, 3.5711237424110518`*^9}, { 3.5711242010206575`*^9, 3.5711242671491733`*^9}, {3.5711245724573097`*^9, 3.5711245843601303`*^9}, {3.571124620583394*^9, 3.5711246628750687`*^9}, { 3.571124751951225*^9, 3.5711247552428303`*^9}, {3.5711248069569216`*^9, 3.5711248951750765`*^9}, {3.5711250701761837`*^9, 3.5711251099562535`*^9}, 3.571125196598806*^9, 3.571135972980551*^9, {3.5711360048826065`*^9, 3.571136013634222*^9}, {3.571760985057314*^9, 3.5717610088005557`*^9}, { 3.5717610576442413`*^9, 3.571761063431852*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]], "Input", CellChangeTimes->{{3.571124951132375*^9, 3.571124964985199*^9}, 3.5711250544357557`*^9, {3.5711252381260786`*^9, 3.571125242696887*^9}, { 3.571136059092702*^9, 3.5711361005731745`*^9}, {3.5711361560936728`*^9, 3.571136166779691*^9}, {3.5711362400686197`*^9, 3.571136243375826*^9}, { 3.57113630839674*^9, 3.5711363448852043`*^9}, {3.571136388861681*^9, 3.571136392215687*^9}, {3.5711365868732414`*^9, 3.571136607385415*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "5", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "6", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "4", ",", "5", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "3", ",", "6", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "1", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "2", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "8", ",", "11", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "7", ",", "12", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "10", ",", "13", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "9", ",", "14", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "1", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "2", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "3", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "4", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "7", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "8", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "9", ",", "21"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "10", ",", "22"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "15", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "16", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "17", ",", "22"}], "}"}]}, { RowBox[{"{", RowBox[{"22", ",", "18", ",", "21"}], "}"}]} }, 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.5718335946881022`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "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.61"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.68"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}]}], "Input", CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, { 3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, { 3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, { 3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, { 3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, { 3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, { 3.5712028115629635`*^9, 3.5712028346354036`*^9}, {3.5718269150751696`*^9, 3.5718269157303705`*^9}, {3.5718269932313066`*^9, 3.571826997396514*^9}, { 3.5718293557842565`*^9, 3.5718293955799265`*^9}, {3.5718294474968176`*^9, 3.5718294764660683`*^9}, {3.571829577554246*^9, 3.571829582140654*^9}, { 3.5718306284032917`*^9, 3.571830631788498*^9}, {3.571830773686347*^9, 3.571830773920347*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.6579886839284654`", ",", "2.663102090321042`", ",", "2.6628345868629917`", ",", "2.660515487443902`", ",", "2.6418620521235243`", ",", "2.6416276714976377`", ",", "2.6603361880433463`", ",", "2.6415819392019584`", ",", "2.6580187413524405`", ",", "2.6414270133359232`", ",", "2.641602001913047`", ",", "2.641498807611219`", ",", "2.641853142347974`", ",", "2.6440156329065854`", ",", "2.6440193084178443`", ",", "2.6418531423479736`", ",", "2.657944315312976`", ",", "2.662827661267757`", ",", "2.656611038574375`", ",", "2.662827661267757`"}], "}"}]], "Output", CellChangeTimes->{3.571833594703702*^9}], Cell[BoxData[ RowBox[{"2.6512173583039376`", "\[PlusMinus]", "0.00950346736094315`"}]], "Output", CellChangeTimes->{3.571833594703702*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.688"}], ")"}], " ", "&"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CC", "]"}], " "}]}], "Input", CellChangeTimes->{{3.571152083381344*^9, 3.571152103920519*^9}, { 3.571200806148241*^9, 3.571200809159046*^9}, 3.571201865936102*^9, { 3.5712028396274123`*^9, 3.57120285544584*^9}, 3.571830672301769*^9, 3.571830734514678*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.6942894159366717`", ",", "2.694306320332628`", ",", "2.7319319675912`", ",", "2.731905645241228`"}], "}"}]], "Output", CellChangeTimes->{3.571833594719302*^9}], Cell[BoxData[ RowBox[{"2.7131083372754317`", "\[PlusMinus]", "0.021720462598646482`"}]], "Output", CellChangeTimes->{3.571833594719302*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CH", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", ">", "0"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.1"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CH", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CH", "]"}]}]}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.571202078205675*^9}, {3.5712022379343557`*^9, 3.5712022402275596`*^9}, {3.571202304764873*^9, 3.5712023101312823`*^9}, 3.571202353748959*^9, {3.5712024254310846`*^9, 3.5712024257586856`*^9}, { 3.57120276994209*^9, 3.5712027833893137`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0220215580429888`", ",", "2.0219817783262863`", ",", "2.0219956601878946`", ",", "2.0219202528012286`", ",", "2.022218537702325`", ",", "2.021894661036617`", ",", "2.0220366704293355`", ",", "2.022116881093101`", ",", "2.0221168810931003`", ",", "2.022095863143599`", ",", "2.0219593820226365`", ",", "2.022019900128895`", ",", "2.0221150956633416`"}], "}"}]], "Output", CellChangeTimes->{3.571833594719302*^9}], Cell[BoxData[ RowBox[{"2.0220379324362576`", "\[PlusMinus]", "0.00009150347713890767`"}]], "Output", CellChangeTimes->{3.5718335947349024`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5693"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.5712020689392586`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`"}], "}"}]], "Output", CellChangeTimes->{3.5718335947349024`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Gij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, { 3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.569341165522358*^9, 3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}, { 3.57059671735485*^9, 3.570596744467697*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Hij", "=", RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Hij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679601758938704`*^9, 3.5679601965327067`*^9}, { 3.567960427147912*^9, 3.567960432217921*^9}, {3.5679605764089737`*^9, 3.5679605968294096`*^9}, {3.5679607389456596`*^9, 3.5679607643581038`*^9}, 3.5681142501278777`*^9, 3.5681218877140923`*^9, 3.569341165537958*^9, 3.5693418217531104`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Kij", "=", RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Kij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679602339571724`*^9, 3.567960257419614*^9}, { 3.567960343406965*^9, 3.567960353500182*^9}, {3.5679604155258913`*^9, 3.567960421422702*^9}, {3.567960854323462*^9, 3.567960874197897*^9}, { 3.5679611596939983`*^9, 3.567961170270817*^9}, {3.5679614000124207`*^9, 3.567961407016833*^9}, {3.5679615066074076`*^9, 3.567961509649413*^9}, 3.5679616124379935`*^9, 3.5679616766477065`*^9, {3.5679617424486217`*^9, 3.5679617456310277`*^9}, 3.567961801276325*^9, {3.5679618582788253`*^9, 3.5679618970760937`*^9}, {3.5679620279135237`*^9, 3.567962030113127*^9}, 3.567962107894864*^9, {3.567962149468937*^9, 3.5679621572533503`*^9}, 3.5679623389156694`*^9, {3.567962645815009*^9, 3.567962648888214*^9}, { 3.567962691647889*^9, 3.567962693020692*^9}, {3.568048161486014*^9, 3.568048162827616*^9}, 3.5680482096900983`*^9, 3.5681142588638926`*^9, 3.568121899632513*^9, 3.5681219958534822`*^9, {3.568277844675576*^9, 3.5682778463603787`*^9}, {3.569341165537958*^9, 3.569341165537958*^9}, { 3.5693418217531104`*^9, 3.5693418217531104`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.5683793122399254`*^9, 3.568379313019926*^9}, { 3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, { 3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 3.5705968020785985`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}, { 3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 3.5705968602823005`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tval", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.567963992456174*^9, 3.567964003890994*^9}, { 3.5679640974287586`*^9, 3.5679642038209453`*^9}, {3.56796433180357*^9, 3.567964353487608*^9}, {3.567964403641696*^9, 3.567964453046983*^9}, { 3.5679646160984693`*^9, 3.5679646168316708`*^9}, {3.567964688747797*^9, 3.567964762255126*^9}, {3.568277859480002*^9, 3.568277863598409*^9}, { 3.568379511358675*^9, 3.5683795129030776`*^9}, 3.5688214977895346`*^9, { 3.56882774467134*^9, 3.56882781892747*^9}}], Cell[BoxData["72.67428744257211`"], "Output", CellChangeTimes->{3.5718335947661023`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tcor", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.5688764647552447`*^9}, {3.5692363452556133`*^9, 3.5692363456924143`*^9}, 3.569236415892538*^9, 3.5692365043134933`*^9}], Cell[BoxData["757.0834331944232`"], "Output", CellChangeTimes->{3.5718335947817025`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor", " ", RowBox[{"(*", " ", RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", RowBox[{"pairs", ":", " ", RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}]}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767685033784`*^9}, {3.568895188410715*^9, 3.5688952349923964`*^9}}], Cell[BoxData["829.7577206369953`"], "Output", CellChangeTimes->{3.5718335947817025`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TvalH", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767642445707`*^9}}], Cell[BoxData["21.983483770483925`"], "Output", CellChangeTimes->{3.5718335947973022`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TvalC", "=", RowBox[{"Tval", "-", "TvalH"}]}]], "Input", CellChangeTimes->{{3.5688726088808727`*^9, 3.568872610581275*^9}, { 3.5688726952426243`*^9, 3.5688727146490583`*^9}}], Cell[BoxData["50.69080367208818`"], "Output", CellChangeTimes->{3.5718335948129025`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"c", ",", "v", ",", "p", ",", "Q", ",", "P"}], "]"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"c1", "=", "20"}], ";", " ", RowBox[{"c2", "=", "21"}], ";", " ", RowBox[{"c3", "=", "51"}], ";"}], "*)"}], " "}]], "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}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"P", "=", RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "12", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"conn", "[", RowBox[{"[", RowBox[{"12", ",", "i"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5717611834272623`*^9, 3.571761287767046*^9}, { 3.571761989144278*^9, 3.5717619949942884`*^9}, {3.5717626601482563`*^9, 3.5717627281175756`*^9}, 3.5717640513743*^9, 3.5717643152643633`*^9, { 3.571767210754249*^9, 3.5717672165886593`*^9}}], Cell[BoxData["3"], "Output", CellChangeTimes->{3.5718335948285027`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"12", ",", "2", ",", "8"}], "}"}]], "Output", CellChangeTimes->{3.5718335948285027`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", " ", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"to", " ", "be", " ", "set", " ", "to", " ", RowBox[{"(", RowBox[{"0", ",", "0", ",", "0"}], ")"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Q", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "P", "}"}], ",", RowBox[{"{", "4", "}"}]}], "]"}]}], ";"}], "*)"}]}]}], "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.5714133752624893`*^9}, {3.5714136494641714`*^9, 3.5714136769202194`*^9}, {3.5714140550180836`*^9, 3.5714140686213074`*^9}, {3.571727178397596*^9, 3.571727294992201*^9}, { 3.571727762556222*^9, 3.5717277702158356`*^9}, 3.571761575961952*^9, { 3.5717627754636593`*^9, 3.5717629062542887`*^9}, {3.5717630000884533`*^9, 3.571763131861885*^9}, {3.5717635952762985`*^9, 3.5717636098623247`*^9}, { 3.5717636458671875`*^9, 3.5717636504691963`*^9}, {3.5717641103580036`*^9, 3.571764139015254*^9}, {3.571764227280209*^9, 3.571764231336216*^9}, { 3.571764503946695*^9, 3.57176454651917*^9}, {3.5717645924768505`*^9, 3.571764614254489*^9}, {3.571764811860036*^9, 3.571764868316535*^9}, { 3.5717649431186666`*^9, 3.571764944039068*^9}, 3.5717656631067305`*^9, { 3.5717658044741793`*^9, 3.5717658055037813`*^9}, {3.57176583912184*^9, 3.571765881195114*^9}, 3.571807177607179*^9, 3.57180734301427*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3.7072644668`"}], ",", "1.0508766286`", ",", RowBox[{"-", "3.6677691934`"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8456764869399997`"}], ",", "0.51185118436`", ",", RowBox[{"-", "1.845317439`"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.0034705293999995`"}], ",", RowBox[{"-", "0.25431932508`"}], ",", RowBox[{"-", "3.6246834405999997`"}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5718335948285027`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"P", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "p", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"MatrixForm", "[", "t", "]"}], "*)"}]}]}], "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.5714133752624893`*^9}, {3.5714136494641714`*^9, 3.5714136769202194`*^9}, {3.5714140550180836`*^9, 3.5714140686213074`*^9}, {3.571727178397596*^9, 3.571727294992201*^9}, { 3.571727762556222*^9, 3.5717277702158356`*^9}, 3.571761575961952*^9, { 3.5717627754636593`*^9, 3.5717629062542887`*^9}, {3.5717630000884533`*^9, 3.571763131861885*^9}, {3.5717635952762985`*^9, 3.5717636098623247`*^9}, { 3.5717636458671875`*^9, 3.5717636504691963`*^9}, {3.5717641103580036`*^9, 3.571764139015254*^9}, {3.571764227280209*^9, 3.571764231336216*^9}, { 3.571764503946695*^9, 3.57176454651917*^9}, {3.5717645924768505`*^9, 3.5717646223509026`*^9}, {3.5717656229210606`*^9, 3.571765642998296*^9}, { 3.5717662636921854`*^9, 3.571766367572768*^9}, {3.571807209478035*^9, 3.57180723495288*^9}, {3.5718074521676617`*^9, 3.5718074557556677`*^9}, { 3.571807570213069*^9, 3.571807697306492*^9}, {3.5718079241152906`*^9, 3.571807943599725*^9}, {3.5718096885407896`*^9, 3.571809697510805*^9}, 3.5718165284352036`*^9, 3.5718171395662766`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.8615879798600001`"}], ",", "0.53902544424`", ",", RowBox[{"-", "1.8224517543999998`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.15779404246`"}], ",", RowBox[{"-", "0.76617050944`"}], ",", RowBox[{"-", "1.7793660015999997`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5718335948441024`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Rotation", " ", "of", " ", "general", " ", "triangle", " ", "into", " ", "xy", " ", "plane", " ", "with", " ", "one", " ", "point"}], ",", " ", RowBox[{"O", " ", "atom"}], ",", " ", RowBox[{"at", " ", "0", "rigine", " ", "by", " ", "translation"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"one", " ", "leg", " ", "on", " ", "x"}], "-", RowBox[{"axis", " ", "O"}], " ", "-", " ", RowBox[{"C", " ", "atoms"}]}], ";", " ", RowBox[{"example", ":", " ", RowBox[{ "COH", " ", "in", " ", "Vitamine", " ", "A", " ", "ES", " ", "8.3", ".2013"}]}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"T1", ",", "U", ",", "T"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, 3.57172833649683*^9, {3.571761320043503*^9, 3.571761327515916*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"rotate", " ", "p1", " ", "around", " ", "x"}], "-", RowBox[{"axis", " ", "until", " ", "the", " ", "z"}], "-", "comp"}], " ", "=", " ", "0"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, 3.5717283506460547`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"T1", "=", RowBox[{"-", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, 3.5717283506460547`*^9, 3.5717284313605967`*^9, { 3.571728664549806*^9, 3.571728670509017*^9}}], Cell[BoxData["1.283225330666658`"], "Output", CellChangeTimes->{3.571833594859702*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";", " ", RowBox[{"t1", "=", "t"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "3", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{"Cos", "[", "T1", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", RowBox[{"Sin", "[", "T1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "T", "]"}], "\n", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", "T"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, 3.5717283506460547`*^9, 3.5717284313605967`*^9, 3.571728664549806*^9, {3.571807732234954*^9, 3.5718077591294007`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.`", "0", "0"}, {"0", "0.2836238057427307`", "0.9589356270449074`"}, {"0", RowBox[{"-", "0.9589356270449074`"}], "0.2836238057427307`"} }, 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.5718335948753023`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.8615879798600001`"}], ",", "1.9004943637521703`", ",", RowBox[{"-", "1.1102230246251565`*^-16"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.15779404246`"}], ",", "1.4889932567514659`", ",", RowBox[{"-", "1.2393787550761803`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5718335948753023`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Rotate", " ", "p1", " ", "around", " ", "z"}], "-", RowBox[{"axis", " ", "to", " ", "make", " ", "y"}], "-", RowBox[{"comp", " ", "to", " ", "0"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728378039703*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"T1", ",", "U", ",", "T"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728378039703*^9}, 3.571728435791004*^9, {3.5717286390437613`*^9, 3.571728643552169*^9}}], Cell[BoxData[ RowBox[{"-", "0.7957395098649818`"}]], "Output", CellChangeTimes->{3.5718335948909025`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";", " ", RowBox[{"t1", "=", "t"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "3", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"Cos", "[", "T1", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"Sin", "[", "T1", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"T", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "T", "]"}], "\n", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", "T"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728378039703*^9}, 3.571728435791004*^9, 3.5717286390437613`*^9, {3.5718077693942184`*^9, 3.571807786039448*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.6997566654270044`", "0.7143812771836056`", "0"}, { RowBox[{"-", "0.7143812771836056`"}], "0.6997566654270044`", "0"}, {"0", "0", "1"} }, 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.5718335948909025`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.6603361880433463`"}], ",", "0.`", ",", RowBox[{"-", "1.1102230246251565`*^-16"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.973152999159963`"}], ",", RowBox[{"-", "1.9283172621312599`"}], ",", RowBox[{"-", "1.2393787550761803`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5718335948909025`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"rotate", " ", "p2", " ", "around", " ", "x"}], "-", RowBox[{"axis", " ", "to", " ", "make", " ", "z"}], "-", "comp"}], " ", "=", " ", "0"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"T1", ",", "U", ",", "T"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"T1", "=", RowBox[{"-", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717284402682123`*^9, {3.571728618592126*^9, 3.571728625549738*^9}, { 3.5717637051628923`*^9, 3.571763708875698*^9}}], Cell[BoxData[ RowBox[{"-", "0.5712443550916828`"}]], "Output", CellChangeTimes->{3.5718335949065027`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";", " ", RowBox[{"t1", "=", "t"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "3", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{"Cos", "[", "T1", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", RowBox[{"Sin", "[", "T1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "T", "]"}], "\n", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], "\n", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", "T"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717284402682123`*^9, 3.571728618592126*^9, {3.5718077941670623`*^9, 3.5718078246807156`*^9}, {3.5718080993659983`*^9, 3.5718081006452007`*^9}, {3.571808212606597*^9, 3.571808244165453*^9}, { 3.5718091624922657`*^9, 3.571809166751073*^9}, {3.5718095319789143`*^9, 3.571809539186127*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.`", "0", "0"}, {"0", "0.8412288296401847`", RowBox[{"-", "0.5406792544403799`"}]}, {"0", "0.5406792544403799`", "0.8412288296401847`"} }, 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.571833594922103*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.6603361880433463`"}], ",", RowBox[{"-", "6.002745572168732`*^-17"}], ",", RowBox[{"-", "9.339516156450064`*^-17"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.973152999159963`"}], ",", RowBox[{"-", "2.2922624548614805`"}], ",", RowBox[{"-", "2.220446049250313`*^-16"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.571833594922103*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717284402682123`*^9, 3.571728618592126*^9, {3.5718077941670623`*^9, 3.5718078246807156`*^9}, {3.5718080993659983`*^9, 3.5718081006452007`*^9}, {3.571808212606597*^9, 3.571808244165453*^9}, 3.5718091624922657`*^9, 3.5718095108876777`*^9, {3.571809555768956*^9, 3.571809560589365*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Lighter", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717284402682123`*^9, 3.571728618592126*^9, {3.5718077941670623`*^9, 3.5718078246807156`*^9}, {3.5718080993659983`*^9, 3.5718081006452007`*^9}, {3.571808212606597*^9, 3.571808244165453*^9}, 3.5718091624922657`*^9, 3.5718095108876777`*^9, 3.571809555768956*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plota", " ", "=", " ", 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"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plotc", " ", "=", " ", 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"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plotb0", "=", 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[{"(*", RowBox[{ RowBox[{"Plotb1", "=", RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "c1", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plotb2", "=", RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "c2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plota", ",", "Plotb0", ",", RowBox[{"(*", RowBox[{"Plotb1", ",", "Plotb2", ","}], "*)"}], "Plotc", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\n", RowBox[{ RowBox[{"(*", " ", RowBox[{ "now", " ", "add", " ", "O", " ", "lone", " ", "pairs", " ", "perpendicular", " ", "to", " ", "COH", " ", "plane", " ", "and", " ", "retransform", " ", "into", " ", "molecular", " ", "skeleton"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717285241495595`*^9, {3.57172885463614*^9, 3.5717288695653667`*^9}, { 3.5717299854197264`*^9, 3.5717300132501755`*^9}, {3.571730085447102*^9, 3.571730106335539*^9}, {3.5717632443380823`*^9, 3.5717633006385813`*^9}, { 3.5717633829599257`*^9, 3.5717634269364033`*^9}, {3.5717637493577695`*^9, 3.5717637647393966`*^9}, {3.5717638216014967`*^9, 3.5717638263439045`*^9}, {3.5717638636747704`*^9, 3.571763964248147*^9}, { 3.5717666186552095`*^9, 3.5717667028485575`*^9}, {3.5717668402223983`*^9, 3.571766846025608*^9}}], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.5], SphereBox[{-2.6603361880433463`, -6.002745572168732*^-17, \ -9.339516156450064*^-17}, 0.2557]}, {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.2557]}, {Opacity[0.5], SphereBox[{-3.973152999159963, -2.2922624548614805`, \ -2.220446049250313*^-16}, 0.2557]}, Text3DBox[ "12", {-2.6603361880433463`, -6.002745572168732*^-17, \ -9.339516156450064*^-17}, {1, 0}], Text3DBox["2", {0., 0., 0.}, {1, 0}], Text3DBox[ "8", {-3.973152999159963, -2.2922624548614805`, -2.220446049250313*^-16}, \ {1, 0}], TubeBox[{{-2.6603361880433463`, -6.002745572168732*^-17, \ -9.339516156450064*^-17}, {0., 0., 0.}}, 0.02], TubeBox[{{-2.6603361880433463`, -6.002745572168732*^-17, \ -9.339516156450064*^-17}, {-3.973152999159963, -2.2922624548614805`, \ -2.220446049250313*^-16}}, 0.02], TubeBox[{{0., 0., 0.}, {-3.973152999159963, -2.2922624548614805`, -2.220446049250313*^-16}}, 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.5718335949377027`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfAd0Y9d55udpmlGxZVu2bEtuOdlsNpvNrkuyu/E6cYkld8eb2JFTnKjZ 0lpWsWRbLqMuSzMjTZGngORw2EmwFxSCJAASBAmSaCRRSAAEe++9D/Hy3/fu Ax8xD9T4rJP1niMc/SLKe7d89/+/v9z75mv3PvXQgz+896mH77/3I3f/6N7H H3r4/ic/ctdjP6KvDr4NeNtDJF/+CNh7AZD/J9B/wsPsf+ybt96/9f7/o/dH 2f8OMD3+Z8W3N4jvD0HSb0H6Bfju7+glu5N4N794Y2MDNpsNeXl5WFlZ+aLi 4g+I72+IX/Ltb39bbPvuu+/G888/D6PRCOX1tyc0ya6naw+IFx5mrYsXLC4u ij+1t7fjbsXtt4nvj8RvP3HihNgVu3twcPCI+PNB8fb7779fbO4uxe3vVIx2 cnJSvP3RRx8Vr2XNsOuP8TbYZDUajfjpC4o23iG+Pyq2wa7hMxCHyu7nfd/E m5FnwT79laKZmxNmIjfDZkLNHFTM5OmnnxY/3aj4jmHLelM2eWz/Jm/jt7Of 2ITZp88rbj+icjt7MZDo9tv57exn9mKTUt5+UIGLytKI1xNe7+W9sI/KS/iE PqdoUWWhGBSsMTb1A3xAvGHx03t466FQKH4d+4bPmbe+w69iLass4WGVhj+g 0Ap5OT8jtba1P+xH92lNVnM2TN7auopBya0xFAKBAGTdkmenbFJeXfbbX0pN tkvLQ6/f23+oMqJXrlwR+2Gf/lAxcXYZ+/QXUrsd/Ccll3xo/x5kaKPRaHz0 f6gCBu+hlf0RyeqQSl93JCGDc+fOscX/hIJqiouLZVQ+nXzw71fRC6ZxHPdP ij8f3jMnGZa3x0f6n6X2z8dZFAdlluWf6PVJld4lyzh2DbFw6MRf5ZX5JB8p 03H5fgVnvj2hecW4Lqj8dEBlNJ9Q+e7d+y+uvEbsJ3lg/12FkY/su6p/JA3r Igdb+ZM83k/GsX3X/iP6nIryJmLD5D/9Zth8PkmvjMPo8xcSFJpZ/j69KjTl 8B5Nkd9/TqEYaszKfmXv2W93qeB9IzeEBJ/PFSJVZWSfvg76lT0Uo1oZW7l3 pe+8MT69P5Y6TIl/8WkFjio8/DWuAsp5y57nf0htBVVWQuGzvqZAjlGOch6s ldHR0ThKkqbCJ/45mkyjZBr/OsdU9s98yDIoSh/7ZwoWfnOHr3QT3+LfKWOI P5VacyfhPq4T31WogRwq8DvbkqwtezFqYZfeqzINiXLQwvFJ5Eg5/OEMfj9v gbUuD12iFDRdHxCyK2Cf7uPfsU7Zi33PW7Pt39oRldb+hesVG5d8OfMZbKa8 Vev+enUsaatHRD1T0jLnno8raE00xY9en6I9kUAm7KePSW1dUqGrRP+boBdq Wib3wAxZNob/JjV4dl+mlv1vElX4uQr5/lcFBSS0drsKGbAXmwW1djwBBwbx Pq3d9ibociifVaHLP1E6oGtY8018oJr2/jIJj7Fb/kSxlCInvnP/9l/mP7Of ZP5nLMYp4o54O7dKDRck0Qf2ontfU5n/nSpw3iK1lqtAVc0vcD49reIG7lCB U+BhqWROyN7fHRxIGCv7dFoBt0wzH4hjcFBlJlI4joz9Yb6ogst1tXs5CXHw 7FJ2tkpifZ+6oqkFHkeVCv+m1JHKG5Yv477z9vg8DsTfKWJUQfSYChNQB0lB Jow4ZDLR8FtYoCpfyrSCO6EPJp/UrxV+SfbVrAVlzJGrAt+uyktxDs6p0BK7 mHO3VsUz/YF05+nrw7VQhZJ5C6eujx2U9FuoMqf/ILX26v6tHVFprUiFdH9f au3euL19NEm7LEsiuGXvxtbV5XIpRrmbTHEv/I54m1IkjgeS+on941e2WGyl 9Xxo7L18TWVlpWyE71BpXmJM/AP7I1rRYZWL3qfQrkTmkkOXgyrzrlbBc//8 hQ/nvrhavl+BtgqtNSRoE0NELVvg7d6v8lNiVUypJ5ADrr1kdkvyHtSW8Nb9 NVGNq+wqyN2cvNdd7XyTvg4pZiNrT1MChgzam+ILILlsHuccucYNswFSQ16F hrOfOFIflm5+VEENap6PlwhcCZcl5vHcI/JGH1FhKhWHx/pgl7BPTj5KNlOV BVACIIWCeHh/OGVjYSQtL0mnisJIzI3vqbTGXpxce1XI7E6l4r4pufbzFpQe XSKQeIT9JuSqdEd9ipnIeRBv7Z9U1EFRPRpTqIPcGc3oDgXZqIS+7C99N85/ Tlgl2edItTrco+DFZAUf2b9Mq0xEIhaeJb6pvShtblplmSSGxMdVLv9gkkXn PdygcsuMivXfnrwHtW0EeQ4sGGDYHlVAIBv+bILeM1h4N38UZ+kD8XfvS7Lm 3BOpVZQ3FFol24JUqeNJ0t786737+Bk5ilEymLzOa+L/D+9RKBli3t3H4oSm 5HvlxdwIRUjfxq9h01RuTXAX857ENt95feap2CnYyw+3JV/c69zqYGGFXHXe 041ShziX/8X+TSo2avZyIr/9UwnqptQDucgutvEulZnySEeqQN2470qzK3jJ dk9z7B52LUuOeHN/loRR+NrJOqMsnItN3soVR4mAPFvuWj+RxHz5dp5iH+/I ni0FxaRvVWp8ciVRzvXDfMTsN5ljpCXBf7k+hVD6vT1NKn3D2xXW/iYKodxo kDmU3/4fr0MhDvMF73WHMUgyQuLW6NBJEiSJkMx7wlgkWfKExS7lXFpJtDfE bU5aVB7tH0taUmO/ylhIFPVOBKnzcurQRNJA0kLiIfFr9Ail6BFN02Hgsg7D V3QYy9JhMluH6RwdZnJ1WPeHsTU5I2H63iTEwzo/wn1gQmbKc0XlZpJK9CJN 7l1xWg7QiAtphGzU1TTKeo0BDo2RRl0Nf4oJoVQTei+bMJhpwmiOCZN51ZjR GjFXZMBCsf4glkp11PVqowPbUzO7SiEXZBKJjq/w4X3n8OEkpsGZVPJs7xe/ slY5oKWxl9LY9TRui6YGzZo6uDQW+FLq0X25Ab1ZDRjKtWGsoAFTRQ2YLbVi ocKC5ao6rOpqsG6oxobRQKLHhkGHNT2thoMmNL1nNfbqy6F9Z/BBrlPK0TNa Yf5K3i2SpnGHCEvB5TJxGoU0hUoafq2mHo0aG9pSmtB+uRnBKy3oyW7FQH4r RotaMVXWirnKFizqHVipbsZ6jR2bdTZsm+uxbTHjqsVEYsBVsw6btTqsVuuw PcOnc5grFzOVMZJJkmmS1dGZeC7AVIcNXvq031Tv5OzDVln5YtNmU+YORJrt naLCaWmxtLRQJTRLg8YOq6aFlK4NnjQ3/BkehHPb0a9tx0hpByYqOjCjb8di NSlRrRfrFg+26l24amvDjt2BWBOlGU0N9NdMf02INeqx3UCLWEcznp2JcTrq om7DJDUEcj1JM4mLpEOmiRQd+lJ1GCTrHE3XYbbagdXOsDK6kU1mfziOxXlE rR61W+A5uEs1h0WVkF/yiYcbOWB555lq1KFI00hW2kIzcMGW6kVreic6Mv3o ygsgWtSFwbIujOm6MW3sxnxtF5YtXVhvCGLLHsDVZh9iLR0Q2iifclI65Gol IeBclOc6ayG0kqo06ege3bbY7W2YJGVgxlXMycFIYqF1s5O0EUm0kwRSjIik GtGXbsRwhgFj2QZM5eoxk6/HnJZ4t1CHlQaRGY4kmFAcSCXlHlVHNompyeAp v5Zdu1w+kytMzPVLrX8I3iY3AVpL0kQa6IRO0w6zxoemtC64skLw5UcQKu5B X0UUw/peTJh6MWvuxWJDL1btUWw6enC1LYIdVxgxTzcEL4UlHT4SAreTwO1s ofeNENpJI11Gup7opD8shay3x4GVzF2HMgJUR2DWkunbNCbyGTXEvrXwp5oR SjejN8OCoWwzxvLMmCqsw1xJLRbKTFiuMGK1So+1KjJvkq1wOI6UsrZIzpIX DncjbkWJ8ZAMp/w3aflR/TuJqZkjlF8KJylDXl1goPnaSVw0304YUrpgvRyG IzMKT34fpoLzmA0tYCGygKXoIlb7FrE+sIjNoUVsDy9gZ3QBsbF5xDooEfVR OhvogRAMQegKklBi3O2hv6TTQTv9bsaOx4Alu046tfFREXIGtyxFBHcFObhq gtlKjqKJeMiZYkNHaiO6LjehJ7MJA7nNGNU2Y7KkCbPldixWNWLF0ID1ais2 a+qwVWvCdq2e3tPqtjpU6wryVhZTdl5PvUEN3finxCXhr90lORinDnrLqmEy Rx/lDifrRDYKLjTTNH1ktt2oTolioH0eCxPrUrtiMzfwoEmYWYAwTEl1D+EZ JVWO+uk9hXCRNgghwjJQiw23XkqDPpiAI+PwauIHM6oIvxqipwZNM6lvC/F4 G/G4E+FsF/ry3Rgu8mC8zI2ZKjcWDC4sm5xYr2vFlsWBq/VN2LERf9vMJEb6 TMRcrosHr8ojVzJx3HD9WB5OxHJXlQ8psZRr2rtYHkLOiSIUnG2gaYbQ7Z5L Encd5XGisE7qNjEKYTAMYYD0sp/4tpdwDJNb9ldjoM2DFc7pe4E0ivxeSCCW ko3oCUAz0ZI9xY22NC/ar3QgmNOJHq0fAyV+jFYEMKkPYK7aj6U6P9asPmza OnDV7kWs2U08T3bQ2kxSD6GFlLRRp5ayHVFgeFjFso/tfnU4vsMrv9jnYxwO r82FvFfLoX2tHlMDMzfs3q1ECX5XSAyJLSTMCetIDsuR9wZp2PQwhBGCbYjU r58iG1c1hj0csgMiUneICqclg9WSshUTThXEJ0aNl4y4E81pfrgygujM7Ua3 NoTe0jCGKiMYN0QwXRPBgiVCziiCDXsI245u7LRRZy7Sdw+tk9dNQrTtJWty 1WC81R2vVysTVSVoCk3gr0Mc2ISvryXWA/x+ZchECngjR7u9wYu8Vyg78JD2 TJBz2VxV6rp0kOXElwoR+pkZ3T+tQddTRgR/pEPg8Ur4Hy2D/5ES+B4uROf3 89HxYC6892dh6EwJRi9kY/RcCoZOnkbHI6fQ8u034PjWOTT97VnY/+YMbN98 HfV//Ros3zgJ89dPoPZrr6D6q7+C4SsvQ/elF1HxxRdQdvdzKL7rWWi/cBy5 n/8lMj/3c6R+9mlYnkzHSH4jhvMo2M6pJ5dlwWCWGQOZdejPqKUYoYYSiWpK gYzoSTVQwKVHmBY1RNLNg7CAmCrp4OOBmZfEzQO1Np5OscCtkQdxZp5qVbF0 i7saKb7UcVWxil5eS7FlicZD13XClBJAfWo3HFcicOdG4S/sRai0H31VAxg2 DmAlOo+1vnkK/iaw2jyAzdZ+8vR9iHmj5NUj5F6IJv2kNgHS0wAtkM+GXp1R rfjCuUc0oqNqCqLmeWmllT8zYW3KdHgTb6K9vhN1FHrFBkhrR2goY10Qlmel Ll+5poeiyh20eAW0egQ4SVwkHrcAr4vEKaCDSZuAzlYBvhYBfpJh9yCm2igC pyi7pz6K7sYYQjaShh2E668iYt1GxLKNnrot9NRuIlpDYtpAb/U6eg1r6NWv EjIrhOwyxVJL6CtfRF/ZAvpL5tFfPIf+wlmK8mfQnz+N/rxJ9OdMoD9rHP2Z Y+i/MoL+y8PoTxtCf8og+i/RCl3sRd95isveCKP3bDd6TwcRfc2P6KlORE+0 I/qKGz0vO9HzYisizzsQftaO8HEbQr+wovtpM7p+cq2l+B4pJkvR7rEUz79k wP3dy3D9Yyqcf38JbfdcSLCU03sspU5pKV++1lIK/opZyi+QQZaS8pmnYSZL GWaWkitZyqDSUq4wSzFdt6V0JliKU2EpTQmWUk1SSfI8Z2hLeQN3PoxQm8Xg TKvpIEvxEzt3ozYtInHcMdkrTlK0MDVP0RZFYGEyhQjpXISirzC5+8wc2QTk Mpp0dlzUwMRqt2QMskXshqTiFXLNc6xvAsMNpOI9FEv3O8kzUFfDZH3TI8xj SL7JoWpMvXMCekisYQGTwzFsR5Yh2LtxNT0XPQ89i8ViPQbJIbFry0MCTpIq 1lGC2VxrgcXZhcYRAU2j1PoYmcw4mcyEADeJd1JAO0kniW+KzIQkOC2gi6Sb JEQSJomQ9JBESXpJ+kj6SQZIBpnQfUMkNV0CLjYLuExml0kmmEvmWECmWUSm WkpSTlLVLkDfIaCaxERSS2ImsZI00G+NJHaSJrrWQfKbmnnAQXOgMXQ10Rzs wm/HzEv/jcz8VS969jXzOjJzk8LMK+D/IZn5D5RmngPvfczMr6iaeTM388b/ LZv5qbiZ18TN/CVUcTMvJTMvuusZ0cxzuJlryMxrVcx8gJl5BjPzmmvNnExT NvOu6zDzVhIHN3MbiZWkjifqpRqddDz1FhS8USiGl5IfZBbeSRIkK6f0q2oU s6PriX4ovjUgrFFc1kd+r78bk03N8BcUY3l8RE681YrbPHc5vH8olCSj342Q 3s05as2rR6yL8uhIEwXTlFv3Ewf0s+Ca6Gecgu21dcVdh/mc++fJ5EgaewRM k/lfDS1CaPBjKyULy5psOJ7KJgy6oct0wVtZjgGfC38u3mtEGdGBIUqm2U9m NkgmNiz8u9LBhabrowPj/yM6CF8vHVTuQwcFjA6m/i/owIfoSQUdvCTTQfP+ dPDYXjro+H4e2h9IpIMUtBEdtN5z/vro4Cu/gj5OB8+LdFD4hWeQz+ngymd/ JtLBSIGdYmOZDqwSHWSaKTZWoYOU5HTg43TQfp10YGBRgyt0kMeW2jeKxexJ SxmmRAVdsFaNUEa6pnpu5hZuqcLUKPxlDfCXVGLS3y5Hskk2pg4qIt+EPClJ cSlJUVXtCIu0NXczFpt12OmgbDZohRCihDdM/BBhxQtKmSIUJ4R76Ps+KWSZ XDjGKWVwgRkQhcNk5LNEDjvd9LOlA5sX0tHz8zco39ZAOiR7EmXdCWQw9O9I BkGJDNI4GeT8G5JB+2+NDDauJYOqJLFBkUwG0ypkMJpABgPo25cMOvaQQUQm g2cYGTQg9HNLnAyCTxoUZFBKZFCEc187g7NfTcXZL2fhzJfyUfVP5btk8B0i g78jMvgWkcHfEhn8zVlRHRs4GXj/7pWbuPJaqwZhyaNguNKAya5OefNAudd6 QGEZhxLsgL2OxA1kt1onKfxHsTEYxlabDrF2E6WdpPSBJikFDXroLznGQFBK TzsjdE0UMU8ftp39WG+hNHZwHuv9C1jtXcBSzwLGHROIlPcjUNQHD6XBzZQO X8qdQr51Ba4+AfNDZBldc4hWVWH9XArmzqVjIoeiC3EsX0UpWYZetowBAfXX YRkdvyXLMJFlnLdLlpHRttcySq7TMmy/gWWcPV5P4sa5XwbQYFyVLKM5uWWw l2wZ0+4NCCvTx3jIZK0aEkuzLBJrLa3BZMgff7RVPtzIRDonEj9co6Q/aXP0 97E5O4OVBh2utugguEgjPBYIXrbtwOpYlC55vfRdp1jjirUF6bpubDaFsNoY xqI1gtm6CCaqezCsi1BaHkGoMAxfbjecGUHYU/zkPDpQpXGjSNOCs9p+5FZF YLV0YWFoBzuBGQimNqy9fhHTp1MxmqmbE4d1K7SvaqE9WYvJoHTKS1aU+35S hSeftuCF58LidC5od5BaIyl+mk9SFP9sTK5jM3+k1bBSToDEIyaoukwCLByQ j73vlsSkPe8/wEZvGOv15BWaCJIWUtXWOqkM2monIVhaCBaHGzt2L7ZsHVi3 +rBs9mPe5Me0IYCxygAGS/1iqTWY4xNLr60pXjTQalVrWlFGMTQr02o1JrHG xHq1kfLbyGB89Hdp8CpivikIxmasvPoGJl7TkH/XSee6boT25QJY0+vhN9Si 9GwRzjyQhaf/lwavfdOBtCfHkXtxC1pd3D2Oru6WgOSq6jTBYqOonZWktZSn azVeklaSejGXn4wEZXik57ruwGqbAxtmnVhYj9konG6sJjGT1GOnoZG+b8am pQXrdW1YMTmxYHSJhfqJcjeGiz1iAT+U7YIv3QlXSisFGA5YNHboNA1i8V8q IejEwtshPswmYoNmAiRIPnN5YBuxjgkIOhuWXjqD4RMXEUrXYZyjwgrDL3zn NB74+Gk8+7l8vPEPflx5dh75mTvQmgXUkQJ1TglScfQmLE6sY7BjHnVpvTSE COUxXdyiPBwJm7i3zPYn+DES6WDL+7EZCWOtWidu2WzV6rBdZ8B2bTW2amqx YbJgzViPZb0NC1WNmC1vErd+2BYQ2wqKZDYhmGaHN6WRQq0GUgkrTJRWlYtl Rr2IANvVk3cDWokLnYRCmBBYGdgiPqZkpcKM+Wdfw1ZdHZa8IUiH5X5P3AU8 9cAlPP6nr+FXXzTixD02ZJ9ahbYohnzilkD7BNwBUis/BTSdvYh5+7EzOi/u jG0NLWB9YEHcMVuKSjtos93kYRvG4c3vQ2tWFLa0CGop3akiWyohq9Zq2AZo C4eKbYSy3TkdR0t69uV28fTDerND3Ftc05FU6em9ASsVRiyWV2Oe6GumiAxd W4fRXLOY2/akm9GVaqZctY6C0hrYyVDqSD+qCKFivt/BULqZo+QmT+EhpKKE 1Fr/JvHVMGIlJsz+7CQ2TTVY8IQQ4cbN9ITyWrKaTPz0U9dYDdKqxuHzRDDa 2QGhg23Bklds7xS3Z2PuLuy0hbDliGDN3oOlhihmzVFMmqIY0UcpNulBuLgH /vwwPFkhOC53oZ7My0RoVZJiFWvaeImsQYkY03mOmnQG6zbxEAzb8l4okra/ 57U6zBboMZWnx3i2ASOZBgyks4zfiO4UI4XyBrhImgghtr1ukLJ3EaXJ0Zlb OVDtxI55jh30E1DrfeRSXIOIFVKzP34F6wYT5twhBBQGVUVq+dDHXySDysO5 v2cGNZdoUFIk8gHs+B1EjuQ/nESUTgqjnRRRtHoQc7Rju6kTGzY/VqwBLNQG MVMdxLiuC0PlQfQWBdGdH0Bnlg+uy500g3aagRtGwqqMOKJIzDKsnCz14hYO P2n2CYm5VzvDRFbjV3QYuazDYJoOfSnSga0unuS4eMGfJTNOQiTETquMzvBj jTTVUSmiYJ5/kBL1jd51CG1kHfnlGHviJdJZI2ZcIS+/nBnayQcu4jFuaBe/ 14eskwpDo+bcU/x8zPuwMzeDq+RhBTu5Ena8xG4j1mym71qwaXVirc6NJZMH cwYvJiu9GC31YqCQotA8L4KZbrSnudBGaDSSrdWR9ugJkRKRqJkGGQ+KKnRQ nNDedIufYjyMGZrvFMkEP6mzSJfeySfTNSFFUeXkPEdo7pvRNXJwUexkF2Po hy9gpVyPCVeohfPmXvO5RObTjLQfkflc2BTNJ5uCKT81ybyOFJG8F+vkOrbq yHWY9SQmIkwzNmvrsWZqxLKhCfNVzZgud2C8uAVDBS3ozaElynDAn9YMd4qd 8lEbESXbG7aQGdWSGRnjqkAT5zoudsY14x/55FhIGJqh5ItCvTFK0rZ6KM9s CuNqRj6i/+c5LJboMewK2RQqXymq/Atc5X1qKv92bqRrRGviIS+DHut6A1Z1 1ViuJLopq8NMsQUTWitG8qxEafWIpFsRTLVSvm2hxawjSqshNTeRoRrFoxuk U/J8mAeUF5Ifzfxnbr89NJfILIWhNJAJuSDdGMR2Wg6WU3OJKvQwX6Olp0hL Dcm0VMoK3iMyzlqjgyDRYaFYhzlqaqaAEpBcI0azjRi8wooK1cQ21WRTRrhJ HMQ49TT4GhK2eVai4Ga2IvxA7n189H1zRNEkDREBU3I9rd6HzUsZWLyYhZl8 HQwKPStR6tlfNyFV1jO9gCyFnt3OodqaoCn4yLSzKCzIIDqg8GCA6CCaItU/ /LzW0cp3NFhdQ8/e03CD7jA/if0gH+3AvCBWAJt6pAT/qpjge7Hx6zTMvXGF gNGhfI/iGEXFeeazuZLiPHON4nyYb0ks0ArPkSjtcpRkiKTfHeZPEDzEBzK0 QArcuYO2XgFzLJ8KzkKodWHtzCXMnLmMUZpuYcKiP0qL/vIX9bTovbToK4mL zv9hmR9IBFoTYpGhm6JPKSinQLO6FSsnz2Pi9RQMEJLZCaty+oEM/ORTF3FK XJWxuPUrV4X/yz6P8llYaPQWCuA7KNNbFAPcSQh6O5Z+dRYjJy8hTIt1OQHO 74tw5uDcd1TgnBa+IvXwBO+BhdCNNInAgBwtUmxYVY+F509j22zGMsVKF/fg dAGPfvLkfjhJ/xAAnuI9NBM/Oqj1bjka844iRsY++4tTFA3WYpHijLO8Bxmm H3/qAsFkTwbTN6Uefsp7aKN+XdRLhBz0KkUyMTdFMsVGTP30VWwYTZgnB31C gVIFQ+ljzxNK2YRSpxpK0hMkvBZ1DB7KqNspVuqTQwDnAHa0VRh/8lcUn4l+ Di8qUDIQWYko3a3DxQd3UcrjKLmmBOlRFxznPbD8PL91Z9eTtvZhJ7cUw4+9 RFEfMQr1cHwPSlfw4z/nKD2hQKkljpL0RA6eVfhrlv0XU+Y9PMR9FjtOl6VF 7w+ex1KpHiOu0E/2AGUQgTqeAFQBB6pjWpBIFi/waTDHyEoLlX4aAtn/JvMd 7NBHeh7833+GQjM9Vz0ZqFr8kIB66e4qXHgwKgJVsBcoiQjxMu+BFSvCxOjV 5J3GGZuHlyDYAuL+wtKlbAr4dJKJUg/FIlDpBNR5nPpG4y5QxIWZu+okkRd/ tpT8xay0gWkmC58k6tgWGZeCsQvpmD+fIXLYAwkofe9jz+H4Z7Jw9p4OQmk2 ESX+L6KdUnA62yZtJE6fHuIsafaKxZ6Zc+kYy9bxf39MidIJQqkSFx4glE5c g5L04Jz0vO4BDCwwcnKwKqvMfTVOrL52EZOnUzGYqeNPWu1C9BRBdDIRIq5L I6vCY1Lz52R2XRRg9Mfg7GXVKqI/P9Gf0YFlSrxHTl1CD8WV31RAVJ4I0fEE iKaEJ6Ue+D/9UhtmE/AS7S3ItKdrxOKLZ9BDKexyewhfScDnkX3wcU4Jklrz fyDiGKxEefUEj496WBJpbwyxCgvmjr9O6alESl9QQPT6A5cJol8TRDaCaFQB UUyG6GdSD6m8h0aiOzu1HiTqW+lntDeCGKVt00+fxEZ1jUhK8iMmQ9yVTXDX NiO5ug+pIPjLz2QSgu17EKyVEJToAel8AA5iktZBKQuWWHEIOxSfjD9FaYu+ GrPU6rt4/MfiDnZKu4Wceh139G3c8bONjzAFA70p0gntkStSoDBf4xADh9vl Cou4EDXiQrx4dwUtRM+1CzEpPCeNMpOP0klZqHuYZ6Eis7IMogIjj7+M1UqJ 927hoaPyWHSFRidGUA0kLYSNlzjdTzldWD4SnWmUjkTnGcQckOWDixShsUht 1SYei35nwvo++T9pfb9O6/v47vpmOGh9iZpHVgSJ35HDB+4ll9BBUxKzQpGw e3E1pxh9j7yA5TI9RmngciyfeOTYSIO1UhzbTHC5yFX4UiwIpVvQm2HFUI4F 4wUWTBeZMVdaR+l+DVYqq8nNGGjZKGbmD0lQHH3zHv3Qk348G9eP9Gv14xVp Avk8nmJ7JQVtMQzSBDaYL2iOUIhfgODDz7GnS47wREweOyu0FInlhFrUUjze SOl4W0ojJVp2dKU3oyfLgcF8B8YKHZgqdWCushlLFKqsVjdio6aechkLBRQ1 uGoxkuiwSbnNutNxVKE9elF7Xk2qPW2TsZPSHLR8EQKkPQHyaaXk00aI6TYj K+JZky0K7Zc0uZgjZyDn2rsTMdBC1MYfgLBQdtisaYU71Ql/hgvhHA/6tV6M lFBmWeHFrN6LxWoPVil63LQ4sU0Z6A5lojv2RkqLrIg11SBm5w8+uByH9mhV GmnVG6RVDaJW5XCturKrVa9LEyoW//wxuujbbvJuOvKfYzShLebdGvzYvJiJ hQtZsD7xevzcUDGltBWU3po0LjSkeNB6uQPtGT4Ec/2IFgYwWBbEWFUQ08ag WEBYsQSwQW1t2zux42gXCw2C00nigOCiyTgpC2ozYtOui6vUg6RSv/jLDJy5 x3utSk0Lkj9AGS8Tib55VtpLnxA95wIEazvaj2uQce95ZD6cS/rjJf3xwZ4a hDOjG515YXQXRdBXzsrhUUyYpPLQUn1ULBexstHVthDRl3zav5Of9ndisroS 4cup+MEnmNKU48L9TGmWd5WGbYZMxM5Lo6zkiX2URlhuDIgHlK6ccKDgxSbI R5GNjxni20FSLfjdYmlvtU8q9bGS39WRBcRG5xFr7xdLgqw0GMiqQvOr2TA9 lYqmZ0rgPm2i1d5IXG3uf1Al/rkZBWe0Ym1Lc9aDS2f8OPtySOw0WjVKNujE 8onz0mfi3PgZCymjYDxy7sE8vP6NfJT9xAdvqg++0i7463yItroRCQTQU5LP /RHv8U4UnCqE9kILr+2H2dlqsQe2M9tKDnFukHnzKfG7xZfOoZeyDOZuWZc6 sk8G9Qt3lRHUkWugHhmhOGOI8vBBP1Z8Dvjy8lOV0N+AzkYntCdKoX3NAmt5 n7jTIF4Q326+RYwtWHDn7pW+j3VOUEbSgBNfr0fKYyPIOS/BaiETkWGVz0qz w8wr4QD8FWb4iouxMD7E/2mY3SHYXCh4pRzWTDuEsZB0/pkPQXlyxhyW0i6F tstHj6X9EcJEb4W/vDRhjuP9oyh4uQKTbS2EhI8QoU4mRxVzvGan/Ube7/To OhriOww+6DJa4K8q27OEh2hiOghhGn3UReKL7+iPjEnPFAj8jL18dHCocwFu /ZhYsS8WK/ad/DSSHY7S8gQFac+j/NxPTNDVDKGbeujuoPcB6ZEPf+SaIvjm 4MKezc358AIGGyfQWdgPZ04vGtN3C+DFYgHcyc9DmWHKLUno/epwGDsuI4R2 C/VEc+xs2y0me/yIueRichhrjT1YrO/BbF0PJqqjGKrqQW9ZD7oKw2jPCaE1 vYvCA6mQXKHxkPdq5Q/CmEUnEHCH9/R+B7bmZkT2E1ppBM46EptUlm2jUbS4 EWv2Ent2YL2B713VBPjeVRADJQFEtH4EcnzwpHfAkcKOxksl2dJ4+bouXr5O k7rWce9EnkP0IOwROsFuIrHQext2bE3Yrme7SK3kgZxYNLowq/Ngotwj7hD1 5rvRne1G52UnnCltsGtYBNdEi22jCVvkCrBcYeK96nn9ihUZ2SOK22yPymzA dp2Jwl8z1k1WrBobsERB91yFHVMJuzEBvhvTEt+NMZO7MJFfNUBZYZR1nOMs 1aneLT4utarjD3vq2GNUBvGRqsUyk/iIFXvUij1yxU7mRpNsa7DHtlgirFYA 5LOUn49nVbrNrrAY/4l7A1qd+JjcZC6FaVkGDF0xoDfNgFCKAT5q1k3STJhZ xVCNhWxS6Ma6kP6VLNRIaQqrot+MMWLnYYqMB1Klslk3L5t5+GFg9ugFOyrP noEMusNZUhP14p+D4hOg43zwUmz2u/Ovd7/1/q33b71/6/3v0Hu87V8BnSpR 8w==\ \>"]] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], " ", "&&", " ", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "||", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}]}], " ", ")"}]}], ")"}], ",", RowBox[{"Print", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", RowBox[{"i", "-", "1"}], ",", "\"\<-\>\"", ",", RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"j", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", "\"\< , \>\"", ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}]}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "*)"}]], "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.5712109452624493`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"nb", "=", RowBox[{"Length", "[", "a", "]"}]}], "\[IndentingNewLine]", RowBox[{"cw", "=", RowBox[{"nb", "-", "bh"}]}]}], "Input", CellChangeTimes->{{3.5681343270045934`*^9, 3.568134331481801*^9}, 3.5681343823222904`*^9, {3.5681345934218616`*^9, 3.5681345986322703`*^9}, { 3.568134635479535*^9, 3.5681346521559644`*^9}, {3.5681351451792307`*^9, 3.568135145428831*^9}, {3.5681351781888885`*^9, 3.5681352349417877`*^9}, { 3.568135340163973*^9, 3.568135340335573*^9}, {3.568135523495495*^9, 3.5681355244314966`*^9}, {3.5681357674799232`*^9, 3.5681357771675406`*^9}, {3.568136284433632*^9, 3.5681362987700567`*^9}, { 3.568136395053426*^9, 3.5681363965510283`*^9}, {3.568381170343589*^9, 3.568381179844005*^9}, {3.5689533222924633`*^9, 3.568953376658559*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1.0914447079683358`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1.091453160166314`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "1.0732943419642327`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "1.075851045160521`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2", ",", "1.0757172934314958`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "1.074557743721951`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "7", ",", "1.1102659837956`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "9", ",", "1.1102528226206139`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "1", ",", "1.0652310260617621`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "7", ",", "1.0651138357488188`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "2", ",", "1.074468094021673`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "8", ",", "1.0650909696009792`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "3", ",", "1.0733093706762202`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "9", ",", "1.0650135066679616`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "4", ",", "1.0651010009565234`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "10", ",", "1.0650494038056095`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "7", ",", "1.065226571173987`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "8", ",", "1.0663078164532926`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "9", ",", "1.066309654208922`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "10", ",", "1.0652265711739868`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "15", ",", "1.0732721576564879`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "16", ",", "1.0757138306338785`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "19", ",", "1.0726055192871875`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "17", ",", "1.0757138306338785`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "18", ",", "1.0817073558803547`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "21", ",", "1.0538039178313698`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "5", ",", "1.1970215580429886`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "6", ",", "1.1969817783262862`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "11", ",", "1.1969956601878944`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "12", ",", "1.1969202528012284`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "13", ",", "1.1972185377023248`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "14", ",", "1.196894661036617`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "15", ",", "1.1970366704293354`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "16", ",", "1.197116881093101`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "17", ",", "1.1971168810931`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "18", ",", "1.1970958631435988`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "19", ",", "1.1969593820226363`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "20", ",", "1.197019900128895`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "21", ",", "1.1971150956633414`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "22", ",", "1.197003543883579`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5718335949689026`*^9}], Cell[BoxData["40"], "Output", CellChangeTimes->{3.5718335949689026`*^9}], Cell[BoxData["26"], "Output", CellChangeTimes->{3.571833594984503*^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}, { 3.571827299210244*^9, 3.571827318554278*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"rpo", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"px", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"py", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"pz", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "+", "rpo"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"px", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"py", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"pz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"qx", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"qy", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"qz", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "-", "rpi"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"qx", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qy", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.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}, { 3.571827299210244*^9, 3.5718273122050667`*^9}, 3.5718279892842565`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "<", "1.082"}], ")"}], ",", RowBox[{"(", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}]}], "}"}], ")"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "->", "False"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571827350799535*^9, 3.5718273604559517`*^9}, {3.571827865607239*^9, 3.5718278663560405`*^9}, {3.571830962571479*^9, 3.571830982789114*^9}, 3.571831627756647*^9, {3.571831682450343*^9, 3.5718316832459445`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.3617104416783683`, -2.324504728545775, 0.04022308815606679}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0., 0., 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.31816633136472, 0.0015863588731668994`, 0.03765500605417952}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.9565616227882, 2.3261713170904414`, -0.002643100558762157}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.019430690254389, -2.323015394309803, 0.07796836712350341}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2960461356037478`, 2.326143876106908, -0.0026681511805370928`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.5948797748746726`, -4.65064621287657, 0.042909727283918286`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.973152999159963, -2.2922624548614805`, \ -2.220446049250313*^-16}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.288599549172336, 2.29538117654611, 0.07532803042742064}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.910343099251433, 4.65374421245871, 0.032416451647109046`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.0462791541061518, -4.615280744395591, 0.07791758820139538}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.6603361880433463`, -6.002745572168732*^-17, \ -9.339516156450064*^-17}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.975918801770629, 0.0032193334927125977`, 0.07524182323777795}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.269312521461267, 4.618494639384557, -0.002667809595384707}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.9103084185824084`, -6.941413160560491, 0.0806231260432857}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.61694992554022, -2.3261699877033117`, 0.0025996794599354445`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.93240030443107, 2.3292757565765143`, 0.07271513465932888}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.225771742959168, 6.944511160142632, -0.00529694711225881}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.56798363179423, -6.942982797435718, 0.04283449515859239}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.91297900878185, -4.652315460159693, 0.005247315244165662}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{13.228429387672698`, 4.655421229032899, 0.07006749887509667}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.900088454822487`, 6.9122961944360775`, 0.03502752293542377}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.0427561525053495`, -4.06598693228686, 0.13650380341077506`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.27178379548991627`, 4.069500796934516, -0.004570021456977935}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.070634783601021, -6.357691159264765, 0.13420204694692783`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.6745313427113344`, 1.749162569987408, 0.0000262832108492983}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.990295571780047, -1.7459477520924345`, 0.1039139246213946}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.243687625195177, 6.3607404571889195`, -0.029706722864252466`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.8972554522977343`, -8.690432809652355, 0.13794895925435702`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.652497148821922, -0.5893341813238268, 0.0024955959678749084`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.967947527712772`, 0.5924399501970317, 0.07281921815138698}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.223669687783238, 8.699858748227218, -0.06376057478156927}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.572253551947387, -8.697907765178407, 0.04300068259861911}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.934688352041876, -4.6752475354059175`, \ -0.02176986109398671}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{15.250242426100447`, 4.679407145138723, 0.09548744343996551}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.914439971469562`, 8.66146132880405, 0.038293233425869655`}, 0.1]}, Text3DBox["1", {0.7617104416783683, -2.324504728545775, 0.04022308815606679}, {1, 0}], Text3DBox["2", {-0.6, 0., 0.}, {1, 0}], Text3DBox["3", {4.718166331364721, 0.0015863588731668994`, 0.03765500605417952}, {1, 0}], Text3DBox["4", {3.3565616227882, 2.3261713170904414`, -0.002643100558762157}, {1, 0}], Text3DBox["5", {3.4194306902543885`, -2.323015394309803, 0.07796836712350341}, {1, 0}], Text3DBox["6", {0.6960461356037478, 2.326143876106908, -0.0026681511805370928`}, {1, 0}], Text3DBox["7", {-3.1948797748746727`, -4.65064621287657, 0.042909727283918286`}, {1, 0}], Text3DBox[ "8", {-4.573152999159963, -2.2922624548614805`, -2.220446049250313*^-16}, \ {1, 0}], Text3DBox["9", {8.688599549172336, 2.29538117654611, 0.07532803042742064}, {1, 0}], Text3DBox["10", {7.310343099251433, 4.65374421245871, 0.032416451647109046`}, {1, 0}], Text3DBox["11", {-0.5537208458938482, -4.615280744395591, 0.07791758820139538}, {1, 0}], Text3DBox[ "12", {-3.2603361880433464`, -6.002745572168732*^-17, \ -9.339516156450064*^-17}, {1, 0}], Text3DBox["13", {7.375918801770629, 0.0032193334927125977`, 0.07524182323777795}, {1, 0}], Text3DBox["14", {4.669312521461268, 4.618494639384557, -0.002667809595384707}, {1, 0}], Text3DBox["15", {-4.510308418582408, -6.941413160560491, 0.0806231260432857}, {1, 0}], Text3DBox["16", {-7.21694992554022, -2.3261699877033117`, 0.0025996794599354445`}, {1, 0}], Text3DBox["17", {11.33240030443107, 2.3292757565765143`, 0.07271513465932888}, {1, 0}], Text3DBox["18", {8.625771742959168, 6.944511160142632, -0.00529694711225881}, {1, 0}], Text3DBox["19", {-7.16798363179423, -6.942982797435718, 0.04283449515859239}, {1, 0}], Text3DBox["20", {-8.51297900878185, -4.652315460159693, 0.005247315244165662}, {1, 0}], Text3DBox["21", {12.628429387672698`, 4.655421229032899, 0.07006749887509667}, {1, 0}], Text3DBox["22", {11.300088454822488`, 6.9122961944360775`, 0.03502752293542377}, {1, 0}], Text3DBox["23", {4.44275615250535, -4.06598693228686, 0.13650380341077506`}, {1, 0}], Text3DBox["24", {-0.3282162045100837, 4.069500796934516, -0.004570021456977935}, {1, 0}], Text3DBox["25", {0.47063478360102107`, -6.357691159264765, 0.13420204694692783`}, {1, 0}], Text3DBox["26", {-4.2745313427113345`, 1.749162569987408, 0.0000262832108492983}, {1, 0}], Text3DBox["27", {8.390295571780047, -1.7459477520924345`, 0.1039139246213946}, {1, 0}], Text3DBox["28", {3.643687625195177, 6.3607404571889195`, -0.029706722864252466`}, {1, 0}], Text3DBox["29", {-3.4972554522977344`, -8.690432809652355, 0.13794895925435702`}, {1, 0}], Text3DBox["30", {-8.252497148821922, -0.5893341813238268, 0.0024955959678749084`}, {1, 0}], Text3DBox["31", {12.367947527712772`, 0.5924399501970317, 0.07281921815138698}, {1, 0}], Text3DBox["32", {7.623669687783238, 8.699858748227218, -0.06376057478156927}, {1, 0}], Text3DBox["33", {-8.172253551947387, -8.697907765178407, 0.04300068259861911}, {1, 0}], Text3DBox[ "34", {-10.534688352041876`, -4.6752475354059175`, -0.02176986109398671}, \ {1, 0}], Text3DBox["35", {14.650242426100448`, 4.679407145138723, 0.09548744343996551}, {1, 0}], Text3DBox["36", {12.314439971469563`, 8.66146132880405, 0.038293233425869655`}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.6808552208391841, -1.1622523642728875`, 0.020111544078033394`}, 1.0914447079683358`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.63736397707646, 1.1638788379818044`, 0.017505952747708678`}, 1.091453160166314]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.6905705659663783`, -2.323760061427789, 0.0590957276397851}, 1.0732943419642327`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.668798510809554, -1.160714517718318, 0.05781168658884146}, 1.075851045160521]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.6480230678018739, 1.163071938053454, -0.0013340755902685464`}, 1.0757172934314958`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.626303879195974, 2.3261575965986747`, -0.002655625869649625}, 1.074557743721951]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.284016387017318, -3.4714543338690254`, 0.021454863641959032`}, 1.1102659837956]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{8.599471324211883, 3.47456269450241, 0.053872241037264845`}, 1.1102528226206139`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.70399479789226, -3.469892736470683, 0.059070338178731085`}, 1.0652310260617621`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.2743003103842605`, -4.63296347863608, 0.060413657742656834`}, 1.0651138357488188`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.3301680940216731`, -3.001372786084366*^-17, \ -4.669758078225032*^-17}, 1.074468094021673]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.316744593601655, -1.1461312274307403`, \ -1.57719883244766*^-16}, 1.0650909696009792`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.6470425665676744`, 0.0024028461829397486`, 0.05644841464597873}, 1.0733093706762202`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{8.632259175471482, 1.1493002550194111`, 0.0752849268325993}, 1.0650135066679616`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.612937072124733, 3.472332978237499, -0.002655455077073432}, 1.0651010009565234`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.58982781035635, 4.636119425921633, 0.014874321025862166`}, 1.0650494038056095`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.2525940967285405`, -5.79602968671853, 0.06176642666360199}, 1.065226571173987]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-5.2950514623500915`, -2.309216221282396, 0.0012998397299676112`}, 1.0663078164532926`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{10.610499926801703`, 2.312328466561312, 0.07402158254337476}, 1.066309654208922]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{8.568057421105301, 5.799127686300671, 0.013559752267425118`}, 1.0652265711739868`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-5.239146025188319, -6.942197978998104, 0.061728810600939044`}, 1.0732721576564879`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.264964467161035, -3.4892427239315023`, 0.003923497352050553}, 1.0757138306338785`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.2404813202880405`, -5.797649128797706, 0.024040905201379026`}, 1.0726055192871875`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{12.580414846051884`, 3.4923484928047066`, 0.07139131676721278}, 1.0757138306338785`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{10.562930098890828`, 6.928403677289355, 0.014865287911582481`}, 1.0817073558803547`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{12.564258921247593`, 5.783858711734489, 0.05254751090526022}, 1.0538039178313698`]}, {Opacity[0.5], SphereBox[{4.754638954475413, -3.5752534420214497`, 0.12002315623577829`}, 1.1970215580429886`]}, {Opacity[0.5], SphereBox[{0.5601704449034838, 3.578649145517211, -0.004034539505565883}, 1.1969817783262862`]}, {Opacity[0.5], SphereBox[{0.7822238481308439, -5.867109369839538, 0.11835495934197518`}, 1.1969956601878944`]}, {Opacity[0.5], SphereBox[{-3.388970475138756, 1.2566613203885562`, 0.000018882804272516417`}, 1.1969202528012284`]}, {Opacity[0.5], SphereBox[{8.704725696714759, -1.253517877052782, 0.09584208321881332}, 1.1972185377023248`]}, {Opacity[0.5], SphereBox[{4.532470351959453, 5.870180507063971, -0.022093441311753403`}, 1.196894661036617]}, {Opacity[0.5], SphereBox[{-3.1824782982233764`, -8.198000154602346, 0.12180899635243128`}, 1.1970366704293354`]}, {Opacity[0.5], SphereBox[{-7.360952659120819, -1.078317105019777, 0.0025248992849007928`}, 1.197116881093101]}, {Opacity[0.5], SphereBox[{12.676403038011669`, 1.0814228738929816`, 0.07278991483436179}, 1.1971168810931]}, {Opacity[0.5], SphereBox[{8.505801069588623, 8.205658942910873, -0.0473007501813669}, 1.1970958631435988`]}, {Opacity[0.5], SphereBox[{-7.289492745461121, -8.20379359403393, 0.042953891100012166`}, 1.1969593820226363`]}, {Opacity[0.5], SphereBox[{-9.365475789373939, -4.668791006250669, \ -0.014163171126034522`}, 1.197019900128895]}, {Opacity[0.5], SphereBox[{14.681027466355866`, 4.6726542248582055`, 0.08833079124355207}, 1.1971150956633414`]}, {Opacity[0.5], SphereBox[{12.628846842726546`, 8.168979644482619, 0.037373764719776284`}, 1.197003543883579]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.3617104416783683`, -2.324504728545775, 1.4402230881560667`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0., 0., 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{5.31816633136472, 0.0015863588731668994`, 1.4376550060541795`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{3.9565616227882, 2.3261713170904414`, 1.3973568994412378`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{4.019430690254389, -2.323015394309803, 1.4779683671235033`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.2960461356037478`, 2.326143876106908, 1.3973318488194628`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.5948797748746726`, -4.65064621287657, 1.4429097272839182`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.973152999159963, -2.2922624548614805`, 1.3999999999999997`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{9.288599549172336, 2.29538117654611, 1.4753280304274206`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{7.910343099251433, 4.65374421245871, 1.432416451647109}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.0462791541061518, -4.615280744395591, 1.4779175882013953`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.6603361880433463`, -6.002745572168732*^-17, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{7.975918801770629, 0.0032193334927125977`, 1.475241823237778}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{5.269312521461267, 4.618494639384557, 1.3973321904046152`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.9103084185824084`, -6.941413160560491, 1.4806231260432856`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-6.61694992554022, -2.3261699877033117`, 1.4025996794599354`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{11.93240030443107, 2.3292757565765143`, 1.4727151346593288`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{9.225771742959168, 6.944511160142632, 1.394703052887741}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-6.56798363179423, -6.942982797435718, 1.4428344951585923`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-7.91297900878185, -4.652315460159693, 1.4052473152441656`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{13.228429387672698`, 4.655421229032899, 1.4700674988750966`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{11.900088454822487`, 6.9122961944360775`, 1.4350275229354237`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.3617104416783683`, -2.324504728545775, -1.3597769118439331`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0., 0., -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{5.31816633136472, 0.0015863588731668994`, -1.3623449939458203`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{3.9565616227882, 2.3261713170904414`, -1.402643100558762}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{4.019430690254389, -2.323015394309803, -1.3220316328764965`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.2960461356037478`, 2.326143876106908, -1.402668151180537}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.5948797748746726`, -4.65064621287657, -1.3570902727160816`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-3.973152999159963, -2.2922624548614805`, \ -1.4000000000000001`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{9.288599549172336, 2.29538117654611, -1.3246719695725793`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{7.910343099251433, 4.65374421245871, -1.3675835483528909`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0.0462791541061518, -4.615280744395591, -1.3220824117986045`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.6603361880433463`, -6.002745572168732*^-17, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{7.975918801770629, 0.0032193334927125977`, -1.3247581767622219`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{5.269312521461267, 4.618494639384557, -1.4026678095953846`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-3.9103084185824084`, -6.941413160560491, \ -1.3193768739567142`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.61694992554022, -2.3261699877033117`, -1.3974003205400645`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{11.93240030443107, 2.3292757565765143`, -1.327284865340671}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{9.225771742959168, 6.944511160142632, -1.4052969471122587`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.56798363179423, -6.942982797435718, -1.3571655048414075`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.91297900878185, -4.652315460159693, -1.3947526847558342`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{13.228429387672698`, 4.655421229032899, -1.3299325011249032`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{11.900088454822487`, 6.9122961944360775`, -1.3649724770645761`}, 1.4]}, TubeBox[{{0., 0., 0.}, {1.3617104416783683`, -2.324504728545775, 0.04022308815606679}}, 0.06], TubeBox[{{3.9565616227882, 2.3261713170904414`, -0.002643100558762157}, { 5.31816633136472, 0.0015863588731668994`, 0.03765500605417952}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{4.019430690254389, -2.2030153943098028`, 0.07796836712350341}, { 1.3617104416783683`, -2.204504728545775, 0.04022308815606679}}, 0.06], TubeBox[{{4.019430690254389, -2.443015394309803, 0.07796836712350341}, { 1.3617104416783683`, -2.444504728545775, 0.04022308815606679}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.019430690254389, -2.2030153943098028`, 0.07796836712350341}, { 5.31816633136472, 0.12158635887316689`, 0.03765500605417952}}, 0.06], TubeBox[{{4.019430690254389, -2.443015394309803, 0.07796836712350341}, { 5.31816633136472, -0.1184136411268331, 0.03765500605417952}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2960461356037478`, 2.446143876106908, -0.0026681511805370928`}, {0., 0.12, 0.}}, 0.06], TubeBox[{{1.2960461356037478`, 2.206143876106908, -0.0026681511805370928`}, {0., -0.12, 0.}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2960461356037478`, 2.446143876106908, -0.0026681511805370928`}, {3.9565616227882, 2.4461713170904416`, -0.002643100558762157}}, 0.06], TubeBox[{{1.2960461356037478`, 2.206143876106908, -0.0026681511805370928`}, {3.9565616227882, 2.2061713170904413`, -0.002643100558762157}}, 0.06]}, TubeBox[{{-3.973152999159963, -2.2922624548614805`, \ -2.220446049250313*^-16}, {-2.5948797748746726`, -4.65064621287657, 0.042909727283918286`}}, 0.06], TubeBox[{{7.910343099251433, 4.65374421245871, 0.032416451647109046`}, { 9.288599549172336, 2.29538117654611, 0.07532803042742064}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{0.0462791541061518, -4.495280744395591, 0.07791758820139538}, { 1.3617104416783683`, -2.204504728545775, 0.04022308815606679}}, 0.06], TubeBox[{{0.0462791541061518, -4.735280744395591, 0.07791758820139538}, { 1.3617104416783683`, -2.444504728545775, 0.04022308815606679}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.0462791541061518, -4.495280744395591, 0.07791758820139538}, {-2.5948797748746726`, -4.53064621287657, 0.042909727283918286`}}, 0.06], TubeBox[{{0.0462791541061518, -4.735280744395591, 0.07791758820139538}, {-2.5948797748746726`, -4.77064621287657, 0.042909727283918286`}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6603361880433463`, 0.11999999999999994`, -9.339516156450064*^-17}, {0., 0.12, 0.}}, 0.06], TubeBox[{{-2.6603361880433463`, -0.12000000000000005`, \ -9.339516156450064*^-17}, {0., -0.12, 0.}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6603361880433463`, 0.11999999999999994`, -9.339516156450064*^-17}, {-3.973152999159963, \ -2.1722624548614804`, -2.220446049250313*^-16}}, 0.06], TubeBox[{{-2.6603361880433463`, -0.12000000000000005`, \ -9.339516156450064*^-17}, {-3.973152999159963, -2.4122624548614806`, \ -2.220446049250313*^-16}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.975918801770629, 0.1232193334927126, 0.07524182323777795}, { 5.31816633136472, 0.12158635887316689`, 0.03765500605417952}}, 0.06], TubeBox[{{7.975918801770629, -0.1167806665072874, 0.07524182323777795}, { 5.31816633136472, -0.1184136411268331, 0.03765500605417952}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.975918801770629, 0.1232193334927126, 0.07524182323777795}, { 9.288599549172336, 2.41538117654611, 0.07532803042742064}}, 0.06], TubeBox[{{7.975918801770629, -0.1167806665072874, 0.07524182323777795}, { 9.288599549172336, 2.17538117654611, 0.07532803042742064}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.269312521461267, 4.738494639384557, -0.002667809595384707}, { 3.9565616227882, 2.4461713170904416`, -0.002643100558762157}}, 0.06], TubeBox[{{5.269312521461267, 4.498494639384557, -0.002667809595384707}, { 3.9565616227882, 2.2061713170904413`, -0.002643100558762157}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.269312521461267, 4.738494639384557, -0.002667809595384707}, { 7.910343099251433, 4.77374421245871, 0.032416451647109046`}}, 0.06], TubeBox[{{5.269312521461267, 4.498494639384557, -0.002667809595384707}, { 7.910343099251433, 4.53374421245871, 0.032416451647109046`}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.9103084185824084`, -6.821413160560491, 0.0806231260432857}, {-2.5948797748746726`, -4.53064621287657, 0.042909727283918286`}}, 0.06], TubeBox[{{-3.9103084185824084`, -7.061413160560491, 0.0806231260432857}, {-2.5948797748746726`, -4.77064621287657, 0.042909727283918286`}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.61694992554022, -2.2061699877033116`, 0.0025996794599354445`}, {-3.973152999159963, -2.1722624548614804`, \ -2.220446049250313*^-16}}, 0.06], TubeBox[{{-6.61694992554022, -2.446169987703312, 0.0025996794599354445`}, {-3.973152999159963, -2.4122624548614806`, \ -2.220446049250313*^-16}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{11.93240030443107, 2.4492757565765144`, 0.07271513465932888}, { 9.288599549172336, 2.41538117654611, 0.07532803042742064}}, 0.06], TubeBox[{{11.93240030443107, 2.209275756576514, 0.07271513465932888}, { 9.288599549172336, 2.17538117654611, 0.07532803042742064}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{9.225771742959168, 7.064511160142632, -0.00529694711225881}, { 7.910343099251433, 4.77374421245871, 0.032416451647109046`}}, 0.06], TubeBox[{{9.225771742959168, 6.824511160142632, -0.00529694711225881}, { 7.910343099251433, 4.53374421245871, 0.032416451647109046`}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.56798363179423, -6.822982797435718, 0.04283449515859239}, {-3.9103084185824084`, -6.821413160560491, 0.0806231260432857}}, 0.06], TubeBox[{{-6.56798363179423, -7.062982797435718, 0.04283449515859239}, {-3.9103084185824084`, -7.061413160560491, 0.0806231260432857}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.91297900878185, -4.532315460159693, 0.005247315244165662}, {-6.61694992554022, -2.2061699877033116`, 0.0025996794599354445`}}, 0.06], TubeBox[{{-7.91297900878185, -4.772315460159693, 0.005247315244165662}, {-6.61694992554022, -2.446169987703312, 0.0025996794599354445`}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.91297900878185, -4.532315460159693, 0.005247315244165662}, {-6.56798363179423, -6.822982797435718, 0.04283449515859239}}, 0.06], TubeBox[{{-7.91297900878185, -4.772315460159693, 0.005247315244165662}, {-6.56798363179423, -7.062982797435718, 0.04283449515859239}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{13.228429387672698`, 4.775421229032899, 0.07006749887509667}, { 11.93240030443107, 2.4492757565765144`, 0.07271513465932888}}, 0.06], TubeBox[{{13.228429387672698`, 4.535421229032899, 0.07006749887509667}, { 11.93240030443107, 2.209275756576514, 0.07271513465932888}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{11.900088454822487`, 7.032296194436078, 0.03502752293542377}, { 9.225771742959168, 7.064511160142632, -0.00529694711225881}}, 0.06], TubeBox[{{11.900088454822487`, 6.792296194436077, 0.03502752293542377}, { 9.225771742959168, 6.824511160142632, -0.00529694711225881}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{11.900088454822487`, 7.032296194436078, 0.03502752293542377}, { 13.228429387672698`, 4.775421229032899, 0.07006749887509667}}, 0.06], TubeBox[{{11.900088454822487`, 6.792296194436077, 0.03502752293542377}, { 13.228429387672698`, 4.535421229032899, 0.07006749887509667}}, 0.06]}, TubeBox[{{5.0427561525053495`, -4.06598693228686, 0.13650380341077506`}, { 4.019430690254389, -2.323015394309803, 0.07796836712350341}}, 0.06], TubeBox[{{0.27178379548991627`, 4.069500796934516, -0.004570021456977935}, {1.2960461356037478`, 2.326143876106908, -0.0026681511805370928`}}, 0.06], TubeBox[{{1.070634783601021, -6.357691159264765, 0.13420204694692783`}, { 0.0462791541061518, -4.615280744395591, 0.07791758820139538}}, 0.06], TubeBox[{{-3.6745313427113344`, 1.749162569987408, 0.0000262832108492983}, {-2.6603361880433463`, -6.002745572168732*^-17, \ -9.339516156450064*^-17}}, 0.06], TubeBox[{{8.990295571780047, -1.7459477520924345`, 0.1039139246213946}, { 7.975918801770629, 0.0032193334927125977`, 0.07524182323777795}}, 0.06], TubeBox[{{4.243687625195177, 6.3607404571889195`, -0.029706722864252466`}, {5.269312521461267, 4.618494639384557, -0.002667809595384707}}, 0.06], TubeBox[{{-2.8972554522977343`, -8.690432809652355, 0.13794895925435702`}, {-3.9103084185824084`, -6.941413160560491, 0.0806231260432857}}, 0.06], TubeBox[{{-7.652497148821922, -0.5893341813238268, 0.0024955959678749084`}, {-6.61694992554022, -2.3261699877033117`, 0.0025996794599354445`}}, 0.06], TubeBox[{{12.967947527712772`, 0.5924399501970317, 0.07281921815138698}, { 11.93240030443107, 2.3292757565765143`, 0.07271513465932888}}, 0.06], TubeBox[{{8.223669687783238, 8.699858748227218, -0.06376057478156927}, { 9.225771742959168, 6.944511160142632, -0.00529694711225881}}, 0.06], TubeBox[{{-7.572253551947387, -8.697907765178407, 0.04300068259861911}, {-6.56798363179423, -6.942982797435718, 0.04283449515859239}}, 0.06], TubeBox[{{-9.934688352041876, -4.6752475354059175`, -0.02176986109398671}, \ {-7.91297900878185, -4.652315460159693, 0.005247315244165662}}, 0.06], TubeBox[{{15.250242426100447`, 4.679407145138723, 0.09548744343996551}, { 13.228429387672698`, 4.655421229032899, 0.07006749887509667}}, 0.06], TubeBox[{{12.914439971469562`, 8.66146132880405, 0.038293233425869655`}, { 11.900088454822487`, 6.9122961944360775`, 0.03502752293542377}}, 0.06]}, AspectRatio->Automatic, Boxed->False, ImageSize->{398., 398.}, SphericalRegion->True, ViewPoint->{-0.13434475488994818`, 0.331395129680432, 3.364837106734537}, ViewVertical->{-0.4434558560681154, 1.0425244117116104`, 2.3421083205981446`}]], "Output", CellChangeTimes->{ 3.571833595062503*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvFdUo2uWJbj7Zk2vrulZVV01lVmT3WWy2s70zKyZWT3V89Crpyvz5r1h CDwBgYnAe++9914IOZwA4UFYCSsJAcIJD8IHEEQQQbjrMqtmXmv2L4nIe2tl v81jsu4JCUXo/77vnL332ee/IMfAlIjQ2MCUyODAn91LCkyIiAxO/tmX8Ul8 6Uf/CPhHdUL8DMLzvwfu/vh7/vf39cIfwiu/e/675797/rvnv3v+u+f/Pz7/ X6zP/1usrp5hcGAVomoNZFUaNJdr0FqqgbJYg/b8Ccy0rWBff+pte+v/Y334 p3j58oP1ndVV4xDznYpKDVr4TqXwziLbOw/mz7CrO8H/ZH3PH0A9tIzGBg2k jFaRBqo6DfpqNRjk+4crNBjle0f53tECDcay+Zg+jtPZEy/byov/YL/WVbnf Vr5TWcYVuV8lV903Wlf9H63//A9x8+oDhodWrAsruGg7o4cLD3LhYV5ijG8f 49vH+faxfC7KhdVpYziePsa/sV7jj/Hm5iPk4gk0NXI5Riejn9cb5rUmeK3J Gg1muJU5JkDHa83xIHO8no4H0WVPYDp5GF8/f//YdpBa68M/wfXLj1hZPoOZ scnYMp1he5GPPMDrq4//3p418/oZxKIJ6+Y7GL31Ggxx0VEuOs5FJ7joRAmf F/K1XG4+YxzHsye2vf8RNtdPrHtv5p7bGb0MtZj/nJea5GVmeRkdL2NgAQ28 lIH719n3Ppc1AbPchH9lvdafYGJ4Ea2SCbRJeS1GN2OI1xvn9aZEk5irm8R8 7RQWaqawxEcTY7l2EqYaLUxcw8TrLxeNYzFrGN9evPew5cOGrH8M0/Ip1pmH DXsuNpmLDeOZDaf/HdbWTlFfOw45N93O6GYB+1nAIW5czQsPMQcD3HQPE27R nf1be+1e33yArGHMWjvh/H2MEe5Xy/rNMJU6XmaelzFyfwu8lFHIAeunYzpn iYV1xTI+nr3/l/YUaIaXrClQ8ugqxgBjTMJUirWYYwqM9ZNYrOOx66ewyliz hhar3PFytS0FpsJxGNLU+Pr8/c+sl/0JtMNGZnQcnTJeltEj00ItnYSmcRoz 4jkYGvRYFBmw3DCPNbERZokRG9J5bEoN2JDosdE4C3PDNDbqtNioHMdawRC+ u3znbsuwpz2Fq6snUA+uQGZPYQ/PPvAPUtjPc3dnj+NAf/bvrG/7Z1hfO4ZE NI4mpk3FGGDqRhlapm+Gl5mzQ0hPKumYuhlyeDKPsEifwMeLj3foecNKtDSO W1NnRQ5jgqmbadTCIGbamL4VEdPVMMWzCDHJ0GKdSF3lTk3c5VLxBPTpIwKb 7lI3ObzwKXVdjEGmblw6hRnJLAyNOiyJDVhtnGfKhHTNY1s+jx2FATtyPbZl s3yNaePyGzyJuXwMpuxBfPP87V9YL/8/4O3NexZ6BN2yCXTLhcpMQS2bg4aX mmlcwLzYxCVWsCpZxYZ8DVtN69hpXsdeyxpjlbHCWMJu0wJ2ZXrsiaewWzOK jeJefHt162arkIc91TfMkbh+FE1MbxdTPSQwtUFgF9HIDeqZB4OdrYLSzLBi k1StsYwJHM2e/Gu7Ro6rFwn4cbQzvX2MUcYUga/j5YxMqUlERIq0nxGaGjJv jVdeYRGXBPzzivo88l5m+it7hm+ZAqVkhBlmCpjhYWZYK5uGTjqLRYkOKxID zEzHlmweu4p57DUZsN+sx36TDnuKGWZ6GlsSZpiLrVdOYClXjW8u3tsy/KfY WbegkxnusmZYiwH5DMaZqRmpEfOSJZgal7EuXcGWYg27zOp+2xosyjUcKlcZ KwwTDtoWuKQBe/JZ7JKK29UjOO404K6KqsYB9MrG0Mvr98nnCJJ5gsREkKwS JGaYJJtYk29jqnAKiv+SjOWoSlg69nDYuYcj1S5jG0edmzjsMHPtFRw0G3FA JByIhnDWN2evors9/aNDRijEY9b0DzDGBZQzDCzBEkuwwoquNzD95gYh/Wbm ZU0AOAtrFKSH3FmXL/9GchbQJhljjgRwkzNM/ywBviCZZupnYCb3t1iKHZ59 TzGLfaZ8T0GU8azbEuoBF1lldU0lE9hpWfpLe9pvb96ho1FNuRln2iehZtq1 MgN0sgUsSZewJl3GpmLVmnIh3UcdazjpXGWsMJYZizhuN8LSKlR6Brtcaqtm jKky4s+ta/wUt6/eWlPfY039FEurx5hsEdOyFRik6zBJNyiwW9hu2UFvVDsG 76fA0jiH0+5dnPUIsc3Y5PdmHKtWYWlfwkGLHgdMxV7tIF4v7bO4XOtHwtyM H1mXPTAfEPRq2F77MUZka5iSbkLXuINF6T5WmyzYbD1Cd4warYFNMJd04aTn FKd9p6zlCc77jvhowUnvPg67d2DpXIeF+LIwnweNvfj1zS1cbQV3u2uM6nka g1FrR1CzRFqWSM8SLVFb1qQz1Bjmh/kV8nTQPANL8zRjkqXSUhQ02BTbJG6J JdpuWf4kbWoDOkg8FZkxyBJpWGEdmbFI9K6xTFuKRew1L3F3SyzFEk46FnHa scCYx0m7HkfKOaZr2oqELQFzFWPYa124I0VHQy+FeITEmOLlDZiQL2FOtsrL m0mGTWy1bGNfucOWOIXOL5Jhji3HRd8uLvt3GFu47NvARe86zrqXSZQFkpCV 4Wl269SwqOashfk9axF+iln1HHpZFOGrX25kllaYJTM1ZJtF2cNa0wG22g6x 33mMwTQqVmwzkz2Ji4ETXA6e4GrwiI8WXAzu45TrHxEVFtWKFX0WIninvgv/ wnquf2Fdo0fcg37JKPplOuv3g0TauHQXsxILjNJjrDTRXLQ9x07nBQ66r6AO W8d19x7OBl/g+dALXKivcKm+5ONznA2d4WjgCJbeXVi6CIZ2A9cdw8XY9B0Q XO0V0wzpoCSputiQ1EzrJBvMPCu2zIptyNkBmhdZLYE4izgjgc5VC3jeZcRz lQHnnQR++wwOW6fIX1aMoFhjL99tW7qr2M7aPs3nIKs2zizOsmLzmGPVFpnN dTaf7WYzDpQblL5NTCbIcVA3bq3SVZ8ZV/1rfFzBRc8SzrjkUYcO+wTHHt3M ZtUwruct36vYP8fe2h6+/zUiX8WUbANG2Q5WFfukkAX7HUc46j6Gmga3P6IJ +5WduFaf4OXwMV6NHPLxAC/Ue8zoNk76zaTTMrVEhwM5paiODfD61romBcN2 4+vvv1e8CRtYyN4R2TamyVyj7IiFO8Wm8hx7qgsc9l4SDFfYytvD5fALvBh5 gevRK7wcvWQ8x9XoGc65leOhAxwSsJYuYflZWJoGcWve5SF/A5h+cT/XnEI/ pc8KGMkBNJJjAvQcS02XWGu7xlbnK+z13OCw7w2Go3bwsv8UFyO3XOcWL8be MF7jauwVzkdf4Gj4OSxDx7AQrJYeArWL1Ff23gHGxV5RQSE7GvoJmDGK+yy0 5IaBlntFvoLNJqHZmdl4NsixDarrOA7rx3A9YMbLwXXGKl4OmPCib4FVNeBE NYsDgmdXyvZdNYpr4+Gf25fpbOhBj5UOcyykCdMEi1HGnqfYxnbrHjVuHyfd B3jeb4HKvQJ7ScV4xeLdjOwzdhnbeKneJAXXqI0mHHXNE8fsMwTiRmX/T39L EbvqO2m2x5hQAwZYROFrTnaARfkxzK2n2FWds4AXOB24srJtNn4L74Z2cDNx hdeaS7zRXPDxHC8nqABjRzjlVo4GyfpeFrGdJ20awlvzPmxr/5n1+gdruyzk IAs5y3VXrK+NSQ5pJU6x2HSBdeUL7Khe4qDvBscDr3GufoPNomNcj9/i1cQb 3GgY2teMV3ihucbziUucjJ3BMmyBZYBrd5O+nRpcametuP3MusKf4ZBc6ReT A40Gxrr11aHGU2glF9DLr2Fqu4G58xY7Pe9w0P+BgPwIdRzTS9BejX/Ftb7C tfYjXmo/4IX2PZ5zHyfjL3FIEFvUh7AI5x5gr+0ZwbudLZfvY+inaK9Xobtx hCeeo3EyQSdnZ6V+b7Kr7rfv4bhrH8/7DnA1RKPlVoL9hCLcju3j7dgeH3cY WyywmcxdwfOBRQKBmtpOZWDbMVcO4Zurt/QLP5CG3R9IwwRlQSfbg0nBztp2 hH3VCbvnGZ4PnuMFeTCdR2WjI7llOd9qzvBWe8LnRyy1hZyhPIxs4ZjIsvSw yyqnsC8ZwpvV/e9X9u2rN+gTkaKNM6zuMvV82/q6Xn4GU+slNjtf4KD3FU4G b/B8WKDhG8ykHODD2DFup97g7fRrvJu+we30S7yaYtYnL3A+cYqjUVZ2SEAV K9vB3qVQ/UAVGii0dPn99IfC17jknIL7Akutr2BWvcFe7zscDr7H6fAHtoOP 9BIXeKvexs3UV3gz/ZHxAa+n3+N6+i0uJm9wqn2Bw/FTAmqfReWJ+9ihO3vx fQL11ijRT7/fL15i2I6pFl9iUvoKhpZbLHe8x0b3V9jt/4Zb/w4nI7+CLG4X E8ojjHZcYYwx3k4FnP4OL6a/wXPu4WTyDQ41L2AR1h4l30eoSENavD/Ys8MI Dt+v8O7qzqfqqqmIk9QKo5xtutmC3Y5jtt9TQuWM1T3Hzdg5pnNmcFbfjQ+T Z/g4dco4xvspC24n9/FKQ7swRgkjvI56CeJ29jfJMFVU99vEv6uOusHW1y9Z 4Ii4YX3NID/BSus5tlWXfNsLnA9dU3RZyfFXOFZc4KvhM7xnZT/OXOPj7BXe zVA/pqkdUye40FhwSpQfDgkAE2RrHFuNXXbxt5nEfhGlkWO1jc9/Cq30OQzN 11jpuMF2zy1L/A5nLPHluMDRj5jOOMFH7SXezX3Ee90Hxnu81b3FzRybwOwr pvwKJ1oh1SyzsG4vy9zRj1+9fvMDveoXTXPdFYat105IXkDX/BqmjnfY6PmI /YFvcDz8Lc7HvsOV5ldoydvHlHITGtUVtkfe4lb3HV7rvsXLua9wOcs9EuFH k5ewTNCtjLLhcXSw9I/gzc7GD5atJ4lEq4x9O7peYlJxC0PbR6yovsVkx1t0 s99li7ZRWruNhHgj6urWUVu/g3qGqI6v12yhuHIDo+3PMUQ3fTh1A4v2gkFC aTgljc3i/dGhHVyPfkuhO4jzXrpSgV/C14zQHJpOYOYV93vY2WnFrkZeUiVe 4lZLMZSf49uOKXw9d41vdC8Yl/ioe463c6e4mTnCC2Lt+TiVZJiDQi8tmnKC hf4ht96+fI3e+gEmXEeArWFYYku8seUKa50vsdv7muJ8Sy6/xbXmHV5PvcMJ uf7NxDW+0r3D1/q3+NrwBu8NlBI9ATh3hauZc5xNMgMEmWXQ3unb+ljs2x8W u57uomGZa9vUc5I6Mt/2Bqtd77Ez8BUdwzc4H2ehtb+CWf0W9SlbmOmkhBl+ hY/z3+HD/Ld4N/81Xs9/xLX+HS7mbnAyTRdEJbVQwi1qFrtvFG93d35iXfYv P6X7LuX99Xo77iwYbLiwPte1vYOp62ts9n2HnrYXECuOUc4CV4l2kJuxjIb6 JTQ07EBMMNTUb6OsmvjrusDqyCuczb3FETln0bJHaigrE+zNwxq8O9jBT74/ l/VX0dHVMud15k8kU0tuMNn8HoPNb1AhOUI2Fy2u3kE1o752F1kJC2iq30BT wy5amTOleAft1EOFaBNV1RsoKltHQaEJA83bsMzQaU0zB5MGvD89vtM0R+uD TdRur2/QXcsO0qCz7eonMCnZOLpf4UCwAvRw1xNv8YYVf08qHTW/xN/RWH1n fMu4xbcLr/GV8RUr8AKv9Re4JuoupjklTnB1NY/dzfGuZQA35t3vF72vjg6o YZFF38JI45H1tcV2No+et9gbpDCPfkVmf82e9A1uZ7/hCPcO303d4mvjN/hm 4Wt8vfARHxY+4C23cTP/Gi/01zifPcexQLPRDboCKlrXCG53dv+rRa+bY8HN 1qKrxbaiz3OZ1d6v0dV6gQb5EYpEWyz4NmpZ6PTkRUga1iBhriUNW6ioIw57 6bInmCHjR1wY3uKUHDycshd9nKdXa/HOsmezCZ/Zi95XNcSiG7mBbdylvJ9p LW88QAYvXFi3g5qaHTTU7UIq2kV5xiqLvMIBapdj7y46JTucdrbQWL+JUkqN ggP8whAd0SxlZobnn6KyTkzj3dHeXcr7KvrQX00TVrPJOObSHO2ktyio30MS sZRbsYmSim1UVO+itnaP4N5DNs/b0rCJlsY9tHHpdomw/A5jG0r2fZloHUUV qygsXYKMZJgfor7MzOP9+bEdZk7fK3hv7Zj1cYAFn5DYCr6seoWt/rc4HPlI S/kV29LXVK1v8NHwDWf0t/h/h8349dLX+LXpK3y3/AFfm4jBpTd4s/AKL+c5 iOrOcTrFGWaMujrIgqtGcbtt90f2DlY7ZZX0O3LNtrzEouoW5n52EXaQwY5L jHa/gLb3GlP91xiSPMd89zn0A9eMK3yzTJExfYu3pq9xs0gXanyN5/orHM+c sMgUthEWeZBF3t//YZF7y3uZ6Xnrd3eLT7W+gUJxilRmPL92k4zeYpF3rEVu IpNLUk0srBmdHMi7rLGDVha6vm4TrfIDrI5f41TPOWuOhSbHLJMcusdnWOgD /KbStNvVJBYB1F97hsHGl6gXHyGRfSqDgCmu2EIl/66e4GoU7UHOFluevYYO qRB76KRf7ZLtQiUnyGRbaGrcQHXtOopLl7lPVlhPVZ1jvie57sknL9pXSiGr nKegbXP5EyhqThBVaUIChS29fBP5ZdsoqdpBZe0O6tgqxRSv7FThf5sQYDyq kkt2yIltBZdt2kJ70ybamsyQcrourjWxpc6juHgSRjXb5/OT3wKwvpopG8Aa 9qGRnVufr9CjbHOmMPS9xnDXJSZ6X2CaVZ4bvCYQOcAqV2AcvMLpzFv8avU7 fL36DT6sfMTt8ju8WqRbJsjO5k5wpBUqbaJn0GKjTflfVZRqKkqdzZqNSi8x 2/YaI8prVEsPkCXeRBnVpJ5qomjYpnLvQFK2CVXDBvNNRtG4yxu3oWo9xkzf JV4vf43rpXd4Tm09niO5iXOLhsQemcGGSvmp3r2llO6qBVu9607RIj5FXM0y kqlseVWbKK/aIqOFNrXL6++hhZ29NHOZa26iW7GHHkZv0y6f70Cl2EKzZANl letQcL/zatZax5iloE7Ost6W39Rbjf4KGvEqTni158isNiOudhUpPH5e2RZK qtkpuWw9u6WE0FZQPMpy19GhEILwauaSzTvobhWOvI2Olk0om9cptqx31SKK imdhHGbGZ2Zwe/JJxw4XqV2l1LHyLSjKdxFVsYCYmlUklZiRUUKYEd2lXLqo fJknX0E1/y47fZHsMlOv1qBs2uNSXL6VoaSWKZn5dkKtYw1V8mWUiOdRUjuN ktIhHG5bvj8C/JZ691XNWR8HRYfQKC6tz9taTpBBZSykclZS62Ssdwvr2k7V lJSa6bIMBPo2mllvMcVer36BD+vf4e3aV7hZfourxZc4M5zTPtAiT7DewzPY 7u78vrj8HiwmpqFSkPMtDNSffGZvIikN68ir3UAldUVESyIlyZpZcyV5Lavc Rg/X7GW9+5iFPta7R0HMsc4VVWZoujm5LL7BsZ42eZY1nybHNTps9HXcJV+v Ys8qp7RU7SK9dAFRVUtIqF9DFpNfVMnL0BIL3G6017uVnC7NXkY3udzNpPcy 6X1tO+hl4ruZeFXbJpqIh1IWqbjUCOMoWWYg1Gbm8Pb04Kf2ebO3kAgv5bKs d2aZCVHVJsRXryG9hFBj3yrlaavZSkXs0TWEYEP9KsryNqCUr1BaVq3Q6mnf RU/nDro6uWznJto7zZArV1nvJZTU6VFcNsH+NWEffv4cFuMB+ovmoCjmeoRi dOUiYipXkZC/gsT8RcRlzyKV03t2oR4FxfMo5fazyCq5eJ2KvgCJyEi2GaFs MaOjYxud3eyfvdto62W77lpFqWIBpRzZS2uH0dJrxu27X8H5eyPBXRc5WDqm orPQPONdF0msXUFm/TpxuoFadoZGnruJFqCN6e6khMqYk4HGRQww5QOkWT9p 1iFnp6E/nBl4jpvVD7gyvcaZ8QJHc4dUFlZ6Qoft/u5PqmLhuv3lgpzT95Qt IJqlTmRecyrNKKWqVLPUgvmVc11BvttJaXm1gK5t9LHMA21ct81W7p62LXav DVTUrFNdtrA4Qk9qYMxtcm09zhbnPi27cIL+EiMyimYRVWZAtCBkpWvILiPC uGxlLQWUy0poRxQ8rqSBpWZJOlvWqR5CqTkzdnHZboK9ewtdXVvoVK1DzL8r pUUprpiDccyEg7kZ3Bx/UhWLkactMiKTFY8qm+eybFwlRFjpBrLK1pBbtmyr dIkBZcxKdZURpUXU8KZVyDilKaRGNCvmoWxdQmfHOlR9FLQ+IrBvDTWtJpRK DVxeiyI2SVb6n99paN4ksgomEV2iQxQvG5w7h8CUKURmzCI+R4+0/HnkcFtF JQsoL19CQdEG5NItiMUmSKUmKORLaG5aQksL+2j7Ctr6KTNqCprajLLWZZQ1 6VDdMoPWkS209K86/7BnHlBK+3hYRfkqIkrn2DSWkFpHO1dhpkHYpHJvQcry NtOEtAvNgVCSEYaDXHVQuYshUmqQ0d9ORrcKu2KJq9awzmH3bPEFju5KzNFj c6jnLtcHC8x1yTwyiucQWW5ALJt7Wtkq8svN1hGqpl64FHVJ8D5EcweXlVPL +prIgk4iS7WDwa4dDLDEfV3b6FbRG7WuczSzicj86C7RxWVn9Xh7dngnIvvz h8jIG0ZU0SSbxjzJbEJKoYAsDkzVwsjOt1eYUMItVVYJY70RJSXraG9bo0YZ 0do8T2k3sMR6omoFKpJW1b+B9j4iixkpFetRUjkO/dAY7ur77vI9MnOHEF2k RQzrG8Prx+YtIyZnHnE5OqTmG5BdzPpS3MorlyheRGjZPlqVrLPChOZmE4+2 hDblIpvUAmtspICsoX14E+KeFZRxP2VSLeqVOjT3rd1pl7DF6PxRRORrEZin wdP4SQSmziEiU4+EHCNhtUhYmTgnEiLskWX0/PLmfYhlq5AS0YrWVTTTGLV2 LKNNRXh1MQbNaB/nzNO5RmhR20apZRpK/KgZWuO+HVSfsLVvPIG8aAYRQrbp 3BLqTcguYYYpH1U0viKhMbIhttBkdlCeuognGc3pYNsyhrp3oO5h9LLQDCuX VRtokLHIVctYnjjBIa9v0XOsnTHgZEl/h61dg8Ve5ClEs8hxVSa6AmKLkC6j dNTQjIgpHRKaTkkjJ7nGJYjYMfo7eMImPQusR3uLDj1dJnR1r6CnfxNdLLSE GSkVsTjlNCWjy9ifm8XNXYP6M7z+5leIzB1gnadYY9aZVjm50IxMykdyHqFe OI989stS1ri6jkuSvyUVQhMiLykPbe1LaO9YREfnAoMy0qlHa9cClIMrEHeb UKbQo7RhghAfwZu3393dt3nDZVNrxxFToEEMxTI0W5CPOYRl6AkvI1ILWOfi JRQKXqhmBTUUy6KqQ7SqWO+7GndyrFQto53LtPdQRnoW0NRvgrh3BRXtiyht mkabVqjzBjTGuynjL1A9bERIWhdCMobgny1gbJZrGxCeaaR0UUjyl7n2CsWE eKldY4+1QNZ2SCGmpW9j76VKNnWto6VnFS193MfAMhT9y2jikcu62F/6zFDO nUE5dUicEWtjK7j9+K3jD2G2tX2BiLwhduhpxJC0SeUm5LBdFFdvoIo6IqKO yAixFmpIK11Aa8saPZcZg93raCNLOpRzjFmGDt3dS1Cx7t0966iUsK1whjIS 4Zb5TezP6vD6N1oysnWEyLxBe7154KIVpBebbeazlj6XXriIOKioWUBdwwLE 0kVuZQMDhFKbcoG1NqKTdVapDOxOOuJglkQz0CAsoVxBLWnQoaRsHNtzU5+0 RKpfR4GSxGa/iGFDjqM2RWctISabx85bYOtif6C+lNYuo1q8AhHJXCUM7T20 /B2raKNmtXcvo7OXI2YvsdZnpHYZ0NyjR237HMrbaHxlE5D2mVjow7s6j20f oWbUhGjqSFjuJILTZ+GfrEdYupEYs9U5u5R1pvCX0QpWS7jNuhPW1cIam9Gk MqNFyDY7oXKAWBukpgyxbQ0uoqaDSxJjoiF2Sk6zQp1bR1dx++HbP7Ub7s2r Vyjo6UZcZTuCU4fxLHMSz5J0CEw2Ijx9CbE5y0jJpwMtW0c+s14iopo3HEHS cQIR3aWEVk/WvQkFm3ETJaxZvYaWYUqcmtlhNvLYOeXT51Aargi3U27jAMpJ Stryrv0emf3hz60kl9CcRuSqEU28xXHmSs5ftTaQYmHYqd+FSLLP4LzcYESD dIFqSgA0rmNwkH6A5lnVNU9dYQPp1vE5caea4eQxBZFijg2E2aihPRk3YXt2 Gt9+eGv7EQ4W33zxClKunVKrRXThNGIrFhGfu4a04m2uv4V0gelsIkXVS6gU mVAnXUZj8zJEnDP61TtQdi2jgwxXsfBdfQvUtHmCgFrXM0uhmUKhdAYlUk49 onF2grG74gvZl8+zFy1w0MqbId6NCMuk0KQaEZm5gMQ8yiuLn18tyCMHKOk6 6pvWIWo9ZLEtaGbhW3vpzPrX0DFIdzbEbaipdeoFgsCAmk4dCuRTqCT22zhh t46us/jf3RV/4+IacgMnUeMOIvMHiD0tgjJ08E+cp/bQj3O0SC5YRWY5MVdL X0qKVck3kdtwhqaBY0ipI4reTTQPbKBlyIzWYW5ndA2tY8toGSXNKLlZsmko NJyQdELx97kNofj2+3XcQ0FXG7KVTcjp6KTED8M/bRrPUuYRkLjIPSwjOnsN SYXryCjfQC4bWxEbW37jKcRd56ij72/o2UYjbZl0iA2PbVs+Rv/PkI2ZkaMk Z6ivjcR/u/El2g3P0c5pWzlLLz9lsu/hR3hx/RGLi6cwLZziP/zwfxu8/vpb SHQ0oRSpAjqEmCId4iuXkZRvRlYpx+DqPZQTmIUERhkbWI10iRJsgkxJkDBV A6MHBMISuvqX0DOwwJhHd7+BIJlDZ880W4MGhaIJVniME94IVqbHP/1vAynX lXPdGlqA6Dwd4tj14rM3EZfFx5xFpFCRsrmX4voVq6DWNa2hkW6qrmUffeMW KHuJiP5VqCgJXUNsuEME5xCVkchoH5hFEZGR1zCCQvEwJGxNtx9+9akswrnl +hWuvwXFwiF5vEp4zCAszYigpAWEZ3BE5FyQXk7zXstRidCoVHBcat2k2p0Q CifUhE3amg20qSk/I3R6Y6u0OHTR40uECA1+J92ZXIuKlgmW5IDQ2IDWdPBp D2Ob+1CQlEW9asKjlx1Bg8AMAwLilqhVy4jMXkVi0TrSKwgN4cYbR5/ypm1k NZ5DPnSGRo6D0gEa3eFtNI1toWmcGqWhZGo4Qo5QWOj6Sps1qJQOQzFBEgvQ mGErnDTZ/h8C/gpXb14hp1WMXGUrcju6kdcxRIGaJkwXEJC0guCUNURkmxFX tInUyi1k0Ujn01hnS55D3H+J6u491PXtUYL3IB7ZReM4zZGG8xWluKhXsHvz qFHOoJr7aJo+JkyvCNMztOupk3Nr2Hl+iT+27uWf4tWrr7C2dobaGg0ahJ+Z r+R77n5mvkj4GXQNZlpXsE+q/W8/hPHoxj5kBroCI8e6hSPE5LGpUtKTcrfo 3/YI5XVkViwjn82tTEInQ5fa0EbYq1ZR20KLqDlGJ51Dl3oZ3cMm9AwvMozo VhugGmKPH5hicxtHXr0amSWdhN28XVv/AhuXLwmlda69x7WPkcaRM65oDZFp JsYSonNNSC5ZQTZFrrBhDRXydcLIDDG7W43yEN1awklwx+p1dI6sQcUOpqLC qMaW0EEYKUf0KGqdQY50FNk1XZCx8Tarl20o+hk2BZHj8or5PTQZT5GlHKTQ TFFnlxCYsIzQzFXEUmBSaGGzOewXEkVlTbSySracjnM0j55DxvbSNLyFZqKo ZWIDrRSxFu0amrUrkLB5ZyuNNO1jqJT3o6Zl1CowrVqrofqJfRvyORMq1RoC qQu57YME0iiiOJ4Epq4gKHkdYQRRLEGUIoCILjqfw3dJyy5ymy8gGb5A/QAB NLyHxrFdSAlWKeVcOkmAa6mJfeuo6NKx309yHB1Dfce0FURKHUE0SxCdX/3Y jufOoQbktUqRp+xAvrKfMULXo0EEJ6aA5DUEJm0iJGubBn8HCZV7SBPtI1t2 gHTZJTnzCuW9FlQNWlAzbEHtmAV1Eweo0xygoH8PFT3LqOuZR61qjtlj0+Xz 9kXK7gJl10hucWjcvbzGP7Pu5Q/x+uYjRukVJA3EMqNFpEGn8MPhxPdAlQZD xPYwsT1SyBB+QSKLkTaO05kT/K8/vG8oyJVsjnJl2GY3O0TTwjmK2/ZoHDeQ mM3HPHYRuuX0yhVKnjBQrqOaM20DXbK024xq5T56prlNdjAVO1jX+Cq6J4h1 SlXX+AKxRskcmUVpqwY5EjWx2oHCIjleXN18kivZ3BLXp1xyEFZw/eaFF4gp 1CE8ZQlhrHJkLuWK3jmzhlaqcYPOny68jR5atUWgnUA1c4FmgqyNk4BynHin THVoKZlaOjot56eJeRTSSGbIx1Ah7aLrbyXWddg+vsYdymQzRig4tjUZDlHc oyXahpHfPsFpldNE6jqniQ1EFmwigUY6nVKVK91FMVFW0bGLctUlZOOXEKuJ MKJMTplSEGGKqS1auE1Ip2j/6DArumdQoxpn/tSokvWipnkIbTNmouz6DmWb z68gmphFbksbkdZDlKkZEyhUTnMrJgRlEmWZ25xedxBftYdUO8oK2hgd1xCN XqN6iAgbtaB+wgKR9gCiyQPUTxFlbPIV/Yuo66ev5lZq2zXkHDsYu9sdynaI sj+x7uVf4uZqE/kNhfDPKUBAXiXia9uQ3zaOwjbasVYdcsQLiC7ZQBBhElq0 j6gqCxIbDpEqP0KC7CX3ckuCHaNk6ASlI8coG+Pz0WMUDNKK0uXW03PV9S8g RzaG6NIOOoQWJNb0IUMxwVKpkS5Voap34A+t2/ljjA9zBpNorCH8Rk+HWGP9 WYSheg3GajXQUNinKjSYtv+M/WwxQ/iNGDa/ucwJbMqX8NX5+//5+/j/GUbN rJee+m44sIpc88IVWhdesR1ZEJnFQSZnHTHFq0ipXueBzShmq65UbqJOtYlG tumKzkOo5l5wCtxEBwWuU0seTFJnp1bQOUlDOSnckdChuEOLTJkaRY3tKKtR QFrdiF+/e/Nj+zY2WHf5HN2/YR9N86fcyhWq2fkzGrUIpdyHpps55FDoaOlT a7dIpS0UsWNXtO+gpnsHZapzGrRrKEaptxPb1NgttE5xrJym3s6ssUOuoHZ4 CVntOpS1j1Ds+uh8OrgVOYZnTZ+0dtZEFuyigYYir22Q0BujeZtEceccyyMY mW2E5e0gulz4f7P7yJQeUBQP+PcWFHZdo1FzjTpCr4HiJibsxPSt4pk9NEzv oHCIrB00on5wFnW9WtR2jhJ+A2RCJxTjRm53/jcseMFLquidqLVt1Nq2USJ8 EkUcisvaDchXkAm5uwgtOEBkhQXxdtRltR0hu+0V6kdvUKo+QTnRVjHB0B6h dJzjIruQeJTDB5tw/ZBwp60TMaVt8E2uxoOgDDjHFCCDqEutl9i9w7/FyEAf SvOy4PqL/xO/8PbBL/0i8YVfEj53i8MvXVPwS5cMhCbKUdG2QDEyobDZjPia bYRUHiNcdIJY2Smi6q6Z/ffI6D1D1sAZMgfPUD5yiGr6KzEtt4jTRWxlBxxC 0vEoJBWOIclwDo6HS1gm3OMr4RFfBPfYTLhFRqMmKwunBwf/xLq9/wavPv4t Vo/f4ubD31pfmRxdwWfW39f5fdvvewm/z9B498s/WkzXTkJXPQlD1SSMjM+w yD//MRYrtVgsF36cXQNTwTgWMtTC73v9+x+yRTZDpdZT3QzHhOkFWjgbtC68 QRllJa6croTyFMHOkVC9iQxh3qAdKKMdqO7ahoizRkkXjZr+Bs2EaOvkJuca KjYVsJ29tm1mBS3TS6gbmWePn0I5e311i4owbUEZ2bLbq7hjy9j6DtnCEUrP hsXRRDxpIVypTJ1T9MV6q0ELyd5GZAl7ce0uWbSHvOY9lHTso7JnH4Uqbl3/ mp5yjzZgjyJNczfDa85yFJrdQP0kyU5fX9k3zb48htoObqW5C5WNzaiWtfzY LpCbZxeQz6yiiW6hpIujCHW9oI1jCW1pSace5T1Gfr9COOwirMSCqNpDJEmP kNF6hFzVMXI7X7JPvEQFYVqlOUL1JGP6EOVaC0rHtiGZWKJrMRKuerqZQcSU NZGFjfSgNYgvFVH8ZTg5OLhD6rHlwIpWVx8//MInDJ/7JeKLpxn43DWZkY6Q ZBnSqth6ukyo5YSTpWAPabAgjCiNJkqTWs+Q0vSaqHyDHCI0d/gMxdTsKpJZ RkGQcAIoZM94miOCQzhRGpoE5xCiNDiaj2lwi8qGh4DSiBiEOTmh1obU37N3 +Zuv/w5r5++xfhdnjFPG8btP6D05PMAzdyf4M54534fX53+NL5744Z5vFL54 FIovvgzDl19E4/4XCXhwLwmPHqYiOqOdx+F4z1laxFlWTFJFUvsfe6sgSe1A bkorUS7V7OL/4J87aCT2kkRDcI7MhXtMDjyis+ARlQE3HsmNR3IPjcOTmFR4 JebDMyEbj2PjEO3shGgeSZSZhbP9A+tehfOsX7xH/TRbLKNhinrHdiumqROP HyC+YhLBZFFx2RiKS0Zsvz8n0WJMPIWphhnM1c9hvk6PxToDlusNWBUZsNZg wHqDno86rItmsF43BXO1FuayUazlDQi/H2j/1Vw8tINw4/ySuF2DgiBsonVt mn9BWr6GdPacksxOTaMTX2VGeMEOoip3kSz8dINijyDl/M0Zq4b2uKD7DC2G W1aZPKBUN81uo3mOZki3AcUczd7kCgo4HNT0a1HPmbKWM2V1k5J8kGKYM96F YfxP7NItm1rgW3gJPRXCcEle6Kw2uUg1g9IePQ3IArezhbBiu2EQW5DRfMgR UfBdh8jueoFm/VvUCuZlip1khpmd20f97B6qpnZQPLwGybieI+EMRIPsIt3D qGkXttOGCrEY16+u8d9b9/JvrISoa2rBvaAk3A/KJCHSSYhcSjcfPbIRltHE Dkbn37/CdrCGsp4tJMnY94WfU2gmGTrOkNb6GpLpN8gbOUP+GEkxdoo6Vrue 04N8ao2TxDIS61rxKCodjuHxJALJQBQ5habAMSiGEh6FMKInlOjR9PXhD6x7 y8MxkV7OtiIgPcDdGR6eXvjSJxJferKtEOVffBmNe1/G48H9ZDg8SoVfSDVy xUz/0AYaaOQaqQ9VHNHDK/XwD+pGcWovyqRTdimjp2EZ5fSfyQ3dcI0RiJkF z9gMeBHZjyOJ8rA4eIRE4nF4NDzjifJootzF+RPS64n0m2/+DuqNC4hmWQOG mLVo5NkbiXQJkS6hMEjG+P3wAbxjRHjkHgdfd28EezjD3+EX8CN773k+xT3n YNz7IgQPvojEwy9j8eheIpzIXBcnss41C4ER9ciXTKNBvU2PNYX//J/j8fTn ach2yUS9fxoa08utMi0lPINyJTxLAdthAR/zeKYcsjWL66fDOzqF50mAT0wy fBMz8CQph2eLR5yrE+JcGDyb75Ng5BOHDaSLmNE4xzPwbBKeTcpzSelakukk I3KHEJk9jIhMRuowohOHUV+gxZR4HjrRIoz1JphEy1hrXIFZuopN2Sq25UKs MEyMRWzLjNhp1GFXpMVu1Qg2inrs5LXdZPh9vHz1EeurZxjpX4VUuClB/9rM wU1RNIE94ffK58/sRuRfYfP8BbsNm56OTU//HM0G9l7jG1QMLJE5sygbMKBC vYCEOo4HNEUxdLApRHO28pAEP+Tfk13dz8nKD9aRQDyzz9NzLtbR7+l22Hm2 aNPJhNE5juaTEA9yHu4ZILs6UdUkx1iXBEcjcvzt+zd2hv1rImwZCfU9SBQN 83GM1VHQlLWx26mQJptA5eASatUrZP4mkiQ0a/XHiFecILX9BNk9p0htecHz fEDZBM3a5DHKp48Y3CvVumGSokY/UNw1hoQaKR5FpsExLBGPQtPwKCgODs+C 4frgSwSzqhNkFjuhjVzFVnKV2cn12NuX/zwVDwMyCMZkEisKX96Lw32HJDg4 sYu5ZuBZZC3y5TwyTbxwf0k2uWMlUGStHoFhPajM7UdO4ww9wy6amapmnaCP HER7JuHGjucRlw6vuFQ8iU2CZySJFRrJNhIJV7YSNwpAjKuzlVxR3GqUoxO0 PX3WnQrtY2j9gtOZrX00fK99iEf3Mbx4AfPRO/QPjCHAwwmBDIFcYQwPV1fc 9+ZZvghmO4zAAxLrIYnl6EBiOZNY7mxrj3MQRGKKRwUzscMzTuPnP09AyBdp KHicDnFQMiS17VBQXAXRCCloxOP4fAaJlUBixZNYPJtvbAp8YxLgRbHwCguD N8nlFRePBDdnxPNsYZ7e8AggabNFaNSTTEKQXFKSS0ZyySgacp5PzvPJKBpP ExvwwDsbDzwZ7tlwdY2Dz70H8P/8P+KBhx/u//IpxSIUDhTBRxRBJ4qgi2M6 3F2Z68fZ8PTKw+Mn+SiQTcPXtxqf/00pwj3qUBrZgJasOnQVFlprGJIvZev3 iCsk4TziCygGBTxTHnzic+DLsz2NT6NwJPF5Kp6lpMMnJZNtPx6JFOQIL288 Cs+CY0QWHoVloYhTs4RDopTnktnPJee5agc4JBbQnOWpEZM7jJisUcRmjCM+ VYPkRC1SojUYoTVebtzEumwbm3Rd28072G3dxX7bDg5ojw/athgb2G9dx0Hz Mg7k89bfpDyoG8RZ3wxsH4xhv3XzB1hfO4W4fsJ626ebMcgJeKROgwn7FKyl ikyU2T6YY5DTr655BbfPP/6hvS2OrbI90O2W0OEmiiaQLJ5GdNUQQkuUCK/o QvkgJ5kRE+rGVmnsN5GssCC68RiJrSfI6DpB3sAJUrquyIKPqKBlrZw5QtXs ISqYkQISt1q4vzdrhGJKj6RaMZ5lFjCDyZxsEuHgHwFHNzf4/t9/DZ+/+U93 xIVtbzOfmHufaHIIzqbHLMFDvzx86ZiEew40fc7JeOhGAfDJQ2xRJ0RjZjJG uMWyhYJ+Wgj1EeLbOXlVX2J05iXSB49Ry71Vs1Jt8xto5ajfrFtFUFE9mZtM A5hI8xcLj3AyNiQELkL7DgzFE6d7iHh0n4wlEn7jZT+ZvqH1S6uINkzaGCsM vA1krPnkPRn73nqascHeT6wNIWO9vf3gFJiK+x6xbIfhuC8w9gEFzTEFLvTn bh5krFcOHvNsKeW91huVQjsvapnBL2l4w9kyi73TIA5JQp1kgI5tl4pElBc1 wDMxl0HGJpKxCWRsfAr8YhPwNCYG3hFhbIvhcA0JRgKRfcfa0MdP4PYsHn6Z VIg5eytkSO2MlU0Jvt/GWCnbvG+cCPfJWCd3Mp1tPpxnihSU6NFD3HcMsjL2 Ic25Axnr+DAFzk48kxsZ65kDL+88PPHLR0SyxHoX39e/lv++DHG+dahOEKE9 rxqqohw00TqGFUmpPoU8DyMpn2ciY6lGvgmZeJqQhmcJSXgWT5MeFUF1iuff xyPZwwWewXFwjOT+hCBrA3JFkJGxcqqR4I4VPJeCbb6J52pi3fxTaVmeZeOR H8OHWHvC99EW3vsyBo4/96M98cCDX/rDgbV6xFo53U+EM9XVlbbEg//O8wnP 5MshgQoWTHymhsrxuYMMEeHtKMtVoZXK2iMVQ1qnsmrQ4/iCz/A4oYBi5JVY QBEt4LHy4JeYjWdJGfBPSoF3bDz803jMtDT4x0Qi0D8UzhyrnKOzrY8ukVlw Cc+0HUv3vWOxXJlUhLiCIcYw4ulcEtOHkZo8jPSUCWQnaZGTOI3shBnUp+mx 2XKEnbZj7JMqls5jHHEaPeo6wnHXIeOA3+/B0rEFS9sqLE3zsMg0OBD34Nev 3sD2ESOw3Uf7I+uHtUhEo2gVa9AjfFALY5Ixx+/nGzRYpDgtUZxMwu/KV/H7 CtuHtcwUUKSyNDiePbWb4v8dcRVSq1F3CCkk8yvgHF6Lh965uO9C1runwsEz HU9TxIiv7mOvNNOYb1KLt1GkPuTAfIj47nOEK56jVfsBmTTqZZP7qOXwINFt QmlcQ5thGWmSZhpisj4mFo+jouAZHgY3Mt85OAqOfr4I/pv/iCCqU7jD/U/M 1xtXsfb8vZX5Il5TYL3Qq62sH7Oz/vi97bMM/Ky+PsDaqp3wKIBeNzgXzs8K 2KqjcP8BhY1gcXRNg4tHJtwJOg8fTqJ+uShun4WUwqyYo83Q7yGuSAmfBzFI d45F4eNoKPqm0LawjTbjFp3VFNwTsuBF5DxJTCOS6HnjEkj6aDyNDseT0ADa j3D4udxH9INfIJ6kjyPpfbxDcD84CwX0wD8g/Iyd8DyajIImpQWRjpD0tA+O HhQJEj6U54kg4f04kbv4U8gehFk9vcO9eDxySIaTc5rNdlDEPH3z4M0zewcU IDJdarVTPsG1cHpQhpSAOtSn1KOzsIqkz0Lr/C4iSqXwSi5gkPDJufBJJuGT yIREG+H9E+IQEB8Jn8ggTurBSH7sQtI7wzMo7jP26Gz8JziFZyOADkSmt5Nj 7jfkUPBYCh7LP1kEB78sONB9OHiR98J2XeIR6uoDT4eHePgohBoWRg2jBgh8 5+jl4mJ3HYKGPSVpeSQf9qR4altauAIOHnIkxLejtrgTHeJW9MrqUZpbi8ck uGcSw3ospoLhm0TCJ9kJn5yKwGSWLD6Kr8Xy2PHwDo2HC8nuwpFNeHQl6d1I +hBqWRPPJdxqaua5PkMzC/b7qFAZ4BRE3QpkBFAkfLlfb4ZvDh46sb88jLX/ tsnncPwyDs4Pkq3fubll4bFXrtUh+rvnIC64FDGRxcxHPv6LVwcCUgaRVzWM xqZ+dIga4BtWiNDADHiHZdvOxXgiCFhivvVMT1Ny8SyVsE8ToJiAgEyWLoMQ T+UZYnLgFhQPNz86Yu8wOPtFwDkgFs+yy5As7UBKYyfyWkZQ0jaD6JwuJOQP IjmjHyncQ2rqCDJTx5CXMo7iZC3KUydRkT6D4jQOKbkL2O+8xGHXJY57rnDS e0m3xOi/4OM5TvpOcNhjgaVrh2JGIVPqYeE6zznc2EXMdnvzxxgdNKBJPIpO yQQGpXRRDB1jUaLBSqMWZuGDUhg7jF2+tkOB22ZsimwfAyPcOdXnWz8CBqtn 76z3tz6z3uH6kfUe183Hv7P/WpvwpwijA73W4eTBUxrcwCyKTzGc/UvZWoWy 0cS7sX3SoLt6Z1EZaAmesVS0QqVds9b7r03zO2hZ2EV59zRhG4MUlxgUeEah ZXASHaYttC9toFqtRVhpNRWCJjeJ6sCy+MXF0BJE4GlUEJ6E+cMl4Ckiaboj fv7XiKJK+PoE40FwJiMbhT0GmzrM2dXhH1qCUaqHmpZPoiecghFEdbhTCKdn iXAJzKMFSOVgEgMHB6qgM22OewbcvbKoDrl48owKEUgIBRegrFtHeO+ipHOW ligLiV7FqIkuQVt6HppTE6Fc3EGVepZU4vsINe+ULPgmZ5A2qZ/sgH9cJHtm MLwiAuHv8QBRn/81Ap4Gw9Fq4gVLwCB8S/v0P+idTXeWgOdqokQk0no5+GTh IZXZgZbM3S0eIW7eeOblC6cncbQEHExocx5RHpwcSTU3nom2yNNHOBPPE1QA PzYw34A8JNFWpEfKSUkF0lLa0VDRgS5pC/oUNcjLq4dXSiG8Ukklhk9qPvx4 tqcplIdkQR5SEEB5CEyOhn98CG1qMGJ8feEcmfGZVRv+CK53CkG3E5wjsqmD EDyWoA/NLFlFp57KkGVVBye6HWe6HReqnwsVzdU5064OmXQ4cfj+l8eTXHj5 FXB+5pZ4vPiQEqQmFLMPl+GX/p2IyBlEaYMaCmUf6muqOEMXICyYMxTT7JVC tWP4UPH8GII6+KdRHdLTEJjOcvFIz5Kj4JLE9IanwT0ogU0jGG6P2bTc/Njn AzkpxCG6UooMWRcypV3IamQ0dOFL7wQ4BqTDwZ3WyCMUro9D4e4Rgsd87nzf E86OwaRQgvUMj9icnOhGnelGhS93D1LJIQORTwoRE1GOgLAiPA0twDP/TISH SuGQMYio+hEUd40jOkOByCBhb5yHI8rwNIJwjWWJk4VzsVSpVL10qmcGu05m Op6lJbH7kMolZXAIT4Ebz+DIruLg5IlHDEdH7u0RH30ikSXvRra0BzmNvUgq UyEiVYnoqGbExXUjmWqXljGF7IxZFGbMoSxLh6pcPery9RAX6FGRY4CiyITj vtc4FX4JdvA1ng+9hjpegTUq+DmV7nDwHJa+Q1h6aOG6TbCopjhfdt2pnu0m 1BcYH9Sj1f7JN8N0eFMyLeY5Ui/LZrAhm8WuXPjIjlkctczipG0WpxTo07Yp nLRqcdSshb5xDKrqUaQWqJGSo0ZW+aT1Pppk2nYfzXqPkD6ikUoxvHgJ86Ft MKqgP7INRfRHvrFsBllwDaICuhCmHIQcafdcPDg8PGGTYiPz8mfjZRl8Qph6 NqKKfh2ajTsopfo9ZDkTWM6a6GK0ZuSiLSMRHcvbqBmZJAxz4M2m5JNKpUih UiQRegl02HFR8I8NgX/0U3iF+yPmi/8LwQ6f455fFFVb0ImHcOafzlSLMqqF 9dY6VbBJUIvp3wwQCqpgaYseD6gW1lsZrpkIpE+KoQK6+CXC1ZfK8zABDvc5 mDjyTG48kyfPRKXwovr5UP18Cb+n4YWEVyGKa/vw9HExB0ER0uMUaCxqQnd9 I/rFpagenrbS6klaPrzT8uCbmkNaZVlvW1iVIolNNzEaAQmheBYXhADPB3D3 fkqhyLKaCUEq3IQQ5IKKWMFzCVLRwnO18FwtrFuLIBcqu1z4M54yB1QwZ57N xZX0daZN9oqFAxXQOhA9TLKpxxN4Pc23HYclesq3xIcXc/AoxmOK34MwFeIK B1ElHUKLqhfVojqE0xP4R9PmJVDM0/g+xlMe7VmqXSnoIwLJqKC0GASlcNlY eoaIJM7sOTa1oJ94HBgPz8A4eIZShENSkdsyjMr+OVT1MXrnUM1wCEjFI1pV Zz/6KvcguLoHU9Appu5RnEv5d7TXNqWIsCqFE5XCxSWDSpRjfd2Lj+E++YiN LkNwdBH8qXLPOKEkJSjhTtgnSEeYyjHEJVcgKjgFHiH58OK/9Y+mQsTnskz2 c7GR3SlFUGYSVZD+Mj/fqhSPn4SwgQQS+j5wdH4CJ6cncHH0hqtrAHxiC5Cv 6P8MBfJ+SnVoVj0ePEvFPQc/IvX+Iz88gjOP5PEkkuNoBFydvOFmjWfW7f/y HkX/XgJchJuC91Ktr0UHlfEIRdY+9cQ/B4FsCOnheaiTdHA0X4NkkjG1Bve4 PDjFlMA9ohR+tJfOLKlvVDGCOF77xTPItqdZLCNFLzA7A88ykuBbUIgvWUpH V184uDwhk3kchrOLN8dpH7g6+sKNu47IrkeBdBCFkiFEZXUiKqYFUWGtiApX ITqiDwlx4xTAeRTnmlBRuIyakhWIypbRWL4EecUiqgvnsdxxhfPhj7gY+YDt ui3oOEzu1vfjomceR8MvYBk6g2XwAJYBMyz9BoqhGn97+8b2IaP2W2r3rB+p pxQPUANHrZ/+NSWfg1FuwKrcaP2stoOWJRwrTTjvNOGiawlXPYt40bvAmMea csb6mYEFtSMoqBm2GubcsmFkcwrPr9R+uuGgoF4otDa9kI/RPQ1zrooW4TEr JzimyMfCbeowuLA9u9KUu7qRbxwunN04T3lx+PDhPCW4JWqgoBd+EQRhVCGe xRQiS6ZGTLyM7bweGfFyNBYr0EPNGGgsQ2tvO90FNZDg82Gr8iOxnqWm09wL ziKRmhGDwIRwBMb5wy/SC0/82HqD6NaCYuFOzfgM7lab4cGKe1AzKqkZLdSM 1n+gGS08X2Aq50RqhiPR5ETn5OxOR+QUB1efBJIpHXefKuFqnXlzvve7539F 7ROEIxchQbkooDBExEnhFKJEan4vRI196GxXoVvViPx4al6scB72AcbTdBIr jQhMzURAKgUjlYKRGoug5DDqfgTJFQvHEJ6F73lM0fAMsgtGWCo8eSb30AxU DlAsGJ+hmn/+B1RTPPzTqjgkUrNpLVysgkGGeUTh8eMEWohs/MKBA+TnYdaB ysmBTl0QDGrkY868Vjn0pmiwXkmJ5QiNL0IASezPtVKSlfAuHUZq8wjyVX1I Sy1DQHgmNbmYrrwYgVZm5VjP5Z/xfcFIRlBGLPyyYvAgjtaCLt2Tc7wnheMJ w8PjGdxcfCgaXnDxDKVo5CGvqZdnylf0IhYh2TW47x2Ne4+8qRneeOjsxx4T BE+vMDzxCoU33+NKVgpf93+ZYLNMgmKwn7kyhK+40DKERZXiaZjg2HMQ4J+N lOgCNCg6rP/7WT63xoF7DR6JeXCILoWnEGH5cI0UzlaCkGjWSRh8syjw2dkI zMlAUHYS3CuK8WUie6I37Zs7HbarN5wphK6ufnB3eQoP52fwcPSHu2so0qrb UdI8jFLmzye+jFY0HI+cgyiaQZwugliHQIp3IJ14FCcSvs/9KR67+dqU0DkP X36RDu/PkxDumW99zdM3nwpIFXyciWgO9fEJpQiOI66410bNChq1KxxOe+FG IXdno3KMzcdDnusJz+Qdxh5ODgbFcTCOyWAvzoR/rnDTMY3nS4VDSSV+ERDD 8zyxnsnFTTjTU57jGR67BMDTOZDnCiQ3YlEiH0UpIyq1g+rXhpio7k98SY2Z REHW0vf48keQ1m1CUWdGS/0KasuN0DfsYzVvDR8nP+J24VvsDXIAnniHo7Eb WEYvYRk54aP9YwKGNHh/sAu7DP47+8+OvHl5i3ZRN7okwxyApzEpM2JebqIM rmK7eZ2z8wZOVZu46N3Edf8mXg1u4rV6A2/UZkwKP1PGYbicw3E5B+hySmKp aBQltcMoqlQjn71fMrRusxp2yWimfWrmsBUg3I+hfbq7FxPq7gN/L6aFMuLq lG7Lwl+yv2X/YDgRFOMZ0efPagWzd2VF5iA6rpFsb6Mb7YFI0gtVpwq93RIU J2SyqpnwyaRyklXPMojEdDo1QTHSyKzUOFqMCAQlBlLvwvE4is5GuA3jHwEv KsZn9J7xENo6nSjX8QznbNw+jqpBWgxGzYAQs4gplXGWT+FRaCWexNC9xsP9 sRCCMySCqIIuDrbbLy4unO3pBIU7f17+NjT6hRN5fllIiChCYhqVI7kI3nGV +GWECmHlTGXLCBr6+tFUUsXzc8giAwLDc9kFsvE0g7mgygdQMQIzqBgZgmLw XGnhuJdF9Q6JoDL4wUtQDCqHzxMhQuHp7k9kPoOzbzTC8jiTtvSiQIjmHiRV K/CQr9+nHblPZXn4yIudiej1CMQTzxB4c+BydEvF3/ycPkG4tfQoxaoYbl60 aF62eiVEliIivpR2qAABrFVAUBZSyKLGlg6IZ01onl9Di3ENzon5cOZ5fKmC Phy0nlARg2MKEJLIWmXxXNk5Vo8RlM1zZdGBFhXCyYcM93wGLx+e40kw16a3 sKuGuxOVw/Ep9xKJtNo2lLQOoZThk1CCB1QUBxd/PHJ5Rn/Cs/Pfu7r5w4sK 5OsbDg8XL+vef/EwFw+/pAo+SrUzLw0RYaVWiyt0YV9268igPCQklyI0iXik cstmViCbXUGqtBMeSbl4nJzHs9EPxdnO5hvBATKmCMEJhQiPJwbT0hGYlw6/ wkw4FhXhy8BomwJStVypXm5uAfBwo6K5BuOJK2vmEgIvl2DEcdivaBtHZdsE HJ+l8z1hfE84FTSck1M4sRbGbhUGT3YwD9brsZeg9gE2hXdM4NlL4OdRwL+3 1cmdbiOAzxNoXUPiiuku2H047PrHCXelR6mGS0hqaKcS5liV0D0xFx48m1MC FT6+xMpD/yihe+UjPCkHYel0Gf8fYe8ZHUeWZ/ndrd6VdLQz2rM7ZjXSSLuS Pkga6exox3f5Knr49N5nIoFMJDITSG/gvSVo4L0hDC0AggABFC1IggRt0bty zaqu6q7urjaz+ji6LxKs7v6wqzrnVSaSJCJevHd//3sjI16wX8qqSuwk3bPU Fu4bKxT7JFNYuT07yeyAhlTXiZbP/c13obF/EVUHT8IbHKPlnoLPd4yheAH+ 0jMI+jMrWqSj51BXsYGOzkc40PVI+qzv0D0cbL2MtuRpjDRcwqtL/wmfLv2G 7Vd4ufQLPCUZH57+CvcXPmdjOF7cXrHk1Aq+eXj/92D4Zzgzu4wJaUnKZZzq voDVbrE4401pccaPR+/iyeTHeDlzH58fe4BXJ+7jx6fu4xt6u7GhdbT0rqCV mfkwQXj40DwOH+DR238M7Z3H0dBxAvXNR1FVNcMZNbT+Mf4DhuinhgjGcOcU 8h30fCaqSOOnTxItiex8KkpPz5Qfg1KV8RdytfCE9FdmhicHs6A7QxArlVPk SiMSb6SrroOtvAq7SqZQ2HwctUMncHB2Fm39XTBxpPTBejr5NL1fgj4jvU0O KiwWgiPmhyNSjPxwOXKDIWZkpguFhrVLDQNVYtS53oBRW4j/hkChbbUFoQtU oHJ4ClVDU6gWbXAS+4zFb1BtaliRRX7k5qil6qdVOjkP/NiZ3QDZax7K6aA0 wkFRH7ZML91M/aFQI4rC7Ak1ZKGL87oiONLZB//IEupPrKJ+fhWmdBus/mo6 KbK5uBIm8sbFeWsLsUeJbW4kQmx0o6zQ2aVBuh4tWaGBTu+GXl9EB+DYdhsZ x6Hiq9wRQd3IHBpGj6JhhOzg78xiBc9my2XLJ2tkgjl0Xkq5kexwUXNOfJhT keEGnaFw8fKcCNyGKqlPIj6aPIyG9iTzThqheAPczEv+hk70rV9B/0dXEOsb h5oxWM2ULw9V01HVw0YWWlh3tMEGuuMUawO5kY6xlUNeX4XdpeXcNmM4+SVX WjLuh0xTkR0amf0NisyBFvEWpbXdaB49JbUcAw0sZZiv4JBwWOQiSgpjqCJy lFYeHqJVlTFQe+TleHcX8berHG5TpjsqE3eTJctuTCHoq0dxWS0xX8Hh4oQi Bg4vX8LhlUvE4QgUZQIZRGKogt1j1zg5lWXsWoBlQZQwloCiUBpFQZrC1ibs 9pZL2ChQGCVkSPumcEGjoGmVcdjkRTAqimFUFTOZV6N1dAltY2cooAjDkIfl 1cswJcqwl+bSyzLhhc5QDB2DlkpDA62wSX2wW0uRvR1I8nND0OfFpPdON8sv Q4mRyDZ50xkcEn/hjkF0zZ9HcP8QZKVJyAMpyNlfBfumFMMW5SsNvDxYy7LA 0CVatBpeDlkOP99BM5FBoZn9srNf4myEGxr2RyfzwMBmVHigZWseWkay4xR8 JWPE4DEa1EUEgmfZPkJ5+KK0n5UVV1BXfRXNjTdxsDuzVFxH0w0catrE2PAd dB2+hOtHv8any/8v22/wyfIv8Wz5Z3h45hvcP/MK95dpEFfEojpiIaU1fPPk 4TYOMy/Z9IavMN4xgSMHTuPooQs4fXgT57rv4Gr/A9zeXlj0xdwzfH7iOb6c f45vFp/Tij7HxOgFtA2sYZB+cvzgabYFjB2Yx2jXKYzuP47hjjn0ts2ivf0o qhumkOwcR2pwHOlBceX/GPYaCjnrDIwsKmRlqxi1dJDnmjlyhEd+E4Ua46T/ HSSKU4VWItHFqOzIFLYQZ1gg2QBHiGYiUglHYQQ9NW0IjS+jYX4NbUvL0KXa YAlWw+ZhtKQ4zYwBLsYyB2OlPclX2nlHIgAtrf2+WAJykwU6rY7Q0ENNW29i 3DBzdulZbN+Aioj7rzjDnFBwW/Xjc2icYBufhbeu8w1kM+P8Ka2unvVaTwax S0wI8nwtB9yM3fIq7NmT6ZJsm4kKDWuzPjNBi4OstfRPkmiccZSRe+XpeoTa DmDw4tU3MHjpKv4YGlpBbawSecSFgeVZIEfrq6GdqkFxIEa4h2FPh6CtS2Ff NIF8q4O6IMaoNZ2umBbPkUEH2aCTO96Anh/8GzqkIpLqMFomTqF14iRyTcSH yg4Z6Snjq1JgQ22lO7Tw4NBtKg0wGhzsrQcfZDUgm/nLkB3NmKn/DVqHgH0C TmsK5exYSbQW9rIKGvI0jWsKvWuX0Lt+CdG+Eai2lZXpWQVkZTVQEYyFVKSZ 8cwaqYHHH6LpiCErLr4PJYzVeinmyql0pUIonuaX9NBTbQaVGyY1CaJx0/BU cdzaJk7j7xn5aaD4uYzGUaYtgpJdVuvc0Or570hDvY5GTJ05uaaiIZMzOsoU dZkCth1SimnovcIUlTBsSNQQNGQrTyJycBSHzpxH6NAwiZiSiKgk9UT/NCzD OsZjdbwS+lgNCvm5wx+FJlWPgngNci1eksO0fR7TBQX7oSYBtQrOPUUJSeiD SeODWVsKnakM7ZOr6JhaZX9Y+HQiyMj1Ac5NpTEAtcnP6OuH3uJj3zzMXMWv 13XSm5mkjUHsprQy+et/h9qWgtaVkvyrsYSHnDXIHEgi1N6PzlPrTL5tKCAM ZX4CMchWTp/IIVRxKDSpJHQVnMeJSuiinIDllG2iBtluTkRKWlVgks6yyDk0 SoVwGgJ+JQR8KT2qn8Pkp9nwE+7rqOtdJginCcIFBMpWEQxdwOsVxhKVN1BV exP1jbfQ3HwLLS0fS3/SO/gCg1PPMDL2AIPDW1ji+09XCMOz/4hPzv4az1a+ w8OVb3H/LP3h2qdsTMtrmQVcvnn26Pdg+G9w98ptTNHLzRxYx/FD17By+A4u 9D2SVsA917KBG51XpWWOXy18gW+WvsC3K19gcuwyDvSvY/zwKia61zDZs/YG /7eK/5U/nuXHZzDMzNzTOolDDf1oaBpFRdsY6iamyY8jiB7oZaik8ZBrkUPT ksdWkM8wlqeBPFuLPbkR7Mppo/QyNlCcMlQxP2tsHCxzAiWFmc9d4WoGXTKQ Bt7LQYxWMpxVVGNog+AYuXIVfwVtXEzBSkqtHkbKy+yt2AZHNcERIULLYKok BpNp7CnxExYGOkIz9ELxLNImXUkGGuSFXu2AgYVWXHGtMxUh0HwYbUdOsp2A ia4zlzE/n5lEzqbiv9ewi1pmVD0Nh06hQ47ahx3ZVdv+MAoFu1lkqoSnpC5z DoD7ZnQmUMwMHCHiPSnuJxFhj6XfwMCFDfw54oOjJAYpE2c3qCpFpJqRrIFR vwY2XxJmyXPQigX8yKmpxR4vu6TnLuhFRLFsU8OVoQZjlYFkMJEKZlLBSCqU NfejY1rcE7GIPE0hBcYP34KCrlJNYGjpCPVGJ52hHUa9RbpuRpzXyhLfGue3 wmLKkF7JJKlWR+B1VKK0vI67VwkrLYWtXICQr9EkmuYW0LN6Hk46RWWYyops A5HQ0BMahhR/pqpMkVqOFN0hR0tV3YiswjIYlDpWE1Pmyw8l7Q/BoaXS9Eov u+Rll0rYpRJYDCUwWILszgpHa5gA9BIZPigMbEYfoVECrZnKtNCmWD0wWYrw mholhW7IDH7pp8xnDjrcWhhFMS4kOTyZc7fCQonzgFYe9vihARw4vY6ygwPb 1CAlQoQiyaGOkzhM/bp0EobKJJRJQY9qzr467HTFOCxuuPJ4XPNIDiVLFomh URB8JIZBFWCfyliUy2A1sv8E3v7p89g/cx4yfiY3lEPBnKUwh6CyMt/Y+N5E KDJ3ue1RFPsiMDtoF63CLtphE2cF7FXIZxXOGA0mFSsF5iTZiph6vWyknymQ QFlbLzqO06LtH0a+L44CfiZj32Tsr5zjqEpwrNknbWUCuqoEDEz+6mQSe1It 0MuY9gtcsHBcHAUcowIWIIWP/eK0VAQ4jlSfppz9YjOWE/AXCPgLpOFRBMqX SUPa0sgVlMWvSyOQrLuLqqZ7SNXd+f7c4aGpL9E//hmGJl9g5MhjjB25izZy 6ZNV0nDtN3i5+is8XSUR136G+x/9GPfPfYb755/w9Rbur58TC5zi95D4P2O0 aRjT0kLZl3Hy4C3G5Ye4NPQcNyY+Q0duN9a9B/Fs6AG+Wv4aP139mjjcwIGB cxjvuYDJvks40reBI/1X2DYw1X8Zk/2XMHx4CT2d02wT6GkfwqG2PtS0jaNl +iha2Yz+yBvIJS3+gM7DSH4YoKEd03Kma4lJRYEFH2ZXs67U/haJmhgs2njm QBRxIlbAxNzhZhiOxmsRrKmDk0JyEm3tCyTyxgZiA0PQEIlaUbo4AVWcgKoQ 3STdh50IMwdTmXIWSSArSFHbC2EgO0x6B50F3QZRqCU3dGqyg9wwMWqajdy2 0U3xu1HIstk5t4j9FHeejm6C0FAQGko2DcGhNxGfRhtMBjP/LbGosWCfIprB X24URc4a6BmXNY6MPXQyVpYzg5WwP8JFOQgIBwHhoJhaTiyg//wFxAaHvweH 6JuebDQmycdEFQyxOriZz5z+MPtagVxOXrEvOr2NTKTQxIlrJeOy0kO8ewm0 Eu4XwUE4WE1shIOHcb1rbgXBNuYjg5fgKIGS4FDxz7R0MHob4WHjsbDxGFid nNAWFPP322w+7FHTFshS4rKhzDDNweKpgMFLdtBxWHi4rXQWtkhSYmK8f5zx ch2ycqKd+pK4GGUIYHd1qRT0dB1GssNURd3RDpuT1dhHgyknA+1yF+y5jLr5 Lum7HbWyBDoaKAMZYNIFyMIAuxSE1RKAkUapa+4januc7AiwO0EyuwwqSxnZ EWTYoDadbBYeCh6O0pIQHHay32SDlhUyW5OgcayFmbxXsDCrbNS/Kwm9+L5H RF+/uCAwCUsojvKuIXQtnEXZgUEUBOOQlzFwhMnFbXYIN6Vlv/Tsk6E6AWN1 DDuTdaykXjjzbDDkiUjMiJ7HfWHTkhl6/mzUhmE2hGExR2C1RmAk97rmLuHA scuQGyNkYRRKawxKG3nkoJnl3zWZYijyV8HmjcIs7quyFMNu8iBYEkRxKWO1 swS7LDWQKWNQ6JKZOsbgpXWzv16yjfzTl0bhb+1H69EllHYMIJ+yyffHkV/G FiYbGagUSU6zdAIaMlFbJbjI7Sci2MupkUuTbeL4mAtYr+RBOJUhcp/GNT/A 8QpTVhHKg/tnYrNEWLs2yPkN+MML5OE6ebiBstgNlKXvIFybcYSRqodIN34h vW8ffEoYPUDfkc8xOPMJRuaeYuzox+gavogXa7/Cy/Xv8GL9F3i6zsh87qe4 f4FMvPg57l8iEy/SJZ77CL/+9ifbSJQe+vSDTA18/Q5GTDTPYLpjHTP7NzF/ 8GOs9T3FxtinuDnzCr3RdUzX3sZW4zM8a7iCrcHbNIvnMNa7QRJu4sjgFqaH bknLlU4P83X4Joa6V9HXvch2Cv3dR9F/eAoDB0bQdmAUjYOz2H/0JPLMbhYs G5nCSc5XrcECPTlioL8xMuuZNDrkcXLsyKmX9lKdF0axrQpFpTWZvS5hYuFA Bhg3y9PkAvn3mo9Oiqty4gjT5gVEv2eksI4ZlpjTLPrJKhjJoaLty9n20n1m O8thzaZlNLokDho04rwHvRUnr4HCMZEjFjM5wlRis5aQCUw1xREcOL6MgyfO oMBYzEnmgZIGREMDorNxstvJEorNYneQJ2SvVv/akxRomyBjvVaYEtv171/C F66lr6K/oreyiaBJXjiYUuzUVmp4Ar0fnUO0f4gcEd9/qwnJs+wK/VWaZrqS qaeKXqYiLV2Dk1/ZgBxzKdRyDwrzuAv5zMCKIuZesoShy8DQZSYvLBJHgrCT FXZ7QDr/evDERyjvHIeCfFFZ2WwBaPhnOifTjqsUJpePGi2GRWTukgCKPAys eg1yNKXIpSsWF6XYC1mO7NRMIXngyXgQM72GhT7KSmaIb7mivcM4eOYsWULv EqLWXrPkd5KZvlKwJCl9C1FQXYl97JOFfLSyTyZZKdxyP2wyBkX6Kr2mjF5W +A+GbXOYw8RmD8PqKMfB4xdRO7zIPglfxRJiC5MHEbIuTLaQQ0yVxcVxFFH7 1iIOsdPN32dFCcO6u9iDbEOaFVuc7yZLLGQJ/ZW2iCwpIUvIDRN5aChPINjR h46TSwgeGGC/Eijg7ysI/ZYlKvorDfukrRKczPAk32FDrrgKhenSoCxHYS6n W14ZHGqWcGUEFnUYRkMcZjP3zZZgf+JINI+yT1c5Vtcgt3AekdtKewoy/h0Z HYXTW0efXU3/RyvgjUFnDsJTFIOvPAor05GxiNOz2AEZxzI/LyJ5R8F/8XtU 5L+mWNy3GpPuQI/3TKF5dhEe+se8QJVUenPZr1wyMp/9krFfCvZLyfFScw7K klHITGrkFKgZCC0MhkWsa+VwkI/2/DKOXwIeZQIu5gqDgceOQdBi5Sv5vn/2 Gtm/iVg9E3TkPPm4uZ30/zmK45+iovc71A59iebe7eW7/xV6pz/B4LFPMXz8 GUZPPkD3katYnLuL58Ti849+iifnf4IHF4nGy1/i/gYt4wZD9OWb+Pjc+uur Dv+X7TXjxH+vVyqXKMm/IP6babuA2U7xBIZHWB96iSuTP8Kto1/jwalv8Xzp F7h38lfYGvsV+upXcKDyJMb7b2Fq6B6BeB+zIw8xO/oIM+MPMUwbOdD/EQYH V9mW2RYxOHAcQ33T6OsZRfv4UY7oIvJNNFuEpMrMpGYhhGhGjDY7zFYbLBYz VWuUzNzrhc1d9momAh59zg6tLZb5+J9QnKimIZFiJxyJDBsdFFbFyCBTKGEy MCiFmdeMFEHNRICYq9KwcCCNFRzgdC1yaHBUskIpxLjzi+FiQNMohHdkKNPT lDCgWKxBio0QcbA5g3C4ArBR9N3z6+heWIPcWpq5yMXBwOAkgDjxTIU0AoUe 2ApFZrWjxFEEn8dFkQbxobIZBQyjVk5Mb0kNzB7unzdjSKSQFs4YLVtcfJWS QIJ5unt1DZHefmZpTsZtkGgZYITZMlRlzJaZIFE1VmNHkJAkCJ15DMF5XphZ sL35pbAX+GiIGGYYYiyEiHUbInZnmH0KsU+V7NMF1I8vUHCEiSNEGIQIuhD0 7pDUP73JDw9rg6c8AjuF5igksOiRS8wWQrGCkYChS0/RiCGj2LQ0W3ofDROF ZSoXF0LFYYoysB3oR9fiEsoO9aGAdUrGz+UCJOyviuOoYb902yDRV8akM8Bq PcO0mnVVWQqXnGOQS2ATJD5FGC6aLZORZsQcI0hihFycoCZYitM4fOoKDs9f ocliZiBg1C62QpofS5T1K4miIM0WzZG1hIAtJHQtpQgGywkaN4uCFTLWQ02B V7p0QG4SMGLfCH+thyARZisQgyaQRmpgCm3HF+Ht6EW++Jq2jABkv34PJASk mk3FZvQY6BX0BKRF+hq5gGFaXKpvE/cPy2LsWyWKTdUoIUgcBInVSW/AUB9v ncChkzdw6NQNuOLdyBUXjGo4/o56mvUmqEuqCO8Kjhf7RJiXRGrgCvK4FHNe EvgGL+u7txAqTzGKDVkM9SXI19Kg00gqHDz+RQRmcQq53Fb91CIaZtiYl7I5 P3LKqpATSiOb8zCH/cpjAc+n7yhIV0ET8sGR9VcsLnkEJH2OzI48eREK5ASx PETjmIKbcLQoqUNjPUr1abiNnBOOCsQaJ9F19AaN8RZqmUyDkYsoj99AcfgO CsueItD0C0T6v0PFoefAH6G29xmaBp6gdeQR9o/eR/eMWPjuMwyeeo6RhYc4 PHsV88fv4sn6N4Tk13h86Ss82HiF+1foIa++YHtIWG7h+e2b//+gLMiAsnUD sx13sdD9FOsjn+HK9Fe4dfyneLjwCzxf/hW+WP8N7i79GFX7L6Ol6RYG6i9j vPM6ZkafY3bsBWYnX2JELHw/dBVDIxsYGmPeHj/HtorhsSWMjJzAyOAk9k/P o3txhVTxUFFe2hMvqeLhTCyG2eWG1eWCzeWg9TbBpTPRCgSQpW+BiirIU1Cp mghKiiuZCKulC0ZFxLGRKPZYxm4JStpp+1Mjo+j7aA2hnj4oYxmiqF+f+qn4 LVEs1RHsYYTb5aCt4Ei6GHVMjAKCXj5ZAC5xm5opREoKOyJoEiEVwnC62YpY FksZ/nuXLuAXUDqZ3FzlBEo5dEV0NJ4g4ccER4G57KXwldEhlBQRRlYYGcCz NdXSd7hmexWBQgC4KDjPa1cirsIWbovCiHE32bVY3yAOrSyjvLuP6Y2TmH+m EN16nd6E4yJQjFWEDQ+BgoDWGJxQaigMZRhFeaWwFYTg1qXhY0V3GJncWLlt FJKd0HBQGI7iGCyBWvQsbbBXG0xjUe4XAeCOE3YxyX0JF1NMp+sIRGDz0YUW emFniisLlKLYa4PGbER+QZl0M8j3QHFngKJn3wx0XMZQDPpwhbQcXcf8Ikq7 elHAn/P5eT4dpoygVLBfqooMUNQsaO6AlQ7QBJXOjLwCq+S6pClBSHoVHBZV AoXmGgT0dFE8nlYXU72bsKHYUx3jnHab6GFTOgS8U5JjkutTcPob6NxrYCoV QGfyY9Eo4dTy8rjbvR4GFjsMheLeJhuKtVlQyUt/CxQCSEU3qWbiVhEgBd40 mui4mo4topl+IMtfQbdVjVwW85yoAAoLc0oAhWEmEkSJWwaraQ+yVOL7fwfy ZR4CxQ+ZopxQiUGtFXOkhs68Ag5LHXxOgsVKY+AkvAZXCP6bOLxwC+GSDji1 dIjeFmhLxJWSNVC4K6S7G4rKGuGK1kku3kpQ2vwMTCWUnYcByVcMVQlDkVWG gHYXinRyqPRB5FprkOtiuCK8Cmt7UT2xiJoji6hl35TxFuxjUdkXqsbeCFus BlkJbq88iEKXHI6cv4Uj+02OSz6y841S2s5jv/JFv+TlUCiikKsqaUDqUSL6 ZayGh4k/pilHpLiFTrcfuneK0RAbRCh1kcZiE6XhVwh1/Bzl+3+E6IGXSPW8 QHX/c9QPP0XL+GN0TD7Agem76J3/DP2LzzF0+iE6pjdw8sRtJuwv8fDiKxLy C5KRNvLaS9zffMbX+/h44zp+9fOfv6bkv/v+WSQ/+O1TSf4JU3WnMdN0lYD8 GAu9z7E+9iNcmfkat04yv5/+JZ6f/Q2+OPefcJZGtls8AWWQjO5+ju6uF5ho uYUjhz7GKB3l0MgtDI3fxPDkDYwc2cQI93Bk+gLfr2F06jRG6SK7jp1B3/JH LFV+aAoDnHV+GIpKSRLGWA9HykNYGp0ooepKS2lRXEZ69hBLUiVstCeFRdX8 +ynOZHGuhCQpY0kKidukErRc4qp6lk0qKzE4RNuVoYmCilOy3KlouTTp1yRJ fk+SbOZSrd4BnVHcEUB7Ja5tLRDnTSIoMlcioCMMraSBoAhJ4SwWOSYuXcNq D9Wif2UD/WcvQ8nMpimKct+i0Hsj0LnLobeUoYQQLwpH4Sj1wVnCfGqyw0/r VVjsQpayEvm0DTLmbaFcTRGtk8hufpKunHaLJDRHYzDEKzhLp9C1dBoB2i6Z OA8kSBLP5Dd1RcZ2iXPk2ooYCrgdtc4qXd2iZh6WyYuhENmGyi7U8DiZquCz kyYkiUsQklbLQSvrKEmh4sA4x2iT/SJNaLXEPimdIoexz8E6OKgKS4DWyUPL RUvt80fhi/IY+dw8PibobUY4dDLmKRvyNBXMfmmOd4YkGvZNQ/qoxTnFQAVa aLlaTi0iMTqF3PJK5EUqkUuLnMd+FXC8ZCSJjETxFSkQs+9kJhaZlKorENeZ +0iSIPvF4qathMNUi1Id+2at4/xpgN9ZAVdhGjZvJVKHjpL4W+g9s4VA8wTU qhCLXC1zfzO0pWJVgUpoSXFHcQXJWJO5kIE20hHww15SSOtl47g6edxIEvVO uDWKDEmo7DxXDfKLq5HvrYIu2oK66UXU03LVk5KqpKBJJbJ4zPbF2EiSrHgV TCU2HvsdKFG/A7VsF3I0DvapkCShnZMHSckw+0Wrq+VxM/Lv25rgpUX0WKpR 5KhDg5PHancY2ve9CO0uwQFWOn9VH49xHelYJ907b/E0wRFrhTFcS/teyYrL +EQbbwtFpJuoDT4v8AG0fFEQkhabHD7tTjq7nQgYd8BJJ6hVm7DLRJfeNonU 6ALSE2xH5lHaO4n3eWg/LKnEzrJqqFhELHY5JfM+bHnvwLr3h3DmvkvXSEjm mSlft9S1PBm7JgtDrohLt7xrDBXQWBuYzpoRYvKwyCN464c+AjKEWE4c7cYI WlgYKhq+QbD5Rwg1PiUoXyJ86CUSfS9QOfQctWNP0Tj5GG0zD7B/7h6Lxgv0 LT1H/5mHaJq6gGOnbuLehS9w7/JnuHv1E9zbfIF715/h4+tPcZeQfPLxg9er xfz7/6yNbJA+m6xewkzDNZLyPub7XmJt/BU2Zn+Cm6d+gQdnSMq1X+Pz8/+I lr51DPaTikNPMDH6EtNjn2Nk+EuS8xWmBx5hdOQOho98jJGZuxidu41RmufR o1f5/iLG5lYxNnMKB0+excDqBSqQnotWTEe1GUXI8Ymz5zTrzgB8HEm33wun xwk7VWdTa2A0V0tnzQvUIdpQ1lg3iSDOLAcEUei7IvRbwnPFY9KJx1hfPw6u nEaQpMxnMJTzz+SvzwgJotCb6EkURThIO+uGRs+AbSyB3hiAht5Lq43BbapE kYHqsVVLt7GV0Te4uV1nSVq6rtAVSCHYeAgDa9cwyOZOt0v7JC8UnisKl68K bnE9dnkUdvpIs9sHNyuDP1LG/rloRfXwqPZCmV0seROZRRCJFGEV0LIK6KWz XDHowuJCuUq003N1nF5E59Ii8kL0XSSKCHIF7Jdc+C5SX5kS143TD7hd9FwO NoYdBZvMBwVDt0LL32uphddeS9VVwu2qR7C4DkFOe5egpb8SFb1H30D/6hbS iB+YglpTBmtRPWyRRujKKlmc0tDRVjo9SfhihFGENi7ohzPAIfM7YSkyw6rN Q0BBoKjkVEQQOQRKrlMApQYFvmoUCDglWqQM10BYNp5cxG5Cel95FbKi1YRJ DbLj1QSKHUHLTpRbd8LhyEeezkLlWbetSYBdC0mX06t0HFIj98vWCI+LzVHD otqIJA9nmNYwWTuNaHoQ9RWD2F9YwyJMqJXWQ1NaAyWTicrOQxFphiNRx8Kb gjVEix1icqA9cpSXwMz9UBUz6RhJExVpQqIE9DuYFeVMGXbstVVitz0N//5J VIgFQI8soGp2Af7+SXxQlMYHzL4Kh5XT1oYiUqhQ9T4KFe/Rdr0JnSIX2Son cvKLaJFL2bfyzCpAqtc3iFZCJ045ucTVaE1IWAjxgjh2v8eCnluDRlst+kor 0ExrLy4QNvBna7gTulATtOV10LOYG2hnTeHMTVJWcctDNER4+qHy+SEvoTnR 56Mw710U5r9DNLgL3sYP4Za9icoSJe5uTGB17QgmF+cweWYOE2fnUOp1Qrfj h9DtfgvavW9Bn/U2DNnvwCnbC+u+t9mvd6FVFrBfLo5XEUnJfhVk+iVjvxSM MyrKS0tp6TgvtI4mWvR6vPd2Lex57ah2daE30omJyjokWrZQXvkxQk1PUN75 AqHDLxHtf4HU8HNUjz9F/ZHHaJ57gPbj93Bg4RG6l5+h49RtNEyfw+zCddy6 9BI3r7zA1rVnuLn5FLdJyFvXH2Pzyu3XS2j+54P29jMz6wQdH+AU6bg6/iUu zf0EW6d+ho/P/ALP1r7D9dOfo6X/AgYHHpCIz0jHT3Bk4gvMMpAPjH2K3iNf 48js15ideozx6Y8xduI+212MndzC2KmrGD95DqOsqz3LF6SlaYoqmAi8TFu+ KDTFIZgZXr3lKRTRMzm3pWaxuuD3FMEfZP126WClJGQsQPm62PYpk2SGIgGx QgLTW4S/j3LVxStR1t2L/WcWsX95ETn0cfn8vfn0JoKQSkESUsQU8tIHGaC2 MZHqPdAa/PSTAShVnDb0kyoWUCNrd2khE46DiaW4HuW+epSRIm5BSKKiqncK gx/dkBbcShye5HBHua9pOCP1sNCfWpiWTaVMb64Q/NEUPPEI+ycwQjr6TDA6 jQhl/Q0MeUbkMFXlWaogc9FjeSgnJjdFsBrKENN4VSuaiZAWErJ1cRG6qhbk hKuQk6hmq0JushoaeoMwMRK10W+5izgFCzkVi+lPvDxuxIiGGDGQvGZxMWIN bEXNJGkDfExUHk8j4p5KhBwh1A2dQaJ6EI01A+h0V8HPFGqgf9SJRap8LPzO NIpjDShM8ndExN1FxEhIYIQ+uawQVvbNrMyCL/99lKp2wK/ZiUK9HGazA1k8 jln8nXt4jIKHJlFNjFQTI9VHF2Br6cEHPLZZrlJixI4i4sdr2gEf8ejRfkAJ 5yDHWEiM0G8VCFNSRg+e+a5BxcSsJUb0xIjWJe7CaUWYGAxZ4ygzpbHnwwC8 +8Ko10ZwwBGEJ1CHgkJimvK0lLbAnmwlQsQ1RTzWYtwiTKXijpVICPaIH9Yy Hs/iYpi0+Sii9Ivl78ND0+RRvYeigrfY3kQ1UbJ29gimFuYwtTSHI8t8XZlD d0MpUfKmhBId0aHPfhumnHfgKNiBIvleaGTsl8FDjBSzb36OV0hK2TJxRSyN ltpaRXzUQi/dlUxExvvw5rtM7vs6EXT0oD3ah9GGQ5hsqUNn9WG6hTaoAg3S 5V+aUD2rKxEZqYFR3Ecao5ekDqzxMPsaAN6Wrp6V++nd9Llw5L5DOpFu+Wzs VqpEhesXJ7B1me3qBOnC1xtsWxO4cWscqvf/Aeqdb0K9h4TM+QCFaiXs+Xtg JjFt2e9CLc9DlqYIWexa9nbX8ti1ArU4yVEBJe2umnFG46pFTd9ZuEKzeH/3 YRqSEdTExtHbPILJA4dxaPEmymu2UNb4EGWdz1B2+DlC/c8QH32G9ORT1Mw8 RsOxB4wk99DJkH3g7BM0nriO2tl1Uv0Krl1+hqtXnuLqtadvYJOI/AGuXH2A 7777lcTA/+O/8JX2K6wMbGK6+ipm2u/jeO9LrNA9Xpz9Ma6f+gb3zvwUT9Z/ hoXZe3SPFzEw8BDDxPbY6GeYmvoRxidfYnj8AV3jY/TPfYrhhZ9hboGcPPoI 48T52OJdjJ++gfHFS+ijcxw+fx3DFzaR7B5j+WaOIk/sNOtu8dULy5qdJdvk 8TODBuCPhVDEeekqsdBpaVCnfw9RTQ6yChLUCZ0kc5ScuUhFzaqC4g4tGn7O byWzWis50kaOtNFp6aqZdcorkMN8kxtPM8NVwVuoQNS6Cwqng26tjPoqgdoQ hFzcq6MKSrdCaK0p6J3inhxxB1sLynyN8NP+eEtZwrnNSGEI8YMzSNYNoLF+ AHUOuklx91i0gSW7CqrSFHTMlkUh8qeiWrqbzxEug1Oc0ma/HAErzB4TUso3 UbLvH+BX7oCJji+LWSqb2S3XQ16Wkn9ksbu1F/VkSP0JtpMLCI9MYSc/38UM V1AqvouWw2/embFa5KPMWYR89ikrt5CTUtgsckQrLiYlR6xi/Q3aCTd54CXn /G0Ie2vhdyVRQl5m7+axzw2hyRjCQacf7kAttGwyss0aaIQz3QIjrZ10rxEd rDUaleyI4IgjXEyWuGE35MGXtxPFFElx/nu/xxI3WRINODF1ag7TtCTTZMkM OXL+0hHEnUroKTg9BWbIynDEyuBmp62xqrKQrXOTI+6MHaHNyldEUUCOKI0i sFVJVsTArGn01jNHNsEX7IQ+n3VmXxPHuwNd5Z0Yr2rGWNd+RNyVrGOtZAdt Vrier+QPratRXF8k7ixl4hAcscUDrKUlrD/i6zo9XFm0SdwvJ0HizBftLQLl hzg12YSbBMmtKxO4fY2v19kIklsESblT8T1I1PvegjH3QxRrlbDseZPvdyJL V8x57WPfApnTX3+JAm0acjosJUuZmvzQ0sG7U904yNwoMw3ynwyjNDSF1qZp DPeMY6SvC/tPX0Mhy5qK5UxF56giGtXROjKQeOWQGRMVMCWTMKeiUIZj0KZY VhNRuJV7Yc55G+Zctry3EPGocOGjcVy6MI6NS2xXxnHlGl83x3H5xjgubo1h aqYB6h3vwZKbA7tCAYdKwfd7YNz9Jv759mUb+/IC5GLody4l/feQc3orifuq nhXsP7qFZNc63pYNw+ifRaLhOLq659A3PksmbqF95hrKG24h2P6Y5fQpgtJS 3k8QnxRrlz5CzYkHaJi/i+bFh6g9cRuVRy+jkkH14oWnuHD5Kc6TiReuPcXF a+L9Y/z8u1//xe9e8fhPuL36ApPpq5huvYejPc+xRLCdm32Fa6e+wp0zX+PR 2k9wivBr7iXAGJGHCL/Rsc8wMf0jDE08xtDUI4zMPsHwMfFt+gsML36BibWf 4/jKK8yevo/xlVsYO3MFvQvnMXJxC6OX6IUTXXBay2kG6wiLKsnTG+n97SUx +AgoTyomQcJJSDgDNsJHB78tF7WGdxHJ/msYCgzIMonTxIQEgZQv8hjNS4FY la6SmYyQaCAkGuczoNhBUOz0M1sxu/iMhIQ5k8dkdieNVDnkjMv5CrFUGbME DYQwhhpbBfQ0TsaiGpgJB4u/EUUsvFF/LcKuCPNDA3L3+RFkJmg2l+FgYSni tcws4m4OceeNr5aztRE28cSZ+PatzNFyOKIBOCIe5jI7BWpDFftUmv1DeJk9 SmTvo0TxPuzqfOgMZppFH+TlLUiPzyM9NY+K6Xkcnj+O42tzKImEYaSgjHvf 5ux7X8pjRZoPUKR8D9kGmii9WJzRK2WWfKVYfo1mw0RIiLxCuBoYmU00u2Z/ A4zBVgRDXTDKaK7zmpBydeBwtB2TNQ0YO9hBNVSgME4DFW+EPlorwc9EE24W S6bEfwsJW9QrmW6bMR8h5rFS1T64qCpnbgYSzvw36T4IiokmZhpCgrnsDkFx l6C4S1DMzzZD88EPoaGR0tBI6WikjPz3xRr+LoOKTkOcmC0lJPwEYAi5IixI lGCxES6jsJa5nuArYfPXo3FiDW/vbIJS349YaBQHG0cxeagfE4eb0T17Bupg vWSg1DTzGs5FXYzH5TUlEglYklG2MmgjZVAGS+AstqDMokSxei+V/jYsJIU5 703MjDXh8jkS4uI4rm6wXWUjKa5eJzFIiktboyglADV73oe5gC5MpUShRimR QjipfWpCXRfCPrE2aH5YWqpNulWA7knOfinZL2f8MLroeA6euoGKno/wgW0C jorjqDh4Ep0jM5K+elZuoHvlOgobhkk39jtcCyXHSx0nPRkgdKlKGMQF23yV RRL4Z1Cnq/4ZVInwGyhhv/4ObnrExooyLC6NYOnsKJbXR3H2/ChWL/J1g+3K KFaujODlq7v4+S9/jMf37qMpkYatQA4bGWjM2Q3tLpYvYl78t5fpWfy3TxHG PtEzRWYJjjwjy7a9HulDS+iY2UTn3Cb2H99EYf0y9pbPorD1BKpHFtB5/Bw5 uCkt5nNg4RoiB2+hdP9D+PueIDjyGCHSJz73EOmT91E1fw+J2ZtIHL2O5LFL SMydxQo5uHyJnnBlQ3jCpYsP8e0vMs/n+IvfvVH6BEajl3Gk8R5mDz3B/PBL rE1/ho0TX+Dm6Ve4v/oVTkzfRlP3JfT0P0L/MDk3/hnGyclemr+B6ccYPvoU wyfIxvmXGD39kswTz2X5GuMXvsPppaeYO3YeapoOa44HSYUHh4ojDL5pGiWO CQ2bkkbJRQPnqarJ3KkXK4eTrHCGPQxeTtj9BpQ68lBtfA9J1Tvw7PorGox3 4VDLYDDbaU4C2MOCvsudhv/whMSKypl5dC8cxwnyIlTihHHXWzBRV/b8d1FE XojQlSuWFTQFkKMUmgogVykWZRHXcaShpuHRMWQZPOS0T1wHUQ8rQ4cp3IqS YANDYBpGeRMqi9vRk2jDVF0demq5fVecHG+EpaKJWmIooZ4syRSsidesCJKH 5ETECb3fjqTuXfjJB8EMNzVfSG25qC0XeeEgLxbJi7vkxcfkxQOmlAdMKQ+Y UpbIC+2H28ErK8MKC82SjWYpi0ZJZkvSAJZmWKFiKhE3PVBTKgervpuhSZik 0nqY2BdTeT1aZlbx7t4WGGz9qEiMoqd1BEd6ejHR3YDeY2egJSu0UbY4/22i JtO3ZBrmpGBFRGKFJVFKI+WDxZQHv3oP64yS7MqDU/YBmUFe5L6J6ZEmXKK7 uEJ3ce3yODbpLjbpLjbJi2t0FzMzTVAwUCrYL2PeHil1CbPk1amwV+lElraM ZkmwIpLJMH8NBQ2Fil3ScKi0vjrUj6+ge2kLCtcoctyTCNYcRatYtGxsEgMn 5zk1t9B89COir4mZgSYpxn9LTOiYQ/QCE6kkjOko9OLymnA5CgJF8FtUKCUm fFbRFLCrduPU8WEsLY9geY2QODeKNYJi7TLbNiy2HiwTFncyi4hPz8Aqy4DC TgRqd/4QBoIiO1+Pveoy7NMmsU+V3D6L9efIZ863pQbRefQq0UcAnNrEwYVN VI6dR7ZvECX143A39qJneZPou4bu5Ws4vHwVdUdWoIy1QxFrhiLRDCXLsLqC mK9sRAGHTJwrUlSwFJaXwG1Wsilw+uTsH25fwHdyehZm7qY2azcUwrJSNdo9 b0s7tUcVwF5NHPv0VdzdzL1o+lA/4geW0Dq1gfbpK4x2p+FrnIAh3AUVeWcy hOGlusWCneH9Ewi0jZBlG9i/cBmp4aso6rwJT989eEfuonTyNgJT11E6toGy qWsIH91EmCzrWryBYx89pYc8fl6A7PGn335/mu//+l2QJXB75XOMV97Bkc7H OE67uDz5HBeOfYLNhc9wd+ULHJ26ifpDF9DV9zF6hgipic8weORTHJ54gF7G 7IFjTzEkrvhZJMjOfILRs2xr/Hn9IQbPfYJg7TEo85KIm6txwF+FkXgMrUw+ KndCWmvDVdEMa5qgEysjEWT2RBh2Ct4RK2FCKoSlzAGfKw9V5vcQV7+DAIUe NoizLhS+ED2bk6JPexS4e3EC9yn6hxT9I4r+EY3CYxoFIXr97kxCMjOJiK+2 8pRaZBn8yDXEkSMLI4+ClxloeiyVvyd4I42BqYzGh4nHQjFXjp7EeznNsLj6 UZMeQX/nMGb6ejDZU4/+o6egozq0kjIIwiQFn3ot+Iw5sCZ8MEU9sNGkhjTv wEeQBTRC+Aq4Cj6AlYK3sO2v9eHK+jiunx/HFmF2kynpFs3PbZGSKPqTs1Qi Ra8SCYn90vF4OBR7kSf1KYIsVZiiDyNHxamkT2dEIofGS9/iZ9eYeBqnV9C3 tgWVdxyK0ilEm45if98chiYnMLQwj6HzW2g9tgINhaERgk+wW0kh+IqM4JmK TOky6JMhqOjjjKYceNmVAEVfyu74LAp4LXJcPr+Ea5vLOEOHcJYOYY0OYf3S KD6i6Ncp+tWrGeFfurjE8CqDTZ4RvIscc5Nj2WIZHpWfHEtgnzyGffQ72foK +t3qTK/c9C2+RtROrErVv/sMBb58HZrKEzA2nECk7wSaZ0+iXzwBYX0T/Wub 6F1j8mvqhSreACWHSp2kHyTItBWV0FRUSdc/5oeCyAu44KXoi6WmQEdDBZ48 uv8Hrx889vF9NKQ5wmSUes97UFH8eVkF2CX3Ybcqs5zCPksDspwt0vvE4dNo m76EjrkNVPQvspR3IsfFrhRVIMfShmCsJ3NOtbQCavGNW2W7tCTrwSWK+vRF +LuPwMzdziWncpONyGZQzY6l2aLI535UHurE/InZf729e3OT4yg1F6CAE0Um dm3fLmk3dtBfKblLzuig9HPD4Dk0j15AbP8paP2d2Gvmr7SlketIS+tBak1J lBbFOXvEIj5MRmJZOU+SOXMIHfPn0b54DrGJSygdvgJ7/zU4+q/ANXwJnqkr 8M1eg2/uIvl1Dys3foR7L779y99diLAPZ/qeYrzpEY4cfopTo0+xOvMMl04+ x42ll5gev47arnNo7b6NQ4PP0DNJ9Ew+wwHi5zDx08Mc2X9KrHv/AkMrbGsv MLjOz9Yf4ODZmyiqmYbZdADVkR70N/Zg5sB+tkrM9vUTPQ2sy/TvHHdzitkk lYCVc9qaKIeNMrXF3KzzDngLc5G2vI+IkGvBmyg35CLA5mL+EnI15fwDNtZY i+npb9DT3yKCbhNBd4igO5TqKdZn9Q7KlNlLS79iIIJkMhlyjGH69XrkaVKU aYzSTUFmrcrck1JED15SJy3bZCivgzFcB28HcXNuC5rwDDRlU0i0HsWBoTmM HhlH99wRjFzeQvvJFWipVS3nsy5VTZ1Wsn9J6pRaTZXDmAxAF/ejiLgsVbyD 4oK3UKLZjQD1KjRbpM9BQyqA5dMjWKVez62P4cIFZpJLY7i8MYaNq3y9xp+v jzLTs0AKP5W7B87tjGLQOZCtDSFLHaVe08TQ72tVUUzjUcKMUdaIuskzzB/U 4up19FGb+vpTsLedQHL4BNqOncDQhetk0CYG2QbOXYO7pVe6ff57rabFTRwJ 6lXcABxGftANpzhhRgZ5vtdrWuh1e/nxH+Dhizt4+JLtkzv4F68r+MwsLGSO VUXusA95WfnYJfOxekdZuSux11SLfdY6ZDsbpT74O+bQcXwDXaeu0GBcRfXY aZR1TSJ8cBIyZuFCilpGhcR7JhDtHidjr6BnVSyPdRl1M0uwNQ9AnmqHvKIV snQD8uLiYpkYcsIBen4NnEYFWjOcwb/efrjc4P5GtCeK4bcp8F5uMbNexk3Y oyxDfSvS+6bx84gdPAFdsB37bCnubxr5hVRwcRo51hYUhw9DS6joxeqsAXrx YEpakd9V2Yrq8WPoOPMR2pZX0baygtazSyju60VR70G0nJ7A4M073z8dd+tU N7YW+rG1OIQtzhPxXwUdTFXrMdR0LWSIMrAGle8AdtKk7TbSqFk4x+0p5DtT LL0kCj/ziIukvCnoeawMpZmlVcWll/ZUM9Ljs2g9cxatK8tsp7k/8yifW0bF 6j1UrdGu3H3yV79LkT/Aq6ffYTB5D2MdTzBNI7MwQZLMPcWl+WcYo2+qbF9D zYEraGciOzj+MlMQVTh47Ale/9d7loBZe4bu9cc4tC6evEdr1XqKOziKysYj 6OmdwtTECCbGOzF8iTF0flmq87pUFYVWQZElYabQLBSaJeWHOe6FLlSEpPV9 JAiQEk5OLwHiey04Fke3Lgun5oawssRiuDqK8+coLgpu4/IYrlxho9g2Nsdw ZFtsMmHy8/dCp7ETGHEUWGqRx8mZpecgG9J8X7UttBoOAIUizkZHGuFpH5Ye ad537joGKCxj8yk4O08gPXYcHSdP4MDZCwTIJkbYr7ZTqyhu76XQqimySujS KenaEX1FBNpUDOq4uEMrH4Xsj4v9cbM/Hhb7YrMcTzlpM98k/0d8++2P8fTF XTz75C5efMr2GdvnbF/ws8/v4Ke/+LH0NxvpkSysoDZCxKQ2IEsTwW6WqL26 tCS8LGstq2Tm2p2C0mbYavpRPbnMqngFh1euSk+tDjPERnsmWZY6UZzshLuh C6n+SST6xjFwPrO+VO/6BhrmluBo6aejb2NrgrKyhi4/gdxwEPlFBpgZIq1M Kq8FmHnw+H+NE7OzqK+qYCn9IT7I9WQeLapOYqepZvtU7R+gcZKFauYCOo5d hLdpFPs42XOL0ijwpKHwpaF0tyMY30/zRQGWpd+AsTyNfwl3TTvqpk7i4Mp5 dK2cQ+fKGjy9I/D2DvL1MLw9HSg+WI+RiYN4/bDJV49uYOtkD7bmBzDZN4h0 7YS0E5Vd86juOSO9V5bux059HHvM1B+zba4ziQKmCum+AksTPOSBXuguINag ylylbi5nC5GpgSgChwapu2WJBa2rC2wnqcVZHLy0jltf/fh7Hjy+dFLa3tb8 ILmQ4UG6ZgwVTTOo7sj8mcrbhQ9VcfKA+2NMIMvC/bFzf5yZJw9pOZW94ubZ ku0FBfzJzOXl5ZlLgpT+GFJHZtBydhEtq/NsJ/j+GIY+fonBu4/x1a9/81e/ u8T7X+LLF79Cf9UjjOx/iunBp5iffIqzR5/iwvxTJJpWUdFxGbV0Fe2jL9A+ /lTay7bpR2g/9phe5Qm6zmTA0LX2hL3+GHXzVzBw6ToaZj5CdvkUAhRP89gJ HD46xQGfxvjVGxi7cp1+aAkaIRwCQQjHkI4xGodYhf10GwFoQoWIWj9Aieod 6eudwm0BCafcuV2t3th+ZMa3P8sI6PknknjewEuq5y8y+vkio5+Gbe3YaZaz NDHkGquRba7BXulbsQbqpg55nox25GXNkEfbUDuzjEOiIK1fRf3sIg3yBOID kygoqoMv1Yaipk6khyeRHJwg565i8CK7fm4DkYEZKJLUTAXZUlkHFVOxPBlG bnkxrPlvw8ruZPSzCwsnth9f/qd4dP8+TszNwsj6Kmrqh/ll2KlOYJexCrvp f/YWNUm7F++fR9vxC8TqRfiYerOLWC/oNhWsWSqxWnpJOzyJjsyjIsKUjymS puqK6tqlXnSvnsfB1XPoOruKkt4hSqeH0tmP4kONqGoPobelGD/57Pofbz9J +cvHW5js7aNyOFObZ1FB5VT1ZpTTMLHO6n0SmmCr9ECQ7ELuCfdGzmqlYrVS ulvhp5BFBTWVp6QrqMSlHZZwUro4z1GzH/vPrqH9LCvY2TNS9WpdOYaW5UkM Lffjpz+68SfbT7G+cZzF9CSL6fwQUhUjSDfMbPPkv4fS24EdDD07DTGKOE5L ziznTEBGEYuVqXOZLDyhQzD4Xwt4+ypqsSo0DYUlRlYHQzDXt6FlbYHtFIVz HC0rM5i9eeVPttH26iFZcrzv+zK4dXoUnSwX6boj3+/KDlUSHyqj1C93xRhD tiWOPO6OTNJvnPU8Jp210PtEHRfrQySkm/otEbEbUWjLw1CUxZCYnUDz2kk0 U7/t51cwcO85Fp998te/+1Caf4VXL36NhckvMND1FJPU7nHW8iXW8lD1WcSa LiHZdR0VfXdQN5JZBLN++gEajz1E0/zj7dNB/wOalq6i5/xV9F+6hsGNa2hk TnGkD8BZcwBV41MYu7aJsaubGOWfjVy+ipYTZ1DYegDqdC0dpUiBCb6P03EG eID1cCvfhb3gbba3ONl/yEm+E4snZv+77eeBvp7k2YpS7NVWYR9N406juEiu lhO8EVm+ZmnHSrqIi4UL6Fq6iNIuTnJOKRknt1gzVcNyoCttR7i6C6aoWK83 LX1rLF69zQfQdHQRvR+dp27XUTV3FD5O35KeA9gTCmBvoQExnxL9bR70NLlf z/IbH38Fb/AgzL79KK0eR0X3aVQPLWf84swaEgMnoYu0ItvNcfRwhpekpC/i tUGR9FrhjbfBHObsFtfRsdmkL7A53cIJhHuGcWBtDftXVzjTFznDyeQzR9C0 MIjnWwN4ttnzJ6+fgM0pduNEL1JpzvD6GaQ7TqDi8CKqBzKC22lKYDenVJad lbiQ00qsu+5NQsPppCxslsRmktaJ2L41M5LgrmTuOjJForBzhretnuEMF+Xh JEvDHJqXxnHlci8BlNmHR+dOYetYH7ZODGJ5chipqimkm49B7mjCLkaUD9QR 7NRFscfE6W2NSWuSysUtisXcJ0t9RmmB37lXYVtlYp1yazICQ5RTPByFr68b zessDqvH0MjD8dWvfvP9PtyYY8k+NsB9GJJK5daZMexvn5CeA7xTlmAwj+MD RQQ76ID2UPXZZsZCWxwy7kuuIgYNZeYpEndfxQmfuLS8gHlbYpZEZh80oTJp fYkm7kMT1d69dQ+Lz7/A32Q09n9LL/8nbmx8i27qa2jgKY5QX+0HbiBYexGh tk2mltuI9G5JQxMbu4X4kTvS++jR20idyCyxc3j9MgKHh2EjfuWcuJpIBcpL xc09cfgSKZpfGmK2qpFxtJ5cYpq7yCJyHvVHT6B8YAh5CXFpSYS1tARyUz4M LCD6vLeQ8MnR2+TGj19ubqefP8Krr3+F7un7qO3fYJcPMqH3oWrgNGrGMjO5 +dgai9VR1tdW5IiHBQpGB1JMyTSukqhaUVa5n8OVJtFssRT+MHNnb4wzmVMp 1j+Cwx+tomt9CZ2rp9C+TKexOIKrV4bw/CZn841+PL7SjdfTubFzmXXjCNJM PBUH51HZf1raj8jhoxR8AnudhDXdTIGH04eORkNHowuKW0KaEWSBfX13sXQ/ YIyJR9zyksjcImJr6ETH2hKnM13O2aNoZs2Yv8B9uMl9uNa9PZV+gOtHezFx YECaxj/YpvROUwo7DFFKKUYpceq4OHU4XVTcD0lKriZJSuby13c4c9viBrK4 WCg2Jk1jLeVkaWyhlOZJak7jszMYXB3Go+s9f7q97NEvv/kS12d6MzP51DAm ekbhCw1gRwFrlZZKonffoeUMNnJ4uSt53BW5Kybd1JrLvFIsKYnKpbmzhDl7 JRVlNi9WkbdWhKHkbhSIlW5mx9BI0/n4szv/dnvzr+5v4cYMS+bRQWnzW4xO W2fHsGeHAzty6THlSXwgo4hUjBEUdDZFk0dByxzM2IooRRRFMXdF76eIWJNM YfEID+5GQkQ3iihOEYXLpM2X9B1C6/lVLDx/9bcZ/fyH7XNrm9e/RVffU7R0 30VRioa/8Rp8XVsoOZjRh6fvKooHr0nva4+fR8fpc9J7U1Ub8jk3BfDFA70M NDHu0koUUTveeJrzIM2xSEsL+IorAbwtB9F/7iP0nDvLUHoaByjpzjNTaJvv x6e3R/Hi5ghpy3l6nfNjo/uPtiVz8uwL9Mw9QbJpDhX7T0ibrh4+zaCRIe4u ewRZPAh54vp9Tg0VQ4COhDWERAhvRqiqMzM942I1EEciSaflSCakLxvFuXon PeJ+0raDu9O2fARDq9yN28N4fkvAvw+fPjj5J9su9uXLr5BMTdLaHEW682TG UvwZdpL3uywR7OWw5BZyeIrjFEsC2lJxDa84NdCM8nQ7y44QKk0VReLgJHWI VY2ZQm0cKh0/E5O1VViKs7MYXB/D8zuDeHarDz99tYXXM/bhR/O4cbQfHQ1j SNXNIdV+kjOUlkYXww4dp4mZM9UWpbviTOVRUXniFEwcClcj/IkuRiL2Wlzb KsSSEKuxZ7Zv42w1J0OQiZLY2EjeHsPguQk8u92Hn3x5MzNj/xwPqSVpxhL7 N8iVXe9b8WEW3ZQijfc5Uz9k6dmjjyLLxF2w8VBQLMqimHSDY5EQSzAm3Ywq oZ5CEV8mZIQSgaUyAqW4nJmHydjQgIubw3+2vdnNyV5udoCVl5tltelKeaHb 8XfYu9eNnXkpfFDA3lMQu5kb9rHa5FKrBRyNbHkEaoqkiCMi3ZPBTYurqU3c tEk87yYdhSEhNBqTRJJHhB57+OTvMgL5f6SXP8Znr36DA2P3kTx0h2niASqO PM4UlN4l1I5ngNl84ix0qVbpvVgfSUFIaggnfViAWTwPJQ2PPyIKyg/g5LT7 Qw6/uIeaJTBRjbqjTKPr8+hanUPHmXGcuTCMT++MZiYiuf2M3H6wcXj7oe3/ Aq+++jUOTz5CU+9lpAS7D53cZuefkdsRaWHOfE+MYZ3DTxerLxM322wLorpT EoOQgpNCcKXicIorj5jv7BwLfYp6bWiiEyKzlyZwbZOCuMP9uD2Ip1u9+OZH N76fjiPtg0hWziLVcgLpg6eww0Riacuxi9NwH/cjl+Mv4/irSuisxQMcguLm nyaUV7RnLvuMxyUpvN6+g/PAzmaqZM3hYHh7DqJxeRpXrpMLdwbw+GYvfvPL LzOb/5/w3ddfYnO6DzeODaKjeQr5+np8qKAa1DF8SG7vJrezrJyKjijkPCSq 4hi0PCRyVz38yf3SAhKC2TbOB2mN8bRYy59q4FS0VoYhY4HN525Ep/qxcX0Q D2/2sThl5qTY9tXJflyfG8T+aBF0H/4tcj9U4sMcHgLWjw85H3cxZOwziunP +UVFKngocqzVcFMKegLbSGCbuH0TD4E5JeYjW2WULYL8aAp5dGdO5S7c2zz7 Wgq/5GavcbOb3Ox11gztB39DKfw99Hvexp49RfgwN4UPKYddqhj26rk5xi1h APcpxPVdURSKW5TKOBLsuoEjYOSmjSmR7GnKYmHk0VnkCX/stOLs3NS2FP7j dq1+9WPOu6lH6Dn58vtlI6t6T6JmZB51R05vf/bfMgyww6U84AGxtYQEYzN1 XUxHXhIIo5Rz35VKvoHCVIJScDGeSNMvxYCVrED1LIPb2Wm0LQzji7tj+OS1 FMjkJzdIpB9tbZ+0+XfcpX9E++AtJOqPIUU37m8aZ01IYoexHHuEFAojKOC4 K0vYQX+Mxz0uPXVNX9q0LQWxPHRm+64K0aJwimnI8TfxZ7k4SLVVuH5jHM/v UQp3h0jFATy80YN/uz0Pv7h3E20MJYmaYyiwN5HESbyvCTE3sSrYKANnFDLO PyUlqeFhkRb58DZSBh2S87eJasBBcAgJcPwdlWL7lEFVQuJSblkIMzMN3P4Q ntzpxyePF76fh/fPLmCTbDx+sBa7dzg5ARL4QEkm0jTs0lOG5ihyBYpZmZQ8 Dhof3zvrOATMZpFMtrYIyyQqEftr5fatVREYt7edVx5BRbkRjyi/r7+8mZmH /yO++/FXuDo1gJA+D7oP/hb6D/8eir05/x9d7xlk53lmiZ2i1xu8VbNhPF5L E2prPfZ6a3ft2VmJ0kgUidTx5pxzzrlv9+2cc0LnjEYGGkADjZxBkCAiAwCS YKYoiRxpNCuNpLXLVf5hn/e7t0FqvUbVg3vR6O43nec853z3+94XtfIk8Uft QvzVWBsl2aSiihTFqJ7QD+Rmv8Zf49f4c4irS+KxPqoFQyyGgLEGSaro2fZG euBym48vbOEO29yY7IZlx3fZLnFf9UPY6l6GUaZCvSrFSlRCjYV4J+4VVLA7 Te2oDQ1RRY9A1jgCeWkESipXFUMv7oLl0itJ0oZoHGGOpdGsxNWNw6gA/y8r lwZ/9vP/AzPHPsbs1mcY2H+HZHeSwn0Tgd5Z7PEQaYECFFGuMmfXQJRZOEQ7 vYuTwjSSovzKVEDfWkKQaA9yqEEOLSBWmyrR2kbLWmhAy4FZvHl/HT9+vI5P 3xHES7S9uYT3ibbf/d2Xf7StHH/+f6Kt/yJK/aegDg5gJxd6l5XdcBPwfgI+ 3ADdNtgqNdeS6CPgx1hzmiSw+dkFP5v3c7H9FcBJ27TSBuqZ/bc2BeBW8dE7 y3j21iJ+8eWjbcy9vn8BrQ3z2Clrkvh2h7GI3exCrcCal3r3G1izEOvGWB9t y5iENbekOJjrbN7LGfB2kHPZBVtHC3TkYcF3vVEVnrHZp28u4ne//bKMuW+z 2UWM58Mwc+0Ve0zYqaTq0BJrpqJkMuXC7Arhw3JvIM0rCfNE816WfHGSMV0J 19rFpl1s2tVeplpjezuM0TAS8hcRrf8OXr208MeV5t65cBamH5Fed7xIqH0f lqqXCLVXYFaoqTZaUC3YnTCT+0pQ0STVujrgy8zCSMIzc+3NXHsL2cXKZs3i zolCEkGzDEnVXyGt/pEEtYJR9s3mRtMsJK8Q2Tu+xyb/CpbaV2Cv3wm3fBcc ai2qaOl/EBjHi9FpfMc+iJdcfajyD2BHhBhgXd3N2JmexI44bTg1l84cRFgj R5NVjSaLEg1meQXY/7FyXeXUxS8wvfEpZs5+jqaRk0j2r6OKdLHblUWNPw8F kaSNcZ4EqCtIEpvSRagqEpk8klQPgQqYgx0iyojytedhZRU3NuXR1BLHT5/s x+dPqPJJoR9R2D7j0n76/ultYfnJp3+DcGqNy8nKST2705Qra1miSRUsQkc0 GStoEirOTDDnyN7lqi2Eg2BORkcZUW6+l/bFi/sRr3+RiFLjQ4JZsNjjRwvf ZLHRdAjyXUbsEIVbOC6jEA70nQJNAYGmRglNZho9fbQP6fZxOLmsLoEmprJb Is0yoqztYh/7OIKmGiRkLyJS9x085Wj/+stHFRb7ttSm8aX/CPMrZVjpqupR o0xhl75ElycgRcHgK/tdHW2E3N+LaDMFAyFlo32wM38dnHXBmFbpweE2xF1y CVYJxfck1mTl3obVB08fw7bjB7C8zOZeIYp3iqcsdsBFWPkUu+DUamExeYje VuwM9uIlzyBL9yJqU32oy/SiPtvP137YY3GkQxpkDT9CUv1DpDU7vgErxZ9U rniuDvbC/CM29TKbeuUHMO96Cda6ndCYrNjjJ0MF86i1h1Gl83PGk6hVRKUN kmXWBNWD3JbCP5QOHtBp3FBqY1Doc9AZW+AwpJAyW1C0bCP4OxUBcPLyTzF9 4nP0Lr8BdaifGrRRKv61HlIyi7+GtGwgD5ozZeiIaxNhSvQEi2pSCA9Bw4RN oJPk0ynQS0IiM1g4v+6UF/G6F3FgJIZPiV4BoWeE0FMKwd/95stKEf6n6Cx1 45W6JsK3BTv0DdgjCi8rn8Jf1r96Qlfgx5prIoxJhl0TJMKm8gEwbY0vsMFG /CPpvCULl7QYUqBo/EGZlAihK5vdeELN8bvfflWB0bfgUVTBzDXV7apFdX2M Nb9NuqhdS/jI6X3UYuOtBBOQEkwboftrn4Sd8BE3eAv4OFubJL1pam1FLOVC s4Prqvq+BKGo7Ls4NNuOP6m05RW3N//oa/zYa16GRaGBXJ8k8Taj3sOiG6H+ iPdhR2AUpsICZNk+yHO9UOR7YWoSO1omOe0etHp3IEX8SCyo+RGKZgVmOf1/ XEnJraOHENIq4FfUsc2/YpoQu7t+BAfx6iFeDVY7VK4QasWhLwJI8gDc4sFk vQN6EWYvdNYwtLYk5MYMHFoTInoNmmxalGx8taoIIgUunzhUafNbOMs2ffIa 2He9zDn9AUyv/JDs7sMuAnaPJ4kqjZ0C2s7xOqCSO2GoscKrdMFgdMDIMPH/ DCor9HIrrOJMLEtRegDcYGqRboUM6D3bguK7FcTcf/IrdMzdp0xrpXkXBj5P wiuwepPwiBidkKskO2uubFlDRGyciE1w2Uh0L0hM94/JdY1S4RaoaQrJ0el8 SSKecM138OET8h3V6lMW7w/fP4PtMurXymDd+RL21ERJeGze1IRqca3YS8Kj StXSrBlSJLycuOjXj7S4il8ql89t1NjZnq8QJ1KV6PC8wlX8oYScGJGzNBzG B8/Obk9uQCsn0dRyYr8PK4nIWKuATutBlV18KN5E4HShir60NtmLPeFxWJvm CJw+KBoH+Z4Abmymdfagw7sT7QRPzvASCYhcp/yedNPhFaq1b5JdUGpPgKfM QHaCxyXbCb3JBoUzhF0BOiQmSRWN4Q5DSXpkWOFIQc5SI+PXtK48NOSPkMuG iKEeSQ3JTvuKRHaNVIh5k+y/xGpYq2JoYNu9g03+UDreYZc3yxLM/DB5Ua9z kMiIHYND2jVIx1cDw8Qw6mwwKK3QiZ1njQXoTOKw9jTSFhua7MSq7ZtY/UMJ qyGNaFMNu9aAXe4MdngYtih2KCwME/aozKhVmyGvs3O6LfAp3dJREzpxrjC/ x6LzwGkMkXCdxiD+W1jsRZjEwz/WEvtVxNalDypArcD2D3D82Dns0ffgFTLc LlMJeywF1FEnKCn1tHR7xorotVHXB4jVWLaAWEuJzNbWRJwKfnO2lRBoiKEp rEC352W02LiQgm3qv4vLguFYKB/S3X2r0uQZjlSAJ6RTwcbMNOyqh0buoNJs YbWi7grQ2kbEVT/2WuwhG+lDon3vC7CS5v47Sq9mpFJOFMMadBE7ncROu/cV ks9fIa78PqIk17Dsr7ahI9YyyLUUrfkVzBDygJNZYlHKYbDYsdNPT+Ulx7oo NgmT3ZZ2WMODEmzknAi9PQmtI4eIy46cW4mSc4cEnQSbSwmeY52c62z8/zQn oKPjUu7aAaWSy+lMY4+P4scWRr3WDoU4LYbQkdWFELY3SZAxM6yskVa9nf/2 QKOPQ65Jw6QJV2BDpNqIVIv895Cq+RqpbiaDypNiOW7ETo0LuxVWVKttqGN8 E6ladkGcjKZX2yTU2Fi2HYYgHOIIL8FyZrKcvhkho49IVX4DqZU21Uq4jRbU c51qQg14hcP6Ub2Zpd+MnXUGVNUbUMuQVdvgYzs+pRcGuQ1GhlnB4SntsOl9 cFojcNlCcIjzK7ytMLvEVpsTWDzyFrYuP9v+TOjFStM+jQxBnVI6jOYVUpy4 RFpNcyJjPa6Ld6E2P4J6ukEF3aCB780NgwiXmuGgTHe2ULazSCaSLvT4dqKb uOkibhoFxZFzovLvYnEkjAcPl/AbaoAyXP85h3v4OYDEivrrquHe+UP4ql+G 3BqVwLMj2MXVbS0DyNwBa4i8F+rmkNIScDq9u19Ah28X/j7a2XTOKKjuBxJc 09pdyJlk/3X8aFjmjJBZgtTtGbqEBOqMXig4oeK4RlEaFfURJFwsFBJ2HLAx xK1XBpZJlSHD8uVFQFWDBouMpVKNIpkuZ/795jSV5ogf8dhNLQVqlSOJ3ax6 1cRPveZruMrrg4g6SjAZHdKmTWYBVbUVRjKdjdLObBW77ZWxIyDbSKYrWOXb JCfxuJrNaVQSVOsizZDFWlFvi6OOcKgjFKsIoVqGTGGGkuGhShTkppdbYGB3 bPweh8FPknOZBcm5TEGYnK0wUbAYWfIcuhj+tIIX0VYtlekuFvtdHNrLWjch asVupY3a3AYZYahUOqGs9SDOjPMq+btUHljUHlg1HhKxSA03TFonnI4w3OLY kWA7zP5WNA0extLJt7F07BHOXn2v4rwqUGU1pj0LclZDhIxTw2zQBvAKufi7 vjF8PzaJH4Vo78K0ddEB1AQGUR/oQU1UfNDdBZc/ikaPCt1ETBejk5hpcb1M vqF2pJaLKl7EzFAIf/ebr779fCEFSpVcSLWEGx+pTetOUTVnyDlidj1QiGMR KWl0XExVXQRJZwU3XFgTpZXBmoTDHkLWrZRu/U9pf4i46gcomOsl3OTN8v8a btTeFOqjLZBzIWWWCOqUDtQrxJa1tjJM2YSSME3ReFmIGSvDZuKr1kYesBKi LlZH4sbQgjRVoKA5wTk5i3xbqIp1dJFu6sTVplgLZLSOMpY4JaOGTdUSJ3Wk G7nMgPpqLyHKYiw3EjMGNmHmmpph5wy4mUluosbiYGG0tVDkUTRr45jraaqI 4m9X2jKT2pqkmx9qA3m8QvztYlerGHUMhYpDE0d1MzyGNrbBVFBzSCI0HJ5G 0JuL9OaHyx6E3Z2lHmEhFscwmIuC2v6k4pBN0Th2e+LS4YO7BUQJz51kySr+ yjpqUbnSAzXZU1ETRNwUgkcZg0VszK/nr+XwHYS/0xyAw+yXEt9qIZOT/c3h Tgzvv4XlrcdY3nwLSxv38ebTn/zlN1H6LaJUIaHUbA+gPtQCRZTijRWvXu2W 1k8jaoROnBfngE/mRJSDDxudcPDf4nROg9jUlZApeJRE6A5kCJkkURojSmN0 AymjrFI3/mkZohqltJBq1qh6cZsfMaMmPJVMTBkXUrndpqhVxEyahFqhtRf4 l50u0mAI8dvJbEofCvTjJYe2AhnV15VRSMYncBqMRGcSdUSnoBkZW1JxzrSc My0pRMHRKLm0SpkR8uoA0h4qZKURRoUBZpWRYYZN62CPRaWKU0u1kmJYTmhs i2S2KycPbyNUNFUXJipFU/Eyo9VyUNUVxMiJGJWauUfEKOvEMxutsAik8Nfb mSQOTrJDbyPbWLmUbjhdXxdEI+3f+MRGBaF/jBEK9vownSj9xJ5AlpXQSXm4 zWq0MyoyGpNKqxKHFrlZqLsQ4CJZyZwiC+wGIRPZhslFSeqEla9OZ4DM1gaz jwU4Ny6x2taV9yq29M9w4vppxMZHaZvijBR2mkhncjt2KVwcI6WwUkxngFAN QV4bRUwcWqVJkeUjsJticFiicNoiZNEI3Aw7+2MRZ+lQ5kY7lrBy6SOsnH8f K2cfY+X0QyyffANf/c2v/8Pvw9VhMFHaNH0NHfKAlguq4UwrOQMazrKQNUJN BdizGOEUNZG7STlOk52vdphZGbXGLEuWV2K4lG4Hma0eDVYhc772HAKuTvJA bajpOb0puaoagkdPDjGZQyyDfhj1XopwgqgmhAwFo1lnkQ5Js1CoCwCZufoO Y4Qp1iYd6py2siw61BKActbneP3Zr34jlar6aEmiHUFxcg5NYfBBRlrZBpCW YWCoZVFk/M1cUILHIMLG7trgMrA5cd6S1gKTPUMAEbMW0pw+hsvbeP027C1D kJHh5Gyqzk+GY3XdzZ4K/NSrSNhql3SmkIFFXSWPIEY3ZSNuHEZix+Rh7XUz XHBZOLNmO+uIVVpLM+W0iSK+2LlOu/HeH1dYbnD/BupCBTJdkkIpVWY56sAq Ft86Flw5ZYpaJU765YRqAizqfQixfNnpZhycbKc1SJ3Ir9v8cNt90u7/FosT phAhyxjed73Mcscf4M0nX/yPlWtIT9/aQml1Fi3rS9Cmm4jcDF0OtaPcg11y P+VNkMgNUwNEiZ0Y5U0SMVuG2Sh8YgJ2W4qITTIbk3B5EnB5GR4SsCsMnb8N 7eMnsHL1M6xc/girF94jet/Gypl7OHf7ncpnaxW/9W2cfPiMSrlI6DZLky6u fqq5vnohXzhCK+FkZnIaSQh6tQUhJm+ChBCmTLLqjCQGI0uLgb7FAJ3GK222 5zQkJZVVJJwKQqWfPFye8H+G4ydPE7nl5gT1KThyifrYlIFN6diUjryhY6Uy MGM0XONsoEQ42cpQ4nrSRuqt+AfkKHF8lxdGW0miv5TNigaHClmr/Hm2bL75 DI62MfJfSRqe4L8q4qiMJ6eEJw2xZGCmmti2RplAJtxB7BBHFnIUF9Rtc8Jj pUGhCHBbrLAQX1o7M5UK32gtYt/BW9t42nzzfaSn9xPC1Kr+rERHO4inPayY tRKefFATSzqNXzomUK2MI+rv/xpLrHduhsch9lr1wuN0U/o4YSQt6Vw5mALN WDr9toSnr37xm29V9OvDz36K8Qs3sMsVk1hwj4/sK3eSBQXT+4ilAJmXfKQK Q6+JkBvIepZhhJlhdmsMTnsMLmcUbleEs+t2h1nPPB4uvtMHrbcRoeYZrFwk C55j0SYLLp14419Ubqj/6eePsH5qBq1rc2hdX0ZyYoaeNY8q1qwdsgDhHEa1 PErlxWqqTJISU5DJs4g6C0zcIkLsqt2VhcOTg5PvXZw1d4AYCqRg4vsUSXhw +jT2HnkDq9c+w+rlD7F68Slh/Yiwfg1f/fJXlTsnKqbsj3Hq0fuYvv4mVXyT dFebkuuuoInUUKYYzGGYGUaDlzizcxHs0vXfkM6LhNmBmJ1sbDIz0S2S2nKb rBJ1mVgrVKwbJs5izlSPgl2JSycPP/+s8Ge/+i3bfCS1KWObCtZaGdtUkSg0 xgAX3s6fd0rYNuqc5CWKS3UMuUgrV8JJnDklfHnIwh6mjttsldrWm8W51Fno DQ1I2My4fGq7TYLt0buYvfGIgDsIucgnhqh7exRO4pvCheSlUpO8CDSjnnWU Ka3TZpGO9UpA8zgYTj+8Lh98Li/DDa9THGNig9aVhoa6W89lWjz28Guw/Ske fPoTzN14gLlbb2EPjeQ2ee0keVVVwKYQYNOEJUNsMkbpu4jz4EgFaDF4XFEC LAKvN8wIwutjV7w+mFjGtZ480u2zBNs75M5HxPobFdP7Zxg/dwWltQUkJiax h7Qu7sZ6Re7lsEmaLPFigzQlCVOjiVOrJbhsSdhs4whHxHk2JE1yt5vKy+1L wuOPwxMQIY6FCkEbaEFT7wrm2ebqxXfZfpk033r2xR9VPpb9za+/xL2b85g4 PI221Xm07VtliGcaVlHNgrZLTbEsixHwFHeKNKVqlva0vNtI2N3EVS8hFGyA jd12+Bvg5HsXy48rnIctlIW3YQwjyxcwvHAWQ7OnsXCWQL/2KVavPCPwH7Nb 7M5Hn//FNz9T+xOcevgusfcQM7feRmb6MMVyi3SdTMnqrjVFSeVhYo+cpRPH prJAkdvs5LUw5XnS4UGDzw6vg0LaaYePa++zM8ilHmLQaEtDpUtCV+dAXLML H733ZPvWkJ/96u8wc/0+Zm++BWf7BFOtFXJylNwQRR2Naj0rhYJmVaMV5zz7 YDb5pMOQ9fo0cokuyi3BbzS3hJ3P5WLz5S542AWn3SWdDaoyUNgw7V698fo2 /L5ks7Nsdu7mm4TgY5bvFsKggJ0yN5HvQy3hJ/ZbFpvZ6g2EHzPIao3S7jUg nRwiu0Xh9UTh80Xg84fg9wf56md4CUPOEH2VhuiPZnsxc+gW0X/3OfxmxROJ Nx6i88gxQlB8FN+A3cYkoR8g9Mv78yk1MWgJPQOhZ7IkYeUwIpGJCvRShF0S 3kASvmAcXnG4QohpEArBSMITN3v2Tx7C8MxJwu8tcu09vPn+F/+iIhsefvoF mlcE1y6Ra9ehTXWhyl3CLqJ9NwtltSLGLiTYhRQ0nGWxoa7JmoXFvheheHuZ Y8WBagFGSGzWm4EnkmaInSKLSHUtYGjuFAYmjxFyH2D10hOsnqfo3XoN2ynw /ltn8OAWob+8F+2ri4z9jGPoXD2F3Ohh1Dh7sLs+hSp5hgoqD7muQBIsok7T iKBH+JRWBMSd2KKoh5iVJExnrEk6DcvbNIXR/dcwunYFoysXMbJ4Fj2L19C1 /ghda3fRvfoqulcuo3P+xF98836JPy1j8do9YrEMir6Nm1BGO6B0FaE0JKhU CQoNa69enJjh58KIc3bpTmkvwvYokt4AiiEP/F4PAl43w4WAxwG/mynhtNIo x6DnQirFMTc1Frx35Sy+9Xs0LPjwbfRu3GD6dTAPGgkIP2oIyHoViy+dsZal wMjSY6E/tdvpUU155DL9BGOIYAzCTw70+/wML4M54XXC6xb7qqbpRclj7gas Lp7ZxuLpR08rNPw25m+9h8T4IqpZdPewquxRhCg3olBoSYVMIYOZVMhfYaVm 1FmakMqMl3EYJA5DCfhDcfjDUfgjYfjCpOMQp0gcFpLpIB7X0Tu4jNkD1/Hm ez/5Gos/xtz1uxg8eRYta+vE4xHo0n3sQquExSqBRRWxqCMWjbTFFopwiiZx IkA4Ok0cEn/BLDxh0l6EEU0zUvDGEvBEY9CJXevH92Fo/hjxeBB71y8yJR4w JV6r3Af1L7F09jhaV2bRtlam4bZ9G9AzxautLaThBGmYbl6VgYKyWcPZ1lkL MDoa6JdnEEqJk4aLZQqmaXVHGbG8dJCSI16Ep7QXI2vnSMdbGJ47ibGVc1i9 +j5p+B2sXHgDb334+R9W7mj+za++xIMbczh4Yi/alqbQvrLClDiEjpUT6FzZ Qg8ZvTB0AqbwJKq1zajRUP8amqCk/anRNdNQ0JsYW+GPtsESboVVOlNL7BbQ ie75Mxg7fBtjB2+hafoa0oNbCHZsIty2gWjvZST7LiLdewbpruNIta9ive0s riy/gSdXP/j330yRP8PMlTtlvNx8GwvEy+KrH8JHcaVytVAthEjZLNv6kHSG vYGO2CLcsJvO2Btl7UoiyTLZFA8iEAwiGAowfAgGmS4BFznUAVeAetFHqFrj CMc6cYVl+tnVre2bzx+Qu+au35Noe/7WU3bhA3jbl1DrKBIvAdSoQpBpI/Qe pGpLjB4xTvkZZxdIpbZGZPMj8AVi8JMy/aEoOSTMYHfCzJgQqTvoouviOpNm ix0T6O6ex9bBzW24iqoxd+0NzN9g8zefouvIWcLlOAzpQVQZ8syYOCkqyRkg XM2kTlsWZifh6slCZ29BMr8XnlAZqr5oBv5YGv54kpGAL05Bk2BmxZoJ2WVS 6CFCdg19g3OYOXDxOVxPP3wHE+euoWVllRR+SGpfbItiTI2imnioVqTYB8LV wGGY89DbC/SsDbB4iwjG5+AkRbsihCah6okX4E2IE4pyjIx0rFD77FGMrJ/B 8PJJQvYIBpm58ydfxcr5N/DV3/76jyqKXcC1ZXECbSsLz9m7g+zduXoWwbZV 1Fo7mb051GrELigNUFmK0DqaYKCAMbjmERR3Z5DBHbRUzjiZO9EEV7IR9lQL MiMHMXboKkYPXCKLM3uWNtmV4xQyj7B2jWLmygOcv/9W5cbi/xUL4+0Y7Qgi lPBgJ/3zbkcCOsLe1zIDf/MCehcvoX/hGgYXb6J57BxTYy8tXKf01PYeQxvS jjxMWk4P08UY6UCweS8a2Ie9x+9igrqxd+0moj1bSHRtMI4h1b2BXOdRNPed QBtTqWHgLIp8X+zaj71tB7DZehanS2dxKn8Gzy6+/2+/eTvqv8SDT77A7LW7 TKO3CKJ3sXjrQyzf+hRDGw+kHZmFBKjTkXZN4hT0OA1iAhamjp1q08WSL7xO MpJCUyqGIDkuFIswQuw9UyrqQyBCsxmNwEZOVLni6B9dxtzEPB6fXMSHV7e2 H4aavXKbqfSAXXjMNHrGbnyC4twJ1LrbsIfUW0MFIqMCUZuTUtEyOdPEcRoO ZqfB2YxscRw+dsNPug3EkgjE48QXUyoeIa6DcCf4M9Ei3Nk2Wq81dmMBPV1T nJAzlTuxieUHbzOf7mP++mMMnbxONXwM7WsE0b4tmNMTqNEXUKvLQG7MkRGI ZQexzAJm9YtPvDuQKMxKlOuNN8CXLMCXysOfYm6lM/CmOWXZVnQwj0bXT5KC j2F4dj8GJ5Ywwv589ctfb3djjlPRfYCptLJOHB9hnCSOt6gULsKSmia9NqJW SxybilBZG6FzNsHoLcHiL8GfWJIw7IqXOGSGOEYv3Qh3pkF6hLpr6RQmjlwm 9Z7H6L7TGF3awMjsIYwtH2cVuI+3Pv7xdkptXj6GtsVJtC+T+VcOMU6Q/c+g a+UC+pYvo2n0NKzxac5II+pNZH5bMzVmC/Rewta1CH9uuMz6dI32ZKuUStHO KXQtn8fk8VsYP3oDo0yreO8q4l2LiLfPINO/jMbp4yhO7UfD+Ezlma//AZvH j8CpU0K7+7vQMxSqOlTZqE9JrHtkIeypCqKqKoqaPQmYXYMYWr7FQvcahdcd jB+8i675azCHZmGWUS9UJTA3tB9TJx6+wL8eMG/3nrjP5i4j3X0S6Z4TyPQc R777KBq7D6G55yhauw6jb+QMeoc30TJ4Ci19B7HYdQiXu1iY2hktjCI15Myr 23sD/ofKLM5eJq6vPSRHP8HCzQ+wxNRauUWZcel9mLKjqKEPrjWQo61Uyo40 hZE4CiQLO2WEi9wcZDlPxLNoyqUQTKZY4hOMOCPKf4e54AE4M2I3njzaxqap slcwMDqPV4/O48nJBXx45czzfQIefPw55q6yXlynurrxHvvzMUZO3SFRbiI/ TpkrnufVUl5QYqtYK3TOHPGdZwXMsz95GDxtyFDO+ignfIkcAqkMAuk0gzUj zZrBPjmzTQg092Ns31EMLxLf08voH5nB8Zkp/O4XX1YkN0F++VXMX3uEhevv onX5MEFOdK2eQffaefStXybQJ1DLfJOZCXI7Qe4WB3IT5OKBUE8XYsVFuCoA 92Yos7PimBHWkCz72tCNnpUN7D12HuOHzrB+nCBpH2a+rTLfZnDvnafbyv/h x59i4swltC4uEegHCPLjBPlpgvw8elcvY2AfS9veLdQ7uqUtp5QOse82Qe5v ZWUWe/0vE+BtEsAd6VYuRYv05HW8Zy961s4SWTcI9qsYP3IR8T6CvGsG8bZx xJoHiLgVFEan8f6TJ/+8orpOHTuC3rZm1ClrsMvmwx6WjiqyzB5TAbs1efgy UygOn8LQyk2M7LuNtumLsKWnIHOIzT7aoPG3090uIFYYgSneAVOiA40TB9HH WZ0+JY7w5Woz/xyNo5DTl8np3RTeLJTevHS/pC7eyYpfgjZMBlUqMVwq4YMn T8o7XP1vePbuE7j1SoYKNtlOGJmK4hkijbKeFTaE6ionaqr8qK2KoJ5pJq9K Q1mTg7I+T3JcwtgBVrDD99A8vIUffj8M8w8SaKhKYVCbwPTSOXbxEbv4EKXx i8j0nkamb5NxCnlWs8be49LTwp29h9DdewTDrJxjY2cwMHIKHUNHsK//KF4d OIdX+8/i1d6zuN21hdutp/HOwq1/881nkf4npsFn5Ng3mJbvMBXexyLTYPnm j5mWP5OovofcaMmJ1CTV2yhbXAUYaMYtgQZqhAJdXYPk9uLJBjQ1MA0yOQSz GQRFiuYSCGRj8GVTcORbKHVXMbGf/Lq0huGpBSzNTuPZuQU83ZiX0uEPK6l5 mvph7qooPaSJGx9g8cZn5P+TdIjsz/4LKM6wFFpItJYClPYGaN1F6Xx6S5Aa RTwr5+9CqnkO3lRROuXQny2QgFl+ciw/ObrhfA6RrjGmxGlMHDxBHcN0WFjD 0N5ZLE5N4PHR2edbeHz5t79iet7BwtW3MbxxnXlBLbWyKT0x2L2P2oVudujQ DSQHjjIv2qFg+VV7mRMB5oTY4cTXg3hxWcoHV7YFrlxlQ4R8ExIDM5g7cwMz m1fJvZcwcfQcCwBzonMCsdZBRJtYRls7sXnkyB9WbLDIiVJvH6rcUey2J5gT BeZECbu1rMDeXoSaljG47ybl2avSsffpviNwNcwQ18yHgNgdtQPR6Ap8Db2w pDtgzbSjNHUAA4cuY25LnET7GmvSSTibhiD3i3yI4wUofTn8feZFlr8jA00w joBKCT9zYuvwkT/4RllysSy5deV8UCprUW0LopplqUoeQlV1iPkQQx0xXl+T gcPdj9bRTZLSHUwevUtFdx/TrECO3DwCuhW0xSYwNnP2BU7RQ9a+2TP3MXP6 HoXjFHRikamT9RFxIF0WxlAaOl+cEYKBXzcmm2GIZeC0mhFlLyMKJc4dOlw+ FRDfw92Pf4F7jI27n2L83BOMbz3G+OnHuP/BL1Di5FsNFniZ2j6mtpNDsTK1 7UxtnUKGWqWHKe3mMIJM6xjTOgVldRZqWQFaJfukaYInOEphcR9q+xh2/aAF gbo+dLMSz6f6sFZowvTmm0zrS8j2bSHXv4XswBnkBzZR7Gc57T+Jjv4N9PYf xwBjdOQc9k5exPRe1oPx4zg0dhL3WJ7v8efvjl7AveHzuM+fv8dy/e7Kje0j Grbz+/Q9yjhq8nlq84XrH2Lx+mfM759wuI/Qc4Dl5cglDJKT7UVBnCwvHpYX f5N0YqiN5Oeg9hfn5kXTJTQ2FuHPM98LBQSY6/5CBr5CCs5SN0F3CDMbp7D3 8FFM7NuP0YUlDO7diw8vLeLZ1jzeOTZXye9/hbmLLHdX3sTCNZbd6yy7J+7Q Rp9mPrHOHGSdOXwNzQtnmE+tkBPcak+J+VQ+O9BKC6YV58y0LFG+irPeSvAy l7wFlrxCg/QQYPPcfsxtXsL0BmvO0U0y7TGMrOzH8PwCbds4nm3O4efvPih3 53+Wumpv6kddQDzklZe2XKhytqOKWs4QHECk5yCGDwuN9hom2dXsyFG4i5NQ h5hP4lJQoAeFhmXmUgdsuXZOZQ9a2YWho5ewcP41zJ99lXL1OFylfiiCGSgD rDE0DCKfFMxjuU3c4lALv+p5jUE5qf7Nc63nZhitduyxBJhUKWkXtj3VYVRX x1Fbw4Sqz0KuYGFpXiGN3GGpvcsCch+zpx8wrx+ijuW6xX8QEXcrFs8/xOKF B+ybiHvoO3AZ/tZh6KjWDVROpiidMd2DkUZc7w1B5w2Sxvg+kkRMrUJUpZKy KixX4kP2tbwnT/L3s+osM+rMY2y8/qmUVffe/wWu3riLwXYuGTPLy8zyM9yy XcyaOtI5yaHex8wKMLOizCyqwGoqLxZLjZIUr25EpnVdIglxCnMov4iql6j8 dmXQpcliwkYdSzs6Rxs6e/YhAq0THEuLtFWGISYUYRGWWIEanI5fXAwNRPk+ IZ2MbUpm4XFYkVQrkVSJ4yaUaO+ZwImHn2LyyhPsFXH5CaZEXHyC6fMMsoY1 NyHdrF5jYRhL0sd9lno5HGQL1+7vwSiXo3a3FXV7vJBVhckUCTJFGmqOSasg U2ip4vTN0PHVU5VBUj+GPXsmEXYuoi+3guWeRRwaGcMwCTLXdxY5WtncoIgt FPjaPHgO7Yxuvh/g10aGNjExeQ0zczcwN38Z47OncXTqLN6cuc24hTenb+DN qat4a+Ii3qaAf5Ps8t6+y//6m4Tx5ygtbKJ15Soyk1fh77qIUNdVOpD71MTn 0LCXBe/YVQxRyI2eehVtNP/KYAfUQbHrZQvMCbF/Xot0fFyUWrS5SezVzwQt UpMWG6QDTFNDk8ymE1jYOo/ZU2cwdewEEj0jFII9iDQ1o73IlSyFcH6qHX/9 7oN/VknSn/3yP5E37iA9fpBdO4Hs5BZLwSwC7UsIda8i3Et5TRM1svEqJk68 hvTIYShD3UzSNiZpG7vWzvd9aGimJ8y3wVVolc4uEs/TJUfmMHz0LBPjOpPl CjIjs/x6OwtgFjImqdxFQFpdsL78XZhf+g4Gmkt4RuD/k8o1ju0k1VtskNEe yOg/q6mXquQJVNfEUVcnjhDIlg/1MbUg1bGGvafustjeJ2DJzUzEgSM3IDcX MJQ9CL+rhBVy9rII+tDlS3fRf/AMfG2D0MeZoPEMzLT1lkiMQA4yQQNM0DhU LjdCtbueJ2mEQB5tKpV3ePx7+Onf/mfc/fDnuPvBz/HTX/7n/+YbOnbgG2kZ YFhJNbWWIGpUYdbsIGqro6irTkJel4WKNKNRF6HTUSJbO9A1d1468H126xH0 ds74ziSydRkMmtIYc8SwePER4yEGD16QtvwwJpkqSfEsH1MyQUPFQm3naGyR KEx+P3SBCP8vhZRWhZRGhaSGKcm0tJr9pK272yn5gpSP/zumRUZeKGfk9NYT dC5dQzXZrlqcmaf3S8MJMRy76JYV9ajTCobxkmFCzMo4WSZNlslJLKPXiJsB SzBxkXzxCXQuXMcPXspDtasHOfMwxmLDWGvqw+rQKObPvYlA2xQM8fbywUHE vthJxMKCKQ5rs3OhxFGWNrKMORSCnZ7MQnHsd9mQEbdnmizi+aRQiVzvbJnA NMXu9LUnmLnK4MhmLzE4rh6arnoCQkazVS8ejTEzDM2olee3D0ep3+N/vkVV +YHpP4eOhCnuhTUqG6mmWpHzdsLknMcOzSrtKp1D93HMTh3B+uIZlEonSC5b yJNI8kPnUBi6gMbhy2gdvoKu4avo4+vQ6CWMTVzA1OwtzC9TD9N0TS6ex82F 1/Bk6QHjPh4v3sXjhdfxZO4mHk9dwpPxTRLNYfz2i6/Kp6Tg31fK2k9/8kuc 3LiD/qHjCLXvQ6xrA6nus8j2XEax4woam86hmDiGxhR71nSekvcS+g7ext4z r3Oh30B++hh87ZPQJ9thpoQN07IlaMJbmhqkE3eczZ20dqsYO3kOq1duYPni VRQm5+Bp7iArJKHyRaDwxKkufDAoauHc8SIczG77jh9i68gRKbv/oJLd7zM/ St29qPVmIBP7Fga7IaPprtUVUCNL0p5mUK/JQcEykOikwzklNj9ldp+7h166 lYa9h9A0cxjq1AJmJ28gNjRPh32QJHsMq1ffwMrV15nlt9m/BdrNFMtwgjI9 SukRYPl1002EoXR6YJJXw8M+RpjdYebDaFkqbO/f+gYz+41yZlf2dH383KKK 1BbV1mKxU3UUSGhF2tNyWtfXMq1lTGsV9auWVcnQBAPzJ5Ael7A3R7WwcOER jJ4e2Kh1S+oMRh1JzFL0rVx9KBHV0JHzMCSbpMfhzakGWJI52BJpCsgEHNEI HBE/DZoHGq8XkSrx9EsltdXl1PZoLTj/xhNMEPOTjL3M6Slif4qVduos4zS/ duoJFjfuQqf3SdrczwhyTBFhv02ssiZBVR7mdljKa3kN81rOSqtiXouDhk3N MIvD7+yt6FsmnEhbL+8swSnvR7t3GLO5QRyg2VpeXMMg3ZAx2cbxMKdT/JlU CRaOzUaTa0+II2rTcCViNL8hCmUfjLEosno1suJOfbNFymp5qBnyYAndR1iR mdezzOtZUtccc3uOY5vj2OY4tnqqTSmvCZ86YzNkmhJsGj/c5CujvB71csFV Po4pAjkpWFVLFyYvQKcplrnK3AKLrY0/U8SAqwc/eHkAWt0cCnFCkYVm/+gC 1sf6kGgcJUd1cFyMVDvH1cYxtcKabIGdtdpBs+xK5+BOp6iUInDmafJzOSRs RpjpBFXiPhtx34u419SfR7B/Fqm5fUjP7ENmah/6OGd9+y+j1paHgnwljLDC zrDy50xiXAXUEmvij7laJb3K9gShoIcSf4QqkrZipDKy1BaRcPYg4O+B3dVO 5Ss4bx66Agv/8Ca65o+idfoigs1U4w0XkGs9jfzwJTSQrEojNOkjN9A9cgsD 47cwsvcmJmauYXb5dSysP8TSAarj1St4b+0p3t/3hPGYKuhtvLv6CE9X7uLp 4i08nbuIp9Mn8MmJi5XznSqbg/1bbFJbLOzdwj4Kq8H+g0h3HEC+6ySK3RRj DWfRmz+HLrJWV+o4upLH0JU+hu7MBrqy/NrAZcxcuId51vSFq/exdP0BRk5d h8mQRNwWw0yuFeu37jHuYt/NO9h34zXqkhPQxlOsnAlY4kK0BmELe2Hy2ZhO AVjVdQjsehH+Hd+Fl+wQFezAuj9CqVW+UnUQ/W0liQYMFivknhyUYvtjVwfq ZWnU1SYgl6fLR7LqGqAzsm5Y6LdsJfSsUqIJo3DpoXQIcN/aWehrwsjKwujU hLB0eAtrN+5j7fo9DB/ZRLhrCOZ0nulCkZ1MwRaPs7KHYQ/7YAs4pGOi7Koa hHayn9QpSVJAnBTg0Vlw8PT1///0P8OvbT7BiVuf4PzNJ0x/Ba25kqWdJoTp bzc7oHY3QKHLMP1DqKcpUtQz/ZX555RmlI4FboHVRS3IGFi/jK6li6iqakPU MICB6DCWaQIPdbZgauUwho9dLG/1lxFb/pWkTQ9s6QLThOnPsTmZ/q5EEM6o C7qgD7E930WOfcmRAlx2v5T6siBh7y+hi35WKutM/1lR2jm+WY5tlmPrXrmG Os51Lct6Lcu6SeeXKC1OOrHpjaiTk9JY32U0RSL9FTR6QqroaE6NRrE9LMfk ZPqLs/g0DZiNjeKV6jF43IvoKq5iYWAFR6ZmcHRmDoZQCw1PB0wZUTXbyrvt ZprhSDcyGpj+WbgzSXjSEeKMFScZRcGghqWS/iqaKfGqFreiUec2LZ1A8z6m 5PQ+5PbuY1U7gX5SgC01yPQnBTjK6S8qo5JjU2kYu53lfYVc9ENxKMnS23/0 OgpDspmZ3+oiC+bpq2PRbuyWjxG2B5BqPo6hsQ0sLR1ED4tomH7dIe76pfMw clhmhiXdLu3gXd70sxFuspgnT4GZjsHdkIO1QMEZJDQo7RXOMKed02vykIFD qHMlEB+cQhNZrZmsVuKQ3Pl+SnnKeDX9aZ2TqeKCWunjEvihqnOQveyQ10ak /tfu8UG+JwAlx6WqyZRZbXcWAU0rwp5eMlkHbGQzC5c6YWnCxMAqGfMa0ouX WeHuItt3kjLsNALdN+BteYBU4QbyrVfQMvoqOkZfQ+/46xicuoOxudcxuXQb c+sPmILvYOUIq/DabXxw8GN8eOgjxgd8/wzvHXiKp+tv4ekaWY1y7enyeTyd P4Tf/uxLGiqJ1cqfz/w/+NlPf4H5yZNYmd7CoZmzOMWYGjiEhvaDKHWeQnfD aQzmzmK08QL6sxsYyBzBYP4YhosbZJqTGGk+heHmTfS2nJdOmFm8TqK9+Qj2 UA+C8iS6zElMeqOYaenA+quC4d7A6MZpIrEgiWJbJs0iRLGQoFiI+uEMO2EP 2hAwyRDd8z1Edr+IMFkjVrsTAYNF8gLWhomv2eJihS1oAqa2Kmzx6qe49+7P KyJI8Vw0WM02qNz0MN42SfTUUQTJ64lwJU1AhQHFfeuCLSwuFkhPGyKNe7Fw 5ZHEiNU1ecS4pAP+diyRGVYLKcycukbG2CIMWbyy4sHVBo4pz6zKwJlKki2i cMUCcEXdsIaccOlqyBgvIiXfJbGFbJstCGlnaUJii+di4WJFMHBssxxbNw1O LQVaDdPESIMTNqgQExcqyYJaZwPZL1QWCzUpKOVkdTXHZBBPx5UPRre622D3 tjN1OuDkWFPWIdQo9yIRXcZw+yr2jS3h2OwkpseGYc6SKXIi+HM5sSm+2OWz EU6uW5ktEhQMYXiSHjKGA4maFxG3WqWnaNXRCluICPPfHOM8hdDYmTvoOXJZ utLXS7YYP36HaTYhXemTUwjJyRYKOheFuhlBrVV6ELFe5pXEwjZlCGGn0ZRP ETFR1FkcZEBbK3w0bk3RLqRL4/iRYp6C7TBaejcwNXcMa2v7UGQ6J8QnF3To pizpgmHjGMWH0dIuqjlBGXlSRhrePBk+7SdjRmELpaBNtNBpc05JGzIr18xI 2nAnYEyUUFogZZA2WsiELRRDya4pVJsSZeogg8vq7dCofNCSNnTaNP+dQG1V WQzJq4QIipfpQt7AilU+2s2qbELc0U0K7IPDx7UKdMBg6qIK2A8Hc7I4zZjb QGOym+zfDK2/m/nWBaefJpSUaOW4xNgc+Va4ClQA4gJMMQtXPg5PYx719Ehy g4uOUaY04mXI+bdCaYBSwVBbaWRLaJ/bj/aZA+jYe4CYS9LzRCiyTew7o9oM WZ149MVD0eakMDVBU2uGhjQp/tTtiUHJSqzaTUG5Kyt9zWal8LS2SVh0G1uQ DvYgnGC/gy0U+BRmm8QGxVm2n1VlcAu5oUvIDV9HuPcBwm1P0dhwB+2dt9A3 fQ9DC/cwtnwPe/e9gblDT7B8/D2sHH8bZw6+g4+O/gQfH/0CHx/7nO8/xftH PsTTw+/i6UHS4YE38HT/VTzddwq/eOvtChOWPxb7d/jypz/H0t4N7Js5jaOz Z3GGcYWxNHAUza2H0dlyGsO5LYyRCSeaL2KksEFWPIbx5g1Mtp/EVOcmpntO Y6r3DPb28Ps6tzDLkSV716BSdKLoGcDe/AD2d3bhUHcBa1tnEO7phzXfxCjC TvQ5slylTAquFIsWNYY75oErbEHMIUej8vtIVL8In2w3dPbgC1DQZ/wllCQO d2nya9K49PsuY5YSSnzuX20swaDzkUSViDDsZjvUzgI0pkYuJJV9TYKkkWFy FSTSEFLQ7CCY3JQKPoIpwAh1IJYbRjIxQ9CMIB+exkTLLA4MTeL4RB9WD64h 1j8BS54/ly9Je6Q4cpQXJEQXid6djsOdCnFoHjjEkczmWgQUu6G1UBoItvgj aZdjDU1UfuIwlfITcu8TjBMbfQfLJqN332XyRRP5oiTxhZxKSEHJENTa4DaR B+0F1O8OSHyhqMtISrB8teR15j5znsYkTNVUSnfDHezCbssKQk1H0Ut5sbB8 BPv2LyGZH0RCPD7BvljE4YL5NulTTFeuxCiSJ3LkiRR5Igpv1gd70gEn1ZJW fEJBrhB7h2rjHEekESrxfBXlhdjFs3Ge0mKWMf37EqNKn0C9JgyFNs46lJJq kUZLFVWXYJ55KC0ET3B5xDU4cUm8cgSknmN3iKeefT1IpPqIlA64Ix3w2LoR aDqCyMgm2pdPoHfmOLmvALvYOzDSz3G3sR61wJbrkK6IOsXYGpoknvAWM4w4 XFnyHJWh3ptmXRRPt5AjGGJjARVDrWEttYaZpzPonDuATnJF1/QBmMItNLPk ilojTZ+JLoMcXmOETi2eM/JDzffqel9ZNu1OUjIlyvwnlK2sobxNrK8XLl+n tF52dwvc5iZyewfGFjaonO9i9txd9B44R1XaAU2U8irYKT3qagh0wcM58ATE jmkcV1HsFS7SQ2zlm+MYE1B39aLGKU60NkOpMXMc5C4R/LdOaYJWboZW7UT3 3GF0zx5BoW+B4+H61Ngo9+zSPhgKcrqKoa630Yx7oFFY+HNW6OQWqf87aojN H6Xgq2+Az9wqfc1AeaujwQ1Z2llve6V+OsOtdBGt6Fo8Te10m68XkOk/hczA eWSHriJHI5sbeR3F0TcQ6X4fDX0forODjmv2HsZpaKcO3MfiiU+wfPJDTB99 Ex8f/zk+2fg5Pj3x14wv8fGJn+DZxmd49zg58Bgl4dGHjNvkw/N4vG/19/hv D5Ynj2A/K8uR2S1szZ3HVVrh1+auYL3/JNpbj6O/+RwmGq9gqu06ptuvYJzq b7JtE1PdZzDbt4X5oS0sjmxhYUzEWcyNnsXY0Hkk+47TU86gVFzG7NAKDs/O 4fjiEBYH+qjkSBRik9YGKosCiYIc6M5l4Mkm4KUX8aS88MRtiLsVyJmrYLA5 IfMmoArlpWzTRcXRHYyQ2IB0AotkjEWS4CJJUHy4JW6h6Vu7LG0yLbNSaYnL LFqxE6ZVejBTI46bMjZBp2qSjiJWq/h7dfSNplL5cqoddh+BFOyA1dcCj6sZ 7QRXLDYJmWMJmaaDGBs7jPWldRxen6XtLxF89BkFcmahBY6C+LifwoIc6Mll GUkSBkmD4sKZciPmUkLuizPErZHN0IuIi8+txJDExrMUnBVfIoijhd6kmcTh KXzDmyhoOZVhaPQFqLUUXIo8dLY8ZCRBRTVJg7ZRCEFt5URcs6N8SpKPoikX 60U8QzDGmTSJDjQ0LkDTskFbt4nu9eNoG1pCnOMxkvst8V64fSU40y1cqjbp XAc3l81TLJRJoyEGb8EPZaP4nJOE50uz2PtJUm4mmblMGgo9VPRbSmeCAJ9G 5/x+dM7uR9fMftRZE6gzhF5AbY0B/wh1/FtRa4FeIXgjSp2RxK6qPOS7+ePi YlhdrsLr/wCJSB+84pBp5pSLtjBqK6CU6cTK1nVqnIXLd/GnaCQ/KeLd0s4u zmAr9NRUplgfAnzvjZHXBVdIW44XyRVZ+JoS0HS2QOaOQaUVT4mbnnOFjmEg XxiUZinnncl29C4cQd/8EfTPHYHMTN6W2di2Qm5DiJrVBg2/TyMjTyht0KvI FQpTmSuqu55zoHlPDhFb1/NlMtLh201NSPmpa7lMXrZTmljHzNk75MA7KEyu Qy8dBNIGTaqT0OmBK9QuLZfYGkzcOevPiO3lSuV9EltyMHW3obqxFfVG6jbB f1r2S2PhmGwwaMTOGg6YlQ7o5dT0DUMczwailBdKXQwKmZsSwUOd6OFyUvtR /+lVbhjVrnI90jil31G+mFfWtQZF+WNcSdfKGhH39sBJTWvztVKzkv8inPd4 C/KDy5g4eRONE5tI959GZvASIXID2eHXkB15A8Xx+2ideoimqccoTH2C7plP MD73FvauPcTi5hdYPv0pLm78GJ+c/BU+PfWf8NnmL/Hp5i/w8eZXeHbqJ3j3 5Kd4euIZnp58h0FbfII68MjhbTtcvnfiH+PCxhXsnzqOwzNncHr2Mi7P3cDt uVu4P/ca3ll4HV2tpzBRvILp1lsV+BUwx64ujl58fjVjdeY8Vikcl2mlp0dP ob9xC4rwOvK9FIvzx7F28CD2HZ5DKNmMSCBL0dcER7FZKsEecSNDIcdMYvmQ 5IU4t9hOVjFBH0lASzuiCoiPCgrSZ04m8bEa2cIoZBPZwtcyhKb5r9lCWBLP 9pUMyowqyoladYbCv8BlprWxki00LL3qEpQyof6EZSzLC7O4uOQts4WLZThB 25tv6EcoxzKbIiO2nIC/+wSz+BSmDh3H6PwU7ZI4oEKUt1a4KXmcDa3lzcoF UzTkyRJp+ApkinyAFjNIpmOaeSNQ27wwi+0kzD6YDeI5cELTRJi5k9L5KR2L 6+haIFOQMbrn1lFnT0h7HNTWGSgxDFSvlCdVlBn1AoJp7FF1Ql2bKFOFjFZY U6SM4TzZyuU47u5EipLJl+ikGhW0UaKMKmKwexQHr91m6i5fv4sxhHonoMv0 wEz2E9+jj3STLbsRjDKlMuIsZq5ZE2VTU5YRh4kppognoWZxEQ8i6QxOsi9l hVpIIK6hirShoMSwRRFrHUbf4iH0LRxCcWgOMksU9ZQfCoZSRrrhq6ae31tP yiGFWPUByOQJ7NrdSspgGxyX+GOpL0qv/lC3pNQtlEJuWuqssMNFrkWqFYOH zmL+0h3MX76DYPc4jFlxeG8b1OkergGphS7CFmKlS9GWUbb6Gipbq7ZkYelt RU1WPNfieE4ZWoaektuoccDEsFAyWZROsn0Ug4sbGFo8gXjbJCVtgFTBCkCa UKndlFlu0oSLP+eEmVShV1m4Xlap/1XEX9XOFum919bGuWsu23xDCQFLK1LE lT/WCVesjdWKtp3Yn966TTq8DT3XSMdx6jOkQxEcnyopzkAVP9Mi3X3tyHVL 9yaEhM1vzaK+vRs7gqyOWjEm2lkd5ZzWAYPWxTF5YNF4YVN5ace9SOcGaDs3 kWidJf35oVJxXOogcSV2gghCrwtKz+GaDX6xudX2htYJWwBOmx812mLl89n/ BQFtC4LeLhhprsyeVlhZsewhFlUqcieH1DCyjPET1+gbjyFFXZUeuEI2vIXM yB1kx+6hYfIhWufeRNfy2+hffwdd6++hY9+PMbbvc8yvPcXMocf46NTv8Mnp 3+KzM3+Hz8/8mq9/i0+2foFnZ77Eu2e+wNMzH+PpFl3x1gO+v0lGPFEhwn9d uTfgq598hf2Th3B4+jROzFzGhdlXcXP2Ddydu4+3Fh/ivbU30dO2hanmW5jr fAOLgw+k8U33XJVeF8euS69rs1extnBFer++ch4rezdxdOYSNg+/iuTASTgG T6J5ZRMDR45S304iyQXRxbrhSnYhECMIM0VKDAKySHKjzPA1xEkgAdjou9QJ Sox4GhYvZYbGKDYze4G+1ocUzDqKO/KHmvyhciXRubyObnJIN5Vaz8I+8kcc dSzDYgefevKHXPDHHiNtow97lO0SJxrERWt5lutL7jCV1ZPFTU50lTFayPQh XmDupNvhy7Yj4C9ioXMUuZUL6GV5Gdm6iPDIPtrDLokPTXTP4qz0YLAJPvEY mnTKCC1C5WhnezGGaqpFE4dj0AuZYYTVyqERm3ohNyqSw6BzQutOo3F0Dv3L hzDAiLYNoZ7YldHCKCgt1AphZfg7ZJQogj9qySmqOHbu7pI4US3PSZfRNEra WV0JKVoS8ccZaaedakbQ14xCthvJxm74cq0U1newdI1x/Y50JJOJClCT6SB/ 9BK0XZQdVLvxTta0NoTizK8Wyqhm1rb2HOqbqWZtDs4j+8QcK3OHlXlmY57Z pT1ppF2MVHboHEkmytDKcfwTxNvHqWxptVTkHf6/RuxloxYyxSZtAGZWW2AU XKqwY7eshJqdHNPOlJRg5WSb4HoxwWwlRFytlFA9CLDPXvKElxzRMrOGuYu3 yYuCP1rIia0w5hkcm5lhJF840rTSkUbpjll/vgPRHA1KaxHK7i5Ui7rFsah1 gjsc0OnE8/9umLXkDMEdGh/sDPG+bWw/RldPI9k5Sw71cy4C/BmGXtSIAIxG P8xGfq/YTok1w6wrc6KJ0lepK9dgceuNRl2+9Jnws1/kd3uwbCFd5Dd3kjY+ 3Yy9TOiprZscUxc5sXzqj8SL0rq1wkL5p2/ohC3fjXCK7oQ/42tsZy1rQy1r Wq0j9I0xUeLpfOwHeY1cZ2PYNSE4dCH4Ix0YWTmHtHjSUB3mXEQ5HoYhxlob g8EUZQ2MEMMRWmQffKYIInQ6dgd/l8UlzUO9hk7C2AEz80tvLsHgoH7wNMMi 6lG4GQ5qG2eCtWxwHqPHLiPRc5TEeA6p/mtID91GmtIwM/4ADdOP0LL4FjrX 3kHfwScYPvoUY8ffxdjJn6PvyE9wdfYLfDz2BB+t/xSfnf0dPj9Lcjz3a3xy 7m/x7NzP8e7Zn+Hp+c/w9ML7eHrxLb6nTd46/Xuk+Be4fPwiDk+ewLGpSzg9 cxtXZu/j9uxbeLD0GE9IvR8efBfLAzcw1f46FnofYXn0HaxOvlMmxNFXsbz3 dpkUl25h31r57Jt905exeeoujp68xq9tYu7QBay9fhcNx69hna8mGhM1xb+D 1cwREU+PdiLI1Q5HcrTJNColsgeVh4PsUdtQhCnMGTebyYNmGicTrEaXxIlG tfkFpo0Z/z1Meid0tGeJziEMrB3E4OpBxDvokJmcMnGdR2kkgYitzChYSCD6 OjNk9RHsrummU26USFGra5QWTGtuKufav0IyR4eYaJf40MO1S9J+NLT2IkRs rdy6g1URr95hfhGDxXbo8z2wkg/9wZJkBXzpLkRSRfipf32CO9rIHW3t0PgD xIsFJiO5T2zLS+4wih2XtBXu0Irdz/hq8iHdNfECRtaPYQ8nTFwZtBGWLAUa W8XhlHcpMlPGWIQUo9PZXV9CfXVBum3EVF9AxN6BQLibVaUsFW32IlJ0Vdli D4KFdokOfTT3bfNrpMXbaJjbL9GGSC1x4Je52AZDoQOWHOkmxe+PNsKW60Qs XUA4n4JisB/yYAQWq0UyxoISxfZ4Rp2Lae/mcDwcjhd20oiD6Sd26Rnddwpj 66ekZ9rUOi9T00tD7yV1eEkdHlIHf05sq0XZaTNQKlJu1stDqKkmcPQdYtO5 8ir9Q9i5cOkoM5+z7ZRYo5VFloyYFR/ytL6A2Qs38eckjGYSRgsMEiG2wkwh b20iiXCEhgYWBZKhN90kHZtl7h2CIpbnTIvd98SGfy6JOMTlZjNJzqoNwaYV pBGG08AwhZDrmMb4/vNIN4+RNMLQGiIsslHozFEYSBpic0CrLQS7ncJK+1xQ OV0hWtc8XlENVDjehiDtsYk12eKjzhN1iELKlaAGJve5MiVMbl7D3tPXoCOH a1OsReQ7HUerz5Pz6bvMJfJNC/mmrVk6ttjbSJ7nYsnaB6HwMcuoE4xiGyxO ul7st0LuM2uZZZooFykmbXPlNMa5oGmKsMvIdq9xGuhrDEloTfRq5hT0lhSM 9hQ5MU7tG6fvY92njxNngxuIW6fejbSHtUBsVK9nWmkbmVrkRHsJRvKhOVCC VWytEGOuJLiC/bMYPnIBsc5DEh8mBygYyYepkbtITz5Agda4eeUddOx/gt7D 72Lo+HuY2PwxZigCVzY+x8ON/wv3jv7f+GT1K3w+8xifnycnXvgNPj7/Kzy7 8DfkwK/w9PKP8fTKh3h6lZb58uvkxK1tu1y+NWYVX33xMxwcO4Sjk+dxfOoW zk7fw/WZt3Fn4V28ue9DvHvoI3x87BOcnXmEyc67WBp4jNWJ97B/7gPMj7wu LeDK7B3pdWHhJlZmbkrvN84/wvrRK1g/ch7rh85gZd8JrL52B2uMkc0tWIhE SxMppNgJc64PAdKOL0wrxmWPJfIIZ5Jwkj7quLSaFC0k6cNmtcJptRGRwrYI HqBtYd5ZWbbttDZ2ll27lWWq2IXRA8cwduAoyw/tnE6UeGF5hGQhDdEumBli szWjyokq8kdNdTtUCvEpcpG/u2zH4rEeeGIV+xwWkqoJxcZeJFu64Wc2/b9s vfdzZFme3XdiliJFkcslGdxdLofUUvpBoQhRf8B093TPtCsH731aIGEy4RIm gTRIeO+990DCJZDw3vtCoVCFckB539VdPW2HEQpRIZ37MqumZ8SKuJEJoIB3 77vf7+d7zsv37lWnm1A+Pov2tS2UjE6QHWaJHcHEZSjH5isuzCVQOortfxMt iE7OJEMYUmYTLiWIR9fFeoiUQv7OBegk6SF4Ia2tS3aQDxHkg1g6LYhhXNln R1XfGDyCaFn8FfAhN8SV/YBA/l4g2REk1sgMRVhACH83GJ5+tJpf0G5dToPa ddFQPGIcFO6UwvrkPFqpbCgSCQ+JiWy0+pamDjQtriG9sYNcNEr0CJDGxuJF 6RFuJEkyaVMpP2KShPxg0bLmwYMFLZBz40fp6+0jmCgnQZTSfTEhTLswWqxw P41Ybdq5DusHyK7vR3XfJLwjkqQlOHwJFl/i0j+YGRoSRYCoCRCqsDCFtMqx gn82murGMyANn7kXOq8KXEmVhhMTRzVFlR4WI2wYyUF6yAlBhdgXMCUTddPL qJ9ZdtHDCD8BR5aBQE5jcKYJISRIGAkSaDJL+3BF81S4MzwvylifveVQXGHl 8lBITjGQIAz2jeU0CXpoOUU6yIPYQrRIzapB9cAikrNqSQAdfIPjfwW/0Hho 6BjjESzTwT8klsOhmFImUgbEIzyEs8cW4CeDh/iYL7CAwotdFGtwy4zSAosh GnYvloJKR0ElbUabgcqxBVTZF5gh4vphJgU9wcPh+opNbAwcCoV7sNkobb4R lp2BIDOrT67YwyFHusE6kAZYxWGoaYaDPTUcVhyHpSPr2Se/BA4rATJCMSQ8 BVW9K9AX9ErrhfgEMXpD9DQFeviF66XFtxThBkQJuFGXhCu00oJWmvA46GIT II+k8FSE41J4Brw80zjV7GcoxycnHNWZCNJkIIRVNjguHbqCJhQPTCGj3o64 /EnoilagK9mCrnwfCbVH0DefIKPzJiyUarm2Oygcvody+yu0DD/F7fE/4u7k H3E+9UdsjPxf2B79f/Bq8Dnu9t7G7Y5t3F14Sxi+xukyHfTqORvBuEIwzk/9 ORhNONk5xkCFHbaqZYzU7GG27hhrTbex13GO632PcGfoKR7an+O54zkqCMb2 kjvoqjlHT/MDNNHkS2Bsce6a2Nd+jBGadUktjmyge3SFbQHdw1PoGhxF3cQC OjY3kdHagSAJjBYmmAXhTLIw1rLgpFzExjPR4unJUsROWmm4nJTK2sKEDwlD eKgMslA5wRVGsMkQQnCE+bMmiboUpOQUikaoaDNQPTjGNgpP+lKfQLGIrgz+ QREIJDzE7TWhbGGBwQj3FwBJJBxzKaw4NW5piFW5Lm2zTgcqndcY9QnZSDbm EYgWJxQJCLV4FqS9B62r60hraiMY+f8NTt8SKnZQ5diCCMgQypAogkcdn8Ia boU7M9IrjKFI7yLSQVpn0JvwEwARS9eKxcZJCBnpIA9hC+XX6mTU2CZRy+YV qGa2RTFtophikdICtSGCHuGEaZgcEWGiUARRXMk4dhP9djEJYqA/S3NKkR3E MjPC4wiQeAEPE+FhgpLZpBTbZhaWo3F+GakNbVRVzDB+P4BDCzIQHgRImInS hQCJsAoZkiVtzOpJkFwJjUWEjwpKD3F1Xk4+iiXfNAj2i0Eo7VY4rZYsMI5D ioMilI1Zk1rSziHNwzsskZkm1jfSwj8sjgQRC0nGSou/hMujmbFKxIRHQ0fT IB6E8vZX4zPPLPhfNiJano0QOSWS3GXHYozSJbcISih5shOKYiPZmskF1E6R IlSDPqxRvvy+L+EXwGkMchEkVBDEmonwnAz4Febhc+pYJWtnxBUZ+5AADaWU ghYyiPQI8Y3naRb0SGTYJUERxhaRiMy8Ro6JFMlpJDmSGL7JtItsYu1ERTJr tJZjSCHIDbQfiZCreW5CFZAHKJEcHQ0/ZQouBGVTbbKfJKOfWBhZrBeh4Thi haxiE1sPMFXKR2ZQMToDT/HsEL/2Ii299RnSDm5+maSqKVPaDDuYYwrN5u9n peCi0YoLTBkfykMl5aHcIxrh3knQ+CZD407b6xFPbU5bE6SnDkmBnOQz5LQQ 9hvIaZyCT3AKqZbGup4ON1+S0Y8SkRY7XCNW1EpFkDyJFicBOqahJi4BQQrO v5rKOlIJf7VYBi4Rnj6keDDpGMHxcWwBURkIjBU7tpkQm9+EApIxvX4Mmjw7 YmmhtSU70FYcQks8JdHEpnfdgqn/Dqy2u6TjA/TbXuDE/iNOJ37EHVrms5kf cU6Z+GDue+xP/1cM5znwYGAGd5YpGVdJxnWScYNk3LjB99t4dLT/52S8gIX+ eQyWT8NWuYmx6iPM159io/UMBz2PccP2HPfGXuKx4yu8nPkai/x+e8mZlFy9 rU/Q1ezc27y56prze47b6Bx2UrLLvo2uCfpqKv1u+ywJaUfTFOXVxhoy2zsQ mGGS6BiS6ZQgMtZphcUkSRG5+KyWZLyYYpYWZ1F5ikVtI6Qb9MI4pYHeMk4d CUJ6RJAcstBohpqGYSlaFOSaJNQNO1A34uDpVzHd1Ew3FkjSI4T0CIsgPSJk iAgP59+k/KQBv+zBqfIuYhhYWNDSKa0yXY7mKRL0OYjU00UzvZTsm4oaQ83+ i302La1taFlepe1sJT4YwulOOoZyXGEcU4SFY8siTigTZRyvZ1Y+Lkfr4eEf i0hPJRTUIr7ESNA7hAQQL0FECLWHPEwLZQSbzLmMY93IHOpH5+AdEsNCTWMW EYfAiFgEEx9hCho5ZRQpKaqFHFp5FLTRPF8hMlzwzYWHG/EntnOIsko3eQUL ARJnlGy5LEngQ3wqZJQe2w0lButn6ZxqmuArtoohGv3SnQiRnBkREpZllDYx jMg2IKAoG7+nJA4QS/W6U9t5cWxER5QH08GTzozSNSyQFoCuSx6ayLlK5Jgo MuQJMFR0o35kGd4ysXINHRnREiBLZDolIEQVT+0o1k/VQqtNgVrD86BSk/5h ULGihfF3fIJz4SUcWigxQAESSAESLJyZVuDDKazEFuRi4+Cq8RlUT8zAK9EE 72Q6uhSBkEwJIQFESNAvEBKWY4CblbhnJb3ipaKcj0cUxxXmSTEVYIDWKwmR FEoSPkIFPlI4nlQoiLX8xjGOaQMpea3wDU8lEtPYtzS4BxKPgakUVoxxCr9w xkGwUqy4HwctY1ZHaxSq5PypGI8ci5e4whjIsYXz/CspAKPYR7HhLZETSjSK Z2rF45KlVB7xlS3wTLKwGeDJ3PHkPHobOTaKRH/iPtAqxsYxmwy4JFPDg5bL k9XYg2gM8tcjilhUuScyr8zQisVi6eojQtMhi2CTpyMjv4OVeRu1QzvwlVmc y/z4pCOCZSksJltaLlegW3yCGak2IjbZAhnnTBYVhzDxjG+UWGwpEv6cQ2WE D/++D9z9TfAMZb4p+HuRZnixualNyOmZRO7AJB3zGCJz2Oio/8p1xSG+9RRJ nTeg7z525ee/weHIdzi2f4cbju9we+o73KVrPpv9Fufzb3F/4RusD97CrcVb uL1GF73xAqdbxOI2sbhFwbixgzePHvw5Fv8Vegr6MVi6CFvFLsarTrDQeBeb nQ9x2P8MN0de4WziDR5Pv8Wr+T/gm6XvUJ13A111z95dF+nrfIRe+yO09b3r 5QY6xw/Q6dhF1+QWOidX0eWYJx0npAf1W9eWoS4olnZEEmQMNjoFSASJKOgh t2ZIWyleMOfiMgt+gLiOTYkfxdmL8VQ7PxcjQcJIjgiKDnm4oAabnPSkfFep xOqXiWggiZtocn0pMvwjYphpnH0Kj1AlSaqKhFylglypkDRbLMkRzIi+HJhP XUU6euoR5peOeG02IhNJkV+ID4VLVKmk3YczYWrroulcQkp9M/xJFX9BD44t 2OikR3iWU1jJaGMCCrNxgSb7Sx5LTUcWQmqE+SUjzjMWKg/SI0CHcJJDRvEk hIeSdFAp2JQJUKnj0TC+hKaJJQqIeI4nAQEkRyCzKoQ/C4+kdQmLgZqk1LJI R0ZTDChlpFAQfEml4JBiVoMsJz0YhSLDJPERT3GUmOm8xTBV3IpnQHRBOWqm ZpBU00Jbxkzi931JD3+ON1DsLCM2JbQKayaaoIeVTlgBrwCxHmwcVD46jocE 89ZDK0QILVl4sJ7j0kMekQKlgk2lh1KtR2HHJBrta0grbJYEVQB/FqhKkdYK DqII00RnIIr+QR5DikZrpS0f4pQxSIijjlYE4yLtmNDC3kG0j6xk/ir2kdkZ TEsXGp+BMLHfo15srFiK8rEpVIxPwYME9yQVvUgPLwPJ6KJHAOcqSIjgbEER IzxUYmOIQNJDSZGnIX2TWXEyEEsiKr3TEBmShQR/Ui6IVFRQ/KkYu2oDK9cO c0HcghtLq0hChaZLt/jLI7MZRxS3JFuYsI0KPdSqNGhpfyPj+Tc19AUq+p0o JQIi1bhMWnn4kuAhRp4PkpHEDyDxA7Vic3bSq7AJhYNTKCIVDW19cE/KgkeK Be6MUXdDJkU8Y5kx6Mv58rNyzOJKgc8XJFooxxVOMqpJthh40zZ7+oj9UcyI 8+U4WGUU4blI5LmNCTNAxnNaO7SH2uE91I3uQ63Mo9DkfEbl81xnwz/KIlE7 QNzimpQPeQLVgJa/p2WV0CUjIpqVO4pkjKbHiY2HXOYHXcDnSAj+nKpGiSth 2bgUYZG2b/RPLoGl24GsfjabAyrzCFS501AWLkBZtgpl9bpEGY3r4t1a3zfY sn0jvT8af4vrjm9wc+ob3J75Bnfmvsa9+Te4t/AVzpZf4d7aC9zefE4iPsHp zkOc7t5lu47Tze3/7ZdQ/H/Rmz8EW8kqbGWHmKi+hcWW+9jqfoKrtpc4HXuD 88lv8WTuO7xa/AFvV3/E3YmvUWU+RXPRA/T2vUZn3wO0kN2t/SdoHb6Odvs1 dDiuomNqHx3T22zrbIsk5CSKemxoXl6AV7KgByPYZV8keki2jJmZLbYCTZek /iUZs5+aSk3ronaPhoryO94ngXVN2A7Sg+RQyAU1khhdiVBHJiIyKkFak7V5 cgktU4vwJS0DlDo6YtoekiM8SguZhrMkVvCmO43X6qCJjSR9QqR1PDzdTdCE ZvFv0KLRQQdpnFeEw6k7ZLRewpIp2HdFhnMj6MyWdtTPzUFf1wxf0sPPNa7A 97bsT5rKI9uKKwlpCKJl8gvSSkSMEfTwTESUuAnNh/0PoJ6SCd0hyJECVaTQ SHr2JxlNk2sc1xozLYljoiUjVYKi+EpqBgXHI05ngCaRvxfL+kxNJQuRI0Ed yTEq4c4a7uFJCnCMvjInPYKYYSHUVKEJzFJSIlxscJ6WCX1NM6ocU8jq7qf2 oGbh972pPXxctizA4qSHIGNwFv+mLo5uPlzaFsiLmeblGy8tTh/ry3H4pkHJ 85kUnIYY9kGhNJCGpFRUOimQRspvocmxjfTido4pHQFqEiQsldZZPCWdJS2N GSGe9o+i3WQlSEhKg4bHU0fTrisDWR1C4eemgwd1sDez2JdW2j+SfRQ7p5Me 0obGiWboSptQMkpdZZ9CXGUTPKj7xU7SHhzXn9GDldmX+l6n8YBbQCDcxCfj 3pHOT15po31J+cAAI9TiJmPaR3mYlZTOQQKPG8l4ic+oIA/30TjONrGPIM6t KozVRpuPoDgrgmLNJB7jKsJAPUUPkio+H+J5IRVV8TrOnZq6SsG5UdGW+yDK zxdX/KzwCCPVFBbaTGqqaCvc+Zpa14c8aqq8oUnkjzpwQexQk5yFK+nUuOKy hikHbuYceFhy4JecSA3/GeRsbgHhpKIC+Ixg1LBpOW2J8CHo/MXG80GUsmF5 iA/mkDh1CREmFAclw8efRfUDWpCPo9BAgMmi+WdV7JqcFiiEw4gukG6EC9FZ WJBMzpQRK0KKkExMZPFluMZEwydax2HIEOP9O8T4svl8jBivjxDoHwb34DjE lvbB0OFARi/bgAPaajut5CRk1gVEFKzCXLQlQXC04bH0utT7mnLwtfT+wP4V jmhtr0+9xs2Z19KHLLcXXuL2MoG49oxQfIJb248Iwwc43aNc3LsjgfH+jZv4 SzLmjsFWuE46XsNE7R065YfY6n2Oq8Nf4ZT8PZ/+Dk/mf8Sr5Z/xeOQrHJTe xULHS7Q0v0Rfzxv09D1HU+ctNPeLZ+tJyPHraHOIbRcO0Dazg/ZZsbbsEuk4 hYKeATTMzyC5vp76gy6AdBHuRWwUKggiXdih0vfl11fEI3CsJSFh4gq8DjLW ZK0PayqzLTLcBH1wMmLpyJQqaq9INg2/H80WS4rEJqN1do1tVXrsICgyifUq ifUqSSJkhEyHOGZbbBKJGqtxZll4GNTiodvwUoQGkQT+1CyM3gBmWXBsprR2 brhwZHRe4v5KsW14RKYJaQ3NqJ2ZRk7/ADVIGnz4M1+Oy3lhh3TMcmkrEuQy fxYoUyFQ7B1E9+/jI+71IvnolHTeSVBQF+jkFiRGpCGKmlIVZWDf2GLTmTUm tMxsoZUtylBM10LCkizeoXQ/UXTH4vGLBGeGhVEzR3Gc8XrqLV0kz00oZMpg BF6MpP4Qm1ZRfwiCUDMGcmzSeiNJGdKTNgH6LDqyJpRNTKF8coqanU4nNfNP BOG4/Dguf4vzNSHaB/4xYuHyCLh7KlwEiYefbxL8/FlJQq1I4PnUhJgQq85F Ms9plDoDqhj+rqmcpN9D8/QeivsWqPcM0v1RKl0ez7VVcsIB0WkIo4aMo9uP pRZXxLPyCTJqo/g3Iui2xT4YnqyWPnBj6koEUdKZaczwjWOLZ+qSRulNfSgY dqBwbBJpHX24qDPhSprVSZBMukKzVSJIQGoSEsM+RbDfRVzxD5fG5OEtLorp OLYk+PqkSNuR+gVyXiPyEKvIlR4DUqnykEG3nEJNGBxiheyTKJgualFvKKRb zuI4suClNjOmTFDG5SEyPZ+oMEouXyZuTUsiPpI4tqQ4xqkKvqzeslBvOtrP oQv8jP5IiUs8l5flWbioEPfgUFd1OXWVlbrKOuKgnmrEZxzzF6TjFyn0JSSk uzaB8eyBSBJRfelDRLl9zHHJpE1m8F/g4SU2I4gnGZOlW3b9/AzSc+7BTLFQ RZ50e2sGzb/8cjK++CAR0Z8ZkEfJXM+incpT7EW5HBwqClgJghLyEBjP4Sdw 6ijJw1xrd0pPOun1CNenMn1S4KtLgqdGDrXbb2mbfotIz48Q5fUhIr0/hEnn h/3tXuzv9mJqdYAIGUbb3BBq8gbRFD/hdKR/i97KM4w0PZG+mut5jpWB59L7 3bEXOJh4gaPJ5ziefo6TuWe4sfgUN1af4MbGI9zYfoCT3fu4uX+OmwdnfL2L 451r+OG77/4SjD3WcdjyNwnGY4zX3cNC+2Ns9r/E1ZGvcdMhbPr3OKKn3qt4 gIfjf8SLq/8NP+39VwzWP0RH6yv0DnyN5u5zNPbdRuMwpaT9Blocx5RrV5nI e2iZ3SSgllE+NIHszl7Uzk0hqb4BnnpChADxNRKOZuelHfG5WaglDRf14qY+ ApGSLjgsFqFh8c6dUzgLKgZ+YrC464TlOdIKfUQqogmJSBqTSIp3YbpUqTlo m99E+8Imoo1FLL+cvZhU+NCgqjQGxKTQBCcRoPHxCONxVLIoJCWyVsUrEKGM oGGywt8vFZ6UOb7iqrBGyA/2jzUwLFk8K0VzRmkYbLDCSllVOTWFqpkpuNGQ eqURqhlOc+ZPGRKQJcbG4E/XSgDxD1YSjNHOG9oohf38kqTtOEIoPbSyLGnn To3SimSNFUkqAkXAUWdEVk03Wuf2GCW7MFR2wjssHcE0jsrkXOfqsWLRlRia 06gUAjETsWmUm/GU2rooqONoqDURUDM5lJcvMzGYMC6AeGss8NXSCCVkUVZY 4UUTVEj5UWR3oHjCgZiqRlxOojkzZMGNAHE3WeBhsiKQAInVeBMIHvBSRhEg Mkl/eHmLZ/I4JhawgED2MYTni9kVTXAkcmzqyDwkacTTnXrkFbUiIbMRFlMj 8plZOdQakYm5lFViFTKLJP3kzL6YtGwoxXO5SamEB4tjklg4OAbqBBXCNDLI /N2hdf8EOt9PJYBcDs/BFRWBF5mFy2J10fQSZBMgOQRIDseWw7H5mkrwmc6M L1kIvki1SgCJCPNEpM8nzNTfIizQG2407W6eatIjTtpHxNNbLz3t5E95L7am DKFuClTSHGuKoOe5TKLU/eijOAT+LgXpHhmokKWjKTqBhUncSJ/G2LJCoS9G qD5XWk5UepZa/+5Z6jTqrWQoU3QI5ZwFJtC0E/iaK79FlDubx0fQkCAyXzce PwwxJb0wtFNT9TiQybFlcmyZhKO7oQQfR5vZ9zAWXjeEXObveHyKKM8LUF78 kDT6BFeCVLjioRYr2bl5cmheiRxaivO+XfFxOIcmnmUIUWQhVE3IaSrxm9+k w+33RVT+VSiLr0anqQzdVNe5+iJKwiL4kfX+8WwJOQhKynY+Lq53PgYawZSQ pacwbVjjxCcKBnHvKGub96eQu38EOYel8PwQBq0f1tZ7sL7FtsO2x3bQg7XD bkxPdKEh1oEuo+sz3spzDDY8cF50/Bus2B5jY/QxtscfY8/xGAczj3B1/hGu LT/AtfX7uLZ1jqPdMxztneGYQLx+cA/X9m/j+dOXrpsVXUD8b1R9OxjMEUC8 DnvdGYH4BBv9r3A4+g1WW84wnuHAfuPXeLz5f+PV3h/x3c5P+HHvZ/x88DM2 hl6gseUZuoe/Rl33XdTbbqNh9JTe4QRNU9fQNLOPptltVNoXkN9vR9HIGCpn JmHp74cbfbQHz5QX1YevScBDtAyeQYJPQwWljKWaEnsU6iR/6OerRWCQHiHh aVQ9WdBG5iCZARetyYE+Lht6TQaiYzMQSc+X3dAlLaDVsbQDU00nfMROCooM qFOyWbKciRUaR/8dmYD4xFTEpScjUigqgkMdHUSl5skk0+GKD9URI8NHzb7R b4oH+gNZ3cUdzgFMIp9kE0rHJ1E6OYmy6UmEZJdQ4Zrgzln3MApVZaI3MyM4 NZ7+yhN+0THwC46UrlK5ewqlmAi/gBQEBhMc4fRVVImKqHwkRuUgXmVGbHQu 0mPMSFMkIrfahhRLI3KsjahMLUNKTDoVRi6CqSDFyop+SqpLJnhcZpa03Kky mZ4sSUdwREMdr6SHkyNe7g7dxd9AR3iE+ilwSQIHfVY0ARlD78VjBWUWS+DI JThyCY6Ujl58zr/7OUH5ZWoWPBP4d9U+iAv5FHGBv0NwgBtNVCzcPFSERqx0 s4YXzZiPvzBjHFOYUXpGPFw8J0lwiIfx9AqDtPVuuHsyQj/VIpMeuDQoDlky Fr5YK/zoD30Jm0gaMoWBwJeWRhbXL4TkoKLS0yHoxfLRkQjTKqGOCIDW8zNE Ex7RhIeG8AgQW0MHi51BeU4q+pBJcBhpyEwcm4ngiGvtxccaFzi8neAIp3SR uX3EcXkiwPMSroRqCI4oUkNLalDeeKfCm1LKj1IqIJznisQIYVEOixZXC/Nh SGnGxx8zxrzKYdVUo8lQif7cQnRn5iEhIZeEKKafz0UgvXOwXtxhTSimmJ3P gaZxbOl6KNIT6PupFsXKmOpQaFjEVOyXimNSkRwqSqrMOD/sbfRKkuqAkupg n+2QX1/twfAQ6fT738D/8w8QfPn3UIiduwP8+PsXIL/woZMg/8hhaTks51I0 4p+4MOsntgOV0+azlmjS6lAzfIjffFQEN58WJGm7UWbtRWdlB7qqy1A3sQ+1 qQF+FPV+VIjiAZsA1uYgplgIUyM0ncMyUEOkpXIo4lJZnnQjZVii2GYwQe6H /4yowAsozkrG+cMTOJa7MLnahan1LuzdmMOD5ye4/+y6BKnX59+jK+0qunOd N7n01JxhsMn5se9UzznmBu5jefg+1sbuY3PyPnZmz7G7eI691TOeJrZtNtJw f/8MBwfi9S5unj74338Jwj2crNzHQBZBWHwdYwThHEG4TmW4P/oVTIpJTJcs YGfoGC/W/4A3W9/h253v8f3+9/jx4Af8dPUHnC1/jZKae6jpeICKrlPUDt9C HdVh3eQxqib2UGBbQU7fNLL77MgZHEHplAOl0w5cZPJeSjLiCsuEh5EqJZMB G+WDeMVl+Gli4K8Qd3RpmVDxVBkJBEYyqzGBIaPSUDK51FlQxBYgKS6Xts0C nTaXpcWEdFU8KsaWYMhpQD5bh7UOidoMJlEOq7GRlZhKVK2HhkpPS8srrduc rIU6icBIUNKOhSCR0MoJ+Rgq71Bc9DPjckQ23NQ58IzJhpcuG94sfZ4JFsSW N6JgzIGCcVoxhwPp3b34MpHASDLjElWjr1j3PdIXSbLPoVR4U0HFwN0/mhCM hoenjgpKT4uYTtUgLi4ZEao0IyIqCxExubS6VBscW4oiFQp5Jr74PAZRF3TI 8dGhMiwGKVS8wTpxG7hR2i44KqOA0LBAnup8XFIpHpdMoQVzAUNGFRVPFZfo /iFSgz0R44KGBIwQJzA+p4rS1vTCRKVhJjDMtJhmAjG8pBHugeIxkysIuSSA wXLO31XS7wQFeMBXnYorYqWGd8DwITDEumkhRmlD+BCleHzGinCev1BKCLW2 EMpgWrpPTYjzyUdxVCHa0nLRa0zn91OhpbJRUOEE66208VnSqgXhYm1asRpD WhpbMhRpOo4xmj4tFpHqYKTJ/KHzv0jl85EEDTWlhsrzAxhd0DjY6sUhoXGV 0LhKaBwSGqPDRfD/7AP4f/khAqia5F4XERPoB22wH0IJESc1xAXFZLjTT3oF OO/x9KeCF4owmAUrhHMVY6pHrGUYH39ZC7myA9bMHjSVdqO/vgmDA30o7F2A P4kRQFr4kxaBjMXgVBIjjb4yndKJTkKWQT9pSOTPkxBkEJdJFIwb9iXUAyqf 3yPC40MWPz8sLXdjda0b65uUTdtsu5RO+91YO+D3D0mS6XaEX74CpbcPlL6+ UPv7QeF+AeFffgDZxd9K/b8cIDZrdD5d7eaVBg9/57h8I+gOFNmITK1FlW1f ImFU+gQ+j+iDJmMUueVjqGsZRC0LSv3kIdsB1NZm+JKEvsmkYUouBQKlYbpV ut0u1Cju5cqAXwbHbubP+LVcq6ID4rhkvqgutOCfCw45T/Q/QUf+PXRUnKGr /gwDLWdOg/wvMTNEgWY/w/LUGVbnzrC2dIb1NTZSbp2U2yDlNqn5NoTuO33s 2tHhH9//Zefyn3/jvDnGuIXBwmMM197FdPsjrNL17o6+wFzvQyz038aD5Td4 tvYNXm+9xTc7b/Ht/rf47uBb0vuHq9/iCb4/+haL40+RV38KY80ujI1bMLau w9S5ClPPAsw90zB0jCHPxYV8ciGS7urzeDM+E48dycIR7fc7iq3PmddOJniF 6+DhEwdPcs7Ll+KIjjSAwihYTpGjJhM0WZBTIMh05EJSMdLFxh2qZCQyn65c iEW8mxYFgXGokmmQYi5ECBnkK+7+pCOJZhFWkq1KViQl80ZFUaZKcTJBlRiO eLUXssM+QZrPR0imVA/yioBHYDwuqrJwice9SLFwMdaMLM65dciBbIqIbI4t m2Pzpru6oKTjpQOJuEJ5Tyao6aqC/NxxJTwGHsEJ5EGCxAQvOm1fCiP/MNoO sXgO+R1OARERlyM91RieUAQtGR7Nauxz0Yr0sAJUJxSg22hFlykZOqUBcUk5 kJNzoWn83TSeF1ZY8ZGwPJ2MTEtyMUEjrdISoxSLl3+IdHIhmTkUw7GpyD6V h+DCb1Cbr8M+bcghuXC0w7bXi2sHfCUX9Go/BHwhmPARglzOKoack4WFwyM8 Hlf8tFQS8eRdMjzoFL0CKeZDxT2BWQiilQqhOA8ju8M5X3HWesSZBnHJrRoJ mmaUmVrRXdoEW0055kcnEZffhMAkJxOCJCaIBfOdY4swUOwaUiA3JEhXFgLI OlVkCFKYP3pqiWS5L6IDLiDC/QOywRdLS2TAKtmw0YMNsmGTbNjY49dkwxrZ 0DNYQH5/CaWPL1R+voiiQIoJ8oOMbLjo71wz+TLn6rJHCtWPQVqmVOIC1ZG/ eJxEk4uozLr3C+n7xtjYJxvSC8ZQ0TSCxs4uNIv1MecOUNg3R5aRr3oyL5Xj E88ksCaKG81CaRLCTRTKNEI+ej0CMwys5QrEi49eOS4d2VBVaMbd8+u49+AE 54+oip6wPT35FeXRCf5PnLtEkmh3b56iyGiG3NsXCiIv3O1LBH/xAUIvfCR1 /1JgIi4FOBdbuOydjisujHsSd4rUBlQM7KLStofqYSJvbB+aghl4muyIqrAj r3eRmNtn22PbRe3kDnJ65qGktPBJLYAvh+WfkU205cCb2PNMy4avMRd+lhzJ 34XHqaCJ8MX0+JBr+dF/i5cPfkST8QaaC8/QXHmG9sYz9LafwdZ7hjGizkHU TRN1s0TdHFE3T0E3R9TNbxGDO2xE3v2nX7v2kvpfpZdWaUTvzoj0A/6bb75J JX4MW9UdOFrvY6n3EbZHnuDI8Qynsy9wvvQKj9de48XmV3i98wZf773B24Ov 8e3h1/jDVdHe4JvDN3h98BUOFh5hcPAYqXUbSG1eRVrbAlJbp6FvG5PEgoVi wUI41E2N0VlS/jKBwigW5ASDimAI9CUUQimAZHpc8dLBj9JbfC7hG2Jw3o6v tNBVZEkiQaZlotMxKFgsFSn50NFFyBiQYR7ZyFIXoDE1D31ZJrSZmPAKPbQp VigotcNZTGWU33JDurSkm3MFFq0EBXmyEroob2SFf4JEOook39/DwGCL9fo9 1ASDDwWOD12RITcH3RPD6J0aRt/sMPrn2RaGcfNqLwJ//wGCKBaCOa4wjkvG cfn5iHHFUQRx9n1SpB2QPf3T+bfEzbR0zBQ/wVEUPrGEHAEn1hKQsVgmFrfh E/dCBATVwZjcivq8VgxU12OwrgADg0MUPnmSrQhOo62gsAsXy3hnZBIKaRyj nmOMJ/ii6aYIc7kHneCHfwYGbagbHdCXSNb4YnGxGysrBAGBt7nVg60dtj2+ 33fCQSeAd/H3CKVb0rigoA32h3uIDleCkjhfybjiybERdp6ct3eLqgdQAAVR AIVo8xCT1YDG6avIaVnGF8EdiE0fRGHpEFpbBtDV2Yy2pavSAv7RefUIoFAI THMKhRCOLTTDhLDMDIQbU9n0CObc+SREQx4ZjESOSRinBI4pXi5EgxnfvH2N e/dPcEYLdf+xEw4P3sHhX+Lt96/fg0Hm6QM5eaf080MkhxZKMHzp41xp65K/ 2KU33bliyX9kyaSdKLFJe4XUju9Ju+s0MPeD86YQXjQKc+ckah1raJrdJ+L2 0Di7h4aZHUTmN8IvrQB+hhyywIpA2pkgM2eer16pmfBKSYZfZhpiI3hm2aKd PPhrqY//HOOc7AgfH4R6usGPajSQASb+femrxQX/NFwKsrhO+K8RrK1CZvUU Snu2UNG/TWztILN2GYlFs4i2OBCVNIui7Cmk5DiQxmapmEdR6xJK+tZR7dhE 5cQGzN2TSGgYwJXUElxOLcKVtDxcEegy0tlYsqGuriCChvCvXarpcONr1Jbc Qx3dYWPrGTp6zlhJKNDGzjDkOMPIDLG1cIbRZb4SVfZ1qrHrz/D1H37G//FL Rv3Ve0Y5784T/0LQbbqG/rI7GCMF57rPsW57gP3xR7g+/QR3Fp7h/spzPN54 gefbL/Fq9yVe77/Cm4NX+FpqL/n+JV7uv8DT/ed4uP+EhvY6NqeWMTw8japO FqWhQUzPD+Dadi+OaQBOaAAcg8UI+PRDBF748P0VEF9vd1wKjoEnzZYvDZ9f SBbzOE26J81PxtkUa4hoXHkcLy7HM4+Zo3IWN7EZ1+8uF0KhaEReZitaS5sx VF+DgbpsDIwMIiSdOZKe5XzQi6YzIlOskUIjk5Es5bGCeRyRGoW4aG+YIz5B vNeHzOcPkMp417PpmMtK70+gZy6vMpc3V3qww1zeYy7vM5f3mcv7Bz0YsRXB lyHkx3EFCKNG4aKhcPGMSH1346a7v+H91Q9nVPkgmJ4sND4PYRxSXG49mheu QpszAa+oHqRlD6GqbghdXb1o6GhCx+ohyobnEJRW+KeaTq0flkFvnWlgS+Hw EpnSyURXLMLD3RDj9YHkZRKZxiKFdTIf1neTFArffPv6z2o80xgPnp1Imfyu yEvF/Rc5HE08XQ7UMn8TcZma8pJPOi77OR+d8RK3EdKbiX8BRFMU/Ukdk7hx WlyUPaAWGWZyjiKtdhyFXUNomV0jmg7QuriPlsU9RBW0SU/yBjCZAzM45dQr wSZqabMBQSYTi74eXkkaRAdekHxMHFss9UpFgfmvXfv0jduY0NQhMlqv4Iu/ g8cVL6k7F/zScJHJLKEn3PnUT7ihFabGGVQObaN6dBvG5jUkViwiOtsBXa4D KQnLMBc6YMh3ID1/EqWdy6gY2kD9zBbqpjdh7ZmCvKAFHuml8MwohochD+7p FjYD3FIpuzNSoArzxaR96N12mXdunaLcoCFQfaQu/N4zGp/6ONcjVaU2Q184 LL0v6liFld3R5c1CnTEOjXEccZYJJFknqMSnUZg1BUvuBLLzxpGTN/4r5PHN v0Be+Qxxs4TyqRWUzyyhbHYBZXOzbJN8P4b6zXV0XL+NmXvnrg2w/gV2d9/C NvEM5W1nqKEKaqQKaiFe2ibZiJf22Xu48fAtXn/7R9eWGfjP4uVXzih27qHx S7iI15nGe+jOv42BWkoqyqul/jNsjd7H4eQDnMw9xJ2lxzhfe4JHm0/wdPsp nu8+xYu9p3i553x9vsfv7z/Gw4NHODt4iNP9M1zbPcHq/CL5OICFBaptFtUN qu0tJuIOE3GHiWgbKILPZx/Cl/JTJKHS5yJdQyq8Fdb3VxS8wsRNC1nvMzGY wiA0kRlIYRBOcaMr75RWww+M7+b3+2ApHkJDiw29vV3oGu5A98YBKuwz7522 UNVhmZSbmenMPj1bAsIztAhJ1SImxgvJQR8jzvtDZuJvkMQMTPiLLDxjMd09 nMPMUhcW1rqxtMG2zbbDr9k2N2YRSOegcF1R0AT6wSM0BV4yVzgzA6/4Z8A9 1LkIjI/amYGBHFcQYRld2I6GObHSP7OM2RaSbYeqyC5tmFTcN4DW+RWS5QDt q/toW95DdHEjM9DqykDxGGkGQk2pzERmoTEF3szAKK+PoCZZnFnoy/Lqw7Jq c8nsf+ZMQ1JDzv6qSA2f4FhW/njWVLHq0CXi/R+lPrqRGJ5RedJ7a8ccqu07 qHOIteR2kdW+iuzOFcTkzqKt/iaKe1ZQwlbUvUpi7JAYO2ia30bB4CxUhU3w M1IGmIT8L4BPplW6gdcjJRFuiZFQ0qlFhfuirMCCe3dOXfX1n1HyD6G9mnX4 i8+lPnzqrcdn/mKTqBa8uwIijlcmbYi+BLXJAU3WOLTZ40hm/qXnTyAtYQGF RQ7kFE4gv5C5WFAocjGHPypg+a+eXkXlzDLK5xZhHBxGbFMr4prqEdtYgfjW Ohy/fPV+g8e7G+O4Ot4sHbiqrBnmvG7nqamYQE7djPQ+pWyeZptTmG6HJtMO rZldsYwj3TqOhCRSKmtaokFhPqc3347SAtHGUFY4hpJ8+oWKafJgHmXzsyid p5yZH2cbQceNc7Rfv4VXP/50xZnL/4trr6a/cDe/SPy/Q2vGDXSV3ZMujk92 M9FtTHR6qIPpM1yfP8et5fu4t/YA5xsP8WDrIR5ts+2w7T7Agz1+/+A+7h6c 48bBPVzdv43d7WNcP775K5douSuEpqs6/UqqT/9FqlDr67MIdWNhppMWVckt JFWylN6KQqm7V2gAPML+lA/+Ma4HPWlsglk9DS3DaFpiPqww5tcOIC8mVyvH kdtlR36fjfG1LOV51/oeykenEFNShUBRjYzMB6OB+ZBCJ61n7iezEsciVk7x 7v0Ropjnaua5uMIWK5NywpkSf4sCkwUyprCS3fUK0sI9zLmYx8VQCy5HWOGm yIWbzOrsclw+fJOKkdM7x0rDdJjdZfruIpuhmN+7gsTsTYz0H/KUlA2s4N+Q +atM312mr0iLbRQNzUBdXA9/poO/2cqWLd0K4smq5JaghpwaJ4IaJ5IpUZpv llLib1ybNNqZEvlW8QSYCp96aPGZTyq+CDThi3AnVoLSGhFb2Ce9rxjZQH7P KpLKKYEpWnSMeT0rZmzaMEqtK8gqYVqUTCCXTbwW1s+ioGOF41lH7dwaqudW oG3sYmtDSGEJLqamISTPiOwKPXpaCl158U/xw9cvcDjWKB3TnNsDS9EwLFWu m3j+AebGRShZJdWZY9CY7dBl2aHPGUcG08DMNEjTzaK8aALFReMoKx5HebEd FaKVjPH7oyiumULh0BxTYo6pMIPShQm+jqJ0rh81jLRXP/zwvisvbh++rxxz PW0wZ3fyGIPvuhJjnYRcP0rXO4pIwyhiM0eRKCRP1hiM2WNITpxAOTO0iJlZ Ji7d8PBVJaOoLmWrEG0EZSV2WGvZhUVm56J4taNybQ7tzNDp80dw++8Le9F+ kZt/i5f3f0Sz9Q46Ks9ga2F+0jwsDp9hY/wMe8zPo/kznIjVNFbOcHvtDHc2 2Lb4fucMt/bOcINF94htb/8eNndu4drJPXLNSaoCM6OZyecRoINbqNjjuEDq yGVFDq7InZHiEWmFd4zzfSR1Ut7gHOoXtpl4Oyh3bCFvYBVFgyvIq9lDD6O6 YoiqxcbomN5A5/ouOta20bayifSWHnq4HASYs9gsbEb6Oz08EqN+BQUr0T9h QH8Amc8n7/j+r1z7B945PYV9eEh6iPhSkBMHX/D1y4gcXFDn43JMMdO4Sfp+ +eg6qmjRimxr0NfMIk5a8pN4L3UgPn0KNSULyCl3UGMR82x5ZYznxlnUjK0y N9c5shXUzi8gvrGV8dyAkPxcXNTHI9ESjZayWDQWR/2tC6jGrGZExJRCllDD MHb8lavQlDCXE4pnEJU1gRiGbwLDN61gHEaGrZVhW2ChoSwdR0kZw7iMhaac X/xPKGW4lNROo2R4EVXURxXzIpKn2BjBs/0omWrHzmbD371nN/4TzJZuac9m c7kdWXVT0ndFBqnSRxBlHEUcQzbZOgpDDgtG3hhyGaoZuhlUsxsVxWMM1zHU lI+iliFbV8nXqhFU8dXK0lcwyiK0JBoLz8IwSub6cPz6K/yda4Pxg6FGXB1p wVV7OyqL22HO6WdCjyCGqRKRNAR54jBUKcPQGIahyxxBimkEmVmjyGL6pDB9 Ki0UtIVMCWZwTZkdtZUUtjUjqK8fRn3DMBoah1BSwX43jKJkiadrkX3dYSgx fF/99LPbf/8Tir//yzKHFw9/RkPOHbRVn6Gf3nuc6TNHcbzC8rY5dYbd2TMc Mn2OmD7X6LuvMXWOmDoHu/wZ2zrb0tYd7J/cx1+7do68zYAsr+3DhQAzbUiu MyBl2biodi52d0VXDG1lv/S+0rGOmpkNZHUvI7Z4EgmlE0hl4BkrHMjKmUdT xTjyqygyRKuckAKzZmABrcsbaF5aReMSA9ZmQ0JjI0JFMCbH43JkMAI9PkRr eRyaS2PwzdPD9ztdNwxel44bkVgDeVoTEottyGmfY8FZkL6f07OEpIoZxOQR 9AxLsUlwJiPQynBMzXRQz5Kc7FM562gFXyvZKhhfpZyjgnr+bHQBNQvzqFqY Qvn8GGNzAMWMzd2dZtw/bMaT03HXJvT/iJWVazBl9cBcYIOlgjFa74xRUxO1 nnkCkaZRRDM+ExifaRQ1JoqcbGraApEL5jmU85hVPHYNWy1joY4xUsv4rGYr EMWocxrli9NOvC6MSDHavtCKp3cmXHH6P+PFras4HGpBZUEHKT8AMzGdxphT EOsK/RBzZRjRmcNIMI8Q7yMw5ozSj42hgH0xMlfqOF/VPH5dpR0NNWNorBtF U+MImpqG0dg0hNr6ERhKR5A/zj4vsy0MoWzJ/veuU/D89AiHg81MlTZcnehA ZUkPNLQj8vhByNjkiTao2I0YdiORqZNmssNEi5idTWZRB1ZZiYKSSVaUSWm/ 5ob6CR52HE2to2huG0FzB7vQyFNXxVrK7hQxTVpvPMDU+WO4/3KfsX+Nsf5n HMEZupgFQ7SIE8yCWRaRJRaRVRaR9SUWFddngmubIur5c7461u/izqOvnGL7 f2CA3UDj2F1pIjW5A1AYW1zl69cMjiXk9dN7F06SvHYkl7B8i80CGER5DKic 3Gk0cAIqqsW+suOoruJrlQg0Owr5/0p7Z9GwPI9aTmr1Akv77CBKJzvgWGFw XWvH/autONtvxJtfBPz4ovOGDmP+ICzlY9L77Faxlbpz5eQoKhpN9ii0nNQU qmcjwWctZZAxuDIzx1HPgK+uYoBV21HP1lAtQEQgVjPQ2MzFDhRTPFYsOFDm AmH7Qhv704rzwya8eXboCvh/iu/fvERmBqVEzqAUaGbOmKHa4eT13yPKNAyt dQT6XLIwX3B2FPlFFPRCwTDea3ga6qrGOEuMMRFnZF9zwwgaG8lDMjGPOZBZ x5yTeDiE4jn65d0WfPPyKv7etZ37/kAzZttaYczsQ6p5CIpk0YYhT7JBnTaE 2IxhJLMuGKiuLAyyXHKgiNNlSphHA01FbfUkGusdaG6aQAu9ZWv7KFo7R9DS OcRmQ2HdCKd0CHn2YRTN2/D07Vf4965j7/U148DWikPWhCEWUIWqC7KYPkTE DTDgh6BOHkFcKsPCMAGDcRIWC6cpewYG/QyqctbIGp6D2lnUsyA3tc4wuKfQ 0jWJ1p4JtPaNoal7FBYe31RtQ6ljG1P3n8Pjl9uA/jWePf0jRuzPUdd2ho4+ Ip9KaZhBbmeQT8yxMVrGl88wStwPLt3DrUdv8W9damh84RyNQ87ILu7egaVm HNnNk9LXBf1zSKicRDS1cVyB2EpmlNhkJDHi8omGUkZQUd4UWkuHUVfLKKqz o7GWXeZ0NdYymjilVdXDyGpwoGiMWCWuyhlJxRMtuH+9A/ePGVFHLbiz1/jv /lTi/wpFDRsw8VgWZss7dRpltVNdUJVmjyApj9PBMMri/8lnf0rKxmAx8thF M4xigasxhtAoWho5jc2cRramZpZYhlRG2SgK7QynBWco7e6zD8ctuHvY+D6c 1senYDT2E80jSGX2KBg+Ql6oDDZEm4aQmDWM9JwRl7wYRxHLSTmRWZm1wDGT VeRVM3nV2mJHW9so2jpG0EpmCW5VsR+ZVMpZ3cMoXrChbakDd46aXeH0H/Hs xhHDuQUzHR3QxPZCqRtChM7JTHXKCLQGO1KME8i0TMKaPY2CvBmUFM/CrF9G U80iZQTDqGUWLe0zaOuaQnuPA+1942jrH2NjJrdQXtQMwdzcj569xX9wHfaH r15ht68V+8Nt6C+rQ1lmE0LlXQiPsUEWZ0dkogPalCkkp8/CkDnHKF5Abu4i MtIXUFWwg6raJdQ2LaGhbQlNnYtoYeVtY/i0Dc6izTaF+t4ZWBrHYamn4qob 8fzlZtn/I7auvcX+jbcYWX6GisF7qB65h+vnb3GN7eXbP/471yWPF69/fG9g GmcewUQ0ZNUzXtsd7+MkJoc1hfNmoCzLojPJp9QrZQmtJGLK8qfQUTHM2GC9 aOK8NI+inTWlrZUxImw156akzsZSaUPBMCk824v9A8bpiTNWzzhPj25PvC/1 h9ffoLztCJm5ozCSrGnMC7WFMpQlXmO2IT57GKmMVTNzJ5flVyjgckqdbMqA ltI5NDcyxZvH0d5mR0fHKDo62bqG0S4uMHewD402GMpsyB3tZ5x0sh/sw3Ez vn559D5Wv//qJcqyuikzKTuJOiXjVJnKeE2zIdY4gmQL5S+RZ811IL9gktid JnKmiZ5V4nUazS3TaGvneSFyOoiczl72pY/npW8Irb2U2bXMtfJ+NE524971 Vrx5dQRn0Pwap5RDY9W1KDXUQ6EZRFgsg0XHPE12QJc2hdSMWRhN84zTBRQU LlJOLcGSts5xr6GhZYn5sETMLaK9fwEddFgd9P7tw1NoG56AReyfTplRVtqK H56+xn9wBeqN2SkstjahOasKLTlNyEtpQXR0PyKiKa1olrVJC0hOXUJG5gos 1lXkFaxJ7yuLDlHVuI661nU0dK2jqXcNLXRxrXRubSPsx+g8irvmYWmZQUPr LG7WD+LV/rGLtO6uunvAGa+3naPB8QhFXbswk4CxBcOI4qzHiHqbM4TU/GGY 6I1zWeCKWN8rKHBrSIVK0qm7RkTbBDra7ejqHEMX4d7VM4LOHuesV7YOIosi OyW/Gx1LXXhwg7N+ox3nx624fdSEn3546RJ5/wn2+SewFM4hk6JNnjYINWc7 kqJOECpJGKBcis98znoRZ71sihkgCs80WiuXWeSm0d45hc7uSXT1OdDdz/6Q EF0kRHs/TUj7AIwsOAW5rdLxz05aceta8/uZvzE3iay0LihiB6HUM+KSR6FO HSOdJmh6SM+sGWTnzKGQ/SsrIyKqF1BdsIXGlgVG9gKpNI/Ovjl0Dsygi3jo GnagY1gsqchsIbXLy7uwU1WDR+dTrpn/Nb579QoNmSWc+VriqQuh6mFExE4i MmEWOv0CUtKXYDSvUMiuUiivMevXYc7cZoRvo6GDUdezjtb+NbTbVtExsoJ2 6rbWsXlUsA8mVrye2n6csJ0zEn7tOmZ/YS2azTVotrajxtSN8sxeRtsYlDF0 2fGrSE5Zh8G0CUvuFud7GxmWNVaC66hq2UFt5w4aenfQNLCDlqEttIxuomVs HZUD6zARk6vd2zhlBpwyFh5Ozr8r6h4uuNjnn6Ju5CHqpx5TP1GzEyga6vUY 6vUE6qn0PE6vuG5LoVxaPoWqmmnCf5q+YQG9LLidhH9XL4fV70DP4Dh6B8f4 OoKuARuquweQ29xDDd+J9eIGnN/owNmNNtxlIXxw1/G+GNkXn0MdPyDpKVW6 uCxkp9cVF20nkclQys6bRUERp7hiHtW1C8jLn0db7QYLDxOaFaBrYA49tln0 DE+jZ2QS3SPj6BymeOgYRGV1D7ay67FWVo3bDO/XL4+cM/0fOMPViI9hdMWN se45oE6agjZtFimZ8zBaFnnYZRSWrKC8ahXV9Wwl+2ToHFmyyuhdQadtGV3M 6S7ats6xObSPTaOEUqqyYQj7pU3YzqvAy9vH7wLrq2ev0Mcz0WwmVqx9aCBK o2PsUMbOQ5u4Cn36OsvtJqwM4IKyHZTU7MBk3ie+DtBAydTcv4NWG136yBba 7ZtotRMzo8uc5DlMN0/ghE70tH0SN5r63gfWYGUXugp60GTuRZNlFJUZo6jJ GEdZ6jRSExaRkLKJNPMuTPn7yC49gKVoh4l0CxVth6juOkRd/yEabAdoGtlH 0+gecrvX0d+1g5O+qzgdOMRp3wZOaSxOO/veBZanyxzaF1+gbuwxWTFORTOE KL7GmR1IynIgI2cK1vwZnl0a0cp51NQvoKF5gQJ5Ff1ts+TDPINoDn1Ds+gb mUbf6CR6RyfQzUmt7WOlaunEVHELVk11OFmksmPFusGq+eMPL/+9a+RiL4SU lCHI44aJjgmKmmkawRkkG4kyCqjs/CUUli6jjIesaVglvpbR1riLtt5VdA6u ontoGT1M3d6xRfTY59Fln0HN4ASaunpxUNOJvZIGrGdX4NaW/T06buweo5cz 3GRqgUk/TEUzTWE1hzj9EvSGVR53DdkF6ygs30RZ7Saqm7bowY/QIT6v6ees Dm2ic2SDx1pH5ziDbHwZxcRGdfs4Dlik96s7cL2uD/dG594XqtO967BVDaGv zMHjUvwxZ+ozJlDG8aYmLyMxfQsG6y6yivbpcQ5QXHdIbB5xHMeo6z1E4+Ah mofFnmT7aLHvosy2hsHeJRxQXZ307+KU/Tpljp1SMLy+du3dYW0VvbBVc2bK FtFIndjE+ltnmEVr5gL6rSuwc5i1edsoyN9FJmtibvUxdck9lLYdo7L7GNV9 xyjs3sPk0A5WeZhbtlu4O3Yft0Zu43T4OtseTjkFpwOjeH39yGW3vVxHb2Dn Nek8uanj0qvOOI8kTmyGlRNbwIktW0Z5zQpqmlbR2L6K2votDHQxU20r6B1Z Rt/YEvrti+gbZ5yNz6BlhIDrHMBWVxMOqtqwU1iHzdoa3CAwfvrx1ftyxHM9 yHKVnzUNmXYKkclLiNEvIsmwggzOrbXQNbd1nNvmLeSXraOt5QhtA1ssO5vo Jpp7xtfRPbGGrokVNLEsNPWO4lZ/Hw6aBji/rdgrb8SLvZP3MbVEsWKrHuGJ nmQW09hkTCMhfhbRCas87iaHvA0rsza/Yg+l9XuobNmn5b9BYbWNFts+abFH WuyiY3wHbRPsx9AC1m3TOOycwV6rHSedInsduN7c/T6mVmw8Jo2XrXqFbQ+t 1mV0mFbQYeQp4+SOcZx1+Tv0tnswl15Fft0xPe8x6jtPUd17jNqBYxT37GF6 ZBdboySEbRcntkPcHLmB09ETTu4BJ3eVkzuBNzdO/sGlNG5uX4Wt3MZDz7Nt s11DZx6Za9xEl5mnLmcDI8W0ppV7WKg/wFrLIbY7jrBX8BRH/Uc4GTriIa4y ho5wl3F03/4U9x3PcXfiMW7Rp57aT3E6TmgxvU5HHXhzeoI/C6xfo7eiC4XZ U4jOWEVk6gISDGtIoqwzUOJJs1uxgfL6TdSIDZ07t+hF9jHQt84ywO6Ryb0T 6+h1rKLHscIiPM+sHsWDkV7cs7Uzg7uxV9mI9fwKPL117f0M95W18yxPwFaz jMbiDSQlzSNWv8FjbyKds5slZrdyF6UNe6hqFVnMIt92QknJU0Mmd9rZJnbQ 4djC4NgydsemcG/cjuO+Cey3jeCgeRA3WfwP6zrez/BAWSepMcnjrvG4++jK XsWAZRX1mSSiZR16C2dWpG3lVRTVH6G89QhllbfROnCARtsRmnmK64b30c9a tGNfxdnkAmd4BdcoOk5sO84dC+nLbnYN4IeXL9/Zv8ESHrZCrCO5wcbZrjzF SOkpRvOvYbRgH/YSBk3VHpbFHg2tV7HXdQSb7gCPh25Ls3rHfhX3Jg45PDbO 5v3JR7gv7sSaPMfpxC3O7hFnl8AanWWJ6ngXWKcisEpHGFzLbHtsJ7CV3cV4 5UNMVT3AbNU57KXXMFN9gtmGa1hqPcZG13VsFb7EfebQzeFznI2+xPPp7/B0 +ls8nv4a96de4e7kM9yafIDTqTs4nT7mK6XWxAze3Ln5LrA8XSN//fQlBioG ecLn0FS6ASORHEuPkmrcRZp1C+ZiTnKVc5Kr2/ZR372PmpZr6Keq6+Qkd4/v otuxI60LN2RfxuH4NB46xnE+MYzr9FH7bYPYrWvDtYZuPN+//i62Bsv6OM+z POwmhquvYrz8KlpMa6i27iDJsgMj5zhHzHGDc45zGGdNbbfRxDluGSW5xq5i cHQbByTWw+llnE/N82ws4WrfPOeaeGa1OO2bwvX23vexNVjaz0kWKbzFY1+j dbuFyYpbmBLLnhTv8v02BisYrzWHGGw5xmjnMWzF97E2dIi5kWPsUGs8nNzj xO7g3uQObpAWt+0nPNt3mMYsDTwdp4T46aAoDdfex1ZRNyd1jpNLcpQfY6j8 DiaqH2Ch8Sk22l5hrfEhVhvvYaXpJr++ge3u65jOuYmHI+ccEuNr9BYeO17g 2fRrPJ//Bo/nXuP+7HPcmX7Eyb3HRnBNsSA6Ftil3vextckQpemWlrwqPWS7 yXaO8eonmG98gbXWr7Db+RZHfd/hxuAPuD3yE0P3Z6wVfo2XU0/wZPpnPJ35 Cc9nf8Sz2e/wePYtD/sV7s6+wOnsY5zO8dDz5OYcDz0zjzf3bv1lbN3cYVkq H+fJXsEQcT1Zc13KrOaSEyRnsf4WHiC78tA5yW1HqO0+IkhuUqof0pkcsTxc xdDYNm7ObODp7DK7sID7MzO445gkV6ex1zmC671TTOZRfm/23chfP3nBuWZW VSzxcLsYruIJrbnDE3wfK3W3sMBDDrIqtVUfYLCZccB5drDsiwXBFjjPe2P7 zKZ9PJndxcO5bZzNbHF+2Q1+/7bjGLcmrnGumcxDjLleG75/+QLvJ7t42JnN /Pu2ihPYq+5ivuEh1tuecaLPscGJXm28zq+PsEu5cdR/nWXiCV44rrIcHONs 6hrOHSd4wJh6MP0ATxZe4MHcY9ydOWNGs0w4WCYmnGXiq9Pr7w9bwHQqXuRk 87ClJxgqu4eJ2sdYaH6BjY6vcNDzFtcHv8Pt4R+k7bweOn7Gtdbv8dXU93g5 9zNeLfyM14s/4tXi93i+SJAsvMH9+Ze4Q499OkeGzd/kK4vjzDJu2Afenemv Hr+AjfbbVkRaF5FlRbd46PsYr3mGuSaGdtvXHOUfOMofWAR/Yij/TET+EQuF 3/KwL/F4hjHGwz+b+wnP5n9gaP+Bh/2Gh32F08WnOF3ioZd56KV9nC4s4M3Z /y/GFgnzwTKSu4IgqTriRJ/+f+2d6XNb53XGn9pJ28mHNmnamSSTSf+hLtN2 OtM/pJ22cZw4siV5dxzL1kJRFMWd4A6CJPZ94QIuIAFiJwBiJQCukvu1vwuA kKio+dKv9sxLXnPse+45z3Oecw5435cAnVJwKE+rmNXS1zENfrmhsYdbJHRU SwA9cz+uTcr++lxEZUtEx1C4uBZQ3upVxupSwuzSrsmt2FxA8QVMTxstwaI2 B/vKveePgjW18VM8/2xDJmhtuZeWa+AIj8vaHq9ra/hIm8MpVkybY9vam9rR 0WBJKTiUXY4qu7KlrGWLGrWjPEHOr2WVt+WUWj3UgZmkXkRPkNTY1IzKu5sv OXZ39mVWf7qvuS/TWntQkOdJRZGRBkC3lJg5o9Vo6nC6pvRsXYEPq2qsZDoi UrJU1XQCvrOtsuNEBXtVWVtJh9jfX6HNXYHfy/B7YVn1+N612fH36azvklI0 7JMfxtCxtBbuFWV9VJV36ESR0bZ2Ji8A+UqphefKmV8QsQvVLRcqW1/ArReq 2a9UtSMo9jPl7U2lbTUlML1vx7SDOmmH3lanskF3v6E3Dqe6TZTvoGd340Q7 p7mv4NfDutxPWgo9O9cm+rUzfan92Suy6ErLd1sqc+s82lWAV8W1czIJk9ZT TBId49x9J2bdGRZZ5QJku0211P5r9Bq5jXh/bCXOQU1/jo7cS4BxDqslbU9U FZ9p6HCmqpSpxFQSA+NtbZLj39IM5C3bMHqLZNpQjpVeZa3ElFndx3kqN9/j ZubVeXoSk0XRkeE+vbwo513aoI99wByV6fO4LN9k5YI+oZGqtidPFJ89VXbx HEgvlZ2vqbBUV36opspKTdU1lrWitudMDU9LVXdDJVdFeUdBKWtaBys4bSHW ZoPl8yrHtl7S67aR0B70hIB/EifYWa09KsnztKbIWFM7U6dKzF5g+0oFywuV V1/I90lDbWdFJ84Xarqesy5Vd52r7Gqr4Kwray/r0Ea9sh2yKJVk2/7yiuqH fXrte8H2AyTs9jo472vqc3Tk66LWBmryDDcxfQbGF2TEpZKYzixfaf3JuWqr F0jWpSrQquK4YBESB1g7Wko76oq7jsE4x4LZLqJtd6qRObxuRMZ+PaXJWyTT +5t9es1+dawV6OWiPAZGTrWOcm6bzojUOQXgnGbhRMfcOrdKWYRSR1YUE1rl 7CdKORuKu6GXF3r5YLWPSHuhl9N684MIuPX+OIGmVnwckemzGACjH08KCo2i H1PcZq6lrPmM6ksS4WHbeaX9JzV9S8E/gcEnjorqjjIAc+0/Uc1X1bGnpLwT DbElFF8xOj963gV6osnRPrc8cOs2ivlhoLN9fYYSZXmQx9uyQmN1bU+3MH1O CTIK/1WnNjQcz5Wlhpx6XujM+1xnviu1fRdq+E5V8TZV5BFyLqSNPD6wEWgr /e6qV7HFhc5vw/sacgtu3YZbd6OkVEJz9/JaHSjDrYbC4+iH6VyJ+UuaWOMv CNF8rNGQfHaiNhFtGLxyX+nEc6maB9DdRN5Fw+usKuGkTrmM96GQTQcur66o 8pJbMdeBJhnBJ28hXXdiHW7NfY2GwC033AphOjp9CsBntOxnnQPvQkO4hm4Y UnUMn8rOU1ZbRSdAYzblgVteuOWDWz5c9pJOToeqmcQ1t2KuhCZ/jWK+h1Df 5hE+y8oEt5Yf1mQfasg30lR4sqktU0u78y0Ev6WZj+squuqIRBPROFHO1mCR Qc6akp6KDq7POg0gXQHaLz9N6fbW69x69h7j6h2m5A+N2nSg5fuIxxDiMYZ4 UBfiC4jH8gVV9woOXanlpjKPnetba1xXgee6Cl7pInihdvBMJ0EEJFBXyVtW 3n2klCMJyAR6lfq0bFPUNHbt8fgteMUAPvnhrkxfpvC0IOdQhQCf8J+dYvac xL2k6F+RsJiG0unRU7U7nHquUz+P4r9Uw09f4mup6CXL3MdKuggy0dx3UJps Xu0tL/TH1JF3ZwAWTt2OdoanWTi18ogGd5jmY6Kt7ZlTWrYzWqtzMpZiYL2Q 44sTtUiXuhsOe87V8J6r6iXVPGSyh7rkgVNeouyFUx5cdQUVsy73Pr78mcZ/ xehCBzt5e4/OI60ZhMoyUJVzmFKLr5uEeHeuScvWUtLSkg8ladiTlFp8cjRV cp6gxw0VQDpL7iR9IBtAMQIoRgDF8K9rz+X4+bW5XzK1vEtr90G3h5/+qqBF Wjvrk6pcIzUFJmtaN9UVna9rb7GuwXc9ig55lGRUSFsZF2xV0qSMW8c69BV1 EDzqngsZoocP7SkWCOvq9PQ1DsXcSU28jzTe2YRDccDMyfn0GDARiRlEYhEO rZAhNvTJeammh+o7CYcch7oMPtdl6ErnYXQrTJBDp6oGcdpfUc5TAFCKkBP6 2uHQqo0AOF4qshk8A30OmQ0OPa124mpkygHUTVsM5aVXtVMAXBdKjp/qxF1S 2w9lA+dqsuoBktZP/fE2lIW6h17qj5f644FDDq+2La98QOrE1V/j6i2j5iXI 0ryW0SXncE3BiYa2ZprIqPHXHdtkpqH2bdm+bCC7FWprGz1ieVsdLSx5yFp4 m4JfcT8c8qe6Z7V7/IquLfY5ZHsU0cQ7jKLvMxXRr0/Tr5sHSrI/Lcs3XlWY 1i06V9MedT2+XNfYXfR0yE4tpc47ajpC946Mmo5vGT/zYJCGOWQc+Im9EBwK RJSKbnY59FPt2XMa/y8m3N8i/x8dMnnnNUfXaBksyv7sWJ4JkDWVtTFX1gjN 9INbFkWGlxRf5dZWeOOgQ3QXlPAdKW4ctByGPxH68wghDe8pG4v3mNMn0C5R Hf8NUb29qekvEjI/yMmBd4EJmuPZk052GNEs2s5UdSE0ZGFi+kzfepK6CF3o AuKcRc7VCpOhYeQ4SKXx06xC4aTxh0E8jAauMJlpVSV1cA2mdSAMmAT2zo6m fpfSEgSyP63IP17TJv1abBH1thjyaiRju9OkxCdP1fIeqAlhmoG2TgIt1QJN HfuNw6yQY39ZCT/B9Sc6k/W+y61aNtUnUC17orFfOrtS//GBpn/P6PGIyDIL +AFzw1TT7kJdB8sN+j4IaTvRyr06JC1TyE5U9jQgT11lL40cxMkGKkoGSzro AEqEg9uKeX2q5DJ9AtWyLY3+p08TvzFmEVoXbM4/PNLqUEGu0ZL8U8danz1W dLGMYJb1+TtLChifqi7u0RkdowglZTxFpSFpKphXvINopo/ojj+s83b7J/3X LTtvJ3c3Ffy1pmhHFx7ntDKcl2PsSN4pOpfZgtYXCjI921XYnNIuk2vMnqcQ whdvFp3JaDeU7ryevLee6mwdiIZ2dHF2/o83P+8cfceF9jD+0/guQhv7U/yZ qGhztqbYkhFDcLE1wQ6cvG2GjrZe+JM6Dbd1xjqNgGO4pTqrjO4UAiggfib8 0MaH7rhD2rGt6LxZ72O4Y0uDoV8TH2xr8otDzd/PyzpUlHecOJoq4EdRsNSV XiMB7UZDfcJsBm8CCdXhSSPQAM+6KkathKb5YIW4lhQP4X2Q4ca/oV2XUxft Zg/Dn8p6f4tisk6zj7LD1fmHea0NGWcJUatNx9qaBztzhV4O/k7ESacp5osR HbmrNF0VVhm+HOuI4pEJ4V8YZQ+DYRh7wai23J7ubzO/13s/xDC7ei/af49k /IuUpmk8lwazso7k5J7IKzBz1IExai7IPWu8MruruJWbO46QgDwlJIfa0Olh 6FUot0O7Oi6U9PPeW+zXr+VW02ed62e3ukcyjX6FzYcpLQ6ltTqSkWMiI48p q8BcVpHFjDYsGW1ZM4o6WJ50//Vc44C6txTF2tvaiMRVKlU797/BnZ8xkO5o nDyc+PRAc7i2NgQ7x4tanznW7lJFhytVWqpap82qkHex2aauqITNEE1B2Fjd Lf3VEDgGDRypnCFD9aiWgR3y0K+I1XwtrE//3a2x90jBT+OawZzlSY70O1Jo ugh8JcVIvcM1NNpe0dIDv1Y+mtbBhJnaVFWF+lHxG7t0gRGqZMNFHYbznXf4 90OMk2j44Xb0JoTVTFvP/iOs0fdjnZ+YMGp+kpV9NCff1JHCZGF0sag9S1Hu 8QM9fujV+nKQfC/STLFobLKBI/iSVzKS08H1QahwZju4qeOjQo8oL9+sfvX7 6jcJDb+337keA8qZRxTppylZx9JyT2fkn80oDIyby8C3kiGvoImThWTvAeUO BSoauQnlwX66VzSMrz+58UZ3NXPR+fehO0kNfZ7SyNfQZyClBWxaxlKyTaXk gqbepZQCKymFbKn+aV6hQEpB463uzmYIriNJ7cay//QqY36oavZMz97Z0PhH +5q+x10HM0DIlG86UnSBfsnCaEMNzNFDGVk3+O64th9NqODYp7OpvqV6qKI/ VzkEimEDRRqcsJEfCcWCW3DYq2I29RqImPzlVj8PFwfSsj7LIKM5Rebyii4h nSvGXu4i+UhHMurXrm2bbqZEwhdVQMyOaONysCUFiPF140RbnCMHN3whnZ+e 9t9WeR3E7ZWihn/V/UvSY79PaRYALcNp8jAtnwnw5rPaNOe0s5JTbI170zok GCoPGaMPmWkTwQzFAtJEjMMijUMjk+Tmvg72Ej1h+5sbAF5fWx5lukAC4ug3 KZked3e2rI2n5DR2t8wBICCGAXHdntIGIG4A4jogRkIGYQwI3+6AuHeQ73l3 /eJkdzPAjzvnhBj/DNxN6TGSOnw/pclBvByBppMprUIVG1Ycq9AGK26suLHi wooLK25yz4kc5Isn+ufu8//dzRKov9DK/UQfunmkzPosDXQZoCNsZhKYype0 k2euokxPI/KYnSR56S2VA0WYchwsqIhU5yPdTbJxYx8dEYwGNnSw0/8tyZuy 7+lvD+jPkp3rpSFcIXheU1qRBURzOau9VTLaBlCOnFLU3bQnpwyCnWa0SIUy OiTbD9a7wEUjCa0Hd7QT3e0Bd3NPUpesP9YYGTdLCC0j3W2CXkIYXAAYavwW YG2TcbtOFmHsZDhiHSWMG+vdM/TCdBRu75Za7dNehr9h7xNRXXqc1yOy/DFF 6RmwTWFzHpudk6xmuydZuYHNC2w+YPNizxtIvSV3yOCFC9S2YoXe5xx/aObt ztcfdX62MFzQ15+kdB8BG0RMRuDhFK7NYmYRdphxy4JbFtxa9vDdx8K1JW9S rbMX+pdXW92f3UBo8L93NfxxF6HFJyCERvlMUHghzdBBmlpJIUdWadDJgk4O dPK9DZY5prIMPVgSQux3UutQm+GYAt6wTtvt67bh9eyyPMrqyZ2uyelH3f2c tomUPDNI3yJALHOr1e6esZjDmGlTOsCjfYDaA6gd8mrTOOyQTA6GDrSzl+xF 8Cc3XLv+PvBBUoOANPqALMZF8ygAGRtsXpHhMLYigLQOSBEiF8ZWINw7cgyk bN49NdvnrwP1Msu6QG3QHX/9UbIP1CiuTePaPKaWMGXB1CqmVgFq9RWgzL6k UoVmd8f7G+//l/2fHRsvkJtK+gJRuoc7AyD2FEEamU9pnNBNELoJbEwQurHe C+T/+ioBfnrj9oYCDfwm3rmefPgSDSNtDDS2LMYOW5CAxnEeO8FjH/LYCRQo bkxvPV010idMDfH6t3V6dt5D5A+L8tJgoSsNhGgKTV00NBUuO0Hfh70Q9iJW EObxN7G1ia3NYFdTgz1E3EGItpfRL/7P9PyRNpg6v7mb1EOm8qf4NUkBnkd+ lrGzhh07dpzYceOTGztO7DjwyYatNeNYzd2jXvr/6RvrwxuQMVaEHv4LqvI9 1GAAog2DzCjITKAGUyAzCTKTji468aPWK/vD3u4Xh+937vRn8m+2FNxpaX2/ pY14S1uHrBQr3dK/dR/i7/v/0/VO6euHqeSedxP8y845e2gIlJvsNh9+/A/j /wa4RnmQbTcL/7fx2zhceT3cZb8H5tv9+2qfXb4e6q7JXqg9TX2DPD1GeUfx ewa/l/B71di7Y765d8eLGTeMdwS7B12t+A6VOmr0Qv2910P9Vt+/3l76Uv5K MxNF/Z4YP4A+T1HccZLZZGyhwNYiMV7E1iKwzrtvnFTzi/69Xg/191WovFBg u6VI7GWo3+oE+23jpfb+I33SfbB/+CNPq7/qavZ4SQ/pV54hAyY4vsRDrvUO OPTwkD4e0o/i+FEcn797yKHjmnt7BR748o/FpGfl+selwgvNMILdQ+Mew/RR mD4N0+dBehHRMcN0M0ibsbhAWGaNbVTRohrtq5dh+d4b08n4+gMFN1qaXjnW l7jyAFcGcOUJija4bBzf0T26o9p+4X1VaN6kYz/s/ywcbOl3iMAjGDOChk1R deao00sQcxnGWAiQhcc186jzoDjtTCqeP/nbm4/7Cvd/oGLpuUJbLZlWj/UV t3zELR9DjCfm7oOurpe0m239z+uN0tuvhYA7lV8oQur9rufuIO4O4e7Qcve0 EsPd7XSzE6PeaSWd6y++u/7u+rvr766/u/7u+v9/rT/5XxqrlC4=\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.3617104416783683`, -2.324504728545775, 0.04022308815606679}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0., 0., 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.31816633136472, 0.0015863588731668994`, 0.03765500605417952}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.9565616227882, 2.3261713170904414`, -0.002643100558762157}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.019430690254389, -2.323015394309803, 0.07796836712350341}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2960461356037478`, 2.326143876106908, -0.0026681511805370928`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.5948797748746726`, -4.65064621287657, 0.042909727283918286`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.973152999159963, -2.2922624548614805`, \ -2.220446049250313*^-16}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.288599549172336, 2.29538117654611, 0.07532803042742064}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.910343099251433, 4.65374421245871, 0.032416451647109046`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.0462791541061518, -4.615280744395591, 0.07791758820139538}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.6603361880433463`, -6.002745572168732*^-17, \ -9.339516156450064*^-17}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.975918801770629, 0.0032193334927125977`, 0.07524182323777795}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.269312521461267, 4.618494639384557, -0.002667809595384707}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.9103084185824084`, -6.941413160560491, 0.0806231260432857}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.61694992554022, -2.3261699877033117`, 0.0025996794599354445`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.93240030443107, 2.3292757565765143`, 0.07271513465932888}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.225771742959168, 6.944511160142632, -0.00529694711225881}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.56798363179423, -6.942982797435718, 0.04283449515859239}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.91297900878185, -4.652315460159693, 0.005247315244165662}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{13.228429387672698`, 4.655421229032899, 0.07006749887509667}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.900088454822487`, 6.9122961944360775`, 0.03502752293542377}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.0427561525053495`, -4.06598693228686, 0.13650380341077506`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.27178379548991627`, 4.069500796934516, -0.004570021456977935}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.070634783601021, -6.357691159264765, 0.13420204694692783`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.6745313427113344`, 1.749162569987408, 0.0000262832108492983}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.990295571780047, -1.7459477520924345`, 0.1039139246213946}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.243687625195177, 6.3607404571889195`, -0.029706722864252466`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.8972554522977343`, -8.690432809652355, 0.13794895925435702`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.652497148821922, -0.5893341813238268, 0.0024955959678749084`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.967947527712772`, 0.5924399501970317, 0.07281921815138698}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.223669687783238, 8.699858748227218, -0.06376057478156927}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.572253551947387, -8.697907765178407, 0.04300068259861911}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.934688352041876, -4.6752475354059175`, \ -0.02176986109398671}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{15.250242426100447`, 4.679407145138723, 0.09548744343996551}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.914439971469562`, 8.66146132880405, 0.038293233425869655`}, 0.1]}, Text3DBox["1", {0.7617104416783683, -2.324504728545775, 0.04022308815606679}, {1, 0}], Text3DBox["2", {-0.6, 0., 0.}, {1, 0}], Text3DBox["3", {4.718166331364721, 0.0015863588731668994`, 0.03765500605417952}, {1, 0}], Text3DBox["4", {3.3565616227882, 2.3261713170904414`, -0.002643100558762157}, {1, 0}], Text3DBox["5", {3.4194306902543885`, -2.323015394309803, 0.07796836712350341}, {1, 0}], Text3DBox["6", {0.6960461356037478, 2.326143876106908, -0.0026681511805370928`}, {1, 0}], Text3DBox["7", {-3.1948797748746727`, -4.65064621287657, 0.042909727283918286`}, {1, 0}], Text3DBox[ "8", {-4.573152999159963, -2.2922624548614805`, -2.220446049250313*^-16}, \ {1, 0}], Text3DBox["9", {8.688599549172336, 2.29538117654611, 0.07532803042742064}, {1, 0}], Text3DBox["10", {7.310343099251433, 4.65374421245871, 0.032416451647109046`}, {1, 0}], Text3DBox["11", {-0.5537208458938482, -4.615280744395591, 0.07791758820139538}, {1, 0}], Text3DBox[ "12", {-3.2603361880433464`, -6.002745572168732*^-17, \ -9.339516156450064*^-17}, {1, 0}], Text3DBox["13", {7.375918801770629, 0.0032193334927125977`, 0.07524182323777795}, {1, 0}], Text3DBox["14", {4.669312521461268, 4.618494639384557, -0.002667809595384707}, {1, 0}], Text3DBox["15", {-4.510308418582408, -6.941413160560491, 0.0806231260432857}, {1, 0}], Text3DBox["16", {-7.21694992554022, -2.3261699877033117`, 0.0025996794599354445`}, {1, 0}], Text3DBox["17", {11.33240030443107, 2.3292757565765143`, 0.07271513465932888}, {1, 0}], Text3DBox["18", {8.625771742959168, 6.944511160142632, -0.00529694711225881}, {1, 0}], Text3DBox["19", {-7.16798363179423, -6.942982797435718, 0.04283449515859239}, {1, 0}], Text3DBox["20", {-8.51297900878185, -4.652315460159693, 0.005247315244165662}, {1, 0}], Text3DBox["21", {12.628429387672698`, 4.655421229032899, 0.07006749887509667}, {1, 0}], Text3DBox["22", {11.300088454822488`, 6.9122961944360775`, 0.03502752293542377}, {1, 0}], Text3DBox["23", {4.44275615250535, -4.06598693228686, 0.13650380341077506`}, {1, 0}], Text3DBox["24", {-0.3282162045100837, 4.069500796934516, -0.004570021456977935}, {1, 0}], Text3DBox["25", {0.47063478360102107`, -6.357691159264765, 0.13420204694692783`}, {1, 0}], Text3DBox["26", {-4.2745313427113345`, 1.749162569987408, 0.0000262832108492983}, {1, 0}], Text3DBox["27", {8.390295571780047, -1.7459477520924345`, 0.1039139246213946}, {1, 0}], Text3DBox["28", {3.643687625195177, 6.3607404571889195`, -0.029706722864252466`}, {1, 0}], Text3DBox["29", {-3.4972554522977344`, -8.690432809652355, 0.13794895925435702`}, {1, 0}], Text3DBox["30", {-8.252497148821922, -0.5893341813238268, 0.0024955959678749084`}, {1, 0}], Text3DBox["31", {12.367947527712772`, 0.5924399501970317, 0.07281921815138698}, {1, 0}], Text3DBox["32", {7.623669687783238, 8.699858748227218, -0.06376057478156927}, {1, 0}], Text3DBox["33", {-8.172253551947387, -8.697907765178407, 0.04300068259861911}, {1, 0}], Text3DBox[ "34", {-10.534688352041876`, -4.6752475354059175`, -0.02176986109398671}, \ {1, 0}], Text3DBox["35", {14.650242426100448`, 4.679407145138723, 0.09548744343996551}, {1, 0}], Text3DBox["36", {12.314439971469563`, 8.66146132880405, 0.038293233425869655`}, {1, 0}], TubeBox[{{0., 0., 0.}, {1.3617104416783683`, -2.324504728545775, 0.04022308815606679}}, 0.06], TubeBox[{{3.9565616227882, 2.3261713170904414`, -0.002643100558762157}, { 5.31816633136472, 0.0015863588731668994`, 0.03765500605417952}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{4.019430690254389, -2.2030153943098028`, 0.07796836712350341}, { 1.3617104416783683`, -2.204504728545775, 0.04022308815606679}}, 0.06], TubeBox[{{4.019430690254389, -2.443015394309803, 0.07796836712350341}, { 1.3617104416783683`, -2.444504728545775, 0.04022308815606679}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.019430690254389, -2.2030153943098028`, 0.07796836712350341}, { 5.31816633136472, 0.12158635887316689`, 0.03765500605417952}}, 0.06], TubeBox[{{4.019430690254389, -2.443015394309803, 0.07796836712350341}, { 5.31816633136472, -0.1184136411268331, 0.03765500605417952}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2960461356037478`, 2.446143876106908, -0.0026681511805370928`}, {0., 0.12, 0.}}, 0.06], TubeBox[{{1.2960461356037478`, 2.206143876106908, -0.0026681511805370928`}, {0., -0.12, 0.}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2960461356037478`, 2.446143876106908, -0.0026681511805370928`}, {3.9565616227882, 2.4461713170904416`, -0.002643100558762157}}, 0.06], TubeBox[{{1.2960461356037478`, 2.206143876106908, -0.0026681511805370928`}, {3.9565616227882, 2.2061713170904413`, -0.002643100558762157}}, 0.06]}, TubeBox[{{-3.973152999159963, -2.2922624548614805`, \ -2.220446049250313*^-16}, {-2.5948797748746726`, -4.65064621287657, 0.042909727283918286`}}, 0.06], TubeBox[{{7.910343099251433, 4.65374421245871, 0.032416451647109046`}, { 9.288599549172336, 2.29538117654611, 0.07532803042742064}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{0.0462791541061518, -4.495280744395591, 0.07791758820139538}, { 1.3617104416783683`, -2.204504728545775, 0.04022308815606679}}, 0.06], TubeBox[{{0.0462791541061518, -4.735280744395591, 0.07791758820139538}, { 1.3617104416783683`, -2.444504728545775, 0.04022308815606679}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.0462791541061518, -4.495280744395591, 0.07791758820139538}, {-2.5948797748746726`, -4.53064621287657, 0.042909727283918286`}}, 0.06], TubeBox[{{0.0462791541061518, -4.735280744395591, 0.07791758820139538}, {-2.5948797748746726`, -4.77064621287657, 0.042909727283918286`}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6603361880433463`, 0.11999999999999994`, -9.339516156450064*^-17}, {0., 0.12, 0.}}, 0.06], TubeBox[{{-2.6603361880433463`, -0.12000000000000005`, \ -9.339516156450064*^-17}, {0., -0.12, 0.}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6603361880433463`, 0.11999999999999994`, -9.339516156450064*^-17}, {-3.973152999159963, \ -2.1722624548614804`, -2.220446049250313*^-16}}, 0.06], TubeBox[{{-2.6603361880433463`, -0.12000000000000005`, \ -9.339516156450064*^-17}, {-3.973152999159963, -2.4122624548614806`, \ -2.220446049250313*^-16}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.975918801770629, 0.1232193334927126, 0.07524182323777795}, { 5.31816633136472, 0.12158635887316689`, 0.03765500605417952}}, 0.06], TubeBox[{{7.975918801770629, -0.1167806665072874, 0.07524182323777795}, { 5.31816633136472, -0.1184136411268331, 0.03765500605417952}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.975918801770629, 0.1232193334927126, 0.07524182323777795}, { 9.288599549172336, 2.41538117654611, 0.07532803042742064}}, 0.06], TubeBox[{{7.975918801770629, -0.1167806665072874, 0.07524182323777795}, { 9.288599549172336, 2.17538117654611, 0.07532803042742064}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.269312521461267, 4.738494639384557, -0.002667809595384707}, { 3.9565616227882, 2.4461713170904416`, -0.002643100558762157}}, 0.06], TubeBox[{{5.269312521461267, 4.498494639384557, -0.002667809595384707}, { 3.9565616227882, 2.2061713170904413`, -0.002643100558762157}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.269312521461267, 4.738494639384557, -0.002667809595384707}, { 7.910343099251433, 4.77374421245871, 0.032416451647109046`}}, 0.06], TubeBox[{{5.269312521461267, 4.498494639384557, -0.002667809595384707}, { 7.910343099251433, 4.53374421245871, 0.032416451647109046`}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.9103084185824084`, -6.821413160560491, 0.0806231260432857}, {-2.5948797748746726`, -4.53064621287657, 0.042909727283918286`}}, 0.06], TubeBox[{{-3.9103084185824084`, -7.061413160560491, 0.0806231260432857}, {-2.5948797748746726`, -4.77064621287657, 0.042909727283918286`}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.61694992554022, -2.2061699877033116`, 0.0025996794599354445`}, {-3.973152999159963, -2.1722624548614804`, \ -2.220446049250313*^-16}}, 0.06], TubeBox[{{-6.61694992554022, -2.446169987703312, 0.0025996794599354445`}, {-3.973152999159963, -2.4122624548614806`, \ -2.220446049250313*^-16}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{11.93240030443107, 2.4492757565765144`, 0.07271513465932888}, { 9.288599549172336, 2.41538117654611, 0.07532803042742064}}, 0.06], TubeBox[{{11.93240030443107, 2.209275756576514, 0.07271513465932888}, { 9.288599549172336, 2.17538117654611, 0.07532803042742064}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{9.225771742959168, 7.064511160142632, -0.00529694711225881}, { 7.910343099251433, 4.77374421245871, 0.032416451647109046`}}, 0.06], TubeBox[{{9.225771742959168, 6.824511160142632, -0.00529694711225881}, { 7.910343099251433, 4.53374421245871, 0.032416451647109046`}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.56798363179423, -6.822982797435718, 0.04283449515859239}, {-3.9103084185824084`, -6.821413160560491, 0.0806231260432857}}, 0.06], TubeBox[{{-6.56798363179423, -7.062982797435718, 0.04283449515859239}, {-3.9103084185824084`, -7.061413160560491, 0.0806231260432857}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.91297900878185, -4.532315460159693, 0.005247315244165662}, {-6.61694992554022, -2.2061699877033116`, 0.0025996794599354445`}}, 0.06], TubeBox[{{-7.91297900878185, -4.772315460159693, 0.005247315244165662}, {-6.61694992554022, -2.446169987703312, 0.0025996794599354445`}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.91297900878185, -4.532315460159693, 0.005247315244165662}, {-6.56798363179423, -6.822982797435718, 0.04283449515859239}}, 0.06], TubeBox[{{-7.91297900878185, -4.772315460159693, 0.005247315244165662}, {-6.56798363179423, -7.062982797435718, 0.04283449515859239}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{13.228429387672698`, 4.775421229032899, 0.07006749887509667}, { 11.93240030443107, 2.4492757565765144`, 0.07271513465932888}}, 0.06], TubeBox[{{13.228429387672698`, 4.535421229032899, 0.07006749887509667}, { 11.93240030443107, 2.209275756576514, 0.07271513465932888}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{11.900088454822487`, 7.032296194436078, 0.03502752293542377}, { 9.225771742959168, 7.064511160142632, -0.00529694711225881}}, 0.06], TubeBox[{{11.900088454822487`, 6.792296194436077, 0.03502752293542377}, { 9.225771742959168, 6.824511160142632, -0.00529694711225881}}, 0.06]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{11.900088454822487`, 7.032296194436078, 0.03502752293542377}, { 13.228429387672698`, 4.775421229032899, 0.07006749887509667}}, 0.06], TubeBox[{{11.900088454822487`, 6.792296194436077, 0.03502752293542377}, { 13.228429387672698`, 4.535421229032899, 0.07006749887509667}}, 0.06]}, TubeBox[{{5.0427561525053495`, -4.06598693228686, 0.13650380341077506`}, { 4.019430690254389, -2.323015394309803, 0.07796836712350341}}, 0.06], TubeBox[{{0.27178379548991627`, 4.069500796934516, -0.004570021456977935}, {1.2960461356037478`, 2.326143876106908, -0.0026681511805370928`}}, 0.06], TubeBox[{{1.070634783601021, -6.357691159264765, 0.13420204694692783`}, { 0.0462791541061518, -4.615280744395591, 0.07791758820139538}}, 0.06], TubeBox[{{-3.6745313427113344`, 1.749162569987408, 0.0000262832108492983}, {-2.6603361880433463`, -6.002745572168732*^-17, \ -9.339516156450064*^-17}}, 0.06], TubeBox[{{8.990295571780047, -1.7459477520924345`, 0.1039139246213946}, { 7.975918801770629, 0.0032193334927125977`, 0.07524182323777795}}, 0.06], TubeBox[{{4.243687625195177, 6.3607404571889195`, -0.029706722864252466`}, {5.269312521461267, 4.618494639384557, -0.002667809595384707}}, 0.06], TubeBox[{{-2.8972554522977343`, -8.690432809652355, 0.13794895925435702`}, {-3.9103084185824084`, -6.941413160560491, 0.0806231260432857}}, 0.06], TubeBox[{{-7.652497148821922, -0.5893341813238268, 0.0024955959678749084`}, {-6.61694992554022, -2.3261699877033117`, 0.0025996794599354445`}}, 0.06], TubeBox[{{12.967947527712772`, 0.5924399501970317, 0.07281921815138698}, { 11.93240030443107, 2.3292757565765143`, 0.07271513465932888}}, 0.06], TubeBox[{{8.223669687783238, 8.699858748227218, -0.06376057478156927}, { 9.225771742959168, 6.944511160142632, -0.00529694711225881}}, 0.06], TubeBox[{{-7.572253551947387, -8.697907765178407, 0.04300068259861911}, {-6.56798363179423, -6.942982797435718, 0.04283449515859239}}, 0.06], TubeBox[{{-9.934688352041876, -4.6752475354059175`, -0.02176986109398671}, \ {-7.91297900878185, -4.652315460159693, 0.005247315244165662}}, 0.06], TubeBox[{{15.250242426100447`, 4.679407145138723, 0.09548744343996551}, { 13.228429387672698`, 4.655421229032899, 0.07006749887509667}}, 0.06], TubeBox[{{12.914439971469562`, 8.66146132880405, 0.038293233425869655`}, { 11.900088454822487`, 6.9122961944360775`, 0.03502752293542377}}, 0.06]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{1232., 1147.}, SphericalRegion->True, ViewPoint->{1.0034208287841837`, -0.03478195715858362, 3.2313985912942225`}, ViewVertical->{-0.20226002258182021`, 1.0233889982677984`, 29.937683657825016`}]], "Output", CellChangeTimes->{3.571833595078103*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"px", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"py", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"pz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "clouds", " ", "above"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"qx", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qy", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "clouds", " ", "below"}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{"tc", ",", "twc", ",", "twh", ",", "tpo", ",", "tpu"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tw", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}, {3.5718274129968443`*^9, 3.5718274223100605`*^9}}], Cell[BoxData["106"], "Output", CellChangeTimes->{3.5718335951093025`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.3617104416783683`", RowBox[{"-", "2.324504728545775`"}], "0.04022308815606679`"}, {"0.`", "0.`", "0.`"}, {"5.31816633136472`", "0.0015863588731668994`", "0.03765500605417952`"}, {"3.9565616227882`", "2.3261713170904414`", RowBox[{"-", "0.002643100558762157`"}]}, {"4.019430690254389`", RowBox[{"-", "2.323015394309803`"}], "0.07796836712350341`"}, {"1.2960461356037478`", "2.326143876106908`", RowBox[{"-", "0.0026681511805370928`"}]}, { RowBox[{"-", "2.5948797748746726`"}], RowBox[{"-", "4.65064621287657`"}], "0.042909727283918286`"}, { RowBox[{"-", "3.973152999159963`"}], RowBox[{"-", "2.2922624548614805`"}], RowBox[{"-", "2.220446049250313`*^-16"}]}, {"9.288599549172336`", "2.29538117654611`", "0.07532803042742064`"}, {"7.910343099251433`", "4.65374421245871`", "0.032416451647109046`"}, {"0.0462791541061518`", RowBox[{"-", "4.615280744395591`"}], "0.07791758820139538`"}, { RowBox[{"-", "2.6603361880433463`"}], RowBox[{"-", "6.002745572168732`*^-17"}], RowBox[{"-", "9.339516156450064`*^-17"}]}, {"7.975918801770629`", "0.0032193334927125977`", "0.07524182323777795`"}, {"5.269312521461267`", "4.618494639384557`", RowBox[{"-", "0.002667809595384707`"}]}, { RowBox[{"-", "3.9103084185824084`"}], RowBox[{"-", "6.941413160560491`"}], "0.0806231260432857`"}, { RowBox[{"-", "6.61694992554022`"}], RowBox[{"-", "2.3261699877033117`"}], "0.0025996794599354445`"}, {"11.93240030443107`", "2.3292757565765143`", "0.07271513465932888`"}, {"9.225771742959168`", "6.944511160142632`", RowBox[{"-", "0.00529694711225881`"}]}, { RowBox[{"-", "6.56798363179423`"}], RowBox[{"-", "6.942982797435718`"}], "0.04283449515859239`"}, { RowBox[{"-", "7.91297900878185`"}], RowBox[{"-", "4.652315460159693`"}], "0.005247315244165662`"}, {"13.228429387672698`", "4.655421229032899`", "0.07006749887509667`"}, {"11.900088454822487`", "6.9122961944360775`", "0.03502752293542377`"}, {"0.6808552208391841`", RowBox[{"-", "1.1622523642728875`"}], "0.020111544078033394`"}, {"4.63736397707646`", "1.1638788379818044`", "0.017505952747708678`"}, {"2.6905705659663783`", RowBox[{"-", "2.323760061427789`"}], "0.0590957276397851`"}, {"4.668798510809554`", RowBox[{"-", "1.160714517718318`"}], "0.05781168658884146`"}, {"0.6480230678018739`", "1.163071938053454`", RowBox[{"-", "0.0013340755902685464`"}]}, {"2.626303879195974`", "2.3261575965986747`", RowBox[{"-", "0.002655625869649625`"}]}, { RowBox[{"-", "3.284016387017318`"}], RowBox[{"-", "3.4714543338690254`"}], "0.021454863641959032`"}, {"8.599471324211883`", "3.47456269450241`", "0.053872241037264845`"}, {"0.70399479789226`", RowBox[{"-", "3.469892736470683`"}], "0.059070338178731085`"}, { RowBox[{"-", "1.2743003103842605`"}], RowBox[{"-", "4.63296347863608`"}], "0.060413657742656834`"}, { RowBox[{"-", "1.3301680940216731`"}], RowBox[{"-", "3.001372786084366`*^-17"}], RowBox[{"-", "4.669758078225032`*^-17"}]}, { RowBox[{"-", "3.316744593601655`"}], RowBox[{"-", "1.1461312274307403`"}], RowBox[{"-", "1.57719883244766`*^-16"}]}, {"6.6470425665676744`", "0.0024028461829397486`", "0.05644841464597873`"}, {"8.632259175471482`", "1.1493002550194111`", "0.0752849268325993`"}, {"4.612937072124733`", "3.472332978237499`", RowBox[{"-", "0.002655455077073432`"}]}, {"6.58982781035635`", "4.636119425921633`", "0.014874321025862166`"}, { RowBox[{"-", "3.2525940967285405`"}], RowBox[{"-", "5.79602968671853`"}], "0.06176642666360199`"}, { RowBox[{"-", "5.2950514623500915`"}], RowBox[{"-", "2.309216221282396`"}], "0.0012998397299676112`"}, {"10.610499926801703`", "2.312328466561312`", "0.07402158254337476`"}, {"8.568057421105301`", "5.799127686300671`", "0.013559752267425118`"}, { RowBox[{"-", "5.239146025188319`"}], RowBox[{"-", "6.942197978998104`"}], "0.061728810600939044`"}, { RowBox[{"-", "7.264964467161035`"}], RowBox[{"-", "3.4892427239315023`"}], "0.003923497352050553`"}, { RowBox[{"-", "7.2404813202880405`"}], RowBox[{"-", "5.797649128797706`"}], "0.024040905201379026`"}, {"12.580414846051884`", "3.4923484928047066`", "0.07139131676721278`"}, {"10.562930098890828`", "6.928403677289355`", "0.014865287911582481`"}, {"12.564258921247593`", "5.783858711734489`", "0.05254751090526022`"}, {"4.754638954475413`", RowBox[{"-", "3.5752534420214497`"}], "0.12002315623577829`"}, {"0.5601704449034838`", "3.578649145517211`", RowBox[{"-", "0.004034539505565883`"}]}, {"0.7822238481308439`", RowBox[{"-", "5.867109369839538`"}], "0.11835495934197518`"}, { RowBox[{"-", "3.388970475138756`"}], "1.2566613203885562`", "0.000018882804272516417`"}, {"8.704725696714759`", RowBox[{"-", "1.253517877052782`"}], "0.09584208321881332`"}, {"4.532470351959453`", "5.870180507063971`", RowBox[{"-", "0.022093441311753403`"}]}, { RowBox[{"-", "3.1824782982233764`"}], RowBox[{"-", "8.198000154602346`"}], "0.12180899635243128`"}, { RowBox[{"-", "7.360952659120819`"}], RowBox[{"-", "1.078317105019777`"}], "0.0025248992849007928`"}, {"12.676403038011669`", "1.0814228738929816`", "0.07278991483436179`"}, {"8.505801069588623`", "8.205658942910873`", RowBox[{"-", "0.0473007501813669`"}]}, { RowBox[{"-", "7.289492745461121`"}], RowBox[{"-", "8.20379359403393`"}], "0.042953891100012166`"}, { RowBox[{"-", "9.365475789373939`"}], RowBox[{"-", "4.668791006250669`"}], RowBox[{"-", "0.014163171126034522`"}]}, {"14.681027466355866`", "4.6726542248582055`", "0.08833079124355207`"}, {"12.628846842726546`", "8.168979644482619`", "0.037373764719776284`"}, {"1.3617104416783683`", RowBox[{"-", "2.324504728545775`"}], "1.4402230881560667`"}, {"0.`", "0.`", "1.4`"}, {"5.31816633136472`", "0.0015863588731668994`", "1.4376550060541795`"}, {"3.9565616227882`", "2.3261713170904414`", "1.3973568994412378`"}, {"4.019430690254389`", RowBox[{"-", "2.323015394309803`"}], "1.4779683671235033`"}, {"1.2960461356037478`", "2.326143876106908`", "1.3973318488194628`"}, { RowBox[{"-", "2.5948797748746726`"}], RowBox[{"-", "4.65064621287657`"}], "1.4429097272839182`"}, { RowBox[{"-", "3.973152999159963`"}], RowBox[{"-", "2.2922624548614805`"}], "1.3999999999999997`"}, {"9.288599549172336`", "2.29538117654611`", "1.4753280304274206`"}, {"7.910343099251433`", "4.65374421245871`", "1.432416451647109`"}, {"0.0462791541061518`", RowBox[{"-", "4.615280744395591`"}], "1.4779175882013953`"}, { RowBox[{"-", "2.6603361880433463`"}], RowBox[{"-", "6.002745572168732`*^-17"}], "1.4`"}, {"7.975918801770629`", "0.0032193334927125977`", "1.475241823237778`"}, {"5.269312521461267`", "4.618494639384557`", "1.3973321904046152`"}, { RowBox[{"-", "3.9103084185824084`"}], RowBox[{"-", "6.941413160560491`"}], "1.4806231260432856`"}, { RowBox[{"-", "6.61694992554022`"}], RowBox[{"-", "2.3261699877033117`"}], "1.4025996794599354`"}, {"11.93240030443107`", "2.3292757565765143`", "1.4727151346593288`"}, {"9.225771742959168`", "6.944511160142632`", "1.394703052887741`"}, { RowBox[{"-", "6.56798363179423`"}], RowBox[{"-", "6.942982797435718`"}], "1.4428344951585923`"}, { RowBox[{"-", "7.91297900878185`"}], RowBox[{"-", "4.652315460159693`"}], "1.4052473152441656`"}, {"13.228429387672698`", "4.655421229032899`", "1.4700674988750966`"}, {"11.900088454822487`", "6.9122961944360775`", "1.4350275229354237`"}, {"1.3617104416783683`", RowBox[{"-", "2.324504728545775`"}], RowBox[{"-", "1.3597769118439331`"}]}, {"0.`", "0.`", RowBox[{"-", "1.4`"}]}, {"5.31816633136472`", "0.0015863588731668994`", RowBox[{"-", "1.3623449939458203`"}]}, {"3.9565616227882`", "2.3261713170904414`", RowBox[{"-", "1.402643100558762`"}]}, {"4.019430690254389`", RowBox[{"-", "2.323015394309803`"}], RowBox[{"-", "1.3220316328764965`"}]}, {"1.2960461356037478`", "2.326143876106908`", RowBox[{"-", "1.402668151180537`"}]}, { RowBox[{"-", "2.5948797748746726`"}], RowBox[{"-", "4.65064621287657`"}], RowBox[{"-", "1.3570902727160816`"}]}, { RowBox[{"-", "3.973152999159963`"}], RowBox[{"-", "2.2922624548614805`"}], RowBox[{"-", "1.4000000000000001`"}]}, {"9.288599549172336`", "2.29538117654611`", RowBox[{"-", "1.3246719695725793`"}]}, {"7.910343099251433`", "4.65374421245871`", RowBox[{"-", "1.3675835483528909`"}]}, {"0.0462791541061518`", RowBox[{"-", "4.615280744395591`"}], RowBox[{"-", "1.3220824117986045`"}]}, { RowBox[{"-", "2.6603361880433463`"}], RowBox[{"-", "6.002745572168732`*^-17"}], RowBox[{"-", "1.4`"}]}, {"7.975918801770629`", "0.0032193334927125977`", RowBox[{"-", "1.3247581767622219`"}]}, {"5.269312521461267`", "4.618494639384557`", RowBox[{"-", "1.4026678095953846`"}]}, { RowBox[{"-", "3.9103084185824084`"}], RowBox[{"-", "6.941413160560491`"}], RowBox[{"-", "1.3193768739567142`"}]}, { RowBox[{"-", "6.61694992554022`"}], RowBox[{"-", "2.3261699877033117`"}], RowBox[{"-", "1.3974003205400645`"}]}, {"11.93240030443107`", "2.3292757565765143`", RowBox[{"-", "1.327284865340671`"}]}, {"9.225771742959168`", "6.944511160142632`", RowBox[{"-", "1.4052969471122587`"}]}, { RowBox[{"-", "6.56798363179423`"}], RowBox[{"-", "6.942982797435718`"}], RowBox[{"-", "1.3571655048414075`"}]}, { RowBox[{"-", "7.91297900878185`"}], RowBox[{"-", "4.652315460159693`"}], RowBox[{"-", "1.3947526847558342`"}]}, {"13.228429387672698`", "4.655421229032899`", RowBox[{"-", "1.3299325011249032`"}]}, {"11.900088454822487`", "6.9122961944360775`", RowBox[{"-", "1.3649724770645761`"}]} }, 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.5718335951093025`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}, 3.5718274753189535`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.3617104416783683`", RowBox[{"-", "2.324504728545775`"}], "0.04022308815606679`"}, {"0.`", "0.`", "0.`"}, {"5.31816633136472`", "0.0015863588731668994`", "0.03765500605417952`"}, {"3.9565616227882`", "2.3261713170904414`", RowBox[{"-", "0.002643100558762157`"}]}, {"4.019430690254389`", RowBox[{"-", "2.323015394309803`"}], "0.07796836712350341`"}, {"1.2960461356037478`", "2.326143876106908`", RowBox[{"-", "0.0026681511805370928`"}]}, { RowBox[{"-", "2.5948797748746726`"}], RowBox[{"-", "4.65064621287657`"}], "0.042909727283918286`"}, { RowBox[{"-", "3.973152999159963`"}], RowBox[{"-", "2.2922624548614805`"}], RowBox[{"-", "2.220446049250313`*^-16"}]}, {"9.288599549172336`", "2.29538117654611`", "0.07532803042742064`"}, {"7.910343099251433`", "4.65374421245871`", "0.032416451647109046`"}, {"0.0462791541061518`", RowBox[{"-", "4.615280744395591`"}], "0.07791758820139538`"}, { RowBox[{"-", "2.6603361880433463`"}], RowBox[{"-", "6.002745572168732`*^-17"}], RowBox[{"-", "9.339516156450064`*^-17"}]}, {"7.975918801770629`", "0.0032193334927125977`", "0.07524182323777795`"}, {"5.269312521461267`", "4.618494639384557`", RowBox[{"-", "0.002667809595384707`"}]}, { RowBox[{"-", "3.9103084185824084`"}], RowBox[{"-", "6.941413160560491`"}], "0.0806231260432857`"}, { RowBox[{"-", "6.61694992554022`"}], RowBox[{"-", "2.3261699877033117`"}], "0.0025996794599354445`"}, {"11.93240030443107`", "2.3292757565765143`", "0.07271513465932888`"}, {"9.225771742959168`", "6.944511160142632`", RowBox[{"-", "0.00529694711225881`"}]}, { RowBox[{"-", "6.56798363179423`"}], RowBox[{"-", "6.942982797435718`"}], "0.04283449515859239`"}, { RowBox[{"-", "7.91297900878185`"}], RowBox[{"-", "4.652315460159693`"}], "0.005247315244165662`"}, {"13.228429387672698`", "4.655421229032899`", "0.07006749887509667`"}, {"11.900088454822487`", "6.9122961944360775`", "0.03502752293542377`"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"5.0427561525053495`", RowBox[{"-", "4.06598693228686`"}], "0.13650380341077506`"}, {"0.27178379548991627`", "4.069500796934516`", RowBox[{"-", "0.004570021456977935`"}]}, {"1.070634783601021`", RowBox[{"-", "6.357691159264765`"}], "0.13420204694692783`"}, { RowBox[{"-", "3.6745313427113344`"}], "1.749162569987408`", "0.0000262832108492983`"}, {"8.990295571780047`", RowBox[{"-", "1.7459477520924345`"}], "0.1039139246213946`"}, {"4.243687625195177`", "6.3607404571889195`", RowBox[{"-", "0.029706722864252466`"}]}, { RowBox[{"-", "2.8972554522977343`"}], RowBox[{"-", "8.690432809652355`"}], "0.13794895925435702`"}, { RowBox[{"-", "7.652497148821922`"}], RowBox[{"-", "0.5893341813238268`"}], "0.0024955959678749084`"}, {"12.967947527712772`", "0.5924399501970317`", "0.07281921815138698`"}, {"8.223669687783238`", "8.699858748227218`", RowBox[{"-", "0.06376057478156927`"}]}, { RowBox[{"-", "7.572253551947387`"}], RowBox[{"-", "8.697907765178407`"}], "0.04300068259861911`"}, { RowBox[{"-", "9.934688352041876`"}], RowBox[{"-", "4.6752475354059175`"}], RowBox[{"-", "0.02176986109398671`"}]}, {"15.250242426100447`", "4.679407145138723`", "0.09548744343996551`"}, {"12.914439971469562`", "8.66146132880405`", "0.038293233425869655`"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.571833595187303*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"ow", "=", RowBox[{ RowBox[{ RowBox[{"Join", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], "]"}], RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", "cnv"}], "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], "]"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "bc"}]}], "}"}]}], "]"}]}], "]"}]}], RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "bc"}]}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], ",", StyleBox[ RowBox[{"1", "/", "sq"}], FontColor->RGBColor[1, 0, 0]], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", " ", "j"}], ",", RowBox[{ RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0.0"}], ",", RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.5718275180942287`*^9, 3.5718275379998636`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}]}], "}"}]], "Output", CellChangeTimes->{3.5718335952029033`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.5718335952029033`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "0.0"}], ";", " ", RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}, { 3.570457123841494*^9, 3.5704571330923104`*^9}, {3.570457176959587*^9, 3.570457191296013*^9}, {3.570463789649801*^9, 3.570463797637015*^9}, { 3.5704639300032473`*^9, 3.5704639472412777`*^9}, {3.570464099403945*^9, 3.5704641196371803`*^9}, {3.570464183737693*^9, 3.5704641855628963`*^9}, { 3.570855532092019*^9, 3.5708555433240385`*^9}}], Cell[BoxData["1697.1795665016434`"], "Output", CellChangeTimes->{3.5718335953277035`*^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", "+", RowBox[{"2", "*", "bc"}], "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "bc"}], "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"i", "+", "bc"}]}], "]"}], "]"}]}]}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "Vee"}]}]], "Input"], Cell[BoxData["1695.2152807873563`"], "Output", CellChangeTimes->{3.571833595343303*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.33"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sw", "=", "0.34"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.5718281991046247`*^9, 3.571828207107439*^9}, { 3.5718290047524395`*^9, 3.571829011070451*^9}, {3.571829086558984*^9, 3.5718290934229956`*^9}, {3.571829132048663*^9, 3.5718291333122654`*^9}}], Cell[BoxData["1817.007459053706`"], "Output", CellChangeTimes->{3.571833595358903*^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[{"-", "3455.9501427205105`"}]], "Output", CellChangeTimes->{3.571833595358903*^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[{"-", "5004.640013663022`"}]], "Output", CellChangeTimes->{3.571833595374503*^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[{"-", "5037.081305424615`"}]], "Output", CellChangeTimes->{3.5718335953901033`*^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["1502.9428910643555`"], "Output", CellChangeTimes->{3.5718335954057035`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.296", "*", "bc", "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"rpi", "^", "2"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", RowBox[{"Ttot", "+", "Tpi"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, 3.5718276216004105`*^9, {3.5718276641640854`*^9, 3.571827676082506*^9}}], Cell[BoxData["1817.007459053706`"], "Output", CellChangeTimes->{3.5718335954213037`*^9}], Cell[BoxData["1502.9428910643555`"], "Output", CellChangeTimes->{3.5718335954213037`*^9}], Cell[BoxData[ RowBox[{"-", "5037.081305424615`"}]], "Output", CellChangeTimes->{3.5718335954213037`*^9}], Cell[BoxData["28.992857142857147`"], "Output", CellChangeTimes->{3.5718335954213037`*^9}], Cell[BoxData[ RowBox[{"-", "1717.130955306553`"}]], "Output", CellChangeTimes->{3.5718335954213037`*^9}], Cell[BoxData["858.7505777798524`"], "Output", CellChangeTimes->{3.5718335954213037`*^9}], Cell[BoxData["1.999568908292197`"], "Output", CellChangeTimes->{3.5718335954213037`*^9}], Cell[BoxData[ RowBox[{"-", "858.3803775267006`"}]], "Output", CellChangeTimes->{3.5718335954213037`*^9}] }, Open ]] }, WindowSize->{1308, 978}, WindowMargins->{{198, Automatic}, {Automatic, -9}}, 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, 1528, 28, 52, "Input"], Cell[CellGroupData[{ Cell[2110, 52, 321, 5, 31, "Input"], Cell[2434, 59, 4081, 71, 343, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6552, 135, 731, 15, 52, "Input"], Cell[7286, 152, 4158, 106, 566, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11481, 263, 664, 12, 31, "Input"], Cell[12148, 277, 780, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12965, 294, 955, 14, 31, "Input"], Cell[13923, 310, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14033, 316, 1560, 29, 31, "Input"], Cell[15596, 347, 780, 12, 31, "Output"] }, Open ]], Cell[16391, 362, 1419, 23, 31, "Input"], Cell[17813, 387, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[19430, 420, 1234, 18, 31, "Input"], Cell[20667, 440, 2534, 75, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23238, 520, 697, 14, 31, "Input"], Cell[23938, 536, 505, 9, 52, "Output"] }, Open ]], Cell[24458, 548, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[25391, 576, 5635, 122, 152, "Input"], Cell[31029, 700, 639, 11, 52, "Output"], Cell[31671, 713, 662, 11, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32370, 729, 519, 12, 31, "Input"], Cell[32892, 743, 780, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33709, 760, 1401, 38, 52, "Input"], Cell[35113, 800, 555, 10, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35705, 815, 827, 23, 92, "Input"], Cell[36535, 840, 73, 1, 31, "Output"], Cell[36611, 843, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36719, 849, 332, 6, 52, "Input"], Cell[37054, 857, 83, 1, 31, "Output"] }, Open ]], Cell[37152, 861, 1824, 35, 72, "Input"], Cell[38979, 898, 935, 19, 31, "Input"], Cell[CellGroupData[{ Cell[39939, 921, 3602, 96, 232, "Input"], Cell[43544, 1019, 8456, 150, 365, "Output"], Cell[52003, 1171, 29781, 710, 155, "Output"] }, Open ]], Cell[81799, 1884, 2567, 59, 52, "Input"], Cell[84369, 1945, 1309, 35, 72, "Input"], Cell[CellGroupData[{ Cell[85703, 1984, 4850, 86, 72, "Input"], Cell[90556, 2072, 9685, 149, 581, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[100278, 2226, 2506, 53, 112, "Input"], Cell[102787, 2281, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102895, 2287, 2272, 46, 72, "Input"], Cell[105170, 2335, 329, 7, 31, "Output"] }, Open ]], Cell[105514, 2345, 9192, 221, 252, "Input"], Cell[CellGroupData[{ Cell[114731, 2570, 584, 9, 31, "Input"], Cell[115318, 2581, 2548, 84, 356, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[117903, 2670, 2307, 48, 72, "Input"], Cell[120213, 2720, 685, 13, 52, "Output"], Cell[120901, 2735, 143, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[121081, 2743, 620, 15, 52, "Input"], Cell[121704, 2760, 209, 5, 31, "Output"], Cell[121916, 2767, 144, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[122097, 2775, 2767, 54, 72, "Input"], Cell[124867, 2831, 481, 10, 52, "Output"], Cell[125351, 2843, 148, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[125536, 2851, 3698, 81, 132, "Input"], Cell[129237, 2934, 707, 12, 72, "Output"] }, Open ]], Cell[129959, 2949, 2072, 49, 112, "Input"], Cell[132034, 3000, 561, 12, 52, "Input"], Cell[132598, 3014, 2148, 49, 92, "Input"], Cell[134749, 3065, 2452, 56, 92, "Input"], Cell[137204, 3123, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[138988, 3168, 923, 20, 31, "Input"], Cell[139914, 3190, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[140040, 3196, 711, 18, 31, "Input"], Cell[140754, 3216, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[140880, 3222, 507, 10, 31, "Input"], Cell[141390, 3234, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[141516, 3240, 823, 23, 31, "Input"], Cell[142342, 3265, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[142469, 3271, 204, 4, 31, "Input"], Cell[142676, 3277, 89, 1, 31, "Output"] }, Open ]], Cell[142780, 3281, 1971, 35, 92, "Input"], Cell[144754, 3318, 6879, 98, 31, "Input"], Cell[CellGroupData[{ Cell[151658, 3420, 666, 16, 52, "Input"], Cell[152327, 3438, 72, 1, 31, "Output"], Cell[152402, 3441, 128, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[152567, 3449, 9223, 166, 172, "Input"], Cell[161793, 3617, 611, 17, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[162441, 3639, 8768, 150, 152, "Input"], Cell[171212, 3791, 508, 14, 31, "Output"] }, Open ]], Cell[171735, 3808, 1166, 24, 72, "Input"], Cell[172904, 3834, 657, 11, 31, "Input"], Cell[173564, 3847, 744, 13, 31, "Input"], Cell[CellGroupData[{ Cell[174333, 3864, 872, 18, 31, "Input"], Cell[175208, 3884, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[175332, 3890, 1960, 54, 192, "Input"], Cell[177295, 3946, 757, 20, 72, "Output"], Cell[178055, 3968, 502, 13, 33, "Output"] }, Open ]], Cell[178572, 3984, 761, 12, 31, "Input"], Cell[CellGroupData[{ Cell[179358, 4000, 984, 20, 52, "Input"], Cell[180345, 4022, 107, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[180489, 4029, 2006, 56, 192, "Input"], Cell[182498, 4087, 755, 20, 72, "Output"], Cell[183256, 4109, 511, 14, 33, "Output"] }, Open ]], Cell[183782, 4126, 766, 13, 31, "Input"], Cell[CellGroupData[{ Cell[184573, 4143, 1062, 22, 52, "Input"], Cell[185638, 4167, 107, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[185782, 4174, 2177, 58, 192, "Input"], Cell[187962, 4234, 755, 20, 72, "Output"], Cell[188720, 4256, 553, 15, 33, "Output"] }, Open ]], Cell[189288, 4274, 1661, 41, 72, "Input"], Cell[190952, 4317, 3518, 87, 152, "Input"], Cell[CellGroupData[{ Cell[194495, 4408, 4578, 119, 192, "Input"], Cell[199076, 4529, 14857, 256, 345, 1207, 30, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[213948, 4788, 5257, 100, 72, "Input"], Cell[219208, 4890, 2696, 53, 92, "Input"], Cell[CellGroupData[{ Cell[221929, 4947, 939, 17, 72, "Input"], Cell[222871, 4966, 3617, 84, 132, "Output"], Cell[226491, 5052, 73, 1, 31, "Output"], Cell[226567, 5055, 71, 1, 31, "Output"] }, Open ]], Cell[226653, 5059, 10201, 233, 72, "Input"], Cell[236857, 5294, 6427, 103, 31, "Input"], Cell[243287, 5399, 10215, 234, 72, "Input"], Cell[253505, 5635, 5975, 94, 31, "Input"], Cell[259483, 5731, 8357, 172, 212, "Input"], Cell[CellGroupData[{ Cell[267865, 5907, 14771, 281, 232, "Input"], Cell[282639, 6190, 138508, 2418, 445, 33129, 689, "CachedBoxData", "BoxData", \ "Output"], Cell[421150, 8610, 19609, 360, 1162, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[440796, 8975, 5083, 125, 192, "Input"], Cell[445882, 9102, 74, 1, 31, "Output"], Cell[445959, 9105, 11148, 245, 1634, "Output"] }, Open ]], Cell[457122, 9353, 3049, 67, 72, "Input"], Cell[460174, 9422, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[462040, 9455, 4141, 95, 152, "Input"], Cell[466184, 9552, 5699, 162, 1622, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[471920, 9719, 8052, 192, 192, "Input"], Cell[479975, 9913, 3427, 109, 92, "Output"], Cell[483405, 10024, 1440, 21, 72, "Output"] }, Open ]], Cell[484860, 10048, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[486748, 10079, 2963, 56, 112, "Input"], Cell[489714, 10137, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[489841, 10143, 1021, 30, 72, "Input"], Cell[490865, 10175, 88, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[490990, 10181, 2732, 59, 112, "Input"], Cell[493725, 10242, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[493849, 10248, 499, 15, 52, "Input"], Cell[494351, 10265, 105, 2, 31, "Output"] }, Open ]], Cell[494471, 10270, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[495877, 10295, 1709, 32, 52, "Input"], Cell[497589, 10329, 104, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[497730, 10336, 1415, 43, 72, "Input"], Cell[499148, 10381, 106, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[499291, 10388, 2550, 50, 92, "Input"], Cell[501844, 10440, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[501971, 10446, 1892, 36, 192, "Input"], Cell[503866, 10484, 89, 1, 31, "Output"], Cell[503958, 10487, 90, 1, 31, "Output"], Cell[504051, 10490, 106, 2, 31, "Output"], Cell[504160, 10494, 90, 1, 31, "Output"], Cell[504253, 10497, 106, 2, 31, "Output"], Cell[504362, 10501, 89, 1, 31, "Output"], Cell[504454, 10504, 89, 1, 31, "Output"], Cell[504546, 10507, 106, 2, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)