(* 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[ 516799, 10533] NotebookOptionsPosition[ 508263, 10262] NotebookOutlinePosition[ 508765, 10282] CellTagsIndexPosition[ 508722, 10279] 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.583314672381789*^9, 3.583314688184617*^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"}], "\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.583314648716548*^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.5833147179338694`*^9, 3.5833149443838673`*^9, 3.583318556101428*^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.5833147179494696`*^9, 3.5833149443994675`*^9, 3.583318556117028*^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]", "\"\\""}], ",", "24.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, {3.583314933963049*^9, 3.5833149355854516`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "24.`", ",", "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.58331471796507*^9, 3.583314944415067*^9, 3.583318556132628*^9}], Cell[BoxData["1117.2400318742984`"], "Output", CellChangeTimes->{3.58331471796507*^9, 3.583314944415067*^9, 3.5833185561482277`*^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.5833147179962697`*^9, 3.583314944430667*^9, 3.5833185561482277`*^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.5833147180118694`*^9, 3.5833149444618673`*^9, 3.583318556163828*^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.5833147180274696`*^9, 3.5833149444774675`*^9, 3.583318556179428*^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.6655"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", 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.602"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", 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.5832087419216723`*^9, 3.5832087427172737`*^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.6655`", ",", "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.5833147180274696`*^9, 3.5833149444930677`*^9, 3.583318556179428*^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.602`", ",", "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.5833147180274696`*^9, 3.5833149444930677`*^9, 3.5833185561950283`*^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.5833147180586696`*^9, 3.5833149445086675`*^9, 3.5833185561950283`*^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.5833147180586696`*^9, 3.583314944524267*^9, 3.583318556210628*^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.5833147180898695`*^9, 3.5833149445554676`*^9, 3.583318556210628*^9}], Cell[BoxData["12"], "Output", CellChangeTimes->{3.5833147180898695`*^9, 3.5833149445554676`*^9, 3.5833185562262278`*^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.5833147283546877`*^9, 3.583314944571068*^9, 3.583318556241828*^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.5832296378435326`*^9, 3.583229638997935*^9}, {3.5832298329530754`*^9, 3.583229833639477*^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.6655]}, {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.5833147287602882`*^9, 3.5833149446178675`*^9, 3.5833185562730284`*^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.5833147287914886`*^9, 3.5833149446802673`*^9, 3.583318556288628*^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.5833147288538885`*^9, 3.583314944727068*^9, 3.583318556335428*^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.5833147288694887`*^9, 3.583314944742668*^9, 3.5833185563510284`*^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.583314728900689*^9, 3.583314944742668*^9, 3.5833185563666286`*^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.583314728916289*^9, 3.5833149447582684`*^9, 3.5833185563822284`*^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.583314729041089*^9, 3.583314944836268*^9, 3.5833185564602284`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Mean", "[", RowBox[{"{", "}"}], "]"}], "\[PlusMinus]", RowBox[{"StandardDeviation", "[", RowBox[{"{", "}"}], "]"}]}]], "Output", CellChangeTimes->{3.583314728916289*^9, 3.5833149447582684`*^9, 3.5833185564602284`*^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.5833147290566893`*^9, 3.5833149448518677`*^9, 3.583318556475828*^9}], Cell[BoxData[ RowBox[{"2.6977432726699004`", "\[PlusMinus]", "0.00006929616615205752`"}]], "Output", CellChangeTimes->{3.5833147290566893`*^9, 3.5833149448518677`*^9, 3.583318556475828*^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.5833147290878887`*^9, 3.583314944867468*^9, 3.5833185564914284`*^9}], Cell[BoxData[ RowBox[{"2.0858996704930743`", "\[PlusMinus]", "0.00025395866656712375`"}]], "Output", CellChangeTimes->{3.5833147290878887`*^9, 3.583314944867468*^9, 3.5833185564914284`*^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.602`", ",", "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.583314729103489*^9, 3.583314944883068*^9, 3.5833185565070286`*^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.08607103295231`"], "Output", CellChangeTimes->{3.583314729228289*^9, 3.5833149448986683`*^9, 3.5833185565382285`*^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["419.1631406688141`"], "Output", CellChangeTimes->{3.583314729259489*^9, 3.583314944914268*^9, 3.5833185565538287`*^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["469.2492117017664`"], "Output", CellChangeTimes->{3.5833147292750893`*^9, 3.583314944929868*^9, 3.5833185565538287`*^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.5833147293062897`*^9, 3.583314944929868*^9, 3.5833185565694284`*^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.10352696810552`"], "Output", CellChangeTimes->{3.58331472932189*^9, 3.583314944945468*^9, 3.5833185565850286`*^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.5833147293530893`*^9, 3.583314944961068*^9, 3.583318556600629*^9}], Cell[BoxData["12"], "Output", CellChangeTimes->{3.5833147293530893`*^9, 3.583314944961068*^9, 3.583318556600629*^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.5833147293530893`*^9, 3.583314944961068*^9, 3.583318556600629*^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.5833147294778895`*^9, 3.5833149450078683`*^9, 3.5833185566474285`*^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.5833147294934897`*^9, 3.5833149450234685`*^9, 3.5833185566630287`*^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.6026136291854793`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "2", ",", "1.6026136291854793`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "3", ",", "1.60322299399782`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "4", ",", "1.6026136291854793`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "5", ",", "1.6026136291854793`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "6", ",", "1.6032223667253251`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "7", ",", "1.6026130859118044`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "8", ",", "1.6026130859118044`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "9", ",", "1.6032223667253251`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "10", ",", "1.6026130859118044`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "11", ",", "1.6026130859118044`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "12", ",", "1.60322299399782`"}], "}"}], ",", 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.58331472954029*^9, 3.5833149450546684`*^9, 3.583318556694229*^9}], Cell[BoxData["36"], "Output", CellChangeTimes->{3.58331472954029*^9, 3.5833149450546684`*^9, 3.583318556694229*^9}], Cell[BoxData["24"], "Output", CellChangeTimes->{3.58331472954029*^9, 3.5833149450546684`*^9, 3.583318556694229*^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.583229884479966*^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, { 3.583229562823001*^9, 3.583229578048628*^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.6655]}, {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.7319462097061661, 1.2676005646035347`, 1.6485644690772479`}, 1.6026136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7319462097061661, 1.2676005646035347`, 1.6485644690772479`}, 1.6026136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-1.4639963672058196`, 0., 1.6491582974550596`}, 1.60322299399782]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7319462097061661, -1.2676005646035347`, 1.6485644690772479`}, 1.6026136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{0.7319462097061661, -1.2676005646035347`, 1.6485644690772479`}, 1.6026136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{1.4639953773159349`, 0., -1.6491583374264633`}, 1.6032223667253251`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{0.7319462250798838, 1.2675995658304964`, -1.6485645037035146`}, 1.6026130859118044`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7319462250798838, 1.2675995658304964`, -1.6485645037035146`}, 1.6026130859118044`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-1.4639953773159349`, 0., -1.6491583374264633`}, 1.6032223667253251`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7319462250798838, -1.2675995658304964`, \ -1.6485645037035146`}, 1.6026130859118044`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{ 0.7319462250798838, -1.2675995658304964`, -1.6485645037035146`}, 1.6026130859118044`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{1.4639963672058196`, 0., 1.6491582974550596`}, 1.60322299399782]}, {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, SphericalRegion->True]], "Output", CellChangeTimes->{3.5833147296494904`*^9, 3.5833149451326685`*^9, 3.583318556772229*^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.6655]}, {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.5833147297898903`*^9, 3.583314945163869*^9, 3.583318556803429*^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.6655]}, {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.58331472985229*^9, 3.5833149451950684`*^9, 3.583318556834629*^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.6655]}, {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.7319462097061661, 1.2676005646035347`, 1.6485644690772479`}, 1.6026136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7319462097061661, 1.2676005646035347`, 1.6485644690772479`}, 1.6026136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-1.4639963672058196`, 0., 1.6491582974550596`}, 1.60322299399782]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7319462097061661, -1.2676005646035347`, 1.6485644690772479`}, 1.6026136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{0.7319462097061661, -1.2676005646035347`, 1.6485644690772479`}, 1.6026136291854793`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{1.4639953773159349`, 0., -1.6491583374264633`}, 1.6032223667253251`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{0.7319462250798838, 1.2675995658304964`, -1.6485645037035146`}, 1.6026130859118044`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7319462250798838, 1.2675995658304964`, -1.6485645037035146`}, 1.6026130859118044`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-1.4639953773159349`, 0., -1.6491583374264633`}, 1.6032223667253251`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{-0.7319462250798838, -1.2675995658304964`, \ -1.6485645037035146`}, 1.6026130859118044`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{ 0.7319462250798838, -1.2675995658304964`, -1.6485645037035146`}, 1.6026130859118044`]}, {RGBColor[1., 0.4, 1.], Opacity[0.3], SphereBox[{1.4639963672058196`, 0., 1.6491582974550596`}, 1.60322299399782]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.58331472993029*^9, 3.583314945241869*^9, 3.5833185568658295`*^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.6655]}, {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.583314729977091*^9, 3.583314945273069*^9, 3.583318556897029*^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.6655]}, {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.5833147300238905`*^9, 3.583314945304269*^9, 3.5833185569438295`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJyUvQd8XNW19v28IxtII5W0e5OPmwohpNwUQhJCLyGBkJBGclNICCSEAKEa MMbgouZuWXKR1Xsv02c0kixblq3ee7fkJvduMHqftfc+o5EYdN+PH+vMzJmZ rbPX/u+11l57nfF9Dz/397/96+Hn/vHXh6+++5mHn/77P/767NV3PfUMT0X8 H+D//F3kasjzacA6TPP/6X/IQc6Ef75fPUTgwoUL6pnIEv3WhHpYgK6uLqSk pODRRx/F1q1bX9PvjqmHK9QX6+vrsXTpUixatAgTExPqG/JpPpq2RtTDQkxN Tam25JM7duzA2bNnYZvzdyIjI+X8q/qbg+rhsrB/h59aEPJlu92uGs3LyzNf 7p/nz15u3rO+efLkSdW4vF6sv97zLn9bPsIm3mPeltbj4uLUK2nFdOAV3UiX +TvSyNxreL9pwfqWNQKmJ6aF9ne5DNPKlerty9/RiNUh+UMv65Za51zL6tWr g9fyEfNXZOCsJkSGhoakWdNC0/zX8jGDU2gjNnNOOiVfkVeLdGsNIdcjb8v1 yKNczyfM16wuhDYlXSOK6rxpas/8F/apMK1FmKN83FLci7q13SEXZrUmQyzU /WeYphaEnBM65NULuqmd81/YZ803pXUBKbS1EJis1nbMc2H/Zb5WXFyMvr4+ 80l9zswL9ep53VRlyIXJNc+5sM/P01roXDGtVcxzYV8K09RlYfr4nG7KN8+s vSakPxZMl4cAJufl1bO6KXeYq7Ksx3Xma5YBCG0qdO6YppzzXNX1YZq6Igxd z+imyue3aV8P09p7wkyif+vWSue5sP+ep6nQSWSaKprf4H3bfDPU4L03TDef 1q0VzGP5bpgz/PLqfWEm0VO6qdz5J9GN87QWCphpLXseM/jDME0pM22Tj5gG Mua/nJvDWMHQy7E6+KRuLW0eK3hbGGPz/jA9+5duKnn+C7sjTGsfCDN7ntCt bZ9nTt89T1Ohs8c0tXX+C/txGCt4ZRiy/qlb2zzPhf00jLH5YJjZ87huatP8 VvD+eVoLnUCmtY3zXNjPwzT1oTB9NJHZ+nmm9YNhrOCHw8yev+um1sxvb341 T2uhjJnWVs1zYb8NY28+Egawx3RT0fPbm9/N01roPDKtRc5zYX8I09RHw/RR T1gsn//C/hSmtY+F6ebfdGtvzGMI/xLG3nxsTh/lc6ap1+afR4+Eae2qMIzp z+HVeQzhY2Ga+rg5J5+1GPurburl+S/s8TAm8aqQv2DNI9PaoncxiULsv8I0 9fEwfdSaNfHJu17YU2HsWGjoaXXzYd3as/NM8GfmaSqUMdPU0/Nf2HNhWvtk GMb+rFt7cp4Lu8VY5+59RynHUNM1ieK6IZQoGUbJbkotn+8aws72SfSMHUPP yFEcPnYWXwljtT4Z0in5O/I3zGX8c35zqj3jAnRPHEVN7yRKGoZR2jBs42HE hrL6EfrJsr0jKNtjpI6ym1JL2TWMshpK9ZC6uile3ZfDXN2nwqhcT1hjWsOH gzeb9w6fPMtLm0BJ4xBKm3h5TSNcd5Q1jSxAeeMItWhvGIGdV1rO67TzGstF eJ12XmP5LspOCq+zvJoSGETv0BF8Mcx1fjrMYP5RX+dj81iym42G1XX28Tqb eJ3NvM4WqqiFWiyXg715hGp28NrtFEejEhscvPb3w8Grd+zRIj2wm6u38+rt vHr7jmHYq3j1Fbz6wSOhKwHLP3x6DgJyZebiH5nf29xi3u6ZPMLrHuR1c0hb Rai2Vrl0PrkMDh4dLUbYGaeIDIJTDYKTHZFuODkIjr2mO+yGg7A42A1HDYUD YK8cwu7GfZg6cia4Pgr1c/8RxnBoX2HsR/hBuDUIyxns6t/HTgwFO2GTbsi4 Sg+MRMCpj+yNq0X3ZiFcTeyuS8ZFuvMeOOtDOiMdqZWODLMjQ3BUDKC3fwpX h3E91oo01Cz/j+7En+Z3ZLdZ/Th1BmXNfbz+IV49R75N+mFvE2Ta1IXz6Gwb ZTdGyZWrdYxfcvPobhk3MsaOjfFL8uwDcDXzdfMou2iEHZROyng52T0nu+fk ODl3sGuVA9hdP4b/b56uhfoI07U/zDM+d1jvSb9a+tmnQfaJ/WpX/WqXfrWP Uu/tYxyBtnH+BVfrPrjbKHy0qWcLeJyAhyKvPG379Okr1UfcreNa2HnVWelk 4+hMJwmjs3YYzpohOKsGUNcw9tkw/ftMGP5+r/v3u/mH7k719ntVF8tb+ti9 AXaPxIt0EJyOUcoYnErG2c32fdLNdnZHyaR0k8cIeDomKfuV2OQoh0ke+O6V 6tNaCROq5y4Z7maRMdVjVz2FPXbRi7h2DsJZ3Y+6xrHPhOmtpYFQx6q7aSLH 8KGIXmtcYbraa7pKUjukq7qbDumis2MfFebqmKBMqs65TbfcHQekUweoME/n AcpBeCmeLj4q4TmKelTvKx3sp7GUVjxtbKmV3W9h99l1VyO73jCmu11ndbsP dU2jFrCha+TPhkBseSTT7V/NHwT82PS8vLmbDJPj9kH22PS6c5yyD87OCQ5u 5yQuV71lT5V4Og6qbno6D7Frhziw3q5DV8DbfcimunylefeAUou7nd8M6aW7 iQPMHrpVD4fg2tUPV3Uv+oYO/cec3sgra+qG+rKHdA8ffJdQTpTwE/Xee1Db L7a/l+wOBLtnV92bYPcmKQKmi9fKPlp9UnIYnu7D7JTIFC/A2zPF7vVOUaU+ HuWZ9ci34Os5bFOfvlIUYTRwUGnAIxpopQZaqIGmfcHeu3cPcnyl9904cuz0 p+fpfWg8ZHr/wPzjqxerH0Lv5EEqoIcWt59KGNKTlwpwKgXsV1138ULdSg5R 2PEuEfara0r6fYQX4Os9wq4e5eNRUUDfUS6XfH1HzHk+9mg1iAbk617RoXDS TgLa2P+WyZC+D7PvA+x7L/a0joTr99VhuNbzGPfPGXXptxXA/0y990FC3Ukn 2UtLPMgOi8WyRnw/RXfYZXW2c8p09ghH/KjQ3HNU9fgYe3aMvTzGc77+Y3Ku /7h6JrJAHT+i3hd9KBFt9BwxmpjSiuygJtqpiTaSIFpoFi2Mwr1niFrg6O/q Rv/IQUsLoWuPq8Ow/xuthZ/MP/oajivRu/8gFdFNV9tPZQxpexZUhFaCi0pw UwnuTipAK0F0IP319rK/Iuy39P4Ee+0fOAEfxTza1JMIc4ofpdjUFz6oVGNB o9TSfUSp2tNh1GJU4iEYHkYo7j2DVEkvVdIZDANDFylXz5kNct7o48fzLFIe NEsLe3MHQyZS0UYq6K7FpuspcFApwWUpofMoL5PSfYxy3GiBve07oXTg6z/J rp5kVymDfK7k1OXqyUdmlKM+yq/2HVcgCVaiAQVaB7XQfnhGAzT7nnpOiz39 1EAX+scOhttXsOLMUJ/+a62Au+YH4pfq7Y8oc2Bv6aIe+hmiDEuYQj1MGhhE B0eUDtxKB6b/3SfYARH2t++k9J8jPHCKF8JuU04rIRpDp3mugke/EdIxdIp/ Vn/OqExEdNOnVSuoeTnxPEr1oheS0bpfU8GJ4qknFXt7GAW0h9PJ58KEqNr3 BWO1cFBYmdRDJ86ia5yr13GZ5jzyMCbsd48eDU5EnTB8H1c8bdRcD+NVeuX2 UU0QLbxTTaMjlKPU3DG4u2QSeKi3y9k9drf3FLx9p9jt0+w+VUPxDZ4RBQ6d od6Gz1B7FTz6ZyRCKfDD/BxVR2VrtZ3UFCq1ycgc02pTKB00k2mcOBGl+j7i 1In+8f3BZXVoEvRzIZPJin+N3m6ds9SeEwPfZL4p68TuiWMorh9ib0uI7/tR ymMpp3Ip/VupWWqXMmAtZVReyqC1dOcwdjEa6Bk5JkkAneO/ClMnT3EtJtOz j8qdwdJFF+KitXB1aMV6Oo8TyxNU7UkqgEqlYn19p41izyil+gfPUnWy++sf ls3YCh7lWcXIOax+KR+lf96GxqcSsKtugJ+Rdxfo9+VzQ2dEbAroKxXkvv5T ino1A3qO61mhdC6Ycvo2M4hliO5pJKb13djTNWCpO3RNbi11RYfW1NWTMpgf CLes/ZGV1pg8iuIGrsc5shQbyhpHIlTagEcuDMpN2sCmkgaXq7RB+W6dNijj wruMC+9a0tEzfNTsH32UtuAAld7FldeAWoVJGO9irOKiaXZ1kOYOkiwK7zzJ Xp8yCj9NkqnofsrAWaVs3+A5NdHPcXVWMXyOyjxPZWtJ2NaAVX/YjZoXG3A6 cy9Gs8rNe/wcRT6vB+pDatD8g3oQZZaI5mXWeHtOKNK9tMleGk6vRTqXCZ4m kt7YS823vd+oqsvkokw+yobi3UPsc3HtIGoYccvs7h6ljOj5bQbpiyGmxTIj 2nHgpnmWgzeZPyrL9ZrefVbOhOPTLAmTZpMwuUwlS+yNwYSJypc46mW1yFG7 QidLdoekempGdJqncgi9Q0cvM+bb3tDClT4NEFfTrjYuEziVXAwuXO3WHDlO OaGGy9PNoeo5wyGj9HOYRAao9sFzMlrnuWDRI3WBI3FBPVaMXkDC1nEsf/YE dha+jYsDFzBWP2iTN2xq3D7Kz57n985pGZLR56gNGCJkxHpP6hHjPPHSnHs5 T7xizrm487SMcMTo4ho6aJcmzaaozjh1Tx5ThEviroTKUXm7UpW3Kw2Xt6OS xJiU1gxjXXwafNUNOHz0LL4QJnI04/j9+dNH1lST9FGJlT5qGbbN5I4WBnNH zpDckU2yRzQWkj5yWsmI+pAkkkkgqTyY5MA4tFYObOqoqTO5jFC0szmav1au +rj8dzFq5tAukIIbKsrTdZojKqN5Vp3x9Z/jaJ6n+s+ryXdBnMmwNZQXxQ+P XuQV5/mP4d+vnkJWzTTGjl1Ea+8BsXp87yo13BVm6GVYK4iDgCFTWU3sgbPK sqpJKOZPggGaPi8tslciF0litNL0tdD0NTFqmdhvNvIvVwZLEp0lnKAl1I8k O8tEtMl6F8N1hTZaZhKs31aITSl2lFcNobZpQrRlmdHQkPgXeni/N880vTlk mu5UWbVByaqFS6gtkISaTXJpC7gil3ddvGxXoxadULsimG1SmUFJpnFgHZLc DPBSG/bpcpKPo3ffBAe2gwPLQJ+NSyrIRc252mhi24+okXR3nFCPMrqenrPU 9Dk9wjK6nIA+jq1/6CJHlzIi8qYM7pscxbE3qelV6aewsnIae0cn1ZkARR75 ETPSEep7apRJiJ78H9Cjy4nrFf+pJu1xbWLVpD1IkfQETSxtjbu5B3t6+2EV tnTLHKGpK+EcsakE8QJJEUuGWIye2DybMnkLg0bPSm471GCLvXuPTg9zwNcn FiI+1a6nhsmt1jaqAQ/GvKFLYDPi3zUjLqfkrb/+9a9WDgtWMljyj6Um/1hm 8o9W9lEnHxdyNDgybVySUVzk2d0yyj/obh21qaef5pGLk2YtFg3WNJ9JyZnc cNVMXrhvYpJ9p4dtHlANu1onKDL8NNdt9LDtxzUCenLruX4Z595FjrqM+JtK Kkb4OPqWDOZbHPqxt3jNkVvPY82Oafa9TZ0JUISItxQbjPjECChkxCjIpB48 F5zQPsurio2WtS/DLK/ks9ppoxl+eRiGuRpblAoPnzqLnQOTyhyWtoqMSDI6 xCwuCKbSlUjqWQb8ymAq3RGafaaqthcEEBOXpnYF9MTRFtFOi1hbP26NuKkP U8P589ARj1B6+sxnPoO77747GK2Gy8iafKzkwSUp62JYeRmHeRxu9lQ9UqTX fG1TT75IBZhTwr7if0xYUCjMAiB08K2Ec0U/dncM0Rd0c9AHVeLa1Uof3Uof 3crlZTt9dIcOqfSc19bc23fezHkO2CBHe0hG/i3O27c4kGpkRy9xiTB2SYY+ 5S3E1U3TuIygYvwSAhSbeu9TCgVSokWwEREKxIgMnjcEnNEE9Fpx1RGVr/F2 SkaTiy6uCz1tXD00t6Fn/xSVOhjcgihT6ftylbnnNApaTZs6Xq4co9lQUaIU FWo7bUpv70VSYQCx9NvBrRXLiHL6Ozj97b4+mUKhKRBrZ0UnN/AdY9MPHjyo dFdWVib2/hbjgILZa0a39jadvXaY7LVN5a4ln8thFmHkq4UOrX1C8tYTNs6I CXyWQzVBzUzIKSOioX1mrmhM1B6F2pMwnoJddO2ZSdMnldQjb0crNTKkU/qh SLQxym5nyNZ5SqNAF+DpPW8zft8nNAyShCHK8CUO6CUOLGX0bTXob1OXAR4r xrU8sWgIWxun0XpUvw6Y8/ykZkTc/iXFh2bD8CFsiIVQbJzWUZy4e2FD5fMk dc1eU4Oetn5s9O7QWzpt1paOTLcFMuFUbkX2dhxiZp0KCzF+Ts4fl5Ixs6+h H23q2ZXBfQ6R5OJKxCakzcwxa2OHlDgZ8TmrB9Vcmzp6Zm6KVKzFLEIWorm5 GZmZmcGlrkQFP5q1ydGrMJHMv8bE2uAYV4i4OmSDhmNPp9A5qTc1VN6Yxyuo nv10Ed4uOTkZgora2NGItIRsWRk0ZE8j2d6IyLQq5Nf06OR/C0O+lkMKC+UW ZmFxjoMSgkUIEsNvcyzfVkhUjE4rLMQgBnisGNfywAP1SGmbRvvRSxHqxCfU hxQ5Y9ZXLyl7E2oyfJbTsJBQSYejOi2udjbYw85RxFXsRaQ98M6dMBU0S6ZE RC1YxtQen03FuAv0JpfsCsj+R8u+BerJlUobshOUXFKNVZvTzbYIm6gfneVw nVwBOHcMwhnoQ9/AYYuF0PzYz0JZuCzIgryykGlqavqhyfBMnTpNHGZvicyk zHmNHF7ZEREOrA2tzgNq30PS/wclE8qjr4cOlbJAPbuK7xzg+QN83K940aRM KlKU4Wk1lDTpfrr2kg5XE6IydyAqvZbnZS/Q0NFCo9Eq2Sr57716VSB00Id4 +y9oP6LwmEHDPzItLmRaogd5Ni5aeuCXXcjqmkbnERUoqnMBw4vAoc3LR7S9 eBcwZgWPPQYMdtTTPYFNlc2Icu1CpKMS5R2MtmTzcIFSp9o6pDN2tY8zvm6T 7UO9Cag3AxeqHaPLze6Y2TuilO7uw/Mvv0ZV7FNmY5yRuNotk43CPRRi4aql ja0ZgLOyF0dmzENoevD+UCQun4XEHCzwg+A+0qjeR2obMPugY8FtFOHBpeyB W1CQbZ8FsiWmNoKU9BxeSC0dJht9cug9hP/UiHQfVNrSm4P7tWURHyTbwLIZ ShxkryDFQ01m1VB2I664hT0nCs2H+JkjCgUxFO7OU+9AwTfwpmUpbMpURIQY Cu0/piMsGh4aRkH/NLqmzhoaFoQ6D/EdKgoRB/L/CkMPYeg5gE3V7Yjy7KXs JhBVigN7p0yqUWsTGXqL9XKzizwZIvv1Blq7MrjtB9Su8gH1zLzi8YNqk6m0 bgDPv7J0ZrOtmYPTxEnbOG42VUf1pmotI7OafiLSgyPHzszaRbVSobMYiUBS UhI6OjrUK9scjyOc6Drh96O2bzhku82yHfvUXqPLbLe5rb3BLrVhKvuGsrfo 65VDn+y2+WVnrf8I/BSbOn6exymem+J7fFRyWJgiR4eUqVEsyUazcKSWbma/ lWY0xduCqGzyk8kByNxLhyNhrPAzE3/M4qdX+LkIL8NRCUB8IeGoBCAKBGUe IhQfEXjwD1whDE+j+9BxRc/bypZcUvGpRB1qacL41B+MSy++E59+42Qkuy1b RuzdpupORHsbEe2r5yOv3l2l0LF3jgVtspqDsisvCWOFiZtIvEcjInuQQdF7 u97OmUebevZhs1d7EKX1Qxoh+a7sW7bqvUtXs7V3y1lZz1m5RzDiqq6GK6Uq tX8bxCj0joj7ZmMkOQmJV/Wrd2J0g8kbTJ0UN9TF5VXfrE1MvWVt7djO2a3t lm1YvSUrO26yIekX6acMiBy7XD35LI+GL4slxZFhqcvauzf79pxIKb5WzU+W 8LOHLqme/BzU/ITany6TwjD2xyvpC7WYVfzYFEARGgIJQM2aVVAaF+P0679O wUXL03PgIPS5/yJF/LDI2FvB1Y1/9M0gRT6zvp1FkeTrZXuJ86iQtjTa14xo Pyny7+VzTVFIkcPM7DQVDu52TYPbEGNT9QARJOawjoa71Cu1Pc6nH1Jvy5uy e2tt+Eoj7rYDGiH6bncTEWogQvWjCh+3wkdtgVtOKjT5/NPZ5Pz617/G6dOn zZrnneR813JUfUMhO77DmhopW1HUaGJsap/tcrXbq6K5nqNqu1v2a/2ynd0v k9g/cFw2+I7L1hSP/qHjqKDwjJw+ZlMsfVpZJ2FJczSljX7XoZnqB86iVH8b onJqEJ1dR4boCDLrEVfSwVkl/Bx9Jz+9tEH950P4uWhTS5UF2gRZ/KicyJgc xoWr3z1xAv5J4rNP4gw59xmDjc6G+UcvmrQImx0mMkFszgSx8bD/HmKzaWc3 cWlGTEUjYvw0Pr5axFXumVU4Yhlzd4eZjbKvHdRvhE6tdOt9b4kOj4ilP7JQ vf6QKhAQXuRTqtxEvi2bSm1srZUtt1CaJjUz9FzuuiEy0w/XTlUwEK70Zw4z +l7NabMKms2MYKbvuvmw2n2zN3eazfEhcjOmmenYb5ixNsaP6Axh9zHNS6/e 3ZbdXFUHIPtmJ9QW8EnyclI92tTxWh5PoGL4hH6kKJ4GFU+Ck5gnZarEA1pF NSqaFGttrHFUzk7KHnJEhrIaKI0zDLUd5wCc1InyHp0o9/aRI5VGPR8ujaqh sNKl2hgpkP7w3FlUH6Q3G+qS3oy/qTIr8pmLKqEq4h/VyXa/BdLQuZmUaj9Z plI8/ceQyvgtuqKFIBmYKhqUDUqu63hHPYqsMg9b9Ghta40LPaYq45MzlSlG 1HPZRO+RRz2d//3iYthlj6zLbKp36LILdxuHs1X2z6hRBde4rkVi6OSuVaUX 4SqudLkJrNu0xIWJK9Px8zvB+pbZ1q3tHZypNpA6z/Z9M9u6quyE8WuXrjRQ 2YaemUoLf78uFTDVFWTmlComkI3yU7IZJXUFfEo5OSMKuhMKQwXWgCnYCRbn TCmL7TFQReXsQnTuXhuJamBzUdmN9HWStgvlScdFHvLkEZ5CNl6U3zGbLirF rri4uECBEoGHX72A2sPTaGupFozGLoq1Uhs1svEyel5tutgUQR/V/AyenTFG 7L/FUHRFK2ICZChAhgJNhqE6JO/uCrKj9UnhSNsUPJcpdLRuNR0qMO89blMz N0LP3T6tbgk9T9jUqY/o+gKKoojuS31fHEWXKdOwyldaqcZmIYlrFpLkkcqu umAJy2fnoDFTmBckKXTtdUUYkv7b7FXbm9rhaOlVG5+SR3BymSCVF1IcoOtV aLa7jquaC5XZDtaq6OqJYKHK8Gm16a8KVUZOU84gMKLKL0bkXECdO63wsim8 3h+0ZAqqgeOmqOfYTFmTKmk6hLjyJgNTTiNXJNE5XL/zmUsWabOCbG2gPH16 X9Y7cE57IQXTeYWDRErnbYqThYoZP0UeH1n5FuqPvK1wukD35h87z2fnNU2j es9d9tV9aoeWNKkdWv6hARJFPXg5ozzsQ2rjKCkyVFW2IJpkRZOqKFIVrjBM 1QOZmiAxRsdtSs0RarqK3xRlCz4nF5r6oD5VC0WyBCIH4yCdOzJFK6qIgs11 EKa2KQMSFy6NBInxkWfvIGOkXoLUjiPHT1kghe4I3PvuIL1nDkhirr6hzkk9 5H7j6/rVVquzjSZJFT0cVFPH3XFUVZl4uyQ5rkt3fKZ0xz9w2qYqFCJUkY4U 7FSMqNUyj7LvchYBijza1LMF5hw/p8Wm4PqMtlvKoBkDJzVjBiurTkxigtQK RiHi8MhRdLbgRaZyaaQqhuCi05MNJHfnSRpRctVDrkx5hlfSuKY0QxkW4hCh zM37NCaCC7FJdfTgsbXTaD52SWFk4eQ3SAmC51TUZXBSSLEbPs6lT4ZQRTs1 YNkpSmXrbKq8QpWusHMZmvSMDZm1auae1DNXzd5TC9T0vWymZEoe+3VJDh9t 6smHEbstBxn+Fv3NHtOSyl0LZMcMZGKt6PeapdiOlqphmKDRUu2VCqkDs8qM rX2GH4cSNjtzeP78efWaEXmo/5PkgcD2dWO1ansH4GiWco1BdX+Di2tyF92O lGu4OyyrpUGT6hpdynRG+QCrjKliSJcm2VTNjFB2jkSdU4+S4z0XIajJu2e0 YfukcpOaKl1pp6vsjgYNlQqhchqUhYrObUZUXiONV4dyey66PVcHLVUXqeo+ ZYg6rVySck2DMvpDVtGUz9TxUDQrVyAyuhb/jJ9GxwmJvM+ps3KxfiVnxbSd VTDqUjefKhMUnj6i6q2UhaKl9QwaK2V4iq5so7RqpriWS6nrC/KkSl86guVh YqBO2lRx2EI9ea0SsX6tX5uqWPmU1nOI+IKP+rOxibkkq0230WtqW2SshDDh Vv5mO5XaZsyX+MFGqxasB649re8o4RbbNYushSq5JNBVV1erdZ7saoa7l/5r wSqgNmKlS0WcqlTEqgLS9ksVbXVZFXKy3XtGVf8opAbPqfqOiuFzuqInQk30 gMiYTPjA2AVJ/J23qdefF8KCvIk1E1unShU5bhWq9PNUsC5RlbnKgodzfVNZ i4qqLMii82m68hsYr3O86A5dHcd1uZKU83Hee1SNpAbNq+ojT4upUSV5PlMW qdlZIBhhZXQbnkziYu/EOQmozmqi6K1pYH3DuvxU2JL6SWHKS6a8ZMqj5Bg2 7eohSy02BdaVGjGiFeXjJdIPWEi5O6yKqpO66rD7VIheT0convi3B84G6+Gu UMePqterEvOQUdEWsq92Wn/dUKSIFZejnKCxT83jqq7N00j7VE8HeOIkwu1s 3BNK0QIVkAs5TqdT7JL1swCjo6NBn/lVA9AUodJlKQNqg06XpewPlqWojptO e3tOqxKymfIxUyQ0fN6makpIy6guHQsw6qUsJD4XhaELvOyA8ShBhEZMNaYM rQzxgMFH1pLd2kYV1o0yFG8IerzoPINO02EVTQk+alyU66CYgM8jm9rKhGh8 bAqAyzUOFB/REDxWRvfhmaxpDFCxC9WZhTOfoe1UMijxDKGxKWo+oZjxDB7V 9kd8G7HR0FC4tourbp+pmrSg6TwZUoqn9aiqJ/t0OZ6mRrlmTsuFM7q1hK8X qPc+gvj8Cmwr3anHod+0E0KTKoulX/Vy/LwcR2+L1Nzto9AecZzdjapAy9pQ D0016bugNB0qa2AlC0ITCB8Iw9N1JoHQu29/sM5FbfPOqnOxbLOU7Z7SJYmq /xZLhGfogvJvF1XERIhkja1LmYSjN/lnK/fxpcj4RZVavoirxVSpMFg9jlpF p+eUy1SVvKaIVK1xeizTdAibStrUUm+GrXpGVP1qZ02X5cyUcSu+yKZHzJuI qWD3Dkr8MSQHUvMexc7KqFEsKpjG8PEpzZrwxEjPT5FHGoshmcqWKfIyEPca cyRoeQaP0OUNasQCxuUF2tTzKH8T8rnEkmtTprPDSpkRASvloVKvslt7ztQH UsUm/aFUPXhBjBOV/bEgXgqrsl38nPmO4CURZKihoi68HYLVYXg5rN7WSVUV I3V/HlUZNnB1GHdlsPp6GJhsYc7N/VUOaeIrxmD1ThwgYN26gGJWTc1hpRFP x/FZxspapEuPFWDDkvmTkjmpmwtIlVRg/C0+2/eWYust9UxEzslHxtXnLuLa oHVTdJmiV1WmPKALw9Vi2Ti9wt0jiMrUTk+iKrFaKX4uW5tk31Ymw5QysOpG Aa6D3D0WXWyjX+SECqZ9JCSPwUP+3lYUUAopixZn4fkEFxy+LBTyvSJKYR1l d4uydLJ6J0wLQ9DisBmsbHAPSlIptXEAUQYvmzp+EFEVLdhY3aEvrJ2eWRaq kvkwGVlvt0Gr95xB63ywOFHWQxcWSmJN4kHJ0g5dlCJh6jydgdOa1FJTdnRe 0yV0yvjIOAlZXcc1Xe26rNvLSMYr9VeMbDwtfTRarbNurra2VfTdLvrnnxbM WKzLZgElYjJVHw7D1rUmSbW7ux+Oht6Z4pwWw1abrtfydMw4Qp8xXNJ1qdKT 3laoCj1TcqUq8WS7KzB+iaZr3yVatEoeA0aImqbuWrWxIbYtoAydSSxKNe6w qcCVpbuyYIYxE8FLsZ5sAkvyM5prwai8eiT7uMhoOEgDfIgO/bCKBCWKCSbY +F0PgzO5mzx/TzO2OQqx3VGEZGcRUp3FSKOkU15flo/Xk9wI+FORXl7MfqSX FVO56SVFSC8qRFpBIYp3NnMFLbd8eAeOUn+Cl4dwibgHubAZPIQUhi4asxa1 KIyiRPqaZgofZZXRzhVGBxHrpPXqIl7d53Tiv++8uoPsgrrZTG8AGF3bVGFc hFK5KozUWwI8XhU8J59Ir7DQu6hLaPtn8FPmQQybrLsswyY16u37KVKwM0L8 GHk1dwTvkQl1lneGWrV3AmdWidaPyQQCgSBw15jNPXtdMweLwDUOzyr7cSvg jKfs0p5yFnCmJLRi+C1TAqb3VqWIJzD+Nv/YvreVNXtbPZNHm3o2G0GKTcH3 GV0qLHtpCr3zMzX9QccZgp3atZ5EVNoeoldPB7oHG0ua4Kzfz54cIHrEr/WQ uRWBPeF38nc1INFegCRnAVKcxMdVyEvKcBXhi8hyFSObsn57HJ5+ciNWpddi ty8FufZi5BC9nLIiZJcWIYvoZRG9rMJCZOYXICM3HyU1DbNwcw9yug4eoJPk tVXQ9BI7QS7K14xkub9YNCtxiKRLFHZErvOMKr8M7nf3XVDYqXJpVTfxpirF tKk6q/eo/W/RfPBx5K13nLOpZx8lf+3kr0zzN3hhhsFQ/pT5O6YL6mX7sOOA qjj0tDNea2O81tKJ/smJWfXPFkmGQfXjcKoMyNoRDM1RhEPwy0EEW4hgn0ZQ KiRMbZG79cgMgt0hCAZ9qUFQ2TtdhSjFIVJqFhifFgSnFYJ8OTGNyglx9fKM CE5oLI0oC4lvqrplvT8Xav3O6uWfid10RmxKbyt2TaKgbsBguAeR2bvg2DPB 3hgMWyi03nk1e5FUnodkRz4tXAGtG9FxFRC7QmJXiBx3IfII4j/+9Sf89pd3 4E8PRGJTdju2b4jFY3y9LTEO+eWFyC/j50oKkVtcgNyiAuSIFFDy85Gdm4uS HXukFInwfQJOHiN9vCZ/g8IwkjHbxkouC1oPzSr1FKvnNlbPI1avh/j1EpU+ Sv+bqmxHaj6DRX5Dl6Drd66gfi6pZxWmDtQf+jh8SX9MCOwggeW6kHiOFfS+ wwEf1QR2HjDliySwnQS2ccWwfzJoBUM3hO4IIXBOHGfVNYSWzHw0DItfMosH O+MXZ71hsXGfLm56VxZn4jpdVPCmmoi6MilCs2iqXoMwTsyF8QENaFCs71ya h8YzITQe0zTKbf7dXGR1jWNjQQMi03ZjQ2EDHLX7SOQkHDSMuZV12F6ag+Ty HKTYc5HmyEOGMx9ZpDGHNOZS8kliAYl84sk/4qF7voU/3XQ9Hr5zMbYVtCNj 5at47vav4tkHbkRS4kYUkcbCsgIUlPJ7JQXIK85HXhGlMA+5+bnIzc1BdlY2 iqp3k8ZJ0lhH4bX5G7Gxqo0U7jc0huxJtJ/SxlDRSBJ7LhgaSWI/KRwggYOX qO9LuqZw6G2bKiwUGE3lqRH/7Ef9sY+ihFHJ4qiNmmUpJ5KyIhMRepVJNDB2 mztQVImFlDMRxk6uMzoGebXdhHH/rNtWrXSagfFrQXMYDsGPhUFQ3/T3CSJI j7yXHrkhBMHmeRDstxA0N2movWSrRuVSsCpfsNIu+DJt/4xYzyuVHdSHS7jn f0dwwCxm1e3ksp05g6CncxgbCvYSt3bYd47DsXsCGXYnkkuykVqWgzQimE4E s5y5yHESF1c+8ikFRLCQsiVpA375w+tw/zVfwu+uuwYPf/U7eO7WW7D41m/j he9/GS/96BosuvebKCkvQLGSfOKYTxzziCOlJBf5xZTCHOTl5yA3O5vG04mV 3jpKPVZ66pFHwx0scpZEjtQOtc1BUBlDIhg0hoIg8RsUnobeVgHfNNUyrR+l stU/Ir8bxafq2ezHtxWE9s6TeH7JyjkIXpiNoPLKVoHzlKnOlD10Itg5xKsk ggf2W7eghW5G3a4J/FaYMq+rwnD3BcNd3zhjpj3krp7cyeK+UUqFwnDXa+VM QrmbqWEIsqeWFDML2UuKOzJlpHLmUb99vV73mhKrmTvHLur7COeg57VSvL2M 9gW9HqLXTfS6qJyOHuR42lHkaUVyXgZSC7OQVkLkiF4G0cuy5yDHkYs84ldA /AppBYsoxZSlz/8D9xC7X1x3Lf74jevwl+t/gEV334Gld30XL9/8FSy+5Rq8 8qMvIn1bLMroz20o5fGTKLbnoag8lwjmoJBWtqCYUpSD/IJs5OVmIXr1ekQW +JC3u28mymnW6Lnfgd65Oei9ZVPcLRDyFHhKhpVVm46Yxdxc66ddtJ2jp5nT kaRvMBxzoeWyU6aSk8x1k7kumr0OxdwXQlywtT1122zmQl3wx0M+bmWLP2/e 6Rs7CEcdmdvL5W69FMZatk6vPtzvYE7n6VT9zPBMnYPiTmDRzC1UJHHJO/EW 8XpLPVIi1OkfG8TMzYnq29Ytp7NXHAoxKcESxHq54ujRunAbxJoHOznMRCs3 A+kFWcjgkGdy6LOJQC4xyydmBcSsiJgVE7MSSikRe/XJv+OeL30FD177TTx8 /Y149Lu34eX77saaB27F+nu/g8h7rserd1yDTS//DXZXHsopZSJsp4TtFTty iBrFoFZIzAryM7Fq/TpkbE6EvapFIyaeQyprmy3ErEXuGRXqzUEsxLqpEG9I lWhb93QMv20Kthe+M9QbuRRcbdg7j78LZ+dnOOs1v2Cg6moNZ6LbHsNZp+Js 1u3TlnudB7RPhIBmrTs+Z8xe79gBOqEeGjiCtlfua5icKRpVSWFrmWv9pIBO hvv05oKCTd+UflEXXo29qfIqsuRXmeCZrF2Ewi3CvNSJYv3RD5E683WTxvO/ Y517UlHn6TtKIXV9pK5Xa8bdNaj7y2GoKERGXqZ6pe+8uJ7ujbZM7A/XGWKL Sijp2+Kx9u+L8c8f/Ar3f+lHeOhbd+LRW+7B4z+4A8t/eg9W/eYObPjd3dj8 0G3Y9OB34Fv2L/jS42H35MHuJnhuDV6J00Bn19AVlWTBQ/ddlLoVRSnJKExM JXQdymXMBu7EDHBh3KlNrS4igmsL35C1bL08eH+ZPwhZ6B2IfGYRJzGPlC6q 5WBwjTsnoJtVyS0/lDWjV0+3ENeliLN+eCF0Z0vf0hn8jfHQcrNPhRBnLUau MjtgA50jWP2rSBQ/tAIne0beY5bBjtouOOsG4dojd4oQwsaDKhmrIQzZKg1C qAsnzC6XTvyOnlfFWxFmb2vfxSCFFy2xqW2Jn6iNrwqzNWFtS/hNPY7f/LaF VHdJwtfTb1F3gNphuNszivLmRmQ6tynIOttd6OxwYe+eMti5eJD/8oqIHKOt IkZdyVvise31GMT85mVs+/t2pL28CxteKcYvvnsnfnnTbfjjbTfhkRtvxxs/ vxev/eJmvPqLmxD1h7sR+esf4nhlLSayt6JzybPYtXG5QrDcY/BzWTYvG3WB YgzvccFfmIqS9GSUpKaiaHsG8etS6MmOrrtlxp26QxYTnl6Nn+RVrKVtKHpi 7d6KUJQtnMWbdSearvv9iAp3nlm0BM6u4zMZ5QG9X6EqXvq4nlb1u1L2TeT6 DpupTKX2ckHbzQVtZ6f1s66hGb1bZtMWmkOxfoXKumtwZiGxECt/n4/AUz4c jXNh/6ZtODE4aErYuKbd2Qnn7gF1n5prr9yBcmA2cp3mN2z0LjK8A6ZeR/YW BBVVGGigk8P4hSuImNpsFbrGz8sWvXmPiN2jf1Bl+Jwp+NL7qmo3QUF2hHJY Q9a3D+UtLchyJXEpsFUB1UXAujtd6O10o7/To84VFuRg02srsPyXzyDhkThk LClG/mYvcnPqkFNaj1xHNR656y7c97Vr8dsbuWL94R1Y8uBP8covbsQzd38V T915DZK3bUJ6bgvaa5sxUuXBZGk2Rje8jvrk1XAmx6OUoFX4C9Gx246RRg9G G9zY485FWWYSStMJW2oGQcskaL0EbUpD1npCp/A6T9M8n51xqn0X9C0HApq6 beWicogqSzD0pnD2pk0RFTFzY7TmiwHNx0Julb+gOHN0HTOcndMVekHOpLRX SjPN5A3qVTgb4bX0wzXDWeh+2CzOFijONm/erKo++PxTc74hRf06bXIF3NmN WP3vUVQmnMWbDacw3d6Kw2ujcN7lweH6nssMl32jh+HY1UfyuJzYs0+Hdk16 ta92yaTYQLaKe2ZKLRQr8qtJQp7szY9YFTuaPcJcwmmVQXBFMtlMpjy2HUNm 61H1XpDGcVOLOGYKfkbOmu3+M6bC579MhY9scjHGG6Dd6+cyop+rnr5xIpnC JcR2VNXmKgR7OtzoIZJ9RDJnY4w6t/7PMUhexBXsBg8Ksv3IsfsZ69npgkvg sBfC6SiEy1WI159+HPd98yt4iFi+8Muf4N8/+y7+evu1yEiKlb0wQvefyLOX Mn70IFBRgf4aPyY8pZhI3YCRLZHo3BKLsRYvRps9GGvyYK+XWGYnoTwzFWXp 6ShNySSaWZzYU7R/nNStM5lld5fOLHuCmWW5G+a8TQVlEdpZDum9I8FSds5G Lqpfb9G1wJcpz6Mg7Dwacl/LGZsasfca/nRpsJ7bWokyt4VBd08f9gwPhf6L JtbG2c2zGZQESUjNyNzfXp5h8D1YumgS5fZzGJiQOyRP4yzDsenmfXg734nB ZyNxptRl0tAfR+8I1xg7CeKuIZpA43WbtNd1mZ9AUJvrPeyExAmSWjNFG+qn 46TeZ+QM0vn5jLYpxFSNIrZ6zIbYHeP4BlbxuKo6RKooleOIDVAqxpHB9V0G 7YUqVxo9Y0rNTEmQZRtlD182SQeOGhAZmfZPIr+qFLmeFOQRxGoDYqA8GRuf WYLoPyzFln+nayec4UNOmR+7ayk73Sgvzoe9tACOMkJIEF0GRLeb4inCP+5a jLyla5C4/AkbPP4iXM1joSJRxEVx+gpg97mRV+5HK3kcq3RhojANg9GvYDhr HcaavejaWYLy7O2wZ6eSxXSUp2eQxSyU5rkVhy7hkGsOl6SY1a+KnJ25o6bP uqtGuU+bKmGP0EXspuBEALxwuaJwgXnjHBZHrkdx4z7h1yD4PnOHgzGDQRVa GI5zVLle6+lF/6FD5h9yWUDXMoLoB6NR+psYnO4d+Y8wrvhHs11xaP7uP+ew qcPymc2PkP906dP70c+ZluUnB0RoF+16++FpFHdNY2xyGufpNafrh/FWRiFO J+fiWJ7DZlLV9uoe0jsIZ+2oMaN03s2HtRntCC0L0aXPXnWnwikUcbamcyUd XTliiJVfmojdIT8ms4rHVTvGsJoSoY7vx+rqMaI7itWVfC9AqaD4+D3PKDIa DqO446j5IUVVjqSqkeQHKaRaZIAh1wDjiYEDKG/rILGpyPMmY2tyLAo2rFVa iHt8K5JXliIr2YvsEp86V1nrw3gnTR1lkrK/swJ99LrNu5yo8Zdqap1E0lWk qF3xSxcOlrahO5BFan1F+DzcPLp9hWjby3nf6sGh7gocpBzoIrX1fjh8ftRU +tFf7cW4vQBjW2LQt/Z1+BJWwZ7DRUt2OuwMr8rTSW1qNhw1UnhzDC5Gj64O y7FbBS06B1FIp59afwRpDUcRV3MAUb5xitwDHu2T32WO9u6jjCO9kSPAzxR3 ntT1aRIRXa4gVss9Suz2PGRUtukasX6pEROU30eNnlD2wKMckwBNvz7A+LGf fr2fS8FeLiAI9JHTp01t5kIMdAzh8Tu3IPMhF8bX7MD4liLM/Q1jcfxzqA7N Dn7GNBVKtUWztan3ziKZT6P/yDR6jk5zrk1jP3G+OHQG07W9uJiYiWMJ6eiM y4NjBwPQnfJjCeN68d2st6FkA16ViUp9tL4jBIVth7Bp5yiiA4Nkdwgx1cPk d8RGaEfIa80oV9JryPBqyhojq8n3GsPvasXvCFb5Kd4RxLr5fdcQEmiWizj9 fFYh3RWm0onRHLXrHtiPHHca1i1fglcffBLrHllnMzM7o9CD0oAPlXU+s+Be aNCtILoV2N8lzAX43sHugA2HegIc6cO9AQy1eNC2x4nI3xDO8jZM7MrBkb4A m5zSR37msBH5XgXXlBrgCtQT2p07JaTwobXahxFvOcYzt6Fr8bOojV4KexaX PRlZKM/IRnmRJ2hyrVoGAbeg6ShS9hzGSk7jSO8oQRWRn7yI9o9FIMYvFiDG P44Yn4i8EeMRexDjHkV81STn/fGZyle6q9jtucgItOnSRsmRydpRbraTGzmu MMROGWJpfgf20ZMxCugdwJ7RscuN/26v70HJZgc2/C0H//heAv5+Ty/yY87h +K7z2MeRP39wNAhv6OL6ptnwhsI49/6edysd/LBZudtb3kRp5zR2DE3jMKF9 iz54urod5+K2o3NZPCpza+DcO6FXSwKrbNubKhb5aeaUPRPUZB+iKgY0qJWD iK2iVA8xDhginPJrZKtrhvn31/C4hq/XVKtXgvKaqmF8jrTyZGAYqyv4JR/F M0Ra2YiDDZYPIN4/rCqnrII8z+BhxETmIurxOAYAy7H5hQykbLAjPceNpHI3 AnVe1NW7MNTpxUinD2Nk9B2cKhsZwEFCeqinkuhVCo2VnOJHeIx6yI8pZztO NeVH4Eg/35Ozn1a8CqWHevn1HmNmKZM0tfv4JxweP9wVPuyq8GLARxtUkIWR 1UtRvyEa7rUbGCCQUk+9Ma/HkdcwhQ2BMax0DyHSM4woTtQo34iAOUoI/fIP MMTyKM9itdB/+WTux3q1X4qhxLr46KQ4hpFed1AzKpXygRYdVvVbptSY08Gj EYYN98Bk0Eu7evvRf/iwMXPvU4A6uMJ84tsxeOPuMmx4ZBDbIs8gJWsaf/3X GSQWvYnW5lPo6xp7RzAw81OcYUGdW4Ovk3jWbuEnzPLJ0z/NC5Qf0pvGUeJ5 qfcYpv0NOBUTj+4sOyry6vTOVdth5DdMIK5yAFGeHoNkP2ICA4jlOUFyVfUg SaweFPZ2DPLZAFZXDbCva9RxLY9raGaVVMpHifN/YLWf3/RRPGzFTXGyVXsv 4snqpuxaLPmfJLx6eyY2PdKPbVFFSEtxIKXUibLKUuxpdNMheTBIDoXFYbI4 SkiEx32Gx/20lweEw25t+sQckkWFoiBnE/p4eUd5jPl9AEfcbYQyLwJHBwil nP0UPxHQYPYJmGyrN6Cg3N+twwr5W+PtPuze4YXHXQ6H04NORrWjJYWMBdah Leo1+JcsQV7dAaz3jWCFYwArXYOI5ByM5FyM8g4pvz6srOQwhd7EL783JsdP Kw8T6wsR8TYe8TgUF72Ok1JOD1ZKFac7sLW0SpdWzibS1A+ZH1oaPMCRn6CM 0nQOBfGgu83bXA7P5mo8c+MGRN5fjU1PTmL7ugtIKZpGYs00mrkc2rV/Gn39 F7CDdHbtO4XDJ89bgMpvjdbW1qpQwAD6zTBZzdAiH5WRYTwcrkZW/7LwB1FF RItazqJ1fBonJi7h7a7DeNu5E0eWrkNnRini4tyIdHVRoYJnL6IreolnH/Hs Y7urqvo5yMtKA1hOWVlcQQlEILIkwLkQVRxAZFEF9dlITPuJaL+Cdg3JXkPC V5P0VX4KqY/19GFxfAUWP1uA52/agnUPtSBlxUnk5E0j1dWLJHsxtjuyUeBJ xkC7m39aCH2fYdSn7OWospcV2l52CUeaUaFT2LQpOq9QZB7pryKFlIEqHKOs +iOfe9twuiknAscGq/gxOU1ataivVIbiasMBGtIPY5LECqn7OnyK1u7d5SjP TUVKJmdVlgt73Yxu7WUYS0/ExPKVCGwuwJo4KoszMtIt835QKPUO0rbEcMbG 0JPE+o3Ic69+FA+jHr0iw/pRPI7yOhSn9jyx9kEs2erFK2vSZoehprjSreSQ oXU/SRUnP2rwuAIv/SgJq37VhM2LjiB56yWkOKaRsGsajURz7NS0Ls++XOEo v49q/cMJ8oPglv384Ww8Q9Og2n7OLnaU/8zS7d1J/Sh6eeF2uty03SewveYi ejhfTu97C9Nt+/F2sQ8TL8bAuz4dsZt9dEM9WMZzy7laWZKWjNfTU7AsIxXL 0lKxgmLDyrQ0XIeVqWmIFElJw8qUVKxM5vvbU7F8WzJiiO4qZyPdfD+Nah9x 7cOiF7Lw1A2rEfvzGmx/eQrZaZeQXcX5W3cKiU1TKKwuRT5XUAVcQe2szVeo CqgDHV4MUoYJyUgHTWnHDKpBU0p3foiYHu4zZrRfcyf8CYs2xSVD6D/X4Lif qDZm8tXxwSp5o5IHfu4zODKgvymtHOozRpWgTlImxNtTxuWvt3tRWU6vLouo 7AxkZ+Rha0oR/OV2DFbtwtt0TW8XuNC1KgUpqRWIcvcjms4k2juAGO+gQjXW J8/lt89jPf20PKt4jPVyQgdlgMLPUdQjUY91iYhDGsCS7V48H52EmJJuLsz2 h+BpFWMeUCQkldZi7Uq9ZfHaHflY96de9Twl7W0k+6ZhZyRYf2CaS5nz5l92 eO87+Az5V4nUJwyr86B6ddCtmyogy6Sqc9os/wC1dN92Ll0cu8axzj6JdZX7 kdk8jSG6/bNjF3FiZwvGt8ahLGoxkpYvJoXJWJGRgsjMVESTyBhKbEYaFq+N wcOP/g6//flt+N0Dt+H5l57BKjIaSzpjSGdMchqiSWbU1lS8+PgrePH3a7Di x3ZseWofMre8iRzvNJIa3kZc3SFEuzsQ5WxFZFkT0koTSWQK3JWZGGhzkUhP CJE+Euk3RIoZC5CRgDacEmD2Vs449X4hkOZSm8cFOD5UhbV/3YkTXE+caUhb qE58WHhUHxBqhcUpymE6+oNk8QBZ3M92J8ii4lAMNq+ha7edHKahgLN0Y1w8 /05c/Gaaok1cgqY3TWOEvulCP8eNq+2jyzfBtyGb4WO/TcFH3+7uUwBGljfy q8sLAhyc17NK8GpSCpZQXqPalm5PwdJEPm7l6y0pWJlDC5xdgRWZfryW5MHz scTQ3o3osg4UyO9dET/X4EGitxsbI0vVuK+414uN/xjT6NEvba/Wtmv3genP GbP2LsRZ6+/Qn/H/wWzyQhNUoVvn1o3Aenn/fdQ27kc2O7s8p4FdbcaK4la8 lN+M2FIvtthd8Fe50eAvR2tRGlrj3oB35SvIeONVrCZjazLT8JfHyNj9N+HP 934Pj1Ie/wnlgR/h7w/ejhVrYrFWrGH0Orz6u0V4477XsP7PqdjySjm2rXUh ubQfCVyPxtaMMA7opJUlZ9522oYWROeWYNX29cgo3YbmvSVkza1Zo50Z4Bhb rI2Ss7FOGX/apG7Nw8Febfkszo4MVCnU6GYEJQHLkg2P1uJkFWPJvUlU0Ilh 4sjT2jR+H0cHLeDYIKE7QOj2c8mjgKOfHu/SwImfrnHlYePGOGzcFI+NCQmI 27wZcXyMTXfihawJxNeeQf0wZ/0oXUzjBN5MK0TjG5uxdVOxYmxJCklKTcXr dBtvUGnLOUlX8PGFVTF4fNEzypWsTKJsp2sheStI3orNyViekIyXV67Cs0tW IjLdg2hHB57+dyJe/f1WvPCDzYj5xW4kPKf9c0rZNLbs1JSNnwp6y6vfhTbz G+XWfeSh/4bgPLR9cQ5tYiG1dbsOU0fOYm1WI5Znkra8Zrye4eB02oqlKYlY nppIa8YlhFSOet2o2+FBl78MffnJ6F77Koqe+DP+cMe38NC3r8XD3/wyHvv6 l+g7r8FzP7oWL9x+HZ6//1dYdv8ixP1pG7a/UorUDR4kp7mxKaMMa5MzsSqB UzIukdNyN9foQhtJ87UxEm1RVlNoy8zcioFWl6LNplj7II+krd0fpG1c0RYg bZWkrVLTJj5WYroBEwIqq1XNNo4PVXN1eYLHE8PViPvHbpyqbsPx9kI5yzPf 4XsaRTpdDZyB7hDbO9CvrdwkodunoNNWrqvBjjJ7OrYlblHAxSUQts0J2ERZ l5RFS91J89XNmTyK9dVTKOmYxkDvEXQFKlGfGgfXujeQvGwJlqcTJkok5fFX nsEDv7gdv6H8D+VPP78d//zb7xFLTxFDkxdN6KK20dNsScYb6+Lx+GOP45Vf vYzX7lqMmJ+XIv7FIaQkM8DzTMNyczldB+DoHVKjr8591qAW+m9khaBm/cvq of+A3hzUQnOUXwqT0tSZoq+gtn8Y2TXteGN7BZbEJ9BSb+XzbZxX2xmibUdM GuPSjCSsEQeamIe4nN3wEIm+He045NmNv3zzu/jX17+BJ//7Ojz9nevw3He/ gle+8w0s+963kfDHZShc04qCrAakFHgRn1uI9Zy/65IpSclYk5iE1Vu2Izae uG3P4xq8E1FsW1CLTVqHzJxEFOUlw1OWScraPDYF2QdnMOsU2xIwmAkCxKxP grAqYlalMTOOUVuyamW95Bj/xB6crmnFSfXq5Eg1FSjPaduUHKcc43eOUo7w +wo1ykFj3yZ7A7PsWyCQi3JnBsodmXSmm7AxXtu2TZSNCfFYWUrUyroUbiuL 67EsqxAvpxQgrrQM9go39lY40VaYgabVS1C4YSWef/TP+MW9N+B3d/43Hr7l ejx22/V44g7Kfd/Dc4/8EquTaPsi1+KNp0nGnU9i2S+X44lHn0b8ojJsiXEj IcGNdZtLGMi4kSf/IA9Xx87+cTj6RjB15uz/RtgH/nfCQhcL1m556L3Fn7LM 5anTCP3vjbgELNu6TbP/HUZZyVidmoy16clYR/uygRLHKG0TJSrFi0d/8Uf8 4Xu34ulbbseSO27Fkh/+kHIzVt51G2LuuxUb/vEIEuK3YTMj6oSsNH4vDXFs YyOjmvVsd10y295OgLcStnjCtn4bF8o7sdLThMxcAlaYjKL8FIKWgpbdZeSM nrONtkwJQWuv0PaMkE0QsknasiBo/QKGBkTZsjmQCVZbnq7HmV2tVIS8+kAQ LhEFF0Vs2WGBa0Dbsv0EbMLYssqqPNqEcncmrkW5KxP5jDA2UoViyzYZ5xlZ TLhKurAsPR9vJCdhGXW6nOuvldTB0tQcxGSW0Vd40FhZi0EnI4LErfjjDV/D b6/9Mv54/ZfxKP3EE9/+Mp759pew6Kav4PV7FmH9g9ux9Z9OpCyvQfy6Ujz5 9PPYkJzPiZqN2E1bEbtxC2LXJiA6dhOKKncRrFGCdc74sHf9d8w+NMcW/S9g WVvgofd9ftKktcV0ZXjy1efTnWnIdGWo51FbOcrbk9XztSlCAePbdFJF6x2f QUoy07E5Kx33fumLeOCr1+GPN96Ip+66Fa/ecxdW3ns7Iu//AZb+5L+x+M5r EP3CI9iam44tOWlIYKwcn52myNzItcSGNN32Onr1tdtIWMI2xK7bjJT8AhQW paKII1VUyMf8VBTSjA20kqxWTdWQkEWqRhn7a7IqaVI4+n1iYoQGTdZRekfx kMdI1fFh8ZQky6ZQWoBtzzTibG2rekWx4dRIdUQQM/2FY6GIDc5FLIDuVifK vbRbnkyFWRaVXe7ORn5xOl1mgiwKCNrnEMUQ4Y3E7VjOzq5IESFeVEBUul5M raJiV1Mi033YnNuO1S9H4+EbbsZT3/sBXrjhW3jiv7+OF779Lbz2vRux7Oab kBHZiqzEdiTltGFrjgert2fhiaeewmrxCdvELyRyum7FamK2im506+Zt6NxV 8+n56frou9P1DbOJbWXt5BeABgYGrg0DmK6+vlZZrkxPLtLtSQqmLAKWQw3J fxvFbG3V59cz3tzIODSOcWh8GuFKJzAZGdialYF7P/8F/Ozr1+F/bvg6Hvne 9/DEj+7CGwRtw/3fxxs/uR4v33MNVj73MLbl8/N5GdhC2DbnEjYCt4mwiSnc QB2v599bv307NlP/xVk5yElYR7+6heMjmH1Eg1aQgl2BwhnIaLqCkHWLvwoY yKoIWVUIZNp0ETLFl8RcGikl259vwtk9LdTdqdFqzr6TozPvnRgxrnLYYEY5 zOYOzcHMTsTs3kyilkXUZFcjB3YRolZYnEGLRku2cS1iNkRpx3AZItnjSE7f 6DQu1amBVZy+azLSbPQS6XgfHv/bX3HntV/DL759Ex679Q68dPedeP6Hd+DV O+/Asp9S7vshlj38G856yTttZCPvV7NVyl7X0iesEZ8gs3brNqyJ34I1Gzch a8tWNDmKMd5QhzNHpq6aHzardjr0X/z8/mzYJLEh/0mJDlv4ivlG6K0kV5kN YXdNGTLKE5HpSFFfyaHFz3PnqOdF3gLklulMzMZEQpGcjviUDCSkEpj0TGzl emBbZhae+csjuO+r1+C3N1yPP9/4PTz1s59g0X33IvqBO7DqgW/h6ds+b8P2 wkwudRMLMoLMbSZz8Tnp2ET3uZG8rU9NUncBlRXlozQvF/mJ65G99hUUZm9F cVEGWbMMW/Is1kaENS4wNWuhBs2wNmixRrs0rEP9EwqiHWLSdlAzyS8149ze FpK2g6PGo01B96EgdPL54yPVCrijwxZwjM0oBwjdfhrPpvpSOHwEzpdFySZ4 OTYecjml7ZzODkp+ThS2rn9eaTRyWzKiErXWJecTS5Ec0BrKOkK3nrxt5HR+ 4pFHcNeXr8V9X/sqfn/dt/HirbfhtQfuxgs/pom7/XqGYdfhhVs+j3j6l00Z EoWkKb8jfAh560md+Ip1iYnYvD0ROTSjxQyxvZzmA1VO9PkdQp3ZbX1X7ML9 w6qzsNP5tOjoaPV7w18Nw5w2kzdj/6F9yCjbgixHErKdqUoDeTIjPZq1Uk8h Z2yRep5JEDZtJ3MpmdiSSubSsxRziVlZ2J6TjT/dfRd+9o1r8NAN38A/fv5T PPfz2/DCffeg4YU16Fv6IpKKsin8bCG/QwS3FbAdArg5j/ARvKzibDichYw2 C1QdVjnhK0zegNyNi5GzTuDbpuFTXpWxWp19DniBecCrZqw140VPaE+qnKiy ZIQr7ZUWnKtvvkzx9sE5rFUHWZuaxVoATn86HP5MCjnz0aD5JFyz+/K5tnJ4 85CfF4O8zCXIS1+ig5MtSYjepmFbxSXjasK2JjUd6+g31qfREKZn0GRl4vVl y3H3F7+Ee7/8TTzG8Pel++/Bq7/+MZ6+45t47u6v4/k7r8XyZxn60sfEUzYx oIkjeP988kmatyRsSE1VwKXSN5flZqKMKi7NTEZpaiLaPMUYJHD9BO7s0akP zM+b9a+1h/7bo3N4C81rXB+GN030rTh9agr+qixklW9DjjMZuU5di1dIO1ds IrlyTxEVV6Kee7xl8PrLkVdYgPScPGxLzyZz2UjMziFzOUjKY2y7Kgp/+fk9 ePD7nJU3fwWL/pKA0hf34tiyODhS4xV32w13wlx6SS7y7Pnw+UvZfglcHoqz WBWfOshdUepG5MUtRt7GV5G3OYrMZZK5dEoqPI4sDLZazAXeyVx/1Sxj19Ho RFezC92UCjrmACUClTwuQOZrrTjf0IS+Zjf6mtwhxm6h4lHDR2M5og2dTeF3 GeGrUvC1NJTCpcDLooiBI3lfhd1fQNvH6cPpnJe1FPmUggzNXhpdyMY0rfLV SelYQxeyjrKebmRjGtet5G4Tp3V8RhYeueM3eOKGX+Lxu+/B3+79CV767b34 521fxb9uuxaP3/JFbM7J4pIrSz3GZ2cqBp8ge+tp1BL5uqCQ6+EiSgGdPX1M eQ45zNyOCgbDwzUuDFU7MeC3v3d+9qxfJQrN4M7D3tfCsPch44qH+2uRVZqA HPt25DlTrdRLkTsPJZ4ChZ0+d4PCzue3w19h57A5EKh0cBnmRFF5MYodJYxZ Bb1cJOfnYc3SeC4xW2iK3EgpysOKZ2tR/3oVTi15lejlEPV8FLuLULWDbVTb Eagqhz9QDm9FGf9OKdzEz2nwK86IQ0H8q8iPW6LxSyB+xTMmbwY9y9xVavT6 BD1BwoldO0vZdgF8hKyishCVIlWFqKJUV8mvd1RXCoTZb7ThfFMjdlSoc/5C BnbVDDOIooJwBkHav5EQ+zc0Y//c/jS4KohgBU23n47Vn08hf2yt3JWO/OzX KW+ggI+FWa/pld0XkF1eiAQitjaJ6NGbbEjNYuhMSSNKnOHRUXHYfMdK7E+u wWt/+zN+9aMf4i+3y3311+Kp392D2DWRDJOzGbZo/BJEiNy/nnoSeQU5cNpp Qfg37CX5sHMI7AUMA/LTYc9JRnnWVozUujCy04nhagcmmndfNj+Cof/ur5XW nYNgaK7t62EQvNLUpxyc7EVXqx05dLl59mRimI4CZxaKXLkoceejjO7WIebI QzZ8ZEQx6CCDTsVfVbWLHLlQXePGjp00GTW73HQzO2vd2EydJaQFMNBmR5lX akbLse7vTRiOLMPBtUv5SRd27JKvshlK5Q4nUXTAX2mHjyi6fRpFl7MIJZmb UJCwBAXEMH8jUVz/KoqyE40VTEEtMdJLixkLuI8YNtY7FAIu4ucJEMHKAlTw s4EqhaBN8XcZj0XYQYlfvg55yztwrrkBNZVFNqJYhCuww19EEAkrldG4oxQT nb5QJ6zN4OWKwYEOFzwV6fyDWfTDOfzjeYo/myLwE8jLIXu5y1CY+wYKc8hg Nm1hcYLCsJgdLvGVoYzupZx6TqeLSczOQ1xKNjal5nAdl4PVv45CXxTNc2Ut XnkuBk8+sRQrFj+PyNVR/Btbc3M4plt4FBjTCvORW1oIr9eOmJhIpKclwu2k Qgmjs5xzojQP9mJeI92JoyAVjtxE1LtyMFrrxGgQxlrb/DBamdzQtNwcGEOz J9a50NuItbf/ODqbywkU1xhl25DPNUehk4bGmU0Q81Dm5uxhkOD0kArlg4US C0RCWO1G9Q4PIfSgZqcXNbVeUkjZ7bVhV52Xs0BgHGx3oHaPV0lJYSXyFjXi WEwy2hyZ/Ipb4Vu9k82x/wECWWGA9FSUKyBd7hKUZMXTJhLGTa+hgDDmE8b8 LZHKLhaXpKK2uoh/hzB2apu4t66cE4C6JohOgugmiF6C6K8yMFbTFlKqlZBE Sg0lfgX/TmQnzrXUc2wVjzXk8XLF4w7DY7WrAA1VJcHFh4bxvQrG1sYSXngG 3DSGzqAx5ISmgS0sWiMg2hSJC1DEYxFZLCzejCJfmXY71xJDmT8O4uykZ3ey NRdyiorx8v0vYfdTeTha1YjCkhJERXJ+l+1UkVF6URHy7aUosJcgn+6pIuCi yXDCz+/7fQ7ExkYhPT0JHjdHkm7GTRxdZYIjr7CEkQPntKMgCVWlqRirc2FM 4ehAf6AEuwL+ufzh2v9/AH4zBEBrg18X99+CQ/t70dNi5whk89ITUeCgl6M1 LJY7tl20hi6acbe2hl4vvaZYQwIYqHQpS1i9g1awhgDusuDzkT0fakX2iPi5 WKnEYKcLu/f6Kfr8mhd3o3ZZLc5GrkRDSRpqdhNk0lhN81jFyMQi0RcgiVSx i+bUXkxLvZkEJrymSdxgzGIOFyVsw+vOUhS20QP7SVmZ3InJNYCjguYwkK/M oZd+12+Zw2oxh0TwW+x+IQHUkrBiC4pjCGHrXuzkx3byKzUidOY15GgHedrh K9T2kSxW2vMw1uGdtTDZtTOH5GSSInpCYxCFwXJ3hjaGecu4cKfwsZivi+ic iznHS6jeMordUOgkRe4KMbBuBhRuZG3jhPvNFhwqqUfTLj9V5MFLf9uGUl8A LXvEm3g4HyqrPPR9lW4uMQXFCjayigF6RkYyx5DjSAw9gqGjgFaRM7SMF1mS AWcxLWL+VnRRX2UJK7Hq6T9h1VN/RPHWNSG/ezs7r2ewsxxuaDXet0Kws8qg 32vsXldTOXpbHcgrSUB+WRIK7elELkv/0ICLds9Fu0fs3J4y44A1cpVBm0d7 t8tH5Iibhdwev00xFoHd9aQuWagTddTx1RfUuTq+G/NYIwZiPTgSH4WdtJI1 u70kz4Mq2sEA7WDFDqHHQVpo//xlammSH0odHXIB48L8rbR/JbzskiS01jtp usVs5wbtnqaOTrhSO2GxfQGKsXs2Yc6mrF4EElZuR+nqLpxr28NXO3nuY6ih d7awk/iwWiHH77vZjiMfnXUOHCZygpvHz2UR/a+rwpi8Co1bvkGtMG+5DcX5 y3GVIq6ILrmEoU2pz0575+Tlumjr3CTNrUkLuJGxLQ0bbluB8cQajNbXUfNe mm0fFv8rD74aWtpdJH+Hj6GQV4jju1cxvPUIewo9Ga2EhI1ITEygDSyHT0aS I+qhQXHx8l1yF35+EhI2LMOSFx/F6uf/grLNK9Hly8XYbgdGd5Xj3PGp/xfo QguXvh0GOn078SdwiJFfT7MdfQQvv2QzCsuSCR4nlCNbgVfmLFDguTyyKOUl +7WzDdDZVld7GLaRlp0CnZ/AVdDGUfYEyFxAURag9a1rCCBhexUGu7zYw+d7 Gip4rkI9lhVXIe2lFkytzcZgxkbS58MO0ldN+ip3ulFBu+dnBOKl93UzHHRx YZwv1G1mxJSwVNO3SVYlizmMW5FdsA2FDolcc7h6Inm+UPLyNXnK4xYoe6fI 20FHusN43B0ixaQvBeXrunGuvY7w8eS1CsEafkVJCIBVBLCSAFY48lBHnywZ Zg8XIB5/CHy0jyXlm4M2TrgrLliuHovyljMAXEbyHLRzmjynIs9D8jwkz0OT 78W6/4lG5wo39u/eS7Z8hjQfXn/Rjp17KlEXyJUFU43PJqd5IH8fVexVVjEO 32y4k4hJlpEc0NKSbGzZvBpLX3sWry15GglxK5CZsgYNtNDj9W6M73VhnBZ0 rM6OEbJnZVBCE3w3/u/chd53fIVl7BrL0Esf29/qRH7xVnLHQK88E8X2HPUT POXOGR/r8UmQR99nGbsaY+yUofOTOfrQPRVkrkIhZ1OULUBCIpnr9mFvY0CE p/nkWoXj6hdqULliL86uWYsWxpc1xK6a2FUROzF4fho8rzF4Lj81lbt5Brn4 10zgtxiZSau4WlzPECGbC3aGB/IjBwq5PPqpfAZ5ocjJaoMLbnJUXV1M5ERK iFsJdtaUID6KEc+GHpzrqBWDV1PMo6CokKyWJMAOmr4Polq4o++sJHcVXJz5 /y9n7wEe13Wfeb8PKNvx7qbYTrJJtu9mS/Ll2+fZfSxLtmTJTbLlRJIlUVSn xCKxiR1sYAPRgRkMBphB78BgZjC994reK9HBLlKNtqxEtpN8m+h7z7kDEJRp O1k+z38GHMwM7j33d97/+z/33HOpGgPkKxzrZJgU5uJWKXZOp4Z85Sm8WQv5 HU5bIcs+wZzT3cRtDVLtQuQzxO0NS+YiZC2aiOL8lrNI7+vG7cQkRgaS5I3N m+qNi/uEF0QxPp7iUYjRJ8f5HJfoxXhkCSB7FJuS6iDEr8vYBq1WDb9YGLZZ j4KCHOTnnyIRFTCZGlnYicLYAD8JGEtacGOM4I0SvJEA4fNL+D66vvgXv5m9 jQMu929gb+16Y6We/nf45K8/xCKT7fKUfwN/7XBI/rrv8BcUyVapdqMJ4b3I X4+oDDLeTiZZhb0h6p1QO0XfkkSNMZFEbSMZXBStM8L/fUm+PiJ+RxQH+d76 4nHMa5L4SXMleukB08y+KYKY6Fe0L0rtC2e0z2VWIMySGP6ehNCkz0Ft2WFU tFYy25o/A+GGSoOCFUs6uA8O6p6TR8fJA9bjYrbtdfOI9va5CSDNmV4A2I8+ /j+Ljy78ZwlnXwZEoZE9YsSG35fidyej1NGwFfGAGFFuQqepLgOhRULoDXdS 9ASA+RnBK5QIimcBoViMRkIYFRCG+bkIO12U7R2DoakLps21eNcxipnhHgW+ +9j8CbSU16C8KomL09FN6OlP4I/4GJc8ysgwGKbIaSpKkX3sMIpLzpGQaths nTyiTLoRcSGqDcFgNwIB1r6+doylyd9EWGFwjAzSw9wY8eG9uYE1/jYO+P0a /r52D/6UC9j+AB/eWsQS+VuR/AVhczBnscxxeFhjeMmfONHgp9kL3ilyY0nm XNYWyQ3a17emfeu59vOSvZEMY4K4mnrBH7VvdCK1Sb7yOxji7zyOJJpOTuM9 nRPv6c+jJyOASQpgnAIY7SF3KXKXYM6Nipx7QcHuKzAx1darj6JOfRiVDaXU PrMyUCSwi1jlQG+A2hNiRBIObjqrP9amibSL2Ll5YNw8QCI8oqDt8/CY1pSy Nqhdws/netHX79kk+fsy2XTxbS4plaImFiOEKZKX5J+I80/F+Set1iY0tuvR 7WjlnyV1lFy3rzYje5K6TRK5r7DKIHCRALcyBF80TOAiBC7KLBtDJ2FTfTsf l+t7cXVslB09Qd6SSPUliVYSreVm6FtTPGhuNr5o8F5i9xU+xiV6whh1djWj TF2AMlUeKrSlRC6fni8gh2pjcZqnOE1UjEUGO02Q5iQQZJ3rJ3Y9NtyYFJ7x xniI0NwYJ3ajlL5hz7rX2zjK9xnuNo7yPXAP7u7L6N61pX4sTzDnTgWwOh2C zU7uWN843OTOY7nDnSjJxShf3L/OXUpw1y8qg6ji80S+Hb2jeTLHkq5REZNJ VNcmsbokLk8Q//tTvi5+z/eL4Htbq3sRKJ7AJ7oGTIW6pO5J9ljrxnqZfNMZ 9ph8HW1qJfHS97VoTijwaQ5DV5NLr2eGPWiBU4xSRsQqB3aaJ/bsuJPwuVhl uOgb3NQ8N72Dh87IwwxFwHr6vLS/1aVWROuXyV2a3Hl5NEV4JJVCEnslpy7C R3aFbFJCk+Q6wRI6Lk6i2Qlfhx71HbWyVhOSZ+++QI+XB6W6+F9w2BTJc1iL mGaaSWCQkqcQGMgQGKHclb5Sgsm8IN4dGl+nL0360v0ZArUeNFtSmBsTBCZp uUknhc5gaoW+RgO1phAGYzM8PisiUQ+TKxNvpVoO0IoTBbEkCWSThtk0YoGI ILc/EOY2Bzow1qsQeGOS4jdB8Zug+I37KYJe/PSdxcztOBQK10ZXPkPhxtGV B+9B4aZMxbE45iGF/nUKQ7RfdmcH7C5BoVA/lrqBe1DIzJvqExRGMxQK5WPm HVUqCUGhyLJC6ybFpYbV1QmsEMHRqSTGJpNZGRJHJtcoJMEMXeEYJrX9+IUm H+lhkX1ZqGUoDAsKk6Qw7oLX00kVzEVHZQ7qVdmoL1corK48wYqpW1lykmWA GCv3RR0IRNnRmWci7PTRhJu1rocUenhovTxsXlLI6PPS1fX7mBqqy5igG1fw s7kUj66P4ZUa48V3JatCLdMiqJ4pqmmSqpqguopVjmKk0epoJonVksS27mZ4 Q21wZEiUVYZIuJLCQtgsfGa1IkmMhKnYEZIYZYeLIYeuL7zLhPdiUxgeTHNT E1ID1ygU5LVVR2D2pTHBjmy1d6G+SQcV6Wtuq+Wh4/ZQ73r7RSqOylQszp6f PXeaHTAox/bjKZLITik6aDgulighiRETDT9J7COJUyRxiiROkcRJkjhBPRxn Gl7oXydx4zjfPUgUk6hEHfL1z5B45/LHP8IS4V4h5Kv8E6v8U33JzPQ4pxEu N5OZV+ih424SUxtIHMjoIX2bGGNZI3GEVJFDIX2iDNHr4pLDsamEiCz58p/z ke9mDE2Q4/EY3LYw9MencaM6gNuNBeSQpchACLE+qiGzcYiNFiRHQt3srSrU CQZFaI6ivuIIassPyOUCHX4bXZUd7pBDGSpn9hYqGqaDFN0/ThmIp73cCx/d hI8H2EcOGf0i/ASRYDULEJnYBvyCQT+Nq6C0p88nWRToCiEV2TwhBdbJ/OZA lHnN4zegoVMoYg1qyWJHl4oc5sp0nEX6CljB2MmgnWpos1fCGfbfUcQMh22N BjQ/o8MNqzB+fdzMOBs8Lp0f+wuz7xel8pWe7oQnnkbQ247qOi18QYeUir7B BNVRmG4xLPEHkkVxNiASdeP4iWNykDZBYx1n944xMUS4D2HaCmFaA1FyGM5w OEMOp0WEFBYpWTcmmZcpYWsciokHa2MwGQ7/54YJfWtzrAKBgDJC85/uQvED ausvYUgDY7eJWZrE0NWtYBjInPMQo0aJuzEUQyW9TJ8Cw4GRqBzaGx6LZTCM S9DGJpVnvTaO5SVxfmBsitXc6FQch/gLfoAhSWT0j0Xh8qZhL5rGx3UdmGSS iJPEuCSRikgVC7LJAjzkLV3VrD+yaQYZmmxJYpv+uFy72UE/4WQd5Q46KUcu NqubXtIja5lIQkiATx6C+DqJfu4Qg8AJEvVllLq2VXwyRxkZCBDBgCBS/i7d 55fUCnpTVFSR20WOj3O7YgknrZYoiK2oFyh2EsXOWtQ1FyrJmSja6QwFhjaG pbtQKrgrFKCJDWbsoYJi/iMXsFjdg9XRMW5nfB3FMLWgk4m3tlGHymo1zh/o Qqw/jZkhJ/oFfjLi/Dkun4VXFzCKAVpRO0aJ4gmB4tq4Ptsgxu4UockI0+UG E0SRdZQ/0oGFMR9RjCo4zoQVHFk33GD9cH3C+/9skLh7knj3qIxyheN/XMdw KB3A0ihdIU3nKtP+6mSIGEbYMkwgFHeJoCejhOsI+jIIinNkrIjFOTPqVb84 pzYSwRAJGh4TIy/EkESNihAYkjddeQxLi+kMgWNTMWrhSIbA4Qkq6XhUEtg3 GkHFhWEMVg7jb/VlGGKFHl/TQupXkEc7wCNd212Pau0Z1FIL68oFhUfQrjtB V2uVi9o7fSQw4IKH1ZQv7GEHF2PYXnZ4nyRQjGvHKQYJMQ9CnIDm30iRtDRD V+ZBT8clEii6WWCTfPHPJHwCVgFtkgcuQQDj7BRCS4ThFFWPOLFSR/hqCV+N gK/hDAztOcopX0s+c3ABC2bCZ6MGBnxwBQOUbAU+P53hhZcKMXTWj1uDU/wb dIoRH9oMzYRNgyq6PV2thrvXzb8dRt5xN/pH0xgf9KKP5lwY9CxpkP5YDpD9 Svi4q0nuh4SPeh5JE75UBj4xdSLSvn55nLg++MYs4ZslfDOEb5rucNKLj24u rGvhxvmmD/5qApXVCpSViS7kHITfWIHVDH1Z5C/MsspuEfQZ4HKaSZ81Q59L 6kckoRw1QV9S0hfO0BdW6CM5w+OCvqikL0sq3H2StSpVBIuLaUz1dW2SL/wZ 4SOsjKE1+MYj6Btjah8JQ3V0EpfqYviwTUX4/IjwiIfZUkE6MKOvC7WWetS0 VaC6OFsBUHUYltpzsHZWE0AHy3knXH4XJZDwhbw8imI8UQzniGEdP6LixHI6 IE+wiOEeMfYozGeKUVVGF2i4hL+ZC7ABxSv/Q4KZlEdNOXICWpnF2CGiaXEE meiZjYOUkNpOnSSv2lCL+tqjaGk6wQr4gjwBYmElbDbn0yx4FPoCGfrCIahP VMG9vQs3IlPwsvOUV6lRoVdDW10Os81A6RPulDQNioijJDeM8am0IO8+id4f S/TE6JgM4ZL6xen4sAQkJXaRTRlnU8ZYXkno0iyIkwI6liPRduWCdAHeRUJ3 kdBdJHSzhG6G0E378NNbd0qSjQOCn4Fu44CMslLWf8DVpQloc/ei19tM6Ch1 EyKYPZnMHNw7l8MEjzsDXCgDnKjdJXBK66cHgtzzUAa4MIELU+4EdBECF6Hc MUjUGKOyNIwFArfUo4cgTlwmJombEMRFSBz/Nj/bz+/oHQnB4Yqjs3CWFtCC ZXMlIvRbkjhWoLXWBsJca61nB6muLSJ1R9GoPoZuMSJtamcZxX1wu0idG24e WQ+J81E3AlFx7p6ySecQoWxH02KEW5Q4QUldluRuEyrLAug3XsJfX/SK2YCS uKQ8XJT6XhFCK0gs9SJKzYuQuDCJCzJpBUhcl7sNekMNow51JK6u/iiMhnNy uougze7qoikgcX5BnF8SV13VCP2TWlwyjWAgFoCqUoXO7k5iwKTO+iFF75YW tUSGOKFl5Zok5mZTJC52n2TtS/Jk5xptCnER+oUwjh49THvnVohjU8ZYQkV6 1ojrZgbpwtiwU16UmcXHKD7Px3CGOhI3G1CIe3fx/wq4P8GHNxYxzkxedeFt TKYshC0sgZtiaWe3dMJpN8Et5uCINUZDTnlWXwHOJ02qAlyAOx9E33CIwIUw mAFu5A5wQuQi3ARtURDziz1YGRCsjE6JK2DFb0YYw4wh/vnBcYrlWJgplkUM vy49HITqbA+SleP4RYMOw/4WhNk1g2lxDqLW1sAuXWutg15zGi2qkzDryZvV DrvdKed9ODxuuHhc3UEvvGEfmfPTvATkfJFQMsicEiQrYlCR5UyvGNgWZjJE 3rg75sv4eMbFAyRGvgSH/10yGSdvogSP9iqqK40nmQux/g2wL/iZp2whI3TM rzoqXC15q63LRltrDszGCzB3l3O7uG1eD0x2K9qMXSirrEDOw+cwXZnGdM8A c64wXGFuV4RcRzO8RcmbMJxRyVu7tgW6xjRWKEHi5OQmidrn5M/9g3JmUQY6 cVpdTB76l3eg6xfQ0Rf0ue5AlxLQGRTo5iV08xK6eUrdXEiJi4RuhtC9tw7d xmHnz0C3cfjvkcwgy4fXF7E87MNEvBtFx7cRPJsCHpUn4u2G02aE22mB12uF X5x9jrjl5KaoLA59Mrekpd0mdENBKl2Q0IUIndjLEfLzeYIXzigdjVqBH3ML bKXh5k3yhd9RgJtQgBuQwLEB+RU9/Kr0MD3WoB81mjHM1/XgY80ZhAicKWig vtkb8Pukrl4yV2vWo0t9DkbteeqIA1arEzaHC3a3h8fWK7OXO+Rn5vLTtAeY QoL0L0FyFyJ3IXLH6AllEaQwPYBWxd5juYyfTtsEglmSxz/nEVLUUA49ymB+ JnUhVrpBqm+A1Pl6XPCmHPAkrahkfq8kdTWkrro2G3o+m01qGM1GtLS3olhd hhNnz+DUubM4+vQZpE54ca1vmm0bpgoHFer4c7w3wraOMClG5PCqMqQQIXVW NJjSuDxuUkgT8jYU2SSQy5Ks/bacXdnL4yOO0dFsEifG2Fmlx/szxPXShfZY SZwZfsrcjXnhCm8sxPAFPkYU4uYpc/OUOXqMG7M+fPze3WN9ayPOn0Fu41jf I5nRFIncEOsIHtteTyux207s7ESOWseqzWEhcmLeNZETg0RiDkk45lbGJGhf ZAVIlRYVXu9gQCI3MBKUK+ANj4UEdSFxGiMsFj674MXsAquykTY5whwWNo6/ GWYMMakPjBFZfq5vhAhze9JD1FFum9UWQmPeLN5t9uBWwzm0elnBORokcgpw tWix18Nta0Gn+jy6uxy0Si6adDdsTg9sbh8rRWHWmbwInCeinK73x0Ps1CFm lBCr4zA7epjgMWjOtXScQ7bLuD0urmCMErc/46EhlMRNRJi4hURw34NsgwAz lI+4eYmbm7i5kja0MbFqaeX0NUegqz6KsvJ9KC7Mlyb+BLt/TX09jFYxx1sD 02sduBSYQiodl51B4CY6QpQdIc7tEWeQlHHUtRF94qbzwuCmK55OyPk/QtSI 2VAYXyZxTBQyQtL09ErzE5QV+bncHLm2/x3snNwnVt49Fond+KibqInrrmKC vKh4EL3wxgKRmydyF+8SuY1jehni1qYcfPzxx9ixY4f836OZOQSf/PQ2lgYV 4lZJStCoJ3U7MNlD6mi0Ij4rXOJqMZFd/Up2DUWVEVkxGC5mvafEkFa/IM7P /Q0I4rIkcv9CQCeYW4/yXDdm5tNYHesghiFGkNAFxbSCIP4VBsncgGBuNJDh jhJK5hIsyuIDHtTX8Hhop/BJcxNcpvIsCR7zql3BzuE3UInNcFqbYWy1Ez1i 1+2Bxe6F1eWFzcMu5A/AGVwbpFBOmvriYfZu1ofJMJs8LPELET2tmh7TfgWX xsRZtjAP/P8gasRTRJ8INhixC9BeBKh2PjaEl2rnoQy7mV9daVYvzBqmkAEF dWrkFWzHqbOv4mD2PlRQ3YxGAxxMSg7m/5qqZpR9vxwLHcOYHh6gDov8T5wT AVYjQek348z9iQx66f4MftSx9oYIHJE0ZqdimwRnWQI08RCkcRGcCS0QR0fo gqayhMm8BQm2Z7yf2tFHieu1ZXgzYXGaTC2St0WZWBdlYl2kzC0yqS6EFObm /qnMbZy4p6yw/++xOODFCtVkleq0SusUNJG5k29ikmI7zS11Wkwysfq8NgRk YhUnW1xyuDtBu5yUo/4+OcTfx+8ZYAyO+IlcAMOMEVIkeBphqM87MDXHpDpu ECc2QmwQ8avhMSUG+faBUWLLj/cy16eHvUgNeQgcOyIbKMIGqigbwUT9AH5R WwCFuO+RuDp0UaDF1Ya+oJhuY4a37wqpc9I5edBt8cLi8MHi8sPqDcDmD8IR DMHJ2tAdCcmRWi+pu0NeRJJXo3ZgsGsck7ThIfIWFMEjHuQRD8gIwU/qfCTO S+I8FDw3m8PJ/OpgFdEVNqKwrgjHSo5i37nDOH9hD4WuEFq9Dq2tzbBbrXSc dJ2k7sg3TmNElcRM31imylmboazU1aLKiYlRXjFE0BtSBqn6aT4Y5/Y1cNt6 MDfhF6zdJ1jLkqj9toStR8BGWRGhqSwmcM3swG4C51oHLpTuJpA2uQ7CJtxY EvK2FBHrCC8yoS5S3RbWScO9Bug+g9rG4ZFvZcaJF9g2y9yW1SEFtVV6L2tz KYpz3sR0vxNRIuYWFzOxWhWTa4IhbltUDH26EBenO+WpTi/32Uuv4KOHEJPe M7gJZvppgRLtSCTboTpXzwLdiomUnu+1kTPiOOYX0wr4+OfkjJ8fIbIj/D5y JlhLStYopQNM5NweU7cTuvMzuN4SwvWmc6StHi2uJvgj5gxr3NZYBOFZcZeS v4bF2UMV8cBs8aHbESBvQVi8QVj9IdiDYThDYbgiYbijYXj4OW88Al+CQd6q 1U70N8cwkvLCn47ATwfv76U/8hG0/0qciSlzq5uouYiaMWpDYaMK2WWnkF16 Aqq2crQHOmAIu6HWtUBbWQWtTsf6jZhZuomaDdk/OofQYRdWUzPswQEWNx4W N/xzUd+dYjoZWB++EUMyYmxDXDcgLmjJPWJFajiNuSGTLAs2ycz5u3f0bNCf eWbXleHN4NZE3HgIxSGWuFmJmxmLM6JQv7GUAY4RlSFeE55ojbrrc957ThD9 jcQdwIfXlrDMZLjCTVxlqbk6woqBJaa1pQwlp9/CzIATcb9DuSOBlwk1IKbQ MOXHnIglXHIAPkXrkhZnz0ldJNqCUKAaPrcKfo8KAUbQo0aIoT1fgFiAtHnz EXKpEXTydw4Vov4aJKKtdJ8WWkCSOyyI87Ap3ZK2+CD/Frcj3E9x7bejiypl 08zgp60GpOpzSU7nOnHeEJ+pEOHZj+Ut5yPzn8CZuIgukw9Gi59NHYCZ1Jm9 IVhInTUQhj3EfBSOwhmJwhWLws2wBJwoK2qER29AwNUMg4vouDvQyWcPFc5D 6NxEzk3kTGwLraEGx1Vnka06A1VHFdq5HeaEA6a4Da7hYXkrXIMrhIrySmi1 VWhpaoLd1I16dSPaX2zBkmsSUdpKp48WMOCmwtESypFD1r+s0sRk2OidYess eeHU59nsARTk+OmC0/JcSa84ZzIQEFWpfPBT4O6IGzsxE0WKTVrXrEVzp04S F2OzRvoUBzc57sU7y7Jo4ONv8ZHULZO6ZWbUZercEjPqEqlb9OPanPdes0Mf uBu6jeMjCnQ/xM+EixMXdnBrV4cI3TChG4vIUtXWRvDOvIUhMfve2i0vvxYX 0QWDBICZNRoTF5Y4CWITgdQx85bC6yqF312GICNM4CIMe2cOCrOfQOW5IqTD TfBU74Dm6BNwtecgQvDCjjKEbPyMtRRhfk801Ezv5mI6JdSD7IsELjLAvkjg gv2U2z4LCnLTGKwdwS+oKz22anEtv1w4wsOUKm6AuxG6yOLP4Ru9ScgG0GUN wEi5M7pDMHrDMPvD6HQ70GLrQL2pFro2FWra1ahlFOYVwVhOT99RnIV6vvDn fFShjm+paihEftlxHMvPRnbeEag7a9ARscHMUsrEfmhks1h64/BNrqzf8dab SqNWp4eW3DU3NKK6pBqF3ynFbNMgJvsHYXc55KWkYsR64+kSwZ1ywk5c/sTD 4Kd7CLTC2q2CzaJCWYEWIa+eJZ4azm41fK4aWs6gqM16mHh66JkEb1mSuH9J 5uiDyJ3B0sDkXqJwR6WLMLH2DTlxczlB7hKSOrK3IgvWFXK3kuFu+Q53718d uOe05F8DnnILuKNY7PFT7QgdZVmq3WhEDsyJ0sHOVi479xaGEzZ47Raqlw1B Kl+IOdbjaoCtu5hOvYT5twQ+ZwlVoRQhdykihC7KcHTkoPjAd1C+5yFojp1G f7gLUf021B18FNVHHoOn7RRihC5qJ6S2UoLH7+jmd5mL2XCNGZWzEzo7QoQu wFwtoKu216Ds1CRWm+P4oL1YQidWLBF+7F7QRZd+gejy38I/+R66Q4NotYhx hXZom8tQSYoEbNXkqq5DjfpONRo6y1FaUAyLVgNLZzFloRx1LSUo1ZzEqXO7 cfLsbhSqj0NH+mqbSlHTWMzPVKHJ2oTu/jT8U1cyN7n9cP0mt/6RaRg7GqAp q0BzbQMKnivBYEEM833jsNmsLKztcHgcmRN1mVPFETcri2ZY7XqYzaWshMok aQ6GXrUH595+GlUaHVIBLRrVe8UCQVYVvgIPifTwPR6+320uQyTYgnjSLGVO IJdkYjVY6oldMbFzMMEqUrcyG1KwW2HxIEMWECuygBDYraxhxwRL7H76wdIa WhtH5j5D3ZYtW9ZH5hTqnsC1qUEsUa5XaBFWB+/kWCF3l6ajJEcF1fldGGHZ 73NY4XV0ottQCJupCA5S57YWk8hiBBwlCJG8CMmLkrw4I3/XN5H3ygMoeelr 0Lz6KJr3PI62tx5Gw/b70bT7QbRdeB5xRylidn6G5IZtJQha+F2kzmssgpt/ JxQ3ZGSOxFHqfH1mNDlrYDDa0VE2g9utVswZypiTTPzd6Geo+5mkLrJG3cx7 MPf0o9lDcg3VqKKP0FPSq9m7ahn1pK6R1DUx1IXFsJG69vozbPnTuXvwZygj dXXNRWgipY38XH1rGWqbBXUlaO1sQofRyFxOvUpOZm5a/WHm9qM35a1dbd2s pTvqsO/72fDttWM1Os204CZJpM5ho94p5LnZsy32RhgMtF/GEphNpbCSOjsp clrKcGr/D3B272Mo3PUyavVtGAlWQrX/MVSff0lc0mstw5/Ax/f5+H5vN1OQ uQReE9XBWIyQv5HlqgudpK5CV7wudGItVLFMx03Stk7dKhPsKoVuNZKhjsSt BNep+8Unt38jdfetT38Sd3/75JNPlDz7r/DJR7exSK+6TJOyMhDKlBSK5F2i 5ImFvzpqzrPq3IWoS6Nc+/lN2MiFi3x4yIlf8MIIk6EIU22MESd/p5+/Hxde /BpKX/46KrZ+By1v/wCGvY+i5c0H0fwm2dvzABJkNU5mY+Quwu8IkeMAefab iyR7LkMB2dZQ6QRz3RibEmdMW5iDOlB8Joa4fgw/qdMg0l2F0NSP76l23qmb zH996Iz4YGB00aobWRWaaN9bHW1od7SjVnBE9qrJVUnFCeRkH8twdxr1zcVo IZNZaOY7vi6ZayBzBnMrTDYLrE5RGbNCtrpYtTDMDlYw9HTJUTL/HsKLmdts phKoVZWj6dl6LFrGkaK3tHV1w2Ymd1aFPaOpDu3thejsKEIXuTOTFYupGHay 4yRDxSc3I+eNh3Hu5QeR99zD0OccQ9ux51G57euoYj/vVL2JAMkLWGh3RIjs 0a1w5yPD3i5xvOg9qc4achfttePSxbBc++qW5I5qtyoT7KpMsGvcrYbXubtO 7q4u+NaHfTeOCGeg+4sMdGJ8Tvw7cOCAGDNRbuz7HVybHMIS6/Bl1t0rwtyN KmongZuO4epsDC2V+1Fb9gbSPrXcA7m+D1tD5MKApUTmxgipEYol1MvZmI1T P/oacp99GKoXvovKrY+j+vXvoPm1b6Br24Mw73uIqnc/kqQzIYhziM8yr9qK qXZFbCkSR+o8xkI4DfmwtedhZtSKG5eizD3NzKftpK4TVepBDFR5sJJ7GKHJ 28o9cCVxfy2JcwzOojPkRlfEw6DrIm3mmA8WFodWho3RRWXRttRm4VTRebaS Wl8ETVEtIrWd7ER1WaxA2ujpjLY2Zj6WmOKcqDg36vPB6fExA3phd3qYBd2w kDmLhTpltqHbaIGN9tE3Oid5a7EnoXrsLKZr+mihR2Bt6oK13Qwr39fd1Y6W hny0txSgo60Qho5CmDqL+HoR+3YxHOTFReZOvfogjj59P848+zXy9gg0276P mu2Pouq1B6Dfej/0u7+ZxeYrZQ0hkAt0C+RKeZCIG7/CK5AzlMBUfwE5xw/K xe3lMmsSN4GZgO2LGyRuA26rIVzP4PbRh8vruG0cmrsLt7vXkfrumsD95DYW WJAvZQRuRRYS4mRrFPO0lYKv/qAGbVW70KnfrZzFeJOdRUmAIaIWIWqe5jPo OrMPXfuP4+wz30XBqz+AZucT0DOZ6t74Hmq3fRctr70C76vPw/zWo1ip3o+x ij1It51G1FFMceN3WYmZtZDJoBAecwH/X4gB2sIRFr6r0w52IpucoOsJdaC9 zYbyk1RzVRw3NdXE7CfETBki6U6k0EU7ZBQLZxAzE414NxGzxilwfhsqWqtx sugcThWfQ1VrDesLOzzETlzAmvNCMcbawhgWl2RE/ESaEWIEGQTNG/DBS9g8 XgLn8cIlTqi53LCLk2t2B62ZjYmSomcyw2Logjveg5I3mjCWa8ZSzwRWWW1O cpuszUZ01Cr30GwToDUTtNYCGChuZoqbsJF2ipGT7VxduB0Hn7wf2U89iDNP P4SS576Jqu2Po+nN76Lh9a+j5g3C9vpXeYBDZOz3JG+CNJ+0xhnS+F225nyc OvI2Jp1aSowXt1YpaOTrHRkk7JIIcbrhUkScbhCAZSC7uhRYmycspm6KtaN+ BV9royPfy2jZ1YkhLKaCLFbJ1mAYK9Syi/SQKbcKvb5y9AfKMRRS7pBn1O/B VFwrf47T3we4892lh9F2aBfsZ87DW9qAUHMnSvdsxrlXHkXhaw9CLZR95zdQ 89Y3mUXLUPfaQdheexFTqjO47K7EasdZzJa9icG6Qwg25VDdCZilACMBNSbD GowHyzHmVxMybk+iFe6giHa4Agbknh1AZ87H+FjlxlB0Ap6RKwTIDiMLaWPY BRMB64560OGzorxFj+NFZ3Gy+CyhqkZ3gLASKl+CEffT8PA/j+DsS+WYag9j LNKNgDjhLyaahBkhH/wigoyAl8WiF16fh5y54fa44HSLkwYsNIUBY2llt5qZ 9LpwYfNBRN5sxidj17CUpOz2sDTrC7Lf1MBcl6/wVZ+PjkayRTEztpKv9iJY yVinPgdthYdRvXsnDv/wEaiffgK1L34b2tdYbr35GBr3PIGOvd9H1+5vo3Hb /Yg3nZH9PWQVBrhEphmRQP3UAR+TcJTcDdnVyDn6NqY8Wky6KnBlyiP4EkyJ 0V6FLnEySyErhGvLQXx0e3mNro1jb7+Rrkeles3Hg7RoISz1h7FM9UqwOhR0 9XipXH5Bl0Y2Q4v6DbibD8ufu88fgPFYNjwlrEAbq+ATt5DtbkTYqkXcWoqy 3U/g3Iv3o3jrAyTsAWh3fo3xVer7Sei2noZh6xsIZu/EUGs+LnoqscQmWWg6 ihHdPozWH8Z0TIPJKOkKl2M0pMKIX4Uh1hoORzWc/nbYvB0IDt/EiWMfI11w Ex/mqWEgRcaAHaawE20eM1TcruyCHBwrzEFFiw4mv5Vy4oUnQQliECk+/hYC cTG06pMz5C68rMVsZxgT0W6Eon6EIiQvRMYeRIiUBUNeBINeBALiPlDiDuZu UuYiZU64vSwm3TZ6ZAucDjNaK6tgeP4CFuqtuDbUS8UYxDKd8ACLyxQte9qu gpskyZXIqGCGpgI0V5xCQ+5BaN/ageZDJ9B1vhxtJ8thenEzpk5tx1L7OZRu /x6KX/0Gypkma5gdWg8+gXT5IVxtLcFk9RGkKg5KyiRhmeJ+zFeBGZYPQ07S lf02pv2ky1uBcbeG5Z9bgev6JVF3Xqd2XSdhIq6RsWtUrytLgbWVSzZOtvza 3XxtHO14LFN9vr+6gvkk+eoNod9djaRNhZRLfYetoMKWVXUY9W/vVlwYfXGg owpJl46ZU8fjrkGPQ00PTu/PLiKUreHC6yg/+EPk0iPosn8Id1M2318KU1k5 Kt8oQv3WvbBv3QI/u27KW4lBrxYznnLMmnIxoduN/oq3MGw+i7GwCqNBFYZ9 ZTDVniBXrfCmpxAcuoFmwxWc3HkNseIG9KuPoZR1wJELJ3A0/yTUTZXo8pnh iLnhinngTnioVgQiQTAYAXEFd1zMuBScibmLm5D/qg5zXWFMxkziLp2k7SFE 6N7E0lYywl65ykYwxAi65YXA/oBLzsL3UjXd4sSytxttNTpU/uURzGq6MM3X VkT7ktU+1ihJQynS5jL00KP3OFSyPatz3kbZ9u2opbVoP8daU6tFd3Mlmk/Q Omx7AXOq/ZglLOo9T+LMlgeQ//IDBOwBlG39GsqYHWztTehzdGLJ3YLFzkJc LN+HvpojPJ7luBiuYlRiJiRCK/GYDlZgMlCBCb8GY2zzlRmXZCtLsvU5hSzG VdJ1her1k9vL6wvjbBxM+wxeGyccPS4fv4gro8NId+sRN5YiaVUhTUzSbjU6 Sw+i6eR+NB7Kzqxidx/NfSW8nRcoJ1VYiFdlYTGuI+/LCR1bUIfVlA5jASqO iCAL0YkQH0SG+1NMhsrRa6pEO7ti5evH0fnGK4ie3I6FlFaOBblsFej38nP0 /GPtJ9FX/DqGGg8g1ZaDQFcujI1lyq2jB65ToYZxtrASutNOjJSpYSk5hg63 EbaIA/aIE86oi0RRUuKUFoafVAXigiavpIksbUIkLsqjoq21WDSFMR03yfX5 onGxKpBYLUOER16OFxFTrESElaUdxWwEcYbYFxRrIlrh8XdTmE9iOLcRlwlc 3N2KS7Syg906RGvPI9nJwrAyB4bzB1H6yuuyLZtyCtGu1qCzXgtDqwb15edh fGsbBg+9hrmGUxixqdGqPor9f/VVZD97Pz3h/Tj/8v2oOPBDdFcfVQz978Ft rqFQ1dJO6bBAZi/qj2CEbE105WGWTE2HFZ6GqRWTzEET1IoxasYo/78y48wi RMJmXZUohXGFyfDmjeH//ZtJEgNkwsLfIen35VKcaasOcXYgu+40OvOOQr19 Fxqyz8OgUqO7SQtPtxYRZwWGmYia8l5GoPEoFmKkKaaTMC1JlPRESZ+FS2k+ XO7R34crvTr8R1zm40q6Cq1nK1G+7QLqt++EbftzGO3OxXSqAinuXYJeyuso R5+TimS8gEH92xgs24fA4WMoKazFjkP5OHhiP0qrSmgSTLDkWzBTcorVdy3Z YfphuKJOeBheMuSnOgXE8iUxT5acaPfnyhzPTIj1HEveqMdydwSzcWNmfUeG /J3CUowcRQVHUTfDJU/1hiJivqgD/rCNnsuKuvOFiBygV3GTH78Bs2kXs00b vJUnYTzFzX1qM8vlI4qJKFShVVeurDln1mDAUwHj+cOwvvA8Pf4uTBsKMOyq yIKzvYRa4SZ+nq4SaM9upUVi8cfI4oc0+NeYYkJbFE3PiNp0SJGjIbsOMxbq PJ3qZPVBTFou4NjhfdT3jFtlTx4LqjEqHCs1f3nGgSvE6Aohukw9WqUe/fxn P16/6ebGAa/PULRxNtrjmblBV1cH0KUtRu6TL6NyWzYaTxahrZw5vFFD06zB EHPuKHPvOEVDbP4IU1ZzPklqypBEihZJ0TIpWkmRpLReAelSj6CpV8eHPkHT Sk8VlhlLjD5rFUp3lkK74yDad7yAQM42jKc0GE2WYySuho2W0sYeF6bxWGHJ dbWtFUvnTyFw5gDsDcwFVB8Lc9npfQ7EStswrjsHR9gOFw+xh4faF82QxAiJ S/oETWK9zi/IpRIlKUx3cYZqexNWbRFcTBjkmo9etol4Pc73xeV73fJy9Ki4 QjXmzFyW7kAwakNXSw1Mr+fiUpcNUwkTqzsNfOpSaF55FfU7j6D1SC7acs6j Me8COqrLlAPwu+h3aNC84w2Ed7yIMc1RTDANDHuqMOlnBHSYYszQRcyEdMxU zMARHeajVBxGFhud7booH9j0X0K/TwefhXnUUYVxewWmO84je+9b6K09jHHh RyPkhwyNSoZUmEzU4DL5uUQBWqUACXbWVtvaOG6VYWdtTobIY2vzyhSr9G9w cXQRNUeqUPLKOTSe6ESHthut+hp01qlZyJUjbdOg18ke46YC0c6M+bSYCFSS oyqMsMpvzn+FBdpRqUaCoyUytJGj1R69wIjqLnb8EjH6r6x0+L7eKhkLjPne Slxk1J/VoHjHaVTvfB2O09sQ7ziJ7pYDqCjcDM35F+BuKILfLoZ5Aoh1ajFi qWYmqsZE/hEkavJRV1SNilMejKl06GsqhTvskAtn+4mTWMxYrO0gVjSMiJmY QmEyHAlWsiQ3m1C+swWXHQpLWUgmvdT6JG1WklVaIuEWkcUPuJif5aV3jEjc Ia/sDcWsqN58BIu1Rox3GVD6zHHUb6tF24kydJWWoEtHe9xWgoShBD1NuUi0 0Y53seIxqyla59Dwl8+g58h2DNWfwyApGGGFMkYXOeETTFVJpqYzTM2SqYtk ai4quNJjPqbfxPbX48vyKMyzN19kz55lpFyViPNrvLZK5J48iGTTeYxU7sVI ezZGCdZIiKIkzKi/FDND7VghUNevD68taLRxYOozPG0s7b6bmR/rqYvg6EM6 6F6dREuRDcZOP9q9YkZqEKtiWrmjFgmjmrVIOXpoYPocFWRLq+ysjzvLDiTY Gs2wFe/MUdjiHi0KtsjVMrlaEUGuVnv53MfXyNciZWkxw9Qc4yJjllxNMfxd ZbjwZiHKdu5hx90MY+5WRBwFyqXX48oqPMvpbtia89BFB+KOBjAprhYMdmO5 tQyqg60w5zmwUJrHcqAOPsmVMuctFHFlyVS1Sa5nLWUn4ZFIifU+BDraN9tx 1RXBXLIjC6mkZxNfdeO/IyHmMSddcpmaeNKBqIiEnYV+HarfPoWJombcJIS+ OrEsSRim1naEaDtTrHZH7QxbCUbpoodNJehn1kq2q6B9gd3nuefRn7sfqZZi 9Nu1GHRpaSAqMcpmHidPE2s6RZ6mydNMhqeL0QxTMT23f14BKqHHAr3qbFyJ mUQVzR8PU5yHi1FceAJ6fQEzISWiuxjDdYfQV7EL/V2nWWmVUt1KcO368P3/ PKC+mZkZduXiVUyYlIXcrHVe6HaZUfyXPhao78Ju+geYw0tyOvXIqJ/+LJC5 62hIjv/32QlblwYppvweK2FjSwywOyiwsRUCVetC1pSBbT4jZIvc40XCtpQW LbHUo+PREoAt9KyJ1hpg/HyUYmM4ghb9duhVL1FAT0B9ogi5O7Kh3bwT0T1H cWOaoE0StPEg/WQlBhyFcDachrlNgxqTA11+n1xkbj7lR21BAIkSE5bzDiNC EgJhZe6RWCld2KEoIyZJk4IEr7tJLHfPx02o2tWJ6+4Ij1i7uJIu5ab9Emso pGiPkmIthbQTCUZzaQFMpRWoevkMKhmJo1rcCnoRCYfh9jsxOxKRllN0xDEa hjEnw8EQ5IkCv/wUNA9tRvDVV9BTchKpdtbW3ezMNtLmEEU/21kSV7WBOLZ3 SE/aGBE9ZqlcFxlzpG0uznQ4l+CDYOx3Mc0OP0XSREwkSC1Dpz4BpykfMdZ5 drsGIWbhfjF81Xgcfbq9GCs9hY+uLd21INbasNSvQU25Svg/I2wdRMeLDZh6 uwbVTzSidvs8K4dfwBn/FOlLn2Lqx5/i2vJAZi03f+aWosqtHi/LG9yy2QfZ kSVyFUROi157pURueANyk+x0w24VGvNfRdRwGhe5w3Pc3TkiN5+i25pP6/AV zJG5uV4lRqNl8BqOop2E1apfhrFpLyKeXKTCJRikj++Ll8NZ68SxH3Sh5Ps5 MH7/Nczb2zGbbMWAs0jMbXQV4Tsw6U7CauuCzWmC3dONTq8H5TUBVBzzYaKs EVfy9mKp4ARGG0qZqxrgdjbA62yEpasY1i4xuF2C9lr29+JdqGXo93ThHW8E Ex4VnIZi+GxVCHmaEIuYkOpxoU1VhPqDZ1Dz2jl0HWiFo8QHQ7EBlh25eMdC lztICY2ZsDTmZ6/qYJVF2jwMUjfuYgji7GWwnNgHx1NPYzB7O+bsrRi21aOn k/ttYg3MAklSx6YeJHXDGepEc4/7dVLnJqlx04I60jYby0D2+5jh4/RaZICb FMAl+fEkASZ0VYTObizAQJxwxzTwu8vRaVDBblZhxmXG9Y5mLOYcwS8C0a/+ Zu42DlfJG9Hcl1kCX74r808OHnxRvvQFnHkxCNOhZdw0v4fJ2I9hG/sU87c/ xY1P/jGzusfRu1Z4U24+mqFyVrnt8jVxfelcDIPuBiRJZprN1cum6mdTDdEb BM0XELbkIWrNg631GMpyN6O1ejcsrUdgaTmCgPk0fUQ+kq48pN358HZmo0O3 A/XqVyh2O+gv8tBDERzu4WFIa9GfrMDimBHvL8Xx3kKMhVAMR5/04OwP1Gj4 wZuwH3qJ28JU4Sni4SpGWlym29XATi1uRNQNh9sCp9eCqhIrTOe9WClTYdla j3ETD7X+KBLlb8Ov2i/Ps7hNxSg5tQXn9j6OfEbxru+gZp8RN/0RTHtK5Tkv L6M1fz8aD+9GHR2AYZ8KjmIL/J0JeHwJOb+17qUjWG0w4fKAGO7oxtSQB7dm o8SllgKmwjjRHPfyWUzurDkD8/bXkNq2BeOlhzDaXoCJSCduzHJf7QqavdzW PqLZTxUYoCAOChVwM1l476A5TiWYIJqTTL9TTL9TsjyYYgr6Q6ZXvi5CCiDf nxBM8vOMIbLZXHcWHc3n2fU16COXfVEWCIlaLA+INWKDcFr9uOj14iehPvx9 qw3/0NeHj8YW7zVScf/djG4c81p7ba3uVPD85dcUWj+H+rJr8Bg/weW5/w+3 rr6PT358KwP3i/jg5p214NZuXLo6E8YlUipIvcrWvj6r3KJb3Bx8dcSNoVAD XJ25aG84BEPTERibj0gqbW1HYGdYGg+gKv952JoOwN1+VD43qV9HZd7zqLyw GRUkuZMk+0nwCFP3UE+lQihFc2nChNsr4qb2cYXUxRhukdZ35qKoOBzBqWdo pl59GV1bn0RP80naBkEsDVWwkaWtkbR2y3F3l9sqr9svOdGNeKEN14pOwcgc IE5LDNF2THbkY6LibXjOvoK8bQ8hX04feQCaVx9A7X4z3g1EkNLtQ9uxvWjd uw/m7AuwF6rh1FXC3lwJV7uY5FVFUTWg7nAOpoub8WFfAP29FoYd77FnXx1z ZhEpFf6Ej2oJbIKAGJ99BkMnWJnXn8GwuZR1KvWU2fvGxThuMi4NupE20B0R 1l4LgaWG9rMK7XexqaihwwR1xC/GKBkEdZygjhPUiSjT1AQ5/RMEbXlkk78W fDJGGMOMQcYA9bOx7gzaWHP0xKg7rDdm+jt/ad3BgJvmR9wW8fKn+Pu5j/GP rhR+1mZB7ZbzsG9R4ZYr9T9/E7efv2uEbcOkoD/7DK4iPouwiN/KTO9Ymvkb tPtuoyNxEx//7O+UFeX+NW7fWtywolxQrucl6BW3qrw8E1XovSjoiWF6oAtR fzkSAY0cYvNZcuEy5LCaVch1tB2FiyGItTcf4OZUF2zBVlTnb2E8j86qnbCR bBdJt4vPNAnSDyNgykWvT4OfXkriJ6sJhd6VOD4gwe+R4HdJ7835KN6h3ke7 9Ljwei5UW5mqtzwP34WDpJd2wV2C6SEf7N0mOMQ5SUs7zIZyNKhLoDnEqqes Awvl2XB1FTHlq+HooO46OrBE/S3a8gg0m7+Bii0PoOKFB1B/wIL3QhFMNZbC X1KDYD3tQkcNAqzw/KYyBI1FCPB7/J1FaD6TjdSxCnwY8WOoz4EBxvsL3O75 OFYGDJhgDToeUEt8W3e9gfD2LazkD2DcWIgRuxoTdhUmbQLhElwackl8372Y IP0JuicT0muOi1rb66xCH/EdoNYO0XgGmNtCYn1E42l0sU1NbHuzjCPobjuS BTNf3ARTy5G7c7BYAbIzD1rNyfXX5XpdYvU4sXKcKBzF+oV0L9dHPFj+8FN4 Ln6K8ZVP8cny36LnVB+ulaZxsymEv711Bfea0HYXw5+Tf0JwKyZ8ZNZS+iUN /lUA/27mNWXVOR9WSWqW5PR/Kbe9FKTOKqRO9nUhxpZOBMqRJqG9IRqpcAWG IqzFGWOMuO0CkvY8ONk4glYPaa0veRkNDAfp9IrX2IKC0lBXDp3FBQywKB1j PT8qikF7BQYtGiz3GPHjDK3rpFJrb2a0dtBbhGB7KfTHinH6hTMofGonDLt3 IEnREnNrZob86GpRZQ7JwzC3F6KF2mg4y56oppeuPAY/SQvSCbRWnkbRrs3I f/kxVL3+ODRbHkLr84+h8ZAN74dZ0lRuh6c2FxHqcoyFc5RiGDWXICxmxYhp aVVnYX0zF+9ZnbjS1y0N6oeL7GGLwsnEaSZJYVCNGDOvectLmMzZifHG0zSg JNfNcJJUB99D0zrJtlhOdZLUBN4lpe/Pc/8ZHy4kafHNLOK1SJNWt/ECrCw9 DcRvjc5utrWFYW0/ugm29qNZUjf+SOa+7lYFU2OTclq8QXNcPk/FDHLtpDuY ZkpOscDhhLLA4UfvLEpKZq/8H5RWXkeT5u9wq/8f8OHYdfztj9/9NYT+qXjK Us5qKawKjyAYFX5B3HN4443u/mmsfu6XFgRbnQ5LZiPYj7kRJyJeNeJUhWSw HD0hjWR0MFKhMBrVMhFp6Zq0NPZalpOVLCcrMSciUsn8uReJjlOYD1diPsTX gowA38OY9VVixqeVMx4mXPwuJ5kVg27kddrfgOsTbnwg7zJNVpcUVuf6OzDk owfwlWDEV4q2Ei32P12F008dge7pV5CsKmPmq5P76egspJwUyJ/t5FWdbUa0 yI13yi4g3XQWIbLaXXUYJ5++H+eeexBFL38Lqi1PofOFzWg+YseH0QgGNC/B VrQVCSbtBFUvTl5jVoXZCHmtf+0wrtCxvj/qxbi9HLPch5sTHrLK7SavUyE1 WvbtwsBbW3G97hQueiroYDWMcrLKcIlQY9KpwpRD8FqCW+T03fkkWU3iA3L6 4WIStxkLQyZEXCXwWHNZBOZITo0kUqhod5vkVGDKo2zn41fozfh/8bqoIOjZ QmRc/OtlG5tqlJ+TpnIkDWr58xKzwfoyiFPkdZKySg37KT1jViYxB03vQq37 gIXlB7hy7fa9ZmpmWP0vmU9sJG69yrq7+F8zD59569rzvdj9ncx5lw9uLPwy v9yHS6S3J1KLmDBhZDcl2A0r7A6T3VGyOy64jWkxzZiNkUvGPGMhVpmFRQK8 CR7imya+S5EqMQIVrsKXsRiqwiIxXiDCc36BsZhhoMUkJXeCh3/cxq+3UMbZ tEupLomvkNublNuJmF5B11+axYcyPAQP3eXbzzbj6FN5UD21Hebdu+SeDjIj 9HiU82WO9iK4O4tRdsCHcbUJl6pySB9JFBMpn/zfOPv8Ayh+5RtQvfAUWl98 Hi3ZDtyOhdGnfh6WItZIVMEUyUraSpBgxElww/5DmCluwk8HQrgUr8cCd2OO u3GRWWMh0EAvYEDk0C4snd6Nmw7m+94m5RS5X6MQ7BFRjgkq7pQIVxmmnaW4 Ouqin6DSZsgV1PYws/WGtWKRsIg2i+KhFetqe0sRZnqL2C8gas/LQowu9g+Y 8fLYw/K4jRfQLwa8vFQFbtcIm3fIqUxx667Jk889YgTbqLRRukOFYVsNlsVC inK1OrF4og/Xxtzr0C1c/QVW3/87+b97zfr856P7F+uKvGn9py9tYHOZurAq 2MysdDc7ZEfYXbqBS7XCZUTDvK/BaLRC0VMyOcO4GNcqTMbFKc9KLAs2V/jD H8BXvRe9naewSpkVsSKCMrssglJ7h1Hi7dVmJpaRUTv/DCV2xFzO1+olm7fI 5qC3WKy14i+lCxdojgRU8rnfXYDzu2px8Ckt8p46gManX1FcwH9jGcJjQh6i 3aUw6qvQeoa9r6IBM7WnEOdrjTmv4dgLX0P2tgexc9fXsYtxZOtfIn//Uzix /a+Q90wePFuK0ftyPvoaiySfnrrz9Kga/CRKQ9ffzl3JdDfuxjx3w5N3DKnt W/GO7hjeZa09nWrAeEhzh02fJkvC+UVMeMQeqjHtUWGajb7aayCaSVyZ9GCc H+ujGGRhgDvxHzDIRh9mjIhgS46x/4/zeYI9f5LPk2zVqVClPHk7JU6+iRO5 YjKVOBnHlh0Xhsul4Jk0KoLaz1buMyt49lFk+4hob1sZZkNtRDSQWVDRg3ud 5/nno6jM7FMWgFKwozUbD2J2wIaopxRxIpek3UwTu95QOQaInSKFdyM3J5Bj LBK5JcYKYzVehUsxBp+DNfsw0JWThct84Su4HOXLItYwZEMtSfz4NWykWb8i j1NCHh08PlbiZ6ZeeOrowDoxTOxEJheobZLQ/b+Im7IRan8b5qp8HPxRk9x7 /dPb4NqnTBSbli6jihqlRc0pA4JFPtyqIDvafcg5/RR27vsG3tr7dezd+w3s Z5x8/a9Quv9JHHmmGm0vezG134H3dC6sqCvQXLiXbvMcPqDbvD3ukPsiutIS 96OnNR/+Q3uxePxNvG8pxI3eBkzHq+WklPGgiAqFO58ASagioWNmn2JM0zVN e8twqc+A+UEj9U9D1CokblkYYoN/QQI3GtNK2CYYk4wpxjT/fhZm+PiHckLM LNtzluDNELwZppxpOifpNoVzcivQ9ZiVSV9DTD8DFmVy3YBJzUOlRr9Bhf42 ceJAL9e0uz7pudc46T+NuY3Dp3cxN8JyZyyA2X4rYixwE9z5pF+l8Mb02y95 48FnTFDmpmTaVXiT8sZYFqwlKslZJS4zrpC3K4kquCt2YErkiKti/tYV/uZ3 cYUqeJlxKaqAJ3RvMUToCMVFQjdNsZik3Zp08u/ZFOgS9afQb82VOleWJWm7 j7QdQ7hjv4yk7cza3TlVP9qHjf8WuC3LcR3ail0ofnsnTm77FnYd/Cb2MfYf eBgH9j2Ew4wzb/wVTr+0Dcef70PN/lu42v0J/mH4Ci4HYzj/xqOwnTyMjyYC uJrQcR+rsMpuNNZRgNC2rbilOUzbqcNsqh69zQepLMWEjZCFKshXoAL/ghpX IXkTtE34NJjykTWfmk66DKnOQ7KZyZmC2BcxzBYeEYgxxtlak4wpxjRjhi03 K1G7yMf75Hy+uTWTHmSiES7987IHr/0TtPV3q8VseCUJ/BaGrOUYsqgxxPYd Mqkw2FWGwY4S9LcUY6XX9H8P2sYx0LtAG/ZhtteCuLsYCQpbknueJmi9BG2A oA2JqcMCMvY2UZcokCk5dGkdsipcTipwXeXzNR6Ma0kdvNqdmHHmZ+E6//Nl viR+pcRVyaPC3CpbbjmS4Y1xkUI3w4My7dZI3sbZJunmHAQr96DflqeQ9nmk bWcQ7tyPSCaStrP0eRVKC/wnND/3BtIlyjjHSlyPvLNbsGfrkzi+/Qc4+eYj OHT4ERxlHHn7YWSTtPPbnkTFkadw+KWLKFX9PaYmPsXtS3+DxZERVBz+AfRn nkJ17rO4ltJL2hxH9uHi4R24bcjFu4OtVPUaTFjOo6/1IHqaD0nSsoSobZKU fUVyNuGnnjGmReqgLsfa9kgdG2IXlglzHS6tPBU9RZynGTMMMf9B6PRcVNjn eabS38ECTfQ8Y0HMxgzy50xFKKy06LaiIpzO2BUxCXCMfnTUwZw+wvKKkmlV Y9hCq9fNQs9UiiHa4sGWQnm/+DXUNo5PfvXelfPd1YRC17+Xa4rNpE2IO+lF KGEp0pUmXT3c937SNci0OSImk5GuKe6/qHgvxu7I14rozozLxOVKUiFLgHQ9 pcMNhq3sVeZHFW6kdXiHIZ5viLON4k3f5Nt1EkhFFQRhWqahjYSxMGbROOko p4/IQVi/B3Exd55wDdClSRHLoBXlzynrWQwFlStExvk94jy2+Hf2uVJUb1ZS ad6FZ/DWwYfx1pvfw2HydH7H4zhx4Fs4dphx8Fs4fvBRXNj1I1Se+hFyTuzG fu3P4Vz4FMn599DMdFtX/CTKCx9H7qmHUZ3/DDyvU8WK9+MjpsdbI22snCrl PkzazmOg7RB6WyhRXSeZuivkZDgFtT+U1m2CqXRKDIaZjyHeuQ/xjr00xRV3 0iQzxThjkiFmPsywjWb5fDFTuM2zVy4wFgnaApHjMwu5sHgICauyQNQEbvNi AGKtcvMpmE24lUnxYy5mCicPs0ONUbsKo9YyjNLKjphYtXUW0YAHxK3i1+d6 3YM1eaPtL4jG/cqvZO1P8MlPP2TFU4CksxhpstZD1nq8KvRRyQbZCMP0GGNh RcWmyZoYVZlnf1qUaahKKtglyRmVK5VhLMPVOz062FWv0pOpsnCzR7dJvvoV +fvrqSopa1cTCqcSNDbwIv/OPA/KLLPMDHPLFEHr78hBtGYvItX7JGjCl4U7 35aAZSHKR6FpZzGcgUyY5Jmo6PM6JTv8F+zb8X1s2/OgZGwPtWvvtr9Ezo4f oXAnOcv+LuN7OJn9beQffA5VF57DhYLH8Mqev0bk6qdIR1tRp34aet1fIb/0 EVzIfxjnT38dAc1WfDTQiOt9dbK7sSiSnE3ZciVjfa2HpJ6NsllF0hwXEy/9 Utv4v8/J+cTp7uOId+1HwvA2kmSN+sJG/m0pZRMZxqYFY3HBGCWMMS+n/Gam /TJLL0UYfN7EnipOFy6HdXKMYEmULELeQgpvFzM2+PihfRgmV5MidYvymU08 5lJT4lQYc5RhzEaLZinBqLEIl1IByolfsHavKakZ1L60Ycj6M6Mm6/BtXFbs sQx84h7wCXsB0q4i9Ej4ytBHoevPwDciDC7hmyIUs4RDDOeJ8nNpHTydBO+q BI+mMq0ndHqyxujVw6l+jYWB+j7c4n+2KC/3ZDQvpfAqtPGS1Eyt5G+BIjFH jmZErqF/Hug8jVjdXkRr9yFYtQte/XZF2BixzgOM/egT56+D2gx7zDns+NKq 8QB1VijXcG3b+xDrgYexb/ujtGiP4cjrm5H/1rMo3P99nDz1OE6dfgwFJ16A vuQF5Kt/gK2Hf47kjU8x2NeGxsbNKKj6DvI1j6JA9TAhZNLN+wZW+xpwmbst mkH0xSXh2+25GGw7iP5WReT6DCelwK0DKASP4KUsJxDrOoCEkfm/i/AZ9kr0 RjM5dCN4FwV4BG4+roC3GKuSwC0zViLs1iv84Y/ofuV/JYVrDC5mUqzCXyWO H97H+lSkcTpipnXJoByEVK3P8hi3s790F+FKb5C7x+qR/P3sJ7fXLtHYOMiX 4e/L93Zwa+jdqzx9/13l3u9J4tdD7etlYd5H/PqpfYPMs8MBMVGbG0geZpgA LzKEqC9x31dov++gp78bPZImaLvVp0d30ZbP4V3+8Kx86aYMRRavp8VHhWyK qpb4scmXiN98mBLLwyPwGzTmSPRidfvgLX8NrpIXEWraLZGLEj2RW4d4aEfu Qk8nfxZz0rfv+7r8efu+R7Bz22PY+8LjyH7xe8jezcpg94soPfQs8nOeQM6F H6Do3MuorniZmP0Q23P+Dn3vforhkRZoqn8IfcX3UFP/OIpqvo1C/beI4cNw d+3GZTE5nE2wwqYQzTLlIHrtzKsivxK/NLVvxFVyBz82Z6/jHGJGYmcSQfSM byPVtQ99zjNS82RdsK53let6J/ZnKUY5X46JBcVX+LgaVSJLPt7HDKLjT0qs COVfjshxUkFgZthf0DdGtZvh1kwzppjtJ9nSkyxcxLylCVcpJpwlmLAW4Wp/ EFd7AyRQ3Ah+cI2+jYMjGxPtb5gYIeJLvwZHcff3xWk/BthHBI593JJ+4jgg cOTWjQSUMn+K3nhWSJRw/VGRc4QSsoJL0Fsn9biWXkOxmqxVE8NqEsjor4al +IVNeI8//DEf9XwpE336dTw3oinqEjHosiycJemfoxjPcjMGjYoiRnRvwl36 AuNF1itbEetQkAy3E0uZ5pQqaooHYDaiTE5WXvsqdh54lKn4O9i15wnsevFZ HHj5SZx4/Qkc370F+cdfgebss8gt+iGKi15FTc2rOHluM97M+z8Y/kAoog71 9T9Ei+FpNNmeQ3HrYyhq/A4Ka2kRtd/AFYFlSlwJUyXrrIv+0gyWhyWWPVTF 3s6TGSS1GPIWI2o8SFdxEAnzASTNtKwmYmncx/0oUtRQjs9XylnUEkkqwIJE Ui+IzJJAbiKC/NOZyJKP97FOu/Papah4a1R4IAGnNIhsncLThzBgFwNy1Boe YHEB23RAoMkk7VNhkp5skulx1secNRjEtX6W7b1+7qkPP7mytH6n91/F5mcn lonnL99jGEWZuf1vlTvBUxvFbbknUi3stCXsoKU094TRQ21krT8qjLLYTm6z KN7nM0CK2uMubUxX48ZGGMmfYPC9AQLJXMdneoOB6iz56nPy9+J9N0nlOxTL 6yTyWppCmaqSQzKial4QVkAIJYkcNJ9GvH4vQpVvwFf2Arwk0lMqhHIPC40D LD7OSRpH2bHGmYimmJhmI3pJY7N+F7a//U3s3P9t0kiBPPh97N/3JPbv2IzD Ozfj1L6nWGxsRVn+q1CXPoMS1euoadqKva8dwG7VP2LixxTJfjWabc+j1vk8 So1PoMTwfRR3fA+FrTST9d+Ew7xLXEEjL/ET12eJ3DmwTuNhSWOKsSaQSSvz MkmMCxK7uf0baFTOciq17VpdO79mBGMiH/PviBDquIbgF1jH6ekKLwl5jClJ WyRvAV+96gRCnQVy3EWoyiwbdYaNOh1ksc1Cc4pebIrwLcXbcH0oiOuDAQnf NQFfjw8//+j2va77zrD3B79GA38Zu3+D+UlxJ3gflmf8WJkNotdWjH76gUGX CkPEbsQrrvSvYH3Gzkg1F+NECxFhRTak5FRGA4ncO70CI4FTDbGqIWCMgRpY mUfJ3GANHuZjtaDv/2ftPcDjuq5z7e8BJSdObm7sNDv//W/ajdMTq/dmdYkS SbFTFDsoNrB3gGAHCRC9997LDKZ39F5J9EaCIEhKokhZli25xsL/rX3OgKCs xLl5fjzPOgPMAIMze7/7W2vts/c6CkcBUARRXPeNZnkPoteYqKEnYlgr0adE oaLBMWjV0bNFraCtJH4UQhHD2LUUwV1ooo63M68T9HqdCejThXCIXbRh61P0 yy8QvZfw/q7XsH3PG9i9/y3sD34bBw4tx4G97zJaXomTYRsQG/sewhM2ILVg PfYEnkJQwgz6P51Be3s4Yo2LEVG5gPYWIireRHjZazhX/DLO5j8Pk3Grhl69 oCc+ND5AOec/ZtpO8qiF9bTWihNq9lvcslCnNLCc1IkJfbPkxakZ7wF9JsVP XYCmgJd9yVS7KzXJ5E2zqzUc2ldrxd9cnX06SZmAOCEwam4d6VGH4S4KUwH+ oMxmeLQm7ncxVHQSRMcFhooRGK3Nw/VO1yyM0y12XGu24cO+VvwnJP7J7LSL PyScO6mnVe35rnZT+EvaTeG1/QNOhoHJaGZO1GaMRIdJqkyQQVuMxqDM8Epu pTN4mQxO+rMRYVA5Vb/spQQo+OYx642BJW6dAjAAH/O4Qn0/F0WFIU1TwSSl glP0y1eI4kSdzPJoF0cGvbLoOQSelM2zGNojVykURQUdmVsZQsTOYtjjlGX3 2gYP2dixYeszxPBFbA56FVt2vkEM52P34bex/8RCHApbhCPnl+Fw6FoEh60j gpsQnhqIlOKNOBAUg70ZMxj+bAZe735EVC9ChGkhjShWz0e44Q2cq3wVZ0tf hNmybQ6GiWrmoNd4Cs2igKSxkY8NEjKWHIGHGUlNqc5h+V0OG8o1BZQrfXIZ TLL7Ae/djXS6H9aVL/kuhqRPY5DHumRM8Tv5KUCOAepX/pT9lqTmOWVWPSPq CIOBMCWrciHeD2O/hyC6CKIzklHjBVzvcd+9V7yC0Y7pVu1+8T/70Z1ZGOeW K9DmavB1ixD9CI70Wmf3FPgRvFiXj+YqQZCet5qelwj2WGVGVBCMV1vgpQ1k LGkIMhRsEGbmSKCStuS5CFqJ4Mft8pMc/4ggJisEFX6tyXfxY7g1TUd8VfCj I54ggqN1gh8dsE8mhWKYGK9X+NmjVgbARv7mwUICnSlBejAsX/+oRHDu1/ot z2Lj9pexecfr2LLrTWzf/zZ2hyzEvtOLcChiMYLjliA4aSmCo9biZNwanEhY ishU+uYdCTiYP4PxH3+JCMsSRFjfQYRNbCHCrW/jvGU+zpteQ1jVyziR/4za dSi7EMdkIw+FsJ8RYbMQJyrIx/r83fDlbFcKGKDY+wOdvl2z9DVWHlQXYoW+ Pg54NYI8On26zw1QXlcXQUVaitg8RuYc/VN1bH+B8Dt8UpJ2oqqb1AAoTwtF dfZJjNRKeBmvrkdJ+w54KINukueK5M8p2oJZP30dQp+DRvrarPhw4K4Mzp0R vIc8LRoU8ZMkZLZU3nfw+Y/v6NsHbPr2gbubWporLqiFbR1GAmjWALwoADp0 AEUDBcDauwDO9cEBKrC7T9EllI05w+BJ26LB9zKPfLpdB1CHUJi9SRNXfI0A TjXqADYwC6cGDhPCwVoOTV8MHAnrYIteqbnhqFWKQcuFVXDEb1X7VeWry67p X58eAcpWI5Ueb3sFgdvfoBuej+2HFmD38UXYd24xDkUvwdFE0pe0jHnFMsSk rcDxlGW4kLkMO7amIKRsBpOfk0D7UkQ4SaGTrtjJKNG5AOcdb+G8/Q2EmV/B iZJnFYHjDYmKQLUrkx3cXnoUTYwEG/OpfyTQmbEONZoPDlD4fRt1FQSwYqdK SVpNx9Hr1gDsnwPgKD/KuDeZACb/hvQJbQKeIFivEEzREPxjdhJ/VWoFqF26 iXAXn0VO3FHix6CqlsO7Vq5WxVAAY5T4XSKCY02F2oLXHn3Nti6AAQTRLrLS pomf4ORfPiiVpvyzhTqG/6DPFn7lRqFq0eALOqLqZvEX/RsEHAFqh8B3FIp9 dYWMWaLQLgtITLL6R5tK0lCMV1PuGopJ/7EWUgY/Uj43BWOuc/Ckb+E/1Vi8 1a49LxwqIWwVDomzzqGUU7jSmKCKKYyRxeF6clhHDtlatvjVd8NBnUNb9Bp4 ktmJhcc1Dm3kUG1/08NBncMNW15F4LY3mYm8jW1HF2HXqXewL2IJDsYxE0lY jtNRyxGT+S7iKzbieMQqZBxbjW0783DKOIPpL36FC47lCPcspS2hLaYtxHnP 2zjnehNnba/C7N5xjxL6habLcJIM7kFDwR7U5G6HPe1deAu3qjiQGJJFUviH SgyFQ1k31uOKV7NNfar6inCYpDjUhJAc1ugcyu50zd2K+E3ViwRMiR+unzW+ Vi+aOMnjlXpVvEKFCu4SDcjRenapDHcBksN9sEYueGlAqrvUyvLW3rlQahsJ rnfaiaUNP7o+NrvIau7U9T0w3jsp86L+3Ii+elogDFAr/b87Z52/By1yqblS LtLIJLpMZoogxql1EvcIYr2fQgkK/RSmaBTqJPZVH6ca7FaCGKAY/JZOYYpG IO0Gyb1OEq816xQ2kcKmeI3CBv5fKmJfbQxcaRtgjVoRoBD8XVgIoY8AeudA 2DkLYaJ/FdW6Tc9jw/uvYdO2+di8dwG2hbyDnWcWY28kGTy7DGfIdSSz3+jy zYg3bcepVetQTEveUIRw+wxufv5TRJlXIsq9HOdrltKW0BbhXM0ChHnn44zj VZg8GoPjEgsypRIGh6g4Q+zcenpi0UFPdiDs6avgztskDM5TWigOeSdqmQh3 OWUSO14NH39GpRyxroPjc/gL8AeAc5BTUjhPfftdBjWEVJlWo2CCGu0uPYvc +KNsVQY6HNsjdXPBi8F4q7a2+volr778X983rnaxaFsArnfZcK3d8nXrUn8r d9/FaLd1dtX+7P6SPrdiT/aXjLZVo62c3Bli1Qr7XqvmiIW7IY82Pz9Rqycj /FTXqH7C3Q0mwh9IIiLg3TeLXSMb/ZZGXaqG3osKvQ/vQY/4tvDtaFIB5HJz AsaJ32gj/6WgVx+r0PPlboE5cgXxWwUruXPEbtTYS9kJtx4OCnvdGntq7698 ZcUFYUPgq3TGhG/fAmw99g6CTi3FgVARvtU4n70REUVbEFm6HReM23By1Vpk 0eLfK0WMdwYfff4ZwmzrccH5LqI8yxFRuxRh9e/QFuBszXyccr2K1toTuiPW BHCYAA5RWQbZwR3VJ1BHEbRR/GbhK511xKKFEhfWMwrs4gjvZmvLFmbZMD9A G3Info0ApmgCWMcokPYNAQ//iz2SrLi7yl6Z1GtiSG2MiUadvQSdPY7qEYrf kB7nSKB9Q/bECXt93jnbT9z6FhTn3S0oXRb87LPbs1547szgVwD8zRrx9L7+ +3P32gVCbefIdzUG+zTtu8qz6LGko6MyRq2NkMWHl+xShCtBMSizAxLWSnyh JmX4CacVg1pUN6t/hOySQJhH7RP2lt8TCH7YpjngG7TrrXwbmjB4hTbR7C8c IgxycAqDzGzqmEDa4teQQzIYtQa+xJ2KQZ8wmLpTY9BKBmUful7xQCodqJRk AxncMh+B+xnErX0XnVs3ICN+M85kBuJYeiDO5W/DBdMOBBetxYmVa5FIi363 AkkNM/j4x7cR7t2Ms55APr6HtAurEVtG4WxYiNN183Hc+Som2QSX/cFgvWzy ZnOxkwc5hvr5GZrKD8OWumqWQX8yXFOuPfpKd6LFHI5OR7yCUKtb4IcwiSrI 2PorKnhFeWEV+aX41a8hhTHg1cYUjUKe1BV/BQ0+SnGic8f3qOI+I3Mo7CeF 4+3FuCH3qRUShcI+jcIAtcfkfh5lhwkp7NF2mciq/f8WhfdrFPboFKpF9epG yYTwOzqGXlVJWTaKXrRlqE0bsv71EvWlz6FHJjLBVKMHg7obvtakueEbeoLx QauGomDYkLebZ/ORqKGQ+acKwg9oN9qSlE23aRBO0gTC8RaO1OZ4rXJNI3WY nXhJh9CRshHV4cyDY7fA64cwdefslRFVCcAePydH/p4UBMLxw+9i6/qFyFm7 ChPBW3HbEA6T8Tj2Rq/DibQtOF+5E8cq1uJICSHcuQkxhHDnYjsyWmdw50fX kdK8AeEN7+FU5CmErzyNnJWBKNq3Cidq58NYu4v9rSnOWIMUtmAUKP3Lfh6Q QdQQg2bTEQ3CNEKYGyg5MT/Nt3QAd8FTwnSEPqdDZpUkq7In6GWOktjoScoV j3r9MzI6iGq+RQC8KpnI1QY5kL0/ogbqBCrTKWR0I3oXeninolDczHCDJtUj TRlqT7BQOEcPA0QQA9Sukfu0PSMX7WrfyK3RFj+Ac6cGvwLg3AnBH+gX5e4Q wPFum7aEme/o39UhCMrOjknyP9Wv7VS+3G5GR0Ws2j100aotzh5QWqjVZhuX lH9WC5OVFl5vVj45QBF4Hy6yi+tzdyu/S/jmqW/+SNF3UxGYrNFHu6oIpATS xkjgCAkcog0oAnkGzEekz3zFOxkEvg93fJD/IlBDYSg69MW6GnSPM5dUdYOQ tDsQNevW4nrsAdyiirj5AbYR4EMxm3C6KAjBpRtxsHQVDpYQxDPvI2LFWix6 uwt5XTP45PYYYlu3I751DU41vYvjB+JxakUcElfsRjl/b6DsvJZ+NOjg0cUN NWqDRk67vzEG7Y5QuPM3KvhcOZvUhIwA5xWTVTKVx9FqkUt2cVoEq1cSkVpI gy6m9HPyEFHACRUD6uipTEPmu8ieLn0yASvofRtXmjUALzdrRYQmmmULvgag VuuFDcxgsJ8N++FwDT4QAId8d6WwX92SilB8Q6vv0qdvXtK3f0x3W/4LEM6d EtQg/AZGCJYG4d3tG5cvuvmx6P+/ozOoieANntRkpxldVbIRgAzaEjgmE1SJ KDVPJROdwmG9FoFoHKaQwxQVG96kT+4hhHWEUJAkmG2SEcv38t0shXTQQuEU bbKN4koKx1s5SmnDpHGQJPY1UYipJ73UQi+7scN4Fg25IXDFBsGdoDlhCQrl q15Hssuqrydnd3pzw2DYsQ2Xdm/EBwWnMNWUi9PU0U0MCnecXYdjGdsRUrwF u3NXYH/JShwoXY8jp7Zh74LNeOedYZRcmsHta+0427QTcR3vI7p1FY43L0Fo XChCV2QiYnkI8pZvgGfvDowTy1FGX1LQZ0hVIGNHNzGYaCKSzmOorwqCI3MN HNmbiCGDQpmm/hM4i3aiyRRLuYxDG6nssGqFXaTym/if/lmfLHKYPEvkZfpj 8clX6rTgcJJUTooeihLOu0cL5ykg/0DhOD4XSSk7JIOHSE73WdROpw+G70Uy QEH5OzzSQzNzuN7v0nYkzdny8XVb6R/6bUz+hWJyoss2u7dD3U3+olvd9Fa7 x4EOpb4J/iZPbYrJdLeREYuFzsKut47kbdQdAVMCReWhG5PnCCTBJJTdhuOo zWXD35SrxYLhcwrE67Rr7X4QCTZtgkCOEUgNRP4fdmgf9aWX0WE3M5Q24xkm TXrxjqgdcMcxKkzUQPQQyPqCULSzV6U+loIz6ywql6/GxOmduGGOoezm43jI Wqw/sBAbj67E/ugtOJq3A9tSliEoZwX2FK3E3pIN2HtiO3Ys3Iwly6+iamgG tiuVOFa/EefbdiCucwNOEsaj9QuRUHIISftycHJ5BJKWb4Nl33b0lIbpZcso 6YSxjzBeaqZjNh8III07ZH9ayR54Cncpc8latLJQNBkJY3XcbJUhVXBp1jdr EjksQHr1ILFG882XmSRfVlOFogzfwBUK5CTF8UqT30QYqZ8TVMn/yZCHf0os x3STaxxSA0vU/Ea/FR+N1KoN0hqQ4qhrBEjyOCBeekDdMHLApQHZLzeap6O+ ZP3PYPz7r1lEqGXLf00YLRqM3TqMzMXlpt9XCOMkYbw6C6N2OjdHpDpCLa71 WBj2Z9NbM9ZwSAidpC7NjnKYjustMjmrlCkMG1OUWjYXH0ZzyWEF5nUq4w2l lILiMvpnUcZkTBHKyXYNyHHaGG2YUA4Syn5C2ceOvUg/3U11vHLJxAiyUBU7 Eijbys/AGRVEpbwLZl1+KMGNnXXcTRvX4WpyMKZ8GUxl0xhhJKlz3rfmPQSF rMeBpG3YlvgutqQsx7bM5QgqWI5dxeux5+QObF34Ppa++wHM44TycgWO1C1H cMP7ON/6PiKbVzGdXqsiRNGfhEOFCF6RjPAVB5C7Yg3qYg5hoJnq2Ex1JJCX WqLplHcoJutoXTUXGCUehDN/J+z5QWioiFG1/ZoMcYrMNlVyTareJKLXrhWd 88vksB41jvk0MicokRN10raX6yU8ukwqL7MfLjcp02icRxIJM228RVVnI4+/ x+ZMxOH9O9Dri8UHA1Z8PFqHj2Qr9Igmkzc1qQxQ9WUYLUpNpEGq5KBbTBh1 8p1li9L1PqYwH45+bb2Gr7D5mzM5f4FRYVM2JHXdy+ZlxSazaLkZzKxQ6mzy RG+NSX2EOgz5yKctQfE5qAQzSQnmV/mUUGaK7eLJ3o0Ow/EATLcyfpxuk1nE KR6vkslJ2mV67t/gkdZHj32RIjnYlslzMuHGiI8+plCEMkBB+Qq8SfvhjCGW 8dosTl1uKKyJp5D51ir185Xi8zytLPR60tW1CQk4GgrCYQmKxHWLFWfSdmJ9 xFIEJizDlozl2J63AkFF6xFi240tRHLF+jtwXpmBdbwU+33LaStxynAMQ7F5 uJ58QBOhJq28Y315Og6vysVxJjeJK5lk7d+CvhZqZEsMLupICo7y2FkTiQ7f BbhLDqKmKExVAGxgoN7IIKnZqJVkazcnMPiQ6nRajbA+JjID7mQ2d7ISS5GE sRpNFsbZ7BNs9okGEcwJ5bIneG5C47i60iU0fosM8u9Io2ZsjyaNycluI+5I 96qt+V9lskYhSSAJ4ZDy3kPkcki4pFgOyu3qCWX/vVDOnV78rVD+JUbbCGWH jaJJKLsJZTeh7HFrt8S6OFcw/VDWzoFSK95xk+Piol2rGDng1oVTbyFpncsy qUooJwmli1C204NPtchgnqJc/iGhTFZQiolIXtaFcrRVB5PWz/S6j2LZS78y 0Vs6u0M4gHh6sVCrR2jRPLl82S4EMdXW6Ix7dxVsS9/FyHmtQMZFT+ZsQVGZ K/ExvMx49ygm8is5TIzwVZ1BaPwGrI1cjA1JS7E5azm25K3DYfMuvL/ofaze +hlqrs3APJyPnfbFKPUdgCEhH5Vn7JiMjcWkLZxk8vzZyyPs7SGed9TBXBxa GYvzK3cia9VqNFecRG9rFGoqtysym2zB6PBeQButr7kALcY01JZoBQM1QuN1 QhPozhPRbZ0rmky1SecQ6RwhnSNs+1EK5hgFc4xyOUaxHGf7j4k1iWkqKVSO KEpHyOV3MMzjMM/5ckcOgg/tof92k846fEy75adz5C6dEs1dV+bV0BzW8Rwi nkMMLgd/E8+50z5fwXPutM+L+oqdO9fH1N66iU7i2aXj2a3fQOvi1/jzYdFM KW6g4Xl7og6fTEhVpDpMdZaraWa53jtI3ZQCpqMcwOMygBtFUJJhz9qFlqpQ XGFYMynWSiTFRC/bRC/ZdMRyhDZELAd0LC8x5Jm8VDZbG+SjMZ/C84YYAe00 qQKGop8X/DM+xRuXoGHLKoymnJwtK9TJ1EEV95W0gXhmBR1BT1QB4w2b8utj MqTqNL3PLtmPnMoDWJeyGntLt2Pd4iAs2f0hino/hautGKriO1tXEu300wbU XDDiWlQIhqvD2OEJCssBiT9a4pCfkIl976bj2KpgJKxaC8OBzfARTR/RbLAE o81zAV1Eyi8Ng03VeglV4qnXs2yuTkCbOZGpD/Ekmr1E01/Wc5BoDhHNYaI5 zM8wQjRH6kUCRgnn/cy2iCPbf8RvCsthiTOHmsSLT7Tn4Id0gtHnQgmDRedy jmrSbgzXUA6GfeKuebw+7FVG9RxWs5HDxHKYWA4RSwYCcl/y/y6W08Syna68 g1h2EsuuOfd1EywvfcWVD2uu/Ouw/PRKHT6jTXdXoE+qn7Kbe93R6LCHoctx Dt3OcyhP2ghT1lZmlif42jn0us6hxx2GblcYVTJZ4ThMG2TcI0p5SS4K9pXj zhUq9OXaOSVranQs2TS0kZZCUU6FJf4XKk7vhundxajduxzd6aHotGajWYq3 Sqng6rvVmKM374L3IAXbZecIylTuXea1XKZUuM2pSC3MRFphFnPwXLy1Zjee WbAMbx26jCjfFELOx2D/4SPslfS8TPwd0nIycGyfDdXnCnE1/bBOJdO0lnhc auVIaI2Dw5CM8wczsX9lOM6t3IKswDdhS9+EVk8EmlwRWiTVo99EtMerbnfW 4y1BXfndmpbNdOttJLPDnoRuB5uYZF4imX10Vv1Ug0GSOUgyhziyhuRK9HCD XKAeIphDTbM2j+Qn4XepSbn4aNCGT8friWU9SjJj0OUr9WMZoLi8T6nljWHN ro9IjDkiznxE5iZH1NzksEPjcdCKTz8a/bppoa/g+JuLFWWP6BhViSrZLjct d2r3tey6e1NVyXz880LX5+I4quNIm4vjj67U41qvVLnKRo8nEu32s2g2HUdd 5SFG94dRnrgW1uyt89DEH76JxsrDFIFDqKs4hJryQ2jjr49xvH44wg81ybfl WwYoDp8iiTWzJN6kSN7Qb+F+udeo6i1LhVfDji3o2rka0zmH0JIVjJrs86gv jEZjKVPaijgdx3hYUs+icANHQJkJl+oKYDWkoLgsHcnEL6UoE6m0NNqp2Ag8 vXg5frB4BV6cvwSLQieRUDeFk+ERWLpkOTa/vwXp+RkEMgPhCXnYf9CMlONZ KE28AIspmVGkhmG3MnZ0azTCjuZg18oknFm/Ccmb34LpXBAdQqXfQQWo+4p+ S9F45aKPPeDjKZaiwRB/l0bG8h0MMLsYYPaQxIt04ZeokZ1OJveWMLRYwuah xRrGTh8gi/2NYpLXyPGPqD+5+JDofDpRrxnVURSyJDNaoXhb99wfzfHcN5T5 hEWOfzHBcVRNVI7ScY84NRv+vyHy69YufjxFIltIZJudeYb/5tI6kb16Lk4i r80lUqr+zRJZx9CyDpM9ZRSpbLYdc5N6KoNcJmtIZMQiB5k6fgMlsWvRUH6E wXqYZhTOXlqPLYyhURSGZfenh38vt3FxxjMOKMMnujDenpgjjuM+HUmfQvL6 mAeNRVFwrFmHn8Tuw3VzmAruOy0UZWshanOjUS9FMss0LI2JZxC58CBqY0vh shoRT5wSCzKQVJhBJDOIZAaRzCCSGVi69X088cZiPPXCIrzw4CtYc3QKpvYp 7Fq9BoteWYBlCxZjC38nnX+fRjSDDlbgVIgRmaGxSE5MQHxWOnJLUuDzMocm kp1EsoPJjrkiAfvXXcCx1dsR/upa5DBX7ywqkLyZrU8eu726QmpMXu2rwbX+ GozRpQ42laHJIncGiITPcBau8lDYig7CXnwIjpJDcJUcCoC79NA8Hg5Tu1wl h+Hiaxdl3W1Dzn1CYYBC8PdQPAvh3eRGFEe5acZn15WJII6qxIYIKgCV0U2P OhSE00PWr109++DXEyjVPR/VL1uPDU2hs7IRY2WNuNU39Xvq6UOMeQllq51g OnWp1O6QeUW/BbAk4df8xWZlbn9EO3nJd673WzDUkqXqjguQAwRyUF23lSsY iQrH8cZE7QYEDUnMCTaj23RWrWLyr2aSmc0JtUVTW+wu22TkErks15BSKlK/ Z7K9VJXvvOXXStpNwnljnFDSyg4fxsiuQPx75Rl8OVGBSwxkuyznmbmGKdkZ aqhGTa4UUYtVmnlm42EkBecQPhNiCrIQRzATCFZioQ6nDuapuHA8+NSrePhf nsJz//AoXvn7p7Dwkbex5dW3seGZJ/HeYw9j9dNPYtlbC5Gmg5lK2xhkROTx UmSci0ZcbjristMRm5mKnKIkeKS8THMUWpoi0URXEr6lAFuej8WWB47izAMb 0E441V3nuz2zYF6ZA+b0QA2jmlI0O+IYiMrd4s+g1ngGnopQ2IsOwVksYB4m mKRxHtOjMNpZtFafJfOSkH5DpUgy6ykp6mhtDtPMcj+q9UTVUZ6GGlO2ppdz USWiCtUxMUF1TMRyTHz3mEtiTIF05F5I505X6pD+nQ6k/zYregnPR/RLOhOD kzi7KhHedZm4cigFE8ei8dn45Df1/PxafxvGW8hrK1273D1YF1LhdVJPgDRe tQRIVF5u09gvpdFks1ptHPrq4jFQJ9es5BJ+grraJmsOZIHTZVnJrRbTJqL0 wnsYdkepmXdZLBmgFg0tVntpZDG5f8eQ7BaSchmDqvwP31/Vm4rF9EWz4vUD YXXCh053ESpXb8An53ZjhnnnZ6Nl6K9LpZ8Pp51Hf00eJtjvV9jvQ43V8OVF 49T+EwjdnY6UrGrE5uchOjcDseQ1Pv8us34x3RQUhO//3UN49O8exfP/9BRe +6fnsfjJhdg2fyE2kdMNTz+B9U8/gveef5I+fR9S+ffJtLCEXOw8YEbCiVwk nzyL2Ow0xGalIiYzBdFpKSirikW7XFEYaWW7W1FfasKih0x474FIHHlgK/JW HP4NXofbTWj3ZqKJ47eFbdIqNzh0JbANEtBN65W6D1LL+3cY5CeqrbkDuslV cpk2kTnnADUh8YdsVm0euk/yQMYJlxh5T7XSb1Fd5wJ7a+wusDcJ6o0xdTtr erBvUip8Si6uj1NcxymsY2LOWW5vTX39AvGvcCuzRrIqVx4///xzVSBnnnbB +Df9/zd1qt3l/Uhc34HW4H78srQLvzRW4E5+tvby/8ZtCQ+aSHULqW51amTP 5k+e35h1miRZnVSSbilFJ5U2qMD9arVWglo1M1b/FaJpkw3aPoUyUj3iljKx V6nT/1uraKKqmkito0RtL5xauJ+gdqkPs9cGVVEr/h9rnKrCMeDJwAck2pfO c9gSiF8UHMfMSAluf1iDid5KdBjD0WEKV3dTGGyowninR5Hdzc+WmlemN9Ij uEBljGLC83VUJ5HohYvX49/+5ik89rc/wMv/8CoWfP8tLH1uMXYsXIxDb7yJ Q6+9jN0vP4etzz+GQ/QAMhKSCrQw42BYEY4GVyPlRCLik+MQk5OKaKpwFInO KKyExVmDO5/8lGpiVWGZu9iN/StcWPpANoIePIjzD21AR0kRlcWLiw3FqLfG ookjW5S3TWiWW4TRS/UIzTTCHKA4nqfNqHi09R4Bal76T7RZfJkMlCspMlst 15zkygpVuF+uRVtppLpP7kNUloTynDgVLdzyS/DYXaJvjPvmKZR/5y7M44wS xgnzmAPThPlHH4/Nwjx3Xv4emO+dAv2evrRoLr/ql/n1+zrN7pLriA/+GI0G RhfjX2Lm5m38uqkGP49NxScxGbiWayXt+paJT+9gtNGO8SYHwSbUba454YU/ C9NWiPTUpqPdrRW60yossCVq7wItK3HGZX+XDnSAwvl+tZ9Zli2Vhb+HUWek gjkA1yjWS9X3UlLpLtj8e4FaduPqZbQGCHafAjsWzswzcOzeiQ+OB+FLbxx+ cdOGj6aoFxNa0w415aLNKNsuz6nb8Y61e9DZ5ESm2YJNy1NRmt6NUncbzqen qjYTuCMJdjTBDo1Owq4jUdi8KR7rlmRhwfMheOx78/HsA4vwxlNLsOSlpVj5 6gJsmL8UuxcvxZGlS3BsyQIcXvgaMvaFoTA4liFLFOILGU4UpGP7sUqcOV6O 1OBziM5J4cDJQV6lFUXGWthqr8LmvUJoORiZc1wWV8m2TznhwzsPGrD+oXMI feR9ZC0NYgjBeN1GsO2xSqbbnXEK6m6XDrU70a/PAerKxX3aPdr85pbUwy33 CBkm0yO0YXI9RK6HqNSDtAGyPSBsm+NhTT+DnOjjuN5j1ZR6rFZLfMeFacU1 W1tMIosJlYZNuGc7wM/2zz6/8/u6GDsY0Z5Ycha5b5/Fp4NTf/U1k/5fIX7u 9NX3vkax/2MV/32EhtyAy34L/eM/xsDkTYxfncEXl3+Fmc6b+LLShR8Gh+Nn did+2DWq17D6MwzX2THW6MB4s5My4w9YPEraJWCZorR316SrWrKdbl3SfXHq VuEDsvq7Tpb465Ium23rlZxzANSL1KgyVrT8k0vVbhZ6VSmEtkRVSvOPgKmv GQGqlovsqXfGwnDuKOo2BuKn6Ucx05ePz2+xDy57Zht/mo0/zcbvZt/2OPIw 0uRGRz3JrzZjy7YUZJ1rgK1hDAVeD/IcdtV2RyISEHQ4GksWxmDDinzs2lyL w/R+EeeuIC5tCk8+vAhPPPwqfvDk63j9iWew8JlnsOz5Z/Duyy9yFLyGoGVL sI3099deQV11H1wZLpiOpSHrYCSOvh+HwH0mxHMElJxNRF61FbkGC6p9g7A3 TMFedxVl5a0k2YLLfpfKtncXebHocTdWPJKGvY/tRcrynXAln0UzFaCV9Eud mi6Xthf+or6Evt+dAA39b8yiL8SLjSqT+xNS1L9N/JMw4hTjr6khQIm30Yj/ IBNJW8YZZJw/gkuGOHWBXfD/YFzHf0JDX7hXuj7hb34x5yz/18j/7+tBxWWm dPsXxKNgYQ6G9+Tj6tks/Ozalb/8mjnc/x8GgZYx/g/U9P0E3VM/UT8N35rB EM01OIMPp2bwq5HPMdMwil9lFmF8cwg+KbVqb/Un+HhynCru4FjgOGhxYaJd 9wYS4jB47/SkoVW/6XSXqt8Wq1eWkBXessWFqs2xMC5FYeoTZDmGHMj6PK1C IK2Ag2Ceqpy1EtO1UtctnqbVeJPXpVTlFb2c47gqQsb35Tio3LMLkwe34dfW SPz6mgmjF0sZkEfi8iUDx4HWATIGrrEDJtkBV7s7UGqoRnqVCQdOZOHCPhus zlEUemoQnlWKo2eyVdMFri7Dnu3NOHJyCMeTruJk8RROVU8huqwGUSVVWLcu EA9872E89a9P4MWHn8CbTz6Nhc8+hSXPPo6lDGmWPPsgDobHI9HoQ657CqXe Kdicl+Gq7IUzxYKqg8nI2G9E+d5cFBeUobqe/LeQ/2Za41U1DrKSDajKMejj wIVWczLqDZEIWmnF4sfK8P4TJ3H2yc0wHDmKNlUwJ15tIel1abuwZM36gFub MZqVftkYM+yUppfygKNiLnG8cvwWf05UY0CVDnQkaK7ARmdujYeNTjYz/Aj6 qylxxlhc6zWrMXBjwj8GvNpizPvZ8i7M/frR7XFdiX8XA1RYQ5oVqx84i23P 1sKwdxI/LJvGTcsA06qB/8IQmDtv/F8dAloxm7+Fk7h7xmbQe3kGP5r8Nb68 dAcztlZ8wb76MCIFn18axVAtWadGjje7lO5PdLhVSN/uSkWTJUqx3uGMVqxr VTBjZ0v7yj7DMcW6VlxBCgmp8r6qHpwW0YimF55cJjofoArL/YUq2zWtyhnq 5eP04pmTeslDqUndWhAG89pA/CjmIGY6svDjSSMGWjLVLUW67ZFqzvnypSpM 68hPEfmbU22YunYDuRYPziQV4cCGQhw5VILtuzKxcnGydq3uMRw9N4rjGVdx omIK4dYhxDu7EG/2IK2iFBdy0nEhj/EQY6GXX5iPh/7pUTz9wKN46ZFHqf6P Yj7T0vnPPITQCycQVcTfoyVU5CG22o1TlXwvxxQqSL/dPgFXaSec8ZUo3RUP U6oZ5SVtcLROwUHqHaS+sMCD7BQDDLlGxmtJaKi4wHg1Eo3VUShJzMCipx14 76kEHH16J3JW70JdWpgi/iKtz6Xt0hiU1cmy9cFFkZFaq/epioR3aU+Yp0rI /TmPiVohOWfCHOC14oVdVVEI2R/EuF7Kjmplbvtd6Qr0G5fFx4rpd6Kgv9Ue XbM+V/RGvr6hxx9CfRWpD3wgGMeezUTC8h6cfHcMu7d9gariGUz3/go3Lt7C z3/8Q/iHwNyJ6q8Mgblof08PqOY+9x/ktH+kJ62dN2ZQ2DGDSUZBP5v4BWba r+HLEjNu7TuDqTim+TmFTK5E6d1otaWg0RSJZpLfZovWKojJbcMZ8fR5tCqd Q3oN9TGpZFOrky9TLaqodaIiP0Bxfz8KTy1T0PtN0A9QdRP/ht/r6HMETeqF igv27MZA0Fb8qjwMM5ercHOolCMuWl1Y7HERfUck8b+ADnO4Qn+KrT8p8wK3 rsPaP4Hj8QYsXHQOq5emY9sGO/Yf7EFw5Lhql+OGKYTZhxDl6kSB3Y5ChwNF DkcAih3OAJQ4nHgAuWYTgi/YcCK0EnsPhmDPwcPYf4R29BDSjIzjaSVuJ4pp RW4HCmkFbjsKXHby34lz5iGkuKZg8JBxyyicha2wXyhB3pZoGOJMcLRcRbWr H9lpRsSHp8CeQ97LI9BYxUdjFJpMUShNy8Sudy1Y/kwhdj0bgsjnAlGffk6V S5dr6wNOjfsB2R4iFKvKr4rqAKE+QLF+P8Z5lIrvYn76AxT731T0y2RBF/9n yIEgVb6zj7nVJeYZveZojLYWy0whmf/dOcS7FfXTOvUfTrdrCwIEsz+YhX7T A0cR8kwG4pd1IT/kDqpy/x2m2hk0jc8gOuunSCn4EN62DzEydRt/9X8H/93K s/NmZ3P+TL3yVxi/M4Ox2zOoG5nBxwxx/n3ox5ip6ccvk7PxUVgUhs7Fob6K ClOt0d1q89fH0+mW0kEerTzjiJRn9N0t1z7hL4xSc1fTx5jFVkS856f6PlUQ 9P/lkZper5WsbS4+j4aDe3Dr7B582ZCCLz5kQt2VhUFfDMOlaIZNUXQpkXTh hNpxAV3WCPR6k+CtLkBechEWvR2GtcszsSPQg4PBlxASexnHC6cQaprCCesg zjs6/Wsycm0O5NEK7LK9qNDuYr8VOVxE262shLZ8FTW48DpM3gaUuNxE3u3G v6DYw1/xuFCkW4EyJ7F2Ip945xPtXKcdlrZhJHincSRnCplEvNp9FY7qITiz G2A9nQfDyXyk7Y5B9LlYxJyNgSMvEk2VF9BESW+mpLeYY9Q956ODy7D0Oabi z0fh1AvbUbx2t7bxU7AWvNUtbYi1wy/WiSpSEYTH3InzVFnGb2GCsc64WysO KjasF2gcktygWqdaSuQxY74ktZet2j02rvRV4/oVyVuveJgLXL/inpVzTVAc +NkXn8xiJ/fojQnMoRNKQ9zSDuQfvc0wjUT7NKKHPpmZvZwzdzJSK2c2G7HM XfP7qq7L3gntPqwDtJ9c+Xd82XsLX5rq8OOTRGPPITQnnEaLNQrtUqnMoVUq U6XzqMNDs5Uc47XyeSpsSFBT3Vf0yEMmC0fnUCo18eYpTL+vykKpqmR83h4Z gpbNW/DT3BP4NfX2h9M2ZrKxzIj5v2qJag3PpyaKuEYqXA0pp5CyLwRbHjyJ 488XYOdmNw6FXsSxROpv8VWEWKaQ2DiKnJYhpBlsSDfakVFNMzuQZXEix+JC rtVFXl3It7vJrIfE0hweMktzerBitRMVxTfJaiO11ktAvYST5pVdeoU8fk9l sfleN43vQ2jzCG1JbSMsHaNwX7xOm8b2I2MIPzaEhNROhJRfI8hTMNkn4azo hzPVDfORNORuO4/oTafQVEFgqcPN1MSW6mi0Edh2AluVlo1lr/jw3gvZOPzi ISS8FIgW6rHo74Bd02BJIwVUFVrL3W0SGXIIqON6LVGtpmjCvfVEXdrk1qBL q5uslc2Tus1SNk9uhUB5olRd6TcqWqdpfl6nyeu1Cae+AOubiA7MxpGnUhG7 uA15Rz5GVbbGaGnvlxiWG/3+5MvZoj3/Cadz5xnf0K+JNw99gspeRi1U1V+M /QwzLVfw6/wKTO84gcGwEHTatTuGXHRK5T9mgVJm26NlbZK9TfgZ1W96IfGB zHhcMp2BJT4wQIH5DwpHP5ZiLaXnYdu3B1PBO/FLvvUvrttxvSebwTrRr+cQ qIvBAK2vNhpxh44i89AJ7Hj4HE6/ZEDi2hHknvoM55KolqXjOGymcsY2o9A8 AkfvGBzMyB1D12DsHCYSDUTUgXSTk4i6iKgb2bQcq4eIEjGime+gYBQ4ZJ11 odOHlWt8qCz9ANW+RsLo8bFlC70+AulFvo/GxzyfGN+BkOZSYQ2tl+Dpu0m7 AbfYpRsK0lWBI0g/1QNHohFZNdeQQTtTNYUiQmoxjTOA6IIjuhreoAhcjjuJ trgzCs5WE+EkoJ0MWbvpuA9scmDViwYEvRSGCy9vg/N4iA6nNoU9Cyc7eWwO lwGKzL9QLm5czJNwt9qoTL66tQ5VfIqbdIkISWczKNNvb9hfq02kTitGNT4z 6QXCVkeo72PfaUHeoVuozPwVTJ4ZlF+cveWv//5qc6e+fyuS38bnP7nDdCEB VWUMrTzTaKUSf8Lw9tcDP8KMu1tNc08Fh6ItOFgVopSilDKJJp9KJtUExwAl mL8zG7Je1ZE0JwTiWoNfLoXE76JXWFz3Pj5NDMavuvPx42tmjHblYryRmDcQ 94ZYJB0JxsmlIdj7aBTOv+5E6vtXkR/xBUpLv0RZPUPw5luIMtejoq4J65bF oDixFZbWIeEwgIdpfizH0HU4aaUNvchzNSPN5EY6M7MMi5dYepFt9SHH5kOu 3Yc80pjnrEG+sxbvrqtnU3wIo6+Rp5zvraEg5PlqkKuMv084c2hVbf3wDDD8 onkGPmATePo/YOwkYLov3US2eQo79l1B6dkGWCLzUWyvRa7BjNgyHxINrbhQ eRml5nFYKgfwiW8YX5ZZ8PHBcxiPOo7muLPoUFuO4uhn42BOy8HKVz3Y9Eoq Try6F8Wb9qA947yCcVhFo9q83JhHVbmVg9S7FQ7/UN0jTBUWlSu2Hu32d1I7 W2rfdjJwu+QhgUwJLrpIoZNRFNOCHqYFIx0FuiLeh4NPJiJmURNyD3yIyoxf +SMlAe/GF1o8+XUlVb5C39wZOI2+/wdTE62qxqM3Oxy1RRdQVxZJJ9YKZ9c0 Rif1qeYufar5aDiTrBPoSTmn9F4+lYwzYW9CL3bmqU5B1PkDOBOyFaH71yP1 7HYhMEAVbvxzFO3di/49O/BTQwR+ccWEm6MVmCB4Al/60RCcXXoah55MxoUF FLJdN1EY93OUGWdQ0jKDio5pmNua0cOw0mKtRJ6hgkM5BqknPHDUjsA+cFkJ YYBi79uk7wbtJlxigx/A1DlBEluRavIizewjiTXItNYgi2RkO2oRV1mNuKpq vLe+BcaKj2CoaeJ75XjrmH/kePk7Phofs8ikoX1QKt0P3WIc7x28RftImSKy n0SK9X1AEj/A2dQpnAoZh+mMCcX5pcivtiDfaEaBwYTswlKERRcgJK0VsRXD +Pj6l/jV+OeYaR6jXyrDdNBJjJ47hrr4MFyUig7WeBzeZMeaV0ux/7WTiHt9 Czwnj81eCRmViyNj6oKgvyD4uFcrCSmV6KUqtOLQKyvvY1GVdQJRp/cpRbQU nMZFL1n0kEMxdxTiDhzFicXHcOCJeESzS3L3f8Ao8pcwuWaUGx0hgDe/mPFX op97CeQ/Ye91dVyq1Te7aMU4+etvroA39wJqiyNRVx6FhspolJSXw17fBtvA DD6gw/7l6BezM73m9SfgvBCO1Dxt/YushTkdE4Fn31mOl2ivL1qGt2gLFy3H goXLcTTkDA6uOYH6kGPoM2Ti1k0ffOVJyD4ais0PhCLk2WzELO1C1qGPUZz6 K5TbZlDUPgNPeyvqW8rRVcsUy8ugsTYZTTVGFBjLEJ2Si7M7KmA1D8B2iZ54 cEqJn0MHzzn0AZwEzzX4IdzKPoJ74COYu64g1eJDAj31qZw8nM7Lw9m8fJzN L0AYbc3GDlRX3UKe2aZ+ltciisqRQUgLfB3wDt+GT9nHRPBj+IbU4zxF4v8m g+Swn9anMbjnzDSSTg3CGpqDfJMNBeSvQPFXjdT0HMSExyA2IgrR+R5UtU6j m87nh+Tw1yOfYaaOWWdaHj44E4ZBctZH/lJOVeG9NxzY9kY8zr25ExXv74V2 Re4+SoJWzFaHT+PuT9RKq34mNIbMkzi8bwf27tqG+HMHYC08jTpjOM6f3It2 6l7cwWAcXxKC/Y/HIertOuTsvYmK1F/A5NR4653+IT74YubRr5lq/Qpvc6da Nd5ewu0PxmaLOV7u1+5I5WVmV1scRd2LJnMx6iaYrdWxcNmqkOKdRF7jRyj1 XoXJMghzHkOlMxnICo1i3Hkazy1ZhmffWIxXaG+88Q4WvPkOFr+1GCvI3Kol y5EYehoJsVk4djwH77wYjy2vleDYslbkHP8UJTm/Rpl7BnmdZKyzDQ1tleht jEVPvdwqPhrtTFJ661NUIZmC6hLEZ2TgyIYEGPO7YG7qJldTtGkaWRu8OcuZ SxhTdgvlLQMoqGlHhr2GVotM8pPlqKPYyVrgHIcIWy6P6wK7YTJ+DIOnke64 Xl6z1bO9cqz1jB7rkGWuQ5G7E9buKTJ3R7EnDHqHbiv+vIMfwyM2cIvg0fo+ Qlr5MDbvnkLh2XZUnk9DgR88il5BlRGJcSmIiYgmeMyqS6PRUh6DUmcbHF3X MXBtBj+e/jW+HPyEEVAXfsYIaDr0JEybLiB4swUb38xHyPxgpL61BcZMWZqe ggjS9PLrz+GtN1/EouWrsXXr+9gVtA07g7YjIeoEqksT0GxPUnXs5TYKcYdC cOC9vdiyIQjhC53I3n0DFckkzTGDKpLmo6OprSvBUF8lvmAO/ZjO1Z07d1QJ va9Bbu7szuv6c3fLN6qKZf1OPEPsquAR7IqiiZ22+a20MAlRWemIzclAXG4G jpfU4FDlFH3OFIyeK7AaemBNrcYLzy7ES4+8hNe//wze/pcHseT7D2P1s69g zXOvYPX8FVjxejI2LzFhT2AnDh0dQ3AUc9jMKZzMu4hMVzea5dp6U5zaW9hL 62mIQVd9DDqIXE9DqrrPa3+bDYWmUpw4EInS2ArYGnrYdUZUNXQQs+tfwe2W Qq2CqGU46E9pWXMwy3HWBzC0q8cfM7irpzWggLb+/Yswm26jmilxgYPP2RuY m9BsDciz0s9YaIwvc0wksLoOhsZhUveJRt/QHeV6b7NPvIMkcOBjRV2ZtwWH zrUi+OhV5B6rQEFBmUadUaOusMqAhPhkEhcJR240qYshdRztlbFoq4qHiSMl n6NxYppRz9Sv8OWljzBjbcTVU7FIeS8G772bi6XvJeO9VYfxPEf30vfWYt2G jQjcvBkbN23Cu+++h6VLV2JD4PtIZjcmZWdg18EorF0ZiWUvpeDg6ybEb7uM iFA39h84j9LWn6JGvEtTOTo9keh0R6DNEY6PJnsf/5qpxP8EttfU8Wl8fHMU Y71So9EmNRq1UmX9LlWm7IrUDDVyHGYnIDwtFRcy0xRwMQKcrEWlJdGPhuVX IcrAUNs+heIML9585E0sffQ1vPfoD7D60aex8uFnsO7B57D50Zex7anXEB0y hoTEKZwrYZBTehHnCW4aAU7l+6Zk8T2pW/mFqeghbN3MLDoJW1tdNIY7inBj wIMb/R5YXZU4sPcUMk/kwsFMtcxhRpHZhFJXra5v4kc1bStXoMk1a8Hsd5FN qggZM996ctagEeZqQKGYmyltkauRfmnDln5YzHdgljkYpzztkHTX3sjsosDW iHx2dB6hyzMRvOp6lHCs2LqnFXRemgB3B48q4DwDt/k3bhTSthy6iJMHyfmh ZORml3CcWFFI4ArpWwurqpAYn4jM2Eg0FsWguURqQ8ehtSJOAddhjEe1oQru xnbktH2KnNopVHkvw1DVhZJEhhf7TmPr+9sQGLgZy1auxfz5y/HmM69g/uMv 4K2XF2LRG4uwdMFSBG6KxPLXUrBlqRX7t/Ug+NQETshkQeEUEiubcTL8PHJT Qhi+RKPDE4V2wtbmisBEcxmm2qx4Qkdq7uJubRmXNkmtr5v1T/n9/Oc/14B7 WRUFHe+dLQp6D3A9nRRVmwWJTHflK4LARRK4aIIRS0ASCFtivraQNJUWuGMH Hvin5/Hcw29g8bOLsOHFRdjx8gJseOptbP3BQux8fSF2vbUAu9cEIjipDFn8 mwwGfRkS/OVpwCVzyCURuoSMdMSnpsHAtLqVynb1ogkfDnlxc1ADLiGL57I3 AdZyOwxuK4osJhojIpMVzgGqG6N4F6Oogpo2YuZT2UG2U6mZgiyPcOWTqwIa ISNjTXSQTfNQ4m7Ct7Bp2xCs1k9g8TaR4Wb6tWaUiDmaUexoYirKX7c1odDa hAILzUwAq2nGBhgbR8na8A/xOIkje3SB1S2DJNWrzSvaPFgd2ILoo07kn0ml TttRSLdayHiuyGBEUVUF0tPTYMuMJnOxZC4OLWVkrjIe7WSuqjhZ+RhZans4 Ih57Qs9g296jCNq1H2kpFagpa8bLTy/Aa//4DN76xyex4F8fwzsPPIaVDz2J NRz6a55biANBPTh2ZgKn0qZwonQKEcU1uEDZiM2k/0qnseX37tvP0Ock2shb T20KxlsrVA3G6Q4rfvbZHfgVbu703T3M3a/mStLS0tR8yfLly1U12lf9brXb rBdk9BcCfVUVgaryWJBttzCqsSGPJl9xBbkEj2qXQ7UjePH6yntZdZ9C20QN f+B7j+CJf34cLz34JBY+9TrWvL4Em+YvwbY3X0PgK89jww8e40d/GBHhx5Gp gycZh2QeKaKcbNJEwi3gxbH5k9Nz4TQ58NGwFx8OC3heWAz5CA48DWNWNSw+ J4GrVtAVWSgZjPTNnWOo7rpMF+oldDXIpvrlEDqlbHOAI2goVkaiaKVinmaU KWtB4PZRBsU/hNXXiHJ3SwDKXC3MvMucLQSR5mhBiZ1mI4zWZhRZZSqRMBLA AkMDf6eHqvepYtA79EOU0y0W8ZSKFIFeRGXXYPvOVqQdZQYem00CbUrxiozV uluah7q8mNkVFNpcxd8g9HwYduwMwrYd23Eg+AjOMlmLz0lBVFEVztNxRKV7 8cpjb2PJk29hzVNvYONTL2Hlg69g0+NvYvsLb2PXq2/jVGgyUsprkFBKZRUN 4XiPY7PH+ckTxxafgO07gnAmLBL9DfbZCozXu6z40Y3R3wrebyy2fk1f/jHW bcGEMKcKjznR3WGnXFuQRd5yHLb79BUJeezWhGJZNE/ciEacLC/WN3nIgvkH /vohPPrPsvbmKcx/4mkseXEZti9dhq0MXte99BTWvPg4Vj7zINKLM5AuO5VE H/VF8+KgE/m+CUQ5lUljYWk1ysocKC22oyjfguF2N25S56KORaA4uggOuQxm M7CPiZnVgmKLjbjZUeJpImIe6hq1zVlLxOoUYnl+TdP0TCEmaJUqjMjW76Cc UVaFp1XZ5qAJ2B2fwkanKj8HoMLdGoByVyv+AOXOVjLXqngTK7a1aLxZaCby ZqTgVTbC3nldsVbkkFXzRTyjh8iZj0rnReCeBhzb34icw5koyC1BUbWsNjWj xGhQre2wV+FajxtlWVpF8e1BWrGB4LOnEZmZoi3vztN8jX+J90Z60+9/72E8 8q8v4eUn5mP5S+8g8PXF2PDSYmyZvxibX30Zm15+FmuefQhJsntM/l5kQwKl bFFO9it9WXR6KqJTUpGWXoKdO/cgJakI5nKzVmexx4apTrOftblTcvewdu+0 iAbai/j8s9tasc8eDbbudhuyrEaCZmaPWZW4yVeBU1v1WOyWHnWwgxwosFYj qSSf5Mma3btCt3F9IB76u4fx7ANP4NXHn8KiV5Zj64rl2PDGD7Dq+cex4vmH cXBPINJIXWqxRqpsSZK/TcxPR255GarMTlRWO1BhdKC8ktSRvJISG4oL6OV3 nUZqSCrspKvMSW/K81DEWfm61Y48mWuoKOf5e3n+DC9JXZ4/ISBthX5BI2Sl tDKPgESmfhcV3lZUettm7f2dk7A7hboGjr+2+1DpacPDRK8NFa420temuCtz tFLnaMIdmSumxhVV09lWNsBG5oro04t5JkXOGvJWozFn9WL5+iZcOOxB1p5o csrxIt61slLjKjQYISFHcDA4mP2frp6TmEZcS7S+6lqYk5aP13lbT/fy/b99 BA/90xNs/afwMjVtyStLsXXRO3j3eY73F57E2hcex6qnH9RYowUgnu/2P/RN XGQtg5zlFaOQrV1YRBqyDdizez9yMquQn2VEf71FCtr5eZs7Dfdbefu92eKy UtCuu9WKLIuRkZuJfaWETfGW77T5yyP4USunVXiIhNcJAy3bUIZcYxli87UP //pL8/HYPz+MFx58FG88+zpW0ZcufuZRLOLAWrfiTSSXyAdNImx/gcSidDqf MpQzEKu2O2G08T2tfG+zA5UmDbmyKuLGgC0xrhjHVieiJKcKBp+gZtQEzmZV uOXTESXmpRHhAp66XFyoQT5TUck/C11asKb5TiVqrWyVcmJVoeM1j1C10wsY eNyyawoO149g99bP4/9q54vytPxClaedZ1/J478RvfZZ7EqJXSmRK6HUlZiJ HZHLLDAzvnMy8ahT2InUKeRsPkRn+rB5exsS6U4jDh7Hrj176Ca1IlMnk1OQ UlnBM3aqhTqlNPlKLMpHJJGLIirRbG1pcYVcoeZq/u0vH8AD//g4niJuLzy8 AEveWIb3Xn8dy59n/kbcVj33KA7sDAxQ2viHar5BIvKYnDR6nBIUVzKmLCdp ZTZFXEGxDRcik7FnjxBXiYIsAxrZ6D/78e3ZaZG5M3FfQW7uTNxc5MbpkLtb 6D/NVcimXOTYzOwv62zsVuBH7j4qgoZcBa3S6whQvP1PVPNYzUjKzEcLrYIC uWfvQTzy/Ufw9MNP4KWnnmAw+wiOHTvAMKWc4X05bB5nAKzE9m9gYXOa2bQm J9/GQegInoHgVVr4VgSvnNAlJZfgyMoYJJ0tx5mUUmRUVGjaxpMtJnD51UZ6 iTRauvLM6kqWTNMKbNQ2yT4lWKMHVQ60TLlOoa2dn6SDKHXw0/g6GO8aeTT6 OrFt93U43Z/BSqmcB2NNJ/5aPS+/5Tf+GdnrUOSJ8JU525TglTKwK1XkNSG7 2IL0gnKdOpqdkmtxIzIlC6cuxGDr9n3YsmU3zu4JQ35OPv/GrJo7NKcAcfyY siyshA1V5nHqgVw5v/sOMqrKEJl7l76YAo2+I6dO4Pv/50E8+i+P4dmH52PJ 2yuw6vXX8M4zj2PJ0w/hnacfUMGQzDbE5kqFgDyKcTVKjXRfBjuKq2wSAFTY ZLnPLH5WhJ2LUegV5lWjILsKtZ7O/wJ1vzk/8ieqfGxnkwlZpgpkWwzIsZqQ I9Gb/R7qGPpojrVMYUcYyFaVUjkXjLRqmsnnCmAY76JKW3m06bbyzBRy26dh q3HCXsPnaOpRve6k0yJ+Fr7nP8LM9q0mfkbiZyB6VTbCbSF21LtjuxNRdJpn V2BDaHIhQuKLiR51jgl1MT9wYl4qkumWkyX34NAVjStgPwt2RcSumBonuUEZ sSvXkatUykV+vMKSWBe5otV0oZq2f1cPrIZJmIl+dW0XTLR56ru/VL8jJBp0 DjX+qHpkTwV6EuTZ+f/IXm6pBalZ+UhlwBaZmo1de/dR0XYh5PQ5BuuF9BE2 bD/ShPAjPhQcjsP54iqNu7wixFdpjrb0Hu4qZMxW8sdvUXadyDIwjtBNADx4 6iT+7R8YVf/L4/jBI4xvnngMrz/5CDatWoqo+GhkV5TRi5ukcckwP908lLGN S6vJnFHyR5JH8CptDG8Ly5mMlVlx6kw4zofHojDfgCpDE9o6p+G/6jB3Vk6n 7v/oL3322Wdqf/HdKeA/VVpXZa9EtrmSxBmpcybksh9z7Rpx+bRChnLFbodS efnc5QzcK0lZldfN/nKTODeJ88BMs/hk2ZC1xhtAukQiVp6aQnrbddjqZU2H vdYjL7hJmIBp4buYhVe+q4m0GYQ2h0ZbxLkspB4qhYMhUXKRASFJhTiWVIJz FHkhLa04h5SlKdJS8jKRnJuJfPqtAqqJiFuxsxElJE1R5tYp87Qr0oQyo58y RVg3WeomVd3Yv/sirJWjMJvkJjWmup4AHroDFGt/CmPtXdYqdc4qdM6KLQ3I KXfixNkIBJGp7dt34FxsEtJKOTbs1DgbAzqrj+ZFTIYbG7e3IPh41WyB7+P5 xWSsSulawCxcfEGCGCGsSr1gEOCM6sAO+SaSGW89v/QCtodE4+Dhw0hg3G+0 u9SwFY9RZZO/qmTA8g2GMOxCQlZqpqwJYtWMgI0ErNggyiYqV1RhRU5hBXbt 2oPo6CQYzC2w+yYwfvn2I7+dsblzca/r61U9HW3IquaQoC/NZfiWa9UYy7ML X3b2GBNEp0NpukQR5R63il48KqLx0Lz0pFKmyczj78FCsKy1XsLkg63OB3ud FyuOTyGt/SZsjfX82QdHnW+eeuFvYav1EEgxN9+AqAquRLja7VLApeeV4VxQ BqyFtfS6PoaHFTiWUoRjyaWEjp41rYwelMEOYUtVBQ38sNGT2utlslaBVuqX NLcGWpVHkyK/6xQZM9WQJKHsPpjrenBw7yXYqkZR7aybB3N9D/4Kpvpu4W3W BDs/dFV8p3JnC2IzeHanzmP33gMEbTfCIuORlJGD1OwCpGTmEzaelU2Aq50F rsjmwYEYO9YEO+kMKdox6TheUILw0pJZR1ouUCk9q5KDweMS0MSLGNkl1W6a y41jp61YGT6NzJZpnriHxucdbhhpBjG7m71nc+PbqLC6FHKlYsSuhMpWbBL0 bDp6TJkNtEr6ucJyMrcbaVnlcNRPwFEzhjs//AJ+6ObOifzbvdDNXbikudM/ xp2ffI6yujpkE7ycWfAYxDEuyrPbCZ4DhZSaIhJQzE9V6vbw83vYc172mo8D 3Mde81HYJPM318hKH2ttDYGrJVe12mN9LZYfm0Jq+4ewNzfxtGt5No76GnyP R4HTq0xgtdRoAin0VcsyNdJ3dHMcjGlulSyWcUQmcNgdS2UCkVpG+ipwIDKb 2dW95CXp5BU6xJk2qqlbmUObK3EGkmfUJU6jrktBF6Cgu1+RdvhAP2zGUVjq e2k9fM3SIPyZeZTXxfwsSg6bmF2M3fvIG2UhKiWH51RJwatXPOZRMtJyCtl1 +Yq/7DLTXf5E9JhKyIK/0EITB6oDW09ayW8qQtNzKHq5sw613O9K7yeA9C/S TLoZPeJXqnn8HYLopbfwIvR0PdYn30Bh21VCSI1wiUbId9RpHg0OD6polXYP Koh/OZksY4xZanEpIksYz5Sw2YVIP43FBsYwldSnwjKEhJ5hlw3qNI7890j8 DlovT5HEekpgBUk0kMRqhrqUP6aD/pXkhQ4Xe9NNHfFQQ7x0KT42hI8k1rAX ayl/tSSxlhxSo2prYRUC6+VCub1eLpQ7Guqw7OhVJLd/BEdrGxyN8po8+/c8 ktQGjVZbXQ3/1kcifXwvNiMFtZoSe/xoCoojLXB7W1Dl4qC1MsxLycaxNI3G w7H52B+RRtVg6kqH66cxs8KAfPa00FjsuEtjBWkUakQDDdTAap1EcbTmWo0q YTFAsXc/jh4egN1EGht6YRVr7FVE9pLI6poOps1OhMelYc++g9hJAmPS8pjU NsPA16p8mlPX5lhakF9pRTrThPRsP5F599Jo9+Ecw/fQIjNCi01456AT+85U 4kRkEk4U5Ckay/1hjkigcHj/LIWasdk8ija3hDUmHkPDOxFUcBPlTZco8S4f X5OD0ekTnHmsZPZVafeinFZmE5xLCeQfMCVyMSG/i2OJScSRKBqZxVVVIyG9 AAcOhxLFATjrx9B+8Zp+J4B7J+++guLcyRTtysSfYezDW7D1DcPY3o1sYwVy TQbkmU3EkaIoE2EMFQrsbrVAvJgZXqnLx+6sYdPWsClq2ZV1FJY6dkkdRaWe XVlPnOoZ0tXXM7qwN9D5NjbwsQFLDk0iqf1j2Ns7CWJjfYBi8p/4Wp3i0iY0 0iwk0kxdNdf4EBXHwPx4BVy2VvYsRwFHRTlP6VhqjkYic9x94cm0VOwPT8fZ JD+JWcgiiQXSy/YGlDia1GWtckVim5oOUZ6Ymljtu6uHQqDonDAo6ie8hRzl gDeNBCgEH6D77WAeU4Y9+wne7j04evw0Mkqr+Xat/FO65zq6Zpqhlu6ZMCoQ JYV2C4g2glhIEAuQRksVaSz1S2MNIbTjWJGFEJpxvKQae9NNWB1qx5GzeTge F08QXQrCCpJX6ZHrR4yFSJ2BwmCkVXsoDuwZeTQpo0i4a/Hm6iYcNnyIqqb+ eeqJ7xLTWv4qzcVOpFU62aFksoJMlomRyVLKZCk7v8RGebTNZZI8mkQaTfxX rYjPKNN57IezYQSffPr5Q/8dHP8ctouDsPeNwNE/hixjJXKrjcTRTBypjPzP +VaXWhQuV3hKeJalPOtynn2Fu44NUqfh6Ksnjg3szway1EAcafXCYCNZbBQV 5PEbWHzgChJbb8Pe2QtHUyOcND7Kyw1YqNC1iVFOLWIU2JyyapzblwtHRcv/ x9l7gMd1lnnf/0uyE2oIsAF22V1YtsHLsuy+u0BYAmxeIJAGaSQhISE9cZrj Fsu9qY2qLdtyVy/TR9L0JmlURr33Lrn3FMdw8X3fbr7//Zwzo5HjAPv6uu4z 49FodOZ5fvf/vu/nnHMfvp3CyBTBTJE2EcvNB4qxhUhuZFWyJquQOAqSB7HW cJgCeYQVyVEcMdlQ7mKYdjclIBmNI2kLJiSGCsduHcfeJUK4edMALNXtyCo4 pHO4CnuOlKOiNsjfb1PvqWvSEK6NdKuwrbgkkyKQFiWQbeooSKk1xqTOpQjk 0RK1/nKYn7epwkke6xSPW6vs2FZlw6PbavHiDgc279qDKrNZpUnmWKqkVFCI /BiZ1FgU2MQEPY3JBtz93Ah2es+hRjHJuSOT3Nr9mtloVh9nlWb21sPImTZ6 ZcZpIkSeGJv+BC6dTCRr+Tlt8LXNImdvCfYeMXGqxuFtGrneaZ/XMCkHbmOL fz9R269g4vRZuPtHdC4ncZQFWZHdQTYZsanOJUwcSplElLnkqGOYEa+ee9nA /It77m/kgEQ4sU3M15soHk3UtiZOaDOZpEWaWaA0k0taM/NF2gNrprA7epFc 9sPDHNLbQi5bhEuBU9T0awSTTBPOOmYRKa8WwlHUCG+rRNYw/x6jCjMGE8Es qLYpKFMKirCWUK41HKAdVFqZtk+DstjGvNe5CKXR06KK10QoY9G6lnWHQCn6 6KRJJBYx3J6WhRUr1uO111YrEB1hWXx2Nfdy62zWoNUiuGSTf6sB2agDSUsE UoRScsdFoSSQx0pwzGRHuolZCGHcUsVITeHcykJ6G7/jtmoLfrHOge2pNSjd VkAgGSskW1IWJo4URoJnJ2EOv1gjIWxUj4zNnKFk/GLlPHIbzvO7yb7LlXp/ TpIi/B3NbP4IHb5RI9Knza+R2iPhUKjU6NTIrCKZ1S6hUqJ3HXydC/C1z5HK Gaxak4IjFHlvyyimFs7pF10uXR28BsvE1cGf6JHb1TuosPQMjBPLKZgboyiy USrtssxLqWR6XVYX4NSGVGyp9AiWTM99EeLRxGFpYknTTCybiWULp7WFX72F YS7SwsLf1dRC4FpIZauy+1bL7Zkuw93NnKOFb/Nom2YWdUKuKKuL5qTKbtt2 DJX5foQifZSgJpWvSt4q8mCmZBYYhcoqrMnej7U5hViXdZCzsNZwiF9rc95h VUuX1dVrVLpIpbtZLdmJVFp0Ku0ilayAaxSVpIlhdn9RdTws78zMU1XHtq0D 8LkZvV3Nfdy09PFvOJv7FJsxMmubEmSycTF8W3SplEN6S6hkLnmwiJlJEfWl 0sKQzeqlqjZJIXkztjJKCJhbjRasPmTGsxtZ7GSwosg9EM+brFRCm5I5DUI7 4XLQavwR4VHOATtQ7MPD286isPWCnAe2TF2QJyLJAZW5C2hzaCGaZpqJn2Ik 3kbB0q9j6YsJpoglAziLiyqGUl/Xcfg65onkLAdvEKvWrmfJ5uXEDv8BGr9y nVXDmEhefPcKiWTK3j9KIidI5DRq2odwzFqnVlAlXS+roUgyopTXhVXqXelu 5J5xz338Fv5mCkAziWzhtLYw+rUy8rWSSFpTK6eplVMWJWq0lijBi+IXq0aQ 2/oW3D2jFD++1hoVIltZ67tbhFzNRF/zCo0o3FmDgL8PTr7VwdzAHmKEIZkW kil6UWC0Y+N+VjUkcm3OAazLPkgyD5HMNQzhX0BBmYW7z4qhLoFK71IqLfx/ sdnNyqRQq0xI4u5DpaQ1yq/Qw30R68WuXeOkkiPc0sN95Wstvcv4/Xrw14Sy R8VugbJGQUkgG3Ug62NAtnGXW3FAChoBsphAFpfSSpB2uChBIml0AiFyG7/e 1mor47cJK9I82LStA+WZZpgttdz9hiRBMUlx+DGS2KQ4E6sJNJO8ZmxJq8ev 8y6hpFNOS+RroWaSyum6gT9uof81K7PRrMoYrMwk9jMwyWJGYJHOatKpkSli yfDNctfCv+vrOgF/1wL8HRTK9hkqUr8i0+JtxtTxs/9ynbXGa8hMLLZjOjlx +gzcfUPw9DN8D0zBOzAL7+A8jpmdKLZSJ21yxnqAdIZIpiyPsXBlyWD0amSa Ay1ERArLVmITZaEqeX5UatE2fJSz2caJo7W0cSbbCG8Dfr6yD9ktbxNMOkKr HKMlmhRzAddNPsVKrF6kvVkJr70bAWagjoYmjUoWUFZ+hoVkmoKMKkyrUgqO aTqZQyKzD9EOM5ofYpp5CNlFch4gd7uWu+1c1MpqPt99qBybd2aqFZqULTtw qMJO4RGnkpUfZ0TqbEVks2apaePwe0dkVZ5M3qLolNedutU1MR0VizA9jYhO Mno36FiGNZ0ULEuszkUsS4hlSQnWFhapsiZJQXkTsWSJo6O5VSJ4lRnHmMe9 vqMTOWlRVKceY6RlxKXZOA12v1gzKwrOx3KFXE2wFVvSu/Dc0cuo7jolVXeo lW8ItarDky30bk4dzcwwZw5J5m8ikDdzSxiDMSBjMhlQV+rXMGb5u08SRMLY KTDOUiqnOeW9WJeyiY+d/1cgfhuu7j6CyFqyn9nowDRtjiAuwMzoVUzxLbH6 KZPBJSBWueUMtya1siEgWvmVbeGoDmIb96ads9FObaE1t3O2aC3tnD/mbSzH XzBEYGh+l9I8DXdrOzlsV0S6aR6dWJHV7HQzHCVRBDuH+HkcWuamQqSNRFpJ pCVMGkPUyWAQ6/fEaCSJOYcZuLPlsPxqBvHUIxqMJbYQjla7kVtYgtdXrVFL 0jn7jqGIX9PEFNMhgZt6Vkt46qhtAmMXozPZIpHN3UjPGCOJDCfNmj4Kkd18 F3/0NWLIkC8W4afQ7I1MfBsovvW0MJPIkIahLHQfLKZClmgYph8pxroDRUgp qtLU0VinYxhDUcPQyEypoLgBL6zrx6FMJnu7S4ghpY1GBCmULYpCB/+GMOgI ao9bcoex0vgWLG2TikVqhIO7sowsRtWsWfloCbdSFxnhPgsTMy+TnPVIM4Yi OpL1OpKaNjrbpuDvOUUkRRuP0+aI5QxtEocqbVhLJE+dPY8Yk4krkd9IZHJZ nEnpeH3q1Kkfq5f/Aq6eAXh6GbX7J4nkDG2edhw10XF17KrETCytIWpkGOVy ZQ3DXxXDXzXnUS2ncBRk7cPGkXfU0zgTtZyR2kgHZ6qDc0Zr6ZDcqwM3Utsi eCGjCRlNkjDMkMQOuKMd6jFJMfoVRfC2XeUoL2hAPbNk+XlNhINMMh0k09bI 1IeVj6WeWXiYdWGIZerufVrUFo3MoT7mHGEkP4I380qxamcBNmxJxetvyKHd lTDsOaK+illFbs4L60U7w6pcUlFDLdOw7IxTKQeWDQV1yMwklb4BjUb8I7dd 3NcufkUx/g6ttkn2lRUTzaaDaeWwWDj/ZiqTnJBoYnw8StCUNpaWqFXvdQeO YkNxNdWxDpuNtXEwt8SSyUoTh5x65WnElpxmpDCvLTe4YWSCaZN1T+q6XYwV lEOd3OgIRhWGbbj76V5scr4De9s0CxvO01+qr+qQGQtLyGpTs2ejqFhoZmXc TVYFpnCL4tQYFk5FNrkLLKaq/SEWugH4+87C33t6kdHuedosbYrxfAx7jpZh y7btfwKeshwk/+RUVovF8iMdz4lTpxlHB4kow3c/w3c/w/fAAu0E7ZQ6P7PY FECphYjaWDPUCKIRVEqG5tHXngVRjoOcEmWnSDgaOEc6orVNnTJ3nGtOJMWn tUudOrzC0Ia0xvc4Jq0Ky04Jh9zKMxdRLXWEsHeXG8HgCLwdstrShpqmqMLU Tkw1RJmZNxDReiIaDiHtAItvJpVriecaquXrm9P52S++/CrD4atvbkPmvlJm JH511Fg8zEgPMzOhjCEqu+9QiNLD+BXqGjsEUXEtfolkZBW4YMgiov5+hWgn PkE8ub/0QDHxxLrmDg3RJkGUQYIBxMZAYpW5D8tJjIyXf6EkSa4+P0BCD5DQ tQeOYd3Bo0ghoZurSGi1My6fKsEkoQU2F+MV8ZDkydOE17b1IiutF+bMapiN XkpolITSxNuYwDqCbSKQUmzf8/Ic0kPvopaaw6Qy3JGsVhZuJJodasZs9boX cVcFUVO9EG7i5HxGx5RiRGUxKkSZXlJCa1qG4O8/RzzP0IhnD6N6DyN6DyW0 Z5qITsDXPYKcwkOyJHS9TsDfWBrV5TC2rFjKqf0/jq0OnWJ62cP0spdRvY9R vX9Oyafw6Rs4za80haLqIErNYaaa9ZTRRkb3JnVBRZxPOTYip7uE5Zt2KD4d Krhpga5O6Us36qg6rtZudbxiRWY7djVcRW0ba9loV7Ii9+soIZc7U8zwOAYQ 6Bnmr5KVZmGTA96ks8mS3NIobDbC1MA6zO9D2p4cvLJuk6LxxRUv49UNO7Eu t5QFkYNmQ16ZXLjRoA7wKTaZZpq8TK8oPVa6l41iI1qisdkubMIpRhdzkjUX LWuvB9k5o+Szl4G9gwPqZkj4ggoMSxhlMlNLq2GC7aDZGmnMuq2cbgvNnKhJ TFD2M73Mo3qspYSuJaRvUnM2V8chTVKUfpwh346jNbJiyLJTGOVXMLtb8Nzq YRw0cOT3iZLyT7GWk6Pc7axs7GrtS7P7153H7pYrkrAkqwxmmVqAcDCPkWUs ewMd0dogX8giyQhJNdHMDVHFqaK0XihtUpRWU0irSGlg4IJGqQhpH4W0l5T2 MtD3UkgZH/09k7RRDkgbNm/egt7e3ljrhMR1zGtIjV2Aol33JNu/RdvYJEkd UU1YvH0M9H0M9P0ktf+kItU3cBYVNW0oNpJUa4NGai1JdWqkVtN/1TFlOfM0 1K4WkqUCkBUThyK1W13qW6dIZcVAO2J14zVDN3aEf4varhHW3hrBSerZPyM9 0wZrSRdC3ZOwMxetZeSvEVyZkypcm4hrk0x1GPmc4k2pqVi7YQNWrVuNtaxs VmccoJQexersI9i4z6HhWhjDlWgzylc5mUO7iQrLSItfw9UuaRsjcg2tlrpS x5lyUgqdei7tohkKvMjJI66BboWmwCrYulQyQ7/6tEq5ndxdTf3bFLH2Rkpc Iz2ioVURa+bEm2XiGQ2MyhpQ5LAzVz6miGX+fOjYMgXsZ1VttLnSyghGV2P+ L1WckUphcrdiX3kH1m4ZQ3lOPazFNazk9OP6gc74sf3C0iY8mvoODne+J1IW jp0SJ/MklqTqtRvpUqza6J7muLF6axRila42tChd5d+mplaT1proiE7qeZ1W amrfKb3XEzW1jyG/j6kqVdDHaD1AAZVYPzo6er3bpV1Da+LypkbrL+BiTeym OnvIv7dXp7XvOHz9p2hnaPSXgfMoqmK5YW5QF6OV1TSp64Mq5HohOblZTsOS VZmQaGsnp6NTLaUIsaKtNUuI7cZhoTWjC9uCv0Nd7xQZ7VGcOimtm9OqULyn CcHWKbjae0kqg6gyihRptXBq97DQWLmG5c7Klcg+dAhH7HaU+7w4WHUEaYUH sTrzMFYbjiBltwUb99botMqqkwXl9rBOq6ZOJkZQCwsOKwsNG4tdO3PHmnAr aWX9zlmqI2ZOzpiTyMkahGGvD3n5I6RVZlnwvJG06msTujmbBFUS3ySzLKnK pzRUaVbOuaVBMG2iZhHTRjFG00ZG9MYwdh5iPl14hAJ7DGsOHVNZQJKS2M9h k2QEVTXIt7h1cpnAkFw5tdfoova5o3htSx8y0odhzq2D1SqHLDv5vUhmUDut c0tGO57cdxVlvVfUOQF2OS/KztKYSUBDN3exS5lVmcDbqcBNUuh+XoOXQ2Ki 1wm+xnotPlSxpgoMXUJg8CJx0aQ2QHwC/adpJ2iElyHb38+EoI/w9g5h6vRp VdsfPnxYJav/9OEE/811TnL7SYzgjn54ullY9TBr7WHW2sustZdZAf3GR//x 9Z1T/lQXnUeRsYH1f0RdVlnGjLacBFfKCdJymr6cUBiSFRaNYFuDtiBoJ8EO EiwU17BOrqXeHhKC0zqxJfA71DJTFnrraEUM3Xm7vPAHx9WBg1qmsdZIFHtL K5Cxdz+pXauozTlyBFWs881MEUyRRiVWRqavB6qOorDqMFalid6WYGMB6d1H K6xRBG8qtKCMBFew+K8iAdUuIZgphpdpsL9JrQraZclGJ7i2QShuJcE0cuii GQp8yN8tBMulCq6m6DK1NJGs1n5lDbg20qpjy8jbKDl2s0LW3NBEzWqMJClY v4DqCOuTSAj5NQ6sJrJrJHk9Uo5NlU6iSqt2KmQ3VjjUakW8ZFDINitkjUTW 7GnD02uGUZjTB4uhgq7IQQt0JSlub8CWzGG8UPpbmHvOCa0KVlt9t0hsNz7K vesmqd2KWAunysyEzsxsyEQzM8yYI5JmCLO3KGqrSWw1iXX3nIgTK5IbGNA6 VEhrFOlgFmBy6R8gsazV/f1MYftG0KHnq5INyIqUUPv166xSXUPtB1epvqBR y8ItTm2PTi0zaF9vjFo60sBFVNR2odgcQYm9GaW1LShztqKCg1bpa6f2tjMT 51eV02LlVIgG5bz06Ug3vkVweyibPQpcgfbVnR3Y6CW0gwsEuRvHGLy3pFhQ ax/iLg1hb1kl3lCQvoHtWTk4aLQSzEZYWyi9zYyyTBRMkihEGLBIQVVDmMBq 0KYWHsOGXBs27qnRZVdMk90yW4jQivSyaHBK8dJIaPVlRznwF2xi8teMWuab tfpRMqd+XELAzSzwY/eeEfjUhTmuplbR3lYOtAZtizJZUXMooxfI+kWDnoDT TDGNjXAHmsJxeLeaLVh7uASrCe/6Y0YF78YKFzZWitUi1+RhzNPqiYqaCOeC YkflqHZGFbwmzsP+si68sW0SpbuZPO+r1gAmu8Lvc2/2Yo31t7CwPrGFFbkq OyC/Qu0XKQ8xbnVjjamxKwy3c8dFcekpOrvm5l4Eh98iu5fJ7iWN3cHzWmuf QbI7eIp2nMbEdpDsDjCx7Wf13Nsbb6FcX18f5/d//d/w+1XCMgBPJ/ntFn7n NH7pUr6e04v8SiAQ9+KuVjp7WHSTX0cLSutaUeZqQ4W3nbk5GeZ4GZlZmZhH WZhFCcPi1rZIDzHuiUN8kHHvle1RpHgI8NApFJpYGe+swK5tB5ippuC1N95A 3tESlDrlFO3WDnwZtlamJK1MpMmvmcAYmxmzyG81+a0iDpUciX2VR7G38jCT cA82ZDNlyCOzexxaoruPPO83o4yhVEsdiI2zntpVT92S0yYa1QFru85wDQv6 GnXyQTOFtzlJnYFwA/H1oWDvMLyBFnXE19mkHpPVk2+gjsDWKqMXiDVSygmt laYAZogwRTR4jQKvsiAtQIDN2GqxY+2RMqw7asTGchc2VIjVIaW8BsX0vBIC XGpvJMQRdZGtXPhYRRGpdgnEco1QO3bu7cPOzAmY9vhhtcvhui4F8T3PjWIr FcPWvsCw2MPJoanTVoXfvyS73Uv4NTWJcTKbNA02kmEjNdhIBa4mx5aWPgRH 3l5kWGmwtM/QOwWpxn1keEj0mVnDEFPeQTI8MEqo+pJ1JiVBkMJM/hdDOLFT xT/9MYTvYnqpI9xFhLuJcLcgzCKt9/RSCdYRlj2udPdyRIlwbZSYRVHmblcY V/o7WGoSY6ZYgrGZGFsautVIlYW6ccDDiGEM4dGNebjrRTNeyq/HuvQCPPfC Crzw4svIOWiClUWPnUmEnWmwnYmDjQRblTGKkWETGTaS4WoyXE2Gq8hwJRmu IMOFlgoU22tQXufBIaMTG3LIbb4dG/aQ5b02pcGlFjKsdDhECQuT4TDlixx7 G1iQ0wKNZLiROhxhAhGhFkdQV89wX9cgx8kzCcbefYNkWM6JaV6mTkH4ujrx QLitJac13CMHH+18tJJZK5m1kFlzk85ts1iIRnabAzQ/tphN5NemMXzYiJRS 7n0Z2S2rRRZFuMgSonCw+LA2quKjnPxWyBWUdXI1pVzbpvFr9HZgTeYYCvKH YWPibwlwFoLduPfVUzA0/g6O6KRc2yBXlVg4KcncsR4C262MCQKzuy9wJ7to nZrp8FYT3irCW0kBdvedJrzvaPAqgAnv0EXV+yUwTHiHCe8w4R0mvMMLNMI7 xHptkPD29y9LWJ7tpR7L/67XsfYaeBPP4NPgvR+utkF4OghvJ+Ht0uHtPkmA Bd6z18B7Se2xuF2lt4+gtKKEAJe42lHm6UCFr4MAdzKJ78Ixbyf2Ojuw1dSG beZ2bLe0Y+UhN375ymY8+8LLBPZVPJdWgy0lATzyeh6e2HAAz2WWYoe5Ddv5 O4V0htIGgZb5COE1EV4T4TUS3mrCW0V4q+i3FUSkQrJe1naO5gGU1UrrCw8B dmPXPoKbS9tNK7Bhw17Caw7qIhxCJQGudmoAmwmw1aud5KHOOiLANVJJ6wDX NmhnJ2aQ3n2FpJfvk7MU62hJ8kwOMHMj+H6V8NIFCK6N4FoJrsBrIbwmwmsU cFvoOi1BGuFt8fNRA3gLAd5CgHcwxV1fQnhLarGjzIljxiCOmcMoYuVcTIBL bFJ7NBNi6XhAppxyJXobISZnBHhfWSde3TaNrHQvVnDE737iddydchrb/Zew vaCKVRjV9wYmND3MCWgRsW4Fr7GJKUV1U5dsZBW9mvhWE98q5g+VLGTdrMaC o+/o+L6t4TtMfIcJyLCO7wjxHSG+I8R3RMd3mPgOjcE30I9lCbmCvuwQ51e6 n8XWc6/hN/FS33jVFh2Eu538dpDfTvLbRX67yG/3H+Y3xK9Q4RtAUU0Uxc42 lHDkSslwnqOdBUcUm4206makHK3DG2n7sWLlWjxPgX34xRT85InNuOORPXju 2Elk8n2Pv2TAY6/n4MGVBrycZ8IOCxkmx9v4s63GVuxjblcU5uy0cBjJbxX5 rWDArqDclUvdTsaDYxfg6plR/Jbr/B401iIly4qUPLK7m48FJpQaA7oAB8kv CaoLwUiGTe4wLJ4wBZgm5wkH6skwOQ7Jid4NZLhBneydvtuP/YpfaXIl5yPe TIYbya1msec1JNfOoGAnuTaalXmuhfSamzWCjS1CcQBVrYEkbvz4Cipbfdgc g9jsgCHYh1RCua6oBgXlHhytIsTGMEFuwDFLI4pYQJfYtFSurLYV5YS4gu+v 5FTstrZhj60NvzGEcPuK/bjz1b346QtFuCv1ONbVnMA9L+fgnhXZeKOQjlPZ jkxrJwqctLpOAZcIV5HlzwvIfEZJIsWVpLiCFLv7z5LgK7R3EyhmBjEiRkxG SPGITvEoM+GRkxrFI6R4hBQPk+LBASy/hmJR3a9e56jENRTLv9har0bxzXC1 DsDdplPcwSquc5Fib8/1UwiV/Igjjr2rfej3kVLZwlwtglV55XiJwL706kq8 sn473iy0Ykt1BLc9vRPff3AdfvTQOvzsoY24/6l0PLUijbYTjz+Tgoef3oAn NhVSrAXgKIW7lRC3Ymt1CzZXNSODGcuRkMDL2WLmUMb80t49xl24SGPeNXaO GU0MYBetDodMNUhhNpySb0X24TqUVBFgEwGmCFdQhKsowkZCbHKFYCbEVkJs VRCH1fnI9uDixTM14XoC7MP+Ayx6fQECXa8uiZILaGob+HNabSMfG8OUYLns y05sPwJrUwxe/h0FLvOGVjqPMh3gf0BlVAA2El4btts9BLgXmf4eVISGUMqa 43B5AEcqQzhibMBREwG2NKGIABfbmchRR3KNLdhQ0oSNpS1Mn1uxifYDasP3 nt2D25/agzueNOFhwwnkeeZxzzOZ+Pnz1I2UQ9ha1c7hpRHkTZVt2FzRhnRL B3bXEVpR4kqlxBVSzUWH4B44i9DYlaUME4bAyFsaw6OEZJQMj5LhUZ3hUSrx KBkeTWB4aEC/Dc9i1SYMx+7RkHi84joMLz3B9X5Eh2bgjpLh9ilyTIY7yHDn CXJ8Ks6wT1+JUAm7BI5FhlHaepLRvxMr0wrV57/4ykqszJbDQ1JBN1JW2rCV srCmuAG3PvAmbntgI37y0Fbc88gOPPBsJp5+NQPPvbQDTz+3CU88ux4PP7uB IBNiiwbyVlMrthg1kDdVNHF2Ikg1UX3beuEaPIHgOKPDOEEeJ8jjZ1lNSuu0 RZDL6xzYWWDG+hwzsg/WoqQigJLqAMrMGsyVDoJVq8FspiIrmL0azPY4zART LBRGWr4PhQf74PF6WOpp19AkqWefIMjhOMRitohYiCDzs5n0mgiwUSBuURAL wHKbB8G4UpkPu7212GyyYQcrTYF4b7ifU6FNR4m1FYcqQjhcWY/DxkYcNUew 19iE7aVNWF8UYdrRxPy5mfkzgSbEj++qxK2/2o7v3peCH/x8O35Ke+jlY3hp /WE88Mg6PPD4Btz39C6sKvRqIFcRYh3kJA52GyP+prIo8mvbFcWm6HASEX4P n1kKMkkQIgKjJGP0kgYy46LISmDsLI0pxRhBHiPIYwR5lCCPjMI7NHCjDmbi ilrstjiJ68A6x7Gb6XzwXiMPYmLhHNyto/C0TZJlcty+lGNv7yLHfsnbGTo8 /edRwLJsXdpevLwqBSteX4ONB7QuUltt3Ughd09lufBcthu/3uTEL1934ddr Kcj378D/+WUa7vp1Bu6nIjz0ogG/eS0TL6zMwMsr07DitR349TPrsGO7FTt2 u7HxUBhbyPFmft4m4biSalMWwU5TL7IdU3D0nNU4nrhAI8cTZ1n+9VGUPWTZ hTKd4zInP2+vEVn7HCgq86OkkqLMHLOcmUUFS7tKCrNRsczMgtmxRc8ulDBf w3Nang8HDvXD7XHBESa3NAcpFoaT4GgQAbaTYfsShinESowVw0lKiZPJbUDn V64fryDFHyXHNdhktCDD14W9ITLcOU87TuN0dJ2BIzKrC9LnsfZIPdYea8Cb xRG8GWeYVt6CRzcV41t3r8Wtd7+J//w5E7j70nDfE+l44qkdePzXm/DYr1Pw y8fX4cVdcjRaY3iTzvEmjePyKPVyY2kUO6uHUN58QSEcpIVGryQpgj+lMTyq MzxGOsaEYS00BsYpxuNkeJwMjy/ALwyPTZLjUXTMzXCcli6ryf/+/o9DnLgm oUH8aUzMn4OrZYwgE+LoDGHmqHXoEHfrEPedh5vPD1nqserNzXiFGcOq1H3Y VhpCpmdU72pwG17dF8G9L5vw0Gt1eJzQPr2lH88bJvDSvjm8cXgBd71yAD98 bCvT4q0EeT1+8XQKHno2BY++tA1PvrYLz61Kw46COhTbJrG7pBd5e4LYtYUA 5jux9VAEu2z9yHXOIKduGtk1UwR5EuUtHCJCHNAhDkycRkmNiyAT4tpagmyn sZxzVsNa6WFp60NxGQW5MqhlFwS5kiBXiSgzwzAliLIC2ZuQZdB25fpx8HA/ XO46Jg0k+JOwk2F7g2Y24bcxpPFLs8QZ1nRYarnKVrmQqjLKdKIi6scPyK9f MZzvYZlrqcNephPejhmazAUJ7mCC18kEr+ssLC2n1GivpoOv0SleW9xIiiNY T1V+cmcdHn7TitsfKcC379iE79+1A3fcn4a7H8nEg08b8NSLmSxP0vHCCzvx 7HNb8cLLedie58HGwgYtpaiMYmNFVKUl26p6kFOzwLGm2RdwwHsKjq7LS2Q4 KAiPCcIM1BSUAANjQAXG62A8rmHsI6JT58999Dora393TZrxRyj+qb51NY1q BLcKwSzu2o/DGZ1DpZff4GC1uu3c66vWYV+FBwXeEWR5J/BCfggv767HPS9W 48FXatSo/mZzL57LHMeL+2bwUtEcXqyax2bXHNbVTmKDpRkv77PjP+5/A//5 8Grc8dha3PvkOtz3G8a1p8VW476nViLF0oUdjkFss88j0zGPPPMk8kv6kFcQ QhppzjrAkc4Kk2ISXDvB0R1HoX8KgUmO2ORZ+CdPw9rajZJaJymuRSkJLnWa +f8qdfNkW7WXFFOKy0kwK6Uy4yLF1XahOKzJsVDsEmkVjm+MS/LO3AAOHhlA rcsBG9MLW1jeY6sPy1GCMD6mGLaoKo7sNunsNmtJsLBbIRYNJCt6/xnlpLe8 xYeDISfy3E0c/3GO/zRtbgm9Be4JpDtG1Thn1E2wzujCi3lePLHdgbuersYD L9Thsdda8GzKEMfSiO/9IhU/fDgdP3pkG9ViO+75VQoJ3o7HX0jDM0zhnn8t DTsLI8gtHkTu3iakb6/D1h012Jju4rhPcnwXkFNLq5mnUtDsc8i2zqI8IlXd u9ThsXdwkwbveAK8cSEhvBOEd+IE/BPzhHeGpsN7Lg5vrKaT1bU/AV5ZWVsK 7y2IDizA3TyJusg4DpS7sGrtBrz2xlps2pGNYpa8dcwrduQHsa4gjLueKcMD L9rw6Mp6PLmhG8+kj+D5gmm8cGxGDewmyuMG9wwnNL9hNhm7G2bxLeypn6VO BPHd+1/D7Q+vxM8eX427n1yNe55ahXuefoORimQ6+5HtG8fu4Cx2uWaxwzmL NcZZpNlmkGuaQB4JzhGCt1qwbacdW7P8yKoZJbnjJPYM7RTthH7xZA3NhpI6 M+rDNepWxzMkN+zyo6g4oMgV/VXkmplEWDX9jVV4RmdIkSsabCa7FlK7IzeI Q0cHYONnWlWjDiu5XQ5rPYW2gUIrRuE1R0JqcTXECCzQVuuCq4EbIK0EV5D9 PqH1o6zZC2+/XL0xxPA3Bm8bwVUCwlyu/QQKXKNItw8hvWZEje+ja2wcNhN+ +ZIfT6zuxDPbR/FC3gxePTCL1UXjWFs+gO/cuQbfuWcNfnD/Ovz4l+tx56Pr ce/jDHdMGu57fA0eez2dleMg3qhawE7rArLMs8grH0PewU5kZfqwba0FmQUR pB/tJ7yE1j6LbE5DtnUaB9zzJJa10Dhld1wnd+ISCU0IgRSQwORJ2nG+PkcT cicUuR+/zoJaDNvEBeGvfxDbpQvCn8bvf/97dReCGtbjb6xZj9dWrsbeozZU u7qwJdWGdIMXv/zZPjx1XyUee9bNjCCKp3YO4Nn8cTx3eBLPlE7FG/Xm1U8j X5mG7kwS0Z3hFO7mi7tDU8qezrMyvB3DipyqJLySWylkh6dpM5qFZvg2WnAG +QE++mewVe5RVjONV8qmsMMyiSzTGHJKmQLvCyF9hxE7dpqRs9cL/9RJ0ntc Hf0odjhUt4TiGhM6Iy5MqpsXBzDTE0BvhASXkOAKEizaa0pIhYVgpsLVcqRD X2gzkl6zV+gN4VDRgDpiZ5YLJuVUDDEybKHomkmvKSImqYGxSRJdgvuPqGjR sY3qRnLLxMhuKdntG/Lgt1cvom1wlsGPNTWDoDc6yw+cwjM7HHhhlxN3PlbM wKQ1N/vN+l5qxiie3zuF549NM6hNYx3ZSqsdwzZrH7Zb+/HKbhe+dedKfPfn q3D7A6vxk1+uwc8eWY27fvUGnngjR6VhBgp4EvI8c/giNljn8KZpDptoGeY5 5FZOIvcY2c1vQPpmB2sSJ3Ya6pFjY9pmncIBz6zG7kSMXdZHk6yTGAD9egD0 T8qEMGWYjPHL7zU6wop3kd/YaTx/+8f4vWHJgrBcJhGJRCSP+KF+LrqgLAVh SUmJ+hR5u2QkmzZXIJXh6cEf5uI3PyvCiof8WPViH97cNIsXMobx9N4hPHl0 BG9axrDGPo5s/wRyArQgLcRRCE8iLzyFfFpe/VSywplQ80f5BHqPgM0fPZZW AYN7KIkYi0sUcLtHtySFOH8xRD8IEnYaHSQwhf+FfD8/XbcNjgmkWMeZPo4h wziM7BJqyV4W9zuK4NhXDlupg/pSiiKHXONuxAQZmmj3Y7IzoMMdxFxvEHZb AMWEu7RaS4/LKM1yBEQdwqsNqVXkaspztVvrJrE9L4yDRYOwBiMwBULqyjZT iBbmzwm1sTFEniOixnL8uIqKXEkTrMtbxZgEl5Hvv1FUl5Lq2g4f5qe8OHW8 Xc2OFCiHyuqxY5cJL714DPc8cgS/fMqBx19rwlObevCsYViR/WrZON40T8Dg mqRNIctN85A4Wo4yFg5eBjPaM7uqmcatwg8ffAO3//INrEivQq5bRjaP27/i doZsi1GZ3bPq/zscM9hun8Hr5XxumoGhego5xUPI2RdFVpoLW1dVISMvgN3l PYrqwGSM6vMa2VMMklMMklPMJ6Z0sidn4CPZUxcusI744MJE7DzKxEVinewv yIOSz+U646oFs96jXq618Hg8snx82zWMp6zfgJefX4HM51bh2MpU0lGLF/6V zH/vEN6414uVT3Zg3ZoxbEifx4YDJ5BpOYkcJ9NgSx8ynYMc22EYPEyhfaPI YvDPCYwr5nPJfG5ogkNI6Jcr5JV4iwU1AU9StC9XYD+WrpjXYK9X2HN7o3qu qfq0erf8Xn6Q/hKcUOBPcFByxcXkz/rGmLOMYq11BKuNg9hQPYDUym6U2jrh t9fDtf8YitamIZy1G11FFZiICvQBDfruIGYF+r4g+kmjoyaIYuYjJWaCbyP4 dtJJ6CsIfCWBr2KUqyL02/JCOFgyCEuwMQnVJD4Z1eS9mrxX14t4VzUG+RUr KeSVBL6CVk7gy1rkZ6Xc3sxtgNodQC13o3/Uj/lpH06f6IDpoBPOg1689K87 8cxPD+O1h5ljMM97els7ns3uxVP7+rGuYlCrtm9EZt0YDM5x2gSyXGKTyCb0 2QpkQT5ZwZ7LZ7l8fRlyXZSgPLcMdp5nSj3L8yjqyfoXNOr5y7kuzVLM01hT NYUNtDQjP7ycunKYupLjQ+6Gcph3m2FhOuefErrP6oSfXCR8SgifVoRfeu+9 m65zLlBsmThxBVkH/IvXWUFOvCO73hVfu0AuWeuh+L5+J2vtsOGXFfMLCwuq wkzU9S2PFsHyeB3GN9Xg2JNB7H1xAUfSrqC4+L+w33YVaaXTKGTZUB6ahzt6 AqZGRkhbDzJq+lm6DCz6gFfzgxz/mAJSfCBPLDRBgZ9MUl7wEaX1+boPKNP5 fnBbEXmfTiL604J+wzQKdNvTMKW7ghYiklTQ+CY/UD5Z+wu5wTG6Av9ykHsQ GKErcH68A1S9Prxe2YOtlk7+/jhsbVNwh/u0e6gdKcfCy9uwsG8v+ssq6QpB 5Qozuiss9IXQT2F21NEd6AoldIVSh1y7Kpf3h7SmE3SDrflh5QamQCMq/XQR 6n4l/aAyTObpB5UNfKQnlIvRF8qaFP/0hC+hhNti/r+mI4DG/gBCtRUoSt+N Z/4lBWtvLUDm3SEceGkOpVnvoeDAebyU1451R9qwhjEtw9SNDCpRhm0AGY4h zsgIMmtHmY9ozpClO0O27gw5YuIAEgFcMo50Ata44hDCuli+PHqmlU/ki18s PiapH3xOBQdxl1x+bI6Ykx/PP7PNxjrWNo5XSsexrXoUGRWDKKzogt/RBvdB Myo2FsJp9sIR7F7iFj4Kv3d84ubrrIDEUu7EdbwlLnHDEpcQ0xentU5hy5b8 OOYWpFD+JSY6ubm56hi6/CH6YpIeJ1KfHoLDcAWnwr/DRM87cA+8j77T7+PE Fe0Toz0n4WJB6W6ib7Qex57aAaTTN9Id/ZyJAS1GuIdJIYn0jiqBztHjRF5A 8w8KepLyimUqlckPTqsEZ09oWst3luOh7UXKH/bE/UF0is9kI7+3R+IKI41m E0nKM/6RwYd/JUS/CPGvBrkHQfpEYIiRin7h62NW0E1OOpBZE0V53xSa5y6i ceJ9nD/xPv7fiXfxfvM4/qvMgrOrUnHqyH6MVlfSN0L0jRDmaQv99I9oEBGW nepEIeZGJQwTpfSNMvrGlvx6HKBfVAcaUO4LqRsZy22My0NSlpbVC/+l9I1S +kWJGH2jmFZEa+wPwrBtD3Y+vguv/lsGdvzIhD2PDeHY5kuoPPr/weh7H6Hh 9zF07n04B08jraIJ6VVtSK+mXxjpF+ZeZDB/z7AP0jeG+R0XfUP8ItspIVQ8 Y5nyBYFajM81t0he4hYa+19CnpczRMvTTXuuuUuu7i65bvqEm5JEy1HGCXdR mlg+ZztHsJYp6Rssjfc1Hoet6wy8rQwN/j74Kl2E7TBMBcUwlziwxlCKXU9k oGVzGS72z+FT1zl/6Uv/cwfRlww1B/n4tQ4S9wr5FwsRp06dUhFque5UB3NP o676LMb7L2NidEGLMF/Excu/hTM8C1fjPI65RpBm6kK6tRfpdmZLjBaZdZIx DdEjxBtGNG9g2iIeIWmM8oiAlAOTWlkgYSLmDhImWBDvpj20vVhqAdbEH0UB o1EBn+2Rx0b6RyPjRKOkW2L8nHqVKnH7SW7pD/X0h/pR2ghywrpPBOkTAfoE JyHLS59w0SfqoihuiZ20+zW0dE6hpWcazqH3mY2/j99PX8X77bP4b6MTlzYa MLpxF3pS92i+Qb9YGAjh+EAYA+0hRBrD0hkRr+3IwU8e3Yh120rx3Bo+ZuSg hPGiJKDdQblE7qQcIv+MG0X0Dgd9a/363cjfVqBuh5py2yFk39eCQytPonz3 79Q9eCta3sfwqffRdT6WEUgP2KtwD05ij6MD6ZVtyKjqQEa17hOWfi1e2IeQ 6RCfoD/QpIbNEqNfiKArYXdLjMhxTsV8xDUdcwjNHz5K/qcV//KY7+NzX+xR 9xFPbF3jzxh6+NEeFoaeMfVKtmAg4uga5J/l8Nf1onzgDMoGzyC1/jQqu0/C 2TkPX+MQfI567KcMNj5yFCd2mnDOaI65Q+LqzZcSXostOuru8OfXJERL1861 rmk3qv0S+sWXEj1A/n1M/71A5xUMHL+i/rdcD1PRrlNw1s8jtbwdadXE3kLs bRzqmgEVCAxOYk+XyJLv7CH2XmLoI/YskvP8Ova03cFF7PP1NRy1nkPsH9xR rKEexz2OPQNBRFXGkik18GMaFPUNivqGMeTRchtIfQOpV+QPsyYfIvn9pL4X Bh+pd2vUF/nk/EztKNp0dycGG/xwertQ3zOD9rHLmCP9v539Pd7vPoH/ZmHw 7q58zG3LwGhmAfragmiIBFBtLsMPf34PfvjAo7jj/t/g3t+k0N7AT3+1As++ tprq4MdRWmNnGEdKqnE0fQ9SH8/Eym9lI/Wnddj39ASKd72DqrL/YjXxPmp7 LqNhfJoidEkf8i+gbeY43ENTMLVRacqjSK8g7dVyoi8pN3PorVR+m055DZW/ hpTXjivKs+uE8hjpU4rxXKeo/7Se3uiEL4vTnafRnazwvgH5/lgQmGRhMakA yfUy9OZwVj+jpE0x7qG8eMi3m3y7ONiuXhTWD8E/c5p2Cr7pk9jPgcxtWUBh dA4VpQsYLHoLVwPHccIfvPkaxkWE//qPMH5NmRA7ZTtx1fKbemiIab18dKxi phsla/6qpUBHOIypZaSatWQ6hzZdBVVSXTNIspn6M6JlucSTKeT07FzvuAwE xypG9oRWs8ZzG1KtEy1lw68yq4ToZIXyjeR4RrG8R5loOWkWiyiiGydwE/Ij 40uJpmXXc6DD1PEgBzpAHVdEt2OvtxMe5jGT8+e1kfhbTBHqAUI92BTAIIvQ Ycqst2sGjcOMZgvvo7/7Ilp8I6gpCcCSfgxlOwqxfc0ufPeeh/CDOx7E7bf/ Cg/e8yweuudXuP+uB/DQLx7C0y/vxLqNx3Dfj3fjibvLseH+BqS+PIGKwv8H Ruf7KG79bzSNzqBrsguT0wFMTPlxNQFmTbIn4CHQnmF+dTs1pJyyzVGXG7Fl mDjqZgJtHeboE2g7gXZQumsItBw3q41BrUl3tsDs1MtXgTmXVe1y0jpDmFnZ +vjo0x45qn45ip7nn9aopnTn+kg1J1BRzUdCraXSn2LgHqT1q8Iqy9Ojkkjr ILN4oXnmJIk+Dt/UPPIKO7Bt0yUEnVewMHQZp6am8enrnDcVwznx8gHtkgLC F5Ps60H8dT2Vjy29X1vXStKS8KuJPvFZtf0kqiN9SC1uo3x0UbXJNmUj3SrB UUsYDbVk28msjdlbtmtcRa8kRfcndL411dbWZBbZ3q2z/ZjGtig185WIrOEL 3/JsT5M8CteTQjUngYB/SqGdq2xMs8ZRhXdOg+DNWBmilgT7YPB3I9PTDl90 kvnjOBEf1ePaX+LKW5fQ1xhAf3MAAyxfBynK7pAfBxxubLV1Yic9dn94Hp76 OUQYf5vL63HHrXfjzq/9B37+je/h19/7GR779vfw2P/+Dzx2291YeV8dNj7f hfVbJ7Bx9zxSiueRxTQ7nSV1oMWXhIlpOQ1lYiqAhRNd6sbMN+ji4ZJGeTrW XmLtHZ5Fekk70SbWlcS6ekBhnWkh1lZibSPWdmLtINYOZiM1Gto5dVqZKYeJ NaxnmJ3MKKrzPBxcAXt5HGsBWllA4R2YpoflCtqyQBzQsfZr62byTxYMlFr7 KSC+Aao3zdtHI9+0/Y2DS/j2smq9RHanFn6PvvErmDl35bPXWbH8q+usxeto xxKVxLX4r+o5yIctwMtHXLOso559Rj8GpVq49g1jt7ETqSUkmgOcbmRBah5i LjKi6QYDoaR7WXXjiuhsvU5Riu1VhzE4Rh/VqV5KdKZO9G4979CQXqah3CxI TwvOSaLVGs83I6+Jn9sUY5oeJNZIbyLTWWQ6KzyoznjO9HfB2jIGXxt5lmPm raOU7HPqS2rK8xfYZ3ehsMaNA7VuHKxz4xBta3kn0vab8Nq6Qtz5nXvx6Pfu wTO3/QxPfOdOPPXvP8OLt92DV350L7auLUSBmdzXdWJ3TSOO8HMO2/kZNprV hYNmF7wRL85fnL5RH065k4JH79LsVfzO0OZgpsullzAYlnN4K8lvNdk1cWgt o7QxMjxOhscVw6wwSfBHNWlWDAu/M4rf3EV+Fb5JCt+PcwI0ePMCMwpdmYY8 poS5nJjcwKSqlBS0ahE4JzimrYF+nKU9xzMwqJf3WmKX5SfBPo7t0Cy80ydo x9F+4rS2Yn7NSVN/mYCrCOp1cE0U0b+/BtdEVPVlFP33voi2yel4G9c9rEJS y/qI5wDSWAqnW0aU72fQ7w3i9zV6jib5GUvpXI9kWFpcyhMnlkQioC8i6mhu d/Tgmd12habCMkmoZD4cYTWf3yQ1SH4TfV+ZDFtuk6TGuWRUiMwWY0KRzdRY EckEorRpBL7OGfg6JuFrJ5Fto2jnKC7TI/b42ctqOMztmnbsdbiwt8aF/aSz sE4n1OnGc6+uwb/8w7dw6z//AHfe+hP86scP4NmfPoDn73wAz93xEzz74x/g yR98C4a9e3GEv3OYv3/Y4U7CIeK+HActLhTVSN/vEdSxwLh4+Xe6uv4Z2qfn FKHeGKFDJHRojrbAUebolpDQ8kGkV3F0ZUHORDrN48i0jitKs+wTiSqbpBD9 jEqCcxIB1Q8UxZOGBEDzgjRqRC4nJAanLPyqpbac0DgHOTuolXvyLyvIAY5X 2wOLiNL9S7rGFaLtJ89qkf+atcDYGnji8Z8/gOffJOB5vWXvxYOlt2jd4RSe E6pp4R6L5LyDRHSYiHLwzGNElINGtzbIgKlsS7KsKa0wllUfhei0lkYF1IFJ Ou5HkB8WPHvx9B4HwZwlkrQmMaIbYWa2m7J5C7f89eYE4/9z+ZhLZHOU8U8S 1+xGzhtRzVKoDmBfw5DW76lrlrhO0/gVOuQ83CE99fkbRFlsOIfmlck/5/A8 yiOdOOxvwN5aF/bVEVuid0AENa8A3/zbf8e3/+m7+NG/fw8//bd78eS9D+H5 u+7AE7d/D0/efise+/6/4bCO6iEif5DoHyStxc4G2Lhfrmb+rQitcV4Vxa3d p3W3+WvVQjemBN5Biv0QswIRJ+6bd4ihdegkh5/DXkJuyzn0VRz6anJr5PCb J6iwEzDYaPZJskur4TTUTnE6tCpOq+Bm1BFOBa3A65MMwS+xKpFZiiqFgCry aW4n44zmhDjKYQpCSGwsgVttpShb2A1QXgMatwZfOzxTC3E+E0+Cir2WeEhH ZzaW9yaeTP2lD5HUhJVpXXa/pLXk6h2Ep2+UzC52NdzDMJRaxgGsHGX0H2P0 F4fnwMmgyYAlDpYsenoWvTtPz5ny5awRjtD6yla8dMAj56Aoac0XY8wXNZ1h tZnPqJ+nbFpZrjJ+Li27SYx/j+BmRTRoDcxgy6JT8Pfp7Z+65wguNbaLGtvJ 79ExhMnjZxh6fwvn4KwCNknhSikY1uB1D8trsv0iKpo6cSRAiOs0iO/88f34 t699Gz/8l1vxk+/eiyfuexiP//h2PPr97+DRH/w7nn3kPhwk8Adq5AaqDTCG WBy2z6vzfD1RWcKfV/C6CK8sYrqYIUcJ78VLeubFlG7yzDmlFd4YwIMc90Gt yal3kBF28BTtDOdhnGkCw1s5Aa6cIMScA+MkIaZZpgjxFAWY5pjSzt/lvMi5 vDnxZQiZl1nCOyvxyj8rNUdgltTOKoJFcVVaQMsJ8TGkPeaEKRZhQZiCLhx/ jEUD9SI0opsUEQNanRzsZajrQqavDb2zJ/7yGoCFuJgQJ64vXwNw4jLaF/+E mowQf1UXpsnTelu5Po5lv961WG97uIepVGrZKDnmONL5M5TzT6pxM3DMsmqn qb8zzGL1SKUcfVaNlIxTvoxTaBbrq6Jk2Iu8Br7WSKP+5tHym2YVxcsUwZ9D bgtFo1mM409JVvxG+HcoulkUXUP9KOzStWTgNPz95LdPb1/Wo/eB7GYg7hxC +/icxi5TRTJLcEfmWXDG0PXoJnrnEc0bnIetgwXeURO++Xf/hu9+41v4z29+ B3d951bc973v4P7bvoWXn3oS1fWd8HbN01UEfzmd/5+0U6KvwdfdMq+ORsXw ddGdBV8Z8PbJmUV0E5pEewepu4MsbQalP9oZ2jkmy5PUYMpHOdGtnCK+NBPN zOG3TnMapokvrYZDVctpqJNT0WdUdpsTq850fHM4JbmBWVIcmBHFFQHJCRFx Wo46nivbm0jrpGDLuEarp2SEyW14NIHbQcWtKhjIrbW1Hx2jU3+VwG3sNKg/ /59x+4U/ofT6Jz1JdnX3wiMd5voYaftjvRAX9F6Ip1Dsn0Nq+TjBnSC4E5rD WzlqdHaDjFadBm2OilKzcWhzAxqweeFZvEloX9SgZeQitTcqZvOadGvm28Va OLgtog9C7i3I5jab/GY1Cbe0RvpL/RjsvScRGJIOJWfgH9AbmvUyaeglu71M GnomYGnpRYGnmcwSmpE5ha2Wxrn5TFsZj8OrA+wTGxQgfYw8H+Vnz2Pd1mz8 6ze+jdu+/R089ZunsD0tmz7C96meqeq9XfPcdHIjABPjNh3hBHzdjXNwC77M oQRfFeni6OptpRMapGrYnlXo+gYuEN9p4kt0y6d0fKeJ7zQnY4b40uw0xwzx pen4xtQkxz2rJiaH+Obok5NDN8oR1Q3OSF47I2kyE7vs8LRm9RQLMpxFgjV6 NYINYQl6IzCExIZoAyS3F9a2EdWV09vZF8MxceHgCwlEx6qza+hNXAm75UPS Bn05V33kN+P09pFe5oe9k1p/xP6E/oj9Im1niMJJjeBqVrri86Q3k76eSXoN HKwsGSgOUrZHGyDl35Tb3NAccsNzWFfVhhcO+JDbMEd350wuZ6XFHzVplqPT m6Se/RmySbBGLj+ayivkGhqnUMjXQyMXERw5j6D0JiG9S9S3j9kDv4I1Kov8 rGMdQbI6lyzAxu4t6hnRaVVZA3lNUsDeqFAVaOXRzzF4cP0k9hO8QJ+8kcKe LNQmCbKKWHxdkNWvQlmUXGHW0yzMCq+zMDoHVQ8Wb//SrExrlnqStiix0thP XRLXf5G8ziC9lMNdTk4rZ8grja9lWmaZuc2S11mySqul1XG8nDTX7OI0eBen IiegxpYT8hGFajZB1WCdicOaRTPUM/8VUj/OpzFWRxWvmVTb/ZERWDsmOBZa b05f9wAuvfNunMDEU5c+/z8D9tN/Qm32v2Mr4++8A3fXgILW28ugRc3S2iTS 81WbRCFC2iSeU92YSkInkGqcQhpzrHRCm0EvzyS0BkKbxRHL4mhlc6SyKdPZ wTnx5jl8GWsrhVk/mZ1HDmNnLi0nIqZDS9nNFiOyWc2xRwGWHx2ZVsA6uAuh sUsIjQq0FxAc1hvq6E3N/PQzYc3fz9+pbYKhrpG7lgit4HoTvDq0vmFNYv26 zPoHNV4DOrMB2sPbZnG4ZUG4TUagVzJlyUoCqrGqQpna+w2lvD49fYhz3L6o u56WOXj4NYtqu1Bgi3B0x7SMrP86/HK0ff3apfW+vot8vES7jBLfCaSVctQr yDL5TTeRYZ3fTPJrIL8Gxe8cJYSj7+Kjh49ivjk1I8JvNvnNDgrD2SGlDwyI wm5WvWaG+ukYvzSJcBMK4Myw2CjhHcG+yBi1YT6hZeeYatk5depUbLEgcW0h xm/iSu3XlvKbuFJ7059Qp31LF9yJE6fIL6NXDyNXj87vNU0S/XqbT62b2CXY 2s6iwDWPNEaqdEaqdEapTHp9Jvk1kF8DvT2Lo5UVoAU5ckR4TWU7njvg56CR 4GXIJr/ZkbjR0ZsIWRYJ/ix55UewjCvvOYPw+FsIj12+DrexhmbkVjXjm8f+ YDddqJmuFOHuhGHuGtYkNkmQTRJeRWMXCN2gbAaOJ6tGfsn4VcZxFLUJscc5 rdxy0yc/7VvgvgYkFemZj5meIQiiX9WSg+icArTY1Y2MihD22lsJqN4lvZ9D 2a9JgZdS4BU4+yisfRTWBDgDA28xXzyPvY4FpFVxSI2zSCecGYQzg3Bm1szR F+fokzTCmaXDmeWlEU4Z7mx9yAXOLLEQs7OssGzqmRYIlzfFqcxkGqAZqQyN wta1kNCLc1brxdkvvTiHpRfnlxMIjJ3c87k/TmXiitfHrim+rl2U1YuvW2ML CAJmJ8HsFjCn433kfAl9EFW/5n4BU+8DM0RSht+CvfM8SiJnkMaRS6dLZzAc ZTIUZXLEDBwtA0fKoOCcx+qKdjxb6OcYzSOLbAqZHDFu/5xbvi+iG9PcTDEW ahU9Z1E/8Q7CYuNvK0pDQunoJZ1QSQnO0vR2ZSy8y5pZIbijtBYYXE10ljCK m+W2G6KqyzVVHSEtw/yONP+wsOgfEj79g1LYaZaktjcgyO2u/BB+nXcSZW2z SsGDAyeT1A9uRFDNZYKpjOQ4YVYfy4H8O4bMhaWKKxdTEeYSTzcyK8PIrGiE pZlpIDMZL11BxTRqgldvnCog++MgX6a9xd14m1/3bQQH36FOXEIqYU4zz1Ir OBX2OcY7DeQMgpxJkA3UEYOH5qVPGXyS+2TFZ4eP5NhAmSXGjPwiugZK7M3I lAM+BDqTOGeGxSaREZxAaRsxHjizpFFnQDXqJM4DEwwMxPnMmS8nJASxtYQY zokLuH8A5xv/hJrstjjLp+HuGIJH1pC7E1iWhnLSk6tHWD4XZzkYY3mEXI1q fY1CY+/C0XMJpa3nkEaxTXPPIZ3en8Exy/TTAvNYcTSCFcciHCkOKHnOrF/g Xmc2CF8ZDXMojJ4iu+dRw8+vn7rC0ayffJfpjuJ4IoFjaf0yqqe2VNvg8GLb vSx3O5WnjdYKg1vnuKVbcbzAmdEYPk6GxVjIDYmd1JR6UHsMsCQK0mKPqbs7 8NT+06hsn1xGck4lqVf/VXjWZrH/pA7xCb04JMw9x3WAF5YAvM/OfaoivFWM ApXNDGQca77f23tysX+qXCjfq4Pbd+kaeN9R8AaH3uX3fhel9eew182KwzpH PeGY18wjo5ZWx/ElvBluPhLgTC+NcyHakhnQCM4kwUmUV4lqmaQ3k2mCWIYy Jn8kNz00RWpP6sH1XEKrzpNLW3UOMtcdGBF646fiJ553c8uH46utQCxfspYr V1bJKfnJf0Jx9kM9CYlj3EmMu6b1vojHtb6Iems5v97UKI7xcALGYxrG4XGx K5TQ9xCefI9f/7yccNtxgftY1nkBT+7x4/XSdqQR6X3Np7mP5T0XuK2ltNdP X6W9J+hOvUefFYwF4rDYBzC+tATjWAO+wrCcH0KMva20Fj5nsuuuRwkxFvkl vkmK3WRuTyp6/aQ/SdqnJqnJ+QgROU07E7fUPUN4/ugZGNtGERo8k6xeXKbe FlJvpQ2cjoEdYDqgoFYrzQRaNUc9HofZ10HHrvQR4npCTJCrWlDiH+JIJ4w2 g5CvRwe5dxHkgA6yQBwQiBXIVxgYr3Ak3mNwvIzSpguEeR6phDmNMKc7aQQ5 gyBnEGQRlQy/GPeDIGcExajgtAzinB4SKU5n9fYp7G1a4AyeWuyXHO/XSZCH CLI4P8NYgGVCYIggD02qlocdU1Pxi6YSz7j5s+sclFgC8sfV2pjc/DB2+dTE xMSHFmo/isF7/Azc7YS3Y5wAT2t9EbuOq76Ifwze4BJ4rxCyRXjrJ8WJ6qeu MiZvL/LisLdfh/S3aKDxeRKfXJU36ewKuUmK3L/Q2X3nQ9i9oLGr9y2z9bDS 8HYw4aP8+siuj+x6I4pdnVvaCQWtj8D6lbH+HDydpJYnPqaoFIUJ6haSR05U asEkVpSdg7mlD6Ghc8ncnBV8uQ0NnY0lM0nq97+oomtQIqxgrO5AcFK/s0sM 4QR8K4hvBTW5svU6+DIT7tHw9fUtZsKJ+CYpeJPj+IZGZLxDo1fl6pSWC4yH F5Bax6zZtYBUIpxGhNOIcBoRTqelEeE0lm1pLNv2Rk6gtOMs7L0X4506g0Ox VrOxTp1Ed/jsNd06ie6wju4QC/3+3viVrIkLY7GzbBKXdZeg+xGF7saNGxEM Bpdc2SEfs3nz5jvitFJq24Y1WjumtS6I0iAnoQvi9WjV+sd9kNbwB2i9EduP +UjrgI7lVQVp7DFJPfuy9trUe5rM/ilSO0pc9RZl5W3jLJzbFa7Z/iifC7KU Wk99HFU5nuoTRJWd0RbRJAJKs/XBcwLcOclmh5iEUFNCuqXun8frxvOwtY8x ZoQ4ZX/P7TlBV5n2fh1z1bddv9uA3NxFwUov6T6usl8FaqWus5UEtUK0dkRr mNr9h0BdzHQDerKg6ex714B6A4fnKu236jGsnqvHJPUkmU/fU22HQqMiDKHR K9JDa+Rd2mJLznhL5HhLTnI6wq82cjqhLee81tBwOMZpX6xhQOKZNJ/RX5Mq TNi7DqayFPbtb38bdXV18csr5Cf6UYmf6p/jjhLRdh3RjrklLQ5l3K5FNKAQ 1QV1NJ4NJClGk3VCryo+k+KUenVKf5uoqQmUfikuqn+Q0nGdUr2tYVD1HztD KjtIZztNp9SvUyqiOiSEnlKE+kinnzj5JUdTy73nVGt1QfS8TDS1I0iTR87h sCQzqYdOY639Ipz86rJUHB6RNCY0ciFZveErilyN63OKdPlQxavcHUPdiIh/ XGe1xN9LQW2AoUoS3Gay2qKJqox3F3ewW88HyKlPcfrBimwJpyNxToW5q8kK xmWK0+syevUPMPr2IqOq6eYlveEmGR09qzcrJKOjTANGyegotXSEjA4zDZiZ jrXDSlzyuvZc3OtUY7W1tSoLED5jV5t+sG3W5+FqHaaWEtJ2HVLVw1AbNNXD sHfxbgqBD4f0AzoqpGqUJitKD+mRP1nfxvQ0nq5qMf/zH4pnMIbnOKkYP4fy 9gniqOMZ0BDNIqJZvmZNRCmeXjkoStH06WhKoD8vTMpV6sFBcbuLxEu3YeHw Ejm8hLTiC9jovAR3wmvymKSefVnn9aJ6DA1fVMDGGBfiFa46qvF7ZhHVUn8f 8WxUmBqYtkrqKpiW+EY1TLuIaXcippd0TN+K117ENB7245ReVdhdXbaER01O FaNa88HlClDBUzMN0CSF6E1qWjU4L+ndNHVAKQSLjQhZcElHzdFJ1Yhw6tzZ v0+AMbYCFhPRxBPDv5p4vtcNCkZJUaPR6AfFk1w2D8EtJ0dHp/RGWNf01uzV VgQUl4MJXI4s5TI0ocd4nUt51MqjZKzdY0Zl05RiMFnfNoha6qa97yaElyjn YjoaUmhe0vtoXtDRPIsDkQEi2ZGsuPyETmUL9ofb1RkmcSL140jaPVQuakAO XkqSYCAieZmbkcsUnTC3aeWXsc33FvOCi8sRHr2soudl9SMNTNl+QsEYFCB1 EOP3ZlGaqd1isDQQg7A5SVF4E//bin323nhzNm/XOY5yIoOLuWcgXjpdiXEY i+gSzxWHy6/hMKRz+J4mjstU5zURSL2Ta5Kau08St8sJPTDP6z0wY/gd1/Ab m9Gar42MCH7xppeJy1UxgUxcfdX5+7Je78s94nfs2KFE0mAwqKD+U11dowOz GnythC86C2/bwpJeglqb7fPqNh0KvoQGxbFant+U+H2EoGjiWD8pEOogESsd vhuENA20L6mfCWzhBA0MiQZOvLUI28RF1ewy1iRJ6V9QrEOgU8xliRaSuNKW IXXjPP/AIm1+nTbZ7+DgZbWUJmm+EPdWkqrolqsvURWcxv2vtiE1/DbsPrnn dnj0bU7p6Fv4O77hLW3lQvF3WRPPoYtKAANx7hbjtIifLDoJbgbCZqiKKugy +ejtIHSdOnTd5xeh67sedFp8DibkkcHRq0vET5QuljRq/7slrntBpXl6xz9V Dkgou5zQuPKC3vGP4I0zMI+zPh8neON647SxCb1x2tl41+DEc1du/nDwvpIQ mdUJGR6PDtxnMTF/noo3TugIXOus1ryyPQbc6WuAi/V11xRPTcWYqJGYgEds khU/y0nUu3gp7ShqOQeKvOkrqsS5kqx+dNNiuBVd07VNkAsJchOc2AkNOdWa cvIcyjrHBbEkxRsVLtgZJ05bAv6ooi3xX2BgkbQQSQsxGRLQ3hbvoP9LDApz Pp5dYcJDrw7D0PgOauxR1NZ0UOroSiSP34/0KeP31YTx44q6oE6dpnaxkHtK rRxlVjZqxFXL7eSEuc+ocGtpnCFxZ5YS16sRJ+HW/wHidOpG9MxwVAnZex9R dH1OtfRNjKqKsoS+koqyMZ0y1VdSp0zv8xmYIGUTpEyanI1Px5qcxW4QkFhF x66cTVzJ1AHTiu5lStlikfW9997TMr1PwhUhX83TGl9y+kP7cS3Ti5VxCeWI MBYcvqRSg8tKrhcZC4+/naTCHydn8m0FTT3txbQjpOwkI3v91Dsi/dzKM/lZ knpnspbPKbCU3hCvWxCc5BxOClznFWDlBCxL8jkhK9SpHrOoa1nUOYO3VRHl i+lZfyx6XlKva5RpWvZ2kgLrY0SMdHMywswInlvRjq07T6PU+TZq66bhahpX r9dLR3k+SVK8fVHn7G1d5rQQK2FVgTa0KG+x3G5fTacmawTNUN0WlzeV1ynQ zmqgqZiaCNpbKil9R45ZxUHTLDSigJM4f0Xi6RUJoO8Kd2ojY7zIl3hUcEyF 0IQWkH4VI87pLSBPqxaQgYkFvs4MbiLOWfw2QImnhcS63CSuNOqg/V0CaLE6 g6DFygxhL5b0/ad+klO0/zjcTLXczbPaOQttx1kXn4Anns6d1dO5C/oa6UV1 j42gDPzoZW0ZRQ53j2uRUEhKVlQtx+MpeaSMZE1pVj8loyHPktVz9fpk7P3J cQKFP44k+fscCbyoUTjFEZs6i7KucUVddrArTmIWHw2ksLRFu2pE3eCzP8Fp 4hRqC2dxBj+ixCAcM4pFfvlZbN17EsecZ1EZXkhSS1HcW1mQEhuTpb04j5/U fC8h5AaXhNtzS4SvNDCo2EtWJN6kmCzxjSyG2TiHi7mdf2CxFA4Mib0juZ1s uP/LtTpWsmpd2AQ/CbfvLJIYcxhFIrc3Kx61bro6kXoYESr9qkcsqZxkYjd5 gv+fj7fI0xuJxW4PmFj4xnqLJa4h6lD+g57XXVtXyL//o5/5MTF7Aa5GUtg0 o85W9ER1Cju1MOvVb5/ikzxJ4ola8rwoo3BRvu/oJe1ci3Gxy6KCl3WewpNv kcNcxdhbMpPchqe015ep7XL1bmEurIdVIS9Jkfd5BKdi7GkN1gxSM0hGJ+yR wSyxgMafHGVW/IlgMykIXMsf2ZMFh9DwO3p9J1N2I+G7ouCLWXX72zjafFFR pxF4yyKBcdOEM6yWTN+JBeC4KIaGE3O+2FriKdhaJ1WkNVRJH3ENxEyCuM/R rYOoRV9fQvRdLDTk/nyyoCfGlFO+zEe05FpSttgq7uiSxyT1ZNmSH6mXJXZ9 WoXfYFwaF2EMxLraxfo1qr5fxxM62+l9v65ejd9mNfE8j098OJH/eE08lioj JSVFO+byKTjrpwgjC41mrf+Qp40gdpxaXHnpO6vfQ/hcHMbg8AXFYpJaT75R HYsOjV9URIYFqQnt8fGUbEaU8ORl4fFSknqNaQq/c2hy0YJTFxV4QR28wDT/ 2vQZgtamwyfgdSv45FqDffWsEBnx4vBJ+O2/GOvjpqqgobcT2HtXFz61fDnG UBYef48zWc9tWDft+ZUE8JToSWoqzIXHdF2J1Roq49OPoQ2eW3I6w36ylVnV Jri1y1kQ1VG1FOhpP8VxPcNQo2mftydWYuhnGA2ICXKXFXLqmIeUQkG1UfVQ jDmVB6mSQSUZo28p6Yu9dlnNi0hCcEyjTO6ukaRY+wRJS6At3mXu1FLipmbh U8RNxO5KnVjWJjYNja376bDFcsXEdT9N9m6m7F3SOl1F5CTt46oTnJDmEdLi 5exZ7VQ2dYRdX8VVh9cuyJe68P93du7BcV1nAT/c3ZX8iFsnNNRN26HPFAbS KYPbkMaJC0yBdGg7UEJLYKDDH+HREugwmQJJoWVabDMdJo6dkkJKadpOmjqx vdq3Vooj23rYlhM/JO1KWj8lrV4rx1HtNP6P73nvt1dnVwqeuburtXTvOd/5 ne98r3sPGh+NgGBDjddwf/zlf6d3hKuBBl4DVDAS1itHj3ln4hZdD9EmxNXw iKgr1epAHqs9VndAHlC3q3TMPTd0jjYXjNTeIpLH7oUYfYieqjyLXi9aTuAP Mn0dnJuE4wU56HP1GmvAtzdpPNJ6VuONsBnYLctu2ZQjPD+AGm8QkBsiAHc+ M0jhvfzgNAi7DmuM+BuE3wLhF1D9cIKDWKeXyCcP0LlDnXclScY3x3nKcqB+ WwIfi9JJFA1tyMO+ZW0lK3qBHmUYEGbrGLQagFbTRxpelGe31dxko/FBT73E xtagqa1ovQx9ToPWTeBP+rjOTM85lz0E4B1h8HIgjxzCJxs9cb3UHMcoMCqG mXHaUW2ecruYNOvBxFkF3sE77wHf6cCJ8+7Bf30C0FqE4VvE94A+JOxX5GIg uBOYgkDkyiCVMkkGoAPxAHnrI/Zgyd1l2NtVOu729r5MdUis4pJg6y+E7MGA 8dcpD3q0osIa20mRiF6j8HoNdgF9SkTfhSvxO1ozOBoxiK5IOawkmKFKAtaC x4jDkMGB6VANsisyz1m7l7jYsnhqMSAIkxJdCI9A7J+RRicuPLzuJChUUiYn dpH0Gwq4m1ZR1m0heiLbEL8a6LnaJVdE/MZrH/JUOGw0i6xGUD5gTTzfkzQ7 Ccfdu3erL0Lfatn6PRplqV1xmd4L4AlfdtmjiOIMoIhTsy441nnfc7SkT3NG iwo1Ruag83OUUSyPzVF2DPXhPPrhJ2qA4l7AcgEtxOoCQkcv+L9lkEfPBEKH MsFX+A6o65YD5HRuFlbm4rk6PaQCzb5d6OySqXfc7Swec/sG8SafGaqDo7Rh E4NXRP9dbTL52EYnvSer7np4vQ6gXQfQmt8jIBW+VMzsY/g46PK2yA+moiGU Tl1qAS675wfH3c6nYd3FDep+qPDBajM4EypBXofneEMW2ZSFXb8F2feYmIIr JMUN5JA2vKNaxJdRzB9iDo2KQChOvEDRd2RxPsDdJ5jADTTHmcI4iVOuKCQe uzz9K55Qy4Y3RmJSHBBdgVExKoH3amAZVtvMoUsue3jKZftnXHawznKhlRgd ECQQb4rAoG2db/rCzD/VWzCFCWIw4fYfn3QPfu1x6P8c0TiHpQDVOWCQD/o8 Du94TNDfTc7BNK3NInX1gKB7q2A3SMvsLsFuTw8YesOYWQXshn3YLZGF7rP2 ekIv4xp6PlV+tdjhUjtOdqCoQcrPrHA2rrKB9ZYo+DLCFT++xP7e/aD1ngbg fjDgdvzwKJg5ML1B6+WGsCoPoYMDoTsJZKC900HWDt0KcZoPXNDBzk6QbbmO SgjKVO6yEH0mgwizYggZzf8ojEezmeSs1l0RmIOrAXWdJOySzHJ+FA3zV5g4 737VU4ag23LYON8HTIo3yff36aeOmK+Bx/z8/L3iazSWfgoL8UVgD7g7CtwN 1Fk0ovnyJyP2isJeCQ0bWFhwCcASqVEq2RubdU/3vuS+9M3v4Gf4ojKLZFVn gTM+0KWdxfkJEihPwjlqfODsS0Tk3UqiwNuXdwJ5qOj2InW01xWI5sRK8tBY V9+QfdxmY09XXTLlyNKjJXeF1mP8knH8AuLvtiadR3Y9xltG5e6KMGc/Kzl7 3mTwuaGK2/E9QO/7/W7HDwS/fsBvsB6tMGJt845qiOHLiiHnZ/joZhsIMcSX Eaw0I+LH5KjAn2J6Av6U9siY5W1LyJsgKRNySRJy0jz26KKbaCxt9QRV1rVG 7X0xPccB/pWexr0aYJl8BVbYyy7TN+0yHs4Kfs6wlL9OnKEbCVP7ez0nAbGn ALE61Ufge7mCLJarSFEZg5ngrZcniM9J/GPGq6bTDH/C1y2uAK8FYG1HARam 4hC8D7l9R6sha5Rk0RoRsYhKTYurxFMoV7lCy5GSYxsuYZi65pizn29Wb9VX DWBXxbbX8rBFsnabk55Rzv1/y6cAsn73+I+HeQE5Os0CFshyApkVdEAGTTIy aejA1fEMgXVWDG62cgIiLcV4QwtKtO8VvNO0xvBIiiAr4iFTGt9Tobyn6SlF x6Zn5R6q5rIAJc3GlIU0qiIge1qXXRvI09Ay1rHi9/jTXRJa7j8+5zIvAG+H Z4C5Oq2p2SEz50QUBWGOE6KRfsPqOiTviQN97tH//BHxFxB1IJ9KndKAxNs4 UkYy6MaJxpMtJI5oSxBsWwi37x4fczvyA+7HeJMI7Q6qm6DNcJ5dS5Ja4Tay ErceRo4VXCpUbr3GpGMS32Wo+wlloqkYwkeeZD3L4ZaT0NXKdHO6fWzC7Xl+ yH3nwFmXfRHIOzwdLSMrVByJPCCZp8KZbiWfINl3svTRegSJl0DeJbo0vFdx BErjOAIIXXGirtiRbkuJbkMpF8CWK0xeco3rr33EEzHRXTJteG4FcRulJMWW BKAPISUpd4ty6wfvPXMIIDsMgPUzaKFyOxEtogRaBFtAvd1InCFjj3yLGes2 PUbGSswYIYbWK/4h6TScYUXRaUkC7G0uD13PQ9f/Z2jEPdt3GozscTCyz9F9 obhnXLjT3rDUZ76kkC01QVaOQUaZTMmfk+PQSTi9V9xXVmKEkwSECacK17mW NYlOtTArk+glm0QfHXVPPXc6XC2yMHuzR41QDVJNK4cotTqMl64gRZnNJeYJ 5DaKeClSiBMexfF6iFMQwtRBEk0QTHnQXUuv/dT9miez39GaJJ83sFEMMl0l UZP19fXpDtq1Wi381a2qyGCcuoSvDPCVGWBFhnzlRAz5lzzKDKvcoOt7Ba6S mU4B9TxFcPF2ROFUErJYZeXlSNDrbSAJcI0np9x4vQHGzKjL9wNfAzW6A64w aHdynJX7LBb4hqHTbKNpQI75MjZaZVmUGLGGiP0kibqKPM8E4bWFi7d8gNl9 GZvympw/L2n+nKo0RunpE5lufJDVFEAGkj1CMzcgypLxRTMgyDZFBoqRcVFk XAR1hfItjrGMiyDjIqkrpCtBbKFsCyTfAuoqi9c04PW6+6jH2bRbq6sPIHh9 OGbby344SQ91HxaDrv/kout6se66jsRQOkYoBaSrNhFFdOMt9LAgPdwDFP0T LINF7aX0UGdQgH2k6UP9E/sqbw/4NofH5LRrQHexSdnDo8ARMNRfo1uCqaIK C1xkT9uIIbsYUg4oIEXVSbkfquwbk1SUpqQqyxyxSJF1lYjsqwrVmQA7twM5 r1D6hwgKq6eUIMlBhpnxSQzA0zZd2HZynsqgpg5NW4po9csa2yucoydFXRnp Ij8Fw5BINyCAkiRgFC7iU0DxhvyQNPOCEA4cT1KYnksi2rs9yfukoUlrMIWm j7RP3tvb4O6k1y2uemHZpfuAJtDPXdDpDHQ6A53OQodz0OHcSVZMeYNSATr6 OKD0j99ilApmshRW6W2NJifpphz8z+DUIizvr4sR+GY3cOqCyx0Blo7aYpYp NqyQJbHjlSUuEb1C+SnK6mCgziQReyh5iPGG3srVTrpnOamVLgoScRQQQpvA GrQ1UQvhZqe6dSQns7nEAkHCXbH0+f6LABMqejIkQKaZ2AzNGp2UE4Wfj01T lG1hBKdiYRSVO8q2UGG50kHTFCQL/ciLMhLBpgSgHACkc/Mej0+oANnYFy9z sji2LOBls/wWt/jK6+4oSD4NnUsDMF3QsQx0LCvAZKFjOehYDjqVh07lEZj9 fe4fAJiCAJOvIBzk8eXHiRU6EtSrZKRo+AC1ThwNAC/N4eHNbvzCgsv2jbvc YWBGa1Ao+z9NZgYFJEUH6VbnYZUkluNitV0yqrfjQ6hARhJMi1ATUJFKMixX kQUsoEr2zVLHqbWcjTA12B1ur2YT0c0wLV2/po8x7YfGkpY/7Jmbx838FIZw fuaNuPPAEIo6L+JGhvLCUB69nTxOzjwaSiTefI0/0byM+NnuSYsnWvNzl8RJ dTnDOxJwG0N8v1umeOXSsjsI4BwUcLqgJ5lhhiaL0JxicHLQk68/nXPf+H7O 5bAnY0g+YIOMcC9cjmZDbkLVSVYOxSUL/zMw1SAV0yGmfvZQ1eX6aoALoKKF IkPTkp/HGM6ciV0LLmcwW3IWkyhlqVyiyOUYFnOPXUmRBZOUB3aER4IqSm6W OnLOlioSYVncZKuMMaNRBDQKlaq0frOrnn+V9HUadEsXSLELmRiS6XeCp2A4 /YwkhYmAgEiRMPOCRE6ESYIMUI5NGnqanzj86x4PTEmw0SUhQVcurYhFAu5R Ai4v0+gfhDanoc1doDIy0OYMtDcL7c1Ce//lqf1u94EXaeSzeECDc2T0Zqtg nWTH4SVD456Bpg9cxjG+IUGIjW78fAPGGca4j2sw8lSDMd2cGZdxDihDkWgq T6OsGJUGYYq2sYGKMTooQ44DiTXadPAgBjSKG6JxjGfFYCyLMpaTi41OEUOo RWF6p2F6p4dEk+qEQLHAMGZFLDiMWRjGHC0POfKDciKWnIxjFicFiCVLsYxo EjReu0FX/U1PQljNAxu5kVHc5kkIczxwg6tMLbsjIJaD0NyD0NQ0jGAXNLUL mvqV/97v/qt0wmWQuMwoKvQMtDRTkaMKiHWR7q8uLtPI8Tl5ecn0TrrcoVhN A6Y4xSnhGTonVTQS5Ze70qh4ZISqaQItcGhQop2f7IDvgQ4nJdoXOfWMYZIq paDhTzDLV56YT1C94HqTaNKBnaKBLcrAFsYnpfEb3eLVG+4IIESAw2imodFd wwbylxl03BwroPFMuuxIBHkW18UsyQYHE+nO0GrPtI83lsMF8OOyWqtfcf78 eYptiBsrRuE9bbKoaBHid9vEt6jMwJgC4AegsQehoY9+e797snDCpaGxaQzj pkfQOU9DWw/iMcYHDuLi9RtvErDHzy25rOw3RaUB/aY0gAzp2bAwNKxNkfB4 QNUpCSoToCdwjFKCH17XR+UCcujnHrmrEeMSOHiaJeymnKzNEnLYpYMGkbM0 PIiYqZlsLHENziYew9EGjR/inR5mvNMvR4h3ncGHN8M7SCRDYUUkPEF8I9qM N7+ietKBu0+WSJxp27ZtoxSixh1kxLZ7so16f9/HjMotDJ5xY7PL8FNlDl8X r90I2bhF1otMueayL1ykvDgnzmYoBtOUmaSnAMzSMwbDlAWVv6AQz845zlWU oyTl6BxlKgNKUKYoHVmWRBmmI9FoDihJlDDzRqP2qRV7khybqsvdFetdZXqZ MDwADVMMD4LM0yBzwdAxh53EYXosOvovNpRF90mxdZ955hn38MMP6yQREX8s 5ndj/R6I10pXFzR+6OPNHHAoX4B15XKU4wW1nZd4dMHEozGSxQ/Aq1NYnnK9 Z2aJ7tmAw/EoznVcd6C1B1R/MEdhecy6gQMbUBIo0RSVJoiTVpSygQBtf3E9 epDEGIhxrA7inMWSY2Ak6Srzy78vXUeitm/fTn2NBPMbngzQdo9U+EGuN7l+ 6Hmm9xL4OyCRIzNR8NSGjSOpBCgWrEehBzPgy9l6gkL0WIjHgdNuEzgNKAbU ydvFGxkUTXQ+SofN8F4Kk5fcROPK38kswn7iwwZwuUN/GZc8Wd50NVxbOiJB 94zrDgy3yZI1cGLOxKBMWuxYExYcM09G2TGOb3IAOdmUrOgerXOOoiMUAwqh JPHjEhpppUnNiGkE2Qaj6HH9U3NORYC1W6jq9X64xx57zNnVIckP5WwbKf+o RwZvlzk7MDwfRVCOSvREQ1ICAUfgUjw1TOIAg7yBJA0kyBtGOSlh0JQ0SKyM csajcEPT8+5vhHHsOIZj0QeBAQ7ooSkJirLp1rwih3tjETcu/mqO8+7bt89K wvo/75BJ0T+8EOYRmiRhkla+ZKmNQ6IEikYKKoGiJBKiKF1go5AcnpuB/i+4 z0sTJZwoFgC/qkzsNtwYFcLfDfC3ZdOyO0MyfNFIlU0scHmXRzb6aAUKXBrZ ZAaihB5QEpBg1pFo8vHwWhRaCyhymQwDThRsQoe26I+tJcOwWh1Ew9EDFY99 9mlCWoniUZdVxYMmkvDyIbt+tBaJJ/qGJ0Ztij9pVYi9h5rv7r8VPH8QUx/H d7skeoQeXlbCkPHIUT4WOdIAS9FEjgKMG2nYyISM8CBy1PcfNPGVz4uGUyn5 JGNm0tbWkulsEVaSM2/1SINvJf85jk8CMGmNgQw1xyfRSVJf1xf/oFCTjX+M x+IfKek5+kpqo/2Z6DXVm6I+qE+xXkvITKzsFfsab/AERPSOZJ1WeAWdpHd4 RPEu6y+eaVDwxEbd1Fckt9/4ijkRQ46s0zzNmtDn5+AJufwdYWyNAyV4tT+J KVAZc6tAcYHEZm8zCpRSrnojj7r+KD3tq51xvr6+R4zXMEg0JB7UiWYPSn1i 9J/Qe8qJB5VjD4ocKPCHA/ShkuQBc7gA3Sl0Nz/jaU+qjYJEDRAqSLKviHB5 MMenPG6yxkbs82n1JhObCHq/GFKLr4LPAQ4pBkUOor8Bve0y/kZG/I0M+xvs biTVndYjoB6C32GCIvfLFWxf8VhF0+m2E5ZosZs+LZLyuZRSnebu8PSVy8w3 ko0fupnoV8Xse7Tuu9C2H8W+pMmvSkNH+y+xff9ZMz9xVLANOKs8WincqtzT jd+Lre84bPBPi+btU4J+WX5VzWl0uOBIoUH9WaPgVVsE1JZkvDXxmivTGDXL lSH8B39xh6cx/+wxUTvXPmFvD2eq4PsHZsLGnytjy/71pnibJte2YLPxb9ey lIqt8EseYciNCPe3WDDEFv2Flg3ZEDZkLes4CUEu+YdGU6v5q3/vu94jfAK8 TCf9IgLoWyD+lM//uZhWfPLJJ73n/aLHXFgXG9w25uyf89X+KEaT3C9uR1VF /u42jbBPFUq2UY9N9iNrc/eAURLGHKJvVSm+p+W1NzZde5XBdF8wc4gGdZ2M pgWo3UUf8HT4TQZjNP3tgxeNyP+2WZnEDIB1sYGQaa1tsDFXXxvWG02nuqWV pvv7tg3R0rvVJrmqfevs+1qm1m4bJlXhfLltw2yFlmeuv7Nle5oRUUzartyP tG3JTUYF6LKm1NnNyVVUvgcnPyDQ6JM6WxD71bYN0fvzra7wOWG+Btzv00s+ XL4enzObY6hi043OWO3C98l32FiVkFa+rGFp3MnNeVD+zmIqUgm3X7EhiPtE 3nhOvaoHBR+W3+QT/4V0W1WFXHm1i7VZ2Hbzif/SyNMEVOyeBnrijxtV00bP PcEn/uvYVMZ+6ihZj9/3pCQtf7PTJrVWZL7N1/+CZ8bif8sY3OK57J3ynTUT AqPbjAbxLqK3hpT+G7fhi2auqhxEt3qfUMYNiMyDViuYwLHFPzG/wR8eMspA BeC76Na1Des7216M15fO+LSkb9GkxxZv8lxcrTU70h1ra9C72zboS54pqr5F 64Y0n22NwL2/bUN+N4SCotH0a2oH4/iam2Va313NJ19lBfvFtu1Q98/+71tj 38VtAeM2+VbhDk973ycgrGqAfTA+WT7lHwFq3Vs8jV8vbbCOkeIGo6yF19Yn 0f7iyKHU3gBtZdPIpl3lbZNaN9MfXNFotm0PHtJmnd8xn9gy2SLM5Q79f5ur d7/qql6tVsNmxn1zsU31pgq7puoUwz/BdrVZU49wUzUVFqPXt7Df7P9VNUhW JkpWbbqNf6yXs69hcR6MT/Foh3URmjbxZ8P/2CwtimcwpIXaX2v3K8rWfEit gq0sscPcis94pHi79NMWiIMMWjfgJq/90mbOnOKLR8abPiPCxuN91+uQgcDz qxnTSvvymIpn3bHCkZPT2gcEqBptwWOVT/hV6bPStGfPHvfss8+utiZzVb37 mmnOQw89FB8WnuqOpPhXKz9/xTNcn/OhxT/Bv52t//CmUIt+wqPuffOLNTkH D5IRs82/9DuCYUxd08+7zAl8ywudNOU56W+/sRY+GsrkZs8v/VYksVSTxGLN jM7y5vDTp1tf1CfjTZ7vPhmeTK7zH+EX1fbD/0Y/u5/5PyjpGbU=\ \>"]] }, 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.583314730055091*^9, 3.583314945319869*^9, 3.58331855711543*^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.5833147301018906`*^9, 3.5833149453510685`*^9, 3.5833185571778297`*^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.583314730133091*^9, 3.583314945382269*^9, 3.58331855719343*^9}], Cell[BoxData["73"], "Output", CellChangeTimes->{3.583314730133091*^9, 3.583314945382269*^9, 3.58331855720903*^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.583314730164291*^9, 3.583314945397869*^9, 3.58331855720903*^9}], Cell[BoxData["73"], "Output", CellChangeTimes->{3.583314730164291*^9, 3.583314945397869*^9, 3.58331855722463*^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.583314730164291*^9, 3.583314945397869*^9, 3.58331855722463*^9}], Cell[BoxData["73"], "Output", CellChangeTimes->{3.583314730164291*^9, 3.583314945397869*^9, 3.58331855722463*^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.583314730195491*^9, 3.5833149454134693`*^9, 3.58331855724023*^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.583314730211091*^9, 3.583314945429069*^9, 3.58331855725583*^9}], Cell[BoxData["90.`"], "Output", CellChangeTimes->{3.583314730211091*^9, 3.583314945429069*^9, 3.58331855725583*^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.583314730273491*^9, 3.583314945475869*^9, 3.58331855730263*^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.7943245168766`"], "Output", CellChangeTimes->{3.5833147303202915`*^9, 3.5833149454914694`*^9, 3.5833185573182297`*^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.1668662521737`"], "Output", CellChangeTimes->{3.583314730367091*^9, 3.583314945507069*^9, 3.58331855733383*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.3553"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", "bc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sw", "=", "0.3553"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.572795632149378*^9, 3.5727956355657835`*^9}, { 3.5728738759937162`*^9, 3.572873909440175*^9}, {3.5728752341233015`*^9, 3.572875237976508*^9}, {3.5728755831427145`*^9, 3.572875644357222*^9}, { 3.572875681594487*^9, 3.5728756838096914`*^9}, 3.5829467362906075`*^9}], Cell[BoxData["952.0145705166334`"], "Output", CellChangeTimes->{3.5833147304138913`*^9, 3.5833149455226693`*^9, 3.58331855733383*^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.448720111688`"}]], "Output", CellChangeTimes->{3.5833147305854917`*^9, 3.5833149455226693`*^9, 3.58331855734943*^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.842", "*", 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}}], Cell[BoxData[ RowBox[{"-", "2643.024594819514`"}]], "Output", CellChangeTimes->{3.5833147306946917`*^9, 3.583314945538269*^9, 3.5833185573650303`*^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[{"-", "2669.6355472464197`"}]], "Output", CellChangeTimes->{3.5833147315994935`*^9, 3.5833149455538692`*^9, 3.58331855738063*^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.583314731661894*^9, 3.5833149455538692`*^9, 3.5833185573962297`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ratio", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", RowBox[{"2", "*", "Vnn"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"Vee", "-", "Vnn"}], ")"}]}]}]], "Input"], Cell[BoxData["5.983056946388808`"], "Output", CellChangeTimes->{3.5833147317086935`*^9, 3.5833149455694695`*^9, 3.58331855741183*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Data", " ", "for", " ", RowBox[{"Cr", "[", "Ar", "]"}]}], "+", RowBox[{"6", " ", "from", " ", RowBox[{"Ar_a", ".", "nb"}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.582994567521041*^9, 3.5829946511059875`*^9}, { 3.583168262915353*^9, 3.583168296159011*^9}, {3.5832293720502663`*^9, 3.583229379569479*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Vee", "+", "331.71584"}], "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", RowBox[{"Vne", "-", "2369.7113"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.296", "*", "nj", "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"rpi", "^", "2"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Tmc", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"-", "1.4"}], "*", 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", "+", "1018.997"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", RowBox[{"(", RowBox[{"Ttot", "-", "1018.997"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot", "-", RowBox[{"2", "*", "1018.997"}]}]}]}], "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.583229199623163*^9, 3.5832292694332857`*^9}, 3.583318525057373*^9}], Cell[BoxData["1283.7304105166334`"], "Output", CellChangeTimes->{3.58331855742743*^9}], Cell[BoxData["759.7987883879644`"], "Output", CellChangeTimes->{3.58331855742743*^9}], Cell[BoxData[ RowBox[{"-", "5039.346847246419`"}]], "Output", CellChangeTimes->{3.58331855742743*^9}], Cell[BoxData["15.814285714285718`"], "Output", CellChangeTimes->{3.58331855742743*^9}], Cell[BoxData[ RowBox[{"-", "7.356889884963678`"}]], "Output", CellChangeTimes->{3.58331855742743*^9}], Cell[BoxData[ RowBox[{"-", "957.8221883418221`"}]], "Output", CellChangeTimes->{3.58331855742743*^9}], Cell[BoxData["1496.7036075310884`"], "Output", CellChangeTimes->{3.58331855742743*^9}], Cell[BoxData["2.0050427882756225`"], "Output", CellChangeTimes->{3.58331855742743*^9}], Cell[BoxData[ RowBox[{"-", "1499.1125808107336`"}]], "Output", CellChangeTimes->{3.58331855742743*^9}] }, Open ]] }, WindowSize->{1052, 920}, WindowMargins->{{Automatic, 146}, {-83, Automatic}}, 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, 2086, 38, 72, "Input"], Cell[CellGroupData[{ Cell[2668, 62, 4545, 114, 292, "Input"], Cell[7216, 178, 2891, 76, 401, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10144, 259, 955, 14, 31, "Input"], Cell[11102, 275, 122, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11261, 282, 2941, 82, 192, "Input"], Cell[14205, 366, 461, 9, 31, "Output"], Cell[14669, 377, 136, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14842, 384, 1560, 29, 31, "Input"], Cell[16405, 415, 621, 10, 31, "Output"] }, Open ]], Cell[17041, 428, 1419, 23, 31, "Input"], Cell[18463, 453, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[20080, 486, 1234, 18, 31, "Input"], Cell[21317, 506, 1838, 54, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23192, 565, 697, 14, 31, "Input"], Cell[23892, 581, 427, 8, 31, "Output"] }, Open ]], Cell[24334, 592, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[25267, 620, 6002, 127, 172, "Input"], Cell[31272, 749, 532, 10, 52, "Output"], Cell[31807, 761, 533, 10, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32377, 776, 519, 12, 31, "Input"], Cell[32899, 790, 623, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33559, 805, 1658, 42, 72, "Input"], Cell[35220, 849, 463, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35720, 863, 827, 23, 92, "Input"], Cell[36550, 888, 122, 2, 31, "Output"], Cell[36675, 892, 124, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36836, 899, 2049, 39, 92, "Input"], Cell[38888, 940, 135, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39060, 947, 5255, 127, 232, "Input"], Cell[44318, 1076, 5648, 98, 366, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50003, 1179, 2100, 42, 72, "Input"], Cell[52106, 1223, 15697, 232, 416, "Output"] }, Open ]], Cell[67818, 1458, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[69174, 1498, 4887, 85, 72, "Input"], Cell[74064, 1585, 5717, 88, 416, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79818, 1678, 2570, 53, 132, "Input"], Cell[82391, 1733, 122, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82550, 1740, 2598, 53, 92, "Input"], Cell[85151, 1795, 271, 6, 31, "Output"] }, Open ]], Cell[85437, 1804, 9726, 201, 232, "Input"], Cell[CellGroupData[{ Cell[95188, 2009, 1947, 43, 72, "Input"], Cell[97138, 2054, 138, 3, 31, "Output"], Cell[97279, 2059, 529, 11, 21, "Message"], Cell[97811, 2072, 267, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[98115, 2084, 570, 14, 52, "Input"], Cell[98688, 2100, 505, 10, 52, "Output"], Cell[99196, 2112, 197, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[99430, 2121, 2767, 54, 72, "Input"], Cell[102200, 2177, 500, 10, 52, "Output"], Cell[102703, 2189, 197, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102937, 2198, 3698, 81, 132, "Input"], Cell[106638, 2281, 566, 10, 52, "Output"] }, Open ]], Cell[107219, 2294, 2072, 49, 112, "Input"], Cell[109294, 2345, 561, 12, 52, "Input"], Cell[109858, 2359, 2148, 49, 92, "Input"], Cell[112009, 2410, 2452, 56, 92, "Input"], Cell[114464, 2468, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[116248, 2513, 1117, 25, 31, "Input"], Cell[117368, 2540, 138, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[117543, 2547, 1020, 27, 31, "Input"], Cell[118566, 2576, 136, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[118739, 2583, 502, 10, 31, "Input"], Cell[119244, 2595, 138, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[119419, 2602, 823, 23, 31, "Input"], Cell[120245, 2627, 139, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[120421, 2634, 204, 4, 31, "Input"], Cell[120628, 2640, 135, 2, 31, "Output"] }, Open ]], Cell[120778, 2645, 1975, 34, 72, "Input"], Cell[CellGroupData[{ Cell[122778, 2683, 4537, 108, 212, "Input"], Cell[127318, 2793, 274, 6, 31, "Output"], Cell[127595, 2801, 120, 2, 31, "Output"], Cell[127718, 2805, 3026, 98, 401, "Output"] }, Open ]], Cell[130759, 2906, 8797, 140, 152, "Input"], Cell[139559, 3048, 12736, 323, 1352, "Input"], Cell[CellGroupData[{ Cell[152320, 3375, 1254, 24, 31, "Input"], Cell[153577, 3401, 2669, 76, 206, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[156283, 3482, 564, 15, 31, "Input"], Cell[156850, 3499, 2722, 77, 220, "Output"] }, Open ]], Cell[159587, 3579, 3127, 59, 92, "Input"], Cell[CellGroupData[{ Cell[162739, 3642, 939, 17, 72, "Input"], Cell[163681, 3661, 3309, 77, 152, "Output"], Cell[166993, 3740, 119, 2, 31, "Output"], Cell[167115, 3744, 119, 2, 31, "Output"] }, Open ]], Cell[167249, 3749, 10382, 236, 192, "Input"], Cell[177634, 3987, 6730, 106, 72, "Input"], Cell[184367, 4095, 11848, 271, 252, "Input"], Cell[196218, 4368, 10215, 234, 132, "Input"], Cell[206436, 4604, 5925, 93, 31, "Input"], Cell[212364, 4699, 14119, 278, 172, "Input"], Cell[CellGroupData[{ Cell[226508, 4981, 15252, 287, 292, "Input"], Cell[241763, 5270, 18893, 387, 384, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[260693, 5662, 8898, 125, 52, "Input"], Cell[269594, 5789, 9769, 168, 366, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[279400, 5962, 618, 14, 72, "Input"], Cell[280021, 5978, 11424, 200, 380, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[291482, 6183, 644, 15, 72, "Input"], Cell[292129, 6200, 11516, 205, 366, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[303682, 6410, 615, 14, 72, "Input"], Cell[304300, 6426, 11201, 204, 373, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[315538, 6635, 966, 20, 72, "Input"], Cell[316507, 6657, 133480, 2240, 375, 13962, 280, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[450024, 8902, 5030, 116, 172, "Input"], Cell[455057, 9020, 117, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[455211, 9027, 2499, 47, 92, "Input"], Cell[457713, 9076, 124, 2, 31, "Output"] }, Open ]], Cell[457852, 9081, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[459718, 9114, 4159, 89, 172, "Input"], Cell[463880, 9205, 3942, 124, 1121, "Output"], Cell[467825, 9331, 117, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[467979, 9338, 5777, 113, 112, "Input"], Cell[473759, 9453, 2421, 76, 92, "Output"], Cell[476183, 9531, 117, 2, 31, "Output"], Cell[476303, 9535, 1068, 17, 72, "Output"], Cell[477374, 9554, 117, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[477528, 9561, 1047, 16, 92, "Input"], Cell[478578, 9579, 1070, 17, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[479685, 9601, 462, 15, 52, "Input"], Cell[480150, 9618, 136, 3, 31, "Output"], Cell[480289, 9623, 119, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[480445, 9630, 4670, 80, 92, "Input"], Cell[485118, 9712, 117, 2, 31, "Output"] }, Open ]], Cell[485250, 9717, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[487138, 9748, 2963, 56, 112, "Input"], Cell[490104, 9806, 140, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[490281, 9813, 1647, 41, 132, "Input"], Cell[491931, 9856, 133, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[492101, 9863, 2787, 59, 112, "Input"], Cell[494891, 9924, 137, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[495065, 9931, 499, 15, 52, "Input"], Cell[495567, 9948, 154, 3, 31, "Output"] }, Open ]], Cell[495736, 9954, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[497142, 9979, 1819, 34, 52, "Input"], Cell[498964, 10015, 155, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[499156, 10023, 1415, 43, 72, "Input"], Cell[500574, 10068, 155, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[500766, 10076, 2723, 54, 112, "Input"], Cell[503492, 10132, 138, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[503667, 10139, 230, 8, 31, "Input"], Cell[503900, 10149, 137, 2, 31, "Output"] }, Open ]], Cell[504052, 10154, 389, 9, 31, "Input"], Cell[CellGroupData[{ Cell[504466, 10167, 2907, 61, 192, "Input"], Cell[507376, 10230, 87, 1, 31, "Output"], Cell[507466, 10233, 86, 1, 31, "Output"], Cell[507555, 10236, 103, 2, 31, "Output"], Cell[507661, 10240, 87, 1, 31, "Output"], Cell[507751, 10243, 103, 2, 31, "Output"], Cell[507857, 10247, 103, 2, 31, "Output"], Cell[507963, 10251, 87, 1, 31, "Output"], Cell[508053, 10254, 87, 1, 31, "Output"], Cell[508143, 10257, 104, 2, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)