(* 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[ 534465, 10773] NotebookOptionsPosition[ 525903, 10502] NotebookOutlinePosition[ 526404, 10522] CellTagsIndexPosition[ 526361, 10519] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "derived", " ", "from", " ", "Orca", " ", "optimization"}], ",", " ", RowBox[{ RowBox[{"ES", " ", "20", " ", "July", " ", "2013"}], ";", "\[IndentingNewLine]", RowBox[{ "all", " ", "interactions", " ", "correct", " ", "D6h", " ", "symmetry"}]}], ",", " ", RowBox[{"no", " ", "partition", " ", "into", " ", "irreps"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9, {3.5719810762355733`*^9, 3.5719810786847773`*^9}, 3.5723256977094345`*^9, 3.572583124905918*^9, { 3.5727976670013523`*^9, 3.572797667157352*^9}, {3.5728722828253174`*^9, 3.5728722835117188`*^9}, {3.5828818503073244`*^9, 3.582881865860552*^9}, { 3.5829947091380897`*^9, 3.582994757388974*^9}, {3.583168337140283*^9, 3.5831683914127784`*^9}, {3.5833164378524904`*^9, 3.583316445512104*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"t1", "=", RowBox[{"1.889726", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.000000", ",", "0.000000", ",", "0.000000"}], "}"}], ",", RowBox[{"{", RowBox[{"0.713817", ",", "1.236204", ",", "1.607732"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.713817"}], ",", "1.236204", ",", "1.607732"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.427769"}], ",", "0.000000", ",", "1.608349"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.713817"}], ",", RowBox[{"-", "1.236204"}], ",", "1.607732"}], "}"}], ",", RowBox[{"{", RowBox[{"0.713817", ",", RowBox[{"-", "1.236204"}], ",", "1.607732"}], "}"}], ",", RowBox[{"{", RowBox[{"1.427768", ",", "0.000000", ",", RowBox[{"-", "1.608349"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.713817", ",", "1.236203", ",", RowBox[{"-", "1.607732"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.713817"}], ",", "1.236203", ",", RowBox[{"-", "1.607732"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.427768"}], ",", RowBox[{"-", "0.000000"}], ",", RowBox[{"-", "1.608349"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.713817"}], ",", RowBox[{"-", "1.236203"}], ",", RowBox[{"-", "1.607732"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.713817", ",", RowBox[{"-", "1.236203"}], ",", RowBox[{"-", "1.607732"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.427769", ",", RowBox[{"-", "0.000000"}], ",", "1.608349"}], "}"}], ",", RowBox[{"{", RowBox[{"1.264800", ",", "2.191071", ",", "1.554404"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.264800"}], ",", "2.191071", ",", "1.554404"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.530476"}], ",", "0.000000", ",", "1.555086"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.264800"}], ",", RowBox[{"-", "2.191071"}], ",", "1.554404"}], "}"}], ",", RowBox[{"{", RowBox[{"1.264800", ",", RowBox[{"-", "2.191071"}], ",", "1.554404"}], "}"}], ",", RowBox[{"{", RowBox[{"2.530475", ",", "0.000000", ",", RowBox[{"-", "1.555086"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.264800", ",", "2.191070", ",", RowBox[{"-", "1.554405"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.264800"}], ",", "2.191070", ",", RowBox[{"-", "1.554404"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.530475"}], ",", RowBox[{"-", "0.000000"}], ",", RowBox[{"-", "1.555086"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.264800"}], ",", RowBox[{"-", "2.191070"}], ",", RowBox[{"-", "1.554405"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.264800", ",", RowBox[{"-", "2.191070"}], ",", RowBox[{"-", "1.554405"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.530476", ",", RowBox[{"-", "0.000000"}], ",", "1.555086"}], "}"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{"MatrixForm", "[", "t1", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"u", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.572874779609703*^9, 3.5728747810761056`*^9}, { 3.5828808323371353`*^9, 3.5828808323371353`*^9}, {3.5828814780014706`*^9, 3.582881486144685*^9}, 3.58288156895323*^9, {3.582881826470483*^9, 3.5828818370629015`*^9}, 3.5831581909579887`*^9, {3.5831583362290435`*^9, 3.58315834571386*^9}, 3.5833164265112705`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "0.`", "0.`"}, {"1.3489185441420002`", "2.336086840104`", "3.038172961432`"}, { RowBox[{"-", "1.3489185441420002`"}], "2.336086840104`", "3.038172961432`"}, { RowBox[{"-", "2.698092201294`"}], "0.`", "3.039338922374`"}, { RowBox[{"-", "1.3489185441420002`"}], RowBox[{"-", "2.336086840104`"}], "3.038172961432`"}, {"1.3489185441420002`", RowBox[{"-", "2.336086840104`"}], "3.038172961432`"}, {"2.698090311568`", "0.`", RowBox[{"-", "3.039338922374`"}]}, {"1.3489185441420002`", "2.336084950378`", RowBox[{"-", "3.038172961432`"}]}, { RowBox[{"-", "1.3489185441420002`"}], "2.336084950378`", RowBox[{"-", "3.038172961432`"}]}, { RowBox[{"-", "2.698090311568`"}], "0.`", RowBox[{"-", "3.039338922374`"}]}, { RowBox[{"-", "1.3489185441420002`"}], RowBox[{"-", "2.336084950378`"}], RowBox[{"-", "3.038172961432`"}]}, {"1.3489185441420002`", RowBox[{"-", "2.336084950378`"}], RowBox[{"-", "3.038172961432`"}]}, {"2.698092201294`", "0.`", "3.039338922374`"}, {"2.3901254447999998`", "4.140523836546`", "2.937397653304`"}, { RowBox[{"-", "2.3901254447999998`"}], "4.140523836546`", "2.937397653304`"}, { RowBox[{"-", "4.781906289576001`"}], "0.`", "2.938686446436`"}, { RowBox[{"-", "2.3901254447999998`"}], RowBox[{"-", "4.140523836546`"}], "2.937397653304`"}, {"2.3901254447999998`", RowBox[{"-", "4.140523836546`"}], "2.937397653304`"}, {"4.78190439985`", "0.`", RowBox[{"-", "2.938686446436`"}]}, {"2.3901254447999998`", "4.14052194682`", RowBox[{"-", "2.93739954303`"}]}, { RowBox[{"-", "2.3901254447999998`"}], "4.14052194682`", RowBox[{"-", "2.937397653304`"}]}, { RowBox[{"-", "4.78190439985`"}], "0.`", RowBox[{"-", "2.938686446436`"}]}, { RowBox[{"-", "2.3901254447999998`"}], RowBox[{"-", "4.14052194682`"}], RowBox[{"-", "2.93739954303`"}]}, {"2.3901254447999998`", RowBox[{"-", "4.14052194682`"}], RowBox[{"-", "2.93739954303`"}]}, {"4.781906289576001`", "0.`", "2.938686446436`"} }, 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.5833164881313787`*^9, {3.583316554665496*^9, 3.5833166349588366`*^9}, 3.5833166708232994`*^9, {3.583316707623764*^9, 3.583316827743975*^9}, 3.5833170187663107`*^9, 3.5833171023200574`*^9, {3.5833171376385193`*^9, 3.5833171795557933`*^9}, 3.5833174808079224`*^9, 3.5833180674457507`*^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["25"], "Output", CellChangeTimes->{ 3.583316488146979*^9, {3.5833165546966953`*^9, 3.5833166349744368`*^9}, 3.5833166708388996`*^9, {3.5833167076393642`*^9, 3.583316827759575*^9}, 3.583317018781911*^9, 3.583317102335657*^9, {3.5833171376541195`*^9, 3.583317179571393*^9}, 3.583317480823522*^9, 3.583318067461351*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Vn", "=", "0.0"}], ";", RowBox[{"cn1", "=", 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]", "\"\\""}], ",", "6.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dc1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t1", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"Vn", "=", RowBox[{"Vn", "+", RowBox[{ RowBox[{"cn1", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"cn1", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dc1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vn", "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.582995850540095*^9, 3.582995864080919*^9}, { 3.582995910101*^9, 3.5829959150930085`*^9}, {3.5829959706291056`*^9, 3.582996049892845*^9}, {3.582996107956147*^9, 3.582996110654952*^9}, { 3.582996169950656*^9, 3.582996180137474*^9}, 3.5829967604272933`*^9, 3.582997076873849*^9, {3.5831586933448706`*^9, 3.583158700286883*^9}, 3.5831677214696016`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "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.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5833164881625786`*^9, {3.5833165546966953`*^9, 3.5833166349900365`*^9}, 3.5833166708545*^9, {3.5833167076549644`*^9, 3.583316827775175*^9}, 3.583317018797511*^9, 3.5833171023512573`*^9, {3.5833171376697197`*^9, 3.583317179586993*^9}, 3.5833174808391223`*^9, 3.5833180674769506`*^9}], Cell[BoxData["759.7987883879645`"], "Output", CellChangeTimes->{ 3.5833164881625786`*^9, {3.5833165546966953`*^9, 3.5833166349900365`*^9}, 3.5833166708545*^9, {3.5833167076549644`*^9, 3.583316827775175*^9}, 3.583317018797511*^9, 3.5833171023512573`*^9, {3.5833171376697197`*^9, 3.583317179586993*^9}, 3.5833174808391223`*^9, 3.583318067492551*^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[{"\<\"Cr\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.583316488178179*^9, {3.5833165547122955`*^9, 3.5833166350212364`*^9}, 3.5833166708856993`*^9, {3.5833167076861644`*^9, 3.5833168277907753`*^9}, 3.583317018813111*^9, 3.5833171023824577`*^9, {3.58331713768532*^9, 3.5833171796025934`*^9}, 3.583317480870322*^9, 3.583318067492551*^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\"\>", ",", "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[{"\<\"Cr\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "25"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5833164882093787`*^9, {3.583316554743496*^9, 3.5833166350368366`*^9}, 3.5833166709012995`*^9, {3.583316707701764*^9, 3.5833168278063755`*^9}, 3.5833170188287106`*^9, 3.583317102398058*^9, {3.5833171377009196`*^9, 3.583317179618193*^9}, 3.5833174808859224`*^9, 3.583318067508151*^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[{ "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "1", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25"}], "}"}]], "Output", CellChangeTimes->{ 3.5833164882093787`*^9, {3.5833165547590957`*^9, 3.5833166350368366`*^9}, 3.5833166709168997`*^9, {3.5833167077173643`*^9, 3.583316827821975*^9}, 3.5833170188443108`*^9, 3.5833171024136577`*^9, {3.5833171377165194`*^9, 3.583317179633793*^9}, 3.5833174809015226`*^9, 3.583318067523751*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, { 3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.12", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.665"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", 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.665"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}, {3.5727961392438684`*^9, 3.57279614016427*^9}, {3.572796215855603*^9, 3.5727962193812094`*^9}, { 3.5828823288537655`*^9, 3.582882340694186*^9}, {3.5828823921430764`*^9, 3.582882399038288*^9}, {3.5831587284449325`*^9, 3.5831587301141353`*^9}, { 3.5831589544181294`*^9, 3.5831589551357307`*^9}, {3.583316971747828*^9, 3.5833169732298307`*^9}, {3.5833170955184455`*^9, 3.583317097000448*^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.665`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{ 3.5833164882249784`*^9, {3.5833165547746954`*^9, 3.583316635068037*^9}, 3.5833166709325*^9, {3.5833167077329645`*^9, 3.583316827837575*^9}, 3.583317018859911*^9, 3.5833171024292574`*^9, {3.5833171377321196`*^9, 3.583317179649393*^9}, 3.5833174809171224`*^9, 3.5833180675393505`*^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.665`", ",", "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.5833164882249784`*^9, {3.5833165547746954`*^9, 3.583316635068037*^9}, 3.5833166709325*^9, {3.5833167077329645`*^9, 3.583316827837575*^9}, 3.583317018859911*^9, 3.5833171024292574`*^9, {3.5833171377321196`*^9, 3.583317179649393*^9}, 3.5833174809171224`*^9, 3.5833180675393505`*^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\"\>", ",", "\<\"Cr\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.583316488256179*^9, {3.5833165547902956`*^9, 3.583316635068037*^9}, 3.5833166709480996`*^9, {3.5833167077485647`*^9, 3.583316827853175*^9}, 3.583317018859911*^9, 3.583317102460458*^9, {3.58331713774772*^9, 3.5833171796649933`*^9}, 3.583317480932722*^9, 3.5833180675393505`*^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]", "\"\\""}], ",", "6.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}, { 3.5828820926537504`*^9, 3.5828821399062333`*^9}, 3.5829971421131635`*^9, { 3.5829975246570354`*^9, 3.5829975255150366`*^9}, {3.583032802349436*^9, 3.5830328034414377`*^9}, {3.583158738054549*^9, 3.5831587439357595`*^9}, 3.583162720845049*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "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.`"}], "}"}]], "Output", CellChangeTimes->{ 3.583316488271779*^9, {3.583316554805896*^9, 3.5833166350836368`*^9}, 3.5833166709480996`*^9, {3.5833167077485647`*^9, 3.5833168278687754`*^9}, 3.5833170188755107`*^9, 3.5833171024760575`*^9, {3.5833171377633195`*^9, 3.5833171796805935`*^9}, 3.5833174809483223`*^9, 3.5833180675549507`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"bc", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", " ", RowBox[{"bc", "=", RowBox[{"bc", "+", "1"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "bc", "\[IndentingNewLine]", RowBox[{"bh", "=", RowBox[{"n", "-", "bc"}]}]}], "Input", CellChangeTimes->{{3.5688281182607965`*^9, 3.5688281434392405`*^9}, { 3.5691376772313223`*^9, 3.569137733516221*^9}, {3.569234042049968*^9, 3.569234051519184*^9}, 3.5692372799312553`*^9}], Cell[BoxData["13"], "Output", CellChangeTimes->{ 3.583316488287379*^9, {3.583316554821496*^9, 3.5833166350992365`*^9}, 3.5833166709637*^9, {3.5833167077641644`*^9, 3.5833168278843756`*^9}, 3.583317018891111*^9, 3.5833171024916573`*^9, {3.5833171377633195`*^9, 3.583317179696193*^9}, 3.5833174809639225`*^9, 3.583318067570551*^9}], Cell[BoxData["12"], "Output", CellChangeTimes->{ 3.583316488287379*^9, {3.583316554821496*^9, 3.5833166350992365`*^9}, 3.5833166709637*^9, {3.5833167077641644`*^9, 3.5833168278843756`*^9}, 3.583317018891111*^9, 3.5833171024916573`*^9, {3.5833171377633195`*^9, 3.583317179696193*^9}, 3.5833174809639225`*^9, 3.583318067570551*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}, {3.572874834178599*^9, 3.572874835364201*^9}, 3.5828808323371353`*^9}], Cell[BoxData["\<\"Fe(C5H5)2\"\>"], "Output", CellChangeTimes->{ 3.5833164883029785`*^9, {3.5833165548370957`*^9, 3.583316635130437*^9}, 3.5833166709948997`*^9, {3.5833167077953644`*^9, 3.5833168279155755`*^9}, 3.583317018922311*^9, 3.5833171025072575`*^9, {3.5833171377945194`*^9, 3.583317179727393*^9}, 3.5833174809951224`*^9, 3.583318067586151*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot1o", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "White", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Darker", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, { 3.5728748619466476`*^9, 3.572874863647051*^9}, 3.5828808323371353`*^9, { 3.5828824293179417`*^9, 3.582882430113543*^9}, {3.582946269303787*^9, 3.5829462807386074`*^9}, {3.583158785790633*^9, 3.5831587872570353`*^9}, { 3.5833170095934944`*^9, 3.583317011044297*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, 2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, 2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.698092201294, 0., 3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, -2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, -2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.698090311568, 0., -3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, 2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, 2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.698090311568, 0., -3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, -2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, -2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.698092201294, 0., 3.039338922374}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0., 0., 0.}, 0.665]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, 4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, 4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.781906289576001, 0., 2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, -4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, -4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.78190439985, 0., -2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, 4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, 4.14052194682, -2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.78190439985, 0., -2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, -4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, -4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.781906289576001, 0., 2.938686446436}, 0.12]}, Text3DBox["1", {0.7489185441420002, 2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["2", {-1.9489185441420003`, 2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["3", {-3.298092201294, 0., 3.039338922374}, {1, 0}], Text3DBox["4", {-1.9489185441420003`, -2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["5", {0.7489185441420002, -2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["6", {2.098090311568, 0., -3.039338922374}, {1, 0}], Text3DBox["7", {0.7489185441420002, 2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["8", {-1.9489185441420003`, 2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["9", {-3.298090311568, 0., -3.039338922374}, {1, 0}], Text3DBox["10", {-1.9489185441420003`, -2.336084950378, -3.038172961432}, { 1, 0}], Text3DBox["11", { 0.7489185441420002, -2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["12", {2.098092201294, 0., 3.039338922374}, {1, 0}], Text3DBox["13", {-0.6, 0., 0.}, {1, 0}], Text3DBox["14", {1.7901254447999997`, 4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["15", {-2.9901254448, 4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["16", {-5.381906289576, 0., 2.938686446436}, {1, 0}], Text3DBox["17", {-2.9901254448, -4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["18", {1.7901254447999997`, -4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["19", {4.1819043998500005`, 0., -2.938686446436}, {1, 0}], Text3DBox["20", {1.7901254447999997`, 4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["21", {-2.9901254448, 4.14052194682, -2.937397653304}, {1, 0}], Text3DBox["22", {-5.38190439985, 0., -2.938686446436}, {1, 0}], Text3DBox["23", {-2.9901254448, -4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["24", {1.7901254447999997`, -4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["25", {4.181906289576001, 0., 2.938686446436}, {1, 0}]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.583316488334179*^9, {3.5833165548682957`*^9, 3.583316635161637*^9}, 3.5833166710261*^9, {3.5833167078265643`*^9, 3.5833168279467754`*^9}, 3.583317018937911*^9, 3.583317102538458*^9, {3.58331713782572*^9, 3.5833171797585936`*^9}, 3.5833174810263224`*^9, 3.5833180676173515`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25"}, {"0.`", "2.6978370882840004`", "4.6728576971320726`", "5.395139650921842`", "4.672173680208`", "6.649339582269027`", "6.076345922864294`", "6.648330973201486`", "7.666272438447868`", "8.12585343019442`", "7.664931116068933`", "2.6976976556176404`", "4.062927258370959`", "2.0857277739040536`", "4.152902417358278`", "6.561570881496785`", "7.479110339530255`", "6.560545200637132`", "7.277742918750187`", "6.328314516552514`", "7.276254543189707`", "8.875085356012416`", "9.572584712928204`", "8.873445776299153`", "4.153625422624573`"}, {"2.6978370882840004`", "0.`", "2.6976976556176404`", "4.672173680208`", "5.395139650921842`", "7.666272438447868`", "6.648330973201486`", "6.076345922864294`", "6.649339582269027`", "7.664931116068933`", "8.12585343019442`", "4.6728576971320726`", "4.062927258370959`", "4.152902417358278`", "2.0857277739040536`", "4.153625422624573`", "6.560545200637132`", "7.479110339530255`", "8.875085356012416`", "7.27625609511339`", "6.328312732160398`", "7.277742918750187`", "8.873445776299153`", "9.572584712928204`", "6.561570881496785`"}, {"4.6728576971320726`", "2.6976976556176404`", "0.`", "2.6976976556176404`", "4.6728576971320726`", "8.128290721446167`", "7.666272860188332`", "6.649339301790716`", "6.078677844748293`", "6.649339301790716`", "7.666272860188332`", "5.396184402588`", "4.06414598799564`", "6.5608146199513655`", "4.153212393611799`", "2.08624353214935`", "4.153212393611799`", "6.5608146199513655`", "9.575340018154014`", "8.874417360591073`", "7.277372163786232`", "6.330802523297241`", "7.277373715774344`", "8.874417360591073`", "7.480675660950014`"}, {"5.395139650921842`", "4.672173680208`", "2.6976976556176404`", "0.`", "2.6978370882840004`", "7.666272438447868`", "8.12585343019442`", "7.664931116068933`", "6.649339582269027`", "6.076345922864294`", "6.648330973201486`", "4.6728576971320726`", "4.062927258370959`", "7.479110339530255`", "6.560545200637132`", "4.153625422624573`", "2.0857277739040536`", "4.152902417358278`", "8.875085356012416`", "9.572584712928204`", "8.873444503716435`", "7.277742918750187`", "6.328314516552514`", "7.27625609511339`", "6.561570881496785`"}, {"4.672173680208`", "5.395139650921842`", "4.6728576971320726`", "2.6978370882840004`", "0.`", "6.649339582269027`", "7.664931116068933`", "8.12585343019442`", "7.666272438447868`", "6.648330973201486`", "6.076345922864294`", "2.6976976556176404`", "4.062927258370959`", "6.560545200637132`", "7.479110339530255`", "6.561570881496785`", "4.152902417358278`", "2.0857277739040536`", "7.277742918750187`", "8.873445776299153`", "9.572583533289269`", "8.875085356012416`", "7.27625609511339`", "6.328314516552514`", "4.153625422624573`"}, {"6.649339582269027`", "7.666272438447868`", "8.128290721446167`", "7.666272438447868`", "6.649339582269027`", "0.`", "2.6976950741080605`", "4.672855115776934`", "5.396180623136`", "4.672855115776934`", "2.6976950741080605`", "6.078677844748293`", "4.06414473345065`", "7.277373158991933`", "8.874415886096639`", "9.575340018154014`", "8.874415886096639`", "7.277373158991933`", "2.0862435321493495`", "4.153210323150341`", "6.560811961776474`", "7.480671881840139`", "6.560811932414364`", "4.153210323150341`", "6.3308037673219175`"}, {"6.076345922864294`", "6.648330973201486`", "7.666272860188332`", "8.12585343019442`", "7.664931116068933`", "2.6976950741080605`", "0.`", "2.6978370882840004`", "4.672855115776934`", "5.395136377928831`", "4.672169900756`", "6.649339301790716`", "4.062926171823609`", "6.3283138098224425`", "7.276255480455239`", "8.875086164006305`", "9.572583533289269`", "8.873444503716435`", "4.153622797936739`", "2.0857276825997415`", "4.152902417358278`", "6.561568443034591`", "7.479107041213706`", "6.560541440511367`", "7.277743203569553`"}, {"6.648330973201486`", "6.076345922864294`", "6.649339301790716`", "7.664931116068933`", "8.12585343019442`", "4.672855115776934`", "2.6978370882840004`", "0.`", "2.6976950741080605`", "4.672169900756`", "5.395136377928831`", "7.666272860188332`", "4.062926171823609`", "7.276255480455239`", "6.3283138098224425`", "7.277743203569553`", "8.873444503716435`", "9.572583533289269`", "6.561568443034591`", "4.152902371502171`", "2.085727773904053`", "4.153622797936739`", "6.560541440511367`", "7.479107041213706`", "8.875086164006305`"}, {"7.666272438447868`", "6.649339582269027`", "6.078677844748293`", "6.649339582269027`", "7.666272438447868`", "5.396180623136`", "4.672855115776934`", "2.6976950741080605`", "0.`", "2.6976950741080605`", "4.672855115776934`", "8.128290721446167`", "4.06414473345065`", "8.874415886096639`", "7.277373158991933`", "6.3308037673219175`", "7.277373158991933`", "8.874415886096639`", "7.480671881840139`", "6.560811932414364`", "4.153210369533563`", "2.0862435321493495`", "4.153210323150341`", "6.560811932414364`", "9.575340018154014`"}, {"8.12585343019442`", "7.664931116068933`", "6.649339301790716`", "6.076345922864294`", "6.648330973201486`", "4.672855115776934`", "5.395136377928831`", "4.672169900756`", "2.6976950741080605`", "0.`", "2.6978370882840004`", "7.666272860188332`", "4.062926171823609`", "9.572583533289269`", "8.873444503716435`", "7.277743203569553`", "6.3283138098224425`", "7.276255480455239`", "6.561568443034591`", "7.479107041213706`", "6.5605414695388395`", "4.153622797936739`", "2.0857276825997415`", "4.152902371502171`", "8.875086164006305`"}, {"7.664931116068933`", "8.12585343019442`", "7.666272860188332`", "6.648330973201486`", "6.076345922864294`", "2.6976950741080605`", "4.672169900756`", "5.395136377928831`", "4.672855115776934`", "2.6978370882840004`", "0.`", "6.649339301790716`", "4.062926171823609`", "8.873444503716435`", "9.572583533289269`", "8.875086164006305`", "7.276255480455239`", "6.3283138098224425`", "4.153622797936739`", "6.560541440511367`", "7.479107066676095`", "6.561568443034591`", "4.152902371502171`", "2.0857276825997415`", "7.277743203569553`"}, {"2.6976976556176404`", "4.6728576971320726`", "5.396184402588`", "4.6728576971320726`", "2.6976976556176404`", "6.078677844748293`", "6.649339301790716`", "7.666272860188332`", "8.128290721446167`", "7.666272860188332`", "6.649339301790716`", "0.`", "4.06414598799564`", "4.153212393611799`", "6.5608146199513655`", "7.480675660950014`", "6.5608146199513655`", "4.153212393611799`", "6.330802523297241`", "7.277373715774344`", "8.874416087899396`", "9.575340018154014`", "8.874417360591073`", "7.277373715774344`", "2.08624353214935`"}, {"4.062927258370959`", "4.062927258370959`", "4.06414598799564`", "4.062927258370959`", "4.062927258370959`", "4.06414473345065`", "4.062926171823609`", "4.062926171823609`", "4.06414473345065`", "4.062926171823609`", "4.062926171823609`", "4.06414598799564`", "0.`", "5.6111444694038894`", "5.6111444694038894`", "5.6127093094826455`", "5.6111444694038894`", "5.6111444694038894`", "5.612707699477271`", "5.611144064214653`", "5.6111430749549`", "5.612707699477271`", "5.611144064214653`", "5.611144064214653`", "5.6127093094826455`"}, {"2.0857277739040536`", "4.152902417358278`", "6.5608146199513655`", "7.479110339530255`", "6.560545200637132`", "7.277373158991933`", "6.3283138098224425`", "7.276255480455239`", "8.874415886096639`", "9.572583533289269`", "8.873444503716435`", "4.153212393611799`", "5.6111444694038894`", "0.`", "4.7802508895999996`", "8.281423700118825`", "9.561723125647596`", "8.281047673092`", "7.5758107525229885`", "5.874797196334304`", "7.57390377956233`", "10.154324895372076`", "11.222288533618231`", "10.153273430980652`", "4.781689545697289`"}, {"4.152902417358278`", "2.0857277739040536`", "4.153212393611799`", "6.560545200637132`", "7.479110339530255`", "8.874415886096639`", "7.276255480455239`", "6.3283138098224425`", "7.277373158991933`", "8.873444503716435`", "9.572583533289269`", "6.5608146199513655`", "5.6111444694038894`", "4.7802508895999996`", "0.`", "4.781689545697289`", "8.281047673092`", "9.561723125647596`", "10.154324895372076`", "7.573905245352558`", "5.874795306608304`", "7.5758107525229885`", "10.153273430980652`", "11.222288533618231`", "8.281423700118825`"}, {"6.561570881496785`", "4.153625422624573`", "2.08624353214935`", "4.153625422624573`", "6.561570881496785`", "9.575340018154014`", "8.875086164006305`", "7.277743203569553`", "6.3308037673219175`", "7.277743203569553`", "8.875086164006305`", "7.480675660950014`", "5.6127093094826455`", "8.281423700118825`", "4.781689545697289`", "0.`", "4.781689545697289`", "8.281423700118825`", "11.225417008959871`", "10.154326553080372`", "7.575810316312884`", "5.8773728928723035`", "7.57581178205571`", "10.154326553080372`", "9.563812579152001`"}, {"7.479110339530255`", "6.560545200637132`", "4.153212393611799`", "2.0857277739040536`", "4.152902417358278`", "8.874415886096639`", "9.572583533289269`", "8.873444503716435`", "7.277373158991933`", "6.3283138098224425`", "7.276255480455239`", "6.5608146199513655`", "5.6111444694038894`", "9.561723125647596`", "8.281047673092`", "4.781689545697289`", "0.`", "4.7802508895999996`", "10.154324895372076`", "11.222288533618231`", "10.15327233756424`", "7.5758107525229885`", "5.874797196334304`", "7.573905245352558`", "8.281423700118825`"}, {"6.560545200637132`", "7.479110339530255`", "6.5608146199513655`", "4.152902417358278`", "2.0857277739040536`", "7.277373158991933`", "8.873444503716435`", "9.572583533289269`", "8.874415886096639`", "7.276255480455239`", "6.3283138098224425`", "4.153212393611799`", "5.6111444694038894`", "8.281047673092`", "9.561723125647596`", "8.281423700118825`", "4.7802508895999996`", "0.`", "7.5758107525229885`", "10.153273430980652`", "11.222287544358716`", "10.154324895372076`", "7.573905245352558`", "5.874797196334304`", "4.781689545697289`"}, {"7.277742918750187`", "8.875085356012416`", "9.575340018154014`", "8.875085356012416`", "7.277742918750187`", "2.0862435321493495`", "4.153622797936739`", "6.561568443034591`", "7.480671881840139`", "6.561568443034591`", "4.153622797936739`", "6.330802523297241`", "5.612707699477271`", "7.5758107525229885`", "10.154324895372076`", "11.225417008959871`", "10.154324895372076`", "7.5758107525229885`", "0.`", "4.781686963618439`", "8.28142111872329`", "9.5638087997`", "8.281421118429417`", "4.781686963618439`", "5.8773728928723035`"}, {"6.328314516552514`", "7.27625609511339`", "8.874417360591073`", "9.572584712928204`", "8.873445776299153`", "4.153210323150341`", "2.0857276825997415`", "4.152902371502171`", "6.560811932414364`", "7.479107041213706`", "6.560541440511367`", "7.277373715774344`", "5.611144064214653`", "5.874797196334304`", "7.573905245352558`", "10.154326553080372`", "11.222288533618231`", "10.153273430980652`", "4.781686963618439`", "0.`", "4.7802508896003735`", "8.281421118429417`", "9.561719852406988`", "8.28104389364`", "7.57581178205571`"}, {"7.276254543189707`", "6.328312732160398`", "7.277372163786232`", "8.873444503716435`", "9.572583533289269`", "6.560811961776474`", "4.152902417358278`", "2.085727773904053`", "4.153210369533563`", "6.5605414695388395`", "7.479107066676095`", "8.874416087899396`", "5.6111430749549`", "7.57390377956233`", "5.874795306608304`", "7.575810316312884`", "10.15327233756424`", "11.222287544358716`", "8.28142111872329`", "4.7802508896003735`", "0.`", "4.781686964127398`", "8.281043893640215`", "9.561719852407176`", "10.154325459537514`"}, {"8.875085356012416`", "7.277742918750187`", "6.330802523297241`", "7.277742918750187`", "8.875085356012416`", "7.480671881840139`", "6.561568443034591`", "4.153622797936739`", "2.0862435321493495`", "4.153622797936739`", "6.561568443034591`", "9.575340018154014`", "5.612707699477271`", "10.154324895372076`", "7.5758107525229885`", "5.8773728928723035`", "7.5758107525229885`", "10.154324895372076`", "9.5638087997`", "8.281421118429417`", "4.781686964127398`", "0.`", "4.781686963618439`", "8.281421118429417`", "11.225417008959871`"}, {"9.572584712928204`", "8.873445776299153`", "7.277373715774344`", "6.328314516552514`", "7.27625609511339`", "6.560811932414364`", "7.479107041213706`", "6.560541440511367`", "4.153210323150341`", "2.0857276825997415`", "4.152902371502171`", "8.874417360591073`", "5.611144064214653`", "11.222288533618231`", "10.153273430980652`", "7.57581178205571`", "5.874797196334304`", "7.573905245352558`", "8.281421118429417`", "9.561719852406988`", "8.281043893640215`", "4.781686963618439`", "0.`", "4.7802508895999996`", "10.154326553080372`"}, {"8.873445776299153`", "9.572584712928204`", "8.874417360591073`", "7.27625609511339`", "6.328314516552514`", "4.153210323150341`", "6.560541440511367`", "7.479107041213706`", "6.560811932414364`", "4.152902371502171`", "2.0857276825997415`", "7.277373715774344`", "5.611144064214653`", "10.153273430980652`", "11.222288533618231`", "10.154326553080372`", "7.573905245352558`", "5.874797196334304`", "4.781686963618439`", "8.28104389364`", "9.561719852407176`", "8.281421118429417`", "4.7802508895999996`", "0.`", "7.57581178205571`"}, {"4.153625422624573`", "6.561570881496785`", "7.480675660950014`", "6.561570881496785`", "4.153625422624573`", "6.3308037673219175`", "7.277743203569553`", "8.875086164006305`", "9.575340018154014`", "8.875086164006305`", "7.277743203569553`", "2.08624353214935`", "5.6127093094826455`", "4.781689545697289`", "8.281423700118825`", "9.563812579152001`", "8.281423700118825`", "4.781689545697289`", "5.8773728928723035`", "7.57581178205571`", "10.154325459537514`", "11.225417008959871`", "10.154326553080372`", "7.57581178205571`", "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.583316488349779*^9, {3.583316554899496*^9, 3.5833166351772366`*^9}, 3.5833166710417*^9, {3.5833167078421645`*^9, 3.5833168279623756`*^9}, 3.583317019015911*^9, 3.5833171026476583`*^9, {3.58331713784132*^9, 3.5833171797741933`*^9}, 3.583317481057523*^9, 3.5833180676329513`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, 3.571808490989086*^9, { 3.572601938592864*^9, 3.572601945722077*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.03"}], "||", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}]}], " ", ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"Dij", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, { 3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, { 3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, { 3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 3.5682778284359474`*^9}, 3.56882183684053*^9, {3.5688219650415554`*^9, 3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, { 3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, { 3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, { 3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, { 3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, { 3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}, { 3.571113899355363*^9, 3.571113958604267*^9}, 3.57111399989754*^9, { 3.5711140388820086`*^9, 3.571114044841219*^9}, {3.571115985874628*^9, 3.5711159997742524`*^9}, 3.5728753730883455`*^9, {3.572875468373313*^9, 3.572875469387315*^9}, {3.5828819646711254`*^9, 3.5828819661531277`*^9}, 3.5828820251524315`*^9, 3.5828834010280485`*^9, {3.583159274811492*^9, 3.583159275607094*^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"}, {"0.`", "2.6978370882840004`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6976976556176404`", "0", "2.0857277739040536`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.6978370882840004`", "0.`", "2.6976976556176404`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0857277739040536`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.6976976556176404`", "0.`", "2.6976976556176404`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.08624353214935`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.6976976556176404`", "0.`", "2.6978370882840004`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0857277739040536`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.6978370882840004`", "0.`", "0", "0", "0", "0", "0", "0", "2.6976976556176404`", "0", "0", "0", "0", "0", "2.0857277739040536`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0.`", "2.6976950741080605`", "0", "0", "0", "2.6976950741080605`", "0", "0", "0", "0", "0", "0", "0", "2.0862435321493495`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.6976950741080605`", "0.`", "2.6978370882840004`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0857276825997415`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.6978370882840004`", "0.`", "2.6976950741080605`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.085727773904053`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.6976950741080605`", "0.`", "2.6976950741080605`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0862435321493495`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.6976950741080605`", "0.`", "2.6978370882840004`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0857276825997415`", "0", "0"}, {"0", "0", "0", "0", "0", "2.6976950741080605`", "0", "0", "0", "2.6978370882840004`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0857276825997415`", "0"}, {"2.6976976556176404`", "0", "0", "0", "2.6976976556176404`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.08624353214935`"}, {"4.062927258370959`", "4.062927258370959`", "4.06414598799564`", "4.062927258370959`", "4.062927258370959`", "4.06414473345065`", "4.062926171823609`", "4.062926171823609`", "4.06414473345065`", "4.062926171823609`", "4.062926171823609`", "4.06414598799564`", "0.`", "5.6111444694038894`", "5.6111444694038894`", "5.6127093094826455`", "5.6111444694038894`", "5.6111444694038894`", "5.612707699477271`", "5.611144064214653`", "5.6111430749549`", "5.612707699477271`", "5.611144064214653`", "5.611144064214653`", "5.6127093094826455`"}, {"2.0857277739040536`", "0", "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.0857277739040536`", "0", "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.08624353214935`", "0", "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.0857277739040536`", "0", "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.0857277739040536`", "0", "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.0862435321493495`", "0", "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.0857276825997415`", "0", "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.085727773904053`", "0", "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.0862435321493495`", "0", "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.0857276825997415`", "0", "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.0857276825997415`", "0", "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.08624353214935`", "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.5833164883809795`*^9, {3.5833165549150963`*^9, 3.583316635208437*^9}, 3.5833166710729*^9, {3.5833167078733644`*^9, 3.5833168279935756`*^9}, 3.5833170190471115`*^9, 3.583317102678858*^9, {3.58331713787252*^9, 3.5833171797897935`*^9}, 3.583317481073123*^9, 3.583318067664151*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "C", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708947833985987`*^9}, {3.572528557136052*^9, 3.57252856181606*^9}, 3.57252899467002*^9, 3.572529147612689*^9, { 3.572529371395082*^9, 3.572529383875104*^9}, {3.572531374906601*^9, 3.5725313995390444`*^9}}], Cell[BoxData["12"], "Output", CellChangeTimes->{ 3.5833164883965793`*^9, {3.583316554930696*^9, 3.583316635224037*^9}, 3.5833166710885*^9, {3.5833167078889647`*^9, 3.5833168280091753`*^9}, 3.5833170190627112`*^9, 3.583317102678858*^9, {3.5833171378881197`*^9, 3.5833171798053937`*^9}, 3.5833174810887227`*^9, 3.5833180676797514`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "count", " ", "H", " ", "atoms", " ", "bonded", " ", "to", " ", "each", " ", "C", " ", "atom"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.570894821930666*^9}, 3.5709437180911617`*^9, { 3.57252947817727*^9, 3.572529509876525*^9}, {3.5725312638188057`*^9, 3.572531289964452*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output", CellChangeTimes->{ 3.583316488412179*^9, {3.5833165549462957`*^9, 3.583316635239637*^9}, 3.5833166711041*^9, {3.5833167078889647`*^9, 3.5833168280091753`*^9}, 3.583317019078311*^9, 3.583317102694458*^9, {3.5833171378881197`*^9, 3.5833171798209934`*^9}, 3.583317481104323*^9, 3.583318067695351*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2547"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.255"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2557"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2577"}]}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708948169698577`*^9}, {3.570894956839703*^9, 3.5708949736409326`*^9}, {3.5708961320833673`*^9, 3.570896139696181*^9}, 3.570896314088887*^9, {3.5708963602181683`*^9, 3.5708963666609793`*^9}, { 3.570896482038782*^9, 3.570896483645585*^9}, {3.5708965159376416`*^9, 3.570896521194851*^9}, {3.5709435995777535`*^9, 3.5709436285158043`*^9}, { 3.5709436695594764`*^9, 3.5709437026783347`*^9}, {3.57094471360691*^9, 3.5709447144805117`*^9}, {3.571117678992402*^9, 3.571117755775737*^9}, { 3.571117807801828*^9, 3.5711178311706696`*^9}, {3.5711179386236577`*^9, 3.5711179514468803`*^9}, {3.5711180538922606`*^9, 3.5711181329531994`*^9}, {3.571118284803866*^9, 3.5711183600895977`*^9}, 3.571118418542901*^9, {3.5711187358786583`*^9, 3.571118760152301*^9}, { 3.5711189251069903`*^9, 3.571118931175401*^9}, {3.571119065756838*^9, 3.571119069968845*^9}, {3.5711191828038435`*^9, 3.5711191858302484`*^9}, { 3.571119378740187*^9, 3.571119441873498*^9}, {3.571119489453582*^9, 3.5711194938839893`*^9}, {3.571119574255331*^9, 3.571119584660549*^9}, { 3.5711196943599415`*^9, 3.5711197163091803`*^9}, {3.5711198294561787`*^9, 3.5711198460078077`*^9}, {3.5711199544435987`*^9, 3.571119960418409*^9}, { 3.57112005791858*^9, 3.5711200601337843`*^9}, {3.571122132488224*^9, 3.5711221772447023`*^9}, {3.5711222335764017`*^9, 3.571122265696858*^9}, { 3.5711223339157777`*^9, 3.5711223418093915`*^9}, {3.5711223939602833`*^9, 3.5711223957542863`*^9}, {3.571122528292119*^9, 3.571122529087721*^9}, { 3.5711226076026583`*^9, 3.5711226245598884`*^9}, 3.5711226547927413`*^9, { 3.571122698566418*^9, 3.571122702404025*^9}, {3.5711227857393713`*^9, 3.5711228031646023`*^9}, {3.571122843085072*^9, 3.5711228432878723`*^9}, { 3.5711232359405622`*^9, 3.571123255206596*^9}, 3.571123320991912*^9, { 3.5711233774484105`*^9, 3.5711234457765303`*^9}, {3.571123624911645*^9, 3.571123633975261*^9}, {3.571123734751438*^9, 3.5711237424110518`*^9}, { 3.5711242010206575`*^9, 3.5711242671491733`*^9}, {3.5711245724573097`*^9, 3.5711245843601303`*^9}, {3.571124620583394*^9, 3.5711246628750687`*^9}, { 3.571124751951225*^9, 3.5711247552428303`*^9}, {3.5711248069569216`*^9, 3.5711248951750765`*^9}, {3.5711250701761837`*^9, 3.5711251099562535`*^9}, 3.571125196598806*^9, 3.571135972980551*^9, {3.5711360048826065`*^9, 3.571136013634222*^9}, {3.571760985057314*^9, 3.5717610088005557`*^9}, { 3.5717610576442413`*^9, 3.571761063431852*^9}, {3.5725287590472064`*^9, 3.5725287902628613`*^9}, {3.572529030674884*^9, 3.572529042343704*^9}, { 3.572529556645407*^9, 3.5725296188271165`*^9}, {3.572529678793622*^9, 3.5725297125832815`*^9}, 3.572529766184975*^9, 3.5725298594731393`*^9, { 3.572529901374813*^9, 3.5725299376604767`*^9}, {3.572531381084212*^9, 3.5725313843134174`*^9}, {3.572537228892798*^9, 3.572537235429209*^9}, { 3.572537287814101*^9, 3.5725373101221404`*^9}, {3.5725380504682407`*^9, 3.5725382242837462`*^9}, {3.572538261053011*^9, 3.572538276590638*^9}, { 3.5725383120339003`*^9, 3.5725383418611526`*^9}, {3.5725384271465025`*^9, 3.57253845404095*^9}, {3.572538956424232*^9, 3.5725390373103743`*^9}, { 3.572539306644847*^9, 3.5725394512103014`*^9}, {3.5725395463080683`*^9, 3.572539593981752*^9}, {3.5725398474041967`*^9, 3.5725398481529984`*^9}, { 3.572541676133009*^9, 3.572541712605873*^9}, {3.5725419267942495`*^9, 3.572541927823851*^9}, {3.5725420320164337`*^9, 3.572542068317698*^9}, { 3.572542098675351*^9, 3.5725421006877546`*^9}, {3.572542267561248*^9, 3.5725423059217153`*^9}, {3.5726066153250785`*^9, 3.5726066318455076`*^9}, {3.5726084389526815`*^9, 3.5726084422286873`*^9}, {3.5726211211499004`*^9, 3.5726211269999104`*^9}, 3.572624425506504*^9, 3.5726245538167295`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.6"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}]}], "Input", CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, { 3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, { 3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, { 3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, { 3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, { 3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, { 3.5712028115629635`*^9, 3.5712028346354036`*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.583316488427779*^9, {3.583316554961896*^9, 3.583316635255237*^9}, 3.5833166711197*^9, {3.583316707920165*^9, 3.5833168280403757`*^9}, 3.583317019078311*^9, 3.583317102710058*^9, {3.58331713791932*^9, 3.5833171798365936`*^9}, 3.5833174811199226`*^9, 3.583318067710951*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"StandardDeviation", "::", "shlen"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The argument \[NoBreak]\\!\\({}\\)\[NoBreak] should have \ at least two elements. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/StandardDeviation\\\", ButtonNote -> \ \\\"StandardDeviation::shlen\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.5833164885057793`*^9, {3.583316555039896*^9, 3.583316635333237*^9}, 3.5833166711977005`*^9, {3.583316707998165*^9, 3.583316828118376*^9}, 3.5833170191719112`*^9, 3.5833171027880583`*^9, {3.58331713799732*^9, 3.5833171799145937`*^9}, 3.5833174811979227`*^9, 3.5833180677889514`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Mean", "[", RowBox[{"{", "}"}], "]"}], "\[PlusMinus]", RowBox[{"StandardDeviation", "[", RowBox[{"{", "}"}], "]"}]}]], "Output", CellChangeTimes->{ 3.583316488427779*^9, {3.583316554961896*^9, 3.583316635255237*^9}, 3.5833166711197*^9, {3.583316707920165*^9, 3.5833168280403757`*^9}, 3.583317019078311*^9, 3.583317102710058*^9, {3.58331713791932*^9, 3.5833171798365936`*^9}, 3.5833174811199226`*^9, 3.5833180677889514`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.6"}], ")"}], " ", "&"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CC", "]"}], " "}]}], "Input", CellChangeTimes->{{3.571152083381344*^9, 3.571152103920519*^9}, { 3.571200806148241*^9, 3.571200809159046*^9}, 3.571201865936102*^9, { 3.5712028396274123`*^9, 3.57120285544584*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.6978370882840004`", ",", "2.6976976556176404`", ",", "2.6976976556176404`", ",", "2.6978370882840004`", ",", "2.6976950741080605`", ",", "2.6978370882840004`", ",", "2.6976950741080605`", ",", "2.6976950741080605`", ",", "2.6976950741080605`", ",", "2.6978370882840004`", ",", "2.6976976556176404`", ",", "2.6976976556176404`"}], "}"}]], "Output", CellChangeTimes->{ 3.5833164885213795`*^9, {3.583316555055496*^9, 3.583316635348837*^9}, 3.5833166712133*^9, {3.583316708013765*^9, 3.583316828133976*^9}, 3.5833170191719112`*^9, 3.5833171028036585`*^9, {3.58331713801292*^9, 3.583317179930194*^9}, 3.583317481213523*^9, 3.583318067804551*^9}], Cell[BoxData[ RowBox[{"2.6977432726699004`", "\[PlusMinus]", "0.00006929616615205752`"}]], "Output", CellChangeTimes->{ 3.5833164885213795`*^9, {3.583316555055496*^9, 3.583316635348837*^9}, 3.5833166712133*^9, {3.583316708013765*^9, 3.583316828133976*^9}, 3.5833170191719112`*^9, 3.5833171028036585`*^9, {3.58331713801292*^9, 3.583317179930194*^9}, 3.583317481213523*^9, 3.583318067804551*^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.0857277739040536`", ",", "2.0857277739040536`", ",", "2.08624353214935`", ",", "2.0857277739040536`", ",", "2.0857277739040536`", ",", "2.0862435321493495`", ",", "2.0857276825997415`", ",", "2.085727773904053`", ",", "2.0862435321493495`", ",", "2.0857276825997415`", ",", "2.0857276825997415`", ",", "2.08624353214935`"}], "}"}]], "Output", CellChangeTimes->{ 3.5833164885369797`*^9, {3.5833165550710964`*^9, 3.583316635364437*^9}, 3.5833166712289*^9, {3.5833167080293646`*^9, 3.583316828149576*^9}, 3.5833170191875114`*^9, 3.5833171028192587`*^9, {3.58331713801292*^9, 3.583317179945794*^9}, 3.583317481229123*^9, 3.5833180678201513`*^9}], Cell[BoxData[ RowBox[{"2.0858996704930743`", "\[PlusMinus]", "0.00025395866656712375`"}]], "Output", CellChangeTimes->{ 3.5833164885369797`*^9, {3.5833165550710964`*^9, 3.583316635364437*^9}, 3.5833166712289*^9, {3.5833167080293646`*^9, 3.583316828149576*^9}, 3.5833170191875114`*^9, 3.5833171028192587`*^9, {3.58331713801292*^9, 3.583317179945794*^9}, 3.583317481229123*^9, 3.5833180678201513`*^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.665`", ",", "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.5833164885369797`*^9, {3.583316555086696*^9, 3.5833166353800373`*^9}, 3.5833166712445*^9, {3.583316708044965*^9, 3.583316828165176*^9}, 3.5833170192031116`*^9, 3.5833171028192587`*^9, {3.58331713802852*^9, 3.583317179961394*^9}, 3.5833174812447233`*^9, 3.5833180678357515`*^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"}], "}"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "correct", " ", "at", " ", "end", " ", "for", " ", "0.6", " ", "occupation"}], " ", "*)"}]}]], "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}, {3.5829948120982704`*^9, 3.5829948445307274`*^9}}], Cell[BoxData["50.511673955119015`"], "Output", CellChangeTimes->{ 3.583316488568179*^9, {3.583316555117896*^9, 3.5833166354112372`*^9}, 3.5833166712757006`*^9, {3.583316708060565*^9, 3.5833168281807756`*^9}, 3.5833170192343116`*^9, 3.583317102850458*^9, {3.58331713805972*^9, 3.583317179992594*^9}, 3.583317481275923*^9, 3.583318067866952*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tcor", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], " ", "&&", " ", 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, { 3.582991562833333*^9, 3.5829915988069963`*^9}, {3.5829921898452344`*^9, 3.5829921900324345`*^9}}], Cell[BoxData["418.0425076635037`"], "Output", CellChangeTimes->{ 3.5833164885837793`*^9, {3.5833165551334963`*^9, 3.5833166354268374`*^9}, 3.5833166712913003`*^9, {3.583316708076165*^9, 3.583316828196376*^9}, 3.5833170192343116`*^9, 3.5833171028660583`*^9, {3.5833171380753202`*^9, 3.583317180008194*^9}, 3.583317481291523*^9, 3.583318067866952*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor", " ", RowBox[{"(*", " ", RowBox[{"add", " ", "\[Pi]", " ", "and", " ", "lone", " ", "pairs"}], " ", "*)"}]}]}]], "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}, { 3.5829912869936485`*^9, 3.5829912973208666`*^9}}], Cell[BoxData["468.55418161862275`"], "Output", CellChangeTimes->{ 3.5833164885993795`*^9, {3.5833165551490965`*^9, 3.583316635442437*^9}, 3.5833166713069005`*^9, {3.583316708091765*^9, 3.583316828211976*^9}, 3.5833170192499113`*^9, 3.5833171028660583`*^9, {3.5833171380909204`*^9, 3.583317180008194*^9}, 3.583317481307123*^9, 3.5833180678825517`*^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["16.982544064846792`"], "Output", CellChangeTimes->{ 3.5833164885993795`*^9, {3.5833165551646967`*^9, 3.5833166354580374`*^9}, 3.5833166713225*^9, {3.5833167081073647`*^9, 3.5833168282275763`*^9}, 3.5833170192655115`*^9, 3.5833171028816586`*^9, {3.5833171381065207`*^9, 3.583317180023794*^9}, 3.5833174813227234`*^9, 3.5833180678981514`*^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["33.52912989027222`"], "Output", CellChangeTimes->{ 3.5833164886149797`*^9, {3.5833165551646967`*^9, 3.5833166354736376`*^9}, 3.5833166713381004`*^9, {3.583316708122965*^9, 3.583316828243176*^9}, 3.5833170192655115`*^9, 3.5833171028972583`*^9, {3.5833171381065207`*^9, 3.583317180039394*^9}, 3.583317481338323*^9, 3.5833180679137516`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"conj", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "identify", " ", "C", " ", "atoms", " ", "at", " ", "double", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"conj", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"conj", "=", RowBox[{"Take", "[", RowBox[{"conj", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"nj", "=", RowBox[{"Length", "[", "conj", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, { 3.572624511540655*^9, 3.5726245129758577`*^9}, {3.5726259545431895`*^9, 3.5726259555883913`*^9}, {3.5726268385811424`*^9, 3.5726268436979513`*^9}, {3.5727156260686264`*^9, 3.5727156464110622`*^9}, 3.572767008717453*^9, 3.572767169428935*^9, {3.5727947272385855`*^9, 3.5727947348669987`*^9}, 3.582883509292238*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12"}], "}"}]], "Output", CellChangeTimes->{ 3.58331648863058*^9, {3.583316555195896*^9, 3.583316635489238*^9}, 3.5833166713537006`*^9, {3.583316708138565*^9, 3.5833168282587757`*^9}, 3.5833170192811117`*^9, 3.5833171029128585`*^9, {3.58331713813772*^9, 3.583317180054994*^9}, 3.583317481353923*^9, 3.583318067929352*^9}], Cell[BoxData["12"], "Output", CellChangeTimes->{ 3.58331648863058*^9, {3.583316555195896*^9, 3.583316635489238*^9}, 3.5833166713537006`*^9, {3.583316708138565*^9, 3.5833168282587757`*^9}, 3.5833170192811117`*^9, 3.5833171029128585`*^9, {3.58331713813772*^9, 3.583317180054994*^9}, 3.583317481353923*^9, 3.583318067929352*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "12", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "3", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "2", ",", "4", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "3", ",", "5", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "4", ",", "12", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "7", ",", "11", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "6", ",", "8", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "7", ",", "9", ",", "21"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "8", ",", "10", ",", "22"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "9", ",", "11", ",", "23"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "6", ",", "10", ",", "24"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "1", ",", "5", ",", "25"}], "}"}]}, { RowBox[{"{", RowBox[{ "13", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"22", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"23", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"24", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"25", ",", "12"}], "}"}]} }, 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.58331648863058*^9, {3.583316555195896*^9, 3.583316635489238*^9}, 3.5833166713537006`*^9, {3.583316708138565*^9, 3.5833168282587757`*^9}, 3.5833170192811117`*^9, 3.5833171029128585`*^9, {3.58331713813772*^9, 3.583317180054994*^9}, 3.583317481353923*^9, 3.583318067929352*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl"}], "]"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"c1", "=", "20"}], ";", " ", RowBox[{"c2", "=", "21"}], ";", " ", RowBox[{"c3", "=", "51"}], ";"}], "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpo", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "nj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "nj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "=", "3"}], ";", " ", RowBox[{"c", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}]}], ";", "\n", RowBox[{"c", "=", RowBox[{"Take", "[", RowBox[{"c", ",", "P"}], "]"}]}], ";", "\n", RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"T1", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T2", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T3", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", RowBox[{"nk", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rpi"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nl", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "nj"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "Input"]}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.5831604255797133`*^9, 3.583160427576517*^9}, { 3.583160465702984*^9, 3.5831604681053877`*^9}, {3.5831605027062488`*^9, 3.583160508618659*^9}, {3.5831606133416433`*^9, 3.583160658909323*^9}, { 3.583160696271389*^9, 3.583160765707111*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}], ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]], "Input", CellChangeTimes->{{3.5829548732814994`*^9, 3.5829548904415293`*^9}, { 3.58316628008947*^9, 3.5831662923354917`*^9}, 3.5831663279347544`*^9, { 3.5831663902880635`*^9, 3.583166573198385*^9}, {3.5831666109192514`*^9, 3.583166618220064*^9}, {3.583166650418521*^9, 3.5831666825857773`*^9}, { 3.5831667219758463`*^9, 3.583166728262657*^9}, {3.5831667791187468`*^9, 3.583166787339961*^9}, {3.583166830676837*^9, 3.5831668553872805`*^9}, { 3.5831668870397363`*^9, 3.583166939877029*^9}, {3.5831669909047184`*^9, 3.5831670400448046`*^9}, {3.5831671110561295`*^9, 3.5831671172649403`*^9}, {3.583167151429001*^9, 3.583167177340646*^9}, { 3.5831674873911905`*^9, 3.5831674885767927`*^9}, {3.5831675192932467`*^9, 3.583167554050108*^9}, {3.5831676300690413`*^9, 3.5831676378534546`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", RowBox[{"{", RowBox[{ "1.3489185441420002`", ",", "2.3367855920028853`", ",", "4.438172787055484`"}], "}"}]}, {"2", RowBox[{"{", RowBox[{ RowBox[{"-", "1.3489185441420002`"}], ",", "2.3367855920028853`", ",", "4.438172787055484`"}], "}"}]}, {"3", RowBox[{"{", RowBox[{ RowBox[{"-", "2.6968823164874074`"}], ",", "0.`", ",", "4.439338399580601`"}], "}"}]}, {"4", RowBox[{"{", RowBox[{ RowBox[{"-", "1.3489185441420004`"}], ",", RowBox[{"-", "2.3367855920028853`"}], ",", "4.438172787055484`"}], "}"}]}, {"5", RowBox[{"{", RowBox[{"1.3489185441420002`", ",", RowBox[{"-", "2.3367855920028853`"}], ",", "4.438172787055484`"}], "}"}]}, {"6", RowBox[{"{", RowBox[{"2.699300198069224`", ",", "0.`", ",", RowBox[{"-", "1.639339445168864`"}]}], "}"}]}, {"7", RowBox[{"{", RowBox[{"1.3489185441420004`", ",", "2.3353861979138744`", ",", RowBox[{"-", "1.638173135808799`"}]}], "}"}]}, {"8", RowBox[{"{", RowBox[{ RowBox[{"-", "1.3489185441420002`"}], ",", "2.3353861979138744`", ",", RowBox[{"-", "1.638173135808799`"}]}], "}"}]}, {"9", RowBox[{"{", RowBox[{ RowBox[{"-", "2.699300198069224`"}], ",", "0.`", ",", RowBox[{"-", "1.639339445168864`"}]}], "}"}]}, {"10", RowBox[{"{", RowBox[{ RowBox[{"-", "1.3489185441420004`"}], ",", RowBox[{"-", "2.3353861979138744`"}], ",", RowBox[{"-", "1.638173135808799`"}]}], "}"}]}, {"11", RowBox[{"{", RowBox[{"1.3489185441420004`", ",", RowBox[{"-", "2.3353861979138744`"}], ",", RowBox[{"-", "1.638173135808799`"}]}], "}"}]}, {"12", RowBox[{"{", RowBox[{"2.6968823164874074`", ",", "0.`", ",", "4.439338399580601`"}], "}"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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$, TableAlignments -> Left]]]], "Output", CellChangeTimes->{ 3.58331648869298*^9, {3.5833165552426963`*^9, 3.5833166355360374`*^9}, 3.5833166714161005`*^9, {3.583316708200965*^9, 3.5833168283211765`*^9}, 3.5833170193435116`*^9, 3.5833171029596586`*^9, {3.5833171381845207`*^9, 3.583317180117394*^9}, 3.5833174814007235`*^9, 3.5833180679917517`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}], ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]], "Input", CellChangeTimes->{{3.582954900877948*^9, 3.5829549269143934`*^9}, { 3.5831676678055077`*^9, 3.5831676724075155`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", RowBox[{"{", RowBox[{ "1.3489185441420002`", ",", "2.335388088205115`", ",", "1.6381731358085168`"}], "}"}]}, {"2", RowBox[{"{", RowBox[{ RowBox[{"-", "1.3489185441420002`"}], ",", "2.335388088205115`", ",", "1.6381731358085168`"}], "}"}]}, {"3", RowBox[{"{", RowBox[{ RowBox[{"-", "2.6993020861005927`"}], ",", "4.440892098500626`*^-16", ",", "1.6393394451673997`"}], "}"}]}, {"4", RowBox[{"{", RowBox[{ RowBox[{"-", "1.3489185441420004`"}], ",", RowBox[{"-", "2.335388088205115`"}], ",", "1.6381731358085168`"}], "}"}]}, {"5", RowBox[{"{", RowBox[{"1.3489185441420002`", ",", RowBox[{"-", "2.335388088205115`"}], ",", "1.6381731358085168`"}], "}"}]}, {"6", RowBox[{"{", RowBox[{"2.6968804250667757`", ",", "0.`", ",", RowBox[{"-", "4.439338399579136`"}]}], "}"}]}, {"7", RowBox[{"{", RowBox[{"1.3489185441420004`", ",", "2.3367837028421254`", ",", RowBox[{"-", "4.438172787055201`"}]}], "}"}]}, {"8", RowBox[{"{", RowBox[{ RowBox[{"-", "1.3489185441420002`"}], ",", "2.3367837028421254`", ",", RowBox[{"-", "4.438172787055201`"}]}], "}"}]}, {"9", RowBox[{"{", RowBox[{ RowBox[{"-", "2.6968804250667757`"}], ",", "0.`", ",", RowBox[{"-", "4.439338399579136`"}]}], "}"}]}, {"10", RowBox[{"{", RowBox[{ RowBox[{"-", "1.3489185441420004`"}], ",", RowBox[{"-", "2.3367837028421254`"}], ",", RowBox[{"-", "4.438172787055201`"}]}], "}"}]}, {"11", RowBox[{"{", RowBox[{"1.3489185441420004`", ",", RowBox[{"-", "2.3367837028421254`"}], ",", RowBox[{"-", "4.438172787055201`"}]}], "}"}]}, {"12", RowBox[{"{", RowBox[{ "2.6993020861005927`", ",", "4.440892098500626`*^-16", ",", "1.6393394451673997`"}], "}"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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$, TableAlignments -> Left]]]], "Output", CellChangeTimes->{ 3.58331648869298*^9, {3.5833165552582965`*^9, 3.5833166355516376`*^9}, 3.5833166714161005`*^9, {3.583316708216565*^9, 3.5833168283367763`*^9}, 3.5833170193435116`*^9, 3.583317102975259*^9, {3.5833171382001204`*^9, 3.5833171801329937`*^9}, 3.583317481416323*^9, 3.583318068007352*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}, { 3.5829548622834797`*^9, 3.5829548660586867`*^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.0932185441420001`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.0931488278088202`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1.0931488278088202`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "1.0932185441420001`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "6", ",", "1.0931475370540302`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "7", ",", "1.0932185441420001`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "8", ",", "1.0931475370540302`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "9", ",", "1.0931475370540302`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "6", ",", "1.0931475370540302`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "10", ",", "1.0932185441420001`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "1", ",", "1.0931488278088202`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "5", ",", "1.0931488278088202`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "1", ",", "1.5711136291854793`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "2", ",", "1.5711136291854793`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "3", ",", "1.57172299399782`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "4", ",", "1.5711136291854793`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "5", ",", "1.5711136291854793`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "6", ",", "1.571722366725325`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "7", ",", "1.5711130859118043`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "8", ",", "1.5711130859118043`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "9", ",", "1.571722366725325`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "10", ",", "1.5711130859118043`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "11", ",", "1.5711130859118043`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "12", ",", "1.57172299399782`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "1", ",", "1.2607277739040534`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "2", ",", "1.2607277739040534`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "3", ",", "1.2612435321493498`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "4", ",", "1.2607277739040534`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "5", ",", "1.2607277739040534`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "6", ",", "1.2612435321493494`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "7", ",", "1.2607276825997413`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "8", ",", "1.260727773904053`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "9", ",", "1.2612435321493494`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "10", ",", "1.2607276825997413`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "11", ",", "1.2607276825997413`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "12", ",", "1.2612435321493498`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5833164887241793`*^9, {3.5833165552894964`*^9, 3.5833166355828376`*^9}, 3.583316671447301*^9, {3.5833167082477655`*^9, 3.583316828367976*^9}, 3.5833170193747115`*^9, 3.5833171030064583`*^9, {3.5833171382313204`*^9, 3.583317180164194*^9}, 3.583317481447523*^9, 3.583318068022952*^9}], Cell[BoxData["36"], "Output", CellChangeTimes->{ 3.5833164887241793`*^9, {3.5833165552894964`*^9, 3.5833166355828376`*^9}, 3.583316671447301*^9, {3.5833167082477655`*^9, 3.583316828367976*^9}, 3.5833170193747115`*^9, 3.5833171030064583`*^9, {3.5833171382313204`*^9, 3.583317180164194*^9}, 3.583317481447523*^9, 3.583318068038552*^9}], Cell[BoxData["24"], "Output", CellChangeTimes->{ 3.5833164887241793`*^9, {3.5833165552894964`*^9, 3.5833166355828376`*^9}, 3.583316671447301*^9, {3.5833167082477655`*^9, 3.583316828367976*^9}, 3.5833170193747115`*^9, 3.5833171030064583`*^9, {3.5833171382313204`*^9, 3.583317180164194*^9}, 3.583317481447523*^9, 3.583318068038552*^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", ",", "13", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\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", ",", "13", ",", "24"}], "}"}]}], "]"}]}], ";"}], " "}], "\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", ",", "13", ",", "24"}], "}"}]}], "]"}]}], ";"}]}], "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, { 3.5828895831361504`*^9, 3.58288959443057*^9}, 3.5828896271594276`*^9, { 3.58289027200216*^9, 3.5828902835929804`*^9}, {3.583158442075229*^9, 3.5831584634472666`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Magenta", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "12"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], ";"}], "\[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.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, {3.582889608439395*^9, 3.582889608642195*^9}, { 3.5828896487186656`*^9, 3.5828896636166916`*^9}, {3.582890060496989*^9, 3.582890069342204*^9}, 3.5828901227566977`*^9, {3.5829456674859304`*^9, 3.5829456688587327`*^9}, {3.5829937674424353`*^9, 3.5829937755232496`*^9}, {3.583158469172477*^9, 3.5831584694064775`*^9}, { 3.5831585087653465`*^9, 3.583158509170947*^9}, 3.5833174728363085`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"vxc", "=", 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", ",", "12"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"vyc", "=", 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", ",", "12"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"vzc", "=", 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", ",", "12"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot7a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"vxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"vyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"vzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], ";"}], "\[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.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, {3.582889608439395*^9, 3.582889608642195*^9}, { 3.5828896487186656`*^9, 3.5828897420068293`*^9}, {3.58288983328259*^9, 3.5828898518622227`*^9}, {3.5828898900510893`*^9, 3.5828899117819276`*^9}, 3.5828900511057725`*^9, {3.582993808220907*^9, 3.582993812791715*^9}, { 3.5831584756152887`*^9, 3.5831584865977077`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "12"}], "}"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8a1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "12"}], "}"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "9", ",", "11"}], "}"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{"8", ",", "10"}], "}"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8c1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "9", ",", "11"}], "}"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8d1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{"8", ",", "10"}], "}"}]}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, {3.571838766139532*^9, 3.571838773908346*^9}, 3.5718388425484667`*^9, {3.571838961763876*^9, 3.571838969236289*^9}, {3.571839027970392*^9, 3.5718390313399982`*^9}, { 3.571839741203645*^9, 3.5718397450100517`*^9}, {3.572538612521628*^9, 3.572538701894185*^9}, {3.572538746213863*^9, 3.572538844837236*^9}, 3.5725397817592816`*^9, {3.5726093687611146`*^9, 3.5726094120667906`*^9}, { 3.5726201406133776`*^9, 3.5726201439517837`*^9}, {3.5726204342214937`*^9, 3.572620455406331*^9}, {3.5726210034788933`*^9, 3.572621009968505*^9}, { 3.5730240705968337`*^9, 3.5730240732800384`*^9}, {3.5829464814485598`*^9, 3.5829464828525624`*^9}, {3.5829554875325785`*^9, 3.5829555172974305`*^9}, {3.5829558113891473`*^9, 3.5829558214043646`*^9}, {3.5829896620479946`*^9, 3.5829896654956007`*^9}, {3.582989730173314*^9, 3.5829898077990503`*^9}, { 3.5829901572084637`*^9, 3.5829901760064974`*^9}, {3.5829902763926735`*^9, 3.5829902858930902`*^9}, {3.5829903332703733`*^9, 3.582990338683583*^9}, { 3.5829903846256638`*^9, 3.582990393268079*^9}, {3.5829904522205825`*^9, 3.5829904535621843`*^9}, {3.5829905024838705`*^9, 3.5829905538859606`*^9}, {3.5829906481881266`*^9, 3.5829907710227423`*^9}, {3.5829908906749525`*^9, 3.582990896041362*^9}, { 3.5831612881832285`*^9, 3.5831612991500473`*^9}, {3.5831613957922173`*^9, 3.583161400612626*^9}, {3.583161436695489*^9, 3.5831614686443453`*^9}, { 3.5831615462700815`*^9, 3.5831615574241014`*^9}, {3.5831616132097993`*^9, 3.58316162487862*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ">", "0.98"}], " ", "&&", " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "<", "1.05"}]}], ")"}], ",", RowBox[{"(", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}]}], "}"}], ")"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot7a", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8a1", ",", "Plot8b1", ",", "Plot8c", ",", "Plot8d", ",", "Plot8c1", ",", "Plot8d1", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.582889754502451*^9, 3.5828897624896655`*^9}, { 3.582945812441385*^9, 3.582945820631399*^9}, 3.5829909681446886`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, 2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, 2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.698092201294, 0., 3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, -2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, -2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.698090311568, 0., -3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, 2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, 2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.698090311568, 0., -3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, -2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, -2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.698092201294, 0., 3.039338922374}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0., 0., 0.}, 0.665]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, 4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, 4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.781906289576001, 0., 2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, -4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, -4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.78190439985, 0., -2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, 4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, 4.14052194682, -2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.78190439985, 0., -2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, -4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, -4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.781906289576001, 0., 2.938686446436}, 0.12]}, Text3DBox["1", {0.7489185441420002, 2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["2", {-1.9489185441420003`, 2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["3", {-3.298092201294, 0., 3.039338922374}, {1, 0}], Text3DBox["4", {-1.9489185441420003`, -2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["5", {0.7489185441420002, -2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["6", {2.098090311568, 0., -3.039338922374}, {1, 0}], Text3DBox["7", {0.7489185441420002, 2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["8", {-1.9489185441420003`, 2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["9", {-3.298090311568, 0., -3.039338922374}, {1, 0}], Text3DBox["10", {-1.9489185441420003`, -2.336084950378, -3.038172961432}, { 1, 0}], Text3DBox["11", { 0.7489185441420002, -2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["12", {2.098092201294, 0., 3.039338922374}, {1, 0}], Text3DBox["13", {-0.6, 0., 0.}, {1, 0}], Text3DBox["14", {1.7901254447999997`, 4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["15", {-2.9901254448, 4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["16", {-5.381906289576, 0., 2.938686446436}, {1, 0}], Text3DBox["17", {-2.9901254448, -4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["18", {1.7901254447999997`, -4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["19", {4.1819043998500005`, 0., -2.938686446436}, {1, 0}], Text3DBox["20", {1.7901254447999997`, 4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["21", {-2.9901254448, 4.14052194682, -2.937397653304}, {1, 0}], Text3DBox["22", {-5.38190439985, 0., -2.938686446436}, {1, 0}], Text3DBox["23", {-2.9901254448, -4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["24", {1.7901254447999997`, -4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["25", {4.181906289576001, 0., 2.938686446436}, {1, 0}], {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{0.7424044166683823, 1.2857123177272618`, 1.672119517494108}, 1.5711136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7424044166683823, 1.2857123177272618`, 1.672119517494108}, 1.5711136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-1.4849084861581894`, 0., 1.6727153193577096`}, 1.57172299399782]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7424044166683823, -1.2857123177272618`, 1.672119517494108}, 1.5711136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{0.7424044166683823, -1.2857123177272618`, 1.672119517494108}, 1.5711136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{1.4849074880768702`, 0., -1.6727153666008387`}, 1.571722366725325]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{0.7424044348389357, 1.2857113091467376`, -1.6721195584196955`}, 1.5711130859118043`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7424044348389357, 1.2857113091467376`, -1.6721195584196955`}, 1.5711130859118043`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-1.4849074880768702`, 0., -1.6727153666008387`}, 1.571722366725325]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7424044348389357, -1.2857113091467376`, \ -1.6721195584196955`}, 1.5711130859118043`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{ 0.7424044348389357, -1.2857113091467376`, -1.6721195584196955`}, 1.5711130859118043`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{1.4849084861581894`, 0., 1.6727153193577096`}, 1.57172299399782]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0., 2.336086840104, 3.038172961432}, 1.0932185441420001`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.023505372718, 1.168043420052, 3.038755941903}, 1.0931488278088202`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.023505372718, -1.168043420052, 3.038755941903}, 1.0931488278088202`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0., -2.336086840104, 3.038172961432}, 1.0932185441420001`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.0235044278550003`, 1.168042475189, -3.038755941903}, 1.0931475370540302`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0., 2.336084950378, -3.038172961432}, 1.0932185441420001`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.0235044278550003`, 1.168042475189, -3.038755941903}, 1.0931475370540302`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.0235044278550003`, -1.168042475189, -3.038755941903}, 1.0931475370540302`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.0235044278550003`, -1.168042475189, -3.038755941903}, 1.0931475370540302`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0., -2.336084950378, -3.038172961432}, 1.0932185441420001`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.023505372718, 1.168043420052, 3.038755941903}, 1.0931488278088202`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.023505372718, -1.168043420052, 3.038755941903}, 1.0931488278088202`]}, {Opacity[0.5], SphereBox[{2.105927719688886, 3.648002235727692, 2.9649043028462283`}, 1.2607277739040534`]}, {Opacity[0.5], SphereBox[{-2.105927719688886, 3.648002235727692, 2.9649043028462283`}, 1.2607277739040534`]}, {Opacity[0.5], SphereBox[{-4.213269243048291, 0., 2.966152777028991}, 1.2612435321493498`]}, {Opacity[0.5], SphereBox[{-2.105927719688886, -3.648002235727692, 2.9649043028462283`}, 1.2607277739040534`]}, {Opacity[0.5], SphereBox[{2.105927719688886, -3.648002235727692, 2.9649043028462283`}, 1.2607277739040534`]}, {Opacity[0.5], SphereBox[{4.213267353322291, 0., -2.966152777028991}, 1.2612435321493494`]}, {Opacity[0.5], SphereBox[{2.105927707247915, 3.6480003244411847`, -2.964905677975071}, 1.2607276825997413`]}, {Opacity[0.5], SphereBox[{-2.105927719688886, 3.648000346001692, -2.9649043028462283`}, 1.260727773904053]}, {Opacity[0.5], SphereBox[{-4.213267353322291, 0., -2.966152777028991}, 1.2612435321493494`]}, {Opacity[0.5], SphereBox[{-2.105927707247915, -3.6480003244411847`, -2.964905677975071}, 1.2607276825997413`]}, {Opacity[0.5], SphereBox[{2.105927707247915, -3.6480003244411847`, -2.964905677975071}, 1.2607276825997413`]}, {Opacity[0.5], SphereBox[{4.213269243048291, 0., 2.966152777028991}, 1.2612435321493498`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{1.3489185441420002`, 2.3367855920028853`, 4.438172787055484}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-1.3489185441420002`, 2.3367855920028853`, 4.438172787055484}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-1.3489185441420004`, -2.3367855920028853`, 4.438172787055484}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{2.6968823164874074`, 0., 4.439338399580601}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-2.6993020861005927`, 4.440892098500626*^-16, 1.6393394451673997`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{1.3489185441420002`, -2.335388088205115, 1.6381731358085168`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{1.3489185441420002`, 2.335388088205115, 1.6381731358085168`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-1.3489185441420002`, 2.335388088205115, 1.6381731358085168`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-1.3489185441420004`, -2.335388088205115, 1.6381731358085168`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{2.6993020861005927`, 4.440892098500626*^-16, 1.6393394451673997`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-2.6968823164874074`, 0., 4.439338399580601}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{1.3489185441420002`, -2.3367855920028853`, 4.438172787055484}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{2.699300198069224, 0., -1.639339445168864}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{1.3489185441420004`, 2.3353861979138744`, -1.638173135808799}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-2.699300198069224, 0., -1.639339445168864}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{1.3489185441420004`, -2.3353861979138744`, -1.638173135808799}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-1.3489185441420002`, 2.3367837028421254`, -4.438172787055201}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-1.3489185441420004`, -2.3367837028421254`, \ -4.438172787055201}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{2.6968804250667757`, 0., -4.439338399579136}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{1.3489185441420004`, 2.3367837028421254`, -4.438172787055201}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-2.6968804250667757`, 0., -4.439338399579136}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{1.3489185441420004`, -2.3367837028421254`, -4.438172787055201}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-1.3489185441420002`, 2.3353861979138744`, -1.638173135808799}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-1.3489185441420004`, -2.3353861979138744`, \ -1.638173135808799}, 1.4]}, TubeBox[{{-1.3489185441420002`, 2.336086840104, 3.038172961432}, { 1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-2.698092201294, 0., 3.039338922374}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-1.3489185441420002`, -2.336086840104, 3.038172961432}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{1.3489185441420002`, -2.336086840104, 3.038172961432}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{1.3489185441420002`, 2.336084950378, -3.038172961432}, { 2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{-1.3489185441420002`, 2.336084950378, -3.038172961432}, { 1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-2.698090311568, 0., -3.039338922374}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-1.3489185441420002`, -2.336084950378, -3.038172961432}, \ {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{1.3489185441420002`, -2.336084950378, -3.038172961432}, { 2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{ 1.3489185441420002`, -2.336084950378, -3.038172961432}, \ {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{2.698092201294, 0., 3.039338922374}, {1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{2.698092201294, 0., 3.039338922374}, { 1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, { 1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{2.3901254447999998`, 4.140523836546, 2.937397653304}, { 1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-2.3901254447999998`, 4.140523836546, 2.937397653304}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-4.781906289576001, 0., 2.938686446436}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{-2.3901254447999998`, -4.140523836546, 2.937397653304}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{2.3901254447999998`, -4.140523836546, 2.937397653304}, { 1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{4.78190439985, 0., -2.938686446436}, {2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{2.3901254447999998`, 4.14052194682, -2.93739954303}, { 1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-2.3901254447999998`, 4.14052194682, -2.937397653304}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-4.78190439985, 0., -2.938686446436}, {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{-2.3901254447999998`, -4.14052194682, -2.93739954303}, \ {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{2.3901254447999998`, -4.14052194682, -2.93739954303}, { 1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{4.781906289576001, 0., 2.938686446436}, {2.698092201294, 0., 3.039338922374}}, 0.06]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{707., 718.}, SphericalRegion->True, ViewPoint->{1.167174629469249, 2.946627678964634, 1.1853643768406457`}, ViewVertical->{-0.2028260173177218, 1.0778759359289543`, -0.37793021364728435`}]], "Output", CellChangeTimes->{ 3.58331648880218*^9, {3.5833165553674965`*^9, 3.583316635660838*^9}, 3.583316671525301*^9, {3.5833167083413653`*^9, 3.5833168284459763`*^9}, 3.583317019452712*^9, 3.583317103084459*^9, {3.5833171383249207`*^9, 3.5833171802577944`*^9}, 3.583317481525523*^9, 3.5833180681165524`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.582889754502451*^9, 3.5828897624896655`*^9}, { 3.582945812441385*^9, 3.582945820631399*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, 2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, 2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.698092201294, 0., 3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, -2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, -2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.698090311568, 0., -3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, 2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, 2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.698090311568, 0., -3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, -2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, -2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.698092201294, 0., 3.039338922374}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0., 0., 0.}, 0.665]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, 4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, 4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.781906289576001, 0., 2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, -4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, -4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.78190439985, 0., -2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, 4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, 4.14052194682, -2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.78190439985, 0., -2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, -4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, -4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.781906289576001, 0., 2.938686446436}, 0.12]}, Text3DBox["1", {0.7489185441420002, 2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["2", {-1.9489185441420003`, 2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["3", {-3.298092201294, 0., 3.039338922374}, {1, 0}], Text3DBox["4", {-1.9489185441420003`, -2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["5", {0.7489185441420002, -2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["6", {2.098090311568, 0., -3.039338922374}, {1, 0}], Text3DBox["7", {0.7489185441420002, 2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["8", {-1.9489185441420003`, 2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["9", {-3.298090311568, 0., -3.039338922374}, {1, 0}], Text3DBox["10", {-1.9489185441420003`, -2.336084950378, -3.038172961432}, { 1, 0}], Text3DBox["11", { 0.7489185441420002, -2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["12", {2.098092201294, 0., 3.039338922374}, {1, 0}], Text3DBox["13", {-0.6, 0., 0.}, {1, 0}], Text3DBox["14", {1.7901254447999997`, 4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["15", {-2.9901254448, 4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["16", {-5.381906289576, 0., 2.938686446436}, {1, 0}], Text3DBox["17", {-2.9901254448, -4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["18", {1.7901254447999997`, -4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["19", {4.1819043998500005`, 0., -2.938686446436}, {1, 0}], Text3DBox["20", {1.7901254447999997`, 4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["21", {-2.9901254448, 4.14052194682, -2.937397653304}, {1, 0}], Text3DBox["22", {-5.38190439985, 0., -2.938686446436}, {1, 0}], Text3DBox["23", {-2.9901254448, -4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["24", {1.7901254447999997`, -4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["25", {4.181906289576001, 0., 2.938686446436}, {1, 0}], TubeBox[{{-1.3489185441420002`, 2.336086840104, 3.038172961432}, { 1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-2.698092201294, 0., 3.039338922374}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-1.3489185441420002`, -2.336086840104, 3.038172961432}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{1.3489185441420002`, -2.336086840104, 3.038172961432}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{1.3489185441420002`, 2.336084950378, -3.038172961432}, { 2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{-1.3489185441420002`, 2.336084950378, -3.038172961432}, { 1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-2.698090311568, 0., -3.039338922374}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-1.3489185441420002`, -2.336084950378, -3.038172961432}, \ {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{1.3489185441420002`, -2.336084950378, -3.038172961432}, { 2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{ 1.3489185441420002`, -2.336084950378, -3.038172961432}, \ {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{2.698092201294, 0., 3.039338922374}, {1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{2.698092201294, 0., 3.039338922374}, { 1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, { 1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{2.3901254447999998`, 4.140523836546, 2.937397653304}, { 1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-2.3901254447999998`, 4.140523836546, 2.937397653304}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-4.781906289576001, 0., 2.938686446436}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{-2.3901254447999998`, -4.140523836546, 2.937397653304}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{2.3901254447999998`, -4.140523836546, 2.937397653304}, { 1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{4.78190439985, 0., -2.938686446436}, {2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{2.3901254447999998`, 4.14052194682, -2.93739954303}, { 1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-2.3901254447999998`, 4.14052194682, -2.937397653304}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-4.78190439985, 0., -2.938686446436}, {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{-2.3901254447999998`, -4.14052194682, -2.93739954303}, \ {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{2.3901254447999998`, -4.14052194682, -2.93739954303}, { 1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{4.781906289576001, 0., 2.938686446436}, {2.698092201294, 0., 3.039338922374}}, 0.06]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5833164888333797`*^9, {3.583316555398697*^9, 3.5833166356920376`*^9}, 3.583316671556501*^9, {3.5833167083725653`*^9, 3.5833168284771767`*^9}, 3.583317019483912*^9, 3.5833171031156588`*^9, {3.583317138356121*^9, 3.5833171802889943`*^9}, 3.5833174815567236`*^9, 3.583318068163352*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", "Plot7a", ",", 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.5829458295702147`*^9, 3.582945854015458*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, 2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, 2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.698092201294, 0., 3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, -2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, -2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.698090311568, 0., -3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, 2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, 2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.698090311568, 0., -3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, -2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, -2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.698092201294, 0., 3.039338922374}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0., 0., 0.}, 0.665]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, 4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, 4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.781906289576001, 0., 2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, -4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, -4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.78190439985, 0., -2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, 4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, 4.14052194682, -2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.78190439985, 0., -2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, -4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, -4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.781906289576001, 0., 2.938686446436}, 0.12]}, Text3DBox["1", {0.7489185441420002, 2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["2", {-1.9489185441420003`, 2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["3", {-3.298092201294, 0., 3.039338922374}, {1, 0}], Text3DBox["4", {-1.9489185441420003`, -2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["5", {0.7489185441420002, -2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["6", {2.098090311568, 0., -3.039338922374}, {1, 0}], Text3DBox["7", {0.7489185441420002, 2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["8", {-1.9489185441420003`, 2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["9", {-3.298090311568, 0., -3.039338922374}, {1, 0}], Text3DBox["10", {-1.9489185441420003`, -2.336084950378, -3.038172961432}, { 1, 0}], Text3DBox["11", { 0.7489185441420002, -2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["12", {2.098092201294, 0., 3.039338922374}, {1, 0}], Text3DBox["13", {-0.6, 0., 0.}, {1, 0}], Text3DBox["14", {1.7901254447999997`, 4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["15", {-2.9901254448, 4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["16", {-5.381906289576, 0., 2.938686446436}, {1, 0}], Text3DBox["17", {-2.9901254448, -4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["18", {1.7901254447999997`, -4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["19", {4.1819043998500005`, 0., -2.938686446436}, {1, 0}], Text3DBox["20", {1.7901254447999997`, 4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["21", {-2.9901254448, 4.14052194682, -2.937397653304}, {1, 0}], Text3DBox["22", {-5.38190439985, 0., -2.938686446436}, {1, 0}], Text3DBox["23", {-2.9901254448, -4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["24", {1.7901254447999997`, -4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["25", {4.181906289576001, 0., 2.938686446436}, {1, 0}], TubeBox[{{-1.3489185441420002`, 2.336086840104, 3.038172961432}, { 1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-2.698092201294, 0., 3.039338922374}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-1.3489185441420002`, -2.336086840104, 3.038172961432}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{1.3489185441420002`, -2.336086840104, 3.038172961432}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{1.3489185441420002`, 2.336084950378, -3.038172961432}, { 2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{-1.3489185441420002`, 2.336084950378, -3.038172961432}, { 1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-2.698090311568, 0., -3.039338922374}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-1.3489185441420002`, -2.336084950378, -3.038172961432}, \ {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{1.3489185441420002`, -2.336084950378, -3.038172961432}, { 2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{ 1.3489185441420002`, -2.336084950378, -3.038172961432}, \ {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{2.698092201294, 0., 3.039338922374}, {1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{2.698092201294, 0., 3.039338922374}, { 1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, { 1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{2.3901254447999998`, 4.140523836546, 2.937397653304}, { 1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-2.3901254447999998`, 4.140523836546, 2.937397653304}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-4.781906289576001, 0., 2.938686446436}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{-2.3901254447999998`, -4.140523836546, 2.937397653304}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{2.3901254447999998`, -4.140523836546, 2.937397653304}, { 1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{4.78190439985, 0., -2.938686446436}, {2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{2.3901254447999998`, 4.14052194682, -2.93739954303}, { 1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-2.3901254447999998`, 4.14052194682, -2.937397653304}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-4.78190439985, 0., -2.938686446436}, {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{-2.3901254447999998`, -4.14052194682, -2.93739954303}, \ {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{2.3901254447999998`, -4.14052194682, -2.93739954303}, { 1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{4.781906289576001, 0., 2.938686446436}, {2.698092201294, 0., 3.039338922374}}, 0.06], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0., 2.336086840104, 3.038172961432}, 1.0932185441420001`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.023505372718, 1.168043420052, 3.038755941903}, 1.0931488278088202`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.023505372718, -1.168043420052, 3.038755941903}, 1.0931488278088202`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0., -2.336086840104, 3.038172961432}, 1.0932185441420001`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.0235044278550003`, 1.168042475189, -3.038755941903}, 1.0931475370540302`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0., 2.336084950378, -3.038172961432}, 1.0932185441420001`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.0235044278550003`, 1.168042475189, -3.038755941903}, 1.0931475370540302`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.0235044278550003`, -1.168042475189, -3.038755941903}, 1.0931475370540302`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.0235044278550003`, -1.168042475189, -3.038755941903}, 1.0931475370540302`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0., -2.336084950378, -3.038172961432}, 1.0932185441420001`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.023505372718, 1.168043420052, 3.038755941903}, 1.0931488278088202`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.023505372718, -1.168043420052, 3.038755941903}, 1.0931488278088202`]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.58331648884898*^9, {3.583316555429897*^9, 3.583316635723238*^9}, 3.583316671587701*^9, {3.5833167084037657`*^9, 3.583316828508376*^9}, 3.583317019515112*^9, 3.5833171031468587`*^9, {3.5833171383873205`*^9, 3.5833171803201942`*^9}, 3.5833174816035233`*^9, 3.583318068194552*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", "Plot7", ",", 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.5829458295702147`*^9, {3.5829459161191673`*^9, 3.582945922015977*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, 2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, 2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.698092201294, 0., 3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, -2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, -2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.698090311568, 0., -3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, 2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, 2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.698090311568, 0., -3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, -2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, -2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.698092201294, 0., 3.039338922374}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0., 0., 0.}, 0.665]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, 4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, 4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.781906289576001, 0., 2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, -4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, -4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.78190439985, 0., -2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, 4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, 4.14052194682, -2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.78190439985, 0., -2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, -4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, -4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.781906289576001, 0., 2.938686446436}, 0.12]}, Text3DBox["1", {0.7489185441420002, 2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["2", {-1.9489185441420003`, 2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["3", {-3.298092201294, 0., 3.039338922374}, {1, 0}], Text3DBox["4", {-1.9489185441420003`, -2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["5", {0.7489185441420002, -2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["6", {2.098090311568, 0., -3.039338922374}, {1, 0}], Text3DBox["7", {0.7489185441420002, 2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["8", {-1.9489185441420003`, 2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["9", {-3.298090311568, 0., -3.039338922374}, {1, 0}], Text3DBox["10", {-1.9489185441420003`, -2.336084950378, -3.038172961432}, { 1, 0}], Text3DBox["11", { 0.7489185441420002, -2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["12", {2.098092201294, 0., 3.039338922374}, {1, 0}], Text3DBox["13", {-0.6, 0., 0.}, {1, 0}], Text3DBox["14", {1.7901254447999997`, 4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["15", {-2.9901254448, 4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["16", {-5.381906289576, 0., 2.938686446436}, {1, 0}], Text3DBox["17", {-2.9901254448, -4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["18", {1.7901254447999997`, -4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["19", {4.1819043998500005`, 0., -2.938686446436}, {1, 0}], Text3DBox["20", {1.7901254447999997`, 4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["21", {-2.9901254448, 4.14052194682, -2.937397653304}, {1, 0}], Text3DBox["22", {-5.38190439985, 0., -2.938686446436}, {1, 0}], Text3DBox["23", {-2.9901254448, -4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["24", {1.7901254447999997`, -4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["25", {4.181906289576001, 0., 2.938686446436}, {1, 0}], TubeBox[{{-1.3489185441420002`, 2.336086840104, 3.038172961432}, { 1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-2.698092201294, 0., 3.039338922374}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-1.3489185441420002`, -2.336086840104, 3.038172961432}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{1.3489185441420002`, -2.336086840104, 3.038172961432}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{1.3489185441420002`, 2.336084950378, -3.038172961432}, { 2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{-1.3489185441420002`, 2.336084950378, -3.038172961432}, { 1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-2.698090311568, 0., -3.039338922374}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-1.3489185441420002`, -2.336084950378, -3.038172961432}, \ {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{1.3489185441420002`, -2.336084950378, -3.038172961432}, { 2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{ 1.3489185441420002`, -2.336084950378, -3.038172961432}, \ {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{2.698092201294, 0., 3.039338922374}, {1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{2.698092201294, 0., 3.039338922374}, { 1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, { 1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{2.3901254447999998`, 4.140523836546, 2.937397653304}, { 1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-2.3901254447999998`, 4.140523836546, 2.937397653304}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-4.781906289576001, 0., 2.938686446436}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{-2.3901254447999998`, -4.140523836546, 2.937397653304}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{2.3901254447999998`, -4.140523836546, 2.937397653304}, { 1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{4.78190439985, 0., -2.938686446436}, {2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{2.3901254447999998`, 4.14052194682, -2.93739954303}, { 1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-2.3901254447999998`, 4.14052194682, -2.937397653304}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-4.78190439985, 0., -2.938686446436}, {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{-2.3901254447999998`, -4.14052194682, -2.93739954303}, \ {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{2.3901254447999998`, -4.14052194682, -2.93739954303}, { 1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{4.781906289576001, 0., 2.938686446436}, {2.698092201294, 0., 3.039338922374}}, 0.06], {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{0.7424044166683823, 1.2857123177272618`, 1.672119517494108}, 1.5711136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7424044166683823, 1.2857123177272618`, 1.672119517494108}, 1.5711136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-1.4849084861581894`, 0., 1.6727153193577096`}, 1.57172299399782]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7424044166683823, -1.2857123177272618`, 1.672119517494108}, 1.5711136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{0.7424044166683823, -1.2857123177272618`, 1.672119517494108}, 1.5711136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{1.4849074880768702`, 0., -1.6727153666008387`}, 1.571722366725325]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{0.7424044348389357, 1.2857113091467376`, -1.6721195584196955`}, 1.5711130859118043`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7424044348389357, 1.2857113091467376`, -1.6721195584196955`}, 1.5711130859118043`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-1.4849074880768702`, 0., -1.6727153666008387`}, 1.571722366725325]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7424044348389357, -1.2857113091467376`, \ -1.6721195584196955`}, 1.5711130859118043`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{ 0.7424044348389357, -1.2857113091467376`, -1.6721195584196955`}, 1.5711130859118043`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{1.4849084861581894`, 0., 1.6727153193577096`}, 1.57172299399782]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.58331648888018*^9, {3.5833165556482973`*^9, 3.583316635754438*^9}, 3.583316671618901*^9, {3.5833167084349656`*^9, 3.5833168285395765`*^9}, 3.5833170195463123`*^9, 3.583317103193659*^9, {3.583317138418521*^9, 3.5833171803513947`*^9}, 3.5833174816347237`*^9, 3.583318068225752*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", "Plot8", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.582946039016183*^9, 3.582946081822658*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, 2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, 2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.698092201294, 0., 3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, -2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, -2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.698090311568, 0., -3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, 2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, 2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.698090311568, 0., -3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, -2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, -2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.698092201294, 0., 3.039338922374}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0., 0., 0.}, 0.665]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, 4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, 4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.781906289576001, 0., 2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, -4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, -4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.78190439985, 0., -2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, 4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, 4.14052194682, -2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.78190439985, 0., -2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, -4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, -4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.781906289576001, 0., 2.938686446436}, 0.12]}, Text3DBox["1", {0.7489185441420002, 2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["2", {-1.9489185441420003`, 2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["3", {-3.298092201294, 0., 3.039338922374}, {1, 0}], Text3DBox["4", {-1.9489185441420003`, -2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["5", {0.7489185441420002, -2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["6", {2.098090311568, 0., -3.039338922374}, {1, 0}], Text3DBox["7", {0.7489185441420002, 2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["8", {-1.9489185441420003`, 2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["9", {-3.298090311568, 0., -3.039338922374}, {1, 0}], Text3DBox["10", {-1.9489185441420003`, -2.336084950378, -3.038172961432}, { 1, 0}], Text3DBox["11", { 0.7489185441420002, -2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["12", {2.098092201294, 0., 3.039338922374}, {1, 0}], Text3DBox["13", {-0.6, 0., 0.}, {1, 0}], Text3DBox["14", {1.7901254447999997`, 4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["15", {-2.9901254448, 4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["16", {-5.381906289576, 0., 2.938686446436}, {1, 0}], Text3DBox["17", {-2.9901254448, -4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["18", {1.7901254447999997`, -4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["19", {4.1819043998500005`, 0., -2.938686446436}, {1, 0}], Text3DBox["20", {1.7901254447999997`, 4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["21", {-2.9901254448, 4.14052194682, -2.937397653304}, {1, 0}], Text3DBox["22", {-5.38190439985, 0., -2.938686446436}, {1, 0}], Text3DBox["23", {-2.9901254448, -4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["24", {1.7901254447999997`, -4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["25", {4.181906289576001, 0., 2.938686446436}, {1, 0}], TubeBox[{{-1.3489185441420002`, 2.336086840104, 3.038172961432}, { 1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-2.698092201294, 0., 3.039338922374}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-1.3489185441420002`, -2.336086840104, 3.038172961432}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{1.3489185441420002`, -2.336086840104, 3.038172961432}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{1.3489185441420002`, 2.336084950378, -3.038172961432}, { 2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{-1.3489185441420002`, 2.336084950378, -3.038172961432}, { 1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-2.698090311568, 0., -3.039338922374}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-1.3489185441420002`, -2.336084950378, -3.038172961432}, \ {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{1.3489185441420002`, -2.336084950378, -3.038172961432}, { 2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{ 1.3489185441420002`, -2.336084950378, -3.038172961432}, \ {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{2.698092201294, 0., 3.039338922374}, {1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{2.698092201294, 0., 3.039338922374}, { 1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, { 1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{2.3901254447999998`, 4.140523836546, 2.937397653304}, { 1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-2.3901254447999998`, 4.140523836546, 2.937397653304}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-4.781906289576001, 0., 2.938686446436}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{-2.3901254447999998`, -4.140523836546, 2.937397653304}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{2.3901254447999998`, -4.140523836546, 2.937397653304}, { 1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{4.78190439985, 0., -2.938686446436}, {2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{2.3901254447999998`, 4.14052194682, -2.93739954303}, { 1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-2.3901254447999998`, 4.14052194682, -2.937397653304}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-4.78190439985, 0., -2.938686446436}, {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{-2.3901254447999998`, -4.14052194682, -2.93739954303}, \ {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{2.3901254447999998`, -4.14052194682, -2.93739954303}, { 1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{4.781906289576001, 0., 2.938686446436}, {2.698092201294, 0., 3.039338922374}}, 0.06], {Opacity[0.5], SphereBox[{2.105927719688886, 3.648002235727692, 2.9649043028462283`}, 1.2607277739040534`]}, {Opacity[0.5], SphereBox[{-2.105927719688886, 3.648002235727692, 2.9649043028462283`}, 1.2607277739040534`]}, {Opacity[0.5], SphereBox[{-4.213269243048291, 0., 2.966152777028991}, 1.2612435321493498`]}, {Opacity[0.5], SphereBox[{-2.105927719688886, -3.648002235727692, 2.9649043028462283`}, 1.2607277739040534`]}, {Opacity[0.5], SphereBox[{2.105927719688886, -3.648002235727692, 2.9649043028462283`}, 1.2607277739040534`]}, {Opacity[0.5], SphereBox[{4.213267353322291, 0., -2.966152777028991}, 1.2612435321493494`]}, {Opacity[0.5], SphereBox[{2.105927707247915, 3.6480003244411847`, -2.964905677975071}, 1.2607276825997413`]}, {Opacity[0.5], SphereBox[{-2.105927719688886, 3.648000346001692, -2.9649043028462283`}, 1.260727773904053]}, {Opacity[0.5], SphereBox[{-4.213267353322291, 0., -2.966152777028991}, 1.2612435321493494`]}, {Opacity[0.5], SphereBox[{-2.105927707247915, -3.6480003244411847`, -2.964905677975071}, 1.2607276825997413`]}, {Opacity[0.5], SphereBox[{2.105927707247915, -3.6480003244411847`, -2.964905677975071}, 1.2607276825997413`]}, {Opacity[0.5], SphereBox[{4.213269243048291, 0., 2.966152777028991}, 1.2612435321493498`]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.58331648891138*^9, {3.583316555710697*^9, 3.583316635785638*^9}, 3.583316671665701*^9, {3.5833167084817657`*^9, 3.583316828570777*^9}, 3.583317019577512*^9, 3.583317103224859*^9, {3.583317138449721*^9, 3.583317180382594*^9}, 3.5833174816659236`*^9, 3.5833180682725525`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot9", ",", "Plot8a", ",", "Plot8b", ",", "Plot8a1", ",", "Plot8b1", ",", "Plot8c", ",", "Plot8d", ",", "Plot8c1", ",", "Plot8d1", ",", 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.582946039016183*^9, 3.582946081822658*^9}, 3.5829558956604953`*^9, {3.582989605014294*^9, 3.5829896073542986`*^9}, { 3.582989837064702*^9, 3.58298984748552*^9}, {3.582990603400448*^9, 3.5829906095156584`*^9}, {3.5829907908815775`*^9, 3.5829908001947937`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, 2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, 2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.698092201294, 0., 3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, -2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, -2.336086840104, 3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.698090311568, 0., -3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, 2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, 2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.698090311568, 0., -3.039338922374}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3489185441420002`, -2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3489185441420002`, -2.336084950378, -3.038172961432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.698092201294, 0., 3.039338922374}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0., 0., 0.}, 0.665]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, 4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, 4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.781906289576001, 0., 2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, -4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, -4.140523836546, 2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.78190439985, 0., -2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, 4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, 4.14052194682, -2.937397653304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.78190439985, 0., -2.938686446436}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3901254447999998`, -4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3901254447999998`, -4.14052194682, -2.93739954303}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.781906289576001, 0., 2.938686446436}, 0.12]}, Text3DBox["1", {0.7489185441420002, 2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["2", {-1.9489185441420003`, 2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["3", {-3.298092201294, 0., 3.039338922374}, {1, 0}], Text3DBox["4", {-1.9489185441420003`, -2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["5", {0.7489185441420002, -2.336086840104, 3.038172961432}, {1, 0}], Text3DBox["6", {2.098090311568, 0., -3.039338922374}, {1, 0}], Text3DBox["7", {0.7489185441420002, 2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["8", {-1.9489185441420003`, 2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["9", {-3.298090311568, 0., -3.039338922374}, {1, 0}], Text3DBox["10", {-1.9489185441420003`, -2.336084950378, -3.038172961432}, { 1, 0}], Text3DBox["11", { 0.7489185441420002, -2.336084950378, -3.038172961432}, {1, 0}], Text3DBox["12", {2.098092201294, 0., 3.039338922374}, {1, 0}], Text3DBox["13", {-0.6, 0., 0.}, {1, 0}], Text3DBox["14", {1.7901254447999997`, 4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["15", {-2.9901254448, 4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["16", {-5.381906289576, 0., 2.938686446436}, {1, 0}], Text3DBox["17", {-2.9901254448, -4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["18", {1.7901254447999997`, -4.140523836546, 2.937397653304}, {1, 0}], Text3DBox["19", {4.1819043998500005`, 0., -2.938686446436}, {1, 0}], Text3DBox["20", {1.7901254447999997`, 4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["21", {-2.9901254448, 4.14052194682, -2.937397653304}, {1, 0}], Text3DBox["22", {-5.38190439985, 0., -2.938686446436}, {1, 0}], Text3DBox["23", {-2.9901254448, -4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["24", {1.7901254447999997`, -4.14052194682, -2.93739954303}, {1, 0}], Text3DBox["25", {4.181906289576001, 0., 2.938686446436}, {1, 0}], TubeBox[{{-1.3489185441420002`, 2.336086840104, 3.038172961432}, { 1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-2.698092201294, 0., 3.039338922374}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-1.3489185441420002`, -2.336086840104, 3.038172961432}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{1.3489185441420002`, -2.336086840104, 3.038172961432}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{1.3489185441420002`, 2.336084950378, -3.038172961432}, { 2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{-1.3489185441420002`, 2.336084950378, -3.038172961432}, { 1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-2.698090311568, 0., -3.039338922374}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-1.3489185441420002`, -2.336084950378, -3.038172961432}, \ {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{1.3489185441420002`, -2.336084950378, -3.038172961432}, { 2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{ 1.3489185441420002`, -2.336084950378, -3.038172961432}, \ {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{2.698092201294, 0., 3.039338922374}, {1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{2.698092201294, 0., 3.039338922374}, { 1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{0., 0., 0.}, {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, { 1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{0., 0., 0.}, {2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{2.3901254447999998`, 4.140523836546, 2.937397653304}, { 1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-2.3901254447999998`, 4.140523836546, 2.937397653304}, {-1.3489185441420002`, 2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{-4.781906289576001, 0., 2.938686446436}, {-2.698092201294, 0., 3.039338922374}}, 0.06], TubeBox[{{-2.3901254447999998`, -4.140523836546, 2.937397653304}, {-1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{2.3901254447999998`, -4.140523836546, 2.937397653304}, { 1.3489185441420002`, -2.336086840104, 3.038172961432}}, 0.06], TubeBox[{{4.78190439985, 0., -2.938686446436}, {2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{2.3901254447999998`, 4.14052194682, -2.93739954303}, { 1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-2.3901254447999998`, 4.14052194682, -2.937397653304}, {-1.3489185441420002`, 2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{-4.78190439985, 0., -2.938686446436}, {-2.698090311568, 0., -3.039338922374}}, 0.06], TubeBox[{{-2.3901254447999998`, -4.14052194682, -2.93739954303}, \ {-1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{2.3901254447999998`, -4.14052194682, -2.93739954303}, { 1.3489185441420002`, -2.336084950378, -3.038172961432}}, 0.06], TubeBox[{{4.781906289576001, 0., 2.938686446436}, {2.698092201294, 0., 3.039338922374}}, 0.06], {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{1.3489185441420002`, 2.3367855920028853`, 4.438172787055484}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-1.3489185441420002`, 2.3367855920028853`, 4.438172787055484}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-1.3489185441420004`, -2.3367855920028853`, 4.438172787055484}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{2.6968823164874074`, 0., 4.439338399580601}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-2.6993020861005927`, 4.440892098500626*^-16, 1.6393394451673997`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{1.3489185441420002`, -2.335388088205115, 1.6381731358085168`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{1.3489185441420002`, 2.335388088205115, 1.6381731358085168`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-1.3489185441420002`, 2.335388088205115, 1.6381731358085168`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-1.3489185441420004`, -2.335388088205115, 1.6381731358085168`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{2.6993020861005927`, 4.440892098500626*^-16, 1.6393394451673997`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-2.6968823164874074`, 0., 4.439338399580601}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{1.3489185441420002`, -2.3367855920028853`, 4.438172787055484}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{2.699300198069224, 0., -1.639339445168864}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{1.3489185441420004`, 2.3353861979138744`, -1.638173135808799}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-2.699300198069224, 0., -1.639339445168864}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{1.3489185441420004`, -2.3353861979138744`, -1.638173135808799}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-1.3489185441420002`, 2.3367837028421254`, -4.438172787055201}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-1.3489185441420004`, -2.3367837028421254`, \ -4.438172787055201}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{2.6968804250667757`, 0., -4.439338399579136}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{1.3489185441420004`, 2.3367837028421254`, -4.438172787055201}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{-2.6968804250667757`, 0., -4.439338399579136}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.2], SphereBox[{1.3489185441420004`, -2.3367837028421254`, -4.438172787055201}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-1.3489185441420002`, 2.3353861979138744`, -1.638173135808799}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-1.3489185441420004`, -2.3353861979138744`, \ -1.638173135808799}, 1.4]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.58331648894258*^9, {3.5833165558822975`*^9, 3.5833166359884386`*^9}, 3.5833166718529015`*^9, {3.583316708653366*^9, 3.5833168286175766`*^9}, 3.583317019608712*^9, 3.583317103256059*^9, {3.583317138496521*^9, 3.583317180585395*^9}, 3.5833174817127237`*^9, 3.583318068319352*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJyUvQd8XNW19v28IxtIgzTS7k0+bnKTQAjpjSSEXkICISGN5KaQEEgIAUI1 YIzBRc3dsuSq3nuZPqORZNmSbPXeuyU3uXeD0fusvfcZjcSg+378WGdmzsxs nb32f6+19trrjO97+Lm//+1fDz/3j78+fM3dzzz89N//8ddnr7nrqWd4KuL/ AP/n7yLXQJ5PA9Zhmv9P/0MOcib88/3qIQIXLlxQz0SW6Lcm1MMCdHV1ITk5 GY8++ii2bt36mn53TD1cob5YX1+PpUuXYtGiRZiYmFDfkE/z0bQ1oh4WYmpq SrUln9y5cyfOnj0L25y/ExkZKedf1d8cVA+Xhf07/NSCkC/b7XbVaG5urvly /zx/9nLznvXNkydPqsbl9WL99Z53+dvyETbxHvO2tB4XF6deSSumA6/oRrrM 35FG5l7D+00L1resETA9MS20v8tlmFauVG9f/o5GrA7JH3pZt9Q651pWr14d vJYPm78iA2c1ITI0NCTNmhaa5r+WjxqcQhuxmXPSKfmKvFqkW2sIuR55W65H HuV6Pm6+ZnUhtCnpGlFU501Te+a/sE+GaS3CHOXjluJe1K3VhlyY1ZoMsVD3 n2GaWhByTuiQVy/opnbNf2GfMd+U1gWk0NZCYLJa2znPhf2X+VpRURH6+vrM J/U5My/Uq+d1UxUhFybXPOfCPjdPa6FzxbRWPs+FfSFMU5eF6eNzuinfPLP2 2pD+WDBdHgKYnJdXz+qm3GGuyrIe15uvWQYgtKnQuWOacs5zVTeEaeqKMHQ9 o5sqm9+mfTVMa+8JM4n+rVsrmefCvjFPU6GTyDRVOL/B+5b5ZqjBe2+Ybj6t W8ufx/J9d87wy6v3hZlET+mmcuafRDfO01ooYKa1rHnM4A/DNKXMtE0+YhpI n/9ybg5jBUMvx+rgk7q11Hms4G1hjM37w/TsX7qppPkv7I4wrX0gzOx5Qre2 Y545ffc8TYXOHtPU1vkv7MdhrOCVYcj6p25t8zwX9tMwxuaqMLPncd3Upvmt 4P3ztBY6gUxrG+e5sJ+HaeqDYfpoIrP180zrB8NYwQ+FmT1/102tmd/e/Gqe 1kIZM62tmufCfhvG3nw4DGCP6aai57c3v5untdB5ZFqLnOfC/hCmqY+E6aOe sFg+/4X9KUxrHw3Tzb/p1t6YxxD+JYy9+eicPsrnTFOvzT+PHgnT2tVhGNOf w6vzGMLHwjT1MXNOPmsx9lfd1MvzX9jjYUzi1SF/wZpHprVF72IShdh/hWnq Y2H6qDVr4pN3vbCnwtix0NDT6ubDurVn55ngz8zTVChjpqmn57+w58K09okw jP1Zt/bkPBd2i7HO3fuOUo6humsSRXVDKFYyjOJaSg2f7x7CrvZJ9IwdQ8/I URw+dhZfCmO1PhHSKfk78jfMZfxzfnOqPeMCdE8cRXXvJIobhlHSMGzjYcSG 0voR+snSvSMo3WOkjlJLqaHsHkZpNaVqSF3dFK/ui2Gu7pNhVK4nrDGt4cPB m817h0+e5aVNoLhxCCVNvLymEa47SptGFqCscYRatDeMwM4rLeN12nmNZSK8 TjuvsWw3ZReF11lWRQkMonfoCD4f5jo/FWYw/6iv87F5LNnNRsPqOvt4nU28 zmZeZwtV1EItlsnB3jxCNTt47XaKo1GJDQ5e+/vh4NU79miRHtjN1dt59XZe vX3nMOyVvPpyXv3gkdCVgOUfPjUHAbkyc/GPzO9tbjFv90we4XUP8ro5pK0i VFurXDqfXAYHj44WI+yMU0QGwakGwcmOSDecHATHXtMddsNBWBzshqOawgGw VwyhtnEfpo6cCa6PQv3cf4QxHNpXGPsRfhBuDcJyBrv797ETQ8FO2KQbMq7S AyMRcOoje+Nq0b1ZCFcTu+uScZHuvAfO+pDOSEdqpCPD7MgQHOUD6O2fwjVh XI+1Ig01y/+jO/Gn+R3ZbVY/Tp1BaXMfr3+IV8+Rb5N+2NsEmTZ14Tw620bZ jVFy5Wod45fcPLpbxo2MsWNj/JI8+wBczXzdPMouGmEHpZMyXk52z8nuOTlO zp3sWsUAauvH8P/N07VQH2G69od5xucO6z3pV0s/+zTIPrFf7apf7dKv9lHq vX2MI9A2zr/gat0HdxuFjzb1bAGPE/BQ5JWnbZ8+faX6iLt1XAs7rzornWwc nekkYXTWDMNZPQRn5QDqGsY+E6Z/nw7D3+91/343/9Ddqd5+r+piWUsfuzfA 7pF4kQ6C0zFKGYNTyTi72b5PutnO7iiZlG7yGAFPxyRlvxKbHOUwyQPfvVJ9 WithQvXcJcPdLDKmeuyqp7DHLnoR165BOKv6Udc49ukwvbU0EOpYdTdN5Bg+ FNFrjStMV3tNV0lqh3RVd9MhXXR27KPCXB0TlEnVObfplrvjgHTqABXm6TxA OQgvxdPFRyU8R1GP6n2lg/00ltKKp40ttbL7Lew+u+5qZNcbxnS366xu96Gu adQCNnSN/JkQiC2PZLr9q/mDgB+bnpc1d5Nhctw+yB6bXneOU/bB2TnBwe2c xOWqt+ypEk/HQdVNT+chdu0QB9bbdegKeLsP2VSXrzTvHlBqcbfzmyG9dDdx gNlDt+rhEFy7++Gq6kXf0KH/mNMbeWVN3VBf9pDu4YPvEsqJEn6i3nsPavrF 9veS3YFg9+yqexPs3iRFwHTxWtlHq09KDsPTfZidEpniBXh7pti93imq1Mej PLMe+RZ8PYdt6tNXiiKMBg4qDXhEA63UQAs10LQv2Ht37SDHV3rfjSPHTn9q nt6HxkOm9w/MP756sfpB9E4epAJ6aHH7qYQhPXmpAKdSwH7VdRcv1K3kEIUd 7xJhv7qmpN9HeAG+3iPs6lE+HhUF9B3lcsnXd8Sc52OPVoNoQL7uFR0KJ+0k oI39b5kM6fsw+z7AvvdiT+tIuH5fE4ZrPY9x/5xRl35bAfzP1HtXEepOOsle WuJBdlgsljXi+ym6wy6rs51TprNHOOJHheaeo6rHx9izY+zlMZ7z9R+Tc/3H 1TORBer4YfW+6EOJaKPniNHElFZkBzXRTk20kQTRQrNoYRTuPUPUAkd/dzf6 Rw5aWghde1wThv3faC38ZP7R13Bcid79B6mIbrrafipjSNuzoCK0ElxUgptK cHdSAVoJogPpr7eX/RVhv6X3J9hr/8AJ+Cjm0aaeRJhT/CjFpr5wlVKNBY1S S/cRpWpPh1GLUYmHYHgYobj3DFIlvVRJZzAMDF2kXDNnNsh5o48fz7NIedAs LezNHQyZSEUbqaC7Fpuup8BBpQSXpYTOo7xMSvcxynGjBfa274TSga//JLt6 kl2lDPK5klOXqycfnlGO+ii/2ndcgSRYiQYUaB3UQvvhGQ3Q7HvqOS329FMD XegfOxhuX8GKM0N9+q+1Au6aH4hfqrc/rMyBvaWLeuhniDIsYQr1MGlgEB0c UTpwKx2Y/nefYAdE2N++k9J/jvDAKV4Iu005rYRoDJ3muXIe/UZIx9Ap/ln9 OaMyEdFNn1atoOblxPMo1YteSEbrfk0FJ4qnnlTs7WEU0B5OJ58NE6Jq3xeM 1cJBYWVSD504i65xrl7HZZrzyMOYsN89ejQ4EXXC8H1c8bRRcz2MV+mV20c1 QbTwTjWNjlCOUnPH4O6SSeCh3i5n99jd3lPw9p1it0+z+1QNxTd4RhQ4dIZ6 Gz5D7ZXz6J+RCKXAD/FzVB2VrdV2UlOo1CYjc0yrTaF00EymceJElOr7iFMn +sf3B5fVoUnQz4ZMJiv+NXq7dc5Se04MfJP5pqwTuyeOoah+iL0tJr7vRwmP JZzKJfRvJWapXcKAtYRReQmD1pJdw9jNaKBn5JgkAXSO/2pMnTzFtZhMzz4q dwZLF12Ii9bC1aEV6+k8TixPULUnqQAqlYr19Z02ij2jlOofPEvVye6vf1g2 Y8t5lGflI+ew+qU8lPx5GxqfSsDuugF+Rt5doN+Xzw2dEbEpoK9UkPv6Tynq 1QzoOa5nhdK5YMrp28wgliG6p5GY1ndjT9eApe7QNbm11BUdWlNXT8pgfiDc svZHVlpj8iiKGrge58hSbChtHIlQaQMeuTAoM2kDm0oaXK7SBmW1Om1QyoV3 KRfeNaSjZ/io2T/6CG3BASq9iyuvAbUKkzDexVjFRdPs6iDNHSRZFN55kr0+ ZRR+miRT0f2UgbNK2b7Bc2qin+PqrHz4HJV5nsrWkrCtAav+UIvqFxtwOmMv RjPLzHv8HEU+rwfqg2rQ/IN6EGWWiOZl1nh7TijSvbTJXhpOr0U6lwmeJpLe 2EvNt73fqKrL5KJMPsqGotoh9rmoZhDVjLhldnePUkb0/DaD9PkQ02KZEe04 cNM8y8GbzB+V5Xp17z4rZ8LxaZaESbNJmFymkiX2xmDCROVLHPWyWuSoXaGT JbUhqZ7qEZ3mqRhC79DRy4z5tje0cKVPA8TVtKuNywROJReDC1e7NUeOU06o 4fJ0c6h6znDIKP0cJpEBqn3wnIzWeS5Y9Ehd4EhcUI/loxeQsHUcy589gV0F b+PiwAWM1Q/a5A2bGreP8LPn+b1zWoZk9DlqA4YIGbHek3rEOE+8NOdezhOv mHMu7jwtIxwxuriGDtqlSbMpqjNO3ZPHFOGSuCumclTerkTl7UrC5e2oJDEm JdXDWBefCl9VAw4fPYv/DhM5mnH8/vzpI2uqSfqo2EoftQzbZnJHC4O5I2dI 7sgm2SMaC0kfOa1kRH1IEskkkFQeTHJgHForBzZ11NSZXEYo2tkczV8rV31c /rsYNXNoF0jBDRXl6TrNEZXRPKvO+PrPcTTPU/3n1eS7IM5k2BrKi+KHRy/y inP9x/DvV08hs3oaY8cuorX3gFg9vne1Gu5yM/QyrOXEQcCQqawm9sBZZVnV JBTzJ8EATZ+XFtkrkYskMVpp+lpo+poYtUzsNxv5lyuDJYnOYk7QYupHkp2l ItpkvYvhukIbLTMJ1m8rwKZkO8oqh1DTNCHassxoaEj8Cz2835tnmt4cMk13 qazaoGTVwiXUFkhCzSa5tAVckcu7Ll62q1GLTqhdEcw2qcygJNM4sA5JbgZ4 qQ37dDnJx9C7b4ID28GBZaDPxiUV5KLmXG00se1H1Ei6O06oRxldT89Zavqc HmEZXU5AH8fWP3SRo0sZEXlTBvdNjuLYm9T0qrRTWFkxjb2jk+pMgCKP/IgZ 6Qj1PTXKJERP/g/o0eXE9Yr/VJP2uDaxatIepEh6giaWtsbd3IM9vf2wClu6 ZY7Q1BVzjthUgniBpIglQyxGT2yeTZm8hUGjZyW3HWqwxd69R6eHOeDrtxcg PsWup4bJrdY0qgEPxryhS2Az4t8xIy6n5K2//vWvVg4LVjJY8o8lJv9YavKP VvZRJx8XcjQ4Mm1cklFc5NndMso/6G4dtamnn+KRi5NmLRYN1jSfScmZ3HDl TF64b2KSfaeHbR5QDbtaJygy/DTXbfSw7cc1Anpy67l+GefeRY66jPibSspH +Dj6lgzmWxz6sbd4zZFbz2PNzmn2vU2dCVCEiLcUG4z4xAgoZMQoyKQePBec 0D7Lq4qNlrUvwyyv5LPaaaMZfnkYhrkaW5QKD586i10Dk8oclrSKjEgyOsQs Lgim0pVI6lkG/MpgKt0Rmn2mqnbkBxATl6p2BfTE0RbRTotYUz9ujbipD1PD +fPQEY9Qevr0pz+Nu+++OxithsvImnys5MElKetiWHkZh3kcbvZUPVKk13xt U08+TwWYU8K+4n9MWFAozAIgdPCthHN5P2o7hugLujnogypx7Wqlj26lj27l 8rKdPrpDh1R6zmtr7u07b+Y8B2yQoz0kI/8W5+1bHEg1sqOXuEQYuyRDn/wW 4uqmaVxGUD5+CQGKTb33SYUCKdEi2IgIBWJEBs8bAs5oAnqtuOqIytd4OyWj yUUX14WeNq4emtvQs3+KSh0MbkGUqvR9mcrccxoFraZNHS9XjtFsqChRigq1 nTalt/cisSCAWPrt4NaKZUQ5/R2c/nZfn0yh0BSItbOikxv4trHpBw8eVLor LS0Ve3+LcUDB7DWjW3ubzl47TPbapnLXks/lMIsw8tVCh9Y+IXnrCRtnxAQ+ w6GaoGYm5JQR0dA+M1c0JmqPQu1JGE/BLrr2zKTpE4vrkbuzlRoZ0in9UCTa GGW3M2TrPKVRoAvw9J63Gb/vExoGScIQZfgSB/QSB5Yy+rYa9LepywCP5eNa nlg0hK2N02g9ql8HzHl+UjMibv+S4kOzYfgQNsRCKDZO6yhO3L2wofJ5krpm r6lBT1s/Nnp36i2dNmtLR6bbAplwKrciezsOMbNOhYUYPyfnj0vJmNnX0I82 9ezK4D6HSFJRBWITUmfmmLWxQ0qcjPicVYNqrk0dPTM3RSrWYhYhC9Hc3IyM jIzgUleigh/N2uToVZhI5l9jYm1wjCtEXB2yQcOxp1PonNSbGipvzOMVVM9+ ughvl5ycDEFFbexoRFpCtqwMGrKnkWRvRGRqJfKqe3Tyv4UhX8shhYVyC7Ow OMdBCcEiBInhtzmWbyskykenFRZiEAM8lo9reeCBeiS3TaP96KUIdeLj6kOK nDHrq5eUvQk1GT7LaVhIqKTDUZ0WVzsb7GHnKOLK9yLSHnjnTpgKmiVTIqIW LGNqj8+mYtwFepNLdgVk/6Nl3wL15EqlDdkJSiquwqrNaWZbhE3Uj85yuE6u AJw7B+EM9KFv4LDFQmh+7GehLFwWZEFeWcg0NTX90GR4pk6dJg6zt0RmUua8 Rg6v7IgIB9aGVucBte8h6f+Dkgnl0ddDh0pZoJ5dzXcO8PwBPu5XvGhSJhUp yvC0GkqadD9de0mHqwlRGTsRlVbD87IXaOhoodFolWyV/PdevSoQOuhDvP0X tB9ReMyg4R+ZFhcyLdGDPBsXLT3wyy5kdk2j84gKFNW5gOFF4NDm5cPaXrwL GLOCxx4DBjvq6Z7ApopmRLl2I9JRgbIORluyebhAqVNtHdIZu9rHGV+3yfah 3gTUm4EL1Y7R5WZ3zOwdUUpq+/D8y69RFfuU2RhnJK52y2SjcA+FWLhqaGOr B+Cs6MWRGfMQmh68PxSJy2chMQcL/CC4jzSq95HaBsw+6FhwG0V4cCl74BYU ZNtngWyJqY0gJT2HF1JLh8lGnxx6D+E/NSLdB5W29Obgfm1ZxAfJNrBshhIH 2StI9lCTmdWUWsQVtbDnRKH5ED9zRKEghsLdeeodKPgG3rQshU2ZiogQQ6H9 x3SERcNDw8jvn0bX1FlDw4JQ5yG+Q0Uh4kD+X2HoIQw9B7Cpqh1Rnr2UWgJR qTiwd8qkGrU2kaG3WC83u8iTIbJfb6C1K4PbfkDtKh9Qz8wrHq9Sm0wldQN4 /pWlM5ttzRycJk7axnGzqTqqN1VrGJlV9xORHhw5dmbWLqqVCp3FSAQSExPR 0dGhXtnmeBzhRNcJvx81fcMh222W7din9hpdZrvNbe0NdqkNU9k3lL1FX68c +mS3zS87a/1H4KfY1PFzPE7x3BTf46OSw8IUOTqkTI1iSTaahSO1dDP7rTSj yd4WRGWRnwwOQMZeOhwJY4WfmfhjFj+9ws9FeBmOSgDiCwlHJQBRICjzEKH4 iMCDf+AKYXga3YeOK3reVrbkkopPJepQSxPGp/5gXHrxnfj0Gycj2W3ZMmLv NlV1ItrbiGhfPR959e5KhY69cyxok9UclF15SRgrTNxE4j0aEdmDDIre2/V2 zjza1LMPmb3agyipH9IIyXdl37JV7126mq29W87Kes7KPYIRV3XVXClVqv3b IEahd0TcNxsjyUlIvKpfvROj75q8wdRJcUNdXF71zdrE1FvW1o7tnN3abtmG 1VuysuMmG5J+kX7KgMixy9WTz/Bo+LJYUhwZlrqsvXuzb8+JlOxr1fxkCj97 6JLqyc9BzU+o/ekyKQxjf7ySvlCLWcWPTQEUoSGQANSsWQWlcTFOv/7rFFy0 PD0HDkKf+y9SxA+LjL0VXN34R98MUuQz69tZFEm+XraXOI8KaEujfc2I9pMi /14+1xSFFDnMzE5T4eBu1zS4DTE2VQ8QQWIO62i4S71S2+N8+kH1trwpu7fW hq804m47oBGi73Y3EaEGIlQ/qvBxK3zUFrjlpEKTzz+dTc6vf/1rnD592qx5 3knOdyxH1TcUsuM7rKmRshVFjSbGpvbZLle7vSqa6zmqtrtlv9Yv29n9Mon9 A8dlg++4bE3x6B86jnIKz8jpYzbF0qeUdRKWNEdT2uh3HZqpfuAsSvG3ISq7 GtFZdWSIjiCjHnHFHZxVws/Rd/LTSxvUfz6En4s2tVRZoE2QxY/KiYzJYVy4 +t0TJ+CfJD77JM6Qc5822OhsmH/0okmLsNlhIhPE5kwQGw/77yE2m3Z1E5dm xJQ3IsZP4+OrQVzFnlmFI5Yxd3eY2Sj72kH9RujUSrfe95bo8IhY+iML1esP qgIB4UU+pcpN5NuyqdTG1lrZcgulaVIzQ8/lrhsiM/1w7VIFA+FKf+Ywo+/V nDaroNnMCGb6rpsPqd03e3On2RwfIjdjmpmO/YYZa2P8iM4Qdh/TvPTq3W3Z zVV1ALJvdkJtAZ8kLyfVo00dr+PxBMqHT+hHiuJpUPEkOIl5UqZKPKBVVKOi SbHWxhpHZe+i7CFHZCizgdI4w1DbcQ7ASZ0o79GJcm8fOVJp1PPh0qgaCitd qo2RAukPz51F1UF6s6Eu6c34myqzIp+5qBKqIv5RnWz3WyANnZtJqfaTZSrF 038MKYzfostbCJKBqbxB2aCkuo531KPIKvOwRY/Wtta40GOqMj4xU5liRD2X TfQeedTT+d8vLoZd9si6zKZ6hy67cLdxOFtl/4waVXCN61okhk7uGlV6Ea7i SpebwLpNS1yYuDIdP78TrG+abd2a3sGZagOp82zfN7Otq8pOGL926UoDlW3o mam08PfrUgFTXUFmTqliAtkoPyWbUVJXwKeUkzOioDuhMFRgDZiCnWBxzpSy 2B4DVVT2bkTn7LWRqAY2F5XVSF8nabtQnnRc5CFPHuEpZONF+R2z6aJS7IqL iwsUKBF4+NULqDk8jbaWKsFo7KJYK7VRIxsvo+fVpotNEfQRzc/g2RljxP5b DEWXtyImQIYCZCjQZBiqQ1JtV5AdrU8KR9qm4LlMoaN1q+lQgXnvcZuauRF6 7vZpdUvoecKmTn1Y1xdQFEV0X+r74ii6TJmGVb7SSjU2C0lcs5Akj1R21QVL WD4zB42ZwrwgSaFrryvCkPQNs1dtb2qHo6VXbXxKHsHJZYJUXkhxgK5Xodnu Oq5qLlRmO1iroqsngoUqw6fVpr8qVBk5TTmDwIgqvxiRcwF17rTCy6bwen/Q kimoBo6bop5jM2VNqqTpEOLKmgxM2Y1ckURnc/3OZy5ZpM0KsrWB8vTpfVnv wDnthRRM5xUOEimdtylOFipm/BR5fGTlW6g/8rbC6QLdm3/sPJ+d1zSN6j13 2Vf3qR1a0qR2aPmHBkgU9eDljPKwDymNo6TIUFXRgmiSFU2qokhVuMIwVQ9k aoLEGB23KTVHqOkqflOULficXGjqg/pULRTJEogcjIN07sgUragiCjbXQZja pgxIXLg0EiTGR569g4yReglSO44cP2WBFLojcO+7g/SeOSCJufqaOif1kPuN r+tXW63ONpokVfRwUE0dd8dRVWXi7ZLkuC7d8ZnSHf/AaZuqUIhQRTpSsFM+ olbLPMq+y1kEKPJoU88WmHP8nBabguvT2m4pg2YMnNSMGaysOjGJCVLKGYWI wyNH0VmCF5nKoZEqH4KLTk82kNydJ2lEyVUPuTLlGV5J45rSDGVYiEOEMjfv 05gILsQmxdGDx9ZOo/nYJYWRhZPfICUInlNRl8FJIcVu+DiXPhFCFe3UgGWn KBWts6nyClW6ws5laNIzNmTWqpl7Us9cNXtPLVDT97KZkil57NclOXy0qScf Quy2bKT7W/Q3e0xLKnctkB0zkIm1ot9rlmI7WqqGYYJGS7VXKqQOzCoztvYZ fhxK2OzM4fnz59VrRuSh/k+SBwLbV43VqukdgKNZyjUG1f0NLq7JXXQ7Uq7h 7rCslgZNqmt0KdMZ5QOsMqbyIV2aZFM1M0LZORJ1Tj1KjvdchKAm757Rhu0T yk1qqnSlna6yOxo0VCqEym5QFio6pxlRuY00Xh3K7bno9lwdtFRdpKr7lCHq tHJJyjUNyugPWUVTPlPHQ9GsXIHI6Br8M34aHSck8j6nzsrF+pWcFdN2VsGo S918qkxQePqwqrdSFoqW1jNorJThKbqijdKqmeJaLrmuL8iTKn3pCJaHiYE6 aVPFYQv15LVKxPq1fm2qYuWTWs8h4gs+6s/Gbs8hWW26jV5T2yJjJYQJt/I3 26nUNmO+xA82WrVgPXDtaX1HCbfYrllkLVTJJYGuqqpKrfNkVzPcvfRfCVYB tRErXSriVKUiVhWQtl+qaKvLqpCT7d4zqvpHITV4TtV3lA+f0xU9EWqiB0TG ZMIHxi5I4u+8Tb3+nBAW5E2smdg6VarIcStXpZ+ngnWJqsxVFjyc65tKW1RU ZUEWnUfTldfAeJ3jRXfo6jiuy5WknI/z3qNqJDVoXlUfeVpMjSrJ85mySM3O AsEIK6Pb8GQiF3snzklAdVYTRW9NA+sb1uWnwpbUTwpTXjLlJVMeJcewaXcP WWqxKbCu1IgRrSgfL5F+wELK3WFVVJ3UVYfdp0L0ejpC8cS/PXA2WA93hTp+ RL1etT0X6eVtIftqp/XXDUWKWHE5ygka+9Q8ruraPI20T/V0gCdOItzOxj2h FC1QAbmQ43Q6xS5ZPwswOjoa9JlfNgBNESpdljKgNuh0Wcr+YFmK6rjptLfn tCohmykfM0VCw+dtqqaEtIzq0rEAo17KQuJzURi6wMsOGI8SRGjEVGPK0MoQ Dxh8ZC3ZrW1UQd0oQ/GGoMeLzjXoNB1W0ZTgo8ZFuQ6KCfg8sqmtTIjGx6YA uFzjQPERDcFjZXQfnsmcxgAVu1CdWTjzGdpOJYMSzxAam6Lm44oZz+BRbX/E txEbDQ2Fa7u4qvaZqkkLms6TIaV4Wo+qerJPl+NpapRr5rRcOKNbS/h6gXrv w4jPK8e2kl16HPpNOyE0qbJY+lUvx8/LcfS2SM3dPgrtEcfZ3agKtKwN9dBU k74LStOhsgZWsiA0gfCBMDxdbxIIvfv2B+tc1DbvrDoXyzZL2e4pXZKo+m+x RHiGLij/dlFFTIRI1ti6lEk4epN/tmIfX4qMX1Sp5Yu4RkyVCoPV46hVdHpO uUxVyWuKSNUap8cyTYewqbhNLfVm2KpnRNWvdtZ0Wc5MGbfii2x6xLyJmAp2 76DEH0NyIDXvUeysjBrFovxpDB+f0qwJT4z0/BR5pLEYkqlsmSIvA3GvMUeC lmfwCF3eoEYsYFxeoE09j/I3IY9LLLk2ZTo7rJQZEbBSHir1Kru150x9IFVs 0h9K1YMXxDhR2R8N4qWwKt3Nz5nvCF4SQYYaKurC2yFYHYaXw+ptnVRVMVL3 51GVYQPXhHFXBquvhoHJFubc3F/lkCa+ZAxW78QBAtatCyhm1dQcVhrxdByf ZaysRbr0WAE2LJk/KZmTurmAVEkFxt/is31vKbbeUs9E5Jx8ZFx97iKuC1o3 RZcpelVlygO6MFwtlo3TK6gdQVSGdnoSVYnVSvZz2dok+7YyGaaUgVU3CnAd 5O6x6GIb/SInVDDtIyG5DB7y9rYin1JAWbQ4E88nuODwZaKA7xVSCuootS3K 0snqnTAtDEGLw2awssE9KEmllMYBRBm8bOp4FaLKW7CxqkNfWDs9syxUJfNh MrLeboNW7zmD1vlgcaKshy4slMSaxIOSpR26KEXC1HkaA6c1KSWm7Oi8pkvo lPGRcRKyuo5rutp1WbeXkYxX6q8Y2Xha+mi0WmfdXG1tq+i7XfTPPy2YsViX zQJKxGSqPhSGretMkqq2ux+Oht6Z4pwWw1abrtfydMw4Qp8xXNJ1qdKT3par Cj1TcqUq8WS7KzB+iaZr3yVatAoeA0aImqbuOrWxIbYtoAydSSxKNe6wqcCV pbuyYIYxE8FLsZ5sAkvyM5prwajceiT5uMhoOEgDfIgO/bCKBCWKCSbY+F0P gzO5mzxvTzO2OQqww1GIJGchUpxFSKWkUV5flofXE90I+FOQVlbEfqSVFlG5 acWFSCssQGp+AYp2NXMFLbd8eAeOUn+Cl4dwibgHubAZPIRkhi4asxa1KIyi RPqaZgofZZXRzhVGBxHrpPXqIl7d53Tiv++8uoPsgrrZTG8AGF3bVGFchFK5 KozUWwI8Xh08J59IK7fQu6hLaPtn8FPmQQybrLsswyY16u37KVKwM0L8GHk1 dwTvkQl1lneGWrV3AmdWidaPyQQCgSBw15rNPXtdMweLwDUOzyr7cSvgjKfs 0p5yFnCmJLR8+C1TAqb3VqWIJzD+Nv/YvreVNXtbPZNHm3o2G0GKTcH3aV0q LHtpCr3zMzX9QccZgp3atZ5EVOoeoldPB7oHG4ub4Kzfz54cIHrEr/WQuRWB PeF38nY3YLs9H4nOfCQ7iY+rgJeU7irE55HpKkIWZf2OODz95EasSqtBrS8Z OfYiZBO97NJCZJUUIpPoZRK9zIICZOTlIz0nD8XVDbNwcw9yug4eoJPktZXT 9BI7QS7K14wkub9YNCtxiKRLFHZErvOMKr8M7nf3XVDYqXJpVTfxpirFtKk6 q/eo/W/RfPBx5K13nLOpZx8hf+3kr1TzN3hhhsFQ/pT5O6YL6mX7sOOAqjj0 tDNea2O81tKJ/smJWfXPFkmGQfXjcKoMyNoRDM1RhEPwi0EEW4hgn0ZQKiRM bZG79cgMgt0hCAZ9qUFQ2TtdhSjFIVJqFhifFgSnFYJ8OTGNiglx9fKMCE5o LI0oC4mvq7plvT8Xav3O6uWfid10RmxKbyt2TSK/bsBguAeRWbvh2DPB3hgM Wyi03rnVe5FYloskRx4tXD6tG9Fx5RO7AmJXgGx3AXIJ4j/+9Sf89pd34E8P RGJTVjt2bIjFY3y9bXsc8soKkFfKzxUXIKcoHzmF+cgWyafk5SErJwfFO/dI KRLh+zicPEb6eE3+BoVhJGO2jRVcFrQemlXqKVbPbayeR6xeD/HrJSp9lP43 VdmO1HwGi/yGLkHX71xB/VxSz8pNHag/9HH4kv6YENhBAst0IfEcK+h9hwM+ qgnsPGDKF0lgOwls44ph/2TQCoZuCN0RQuCcOM6qawgtmflIGBa/YBYPdsYv znrDYuM+Xdz0rizOxHW6qOBNNRF1ZVKEZtFUvQZhnJgL4wMa0KBY37k0D41n Qmg8pmmU2/y7ucjqGsfG/AZEptZiQ0EDHDX7SOQkHDSMORV12FGSjaSybCTb c5DqyEW6Mw+ZpDGbNOZQ8khiPol84sk/4qF7vok/3XQDHr5zMbbltyN95at4 7vYv49kHbkTi9o0oJI0FpfnIL+H3ivORW5SH3EJKQS5y8nKQk5ONrMwsFFbV ksZJ0lhH4bX5G7Gxso0U7jc0huxJtJ/SxlDRSBJ7LhgaSWI/KRwggYOXqO9L uqZw6G2bKiwUGE3lqRH/7Ef9sY+gmFHJ4qiNmmUpJ5KyIhMRepVJNDB2mztQ VImFlDMRxk6uMzoGebXdhHH/rNtWrXSagfErQXMYDsGPhkFQ3/T3cSJIj7yX HrkhBMHmeRDstxA0N2movWSrRuVSsCpfsNIu+DJt/4xYzyuUHdSHS7jnf0dw wCxm1e3ksp05g6Cncxgb8vcSt3bYd43DUTuBdLsTScVZSCnNRioRTCOCmc4c ZDuJiysPeZR8IlhA2ZK4Ab/84fW4/9ov4HfXX4uHv/xtPHfrLVh867fwwve/ iJd+dC0W3ft1FJflo0hJHnHMI465xJFSnIO8IkpBNnLzspGTlUXj6cRKbx2l His99cil4Q4WOUsiR2qH2uYgqIwhEQwaQ0GQ+A0KT0Nvq4BvmmqZ1o9S2eof kd+N4lP1bPbj2wpCe+dJPL9k5RwEL8xGUHllq8B5ylRnyh46Eewc4lUSwQP7 rVvQQjejbtcEfjNMmdfVYbj7b8Nd3zhjpj3krp7cyeK+UUqFwnDXa+VMQrmb qWEIsqeWFDML2UuKOzJlpGLmUb99g173mhKrmTvHLur7COeg57VSvL2M9gW9 HqLXTfS6qJyOHmR72lHoaUVSbjpSCjKRWkzkiF460cu0ZyPbkYNc4pdP/Apo BQspRZSlz/8D9xC7X1x/Hf74tevxlxt+gEV334Gld30HL9/8JSy+5Vq88qPP I21bLErpz20o4fETKLLnorAshwhmo4BWNr+IUpiNvPws5OZkInr1ekTm+5Bb 2zcT5TRr9NzvQO/cHPTesinuFgh5Cjwlw8qqTUfMYm6u9dMu2s7R08zpSNI3 GI650HLZKVPJSea6yVwXzV6HYu6/Q1ywtT1122zmQl3wx0I+bmWLP2fe6Rs7 CEcdmdvL5W69FMZatk6vPtzvYE7n6VT9zPBMnYPiTmDRzC1UJHHJO/EW8XpL PVIi1OkfG8TMzYnq29Ytp7NXHAoxKcESxHq54ujRunAbxJoHOznMRCsnHWn5 mUjnkGdw6LOIQA4xyyNm+cSskJgVEbNiSgkRe/XJv+OeL3wJD173dTx8w414 9Du34eX77saaB27F+nu/jch7bsCrd1yLTS//DXZXLsoopSJsp5jtFTmyiRrF oFZAzPLzMrBq/Tqkb94Oe2WLRkw8h1TWNluIWYvcMyrUm4NYiHVTId6QKtG2 7ukYftsUbC98Z6g3cim42rB3Hn8Xzs7PcNZrfsFA1dUazkS3PYazTsXZrNun Lfc6D2gfDwHNWnd81pi93rEDdEI9NHAEba/c1zA5UzSqksLWMtf6SQGdDPfp zQUFm74p/aIuvBp7U+VVZMmvMsEzWbsIhVuEeakTxfqjHyR15usmjed/xzr3 pKLO03eUQur6SF2v1oy7a1D3l8NQXoD03Az1St95cQPdG22Z2B+uM8QWFVPS tsVj7d8X458/+BXu/8KP8NA378Sjt9yDx39wB5b/9B6s+s0d2PC7u7H5oduw 6cFvw7fsX/ClxcPuyYXdTfDcGrxip4HOrqErLM6Eh+67MGUrCpOTULA9hdB1 KJcxG7gTM8CFcac2tbqICK4tfEPWsvXy4P1l/iBkoXcg8plFnMQ8UrqoloPB Ne6cgG5WJbf8UNaMXj3dQlyXIs764YXQnS19S2fwN8ZDy80+GUKctRi52uyA DXSOYPWvIlH00Aqc7Bl5j1kGO2q64KwbhGuP3ClCCBsPqmSshjBkqzQIoS6c MLtcOvE7el4Vb0WYva19F4MUXrTEprYlfqI2vsrN1oS1LeE39Th+89sWUt0l CV9Pv0XdAWqH4W7PKMqaG5Hh3KYg62x3obPDhb17SmHn4kH+yy0kcoy2Chl1 JW2Jx7bXYxDzm5ex7e87kPrybmx4pQi/+M6d+OVNt+GPt92ER268HW/8/F68 9oub8eovbkLUH+5G5K9/iOMVNZjI2orOJc9i98blCsEyj8HPZdm8LNQFijC8 xwV/QQqK05JQnJKCwh3pxK9LoSc7uu6WGXfqDllMeHo1fpJXsZa2oeiJtXsr QlG2cBZv1p1ouu73wyrceWbREji7js9klAf0foWqeOnjelrV70rZN5HrO2ym MpXaywVtNxe0nZ3Wz7qGZvRumU1baA7F+hUq667BmYXEQqz8fR4CT/lwNM6F /Zu24cTgoClh45p2VyectQPqPjXXXrkD5cBs5DrNb9joXWR4B0y9juwtCCqq MNBAJ4fxC1cQMbXZKnSNn5ctevMeEbtH/6DK8DlT8KX3VdVugoLsCOWwhqxv H8paWpDpSuRSYKsCqouAdXe60NvpRn+nR50ryM/GptdWYPkvn0HCI3FIX1KE vM1e5GTXIbukHjmOKjxy11247yvX4bc3csX6wzuw5MGf4pVf3Ihn7v4ynrrz WiRt24S0nBa01zRjpNKDyZIsjG54HfVJq+FMikcJQSv3F6Cj1o6RRg9GG9zY 485BaUYiStIIW0o6QcsgaL0EbUpD1npCp/A6T9M8n51xqn0X9C0HApq6beWi cogqSzD0pnD2pk0RFTFzY7TmiwHNR0Nulb+gOHN0HTOcndMVekHOpLRXSjPN 5A3qVTgb4bX0wzXDWeh+2CzOFijONm/erKo++PyTc74hRf06bXIF3FmNWP3v UVQknMWbDacw3d6Kw2ujcN7lweH6nssMl32jh+HY3UfyuJzYs0+Hdk16ta92 yaTYQLaKe2ZKLRQr8qtJQp7szY9YFTuaPcJczGmVTnBFMthMhjy2HUNG61H1 XpDGcVOLOGYKfkbOmu3+M6bC579MhY9scjHGG6Dd6+cyop+rnr5xIpnMJcQO VNbkKAR7OtzoIZJ9RDJ7Y4w6t/7PMUhaxBXsBg/ys/zItvsZ69npgovhsBfA 6SiAy1WA159+HPd9/Ut4iFi+8Muf4N8/+w7+evt1SE+Mlb0wQvefyLWXMH70 IFBejv5qPyY8JZhI2YCRLZHo3BKLsRYvRps9GGvyYK+XWGYloiwjBaVpaShJ ziCamZzYU7R/nNStM5lld5fOLHuCmWW5G+a8TQVlEdpZDum9I8FSds5GLqpf b9G1wJcpz6Mg7Dwacl/LGZsasfca/nRpsJ7bWokyt4VBd08f9gwPhf6LJtbG 2c2zGZQESUjNyNzfXp5h8D1YumgSZfZzGJiQOyRP4yzDsenmfXg7z4nBZyNx psRl0tAfQ+8I1xi7COLuIZpA43WbtNd1mZ9AUJvrPeyExAmSWjNFG+qn46Te Z+QM0vj59LYpxFSOIrZqzIbYneP4GlbxuKoqRCopFeOIDVDKx5HO9V067YUq Vxo9Y0rNTEmQZRtlD182SQeOGhAZmfZPIq+yBDmeZOQSxCoDYqAsCRufWYLo PyzFln+naSec7kN2qR+1NZRdbpQV5cFekg9HKSEkiC4DottN8RTiH3ctRu7S Ndi+/AkbPP5CXMNjgSJRxEVx+vJh97mRW+ZHK3kcq3BhoiAVg9GvYDhzHcaa vejaVYyyrB2wZ6WQxTSUpaWTxUyU5LoVhy7hkGsOl6SY1a+KnJ25o6bPuqtG uU+bKmGP0EXspuBEALxwuaJwgXnjHBZHrkdR4z7h1yD4PnOHgzGDQRVaGI5z VLle6+lF/6FD5h9yWUDXMoLoB6NR8psYnO4d+Y8wrvhHs11xaP7uP+ewqcPy mc2PkP906dP70c+ZluknB0RoN+16++FpFHVNY2xyGufpNafrh/FWegFOJ+Xg WK7DZlLV9qoe0jsIZ82oMaN03s2HtRntCC0L0aXPXnWnwikUcramcSUdXTFi iJVfmojdKT8ms4rHVTvHsJoSoY7vx+qqMaI7itUVfC9AKaf4+D3PKNIbDqOo 46j5IUVVjqSqkeQHKaRaZIAh1wDjiYEDKGvrILEpyPUmYWtSLPI3rFVaiHt8 K5JWliAzyYusYp86V1Hjw3gnTR1lkrK/sxx99LrNu52o9pdoap1E0lWoqF3x SxcOlrShO5BJan2F+BzcPLp9BWjby3nf6sGh7nIcpBzoIrX1fjh8flRX+NFf 5cW4PR9jW2LQt/Z1+BJWwZ7NRUtWGuwMr8rSSG1KFhzVUnhzDC5Gj64Oy7Fb BS06B1FAp59SfwSpDUcRV30AUb5xitwDHu2T32WO9u6jjCOtkSPAzxR1ntT1 aRIRXa4gVss9SuyOXKRXtOkasX6pEROU30eNnlD2wKMckwBNvz7A+LGffr2f S8FeLiAI9JHTp01t5kIMdAzh8Tu3IOMhF8bX7MT4lkLM/Q1jcfxzqA7NDn7a NBVKtUWztan3ziKZT6H/yDR6jk5zrk1jP3G+OHQG0zW9uLg9A8cS0tAZlwvH Tgagu+THEsb14rtZb0PJBrwqE5X6aH1HCAraDmHTrlFEBwbJ7hBiqobJ74iN 0I6Q1+pRrqTXkOHVlDVGVpPvNYbf1YrfEazyU7wjiHXz+64hJNAsF3L6+axC uitMpROjOWrXPbAf2e5UrFu+BK8++CTWPbLOZmZ2eoEHJQEfKup8ZsG90KBb TnTLsb9LmAvwvYPdARsO9QQ40od7Axhq8aBtjxORvyGcZW2Y2J2NI30BNjml j/zMYSPyvXKuKTXA5agntLt2SUjhQ2uVDyPeMoxnbEPX4mdRE70U9kwue9Iz UZaehbJCT9DkWrUMAm5+01Ek7zmMlZzGkd5RgioiP3kR7R+LQIxfLECMfxwx PhF5I8Yj9iDGPYr4yknO++Mzla90V7E7cpAeaNOljZIjk7Wj3GwnN3JcYYid MsTS/A7soydjFNA7gD2jY5cb/91e34PizQ5s+Fs2/vG9BPz9nl7kxZzD8d3n sY8jf/7gaBDe0MX1TbPhDYVx7v0971Y6+CGzcre3vImSzmnsHJrGYUL7Fn3w dFU7zsXtQOeyeFTkVMO5d0KvlgRW2bY3VSzy08zJeyaoyT5ElQ9oUCsGEVtJ qRpiHDBEOOXXyFZXD/Pvr+FxDV+vqVKvBOU1lcP4LGnlycAwVpfzSz6KZ4i0 shEHGywbQLx/WFVOWQV5nsHDiInMQdTjcQwAlmPzC+lI3mBHWrYbiWVuBOq8 qKt3YajTi5FOH8bI6Ds4VTYygIOE9FBPBdGrEBorOMWP8Bj1kB9TznacasqL wJF+vidnP6V4FUoP9fLrPcbMUiZpavfxTzg8frjLfdhd7sWAjzYoPxMjq5ei fkM03Gs3MEAgpZ56Y16PI7dhChsCY1jpHkKkZxhRnKhRvhEBc5QQ+uUfYIjl UZ7FaqH/8sncj/VqvxRDiXXx0UlxDCOt7qBmVCrlAy06rOq3TKkxp4NHIwwb 7oHJoJd29faj//BhY+bepwB1cIX5xLdi8MbdpdjwyCC2RZ5BcuY0/vqvM9he +CZam0+hr2vsHcHAzE9xhgV1bg2+TuJZu4UfN8snT/80L1B+SG8aR4nnpd5j mPY34FRMPLoz7SjPrdM7V22HkdcwgbiKAUR5egyS/YgJDCCW5wTJVVWDJLFq UNjbOchnA1hdOcC+rlHHtTyuoZlVUiEfJc7/gdV+ftNH8bAVN8XJVu29iCer m7JqsOR/EvHq7RnY9Eg/tkUVIjXZgeQSJ0orSrCn0U2H5MEgORQWh8niKCER HvcZHvfTXh4QDru16RNzSBYVioKcTejj5R3lMeb3ARxxtxHK3AgcHSCUcvaT /ERAg9knYLKt3oCCcn+3Divkb423+1C70wuPuwwOpwedjGpHiwsYC6xDW9Rr 8C9Zgty6A1jvG8EKxwBWugYRyTkYybkY5R1Sfn1YWclhCr2JX35vTI6fUh4m 1hci4m084nEoLnodJ6WMHqyEKk5zYGtJpS6tnE2kqR8yP7Q0eIAjP0EZpekc CuJBd5u7uQyezVV45sYNiLy/CpuenMSOdReQXDiN7dXTaOZyaPf+afT1X8BO 0tm17xQOnzxvASq/NVpTU6NCAQPo18NkNUOLfFRGhvFwuBpZ/cvCV6GSiBa2 nEXr+DROTFzC212H8bZzF44sXYfO9BLExbkR6eqiQgXPXkSX9xLPPuLZx3ZX VfZzkJeVBLCcsrKonBKIQGRxgHMhqiiAyMJy6rORmPYT0X4F7RqSvYaErybp q/wUUh/r6cPi+HIsfjYfz9+0BeseakHyipPIzp1GiqsXifYi7HBkId+ThIF2 N/+0EPo+w6hP2ctRZS/Ltb3sEo40o0KnsGlTdF6hyDzSX0kKKQOVOEZZ9Uc+ 97bhdFN2BI4NVvJjcpq0alFfqQjF1YYDNKQfwiSJFVL3dfgUrd21ZSjLSUFy BmdVpgt73Yxu7aUYS9uOieUrEdicjzVxVBZnZKRb5v2gUOodpG2J4YyNoSeJ 9RuR5179KB5GPXpFhvWjeBzldShO7Xli7YNYstWLV9akzg5DTXGlW8khQ+t+ kipOftTgcQVe+lEiVv2qCZsXHUHS1ktIdkwjYfc0Gonm2KlpXZ59ucJRfh/V +ocT5AfBLfv5w9l4hqZBtf2cXewo/5ml27uT+hH08sLtdLmptSewo/oiejhf Tu97C9Nt+/F2kQ8TL8bAuz4NsZt9dEM9WMZzy7laWZKahNfTkrEsPQXLUlOw gmLDytRUXI+VKamIFElOxcrkFKxM4vs7UrB8WxJiiO4qZyPdfD+Nah9x7cOi FzLx1HdXI/bn1djx8hSyUi8hq5Lzt+4UtjdNoaCqBHlcQeVzBbWrJk+hKqAO dHgxSBkmJCMdNKUdM6gGTSnd+SFierjPmNF+zZ3wJyzaFJcMof9cjeN+otqY wVfHByvljQoe+LlP48iA/qa0cqjPGFWCOkmZEG9PGZe/3u5FRRm9uiyistKR lZ6LrcmF8JfZMVi5G2/TNb2d70LXqmQkp5Qjyt2PaDqTaO8AYryDCtVYnzyX 3z6P9fTT8qziMdbLCR2UAQo/R1GPRD3WJSIOaQBLdnjxfHQiYoq7uTDbH4Kn VYx5QJGQWFKDtSv1lsVrd+Rh3Z961fPk1LeR5JuGnZFg/YFpLmXOm3/Z4b3v 4DPkXyVSnzCszoPqNUG3bqqALJOqzmmz/APU0H3buXRx7B7HOvsk1lXsR0bz NIbo9s+OXcSJXS0Y3xqH0qjFSFy+mBQmYUV6MiIzUhBNImMosempWLw2Bg8/ +jv89ue34XcP3IbnX3oGq8hoLOmMIZ0xSamIJplRW1Pw4uOv4MXfr8GKH9ux 5al9yNjyJrK900hseBtxdYcQ7e5AlLMVkaVNSC3ZTiKT4a7IwECbi0R6Qoj0 kUi/IVLMWICMBLThlACzt2LGqfcLgTSX2jwuwPGhSqz96y6c4HriTEPqQnXi Q8Kj+oBQKyxOUQ7T0R8kiwfI4n62O0EWFYdisHkNXbV2cpiKfM7SjXHx/Dtx 8ZtpijZxCZrWNI0R+qYL/Rw3rraPLt8E34Ysho/9NgUffbu7TwEYWdbIry7P D3BwXs8sxquJyVhCeY1qW7ojGUu383ErX29JxspsWuCscqzI8OO1RA+ejyWG 9m5El3YgX37vivi5Bg8SvVpsjCxR477iXi82/mNMo0e/tKNK267aA9OfNWbt XYiz1t+hP+P/g9nkhSaoQrfOrRuB9fL++6hp3I8sdnZ5dgO72owVRa14Ka8Z sSVebLG74K90o8FfhtbCVLTGvQHvyleQ/sarWE3G1mSk4i+PkbH7b8Kf7/0e HqU8/hPKAz/C3x+8HSvWxGKtWMPodXj1d4vwxn2vYf2fU7DllTJsW+tCUkk/ Ergeja0eYRzQSStLzrzttA0tiM4pxqod65Fesg3Ne4vJmluzRjszwDG2WBsl Z2OdMv60Sd2ah4O92vJZnB0ZqFSo0c0ISgKWJRsercHJSsaSexOpoBPDxJGn tWn8Po4OWsCxQUJ3gNDt55JHAUc/Pd6lgRM/Xe3KxcaNcdi4KR4bExIQt3kz 4vgYm+bEC5kTiK85g/phzvpRupjGCbyZWoDGNzZj66YixdiSZJKUkoLX6Tbe oNKWc5Ku4OMLq2Lw+KJnlCtZmUjZQddC8laQvBWbk7A8IQkvr1yFZ5esRGSa B9GODjz97+149fdb8cIPNiPmF7VIeE775+TSaWzZpSkbPxX0lte8C23mN8qt +8hD/w3BeWj7/BzaxEJq63Y9po6cxdrMRizPIG25zXg93cHptBVLk7djecp2 WjMuIaRy1OtG3U4Puvyl6MtLQvfaV1H4xJ/xhzu+iYe+dR0e/voX8dhXv0Df eS2e+9F1eOH26/H8/b/CsvsXIe5P27DjlRKkbPAgKdWNTemlWJuUgVUJnJJx 2zkta7lGF9pImq+NkWiLsppCW0bGVgy0uhRtNsXaVTyStnZ/kLZxRVuAtFWQ tgpNm/hYiekGTAiorFYV2zg+VMXV5QkeTwxXIe4ftThV1Ybj7QVylme+zfc0 inS6GjgD3SG2d6BfW7lJQrdPQaetXFeDHaX2NGzbvkUBF5dA2DYnYBNlXWIm LXUnzVc3Z/Io1ldNobhjGgO9R9AVqEB9Shxc695A0rIlWJ5GmCiRlMdfeQYP /OJ2/IbyP5Q//fx2/PNvv0csPUUMTV40oYvaRk+zJQlvrIvH4489jld+9TJe u2sxYn5egvgXh5CcxADPMw3LzWV3HYCjd0iNvjr3GYNa6L+RFYKa9S+rh/4D enNQC81RfiFMSlNnir6Emv5hZFW3440d5VgSn0BLvZXPt3Fe7WCItgMxqYxL 0xOxRhzo9lzEZdfCQyT6drbjkKcWf/n6d/Cvr34NT37jejz97evx3He+hFe+ /TUs+963kPDHZShY04r8zAYk53sRn1OA9Zy/65IoiUlYsz0Rq7fsQGw8cduR yzV4J6LYtqAWm7gOGdnbUZibBE9pBilr89gUZFfNYNYptiVgMBMEiFmfBGGV xKxSY2Yco7ZkVcp6yTH+iT04Xd2Kk+rVyZEqKlCe07YpOU45xu8cpRzh9xVq lIPGvk32BmbZt0AgB2XOdJQ5MuhMN2FjvLZtmygbE+KxsoSolXYp3FYW1WNZ ZgFeTs5HXEkp7OVu7C13oq0gHU2rl6Bgw0o8/+if8Yt7v4vf3fkNPHzLDXjs thvwxB2U+76H5x75JVYn0vZFrsUbT5OMO5/Esl8uxxOPPo34RaXYEuNGQoIb 6zYXM5BxI1f+QR6ujp3943D0jWDqzNn/jbAP/O+EhS4WrN3y0HuLP2myj9Yv 8hbtqceW/B14Iy4By7ZuI00kLInGJjkJq1OSsDYtCetoYDZQ4himbaJEJXvx 6C/+iD9871Y8fcvtWHLHrVjywx9SbsbKu25DzH23YsM/HkFC/DZsZkidkJnK 76Uijm1sZFiznu2uS2LbO0jwVtIWT9rWb+NKeRdWepqQkUPCCpJQmJdM0pLR UltK0Og622jMlJC09nJt0EjZBCmbpDELktYvZGhClDGbQ5lwteXpepzZ3Upd y6sPBOkSUXRRxJgdFroGtDHbT8ImjDGrqMylUShzZ+A6lLkykMcQYyN1KMZs k/GekUWkq7gLy9Ly8AZ1uow6Xc4F2ErqYGlKNmIySuksPGisqMGgkyHB9q34 43e/gt9e90X88YYv4lE6iie+9UU8860vYNFNX8Lr9yzC+gd3YOs/nUheXo34 dSV48unnsSEpjzM1C7GbtiJ24xbErk1AdOwmFFbsJlmjJOuccWLv+g+ZfXCO MfpfyLL2wENv/PyE+Qtiu0L/y3ClY21yoraq38Zqmpm1yQIB49s0QkXrHZ9O SDLSsDkzDfd+4fN44MvX44833oin7roVr95zF1beezsi7/8Blv7kG1h857WI fuERbM1Jw5bsVCQwVo7PSlVgbuRaYkOqbnsdvfrabQQsYRti121Gcl4+CgpT UMiBKizgY14KCmjGBloJVquGakjAIlSjjP01WBU0KRz8PjExAoMG6yi9o3jI Y4Tq+LB4SoJlUyQtwLZnGnG2plW9othwaqQqIkiZ/sKxUMIG5xIWQHerE2Ve 2i1PhqIsk7ouc2chryiNLjNBFgXk7LOIYojwBmfscnZ2RbII6aICotL0YmoV FbuaEpnmw+acdqx+ORoPf/dmPPW9H+CF734TT3zjq3jhW9/Ea9+7Ectuvgnp ka3I3N6OxOw2bM32YPWOTDzx1FNYLT5hm/iF7ZytW7GalK2iG926eRs6d1d/ an64PvLucH3NbGJbWTv5BaCBgYHrwvClq6+vU5Yrw5ODNHuiQiqTfGVTQ/Lf RrFaW/X59Yw3NzIOjWMcGp9KuNIITHo6tmam497P/Td+9tXr8T/f/Soe+d73 8MSP7sIbBG3D/d/HGz+5AS/fcy1WPvcwtuXx87np2ELYNucQNgK3ibCJJdxA Ha/n31u/Ywc2U/9FmdnITlhHv7qF4yOYfViDlp+M3YGCGchouYKQdYu/ChjI KglZZQhk2nIRMsWXxFwaKSU7nm/C2T0t1N2p0SpGwSdHZ947MWJc5bDBjHKY zR2ag5mdiNm9GUQtk6jJrkY27CJEraAonQaNhmzjWsRsiKJjSGQIn4TIZJFk RKdyrU4VrOL8XZOeaqOXSMP78Pjf/oo7r/sKfvGtm/DYrXfgpbvvxPM/vAOv 3nkHlv2Uct8Psezh33DaS+JpIxt5v5quUve6lj5hjfgEmbb0RWvit2DNxk3I 3LIVTY4ijDfU4cyRqavnp80qng79Jz+/P5s2yWzIf1Kjwxa+ZL4Rei/J1WZH 2F1divSy7chwJKuvZNPi57qz1fNCbz5ySnUqZuN2UpGUhvjkdCSkkJi0DGzl gmBbRiae+csjuO/L1+K3370Bf77xe3jqZz/BovvuRfQDd2DVA9/E07d9zoYd BRlc627PTw9Ct5nQxWenYRPd50YCtz4lUd0GVFqYh5LcHORtX4+sta+gIGsr igrTCZtl2ZJmwTYisHGFqWELtWgGtkELNhqmYR3rn1AU7RSbtpOaSXqpGef2 thC1nRw1Hm2Kug8GqZPPHx+pUsQdHbaIY3BGOUDq9tN6NtWXwOEjcb5MShbJ y7bxkCP/mhHns4OSlx2Freufx2oCpx3GZxHNtaMkfWIpkgRaQ1lH6NaTt42c z0888gju+uJ1uO8rX8bvr/8WXrz1Nrz2wN144ce0cbffwDjserxwy+cQTwez KV2ikFTleIQPIW89qRNnsW77dmzesR3ZtKNFjLG9nOcDlU70+R1C3Yfmpy7c P6w6izqdT4uOjla/N/zlMMhpM3kz9h/ah/TSLch0JCLLmaLUkCsz0qNRK/EU cMYWaudKDjbtIHLJGdiSQuTSMhVy2zMzsSM7C3+6+y787GvX4qHvfg3/+PlP 8dzPb8ML992DhhfWoG/pi0gszKLwswX8Dgncls92yN/mXLJH7jKLsuBwFjDa zFd1WGVkryBpA3I2Lkb2OmFvm2ZPeVWGanX2OdwF5uGuiqHWjBc9oT2pcqLK kpGt1FdacK6++TKF21VzUKsKojY1C7UAnP40OPwZFGLmo0HzSbRm9+VxbeXw 5iIvNwa5GUuQm7ZEqTFqSyKit+kZvopLxtVkbU1KGtbRb6xPpSFMS6fFysDr y5bj7s9/Afd+8et4jNHvS/ffg1d//WM8fcfX8dzdX8Xzd16H5c8y8qWPiads YkATR+7++eSTtG6J2JCSonhLoW8uzclAKVVckpGEkpTtaPMUYZC89ZO3s0en PjA/b9a/1h76b4/O4S00r3FDGN400bfi9Kkp+CszkVm2DdnOJOQ4dS1eAc1c kSdPPS/zFFJxxeq5x1sKr78MuQX5SMvOxba0LDKXhe1Z2WQuG4m5DG1XReEv P78HD36fk/LmL2HRXxJQ8uJeHFsWB0dKvOJuh+FOmEsrzkGuPQ8+fwnbL4bL Q3EWqeJTB7krTNmI3LjFyN34KnI3R5G5DDKXRkmBx5GJwVaLucA7meuvnGXr Ohqd6Gp2oZtSTsccoESggscFyHitFecbmtDX7EZfkzvE1i1UPGr4aCtHtJ2z KfwuI3yVCr6WhhK4FHiZFLFvJO/LsPvzafo4fTidczOXIo+Sn67ZS6UH2Ziq Vb46MQ1r6EHWUdbTi2xM5bqV3G3itI5Pz8Qjd/wGT3z3l3j87nvwt3t/gpd+ ey/+eduX8a/brsPjt3wem7MzueLKVI/xWRmKwSfI3nratO18nV/A9XAhJZ/O ni6mLJscZuxAOYPh4WoXhqqcGPDb3zs/e9avEoVmcOdh7yth2NPrjdsw3F+D zJIEZNt3IFeU49T3AhW6c1HsyVfPHcKCV6edfX47/OV2jpsDgQoHl2FOFJYV ochRzKBV2MtBUl4u1iyN5xKzhbbIjeTCXKx4tgb1r1fi1JJXyV42Wc9DkbsQ lTvZRpUdgcoy+ANl8JaXkr8SuPk3nYa/ovQ45Me/iry4JZq/BPJXNGPzZtiz 7F2FZq9P2BMmnNi9q4Rt58NHysorClAhUlmASkpVZYENVRUCYdYbbTjf1Iid 5fKLHlX+ArqDKkYZRFFBOIMg7d9IiP0bmrF/bn8qXOVEsJym20+/6s+jkD+2 VuZKQ17W65Q3kM/HgszXlFrzvUUo9OnpnUDO1iaSP7qUDSmZjJ8pqeSJ0zw6 Kg6b71iJ/UnVeO1vf8avfvRD/OV2ubn+Ojz1u3sQuyaSsXIWQxfNYIIIufvX U08iNz8bTjvNSBndSXEe7BwGez5Dgbw02LOTUJa5FSM1LozscmK4yoGJ5lpc Nj+Iof/6r5XcnQNiaMbtq2FA1JV/C3FwshddrXZk0/Hm2pMIYlowEVjszkMp na6AqM9dQQMoIDoIolNBWFnlIkwuVFW7sXMXDUf1bjedza4aNzZTaQmpAQy0 2VHqlcrRMqz7exOGI0txcO1SftKFnbvlq2yGUrHTSR4d8FfY4SOPbp/m0eUs RHHGJuQnLEE+WczbSB7Xv4rCrO3GFiajhjzpBcaMHdxHFhvrHQoEFxn0BMhh RT7K+dlApeLQJhBSz1WVhdhJiV++DrnLO3CuuQHVFYU2AlnITu/0FxJHEktl NO4swUSnL9QVa2N4uSJxoMMFT3ka/2AmvXE2/3iuotCmOFyI3GwSmLMMBTlv oCCbJGYtNTmGq1DsK0UpHUwZdZxGJ7M9KxdxyVnYlJLNlVw2Vv86Cn1RNNAV NXjluRg8+cRSrFj8PCJXS9S4NScbHyWF2YrE1II85JQUwOu1IyYmEmmp2+F2 Upkk0VnGWVGSC3sRr48OxZGfAkfOdtS7sjFa48RokMQa2/wgWrnc0MTcHBBD 0yfWudAbibW//xg6m8sIExcZpduQx0VHgZOWxplFCHNR6ubUYZjg9JAI5YWF EAtCAljlRtVODwH0oHqXF9U1XhJIqfXasLvOyxkgIA62O1Czx6ukuKACuYsa cSwmCW2ODH7FrdCt2sXm2P8AYSw3MHrKyxSMLncxijPjaRQJ4qbXkE8Q8whi 3pZIZRiLilNQU1XIv0MQO7VR3FtXRvipa0LoJIRuQuglhP5KA2IVjSGlSgkp pFRT4lfw70R24lxLPcdWsVhNFi9XLO40LFa58tFQWRxcfWgQ36tAbG0s5oWn w01z6AyaQ05mmtiCwjUCoU1R+FUU8lhIDguKNqvhKiaDpVRxmV8mj4MsO+nc nWzOhezCIrx8/0uofSoXRysbUVBcjKhITu7SXSo4SissRJ69BPn2YuTRQZUH XLQXTvj5fb/PgdjYKKSlJcLj5lDS0bjJo6tUeOQlFjN44IR25CeisiQFY3Uu jCkeHegPFGN3wD8XQFz3/4/Ar4cQaO3x6/r+W3Bofy96Wuwcgixe+nbkO+jn nJkokpu2XTSFLhpxt8RoJNBLvymmkAQGKlzKDFbtpAmsJoG7Lfp8hM+HGpE9 In6uVyow2OlC7V4/RZ9f82ItapbV4GzkSjQUp6K6liQTxyraxkoGJxaKvgBR pIolJrAXpSF/MxFMeE2juMHYxGyuS9iG152pMGyjD/YTs1K5GZPLAEc5bWEg T9lCL12v37KFVWILyeDn2P0CEqglYcUWFMWQwta92MWP7eJXqkXozqsJ0k4C tdNXoI0jYayw52KswztrbbJ7VzbJySBF9IPGGgqEZe50bQlzl3HpTuFjEV8X 0j8XcZIXU73a61ypKHSSIne5WFc3Qwo3Mrdxxv1mCw4V16Npt58q8uClv21D iS+Alj3iSjw2WgcP/V6Fm4tMIbGcbaxiiJ6ensQh5DCSQo9Q6MinVeQMLeU1 FqfDWUSLmLcVXVRXacJKrHr6T1j11B9RtHVNyC/fzs7sGeosZxtaj/fNEOqs Quj3GrvX1VSG3lYHcosTkFeaiAJ7GonL1D814KLdc9HukTq3p9Q4X01cRdDm 0d7t9pE40mYRt8dvU4hFoLae0CUJdB5qs46v/ludq+O7MY81YiDWgyPxUdhF K1ld6yV4HlTSDgZoB8t3CjwOwkL75y9Vi5O8UOjojPMZGOZtpf0r5mUXJ6K1 3knTLWY7J2j3NHR0wBXaAYvtC1CM3bMJcjZl9SKQsHIHSlZ34VzbHr7axXMf RTU9s0WdRIhVijh+3812HHnorHPgMIkT2jx+Lozoe13lxuSVa9ryDGkFuctt KMpbjqsVcIV0x8W+MkIj5s7Jy3XR1LkJmluDFnAjfVsqNty2AuPbqzFaX0fN e2m2fVj8r1z4qmlpdxP8nT6GQV6qWN69mvGtR9hT6MloJSRsxPbtCTSBZfDJ SHJEPbQnLl6+S+7Dz0tEwoZlWPLio1j9/F9Qunklunw5GKt1YHR3Gc4dn/p/ gS60dOlbYaDTNxR/HIcY9fU029FH8PKKN6OgNIngcT45shR4pc58BZ7LI8tS XrJfO9sAnW1VlYchG2nZJdD5CVw5TRxlT4DMBRRlARrfuoYAEnZUYrDLiz18 vqehnOfK1WNpUSVSX2rB1NosDKZvJH0+7CR9VaSvYpcb5TR7fkYgXnpfN0NB F5fGeULdZq4fE5Zq+jbJsmQxh3ErsvK3oYDL4UJGMMUekucLJS9Pk6c8br4y d4q8nXSkO43H3SlSRPqSUbauG+fa6wgfT16nEKzmV5SEAFhJACsIYLkjF3X0 yZJj9nAJ4vGHwEfzWFy2OWjihLui/OXqsTB3OYO/ZSTPQWeryXMq8jwkz0Py PLT4Xqz7n2h0rnBjf+1esuUzpPnw+ot27NpTgbpAjiyZqn02Oc0D+fuIYq+i kjH4ZsOdREw0eD4OaElxFrZsXo2lrz2L15Y8jYS4FchIXoMGGujxejfG97ow TgM6VmfHCNmzciihKb4b/3fuQu88vsIydo2l6KWL7W91Iq9oK7ljoFeWgSJ7 tvoRnjLnjIv1+CTIo+uzjF21MXbK0PnJHF3onnIyV66QsynKFiBhO5nr9mFv Y0CEp/nkOoXj6heqUbFiL86uWYsWxpfVxK6K2FUSOzF4fho8rzF4Lj81lbN5 Brn410zgtxgZiau4VFzPCCGLK3ZGB/IzBwq5XLqpPAZ5ocjJSoMrbnJUVVVE 5ESKiVsxdlUXIz6KAc+GHpzrqBGDV13Eo6CokOR3aB1p+q5ClXBH11lB7sq5 MPPTatSQr//L2XuAx3XdZ97vA8p2vLsptpNsku272ZJ8+fZ5dh/Lki3JcpNs OZFkSRTVKbFIbGIHG9hAdGAGgwFm0DswmBlM772i90p0sItUoy0rke0k3yb6 3nPuAARl2k6Wz/OfAQczg3vP/Z33//7PPffccKyTYVKYi1ul2DmdGvKVp/Bm LeR3OG2FTKOCOae7idsapNqFyGeI2xuWzEXIWjQRxfktZ5He143biUmMDCTJ G5s31RsXdwoviGJ8PMWjEKNPjvM5LtGL8cgSQPYoNiXVQYhfl7ENWq0afrE0 bLMeBQU5yM8/RSIqYDI1sqgTVbEBfhIwlrTgxhjBGyV4IwHC55fwfXR98S9+ M3sbh1zu38De2hXHSi397/DJX3+IRSbb5Sn/Bv7a4ZD8dd/hLyiSrVcpMhLC epG/HlEZZKydTLIKe0PUO6F2ir4liRpjIonaRjK4KFpnhP/7knx9RPyOKA7y vfXF45jXJPGT5kr00gKmmX1TBDHRr2hflNoXzmify6xAmCUx/D0JoUmfg9qy w6horWS2NX8Gwg2VBgUrlnRwHxzUPSePjpMHrMfFbNvr5hHt7XMTQHozvQCw H338fxYfXfjPEs6+DIhCI3vEkA2/L8XvTkapo2Er4gExptyETlNdBkKLhNAb 7qToCQDzM4JXKBEUzwJCsRyNhDAqIAzzcxF2uijbOwZDUxdMm2vxrmMUM8M9 Cnz3sfkTaCmvQXlVEheno5vQ05/AH/ExLnmUkWEwTJHTVJQi+9hhFJecIyHV sNk6eUSZdCPiUlQbgsFuBAKsfX3tGEuTv4mwwuAYGaSHuTHiw3tzA2v8bRzy +zX8fe0e/CmXsP0BPry1iCXytyL5C8LmYM5ilePwsMTwkj9xqsFPsxe8U+TG ksy5LC2SG7Svb0371nPt5yV7IxnGBHE19YI/at/oRGqTfOV3MMTfeRxJNJ2c xns6J97Tn0dPRgCTFMA4BTDaQ+5S5C7BnBsVOfeCgt1XYGKqrVcfRZ36MCob Sql9xC6YwS5ilUO9AWpPiBFJOLjpLP5YmybSLmLn5oFx8wCJ8IiCts/DY1pT ytKgdgk/n+tFX79nk+Tvy2TTxbe5pFSKmliMEaZIXpJ/Is4/FeeftFqb0Niu R7ejlX+W1FFy3b7ajOxJ6jZJ5L7CIoPARQLcyhB80TCBixC4KLNsDJ2ETfXt fFyu78XVsVF29AR5SyLVlyRaSbSWm6FvTfGgudn4osF7id1X+BiX6Alj1NnV jDJ1AcpUeajQlhK5fHq+gByrjcVpnuI0UTEWGew0QZqTQJBlrp/Y9dhwY1J4 xhvjIUJzY5zYjVL6hj3rXm/jCN9nuNs4wvfAPbi7L6N715b6sTzBnDsVwOp0 CDY7uWN943CTO4/lDneiIo+KoWD/OncpwV2/qAyiis8T+Xb0jubJHEu6RkVM JlFdm8TqkrhAQfzvT/m6+D3fL4Lvba3uRaB4Ap/oGjAV6pK6J9ljqRvrZfJN Z9hj8nW0qZXES9/XojmhwKc5DF1NLr2eGfagBU4xQhkR6xzYaZ7Ys+NOwudi leGib3BT89z0Dh46Iw8zFAHr6fPS/laXWhGtXyZ3aXLn5dEU4ZFUCknslZy6 CB/ZFbJJCU2S6wQr6Lg4jWYnfB161HfUylpNSJ69+wI9Xh6U6uJ/wWFTJM9h LWKaaSaBQUqeQmAgQ2CEclf6Sgkm84J4d2h8nb406Uv3ZwjUetBsSWFuTBCY pOUmnRQ6g6kV+hoN1JpCGIzN8PisiEQ9TK5MvJVqOTgrzhTEkiSQTRpm04gl IoLc/kCY2xzowFivQuCNSYrfBMVvguI37qcIevHTdxYzN+RQKFwbXPkMhRsH Vx68B4WbMhXH4piHFPrXKQzRftmdHbC7BIVC/VjqBu5BITNvqk9QGM1QKJSP mXdUqSQEhSLLCq2bFBcbVlcnsEIER6eSGJtMZmVIHJlco5AEM3SFY5jU9uMX mnykh0X2ZaGWoTAsKEySwrgLXk8nVTAXHZU5qFdlo75cobC68gQrpm5l0UmW AWKc3Bd1IBBlR2eeibDTRxNu1roeUujhofXysHlJIaPPS1fX72NqqC5jgm5c wc/mUjy6PoZXaowX35WsCrVMi6B6pqimSapqguoq1jmKkUaro5kkVksS27qb 4Q21wZEhUVYZIuFKCgths/CZ1YokMRKmYkdIYpQdLoYcur7wLhPei01heDDN TU1IDVyjUJDXVh2B2ZfGBDuy1d6F+iYdVKSvua2Wh47bQ73r7RepOCpTsTh/ fvbcaXbAoBzXj6dIIjul6KDhuFikhCRGTDT8JLGPJE6RxCmSOEUSJ0niBPVw nGl4oX+dxI3DfPcgUUyjEnXI1z9D4p0LIP8IS4R7hZCv8k+s8k/1JTMT5JxG uNxMZl6hh467SUxtIHEgo4f0bWKMZY3EEVJFDoX0iTJEr4tLDsemEiKy5Mt/ zke+mzE0QY7HY3DbwtAfn8aN6gBuNxaQQ5YiAyHE+qiGzMYhNlqQHAl1s7eq UCcYFKE5ivqKI6gtPyAXDHT4bXRVdrhDDmWonNlbqGiYDlJ0/zhlIJ72ci98 dBM+HmAfOWT0i/ATRILVLEBkYhvwCwb9NK6C0p4+n2RRoCuEVGTzhBRYJ/Ob A1HmNY/fgIZOoYg1qCWLHV0qcpgr03EW6StgBWMng3aqoc1eCWfYf0cRMxy2 NRrQ/IwON6zC+PVxM+Ns8Lh0fuwvzL5flMpXeroTnngaQW87quu08AUdUir6 BhNUR2G6xbDEH0gWxdmASNSN4yeOyTHaBI11nN07xsQQ4T6EaSuEaQ1EyWE4 w+EMOZwWEVJYpGTdmGRepoStcSimHqyNwWQ4/J8bpvStTbIKBALKCM1/ugvF D6itv4QhDYzdJuZpEkNXt4JhIHPOQ4waJe7GUAyV9DJ9CgwHRqJyaG94LJbB MC5BG5tUnvXaOJaXxPmBsSlWc6NTcRziL/gBhiSR0T8Whcubhr1oGh/XdWCS SSJOEuOSRCoiVSzIJgvwkLd0VbP+yKYZZGiyJYlt+uNy9WYH/YSTdZQ76KQc udisbnpJj6xlIgkhAT55COLrJPq5QwwCJ0jUl1Hq2lbxyRxlZCBABAOCSPm7 dJ9fUivoTVFRRW4XOT7O7YolnLRaoiC2ol6g2EkUO2tR11yoJGeiaKczFBja GJbuQqngrlCAJjaYsYcKivnfvIDF6h6sjo5xO+PrKIapBZ1MvLWNOlRWq3H+ QBdi/WnMDDnRL/CTEefPcfksvLqAUQzQitoxShRPCBTXhvXZBjF2pwhNRpgu N5ggiqyj/JEOLIz5iGJUwXEmrODIuuEG64frE97/Z4PE3ZPEu0dllGsc/+M6 hkPpAJZG6QppOleZ9lcnQ8QwwpZhAqG4SwQ9GSVcR9CXQVCcI2NFLM6ZUa/6 xTm1kQiGSNDwmBh5IYYkalSEwJC86cpjWFpMZwgcm4pRC0cyBA5PUEnHo5LA vtEIKi4MY7ByGH+rL8MQK/T4mhZSv4I82gEe6druelRrz6CWWlhXLig8gnbd Cbpaq1zW3ukjgQEXPKymfGEPO7gYw/ayw/skgWJcO04xSIiJEOLkM/9GiqSl GboyD3o6LpFA0c0Cm+SLfybhE7AKaJM8cAkCGGenEFoiDKeoesR5lTrCV0v4 agR8DWdgaM9RTvda8pmDC1gwEz4bNTDggysYoGQr8PnpDC+8VIihs37cGpzi 36BTjPjQZmgmbBpU0e3pajXcvW7+7TDyjrvRP5rG+KAXfTTnwqBnSYP0x3KA 7FfCx11Ncj8kfNTzSJrwpTLwickTkfb1C+TEFcI3ZgnfLOGbIXzTdIeTXnx0 c2FdCzdOOH3wVxP4SGbGgSDwQs5B+I0VWM3Ql0X+wiyr7BZBnwEup5n0WTP0 uaR+RBLKURP0JSV94Qx9YYU+kjM8LuiLSvqypMLdJ1mrUkWwuJjGVF/XJvnC nxE+wsoYWoNvPIK+Mab2kTBURydxqS6GD9tUhM+PCI94mC0VpAMz+rpQa6lH TVsFqouzFQBVh2GpPQdrZzUBdLCcd8Lld1ECCV/Iy6MoxhPFcI4Y1vEjKk4s pwPyBIsY7hFjj8J8phhVZXSBhkv4m7kAG1C88j8kmEl51JQjJ6CVWYwdIpoW R5CJntk4SAmp7dRJ8qoNtaivPYqWphOsgC/IEyAWVsJmcz7NgkehL5ChLxyC +kQV3Nu7cCMyBS87T3mVGhV6NbTV5TDbDJQ+4U5J06CIOEpywxifSgvy7pPo /bFET4yOyRAuqV+cjg9LQFJiF9mUcTZljOWVhC7NgjgpoGM5Em1XLkkX4F0k dBcJ3UVCN0voZgjdtA8/vXWnJNk4IPgZ6DYOyChrZf0HXF2agDZ3L3q9zYSO UjchgtmTyczBvXM5TPC4M8CFMsCJ2l0Cp7R+eiDIPQ9lgAsTuDDlTkAXIXAR yh2DRI0xKkvDWCBwSz16COLEhWKSuAlBXITE8W/zs/38jt6REByuODoLZ2kB LVg2VyJCvyWJYwVaa20gzLXWenaQ6toiUncUjepj6BYj0qZ2llHcB7eL1Lnh 5pH1kDgfdSMQFafuKZt0DhHKdjQtRrhFiROU1GVJ7jahsiyAfuMl/PVFr5gP KIlLysNFqe8VIbSCxFIvotS8CIkLk7ggk1aAxHW526A31DDqUEfi6uqPwmg4 J6e6CNrsri6aAhLnF8T5JXHVVY3QP6nFJdMIBmIBqCpV6OzuJAZM6qwfUvRu aVFLZIgTWlauSWJuNkXiYvdJ1r4kT3au0aYQF6FfCOPo0cO0d26FODZljCVU pGeNuG5mkC6MDTvlZZlZfIzi83wMZ6gjcbMBhbh3F/+vgPsTfHhjEePM5FUX 3sZkykLYwhK4KZZ2dksnnHYT3GIOjlhlNOSUJ/UV4HzSpCrABbjzQfQNhwhc CIMZ4EbuACdELsJN0BYFMb/Yg5UBwcrolLgGVvxmhDHMGOKfHxynWI6FmWJZ xPDr0sNBqM72IFk5jl806DDsb0GYXTOYFucgam0N7NK11jroNafRojoJs568 We2w251y2ofD44aLx9Ud9MIb9pE5P81LQE4XCSWDzClBsiIGFVnO9IqBbWEm Q+SNu2O+jI9nXDxAYuRLcPjfJZNx8iZK8GivorrSeJK5EOvfAPuCn3nKFjJC x/yqo8LVkrfaumy0tebAbLwAc3c5t4vb5vXAZLeizdiFssoK5Dx8DtOVaUz3 DDDnCsMV5nZFyHU0w1uUvAnDGZW8tWtboGtMY4USJE5ObpKofU7+3D8oZxZl oBOn1cXkoX95B7p+AR19QZ/rDnQpAZ1BgW5eQjcvoZun1M2FlLhI6GYI3Xvr 0G0cdv4MdBuH/76ZGWT58Poilod9mIh3o+j4NoJnU8Cj8kS83XDajHA7LfB6 rfCLs88Rt5zcFJXFoU/mlrS024RuKEilCxK6EKETezlCfj5P8MIZpaNRK/Bj boGtNNy8Sb7wOwpwEwpwAxI4NiC/oodflR6mxxr0o0Yzhvm6HnysOYMQgTMF DdQ3ewN+n9TVS+ZqzXp0qc/BqD1PHXHAanXC5nDB7vbw2Hpl9nKH/Mxcfpr2 AFNIkP4lSO5C5C5E7hg9oSyCFKYH0KrYeyyX8dNpm0AwS/L45zxCihrKoUcZ zM+kLsRKN0j1DZA6X48L3pQDnqQVlczvlaSuhtRV12ZDz2ezSQ2j2YiW9lYU q8tw4uwZnDp3FkefPoPUCS+u9U2zbcNU4aBCHX+O90bY1hEmxYgcXlWGFCKk zooGUxqXx00KaULehiKbBHJZkrXfljMre3l8xDE6mk3ixBg7q/R4f4a4XrrQ HiuJM8NPmbsxL1zhjYUYvsDHiELcPGVunjJHj3Fj1oeP37t7rG9txPkzyG0c 6/tmZjRFIjfEOoLHttfTSuy2Ezs7kaPWsWpzWIicmHlN5MQgkZhDEo65lTEJ 2hdZAVKlRYXXOxiQyA2MBOUaeMNjIUFdSJzGCIulzy54MbvAqmykTY4wh4WN 42+GGUNM6gNjRJaf6xshwtye9BB1lNtmtYXQmDeLd5s9uNVwDq1eVnCOBomc AlwtWuz1cNta0Kk+j+4uB62SiybdDZvTA5vbx0pRmHUmLwLniSin6/3xEDt1 iBklxOo4zI4eJngMmnMtHeeQ7TJuj4trGKPE7c94aAglcRMRJm4hEdz3INsg wAzlI25e4uYmbq6kDW1MrFpaOX3NEeiqj6KsfB+KC/OliT/B7l9TXw+jVUzy 1sD0WgcuBaaQSsdlZxC4iY4QZUeIc3vEGSRlHHVtRJ+46bwwuOmKpxNy/o8Q NWI2FMaXSRwThYyQND290vwEZUV+LjdHru5/Bzsn94mVd49FYjc+6iZq4sKr mCAvKh5EL7yxQOTmidzFu0Ru45hehri1KQcff/wxduzYIf/3aGYOwSc/vY2l QYW4VZISNOpJ3Q5M9pA6Gq2IzwqXuFxMZFe/kl1DUWVEVgyGi2nvKTGk1S+I 83N/A4K4LIncvxDQCebWozzXjZn5NFbHOohhiBEkdEExrSCIf4VBMjcgmBsN ZLijhJK5BIuy+IAH9TU8HtopfNLcBJepPEuCx7xqV7Bz+A1UYjOc1mYYW+1E j9h1e2Cxe2F1eWHzsAv5A3AG1wYplJOmvniYvZv1YTLMJg9L/EJET6umx7Rf waUxcZYtzAP/P4ga8RTRJ4INRuwCtBcBqp2PDeGl2nkow27mV1ea1Quzhilk QEGdGnkF23Hq7Ks4mL0PFVQ3o9EAB5OSg/m/pqoZZd8vx0LHMKaHB6jDIv8T 50SA1UhQ+s04c38ig166P4Mfday9IQJHJI3ZqdgmwVmWAE08BGlcBGdCC8TR EbqgqSxhMm9Bgu0Z76d29FHiem0Z3kxYnCZTi+RtUSbWRZlYFylzi0yqCyGF ubl/KnMbJ+4pa+z/eywOeLFCNVmlOq3SOgVNZO7km5ik2E5zS50Wk0ysPq8N AZlYxckWlxzuTtAuJ+Wov08O8ffxewYYgyN+IhfAMGOEFAmeRhjq8w5MzTGp jhvEiY0QG0T8anhMiUG+fWCU2PLjvcz16WEvUkMeAseOyAaKsIEqykYwUT+A X9QWQCHueySuDl0UaHG5oS8optuY4e27QuqcdE4edFu8sDh8sLj8sHoDsPmD cARDcLI2dEdCcqTWS+rukBeR5NWoHRjsGsckbXiIvAVF8IgHecQDMkLwkzof ifOSOA8Fz83mcDK/OlhFdIWNKKwrwrGSo9h37jDOX9hDoSuEVq9Da2sz7FYr HSddJ6k78o3TGFElMdM3lqly1iYoK3W1qHJiYpRXDBH0hpRBqn6aD8a5fQ3c th7MTfgFa/cJ1rIkar8tYesRsFFWRGgqiwlcMzuwm8C51oELpbsJpE0uhLAJ N5aEvC1FxErCi0yoi1S3hXXScK8Bus+gtnF45FuZceIFts0yt2V1SEFtld7L 2lyK4pw3Md3vRJSIucXlTKxWxeSaYIjbFhVDny7ExelOearTy3320iv46CHE pPcMboKZflqgRDsSyXaoztWzQLdiIqXne23kjDiO+cW0Aj7+OTnj50eI7Ai/ j5wJ1pKSNUrpABM5t8fU7YTu/Ayut4RwvekcaatHi6sJ/og5wxq3NRZBeFbc p+SvYXH2UEU8MFt86HYEyFsQFm8QVn8I9mAYzlAYrkgY7mgYHn7OG4/Al2CQ t2q1E/3NMYykvPCnI/DTwft76Y98BO2/EmdiytzqJmouomaM2lDYqEJ22Slk l56Aqq0c7YEOGMJuqHUt0FZWQavTsX4jZpZuomZD9o/OIXTYhdXUDHtwgMWN h8UN/1zUd6eYTgbWh2/EkIwY2xDXDYiLWXKPWJEaTmNuyCTLgk0yc/7uHT0b 9Gee2XVleDO4NRE3HkJxiCVuVuJmxuKMKNRvLGWAY0RliNeEJ1qj7vqc954T RH8jcQfw4bUlLDMZrnATV1lqro6wYmCJaW0pQ8nptzAz4ETc71DuSeBlQg2I KTRM+TEnYgmXHIBP0bqkxdlzUheJtiAUqIbPrYLfo0KAEfSoEWJozxcgFiBt 3nyEXGoEnfydQ4WovwaJaCvdp4UWkOQOC+I8bEq3pC0+yL/F7Qj3U1z77eii Stk0M/hpqwGp+lyS07lOnDfEZypEePZjedP5yPwncCYuosvkg9HiZ1MHYCZ1 Zm8IFlJnDYRhDzEfhaNwRqJwxaJwMywBJ8qKGuHRGxBwNcPgIjruDnTy2UOF 8xA6N5FzEzkT20JrqMFx1Vlkq85A1VGFdm6HOeGAKW6Da3hY3gzX4AqhorwS Wm0VWpqaYDd1o17diPYXW7DkmkSUttLpowUMuKlwtIRy5JD1L6s0MRk2emfY OkteNPV5NnsABTl+uuC0PFfSK86ZDAREVSof/BS4O+LGTsxEkWKT1jVr0dyp k8TF2KyRPsXBTY578c6yLBr4+Ft8JHXLpG6ZGXWZOrfEjLpE6hb9uDbnvdfs 0Afuhm7j+IgC3Q/xM+HixHUd3NrVIUI3TOjGIrJUtbURvDNvYUjMvrd2ywuw xRV0wSABYGaNxsR1JU6C2EQgdcy8pfC6SuF3lyHICBO4CMPemYPC7CdQea4I 6XATPNU7oDn6BFztOYgQvLCjDCEbP2MtRZjfEw0107u5mE4J9SD7IoGLDLAv ErhgP+W2z4KC3DQGa0fwC+pKj61aXMwvl47wMKWKW+BuhC6y+HP4Rm8SsgF0 WQMwUu6M7hCM3jDM/jA63Q602DpQb6qFrk2FmnY1ahmFeUUwltPTdxRnoZ4v /DkfVajjW6oaCpFfdhzH8rORnXcE6s4adERsMLOUMrEfGtkslt44fJMr6/e8 9abSqNXpoSV3zQ2NqC6pRuF3SjHbNIjJ/kHYXQ55LakYsd54ukRwp5ywE5c/ 8TD46R4CrbB2q2CzqFBWoEXIq2eJp4azWw2fq4aWMyhqsx4mnh56JsFbliTu X5I5+iByZ7A0MLmXKNxR6SJMrH1DTtxcTpC7hKSO7K3IgnWF3K1kuFu+w937 VwfuOS3514Cn3ATuKBZ7/FQ7QkdZlmo3GpEDc6J0sLOVy869heGEDV67hepl Q5DKF2KO9bgaYOsuplMvYf4tgc9ZQlUoRchdigihizIcHTkoPvAdlO95CJpj p9Ef7kJUvw11Bx9F9ZHH4Gk7hRihi9oJqa2U4PE7uvld5mI2XGNG5eyEzo4Q oQswVwvoqu01KDs1idXmOD5oL5bQiTVLhB+7F3TRpV8guvy38E++h+7QIFot YlyhHdrmMlSSIgFbNbmq61CjvlONhs5ylBYUw6LVwNJZTFkoR11LCUo1J3Hq 3G6cPLsbherj0JG+2qZS1DQW8zNVaLI2obs/Df/Ulcxtbj9cv82tf2Qaxo4G aMoq0FzbgILnSjBYEMN83zhsNisLazscHkfmRF3mVHHEzcqiGVa7HmZzKSuh Mkmag6FX7cG5t59GlUaHVECLRvVesUSQVYWvwEMiPXyPh+93m8sQCbYgnjRL mRPIJZlYDZZ6YldM7BxMsIrUrcyGFOxWWDzIkAXEiiwgBHYra9gxwRK7n36w tIbWxpG5z1C3ZcuW9ZE5hboncG1qEEuU6xVahNXBOzlWyN2l6SjJUUF1fhdG WPb7HFZ4HZ3oNhTCZiqCg9S5rcUkshgBRwlCJC9C8qIkL87I3/UI8l55ACUv fQ2aVx9F857H0fbWw2jYfj+adj+ItgvPI+4oRczOz5DcsK0EQQu/i9R5jUVw 8++E4oaMzJE4Sp2vz4wmZw0MRjs6ymZwu9WKOUMZc5KJvxv9DHU/k9RF1qib eQ/mnn40e0iuoRpV9BF6Sno1e1cto57UNZK6Joa6sBg2Utdef4Ytfzp3D/4M ZaSurrkITaS0kZ+rby1DbbOgrgStnU3oMBqZy6lXycnMbas/zNyA9Ka8uaut m7V0Rx32fT8bvr12rEanmRbcJInUOWzUO4U8N3u2xd4Ig4H2y1gCs6kUVlJn J0VOSxlO7f8Bzu59DIW7Xkatvg0jwUqo9j+G6vMvict5rWX4E/j4Ph/f7+1m CjKXwGuiOhiLEfI3slx1oZPUVeiK14VOrIYqFuq4SdrWqVtlgl2l0K1GMtSR uJXgOnW/+OT2b6TuvvXpT+L+b5988omSZ/8VPvnoNhbpVZdpUlYGQpmSQpG8 S5Q8sfRXR815Vp27EHVplAvuHoGNXLjIh4ec+AUvjDAZijDVxhhx8nf6+ftx 4cWvofTlr6Ni63fQ8vYPYNj7KFrefBDNb5K9PQ8gQVbjZDZG7iL8jhA5DpBn v7lIsucyFJBtDZVOMNeNsSlxxrSFOagDxWdiiOvH8JM6DSLdVQhN/fieaued usn814fOiA8GRhetupFVoYn2vdXRhnZHO2oFR2SvmlyVVJxATvaxDHenUd9c jBYymYVmvuPrkrkGMmcwt8Jks8DqFJUxK2Sri1ULw+xgBUNPlxwl8+8hvJi5 0WYqgVpVOZqerceiZRwpektbVzdsZnJnVdgzmurQ3l6Izo4idJE7M1mxmIph JztOMlR8cjNy3ngY515+EHnPPQx9zjG0HXseldu+jir2807VmwiQvICFdkeE yB7dCnc+MuztEseL3pPqrCF30V47Ll0My9WvbknuqHarMsGuygS7xt1qeJ27 6+Tu6oJvfdh344hwBrq/yEAnxufEvwMHDogxE+XWvt/BtckhLLEOX2bdvSLM 3aiidhK46RiuzsbQUrkftWVvIO1Tyz2QK/ywNUQuDFhKZG6MkBqhWEK9nI3Z OPWjryH32YeheuG7qNz6OKpf/w6aX/sGurY9CPO+h6h69yNJOhOCOIf4LPOq rZhqV8SWInGkzmMshNOQD1t7HmZGrbhxKcrc08x82k7qOlGlHsRAlQcruYcR mryt3AVXEvfXkjjH4Cw6Q250RTwMui7SZo75YGFxaGXYGF1UFm1LbRZOFZ1n K6n1RdAU1SJS28lOVJfFCqSNns5oa2PmY4kpzomKc6M+H5weHzOgF3anh1nQ DQuZs1ioU2Ybuo0W2GgffaNzkrcWexKqx85iuqaPFnoE1qYuWNvNsPJ93V3t aGnIR3tLATraCmHoKISps4ivF7FvF8NBXlxk7tSrD+Lo0/fjzLNfI2/fhGbb 91Gz/VFUvfYA9Fvvh373I1lsvlLWEAK5QLdArpQHibjxK7wCOUMJTPUXkHP8 oFzeXi60JnETmAnYvrhB4jbgthrC9QxuH324vI7bxqG5u3C7eyWp764J3E9u Y4EF+VJG4FZkISFOtkYxT1sp+OoPatBWtQud+t3KWYw32VmUBBgiahGi5mk+ g64z+9C1/zjOPvNdFLz6A2h2PgE9k6nuje+hdtt30fLaK/C++jzMbz2Kler9 GKvYg3TbaUQdxRQ3fpeVmFkLmQwK4TEX8P+FGKAtHGHhuzrtYCeyyQm6nlAH 2ttsKD9JNVfFcVNTTcx+QsyUIZLuRApdtENGsWgGMTPRiHcTMWucAue3oaK1 GieLzuFU8TlUtdawvrDDQ+zEBaw5LxRjrC2MYXFJRsRPpBkhRpBB0LwBH7yE zeMlcB4vXOKEmssNuzi5ZnfQmtmYKCl6JjMshi644z0oeaMJY7lmLPVMYJXV 5iS3ydpsREetchfNNgFaM0FrLYCB4mamuAkbaacYOdnO1YXbcfDJ+5H91IM4 8/RDKHnuEVRtfxxNb34XDa9/HTVvELbXv8oDHCJjvyd5E6T5pDXOkMbvsjXn 49SRtzHp1FJivLi1SkEjX+/IIGGXRIjTDZci4nSDACwD2dWlwNo8YTF1U6we 9Sv4Whsd+V5Gy65ODGExFWSxSrYGw1ihll2kh0y5Vej1laM/UI6hkHKPPKN+ D6biWvlznP4+wJ3vLj2MtkO7YD9zHt7SBoSaO1G6ZzPOvfIoCl97EGqh7Du/ gZq3HmEWLUPdawdhe+1FTKnO4LK7EqsdZzFb9iYG6w4h2JRDdSdglgKMBNSY DGswHizHmF9NyLg9iVa4gyLa4QoYkHt2AJ05H+NjlRtD0Ql4Rq4QIDuMLKSN YRdMBKw76kGHz4ryFj2OF53FyeKzhKoa3QHCSqh8CUbcT8PD/3wTZ18qx1R7 GGORbgTECX8x0STMCPngFxFkBLwsFr3w+jzkzA23xwWnW5w0YKEpDBhLK7vV zKTXhQubDyLyZjM+GbuGpSRlt4elWV+Q/aYG5rp8ha/6fHQ0ki2KmbGVfLUX wUrGOvU5aCs8jOrdO3H4h9+E+uknUPvit6F9jeXWm4+hcc8T6Nj7fXTt/jYa t92PeNMZ2d9DVmGAS2SaEQnUTx3wMQlHyd2QXY2co29jyqPFpKsCV6Y8gi/B lBjtVegSJ7MUskK4thzER7eX1+jaOPb2G+l6VKrXfDxIixbCUn8Yy1SvBKtD QVePl8rlF3RpZDO0qN+Au/mw/Ln7/AEYj2XDU8IKtLEKPnET2e5GhK1axK2l KNv9BM69eD+Ktz5Awh6AdufXGF+lvp+EbutpGLa+gWD2Tgy15uOipxJLbJKF pqMY0e3DaP1hTMc0mIySrnA5RkMqjPhVGGKt4XBUw+lvh83bgeDwTZw49jHS BTfxYZ4aBlJkDNhhCjvR5jFDxe3KLsjBscIcVLToYPJbKSdeeBKUoIRY3MHP x99CIC6GVn1yhtyFl7WY7QxjItqNUNSPUITkhcjYgwiRsmDIi2DQi0BA3AlK 3MPcTcpcpMwJt5fFpNtGj2yB02FGa2UVDM9fwEK9FdeGeqkYg1imEx5gcZmi ZU/bVXCTJLkWGRXM0FSA5opTaMg9CO1bO9B86AS6zpej7WQ5TC9uxtSp7Vhq P4fS7d9D8avfQDnTZA2zQ+vBJ5AuP4SrrSWYrD6CVMVBSZkkLFPcj/kqMMPy YchJurLfxrSfdHkrMO7WsPxzK3BdvyTqzuvUruskTMQ1MnaN6nVlKbC2cMnG yZZfu5uvjaMdj2Wqz/dXVzCfJF+9IfS7q5G0qZByqe+wFVTYsqoOo/7t3YoL oy8OdFQh6dIxc+p43DXocajpwen92UWEsjVceB3lB3+IXHoEXfYP4W7K5vtL YSorR+UbRajfuhf2rVvgZ9dNeSsx6NVixlOOWVMuJnS70V/xFobNZzEWVmE0 qMKwrwym2hPkqhXe9BSCQzfQbLiCkzuvIVbcgH71MZSyDjhy4QSO5p+EuqkS XT4zHDE3XDEP3AkP1YpAJAgGIyCu4I6LGZeCMzF3cRPyX9VhriuMyZhJ3KeT tD2ECN1bOOpVIuyVq2wEQ4ygW14I7A+45Cx8L1XTLU4se7vRVqND5V8ewaym C9N8bUW0L1ntY42SNJQibS5DDz16j0Ml27M6522Ubd+OWlqL9nOsNbVadDdX ovkErcO2FzCn2o9ZwqLe8yTObHkA+S8/QMAeQNnWr6GM2cHW3oQ+RyeW3C1Y 7CzExfJ96Ks5wuNZjovhKkYlZkIitBKP6WAFJgMVmPBrMMY2X5lxSbayJFuf U8hiXCVdV6heP7m9vL4uzsbBtM/gtXHC0ePy8Yu4MjqMdLcecWMpklYV0sQk 7Vajs/Qgmk7uR+Oh7MwaLvfR3FfC23mBclKFhXhVFhbjOvK+nNCxBXVYTekw FqDiiAiyEJ0I8UFkuD/FZKgcvaZKtLMrVr5+HJ1vvILoye1YSGnlWJDLVoF+ Lz9Hzz/WfhJ9xa9jqPEAUm05CHTlwthYptw8euA6FWoYZwsroTvtxEiZGpaS Y+hwG2GLOGCPOOGMukgUJSVOaWH4SVUgLmjySprI0iZE4qI8Ktpai0VTGNNx k1ygLxoXiwKJ1TJEeOTleBExxUpEWFncUcxGEGeIfUGxKqIVHn83hfkkhnMb cZnAxd2tuEQrO9itQ7T2PJKdLAwrc2A4fxClr7wu27IppxDtag0667UwtGpQ X34exre2YfDQa5hrOIURmxqt6qPY/1dfRfaz99MT3o/zL9+PigM/RHf1UcXQ /x7c5hoKVS3tlA4LZPai/ghGyNZEVx5mydR0WOFpmFoxyRw0Qa0Yo2aM8v8r M84sQiRs1lWJUhhXmAxv3hj+37+ZJDFAJiz8HZJ+Xy7GmbbqEGcHsutOozPv KNTbd6Eh+zwMKjW6m7TwdGsRcVZgmImoKe9lBBqPYiFGmmI6CdOSRElPlPRZ uJTmw+Ue/X240qvDf8RlPq6kq9B6thLl2y6gfvtO2LY/h9HuXEynKpDi3iXo pbyOcvQ5qUjGCxjUv43Bsn0IHD6GksJa7DiUj4Mn9qO0qoQmwQRLvgUzJadY fdeSHaYfhivqhIfhJUN+qlNALF8S82TJiXZ/rszxzIRY0LHkjXosd0cwGzdm FnhkyN8pLMXIUVRwFHUzXPJUbygi5os64A/b6LmsqDtfiMgBehU3+fEbMJt2 Mdu0wVt5EsZT3NynNrNcPqKYiEIVWnXl8menWYMBTwWM5w/D+sLz9Pi7MG0o wLCrIgvO9hJqhZv4ebpKoD27lRaJxR8jix/S4F9jigltUTQ9I2rTIUWOhuw6 zFio83Sqk9UHMWm5gGOH91HfM26VPXksqMaocKzU/OUZB64QoyuE6DL1aJV6 9POf/Xj9tpsbB7w+Q9HG2WiPZ+YGXV0dQJe2GLlPvozKbdloPFmEtnLm8EYN TbMGQ8y5o8y94xQNsfkjTFnN+SSpKUMSKVokRcukaCVFktJ6BaRLPYKmXh0f +gRNKz1VWGYsMfqsVSjdWQrtjoNo3/ECAjnbMJ7SYDRZjpG4GjZaSht7XJjG Y4Ul19W2ViydP4XAmQOwNzAXUH0szGWn9zkQK23DuO4cHGE7XDzEHh5qXzRD EiMkLukTNIkFO78gl0mUpDDdxRmq7U1YtUVwMWGQ6z162Sbi9TjfF5fvdcvL 0aPiCtWYM3NZugPBqA1dLTUwvZ6LS102TCVMrO408KlLoXnlVdTvPILWI7lo yzmPxrwL6KguW1u0sN+hQfOONxDe8SLGNEcxwTQw7KnCpJ8R0GGKMUMXMRPS MVMxA0d0mI9ScRhZbHS266J8YNN/Cf0+HXwW5lFHFcbtFZjuOI/svW+ht/Yw xoUfjZAfMjQqGVJhMlGDy+TnEgVolQIk2FlbbWvjuFWGnbU5GSKPrc0rU6zS v8HF0UXUHKlCySvn0HiiEx3abrTqa9BZp2YhV460TYNeJ3uMmwpEOzPm02Ii UEmOqjDCKr85/xUWaEelGgmOlsjQRo5We/QCI6q72PFLxOi/stLh+3qrZCww 5nsrcZFRf1aD4h2nUb3zdThOb0O84yS6Ww6gonAzNOdfgLuhCH67GOYJINap xYilmpmoGhP5R5CoyUddUTUqTnkwptKhr6kU7rBDLp3tJ05iOWOxtoNY0TAi ZmIKhclwJFjJktxsQvnOFlx2KCxlIZn0UuuTtFlJVmmJhFtEFj/gYn6Wl94x InGHvLI3FLOievMRLNYaMd5lQOkzx1G/rRZtJ8rQVVqCLh3tcVsJEoYS9DTl ItFGO97FisespmidQ8NfPoOeI9sxVH8Og6RghBXKGF3khE8wVSWZms4wNUum LpKpuajgSo/5mH4T21+PL8ujMM/efJE9e5aRclUizq/x2iqRe/Igkk3nMVK5 FyPt2RglWCMhipIwo/5SzAy1Y4VAXb8+vLag0caBqc/wtLG0+25mfqynLoKj D+mge3USLUU2GDv9aPeKGalBrIpp5Y5aJIxq1iLl6KGB6XNUkC2tsrM+7iw7 kGBrNMNWvDNHYYt7tCjYIlfL5GpFBLla7eVzH18jX4uUpcUMU3OMi4xZcjXF 8HeV4cKbhSjbuYcddzOMuVsRcRQol16PK6vwLKe7YWvOQxcdiDsawKS4WjDY jeXWMqgOtsKc58BCaR7LgTr4JFfKnLdQxJUlU9UmuaK1lJ2ERyIl1vsQ6Gjf bMdVVwRzyY4spJKeTXzVjf+OhJjHnHTJZWriSQeiIhJ2Fvp1qH77FCaKmnGT EPrqxLIkYZha2xGi7Uyx2h21M2wlGKWLHjaVoJ9ZK9mugvYFdp/nnkd/7n6k WorRb9di0KWlgajEKJt5nDxNrOkUeZomTzMZni5GM0zF9Nz+eQWohB4L9Kqz cSVmElU0fzxMcR4uRnHhCej1BcyElIjuYgzXHUJfxS70d51mpVVKdSvBtevD 9//zgHokMzPsysWrmDApC7lZ67zQ7TKj+C99LFDfhd30DzCHl+R06pFRP/1Z IHPf0ZAc/++zE7YuDVJM+T1WwsaWGGB3UGBjKwSq1oWsKQPbfEbIFrnHi4Rt KS1aYqlHx6MlAFvoWROtNcD4+SjFxnAELfrt0KteooCegPpEEXJ3ZEO7eSei e47ixjRBmyRo40H6yUoMOArhbDgNc5sGNSYHuvw+ucjcfMqP2oIAEiUmLOcd RoQkBMLK3COxVrqwQ1FGTJImBQled5NY8J6Pm1C1qxPX3REesXZxJV3KTfsl 1lBI0R4lxVoKaScSjObSAphKK1D18hlUMhJHtbgV9CISDsPtd2J2JCItp+iI YzQMY06GgyHIEwV++SloHtqM4KuvoKfkJFLtrK272ZltpM0hin62sySuagNx bO+QnrQxInrMUrkuMuZI21yc6XAuwQfB2O9imh1+iqSJmEiQWoZOfQJOUz5i rPPsdg1CzML9Yviq8Tj6dHsxVnoKH11bumtBrLVhqV+DmnKV8H9G2DqIjhcb MPV2DaqfaETt9nlWDr+AM/4p0pc+xdSPP8W15YHMWm7+zE1FlZs9Xpa3uGWz D7IjS+QqiJwWvfZKidzwBuQm2emG3So05r+KqOE0LnKH57i7c0RuPkW3NZ/W 4SuYI3NzvUqMRsvgNRxFOwmrVb8MY9NeRDy5SIVLMEgf3xcvh7PWiWM/6ELJ 93Ng/P5rmLe3YzbZigFnkZjb6CrCd2DSnYTV1gWb0wS7pxudXg/KawKoOObD RFkjruTtxVLBCYw2lDJXNcDtbIDX2QhLVzGsXWJwuwTttezvxbtQy9Dv6cI7 3ggmPCo4DcXw2aoQ8jQhFjEh1eNCm6oI9QfPoOa1c+g60ApHiQ+GYgMsO3Lx joUud5ASGjNhaczPXtXBKou0eRikbtzFEMTZy2A5sQ+Op57GYPZ2zNlbMWyr R08n99vEGpgFkqSOTT1I6oYz1InmHvfrpM5NUuOmBXWkbTaWgez3McPH6bXI ADcpgEvy40kCTOiqCJ3dWICBOOGOaeB3l6PToILdrMKMy4zrHc1YzDmCXwSi X/3N3G0crpJ3orkvs+y4fFfmnxw8+KJ86Qs482IQpkPLuGl+D5OxH8M29inm b3+KG5/8Y2Z1j6N3rfCm3H40Q+WscuPla+L60rkYBt0NSJLMNJurl03Vz6Ya ojcImi8gbMlD1JoHW+sxlOVuRmv1blhaj8DScgQB82n6iHwkXXlIu/Ph7cxG h24H6tWvUOx20F/koYciONzDw5DWoj9ZgcUxI95fiuO9hRgLoRiOPunB2R+o 0fCDN2E/9BK3hanCU8TDVYy0uEy3q4GdWtyKqBsOtwVOrwVVJVaYznuxUqbC srUe4yYeav1RJMrfhl+1X55ncZuKUXJqC87tfRz5jOJd30HNPiNu+iOY9pTK c15eRmv+fjQe3o06OgDDPhUcxRb4OxPw+BJyfmvdS0ew2mDC5QEx3NGNqSEP bs1GiUstBUyFcaI57uWzmNxZcwbm7a8htW0LxksPYbS9ABORTtyY5b7aFTR7 ua19RLOfKjBAQRwUKuBmsvDeQXOcSjBBNCeZfqeYfqdkeTDFFPSHTK98XYQU QL4/IZjk5xlDZLO57iw6ms+z62vQRy77oiwQErVYHhBrxAbhtPpx0evFT0J9 +PtWG/6hrw8fjS3ea6Ti/rsZ3TjmtfbaWt2p4PnLrym0fg71ZdfgMX6Cy3P/ H25dfR+f/PhWBu4X8cHNO2vBrd26dHUmjEukVJB6la19fVa5Sbe4PfjqiBtD oQa4OnPR3nAIhqYjMDYfkVTa2o7AzrA0HkBV/vOwNR2Au/2ofG5Sv47KvOdR eWEzKkhyJ0n2k+ARpu6hnkqFUIrm0oQJt1fEbe3jCqmLMdwire/MRVFxOIJT z9BMvfoyurY+iZ7mk7QNglgaqmAjS1sjae2W4+4ut1Vet19yohvxQhuuFZ2C kTlAnJYYou2Y7MjHRMXb8Jx9BXnbHkK+nD7yADSvPoDa/Wa8G4ggpduHtmN7 0bp3H8zZF2AvVMOpq4S9uRKudjHJq4qiakDd4RxMFzfjw74A+nstDDveY8++ OubMIlIq/Akf1RLYBAExPvsMhk6wMq8/g2FzKetU6imz942LcdxkXBp0I22g OyKsvRYCSw3tZxXa72JTUUOHCeqIX4xRMgjqOEEdJ6gTUaapCXL6Jwja8sgm fy34ZIwwhhmDjAHqZ2PdGbSx5uiJUXdYb8z0d/7SuoMBN82PuC/i5U/x93Mf 4x9dKfyszYLaLedh36LCLVfqf/4mbj9/1wjbhklBf/YZXEV8FmERv5WZ3rE0 8zdo991GR+ImPv7Z3ykryv1r3L61uGFFuaBcz0vQK+5VeXkmqtB7UdATw/RA F6L+ciQCGjnE5rPkwmXIYTWrkOtoOwoXQxBrbz7Azaku2IKtqM7fwngenVU7 YSPZLpJuF59pEqQfRsCUi16fBj+9lMRPVhMKvStxfECC3yPB75Lem/NRvEO9 j3bpceH1XKi2MlVveR6+CwdJL+2CuwTTQz7Yu01wiHOSlnaYDeVoUJdAc4hV T1kHFsqz4eoqYspXw9FB3XV0YIn6W7Tlm9Bs/gYqtjyAihceQP0BC94LRTDV WAp/SQ2C9bQLHTUIsMLzm8oQNBYhwO/xdxah+Uw2Uscq8GHEj6E+BwYY7y9w u+fjWBkwYII16HhALfFt3fUGwtu3sJI/gHFjIUbsakzYVZi0CYRLcGnIJfF9 92KC9CfonkxIrzkuam2vswp9xHeAWjtE4xlgbguJ9RGNp9HFNjWx7c0yjqC7 7UgWzHxxE0wtR+7OwWIFyM48aDUn11+X63WJ1ePEynGicBTrF9K9XB/xYPnD T+G5+CnGVz7FJ8t/i55TfbhWmsbNphD+9tYV3GtC210Mf07+CcGtmPCRWUvp lzT4VwH8u5nXlFXnfFglqVmS0/+l3PhSkDqrkDrZ14UYWzoRKEeahPaGaKTC FRiKsBZnjDHitgtI2vPgZOMIWj2ktb7kZTQwHKTTK15jCwpKQ105dBYXMMCi dIz1/KgoBu0VGLRosNxjxI8ztK6TSq29mdHaQW8Rgu2l0B8rxukXzqDwqZ0w 7N6BJEVLzK2ZGfKjq0WVOSQPw9xeiBZqo+Ese6KaXrryGPwkLUgn0Fp5GkW7 NiP/5cdQ9frj0Gx5CK3PP4bGQza8H2ZJU7kdntpcRKjLMRbOUYph1FyCsJgV I6alVZ2F9c1cvGd14kpftzSoHy6yhy0KJxOnmSSFQTVizLzmLS9hMmcnxhtP 04CSXDfDSVIdfA9N6yTbYjnVSVITeJeUvj/P/Wd8uJCkxTeziNciTVrdxguw svQ0EL81OrvZ1haGtf3oJtjaj2ZJ3fgjmfu6WxVMjU3KafEGzXH5PBUzyLWT 7mCaKTnFAocTygKHH72zKCmZvfJ/UFp5HU2av8Ot/n/Ah2PX8bc/fvfXEPqn 4ilLOaulsCo8gmBU+AVx1+GNt7r7p7H6uV9aEGx1OiyZjWA/5kaciHjViFMV ksFy9IQ0ktHBSIXCaFTLRKSla9LS2GtZTlaynKzEnIhIJfPnXiQ6TmE+XIn5 EF8LMgJ8D2PWV4kZn1bOeJhw8bucZFYMupHXaX8Drk+48YG8zzRZXVJYnevv wJCPHsBXghFfKdpKtNj/dBVOP3UEuqdfQbKqjJlPuZuIo7OQclIgf7aTV3W2 GdEiN94pu4B001mEyGp31WGcfPp+nHvuQRS9/C2otjyFzhc2o/mIHR9GIxjQ vARb0VYkmLQTVL04eY1ZFWYj5LX+tcO4Qsf6/qgX4/ZyzHIfbk54yCq3m7xO hdRo2bcLA29txfW6U7joqaCD1TDKySrDJUKNSacKUw7BawlukdN355NkNYkP yOmHi0ncZiwMmRBxlcBjzWURmCM5NZJIoaLdbZJTgSmPsp2PX6E34//F66KC oGcLkXHxr5dtbKpRfk6aypE0qOXPS8wG68sgTpHXScoqNeyn9IxZmcQcNL0L te4DFpYf4Mq12/eaqZlh9b9kPrGRuPUq6+7if808fOata8/3Yvd3MuddPrix 8Mv8ch8ukd6eSC1iwoSR3ZRgN6ywO0x2R8nuuOA2psU0YzZGLhnzjIVYZRYW CfAmeIhvmvguRarECFS4Cl/GYqgKi8R4gQjP+QXGYoaBFpOU3Ake/nEbv95C GWfTLqW6JL5Cbm9SbidiegVdf2kWH8rwEDx0l28/24yjT+VB9dR2mHfvkns6 yIzQ41HOlznai+DuLEbZAR/G1SZcqsohfSRRTKR88n/j7PMPoPiVb0D1wlNo ffF5tGQ7cDsWRp/6eViKWCNRBVMkK2krQYIRJ8EN+w9hprgJPx0I4VK8Hgvc jTnuxkVmjYVAA72AAZFDu7B0ejduOpjve5uUU+R+jUKwR0Q5Jqi4UyJcZZh2 luLqqIt+gkqbIVdQ28PM1hvWikXCItosiodWrKvtLUWY6S1iv4CoPS8LMbrY P2DGy2MPy+M2XkC/GPDyUhW4XSNs3iGnMsWtuyZPPveIEWyj0kbpDhWGbTVY FgspytXqxOKJPlwbc69Dt3D1F1h9/+/k/+416/Ofj+5frCvypvWfvrSBzWXq wqpgM7PS3eyQHWF36QYu1QqXEQ3zvgaj0QpFT8nkDONiXKswGRenPCuxLNhc 4Q9/AF/1XvR2nsIqZVbEigjK7LIISu0dRom3V5uZWEZG7fwzlNgRczlfq5ds 3iKbg95isdaKv5QuXKA5ElDJ5353Ac7vqsXBp7TIe+oAGp9+RXEB/41lCI8J eYh2l8Kor0LrGfa+igbM1J5CnK815ryGYy98DdnbHsT+nY9g166v48jWv0T+ /qdwYvtfIe+ZPHi2FKP35Xz0NRZJPj115+lRNfhJlIauv527kulu3I157oYn 7xhS27fiHd0xvMtaezrVgPGQ5g6bPk2WhPOLmPCIPVRj2qPCNBt9tddANJO4 MunBOD/WRzHIwgB34j9gkI0+zBgRwZYcY/8f5/MEe/4knyfZqlOhSnnydkqc fBMncsVkKnEyji07LgyXS8EzaVQEtZ+t3GdW8OyjyPYR0d62MsyG2ohoILOg ogf3Os/zz0dRmdmnLAClYEdrNh7E7IANUU8p4kQuSbuZJna9oXIMEDtFCu9G bk4gx1gkckuMFcZqvAqXYgw+B2v2YaArJwuX+cJXcDnKl0WsYciGWpL48WvY SLN+RR6nhDw6eHysxM9MvfDU0YF1YpjYiUwuUNskoft/ETdlI9T+NsxV+Tj4 oya59/qnt8G1T5koNi1dRhU1SouaUwYEi3y4VUF2tPuQc/op7Nz3Dby19+vY u/cb2M84+fpfoXT/kzjyTDXaXvZiar8D7+lcWFFXoLlwL93mOXxAt3l73CH3 RXSlJe5HT2s+/If2YvH4m3jfUogbvQ2YjlfLSSnjQREVCnc+AZJQRULHzD7F mKZrmvaW4VKfAfODRuqfhqhVSNyyMMQG/4IEbjSmlbBNMCYZU4xp/v0szPDx D+WEmFm25yzBmyF4M0w503RO0m0K5+RWoOsxK5O+hph+BizK5LoBk5qHSo1+ gwr9beLEgV6uaXd90nOvcdJ/GnMbh0/vYm6E5c5YALP9VsRY4Ca480m/SuGN 6bdf8saDz5igzE3JtKvwJuWNsSxYS1SSs0pcZlwhb1cSVXBX7MCUyBFXxfyt K/zN7+IKVfAy41JUAU/o3mKI0BGKi4RummIxSbs16eTfsynQJepPod+aK3Wu LEvSdh9pO4Zwx34ZSdsZxWj8KVQ/2oeN/xa4LctxHdqKXSh+eydObvsWdh18 BPsY+w88jAP7HsJhxpk3/gqnX9qG48/3oWb/LVzt/gT/MHwFl4MxnH/9UdhO HsZHEwFcTei4j1VYZTca6yhAaNtW3NIcpu3UYTZVj97mg1SWYsJGyEIV5CtQ gX9BjauQvAnaJnwaTPnImk9NJ12GVOch2czkTEHsixhmC48IxBjjbK1JxhRj mjHDlpuVqF3k431yPt/cmkkPMtEIl/552YPX/gna+rvVYjb82o05h6zlGLKo McT2HTKpMNhVhsGOEvS3FGOl1/R/D9rGMdC7QBv2YbbXgri7GAkKW5J7niZo vQRtgKANianDAjL2NlGXKJApOXRpHbIqXE4qcF3l8zUejGtJHbzanZhx5mfh Ov/zZb4kfqXEVcmjwtwqW245kuGNcZFCN8ODMu3WSN7G2Sbp5hwEK/eg35an kPZ5pG1nEO7cj0gmkraz9HkVSgv8JzQ/9wbSJco4x0pcj7yzW7Bn65M4vv0H OPnmN3Ho8DdxlHHk7YeRTdLOb3sSFUeewuGXLqJU9feYmvgUty/9DRZHRlBx +AfQn3kK1bnP4lpKL2lzHNmHi4d34LYhF+8OtlLVazBhOY++1oPoaT4kScsS orZJUvYVydmEn3rGmBapg7oca9sjdWyIXVgmzHW4tPJU9BRxnmbMMMT8B6HT c1Fhn+eZSn8HCzTR84wFMRszyJ8zFaGw0qLbiopwOmNXxCTAMfrRUQdz+gjL K0qmVY1hC61eNws9UymGaIsHWwrFDePX8+jG8cmv3rtyvruaUOj693JNsZm0 CXEnvQglLEW60qSrh/veT7oGmTZHxGQy0jXF/RcV78XYHflaEd2ZcZm4XEkq ZAmQrqd0uMGwlb3K/KjCjbQO7zDE8w1xtlG86RG+XSeBVFRBEKZlGtpIGAtj Fo2TjnL6iByE9XsQF3PnCdcAXZoUsQxaUf6csp7FUFC5QmSc3yPOY4t/Z58r RfVmJZXmXXgGbx18GG+9+T0cJk/ndzyOEwe+hWOHGQe/heMHH8WFXT9C5akf IefEbuzX/hzOhU+RnH8PzUy3dcVPorzwceSeehjV+c/A8zpVrHg/PmJ6vDXS xsqpUu7DpO08BtoOobeFEtV1kqm7Qk6GU1D7Q2ndJphKp8RgmPkY4p37EO/Y S1NccSdNMlOMMyYZYubDDNtols8XM4XbPHvlAmORoC0QOT6zkAuLh5CwKgtE TeA2LwYg1io3n4LZhFuZFD/mYqZw8jA71Bi1qzBqLcMoreyIiVVbZxENeEDc LH59rtc9WJO32v6CaNyv/ErW/gSf/PRDVjwFSDqLkSZrPWStx6tCH5VskI0w TI8xFlZUbJqsiVGVefanRZmGqqSCXZKcUblSGcYyXL3To4Nd9So9mSoLN3t0 m+SrX5G/v56qkrJ2NaFwKkFjAy/y78zzoMwyy8wwt0wRtP6OHERr9iJSvU+C JnxZuPNtCVgWonwUmnYWwxnIhEmeiYo+r1Oyw3/Bvh3fx7Y9D0rG9lC79m77 S+Ts+BEKd5Kz7O8yvoeT2d9B/sHnUHXhOVwoeAyv7PlrRK5+inS0FXXqp6Gv +ivkl34TF/IfxvnTX8e0bg8+GmjE9b462d1YFEnOpmy5krG+1kNSz0bZrCJp jouJl36pbfzf5+R84nT3ccS79iNheBtJskZ9YSP/tpSyiQxj04KxuGCMEsaY l1N+M9N+maWXIgw+b2JPFacLl8M6OUawJEoWIW8hhbeLGRt8/NA+DJOrSZG6 RfnMJh5zqSlxKow5yjBmo0WzlGDUWIRLqQDlxC9Yu9eU1AxqX9owZP2ZUZN1 +DYuK/ZYBj5xF/iEvQBpVxF6JHxl6KPQ9WfgGxEGl/BNEYpZwiGG80T5ubQO nk6Cd1WCR1OZ1hM6PVlj9OrhVL/GwkB9H27xP1uUl3sympdSeBXaeElqplby t0CRmCNHMyLX0D8PdJ5GrG4vorX7EKzaBa9+uyJsjFjnAcZ+9Inz10Fthj3m HHZ8adV4gDorlGu4tu19iPXAw9i3/VFatMdw5PXNyH/rWRTu/z5Onnocp05/ DwUnXoC+5AXkq3+ArYd/juSNTzHY14bGxs0oqCKc5Y+iQPUwIWTSzfsGVvsa cJm7LZpB9MUl4dvtuRhsO4j+VkXk+gwnpcCtAygEj+ClLCcQ6zqAhJH5v4vw GfZK9EYzOXQjeBcFeARuPq6AtxirksAtM1Yi7NYr/OGP6H7lfyWFawwuZlKs wl8ljh/ex/pUpHE6YqZ1yaAchFStz/IYt7O/dBfhSm+Qu8fqkfz97Ce31y7R 2DjIl+Hvy/d2cGvo3as8ff9d5b7vSeLXQ+3rZWHeR/z6qX2DzLPDATFRmxtI HmaYAC8yhKgvcd9XaL/voKe/Gz2SJmi71adHd9GWz+Fd/vCsfOmmDEUWr6fF R4VsiqqW+LHJl4jffJgSy8Mj8Bs05kj0YnX74C1/Da6SFxFq2i2RixI9kVuH eGhH7kJPJ38Wc9K37/u6/Hn7vm9i57bHsPeFx5H94veQvZuVwe4XUXroWeTn PIGcCz9A0bmXUV3xMjH7Ibbn/B363v0UwyMt0FT/EPqK76Gm/nEU1Xwbhfpv IV/zMNxdu3FZTA5nE6ywKUSzTDmIXjvzqsivxC9N7RtxldzBj83Z6ziHmJHY mUQQPePbSHXtQ5/zjNQ8WRes613lut6J/VmKUc6XY2JB8RU+rkaVyJKP9zGD 6PiTEitC+ZcjcpxUEJgZ9hf0jVHtZrg104wpZvtJtvQkCxcxb2nCVYoJZwkm rEW42h/E1d4ACRQ3gh9co2/j4MjGRPsbJkaI+NKvwVHc/X1x2o8B9hGBYx+3 pJ84DggcuXUjAaXMn6I3nhUSJVx/VOQcoYSs4BL01kk9rqXXUKwma9XEsJoE MvqrYSl+YRPe4w9/zEc9X8pEn34dz41oirpEDLosC2dJ+ucoxrPcjEGjoogR 3Ztwl77AeJH1ylbEOhQkw+3EUqY5pYqa4gGYjSiTk5XXvoqdBx5lKv4Odu15 ArtefBYHXn4SJ15/Asd3b0H+8VegOfMscot+iOKiV1FT8ypOntuMN/P+D4Y/ EIqoQ339D9FieBpNtudQ3PoYihq/g8JaWkTtN3BFYJkSV8JUyTrror80g+Vh iWUPVbG382QGSS2GvMWIGg/SVRxEwnwASTMtq4lYGvdxP4oUNZTj85VyFrVE kgqwIJHUCyKzJJCbiCD/dCay5ON9rNPuvHYpKt4aFR5IwCkNIlun8PQhDNjF gBy1hgdYXMA2HRBoMkn7VJikJ5tkepz1MWcNBnGtn2V7r5976sNPriyt3+j9 V7H52Yll4vnL9xhGUWZu/1vlRvDURnFb7olUCzttCTtoKc09YfRQG1nrjwqj LLaT2yyK9/kMkKL2uEsb09W4sRFG8icYfG+AQDLX8ZneYKA6S776nPy9eN9N UvkOxfI6ibyWplCmquSQjKiaF4QVEEJJIgfNpxGv34tQ5Rvwlb0AL4n0lAqh 3MNC4wCLj3OSxlF2rHEmoikmptmIXtLYrN+F7W8/gp37v00aKZAHv4/9+57E /h2bcXjnZpza9xSLja0oy38V6tJnUKJ6HTVNW7H3tQPYrfpHTPyYItmvRrPt edQ6n0ep8QmUGL6P4o7vobD128ivfxgO0y5xBY28xE9cnyVy58A6jYcljSnG mkAmrczLJDEuSOzm9m+gUTnLqdS2a3Xt/JoRjIl8zL8jQqjjGoJfYB2npyu8 JOQxpiRtkbwFfPWqEwh1FshxF6Eqs2zUGTbqdJDFNgvNKXqxKcK3FG/D9aEg rg8GJHzXBHw9Pvz8o9v3uu47w94f/BoN/GXs/g3mJ8Wd4H1YnvFjZTaIXlsx +ukHBl0qDBG7Ea+40r+C9Rk7I9VcjBMtRIQV2ZCSUxkNJHLv9AqMBE41xKqG gDEGamBlHiVzgzV4+P9n7T3A47quc+3vASWX5ObGTpzY+e9/026c4hSr92Z1 iRJJsVMUOyk2sHeAYAcJEL333ssMpnf0Xkn0RoIgSEqiSEmWLbkpFv5v7XMG BGUlzs3z43nWGQAzGJzZ+93fWmufvdfhMUnoUzgKgCKI4rqvN8l7EL2GBA09 EcMaiT4lChUNjkaLjp4tchltOfGjEIoYxqymCO5EI3W8jXmdoNfjjEevLoSD 7KJ1W56gX36O6L2Ad3e+gm27X8OufW9gX9Cb2H9wKfbveZvR8nKcCF2HmJh3 EBa/Din5a7F740kExk+j75NptLWFIca4EOEV82hvILz8dYSVvoKzRQwl856F ybhFQ69O0BMfGhegnPOfMm0nedTCOlpL+XE1+y1uWahTGlhG6sSEvhnyYtWM d78+k+KnLkBTwEu+JKrd5eok8qbZlWoO7Ss14m+uzPw6UZmAOC4wam4daZGH 4C4MVQH+gMxmeLQm7nMxVHQSRMd5horhGKnJxbUO1wyMU812XG2y4f3eFvwn JH5vZtrFHxLOntTTqvb8QLsp/EXtpvDa/gEnw8AkNDEnajVGoN0kVSbIoC1a Y1BmeCW30hm8RAYn/NmIMKicql/2kgMUfHOY9UbDErtGARiAD3lcpr6fjaLC kKapYKJSwUn65ctEcbxWZnm0iyMDXln0HAxP8qYZDO0RKxSKooKOjC0MIWJm MOx2yrJ7bYOHbOxYt+UpYvg8NgW+jM07XiOGc7Hr0JvYd3w+DoYuwOFzS3Ao ZDWCQtcQwQ0IS9mI5KL12B8YjT3p0xj6dBpe7z6EVy1AuGk+jShWzUWY4TWc rXgZZ0qeh9mydRaGCWrmoMd4Ek2igKSxgY/1EjIWH4aHGUl1ic5h2R0O68s0 BZQrfXIZTLL7fu+djXS6H9aVL+kOhqRPY5DH2iRM8jv5KUCOAeolf8Z+S1Tz nDKrnh55mMFAqJJVuRDvh7HPQxBdBNEZwajxPK51u+/cK17BaMdUi3a/+F/+ 9PYMjLPLFWhzNfi6RYh+BId7rDN7CvwIXqjNQ1OlIEjPW0XPSwS7rTIjKgjG qS3w0gYyljQEGQrWCzOzJFBJW9JsBK1E8MM2+UmOf0IQkxSCCr+WpDv4Mdya oiO+IvjREY8TwZFawY8O2CeTQtFMjNcq/OyRywNgI39zYCGBzuRAPRiWr39S Ijj7a+3mp7F+24vYtP1VbN75OrbtexO7gudj76kFOBi+EEGxixCUuBhBkatx InYVjscvRkQKffP2eBzIm8bYz75EuGURwq1vIdwmNh9h1jdxzjIX50yvILTy RRzPfVLtOpRdiKOykYdC2MeIsEmIExXkY13eLviytykFDFDs/ZFO384Z+hoq DqgLsUJfLwe8GkEenT7d5wYor6uLoCItWWwOI3OO/slatr9A+H3+UpJ2oqqb 1AAoSw1BVdYJDNdIeBmnrkdJ+/Z7KINukueK4M/J2oJZP33tQp+DRvparXi/ /44Mzp4RvIs8LRoU8ZMkZKZU3vfx2c9u69sHbPr2gTubWprKz6uFbe1GAmjW ALwgADp0AEUDBcCaOwDO9sEBKrC7R9EllI06Q+FJ3azB9yKP/HWbDqAOoTB7 gyau+CoBnGzQAaxnFk4NHCKEAzUcmr5oOOLXwBa1XHPDkSsUg5bzK+CI26L2 q8pXp13Tv149ApStRio93voSNm57jW54LrYdnIddxxZg79mFOBi1CEcSSF/i EuYVSxCdugzHkpfgfMYSbN+SjODSaUx8RgLtixHuJIVOumIno0TnPJxzvIFz 9tcQan4RqcbFisCx+gRFoNqVyQ5uKzmCRkaCDXnUPxLoTF+Das0HByj8vova cgJYvkOlJC2mY+hxawD2zQJwhB9lzJtEAJN+R/qENgFPEKxTCCZrCP4pO4kv lVoBapduAtxFZ5Ade4T4Maiq4fCukatV0RTAaCV+F4ngaGOBtuC1W1+zrQtg AEG0i6y0auInOPmXD0qlKf9soY7hP+qzhV+5UahaNPicjqi6WfwF/wYBR4Da IfB9hWJvbQFjlki0yQISk6z+0aaSNBTj1JS7hmLif6yFlMEPlM9NxqjrLDxp m/lPNRZvtmm/Fw6VELYIh8RZ51DKKVxuiFfFFEbJ4lAdOawlh2wtW9zKO+Gg zqEtahU8SezEgmMahzZyqLa/6eGgzuG6zS9j49bXmYm8ia2HF2DnybewN3wR DsQyE4lfilORSxGd8TbiytfjWPgKpB9dia07cnHSOI2pz7/AecdShHkW0xbR FtLm45znTZx1vY4ztpdhdm+/Swn9QtNpOEEGd6M+fzeqc7bBnvo2vAVbVBxI DMkiKfxjJYbCoawb63bFqdmmXlV9RThMVBxqQkgOq3UOZXe65m5F/CbrRAIm xQ/XzRifqxNNnODxcp0qXqFCBXexBuRIHbtUhrsAyeE+UC0XvDQg1V1qZXlr z2wotY0E1zrsxNKGn14bnVlkNXvq+i4Y756UeV7/3bC+elogDFAr/X8wa52/ B81yqblCLtLIJLpMZoogxqp1EncJYp2fQgkK/RQmaxTqJPZWHaMa7FKCGKAY /I5OYbJGIO06yb1GEq826RQ2ksLGOI3Cev5fKmJvTTRcqetgjVwWoBD8FiyE 0EcAvbMg7JiBMMG/iupY0FKse/cVbNg6F5v2zMOW4AXYcXoh9kSQwTNLcJpc RzD7jSrbhDjTNpxcsQZFtKR1hQizT+PGZ79ApHk5It1Lca56MW0RbQHOVs9D qHcuTjteRpVHY3BMYkGmVMLgIBVnkJ1bR08sOujJ2gh72gq4czcIg3OUFopD 3oEaJsKdTpnEjlPDx59RKUes6+DYLP4C/AHgLOSUFM5R3/6AQQ0hVabVKBin RrtLziAn7ghblYEOx/Zw7WzwojHWoq2tvnbRqy//1/eNq10s2haAa502XG2z fN261N/L3Q8w0mWdWbU/s7+k163Yk/0lI61VaC0jd4YYtcK+x6o5YuFu0KPN z4/X6MkIP9VVqp9wd52J8HuSiAh498xg18BGv6lRl6Kh97xC7/270CO+zXw7 mlQAudQUjzHiN9LAfyno1cUo9Hw5m2GOWEb8VsBK7hwx6zX2knfArYeDwl6X xp7a+ytfmbGBWLfxZTpjwreX8B19C4EnF2N/iAjfSpzLWo/wws2IKNmG88at OLFiNTJpce+UINo7jQ8++xShtrU473wbkZ6lCK9ZjNC6t2jzcKZ6Lk66XkZL zXHdEWsCOEQAB6ksA+zg9qrjqKUI2ih+M/CVzDhi0UKJC+sYBXZyhHextWUL s2yY76cNuhO+RgCTNQGsZRRI+4aAh//FHklS3F1hr0zoNTGkNsZ4g85evM4e R/UwxW9Qj3Mk0L4ue+KEvV7vrO0nbn0LivPOFpROC3756a0ZLzx7ZvArAP5u jXh6X//9uXvsAqG2c+QHGoO9mvZd4Vl0W9LQXhGt1kbI4sOLdinCFa8YlNkB CWslvlCTMvyEU4pBLaqb0T9CdlEgzKX2CXtL7woE32/VHPB12rUWvg1NGLxM G2/yFw4RBjk4hUFmNrVMIG1xq8ghGYxcBV/CDsWgTxhM2aExaCWDsg9dr3gg lQ5USrKODG6ei437GMStfhsdW9YhPW4TTmdsxNG0jTibtxXnTdsRVLQax5ev RgIt6u1yJNZP48Of3UKYdxPOeDby8R2knl+JmFIKZ/18nKqdi2POlzHBJrjk DwbrZJM3m4udPMAx1MfP0Fh2CLaUFTMM+pPh6jLt0VeyA83mMHQ44hSEWt0C P4SJVEHG1l9RwcvKC6vIL9mvfvXJjAGvNCRrFPKkLvsraPBRihOdPbZbFfcZ nkVhHykcayvCdblPrZAoFPZqFAaoPSb38ig7TEhht7bLRFbt/7covFejsFun UC2qVzdKJoTf1zH0qkrKslH0gi1dbdqQ9a8XqS+9Dj0ykQmmaj0Y1N3w1UbN DV/XE4z3WjQUBcP63F08mw9EDYXMP1MQvke73pqobKpVg3CCJhCONXOkNsVp lWsaqMPsxIs6hI7k9agKYx4csxleP4QpO2aujKhKAPa4WTnyD6UgEI4dehtb 1s5H9uoVGA/agluGMJiMx7Anag2Op27GuYodOFq+GoeLCeGODYgmhDsW2pHe Mo3bP72G5KZ1CKt/BycjTiJs+SlkL9+Iwr0rcLxmLozVO9nfmuKM1kthC0aB 0r/s534ZRPXRaDId1iBMJYQ5GyUn5qf5jg7gTniKmY7Q57TLrJJkVfZ4vcxR Ihs9UbniEa9/RkYHUc23CIBXJBO5Ui8Hsvcn1ECdQGU6hYxuRO9CDu1QFIqb GarXpHq4MV3tCRYKZ+lhgAhigNo1co+2Z+SCXe0buTnS7Adw9tTgVwCcPSH4 E/2i3G0CONZl05Yw8x39uzoEQdnZMUH+J/u0ncqX2sxoL49Ru4cuWLXF2f1K C7XabGOS8s9oYZLSwmtNyicHKALvwQV2cV3OLuV3Cd8c9c2fKPpuKAKTNPpo VxSBlEDaKAkcJoGDtH5FIM+A+Yj0ma9oB4PAd+GOC/RfBKovCEG7vlhXg+5R 5pKqbhASd21E9ZrVuBazHzepIm5+gK0E+GD0BpwqDERQyXocKFmBA8UE8fS7 CF+2Ggve7ERu5zQ+ujWKmJZtiGtZhZONb+PY/jicXBaLhGW7UMbX9Zee09KP eh08urjBBm3QyGn3NUSjzRECd956BZ8re4OakBHgvGKySqbiGFoscskuVotg 9UoiUgtpwMWUflYeIgo4rmJAHT2Vach8F9nTpU8mYAW97+JykwbgpSatiNB4 k2zB1wDUar2wgRkM9rFh3x+qxnsC4KDvjhT2qVtSEYpvaPVdevXNS/r2j6ku y38BwtlTghqE38AwwdIgvLN949IFNz8W/f/3dQY1EbzOk5roMKOzUjYCkEFb PMdkvCoRpeapZKJTOKzTIhCNw2RymKxiwxv0yd2EsJYQCpIEs1UyYvlevpuh kA5aKJykTbRSXEnhWAtHKW2INA6QxN5GCjH1pIda6GU3thvPoD4nGK6YQLjj NScsQaF81elIdlr19eTsTm9OKAzbt+LirvV4L/8kJhtzcCp6MzYwKNx+Zg2O pm9DcNFm7MpZhn3Fy7G/ZC0On9yKPfM24a23hlB8cRq3rrbhTOMOxLa/i6iW FTjWtAghsSEIWZaB8KXByF26Dp492zFGLEcYfUlBn0FVgYwd3chgopFIOo+i rjIQjoxVcGRtIIYMCmWa+ntwFu5AoymGchmLVlLZbtUKu0jlN/E/fTM+WeQw aYbIS/TH4pMv12rB4QSpnBA9FCWcc5cWzlFA/pHCcWw2klJ2SAYPkZzqtaid Tu8N3Y1kgILymzzSQzNzuNbn0nYkzdry8XVb6R/4fUz+pWJyvNM2s7dD3U3+ glvd9Fa7x4EOpb4J/gZPbZLJdJeREYuFzsKut47kbdQdAVMCReWhG5JmCSTB JJRdhmOoyWHD35CrxYLhMwrEa7SrbX4QCTZtnECOEkgNRP4fdmgv9aWH0WEX M5RW42kmTXrxjsjtcMcyKkzQQPQQyLr8ELSxV6U+loIz8wwqlq7E+KkduG6O puzm4VjwaqzdNx/rjyzHvqjNOJK7HVuTlyAwexl2Fy7HnuJ12HN8G7bP34RF S6+gcnAatssVOFq3HudatyO2Yx1OEMYjdfMRX3wQiXuzcWJpOBKXboVl7zZ0 l4TqZcso6YSxlzBebKJjNu8PII3bZX9a8W54CnYqc8latNIQNBoJY1XsTJUh VXBpxjdrEjkkQHr1ILFa882XmCRfUlOFogzfwGUK5ATF8XKj30QYqZ/jVMn/ yZCHf0osR3WTaxxSA0vU/HqfFR8M16gN0hqQ4qirBUjy2C9eul/dMLLfpQHZ Jzeap6O+aP3PYPyHr1lEqGXLf0MYLRqMXTqMzMXlpt+XCeMEYbwyA6N2OjeG pTpCDa52Wxj2Z9FbM9ZwSAidqC7NjnCYjuktMjGjlMkMG5OVWjYVHUJT8SEF 5jUq43WllILiEvpnUcYkTBLKiTYNyDHaKG2IUA4Qyj5C2cuOvUA/3UV1vHzR xAiyQBU7Eihby07DGRlIpbwDZm1eCMGNmXHcjevX4EpSECZ96UxlUxlhJKpz 3rvqHQQGr8X+xK3YmvA2NicvxdaMpQjMW4qdRWux+8R2bJn/Lha//R7MY4Ty UjkO1y5FUP27ONfyLiIaVzCdXq0iRNGf+IMFCFqWhLBl+5GzbBVqow+iv4nq 2ER1JJAXm6PolLcrJmtpndXnGSUegDNvB+x5gagvj1a1/RoNsYrMVlVyTare JKDHrhWd88vkkB41jvo0MscpkeO10raX6iQ8ukQqL7EfLjUq02icQxIJM22s WVVnI49/wOZMwKF929Hji8F7/VZ8OFKLD2Qr9LAmkzc0qQxQ9WUYLUpNpAGq 5IBbTBh18p1li9K1XqYw7498bb2Gr7D5uzM5f4kRYVM2JHXezeYlxSazaLkZ zIxQ6mzyRG+OSn2EWgz6yKctXvE5oAQzUQnmV/mUUGaS7eLJ2oV2w7EATLUw fpxqlVnESR6vkMkJ2iV67t/hkdZLj32BIjnQmsFzMuH6sI8+pkCEMkBB+RK8 ifvgjCaWcdosTm1OCKwJJ5Hxxgr18+WiczytTPR40tS1CQk46vPDYAmMwDWL FadTd2Bt+GJsiF+CzelLsS13GQIL1yLYtgubieSytbfhvDwN61gJ9vmW0pbj pOEoBmNycS1pvyZCjVp5x7qyNBxakYNjTG4SljPJ2rcZvc3UyOZoXNCRFBzl saM6Au2+83AXH0B1YaiqAFjPQL2BQVKTUSvJ1maOZ/Ah1em0GmG9TGT63Uls 7iQlliIJo9WaLIyx2cfZ7OP1IpjjymWP89yExjF1pUto/A4Z5N+RRs3YHo0a kxNdRtyW7lVb87/KZLVCkkASwkHlvQfJ5aBwSbEckNvVE8q+u6GcPb34e6H8 K4y0Esp2G0WTUHYRyi5C2e3Wbol1YbZg+qGsmQWlVrzjBsfFBbtWMbLfrQun 3kLSOpdkUpVQThBKF6FsowefbJbBPEm5/GNCmaSgFBORvKQL5UiLDiatj+l1 L8Wyh35lvKdkZodwAPH0Yr5Wj9CieXL5sp0PZKqt0Rn79grYFr+N4XNagYwL noyZgqIyV+JjeJn+9hGM51VwmBjhrTzN0HAdVp9fiHWJi7Epcyk2567BIfNO vLvgXazc8imqr07DPJSHHfaFKPHthyE+DxWn7ZiIicGELYxk8vzZy8Ps7UGe d+SBHBxcHoNzy3cgc8VKNJWfQE9LJKortikyG21BaPeeRyuttykfzcZU1BRr BQM1QuN0QuPpzhPQZZ0tmky1Secg6RwmncNs+xEK5igFc5RyOUqxHGP7j4o1 imkqKVQOK0qHyeX3McTjEM/5Uns2gg7upv92k85afEi76adz+A6dEs1dU+bV 0BzS8RwknoMMLgd+F8/Z0z5fwXP2tM/z+oqd29dG1d668Q7i2anj2aXfQOvC 1/jzIdFMKW6g4XlrvBYfjUtVpFpMdpSpaWa53jtA3ZQCpiMcwGMygBtEUJJg z9yJ5soQXGZYMyHWQiTFRC9bRS/ZdMRymDZILPt1LC8y5Jm4WDpTG+SDUZ/C 87oYAe0wqQKGop/n/TM+ResXoX7zCowkn5gpK9TB1EEV95W0gXhmBh5Gd2Q+ 4w2b8uujMqRqNb3PKt6H7Ir9WJP0NvaUbMWahYFYtOt9FPZ8AldrEVTFd7au JNpppwyoPm/E1chgDFWFssPjFZb9En80xyIvPgN7307D0RVBiF+xGob9m+Aj mj6iWW8JQqvnPDqJlF8aBhqr9BKqxFOvZ9lUFY9WcwJTH+JJNHuIpr+s5wDR HCSaQ0RziJ9hmGgO14kEjBDOe5ltEUe2/7DfFJZDEmcONooXH2/Lxsd0glFn QwiDRedylmrSrg9VUw6GfOKuebw25FVG9RxSs5FDxHKIWA4SSwYCcl/y/y6W U8Syja68nVh2EMvOWfd1EywvfsWVD2mu/Ouw/ORyLT6lTXWVo1eqn7Kbe9xR aLeHotNxFl3OsyhLXA9T5hZmlsf53Fn0uM6i2x2KLlcoVTJJ4ThEG2DcI0p5 US4K9pbh9mUq9KWaWSVrqnUs2TS04eYCUU6FJf4Xyk/tgunthajZsxRdaSHo sGahSYq3SqngqjvVmKM27YT3AAXbZecIylDuXea1XKYUuM0pSCnIQGpBJnPw HLyxaheemrcEbxy8hEjfJILPRWPfocPslbTcDPw9UrPTcXSvDVVnC3Al7ZBO JdO05jhcbOFIaImFw5CEcwcysG95GM4u34zMja/DlrYBLZ5wNLrCtUiqW7+J aLdX3e6s21uM2rI7NS2b6NZbSWa7PRFdDjYxybxIMnvprPqoBgMkc4BkDnJk DcqV6KF6uUA9SDAHG2dsDslPxLeoSTn4YMCGT8bqiGUdijOi0ekr8WMZoLi8 R6nl9SHNrg1LjDksznxY5iaH1dzkkEPjccCKTz4Y+bppoa/g+LuLFWWP6ChV iSrZJjctd2r3tey8c1NVyXz880LXZuM4ouNIm43jTy/X4WqPVLnKQrcnAm32 M2gyHUNtxUFG94dQlrAa1qwtc9DIH76NhopDFIGDqC0/iOqyg2jly0c5Xt8f 5oea4NvyLQMUh0+QxOoZEm9QJK/rt3C/1GNU9Zalwqth+2Z07liJqeyDaM4M QnXWOdQVRKGhhClteayOYxwsKWdQsI4joNSEi7X5sBqSUVSahiTil1yYgRRa Ku1kTDieXLgUP1m4DM/PXYQFIROIr53EibBwLF60FJve3Yy0vHQCmY6w+Fzs O2BG8rFMlCSch8WUxChSw7BLGTu6JQqhR7Kxc3kiTq/dgKRNb8B0NpAOocLv oALUfUW/o2i8fMHHHvDxFEtQb4i7QyNj+XYGmJ0MMLtJ4gW68IvUyA4nk3tL KJotoXPQbA1lp/eTxb4GMclr5Pgn1J8cvE90Phmv04zqKApZnBGlULyle+4P Znnu68p8wiLHv5jgOKImKkfouIedmg393xD5dWsXP5wkkc0kstXOPMN/c2md yB49FyeRV2cTKVX/ZoisZWhZi4nuUopUFtuOuUkdlUEuk9UnMGKRg0wdv4bi mNWoLzvMYD1UMwpnD63bFsrQKBJDsvvTw7+X27g44xgHlOIjXRhvjc8SxzGf jqRPIXlt1IOGwkg4Vq3Bz2P24po5VAX3HRaKsrUANTlRqJMimaUalsaE04iY fwA1MSVwWY2II04J+elILEgnkulEMp1IphPJdCze8i4ee20hnnhuAZ67/yWs OjIJU9skdq5chQUvzcOSeQuxma9J49+nEs3AA+U4GWxERkgMkhLiEZeZhpzi ZPi8zKGJZAeRbGeyYy6Px74153F05TaEvbwa2czVOwrzJW9m65PHLq+ukBqT V3qrcbWvGqN0qQONpWi0yJ0BIuAznIGrLAS2wgOwFx2Eo/ggXMUHA+AuOTiH h0PULlfxIbj43AVZd1uffY9QGKAQ/AMUzUB4J7kRxVFumvHZNWUiiCMqsSGC CkBldNMjDgXh1KD1a1fP3v/1BEp1z4f1y9ajg5PoqGjAaGkDbvZO/oH69UHG vISyxU4wnbpUanfIvKzfAliS8Kv+YrMytz+snbzkO9f6LBhszlR1xwXIfgI5 oK7byhWMBIXjWEOCdgOC+kTmBJvQZTqjVjH5VzPJzOa42qKpLXaXbTJyiVyW a0gpFanfM9FWosp33vRrJe0G4bw+RihppYcOYXjnRvx7xWl8OV6OiwxkOy3n mLmGKtkZrK9CdY4UUYtRmnl6/SEkBmUTPhOi8zMRSzDjCVZCgQ6nDubJ2DDc /8TLePBfnsAz//gwXvqHJzD/oTex+eU3se6px/HOIw9i5ZOPY8kb85Gqg5lC Wx9oRMSxEqSfjUJsThpis9IQk5GC7MJEeKS8TFMkmhsj0EhXErY5H5ufjcHm +47g9H3r0EY41V3nuzwzYF6eBeZUfzWjmhI0OWIZiMrd4k+jxnganvIQ2AsP wlkkYB4imKRxDtOjUNoZtFSdIfOSkH5DpUgy6ykp6khNNtPMMj+qdUTVUZaK alOWppezUSWiCtVRMUF1VMRyVHz3qEtiTIF0+G5IZ09X6pD+vQ6k/zYregnP h/RLOuMDEzizIgHeNRm4fDAZ40ej8OnYxLf1/PxqXyvGmslrC1273D1YF1Lh dUJPgDRetQRIVF5u09gnpdFks1pNLHpr49BfK9es5BJ+vLraJmsOZIHTJVnJ rRbTJqDk/DsYckeqmXdZLBmgFg0tVHtpZDG5f8eQ7BaSchkDqvwP31/Vm4rB 1AWz4vU9YXXchw53ISpWrsNHZ3dhmnnnpyOl6KtNoZ8Po51DX3Uuxtnvl9nv gw1V8OVG4eS+4wjZlYbkzCrE5OUiKicdMeQ1Lu8Os34x3RAYiB///QN4+O8f xrM/egKv/OhZLHx8PrbOnY8N5HTdk49h7ZMP4Z1nH6dP34sU/n0SLTQ+Bzv2 mxF/PAdJJ84gJisVMZkpiM5IRlRqMkorY9AmVxSGW9juVtSVmLDgARPeuS8C h+/bgtxlh36H16E2E9q8GWjk+G1mm7TIDQ5d8WyDeHTReqTug9Ty/iaD/AS1 NbdfN7lKLtMmMuccoCYk/pjNqs1D90oeyDjhIiPvyRb6LarrbGBvjt4B9gZB vT6qbmdND/ZtSoVPycW1MYrrGIV1VMw5w+3Nya9fIP4VbmXWSFblyuNnn32m CuTM0S4Y/67//7ZOtbusDwlr29ES1IfflHTiN8Zy3M7L0p7+37gl4UEjqW4m 1S1OjeyZ/MnzO7NOEySrg0rSJaXopNIGFbhPrdaKV6tmRuu+QjRtol7bp1BK qofdUib2CnX6f2sVTVRVE6l1lKDthVML9+PVLvUh9tqAKmrF/2ONVVU4+j3p eI9E+9J4Dps34tf5xzA9XIxb71djvKcC7cYwtJvC1N0UBuorMdbhUWR38bOl 5JbqjfQQzlMZI5nwfB3ViSR6/sK1+Le/fQKP/N1P8OI/vox5P34Di59ZiO3z F+Lga6/j4CsvYteLz2DLs4/gID2AjITEfC3MOBBaiCNBVUg+noC4pFhEZ6cg iiocSaLTCypgcVbj9ke/oJpYVVjmLnJj3zIXFt+XhcD7D+DcA+vQXlxIZfHi Qn0R6qwxaOTIFuVtFZrlFmH0Ut1CM40wByiO52gzKh5tvUeAmpf+njaLL5OB ciVFZqvlmpNcWaEK98m1aCuNVPfKfYhKE1GWHauihZt+CR69Q/T1Md8chfI3 78A8xihhjDCPOjBFmH/64egMzLPn5e+C+e4p0B/qS4tm86tezK8/1Gl2F19D XNCHaDAwuhj7EtM3buG3jdX4VUwKPopOx9UcK2nXt0x8chsjDXaMNToINqFu dc0KL/xZmLZCpLsmDW1urdCdVmGBLVFzB2hZiTMm+7t0oAMUzveq/cyybKk0 7B2MOCMUzAG4SrFerL6Xkkp3wObfC9SyG1cvo9VPsHsV2DFwZpyGY9cOvHcs EF96Y/HrGzZ8MEm9GNeadrAxB61G2XZ5Vt2Od7TNg45GJzLMFmxYmoKStC6U uFtxLi1FtZnAHUGwowh2SFQidh6OxKYNcVizKBPzng3GIz+ci6fvW4DXnliE RS8sxvKX52Hd3MXYtXAxDi9ehKOL5uHQ/FeQvjcUBUExDFkiEVfAcCI/DduO VuD0sTKkBJ1FVHYyB042ciusKDTWwFZzBTbvZULLwcic45K4SrZ98nEf3rrf gLUPnEXIQ+8ic3EgQwjG6zaCbY9RMt3mjFVQd7l0qN0Jfn0OUFcu7tHu0eY3 t6QebrlHyBCZHqYNketBcj1IpR6g9ZPtfmHbHAdr2mlkRx3DtW6rptSjNVri OyZMK67Z2mISWYyrNGzcPdMBfrZ/+dntP9TF2MGI9viiM8h58ww+GZj866+Z 9P8K8bOnr374NYr9H6v4HyIk+Dpc9pvoG/sZ+iduYOzKND6/9AWmO27gywoX Pg4Kwy/tTnzcOaLXsPpzDNXaMdrgwFiTkzLjD1g8StolYJmktHdVp6lash1u XdJ9sepW4f2y+rtWlvjrki6bbeuUnHMA1InUqDJWtLwTi9VuFnpVKYS2SFVK 84+Aya8ZAaqWi+ypd8bAcPYIatdvxC/SjmC6Nw+f3WQfXPLMNP4UG3+Kjd/F vu125GK40Y32OpJfZcbmrcnIPFsPW/0o8r0e5Drsqu0Oh8cj8FAUFs2Pxrpl edi5qQaH6P3Cz15GbOokHn9wAR578GX85PFX8epjT2H+U09hybNP4e0Xn+co eAWBSxZhK+nvq7mM2qpeuNJdMB1NReaBCBx5NxYb95oQxxFQfCYBuVVW5Bgs qPINwF4/CXvtFZSWtZBkCy75XSrb3l3oxYJH3Vj2UCr2PLIHyUt3wJV0Bk1U gBbSL3VqOl3aXvgL+hL6Pnc8NPS/MYO+EC82okzuT0hR/y7xT8SwU4wvU0OA Em+jEf8BJpK29NNIP3cYFw2x6gK74P/emI7/uIa+cK90fdzf/GLOGf6vkv8/ 1IOKS0zp9s2LQ/78bAztzsOVM5n45dXLf/U1c7j/PwwCLWP8H6ju/Tm6Jn+u fhq6OY1BmmtgGu9PTuOL4c8wXT+CLzIKMbYpGB+VWLW3+h4+nBijijs4FjgO ml0Yb9O9gYQ4DN47PKlo0W863anqt8XolSVkhbdscaFqcyyMSVGYunhZjiEH sj5HqxBIy+cgmKMqZy3HVI3UdYujaTXe5HkpVXlZL+c4poqQ8X05Dip278TE ga34rTUCv71qwsiFEgbkEbh00cBxoHWAjIGr7IAJdsCVrnaUGKqQVmnC/uOZ OL/XBqtzBAWeaoRlluDI6SzVdBtXlmL3tiYcPjGIY4lXcKJoEierJhFVWo3I 4kqsWbMR9/3wQTzxr4/h+Qcfw+uPP4n5Tz+BRU8/isUMaRY9fT8OhMUhwehD jnsSJd5J2JyX4KrogTPZgsoDSUjfZ0TZnhwU5Zeiqo78N5P/JlrDFTUOMpMM qMw26OPAhRZzEuoMEQhcbsXCR0rx7mMncObxTTAcPoJWVTAnTm0h6XFpu7Bk zXq/W5sxmpF+2Rgz5JSml/KAI2Iucbxy/A5/TlBjQJUOdMRrrsBGZ26Ng41O NiPsMPqqKHHGGFztMasxcH3cPwa82mLMe9nyLsz++umtMV2Jv4V+Kqwh1YqV 953B1qdrYNgzgY9Lp3DD0s+0qv+/MARmzxv/V4eAVszm7+Ak7p7RafRcmsZP J36LLy/exrStBZ+zr94PT8ZnF0cwWEPWqZFjTS6l++PtbhXSt7lS0GiJVKy3 O6MU61oVzJiZ0r6yz3BUsa4VV5BCQqq8r6oHp0U0oukFJ5aIzgeownJ/qcp2 Talyhnr5OL145oRe8lBqUrfkh8K8eiN+Gn0A0+2Z+NmEEf3NGeqWIl32CDXn fOliJaZ05CeJ/I3JVkxevY4ciwenEwuxf10BDh8sxradGVi+MEm7VvcIjpwd wbH0KzhePokw6yDinJ2IM3uQWl6C89lpOJ/LeIix0IvPzcUDP3oYT973MF54 6GGq/8OYy7R07lMPIOT8cUQW8nW0+PJcxFS5cbKC7+WYRDnpt9vH4SrpgDOu AiU742BKMaOsuBWOlkk4SL2D1Bfke5CVbIAhx8h4LRH15ecZr0agoSoSxQnp WPCkA+88EY8jT+5A9sqdqE0NVcRfoPW6tF0aA7I6WbY+uCgyUmv1HlWR8A7t 8XNUCbm/4DFBKyTnjJ8FvFa8sLMyEsH7AhnXS9lRrcxtnytNgX79kvhYMf1O FPS32qNrxueK3sjXN/T4Q6ivJPUb7wvC0aczEL+0GyfeHsWurZ+jsmgaUz1f 4PqFm/jVzz6GfwjMnqj+yhCYjfYP9YBq9u/+g5z2T/SkteP6NArapzHBKOiX 47/GdNtVfFlsxs29pzEZyzQ/u4DJlSi9Gy22ZDSYItBE8lttUVoFMbltOCOe Xo9WpXNQr6E+KpVsanTyZapFFbVOUOQHKO7vRcHJJQp6vwn6Aapu4t/yex19 jqAJvVBx/u5d6A/cgi/KQjF9qRI3Bks44qLUhcVuF9F3RBD/82g3hyn0J9n6 EzIvcPMarH3jOBZnwPwFZ7FycRq2rrNj34FuBEWMqXY5ZphEqH0Qka4O5Nvt KHA4UOhwBKDI4QxAscOJ+5BjNiHovA3HQyqw50Awdh84hH2HaUcOItXIOJ5W 7HaiiFbodqCAlu+2I99lJ/8dOGseRLJrEgYPGbeMwFnQAvv5YuRujoIh1gRH 8xVUufqQlWpEXFgy7NnkvSwcDZV8NEai0RSJktQM7HzbgqVPFWDn08GIeGYj 6tLOqnLpcm2936lx3y/bQ4RiVflVUR0g1Aco1u/FGI9S8V3MT3+AYv/bin6Z LOjk/wzeH6jKd/Yyt7rIPKPHHIWRliKZKSTz35pFvFtRP6VT//5Um7YgQDD7 oxnoN9x3BMFPpSNuSSfygm+jMuffYaqZRuPYNKIyf4Hk/PfhbX0fw5O38Nf/ d/DfqTw7Z2Y258/VM3+NsdvTGL01jdrhaXzIEOffB3+G6eo+/CYpCx+ERmLw bCzqKqkwVRrdLTZ/fTydbikd5NHKMw5LeUbfnXLt4/7CKNV3NH2UWWx5+Dt+ qu9RBUH/Xx6p6XVaydqmonOoP7AbN8/sxpf1yfj8fSbUnZkY8EUzXIpi2BRJ lxJBF06oHefRaQ1HjzcR3qp85CYVYsGboVi9NAPbN3pwIOgigmMu4VjBJEJM kzhuHcA5R4d/TUaOzYFcWr5dthcV2F3st0KHi2i7lRXTlq6gBhdcg8lbj2KX m8i73fgXFHn4Eo8LhbrlK3MSayfyiHce0c5x2mFpHUK8dwqHsyeRQcSr3Ffg qBqEM6se1lO5MJzIQ+quaESdjUH0mWg4ciPQWHEejZT0Jkp6szla3XM+KqgU i59hKv5sJE4+tw1Fq3dpGz8Fa8Fb3dKGWDv8Yp2gIhVBeNSdMEeVZfwOxhnr jLm14qBiQ3qBxkHJDap0qqVEHjPmi1J72ardY+NybxWuXZa89bKHucC1y+4Z OdcExYFffv7RDHZyj97ojdl0QqmIXdyOvCO3GKaRaJ9G9OBH0zOXc2ZPRmrl zGYiltlrfl/Wddk7rt2HtZ/288v/ji97buJLUy1+doJo7D6IpvhTaLZGok0q lTm0SmWqdB51eHCmkmOcVj5PhQ3xaqr7sh55yGThyCxKpSbeHIXpj1VZKFWV jL+3RwSjedNm/CLnOH5Lvf14ysZMNoYZMf9XDVGt5vlURxLXCIWrIfkkkvcG Y/P9J3Ds2Xzs2OTGwZALOJpA/S26gmDLJBIaRpDdPIhUgw1pRjvSq2hmBzIt TmRbXMixusirC3l2N5n1kFiaw0NmaU4Plq10orzoBlltoNZ6CaiXcNK8skuv gMcfqiw2z+um8X0IbS6hLa5pgKV9BO4L12hT2HZ4FGFHBxGf0oHgsqsEeRIm +wSc5X1wprhhPpyKnK3nELXhJBrLCSx1uIma2FwVhVYC20ZgK1OzsOQlH955 LguHnj+I+Bc2opl6LPrbb9c0WNJIAVWF1nJ3mwSGHALqmF5LVKspGn93PVGX Nrk14NLqJmtl86Rus5TNk1shUJ4oVZf7jIrWKZqf1ynyenXcqS/A+jaiNmbh 8BMpiFnYitzDH6IyS2O0pOdLDMmNfn/+5UzRnv+E09nzjK/p18SbBj9CRQ+j Fqrqr0d/ienmy/htXjmmth/HQGgwOuzaHUMuOKXyH7NAKbPt0bI2yd7G/Yzq N72Q+EBmPC6aTsMStzFAgfmPCkc/lmLNJedg27sbk0E78Bu+9a+v2XGtO4vB OtGv4xCojUY/rbcmCrEHjyDj4HFsf/AsTr1gQMLqYeSc/BRnE6mWJWM4ZKZy xjShwDwMR88oHMzIHYNXYewYIhL1RNSBNJOTiLqIqBtZtGyrh4gSMaKZ56Bg 5DtknXWB04flq3yoKHkPVb4GwujxsWULvD4C6UWej8bHXJ8Y34GQ5lBhDS0X 4em9QbsOt9jF6wrSFRuHkXayG44EIzKrryKddrpyEoWE1GIaYwDRCUdUFbyB 4bgUewKtsacVnC0mwklAOxiydtFx79/gwIrnDQh8IRTnX9wK57FgHU5tCnsG Tnby6CwuAxSZf6lc3JiYJ/5OtVGZfHVrHar4FDfpEhGSzmZQpt/esK9Gm0id UoxqfGbQC4SuDFffx7zVjNyDN1GR8QVMnmmUXZi55a///mqzp75/L5LfxWc/ v810IR6VpQytPFNooRJ/xPD2t/0/xbS7S01zTwaFoDUoSBWilKKUMokmn0om 1QTHACWY35wJWa/oSJrjN+JqvV8uhcQfoEdYXPMuPkkIwhddefjZVTNGOnMw 1kDM64l7fQwSDwfhxOJg7Hk4EudedSLl3SvIC/8cJSVforSOIXjTTUSa61Be 24g1S6JRlNACS8ugcBjAwxQ/lmPwGpy0kvoe5LqakGpyI42ZWbrFSyy9yLL6 kG3zIcfuQy5pzHVWI89Zg7fX1LEp3ofR18BTzvNWUxByfdXIUcbXE85sWmVr Hzz9DL9onv732ASevvcYOwmY7os3kGWexPa9l1Fyph6WiDwU2WuQYzAjptSH BEMLzldcQol5DJaKfnzkG8KXpRZ8eOAsxiKPoSn2DNrVlqNY+tlYmFOzsfxl Dza8lILjL+9B0YbdaEs/p2AcUtGoNi836lFVbuUg9W6Fwz9W9whThUXliq1H u/2d1M6W2rcdDNwuekggU4ILLlLoZBTFtKCbacFwe76uiPfgwOMJiF7QiJz9 76Mi/Qt/pCTgXf9ciye/rqTKV+ibPQOn0ff/YHK8RdV49GaFoabwPGpLI+jE WuDsnMLIhD7V3KlPNR8JY5J1HN3JZ5Xey6eScSbsjevFzjxVyYg8tx+ng7cg ZN9apJzZJgQGqMKNf4HCPXvQt3s7fmEIx68vm3BjpBzjBE/gSzsSjDOLT+Hg 40k4P49CtvMGCmJ/hVLjNIqbp1HePgVzaxO6GVZarBXINZRzKEcj5bgHjpph 2PsvKSEMUOx9l/Rdp92AS2zgPZg6xkliC1JMXqSafSSxGhnWamSSjCxHDWIr qhBbWYV31jbDWP4BDNWNfK9sby3zj2wvX+Oj8TGTTBraBqTS/eBNxvHegZu0 D5QpIvtIpFjveyTxPZxJmcTJ4DGYTptQlFeCvCoL8oxm5BtMyCooQWhUPoJT WxBTPoQPr32JL8Y+w3TTKP1SKaYCT2Dk7FHUxoXiglR0sMbh0AY7Vr1cgn2v nEDsq5vhOXF05krIiFwcGVUXBP0Fwce8WklIqUQvVaEVh15ZeR+DyszjiDy1 VymiJf8ULnjJooccirkjEbv/CI4vPIr9j8Uhil2Ss+89RpG/gck1rdzoMAG8 8fm0vxL97Esg/wl7r6rjYq2+2QUrxshfX1M5vDnnUVMUgdqySNRXRKG4rAz2 ulbY+qfxHh32b0Y+n5npNa89Duf5MKTkautfZC3MqehwPP3WUrxAe3XBErxB m79gKebNX4ojwadxYNVx1AUfRa8hAzdv+OArS0TWkRBsui8EwU9nIXpxJzIP foiilC9QZptGYds0PG0tqGsuQ2cNUywvg8aaJDRWG5FvLEVUcg7ObC+H1dwP 20V64oFJJX4OHTzn4HtwEjzXwPtwK/sA7v4PYO68jBSLD/H01Cezc3EqNxdn cvNwJi8fobRV69tRVXkTuWab+lmeCy8sQzohzfe1wzt0Cz5lHxLBD+EbVI9z FIn/mwySwz5ar8bg7tNTSDw5AGtINvJMNuSTv3zFXxVS0rIRHRaNmPBIROV5 UNkyhS46n4/J4W+HP8V0LbPO1Fy8dzoUA+Ssl/wln6zEO685sPW1OJx9fQfK 390D7YrcPZQErZitDp/G3ffUSqs+JjSGjBM4tHc79uzciriz+2EtOIVaYxjO ndiDNupe7IEgHFsUjH2PxiLyzVpk77mB8pRfw+TUeOuZ+hjvfT798NdMtX6F t9lTrRpvL+DWe6MzxRwv9Wl3pPIys6spiqTuRZG5aHUTzJaqGLhslUj2TiC3 4QOUeK/AZBmAOZeh0ul0ZIZEMu48hWcWLcHTry3ES7TXXnsL815/CwvfWIhl ZG7FoqVICDmF+JhMHD2Wjbeej8PmV4pxdEkLso99guLs36LUPY3cDjLW0Yr6 1gr0NMSgu05uFR+FNiYpPXXJqpBMflUx4tLTcXhdPIx5nTA3dpGrSdoUjawN 3JjhzCWMKbuJsuZ+5Fe3Id1eTatBBvnJdNRS7GQtcLZDhC2HxzUbu2AyfgiD p4HuuE6es9WxvbKtdYwea5FprkWhuwPWrkkyd1uxJwx6B28p/rwDH8Ij1n+T 4NF6P0Bq2RA27ZpEwZk2VJxLRb4fPIpefqURCbHJiA6PInjMqkui0FwWjRJn Kxyd19B/dRo/m/otvhz4iBFQJ37JCGgq5ARMG84jaJMF61/PQ/DcIKS8sRnG DFmanoxw0vTiq8/gjdefx4KlK7Fly7vYGbgVOwK3IT7yOKpK4tFkT1R17OU2 CrEHg7H/nT3YvC4QYfOdyNp1HeVJJM0xjUqS5qOjqaktxmBvBT5nDv2IztXt 27dVCb2vQW727M6r+u/ulG9UFcv6nHiK2FXCI9gVRhE7bfNbSUEiIjPTEJOd jticdBwrrsbBikn6nEkYPZdhNXTDmlKF556ejxceegGv/vgpvPkv92PRjx/E yqdfwqpnXsLKucuw7NUkbFpkwu6NHTh4ZBRBkcxhMyZxIvcCMlxdaJJr642x am9hD627PhqdddFoJ3Ld9SnqPq99rTYUmEpwfH8ESmLKYavvZtcZUVnfTsyu fQW3mwq1cqKW7qA/pWXOwizbWRfA0K4Of8rgro5Wj3za2ncvwGy6hSqmxPkO /s5ez9yEZqtHrpV+xkJjfJltIoFVtTA0DJG6jzT6Bm8r13uLfeIdIIH9Hyrq Sr3NOHi2BUFHriDnaDny80s16owadQWVBsTHJZG4CDhyokhdNKnjaK+IQWtl HEwcKXkcjeNTjHomv8CXFz/AtLUBV07GIPmdaLzzdg4Wv5OEd1YcwrMc3Yvf WY0169Zj46ZNWL9hA95++x0sXrwc6za+iyR2Y2JWOnYeiMTq5RFY8kIyDrxq QtzWSwgPcWPf/nMoafkFqsW7NJahwxOBDnc4Wh1h+GCi59GvmUr8T2B7RR2f xIc3RjDaIzUabVKjUStV1udSZcouS81QI8dhVjzCUlNwPiNVARctwMlaVFoi /WhoXiUiDQy17ZMoSvfi9Ydex+KHX8E7D/8EKx9+EssffApr7n8Gmx5+EVuf eAVRwaOIT5jE2WIGOSUXcI7gphLgFL5vcibfk7qVV5CCbsLWxcyig7C11kZh qL0Q1/s9uN7ngdVVgf17TiLjeA4czFRLHWYUmk0ocdXo+iZ+VNO2MgWaXLMW zL6FLFJFyJj51pGzeo0wVz0KxNxMaQtdDfRL6zb3wWK+DbPMwTjl1w5Jd+0N zC7ybQ3IY0fnErpcE8GrqkMxx4qta0pB56UJcLfxsALO03+Lf+NGAW3zwQs4 cYCcH0xCTlYxx4kVBQSugL61oLISCXEJyIiJQENhNJqKpTZ0LFrKYxVw7cY4 VBkq4W5oQ3brJ8iumUSl9xIMlZ0oTmB4sfcUtry7FRs3bsKS5asxd+5SvP7U S5j76HN448X5WPDaAiyetxgbN0Rg6SvJ2LzYin1buxF0chzHZbKgYBIJFU04 EXYOOcnBDF+i0O6JRBtha3WFY7ypFJOtVjymIzV7cbe2jEubpNbXzfqn/H71 q19pwL2oioKO9cwUBb0LuO4OiqrNggSmu/IVTuAiCFwUwYghIPGELSFPW0ia Qtu4fTvu+9GzeObB17Dw6QVY9/wCbH9xHtY98Sa2/GQ+drw6HzvfmIddqzYi KLEUmfybdAZ96RL85WrAJXHIJRK6+PQ0xKWkwsC0uoXKduWCCe8PenFjQAMu PpPnsice1jI7DG4rCi0mGiMikxXOfqobo3gXo6j86lZi5lPZQZZTqZmCLJdw 5ZGrfBohI2ONdJCNc1DsbsR3sGHrIKzWj2DxNpLhJvq1JhSLOZpQ5GhkKsqX 2xpRYG1EvoVmJoBVNGM9jA0jZG3oYzxK4sgeXWBV8wBJ9WrzijYPVm5sRtQR J/JOp1Cn7SigWy1gPFdoMKKwshxpaamwZUSRuRgyF4vmUjJXEYc2MldZlKR8 jCy1PRQeh90hp7F1zxEE7tyH1ORyVJc24cUn5+GVf3oKb/zT45j3r4/grfse wfIHHscqDv1Vz8zH/sBuHD09jpOpkzheMonwomqcp2zEZNB/pdHY8nv27mPo cwKt5K27JhljLeWqBuNUuxW//PQ2/Ao3e/ruLubuVXMlqampar5k6dKlqhrt y3632mXWCzL6C4G+rIpAVXosyLJbGNXYkEuTr9j8HIJHtcum2hG8OH3lvay6 T6ZtoIbf98OH8Ng/P4oX7n8c8594FateXYQNcxdh6+uvYONLz2LdTx7hR38Q 4WHHkKGDJxmHZB7Jopxs0gTCLeDFsvmT0nLgNDnwwZAX7w8JeF5YDHkI2ngK xswqWHxOAleloCu0UDIY6Zs7RlHVeYku1EvoqpFF9csmdErZZgFH0FCkjETR SsQ8TShV1oyN20YYFH8Mq68BZe7mAJS6mpl5lzqbCSLN0YxiO81GGK1NKLTK VCJhJID5hnq+ppuq94li0Dv4McroFgt5SoWKQC8is6qxbUcLUo8wA4/JIoE2 pXiFxirdLc1BbW70zAoKba7ibxFyLhTbdwRi6/Zt2B90GGeYrMVlJyOysBLn 6Dgi07x46ZE3sejxN7Dqidew/okXsPz+l7Dh0dex7bk3sfPlN3EyJAnJZdWI L6GyioZwvMey2WP95Ilji4vHtu2BOB0agb56+0wFxmudVvz0+sjvBe93Flu/ oi//GO2yYFyYU4XHnOhqt1OuLcgkb9kO2z36ioRcdmt8kSyaJ25EI1aWF+ub PGTB/H1/8wAe/mdZe/ME5j72JBY9vwTbFi/BFgava154AquefxTLn7ofaUXp SJOdSqKP+qJ5cdAJfN94opzCpLGgpAqlpQ6UFNlRmGfBUJsbN6hzkUfDURRV CIdcBrMZ2MfEzGpBkcVG3Owo9jQSMQ91jdrmrCFitQqxXL+maXqmEBO0ShRG ZOubKGOUVe5pUbYpcBx2xyew0anKzwEod7cEoMzVgj9CmbOFzLUo3sSKbM0a bxaaibwZKXgVDbB3XFOsFTpk1Xwhz+gBcuaj0nmxcXc9ju5rQPahDOTnFKOw SlabmlFsNKjWdtgrcbXbjdJMraL4tkCt2EDQmVOIyEjWlnfnar7Gv8R7Pb3p j3/4IB761xfw4mNzsfSFt7Dx1YVY98JCbJ67EJtefhEbXnwaq55+AImye0z+ XmRDAqUsUU72K31ZVFoKopJTkJpWjB07diM5sRDmMrNWZ7HbhskOs5+12VNy d7F297SIBtrz+OzTW1qxz24Ntq42GzKtRoJmZo9ZlbjJV75TW/VY5JYedbCD HMi3ViGxOI/kyZrdO0K3fu1GPPD3D+Lp+x7Dy48+gQUvLcWWZUux7rWfYMWz j2LZsw/iwO6NSCV1KUUaqbIlSf42IS8NOWWlqDQ7UVHlQLnRgbIKUkfyiott KMqnl995CinBKbCTrlInvSnPQxFn5fNWO3JlrqG8jOfv5fkzvCR1uf6EgLQV +AWNkJXQSj0CEpn6Fsq9Lajwts7YuzsmYHcKdfUcf633oMLTigeJXivKXa2k r1VxV+pooc7RhDsyV0SNK6yis62oh43MFdKnF/FMCp3V5K1aY87qxdK1jTh/ yIPM3VHklONFvGtFhcZVSBCCgw/jQFAQ+z9N/U5iGnEtUfqqa2FOWj5O520t 3cuP/+4hPPCjx9j6T+BFatqilxZjy4K38PazHO/PPY7Vzz2KFU/er7FGC0Ac 3+1/6Ju4yFo6OcstQgFbu6CQNGQZsHvXPmRnVCIv04i+OosUtPPzNnsa7vfy 9gczxWWloF1XixWZFiMjNxP7Sgmb4i3PafOXR/CjVkYr9xAJrxMGWpahFDnG UsTkaR/+1Rfm4pF/fhDP3f8wXnv6VaygL1341MNYwIG1ZtnrSCqWD5pI2P4S CYVpdD6lKGMgVmV3wmjje1r53mYHKkwacqWVxI0BW0JsEY6uTEBxdiUMPkHN qAmczapwy6MjSshNJcL5PHW5uFCNPKaikn8WuLRgTfOdStRa2CplxKpcx2sO oWqjFzDwuHnnJByun8LurZvD/9XGJ+XX8oJKTxvPvoLHfyN6bTPYlRC7EiJX TKkrNhM7IpeRb2Z852TiUauwE6lTyNl8iMrwYdO2ViTQnYYfOIadu3fTTWpF pk4kJSO5opxn7FQLdUpo8pVQmIcIIhdJVKLY2tLiCrkCzdX821/dh/v+6VE8 Qdyee3AeFr22BO+8+iqWPsv8jbiteOZh7N+xMUBp4x+r+QaJyKOzU+lxilFU wZiyjKSV2hRx+UU2nI9Iwu7dQlwF8jMNaGCj//Jnt2amRWbPxH0FudkzcbOR G6ND7mqm/zRXIotykW0zs7+sM7Fbvh+5e6gIGnLltAqvI0Dx9j9RxWMVIykz Hy20cgrk7j0H8NCPH8KTDz6GF554jMHsQzh6dD/DlDKG92WweZwBsBLbv4WF zWlm05qcfBsHoSN4BoJXYeFbEbwyQpeYVIzDy6OReKYMp5NLkF5ermkbT7aI wOVVGeklUmlpyjOrK1kyTSuwUdsk+5RgjR5UOdBS5TqFtjZ+knai1M5P42tn vGvk0ejrwNZd1+B0fworpXIOjNUd+Bv1e3mV3/hnZK9dkSfCV+psVYJXwsCu RJHXiKwiC9Lyy3TqaHZKrsWNiORMnDwfjS3b9mLz5l04szsUedl5/Buzau6Q 7HzE8mPKsrBiNlSpx6kHcmX87vtIryxFRM4d+qLzNfoOnzyOH/+f+/HwvzyC px+ci0VvLsOKV1/BW089ikVPPoC3nrxPBUMy2xCTIxUCcinGVSgx0n0Z7Ciq tEkAUG6T5T4z+FkRejZaoVeQW4X8rErUeDr+C9T97vzI91T52I5GEzJN5ciy GJBtNSFbojf7XdQx9NEca6nCjjCQrUqlci4YaVU0k88VwDDeRZW28mjTbfnp SeS0TcFW7YS9mr+jqUf1vJNOi/hZ+J7/BDPbt4r4GYmfgehV2gi3hdhR747u SkDhKZ5dvg0hSQUIjisietQ5JtRF/MAJuSlIoltOktyDQ1c0Lp/9LNgVErsi apzkBqXErkxHrkIpF/nxCktineSKVt2JKtq+nd2wGiZgJvpVNZ0w0eao7/5K vUZINOgcavxR9cieCvQkyLPz/5G9nBILUjLzkMKALSIlCzv37KWi7UTwqbMM 1gvoI2zYdrgRYYd9yD8Ui3NFlRp3uYWIq9Qcbcld3JXLmK3gj9+h7DqRaWAc oZsAeODkCfzbPzKq/pdH8ZOHGN889gheffwhbFixGJFxUcgqL6UXN0njkmF+ ujkoZRuXVJE5o+SPJI/gVdgY3haUMRkrteLk6TCcC4tBQZ4BlYZGtHZMwX/V YfasnE7d/9Gf+vTTT9X+4jtTwH+mtK7SXoEscwWJM1LnTMhhP+bYNeLyaAUM 5YrcDqXy8rnLGLhXkLJKr5v95SZxbhLngZlm8cmyIWu1N4B0iUQsPzmJtNZr sNXJmg57jUeecJMwAdPCdzELr3xXE2kzCG0Ojbbws5lIOVgCB0OipEIDghML cDSxGGcp8kJaalE2KUtVpCXnZiApJwN59Fv5VBMRtyJnA4pJmqLMrVPmaVOk CWVGP2WKsC6y1EWqurBv1wVYK0ZgNslNaky13QE8dAUo1v4Mxpo7rFXonJXr nBVZ6pFd5sTxM+EIJFPbtm3H2ZhEpJZwbNipcTYGdFYfzYvodDfWb2tG0LHK mQLfx/KKyFil0rWAGbj4hAQxQlilesIgwBnVgR3ybSQx3np28XlsC47CgUOH EM+432h3qWErHqPSJn9VwYDlGwxh2IWErMRMWRPEqhgBGwlYkUGUTVSusNyK 7IJy7Ny5G1FRiTCYm2H3jWPs0q2Hfj9js+fiXtXXq3raW5FZxSFBX5rD8C3H qjGWaxe+7OwxJohOh9J0iSLKPG4VvXhUROOheelJpUyTmcc/gIVgWWu8hMkH W60P9lovlh2bRGrbDdga6vizD45a3xz1xN/BVuMhkGJuvgFRFVyJcJXbpYBL yy3F2cB0WAtq6HV9DA/LcTS5EEeTSggdPWtqKT0ogx3ClqIKGvhhoye118lk rQKtxC9pbg20So8mRX7XKTJmqiZJQtk9MNd248Cei7BVjqDKWTsH5rpu/DVM dV3C24wJdn7oKvlOZc5mxKTz7E6ew649+wnaLoRGxCExPRspWflIzsgjbDwr mwBXMwNcoc2D/dF2rApy0hlStKPTcCy/GGElxTOOtEygUnpWKQeDxyWgiRcx skuq3DSXG0dPWbE8bAoZzVM8cQ+Nv3e4YaQZxOxu9p7Nje+i3OpSyJWIEbti KluRSdCz6egxZTbQKujnCsrI3C6kZpbBUTcOR/Uobn/8OfzQzZ4T+be7oZu9 cElzp3+K2z//DKW1tcgieNkz4DGIY1yUa7cTPAcKKDWFJKCIn6rE7eHn97Dn vOw1Hwe4j73mo7BJ5m+ulpU+1ppqAldDrmq0x7oaLD06iZS292FvauRp1/Bs HHXV+CGPAqdXmcBqqdYEUuirkmVqpO/IplgYU90qWSzliIznsDuawgQipZT0 lWN/RBazq7vJS9TJK3CIM21QU7cyhzZb4gwkz6hLnEZdp4IuQEF3ryLt0P4+ 2IwjsNT10Lr5nKVe+DPzKM+L+VmUHDYhqwi79pI3ykJkcjbPqYKCV6d4zKVk pGYXsOvyFH9ZpaY7/InoMZWQBX8hBSYOVAe2nLCS3xSEpGVT9HJmHGqZ35Xe SwDpX6SZdDN6xK9U8fhNguilt/Ai5FQd1iZdR0HrFUJIjXCJRsh31GkeDQ4P KmkVdg/KiX8ZmSxljFlicSkiixnPFLPZhUg/jUUGxjAV1KeCUgSHnGaXDeg0 Dv/3SPw+Wi5NksQ6SmA5STSQxCqGupQ/poP+leQFDhd7000d8VBDvHQpPjaE jyRWsxdrKH81JLGGHFKjampgFQLr5EK5vU4ulDvqa7HkyBUktX0AR0srHA3y nPz2H3gkqfUarbbaav6tj0T6+F5sRgpqFSX22JFkFEVY4PY2o9LFQWtlmJec haOpGo2HYvKwLzyVqsHUlQ7XT2NGuQF57Gmhschxh8Zy0ijUiAYaqIFVOoni aM01GlXCYoBi714cOdQPu4k01vfAKtbQo4jsIZFV1e1Mm50Ii03F7r0HsIME RqfmMqltgoHPVfo0p67NsTQjr8KKNKYJaVl+InPvptHuw1mG7yGFZoQUmfDW ASf2nq7A8YhEHM/PVTSW+cMckUDh8N4ZCjVjs3kUbW4Ja0w8hoR1IDD/Bsoa L1LiXT4+Jwej0yc481jB7KvC7kUZrdQmOJcQyD9iSuRiQn4Hx2KTiCNRNDKL q6xCfFo+9h8KIYr9cNaNou3CVf1OAHdP3n0FxdmTKdqViT/H6Ps3YesdgrGt C1nGcuSYDMg1m4gjRVEmwhgq5NvdaoF4ETO8EpeP3VnNpq1mU9SwK2spLLXs klqKSh27so441TGkq6tjdGGvp/NtqOdjPRYdnEBi24ewt3UQxIa6AMXkj/hc reLSJjTSLCTSTF01V/sQGcvA/Fg5XLYW9ixHAUdFGU/paEq2RiJz3L1hSbQU 7AtLw5lEP4mZyCSJ+dLL9noUOxrVZa0yRWKrmg5RnpiaWOW7o4dCoOicMCjq J7wFH+GANw0HKATvo/ttZx5Tit37CN6u3Thy7BTSS6r4di38U7rnWrpmmqGG 7pkwKhAlhXYLiDaCWEAQ85FKSxFpLPFLYzUhtONooYUQmnGsuAp70kxYGWLH 4TO5OBYbRxBdCsJyklfhketHjIVInYHCYKRVeSgO7Bl5NCmjSLhr8PrKRhwy vI/Kxr456hc/IKY1fCnNxU6kVTjZoWSynEyWipHJEspkCTu/2EZ5tM1mkjya RBpN/FctiEsv1Xnsg7N+GB998tkD/x0c/wK2CwOw9w7D0TeKTGMFcqqMxNFM HKmM/M95VpdaFC5XeIp5liU86zKefbm7lg1Sq+HoqyOO9ezPerJUTxxpdcJg A1lsEBXk8RtYuP8yElpuwd7RA0djA5w0PsrT9Ziv0LWJUU4tYhTY7NIqnN2b A0d5M1/+/3H2HuBxnWXe9/+S7IQaAmyAXXYXlm3wsiy77y4QlgCbFwikQRpJ SEhIT5zmuMVyb2qjasu23NXL9JE0vUkalVHvvUvuPcUxXHzft5vvfz/nzGjk OMC+vq77zHg0Gp15nt/9v+/7Oefch8LIFMFMkTYRy80HirGFSG5kVbImq5A4 CpIHsdZwmAJ5hBXJURwx2VDuYph2NyUgGY0jaQsmJIYKx24dx94lQrh50wAs 1e3IKjikc7gKe46Uo6I2yN9vU++pa9IQro10q7CtuCSTIpAWJZBt6ihIqTXG pM6lCOTRErX+cpift6nCSR7rFI9bq+zYVmXDo9tq8eIOBzbv2oMqs1mlSeZY qqRUUIj8GJnUWBTYxAQ9jckG3P3cCHZ6z6FGMcm5I5Pc2v2a2WhWH2eVZvbW w8iZNnplxmkiRJ4Ym/4ELp1MJGv5OW3wtc0iZ28J9h4xcarG4W0aud5pn9cw KQduY4t/P1Hbr2Di9Fm4+0d0LidxlAVZkd1BNhmxqc4lTBxKmUSUueSoY5gR r5572cD8i3vub+SARDixTczXmygeTdS2Jk5oM5mkRZpZoDSTS1oz80XaA2um sDt6kVz2w8Mc0ttCLluES4FT1PRrBJNME846ZhEprxbCUdQIb6tE1jD/HqMK MwYTwSyotikoUwqKsJZQrjUcoB1UWpm2T4Oy2Ma817kIpdHToorXRChj0bqW dYdAKfropEkkFjHcnpaFFSvW47XXVisQHWFZfHY193LrbNag1SK4ZJN/qwHZ qANJSwRShFJyx0WhJJDHSnDMZEe6iVkIYdxSxUhN4dzKQnobv+O2agt+sc6B 7ak1KN1WQCAZKyRbUhYmjhRGgmcnYQ6/WCMhbFSPjM2coWT8YuU8chvO87vJ vsuVen9OkiL8Hc1s/ggdvlEj0qfNr5HaI+FQqNTo1MisIpnVLqFSoncdfJ0L 8LXPkcoZrFqTgiMUeW/LKKYWzukXXS5dHbwGy8TVwZ/okdvVO6iw9AyME8sp mBujKLJRKu2yzEupZHpdVhfg1IZUbKn0CJZMz30R4tHEYWliSdNMLJuJZQun tYVfvYVhLtLCwt/V1ELgWkhlq7L7VsvtmS7D3c2co4Vv82ibZhZ1Qq4oq4vm pMpu23YMlfl+hCJ9lKAmla9K3iryYKZkFhiFyiqsyd6PtTmFWJd1kLOw1nCI X2tz3mFVS5fV1WtUukilu1kt2YlUWnQq7SKVrIBrFJWkiWF2f1F1PCzvzMxT Vce2rQPwuRm9Xc193LT08W84m/sUmzEya5sSZLJxMXxbdKmUQ3pLqGQuebCI mUkR9aXSwpDN6qWqNkkheTO2MkoImFuNFqw+ZMazG1nsZLCiyD0Qz5usVEKb kjkNQjvhctBq/BHhUc4BO1Dsw8PbzqKw9YKcB7ZMXZAnIskBlbkLaHNoIZpm momfYiTeRsHSr2PpiwmmiCUDOIuLKoZSX9dx+DrmieQsB28Qq9auZ8nm5cQO /wEav3KdVcOYSF589wqJZMreP0oiJ0jkNGrah3DMWqdWUCVdL6uhSDKilNeF Vepd6W7knnHPffwW/mYKQDOJbOG0tjD6tTLytZJIWlMrp6mVUxYlarSWKMGL 4herRpDb+hbcPaMUP77WGhUiW1nru1uEXM1EX/MKjSjcWYOAvw9OvtXB3MAe YoQhmRaSKXpRYLRj435WNSRybc4BrMs+SDIPkcw1DOFfQEGZhbvPiqEugUrv Uiot/H+x2c3KpFCrTEji7kOlpDXKr9DDfRHrxa5d46SSI9zSw33lay29y/j9 evDXhLJHxW6BskZBSSAbdSDrY0C2cZdbcUAKGgGymEAWl9JKkHa4KEEiaXQC IXIbv97Waivjtwkr0jzYtK0D5ZlmmC213P2GJEExSXH4MZLYpDgTqwk0k7xm bEmrx6/zLqGkU05L5GuhZpLK6bqBP26h/zUrs9GsyhiszCT2MzDJYkZgkc5q 0qmRKWLJ8M1y18K/6+s6AX/XAvwdFMr2GSpSvyLT4m3G1PGz/3KdtcZryEws tmM6OXH6DNx9Q/D0M3wPTME7MAvv4DyOmZ0otlInbXLGeoB0hkimLI+xcGXJ YPRqZJoDLURECstWYhNloSp5flRq0TZ8lLPZxomjtbRxJtsIbwN+vrIP2S1v E0w6QqscoyWaFHMB100+xUqsXqS9WQmvvRsBZqCOhiaNShZQVn6GhWSagowq TKtSCo5pOplDIrMP0Q4zmh9imnkI2UVyHiB3u5a77VzUymo+332oHJt3ZqoV mpQtO3Cowk7hEaeSlR9nROpsRWSzZqlp4/B7R2RVnkzeouiU15261TUxHRWL MD2NiE4yejfoWIY1nRQsS6zORSxLiGVJCdYWFqmyJklBeROxZImjo7lVIniV GceYx72+oxM5aVFUpx5jpGXEpdk4DXa/WDMrCs7HcoVcTbAVW9K78NzRy6ju OiVVd6iVbwi1qsOTLfRuTh3NzDBnDknmbyKQN3NLGIMxIGMyGVBX6tcwZvm7 TxJEwtgpMM5SKqc55b1Yl7KJj53/VyB+G67uPoLIWrKf2ejANG2OIC7AzOhV TPEtsfopk8ElIFa55Qy3JrWyISBa+ZVt4agOYhv3pp2z0U5toTW3c7ZoLe2c P+ZtLMdfMERgaH6X0jwNd2s7OWxXRLppHp1YkdXsdDMcJVEEO4f4eRxa5qZC pI1EWkmkJUwaQ9TJYBDr98RoJIk5hxm4s+Ww/GoG8dQjGowlthCOVruRW1iC 11etUUvSOfuOoYhf08QU0yGBm3pWS3jqqG0CYxejM9kikc3dSM8YI4kMJ82a PgqR3XwXf/Q1YsiQLxbhp9DsjUx8Gyi+9bQwk8iQhqEsdB8spkKWaBimHynG ugNFSCmq0tTRWKdjGENRw9DITKmguAEvrOvHoUwme7tLiCGljUYEKZQtikIH /4Yw6Ahqj1tyh7HS+BYsbZOKRWqEg7uyjCxG1axZ+WgJt1IXGeE+CxMzL5Oc 9UgzhiI6kvU6kpo2Otum4O85RSRFG4/T5ojlDG0ShyptWEskT509jxiTiSuR 30hkclmcSel4ferUqR+rl/8Crp4BeHoZtfsnieQMbZ52HDXRcXXsqsRMLK0h amQY5XJlDcNfFcNfNedRLadwFGTtw8aRd9TTOBO1nJHaSAdnqoNzRmvpkNyr AzdS2yJ4IaMJGU2SMMyQxA64ox3qMUkx+hVF8LZd5SgvaEA9s2T5eU2Eg0wy HSTT1sjUh5WPpZ5ZeJh1YYhl6u59WtQWjcyhPuYcYSQ/gjfzSrFqZwE2bEnF 62/Iod2VMOw5or6KWUVuzgvrRTvDqlxSUUMt07DsjFMpB5YNBXXIzCSVvgGN Rvwjt13c1y5+RTH+Dq22SfaVFRPNpoNp5bBYOP9mKpOckGhifDxK0JQ2lpao Ve91B45iQ3E11bEOm421cTC3xJLJShOHnHrlacSWnGakMK8tN7hhZIJpk3VP 6rpdjBWUQ53c6AhGFYZtuPvpXmxyvgN72zQLG87TX6qv6pAZC0vIalOzZ6Oo WGhmZdxNVgWmcIvi1BgWTkU2uQsspqr9IRa6Afj7zsLfe3qR0e552ixtivF8 DHuOlmHLtu1/Ap6yHCT/5FRWi8XyIx3PiVOnGUcHiSjDdz/Ddz/D98AC7QTt lDo/s9gUQKmFiNpYM9QIohFUSobm0deeBVGOg5wSZadIOBo4RzqitU2dMnec a04kxae1S506vMLQhrTG9zgmrQrLTgmH3MozF1EtdYSwd5cbweAIvB2y2tKG mqaowtROTDVEmZk3ENF6IhoOIe0Ai28mlWuJ5xqq5eub0/nZL778KsPhq29u Q+a+UmYkfnXUWDzMSA8zM6GMISq771CI0sP4FeoaOwRRcS1+iWRkFbhgyCKi /n6FaCc+QTy5v/RAMfHEuuYODdEmQZRBggHExkBilbkPy0mMjJd/oSRJrj4/ QEIPkNC1B45h3cGjSCGhm6tIaLUzLp8qwSShBTYX4xXxkOTJ04TXtvUiK60X 5sxqmI1eSmiUhNLE25jAOoJtIpBSbN/z8hzSQ++ilprDpDLckaxWFm4kmh1q xmz1uhdxVwVRU70QbuLkfEbHlGJEZTEqRJleUkJrWobg7z9HPM/QiGcPo3oP I3oPJbRnmohOwNc9gpzCQ7IkdL1OwN9YGtXlMLasWMqp/T+OrQ6dYnrZw/Sy l1G9j1G9f07Jp/DpGzjNrzSFouogSs1hppr1lNFGRvcmdUFFnE85NiKnu4Tl m3YoPh0quGmBrk7pSzfqqDqu1m51vGJFZjt2NVxFbRtr2WhXsiL36yghlztT zPA4BhDoGeavkpVmYZMD3qSzyZLc0ihsNsLUwDrM70Panhy8sm6TovHFFS/j 1Q07sS63lAWRg2ZDXplcuNGgDvApNplmmrxMryg9VrqXjWIjWqKx2S5swilG F3OSNRcta68H2Tmj5LOXgb2DA+pmSPiCCgxLGGUyU0urYYLtoNkaacy6rZxu C82cqElMUPYzvcyjeqylhK4lpG9SczZXxyFNUpR+nCHfjqM1smLIslMY5Vcw u1vw3OphHDRw5PeJkvJPsZaTo9ztrGzsau1Ls/vXncfuliuSsCSrDGaZWoBw MI+RZSx7Ax3R2iBfyCLJCEk10cwNUcWporReKG1SlFZTSKtIaWDggkapCGkf hbSXlPYy0PdSSBkf/T2TtFEOSBs2b96C3t7eWOuExHXMa0iNXYCiXfck279F 29gkSR1RTVi8fQz0fQz0/SS1/6Qi1TdwFhU1bSg2klRrg0ZqLUl1aqRW03/V MWU58zTUrhaSpQKQFROHIrVbXepbp0hlxUA7YnXjNUM3doR/i9quEdbeGsFJ 6tk/Iz3TBmtJF0Ldk7AzF61l5K8RXJmTKlybiGuTTHUY+ZziTampWLthA1at W421rGxWZxyglB7F6uwj2LjPoeFaGMOVaDPKVzmZQ7uJCstIi1/D1S5pGyNy Da2WulLHmXJSCp16Lu2iGQq8yMkjroFuhabAKti6VDJDv/q0Srmd3F1N/dsU sfZGSlwjPaKhVRFr5sSbZeIZDYzKGlDksDNXPqaIZf586NgyBexnVW20udLK CEZXY/4vVZyRSmFyt2JfeQfWbhlDeU49rMU1rOT04/qBzvix/cLSJjya+g4O d74nUhaOnRIn8ySWpOq1G+lSrNronua4sXprFGKVrja0KF3l36amVpPWmuiI Tup5nVZqat8pvdcTNbWPIb+PqSpV0MdoPUABlVg/Ojp6vdulXUNr4vKmRusv 4GJN7KY6e8i/t1ente84fP2naGdo9JeB8yiqYrlhblAXo5XVNKnrgyrkeiE5 uVlOw5JVmZBoayeno1MtpQixoq01S4jtxmGhNaML24K/Q13vFBntUZw6Ka2b 06pQvKcJwdYpuNp7SSqDqDKKFGm1cGr3sNBYuYblzsqVyD50CEfsdpT7vDhY dQRphQexOvMwVhuOIGW3BRv31ui0yqqTBeX2sE6rpk4mRlALCw4rCw0bi107 c8eacCtpZf3OWaojZk7OmJPIyRqEYa8PefkjpFVmWfC8kbTqaxO6OZsEVRLf JLMsqcqnNFRpVs65pUEwbaJmEdNGMUbTRkb0xjB2HmI+XXiEAnsMaw4dU1lA kpLYz2GTZARVNci3uHVymcCQXDm11+ii9rmjeG1LHzLSh2HOrYPVKocsO/m9 SGZQO61zS0Y7ntx3FWW9V9Q5AXY5L8rO0phJQEM3d7FLmVWZwNupwE1S6H5e g5dDYqLXCb7Gei0+VLGmCgxdQmDwInHRpDZAfAL9p2knaISXIdvfz4Sgj/D2 DmHq9GlV2x8+fFglq//04QT/zXVOcvtJjOCOfni6WVj1MGvtYdbay6y1l1kB /cZH//H1nVP+VBedR5GxgfV/RF1WWcaMtpwEV8oJ0nKavpxQGJIVFo1gW4O2 IGgnwQ4SLBTXsE6upd4eEoLTOrEl8DvUMlMWeutoRQzdebu88AfH1YGDWqax 1kgUe0srkLF3P6ldq6jNOXIEVazzzUwRTJFGJVZGpq8Hqo6isOowVqWJ3pZg YwHp3UcrrFEEbyq0oIwEV7D4ryIB1S4hmCmGl2mwv0mtCtplyUYnuLZBKG4l wTRy6KIZCnzI3y0Ey6UKrqboMrU0kazWfmUNuDbSqmPLyNsoOXazQtbc0ETN aowkKVi/gOoI65NICPk1DqwmsmskeT1Sjk2VTqJKq3YqZDdWONRqRbxkUMg2 K2SNRNbsacPTa4ZRmNMHi6GCrshBC3QlKW5vwJbMYbxQ+luYe84JrQpWW323 SGw3Psq96yap3YpYC6fKzITOzGzIRDMzzJgjkmYIs7coaqtJbDWJdfeciBMr khsY0DpUSGsU6WAWYHLpHyCxrNX9/Uxh+0bQoeerkg3IipRQ+/XrrFJdQ+0H V6m+oFHLwi1ObY9OLTNoX2+MWjrSwEVU1Hah2BxBib0ZpbUtKHO2ooKDVulr p/a2MxPnV5XTYuVUiAblvPTpSDe+RXB7KJs9ClyB9tWdHdjoJbSDCwS5G8cY vLekWFBrH+IuDWFvWSXeUJC+ge1ZOThotBLMRlhbKL3NjLJMFEySKEQYsEhB VUOYwGrQphYew4ZcGzbuqdFlV0yT3TJbiNCK9LJocErx0kho9WVHOfAXbGLy 14xa5pu1+lEyp35cQsDNLPBj954R+NSFOa6mVtHeVg60Bm2LMllRcyijF8j6 RYOegNNMMY2NcAeawnF4t5otWHu4BKsJ7/pjRgXvxgoXNlaK1SLX5GHM0+qJ ipoI54JiR+WodkYVvCbOw/6yLryxbRKlu5k876vWACa7wu9zb/ZijfW3sLA+ sYUVuSo7IL9C7RcpDzFudWONqbErDLdzx0Vx6Sk6u+bmXgSH3yK7l8nuJY3d wfNaa59Bsjt4inacxsR2kOwOMLHtZ/Xc2xtvoVxfXx/n93/93/D7VcIyAE8n +e0Wfuc0fulSvp7Ti/xKIBD34q5WOntYdJNfRwtK61pR5mpDhbeduTkZ5ngZ mVmZmEdZmEUJw+LWtkgPMe6JQ3yQce+V7VGkeAjw0CkUmlgZ76zArm0HmKmm 4LU33kDe0RKUOuUU7dYOfBm2VqYkrUykya+ZwBibGbPIbzX5rSIOlRyJfZVH sbfyMJNwDzZkM2XII7N7HFqiu4887zejjKFUSx2IjbOe2lVP3ZLTJhrVAWu7 znANC/oadfJBM4W3OUmdgXAD8fWhYO8wvIEWdcTX2aQek9WTb6COwNYqoxeI NVLKCa2VpgBmiDBFNHiNAq+yIC1AgM3YarFj7ZEyrDtqxMZyFzZUiNUhpbwG xfS8EgJcam8kxBF1ka1c+FhFEal2CcRyjVA7du7tw87MCZj2+GG1y+G6LgXx Pc+NYisVw9a+wLDYw8mhqdNWhd+/JLvdS/g1NYlxMps0DTaSYSM12EgFribH lpY+BEfeXmRYabC0z9A7BanGfWR4SPSZWcMQU95BMjwwSqj6knUmJUGQwkz+ F0M4sVPFP/0xhO9ieqkj3EWEu4lwtyDMIq339FIJ1hGWPa5093JEiXBtlJhF UeZuVxhX+jtYahJjpliCsZkYWxq61UiVhbpxwMOIYQzh0Y15uOtFM17Kr8e6 9AI898IKvPDiy8g5aIKVRY+dSYSdabCdiYONBFuVMYqRYRMZNpLhajJcTYar yHAlGa4gw4WWChTba1Be58EhoxMbcshtvh0b9pDlvTalwaUWMqx0OEQJC5Ph MOWLHHsbWJDTAo1kuJE6HGECEaEWR1BXz3Bf1yDHyTMJxt59g2RYzolpXqZO Qfi6OvFAuK0lpzXcIwcf7Xy0klkrmbWQWXOTzm2zWIhGdpsDND+2mE3k16Yx fNiIlFLufRnZLatFFkW4yBKicLD4sDaq4qOc/FbIFZR1cjWlXNum8Wv0dmBN 5hgK8odhY+JvCXAWgt2499VTMDT+Do7opFzbIFeVWDgpydyxHgLbrYwJArO7 L3Anu2idmunwVhPeKsJbSQF2950mvO9o8CqACe/QRdX7JTBMeIcJ7zDhHSa8 wws0wjvEem2Q8Pb3L0tYnu2lHsv/rtex9hp4E8/g0+C9H662QXg6CG8n4e3S 4e0+SYAF3rPXwHtJ7bG4XaW3j6C0ooQAl7jaUebpQIWvgwB3MonvwjFvJ/Y6 O7DV1IZt5nZst7Rj5SE3fvnKZjz7wssE9lU8l1aDLSUBPPJ6Hp7YcADPZZZi h7kN2/k7hXSG0gaBlvkI4TURXhPhNRLeasJbRXir6LcVRKRCsl7Wdo7mAZTV SusLDwF2Y9c+gptL200rsGHDXsJrDuoiHEIlAa52agCbCbDVq53koc46IsA1 UknrANc2aGcnZpDefYWkl++TsxTraEnyTA4wcyP4fpXw0gUIro3gWgmuwGsh vCbCaxRwW+g6LUEa4W3x81EDeAsB3kKAdzDFXV9CeEtqsaPMiWPGII6Zwyhi 5VxMgEtsUns0E2LpeECmnHIlehshJmcEeF9ZJ17dNo2sdC9WcMTvfuJ13J1y Gtv9l7C9oIpVGNX3BiY0PcwJaBGxbgWvsYkpRXVTl2xkFb2a+FYT3yrmD5Us ZN2sxoKj7+j4vq3hO0x8hwnIsI7vCPEdIb4jxHdEx3eY+A6NwTfQj2UJuYK+ 7BDnV7qfxdZzr+E38VLfeNUWHYS7nfx2kN9O8ttFfrvIb/cf5jfEr1DhG0BR TRTFzjaUcORKyXCeo50FRxSbjbTqZqQcrcMbafuxYuVaPE+BffjFFPzkic24 45E9eO7YSWTyfY+/ZMBjr+fgwZUGvJxnwg4LGSbH2/izrcZW7GNuVxTm7LRw GMlvFfmtYMCuoNyVS91OxoNjF+DqmVH8luv8HjTWIiXLipQ8srubjwUmlBoD ugAHyS8JqgvBSIZN7jAsnjAFmCbnCQfqyTA5DsmJ3g1kuEGd7J2+24/9il9p ciXnI95MhhvJrWax5zUk186gYCe5NpqVea6F9JqbNYKNLUJxAFWtgSRu/PgK Klt92ByD2OyAIdiHVEK5rqgGBeUeHK0ixMYwQW7AMUsjilhAl9i0VK6sthXl hLiC76/kVOy2tmGPrQ2/MYRw+4r9uPPVvfjpC0W4K/U41tWcwD0v5+CeFdl4 o5COU9mOTGsnCpy0uk4BlwhXkeXPC8h8RkkixZWkuIIUu/vPkuArtHcTKGYG MSJGTEZI8YhO8Sgz4ZGTGsUjpHiEFA+T4sEBLL+GYlHdr17nqMQ1FMu/2Fqv RvHNcLUOwN2mU9zBKq5zkWJvz/VTCJX8iCOOvat96PeRUtnCXC2CVXnleInA vvTqSryyfjveLLRiS3UEtz29E99/cB1+9NA6/Oyhjbj/qXQ8tSKNthOPP5OC h5/egCc2FVKsBeAohbuVELdia3ULNlc1I4MZy5GQwMvZYuZQxvzS3j3GXbhI Y941do4ZTQxgF60Oh0w1SGE2nJJvRfbhOpRUEWATAaYIV1CEqyjCRkJscoVg JsRWQmxVEIfV+cj24OLFMzXhegLsw/4DLHp9AQJdry6Jkgtoahv4c1ptIx8b w5RguezLTmw/AmtTDF7+HQUu84ZWOo8yHeB/QGVUADYSXhu22z0EuBeZ/h5U hIZQyprjcHkARypDOGJswFETAbY0oYgAF9uZyFFHco0t2FDShI2lLUyfW7GJ 9gNqw/ee3YPbn9qDO5404WHDCeR55nHPM5n4+fPUjZRD2FrVzuGlEeRNlW3Y XNGGdEsHdtcRWlHiSqXEFVLNRYfgHjiL0NiVpQwThsDIWxrDo4RklAyPkuFR neFRKvEoGR5NYHhoQL8Nz2LVJgzH7tGQeLziOgwvPcH1fkSHZuCOkuH2KXJM hjvIcOcJcnwqzrBPX4lQCbsEjkWGUdp6ktG/EyvTCtXnv/jKSqzMlsNDUkE3 UlbasJWysKa4Abc+8CZue2AjfvLQVtzzyA488Gwmnn41A8+9tANPP7cJTzy7 Hg8/u4EgE2KLBvJWUyu2GDWQN1U0cXYiSDVRfdt64Ro8geA4o8M4QR4nyONn WU1K67RFkMvrHNhZYMb6HDOyD9aipCKAkuoAyswazJUOglWrwWymIiuYvRrM 9jjMBFMsFEZavg+FB/vg8XpY6mnX0CSpZ58gyOE4xGK2iFiIIPOzmfSaCLBR IG5REAvAcpsHwbhSmQ+7vbXYbLJhBytNgXhvuJ9ToU1HibUVhypCOFxZj8PG Rhw1R7DX2ITtpU1YXxRh2tHE/LmZ+TOBJsSP76rErb/aju/el4If/Hw7fkp7 6OVjeGn9YTzwyDo88PgG3Pf0Lqwq9GogVxFiHeQkDnYbI/6msijya9sVxabo cBIRfg+fWQoySRAiAqMkY/SSBjLjoshKYOwsjSnFGEEeI8hjBHmUII+Mwjs0 cKMOZuKKWuy2OInrwDrHsZvpfPBeIw9iYuEc3K2j8LRNkmVy3L6UY2/vIsd+ ydsZOjz951HAsmxd2l68vCoFK15fg40HtC5SW23dSCF3T2W58Fy2G7/e5MQv X3fh12spyPfvwP/5ZRru+nUG7qciPPSiAb95LRMvrMzAyyvTsOK1Hfj1M+uw Y7sVO3a7sfFQGFvI8WZ+3ibhuJJqUxbBTlMvsh1TcPSc1TieuEAjxxNnWf71 UZQ9ZNmFMp3jMic/b68RWfscKCrzo6SSoswcs5yZRQVLu0oKs1GxzMyC2bFF zy6UMF/Dc1qeDwcO9cPtccERJrc0BykWhpPgaBABtpNh+xKGKcRKjBXDSUqJ k8ltQOdXrh+vIMUfJcc12GS0IMPXhb0hMtw5TztO43R0nYEjMqsL0uex9kg9 1h5rwJvFEbwZZ5hW3oJHNxXjW3evxa13v4n//DkTuPvScN8T6XjiqR14/Neb 8NivU/DLx9fhxV1yNFpjeJPO8SaN4/Io9XJjaRQ7q4dQ3nxBIRykhUavJCmC P6UxPKozPEY6xoRhLTQGxinG42R4nAyPL8AvDI9NkuNRdMzNcJyWLqvJ//7+ j0OcuCahQfxpTMyfg6tljCAT4ugMYeaodegQd+sQ952Hm88PWeqx6s3NeIUZ w6rUfdhWGkKmZ1TvanAbXt0Xwb0vm/DQa3V4nNA+vaUfzxsm8NK+ObxxeAF3 vXIAP3xsK9PirQR5PX7xdAoeejYFj760DU++tgvPrUrDjoI6FNsmsbukF3l7 gti1hQDmO7H1UAS7bP3Idc4gp24a2TVTBHkS5S0cIkIc0CEOTJxGSY2LIBPi 2lqCbKexnHNWw1rpYWnrQ3EZBbkyqGUXBLmSIFeJKDPDMCWIsgLZm5Bl0Hbl +nHwcD9c7jomDST4k7CTYXuDZjbhtzGk8UuzxBnWdFhqucpWuZCqMsp0oiLq xw/Ir18xnO9hmWupw16mE96OGZrMBQnuYILXyQSv6ywsLafUaK+mg6/RKV5b 3EiKI1hPVX5yZx0eftOK2x8pwLfv2ITv37UDd9yfhrsfycSDTxvw1IuZLE/S 8cILO/Hsc1vxwst52J7nwcbCBi2lqIxiY0VUpSXbqnqQU7PAsabZF3DAewqO rstLZDgoCI8JwgzUFJQAA2NABcbrYDyuYewjolPnz330Oitrf3dNmvFHKP6p vnU1jWoEtwrBLO7aj8MZnUOll9/gYLW67dzrq9ZhX4UHBd4RZHkn8EJ+CC/v rsc9L1bjwVdq1Kj+ZnMvnsscx4v7ZvBS0RxerJrHZtcc1tVOYoOlGS/vs+M/ 7n8D//nwatzx2Frc++Q63PcbxrWnxVbjvqdWIsXShR2OQWyzzyPTMY888yTy S/qQVxBCGmnOOsCRzgqTYhJcO8HRHUehfwqBSY7Y5Fn4J0/D2tqNklonKa5F KQkudZr5/yp182RbtZcUU4rLSTArpTLjIsXVdqE4rMmxUOwSaRWOb4xL8s7c AA4eGUCtywEb0wtbWN5jqw/LUYIwPqYYtqgqjuw26ew2a0mwsFshFg0kK3r/ GeWkt7zFh4MhJ/LcTRz/cY7/NG1uCb0F7gmkO0bVOGfUTbDO6MKLeV48sd2B u56uxgMv1OGx11rwbMoQx9KI7/0iFT98OB0/emQb1WI77vlVCgnejsdfSMMz TOGefy0NOwsjyC0eRO7eJqRvr8PWHTXYmO7iuE9yfBeQU0urmadS0OxzyLbO ojwiVd271OGxd3CTBu94ArxxISG8E4R34gT8E/OEd4amw3suDm+sppPVtT8B XllZWwrvLYgOLMDdPIm6yDgOlLuwau0GvPbGWmzakY1ilrx1zCt25AexriCM u54pwwMv2vDoyno8uaEbz6SP4PmCabxwbEYN7CbK4wb3DCc0v2E2GbsbZvEt 7KmfpU4E8d37X8PtD6/Ezx5fjbufXI17nlqFe55+g5GKZDr7ke0bx+7gLHa5 ZrHDOYs1xlmk2WaQa5pAHgnOEYK3WrBtpx1bs/zIqhklueMk9gztFO2EfvFk Dc2Gkjoz6sM16lbHMyQ37PKjqDigyBX9VeSamURYNf2NVXhGZ0iRKxpsJrsW UrsjN4hDRwdg42daVaMOK7ldDms9hbaBQitG4TVHQmpxNcQILNBW64KrgRsg rQRXkP0+ofWjrNkLb79cvTHE8DcGbxvBVQLCXK79BApco0i3DyG9ZkSN76Nr bBw2E375kh9PrO7EM9tH8ULeDF49MIvVReNYWz6A79y5Bt+5Zw1+cP86/PiX 63Hno+tx7+MMd0wa7nt8DR57PZ2V4yDeqFrATusCssyzyCsfQ97BTmRl+rBt rQWZBRGkH+0nvITWPotsTkO2dRoH3PMklrXQOGV3XCd34hIJTQiBFJDA5Ena cb4+RxNyJxS5H7/OgloM28QF4a9/ENulC8Kfxu9//3t1F4Ia1uNvrFmP11au xt6jNlS7urAl1YZ0gxe//Nk+PHVfJR571s2MIIqndg7g2fxxPHd4Es+UTsUb 9ebVTyNfmYbuTBLRneEU7uaLu0NTyp7OszK8HcOKnKokvJJbKWSHp2kzmoVm +DZacAb5AT76Z7BV7lFWM41XyqawwzKJLNMYckqZAu8LIX2HETt2mpGz1wv/ 1EnSe1wd/Sh2OFS3hOIaEzojLkyqmxcHMNMTQG+EBJeQ4AoSLNprSkiFhWCm wtVypENfaDOSXrNX6A3hUNGAOmJnlgsm5VQMMTJsoeiaSa8pIiapgbFJEl2C +4+oaNGxjepGcsvEyG4p2e0b8uC3Vy+ibXCWwY81NYOgNzrLD5zCMzsceGGX E3c+VszApDU3+836XmrGKJ7fO4Xnj00zqE1jHdlKqx3DNmsftlv78cpuF751 50p89+ercPsDq/GTX67Bzx5Zjbt+9QaeeCNHpWEGCngS8jxz+CI2WOfwpmkO m2gZ5jnkVk4i9xjZzW9A+mYHaxIndhrqkWNj2madwgHPrMbuRIxd1keTrJMY AP16APRPyoQwZZiM8cvvNTrCineR39hpPH/7x/i9YcmCsFwmEYlEJI/4oX4u uqAsBWFJSYn6FHm7ZCSbNlcgleHpwR/m4jc/K8KKh/xY9WIf3tw0ixcyhvH0 3iE8eXQEb1rGsMY+jmz/BHICtCAtxFEITyIvPIV8Wl79VLLCmVDzR/kEeo+A zR89llYBg3soiRiLSxRwu0e3JIU4fzFEPwgSdhodJDCF/4V8Pz9dtw2OCaRY x5k+jiHDOIzsEmrJXhb3O4rg2FcOW6mD+lKKIodc427EBBmaaPdjsjOgwx3E XG8QdlsAxYS7tFpLj8sozXIERB3Cqw2pVeRqynO1W+smsT0vjINFg7AGIzAF QurKNlOIFubPCbWxMUSeI6LGcvy4iopcSROsy1vFmASXke+/UVSXkuraDh/m p7w4dbxdzY4UKIfK6rFjlwkvvXgM9zxyBL98yoHHX2vCU5t68KxhWJH9atk4 3jRPwOCapE0hy03zkDhajjIWDl4GM9ozu6qZxq3CDx98A7f/8g2sSK9CrltG No/bv+J2hmyLUZnds+r/Oxwz2G6fwevlfG6agaF6CjnFQ8jZF0VWmgtbV1Uh Iy+A3eU9iurAZIzq8xrZUwySUwySU8wnpnSyJ2fgI9lTFy6wjvjgwkTsPMrE RWKd7C/Ig5LP5TrjqgWz3qNerrXweDyyfHzbNYynrN+Al59fgcznVuHYylTS UYsX/pXMf+8Q3rjXi5VPdmDdmjFsSJ/HhgMnkGk5iRwn02BLHzKdgxzbYRg8 TKF9o8hi8M8JjCvmc8l8bmiCQ0jolyvklXiLBTUBT1K0L1dgP5aumNdgr1fY c3ujeq6p+rR6t/xefpD+EpxQ4E9wUHLFxeTP+saYs4xirXUEq42D2FA9gNTK bpTaOuG318O1/xiK1qYhnLUbXUUVmIgK9AEN+u4gZgX6viD6SaOjJohi5iMl ZoJvI/h20knoKwh8JYGvYpSrIvTb8kI4WDIIS7AxCdUkPhnV5L2avFfXi3hX NQb5FSsp5JUEvoJWTuDLWuRnpdzezG2A2h1ALXejf9SP+WkfTp/ogOmgE86D Xrz0rzvxzE8P47WHmWMwz3t6Wzueze7FU/v6sa5iUKu2b0Rm3RgMznHaBLJc YpPIJvTZCmRBPlnBnstnuXx9GXJdlKA8twx2nmdKPcvzKOrJ+hc06vnLuS7N UszTWFM1hQ20NCM/vJy6cpi6kuND7oZymHebYWE6558Sus/qhJ9cJHxKCJ9W hF96772brnMuUGyZOHEFWQf8i9dZQU68I7veFV+7QC5Z66H4vn4na+2w4ZcV 8wsLC6rCTNT1LY8WwfJ4HcY31eDYk0HsfXEBR9KuoLj4v7DfdhVppdMoZNlQ HpqHO3oCpkZGSFsPMmr6WboMLPqAV/ODHP+YAlJ8IE8sNEGBn0xSXvARpfX5 ug8o0/l+cFsReZ9OIvrTgn7DNAp029MwpbuCFiKSVND4Jj9QPln7C7nBMboC /3KQexAYoStwfrwDVL0+vF7Zg62WTv7+OGxtU3CH+7R7qB0px8LL27Cwby/6 yyrpCkHlCjO6Kyz0hdBPYXbU0R3oCiV0hVKHXLsql/eHtKYTdIOt+WHlBqZA Iyr9dBHqfiX9oDJM5ukHlQ18pCeUi9EXypoU//SEL6GE22L+v6YjgMb+AEK1 FShK341n/iUFa28tQObdIRx4aQ6lWe+h4MB5vJTXjnVH2rCGMS3D1I0MKlGG bQAZjiHOyAgya0eZj2jOkKU7Q7buDDli4gASAVwyjnQC1rjiEMK6WL48eqaV T+SLXyw+JqkffE4FB3GXXH5sjpiTH88/s83GOtY2jldKx7GtehQZFYMorOiC 39EG90EzKjYWwmn2whHsXuIWPgq/d3zi5uusgMRS7sR1vCUuccMSlxDTF6e1 TmHLlvw45hakUP4lJjq5ubnqGLr8Ifpikh4nUp8egsNwBafCv8NEzztwD7yP vtPv48QV7ROjPSfhYkHpbqJvtB7HntoBpNM30h39nIkBLUa4h0khifSOKoHO 0eNEXkDzDwp6kvKKZSqVyQ9OqwRnT2hay3eW46HtRcof9sT9QXSKz2Qjv7dH 4gojjWYTScoz/pHBh38lRL8I8a8GuQdB+kRgiJGKfuHrY1bQTU46kFkTRXnf FJrnLqJx4n2cP/E+/t+Jd/F+8zj+q8yCs6tScerIfoxWV9I3QvSNEOZpC/30 j2gQEZad6kQh5kYlDBOl9I0y+saW/HocoF9UBxpQ7gupGxnLbYzLQ1KWltUL /6X0jVL6RYkYfaOYVkRr7A/CsG0Pdj6+C6/+WwZ2/MiEPY8N4djmS6g8+v/B 6HsfoeH3MXTufTgHTyOtognpVW1Ir6ZfGOkX5l5kMH/PsA/SN4b5HRd9Q/wi 2ykhVDxjmfIFgVqMzzW3SF7iFhr7X0KelzNEy9NNe665S67uLrlu+oSbkkTL UcYJd1GaWD5nO0ewlinpGyyN9zUeh63rDLytDA3+PvgqXYTtMEwFxTCXOLDG UIpdT2SgZXMZLvbP4VPXOX/pS/9zB9GXDDUH+fi1DhL3CvkXCxGnTp1SEWq5 7lQHc0+jrvosxvsvY2J0QYswX8TFy7+FMzwLV+M8jrlGkGbqQrq1F+l2ZkuM Fpl1kjEN0SPEG0Y0b2DaIh4haYzyiICUA5NaWSBhIuYOEiZYEO+mPbS9WGoB 1sQfRQGjUQGf7ZHHRvpHI+NEo6RbYvycepUqcftJbukP9fSH+lHaCHLCuk8E 6RMB+gQnIctLn3DRJ+qiKG6JnbT7NbR0TqGlZxrOofeZjb+P309fxfvts/hv oxOXNhowunEXelL3aL5Bv1gYCOH4QBgD7SFEGsPSGRGv7cjBTx7diHXbSvHc Gj5m5KCE8aIkoN1BuUTupBwi/4wbRfQOB31r/frdyN9WoG6HmnLbIWTf14JD K0+ifPfv1D14K1rex/Cp99F1PpYRSA/Yq3APTmKPowPplW3IqOpARrXuE5Z+ LV7Yh5DpEJ+gP9Ckhs0So1+IoCthd0uMyHFOxXzENR1zCM0fPkr+pxX/8pjv 43Nf7FH3EU9sXePPGHr40R4Whp4x9Uq2YCDi6Brkn+Xw1/WifOAMygbPILX+ NCq7T8LZOQ9f4xB8jnrspww2PnIUJ3aacM5ojrlD4urNlxJeiy066u7w59ck REvXzrWuaTeq/RL6xZcSPUD+fUz/vUDnFQwcv6L+t1wPU9GuU3DWzyO1vB1p 1cTeQuxtHOqaARUIDE5iT5fIku/sIfZeYugj9iyS8/w69rTdwUXs8/U1HLWe Q+wf3FGsoR7HPY49A0FEVcaSKTXwYxoU9Q2K+oYx5NFyG0h9A6lX5A+zJh8i +f2kvhcGH6l3a9QX+eT8TO0o2nR3JwYb/HB6u1DfM4P2scuYI/2/nf093u8+ gf9mYfDurnzMbcvAaGYB+tqCaIgEUG0uww9/fg9++MCjuOP+3+De36TQ3sBP f7UCz762murgx1FaY2cYR0qqcTR9D1Ifz8TKb2Uj9ad12Pf0BIp3vYOqsv9i NfE+ansuo2F8miJ0SR/yL6Bt5jjcQ1MwtVFpyqNIryDt1XKiLyk3c+itVH6b TnkNlb+GlNeOK8qz64TyGOlTivFcp6j/tJ7e6IQvi9Odp9GdrPC+Afn+WBCY ZGExqQDJ9TL05nBWP6OkTTHuobx4yLebfLs42K5eFNYPwT9zmnYKvumT2M+B zG1ZQGF0DhWlCxgsegtXA8dxwh+8+RrGRYT/+o8wfk2ZEDtlO3HV8pt6aIhp vXx0rGKmGyVr/qqlQEc4jKllpJq1ZDqHNl0FVVJdM0iymfozomW5xJMp5PTs XO+4DATHKkb2hFazxnMbUq0TLWXDrzKrhOhkhfKN5HhGsbxHmWg5aRaLKKIb J3AT8iPjS4mmZddzoMPU8SAHOkAdV0S3Y6+3Ex7mMZPz57WR+FtMEeoBQj3Y FMAgi9Bhyqy3awaNw4xmC++jv/siWnwjqCkJwJJ+DGU7CrF9zS58956H8IM7 HsTtt/8KD97zLB6651e4/64H8NAvHsLTL+/Euo3HcN+Pd+OJu8ux4f4GpL48 gYrC/wdG5/sobv1vNI3OoGuyC5PTAUxM+XE1AWZNsifgIdCeYX51OzWknLLN UZcbsWWYOOpmAm0d5ugTaDuBdlC6awi0HDerjUGtSXe2wOzUy1eBOZdV7XLS OkOYWdn6+OjTHjmqfjmKnuef1qimdOf6SDUnUFHNR0KtpdKfYuAepPWrwirL 06OSSOsgs3iheeYkiT4O39Q88go7sG3TJQSdV7AwdBmnpqbx6eucNxXDOfHy Ae2SAsIXk+zrQfx1PZWPLb1fW9dK0pLwq4k+8Vm1/SSqI31ILW6jfHRRtck2 ZSPdKsFRSxgNtWTbyayN2Vu2a1xFryRF9yd0vjXV1tZkFtnerbP9mMa2KDXz lYis4Qvf8mxPkzwK15NCNSeBgH9KoZ2rbEyzxlGFd06D4M1YGaKWBPtg8Hcj 09MOX3SS+eM4ER/V49pf4spbl9DXGEB/cwADLF8HKcrukB8HHG5stXViJz12 f3genvo5RBh/m8vrccetd+POr/0Hfv6N7+HX3/sZHvv29/DY//4PPHbb3Vh5 Xx02Pt+F9VsnsHH3PFKK55HFNDudJXWgxZeEiWk5DWViKoCFE13qxsw36OLh kkZ5OtZeYu0dnkV6STvRJtaVxLp6QGGdaSHWVmJtI9Z2Yu0g1g5mIzUa2jl1 Wpkph4k1rGeYncwoqvM8HFwBe3kcawFaWUDhHZimh+UK2rJAHNCx9mvrZvJP FgyUWvspIL4BqjfN20cj37T9jYNL+Payar1EdqcWfo++8SuYOXfls9dZsfyr 66zF62jHEpXEtfiv6jnIhy3Ay0dcs6yjnn1GPwalWrj2DWO3sROpJSSaA5xu ZEFqHmIuMqLpBgOhpHtZdeOK6Gy9TlGK7VWHMThGH9WpXkp0pk70bj3v0JBe pqHcLEhPC85JotUazzcjr4mf2xRjmh4k1khvItNZZDorPKjOeM70d8HaMgZf G3mWY+ato5Tsc+pLasrzF9hnd6Gwxo0DtW4crHPjEG1reSfS9pvw2rpC3Pmd e/Ho9+7BM7f9DE9850489e8/w4u33YNXfnQvtq4tRIGZ3Nd1YndNI47wcw7b +Rk2mtWFg2YXvBEvzl+cvlEfTrmTgkfv0uxV/M7Q5mCmy6WXMBiWc3gryW81 2TVxaC2jtDEyPE6GxxXDrDBJ8Ec1aVYMC78zit/cRX4VvkkK349zAjR48wIz Cl2ZhjymhLmcmNzApKqUFLRqETgnOKatgX6cpT3HMzCol/daYpflJ8E+ju3Q LLzTJ2jH0X7itLZifs1JU3+ZgKsI6nVwTRTRv78G10RU9WUU/fe+iLbJ6Xgb 1z2sQlLL+ojnANJYCqdbRpTvZ9DvDeL3NXqOJvkZS+lcj2RYWlzKEyeWRCKg LyLqaG539OCZ3XaFpsIySahkPhxhNZ/fJDVIfhN9X5kMW26TpMa5ZFSIzBZj QpHN1FgRyQSitGkEvs4Z+Dom4WsnkW2jaOcoLtMj9vjZy2o4zO2adux1uLC3 xoX9pLOwTifU6cZzr67Bv/zDt3DrP/8Ad976E/zqxw/g2Z8+gOfvfADP3fET PPvjH+DJH3wLhr17cYS/c5i/f9jhTsIh4r4cBy0uFNVI3+8R1LHAuHj5d7q6 /hnap+cUod4YoUMkdGiOtsBR5uiWkNDyQaRXcXRlQc5EOs3jyLSOK0qz7BOJ KpukEP2MSoJzEgHVDxTFk4YEQPOCNGpELickBqcs/KqltpzQOAc5O6iVe/Iv K8gBjlfbA4uI0v1LusYVou0nz2qR/5q1wNgaeOLxnz+A598k4Hm9Ze/Fg6W3 aN3hFJ4TqmnhHovkvINEdJiIcvDMY0SUg0a3NsiAqWxLsqwprTCWVR+F6LSW RgXUgUk67keQHxY8e/H0HgfBnCWStCYxohthZrabsnkLt/z15gTj/3P5mEtk c5TxTxLX7EbOG1HNUqgOYF/DkNbvqWuWuE7T+BU65DzcIT31+RtEWWw4h+aV yT/n8DzKI5047G/A3loX9tURW6J3QAQ1rwDf/Nt/x7f/6bv40b9/Dz/9t3vx 5L0P4fm77sATt38PT95+Kx77/r/hsI7qISJ/kOgfJK3FzgbYuF+uZv6tCK1x XhXFrd2ndbf5a9VCN6YE3kGK/RCzAhEn7pt3iKF16CSHn8NeQm7LOfRVHPpq cmvk8JsnqLATMNho9kmyS6vhNNROcTq0Kk6r4GbUEU4FrcDrkwzBL7EqkVmK KoWAKvJpbifjjOaEOMphCkJIbCyBW22lKFvYDVBeAxq3Bl87PFMLcT4TT4KK vZZ4SEdnNpb3Jp5M/aUPkdSElWlddr+kteTqHYSnb5TMLnY13MMwlFrGAawc ZfQfY/QXh+fAyaDJgCUOlix6eha9O0/PmfLlrBGO0PrKVrx0wCPnoChpzRdj zBc1nWG1mc+on6dsWlmuMn4uLbtJjH+P4GZFNGgNzGDLolPw9+ntn7rnCC41 tosa28nv0TGEyeNnGHp/C+fgrAI2SeFKKRjW4HUPy2uy/SIqmjpxJECI6zSI 7/zx/fi3r30bP/yXW/GT796LJ+57GI//+HY8+v3v4NEf/DuefeQ+HCTwB2rk BqoNMIZYHLbPq/N8PVFZwp9X8LoIryxiupghRwnvxUt65sWUbvLMOaUV3hjA gxz3Qa3JqXeQEXbwFO0M52GcaQLDWzkBrpwgxJwD4yQhplmmCPEUBZjmmNLO 3+W8yLm8OfFlCJmXWcI7K/HKPys1R2CW1M4qgkVxVVpAywnxMaQ95oQpFmFB mIIuHH+MRQP1IjSimxQRA1qdHOxlqOtCpq8NvbMn/vIagIW4mBAnri9fA3Di MtoX/4SajBB/VRemydN6W7k+jmW/3rVYb3u4h6lUatkoOeY40vkzlPNPqnEz cMyyaqepvzPMYvVIpRx9Vo2UjFO+jFNoFuuromTYi7wGvtZIo/7m0fKbZhXF yxTBn0NuC0WjWYzjT0lW/Eb4dyi6WRRdQ/0o7NK1ZOA0/P3kt09vX9aj94Hs ZiDuHEL7+JzGLlNFMktwR+ZZcMbQ9egmeucRzRuch62DBd5RE775d/+G737j W/jPb34Hd33nVtz3ve/g/tu+hZefehLV9Z3wds3TVQR/OZ3/n7RToq/B190y r45GxfB10Z0FXxnw9smZRXQTmkR7B6m7gyxtBqU/2hnaOSbLk9Rgykc50a2c Ir40E83M4bdOcxqmiS+thkNVy2mok1PRZ1R2mxOrznR8czgluYFZUhyYEcUV AckJEXFajjqeK9ubSOukYMu4RqunZITJbXg0gdtBxa0qGMittbUfHaNTf5XA bew0qD//n3H7hT+h9PonPUl2dffCIx3m+hhp+2O9EBf0XoinUOyfQ2r5OMGd ILgTmsNbOWp0doOMVp0GbY6KUrNxaHMDGrB54Vm8SWhf1KBl5CK1Nypm85p0 a+bbxVo4uC2iD0LuLcjmNpv8ZjUJt7RG+kv9GOy9JxEYkg4lZ+Af0Bua9TJp 6CW7vUwaeiZgaelFgaeZzBKakTmFrZbGuflMWxmPw6sD7BMbFCB9jDwf5WfP Y93WbPzrN76N2779HTz1m6ewPS2bPsL3qZ6p6r1d89x0ciMAE+M2HeEEfN2N c3ALvsyhBF8V6eLo6m2lExqkatieVej6Bi4Q32niS3TLp3R8p4nvNCdjhvjS 7DTHDPGl6fjG1CTHPasmJof45uiTk0M3yhHVDc5IXjsjaTITu+zwtGb1FAsy nEWCNXo1gg1hCXojMITEhmgDJLcX1rYR1ZXT29kXwzFx4eALCUTHqrNr6E1c CbvlQ9IGfTlXfeQ34/T2kV7mh72TWn/E/oT+iP0ibWeIwkmN4GpWuuLzpDeT vp5Jeg0crCwZKA5StkcbIOXflNvc0Bxyw3NYV9WGFw74kNswR3fnTC5npcUf NWmWo9ObpJ79GbJJsEYuP5rKK+QaGqdQyNdDIxcRHDmPoPQmIb1L1LeP2QO/ gjUqi/ysYx1BsjqXLMDG7i3qGdFpVVkDeU1SwN6oUBVo5dHPMXhw/ST2E7xA n7yRwp4s1CYJsopYfF2Q1a9CWZRcYdbTLMwKr7MwOgdVDxZv/9KsTGuWepK2 KLHS2E9dEtd/kbzOIL2Uw11OTitnyCuNr2VaZpm5zZLXWbJKq6XVcbycNNfs 4jR4F6ciJ6DGlhPyEYVqNkHVYJ2Jw5pFM9Qz/xVSP86nMVZHFa+ZVNv9kRFY OyY4FlpvTl/3AC69826cwMRTlz7/PwP2039Cbfa/Yyvj77wDd9eAgtbby6BF zdLaJNLzVZtEIULaJJ5T3ZhKQieQapxCGnOsdEKbQS/PJLQGQpvFEcviaGVz pLIp09nBOfHmOXwZayuFWT+ZnUcOY2cuLScipkNL2c0WI7JZzbFHAZYfHZlW wDq4C6GxSwiNCrQXEBzWG+roTc389DNhzd/P36ltgqGukbuWCK3gehO8OrS+ YU1i/brM+gc1XgM6swHaw9tmcbhlQbhNRqBXMmXJSgKqsapCmdr7DaW8Pj19 iHPcvqi7npY5ePg1i2q7UGCLcHTHtIys/zr8crR9/dql9b6+i3y8RLuMEt8J pJVy1CvIMvlNN5Fhnd9M8msgvwbF7xwlhKPv4qOHj2K+OTUjwm82+c0OCsPZ IaUPDIjCbla9Zob66Ri/NIlwEwrgzLDYKOEdwb7IGLVhPqFl55hq2Tl16lRs sSBxbSHGb+JK7deW8pu4UnvTn1CnfUsX3IkTp8gvo1cPI1ePzu81TRL9eptP rZvYJdjazqLANY80Rqp0Rqp0RqlMen0m+TWQXwO9PYujlRWgBTlyRHhNZTue O+DnoJHgZcgmv9mRuNHRmwhZFgn+LHnlR7CMK+85g/D4WwiPXb4Ot7GGZuRW NeObx/5gN12oma4U4e6EYe4a1iQ2SZBNEl5FYxcI3aBsBo4nq0Z+yfhVxnEU tQmxxzmt3HLTJz/tW+C+BiQV6ZmPmZ4hCKJf1ZKD6JwCtNjVjYyKEPbaWwmo 3iW9n0PZr0mBl1LgFTj7KKx9FNYEOAMDbzFfPI+9jgWkVXFIjbNIJ5wZhDOD cGbWzNEX5+iTNMKZpcOZ5aURThnubH3IBc4ssRCzs6ywbOqZFgiXN8WpzGQa oBmpDI3C1rWQ0ItzVuvF2S+9OIelF+eXEwiMndzzuT9OZeKK18euKb6uXZTV i69bYwsIAmYnwewWMKfjfeR8CX0QVb/mfgFT7wMzRFKG34K98zxKImeQxpFL p0tnMBxlMhRlcsQMHC0DR8qg4JzH6op2PFvo5xjNI4tsCpkcMW7/nFu+L6Ib 09xMMRZqFT1nUT/xDsJi428rSkNC6eglnVBJCc7S9HZlLLzLmlkhuKO0Fhhc TXSWMIqb5bYboqrLNVUdIS3D/I40/7Cw6B8SPv2DUthplqS2NyDI7a78EH6d dxJlbbNKwYMDJ5PUD25EUM1lgqmM5DhhVh/Lgfw7hsyFpYorF1MR5hJPNzIr w8isaISlmWkgMxkvXUHFNGqCV2+cKiD74yBfpr3F3XibX/dtBAffoU5cQiph TjPPUis4FfY5xjsN5AyCnEmQDdQRg4fmpU8ZfJL7ZMVnh4/k2ECZJcaM/CK6 BkrszciUAz4EOpM4Z4bFJpERnEBpGzEeOLOkUWdANeokzgMTDAzE+cyZLyck BLG1hBjOiQu4fwDnG/+Emuy2OMun4e4YgkfWkLsTWJaGctKTq0dYPhdnORhj eYRcjWp9jUJj78LRcwmlreeQRrFNc88hnd6fwTHL9NMC81hxNIIVxyIcKQ4o ec6sX+BeZzYIXxkNcyiMniK751HDz6+fusLRrJ98l+mO4ngigWNp/TKqp7ZU 2+DwYtu9LHc7laeN1gqDW+e4pVtxvMCZ0Rg+TobFWMgNiZ3UlHpQewywJArS Yo+puzvw1P7TqGyfXEZyTiWpV/9VeNZmsf+kDvEJvTgkzD3HdYAXlgC8z859 qiK8VYwClc0MZBxrvt/be3Kxf6pcKN+rg9t36Rp431HwBofe5fd+F6X157DX zYrDOkc94ZjXzCOjllbH8SW8GW4+EuBML41zIdqSGdAIziTBSZRXiWqZpDeT aYJYhjImfyQ3PTRFak/qwfVcQqvOk0tbdQ4y1x0YEXrjp+Innndzy4fjq61A LF+ylitXVskp+cl/QnH2Qz0JiWPcSYy7pvW+iMe1voh6azm/3tQojvFwAsZj GsbhcbErlND3EJ58j1//vJxw23GB+1jWeQFP7vHj9dJ2pBHpfc2nuY/lPRe4 raW0109fpb0n6E69R58VjAXisNgHML60BONYA77CsJwfQoy9rbQWPmey665H CTEW+SW+SYrdZG5PKnr9pD9J2qcmqcn5CBE5TTsTt9Q9Q3j+6BkY20YRGjyT rF5cpt4WUm+lDZyOgR1gOqCgVivNBFo1Rz0eh9nXQceu9BHiekJMkKtaUOIf 4kgnjDaDkK9HB7l3EeSADrJAHBCIFchXGBivcCTeY3C8jNKmC4R5HqmEOY0w pztpBDmDIGcQZBGVDL8Y94MgZwTFqOC0DOKcHhIpTmf19insbVrgDJ5a7Jcc 79dJkIcIsjg/w1iAZUJgiCAPTaqWhx1TU/GLphLPuPmz6xyUWALyx9XamNz8 MHb51MTExIcWaj+KwXv8DNzthLdjnABPa30Ru46rvoh/DN7gEnivELJFeOsn xYnqp64yJm8v8uKwt1+H9LdooPF5Ep9clTfp7Aq5SYrcv9DZfedD2L2gsav3 LbP1sNLwdjDho/z6yK6P7Hojil2dW9oJBa2PwPqVsf4cPJ2klic+pqgUhQnq FpJHTlRqwSRWlJ2DuaUPoaFzydycFXy5DQ2djSUzSer3v6iia1AirGCs7kBw Ur+zSwzhBHwriG8FNbmy9Tr4MhPu0fD19S1mwon4Jil4k+P4hkZkvEOjV+Xq lJYLjIcXkFrHrNm1gFQinEaE04hwGhFOp6UR4TSWbWks2/ZGTqC04yzsvRfj nTqDQ7FWs7FOnUR3+Ow13TqJ7rCO7hAL/f7e+JWsiQtjsbNsEpd1l6D7EYXu xo0bEQwGl1zZIR+zefPmO+K0UmrbhjVaO6a1LojSICehC+L1aNX6x32Q1vAH aL0R24/5SOuAjuVVBWnsMUk9+7L22tR7msz+KVI7Slz1FmXlbeMsnNsVrtn+ KJ8LspRaT30cVTme6hNElZ3RFtEkAkqz9cFzAtw5yWaHmIRQU0K6pe6fx+vG 87C1jzFmhDhlf8/tOUFXmfZ+HXPVt12/24Dc3EXBSi/pPq6yXwVqpa6zlQS1 QrR2RGuY2v2HQF3MdAN6sqDp7HvXgHoDh+cq7bfqMayeq8ck9SSZT99TbYdC oyIModEr0kNr5F3aYkvOeEvkeEtOcjrCrzZyOqEt57zW0HA4xmlfrGFA4pk0 n9FfkypM2LsOprIU9u1vfxt1dXXxyyvkJ/pRiZ/qn+OOEtF2HdGOuSUtDmXc rkU0oBDVBXU0ng0kKUaTdUKvKj6T4pR6dUp/m6ipCZR+KS6qf5DScZ1Sva1h UPUfO0MqO0hnO02n1K9TKqI6JISeUoT6SKefOPklR1PLvedUa3VB9LxMNLUj SJNHzuGwJDOph05jrf0inPzqslQcHpE0JjRyIVm94SuKXI3rc4p0+VDFq9wd Q92IiH9cZ7XE30tBbYChShLcZrLaoomqjHcXd7BbzwfIqU9x+sGKbAmnI3FO hbmryQrGZYrT6zJ69Q8w+vYio6rp5iW94SYZHT2rNysko6NMA0bJ6Ci1dISM DjMNmJmOtcNKXPK69lzc61RjtbW1KgsQPmNXm36wbdbn4WodppYS0nYdUtXD UBs01cOwd/FuCoEPh/QDOiqkapQmK0oP6ZE/Wd/G9DSermox//Mfimcwhuc4 qRg/h/L2CeKo4xnQEM0iolm+Zk1EKZ5eOShK0fTpaEqgPy9MylXqwUFxu4vE S7dh4fASObyEtOIL2Oi8BHfCa/KYpJ59Wef1onoMDV9UwMYYF+IVrjqq8Xtm EdVSfx/xbFSYGpi2SuoqmJb4RjVMu4hpdyKml3RM34rXXsQ0HvbjlF5V2F1d toRHTU4Vo1rzweUKUMFTMw3QJIXoTWpaNTgv6d00dUApBIuNCFlwSUfN0UnV iHDq3Nm/T4AxtgIWE9HEE8O/mni+1w0KRklRo9HoB8WTXDYPwS0nR0en9EZY 1/TW7NVWBBSXgwlcjizlMjShx3idS3nUyqNkrN1jRmXTlGIwWd82iFrqpr3v JoSXKOdiOhpSaF7S+2he0NE8iwORASLZkay4/IROZQv2h9vVGSZxIvXjSNo9 VC5qQA5eSpJgICJ5mZuRyxSdMLdp5ZexzfcW84KLyxEevayi52X1Iw1M2X5C wRgUIHUQ4/dmUZqp3WKwNBCDsDlJUXgT/9uKffbeeHM2b9c5jnIig4u5ZyBe Ol2JcRiL6BLPFYfLr+EwpHP4niaOy1TnNRFIvZNrkpq7TxK3ywk9MM/rPTBj +B3X8Bub0ZqvjYwIfvGml4nLVTGBTFx91fn7sl7vyz3id+zYoUTSYDCooP5T XV2jA7MafK2ELzoLb9vCkl6CWpvt8+o2HQq+hAbFsVqe35T4fYSgaOJYPykQ 6iARKx2+G4Q0DbQvqZ8JbOEEDQyJBk68tQjbxEXV7DLWJEnpX1CsQ6BTzGWJ FpK40pYhdeM8/8AibX6dNtnv4OBltZQmab4Q91aSquiWqy9RFZzG/a+2ITX8 Nuw+ued2ePRtTunoW/g7vuEtbeVC8XdZE8+hi0oAA3HuFuO0iJ8sOgluBsJm qIoq6DL56O0gdJ06dN3nF6Hrux50WnwOJuSRwdGrS8RPlC6WNGr/uyWue0Gl eXrHP1UOSCi7nNC48oLe8Y/gjTMwj7M+Hyd443rjtLEJvXHa2XjX4MRzV27+ cPC+khCZ1QkZHo8O3GcxMX+eijdO6Ahc66zWvLI9Btzpa4CL9XXXFE9NxZio kZiAR2ySFT/LSdS7eCntKGo5B4q86SuqxLmSrH5002K4FV3TtU2QCwlyE5zY CQ051Zpy8hzKOscFsSTFGxUu2BknTlsC/qiiLfFfYGCRtBBJCzEZEtDeFu+g /0sMCnM+nl1hwkOvDsPQ+A5q7FHU1nRQ6uhKJI/fj/Qp4/fVhPHjirqgTp2m drGQe0qtHGVWNmrEVcvt5IS5z6hwa2mcIXFnlhLXqxEn4db/AeJ06kb0zHBU Cdl7H1F0fU619E2MqoqyhL6SirIxnTLVV1KnTO/zGZggZROkTJqcjU/HmpzF bhCQWEXHrpxNXMnUAdOK7mVK2WKR9b333tMyvU/CFSFfzdMaX3L6Q/txLdOL lXEJ5YgwFhy+pFKDy0quFxkLj7+dpMIfJ2fybQVNPe3FtCOk7CQje/3UOyL9 3Moz+VmSemeyls8psJTeEK9bEJzkHE4KXOcVYOUELEvyOSEr1Kkes6hrWdQ5 g7dVEeWL6Vl/LHpeUq9rlGla9naSAutjRIx0czLCzAieW9GOrTtPo9T5Nmrr puFqGlev10tHeT5JUrx9UefsbV3mtBArYVWBNrQob7Hcbl9NpyZrBM1Q3RaX N5XXKdDOaqCpmJoI2lsqKX1HjlnFQdMsNKKAkzh/ReLpFQmg7wp3aiNjvMiX eFRwTIXQhBaQfhUjzuktIE+rFpCBiQW+zgxuIs5Z/DZAiaeFxLrcJK406qD9 XQJosTqDoMXKDGEvlvT9p36SU7T/ONxMtdzNs9o5C23HWRefgCeezp3V07kL +hrpRXWPjaAM/OhlbRlFDnePa5FQSEpWVC3H4yl5pIxkTWlWPyWjIc+S1XP1 +mTs/clxAoU/jiT5+xwJvKhROMURmzqLsq5xRV12sCtOYhYfDaSwtEW7akTd 4LM/wWniFGoLZ3EGP6LEIBwzikV++Vls3XsSx5xnURleSFJLUdxbWZASG5Ol vTiPn9R8LyHkBpeE23NLhK80MKjYS1Yk3qSYLPGNLIbZOIeLuZ1/YLEUDgyJ vSO5nWy4/8u1Olayal3YBD8Jt+8skhhzGEUitzcrHrVuujqRehgRKv2qRyyp nGRiN3mC/5+Pt8jTG4nFbg+YWPjGeoslriHqUP6DntddW1fIv/+jn/kxMXsB rkZS2DSjzlb0RHUKO7Uw69Vvn+KTPEniiVryvCijcFG+7+gl7VyLcbHLooKX dZ7Ck2+Rw1zF2Fsyk9yGp7TXl6ntcvVuYS6sh1UhL0mR93kEp2LsaQ3WDFIz SEYn7JHBLLGAxp8cZVb8iWAzKQhcyx/ZkwWH0PA7en0nU3Yj4bui4ItZdfvb ONp8UVGnEXjLIoFx04QzrJZM34kF4LgohoYTc77YWuIp2FonVaQ1VEkfcQ3E TIK4z9Gtg6hFX19C9F0sNOT+fLKgJ8aUU77MR7TkWlK22Cru6JLHJPVk2ZIf qZcldn1ahd9gXBoXYQzEutrF+jWqvl/HEzrb6X2/rl6N32Y18TyPT3w4kf94 TTyWKiMlJUU75vIpOOunCCMLjWat/5CnjSB2nFpceek7q99D+FwcxuDwBcVi klpPvlEdiw6NX1REhgWpCe3x8ZRsRpTw5GXh8VKSeo1pCr9zaHLRglMXFXhB HbzANP/a9BmC1qbDJ+B1K/jkWoN99awQGfHi8En47b8Y6+OmqqChtxPYe1cX PrV8OcZQFh5/jzNZz21YN+35lQTwlOhJairMhcd0XYnVGirj04+hDZ5bcjrD frKVWdUmuLXLWRDVUbUU6Gk/xXE9w1CjaZ+3J1Zi6GcYDYgJcpcVcuqYh5RC QbVR9VCMOZUHqZJBJRmjbynpi712Wc2LSEJwTKNM7q6RpFj7BElLoC3eZe7U UuKmZuFTxE3E7kqdWNYmNg2NrfvpsMVyxcR1P032bqbsXdI6XUXkJO3jqhOc kOYR0uLl7FntVDZ1hF1fxVWH1y7Il7ogycf/39m5B8d1nQX8cHdX8iNundBQ N22HPlMYSKcMbkMaJy4wBdKh7UAJLYGBDn+ER0ugw2QKJIWWabHNdJg4dkoK KaVpO2nqxPZq31opjmzrYVtO/JC0K2n9lLR6rRxHtdP4P77nvd9enV0peObu rtbSved853e+873uPY2AYEON13B//OV/p3eEq4EGXgNUMBLWK0ePeWfiFl0P 0SbE1fCIqCvV6kAeqz1Wd0AeULerdMw9N3SONheM1N4iksfuhRh9iJ6qPIte L1pO4A8yfR2cm4TjBTnoc/Uaa8C3N2k80npW442wGdgty27ZlCM8P4AabxCQ GyIAdz4zSOG9/OA0CLsOa4z4G4TfAuEXUP1wgoNYp5fIJw/QuUOddyVJxjfH ecpyoH5bAh+L0kkUDW3Iw75lbSUreoEeZRgQZusYtBqAVtNHGl6UZ7fV3GSj 8UFPvcTG1qCprWi9DH1Og9ZN4E/6uM5MzzmXPQTgHWHwciCPHMInGz1xvdQc xygwKoaZcdpRbZ5yu5g068HEWQXewTvvAd/pwInz7sF/fQLQWoThW8T3gD4k 7FfkYiC4E5iCQOTKIJUySQagA/EAeesj9mDJ3WXY21U67vb2vkx1SKzikmDr L4TswYDx1ykPerSiwhrbSZGIXqPweg12AX1KRN+FK/E7WjM4GjGIrkg5rCSY oUoC1oLHiMOQwYHpUA2yKzLPWbuXuNiyeGoxIAiTEl0Ij0Dsn5FGJy48vO4k KFRSJid2kfQbCribVlHWbSF6ItsQvxroudolV0T8xmsf8lQ4bDSLrEZQPmBN PN+TNDsJx927d6svQt9q2fo9GmWpXXGZ3gvgCV922aOI4gygiFOzLjjWed9z tKRPc0aLCjVG5qDzc5RRLI/NUXYM9eE8+uEnaoDiXsByAS3E6gJCRy/4v2WQ R88EQocywVf4DqjrlgPkdG4WVubiuTo9pALNvl3o7JKpd9ztLB5z+wbxJp8Z qoOjtGETg1dE/11tMvnYRie9J6vueni9DqBdB9Ca3yMgFb5UzOxj+Djo8rbI D6aiIZROXWoBLrvnB8fdzqdh3cUN6n6o8MFqMzgTKkFeh+d4QxbZlIVdvwXZ 95iYgiskxQ3kkDa8o1rEl1HMH2IOjYpAKE68QNF3ZHE+wN0nmMANNMeZwjiJ U64oJB67PP0rnlDLhjdGYlIcEF2BUTEqgfdqYBlW28yhSy57eMpl+2dcdrDO cqGVGB0QJBBvisCgbZ1v+sLMP9VbMIUJYjDh9h+fdA9+7XHo/xzROIelANU5 YJAP+jwO73hM0N9NzsE0rc0idfWAoHurYDdIy+wuwW5PDxh6w5hZBeyGfdgt kYXus/Z6Qi/jGno+VX612OFSO052oKhBys+scDausoH1lij4MsIVP77E/t79 oPWeBuB+MOB2/PAomDkwvUHr5YawKg+hgwOhOwlkoL3TQdYO3Qpxmg9c0MHO TpBtuY5KCMpU7rIQfSaDCLNiCBnN/yiMR7OZ5KzWXRGYg6sBdZ0k7JLMcn4U DfNXmDjvftVThqDbctg43wdMijfJ9/fpp46Yr4HH/Pz8veJrNJZ+CgvxRWAP uDsK3A3UWTSi+fInI/aKwl4JDRtYWHAJwBKpUSrZG5t1T/e+5L70ze/gZ/ii MotkVWeBMz7QpZ3F+QkSKE/COWp84OxLROTdSqLA25d3Anmo6PYidbTXFYjm xEry0FhX35B93GZjT1ddMuXI0qMld4XWY/yScfwC4u+2Jp1Hdj3GW0bl7oow Zz8rOXveZPC5oYrb8T1A7/v9bscPBL9+wG+wHq0wYm3zjmqI4cuKIedn+Ohm GwgxxJcRrDQj4sfkqMCfYnoC/pT2yJjlbUvImyApE3JJEnLSPPbooptoLG31 BFXWtUbtfTE9xwH+lZ7GvRpgmXwFVtjLLtM37TIezgp+zrCUv06coRsJU/t7 PScBsacAsTrVR+B7uYIslqtIURmDmeCtlyeIz0n8Y8arptMMf8LXLa4ArwVg bUcBFqbiELwPuX1HqyFrlGTRGhGxiEpNi6vEUyhXuULLkZJjGy5hmLrmmLOf b1Zv1VcNYFfFttfysEWydpuTnlHO/X/LpwCyfvf4j4d5ATk6zQIWyHICmRV0 QAZNMjJp6MDV8QyBdVYMbrZyAiItxXhDC0q07xW807TG8EiKICviIVMa31Oh vKfpKUXHpmflHqrmsgAlzcaUhTSqIiB7WpddG8jT0DLWseL3+NNdElruPz7n Mi8Ab4dngLk6ranZITPnRBQFYY4TopF+w+o6JO+JA33u0f/8EfEXEHUgn0qd 0oDE2zhSRjLoxonGky0kjmhLEGxbCLfvHh9zO/ID7sd4kwjtDqqboM1wnl1L klrhNrIStx5GjhVcKlRuvcakYxLfZaj7CWWiqRjCR55kPcvhlpPQ1cp0c7p9 bMLteX7IfefAWZd9Ecg7PB0tIytUHIk8IJmnwpluJZ8g2Xey9NF6BImXQN4l ujS8V3EESuM4AghdcaKu2JFuS4luQykXwJYrTF5yjeuvfcQTMdFdMm14bgVx G6UkxZYEoA8hJSl3i3LrB+89cwggOwyA9TNooXI7ES2iBFoEW0C93UicIWOP fIsZ6zY9RsZKzBghhtYr/iHpNJxhRdFpSQLsbS4PXc9D1/9naMQ923cajOxx MLLP0X2huGdcuNPesNRnvqSQLTVBVo5BRplMyZ+T49BJOL1X3FdWYoSTBIQJ pwrXuZY1iU61MCuT6CWbRB8ddU89dzpcLbIwe7NHjVANUk0rhyi1OoyXriBF mc0l5gnkNop4KVKIEx7F8XqIUxDC1EESTRBMedBdS6/91P2aJ7Pf0Zoknzew UQwyXSVRk/X19ekO2rVaLfzVrarIYJy6hK8M8JUZYEWGfOVEDPmXPMoMq9yg 63sFrpKZTgH1PEVw8XZE4VQSslhl5eVI0OttIAlwjSen3Hi9AcbMqMv3A18D NboDrjBod3KclfssFviGodNso2lAjvkyNlplWZQYsYaI/SSJuoo8zwThtYWL t3yA2X0Zm/KanD8vaf6cqjRG6ekTmW58kNUUQAaSPUIzNyDKkvFFMyDINkUG ipFxUWRcBHWF8i2OsYyLIOMiqSukK0FsoWwLJN8C6iqL1zTg9br7qMfZtFur qw8geH04ZtvLfjhJD3UfFoOu/+Si63qx7rqOxFA6RigFpKs2EUV04y30sCA9 3AMU/RMsg0XtpfRQZ1CAfaTpQ/0T+ypvD/g2h8fktGtAd7FJ2cOjwBEw1F+j W4KpogoLXGRP24ghuxhSDiggRdVJuR+q7BuTVJSmpCrLHLFIkXWViOyrCtWZ ADu3AzmvUPqHCAqrp5QgyUGGmfFJDMDTNl3YdnKeyqCmDk1bimj1yxrbK5yj J0VdGekiPwXDkEg3IICSJGAULuJTQPGG/JA084IQDhxPUpieSyLauz3J+6Sh SWswhaaPtE/e29vg7qTXLa56Ydml+4Am0M9d0OkMdDoDnc5Ch3PQ4dxJVkx5 g1IBOvo4oPSP32KUCmayFFbpbY0mJ+mmHPzP4NQiLO+vixH4Zjdw6oLLHQGW jtpilik2rJAlseOVJS4RvUL5KcrqYKDOJBF7KHmI8YbeytVOumc5qZUuChJx FBBCm8AatDVRC+Fmp7p1JCezucQCQcJdsfT5/osAEyp6MiRAppnYDM0anZQT hZ+PTVOUbWEEp2JhFJU7yrZQYbnSQdMUJAv9yIsyEsGmBKAcAKRz8x6PT6gA 2dgXL3OyOLYs4GWz/Ba3+Mrr7ihIPg2dSwMwXdCxDHQsK8BkoWM56FgOOpWH TuURmP197h8AmIIAk68gHOTx5ceJFToS1KtkpGj4ALVOHA0AL83h4c1u/MKC y/aNu9xhYEZrUCj7P01mBgUkRQfpVudhlSSW42K1XTKqt+NDqEBGEkyLUBNQ kUoyLFeRBSygSvbNUseptZyNMDXYHW6vZhPRzTAtXb+mjzHth8aSlj/smZvH zfwUhnB+5o2488AQijov4kaG8sJQHr2dPE7OPBpKJN58jT/RvIz42e5Jiyda 83OXxEl1OcM7EnAbQ3y/W6Z45dKyOwjgHBRwuqAnmWGGJovQnGJwctCTrz+d c9/4fs7lsCdjSD5gg4xwL1yOZkNuQtVJVg7FJQv/MzDVIBXTIaZ+9lDV5fpq gAugooUiQ9OSn8cYzpyJXQsuZzBbchaTKGWpXKLI5RgWc49dSZEFk5QHdoRH gipKbpY6cs6WKhJhWdxkq4wxo1EENAqVqrR+s6uef5X0dRp0SxdIsQuZGJLp d4KnYDj9jCSFiYCASJEw84JEToRJggxQjk0aepqfOPzrHg9MSbDRJSFBVy6t iEUC7lECLi/T6B+ENqehzV2gMjLQ5gy0NwvtzUJ7/+Wp/W73gRdp5LN4QINz ZPRmq2CdZMfhJUPjnoGmD1zGMb4hQYiNbvx8A8YZxriPazDyVIMx3ZwZl3EO KEORaCpPo6wYlQZhiraxgYoxOihDjgOJNdp08CAGNIobonGMZ8VgLIsylpOL jU4RQ6hFYXqnYXqnh0ST6oRAscAwZkUsOIxZGMYcLQ858oNyIpacjGMWJwWI JUuxjGgSNF67QVf9TU9CWM0DG7mRUdzmSQhzPHCDq0wtuyMgloPQ3IPQ1DSM YBc0tQua+pX/3u/+q3TCZZC4zCgq9Ay0NFORowqIdZHury4u08jxOXl5yfRO utyhWE0DpjjFKeEZOidVNBLll7vSqHhkhKppAi1waFCinZ/sgO+BDicl2hc5 9YxhkiqloOFPMMtXnphPUL3gepNo0oGdooEtysAWxiel8Rvd4tUb7gggRIDD aKah0V3DBvKXGXTcHCug8Uy67EgEeRbXxSzJBgcT6c7Qas+0jzeWwwXw47Ja q19x/vx5im2IGytG4T1tsqhoEeJ328S3qMzAmALgB6CxB6Ghj357v3uycMKl obFpDOOmR9A5T0NbD+IxxgcO4uL1G28SsMfPLbms7DdFpQH9pjSADOnZsDA0 rE2R8HhA1SkJKhOgJ3CMUoIfXtdH5QJy6OceuasR4xI4eJol7KacrM0Sctil gwaRszQ8iJipmWwscQ3OJh7D0QaNH+KdHma80y9HiHedwYc3wztIJENhRSQ8 QXwj2ow3v6J60oG7T5ZInGnbtm2jFKLGHWTEtnuyjXp/38eMyi0MnnFjs8vw U2UOXxev3QjZuEXWi0y55rIvXKS8OCfOZigG05SZpKcAzNIzBsOUBZW/oBDP zjnOVZSjJOXoHGUqA0pQpigdWZZEGaYj0WgOKEmUMPNGo/apFXuSHJuqy90V 611lepkwPAANUwwPgszTIHPB0DGHncRheiw6+i82lEX3SbF1n3nmGffwww/r JBERfyzmd2P9HojXSlcXNH7o480ccChfgHXlcpTjBbWdl3h0wcSjMZLFD8Cr U1iecr1nZonu2YDD8SjOdVx3oLUHVH8wR2F5zLqBAxtQEijRFJUmiJNWlLKB AG1/cT16kMQYiHGsDuKcxZJjYCTpKvPLvy9dR6K2b99OfY0E8xueDNB2j1T4 Qa43uX7oeab3Evg7IJEjM1Hw1IaNI6kEKBasR6EHM+DL2XqCQvRYiMeB024T OA0oBtTJ28UbGRRNdD5Kh83wXgqTl9xE48rfySzCfuLDBnC5Q38ZlzxZ3nQ1 XFs6IkH3jOsODLfJkjVwYs7EoExa7FgTFhwzT0bZMY5vcgA52ZSs6B6tc46i IxQDCqEk8eMSGmmlSc2IaQTZBqPocf1Tc05FgLVbqOr1frjHHnvM2dUhyQ/l bBsp/6hHBm+XOTswPB9FUI5K9ERDUgIBR+BSPDVM4gCDvIEkDSTIG0Y5KWHQ lDRIrIxyxqNwQ9Pz7m+Ecew4hmPRB4EBDuihKQmKsunWvCKHe2MRNy7+ao7z 7tu3z0rC+j/vkEnRP7wQ5hGaJGGSVr5kqY1DogSKRgoqgaIkEqIoXWCjkBye m4H+L7jPSxMlnCgWAL+qTOw23BgVwt8N8Ldl07I7QzJ80UiVTSxweZdHNvpo BQpcGtlkBqKEHlASkGDWkWjy8fBaFFoLKHKZDANOFGxCh7boj60lw7BaHUTD 0QMVj332aUJaieJRl1XFgyaS8PIhu360Fokn+oYnRm2KP2lViL2Hmu/uvxU8 fxBTH8d3uyR6hB5eVsKQ8chRPhY50gBL0USOAowbadjIhIzwIHLU9x808ZXP i4ZTKfkkY2bS1taS6WwRVpIzb/VIg28l/zmOTwIwaY2BDDXHJ9FJUl/XF/+g UJONf4zH4h8p6Tn6Smqj/ZnoNdWboj6oT7FeS8hMrOwV+xpv8ARE9I5knVZ4 BZ2kd3hE8S7rL55pUPDERt3UVyS33/iKORFDjqzTPM2a0Ofn4Am5/B1hbI0D JXi1P4kpUBlzq0BxgcRmbzMKlFKueiOPuv4oPe2rnXG+vr5HjNcwSDQkHtSJ Zg9KfWL0n9B7yokHlWMPihwo8IcD9KGS5AFzuADdKXQ3P+NpT6qNgkQNECpI sq+IcHkwx6c8brLGRuzzafUmE5sIer8YUouvgs8BDikGRQ6ivwG97TL+Rkb8 jQz7G+xuJNWd1iOgHoLfYYIi98sVbF/xWEXT6bYTlmixmz4tkvK5lFKd5u7w 9JXLzDeSjR+6mehXxex7tO670LYfxb6kya9KQ0f7L7F9/1kzP3FUsA04qzxa Kdyq3NON34ut7zhs8E+L5u1Tgn5ZflXNaXS44EihQf1Zo+BVWwTUlmS8NfGa K9MYNcuVIfwHf3GHpzH/7DFRO9c+YW8PZ6rg+wdmwsafK2PL/vWmeJsm17Zg s/Fv17KUiq3wSx5hyI0I97dYMMQW/YWWDdkQNmQt6zgJQS75h0ZTq/mrf++7 3iN8ArxMJ/0iAuhbIP6Uz/+5mFZ88sknvef9osdcWBcb3Dbm7J/z1f4oRpPc L25HVUX+7jaNsE8VSrZRj032I2tz94BREsYcom9VKb6n5bU3Nl17lcF0XzBz iAZ1nYymBajdRR/wdPhNBmM0/e2DF43I/7ZZmcQMgHWxgZBprW2wMVdfG9Yb Tae6pZWm+/u2DdHSu9Umuap96+z7WqbWbhsmVeF8uW3DbIWWZ66/s2V7mhFR TNqu3I+0bclNRgXosqbU2c3JVVS+Byc/INDokzpbEPvVtg3R+/OtrvA5Yb4G 3O/TSz5cvh6fM5tjqGLTjc5Y7cL3yXfYWJWQVr6sYWncyc15UP7OYipSCbdf sSGI+0TeeE69qgcFH5bf5BP/hXRbVYVcebWLtVnYdvOJ/9LI0wRU7J4GeuKP G1XTRs89wSf+69hUxn7qKFmP3/ekJC1/s9MmtVZkvs3X/4JnxuJ/yxjc4rns nfKdNRMCo9uMBvEuoreGlP4bt+GLZq6qHES3ep9Qxg2IzINWK5jAscU/Mb/B Hx4yykAF4Lvo1rUN6zvbXozXl874tKRv0aTHFm/yXFytNTvSHWtr0LvbNuhL nimqvkXrhjSfbY3Avb9tQ343hIKi0fRragfj+JqbZVrfXc0nX2UF+8W27VD3 z/7vW2PfxW0B4zb5VuEOT3vfJyCsaoB9MD5ZPuUfAWrdWzyNXy9tsI6R4gaj rIXX1ifR/uLIodTeAG1l08imXeVtk1o30x9c0Wi2bQ8e0mad3zGf2DLZIszl Dv1/m6t3v+qqXq1Ww2bGfXOxTfWmCrum6hTDP8F2tVlTj3BTNRUWo9e3sN/s /1U1SFYmSlZtuo1/rJezr2FxHoxP8WiHdRGaNvFnw//YLC2KZzCkhdpfa/cr ytZ8SK2CrSyxw9yKz3ikeLv00xaIgwxaN+Amr/3SZs6c4otHxps+I8LG433X 65CBwPOrGdNK+/KYimfdscKRk9PaBwSoGm3BY5VP+FXps9K0Z88e9+yzz662 JnNVvfuaac5DDz0UHxae6o6k+FcrP3/FM1yf86HFP8G/na3/8KZQi37Co+59 84s1OQcPkhGzzb/0O4JhTF3Tz7vMCXzLC5005Tnpb7+xFj4ayuRmzy/9ViSx VJPEYs2MzvLm8NOnW1/UJ+NNnu8+GZ5MrvMf4RfV9sP/Rj+7n/k/7nEZdQ== \ \>"]] }, 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", ",", "12"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tvc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"vxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"vyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"vzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{ "tc", ",", "twc", ",", "twh", ",", "tvc", ",", "tpo", ",", "tpu"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tw", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}, {3.5718402591869545`*^9, 3.5718402726497784`*^9}, 3.572328636723397*^9, {3.572328748419593*^9, 3.57232875246*^9}, { 3.5725921859362335`*^9, 3.5725921932682457`*^9}, {3.5725923978158054`*^9, 3.5725924023086133`*^9}, 3.5725926630786715`*^9, {3.5726167873570023`*^9, 3.57261679757502*^9}, 3.572620232450739*^9, {3.5726252144466896`*^9, 3.57262521482109*^9}, {3.582890410109203*^9, 3.582890473351714*^9}, { 3.583158583598678*^9, 3.583158586905884*^9}}], Cell[BoxData["73"], "Output", CellChangeTimes->{ 3.58331648895818*^9, {3.5833165560382977`*^9, 3.583316636175639*^9}, 3.5833166720557013`*^9, {3.583316708871766*^9, 3.5833168287735767`*^9}, 3.5833170196243124`*^9, 3.583317103271659*^9, {3.5833171386837215`*^9, 3.583317180819395*^9}, 3.583317481728324*^9, 3.5833180685065527`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dw", "]"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}, {3.5720164790812473`*^9, 3.572016508424899*^9}, {3.57235540487335*^9, 3.572355408040156*^9}, { 3.572356807768214*^9, 3.5723568154122276`*^9}, {3.572621722359356*^9, 3.572621725962962*^9}}], Cell[BoxData["73"], "Output", CellChangeTimes->{ 3.58331648898938*^9, {3.583316556069498*^9, 3.5833166362068386`*^9}, 3.5833166720869017`*^9, {3.5833167089029665`*^9, 3.5833168288515773`*^9}, 3.583317019655512*^9, 3.5833171033028593`*^9, {3.5833171387617216`*^9, 3.5833171808505955`*^9}, 3.5833174817595243`*^9, 3.583318068584553*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tv", "]"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}, {3.57184030784344*^9, 3.5718403245666695`*^9}, {3.5723553440956435`*^9, 3.5723553601792717`*^9}, {3.5723567913257856`*^9, 3.572356801543803*^9}, { 3.5723587125159597`*^9, 3.572358735884801*^9}, {3.5726205042656164`*^9, 3.5726205078692226`*^9}, {3.5726209578956137`*^9, 3.5726209632776227`*^9}, {3.5726266468256054`*^9, 3.5726266628780336`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.3489185441420002`", "2.336086840104`", "3.038172961432`"}, { RowBox[{"-", "1.3489185441420002`"}], "2.336086840104`", "3.038172961432`"}, { RowBox[{"-", "2.698092201294`"}], "0.`", "3.039338922374`"}, { RowBox[{"-", "1.3489185441420002`"}], RowBox[{"-", "2.336086840104`"}], "3.038172961432`"}, {"1.3489185441420002`", RowBox[{"-", "2.336086840104`"}], "3.038172961432`"}, {"2.698090311568`", "0.`", RowBox[{"-", "3.039338922374`"}]}, {"1.3489185441420002`", "2.336084950378`", RowBox[{"-", "3.038172961432`"}]}, { RowBox[{"-", "1.3489185441420002`"}], "2.336084950378`", RowBox[{"-", "3.038172961432`"}]}, { RowBox[{"-", "2.698090311568`"}], "0.`", RowBox[{"-", "3.039338922374`"}]}, { RowBox[{"-", "1.3489185441420002`"}], RowBox[{"-", "2.336084950378`"}], RowBox[{"-", "3.038172961432`"}]}, {"1.3489185441420002`", RowBox[{"-", "2.336084950378`"}], RowBox[{"-", "3.038172961432`"}]}, {"2.698092201294`", "0.`", "3.039338922374`"}, {"0.`", "0.`", "0.`"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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.3901254447999998`", "4.140523836546`", "2.937397653304`"}, { RowBox[{"-", "2.3901254447999998`"}], "4.140523836546`", "2.937397653304`"}, { RowBox[{"-", "4.781906289576001`"}], "0.`", "2.938686446436`"}, { RowBox[{"-", "2.3901254447999998`"}], RowBox[{"-", "4.140523836546`"}], "2.937397653304`"}, {"2.3901254447999998`", RowBox[{"-", "4.140523836546`"}], "2.937397653304`"}, {"4.78190439985`", "0.`", RowBox[{"-", "2.938686446436`"}]}, {"2.3901254447999998`", "4.14052194682`", RowBox[{"-", "2.93739954303`"}]}, { RowBox[{"-", "2.3901254447999998`"}], "4.14052194682`", RowBox[{"-", "2.937397653304`"}]}, { RowBox[{"-", "4.78190439985`"}], "0.`", RowBox[{"-", "2.938686446436`"}]}, { RowBox[{"-", "2.3901254447999998`"}], RowBox[{"-", "4.14052194682`"}], RowBox[{"-", "2.93739954303`"}]}, {"2.3901254447999998`", RowBox[{"-", "4.14052194682`"}], RowBox[{"-", "2.93739954303`"}]}, {"4.781906289576001`", "0.`", "2.938686446436`"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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.58331648900498*^9, {3.5833165560850983`*^9, 3.583316636222439*^9}, 3.583316672102502*^9, {3.5833167089185667`*^9, 3.583316828867177*^9}, 3.583317019671112*^9, 3.583317103365259*^9, {3.5833171387773213`*^9, 3.5833171808661957`*^9}, 3.583317481806324*^9, 3.583318068600153*^9}], Cell[BoxData["73"], "Output", CellChangeTimes->{ 3.58331648900498*^9, {3.5833165560850983`*^9, 3.583316636222439*^9}, 3.583316672102502*^9, {3.5833167089185667`*^9, 3.583316828867177*^9}, 3.583317019671112*^9, 3.583317103365259*^9, {3.5833171387773213`*^9, 3.5833171808661957`*^9}, 3.583317481806324*^9, 3.5833180686157527`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "bh"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"lw", "=", RowBox[{"Length", "[", "ow", "]"}]}], "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"lc", "=", RowBox[{"Length", "[", "cnv", "]"}]}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, {3.5721935303764954`*^9, 3.572193534214102*^9}, { 3.5726206642250977`*^9, 3.5726206651142993`*^9}, {3.572620782223705*^9, 3.572620782738506*^9}, {3.572620924963956*^9, 3.5726209465699935`*^9}, { 3.5828868523460503`*^9, 3.582886867836878*^9}, {3.5828888755189075`*^9, 3.5828889644390635`*^9}, {3.582888998197523*^9, 3.582889018243558*^9}, { 3.582889462532338*^9, 3.5828894640143414`*^9}, {3.582997171940416*^9, 3.5829971744676204`*^9}, {3.5829974047552247`*^9, 3.582997405597626*^9}, { 3.582997495828185*^9, 3.5829974969201865`*^9}, {3.583032723413297*^9, 3.5830327243336987`*^9}, {3.5831585496062183`*^9, 3.583158560916238*^9}, 3.583162671782963*^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.`"}], ",", "0.`", ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5833164890205803`*^9, {3.583316556100698*^9, 3.583316636238039*^9}, 3.583316672118102*^9, {3.5833167089341664`*^9, 3.583316828882777*^9}, 3.5833170196867123`*^9, 3.5833171033808594`*^9, {3.5833171387929215`*^9, 3.5833171808817954`*^9}, 3.583317481821924*^9, 3.5833180686157527`*^9}], Cell[BoxData["73"], "Output", CellChangeTimes->{ 3.5833164890205803`*^9, {3.583316556100698*^9, 3.583316636238039*^9}, 3.583316672118102*^9, {3.5833167089341664`*^9, 3.583316828882777*^9}, 3.5833170196867123`*^9, 3.5833171033808594`*^9, {3.5833171387929215`*^9, 3.5833171808817954`*^9}, 3.583317481821924*^9, 3.5833180686157527`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "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.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5833164890205803`*^9, {3.583316556100698*^9, 3.583316636238039*^9}, 3.583316672118102*^9, {3.5833167089341664`*^9, 3.583316828882777*^9}, 3.5833170196867123`*^9, 3.5833171033808594`*^9, {3.5833171387929215`*^9, 3.5833171808817954`*^9}, 3.583317481821924*^9, 3.583318068631353*^9}], Cell[BoxData["73"], "Output", CellChangeTimes->{ 3.5833164890205803`*^9, {3.583316556100698*^9, 3.583316636238039*^9}, 3.583316672118102*^9, {3.5833167089341664`*^9, 3.583316828882777*^9}, 3.5833170196867123`*^9, 3.5833171033808594`*^9, {3.5833171387929215`*^9, 3.5833171808817954`*^9}, 3.583317481821924*^9, 3.583318068631353*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ "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.`", ",", "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.`"}], "}"}]], "Input", CellChangeTimes->{{3.5831626550441337`*^9, 3.583162655090934*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "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.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5833164890361805`*^9, {3.5833165561162977`*^9, 3.5833166362536387`*^9}, 3.583316672133702*^9, {3.5833167089653664`*^9, 3.5833168288983774`*^9}, 3.5833170197023125`*^9, 3.583317103396459*^9, {3.5833171388085213`*^9, 3.583317180897395*^9}, 3.5833174818531237`*^9, 3.583318068631353*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"echarg", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "lw"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"pcharg", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"cnv", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "lc"}], "}"}]}], "]"}]}]}], "Input"], Cell[BoxData[ RowBox[{"-", "90.`"}]], "Output", CellChangeTimes->{ 3.5833164890517807`*^9, {3.583316556131898*^9, 3.5833166362692385`*^9}, 3.583316672149302*^9, {3.5833167089653664`*^9, 3.583316828913977*^9}, 3.5833170197179127`*^9, 3.5833171034120593`*^9, {3.5833171388241215`*^9, 3.5833171809129953`*^9}, 3.5833174818531237`*^9, 3.5833180686469526`*^9}], Cell[BoxData["90.`"], "Output", CellChangeTimes->{ 3.5833164890517807`*^9, {3.583316556131898*^9, 3.5833166362692385`*^9}, 3.583316672149302*^9, {3.5833167089653664`*^9, 3.583316828913977*^9}, 3.5833170197179127`*^9, 3.5833171034120593`*^9, {3.5833171388241215`*^9, 3.5833171809129953`*^9}, 3.5833174818531237`*^9, 3.5833180686469526`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "j"}]}], ")"}], ",", RowBox[{"1", "/", "sq"}], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dcw", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, 3.5721935303764954`*^9, {3.5721935661785583`*^9, 3.5721935879405966`*^9}, {3.5721936909943776`*^9, 3.572193697218788*^9}, { 3.5721937395728626`*^9, 3.57219374339487*^9}, {3.5721937963725624`*^9, 3.5721938223154078`*^9}, {3.572193859786674*^9, 3.572193861533877*^9}, 3.5723554650270557`*^9, {3.5723567325136824`*^9, 3.5723567701565485`*^9}, 3.572621740954589*^9}], Cell[BoxData["73"], "Output", CellChangeTimes->{ 3.5833164890985804`*^9, {3.5833165561630983`*^9, 3.583316636316039*^9}, 3.583316672196102*^9, {3.5833167090121665`*^9, 3.5833168289607773`*^9}, 3.5833170197647123`*^9, 3.5833171034588594`*^9, {3.5833171388709216`*^9, 3.583317180959796*^9}, 3.583317481915524*^9, 3.583318068693753*^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["873.8831682469284`"], "Output", CellChangeTimes->{ 3.5833164891453805`*^9, {3.5833165561942983`*^9, 3.583316636331639*^9}, 3.5833166722117023`*^9, {3.583316709043367*^9, 3.5833168289763775`*^9}, 3.5833170198115125`*^9, 3.5833171034744596`*^9, {3.5833171389021215`*^9, 3.5833171809753957`*^9}, 3.583317481931124*^9, 3.5833180687249527`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{"12", "*", RowBox[{"0.25", "/", RowBox[{"(", RowBox[{"rpo", "+", "rpi"}], ")"}]}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"MC", " ", "clouds", " ", "with", " ", "0.6", " ", "electron"}], ",", " ", "approximated"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{"6", "*", RowBox[{"0.25", "/", RowBox[{"(", RowBox[{"2", "*", RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"11", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", "11", "]"}], "]"}]}], ")"}]}], ")"}]}]}]}]}], ";"}], "\[IndentingNewLine]", "Vee", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.571840548723463*^9, 3.571840579798718*^9}, { 3.5718477253093*^9, 3.5718477304573092`*^9}, {3.572620810756155*^9, 3.5726208298349886`*^9}, {3.5726208600522413`*^9, 3.5726208972739067`*^9}, { 3.57279778559276*^9, 3.57279781975682*^9}, {3.5829923292782793`*^9, 3.5829923949231944`*^9}, {3.5829942645373087`*^9, 3.5829943339262304`*^9}, { 3.58299440746476*^9, 3.5829945319685783`*^9}, {3.5831586084027214`*^9, 3.583158625328751*^9}}], Cell[BoxData["872.2557099822255`"], "Output", CellChangeTimes->{ 3.58331648916098*^9, {3.5833165561942983`*^9, 3.583316636347239*^9}, 3.583316672227302*^9, {3.583316709043367*^9, 3.583316828991977*^9}, 3.583317019827112*^9, 3.58331710349006*^9, {3.5833171389021215`*^9, 3.5833171809909954`*^9}, 3.583317481946724*^9, 3.5833180687249527`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"sc", "=", "0.381"}], ";", " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", "bc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sw", "=", "0.381"}], ";", " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.572795632149378*^9, 3.5727956355657835`*^9}, { 3.5728738759937162`*^9, 3.572873909440175*^9}, {3.5728752341233015`*^9, 3.572875237976508*^9}, {3.5728755831427145`*^9, 3.572875644357222*^9}, { 3.572875681594487*^9, 3.5728756838096914`*^9}, 3.5829467362906075`*^9, { 3.583316545352279*^9, 3.583316630247628*^9}, {3.5833166610108824`*^9, 3.5833167290426016`*^9}}], Cell[BoxData["958.0506073221987`"], "Output", CellChangeTimes->{ 3.5833164891765804`*^9, {3.583316556209898*^9, 3.583316636347239*^9}, 3.583316672242902*^9, {3.5833167090589666`*^9, 3.5833168290075774`*^9}, 3.5833170198427124`*^9, 3.5833171035056596`*^9, {3.5833171389177217`*^9, 3.5833171809909954`*^9}, 3.583317481962324*^9, 3.583318068740553*^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[{"-", "1814.4353799968267`"}]], "Output", CellChangeTimes->{ 3.5833164891765804`*^9, {3.583316556225498*^9, 3.5833166363628387`*^9}, 3.583316672242902*^9, {3.583316709074567*^9, 3.583316829023177*^9}, 3.5833170198427124`*^9, 3.5833171035056596`*^9, {3.583317138933322*^9, 3.5833171810065956`*^9}, 3.5833174819779243`*^9, 3.583318068756153*^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[{"2.841", "*", 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, { 3.5831678340705996`*^9, 3.583167923099956*^9}, {3.5831681983936396`*^9, 3.5831682257092876`*^9}, {3.583317174438984*^9, 3.5833171752813854`*^9}}], Cell[BoxData[ RowBox[{"-", "2640.0371760395337`"}]], "Output", CellChangeTimes->{ 3.5833164891921806`*^9, {3.5833165562410984`*^9, 3.583316636378439*^9}, 3.583316672258502*^9, {3.583316709090167*^9, 3.5833168290387774`*^9}, 3.5833170198583126`*^9, 3.5833171035212593`*^9, {3.5833171389489217`*^9, 3.583317181022196*^9}, 3.5833174819935246`*^9, 3.5833180687717533`*^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[{"-", "2666.6481284664396`"}]], "Output", CellChangeTimes->{ 3.5833164892077804`*^9, {3.5833165562410984`*^9, 3.583316636394039*^9}, 3.583316672274102*^9, {3.583316709090167*^9, 3.5833168290387774`*^9}, 3.583317019873913*^9, 3.5833171035368595`*^9, {3.583317138964522*^9, 3.5833171810377955`*^9}, 3.5833174820091248`*^9, 3.5833180687873535`*^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", RowBox[{"(*", RowBox[{ RowBox[{"=", "Vn"}], ";"}], "*)"}]}]}]], "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, {3.5829962299483614`*^9, 3.5829962395423784`*^9}, {3.583162798813986*^9, 3.583162815256415*^9}}], Cell[BoxData["759.7987883879644`"], "Output", CellChangeTimes->{ 3.5833164892233806`*^9, {3.5833165562566986`*^9, 3.583316636394039*^9}, 3.583316672289702*^9, {3.583316709105767*^9, 3.5833168290543776`*^9}, 3.5833170198895125`*^9, 3.5833171035524597`*^9, {3.5833171389801216`*^9, 3.5833171810533953`*^9}, 3.5833174820091248`*^9, 3.5833180687873535`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ratio", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", RowBox[{"2", "*", "Vnn"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"Vee", "-", "Vnn"}], ")"}]}]}]], "Input"], Cell[BoxData["5.7858261167884635`"], "Output", CellChangeTimes->{ 3.5833164892233806`*^9, {3.5833165562722983`*^9, 3.5833166364096394`*^9}, 3.583316672289702*^9, {3.5833167091213665`*^9, 3.5833168290699778`*^9}, 3.5833170198895125`*^9, 3.5833171035524597`*^9, {3.5833171389801216`*^9, 3.5833171810533953`*^9}, 3.5833174820247245`*^9, 3.5833180688029532`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Data", " ", "for", " ", RowBox[{"Cr", "[", "Ar", "]"}]}], "+", RowBox[{"6", " ", "from", " ", RowBox[{"B3LYP", "/", "6"}]}], "-", RowBox[{"31", "G", RowBox[{"(", "d", ")"}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.582994567521041*^9, 3.5829946511059875`*^9}, { 3.583168262915353*^9, 3.583168296159011*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Vee", "+", "311.9150123"}], "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", RowBox[{"Vne", "-", "2376.7677445"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tpi", " ", "=", " ", RowBox[{"1.8", "*", "nj", "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"rpi", "^", "2"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Tmc", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"-", "1.2"}], "*", RowBox[{"1.125", "/", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "^", "2"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "13", ",", "24"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", RowBox[{ "Ttot", "+", "Tpi", "+", "Tmc", "+", "1034.473662"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", RowBox[{"(", RowBox[{"Ttot", "-", "1034.473662"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot", "-", RowBox[{"2", "*", "1034.473662"}]}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 3.57184067742369*^9, {3.5829489399348783`*^9, 3.5829490963407526`*^9}, { 3.582949130645213*^9, 3.5829491318308153`*^9}, {3.582991866191466*^9, 3.5829919704620485`*^9}, {3.582992007605714*^9, 3.5829920103045187`*^9}, { 3.5831586437055836`*^9, 3.58315864755879*^9}, {3.583162410576104*^9, 3.583162489793043*^9}, {3.5831680502713795`*^9, 3.5831680708322153`*^9}, { 3.583168128131116*^9, 3.5831681688627872`*^9}, {3.58331675640505*^9, 3.5833168181967583`*^9}, {3.5833171290897045`*^9, 3.5833171529577465`*^9}}], Cell[BoxData["1269.9656196221988`"], "Output", CellChangeTimes->{ 3.5833164892389803`*^9, {3.583316556287898*^9, 3.583316636425239*^9}, 3.5833166723053017`*^9, {3.5833167091369667`*^9, 3.5833168290855775`*^9}, 3.5833170199051127`*^9, 3.58331710356806*^9, {3.583317138995722*^9, 3.5833171810689955`*^9}, 3.583317482040324*^9, 3.583318068818553*^9}], Cell[BoxData["759.7987883879644`"], "Output", CellChangeTimes->{ 3.5833164892389803`*^9, {3.583316556287898*^9, 3.583316636425239*^9}, 3.5833166723053017`*^9, {3.5833167091369667`*^9, 3.5833168290855775`*^9}, 3.5833170199051127`*^9, 3.58331710356806*^9, {3.583317138995722*^9, 3.5833171810689955`*^9}, 3.583317482040324*^9, 3.583318068818553*^9}], Cell[BoxData[ RowBox[{"-", "5043.41587296644`"}]], "Output", CellChangeTimes->{ 3.5833164892389803`*^9, {3.583316556287898*^9, 3.583316636425239*^9}, 3.5833166723053017`*^9, {3.5833167091369667`*^9, 3.5833168290855775`*^9}, 3.5833170199051127`*^9, 3.58331710356806*^9, {3.583317138995722*^9, 3.5833171810689955`*^9}, 3.583317482040324*^9, 3.583318068818553*^9}], Cell[BoxData["12.397959183673473`"], "Output", CellChangeTimes->{ 3.5833164892389803`*^9, {3.583316556287898*^9, 3.583316636425239*^9}, 3.5833166723053017`*^9, {3.5833167091369667`*^9, 3.5833168290855775`*^9}, 3.5833170199051127`*^9, 3.58331710356806*^9, {3.583317138995722*^9, 3.5833171810689955`*^9}, 3.583317482040324*^9, 3.583318068834153*^9}], Cell[BoxData[ RowBox[{"-", "6.561267368983172`"}]], "Output", CellChangeTimes->{ 3.5833164892389803`*^9, {3.583316556287898*^9, 3.583316636425239*^9}, 3.5833166723053017`*^9, {3.5833167091369667`*^9, 3.5833168290855775`*^9}, 3.5833170199051127`*^9, 3.58331710356806*^9, {3.583317138995722*^9, 3.5833171810689955`*^9}, 3.583317482040324*^9, 3.583318068834153*^9}], Cell[BoxData[ RowBox[{"-", "948.7987327562766`"}]], "Output", CellChangeTimes->{ 3.5833164892389803`*^9, {3.583316556287898*^9, 3.583316636425239*^9}, 3.5833166723053017`*^9, {3.5833167091369667`*^9, 3.5833168290855775`*^9}, 3.5833170199051127`*^9, 3.58331710356806*^9, {3.583317138995722*^9, 3.5833171810689955`*^9}, 3.583317482040324*^9, 3.583318068834153*^9}], Cell[BoxData["1508.8645354333132`"], "Output", CellChangeTimes->{ 3.5833164892389803`*^9, {3.583316556287898*^9, 3.583316636425239*^9}, 3.5833166723053017`*^9, {3.5833167091369667`*^9, 3.5833168290855775`*^9}, 3.5833170199051127`*^9, 3.58331710356806*^9, {3.583317138995722*^9, 3.5833171810689955`*^9}, 3.583317482040324*^9, 3.583318068834153*^9}], Cell[BoxData["2.0000358056838814`"], "Output", CellChangeTimes->{ 3.5833164892389803`*^9, {3.583316556287898*^9, 3.583316636425239*^9}, 3.5833166723053017`*^9, {3.5833167091369667`*^9, 3.5833168290855775`*^9}, 3.5833170199051127`*^9, 3.58331710356806*^9, {3.583317138995722*^9, 3.5833171810689955`*^9}, 3.583317482040324*^9, 3.583318068834153*^9}], Cell[BoxData[ RowBox[{"-", "1508.8815213229636`"}]], "Output", CellChangeTimes->{ 3.5833164892389803`*^9, {3.583316556287898*^9, 3.583316636425239*^9}, 3.5833166723053017`*^9, {3.5833167091369667`*^9, 3.5833168290855775`*^9}, 3.5833170199051127`*^9, 3.58331710356806*^9, {3.583317138995722*^9, 3.5833171810689955`*^9}, 3.583317482040324*^9, 3.583318068834153*^9}] }, Open ]] }, WindowSize->{1014, 829}, WindowMargins->{{428, Automatic}, {Automatic, 27}}, 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, 2088, 38, 72, "Input"], Cell[CellGroupData[{ Cell[2670, 62, 4541, 114, 272, "Input"], Cell[7214, 178, 3121, 79, 401, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10372, 262, 955, 14, 31, "Input"], Cell[11330, 278, 344, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11711, 288, 2892, 82, 212, "Input"], Cell[14606, 372, 691, 12, 31, "Output"], Cell[15300, 386, 362, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15699, 396, 1560, 29, 31, "Input"], Cell[17262, 427, 846, 13, 31, "Output"] }, Open ]], Cell[18123, 443, 1419, 23, 31, "Input"], Cell[19545, 468, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[21162, 501, 1234, 18, 31, "Input"], Cell[22399, 521, 2064, 57, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24500, 583, 697, 14, 31, "Input"], Cell[25200, 599, 657, 11, 31, "Output"] }, Open ]], Cell[25872, 613, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[26805, 641, 6047, 127, 172, "Input"], Cell[32855, 770, 755, 13, 52, "Output"], Cell[33613, 785, 755, 13, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34405, 803, 519, 12, 31, "Input"], Cell[34927, 817, 842, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35806, 835, 1658, 42, 92, "Input"], Cell[37467, 879, 697, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38201, 896, 827, 23, 92, "Input"], Cell[39031, 921, 344, 5, 31, "Output"], Cell[39378, 928, 344, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39759, 938, 2049, 39, 92, "Input"], Cell[41811, 979, 365, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42213, 989, 5203, 126, 232, "Input"], Cell[47419, 1117, 5866, 101, 366, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53322, 1223, 2100, 42, 72, "Input"], Cell[55425, 1267, 15918, 235, 416, "Output"] }, Open ]], Cell[71358, 1505, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[72714, 1545, 4887, 85, 72, "Input"], Cell[77604, 1632, 5940, 91, 416, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83581, 1728, 2570, 53, 132, "Input"], Cell[86154, 1783, 348, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[86539, 1793, 2598, 53, 92, "Input"], Cell[89140, 1848, 493, 9, 31, "Output"] }, Open ]], Cell[89648, 1860, 9726, 201, 232, "Input"], Cell[CellGroupData[{ Cell[99399, 2065, 1947, 43, 72, "Input"], Cell[101349, 2110, 353, 6, 31, "Output"], Cell[101705, 2118, 756, 14, 21, "Message"], Cell[102464, 2134, 484, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102985, 2149, 570, 14, 52, "Input"], Cell[103558, 2165, 720, 13, 52, "Output"], Cell[104281, 2180, 412, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[104730, 2192, 2767, 54, 72, "Input"], Cell[107500, 2248, 721, 13, 52, "Output"], Cell[108224, 2263, 418, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[108679, 2275, 3698, 81, 132, "Input"], Cell[112380, 2358, 789, 13, 52, "Output"] }, Open ]], Cell[113184, 2374, 2072, 49, 112, "Input"], Cell[115259, 2425, 561, 12, 52, "Input"], Cell[115823, 2439, 2148, 49, 92, "Input"], Cell[117974, 2490, 2452, 56, 112, "Input"], Cell[120429, 2548, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[122213, 2593, 1117, 25, 31, "Input"], Cell[123333, 2620, 358, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[123728, 2630, 1020, 27, 31, "Input"], Cell[124751, 2659, 364, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[125152, 2669, 502, 10, 31, "Input"], Cell[125657, 2681, 365, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[126059, 2691, 823, 23, 31, "Input"], Cell[126885, 2716, 369, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[127291, 2726, 204, 4, 31, "Input"], Cell[127498, 2732, 366, 5, 31, "Output"] }, Open ]], Cell[127879, 2740, 1975, 34, 72, "Input"], Cell[CellGroupData[{ Cell[129879, 2778, 4537, 108, 212, "Input"], Cell[134419, 2888, 494, 9, 31, "Output"], Cell[134916, 2899, 340, 5, 31, "Output"], Cell[135259, 2906, 3246, 101, 401, "Output"] }, Open ]], Cell[138520, 3010, 8797, 140, 152, "Input"], Cell[147320, 3152, 12736, 323, 1352, "Input"], Cell[CellGroupData[{ Cell[160081, 3479, 1254, 24, 31, "Input"], Cell[161338, 3505, 2896, 79, 206, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[164271, 3589, 564, 15, 31, "Input"], Cell[164838, 3606, 2945, 80, 220, "Output"] }, Open ]], Cell[167798, 3689, 3127, 59, 92, "Input"], Cell[CellGroupData[{ Cell[170950, 3752, 939, 17, 72, "Input"], Cell[171892, 3771, 3536, 80, 152, "Output"], Cell[175431, 3853, 348, 5, 31, "Output"], Cell[175782, 3860, 348, 5, 31, "Output"] }, Open ]], Cell[176145, 3868, 10382, 236, 192, "Input"], Cell[186530, 4106, 6732, 106, 92, "Input"], Cell[193265, 4214, 11848, 271, 252, "Input"], Cell[205116, 4487, 10215, 234, 192, "Input"], Cell[215334, 4723, 5925, 93, 31, "Input"], Cell[221262, 4818, 14119, 278, 172, "Input"], Cell[CellGroupData[{ Cell[235406, 5100, 15202, 286, 292, "Input"], Cell[250611, 5388, 19291, 394, 733, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[269939, 5787, 8898, 125, 52, "Input"], Cell[278840, 5914, 9996, 171, 366, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[288873, 6090, 618, 14, 72, "Input"], Cell[289494, 6106, 11647, 203, 380, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[301178, 6314, 644, 15, 72, "Input"], Cell[301825, 6331, 11729, 208, 366, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[313591, 6544, 615, 14, 72, "Input"], Cell[314209, 6560, 11421, 207, 373, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[325667, 6772, 966, 20, 72, "Input"], Cell[326636, 6794, 133713, 2245, 375, 13961, 280, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[460386, 9044, 5030, 116, 172, "Input"], Cell[465419, 9162, 345, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[465801, 9172, 2499, 47, 92, "Input"], Cell[468303, 9221, 349, 5, 31, "Output"] }, Open ]], Cell[468667, 9229, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[470533, 9262, 4159, 89, 172, "Input"], Cell[474695, 9353, 4166, 127, 1121, "Output"], Cell[478864, 9482, 343, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[479244, 9492, 5777, 113, 132, "Input"], Cell[485024, 9607, 2652, 79, 92, "Output"], Cell[487679, 9688, 348, 5, 31, "Output"], Cell[488030, 9695, 1297, 20, 72, "Output"], Cell[489330, 9717, 346, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[489713, 9727, 1047, 16, 92, "Input"], Cell[490763, 9745, 1301, 20, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[492101, 9770, 462, 15, 52, "Input"], Cell[492566, 9787, 371, 6, 31, "Output"], Cell[492940, 9795, 354, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[493331, 9805, 4670, 80, 92, "Input"], Cell[498004, 9887, 348, 5, 31, "Output"] }, Open ]], Cell[498367, 9895, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[500255, 9926, 2963, 56, 112, "Input"], Cell[503221, 9984, 368, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[503626, 9994, 1647, 41, 132, "Input"], Cell[505276, 10037, 356, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[505669, 10047, 2887, 59, 112, "Input"], Cell[508559, 10108, 364, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[508960, 10118, 499, 15, 52, "Input"], Cell[509462, 10135, 380, 6, 31, "Output"] }, Open ]], Cell[509857, 10144, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[511263, 10169, 1867, 34, 52, "Input"], Cell[513133, 10205, 384, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[513554, 10216, 1415, 43, 72, "Input"], Cell[514972, 10261, 382, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[515391, 10272, 2723, 54, 112, "Input"], Cell[518117, 10328, 368, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[518522, 10338, 230, 8, 31, "Input"], Cell[518755, 10348, 373, 5, 31, "Output"] }, Open ]], Cell[519143, 10356, 398, 10, 31, "Input"], Cell[CellGroupData[{ Cell[519566, 10370, 2973, 62, 212, "Input"], Cell[522542, 10434, 362, 5, 31, "Output"], Cell[522907, 10441, 361, 5, 31, "Output"], Cell[523271, 10448, 377, 6, 31, "Output"], Cell[523651, 10456, 362, 5, 31, "Output"], Cell[524016, 10463, 378, 6, 31, "Output"], Cell[524397, 10471, 378, 6, 31, "Output"], Cell[524778, 10479, 362, 5, 31, "Output"], Cell[525143, 10486, 362, 5, 31, "Output"], Cell[525508, 10493, 379, 6, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)