(* 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[ 407538, 8491] NotebookOptionsPosition[ 401652, 8307] NotebookOutlinePosition[ 402152, 8327] CellTagsIndexPosition[ 402109, 8324] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Facio"}], "-", RowBox[{"PDB", " ", "source"}]}], ",", " ", RowBox[{"ES", " ", "February", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t1", "=", RowBox[{"1.889726", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.779000", ",", "6.964000", ",", RowBox[{"-", "0.134000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.635000"}], ",", "6.488000", ",", "0.167000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.620000"}], ",", "7.528000", ",", RowBox[{"-", "0.364000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.381000"}], ",", "8.740000", ",", "0.350000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.104000"}], ",", "9.287000", ",", "0.052000"}], "}"}], ",", RowBox[{"{", RowBox[{"0.977000", ",", "8.324000", ",", "0.518000"}], "}"}], ",", RowBox[{"{", RowBox[{"0.942000", ",", "7.032000", ",", RowBox[{"-", "1.231000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.737000", ",", "6.076000", ",", "0.457000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.775000"}], ",", "6.374000", ",", "1.261000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.907000"}], ",", "5.270000", ",", RowBox[{"-", "0.529000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.084000"}], ",", "7.130000", ",", RowBox[{"-", "0.166000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.453000"}], ",", "7.696000", ",", RowBox[{"-", "1.450000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.083000"}], ",", "10.493000", ",", "0.819000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.011000"}], ",", "9.521000", ",", RowBox[{"-", "1.026000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.253000", ",", "8.828000", ",", "0.104000"}], "}"}], ",", RowBox[{"{", RowBox[{"0.948000", ",", "8.223000", ",", "1.624000"}], "}"}], ",", RowBox[{"{", RowBox[{"2.889000", ",", "8.151000", ",", "0.304000"}], "}"}], ",", RowBox[{"{", RowBox[{"1.596000", ",", "5.219000", ",", "0.067000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.762000"}], ",", "4.087000", ",", "0.249000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.740000"}], ",", "8.018000", ",", RowBox[{"-", "0.271000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.294000"}], ",", "6.541000", ",", "1.126000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.397000"}], ",", "6.416000", ",", RowBox[{"-", "0.958000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.253000"}], ",", "5.592000", ",", "1.019000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.225000"}], ",", "10.283000", ",", "1.731000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.875000"}], ",", "3.130000", ",", RowBox[{"-", "0.139000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.614000"}], ",", "1.754000", ",", "0.451000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.232000"}], ",", "1.297000", ",", "0.007000"}], "}"}], ",", RowBox[{"{", RowBox[{"0.790000", ",", "2.330000", ",", "0.477000"}], "}"}], ",", RowBox[{"{", RowBox[{"2.234000", ",", "1.944000", ",", "0.150000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.098000"}], ",", "3.633000", ",", "0.418000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.624000"}], ",", "0.881000", ",", RowBox[{"-", "0.074000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.110000", ",", "0.065000", ",", "0.644000"}], "}"}], ",", RowBox[{"{", RowBox[{"0.485000", ",", "3.560000", ",", RowBox[{"-", "0.179000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.338000", ",", "1.398000", ",", RowBox[{"-", "1.174000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.766000"}], ",", "4.286000", ",", "1.338000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.954000"}], ",", "3.066000", ",", RowBox[{"-", "1.244000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.675000"}], ",", "1.789000", ",", "1.561000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.192000"}], ",", "1.214000", ",", RowBox[{"-", "1.099000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.716000", ",", "2.468000", ",", "1.578000"}], "}"}], ",", RowBox[{"{", RowBox[{"2.895000", ",", "2.831000", ",", "0.229000"}], "}"}], ",", RowBox[{"{", RowBox[{"2.611000", ",", "1.206000", ",", "0.890000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.758000"}], ",", "2.969000", ",", "0.252000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.436000"}], ",", "0.008000", ",", "0.259000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.079000"}], ",", RowBox[{"-", "1.099000"}], ",", RowBox[{"-", "0.152000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.321000", ",", "0.447000", ",", RowBox[{"-", "1.094000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.064000", ",", RowBox[{"-", "2.056000"}], ",", "0.142000"}], "}"}], ",", RowBox[{"{", RowBox[{"0.770000", ",", RowBox[{"-", "3.425000"}], ",", RowBox[{"-", "0.450000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.574000"}], ",", RowBox[{"-", "3.895000"}], ",", "0.088000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.633000"}], ",", RowBox[{"-", "2.866000"}], ",", RowBox[{"-", "0.302000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.047000"}], ",", RowBox[{"-", "3.262000"}], ",", "0.123000"}], "}"}], ",", RowBox[{"{", RowBox[{"2.242000", ",", RowBox[{"-", "1.534000"}], ",", RowBox[{"-", "0.492000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.815000", ",", RowBox[{"-", "4.304000"}], ",", RowBox[{"-", "0.013000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.943000"}], ",", RowBox[{"-", "5.128000"}], ",", RowBox[{"-", "0.533000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.293000"}], ",", RowBox[{"-", "1.641000"}], ",", "0.347000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.056000"}], ",", RowBox[{"-", "3.779000"}], ",", "1.463000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.148000"}], ",", RowBox[{"-", "0.876000"}], ",", RowBox[{"-", "1.233000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.220000", ",", RowBox[{"-", "2.135000"}], ",", "1.238000"}], "}"}], ",", RowBox[{"{", RowBox[{"0.751000", ",", RowBox[{"-", "3.373000"}], ",", RowBox[{"-", "1.559000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.534000"}], ",", RowBox[{"-", "3.984000"}], ",", "1.192000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.635000"}], ",", RowBox[{"-", "2.715000"}], ",", RowBox[{"-", "1.404000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.725000"}], ",", RowBox[{"-", "2.385000"}], ",", "0.069000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.461000"}], ",", RowBox[{"-", "4.020000"}], ",", RowBox[{"-", "0.576000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.919000", ",", RowBox[{"-", "2.189000"}], ",", RowBox[{"-", "0.375000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.581000", ",", RowBox[{"-", "5.178000"}], ",", RowBox[{"-", "0.311000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.713000"}], ",", RowBox[{"-", "6.288000"}], ",", "0.260000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.061000"}], ",", RowBox[{"-", "4.731000"}], ",", "1.401000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.885000"}], ",", RowBox[{"-", "7.232000"}], ",", "0.065000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.563000"}], ",", RowBox[{"-", "8.576000"}], ",", "0.689000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.270000"}], ",", RowBox[{"-", "9.093000"}], ",", "0.081000"}], "}"}], ",", RowBox[{"{", RowBox[{"0.840000", ",", RowBox[{"-", "8.072000"}], ",", "0.320000"}], "}"}], ",", RowBox[{"{", RowBox[{"2.186000", ",", RowBox[{"-", "8.499000"}], ",", RowBox[{"-", "0.259000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.016000"}], ",", RowBox[{"-", "6.681000"}], ",", "0.755000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.634000"}], ",", RowBox[{"-", "9.474000"}], ",", "0.365000"}], "}"}], ",", RowBox[{"{", RowBox[{"0.056000", ",", RowBox[{"-", "10.316000"}], ",", "0.757000"}], "}"}], ",", RowBox[{"{", RowBox[{"0.454000", ",", RowBox[{"-", "6.852000"}], ",", RowBox[{"-", "0.319000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.012000", ",", RowBox[{"-", "8.989000"}], ",", RowBox[{"-", "1.595000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.559000"}], ",", RowBox[{"-", "6.055000"}], ",", "1.331000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.111000"}], ",", RowBox[{"-", "7.348000"}], ",", RowBox[{"-", "1.016000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.463000"}], ",", RowBox[{"-", "8.478000"}], ",", "1.791000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.413000"}], ",", RowBox[{"-", "9.272000"}], ",", RowBox[{"-", "1.006000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.970000", ",", RowBox[{"-", "7.895000"}], ",", "1.409000"}], "}"}], ",", RowBox[{"{", RowBox[{"2.896000", ",", RowBox[{"-", "7.645000"}], ",", RowBox[{"-", "0.257000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.637000", ",", RowBox[{"-", "9.298000"}], ",", "0.365000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.701000"}], ",", RowBox[{"-", "7.338000"}], ",", "0.710000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.359000"}], ",", RowBox[{"-", "10.336000"}], ",", "0.651000"}], "}"}], ",", RowBox[{"{", RowBox[{"0.219000", ",", RowBox[{"-", "10.106000"}], ",", "1.667000"}], "}"}], ",", RowBox[{"{", RowBox[{"1.857000", ",", RowBox[{"-", "9.923000"}], ",", RowBox[{"-", "1.555000"}]}], "}"}]}], "}"}]}]}], ";"}]], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}}], 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["87"], "Output", CellChangeTimes->{ 3.573491131760557*^9, {3.573491235219939*^9, 3.573491284703226*^9}, 3.5737999601362286`*^9, 3.573799996297092*^9, 3.573800053845593*^9, 3.5738000878692527`*^9, 3.573800121471712*^9, {3.5738001934970384`*^9, 3.5738002204226856`*^9}, 3.5738003051776342`*^9, {3.5738003428205004`*^9, 3.573800371430951*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"u", "=", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.567862912170579*^9, 3.567862949329844*^9}, { 3.5678630095303497`*^9, 3.5678630107471523`*^9}, {3.5679573013548217`*^9, 3.5679573132576427`*^9}, 3.568114367533684*^9, {3.5682782383334675`*^9, 3.5682782435438766`*^9}, {3.568381606879155*^9, 3.5683816154123707`*^9}, 3.5688204675481253`*^9, {3.5688215945097046`*^9, 3.568821600578115*^9}, 3.568873215924739*^9, 3.5689108676002645`*^9, 3.5689997098393545`*^9, 3.5689998170271425`*^9, 3.5689998869308653`*^9, 3.5691460425981283`*^9, { 3.5692345679268913`*^9, 3.5692345778017087`*^9}, {3.5692346191261816`*^9, 3.569234623525389*^9}, {3.5692348865282516`*^9, 3.5692349162463036`*^9}, { 3.569234950394764*^9, 3.569234972609203*^9}, 3.569235038176118*^9, { 3.5692351317918825`*^9, 3.5692352122724237`*^9}, {3.5692354169603834`*^9, 3.5692354469124355`*^9}, {3.569237150310628*^9, 3.5692371574866405`*^9}, 3.569237204505123*^9, 3.5692374658211823`*^9, 3.5692377287596436`*^9, { 3.5692377715661187`*^9, 3.569237804872177*^9}, 3.56923802261736*^9, { 3.5692382720773983`*^9, 3.569238274901003*^9}, {3.5693394646825705`*^9, 3.56933951020345*^9}, 3.5693403424025126`*^9, 3.5693404501831017`*^9, 3.569340738003607*^9, 3.569340852819809*^9, {3.569341165475558*^9, 3.569341165491158*^9}, 3.5693414971477404`*^9, {3.5693417327081537`*^9, 3.5693417367797613`*^9}, 3.5693420227750635`*^9, 3.569342614406103*^9, 3.569343567162176*^9, 3.569343662712344*^9, 3.5693437636133213`*^9, 3.5693440705226603`*^9, 3.569344266225004*^9, 3.570297362724632*^9, 3.570297460505604*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"un", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "\"\\"", ",", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, 3.5688146762563534`*^9, 3.56881472549004*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.5734911317761574`*^9, {3.5734912352355394`*^9, 3.5734912847188263`*^9}, 3.5737999601518283`*^9, 3.5737999963126917`*^9, 3.5738000538611927`*^9, 3.5738000879004526`*^9, 3.573800121487312*^9, {3.573800193512638*^9, 3.573800220438286*^9}, 3.5738003051932344`*^9, {3.5738003428361006`*^9, 3.573800371446551*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"num", "=", 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}], Cell[BoxData[ RowBox[{ RowBox[{"um", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"un", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"num", "[", 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}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"us", "=", RowBox[{"Sort", "[", "um", "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146945707855`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "44"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "46"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "47"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "48"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "49"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "65"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "67"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "68"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "69"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "71"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "33"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "34"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "51"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "52"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "54"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "55"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "72"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "73"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "74"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "75"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "76"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "35"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "38"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "39"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "41"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "42"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "43"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "45"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "56"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "57"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "58"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "59"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "61"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "62"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "63"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "66"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "77"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "78"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "79"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "81"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "82"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "83"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "84"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "85"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "86"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "87"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.573491131807358*^9, {3.573491235266739*^9, 3.573491284734426*^9}, 3.573799960183028*^9, 3.573799996343892*^9, 3.573800053892393*^9, 3.573800087931653*^9, 3.573800121518512*^9, {3.5738001935438385`*^9, 3.5738002204538856`*^9}, 3.5738003052088346`*^9, {3.573800342851701*^9, 3.5738003714621506`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"num", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.56881016518083*^9, 3.5688102745058217`*^9}, { 3.5688103430679426`*^9, 3.5688103543155622`*^9}, {3.5688124958093233`*^9, 3.568812496386524*^9}, {3.5688126345871673`*^9, 3.568812635491969*^9}, { 3.568812673025635*^9, 3.5688126732128353`*^9}, {3.5688127492161684`*^9, 3.568812848541543*^9}, 3.5688129280080824`*^9, {3.568813062152718*^9, 3.5688131360032477`*^9}, 3.568813172678912*^9, 3.568821701869093*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "5", ",", "6", ",", "11", ",", "19", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "44", ",", "46", ",", "47", ",", "48", ",", "49", ",", "50", ",", "65", ",", "67", ",", "68", ",", "69", ",", "70", ",", "71", ",", "4", ",", "8", ",", "10", ",", "13", ",", "15", ",", "21", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", "51", ",", "52", ",", "53", ",", "54", ",", "55", ",", "72", ",", "73", ",", "74", ",", "75", ",", "76", ",", "7", ",", "9", ",", "12", ",", "14", ",", "16", ",", "17", ",", "18", ",", "20", ",", "22", ",", "23", ",", "24", ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ",", "42", ",", "43", ",", "45", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60", ",", "61", ",", "62", ",", "63", ",", "64", ",", "66", ",", "77", ",", "78", ",", "79", ",", "80", ",", "81", ",", "82", ",", "83", ",", "84", ",", "85", ",", "86", ",", "87"}], "}"}]], "Output", CellChangeTimes->{ 3.5734911318229575`*^9, {3.573491235282339*^9, 3.5734912847500257`*^9}, 3.5737999601986284`*^9, 3.5737999963594923`*^9, 3.5738000539079933`*^9, 3.5738000879472528`*^9, 3.573800121534112*^9, {3.5738001935594387`*^9, 3.5738002204694853`*^9}, 3.5738003052244344`*^9, {3.5738003428673005`*^9, 3.573800371477751*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, { 3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.1", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.257", ",", 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.1785", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, {3.57379994968421*^9, 3.573799953365816*^9}, { 3.573799990057081*^9, 3.573799990634282*^9}, {3.573800028183548*^9, 3.573800048167183*^9}, {3.573800080053639*^9, 3.5738000807088404`*^9}, { 3.573800114217699*^9, 3.573800115777702*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{ 3.5734911318385572`*^9, {3.5734912352979393`*^9, 3.573491284765626*^9}, 3.573799960229829*^9, 3.5737999963906918`*^9, 3.5738000539391932`*^9, 3.5738000879784527`*^9, 3.573800121565312*^9, {3.5738001935750384`*^9, 3.5738002204850855`*^9}, 3.5738003052400346`*^9, {3.5738003428829007`*^9, 3.573800371493351*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{ 3.5734911318385572`*^9, {3.5734912352979393`*^9, 3.573491284765626*^9}, 3.573799960229829*^9, 3.5737999963906918`*^9, 3.5738000539391932`*^9, 3.5738000879784527`*^9, 3.573800121565312*^9, {3.5738001935750384`*^9, 3.5738002204850855`*^9}, 3.5738003052400346`*^9, {3.5738003428829007`*^9, 3.573800371493351*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5679472243083935`*^9, 3.567947394894693*^9}, { 3.567947453425996*^9, 3.567947471241227*^9}, {3.5679475415037503`*^9, 3.5679475448733563`*^9}, {3.5679488138107853`*^9, 3.567948820877598*^9}, { 3.568820296244224*^9, 3.5688203477867146`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.5734911318541574`*^9, {3.5734912353135395`*^9, 3.5734912847968264`*^9}, 3.5737999602454286`*^9, 3.573799996406292*^9, 3.573800053954793*^9, 3.573800087994053*^9, 3.573800121596512*^9, {3.573800193590638*^9, 3.5738002205006857`*^9}, 3.5738003052712345`*^9, {3.5738003429141006`*^9, 3.5738003715089507`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "6.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "1.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "8.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "17.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5734911318697577`*^9, {3.5734912353447394`*^9, 3.5734912848124266`*^9}, 3.5737999602610283`*^9, 3.5737999964374924`*^9, 3.5738000539859934`*^9, 3.573800088009653*^9, 3.573800121612112*^9, {3.5738001936062384`*^9, 3.573800220516286*^9}, 3.5738003052868347`*^9, {3.573800342929701*^9, 3.573800371524551*^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["45"], "Output", CellChangeTimes->{ 3.573491131885358*^9, {3.573491235360339*^9, 3.5734912848280263`*^9}, 3.5737999602922287`*^9, 3.573799996453092*^9, 3.573800054001593*^9, 3.5738000880252533`*^9, 3.573800121643312*^9, {3.5738001936218386`*^9, 3.573800220547486*^9}, 3.573800305302435*^9, {3.573800342945301*^9, 3.5738003715401506`*^9}}], Cell[BoxData["42"], "Output", CellChangeTimes->{ 3.573491131885358*^9, {3.573491235360339*^9, 3.5734912848280263`*^9}, 3.5737999602922287`*^9, 3.573799996453092*^9, 3.573800054001593*^9, 3.5738000880252533`*^9, 3.573800121643312*^9, {3.5738001936218386`*^9, 3.573800220547486*^9}, 3.573800305302435*^9, {3.573800342945301*^9, 3.5738003715401506`*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}], "\[IndentingNewLine]"}], "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}}], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Lighter", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5682659184078283`*^9, 3.5682659267694435`*^9}, {3.568265972477524*^9, 3.568266002725977*^9}, 3.568277802649102*^9, {3.568820898608082*^9, 3.568820922429324*^9}, 3.5688217528499823`*^9, 3.568821789307246*^9, { 3.569406212748887*^9, 3.569406252544557*^9}, {3.569492717066082*^9, 3.5694927471737347`*^9}, {3.5694931324008117`*^9, 3.5694931369404197`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5681199008322024`*^9, 3.568119920691037*^9}, {3.5681199536070952`*^9, 3.568119958521104*^9}, {3.568120000641178*^9, 3.568120067206495*^9}, { 3.5681211528280015`*^9, 3.5681211643408213`*^9}, 3.5681213201694956`*^9, { 3.568121503313817*^9, 3.568121508961027*^9}, {3.568266015439999*^9, 3.5682660461096525`*^9}, 3.568277806081108*^9, {3.568381589141924*^9, 3.568381589391525*^9}, 3.5688217602599955`*^9, {3.568821800305266*^9, 3.568821801397268*^9}, 3.5693901242572327`*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", 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"}], "}"}]}], "]"}]}], ";"}]}]], "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.5734906574885244`*^9, 3.573490667456942*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "maTetrx", " ", "Bohr"}], " ", "*)"}], "Text"], StyleBox["\[IndentingNewLine]", "Text"], RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.24"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"Dij", ",", "u"}], "]"}], "]"}], "*)"}]}]}]], "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.573447566023289*^9, 3.573447576631308*^9}, {3.573447675800682*^9, 3.5734477119483457`*^9}, {3.5734520384443445`*^9, 3.573452057413978*^9}, { 3.573452107568066*^9, 3.573452111873674*^9}, {3.5734907058798094`*^9, 3.5734907354730616`*^9}, 3.573491203785884*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", "i"}], ",", 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.1785`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5241`", ",", "0.5241`", ",", "0.5693`", ",", "0.5693`", ",", "0.5241`", ",", "0.5241`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5241`", ",", "0.5241`", ",", "0.5241`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5241`", ",", "0.5241`", ",", "0.5241`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5241`", ",", "0.5241`", ",", "0.5241`", ",", "0.5241`"}], "}"}]], "Output", CellChangeTimes->{ 3.573491132056958*^9, {3.5734912355007396`*^9, 3.5734912849528265`*^9}, 3.573799960417029*^9, 3.5737999965778923`*^9, 3.5738000541263933`*^9, 3.573800088150053*^9, 3.573800121768112*^9, {3.573800193746639*^9, 3.573800220656686*^9}, 3.5738003054272346`*^9, {3.573800343054501*^9, 3.5738003716649513`*^9}}] }, Open ]], Cell[BoxData[{ 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[{ 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}}], 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[{"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[{ 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}], Cell[BoxData[{ 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[{"(*", 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}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tval", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.567963992456174*^9, 3.567964003890994*^9}, { 3.5679640974287586`*^9, 3.5679642038209453`*^9}, {3.56796433180357*^9, 3.567964353487608*^9}, {3.567964403641696*^9, 3.567964453046983*^9}, { 3.5679646160984693`*^9, 3.5679646168316708`*^9}, {3.567964688747797*^9, 3.567964762255126*^9}, {3.568277859480002*^9, 3.568277863598409*^9}, { 3.568379511358675*^9, 3.5683795129030776`*^9}, 3.5688214977895346`*^9, { 3.56882774467134*^9, 3.56882781892747*^9}}], Cell[BoxData["146.56254797010465`"], "Output", CellChangeTimes->{ 3.5734911321349583`*^9, {3.57349123556314*^9, 3.5734912850152264`*^9}, 3.573799960495029*^9, 3.573799996640292*^9, 3.5738000541887937`*^9, 3.573800088228053*^9, 3.573800121830512*^9, {3.573800193809039*^9, 3.573800220734686*^9}, 3.573800305489635*^9, {3.573800343132501*^9, 3.573800371727351*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tcor", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.5688764647552447`*^9}, {3.5692363452556133`*^9, 3.5692363456924143`*^9}, 3.569236415892538*^9, 3.5692365043134933`*^9}], Cell[BoxData["2300.5209504317513`"], "Output", CellChangeTimes->{ 3.573491132150558*^9, {3.57349123557874*^9, 3.5734912850308266`*^9}, 3.573799960510629*^9, 3.5737999966558924`*^9, 3.5738000542043934`*^9, 3.5738000882436533`*^9, 3.5738001218461123`*^9, {3.573800193824639*^9, 3.573800220750286*^9}, 3.5738003055052347`*^9, {3.573800343148101*^9, 3.5738003717429514`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor", " ", RowBox[{"(*", " ", RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", RowBox[{"pairs", ":", " ", RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}]}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767685033784`*^9}, {3.568895188410715*^9, 3.5688952349923964`*^9}}], Cell[BoxData["2447.083498401856`"], "Output", CellChangeTimes->{ 3.573491132150558*^9, {3.57349123559434*^9, 3.573491285062027*^9}, 3.573799960526229*^9, 3.5737999966714926`*^9, 3.5738000542199936`*^9, 3.5738000882592535`*^9, 3.5738001218773127`*^9, {3.5738001938402386`*^9, 3.5738002207658863`*^9}, 3.573800305520835*^9, {3.573800343163701*^9, 3.5738003717585516`*^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["65.2846568431935`"], "Output", CellChangeTimes->{ 3.573491132181758*^9, {3.5734912356099396`*^9, 3.5734912850776267`*^9}, 3.5737999605574293`*^9, 3.5737999967026925`*^9, 3.5738000542511935`*^9, 3.5738000882748537`*^9, 3.5738001218929124`*^9, {3.573800193871439*^9, 3.5738002207814865`*^9}, 3.5738003055520353`*^9, {3.5738003431793013`*^9, 3.573800371789751*^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["81.27789112691114`"], "Output", CellChangeTimes->{ 3.573491132197358*^9, {3.57349123562554*^9, 3.573491285093227*^9}, 3.5737999605730295`*^9, 3.5737999967182927`*^9, 3.5738000542667933`*^9, 3.573800088290454*^9, 3.573800121908512*^9, {3.573800193887039*^9, 3.5738002207970862`*^9}, 3.5738003055676355`*^9, {3.5738003431949015`*^9, 3.5738003718053513`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9}], Cell[BoxData[ RowBox[{"(*", RowBox[{"MatrixForm", "[", "Pij", "]"}], "*)"}]], "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.5681087223049684`*^9}, 3.568114284401138*^9, 3.5681220092695055`*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.570340755052903*^9, 3.5703407609185133`*^9}, 3.5734463532615595`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ 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]", "nc"}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, { 3.5681087021497335`*^9, 3.5681087223049684`*^9}, {3.5681133837179556`*^9, 3.5681133888191648`*^9}, {3.5734467751019*^9, 3.5734468203107796`*^9}, { 3.573447929615528*^9, 3.5734479896600337`*^9}, 3.5734480512177415`*^9}], Cell[BoxData["24"], "Output", CellChangeTimes->{ 3.5734911322129583`*^9, {3.57349123564114*^9, 3.573491285124427*^9}, 3.5737999605886292`*^9, 3.5737999967494926`*^9, 3.5738000542979937`*^9, 3.5738000883216534`*^9, 3.5738001219397125`*^9, {3.573800193902639*^9, 3.573800220828286*^9}, 3.5738003055832353`*^9, {3.573800343210501*^9, 3.5738003718209515`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"no", "=", "0"}], ";"}], " "}], "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"no", "=", RowBox[{"no", "+", "1"}]}], ",", "no"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnto", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "no", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "no"}], "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.5681087223049684`*^9}, {3.5681133837179556`*^9, 3.5681133888191648`*^9}, {3.5734467751019*^9, 3.5734468203107796`*^9}, { 3.573447929615528*^9, 3.5734479403483467`*^9}, {3.573448009191268*^9, 3.5734480319049077`*^9}, {3.573485710795436*^9, 3.573485726832264*^9}}], Cell[BoxData["21"], "Output", CellChangeTimes->{ 3.5734911322285585`*^9, {3.57349123565674*^9, 3.573491285140027*^9}, 3.573799960604229*^9, 3.573799996765093*^9, 3.573800054313594*^9, 3.5738000883372536`*^9, 3.5738001219553127`*^9, {3.573800193918239*^9, 3.5738002208438864`*^9}, 3.573800305598835*^9, {3.573800343241701*^9, 3.5738003718365517`*^9}}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5734660068954563`*^9, 3.573466027144292*^9}, { 3.5734661091536355`*^9, 3.5734661723805466`*^9}, {3.5734662073090076`*^9, 3.5734662303658485`*^9}, {3.573466267665514*^9, 3.5734663048559794`*^9}, { 3.5734664495150337`*^9, 3.573466478811885*^9}, {3.5734665730828505`*^9, 3.5734665736600513`*^9}, {3.5734669970759954`*^9, 3.5734670060148106`*^9}, {3.5734670942173657`*^9, 3.5734670963701696`*^9}, {3.573467203152357*^9, 3.5734672057575617`*^9}, { 3.5734672405300226`*^9, 3.573467240982424*^9}, 3.5734678499606934`*^9, { 3.573467906791593*^9, 3.573467914498007*^9}, {3.573468019345791*^9, 3.573468028705807*^9}, {3.573468089031113*^9, 3.573468198886506*^9}, { 3.573468300645485*^9, 3.5734683027982883`*^9}, {3.5734684067724714`*^9, 3.5734684422313337`*^9}, {3.5734686465916924`*^9, 3.5734686720197372`*^9}, {3.5734688134651856`*^9, 3.5734688840085096`*^9}, 3.573468914631363*^9, {3.573469097869285*^9, 3.5734691195533233`*^9}, { 3.5734727667988834`*^9, 3.573472767500884*^9}, {3.5734728800706825`*^9, 3.5734728840798893`*^9}, 3.5734731660123844`*^9, {3.5734735190566044`*^9, 3.5734735195714054`*^9}, {3.5734761518576283`*^9, 3.573476173323266*^9}, { 3.5734762491861997`*^9, 3.573476250169001*^9}, {3.5734764514405546`*^9, 3.5734764584449673`*^9}, {3.5734765160870686`*^9, 3.5734765256966853`*^9}, {3.573476584992389*^9, 3.5734765997656155`*^9}, { 3.5734766381416826`*^9, 3.5734766517449064`*^9}, {3.573478394267967*^9, 3.5734783949543686`*^9}, 3.573478473906107*^9, {3.573478553045046*^9, 3.573478560377059*^9}, {3.573479108062821*^9, 3.573479108686822*^9}, { 3.5734791844093547`*^9, 3.573479193504171*^9}, 3.5734855408331375`*^9, { 3.5734855844820137`*^9, 3.573485589006022*^9}, {3.573485663371352*^9, 3.5734856778793783`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"cno", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", RowBox[{"cnh", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cono", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "26", ",", "52"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "27", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "25", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "28", ",", "56"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "29", ",", "51"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "30", ",", "55"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "34", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "31", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "32", ",", "65"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "33", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "35", ",", "66"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"13", ",", "39", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "36", ",", "74"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "37", ",", "75"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "38", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "40", ",", "76"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "44", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "41", ",", "84"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "42", ",", "85"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "43", ",", "86"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "45", ",", "87"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "cono", "]"}]}]}]], "Input", CellChangeTimes->{{3.5734685498403225`*^9, 3.5734685498871226`*^9}, { 3.573468656981311*^9, 3.5734687959151545`*^9}, 3.573469125840134*^9, { 3.573485199239337*^9, 3.5734855174018965`*^9}, {3.5734856348389025`*^9, 3.5734856353537035`*^9}, {3.573485681670185*^9, 3.573485682512586*^9}, { 3.5734858293868437`*^9, 3.5734858303384457`*^9}, {3.5734858680905123`*^9, 3.5734858770449276`*^9}, 3.573485936028631*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "26", "52"}, {"2", "27", "7"}, {"3", "25", "4"}, {"4", "28", "56"}, {"5", "29", "51"}, {"6", "30", "55"}, {"7", "34", "11"}, {"8", "31", "64"}, {"9", "32", "65"}, {"10", "33", "13"}, {"12", "35", "66"}, {"13", "39", "17"}, {"14", "36", "74"}, {"15", "37", "75"}, {"16", "38", "19"}, {"18", "40", "76"}, {"19", "44", "23"}, {"20", "41", "84"}, {"21", "42", "85"}, {"22", "43", "86"}, {"24", "45", "87"} }, 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.5734911322597585`*^9, {3.57349123567234*^9, 3.5734912851712265`*^9}, 3.5737999606354294`*^9, 3.573799996780693*^9, 3.573800054329194*^9, 3.573800088352854*^9, 3.573800121986513*^9, {3.573800193949439*^9, 3.5738002208594866`*^9}, 3.5738003056300354`*^9, {3.5738003432573013`*^9, 3.5738003718677516`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nj", "=", "no"}], ";"}], "\[IndentingNewLine]", 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[{"rlo", "=", "1.125"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rli", "=", "1.125"}], ";"}], "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"P", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "nj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "nj", "}"}]}], "]"}]}], ";"}]}]}]], "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.573446556857517*^9, 3.5734465641895294`*^9}, { 3.5734465954675846`*^9, 3.573446625060837*^9}, {3.573446868093663*^9, 3.5734469109157386`*^9}, 3.57344710499568*^9, {3.573447275644379*^9, 3.573447298014818*^9}, {3.5734860992385187`*^9, 3.573486135071781*^9}, 3.5734862783112326`*^9, {3.573486901407527*^9, 3.5734869176003556`*^9}, { 3.5734870132441235`*^9, 3.5734870708706245`*^9}, 3.5734882263490543`*^9, { 3.57348836030649*^9, 3.5734884102889776`*^9}, {3.5734887354559484`*^9, 3.5734887405415573`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"cono", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"a1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"a2", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"d1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Alpha]", "=", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a1", "^", "2"}], "+", RowBox[{"a2", "^", "2"}], "-", RowBox[{"d1", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a1", "*", "a2"}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Beta]", "=", RowBox[{"ArcSin", "[", RowBox[{"rlo", "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", "rlo"}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"\[Alpha]", "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"L", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", "rlo"}], ")"}], "*", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", RowBox[{"nk", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"-", "L"}], "*", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", "rlo"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rlo"}]}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"\[Gamma]", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"now", " ", "turn", " ", "from", " ", "x"}], "-", RowBox[{ "axis", " ", "into", " ", "half", " ", "angle", " ", "of"}]}], " ", "<", "7"}], ",", "17", ",", RowBox[{"11", ">"}], ",", " ", RowBox[{"around", " ", "z"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\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[{"tplo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tplu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "nj"}], "}"}]}], "]"}], ";"}]], "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.573446556857517*^9, 3.5734465641895294`*^9}, { 3.5734465954675846`*^9, 3.573446625060837*^9}, {3.573446868093663*^9, 3.5734469109157386`*^9}, 3.57344710499568*^9, 3.5734864369167113`*^9, { 3.5734866714631233`*^9, 3.573486688997554*^9}, {3.573486979392064*^9, 3.573486993166888*^9}, {3.573487125751521*^9, 3.5734872963846207`*^9}, { 3.5734873423423014`*^9, 3.573487356694327*^9}, {3.573487437564869*^9, 3.573487470512127*^9}, {3.5734875226474185`*^9, 3.5734875903359375`*^9}, { 3.573487637073619*^9, 3.5734877169769597`*^9}, {3.5734881200972676`*^9, 3.573488120378068*^9}, {3.5734883041775913`*^9, 3.573488310807603*^9}, { 3.573488623666152*^9, 3.5734886478617945`*^9}, {3.57349016526086*^9, 3.573490185728096*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"nb", "=", RowBox[{"Length", "[", "a", "]"}]}], "\[IndentingNewLine]", RowBox[{"cw", "=", RowBox[{"nb", "-", "bh"}]}]}], "Input", CellChangeTimes->{{3.5681343270045934`*^9, 3.568134331481801*^9}, 3.5681343823222904`*^9, {3.5681345934218616`*^9, 3.5681345986322703`*^9}, { 3.568134635479535*^9, 3.5681346521559644`*^9}, {3.5681351451792307`*^9, 3.568135145428831*^9}, {3.5681351781888885`*^9, 3.5681352349417877`*^9}, { 3.568135340163973*^9, 3.568135340335573*^9}, {3.568135523495495*^9, 3.5681355244314966`*^9}, {3.5681357674799232`*^9, 3.5681357771675406`*^9}, {3.568136284433632*^9, 3.5681362987700567`*^9}, { 3.568136395053426*^9, 3.5681363965510283`*^9}, {3.568381170343589*^9, 3.568381179844005*^9}, {3.5689533222924633`*^9, 3.568953376658559*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1.181109111492542`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.186442066466073`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "1.1802816686131143`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "1.1800263536923503`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3", ",", "1.1886416251145053`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "7", ",", "1.1775628123992778`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "8", ",", "1.1789421577217571`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "9", ",", "1.180902993902901`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "10", ",", "1.1860359653762258`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "11", ",", "1.188690102525311`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "13", ",", "1.1786738568310033`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "14", ",", "1.1793971908481904`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "15", ",", "1.181142323460848`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "16", ",", "1.1860201891514783`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "17", ",", "1.187385277057574`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "19", ",", "1.1768105338859702`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "20", ",", "1.1757675224721844`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "21", ",", "1.1786949993929927`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "22", ",", "1.1857850720295475`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "23", ",", "1.1850497743990636`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "3", ",", "1.1304145531044594`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "4", ",", "1.124734413158569`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "1", ",", "1.1369308301760905`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "2", ",", "1.1324205459102394`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "7", ",", "1.1270785233055038`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "4", ",", "1.1328311040162677`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "5", ",", "1.1362713169307759`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "6", ",", "1.1384773338933403`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "8", ",", "1.1380500482431823`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "9", ",", "1.1376769684633108`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "10", ",", "1.1319685231744447`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "13", ",", "1.1265589593419882`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "7", ",", "1.1237964208156868`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "11", ",", "1.130546988308901`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "12", ",", "1.139011416226711`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "14", ",", "1.1390824797249972`"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "15", ",", "1.1369459876247747`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "16", ",", "1.1324757570422719`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "19", ",", "1.127593241444258`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "13", ",", "1.1240090233473754`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "17", ",", "1.1309326317470945`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "18", ",", "1.1393607759309052`"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "20", ",", "1.138008892670493`"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "21", ",", "1.1378636858301383`"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "22", ",", "1.138048072804237`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "19", ",", "1.123564815397786`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "23", ",", "1.1336739767068842`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "24", ",", "1.1368263709722832`"}], "}"}], ",", RowBox[{"{", RowBox[{"46", ",", "1", ",", "1.2734245521509573`"}], "}"}], ",", RowBox[{"{", RowBox[{"47", ",", "2", ",", "1.2690235531033855`"}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", "3", ",", "1.274195691563207`"}], "}"}], ",", RowBox[{"{", RowBox[{"49", ",", "4", ",", "1.2656608231125488`"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "5", ",", "1.2731490158264136`"}], "}"}], ",", RowBox[{"{", RowBox[{"51", ",", "29", ",", "1.0929629135097119`"}], "}"}], ",", RowBox[{"{", RowBox[{"52", ",", "26", ",", "1.0965442030508648`"}], "}"}], ",", RowBox[{"{", RowBox[{"53", ",", "6", ",", "1.2694265817920405`"}], "}"}], ",", RowBox[{"{", RowBox[{"54", ",", "6", ",", "1.2737876265968415`"}], "}"}], ",", RowBox[{"{", RowBox[{"55", ",", "30", ",", "1.103775432801264`"}], "}"}], ",", RowBox[{"{", RowBox[{"56", ",", "28", ",", "1.0861711510036547`"}], "}"}], ",", RowBox[{"{", RowBox[{"57", ",", "7", ",", "1.2657026452160927`"}], "}"}], ",", RowBox[{"{", RowBox[{"58", ",", "8", ",", "1.2706675596906813`"}], "}"}], ",", RowBox[{"{", RowBox[{"59", ",", "9", ",", "1.2755018165824636`"}], "}"}], ",", RowBox[{"{", RowBox[{"60", ",", "10", ",", "1.2709766252347316`"}], "}"}], ",", RowBox[{"{", RowBox[{"61", ",", "11", ",", "1.2752257029772305`"}], "}"}], ",", RowBox[{"{", RowBox[{"62", ",", "12", ",", "1.2694487333416138`"}], "}"}], ",", RowBox[{"{", RowBox[{"63", ",", "12", ",", "1.2732298095450383`"}], "}"}], ",", RowBox[{"{", RowBox[{"64", ",", "31", ",", "1.0941826447111431`"}], "}"}], ",", RowBox[{"{", RowBox[{"65", ",", "32", ",", "1.0984605652519144`"}], "}"}], ",", RowBox[{"{", RowBox[{"66", ",", "35", ",", "1.1011630174904332`"}], "}"}], ",", RowBox[{"{", RowBox[{"67", ",", "13", ",", "1.2635789033195333`"}], "}"}], ",", RowBox[{"{", RowBox[{"68", ",", "14", ",", "1.271034516745512`"}], "}"}], ",", RowBox[{"{", RowBox[{"69", ",", "15", ",", "1.2720158752517534`"}], "}"}], ",", RowBox[{"{", RowBox[{"70", ",", "16", ",", "1.2680902398361642`"}], "}"}], ",", RowBox[{"{", RowBox[{"71", ",", "17", ",", "1.2756402845179076`"}], "}"}], ",", RowBox[{"{", RowBox[{"72", ",", "18", ",", "1.270980030661954`"}], "}"}], ",", RowBox[{"{", RowBox[{"73", ",", "18", ",", "1.273389686898275`"}], "}"}], ",", RowBox[{"{", RowBox[{"74", ",", "36", ",", "1.0911899931961786`"}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", "37", ",", "1.0975423149608883`"}], "}"}], ",", RowBox[{"{", RowBox[{"76", ",", "40", ",", "1.1002550571947238`"}], "}"}], ",", RowBox[{"{", RowBox[{"77", ",", "19", ",", "1.2652826791997565`"}], "}"}], ",", RowBox[{"{", RowBox[{"78", ",", "20", ",", "1.2721409590917085`"}], "}"}], ",", RowBox[{"{", RowBox[{"79", ",", "21", ",", "1.2729193745958574`"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "22", ",", "1.2729627531971155`"}], "}"}], ",", RowBox[{"{", RowBox[{"81", ",", "23", ",", "1.2730401520042065`"}], "}"}], ",", RowBox[{"{", RowBox[{"82", ",", "24", ",", "1.272419180080517`"}], "}"}], ",", RowBox[{"{", RowBox[{"83", ",", "24", ",", "1.2705108809698968`"}], "}"}], ",", RowBox[{"{", RowBox[{"84", ",", "41", ",", "1.0930364986081584`"}], "}"}], ",", RowBox[{"{", RowBox[{"85", ",", "42", ",", "1.090614561755932`"}], "}"}], ",", RowBox[{"{", RowBox[{"86", ",", "43", ",", "1.0889250317389658`"}], "}"}], ",", RowBox[{"{", RowBox[{"87", ",", "45", ",", "1.0881394954698163`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5734911323845587`*^9, {3.57349123579714*^9, 3.5734912853116274`*^9}, 3.5737999607758293`*^9, 3.573799996905493*^9, 3.573800054453994*^9, 3.5738000884932537`*^9, 3.573800122111313*^9, {3.5738001940742393`*^9, 3.5738002209842863`*^9}, 3.5738003057548356`*^9, {3.5738003433821015`*^9, 3.573800371992552*^9}}], Cell[BoxData["90"], "Output", CellChangeTimes->{ 3.5734911323845587`*^9, {3.57349123579714*^9, 3.5734912853116274`*^9}, 3.5737999607758293`*^9, 3.573799996905493*^9, 3.573800054453994*^9, 3.5738000884932537`*^9, 3.573800122111313*^9, {3.5738001940742393`*^9, 3.5738002209842863`*^9}, 3.5738003057548356`*^9, {3.5738003433821015`*^9, 3.573800371992552*^9}}], Cell[BoxData["48"], "Output", CellChangeTimes->{ 3.5734911323845587`*^9, {3.57349123579714*^9, 3.5734912853116274`*^9}, 3.5737999607758293`*^9, 3.573799996905493*^9, 3.573800054453994*^9, 3.5738000884932537`*^9, 3.573800122111313*^9, {3.5738001940742393`*^9, 3.5738002209842863`*^9}, 3.5738003057548356`*^9, {3.5738003433821015`*^9, 3.573800371992552*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Orange", ",", "0.6"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}}], 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"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.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.573487822994746*^9, 3.573487899918481*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"(*", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Red", ",", "0.8"}], "]"}], ","}], "*)"}], 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.05"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1", ",", "Plot7", ",", "Plot8", ",", "Plot8c", ",", "Plot8d", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "->", "False"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "->", "False"}], ",", " ", 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.5734529859900093`*^9, 3.57345298655161*^9}, {3.573487915424908*^9, 3.573487925674126*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.4720965540000002`, 13.160051864000001`, -0.253223284}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.19997601, 12.260542288000002`, 0.315584242}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.06135612, 14.225857328, -0.687860264}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.196531504, 17.549885362, 0.098265752}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.846262302, 15.730079224, 0.978878068}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.827914984, 13.47374638, -0.31369451600000003`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.4399712120000001`, 7.723310162, 0.470541774}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.54323625, 5.91484238, -0.262671914}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.050017764, 3.314579404, 0.852266426}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.438416432, 2.450974622, 0.013228082}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.49288354, 4.40306158, 0.901399302}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.221647884, 3.673627344, 0.2834589}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.149288354, -2.076808874, -0.287238352}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.010668464, -3.8852766560000003`, 0.268341092}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.45508902, -6.47231155, -0.8503767}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.084702724, -7.36048277, 0.166295888}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.085922558, -5.415954716, -0.570697252}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.7579951220000005`, -6.164286212, 0.23243629799999999`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.347374638, -11.882597088, 0.49132876000000003`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.953641738, -16.206290176, 1.3020212139999998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.5102260200000001, -17.183278518, 0.153067806}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.58736984, -15.253868271999998`, 0.60471232}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.130941036, -16.060781274, -0.489439034}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-2.609711606, 16.51620524, 0.6614040999999999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{3.2824540620000002`, 11.481975175999999`, 0.863604782}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-1.7139814820000001`, 9.958856019999999, -0.999665054}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-0.15684725800000002`, 19.828894918, 1.5476855939999998`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{4.257552678000001, 16.682501128, 0.196531504}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-6.224757444, 12.360697766000001`, 2.127831476}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-5.854371147999999, 6.865374558, 0.7899054679999999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-4.958641024, 1.664848606, -0.139839724}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0.20786986, 0.12283219000000001`, 1.216983544}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0.91651711, 6.72742456, -0.338260954}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{4.418179388, 2.641836948, -2.218538324}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{4.236765692, -2.898839684, -0.9297451919999999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{3.42985269, -8.133380704, -0.024566438}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-1.7820116179999999`, -9.690514928, -1.007223958}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-2.443415718, -3.101040366, 0.6557349219999999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-5.775002656, -7.141274554, 2.7646691380000004`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-5.699413616, -12.625259406, 1.42674313}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-4.9775382839999995`, -17.903264124, 0.68974999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0.105824656, -19.494413416, 1.430522582}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0.857935604, -12.948402552000001`, -0.602822594}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{3.802128712, -16.986747014000002`, -3.01411297}, 0.178]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.780121892, 13.288553232, -2.326252706}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.46453765, 12.045113524, 2.382944486}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.745771878, 14.543331296, -2.7401027}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.020786986, 17.992081246, -1.938858876}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.791460248, 15.539216898000001`, 3.0689150240000003`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.459418414, 15.403156626, 0.574476704}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.016002696, 9.862479994000001, 0.126611642}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.06757524, 15.151823068, -0.5121157460000001}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.419399222, 12.124482016, -1.8103575079999998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.147278678, 10.567347792, 1.925630794}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.42518835, 19.432052457999998`, 3.2711157060000002`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.447530116, 8.099365636, 2.528453388}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.692524604, 5.793899916, -2.350819144}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.16529105, 3.380719814, 2.949862286}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.362827392, 2.294127364, -2.076808874}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.353043816, 4.663843768, 2.981987628}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.47075677, 5.349814306, 0.432747254}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.934074586, 2.279009556, 1.68185614}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.1015903080000005`, 5.610596494, 0.476210952}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.603372536, 0.015117808, 0.489439034}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.386054046, 0.844707522, -2.067360244}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.279679448, -1.655399976, -2.3300321580000003`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.30546572, -4.03456501, 2.339480788}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.419184226, -6.374045798, -2.946082834}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.0091136840000001`, -7.528668384, 2.252553392}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.08970201, -5.13060609, -2.653175304}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.03922935, -4.50699651, 0.130391094}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.540341686, -7.5966985199999995`, -1.0884821759999999`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.516110194, -4.136610214, -0.7086472500000001}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.987656806, -9.785001228, -0.587704786}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.784451286, -8.940293706, 2.647506126}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.056356834, -11.44229093, 2.515225306}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.7646691380000004`, -16.021097028, 3.3844992659999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.780456838, -17.521539472, -1.901064356}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.83303422, -14.91938677, 2.662623934}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.472646496, -14.44695527, -0.48565958200000003`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.983207462, -17.570672348, 0.68974999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.993875926, -13.866809388, 1.34170546}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.457863634, -19.532207936000002`, 1.230211626}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.413849994, -19.097570956, 3.150173242}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.509221182, -18.751751098, -2.93852393}, 0.1]}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{0.13606027200000015`, 12.710297076000002`, 0.031180478999999983`}, 1.181109111492542]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-2.130666065, 13.243199808, -0.18613801099999994`}, 1.186442066466073]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{1.659179428, 14.445065544000002`, 0.36282739200000014`}, 1.1802816686131143`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{0.8248653989999999, 16.639982293000003`, 0.5385719099999999}, 1.1800263536923503`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-4.444635552, 13.849801853999999`, -0.50077739}, 1.1886416251145053`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-2.4916037310000005`, 6.819076270999999, 0.10393492999999993`}, 1.1775628123992778`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-3.296627007, 4.614710892, 0.29479725599999995`}, 1.1789421577217571`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-1.744217098, 2.882777013, 0.43274725399999997`}, 1.180902993902901]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{0.527233554, 3.4270181010000003`, 0.45731369200000005`}, 1.1860359653762258`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{2.8572657120000002`, 4.0383444619999995`, 0.5924291009999999}, 1.188690102525311]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{0.9306900550000001, -2.981042765, -0.009448629999999958}, 1.1786738568310033`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{1.732878742, -5.1787941029999995`, -0.291017804}, 1.1793971908481904`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{0.18519314799999975`, -6.91639716, -0.3420404059999999}, 1.181142323460848]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-2.0853126410000002`, -6.3882187429999995`, \ -0.20220068200000002`}, 1.1860201891514783`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-4.42195884, -5.790120464, -0.1691304769999999}, 1.187385277057574]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-2.4547540740000002`, -12.77454776, 0.307080475}, 1.1768105338859702`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-3.257887624, -14.936394304, 0.712426702}, 1.1757675224721844`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-1.7319338789999996`, -16.694784347000002`, 0.7275445099999999}, 1.1786949993929927`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{0.5385719100000002, -16.218573395, 0.37889006300000005`}, 1.1857850720295475`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{2.859155438, -15.657324773, 0.05763664299999993}, 1.1850497743990636`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-2.82895935133016, 15.404371485438688`, 0.006412927758434495}, 1.1304145531044594`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-1.4383984334781088`, 17.017934531597085`, 0.38806711847179043`}, 1.124734413158569]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{2.403501608175726, 12.296703546559453`, 0.3213700218641483}, 1.1369308301760905`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-1.46444991874818, 11.0762436819144, -0.36115781862034313`}, 1.1324205459102394`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-1.5809749620319988`, 8.87370627433003, -0.2860162778958276}, 1.1270785233055038`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-0.1761127378606624, 18.722505931716245`, 0.8440368771843786}, 1.1328311040162677`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{3.086856403312729, 16.220094448969917`, 0.5763655617747103}, 1.1362713169307759`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-6.032078638653205, 12.901115939091724`, 0.9423980640568632}, 1.1384773338933403`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-4.732257026009408, 6.403867278064376, 0.2788526749102537}, 1.1380500482431823`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-4.031964030427491, 2.465827829157228, 0.34184881226293784`}, 1.1376769684633108`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-0.10587623893964734`, 1.253052055186098, 0.6326085000685516}, 1.1319685231744447`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{0.03450475525821664, -0.944876709044634, 0.48683209757428825`}, 1.1265589593419882`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-0.22725483102931032`, 7.2107989087750175`, 0.054308725840051975`}, 1.1237964208156868`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{1.1963110819127354`, 5.59907509949946, 0.2635254249336212}, 1.130546988308901]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{4.322756383973131, 3.1428077191410653`, -1.00373008042716}, 1.139011416226711]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{ 3.1559149791796317`, -3.37779050920563, -0.34803097134795113`}, 1.1390824797249972`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{ 2.4710785554566166`, -7.326909446331451, -0.42550834880905125`}, 1.1369459876247747`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-1.4434922813497884`, -8.559364949437098, \ -0.4375206841252536}, 1.1324757570422719`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-1.5710333320979095`, -10.754579326462718`, \ -0.27980752008540166`}, 1.127593241444258]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-1.3299066823523533`, -2.6039053599695023`, 0.19804051607893275`}, 1.1240090233473754`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-2.755319868988753, -4.224812674709478, 0.06036493967146839}, 1.1309326317470945`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-5.7667448327067845`, -6.666908482600858, 1.535171003232399}, 1.1393607759309052`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-4.661711307393202, -13.13080668455203, 0.7936621459693275}, 1.138008892670493]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-3.9948896338427176`, -17.079343967285492`, 0.9870218505517827}, 1.1378636858301383`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-0.19328342893775458`, -18.372299342751923`, 0.8102861850125089}, 1.138048072804237]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{-0.21245325631129275`, -12.431093796888117`, \ -0.07175562731599106}, 1.123564815397786]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{ 1.2120600825854007`, -14.06765608535282, -0.016590620383235888`}, 1.1336739767068842`]}}, {RGBColor[0.4, 0.2, 0.], {Opacity[0.4], SphereBox[{ 3.9617710659218566`, -16.537179465599372`, -1.788353287013791}, 1.1368263709722832`]}}, {Opacity[0.5], SphereBox[{1.6966067353363496`, 13.253712553146453`, -1.7641905780243905`}, 1.2734245521509573`]}, {Opacity[0.5], SphereBox[{-1.3926561778383741`, 12.103645579903038`, 1.8212421249655808`}, 1.2690235531033855`]}, {Opacity[0.5], SphereBox[{-2.8313050736605416`, 14.457285925515144`, -2.1838808407943238`}, 1.274195691563207]}, {Opacity[0.5], SphereBox[{-0.06861357672388238, 17.871743372565717`, -1.3844818351360728`}, 1.2656608231125488`]}, {Opacity[0.5], SphereBox[{1.8063207228707931`, 15.590972344963799`, 2.502167258238024}, 1.2731490158264136`]}, {Opacity[0.5], SphereBox[{5.1086104152948115`, 15.776579605753792`, 0.4641597232750979}, 1.0929629135097119`]}, {Opacity[0.5], SphereBox[{3.09362135529579, 10.334247306173701`, 0.34130155069048185`}, 1.0965442030508648`]}, {Opacity[0.5], SphereBox[{-6.730823972028141, 14.695976839403947`, -0.4582150095106019}, 1.2694265817920405`]}, {Opacity[0.5], SphereBox[{-6.259057352247132, 12.490245897800472`, -1.4046362273473758`}, 1.2737876265968415`]}, {Opacity[0.5], SphereBox[{-6.169758291331338, 11.087668598132668`, 1.9842971019622713`}, 1.103775432801264]}, {Opacity[0.5], SphereBox[{-0.3465659022719661, 19.548325091963992`, 2.7661602670706555`}, 1.0861711510036547`]}, {Opacity[0.5], SphereBox[{-1.4454730994579605`, 7.997029063033533, 1.9684306344297322`}, 1.2657026452160927`]}, {Opacity[0.5], SphereBox[{-3.651994716191561, 5.826734255490381, -1.7839137512363872`}, 1.2706675596906813`]}, {Opacity[0.5], SphereBox[{-3.134067800880106, 3.362804834996782, 2.381701523326519}, 1.2755018165824636`]}, {Opacity[0.5], SphereBox[{-0.3833458300325527, 2.336703122917547, -1.509474062399919}, 1.2709766252347316`]}, {Opacity[0.5], SphereBox[{1.3909261767821763`, 4.593198284379184, 2.4183595304165397`}, 1.2752257029772305`]}, {Opacity[0.5], SphereBox[{5.131442386798183, 4.894486230508303, 0.39219379519070563`}, 1.2694487333416138`]}, {Opacity[0.5], SphereBox[{4.740895846834354, 2.6571684671518487`, 1.3026724079507208`}, 1.2732298095450383`]}, {Opacity[0.5], SphereBox[{-6.737791401281884, 5.976600242577014, 0.5677118891442535}, 1.0941826447111431`]}, {Opacity[0.5], SphereBox[{-4.706753964783188, 0.4951815703815081, 0.3063219287616928}, 1.0984605652519144`]}, {Opacity[0.5], SphereBox[{4.395388360751405, 1.3668800707403697`, -2.111286431065436}, 1.1011630174904332`]}, {Opacity[0.5], SphereBox[{-0.24415985416310756`, -1.7701951850670583`, \ -1.7735585212220186`}, 1.2635789033195333`]}, {Opacity[0.5], SphereBox[{2.2254460204714657`, -3.994042213443883, 1.77729110413286}, 1.271034516745512]}, {Opacity[0.5], SphereBox[{1.4289256569567417`, -6.400706556407925, -2.37749089026176}, 1.2720158752517534`]}, {Opacity[0.5], SphereBox[{-1.0296603995325202`, -7.482951941940144, 1.685464043302448}, 1.2680902398361642`]}, {Opacity[0.5], SphereBox[{-3.088678364352477, -5.207891336387986, -2.08914655221483}, 1.2756402845179076`]}, {Opacity[0.5], SphereBox[{-6.691442390063047, -4.956862533399273, 0.15809094036665997`}, 1.270980030661954]}, {Opacity[0.5], SphereBox[{-6.328219913118816, -7.208320974483243, -0.7303345449759722}, 1.273389686898275]}, {Opacity[0.5], SphereBox[{5.142318135820718, -3.774965017386367, -0.7732464683264048}, 1.0911899931961786`]}, {Opacity[0.5], SphereBox[{3.116399328676289, -9.304142403986852, -0.4237506331900249}, 1.0975423149608883`]}, {Opacity[0.5], SphereBox[{-5.781704516666971, -8.417308824991142, 2.6815660657295686`}, 1.1002550571947238`]}, {Opacity[0.5], SphereBox[{-1.1355678723513924`, -11.562136202310873`, 1.964348539283498}, 1.2652826791997565`]}, {Opacity[0.5], SphereBox[{-3.8733467351861663`, -13.826236193599978`, \ -1.3657585021515275`}, 1.2721409590917085`]}, {Opacity[0.5], SphereBox[{-2.8159177604555317`, -16.07132067800642, 2.8197394465400425`}, 1.2729193745958574`]}, {Opacity[0.5], SphereBox[{-0.7071728222410854, -17.429806333392687`, -1.344003341105313}, 1.2729627531971155`]}, {Opacity[0.5], SphereBox[{1.7664148437162277`, -15.010091613094058`, 2.1045585434382454`}, 1.2730401520042065`]}, {Opacity[0.5], SphereBox[{5.108694555393685, -14.884722815461682`, -0.4866847987341023}, 1.272419180080517]}, {Opacity[0.5], SphereBox[{4.75181068667548, -17.160725511006003`, 0.3695912587305976}, 1.2705108809698968`]}, {Opacity[0.5], SphereBox[{-6.616055750704574, -13.504432957096212`, 1.3665257634865609`}, 1.0930364986081584`]}, {Opacity[0.5], SphereBox[{-4.609748126728132, -19.056119089703092`, 1.0722517535627425`}, 1.090614561755932]}, {Opacity[0.5], SphereBox[{0.3237390121349573, -19.213664859016312`, 2.6470996622626455`}, 1.0889250317389658`]}, {Opacity[0.5], SphereBox[{3.594947127544483, -18.23518314226744, -2.960646754656641}, 1.0881394954698163`]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{2.783140957384371, 11.727786265998027`, 2.0423225521184807`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.9274528224427927`, 10.368448393574068`, -1.2422215287310032`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.7535688687979123`, 15.879793646835875`, 1.7898533110975097`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0.8449297527830777, 19.3689793952366, 2.2434102396665105`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{4.126573507373326, 17.687472642988162`, 1.0162808321024057`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-5.1765251715196925`, 12.987133940205844`, 2.583790983606892}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{1.515796797954207, 7.807721959081108, 0.07759194684848786}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-5.295633440303038, 6.921256715687229, 1.9662564396278408`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-5.879352566277884, 2.3777720168824374`, 0.4459441236196089}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-0.6744158213633811, 0.3587938090851006, 2.1470407147050556`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{5.566559302484619, 3.238529910916145, -2.3744015012249355`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.9239886999032634`, -3.1653879039363773`, 1.8495385981681793`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{4.2095586442798, -1.868401590127923, -0.13189222230468567`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{3.1892728544099294`, -7.8039078457841535`, 1.2134485976140816`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-3.0118132681531593`, -9.270788988924357, \ -1.1098411463635296`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-6.902298374140402, -7.749285782651613, 2.5225143121222784`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{ 1.5259010558952948`, -11.868449193913168`, -0.3084840993526164}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-4.988019937827336, -12.527323461432006`, 2.5146033395019116`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-5.784276051733703, -17.214403926985344`, 1.4472181761840606`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-0.9116659858819378, -19.325116011525548`, 2.227493994612081}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{4.822095720741936, -17.782658522254852`, -2.855039332631901}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{4.251841493423815, 12.22772072937175, 0.4127568836752976}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-0.7654937902239268, 10.233313441112653`, -1.8506388917561842`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-3.652633042767431, 17.05544897573152, 0.09515034044932413}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.3744082354478617`, 19.594383687266514`, 1.9497577254093708`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{3.8172038443202903`, 16.79371737620532, -1.0252852174488643`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-7.3928689983148805`, 12.934693250000654`, 2.1996425546921508`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0.473673175128959, 6.6742850247501755`, -1.5630783645316133`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-5.787401654930997, 7.901251932934895, 0.0014985926519522907`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-4.591052291630612, 1.9690605374777221`, -1.3528714113773987`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{1.431057240299473, 0.5444308212965505, 1.3756639673829363`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{3.324409217186072, 3.2629477246549854`, -2.5605916335304157`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-3.0753505786812516`, -2.020586052310994, 0.2918818501611243}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{3.600582340975987, -2.84333173877615, -2.0660998293808155`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{4.296975051290898, -7.444092150496136, -0.7116562069224082}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-0.9434960230358614, -9.453229212955856, -1.9766048616895282`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-4.652356573297018, -7.761773090919597, 2.53280799707231}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{ 0.24872197521162953`, -13.028815480042754`, -1.752389801910045}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-5.724661764061946, -11.627361626538711`, 0.5884861271866204}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-4.860163153269116, -17.58880585907448, -0.5697941054194257}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{1.2659084640999096`, -19.001536524210312`, 1.7627727553997286`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{2.6085243872655344`, -17.40883507547044, -2.703850767436893}, 1.125]}, TubeBox[{{-1.19997601, 12.260542288000002`, 0.315584242}, { 1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.05], TubeBox[{{-3.06135612, 14.225857328, -0.687860264}, {-1.19997601, 12.260542288000002`, 0.315584242}}, 0.05], TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.05], TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {-0.196531504, 17.549885362, 0.098265752}}, 0.05], TubeBox[{{-5.827914984, 13.47374638, -0.31369451600000003`}, {-3.06135612, 14.225857328, -0.687860264}}, 0.05], TubeBox[{{-3.54323625, 5.91484238, -0.262671914}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.05], TubeBox[{{-3.050017764, 3.314579404, 0.852266426}, {-3.54323625, 5.91484238, -0.262671914}}, 0.05], TubeBox[{{-0.438416432, 2.450974622, 0.013228082}, {-3.050017764, 3.314579404, 0.852266426}}, 0.05], TubeBox[{{1.49288354, 4.40306158, 0.901399302}, {-0.438416432, 2.450974622, 0.013228082}}, 0.05], TubeBox[{{4.221647884, 3.673627344, 0.2834589}, {1.49288354, 4.40306158, 0.901399302}}, 0.05], TubeBox[{{2.010668464, -3.8852766560000003`, 0.268341092}, {-0.149288354, -2.076808874, -0.287238352}}, 0.05], TubeBox[{{1.45508902, -6.47231155, -0.8503767}, { 2.010668464, -3.8852766560000003`, 0.268341092}}, 0.05], TubeBox[{{-1.084702724, -7.36048277, 0.166295888}, { 1.45508902, -6.47231155, -0.8503767}}, 0.05], TubeBox[{{-3.085922558, -5.415954716, -0.570697252}, {-1.084702724, \ -7.36048277, 0.166295888}}, 0.05], TubeBox[{{-5.7579951220000005`, -6.164286212, 0.23243629799999999`}, {-3.085922558, -5.415954716, -0.570697252}}, 0.05], TubeBox[{{-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}, {-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.05], TubeBox[{{-2.953641738, -16.206290176, 1.3020212139999998`}, {-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.05], TubeBox[{{-0.5102260200000001, -17.183278518, 0.153067806}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.05], TubeBox[{{1.58736984, -15.253868271999998`, 0.60471232}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.05], TubeBox[{{4.130941036, -16.060781274, -0.489439034}, { 1.58736984, -15.253868271999998`, 0.60471232}}, 0.05], TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-3.06135612, 14.225857328, -0.687860264}}, 0.05], TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-0.196531504, 17.549885362, 0.098265752}}, 0.05], TubeBox[{{3.2824540620000002`, 11.481975175999999`, 0.863604782}, { 1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.05], TubeBox[{{-1.7139814820000001`, 9.958856019999999, -0.999665054}, {-1.19997601, 12.260542288000002`, 0.315584242}}, 0.05], TubeBox[{{-1.7139814820000001`, 9.958856019999999, -0.999665054}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.05], TubeBox[{{-0.15684725800000002`, 19.828894918, 1.5476855939999998`}, {-0.196531504, 17.549885362, 0.098265752}}, 0.05], TubeBox[{{4.257552678000001, 16.682501128, 0.196531504}, {1.846262302, 15.730079224, 0.978878068}}, 0.05], TubeBox[{{-6.224757444, 12.360697766000001`, 2.127831476}, {-5.827914984, 13.47374638, -0.31369451600000003`}}, 0.05], TubeBox[{{-5.854371147999999, 6.865374558, 0.7899054679999999}, {-3.54323625, 5.91484238, -0.262671914}}, 0.05], TubeBox[{{-4.958641024, 1.664848606, -0.139839724}, {-3.050017764, 3.314579404, 0.852266426}}, 0.05], TubeBox[{{0.20786986, 0.12283219000000001`, 1.216983544}, {-0.438416432, 2.450974622, 0.013228082}}, 0.05], TubeBox[{{0.20786986, 0.12283219000000001`, 1.216983544}, {-0.149288354, -2.076808874, -0.287238352}}, 0.05], TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.05], TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {1.49288354, 4.40306158, 0.901399302}}, 0.05], TubeBox[{{4.418179388, 2.641836948, -2.218538324}, {4.221647884, 3.673627344, 0.2834589}}, 0.05], TubeBox[{{4.236765692, -2.898839684, -0.9297451919999999}, { 2.010668464, -3.8852766560000003`, 0.268341092}}, 0.05], TubeBox[{{3.42985269, -8.133380704, -0.024566438}, { 1.45508902, -6.47231155, -0.8503767}}, 0.05], TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \ {-1.084702724, -7.36048277, 0.166295888}}, 0.05], TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \ {-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.05], TubeBox[{{-2.443415718, -3.101040366, 0.6557349219999999}, {-0.149288354, -2.076808874, -0.287238352}}, 0.05], TubeBox[{{-2.443415718, -3.101040366, 0.6557349219999999}, {-3.085922558, -5.415954716, -0.570697252}}, 0.05], TubeBox[{{-5.775002656, -7.141274554, 2.7646691380000004`}, {-5.7579951220000005`, -6.164286212, 0.23243629799999999`}}, 0.05], TubeBox[{{-5.699413616, -12.625259406, 1.42674313}, {-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.05], TubeBox[{{-4.9775382839999995`, -17.903264124, 0.68974999}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.05], TubeBox[{{0.105824656, -19.494413416, 1.430522582}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.05], TubeBox[{{ 0.857935604, -12.948402552000001`, -0.602822594}, {-1.347374638, \ -11.882597088, 0.49132876000000003`}}, 0.05], TubeBox[{{0.857935604, -12.948402552000001`, -0.602822594}, { 1.58736984, -15.253868271999998`, 0.60471232}}, 0.05], TubeBox[{{3.802128712, -16.986747014000002`, -3.01411297}, { 4.130941036, -16.060781274, -0.489439034}}, 0.05], TubeBox[{{1.780121892, 13.288553232, -2.326252706}, {1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.05], TubeBox[{{-1.46453765, 12.045113524, 2.382944486}, {-1.19997601, 12.260542288000002`, 0.315584242}}, 0.05], TubeBox[{{-2.745771878, 14.543331296, -2.7401027}, {-3.06135612, 14.225857328, -0.687860264}}, 0.05], TubeBox[{{-0.020786986, 17.992081246, -1.938858876}, {-0.196531504, 17.549885362, 0.098265752}}, 0.05], TubeBox[{{1.791460248, 15.539216898000001`, 3.0689150240000003`}, { 1.846262302, 15.730079224, 0.978878068}}, 0.05], TubeBox[{{5.459418414, 15.403156626, 0.574476704}, {4.257552678000001, 16.682501128, 0.196531504}}, 0.05], TubeBox[{{3.016002696, 9.862479994000001, 0.126611642}, { 3.2824540620000002`, 11.481975175999999`, 0.863604782}}, 0.05], TubeBox[{{-7.06757524, 15.151823068, -0.5121157460000001}, {-5.827914984, 13.47374638, -0.31369451600000003`}}, 0.05], TubeBox[{{-6.419399222, 12.124482016, -1.8103575079999998`}, {-5.827914984, 13.47374638, -0.31369451600000003`}}, 0.05], TubeBox[{{-6.147278678, 10.567347792, 1.925630794}, {-6.224757444, 12.360697766000001`, 2.127831476}}, 0.05], TubeBox[{{-0.42518835, 19.432052457999998`, 3.2711157060000002`}, {-0.15684725800000002`, 19.828894918, 1.5476855939999998`}}, 0.05], TubeBox[{{-1.447530116, 8.099365636, 2.528453388}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.05], TubeBox[{{-3.692524604, 5.793899916, -2.350819144}, {-3.54323625, 5.91484238, -0.262671914}}, 0.05], TubeBox[{{-3.16529105, 3.380719814, 2.949862286}, {-3.050017764, 3.314579404, 0.852266426}}, 0.05], TubeBox[{{-0.362827392, 2.294127364, -2.076808874}, {-0.438416432, 2.450974622, 0.013228082}}, 0.05], TubeBox[{{1.353043816, 4.663843768, 2.981987628}, {1.49288354, 4.40306158, 0.901399302}}, 0.05], TubeBox[{{5.47075677, 5.349814306, 0.432747254}, {4.221647884, 3.673627344, 0.2834589}}, 0.05], TubeBox[{{4.934074586, 2.279009556, 1.68185614}, {4.221647884, 3.673627344, 0.2834589}}, 0.05], TubeBox[{{-7.1015903080000005`, 5.610596494, 0.476210952}, {-5.854371147999999, 6.865374558, 0.7899054679999999}}, 0.05], TubeBox[{{-4.603372536, 0.015117808, 0.489439034}, {-4.958641024, 1.664848606, -0.139839724}}, 0.05], TubeBox[{{4.386054046, 0.844707522, -2.067360244}, {4.418179388, 2.641836948, -2.218538324}}, 0.05], TubeBox[{{-0.279679448, -1.655399976, -2.3300321580000003`}, \ {-0.149288354, -2.076808874, -0.287238352}}, 0.05], TubeBox[{{2.30546572, -4.03456501, 2.339480788}, { 2.010668464, -3.8852766560000003`, 0.268341092}}, 0.05], TubeBox[{{1.419184226, -6.374045798, -2.946082834}, { 1.45508902, -6.47231155, -0.8503767}}, 0.05], TubeBox[{{-1.0091136840000001`, -7.528668384, 2.252553392}, {-1.084702724, -7.36048277, 0.166295888}}, 0.05], TubeBox[{{-3.08970201, -5.13060609, -2.653175304}, {-3.085922558, \ -5.415954716, -0.570697252}}, 0.05], TubeBox[{{-7.03922935, -4.50699651, 0.130391094}, {-5.7579951220000005`, -6.164286212, 0.23243629799999999`}}, 0.05], TubeBox[{{-6.540341686, -7.5966985199999995`, \ -1.0884821759999999`}, {-5.7579951220000005`, -6.164286212, 0.23243629799999999`}}, 0.05], TubeBox[{{5.516110194, -4.136610214, -0.7086472500000001}, { 4.236765692, -2.898839684, -0.9297451919999999}}, 0.05], TubeBox[{{2.987656806, -9.785001228, -0.587704786}, { 3.42985269, -8.133380704, -0.024566438}}, 0.05], TubeBox[{{-5.784451286, -8.940293706, 2.647506126}, {-5.775002656, -7.141274554, 2.7646691380000004`}}, 0.05], TubeBox[{{-1.056356834, -11.44229093, 2.515225306}, {-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.05], TubeBox[{{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, \ {-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.05], TubeBox[{{-2.7646691380000004`, -16.021097028, 3.3844992659999997`}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.05], TubeBox[{{-0.780456838, -17.521539472, -1.901064356}, \ {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.05], TubeBox[{{1.83303422, -14.91938677, 2.662623934}, { 1.58736984, -15.253868271999998`, 0.60471232}}, 0.05], TubeBox[{{5.472646496, -14.44695527, -0.48565958200000003`}, { 4.130941036, -16.060781274, -0.489439034}}, 0.05], TubeBox[{{4.983207462, -17.570672348, 0.68974999}, { 4.130941036, -16.060781274, -0.489439034}}, 0.05], TubeBox[{{-6.993875926, -13.866809388, 1.34170546}, {-5.699413616, -12.625259406, 1.42674313}}, 0.05], TubeBox[{{-4.457863634, -19.532207936000002`, 1.230211626}, {-4.9775382839999995`, -17.903264124, 0.68974999}}, 0.05], TubeBox[{{0.413849994, -19.097570956, 3.150173242}, { 0.105824656, -19.494413416, 1.430522582}}, 0.05], TubeBox[{{3.509221182, -18.751751098, -2.93852393}, { 3.802128712, -16.986747014000002`, -3.01411297}}, 0.05]}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5734911324625587`*^9, {3.5734912359063406`*^9, 3.573491285420827*^9}, 3.5737999612594304`*^9, 3.5737999970302935`*^9, 3.5738000545631943`*^9, 3.573800088602454*^9, 3.5738001222205133`*^9, {3.5738001941678395`*^9, 3.573800221109087*^9}, 3.5738003058640356`*^9, {3.5738003434913015`*^9, 3.5738003721017523`*^9}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvIV3ZOeZ5//Z9iSToZ2xPRDwJHYmEydmx9TkZmZmZlK3mKWqElWpRCVm ZmYuMavFLLWoGW3HTnZ3ZmfPb/a5pWpPd/6D3zl7Tj+6V9B1n/f7ffCFu/20 7aXzFqdtL589/eZG69OWly6ftXlzww1r+dEr/w3+2yVF3kS5/094/uU/5d9/ Xla+KD/5f/f/7/7/H/chpsuPuH9rloHqBmrDE8mwUpFjqaIpNJHJygaeTM32 Lfy11vzX7e3jFGS3EetfSqq+lExtKVmepaS7FTNmnFxk+rO/ojYygRxbFaW2 ampFGmw0NIk0W6lptFRTf0NFb3ACX03O0rPwBG/T5cfcu/OEovw2EkJKyREp M5RSG1hKfUApjfLUBnmq0buUAosE0i45UGyvotZeTYu9hi47D3rtPOkXGVCu th70yOO7rFW033Dn91OzNxee5mW6/JT7dx8TG1pIWngpReEV1IZV0RJWS2eE kZ6oWvqjFami0zedvINXSdx6ntSdVrTbe9Jr782Qgw9jDlomHLVMOfow6ejN uIMXw/YeDAgAvZZufDs1273wVE/T5Wfcv/OQhNA80iIqKIqoxxjRQnt0O73x XQwndzOe3s1keidTGe20WajIOHyV3ANXydltQ/1JV0YddUw6+TLjrGfeRc9t F1+5+jLnLFo4ecvvPRmxU9Fv6cJLj36Dqvw60mWg+ZGt1ETepC12gL6kYUYz R5nKHWO2YIzbRaOMhZXQ5xRIwUkHSk/YU3XUgep9tgzd8GLOJYC7rgHcdwvg gUn8ueumZ85V1HLxYdTJg1E7d26Fx3QtPN3DdPkHHsrA0wXu7PBWSiMHaYwd 52bKLUay57hVeJv50tvcq7jNg6p5+lWxDHrEUnReQ+U5NTVnNTJ4NwavaeRp gTxwD+KxKohFPFEF8kMeqAK47e7HLTdfxlwUEDQM27q8pMHPGeoYJivUSE54 HxVRUzQn3aEyYJCcwwbmyp9yr/opj+qecrdokmFtJsP6TIqv6Km5osMo18aL WtrPOMrTDDxWB/NUbeArjYFnIo/UgdwVLWbc9Yy7aRl19mTUwY2HNbWdL2uR 7p9NVnA7uaFjVMbdoTX9CZWRs4Q7NTFfMs+Dhj/ypPmPzGUOMhpQzLChmNLr wdTeMFBnGUyjRQCdVzTMOfryVBPCVx4hfG2SYB57GLirCWRW7c+4uy+jroKF k5ontcY/0SJTX0yKtpUopxaCzsm9VS0FDvVUuNbTZOhlrvV/85VgcTtvitHQ aoYjqimzjsRoG0GLbQiNNqF0WorR23vx1COUrz1D+cZTuYaIFsHc9whiTh3A hErPqIKHi4YndXV/okXw5Wg8DiajP1lI7NVqcu2aqHJvo9Wng17/TtqjxnjU /FC0GGI0soGRmAZK7WKpcYih2TGCBocIOuz0TDj5iBZhfOUZZtJE0eKJp6KF MCt4TKr8GHUXLdw8XtBCbbq8yaPpGZqi4vE7HITuQBpBp0tJuF5HgVMzRo82 OvXtDApjExHtzMTKfeUcE7EVjCQ0UuIQT7VTPI3O0dSLtDn6MyN+8Vi0eeap aBTKV16hPH5Bmwm1aKNStNGIvf2pNi1RcZTauxN5zI+AfRmEnKkg0bKBQtcW 6nxa6QpsYzi8jcmYduYS2riT3EpPeBnjRR0UiSYVLgnUu8ZQ6xpNkwSJu5ow Hog2j0WbJ6LNE4Uh0eaeaDOrCWBcLQypfRh2V/PtzIxZG9VzbSJjKbd3o0aC WsYZPYY96YSdqSTBqoEC9yaM2hY6Da0MSkyZiGtlNrmF+bRmwadcgmcRNaG5 VLjFCKuxVLpH0uziJxiEclds5r7IA5OEyH0wd8RmpjX+jGl8GVF70+PmZvZg d9PlLZ5MT1Nh50K1BPwmCcE3HXSEbIsm4lQ5cZZ15Lo1UK1ros3QTH9kM6Px zUymNDOd3sREcjU9YdnCaDSl2kQyr/uRf1nFzSvOTKlDBIsQ5kVueygSLPcG ZhS2NH4MabT0qTz5dnaWl1R6k6kaI9USb2vEEVrsdfQ56mm7HkL44SJiLapJ dzFS6lNPQ1ADXRGN9Mc1SpxvZDStnvGMOon7xVRoIom77C3iQ/Chy2Ru3k/B 2RuUnrOk8rylKYdNqYPEcAIZFXX6BaCbAtBwQlL3i9r8gnIbJ6ptNZIVfWhz 8KXfyZ8Jl0CGrIOIP1NIvF0N2R61VPgbaQytoz2mju4EI70ptfSmVdObUUld dA7+592x3XMB9w/XoF27g8D1OwnbsJOojTuJ3LSDqE3bKTt3jW61L61qLQOJ Kdx8UZWfU2UjPNl6YrTTiiqitLP4oVuQxGkDk3ahpJ/NIt6plmzvWsoCaqkJ q6EhpoamxGoaU6qoSCwkKjAKhwMnsVq6Ccv3duG+ehs+a7cTsH47wRu2E7ZR ZNM2QjZtJXr/YToTUnv+RAtrN6ptvEQLX5Nv9gsYE24GbqtCeChsPxP7G7SO IMsqh2y1FDSiSb5oUhBVTVZkKeqrtrhuWIVm+Uf4XDuG1bJ9OC5eieOKdbiv WofHmnV4rl2HZu0aPHdsQXvqABkB3j0v01JltaBFrWjRKpT0uQiZ7mJjJi1C TRH0K3MEnXcLZcApXP4mTGKWAd+1y1Gt/AKPlZ/hufxj9KKF65HTRBw7R9D1 Y6j2b0V9YCva03sJsjhGgIi//I3flWNkBni/TMtPqLzhSrW1FzWiSrOo0iuq jMljZkWV+6LK94HLS0KpBK5nEi4eSKjIO3AQj9VL0az+Au9Vn+F7YCP+8qhA UcFv7XmCbxwjRCTU8pikZeXuB6afKSoGijr+os7tyTFeMtgfc0tKzWpLT3Eh HY3CT7fwMyz83BJ17mgW4sNjU9QSlMzRS1EnYN1KkzqeqxfjI+ro9m8yqWKQ RxoOXyT+2n7CLI8tIszqmBQIcmvS6UWNsg3e3S/7stS8VF7XCFU+1InJtjsH MCAmO6EKlpSqKKQEKlFAlHhoUiSYtovX8Vq9TJRZIsp8gacoEyBPCFLwkKfa bjtH6vmThIseEYpYHzPdK3opvzdppNB27Vj3y6G33ZAohuMtTOlMTN10FT8W aBRtpqX8mNMEc1tk3hSsgig6fd4EiVo0Ua/+HK+DmxcgUcYuT/OzvCgpzhrn S754XNSjO69Hf1bkhB7tIR1BZ20wKNiINm3lBV0vpiWp/kNSqbDRSurV0+K8 oI2CzagUQ+NqwyImJUD9g4SoAHJOn8NNFHFZtRi3ravxUz5Uhqm/IQHFwhX3 6/LACwGEWOiJuqYnXmqrRFEo6ZyehNN6Yo/Lzw/4EnrCmraKgucR96pZk9t3 ntLVPkmQtpgobQlxXiVUJrcz1DDJw5mn/93s+a2haZTY6Ki0l8pN4Gt3UZQO oE+y84B7gNSYAfRKJk4+dQb7lYtx3LIKreI3oq2vaOp2XYuXlZ4gkdDLgaRL vsi44U/OdX/y5Vogki8/y5URZIn2aSf11Ouew7bQaf01d+8+JSSoiHhpZTJF CoOkrZF2plJamUpdKRXSzpSqSqUWb+fp9NO/MSvfIGjnWuukw9FT5egnpYU/ Ta7+NLv50SSFbp0UdyHHT+K0bwte4llKaNJeP4/6hjc+1pKmrQOItQ4m1TqU /GuRFNlFUuYQRaVTJFXOESJhVDgGSzEVSKGlH7XOCQwnNZuT/yXT5b9TlNck HVIJ6WHSIYlUhUoPFlxGi0i7SGdwqSR/UV56tCYZTJ0E0K7IloVB/AsPp+YZ qm4hxVZLpiSjXGlbcp19aYzLYLS+hcayAjwuHcNTBuB57Swe4no+1n4ESm0Z YxNFmk2cVISJFF5Pp9ItFaM6lXrPVBo9k2n0SpT7eGrV0VS6hjEYU0mfoYjR 5HrT0+fnn9LePEln0yR3Z5/SvDCyi6bL31GW30hiWDHZEWWURkjOC6+hNdxI d2QdfTH1DMXVMxxvFKlhKLaS/qhyuqUjbfctYSCu+R9MH/PPaC6K5peP4XHV Bq2lDn/JJOE2CSTbppLjkEmJaw55FnFUWAVjVCXTqs+n3S+Pdv8cWvwyafRN ozkwm2GpmFoDC6h1iSfOO4ckaXYzxEKyBdRcr1JTZmqIa2ekZpyGhZFcMF1e ozzXSHJYIZkRVdJW1VMfae4n4zqF0S7GU7ull+xiOrOTmcx2pjNamEyTUjqx hgEZVU9gkdQk9X9vzlSJ/t5oLp3B20KDzjKUIOskom2ySHfIp8BVShUP0cYy nkqHRBp8csQEKgQYBZwyOkKKaTHk0ys1YFNUPdV+RcJZEhXu0aZWvlrMxCgj q5eR1cnIasX2q8X2u2PaeHbrCXULIztvuvw9D6RhTAnJITO8miIpL42R3bTF 9NGbOMhI2jBT2SPM5o1wu2BEWrZhkUHuFPYxly8jzmmTvxEepUzvDczj9/OP no/Q4+JV8XN/dDfiMVhlEWtbTKaLNOMeNVI7GqnVVVGnKqczrIGbEQ30yEh6 oox0RomJRNXSEtdBQ7TU4tIVNepzaZLirU6fTVtIJV2hldwMqxApp0tBRLy9 1beURvcivp55gvHlEVbn1pARWk6etMTlkf00xYzQnTTBcMYtJnNn5PFdtNnF 8KB8lkeVMyK3eFA5wZ3yEWZKBhjP75K/bZJRlsjf1/69OXHESYWrvRqO7rr0 MlZFxDlUkamqp9iniRr/Vpqkl2kP7pZRtdET20FfnDL90CqFYDs3Bdj2lAFa Erppim4WVy+n1S+V9oAs+mNbGIpvEdORyjqxUfqfegbjauiLqqBHCQVeBXwz +7h2YZDnzH3/g/l7pBtypfNuJF8676rICfn0Wfoy7jCWd08G8oC+pDF63bKk T33Is7r7IvekM7rNvdoZ5qommSwbZqSgW/zEyGB0Fs9HmiG+lORTg+5ajnAp PYBLPZmerRTru6gx3KQpvJfG4EGMmjL6hMu+pF5Gs0cZzJ6mN/sWXZkTtKcO 0RIvpiU8t4fl0yNV31haP5MZfUxniWT3yLXLNCEzmiJgx9cyEC5W65P90kj/ kcG2PjKDKsgK6aQgfJSa2DnaUh/Qn/uEieJnzFd8zf3ab6R/ruJZ4zd83fwV X7c8k27/McbAfOokKhh9M6jyVnwmguHUYu739L1ubn6Ulj0rsIvs4HGStX3E uDWR7t1JoX8vVSGDNEYN0xQxSJZXHQPRjUzIAG/XfMNQ/l368+7SnTVDV9oo bSmDtCdKWyst2kCikem8SeYKJrhdJJZVpEwBjcj3A0zm9TAiEWM4qY6h8EIe tA9R8+KI/4mhthFRqU5U6qcw/Ba1ifdoz3xKeUQ3KR4ZXNt1COs9h7CU1iH0 hooSGVnmDT0pJ53JOelEwQlHCo/aU3DImrx9FmTtukCjVBDPpBB71fSMXzIt RWOkZAGfCyli1cUE2RmJcW8lzecm+YH9dGQKwnmPqNCLDnEPmS28yUxyL2MF 9xkueERP7l3heYaezEmRETrSu+lKqWY4XTrV4jvcLbvD/YrbPKyc517FDLcr ppguHWOscJDh7A4ZfrXwnfHSyH/McOs4Wf7NUkQOUxQ1R5pfC65nXbm2U0a8 +wiOe4/guu8Ithv24rp6Ha5frMHri7VErtlD0YHr1J90oUFGX3/MjrrDltQc uEz9GSuar7szV16/UMT8KzMy+FiDN65XJcef8EV3NgXfqyUE2dcRq24jXddF QWAPlWF9jIl5lQeNYEy4LdxPSGwcYiz3DkO59+jIFv5z7tGTd5v+glt05vTS nVErA+zkbuVTHlQ/4XHtY54YH/HQ+IC7tXeZrZ5jonyS4aIBhrNapGst5H53 L9UvIvEThlsmyPJtFTsYkxwYw9mt+7iy46CgcBjHPUdwExQ0+4/iulw6pc9W 4LdkHWFL1hOzeCOJizfRcNCK7tOudJ1yovOEDe3HrnLzog19NmpuWrkzHBwv dZTyrF8zOzVmgsL9qpJzFUjc0J9KRn+lGIO92IW6RSDpoCCoi4rwbupiblIS Mkxz6gQD+ROMFI7QJ3YxVPBQfnaXzgyBRCDqLZims6CfLnHpyZJZ8dLveFT/ HU8bv+Vp0+951PQ19xqfMlf3kMmaeUbKx8S2JB5lV/F4cPAlRH7KUJPYhk+r 1DbBnNq4h4tb93Nj50Hsdx/Cde8hNAcO47lzDz5LVqEXRCKWCRJLN5O+bAvZ y7aSJ9J5xIbBc24MnHWk/7QlI1ftGXf0YNhOTb/0tN/dmv1L0+PeNoHiJmCo rylllLkWPG2D/mg8fpcKCbSrJUrVSKqumbygVsrC26kI6aZVwnytOMpA9Ty3 hPPBwnkGCu/Skf+Q7uLHdJY9obf8Nq3iBE0pJdxOneVBw79LuPp3nrX+G8/a /hePW/8H91u/Za7pGVP19xmpvsVwWb/YTD1TtdX8CTKDdaPS/KRwcs12zggy V8RWrHccwGnPQeljD+J58CDaxV8SsHQNuo+/xPD5aqLFc5IWryVn+WbKVmyn XGT8ooqxC86MnLNm3MKBaWcfEzqj9ioGrFz+wvS43zAr3uP+AjJKea+0z0p7 rNsfhf+5HAKsKwlzryXRp55kSf05AQ0Yk/owSqJrSGplUDxgrOYOPfnT3Myf o6vgDl0l9+mquE9b6QStxV1UZ01JQfv/MV79H1KB3Oa7tn/nm6JZnnT8O/c7 /gfzbd8w1fSIUeMcw9XDDJc305uVXP1iNfBTLLed4fTqbZzbuItrW/dis3Mf znv2S3N/AO9Nm/EXc/FZLMB8soIwASRenCht2Xqyl2+gaMVmalfv5Ob+S9y6 7CLgWHPfXc/QDSeaTl2i/vh56o6cotrb60dmcBIlrGgUPxIwvEV8FWAsFppR vcRm/fF0+b4Ig3M5sZ5VAlKhxPlGiqXIrIitpyZBAaqBgaoZ2nPGac+dolX8 qLV4msbSKZEhaguamTb+b243/oeYyX/wuP0/mGn/PzwZ+D887fk3euJKma3s ZKrlCaMNtxkW+xiubuXx1IQZnLPmqu1mlWTnigos9+7mzMotXFi/k2tbdnNl 5Qb8X/8tHR98gm7VGry/WInm81X4frKaqMWrSRJwMldsJH/lRopWbaJi9Rbq 1+5k5ooLPccvUSGfUbJ5J/kbt5O1fjNZawTUFStQS1+SFODN3MQYf2bS4bcm c1KbI4+X2Zz8zFMgBnO7rzsSiO/5PPxsJCI5l5GgayA9sJKc0CrJE9WUxlRT EVdNjdTIDRlD1Es1YiwYo6Z4nKqSUcqLbnKz/BFTdf+T+ab/xb22f+Nh57/x uOvfeNItDnfzf9JrvMVcx7dMtT5lpPkOw02CWl2L9Fvjzx1uu+nyQ+6ZV/hG RMYUqZL7yoaFePorHk7PUh2RQJaNimKRcom5yQfPohOzcnr7S2w+38A1Qefs R5tJXH2Ron12qNZdxXHVFWyXXUL9xUlClh4kWRDOWrmJgtWbKVkjfrpmEzWr tlC5ajN12/ZRI+asIF0sn5W7cSs56zaSvXoVOumdfARpb+mjUvy9XzED3Vhe YDJNz6v/ZZrKtJYypxIsIIea5090J8PwOF+AzqGWEHURsbpikgNLyFDWD6VE y48qJS+qjPLUm5Rm9Us/O0hB4TB5Ut1USDoYqPqW8brvmGn+A7fb/si9zj/y sPuPPOr+g8h33Ov6vQD9NZPtTxhpE/NsGWGwvpFvnz1+DvRW86rnI0HSGJlA vq2KCls1RvPKZ6O1hnorNTVS/XSFJPB0cpYfmbNZXWS89LfuVEhMrxdptdXQ aetB5tYDxEi2DPn0S7Rvf47TpgvYH/fC/7Qfuce1RGy1JHTDDaLXWxK2xoKo VRbEr7hO1qq9FKwVBtaJrFpP0RfLMa7dSuP2/dRt30f11j2UbtlF/qbt5G3Y RN66NQSf2oufwOwrPbjCRnqA9yJzgAi0s8Bmz3rsRBxFXPaux/v0rgVTNzMQ br0wo6U5misRthRv+yICVUWE+xQRI+1fgrTkyeEiUUVkJnaQntZLUuYA8Zn9 lGbfpqXoKT2VXzFSJyg3fcOMRMr5jm+42/UN97ol6XZ9xe3OZ8x2Sgnd8ZCR jjkpOge4aawxF2RbTJe/wRgRR56AWSkpoNFeTaedhh4Bs99OWY31WFgPFkI6 hAylyPpGSswfmv7vbtPiT4m9u2ktudVew01lBdfOkxF7TwF1E/HLVhApAcRv 03G0W64SuvUKMbttKNroSvImC1J325O1x5b8fbZkbL9BlhBUsMmSwjUXxCU2 kLV4KSVLV1C/fjvNku7qhYyabXsp27qLws07hJDN5G9YS8iZvc/nAvFXAs3x Xbjv3m5aTj//xQdcXvwB10RuLPkAm6UfYLfsA9w3LcH/7C7CrBfYCL7mTbz7 VQzXLdFci8HVrggvaT/13sKMMGIQRoLDikjMHsAg5VFcxBC5cfOUSynUUPCA Dgk+/VIJjjQI4hKWp8X2ZzueMCcMzHU8YqbzIVNd9xntus1g5xS9rd3cmZ15 3hlsMk+wzM0/IT0og2gLHUnXfCm39KFX4Bx2UBbJvU0L5tOO3txy9GLSQYFa IxSp6bZ0VxbN/8w8hdQSqSyGuWEUZpR19z57b0YclLV2LdNOWrKFnfQVazBs P0/Q7uvCihWp223J2+EgqAaQKcEqbZsVBUecqDrlSvVxR0r2WVG2z5rKndYU rzpBztJllCxfaWKnRdhp2LGfmu17Kd+2m8Ktws4WYWfTWvOs9t+Z5ki1p3Zx fen73BA2Ig8c4qqwc2Pxh1iJ2C39EKdlH+Ky/AMpej/A7csP8D20Hs+jTsS6 XH2FSJtjUjf7W97Ay9YHb0FC6yLiJvcineNPqIkeIUM3QmbELQpTJEbn3Kap 5A6dlffoM0r92igENN9nvPU+E233mGi/y1jHbYa65ujtukV3xwjDg6OYG9QN psvrdLSPExpYTKw2l8hrISRcCSXtYhgZZ8NIPRFO4clg+i39uOOi455JtHLv w6yTkGQqPlX0Wrny+6kZFplTyESNkXJ7V2qEoTYHL/qUXRGOOmHHl3ll+dFF T8eJS8RuPY5hjxWRe51J3eNO4V4PyvaqSN8USPluF/L2OlF4QkXlWRVt13W0 XfPAeNKRmsPSIAmzBas3UvLlaurMLDUKS7Vmloq2bRemNpO7ec0i01T/X+En LmH75XvYCgEO4ioOQox2w3psFIKWfITjso9w/fJDVCs+lKGoV37AD7i+9jhh tteIEH4UUXhaZLr7scm9lLQTLBIkTwgQU1AAeDD5FYlOPaQGTpARO0Vh+i2q 8qZpKJ2lrXKO7lphpH6O/sY5Bppn6W+TTrRDGjBxndaOCeqbevnqq6/NRK03 zxqX5LeQGCoJLKyUNMtg8m+EUnY9jBqRuuvhGK+FU30xnLITEfRcClrEYzc/ iWYP3Xy566plxkWczMlDnMqdqfC4Bao+p8zWiWpTePSi217LsKMvt5z9uO3i x31Xfx65+XPzzA0idlzBsMOJmJ0S/vb4UnoogMrDWir2edF4MoqyI2rKznlT dcmHphs6Ou0NdNnrqb+gkiLTmvrdV8Sh1lK3ZY8p3D13qLLtEu62b6Ng2yZS 9m40LYcoSyGOK9/DccX7OH2pOI3wsvQjAjZu5PT7v+TQb3/Cnn99jQNvv8bh 37zG0d+8ytnFK4hyd8dT/p/hwq5XTBT9kHD5qtAUIhKkiLLmcePYInNEuj/1 e2JdB6TunSQ1bpK89EnKciel8pqUgmOK5mphpG6StqZJWlrlZ22T1IqUNw7y 9OtvzVN360yXncQE55AWXkJRRAWl3lmU2cRKkEqg2SmRTpdEetzi6XWN4aZT FO02ETReiqD1ZCBfqwN4ovLjgRTn827Knpnvd6vw7a0ZJqtrqbJdWG9vtpeY 6eDLmHA06xrAPbdAHqsCeSbSeuQKQdsdCN3hQ+JuA7mHIqg8HUXN6RDqzvjR dLlEAp4v1ZdELINoEI7aVbF0qCNpcwmk/qI7TUctpU7YRtPmg9QJR8Yd+6ja sYeSHVIP79hK9rYNRF/cT6SA6bFtMS6r3sd15Ye4rfgI1ZcfY//FOxz+7U/Z +dZr7PmX19gnPB0Sno4JT2d/9xG+N+w5+dtXufzhP+G05F8JE4LCTT6l3P3A RJRBJFAkQMhqqyow19p/TXHSLNFBE8THTpKeKmzlTFJSJGxUTFJRK1I/SWnj JAUNEzT2zi5M+rPWdFlGZX4dqQo7kXVSZTXToKuk3iWbdnUevV75DOvyGPfN ZUKXxbg2jWGPBHpdoumwCOOekyAsLD1U+3NHpefW97t53Hkkwe5WdR3Vkqlq 7LxpcdDR5+THuEuAsBnIA1UQc1LxNUjHn7frKmG7tITtNJC8P4aCk0nCRioN 15JpuBJO+408uqzDaLAIpcUujEa3aNq0GXTp02j1iKTZUU/daXtq9p2kfNcp KnacoWrTUSp3HKJgy1aytm8mYf8WQVOJUz/FbdV7uK6SdLNK2Fn5Mefe/6l4 y2ucevenHHn7p+z95WvsNzN09J13cD9jxal3XuP0u69y+h1F/g6fU5sJlU8L sTn2Ejv+InphaP7W2A9MEP8ld+b/QFfXMwxRE0QIQXHZkyQWTpJUOkl8mdTW 08948OwP5tWKNabLQfra+0kLLSAvvIFqZT4/doB6txLavSro861iNLCaW8HV zIVWipQzG1zMZGCuEJZGv3sMHVcD+cojiEeaQO6q/ZhWiXuYNzlNR8VQZuW4 sP9BEmurg54+Z38mXAOZdw/ioSqY7sPnadp+gMzdEt72hhG5K5qUI8kUXMii +nqeEFFAm30mxTcqGNSVUOeYSItzPB2aFNp02XQG5dGqk595hpnK+6rjFymU Sq5w2x6pOXaRIT17xm4p3w+dJ+2yNennBbgj63Bf/T5uq8V1Vn3M9c9+yfHf vibyOkfffh3bz99j71uvs/9Xr7P77V/iIiH1uBBz8h2FPEUWyDn7yU/wObfd RIoS3wJE/BRiRNLCvOl/EertJAekmHa7FYXfpD56jO6kW7R419Hj38RwcCtT Ea3MR7dyL7aFu7GN3I42Mh1ZyVhIEYO+GfS7hDEptv3YQ6DW+DMjvjAm9Ymy k2vA0YkKK2eqbTwEai2tjn4CdQATbkHMqwwMXLClYdtBWrYfJGu3iug90cQe SCX1VBYFVwrk/5UIrOXcVJcz5F3GTe8WOiObxP6LaZZo2qJLp0Vob/BPo14n fuFroPSCBelbd0s5t4ukbTuJlUwSeWDH95k61M2ZGKkoMy7aEH/kCJ6STRQY j7/zOidEbnz6KzxXfMqhf/kl+//ldazPe3Bpw6ccExpOCMwnRRbJ11f5c/n7 v+XssrdMECu27yuiE0kP92bgRZiXkhFYRFZIO6URozQmzNGTeZ82v076Q3po dS1mKsTIvcQ+Hib3cj9FauXkdmYTmpmIrmEouJABnwSGXH157BlEm6U92SdP kXL8GMlHDxN/aC8Z122otvak1k5HiwKzhJpxgXlOrLlq60ETzJVrdpG6VSWJ O5bYw1lknC+i4HoZVQ7lNLmX0+1VLpQK3L6tdMa20hXXQlNwOUZ9NkaBuDYo kzqDhKaAUHIuXSZcmsTQLTsI3LKN4JN7lay6UAf9xIS0YtBuq6X12LMV7yP7 iZdIGHP4JL6rv+D4u79k78+XEPzRChwXr+LSmk8ld78uefx1jvxWiTySH95V 5FW5/ztOCcq2B1eiFXS9RVIF4cEFhFebLssZaOkjM6CG7OA+yqJu0Zx6n778 Z3RHTzAYMUKepoLb2f08SB/nceYoDzOHuZvRz1xqN5OJLQxFVTIQmCHBX0v8 nt14rV6Kz6oleK/8ArflH+Oyex0+u3fit3QjaYevSuD1o0dQHhWU28/bUrZp H0XKxONK6cS2OAnKCcRIv5t+qZRi60pqXCpp1JTT4VNGn38ZdV51TCfX0h7f QHN8PcZYI8aocirCcikPiaciKITwCxfQHt2Pz7F9GKwWgm2oiCTGRaYc+U/4 CspKPHeWeH5cQew9seV3X8fxyAEurzjClc/OEn7EipRL1nhLyDn+2UoOvvdr 9gvKBwXlQ4oIygcF5WPL3+KwIK2RyrVRsuzQywgPNg+R5ddITvAw5bHzNGc+ oa/oWwYyHjIYM8Vk0gzTjU95nDMsMsOD3FvczRlnLmuAydQOhuJqMfrGU+ri hu+a5fitXiayBL9VX+C38lPUe9fhe3w/AUs2EPDlNkJW7aT+mjvDgnDTKUuy lm+j0ITwDsrWnyNiWzxRx3JJvVxKoW051W5ix97ldPpX0eGXR45fDb2RpbTF 1XEzQ+w5s12sooWqhCpKE/Ipjooi0O48OunU/KVQDxSEv0dZQTjMZMvaw+tw lsr/6mdvcVQQPiIIH33vdY5//i7X9lpz/UwI2mthREgFHnlBS/BhDd5bbuC+ 5iIWn23hyPu/Ypdkzj0SmPcsfQurfStNgPZUNdAn8kCZfHsR6R8z2ChNnVZZ NhqjLOEuTdlf0VvyR4aLv6E/boqJ1Gn6Mh8w3/17HubP8SB/ljt5U8wK8hMZ EshDcynR+lOqdiNgzTICVyuyROQL/Fd9usi0semX6L9YT9DyLQSv2kHs2t3U nnMgZ/MJMgTovBU7KFm5k7I1h4nZHE7EkRziLxWRY1tCmXsJRp8K04aOZkOR uF0VTUUNdCSX0pnSQHtGI41p9VSnVlKdWUJmuME0f+xj2jMjYFuawVYmIqyP vWJC/Gc4rPiASwLyoXdfM8n5HUewPuWC5zkNmouBBJ8OJvOqLxlXtNKHakg7 piHlsFrKGzUxO9QEr7uETshSH1iPxbIPCDhwkFIbNZXWIlZqym+o6AhJNC0b 9r4M+MPZx2R6KYCPU5Jwn4acr7hZ9i3jtX9gMGOGsdQJbknp0lvylK9axrhX OMV8/iTTuSM0x1RRHBhNsV5PgcZBAF9O0JqlIgL42s8JPLxpESHXFcCDTh0g YOlmDCslKa3dRcSSzWRsOkHysm1kLt9B/oqdUmrvInGdipD9mUSczyfZuoBc 1yIqfcuo0edTLc1efWwVjXGKVNIQU059ShU16ZWUpBXTVNOIzuYK6ivmdR4z 6H6WC+WzAP+KqTB4A5etSzgvgO9XwN66F/vTznhf0BAsEnfek+Ct3qb99BkW 4ZRf96XooidF8rv8c2qyTqpJPeBOyKZL2Ahxdl9+QOyhQ7TZetAp+b5LpFNq 3DYBvum6iv7ghJ4XU+I/ku7eQFbAKIXxdzHmPKar7Bkjtd8w0/x7xnKnGM8a YTpvlKH+b5nOauV2SifDmb2UhaZTFBxDkb+e2LNH8BMD91+7FP91XxCwc+VC a/8lYcouQ2Xc67fh/+VWiSgin60n9IvNxCzZRtKyHWQI3rli5AWrdxK6OYDA E9mEWeSS5FpIpiaHbH0eJYJ3uUSRyugSkWLKYwoojs+nQLDOTM7hZu8QsxNj uF86hkqZjbOQFCWY65StbJYLuCsG72+1UId5ntvFqU/fFMB3c23PeQHcA8NF H+Iu6iVXBEhGD6TmeBAVNwyUuSZL4WSgxkJLpaWOkqse5JxzI+u4O1HbLuAk wKccOsygaRbSSwqTUXtPaY6G7DT02SoLoyrGQhNuvgx8VXQPmbpBcmPmqMq8 S1vJQwZqHjPZ9JRbdffpT+9nJGeAZikL54sGeCBxuzGuguLwNApDo8kN0OK/ ZzNaAV27bjH6nasIOr/7FVOn/pOFbYsyYN+NO1B9shaPT9bj/dFqDF9sJXLJ duLF0FMkhMcvU1Z3V6Pd6otOWYC0zSXCNYskXb6USwWSyPPJDc8nJyqPrOgc UqIzSUgsICTQYJ5W+pEJeFcB3u2KefnODL5WwNcq+zq1VkqS9LZSFoMv4njK FtU5L7RndRJNxHzOBJJ2QdriKyE0HQ6m2i6KSpswjEpxaSvtsG2ARA89pVZi /Fc9KTjlStTWM6bzPFPmucVFzMrXH8i9NxOOngwL9oM27kyGxj3fxbrWvMcl 1b2XzLBJilNnaCi4TVflXXrKZ+grGWe4YoLuVElQsU0MxjUwmdxASXwlhWJu ueFxRNlboZKoolq7BK+dq7/fKPqKqe+Wisv8vYK87eIV2H+wDqcP1+P24Vq0 n23C+2Opnn63FN9PRD5bgnbZLpzXXcfmRDKu11Pxd8shXJtPdEA+McF5RIXl ERqeg19whqB57oWu+xfUlRXgLIi7CuIqQVwtiGsEcbU8WyWSIG1GrG+c9I4a 3E/q0J8KIuJMGEkXosi6Jp5rFUfp4WTyJZ6UWPhS55xAu1scTdLb1rlHU+US TpldIKXXPCk/68qIrY55Z2XC0U/gvuei54emycdZZy0TTl7Sc6sZtnHlfqWx 62XEH858R4pujKzYSXKkkcwJNFIR0SABtJGWxCbJWCJJDbTE11IdU0Z6WCIJ oTGEh8bidfISgccdCDt5kYizB0yIK1gvIspa6aSjpDpQ7iLNW3VtNqzCasMm rJZt4cTbH3Hxt4u5/v4SbD5cjM3HIhJwPI8e59zv/pkLn/6CS1tPcvm4Ckvb VFw9C3DxycPT1g1XS0dc967G49RWpZP+oXkTobLBpbaiAKMilQXUiii/Gezo J9DegOelYLzPhBN4Jpbo8wmkXUsmzzqVUod0jBLT6m0DKbM20Oojtu0tjZM2 gwbvVGo9kigX4EvtA6i31jEi/fA9twAeiigzhv7KwSk3P267+XLLRcuYk+fC Arq1U9eLk13/QEVkK75XKgl1qSLFp5oC6dIrwmowSg/TGKds2a+hIbmGotgi 4kNSCZcq18/+mmkrrbJmp7O+SqSdM6EXVZL17CSd7BUNok0TqwrYkea1C5sN awTozex75w12/uaf2fLrn7Pz3V+w7wNF3sdFvPzER7/g7EdvSHp7kwsi5z+T 7wX0qyvew+vYHtRHduB6aAvO+9cS52X7N+adYnpLDVqLYEmYSWjPxBN6KZ2E Gzlk2uZR6FQgQIk3WpQz6pUv7Vs5rb4FtPjm0agTgKXxrxZgyz2TqNbEcdMj nk4JDY/cg3iqCuKZSQJ5pArgrrsfMwLo+POzcPaufDc93fmi9f6aJ9MzFNq5 kmsZgPZyBSFO1SR6VZPlX01hSA0lUSJx1RQlVJMSUYSvvTdumzbjumbF97up lSW4UDNwCsDRTs4ESwGVdsGS1JOHTJ2a8jvb9Ws4/rtfc+C9Nzj8ybscX7KU Hb/5BbvffxPHs05c27GCk5+8yYn3f7yIc5+/KcH3rHw9I7ie+uznXFzxLq5H d+J4eCt2B9bxcGz4r80b0hrKC/C55IHuWjR6i0wphQoJu5pHom0x2S7llGqk ORJzKVfV0idNUat/Ja1+ZXItocGvmFp9AVW6HEo9pfX0TKdbl0KPtMFPVAae qQ18bZIgHqsDuacOYFblJ62vjlEXiQyO7jyqrTWvpf6IO8qm8I5JwvxKifct JdmnlCRNKSMNkzyaeVr1Iv7/SJEYY4W9O00OHtyUxJpvlUicQx4BmhoifGuI DpJrcDWNvsnUW7qjXyJNzOKPRX6H595NBFourAQ8x980B2ErWSnKVrHpCBdn AUFNuoUtAZs3c+r9f2H/+29wevkSTny2lsO/eJOTy3dxbuMKDn/8C44J/Mc+ +BmnP1vA/fTnv+CkyHHB/8inwsHGz7ER/GuSErg3Pvgcf2UvgvaCr7hmIv7X 8kSLShKdjSQ6VJLlXkuJVwM1vhIT9U0MexppkRjZFlRLq6GahqAqqgNKqfIv pDWgjHbffDq8kuj2CGRc5c1XmmC+8Qg2nSp8ognivnAwp/Jn4vmpQmc1T4xG 8xLqX3Pv7sLR3djQUtPye5GhlArpImqED6NOrt7yvUq6iJg2Hk89qXi5cGmN jKHS3o16e6kvxdaHlTSsLCBJRlCywkNXP9MSx2M3PY/Eu+65aglfvhjPpZ/g uexjPOSqrMgoRx3MbbTCySKFFHH+yAV6TDQpKwRWR45IpWBD4mlrTny+gcu/ 3kLq+p2ErPuIfe//jL0f/oIjn/2KQxJrjv3uZ8KDcCF8HBU59PnP2SecHFv2 W4ab+umvqaFWHCHG4L2QOkXcL0vhIsVLQqA3DaUFf2beydhg3tagOxeA76UU 4ayICPsaUtXN5Hi3kefVQrFPM2U+jdQHddKo7qTF0ERriOS0kHrqgyWXGapo C66jO6SWjsBiOvVpdHkbGLR0MJ0E/cYkwTz1MHBfo5zBVDhTzmBKPHJVK6cf f2De3X9fKIsLKyJF2SkhUhlWTkNIBe0iXaEV3DRJGZ3KJmZ9KQ1uRXw9/bj8 5fmvCltnauw1NAttvQ46ySJ65pQFJckvj90DeCbytUoRfwmSfjwUZSp27xba PsPjy0/w/vJjdAc2vuRSzxcKTAtxtgv3ys9cDq7k2Kf/zL73fsrBxZ9w8EAU VscD0Z43SEAPwO+UFqc9Gs4v28DRL75g30c/44BwtV/8aK9cj0uOsNu5HveD O9HfuMzVQ5tMO+e+32uibClUTlOYt6V4iXhcOMb8xNgiM4fK1hRl/4/ulLLP Jw0/ixIiHI2keLSS79tNpaGXSr826kIHqDe0SB5ppyfSSHu41CNhjXSFtdAc 0kSb3HeH1UvbqgCcQZdvCF1nL3PnkovpNO9Xit8pHL54jtZdOHRT86jOuGBS f8uDO49IDFNOk5dREFlNTUQdRnFzo66GZv9a2gNr6Y+qZyypkdH4Ogakpe1V NqZ75pld9wemtwD0VzcwVNXAsMgj6aJzXuyi/8m8KuVOjbQjbfZa+h31TAjJ 81JKPHIPNGXAbyRSfytR4lvNwirXY7G8EbHKsFXL8FjxKV4rJXYK2UrLpCzN BZuX6haZVhzeMBEcal53cBKiz6z/nHO7TmN1wg3nU3q0l8KIswwnwyqEZGmp 4k7oiDmiI+KADve1l3DdsRf/E3vRH9+LjxQCmqO7ubruM06t+QjnCwcWWmaF ORH9VWmVlW0vP0dv3vii8J3qv/AmAoVk5VCK9pg/+jNp+AvJYU51JAnJeX6d lIlzVgZ00x7XL0S2SAffzbwg3B/bSl90E13hjTQLwU1hypnPBjrCy+kMzaDD 38D4znNM7jyzSDw0hD83ndi+JxzPqs0ncVU+jLiplJO45qr876gpqCNDHDTN ILFCU0WWlGFlKiHZq55mrXy8Xh6jrxMbqmU4qomJ9DaGk+oZjChhIqNuYVfV XzBU00C6rYoCyUzKRq8qGw210sRXW6qpkEa+IziBrJd5f77WZbT1pt3BlwEn P6ZcA7hjOn8v2Vlj4DuRP3goIjYg2eOJJkCyhR9le/fiu3IxmpUSo4X7P50f esVkAT/7fo3J7sQxrM8643jGBd15H0IuSIy/4E/aSgcyr/qRYxlG2XU9uRd0 ZEmbl3zUh4R9WoKOnEB3fDdex3dhv3sNJ774JceW/qtph57OvOFT2VCjzIy9 Ytpe82vTfYBiB0Kyr5CfJsQ/J937mAr9yWT8ril7iquJcq0hTaqXHJ8GaiP6 qQuupyW8gTzfanoMhfRIT9cbWy9Ei8uF1Zl+1xldT3uUuFl4Oo1+fozsOs/Y zrPMXXbmoXi2coLxjvjJtHJOXy0VjdqL6YTEPzNvqX545wEZoXmEqyVBuFST 4dpImoVE6OtpdAR00RvczWBoNyPhXYyEdTAQ0kp3QAODye0Mp9QzFJHLt/IZ j6dnaYxKoECq+kp7NQ12HrQq0zgii+i28RAT67RW0yoW0Gxh2hOV8aIB/CXT 1fWmRR6jnQ/t4vQDzv5MuQVyR8h/opYSQcqE7zyCF/FHz2D+im+kensqdnBf 4y9RS0/Wnl2oxPc1Kz9+aerE33RIVJm0euP79UX3a7bYnrLG6ZQ9huu+RFz0 I/5CIOmXDVQflTbd0mBqc6ocQ6l3D6P8ho6Cqz5iD96kH/XG/+hRHKS7OibB /vAnb3B88Vsm/v2uLRxpVJgPvq7MSYoiryu3GCwWfmU6LitmkCL5WjnOpTpi iWZ3KKpjSXhdzsVgW0isazG5/h0U+ldR7l9hOv6TJfdtOXUylK7YWl6lPbKS ptAqmiIl8sZKsRVTTGtEEq03nOgXExjcdZZbl52EegO3JTkrx+8nNWIeGi0D Kg++m53luQ0MdwwR7p5NsHMl8S4t5Gm6iZBWoVRVxlDITUaix5iMGxWzGeFW whBj8X30R3fTGdIsRV612EElwzmF0ma4SQeovCdFQ4uUV92md6R4MWznbZpV 8pIMMGJ6Y4mGXhsV3TdMby0h/UVD+JzpKjEEaw/Tae52Rz8GXALEEIJMhvDY VCuG8J1niNhBCH8QW/jG08BTsYb7HgFiCX5MuutI370DtxW/M02mKfM5PmaL 0ClzSsp2ThEfq3N43PCU2tZLupwg4qwiybCOIUt6jPwbcVSciKDZKQyjSyx1 rtHUqeNo8UmQ7KQj/7wLeWdcyTyuwXrNco5++gYnl/wC270rF6KAPFPZvKUY gHJMOeyGWIMyrfKaaT5RsQjT7jtRz/nIdk6skmrw07dw2uCL6mCcVAIZ+Fll S0CoJNOvlgzPXPJ0+RT751MTUkJzVOUiWqMrJGK3iO8bQ4upi6ygKa6Sxphc akJjaJfg3ynSvfMMN3ecFP8PZEoi/5gYwaBGR49aKuvE5B+YC/xQhzAJQQWE ODaQ7NYjxeEoDYG3qNLO0xk1z2z8GLNpd5jPmGc+c5ap9CnhfZieeMlNEor6 U6U/1/qZWp0aBw2twnaPvQ9DksLHpVa7ZdqnpWPGSZnx8mHKURorsYVhW+X9 Ma5iBzOkvRwQbil2YOVBrd3Cqm+/y3+t+j7SLLyJ5FvP0EViBCG8I2YQ/JIZ TKgk2Ll7Unv1CrFB3rgohzkEc41g7yEceAgbyiKV+poLEZ7SlHnlEm2VQJpN Cvn20oK7ZVGjyqL4TDIjqkiaPDNo9kqjxSsZo5t8r0+hxjmI0hseFF52J2jH Uc4sf4vTy97CTszAtMH9+sKpa8UEwi1NUzyLTDNsv/p+hlMxB4PZHC6v/Yid 0rztF1M4tWQZLtujUEl+8LqaRaSmlkinNBLVGaR7Z5LrmyUBIosyQy7GiGKM kUXURhVSFZ1PXUw5VbHFlEdmUGLhQt32MzSKNO84LXKcISmSBwSim2pf01Ll YGLqD8xF58O7jzDciCLYtkKKzU7S1KOU6mcl1tynL/aJGN03DGc94n7GLPfy nnEn/zEzeXcZzZ6mL32IzvhWmgIzadD6mmp106szlA1gktInJarPOPt9Pw2n 7Ne789L7hBZe6DMdFvuSKbzOREUdVZYaamy1ps0qvWIKY+aV6QdiCkqBo7yI 5feeikmEmGxBWeW+J7YwKwMdl0EqtnArPt487fuWqZNS5sHqKhfmwgpSMqSd zCc7vJ7sgEbirbLIkka9WHqRKk0htR555F3LlrIpkTIbPbUu4TT7pJuOCVep YkUiKHcJokhMNvuMHTarPjXNaqhObX9p237YC6fzFyZef/n9pKuy69Niw0ec +uIt9iiG8Mlb0gW+xcXlh3Den4CHRQV6hxwCbRIkWycRr0kmxTuFDF0K2WKP xSE5lEbkUByVTVlCPg3pNRTHFpEmWOVuPkPRltOUbjtNxfaTlIm9trn70STl vlF8pSsh9Yfm4yG1+bUEX0sgxMpIhEM/6Z63KAu8L2HnGf1Jv2c84zvaYx5z q+wZj/Juc7fkG2aLnzBeeIf+nAm60rqpC0ih3tcXowSCVqWOFwMYl5puRtL6 baHvnmvAItP84J+bXux0x1XPtIv0dM5iBxI/Rkyb1KZJfbEFfI1yCykibaTV lU/rkk8algJhWqVUOMFS7YRIHxNieo3EMzGAZ5IXHpl2lARI9NMzppZw5K7h Xn3d8/nQZP9EMkOqyAmTSjt8iEy3WrKcSslzLqDENY9qjwJybuQzqsmlwSOJ Nl06bX7ZNPtlUOWTSYU2mVLPKApdA8m77ozh2AmubF5K4GUXAg9eJ87ChuhD +xcm2q1fnPr9pen++RsafM5s58wSiR0iF1d/yI7f/IQ97/2EfR/+BIuNLrid LcTlYop0j/H42cYT4hxPpCqBWM8EErTxJPjFkxmeQZri8KlSNaQaqYvIoums A3n7rxK76SSJW06Ssu04uedtKHAVb2xo5cns/A+fn8+4c5/M4BwMFxMJtWgk 0nGYNO95yoIf0Rz7jL7UbxhMfSI5Y47m1DvcqX/GQGwbTbGdtCT20pTcQ0Ni I/WhaVT6eArvPnTY+zLo6M+kcwDzAtE9MUNlJvOJIt/PYipvMdIz7iou6rSw 9+1xjfEl3l9loryRSktv09aUNrGifukMxuVTZtQL3Cvv9HloEoNUvEGmN1PN SaabkEw3KBVvl/Q5f276rBWkB+SQFdxETmg/FZGTlPj3kixlV45LKWWaMtOq dLO+ggGPcrqCyuk2lErDUkxLUBENQQVU6dOpMWRT7B1NroMnGdeu4Xpy+8L5 HHFgT6urBLs4k2TrSNQ1N5IuWZNx9TLh+3b8F+kiFuve48h7f8+ht1/l2Ds/ 5tInb7PtrVfZ8qs3pTq14uhHn3B1h5t0Kok4C/EeNvHonBIIEOIDveIJ1MVj CEgmPb5KpIZJ31jT+7AeSLk3LzY/9cLblqTc+wsz0UPt/TL8MuJcKgi93CgO PkKKz21KQh/SGP+EnvRntCdOURvcTH1UCzWJPcx2fEtLXKsklmbKo2spDs2l PCiGEmVj1jXp5xz8GBKSb0n8u+0mFLgbTE2b8toyZXpVeYHafSF7TuLNhJsv oy7Pp/XqUl+cLv0RbeZ3f9Q56OkQBx8QoseE6FsqpXE1LDK9fuSHpndbKe9v Gtf40q/xoVPlye9n535opvjB/F0y/UvJCuogL2SEQoOM0b2OTGllc1U1lHtL SyttbEugdDBeVXSH1nFTeR9feDUtUm3XS41VFZRLiT6VQl0cOWKguY6OpvOO z2l+fjro+0lZES8Hod3NmQQ7NekXhHZ7e7QrPufiO29w5LevcunjN9n9q4+5 8eYHnPzgU86u/YS9v36VA2ICRz/9hNN7HLl8OR5L63jsHOOxd4vHVhWPxt6f Wr907immLnJPs9DUzZghGJZi7lZi0l+aKR5uH5GhG0n2aiHkrMRwuyESfeYo CLlHZeQMZaE9lIW0SA1RSJGhmIqwYmpSW5m5+YTa2GrK46splvBR4B+CatUW 0o9co0P8eMg5kFuuUom7B5u2OCpvpnsm6igzuE9Epeczt5Pu5jexuSrvQKtP fXGJ578LwGmU2kpmEIrbhOIeoXhQEsGIu1AtRjImVeqodKuDYr/d0rG2qLz5 ZnZuwX1/zkBTL5n6KrICesgPnSTSoZpUTRMFvtIxeTdTpm3CGNBCs6GFUa2R 7ogWbkY10RHZJNVLHfURFVSFFlEiVUqOTxx5PiGU+mhN3OqvH/t+ctd07sj6 +9nBhbMU/4xq+2IcVr2Pw5H9aA/sk2DuxfUVezny9n7iJa02XziIZvVv2PGv r7JLaN3zm1fZ/fbfsucdub77GjtFLn7+L6hWfoq79KuKYStRbFatXAVfU42u lxpdKzW6yap5zutIm3ISvEm4HSLiSouUlH3EekySHTRLvEeNwGIkw6+CVG0W ecGSwsIKpAaUliGridnBp5QkllAQmUKMjRPOHyzH9dM1lF9yYVDcdkrcVuH1 gTpEeA0xve/vmYiJV415ZtD9hXfb1T/n9flJgobQdPJtfKmQYNDg5E+biz+d rv50S4TvEumQQqNJ5Uu1uw9fzc7/yMxnf0MPmdoasvz6iNN0EOlsJNWzlQJ9 N1XBfTSE9VIb2EJTSCudumbpRuQqcakjppXm6HrqoqqpVDZgG3IoC5PaJyiO Ej9f0wyrr8XCrqygF2d8Fzhd2GX4CoEXduG06j2sl70tqfmYsPRjjio7rd7+ kiPrnfC7opX/osf7sh+eJ7XSnqm4vGwzJz74kutv/RUWS36L88rfYbvsPW58 /htOv/sG/hu3E7xpO+kHjlNx3sJkyT1iye3ipr+fm/8r08h/xnCL0OnbIpSO kuI1QtC5DsJdRglwqiXMrVRctpxE3yLifdLICMohT0ZXGJlNUWwmZfkNjA0+ IMk/Er/ffIrLR1+i+WItUduOSsMcxKTQOS903hMqH4ksEiJNk4CmCPJ8otf8 ckB3Dx7X1z2vtTaYJ/Ee3ZqnNiKDbMniRdJ/lUvZXiFlWpkE8ALJ1uP1LSwM 5Q0yPatlKP3oLcukMK2X4bSR798pjnaTpugeuuJ7aY/tkBaxhbboJhG5xjfR EFNPQ1w9xrha6iSHVcYUUhgUTVGgzjRN7qOcEBYCAywXttUFL2xefMU0hfuG EPcuTqvfF/J+wxEh7YiyCffzd3A4dA3Lc4FSL0WRaOFH1DlPoo+riTrjT8wJ LTEHPAgVcnVLtgjZ/8TRd3/MiXd/wvF3fmJ6zZrP2nXo1q1Ft3Yt2rVriD9x iq/n5p+fZR1uGiPLZ4G43Mg75AbdRnehA9dLhWjtCglVFRLlnU+YVwrxARmk /F++3jq8ziw79/w9VUnmmTt3ksnMnaQ7zel0V1dXlRllkGyZLckkk8wgWxZY FjMzMzMzMzOTbckgWbLMVNhV3Unnzvwx6/vOkcrVnWf+WHVkWWWd8613r/W+ a++1tqyMgmQxcVxuRiUpqTU0bT3B/7NuI+6rt+G9SZ9wXQPKzlvxQBy3II57 Kk576a2ZHKeo3dfiuOc+Soz4fo7ijJrZF/Leb0/8kLG2Pl4sPNGW3DXv+OnT zxkenGVC7Hb/LHf6ZpnqnuXlwufqT+R7NlEcNCHPuo541w6y/XspDx+gMW6Q rpRhhjJHGM8TqZ/Qwe38CR5WzjBdMspk8QgjhYP05fbSkS3+y6ykLildnowv Puaa3mXlaGSYcjTy+2r8B2rp/WcEnN6FsxJMhfM671ilHiS9Is/b4aIbvqbe RIlFnvKh7LgvxZd9KLnkTelFsQve5JxyJ+u4B0mH3AjQvcjZFT+SHPtPnP7d P+GyZRse28S2b8Nt+xb8jA0IMjtLfkSAdsDDT3ijHNfz6RbYzlCa9JT6nLfE u+ViezIRpxtV+Igjw8WRUX6lJESWk5ZUQ5Joq7jkSiIDE7DSOUrN5nP8p9FJ PFZvxW/7fkJ3HCTj8DmmJUnOqpPuFEfGyOp7Lu77O/mvrEofJch/P3pywtNL q3YPqy97eP7sHVUVA2TE1FEiVhNVR6OygaoM8gqoo9a7jr60QdpTR0m2biTE soYYl1Yy/US5hndTF9crC6+T7uQuBtK7KQip4X55HxO53dwuHmCiSCJogWTI vG7ac5tpyi6nPi2N3MhAvMw0e1T+VhrHKSXUCG0pPUp7ttVPvOaguwJ78ZrD jtWYGR3H8aIT/te8RT74kn4tgHzTIKr3+1F/QwKGuSQFyyAaLAOoveFD8SUX 8i96knPanQhRpVe2/grrvRvwFC95HxdPXTymKZsrbEspnd84qww61BDYz2it r6RNawVuItgCb1MSv0hN9ituHDTm5iFjbI6bY3/Jl1t2FTi6leMeUIlbcIUI aHfcRPg6rN6Nq84x/FbvInSdHr6/2UTgWn0Ct+wjTN+ACXU2oDI5UZkPKCvS 668ztDqp01uZ1LmodrdPt8qjtvOizNaLCht5tfbioWa8tbbo8CF9su6UWWGD XQ9J0nj9kPaghrJHmhZXo26/1Il1xNfRH1vPSGwdY4opY48ECX2CghqHSqIv VhJsVkGEYwMp3s0SchspCRR0hNeLPGmkO76J9iwJtYUdkiubJPw2MCRLdLBA kFHQRkt+Aw05RVSkJNDXWElGeIC6m+z9Xsk0ROlpUw4f/kg9emiz/RNsxPG3 9FZhv38n7lecZZn6Enk9mNTrERRcj6bCPI6qowm02iTQbh9Pp2OcWAwN1oHU WvpRYeZJ6XVvis65iPPP4XfRUCmHak63/p2mVn5zeU6hWivvr6vUxLFNtDdU 4ixxxU3Z+lbO6ykmP2J96DDnN+/H3yyBivQnmO0/gpXhUWwPH8Pp2DE8TogZ GeB7xAhv/d14bdbF8dPt+G01IHrDJuLXbyRpvQ7pG3cQ//F2YsUiVujRr/BT N2X8YKRE2yhVitwX5XpPMHDXO4wJWcSjEonb3b1FLGVRIcS/wcFHPrkP3Xa+ 9Nn60mvjo04jz7QKJsAuhTRxYr4s51JxZLk4rFSWc3f6IO/mP4/XQMJIe5Lo 1fO3ZAmHU0bHNSYpxX5lbFwnd1K7uJfRxcOsDh5mt/Egs5np1AbG4+oouFGE //kSQm5Vq6chU9zKyPetEHpcTUNkjVCqOnqy++lLqmUguZb+5Bq6U6ok+1bT kifQy6+iIjuXZD9nDWg/oqNOFo+ZZhSOj/jEX/wTIAE98JZ6QBLL7Z9iobsS c93V+F1zIc0+iWDTCBKuxZNjlkyZRTr1NpmS3vK565RIr3s2/Z6Z9Lil0OoU Q7NyTM9WSIVtEGU3fCmRWJJseVUtjcZriudqBTVOO/dTwUakFhuaHce/Y2Hu PunRAZrpNN/vsX9AkCBkLUHyo1b6hlzdJqZnxAXdnVgcPCy4OYLD0SO4Hhfb swefzdtx37AZ+8/0CNLZQ9zGzSSLZWzcRPamjZTo6VG4ZRcZn20nTfBTffAS PerExwhGRceMi44ZV/iuYGNAsnSvdxDN7j5UOXpS5+itHSHvqxkhb6+Mjvej 0zaADJtICa9xpNyKE9GYKuJTAoAyij5MvBVSR6fgpE2ZX5fUT5wGJIbaOubL Z6/IiS2hKLFJyH63gGSQ8bQRZrLHmcsfZ7F4nKelYzwrG5HXARaKunmQ08rt lHq8DMLxulCIn3kBMQ6FZHjIv+NfKty7nJp4pZeknvb4CjoTyulMKqMtpZTa lCLKhMyU5JbKEw9X+bVmJ+lv1OXpIk/eTbzjqSxqL2vl6OyVrZ8SdcqEqMvW JNnEkGGXS7ZtCSnXsiiwEIltU0izUzG1t8oYcyhlUFLusH+JqIUsOj3TafNI psEtnmq3WErtQ2l1jqPE0k4Fx4dqYf0fNLX0W99vrSgAGWjQHG9cGlvkZamZ QfPe3ryaYD5QRyCsVb++rnMAi32mHPztL7iktwMLQyNsJGo4GR/CRyKE50Yd bFfsIkAiRezGLaRs2krW5m0UCOWoFOpSpb+DGqGP5bp7yFurR7XuMUHJBZpc wmgTRdQhiqjdI0xUUCgjWYXMtUvCdnSn0dGLDkef5ZH/047KyP9ABh1Ef9hE kyyxNNs+QbJLEnXWKbQ55TAa38ZEYhuTiS1MJDQyqgzKDK1lOrNXe/HCMkqa S5spkoxSmahMN5xkOH2a6dz7PCp5yNMKIYI1D3lT94C39fd4XXeXZzUTzFcM cU+yRZyxEc4HQ3G7UECAVQGxjoWkewqV9S8XOdlMdUQxddHFor7kNamI6uRC igUhWQl5xHr5qNyhOD5Ae4DuEo/EHcpX881dtNj4kWEVQPKtNIFFGSX2jVQ7 tFBkXU6tUxWtHjX0+ArwrSsYCZZXCWN9/sV0+xfQJvS6wSeDat80GgIyaPRK pM0lEN9zRtzcq4etYrv1sNHXw9/EiNCrx5dzy2CjBhpLM5t8tdOsQiw027hL 2/jR2u3cKGV00YUT3Np/mP2//ikGv/kpF3fs4NKO7dz41S/x+ehjLD/Rx2vT TiI2biNh03YydHTJ3yYQ2L2buj27adizS2w39XsOUrFrH2NmDvSevs5QUh73 Oga4LzbT2S/MVEPeh5PTaVZnhfgyoJx5cgxiximYWecQFlxCKbMPJ8MhgRyH NCrsc2i0K6DToYg+WUqTES2yykd4mDMkr/3MZHZxJ6WVyahqXvTMEPNDeBRE FatTE2sTJulOfch47mMelD7lSfVzXjU8513zc75seyb2hLdtC7xoecjjhmnu FvZQYu2M6y5dbh3wx1mCia9lEZGORSQEtQglLSIvpIjCyCKKYosoiC8iO6GI ZFFEIS5eeOh+SuDVQzx9dF9b5fiYucZOWqx9STAPF3qbR7pNLaWOHTR7DNDh M0CLdwdtPi30BLbR7yQZMaKNkfBGIUbVdIVW0BZcSku4BCwhU03hhVR5xFHn Fkix+VVcDujhvl8Pj3166qxt1116OO3Uw+3AXoIvHVdd/19Oq9Lu7CvwUSKM Zmv/n5ejjanuZg4ILI6s/Jh9H/0Ot48+xfn3m3BdswH/tZsJXb2ZmNUbSFq1 hsy1a8hbt4ZCsTKdjVTrbaVpnyGtxibqlRrKFtjjxLTl7fnZ1jZJke5qn36X wGDEMZhp51C1Y/axaPJOhxCy7WLJdcihVKJnowiXTuc6BjwaGPNpYMq/gcel 91ksm5HXO7LkJ5gpGGJamS4ZU8o3T18RrYGDgRYOr5++pCiygeLYEeoTH9Cb 9YRa+3pmqz/nWeOXvG39kq86v+QP3V/wdc87Pu95zauuZzwRaEwV9NIbmk/g 0f3c3Loe252HsT8Viv3NGgJ96giTyBHtX0RssFhYERHhRYS7BBN83BDPnSvV 1v/oUwe1Ou1jdcsnwSyOZKsSMqybKXUSdeMzSn/IbSaj78lHmGYqdlIo2BAL cc0MR3cyGNXGQHQr/TEt9KW00xxdTXVIIdV+KdR4BQus/Cm9fBIfgYOvYgIJ HzHPvRpIOEuaDxA4+PzlCK73YBCr7Q1S2ImmX+ifNQxFy2BPrf6V6Nlfc/33 n+L2+zW4rliH+8o1eK5YT8iKNcStXkfa2vXkrFtPwYb1lGxcT9nGdWIbKd6w hcHLFprdMGcfZhzdluEwkpi6fAtAr0SEcadQ7gkFWXCN4Jl7JNV2oeTaZZBv X0GVQyNtzu30e3Ux6t/D7ZBe7oX30O9fyULmIM9qF1iomeV+hWSDIoFEZgNv xu78JRzu9t0RRd9BafRtGlIWSLDrp8S2jMmUpzwv/5LnGff5uu/f+XbgT/xh 8Du+GPyGV/2f86TnuXpQpTe6nGr5KLY7NmKjs5Zb8lFdj13n1taDOBmZ43nU HJ9j5vjtOED4ulXE6K/Df/daXHeuwlFvBS3Xr2nh8CNGG3uFWCaTaF5B+q02 SlwHafSfpDd8hok4+SjJ88ynP2Yybo7nydM8z51lKnGI8cQ+hlJ66Ehsp1Hk VG1EKTUhmdQGhJNqeh4/M3/izp78gECjXfw9AYb6+BrswOvgDtwkWJhvWY/H heOaopTFe3PC3tvhV4fAJ2j6l25pqetFE7JMb+J/4hRnNn6E84bVuK7cjPPK TTh+tg7vz9YQtmo98RIn0tdtIHfDRooEAKXCNcs2b6Bi81bKt+6gdu8hGo+e 0UyHUM6jS0z4UAuIZu1FDK0OgcItQ5hwDueBgGHRPUrdccuxjibXtpgC+yZq Hbvp8BxkOGCUybBxpqPGeRg3TqWkjGdFA7xsfs1i03Me1s8zXXWb6ZJubmfl /RUgemcoDukRQMzQkP6UvqLPmar+lrnmf2em9X+y2PP/8k33/+Rpw2u+annD H3u/4E3FbZ70v2YorZ3ehGp6ozIpv2mD1ZrVmK3Rx2O9SPDPVhMtayNJ1kma WMaK1aSvXEXiZysJWvkZzjqrabewYsbZXQuI3/F68QXJ5jnEX6+Sdd1Bofsw dQG36Y64LwRpToTRPHOZCzzOXWAmckA+5jyTycOMpQ0zmD1CW1IHjaKVa6Mr qI3MpS40mlSzSwQc2keinTeJ540JPrKPoCN7CTgsEuHQLjwNRT5s34C13nY8 LxiriFCO/fxgn//98x4/Jv2iKbmWzhR7uWqG8cuPXhUd7fq7jwnavBOPTzfi 8PsNeK3cItliA3HrNpIuyjRv02YKN2+mRGcTNVu2U7d9F60HjlIvCleZJNh9 0Wz5hPwSIlpsNfdhKPMS+hzDmHSJUK/mWPSIlswRRu7NFHJvVVFk20Gd6xBd flOMhEkYjb7PvYT7tIYvMFf7Je86vuNV5zc8aX/HbMszpusfMF0zzHRpxV8i 4k7XDEUBfZREKd3GL+gt+ZLJ2m8lef2J593/zrv+P/PV8J/5w9if+Ubs+cSf eX333/ly7AteD97jWcMAi0WVRO82IPnXIthWbcTrkxVECCKSBQlZK9eSv1qx 1WSvWinoWEHmmvU0bD/KmIWjPAIPNA04OynybSLJsolE606y3UeoCrxNW+QM g/LRpoTc3MueZTZ/ltvxt1kofshU1ihjopS6JDy0JXfRmNBCbXw1tXF51EUI 9Ta/jNt+XewlLKVYW+Os/ynnV/+Eazq/5ebO1djt0+GG3mbsJHM4HtT/wbDG GK0sUU59xF06Tdq1mxQJ8cnysFje/Y/T3s2gIMfz0xW4fLwGt0824i9Q8F6p Q+jaLcSu20SqCNGszToU6WylaosejSIxegyO03bwGA0HjlC5z0gdeTgqq+pd R/tyfLBxJ+yECZEnzpF46hI5p69SfOYafZYu9IjkzrXIIteqniK7Xuo85DEE TTMSqTyeR/SFz9Ga/x3Pq9/xrufPvOr5E0+6v2a24zXTLRIjmiWG1NQtocFQ W7go8hFaGHmf2ozndJe8Y7zuKx60fcPTnm/F25IgRr7jq/Hv+HriOz4f/5ZX o8r0w3eyHpU5BnXkXbcmattRylfqM7h+BwP7zlK6eQ/1W2VNrlgl3l9Fl94+ WmQx3DlwmpF9J+jZbUyL7mFm3Dz+d21oyHevozhgXBjoDNm+kxT7T9AQIaEh 4S7DadNMZs9wN3+G7rgBZitmBKivGczqpzNFhElyp8jpFmqSBAgiZCojQjHd /DHn1/yU8yv/hfOf/A9hXf44bvs3zsn3TAQQ5zd8xImVvxFA6AsYtuF76dgP tosTzl8VMDmTLzEgUamCK8cBfvQ9Dmw0P6bsPgYZ7CJo4048V27Fe4UOEatF U6zdSer67WSJtijarEed7l669x9lwPAEvYbHaTcwpuHgUSoPHKJ8/0Eajxvz uqP9A+2png5Rwxc3fsrVTSsx2yjBa5MOTpu34Clw8hP1GqC3V95hguChSXLF ALXeU3SG3BdCpWTQOcrT/8hs1qyQhje86fsPXvUJFnr/wGz3O6Y7HzPdMcXd xvq/gEKu0I9iiS2VaU9oL37JiPzf062fsyDU8fnAl7we+Yp3Y18JDL7i7diX vBiVvxt6w0jZgLD3NNKMjpO6/Qj5Gw3p0TvG+P6LzBy8xJzBZR4bXeaJ0SWx iywYXeCh4TluHzzN0P4T9O0+Qvehkx9qt0HUDZCBWcb6ZxnvldfuWe3myEfc aZ+nyHuE4qiHVKY/o7XwFS0Zc/QVzDNWtsCd6sci01/RX3KXu6W18pa/pD+7 j/bkNprE6lKaqUmppDIhnWjb65xZ/TOBxM84u1I04mf/zIVtW2V9u3B27c84 LVCx2bND4PIRh3/7Yyx01+NlcpCgc6eJvHyTdGF2KW4WyzMWP1DRsV7drEzQ 7l6+Pxzupvw74Tp7Cd9mQNyOQ8Rv2Ufm9gPk6RpTo3+YToOT9BhqxuP0CU56 FJxoZ9lVqhMHD1C6f9dymSRDW0OzP7ob842rsZIUZCdAcdPZgq+AJGjrNkK3 bcdtpwf+h9PJdxikSoDSHjrNYMw9SsIW6a98zgNZWs/aPufVwLe8HPgDi/1f 8bDvLdN9i0z3TjI/NvTDoPEJr+e/psDvNqVJj2jKX6Sv6hmTzS+53/mKhb7X PBVUvBh5w8tR5fU1T0ZeMjfyTBjhKAWm1mTvPU7J7tM07T3HgKDk9sHLzBpe EZRc5dnhq7xQ7MgVnh6+xKNDF5g2OsuowSn52WOMnr2qzkQbHZ4lIbqObLHi yDoqw+tEOIgF1lEh4qU7Y5B3C59rM+1H5LkMUBR6j7LkBRryntBd/pyRupfc bnkt7/s1j3rfsDjwhjvdC+r7Hyu9TXt6p0CmkcrUOkqTi8iJjOT67o2YrPq5 QOfnnP7sX7i06l+4sO7nXNkty97mFjdWrSNUQv71bes58rt/wWLDTgKuOqnt fxH/1Qa3Ch3l6MI6DWQ0UzKWh9Vd37OK0E27iRAGHq1nRPquIxTtNaZ6/3Fa Dl1RYdMpkOlSxx+eoMvw+7l6lYaGlB/cT87RA2qFzfO9yprn+cPcXL8GG4GN g6Qqjy1b8Nu2jZDt2wjX3Ya3nqXo7lj8z5ZQ5jVGc8gklYGT5GR/w2TGFDPF 93nS9xXP+r8Uk0jQ/5YHgy+ZHprnbv8orx4/in6/Rv4JTamz6kTEisw52krn Gah7zIQyN73rKbN9T3k08Iz5QXkdfsKDkcfcGXlEV3kzaQdPkq1/gtLdZ2je e57BA5e4Y3CFuUOmPDlsKkgx5dVRxQQ9gpr5I5eYOXyecSMT+g8eZ+iiuXCo ILLi6ygTq4+roy1GEKJs0UTU0S/I6RPkdAVqbh4ZThnQ7gJtEqR/Q57PHQpj JeBkPaKleIHe6kVGGp8y1fZM3vszHvY+Y67/mfr++4vH6S27o/boFqVWkh6d gr+dNUdX/IITq34hQUVeV/xE00C4x4BLwgsvHvbCyTiIgFOBJBheJ+h0IKb6 mziz5ucEW32/I6sOq3kPOfHaxsU427N/NTXP+qgugfqi0XT2E6VrSLIEmNw9 RynbJ8HmgCBHnl+LwYkPaBO4/KsAxphGw6PUGEo+MjSgxGAf8abHcTlvqNbc fN4rsDjpb8FWhI+jzmbctwlodLcSoieg2SHg2WGEu34UHsaZQpvrSLKoIitq lt6sCVETI9xrEvf2vmZegsR8/0tmh+QRjixyd/gBYz39Me/vs31CY84TckQo VuTM0lIu/0rdHCMtc0x0zHG7+xG3++aYGppTQ0Hv4ENJ/lmUnTYja8cpSnad pXnfRQYOXuG2oSmzh67x5Mh1Xhy9zqtjil3j2bGrPDp6mekjFxg7dIZOAUzt 0StUXrKlOrGO1oQGeuMbGRbNMZHQxG0RyHeSGuW1gUkB0oiEnv7gOqYy+7WA +Y1ag8kJfkB+0ixVImibS+fornnEUKNkqNZ5pjrnJcTIEumbp7V4iOaycerK pyjIbiXEM5g9n/yCgwKWwyt/ydHVv+Tc7v3cvOiJy1VfQq+HSAYKJ+FKNPlm 0RRdCyXkkAd+e1ywWL8XG3F6yNJ0o/eOYWgm7qxdDitLzTW2J3TxNddctRS4 YS9hkplixIPx8pq85QDpmyV0CGtvMLhA5a5DYkbUCkoqjQ5TYmRIgaH8jLEB fpcNuSW/WwkrSw1WS5VZ243rcdiyCddtOvjobiFwx1ZCd24jQn8bnroOuB1O xf1sFjGWtTS7N9AV3kZX1ghT7U+ZlsAw0/uE6YHH3B5+xPjILCOD03zz9TdL VdHDWqjU5D4hTaBSJFCpKRW41M7S2TxLd4dYzywdfbM09D6kb3JB078mcrHA 4CpF+udo2HeJXoHJpMDkweHrPBaYPDtqxguByQvjaywaX+XhscvcPnqRfrH6 42Y0HL9Gg3zdlthBf1I348m93E3v475w0tmcPh7l9oh1MZvdzr2MZqaS6xmL rGU6p0cLlV9TmzxHeuhDcpJnKROo1Mv7bqtW5o7O0t8yy2CnZge6omCA0qIx CkqmCPCOxUJimo3RSZwPn8JaSIH7FTc8rgcSejOCBLE08xBiL0eRdSaMBrs4 Kq3CyT3vR+JRF2IO2hGz35Mw02vLvXcRat+VkmvWqZB5HyKh2jl3StXX94b2 Vq5zJ3D5bCduq/TxX7ebyI17SNy0l3SdfeTqHab2gDHZW/eSuXUPOfsNyJKA knzcSCXLlvtWqTB9vziz1H4Rcukw7nt34CRQcddVLs8TuCj3HEpGyjE+Q/j5 NFyvFONlVkS6cw1ZvrWURbVSE99KQ4pYZqsst25aG0bolnDw9TffabdWjmh5 9fOnf2J0/AsShRtny9MulKdd1DhLftMsTcOLvP7yj+pPPmoWhNgqTQyBlB+6 Qc3eS3QcvMqI4TWmD11n7ogZj4+Z8UQQsmgsfzY2Zdr4CnfOW9B28sYHNJ20 4B9olm/3JY8wnjbOTNakKNkpUbFTPCmd4lnZhNgYT0uHmS/q40FehwBIua6s kmc908sgebH4R6pLn5EiIMkTkJTJ266pEbBoR542CEhyikblI40S4V+J6d6j WoCIk46cxFPZ+LcMJsQ8gFTbOPJt4iV2RJJvkUrJUX8GbT2ps46g9mYo5Tf8 BDT2JB++TK4kofBrpprmPO08qQ/UowVrl+dLKsBQRvT1Nmt2aHzMzuJ6wZgL +rqYbtfFdt0OXFbr4ysgCduwhxgBSYIw4MTd50nTNyRm627Ct+zEf8dODfDE Lur8Ss06/hbv1XGXajXa6l3AyYM46m7GSxhuhskVSmydiD13DLcd67i59Sxu F0oJdWwi2beFnDBJxLEtQlXF0lsolMScI895NKOCr2YfL48Weq6MipA8EieE IF0IQa7E9Xz/OtqzB5lpnw3WAOmMtoaiAsRGuRMyiF7lcKyVD50nrYWzm0om uc5dAcgDCSEPBRwPJITMXbzFM2XQuZU77acsaTplTYv8fLOEkuH0GcqtS7gb 38ti+RzPq+Z4JR5+U/uQ13X3eVl7lyfVk8yVjzBT2MN0ej3jUYXaKvNHPHv+ J4YnvsArop/AhAFC0wbwliURliSEzzWS+JtFBFyLxXTPEcwPHBNkGON+yU6e cCAhEhpib4STbZ1EqXUqxdaFNDpl03w2kjbnNNpdUmhzSaDFKZp6+3Dyr7pQ ZhZI4Vkf9dxRoHb4ktKsp8xeWhrY6KcZC6t9uptJ8vPgwo7tXNolxFg01c19 O7DbuRP7jbtwWr8bTwkhfjpiW3YTdNCE2GNGeO7WxWOPHp6Gu9VwdF6QoYQN BRnB2rDxl1W80BNCE+2cKHV3JOzmZYLPHMTv1F6ct64QkvsZTltXk22Xga9z M2F+LcQIOuKiW8gPK6MhMEO9XmjUxouhmx7K3fDUVPSTIpk+VyhjuXL3vFDG lnDN8Ar1ojoRGo3OtXz56HMC34fIv/LF3ALNt7zVa0O7BSJjruHcc4/ksWc0 M9fdmbvhwYK5B4sWHmoT1JdqD0wUI5ftBCK3aDptR+spG7pc8xnPeUyaVTXj IYM8r3nOa2Wfr+k5X7Q8413LE163zPOs6SHzddPcrxxjukC55K6MZ0OTH2oR q+z3u8qTWzp1oeR95Y5IfyWoy7q9KB4wWa/Lua363Nh3BLtjyve9CbKIIMoq iVTzZIqscyiwLKbetZQ2t0J6rqXQ61NAr2++WDbdPhl0+2XQ6pVEs2cyVVYB xJlZ4aUdGPWB2sX34fLQqMeCkA+1Z/xKUvK5uEOPK7t2YrZnF7f27sFh/17c Du7Dy3AfN3VXc23Tbzi36secX/ljMm29sNn8Kyy3fYatrHufMwbcOqaradY2 fw8h2jPiiecukHXTmUJ/V61S/9nyjathJvtw1V0lthqPresYcvRX7xRQNvYf OAUxqwwecVI6IQN46PT9zK8aER45whOLxGrj62mLbaQ3pokhsdHYJsaUmRnR 9QwKYvp9a/jm8Ts0swQ4q3VLg5WXZJoAOh1DGHYJZ1oQ8kgQ8kxtl4tRu6Q+ 943hC+30jlc+kXSftKJN0NF02p7m07Z0Rw6o4yEfVLzlYfHnPI0f5V3rF3zZ /gVfd77ji643vBVl/rz9GQstj3hQf5fp8kFBST2vp25rF+n/slxQ8NYusiDt 2QvlFpAP1K74H+F97iSnV27C4Lf/xkW93bidu0nADUkvFknEWeaQZZFP8a1K qjzaaHIppsU1j+FbeQwGVzEUUsFgSClD4WXqPZftQXmMZ7Qyndko309XWvw+ VPr7/lbb8nV7WHRXfAU2xhe5snMPZrv3Yb33AA4HDmIjweGk6CiTlaKjVv1E LfJekNdzW3VESzvIe/wxp1b8M6YbP8bRxFCFhQJ3JaV4njUmxdyK7FuOpCsF nPeuLPlA/epn6vd8dqzGTU8gobeWuIMHBRJB3NNu6j9WBpq4hvDUVbnQIFj+ HMhDZ3/xizl1RpcoP2dPXWIbHQndDCb0qbcq3pHAPJMxwL3MPuGE3dxJbWNK uRcyuIJvFt9oA/rfaa/m6SZXAlFHfBb3m7t5N7fo+j5yfq/ts/Jf7rnVjACO VM8/KgdZX/q812flE6X21ikpSkFNvWLmkfTnvWay7Ese1vyBp43f0Rr1Na8L H/N1zx/5pvdbvur7hre9X/Ki+w2PO5/ysPkh07XjTFe0MdequewmU1CzfFpn 6ViGheaqEhEAmuGjP1K1gLneLgx/+1uMfv8RXpdc8b8eS8iNLKKv5pBtWUqB YydNno1U2mbS4JTFkE0WI5HNjEY1atZSfAP9sTV0RpZzr2KC6cJuAU8lL0cn NQdW/jfyo3IplmdaKonQ8bgF13cZYLXPiFNrP+bYZz/F+JMfc/KTf+bsqp+K r8+v/il/zznR4tf36JBhe4Wj8nfm61Zx9Pc/wUlw42NyisjLVqS4+RArWFlq N4mzOfs3qvj+GRFnJErprRJbi6feeopMRFFKwJ9zCROIhPPMLZwXYi/dlQsV QnnqFsK0uLZBlGiDyI1Go6u0JYwwkDTBRPptZnLu8jB/mvnCaWGLd4QdTvKw YES5iZe7yQ08KmvXLtn/RkdyJqUO3tTY+9As1m7nS6d6uZAPbdaSfKw8+Wru sbMGOufUF30GYnJpsA2iQ4LOkLZFT+nRnVM6t8SeeCsWqXYeKK1bTQKb6lN2 lJ+ypyFimP7Cd0xVfsNswx952vofvOn8TyYL/sQfOr7lD4N/5qvBP/F28A+8 6P+Cxz0vedg+z3TTbabrupkoylVHHnlb/LCqEK49xaMOZNAMZVBfl071GP3m F1zetgc3Ezf8TFPwPp9O9MVcUq07qfBsp9mvkyqnQho8ipj0qJT428NkYg9T Kd2MpXTK021VJwPfq5uR4Dcs2Gni7e272lbDn/L66QuKtBeSlsZN0pDwEHf5 zKc3buTg73/G4U9/xpFPfoLxR/8Dk9U/VyvHZ9b+DJO1P8Vk61qsz9zAfItw 0JO+uB33wu2YH1GWYYLx68u9Le8Vcf5Grdr8Hj+jLbjuWCO2TuLMBlrNnDVH BGQ1P5Vc8FJW9GvlhgfPCN54RPDcI4z+88IOjC1pPHqTlsOWdNlnCZ2dYzpv gdniRR6XL/K0cpHn1Qs8ETI5X3mfeyI5pvN6mU6r4HHvIBUOkr4cvZcHgChz XEfFxgRAE2Jjtt7qpUiD1p7cjk530gDovJZyKrdo19m93xcWzl15d/c8lV5P Ma/v+8LKjt+k4LgdZQF9NGe9pK/4Syarv+Nh07/ztP3PvO5WLg78T57WfMt3 3V/w1fB/8Hb4j7wY/JrHfW942LnIdPs00829NKXFasjLXxQaIrWAiVUPOMap JxmVwx32h3W5oS+gOemDx9lEvEyyib1WRq5tLZWuDTQGDdAa3KvOQht0q6E/ soOh6Hb1QMpAUqd6IGWydJL7og+nayXgVHYykZetBc3PuDswQXFkPcUxQ5TF 3qMp6TFlId2YbNZh78c/58CnP+ewUsz5+EccF9CcXCPA2b6OCwdOcNPEHhuT YEIvR5BhFkGBWRChxu6EG3sTfTqUCBNPwgU86pH+pWKOjZKhlDLOp2q1z10y lLMgx3nHBiINDy2fJ3gsyHkuC/q10twp9s4rSr0j5IX4plOiYvNxGxqP2dN6 zJZeydIZ1k2UmmawUPmWp7XveNnwlteNb3je+JKF+ifcr5G4XyZxv7CFVlcJ XY5e2vFeghohS1MOAerokHtCmu47BqgDRJShtLftvJi85cGLxg5HDYIuaI/Q d8cVUCkIanIKU+9hVzrQRrQdaKNeSgdaGL1eIaQesaDArZmy+AUas16rm9UT Nd/woPlbFju+42XvH3k78Ce+HPoTc8Uv+arrBW9HvuX50NeainTPE6a7BT3t vRRF+S8P9QpcmgH03hGheGtZlgnq6aClDv8bO/bjfTIE7zNp+F0uJdqyhmyn Zko9Wyn3kqijgCesh06XOgZjexmKU4Z4dcnHk9Qf38JA7hD32xYEvEK56nuZ Ki1YjjjT/cpRnVaKoyZEW8zRnPocrwsu3DI8gf2hU1gK1THV28bVTeuw3LWV G8KGHUx9ZAEIaMyD8bkQQbJFPKWi6Ctvioa74EfqKXeyLwaRdSGUDHnfscYu SyUeTYVnxfIlEU7CbBwkXTno6lBj5qLBjlsUi+7RgpNotWv0nZjSGPzOW2kK jqTrxC3BjiONxk60nXCk3b6Q/qRFCoPuMl7xORNxSsp6wXPB0Iu2L3nc+oYH jbJ+a6cZSCihzUskszpqQrlrKJA7wqjuO4UIsQ5hXj0qqRk7ohDte8r9X/be 3LFR78Bx0ODnorbM+ubRU9oTCylzDKVWUlijWxjNkmAbPUKpUW7Q6eqjLWOE Yv9xSuIeUS+Rp7vkLWM1X3Cv+SvmO7/mWe83vBoQhjMkqazrjzzr/JY3I1+J avqS+YE33B+Qd953lzsdXXiZnf4r8fkXB4ok8iSq44djTpqQa+lI1A1hRifC 8DydJjSnkjiHVtJdWij06KLav4tmiTqdkb0im5oENL3CE3sZSOymK6GD3vQ+ OtO66MoRwd8+o95/OV6RrwWPAdO90xSHdAqAblMet0BTxissJKoodUGHw6dx O2qCj3LH7n5DAs9exdciiECrEMF7CAki+BOvx5NtEUeNsQ8VluHU2kRTct2f omu+FF11klc/ii4Gk3Laebn8E2bz/dUidrprsNXdQPF1e/pkDU+4RGjQ46Gg R+k5jlVHQX3urfQey/eETnQdtxX0OFN/zIk6Aysab2TQETLDcNQD+pKfca/l Ox6kzvIw7T4P8+aYq3/Bg9YXTFXfpje+kM6QAKEs/gwKam4LdbnvHMojlWSF CQ/XDCp55qbwcvG/8PGlE5rziala9FzR9va8nH/KRHufahoBupHXC19R6KXZ Wq7OEHQVvWCo+jV3mkRVdbwTIvM5zwY+5+XQ57we/ly9lPDzfs1e56Ohl9wb WpB8MMVIW4vaT7c0OnC5wvnDw0YqVuIunSL+khW51q7kBLiqfxdhepOQs3F4 nkoj8EYVCS4dpDg1kefVRlVAJ41hHbRHddId3ERvQqesvw76xIazBxkQ68zs pjm9ifb8RqY7+mWlPFhGzd3uuxQHCmpC70pEXSQnuA/LgxrUOB7W3kN8XOzQ cUG6H8E3Q4m8GUmCRSwpFlkUWyZRYZVM/XE/GuwSaXNLo90thZpbEdQ7xQsN jabKOozyqwFEWZhq2k7U+U2ycmyV9pNVFJreotU+mB5BzbhLJPcFNQseMRrF q7bAxqitr298FNRE0WlsR+MRR6oOWouyukmjRSY9YfeF4CkXfcwymv2MR/1/ 4lHmfe5nzjCVPsl0wyJjFaP0ppbQGRhBlyBmRBBzV3TSnGSbRTflAGaE0PEI Xqmv4cK2hLK7BQv70o41cXTVosZcfRFulnqPQmUHOUXZ9X5Mb8VTxhqec7ft BQ+7XjLf94rFgVeCCMVeqhckftn/kPsji9wZfsh4/wiL84/w0dbRl9AR8V4R y/+CMclXLEgydyHf05VYV/MfjB9RfibUJJ6QCwUSh2qFWlaT4FRPtpdonsAW 6sJaKAuqp96/iP7UerEOJvMGGc0dYCBHYkq2xJ3sJhozS+kvL+f57D2N7Dys mbIjphw+6ayvxOe8N8VBdygVoISLIrPUVpUdDp8UoJzEbr8BAeet5CMEEX4z lhiLZBKtSii+mUOVTR71jnk0nAim3T2XXr8isQKxPJHAnXQGFVDjkkCNrTK6 zxNva80ocU/tVSTzTZ203PJT66vdApRRCS/T2tb3RQkvzxWB660pkbyS8PJc wkvroZtU77OkyuAmdYcsqVPuuYm4y2jcDHdSZrifPsOEiNvF8T/yMPs2dzIn GM2URVOonGQqpkMBikMwY/L7ZuT3zbtFCigk8alESjMORaHizzzCeSRp5p6b 9gowZw++m5+3fx8s63k19w3ZnncoUDeO52gpfkSvEPLRpsfcbl/kXtcTHvQ+ YbZvkVlJNMMtM2QGpFDo4kfoCXNijM3IOGOHx4adeO0+gO+Rw5pQImAJPH6G JAsn4p39SXG3UAGSpJ2YrbwqYInXbhaHnPUn7EI+oVa1RDo2keTeSJpnDQUB tZSFNtIY06xeO9yf2SUg6WU0r4fh3G76c8VLecJwcutpzC6iMjlWGyr/VUWI m/bC9aVaogJo8137uaRzADtZsk4mTmq1+ZahsSDmOG7Gx3E+epJgMw8hXtGi 6dKFsteQb1tOhV0Z9c4VtHpUUH08jt7AKoZCaxgOq2YwtILFymnmyqaYKRpm NLmOnsAUWYwZH2q7TJULPppvCrOwDZT8EMqgOG9KnHdfwKLU0pTRU0/FnikT aLyVhnoBy4FLVO01F7BYUm7iR23AGF0RkwzHT4lklF+VcZsHWVNMlMzyZPpb YS/tjGR00JVaRXdWAS3uIXQ7hDImrOmeayQLwpqeye97Kb/vjXakyhsvZf6G AEk023137SgVNy/etrehRYuFdmPq1cJ3ZAQ8IDKwh3CfBkKdSoh1LCHBvkTk TAn1Qg3S/bM4Z7AXC53tOKzfhvcGfYLWbifgo3XErNIn7HebifxsO5Erd+Kz 7iDRJyyI93XVHDbRlLg0hc9faECydExJqysibpgTfCqHQNMyIhzqSPFqIj+4 hYqoNhHDAoTUYXoEJL1ZHfTniOW2i7XSnS+aoECAlF9NTbYIcl9nns7eV48o uWtB4qPNhUFqB5dST/wpPudOYKazj+t6hpxau5HLuruwMtD0gTofO4bnmSuE mAUSYpFCsHk1qbeqKbStody+gmIBT4tXNT3WxQxHtjEWLRbTwkhME0/rF5iv lahbeYfp4iGmc5qYTMrWRLlPGYzOVscTtWhT0IjIpdsil5R7nZQ+8Eeyyue9 lCk2kUyY2dNkcJay3dcoOWBOjlUZlb6DtIYN0xc3IlgclXQzynSWUp0Zprtw irul/ZKWyulILqYpPEF+j0QwxzDGBJT3XKO0QJHoJYB8owxm8VLIkjIyMZJ5 ET/3lZk7HgIUdy/etLf9ACc/YXT4ATGhVYQ4FJPoXEK2i8RbeS0XvBRbi7g9 KYn3oDveOifw2ryTwPXbiVq3jdB/XUHiv60k46MVpH68jrRP9cjZbEDKOj1S dfSJvnz8h5NUlg8l/Xz5LNvSERNFQARf9MTvQhlB1tXEiHBO96+jMKyBiphG 6hObaEvvplNISEemWE4j7Xn1NBfUUldQQ2WeCPCYSLWqkx8dsHwoye+HBcQP 1JGLPyXSQrkCwAALXQNu7DJS27mu7NDH2uiw2g/qefomgVfC8DEtFa5SRbp1 HUUi0Uocqii1VVrPWmgSPN+NaWMioY/JxF7uZI3yvEW0bZME4XrRtlXCGUq7 uZtX8rfa8upAjGQw2yCahDb0CG0YFpxMKuNv3JX24kh1BM6MdziNRiaSbUwo 2XeBJJMcUmzb1atuaoN7hKb10ZfQz3BqP2MZfYwLme/JbKUhsZbhjCrqkwup MDivZrkuCVxKlpuRLPfIXTsRREi0QoleS6Z7rQQvwcgjEcf3lKE9noIRD68f UJSfUlfRTXZCLSWJdTQm1ElYq6bMpYxa9zLqXHIpuBZIvmkAZQcukqB/jbD1 J0hcq0viJ5tJ+u0G8j/bRNnqjZSs2kDm71aT8fs15KzaQs4GXXK27CRWcBLz /c1kH6jA+OVfn0ASK4oX156Kw9u0igC7amI9q0kPrCY/vIbS2BqqEmvkAbRR n1FDXU4NNXnVVEgMKc6rIjMuXlVWCmd21R5BWqovh75XLIzWFAs/UL/4CQ77 D2Gx04hjn36MkQIT/Z0Y/e7XeB6zxuNcKoHXCokyF4jYNVHk1kGNbx8Nfl30 RY9S5d7FIwl1kyljTKWOMlc+z/MOofltL3nQ/JhppW5YM8h0WQ3fvHquPZH6 Mb2x+VTZBlMvyaBdkkGftsV4xCNCHaUzLP4qNTShSHDSaO4mgiqP2OttpDi2 U+jbTk1oBy3RyqyjDnrSOyhPLiUvKZ/46DyyErOx09fn8q9+zY11W0g6ac6w cwR3JY48FIw89tQktudeGjb0QjDyVDAyp2DEW+KIdwB3PT3RguSGtmo1OTxN boKsjqRGmpJa6U3sZCxJ0J/ay2RCs5C3WGrsYmg4b0PrKVPyDpuRrneZrA2n yFi5lejfrKN8zRbK12+icdNOylZuovDTteR9tp78tVsp2qpH7ha9H1StNHOd f7ZcfVDvT7T5/lyJ1yV/3K9V42dfTaQgJUmQkhleTW5sNXkC5rIs0c1Z8uec ajKyq0mOTdL0Zoi9f/zo/XKydrYv6sCCD9Sy4E/UsqDDwcOYrF3PwX/7KcdW fYz+z/8Vb2NnAs5EE3QpiyjLOlId2mQd91DlP0h75Dj9cVO0hUmsD+thIn2K yYxJ3vR8x/Pur1nofMuDtqdMNz9gukl+pqaBF3dGtLPUfyff66VA6ZgXjNRK LGkSsdriHkazEIMGzxByj1+m5oYz7cqlmZIrOm2TJR23aqaL+3VQEtFBkfC0 pPACosMziY7MJNLFn+iTl3HdsgqLX/0b1pJCb23QwUVnD20WHswIPpTJQguC DYUAPRFsPPHSjMV46B0m2AiW+OXHm65uLTzM1BddnswukuybSpxjKknXkygw E5nuUcOAbx1z+VP0BZXT6p5Ju2Mc3Zcd6b1iT6WJHbn7r1O88zL5G/dRunI7 1ZvFNm2nSeJG+9a9VK7ZTMGKdRQIknPX6lCit4OkE4Y/mFkS+R48Qm0112u+ f7pEmcPsbXYLF/NUXJQ77L2rCQuWHBRZTXy8mLDD5PQGwhIriHe3WWbBCgyX jh4tbW3+ZeE47tZSd+BPNE1h2hMn7nuNsNiwmfPrPmP7rz/G45g7fiLBfC/k qRdZRVvVkOHYTLFHB7X+3bSGD9Aj7GBIxPV45hTzNc950/cnnvf9gYWeL3jQ +UKE+RzT7eNMNzbxv2pLWq/mnzDV1s/d9n5VuN8RU/6mxcZDqK2/Kpr7nZQW IfGgZIk6x0IhQUUEeDfj6FaAu3Ug/lesCDpyjFBdHUJ2mBC8fR2OKz/Gbv1G 7DZtxlFpItiiS4f2nkVlMOOcdmbfnESOB5LRprUDUya8fNFWba9pq7Zv5h+r szOybH2JMg0j+mw0WWdTqLqYRdv1XGpOhjF0K5dOe9HofmX0OSXRb+5Lv4Un tRc9KDhsQ6XhDap3naF2gx51W3fRvG0Xrdv1adsuX2/dTalAI1+ByEalU387 WQa71ZNqodoKlHLj8NLBI+WoSU9zpWY37L+THRGAr9n3G73KpTiedvJUXAIJ 9hAq6SWvPoEEOEZSYn/1A/xO75bl6WywGaeDmzFZ82Psj+zW1Pgs/rrGl/Be 5SZadHq+hRWFN50pFp0e52LBxW0rObVzO17HPfEwjsPDJBu/a+UCwHoynJsp 8mqjOqCdBiXkR3YwGtnAYMY496peMlm8yGjRAoMFs3Tn3aU9d4jhKgFQdfU/ qJ/uFzTfchcsaHDQq5bcxF+iTx9riyee27fgr7uNIOUsrt5WsS1E6OkQZmhO 1I4N+O7fhJf+Dpw2Cw626OC2dQs+23Rps/JgSliNsoEzLazmjmBgUhmD5hPC iDoGbXEJB6ZaHLwTHFQ6eqj7ALHXfIk0iSTlTBolsiSar5eQdiqbeptspuyy GbFOF5WUS69dLH3WEuBsRKXZ+FB80lHEni3NR67TIH5v2r6XNr29dOrtoX3H blp37KNRd79klM1CVRW6upXCnbr4iUf8lUNgSrVEPOErlpMQwOKj+xpB+Pcs PryPz3WNLlUTws0fzpZbulfV32Q3QebuBB/Vx0l3xQc46q7kI85+8mNs1kuw WLcK78N7Nc2j1t83iIWI77OvmZFt7kCJhzOpHpozBEu9ggpmHM4YYi3UzuNQ lLCgXMFBmeTDGtJcGsj3bqQ8sJnasGZKg4QYR9QwmFzNeME97pTMCRZmBQv3 GSi6TW/hID15TbTGFjCQ1C8fTvmIP3+vQBKslReRGuooIb/ivCk+AgR/AUKw WIRYpIBBuaXSb485MfobCDmxW9338N29E6ctmzVnLrdtIdrwMANCX4aE6g4J fRkUKtErYOj2CuLrxSfafcCr2pD1+fwCtY7uNAsOeh29iRT5EXc6hcyzBVSZ VtJpXS++b6bfb4i7BQvccS7krtDQIesISXSxQqyj6HINp0TSR+0ZV9pOWVGv 9DXsOECH/gG69PfTqb+PNvm6aacBVbr7GDpvTY0Qveojh3ERz7jJp3AV73RK mlAOFC1NRs4KD1DnDSmsIMhKOzDy1vejsdxk1dvrrcBJLMPOnjAjSZ56K3EW DNis+T2u69dwS2kC37ga/90SNs8Zk3j+CnFXbSlwdiTNQy28aCT1T74HwC0N WFwuGHLzmDEu+8NwP5GBz9VSQq0rSHSqJsurhsKAOipCG6iLbKY8tZP2eOWw SCsTkmFvl8wwXnqHofJJBstEQxTW0R5bQq+orKn0fm335P/xV4WPIdEPt5XC h+R+522y2gUEfssRYZsAQBysr0Oa6JUI/XUfqOntv6mUKOySKO79+jhsl6eg u4VCCyea1P2UMOqEojzq6nN53/e/pM7BVR150e3oQ9stb2JPRJF0Ooe8ixXU WTYKHtqZ9OxmNrCXsdA+njY8E9FUxJhDPENuyfR4JdPlm0DJRRdqL3vTcdGe tqMihvQN6NhlQNfug3TuOUDbbgOa9A2p1tvP0CVb+s+Zcs/NQ9NT/M94XhPy +F/cfep8cBO2up/hIO5111uF547VZNlJRtu0mqBtO3H/ZCPev1+H90er8Pto PcFrdxK59xQJVleWZ8V+uHRO7L0yiaKSnY/rqg0WCrR8T0hOOVcoC7xa4FVO oqjhbGFKFRGtlIsirolspCFGmWPaSGt8Ay3x9UyU32G0cpKh6jEGKnvpL2jk TnITE/J3Y+G1zGT3aH38Y7Ve0fgX9YqsM5dlwW7CQ2nTEQsU34bu3Co+3ULk 7s2E7jYh3dRweWNqaRrT0u0W3icOUhQcxG1hGK8XnuL2/u7Ir5htbVenWLSL Z5VhJt02fsQbJ5B8upgC0wYabNrpd+vjTsAQj8KHmfZt4l7iMG87HjHpkcmY Vzq9gdl0BqdTfNWT6qu+tF1zoeX4BZp2G9G+15BO1Qxo22NIo6j6qp0HGLpq x8Cl60y7ebDkXuXGT7frmgli6nERefsuJ3Zxc/un3NJdgZ2sWEdxr9O21Vhv 2KC6Nf/Xa0n/TBLgamXuzx7iN+4g8XcrxD4jcdU64vboq7r1Q9WxP1/uoYnW dlxd0PmVOkrCTztKwvdIlmiMGqIcWkj0qCU7oF5cXElhcBVlolGqo2qojRE1 KwS0LqmK9oJO+msm6K0dpaOih+mCXmZz+7iX1cndlGamoip50Tut8fA/0R+b R51NEE0OIXSLOkg1uYjd1o24bN+Gu3jXd8dWAsWzwbt0CN2zmVubjCm2u6gZ WrB0NYG2L3lpJpvIH48fOrXBzlmdRdHp6M+wMuXfOYSEYymknimn4EYLDQ49 9HsPcCdEnBo9xGxEJ/eC65nPGeJl0xgTAVkMhebRHpFLoZk/VTf8aDRzocbg GA17DtGyz4g2sfZ9hrQpIxDEqRUStgev29N/5RoLGRna5LVh+UJRT3m417Z+ wo1tK7DcvhJr3VXyyVcTuF6HrB2GxHykR8/qnTRs2kX871aT8vFqMj5ZRc6n K8n9bIW8fkqOJK20ffrLTVFLpYilXhffq4Zc37vqB9txwVcs8TlVLN9rJsKp lli3cpI8SsgQypoXXE5ReDmlMeWUJZSr19HmJ5VTl91CU9UYD8pv87R8msel U8wWjzGT18d0WiNTMUWaj/d/0x2bT4VtMLUi92JPXcBSZw22W3WEYmzFfccW IWFb8N21GR8jCc/nzwuHNFs+irrUZB77XqO5sj/0F95stlPGBvjS5RDIqJMo fZcw4g8lkWZSSb55G3XOPfT59jMVNsDDuAHuR7dzN6xWXmsZTRvigUjp4cg8 emJKybOIoNLKn+objpTu3E/NHiMaxZPNYq2K7TlMnSzbOqMTDN6wY9DCkled nZJ/NDsdOQFehJ86LiTwNHEmZwRR50kQz5fuMaZ270nS1khA33yIcf0TZMvy zP50Pfkr11G8ai2lq1eLraR48zqKhKumSQqK0XYtLRWTFC3ocFJ3uStgaYKD 8lhCr1nhezkFH/MWvKyK1Lp5jGcZSQHlpIWVkxktFl9BRlIFSYni2ZxeHlQ/ 4lXtIi9qF3haM8ujqnvcK5tgOl+WakYVr0cntUj97+pg3dbEQvxPnufapjWY iSsttq6T0LNBZMN2gq4cWaaFqaaWH6o+/Nvl9vClFnGFfP7Ag78U4uYhTN6f bmXHyTmUe0KDWkwThTpXkSMerHbposu/h/GIXmYS+phL62Myopq7sVXcS6hk JLON8TRR5fGl5FqGUXzLn7yTlynYZUiZBNVqWYf1ihf3HFHXZ9UeSaOnL9Fn fos+W9t/1DpvvqVdgOQl5k+vvJWm81aU7D5GpTiude8ZBvaeY3LfeWb2X2RM /ySFKzdTvGYT5Ws3UrluvdhaKiQVlelvFUGvI+zIeFnEh2lbRFwvfX/+VnXe Xxzc9zcLEkZfjMOtUjxdygjwKSc0qILw8ApCJVYGRVeI2vNhPu42rxvf8bb5 La+bXzGZNURTYDENfrnCUVLpjc7j7e1pLTD/T7olzPhpiwaqprM6u3xPavDN 66Ik7PC/4I79lVB8TD0JN7Mj1NROk+a1BYmh5sq/dJytPC07cZxjiDgujPvC lheVSzsuFJJ5vZUSJ3mifp0MRHQxmdDNTFo3E3GS2GMq5M9l3E4qYTC/hYFU gaZFIFlWPqRLsMvXN5Inf4hKsZrdh8VhhyiTLFl5+CRdlk4037BUJoz/ozaG au7gEuplrxklU7BLfnz3CVlxZySxnmdk30WmD1xm1uAKC4aXubP3tDhtC5US W6s2bKJq4wYqhOiV7tGldNcWUk8bLVdcFGmdL5JKfYD/f447e4DIG56in/Zh fc4DhyteuFz3kdjui8d5S/yOncTP+CTzSbO8bf2WwfAGss66kH9WRLOJEyWn 7Ck5bk3h0RvkGp5nrqFL47t/VOWb4jt/7VmtQPGXx01P3G+G4m8VSuiVSGJu hJJgGkripVDizoUSc0rssp1aTFLur/6B4xT97Kkete9SHOeibcYQx92xSyTl fCPZtu1Ueiu3DbQzENfOeEoHk+ltDEgmGEgoYii5gDqRYY2R+eR7xJOuf5yk 7YZk6hqSu8OIAnGgsvryZKVl7jlI1RUrai3smBseFTBqDpksXZjVahdEyw1X inYdE6+dpl6WWbd4bFw8dt/gKgtGpiwcuMQjZfnpHaVpgx5l6zZRKhSnWNhe 8b6dFO/Ro2jn9mUR3KOtkyle89XCfmmy+vKkfMVrZw5ites4mbdccTpghKvh USxl6V7d9Bkmq37BmdW/4NTKX1JsFkPUgQsUyxKpPu9Ow3k3msV7rSaOtJyy peWkJY3HLtN704vbMZn8g9Z1ShVGqdUp6tvbygbPW7K8xMLE4sV96WYRIp1D yTMLpeCa2NVQcsWFWeLC1CNBfPHo3fIQ3sUnn7O4qBl87fy+O39Oo6ChxUbT OTEi6W/aTdlpjeKFVzQzaumylWyXdqoCZD1GttGdKK5Ma2Uws5m2hBIaEgsk NZSSHlVGySFTXDfsJ0DnIBHbDIjVNSBB9Ga8aJGYXQfJv3xT0qoTw63d/5eW tametPFRPVl91pIiQUPZ7jPU77lAz/7LTIgXZ+T1/k4THuqeYE614/K1Mf8f W+8ZXeWVpes+w919T5/T4Zyq6lTB5bLLBSaLrIBAZJDIQUSBJARCBOWcc845 55xzzhkhhEASSEIiZ2O7bFf3PWPcP3d+WxsbuvvH9Le3kNns9a4Z3rVmGNTR p3GjHrkbdcjbvoOCnbupOXxQobB/rf52qv3/39gtBURfAdBeYlhvIxt8jx7i 9KpPOaPxe84KcEZrFPmDxBwb8FYuhzduJ3HrUWpEzXrOe9AnQPYbuYg40H/W kt6TF7ht581NG0/uxWb8o5p1KGG39yWlWsgZH5sQAmxDibAJJck6nCzLCDKN vMk1dqfSMooqq0iqhdArOYilV0NpdsmnwSqfBO8yUiLqyA6rI19dTZfrVcdk xwwvBeOPcrI+ZbaxW1TUj3bxQh/OknviFa263FBygrpdikhxa6cwSHCNaaM+ uZVGZQJGZhNJ0ZU4usVhfvoC5gcPcFV/H1aiirbae4UM6+O6RR8ffQlBvGIo SSzm5p15/kkdsc00dtBi5aOq1ao+e53CbYZiFM8KmCb06F+gf8spRnUNmdx8 glm9k8zpiVHTE0D1jjMp6jm25QBDoso9e04xYnJN1eLob9Rm50N1eD+44v1h lOJlbHds4/zaRaRb+nJKkDy7+mckz4q4r9lI8LotREoQrFTZZm7co8qku2ns xU0TD26ZOHPL2IZJYewLxUne3LH1YDo2nfdwDnf24GcVSIBAGGYbKVFmLFnW iRRaJ5N9Lpw6y0ganNJoclEkhSbnRKrtlSFZAqVdJtUXE6iMrqNe4GwKraMl SMR/YXZzvUsds83332c0mKlvqust/VTL2eMUyqi69E25W1dGwin3VC98FspS Wr0K6AjIpzMkl/rQHKpDsxjJEt5c8hQHy3g8neIJFGtrJ3FLRFA8kaHxtHbP 0Ng7Q3X3NNOP3oo2Kp/5TzQqI6fEJFSevkbB1hOUbD8r/tCEpk0n6NE5LhCe YGrLSTWEJ5mX35ndepwpUZAxvYOM7TdiwOA0vXuPC4yX/kbt8d8rg3KapNCI 96dJ4erM7DMaX2C4/DeYbBaSduawqjOI0rvhzNrfY71uBWGaW/BfrUvAms1E rdEjc8NOSrUMGDplz10zL+5edGNCuO/0dVdVHdF9JW/R0ZsJWzd+eDD/D+oD rfzYYtlMJQRbx8rmSSHNOpN8mxzK7fMpsy6h06NUVrOIdu9COnyUaWcVdAc3 yOpW0yk/7xSj2OaVS3dUPf2R9QyKDAmgA6KfvQJoj08tYym9dh/i+L/5evYx ddaBwh2DVWVGt9zCmfSIZMZTGeclHlRVJxKpGnYw6xPGlE8IYz7yJbJyf6qt VSpUS2ufEJ87Q3rpDDkSdefUz9B84xl35t79m1oLlYqmRit/ai65kCfmskjg K99mRK3mUboEvhGB767Ad1/vlMAmsu0E09tEA7cd5a5o3vjBcwwro9L2HRcI 96sGFb7XQgVDz8v/9ajIy3Q/p9Z8yrFlv1HVB/lddMBm21JVpr6J9jJCNujg vW4TnhqbCFmnR/z6baRv2E6uaGOt7n6mzL25f9mdKfn/nruH8tgtmFnXn3NP 37a2q7ul/l6VXJcaFYDHlSvy+X4EWsWS7ldLnGU+mVbFFNmXU+VaRYNXDV2+ jQJcDeMpgwxFdTEc08dgdDe9EW30iDHtE5B7XOIZieuUqLJLospO7iS1y7OV W/FNjEbXMxIsdCGj0/bDs/t/oDta6eIcTLNjKL0SBimz2ZQCoLvquT5TXuFM eIeprgCGvYPp8fTnS7WC9cfkqpIi0rSOkK5tKLboOEXrjwtBN6R300lubj7F XVGsqa0igs6koDOxU1A6dIHxQ+e5cegMgwqNNDzNXELa/6NeGAUc98sLhzy+ 6q7lZrs0OK39OQeX/JpDy3/L4dUbib5uxVmtpXjq6xO0XkdMowLMZsIElMSN O8jU2kmBzk7KdfcwfPwy0xbuPJZo65VnOE88QnngHiymeaFP54Sjy9+qyXTH B6WxyhTSAAtr8blhwhHSiLheSLJlJXm2tfTHT9Ebe4sKhzo6HGq5HdzJdO40 Y0ljjCbdYjjxpgSOQ/QJXgNiJQcDcxgOK2Mq86aowwjT2cMig9zL6uNumuCV 0MiY/Pn3T15j8+FF29/x5sETSgSkGocw2pzD6RGQBtzDGfIIZ1C+TZ9XKB1e whyz8vmTGpxnT9+QYOZHmI7EeRoHSRbJW3eU6o2GtGgJidA5Sb8CkgA0utWQ 8Z1iBQ+bcf+wKbePCDiHz9B/8Di3r9kz6eD6t+qUkrTIANXqKIc1RzQ/57iA cmTDZ+xd+lv2Lv8d5/5tMaO/X0XzCg181yqg6OKtoUe4aEmS1g6ydHZRqLuL ss276dhzksET5rTtPUrz3iPU7TlM+a4DFO7cR+f5i9y4cu1/qHMMlbJC5SNV pYXvz25E0UKvxgv7zyXyeoVYwAYKndqo8uii0qWTGsdeBv0HmYrsYyJ+hDvp Ao7ISNoUQwLSQMIwg7EdDAuhVHq5zBbcY75oiofFk8wX3+VB4W2m8pV8rh4m kuqYq2i1+fBu/G+509JPe3IRpcLYq13DqHEL/XBC35/UweHLZ2/JiK8mN7GO DKsoQpYaELXyAKlrD1O44RjVWoY06pygRRxTqzyHdhgJDBe5d8SMu0dMGTl6 joHDp+k7Y7Iwac/Zg5etrX+rXptXc4/wMTnPhY1rubh2DebaayXg08VCbz/X fmvAMzGSt3S34KqhjZs4Ha/VWwkX/UgUKLJ0d1OwZY/qerV4vS4d+sfpFGnT P0qjQFK156Bwwn3CLvZQvGMrPbULrEKZE96elE2pBIvVwjsdd2//RCjDStEf xyM7F3p5KBTxkmxAixTCrxSrWrpk2LdS7NZNjc8A1Z7D8rxD/vV6plInRAem uJsyx830B9xImeRm6h1upI0xlDog7xtUMDwse8yTisc8rXzIk8o55itmuF+m tMAVmHI6mEgv5fvnL7BewClefWz84ukrcuIrKBAUq5MaaU9spd4hg3hNIxK0 z5Kz5TxlW42p3W5Mw47zdOtfpnvXJW4eMGNMALhx1IReBQSjS8x4BKun4Cmp m+3qC6bdqjnaxQ5eVErAlXXajEjZ4IFrtPFduYYAEZ8lq3H4ajPxe0+TsEfY teZmHFdo47pUUwI6cSWbdpO+eQ9pG3TJ2aBNqSDSKQFqt8FxQeUYTfpHqNl7 iLI9+ynds5eSXdvwOnMI78MHqJTwoNHRh057X8ouXueq1iqui1gKINYithtW EHDuEGEXgggzzyD8crm4mUYynTop8eqnyvsGzcFTNIVNkGJRzO3EAe5kP2ck 4yU9iQ+F6z5gNO0et/PvMZx7kxs57UwW3OBJ9Rue177hRd1rntW/4GHdU6Zr HjBRcZeJkkEmCut5c/v2f4ajtaKDooRaypMkzk7sYyBxiMGQNpqvpZG01YKs 3dco0Re6vP86TQeu0XzgCs37zWkxuECPwNF2xJheIwsJHpWZ0T8nSL7paFd7 +D30JGdQ7ajUpnlTe9mW1O0GBC5eifcXiwn601eELvqK8MWLCVsk77/8SpZL C/fVQp/FNrkuXk3wijVEbdpDvMCRJnBkCzkrEcg6DAzpUiAxUEOif4hy/f0i e4Ty68qSr8Bq40p8d25fGKUtkFgKFDYidiIOIk4CibOIq/xumJE/4ReyCDev FDreTIZLDwVuN6gLnqQ1/BZd0WM0xtykP3OK8dzn3Ml7zVDWC0byXjJY8Jyb xQJP3k1GclpUVZ3P6n/gRdP3vGr+jufN73jU9IqZhidM1k4zUT3KRGU7byYn 1YgsTKT4N9Uw+aLYUkoSOqhJGKEr8Y4APiVxwxAj/i3i29pouppEsoEVOQes KTpkTckhS3laULDflPx9RoxaOPFSPUdwWkHFM1BJSeSH+fkFGruXvqR06h09 qbruQu6xc4SLc4hfvYXQPy4n6HMB44+Lif5yEQlfLSZxqSKLiFm8CIdFS7Fe quQ4byZorSbhazcQs16LpI3aZGjpUKa5lTYBpsNA6akqwBgIMPsOUrFvHxUG uwnfvBY77RXYa6/EceMqmi5Z0XLJWgDRwEFbAycdDVzl6a69Cg+dlXjpiL4c cCbcOJMIASbGpoWoa+2kOrVSqRSuRt6gM/YGvYk3xOfOMpb7RHTjuQDxipHi t4xWvuFWzVOGK+4wUCrhWsEIz8pf8rZ4jldtf+F5+5951PY1My0vmGycY6Lx DhP1PbyZvs9HyPwrE4PjFMc0UBI3TEP8JL2pc9zOfcxMyTPGQgeYjBxkJnaI +YRBhv0kWrRLlZgsQWh4hEQlERKURwhXjqbO+CJVxmaUG5tQcM5IdM1C3WFA n3dz8zQ5ulN4wYYQ7d1Ert1CsjCT7LXbiF20iqgvlxG3aBlJXy0ldclXIotJ Wy4cdcUiwr9cguOXG3BYpYWv1mZhNZuIWL+JuPXaZGrqUrnVQPTkOM2KCTM4 Sv2+w1TtOyDQGJC/fTPOm5bjtGmlQLAKN4Ejds9uCk8Z4ai9Gmed1biIeIh4 iXhvWoWP/K7/DkPCjicSYlxKpFUfae69pLrUUxncR0NkP21x/bKD+xnIuM3N 3HlG8x9zs/AZNyreMlL7msHqBwzXjDNc3iH68X951vp/edDz//Gm+wfupXYy VzLETPtrJtsfLVTbtfbxZnb6I2R+TVuRUqzZRWnMOI2JD+jPEu0U8PsSpoV6 ZnIvfpzZ5Ds8Sh1nPu0WM6nDEkZ0c0vQHA0voNXZDV+9TQTo6RCopy1PLQK3 bMDl8E68zc/SXVeppkz63EhKI/OkOXF7xKeu1SNJkMlZt52S9TvJX7WJ+EUr SF6ygvRlK8hcvkxkqSD0lSD0FZmrluIrKDov24jf5l14rJGnhMtxEiZnrN9K uYQJ1RKB1YjLr1Gai+4Xl79/P0X79fGV1XbRVWQVrptW46mjyBoyjxpituoL Ti/5DUf++EuMl/4GyzVfiFVbgu/mVfI5KwnYG0PI+RoibZpJcmkl16ed0uAO qiM7aYztojWxi560EQazp0VxHjBUNM9Q+TwDgs5gnfysdpShymHmW/7Ck3ZR ms4fedH1A8PFU8x1iKPpesNE9xORKSY6+5TKto8QukhBUAHF4QOURYtrS3nC QP4b7pZ/x1ztj/TJp46XP+Zxxijzmfd4kDXB/cxbEoUMMBTXSJ1/EnXu7gRs 3UTwVh1CtmoToqdJkCAULMxfGUoXKCjlhS+0cCk2uUbyQTP8RW+i124nfd1O ijbspmrjXuFDe0lfupa0ZRpkrlhF9qqVZK0StEQy12mQofEnfNf/Cbtlq3DX 0MVzlTZBa3SIEKaZoLWNor1GlCiNlLcfomjfIfIEoWyli9q5I7htXi4ivkRX zJfuajFvS7mwXFD58pcqZI6KGMrr03/6JWcX/RKjxb/EfMWvuaJ7lCCTRIKP i++5Wk20Qz1pXo3kBzZTGt5MdXSL2JsWenJu0J15h57cKXpK7tNTKVIrzKd+ gs7qIW7VPma29Tsetn/Hk65vedr9jcg75nvecr/vFRP9j0Ukuuvu4ft3bz42 b2a05ylz/IYpjZqhKf0FA4XfcKfyB+Ya/oNnbf8vzxv+zPPeF8wXjHMv4QZT 2eOMpErEEpJOZVCIBJCu+As8QQJP8FYteWoSZnxEVSygtBwJEw4ZInDFnDlB yv7zxO42kqhsO3FrJfZdv1eiLAPqtPfRorOPes1dZCxfK/CsIVtjNZmrZaNv WE+qhpi9VYtIWbUYs02fY7FmOdbLNXFcpSOwbSV+52FSdh8mba88950laecp UncfINH8BJFmB3HfvEIgEvO2eTX2wlfPfiVQfPUrgeVXHPvjrzguclJen1n0 K84JPOflz6/vvsQ13bW46yzCT9+bINMK1WCwWNca0nxryA2upTiijorYOjqL h2XtRmjJG6O5ZJymqrs0196lqea2mLrH3Gl4w72Wt8y2v2FelOah0r6l5yUP +p8zNfhE1aJVcTNzd+7YfIjOblGtGYoDhimJnqUh4wV9Re+4Xf0dsxJgTJY9 43HT17xo/ZqpgZc8Sx9mVkL1mshiyiNTqQgPJ9v2Mj5bldZ9EgdvE79tcuR9 kv5CJ49rCyh5bt1M8IYdRApTCV69i4R1e8nZKL5baz+Nmw7QsHYnXZv30bpp L3kaG8lYvZ4sTS0hUBriqFaQsnoJKSsXcV7QObb2XzmzcRFXtujgpHcAr+0H 8d91iABhMiFHjxBpdAx/S1dyrtqTaXzuJ3TstJZwdokoiMi5JWp0Ppengs6f fsXZxfJc/CV2phLQ7Vwnptl0yS/4LX5HxYQbxeN7qZpAu2qi3KtJ8qsmM1QI X1Q1bdW36WyYoiLnJuXFtymrGKdUpFVpeVv1jNF6cRvNgkTbc+53PGO6W0xb 32PuDT7k7o05kRnGBsf4/rvv+E/wvJr/miKvAYojp6lNfyZeaJqmiBF640cZ SbnFeMYtJrJvcSN+gIdJfdxKaqc2rlQ8VppAFEbUhTM4i+cJPGmwkPYsEme5 kCAUZ/nzRC5nrY34r5Svuc6AkNV7SFhvQK6m0A6dgzRtPkyzpgHdWw/Tu+0w PdsMqd9xkMy1GwWe9eKpVpO0ZhWJGos5KfDsX/OvXFU6Plp8UA9t+XFG5fvM h2j7qyRctCPzuDFWKz/lrDIkVuTc0l9xfc2XC/B8sQDPOVFa2zNWGAt8JvI7 As/SX/AbLq75tSrlO1CYqOvlKjwdqgnyEpiCqomPrKa+eYaG9hlyC8ZIyx0j I+cOxVn3aCyYo7Nsnv6aeUYaHnKreZ7xjnnu9MwxPiAh3/CsqgHpyPA97t65 b/shw9lAW9qE+LtbpDh1UOzbI8Sqn964QW4kD3E7Y4i7WUOCzCA3M3oFtTIq 08uoTiumJCYWn/NHP0pEVxLPE6zO/pSErqATYnYUFy1N/Ffo4rFEPNSavYLK frI2GFC4YQ9VWorXMaBr21F6tp9i4LAZHeI9mrYfIF9nG1lKJrW2JmnCVNxO 7cD7/P6fLgnf9zT48I5J3ePoExU0S8TZrODazm34HzlM8llj7Df8UYD5FVbr 12Lyxy849Yd/xlDTUIA2xEgs3fmlSoggwCz7hYDzfzDX+Rx3wy0/tRf1tg7E 2SEVRwEmLGWAjJoZ0utnuDP/jmoJDTJDpslNmKEsa4b6whnaymforp2hX8Ab 7JhhqHeGgYEZeodm6BG5dXceuw8R+RcmW26L6gvmEo3kebZRE6zUzXfRn9gt DkWisoxuxrK6GM1VGFCexNtpFKWmE+jogv8FL+JPXCX+/LGFen2lgZy1KvP7 E9WbT/E7rY+NsiLLdHFbtAFPASVomTZxK3XJ1NhMoYQFpRJW1wowXQdMaN96 gPYdh1V5UZVCTUu27aZ4qx5xewVMY33VwiuXDCpQPrgqet8yPFrVOU+B5Z8I PLETU2WGrqzw6WW/xOP4cWz3HuLwZ5tJkBDEVEKPC7rrMBQLdlrQUFk5+d3z oiDGq/6Ji4KG1V6N99k1n6gyNf5KGPpCZLNw9bqQADPa+YbksGnSk2cozJmh omSGOgGrqWmGFtGiZuUqpk9AEkBmHr+1/9Be/bMqP7hBeEaFVZg4xiaSHFso 8mmlNrSVtpg2ehLb6E9rZSC7lb78FgoFh+y4LKKdXX/qzuJ1RWzCNQdSTG1J Mz+lJGXaKDWsir3wO22AzY7tuIutcvlCKN2ijQQs1SZG3qcJCLlrtlC08RAt AkDFhi1UblCmsuxRpTOV7zSgeMcuVU550CERUwPVvZySPK5E4z7qm4Kfcoff N3BSlYlEq2qalBSlk+IUTsg2/4STAsUvOfyVFuc2WJBrZkv1tdMYLfsXjom9 MhRHf1KAUCaWK7PLz639NadW/hOG8vrqlpVcE7ki4nfiAE2xif9DfeI4PPyO 6JRpkvNnyBItyBMtyJPFz2meZvLhO8cPF1yH4eQ0WoRvdzj60mwVQ9ilZhKc 2sjzaxP/3EZdfBuNqW00ZAkIOa0kRBcQdPAAfpoaBB7Z/XE/TVVKmgtJV9zI PHNStezKooddPMpFzRWc++ozHP8gNEPIoPcSLcKXS/AqwWz6hoNC+IwpWreZ 4vVbKJZFL9q4iQLtLZTs1Kdw506S9m7D6+R2Qq4cZVCdt5AZFqCaaez9foqX 5cLCh6mHiiuLr7Q2V1KLzmp+Kgt+YNHf84+c2rKTM5vPYHYuDlfzBPwtYnE8 bImpgL/v93/HUVn440uUMfH/m6PyPCYLfmzZLz7Bcssq/gZ/gx30WvvQaenN WEwW38w8xG9hVRe6B68SujxHs72bqnVNt6M/N1WNAEOotZft6lpFjH8bKRFt pMW1URldSU9YLv466/HVXoefECh/bY2Pmjy8d3eJqkQpV+KMXGW7nCfwwn7Z Sv+G4bLfYLZoMQ5fauG8eCO+YlfC1+wjR2hB6hqxL2t1yV4vsmETmRu1Sd2o Sea2HaSKKnie1cfj1DZVqcyTnzqw/lE1M9hDvbrvL8CU3r7vS2uUshoPs/3s XfL3GG7S4vIZR6zPOOMq4nXGk5wDSmsqFyKO+5BoFErItqtcXa7F7j/8L/T/ 9A8ckJU9KCt7QCRg3w6aLl1n3M6X23Y+jNp6c8PGi8HrC11VfT9c3n/hQUsb LfaetDj40esQyC1Z2vsuYTx2C1d153jrEcE7zwi+EfnaM5wXnmEkbNmEryyx 36a1BAoTCvswoljIpVxI7/1n4uzEkJ+9iN+ePaqVPa+1gQufaWL1h3U4rpAA R+cQYWIsYsRax63RJnG97OMNOsTIykbIygZtWIvPCQPcjPbiYbyX/pZK9UHK Fwvzdi3UXVWVmwqlOMVqoUDFWdA8JgHQeYOjWJ+zx9nUTVy9CyFnnYk57SyU 251UQ2fSjzuTckji00NuZOxzI0LXhKtC608t+meuaHyGm1DxKYcAph0DmXUM YMbJn/uOC11Ix209GbV0+2hBjzOnbnDeah9An2Mwt53DmHZdaCj32jNSFjGS b72i+M4rkndeEbz0CqftvJks6EZ8Nq8nYMtqggx3fTSuQh0QqPJrlWeg7BVT +XaXDbYQcPY6Rz7XxGHxDtJ1t2O5TA9LsQguYoZ9ZL/6rtYicJ02/uu18N6g 1ClK5L3+d1jor8PJaA+2Z3erLuGcZSVdRNIjA1QdSOanF6aPqi5OYwJwVZd7 WJns58xuDWzOX8ZDyTUzE9pu5iHhrSdJxl6knfGg6pAv+UYeFJ7zoui8OwVK 3tkpkaOuZOywx2GlWK8VfyBnxx4eKA09RR67BIsEyetA1SpPib5P2nnwurkD n4/37MIS+9Bmt5B+d9slnBmlq4xHlKr/wzuvaL71juY77yjeeUfKEkfwyCuM kM06eG/egJ/eWgIMd6v2bcTP2SCfqNb6d6r8V+cTWzDW/VzFcU6tWYyBpiUu RzxIu+ROjeU+Di/5I6eXL8Vk1TJMV3zFpbXLuLhuCWdkZU+JnNjwOwnAv+Tk 1qUfdf31+6Drr5JmlB0e8NfqHBzVr1y3JNAmiECrYImDfIi8EEDyhRAyjIPJ E6k/GUmuoQ3VFiFUXw6k0tyPcjNvyo09KZcFTtl1FqeVn9Ogt5/7xvY8cw3j uVsYL9wWWl/OuQZxz9l/IcPB3vXjhV3FnLqzdqtqYUMZk4VVBqI9UbqwyKIq 7ci+EfnWR177RPHCe2Fhe6874CUL6y0L62N8aMF7WC2k2rz3HpFq72Ghr4GZ eL0r591wuxqKw7kI/C4mEHc1gfhLUfgfC8BC9zD7Vv6OQyt/y9E1v+PoWpF1 8l5Wdv+qf+HIql+rNP59I/vgn1pb/El1/qAcGQUqCYwS0z1W72Ol76Vylxlo 5U2ITRjhNvGEX4omwTSGDJNY8i7EUGIeT7NxCiVmvtRcDqLRWhnIHkX19TCq rgRTZeZFxWlbkrZs5/aec9zdY8QTcV2vxVC+dg/nuXsY87LM91VJCL7ipzx4 1dqK98fLPNPUTot4vVbbQHpkmW+5KN3fIlWZrC+U3iXq3l1fyzK/lWVW+nc9 9A7jvlcIXVY2OOuu/um6XqnJCFbyKax/diUBNuZcM7LHTlHNa0FC/kNJlqVO 1PcW1yCG70yQfOUocs+FE7c/kCsSIBh+9S9c2L0eE0U2KRv5MzHWn6tK+N7P gFYOD/5Kddjz5U/HPaHK6dylhb642dEBwjKvEmIZIK4tXvQqi1TrAjLMs8m+ kEqRRQbl17Npu5xPk30WrY6ZtDql0+yUSp1DElW2sVRZhtB42ZtB2b139E2Y 0jfmsZkTb8RsvvGIFP8TzkOPUFkvJZ1AdrKLlzLT728/yFnslZD48eN373Pc FsKzlTQq3Z7VOYsjsuKTsuIPlBw3sRhK3qLS5OG1t/KM4pnSfFVW/J63BBve fgwlJ6ru4t3ez/CRFfeTze2nZARaX8LLJpgA+whVmmWCVSiZlqFkXfKncJ+X bBo38o19KboQRMHFcCosIsk66I73mpW46HyBxZ4NGGv/AVMhBkr1i4oNLvTv VY5s/kp1dvMl0eq2C8ryKxPdC5XUNsWaXHLAzzwITwE00CSV2As5ZF0uJFcW ufh6ETWOSilgBS2uxbS7F9PhXkiLRz51bjlUOKdS75jEgGMCgzbe3N13gXv7 TJned463nlGqRX8hjv+hOP37ShMdd9nXbt687ehYuPn7nzx/9jUV5YP4+ZTg 7VyAl2W2GDgR0yzir5Vws3YS24+BUKUaWS/U0g6Id7ztGs49dYbaIy8l6XCh I8sT1bYXC+QTyqRPIONevvz54UPV3zI3c4+2xko6muTbiRSkJxHrl0JBUi0Z /jnEi8YmX5JtbhpAvlkQNceCqBCNrrIIEE32ExD8yDNyp8wilEKJrIJ3rFWd Nl4QUTyrw7Etqi0f8XNX3L9Wndj8ceGcRgFD0QgB4NJeLTzO2OJ5Lhiv8wkE m2STcKmY7CtlFFlWUeMiHNepmi6HBlo9a2j3rqHDt4pmnzIavEuo8yik36eU Aa8MhsRO3zI0Z+rABaaFNymdjN54KXm1Su96sRIe72/6VCCoQ6G/p65ygPDA Ynxcsgl1zibRIZtMm2zyRdsKL2dTcCGbnDMip3J49+Drj26I/5F+dbuVNtGM QRelm7VohwAyLfo266m0PYlgRoC45xPGHZ9gRr0DeNrV/b7Ys62yU+hrNSVJ LeT5lxJnGk7GhSjyL8VQfjWOduM4aq+HU3s1gGa7KBptw6m6HkKpRSAVFz0p POWAsdZKLmxcgtm6P+B5fv9HLSTUE4Q/Uc5jFjpJfPHTYdllveXs+eMvcDd0 kMg7DJ+zqYSYFJBoUUGOZTW1PqM0enXQ5N5El2sHQ8Fd9AW1cTOsg4HABjr9 62n1r6Y/sEre5zHkF82I2XUmDphxTwBQvJ7SIeiZl9LcW5ZATPCUlwDg6c2P D+ffFz03VfUT4ZNLqHs20W7ZZAgOxY451Njl0GiTK9Y+h1brbJquZVN3KZt6 2SPfzb+1WsAhQY2i0s6k2jZEqE6YOjssglviWm5LDD4uH35LLNIN71AGxCo9 7up5v/6vn72iKK6U4oRm8sNbSJYPSzdPI9c8lbLrGdTYZNJ/LVNMbjK11/xo c4qn1TmJRsdEquyjhEmFUX3VHd99uzBW4p1Nywm66E7MWWvijh7/uD3rF6oz Qz/DnRgt/zdOLBLS8Yd/xO2QI+5Hw/E0TCXoXD6JV6socB2h0r2TWtcWmrza 6PLqoy+4k5uRfdyM6mYgrJXOoCY6ghvoC69lILyQweA4hswtuX3wAncPmsiy R4ssmIMHKnusNFbx566n18LS/x9aq3pIDi4gyj2TOPdcslwLKXcuo9FJLINz DX1uNQx6VjPsVcmgRwk9zvl0W2fSZpHCdw9fWy5AkKh6/C8mmvooFghqBIIW gaBTVKHbI5wusYBtXqGMZhXyzcPHCwcEerSVNlEcW0dOaDPRlvmkW5dRYFtB 4XWlw24RDc7FQlhL6PQsptu7iB6fAjq8C2n2zKTWLYkKxwjxen7iFywwkqV3 k60fqm6NESzkNMHcieTzlqSZn/7pCCDC7BBeBlpYaS3m9OJfcOYrweCzv8Nt n2BwMALP42kEni8UtPrIF9tT6tREjXsLjT6tdPj3yZq30B/ewY0YwSC6g46Q ZrqVzMaYevpiihmIiKf/tAUjB025c+aa2B2lMXmk+EMxxd6KKQ5mQjB42dX9 ibrqYHz4LtkRBUS7pggGhaS4VVHi0kT+xQKarpaIVvVyK6iP8dAe7oR1ybON kaAGhrzF7DmkMJXdgBqIZNXjAGMtfUy0DXCvY4D7nfIUefPwiepPh4dmKC8d JCG8jvSQOjIC6rjbM8Orh+9Uf14UIa4vpo1ohzJir5eRaVdHmUuLWNoWapyr xRjUcMe7lm6/WvoCquUp1jmonBb/QjEYmZS7x1MqhK/UxlZV+Pbfld+oCj8d XcXV2pBrY0/Q1rW4bFnJVTFgZ4WOGwkqZwQdq01GuO+LwON4OgGXmkWRGsiw qaHIuY5Kz3rqfRu4HdNHe0gDHaH1DMW20xfbSld0K71xHXQl1NMTX0hPVCxd +03pE6N065KTutO30mpIscnCgXyCmM7Oez/Ro6OinfTAbGJdcklwqSfLpZsq lyFCD6XQaZ1Ln88Qt3w7uR93h5mE20zF3+R27AA3IloY9i9i2DeOH569VP1t r+cecbe1mzxhtcW23pRJpFBq7cV0kzIa4aE6W5kM1eNLXkhEkBxbq5r4VxpX R110Hc0RdbQJUq0BC3nrg6mD5PoWURzZS+iVIuIta8h2bKbCs5Nm2aMt3h00 ejbR7VhDj+zX3uAW+sKa6AytoTmkjNrAfMp90ygSblPr60/49fOq+433pYnv UVKdoitK8wU++zSJOH+B9NPGBO8zwFr4xTkB6sLyX+Oia4j7zlDcTxQL7aog 0qKUVJty8p0rKfWsosqvihzXArqiKmkJqxJVaaA7roFb2f30pogKJYlLT5Sg 1iOABgNj2k9eZVQM95iANCog3RCQhsR0TWbn/5Wa7Skt74tF22LsYol1qiLB qYc8p1vUeU7REzhLte8T7sZNMxs/w1zaI+Yz5pnJmOGOkqeXOMCwaOtwaDJv xsbpTs6iXMm8clAGEfjSaedLt62Ija/wBW/aJfK9GZ2prvYgXQ3Uy+dvVf3K CpQJKgl1tAtYfbH1qr96VBEBbiSyjn4BLulyBvE2lRJ5lsvWbxCVaqLEuY1a 93bafLroDeihT4x8e0AbveFd9Mg+ao9soEkp0Q4poUaMe32E+KLgEJLsL/5U WvPBZdQnqqONL4i4eBBXceuueitx01uFkc5afI8dJ0lYgPGG7Zz/XI+gndH4 nsrH62wOIeYFEhQUkmZfQIFbEaUSSxVENVIfW05taAmNkWX0pbQwktfNjSKx eflNNCbkkH3qGrn652m09KHTXTHx4XSozHwID7v63hcDTQzeojiqhlibdGLt Wki0HxHXdo8G/0f0R7xgLOEN9/OeMZfxgoe5b3mc94rZPAEvd4aRjDGG0yTS iM0i6+hZ6hy9Fpr+O/7c9F9p+D+mNP639WFENGvIyovJmAzTBazSVI/lvHr2 mryECoqS6qlNaqYzoZ3hhE5uJ3YzmdrN/fRuptNFn9NauZvcSKoy2cOkmNDL lURdqREa1kCxUxv1nt10iDXuD1accQ+jico48156I9pld4tjSOuhI7mF5iQx k4m51EaELfR+Unf1+fBWJEZ9VRV4coeYvhUiqwQ0Dc4s/eUnqtvDX3N2xS6s tl6XENyL6NP5uJ/KxE/in0jLXJIc88Qs5ZAjPjHfL58i0emykHxqo0tpTq6m Ma2ShvQKWnOqaUnKos7GndGqFqbaB2hLK1J7hX51SuhnTA6MUxzRTOy1XAlZ OkmyG6fQY47G4BcCwDtup/yZxvDHzFd/L1o0z920WVXW3c3s+4zkTzKc3093 dCqlxqYSgXkLM/dl2MGfMfsAJkSUY8D7Ivcc/Jh08GVczOG4zUKtj8mHaG2V iLhDorE6yhO7aBNlHUq8wZ20W9zPGmM+b4zHhWM8KRqV5zAP8vpIFYIca1JC 4LkiVWpimk0jxaJd9RK5dgR00R8qIijdiu4SK93FWKyyp8Rlx7fQkd5GU0YN TWl5tGUkLVyf/KfitQ/vsTwMNuIojkppt+Ost5pTyj2WyJW1f8RstzmXjMKI dVamiBaIilXgblomyBcRbJVBjGMWCW4ZZPpmkyveJT80i+JogS2xhJJkkRSx m6I+cWam6iYSv1Y1cS8OaSPGPJ/Yq70k2k1Q4P2YhvA3NIU8oNb/Js1Bw+IS pnlQMCFk5AZdMQM0RXfSlCzfP7WWzphESk6bCnX3Y9gxgNsOQssdg5lxCmZO 5BPmnYP4Gx44KSMQFHgWCnh+fDCvblpPquqxnVdPX1AUW0ZJfCc1CTfpSrzL aPp97ou6zhc/4GnZA15WzvKqaprnVVM8rBinJbiVZNNygowKCTOvIMW6niIJ b2q9W2gLbKVMIqvusDpuKl0u41oZE1iG4sRbxdXTklpPk+zgpswcJvs6f75o uaKeoqE+Knt/0WKnuwx7pbfGFg0cBB5DgcZsxy4cTH0ECh98LgSQud+NeCMf wo8po1ha8L/SSph1LZF2ssTu+ST555IaKhIhRCCuhFSBJ0Uk1CMMp6MHCJHP L4gI4O/UNVZ3u+9QHNBO4pVKYs17xMRNkif+J9d9lGKvfqoDB+RZS1VALSN1 b7iV2UWnxCnNCR1ijBqoi8qiJSZGILpIr8RNow7BTDoqkwVCVbOaHruG8lQl IT/3h3daqNF5mJT6EUI7xODelk3VSEnsQg5msIQsN2JuMlvygieVL3lZ+4o3 DS952/icl41PeFz/gOGMYRKNKgk6WyD+oIJEqypx3rVUetdTF9RBlSBYkywm M6aREXHcI/ESaYnra0+spDGpjKa8CuqzMnk6N6P6V7y/sPH64MImSH3K5qiv idXmlVgKQtZb1+B4+gpuZt74XPSR2NyHJEEpZ68nued8yD/rTfqZSAKMS/C0 bCHIUdByFWXyzSMoIIugkBxCo0sIEJbtcuI0tlv1sN6ix/VNengcPkBfXeXf qc1bkXcrua79Yic6SbC9S5RNL8mObeSLjcjyrCXPq5yKoErqwyt40Pk1rfFV NKU2UZdeQ01MOnHnTCkyukq/gHPbMZT7zmHMC8N5IiTzuVsEL9RTkp64hfLA Vd2K3dlH9MztYx1SLO2URG5dlEaNiyedI8dFAsf4KTr9xnia81hc4EPetf6Z d+3f8KrtDY9bnzJeMEzGxQrCjMoIvFBM1LVSMhyFKUkMXBvTI1FdDZ0RNfRG V0sQIpIgYVZyBU0pJdSlFFKTWcBwV5f6bvyPzM/cU11XKF2Ova+rT+QEHacT O7ks6FzerIGvqT2JDgn4X/QmUtBJMfMj19SfqsO+VJgGUH1BXl/wodDIhbwz zoRdSibiUhK2Z9y4ctYU+0u2OBmexnmXHq479XDbLs9tejjp6eGgK0hpblEV TC+ECn/6qYG7UmemXKco1yhKu5X29BGKvUeJN+8l2LQN/8s1EvfVk+HRSKJb Cdk+xZRIVFsdVUZDdidPb9yjLrOamtQSymNScFuthffGbUKVQhl3Chf9iRA9 iuSZMqPIfWFG0SsPpat+OA/cQ7n3vjm6i8d/ga5vmuLQfkojlSTNxwzkveZu 2XfM1/7ITMN/8Krx33mQ+4Afmt/wonqOxx2vGC8Zoze+hrRrNXgZFRFgXiie pIQMH4kBJdiqDhS2HVpGqwRabXGltCZJ0JVSRGVqAWWp+RSmZfPyxQt1sYCB 6uyuvXHh3E6RptJcIo6fJNUqWLxDHKkOyWTZJEnAF0rOhUhKzKJoMYqn/kos Tdejqb8aRpW5PxWXfCgxdSfvrAuZh21wO3SaoIPbcdu9FU8R793b8FE95f2u rbjv0MNFFKzyWizfzr1R/Wved1N/X36mnKiq7mksFrJBXE4bYr37Mlmut3De l4eHSbkYg0rihBlEuhSQIoqcG1oooXyhePt82hon6aztpli2bJD+YdzX6hKg vYuSU1cYd45gRmB75BalGhD0vrf9K8+FvvZKq/IppUrO3V/VqvxVe6t6ZI8a PglGewQ+scYlkfdpTH1Gf8E77lT8mbn6H3nW+hded/6Fr3v+wuO+/+Dt4L/z qHmOR9V3GE2ppC6wkLjLhTieysXvepWE3uIpHPPJFI+RJ1+jLKyAyliBLamY wuRCclIKSJc4+UFv/wLP/2uePHmnyvwZ7pthqGfmb9SZJmXXvIUUhEnElUS6 fQ6l9sXUWBdRdDGFyitp1Brl0GKbQbtDOk3W8TRYR6vG3pZfC6HI3IdiE2fS T1gQZeGD995d+OnvEpceYLCLxfjLf331d8rPdwio28i3cOZ+ftd/W6IWpIye vLIwM/F91vC1rQZY6V/jvM5xbA8X4yw2KMBGKJ5LGXF+xSSG5pERW0C2hC5Z GeWUFvVxW8eA9DXr8NHcRsCm3YTq7lWDF8XDD3rNf8JLge/vVX3mHwhzmFKK lTwDGDC7TIG9kGR7H6rsfKixkae1t9i1LL6efXjqQ0wXc6dDrKlPPyUR96lL e0ZvwRtuV74TdfyWR23f8qLrO173fMubPnnd+46HvW/oKpFgsv0us21DBK/f i8+2YOzPFeJ9OZ8ImwISZWumexeQFVhAZmi+WKQC4uMLVUPOO65fYyynhJs3 ZkiIqSNDaF6B0LwSiWDKguoo9q2jI2OQN/Pv1AkM+7nVeYMEqxgSbXLItC2n 3LaWFgeJcJwahHGWU2JcyqRPDl3Cv1ocM2l2SqPeMZly+3jK7GKolt1RbeFC 8MlLFF0xI3C/AV47t+Ivahl0UJ/Ag3vxP7BHSPouim09CTxxSiy5garrmCoP 6OoHsw2vnP0p4Vh5rczGNNHW5vCyrzDdcYArRzywFJrq5liGv9LNJrSc8Ohy wuLLsTdxx+73+3m31ZDe7Tvw195JgO4eIvT0GROrek8QnlMagAvCzzwXUH6u FM4LwrOC8JitB037DWnad4hG4QAdQuB6hLz1C9vuF7bdI2y7S9j2mLDtkx9y AgPyXXrE8k5SnfKILqWUSEKZyYZXPGh7zeOu1zzrec3zvtc87XvJ3MBzRhvG 6MmpIcfkCp5/2kLlWlmarecINLDF9nIenrZ5BLjmE+yVT6BvPjGnLUjYeZja 8xcYtXelUAKwLOEgJfHC7mPraI4Shh9eR5ew+a5Aee1XR5NHHUNJA6p/YWFk LnnihOMtS8i0qqfcro1W+TcPePczGjhIjVU7s0ENjAa30+1VIVS5hGbvEhq8 i6j2yKbaOYFae39SjM4TamJPgtFZPLdtI3i3DiFHDhB0ZD8Bh/fhc0ifKJOL 2OzZivUu7Y/gVY+tFEujXLAsXmg/f2gLR5d9xqFlSzDdeYBTazQw01iGxeEr XDtpj8WWc1is2IHdhj24iBTtOIaftq5AK/Bu3kPYVn1uivJOiOVV+nbPeSj9 3aN54qlc/SkFVBHcsfOi9eApEUPaTK/QK9AOC7Sj9koOja8ql2ZMFPmm8PMR a0+mYjI48SG8rtxufky+711KEmYl3p+jr+wht+oeM9nyhJmOpzzofsJ872Me DDzi/vAcw003yDO3JWP3MQp2HqdI9xCdu04ztOsst5SGNHqHqZPd2aCznZ6t +xneZUjPjqN07T9D3UkzioMyqUgUCAXerth6BmIkqo0WeERuxdRzU+AeEo3u C1DaVvYJMy6VqLqbvKAh0q1aKXXopdljmD7/UW6G3qbbZ4i5sCHux9/mZkQP /eFttAXV0xBQRY1vMdVeGdRKjJFmdgkbPU3hCtexWfM55zU+xWG7JnbbNxJw /CA+wi+u79LF1mAndvq6C1nHV/9L1/ifRky+b4uoTAs8vfZzTqz6Ayc3rmf/ p7/l+uIVXF6qx9XlEnOt08Fr1WqCNVYTtWYtkWs2ELt+GyGr9PBTij8F5kGJ jcYE5gk3BeqF2905pVWC58L9VdvB07QdOknLweN0X3VkRNj8uDI5zyFQmH0g 00Ita+zChTbHydaLI8E8lkwHUQufOlrSB3k99/XRD4/QdCXMmSUnfJqytBma C2foFeZ4o36W2y2z3O0U6ZtlfGhGlbvcVdlO+l5DsrcfpWTHCZp3nqF/lxGj e85zd+957umfZ8bgPNP655jSP8uY/in6dh6haeNOKg3NxS83CuNqlVCsgxtx Xaqjn4nkHu6ldXM/rZN7qW3yvpkxpd9VWA3pttmC+qCEehPUxc3TItIdN0dn 0DiDERPcSZ3jfsx9ntV8zYOiOfqje2gLbaEhpJ6awAoJ6/Ko9AnH7+hezmn8 nnPrdUi8aqPkeq/+vXi98/Jfo9WfckFrCbYH9mEn9tt+vx6ep/U/vjpdyHX/ K9XN3fKfRkOeXCF/5ao/cfCrRVxevBKH5atwWrEU56Vf4SMSvHQJkfKMXfIV cUsXEyPvYxatJWa5Lt5b99KpDJtxDlf1N7kj/GVC3UJh0iucAWV2iIDdIDrd bHpdgA7kjkMQ9xyDmXUKYcQxnDjbBBLsEsiwiafAUtyURRyVF2No81+YLN7k WqcMhjvy4eG2KzUZD0mPmqEoY4a64hnaqmfoaZ6hr1Okd4ZuiY7aRGp8w1SF sDlKM5vtp2ndacTgbmNu7zVhysCEmX2mPNhnwoP9xtzff47xfWfo1DtIs/Ye anefoj6xh+6EQRrcqsUC13Iv8xazObeYzxvlUf4ID/OHJU7vZyqrS3Xel3Yl U8xPnwQRQh0SH9OV+ZqRwm+YLP+Budq/8KTxP7iT+IzXbf/Om44fJRTppzW8 g/qwZqpls5QGplPiF4LfCX0B+zOMV3+G5VYtIk8bYLLmM86vEbBFjq1Qpq5+ JQjuxV5ibe+zBj/1co9+X9SgTqMPOHeM+BNnSbpkQ4aZNcYbl3NGczEuWutw Xb2R68tX4Lp8Od5LlxKydBnRy5aRuHwZqSuWkb5yKWkrvyJZdkXKl6tJ0dgm 3iWUNqeFq9EhYa0j7hHcFMSVkZUVB05TIYjXmVoupDGK95uSHfJA6Zoi1j/V XpB2SCRPEC+3SaTOMonmq0m0X02g30OoZUQ9g6GCuH8t46ndhxdQz1Sj/uzJ v1NR/ZTUnBnyy2Yoq5uhomWG0vYZOm895c03f6HZzlVCIiGT+y9Qtu2sqPd5 BvaYiBqbMrXvAjPy8wcHRA7K+4PGjOifpmXzARpkFzQdMqdZ/PFA4l3iT6cy GNjAXME0j2WHPSub5nn5PZ6WT/KodJxppfg+t5t0iywybZpFxaepTXpKZ/Zb Roq/Y6Lye2brfuRR048MRw3zStB+3fUD98sf0yKkvS6yjZLQEopCUsWJhOJz Up8zgrjRyk8x1fgdHqbOOO1dx/l1n6ma6FzerCX+93ecWbcIh0M78DYyWDDm 6pKVoEPHybByJOaiI9n2zqS4XlXtAKWBpsPhLVisWoT3mjU4amhgtWQJrks0 CFq2iqhlK0lYsVJQXkmWxkpyViuynEyNNfKzVeQprejP26vmNtSJYW8WPW8X gtvmGU6dhIhFJ0ypu+JEq32gEGPlTCOMabEH8xLGZdjHkO2YRJ5DKpV2mTTZ 5NJhXUCvXQGDDvmyY0qYSOnhTlIHt+OaGAut4IfHrw8toJ6rziXqvfvup5T8 T9QXvi127qrenx3yqS1n7WjYaUzvHlNGDcyY2H+R+wcuMnPQjPuHLnDnkAn9 e8QCHbxIw1FLmo9cp90uh6G0Oe7mCBpeszzJmeB55TNe1Tzlde0TXtQ+5HHN LLOVk0yW3KDYsUSQrqVYnEy1oNye/Zrh4q+5U/UN9+u/Zb75W3qiRnjeKeSg +xtmqp/QHt9PVVQjhRGFIqkUhQZzZfu6hf5yK37LOUHVSNBNt7zE8VW/xXrL Zq7oLaCstOK5uHmFRGcHiBad9T1rTfIVO5J8XZWL/79S3Xuu/LlLqoibBGau S5fjvFwDmyUr8FyyirDl64hdIWorHjtrzWoBczUF6zTIX7eKnLXryV63kbIt 28nevZOXc08Ybxtgsn2AqQ6RzgEGkzNUTTpb7Pxosw/66OSjU4x3tvCKXHvx b3bFNNpW0GlXQ79THTfc6rjlJRGPd7WYx9tM59xkIrNf/GITt6ML1AAXvQdT tpHSTbLLPpgbTqFMimEZM3VhQMAcFTDHBbi7IrcFzNnLznQfvUzLMWsaj9mq np1OhYxkP2ey8A3zZV8zEvWUl3Xf8KbhHW+b3vKq6aUY3ieijrNMVo1TL2qd fknADJ2S2O0RLfL/tmfNiXcepjaqi+a4blHJKm5k1NGd0sVo4S2GcyepS24j PzqfguhkckIDObLy9xiKRzZc+RvOaS/htOaXHNbajtkX68nR0iVMcxPXNHfj ePQCDsctiHR1Jew/3V8vgKmqaIlTA6lkv4br6OAsYZf78vU4L1mN51caBCxe TbzGRrHNGmKXNchapUHuag0KBcRCTV0qduhTvm0XZXpbGKhXd9H7Vx40t5Jz wYKw46cJPy7uTxR0XBRUOQLJsg4h2zaDPGUAnU09rXat9LlIXOPZxZhfN93O FUwGd4jBm+NByX2misbF6PUJltX8+OIFBz8E8gQtNp6qKR2dKiDDmFTGMEsQ +FydEPy1VzTfqPJXo1TJwN1HrwqAtgKkPS2GtnS6lnIz/w1TpaJR1X9muvRH XhY/5W3L93zd9h2v2t7xpPUls82PmKy/x0TdDYqclFv1AdWA2zSfLtVpWGFw M5URLdTHtlKb0k57UgsdKcodTZN45RrKE4U6p1ZQEJ+O9Zlj7Fn+KftXfcoR zdWYKVOHT9hw7mAg7vrOZBu70iRgnduho9LKkxJq2Yo9VRIRIj5IuI+1/iA/ XI2iUhoTfWofIRs18dbQxGulDr6LN+C1eA2Bgmr0yo2krV5PutjarNVrKBJv XLRah3KtXZRLbFWxcw8V27cRa3xUbfl+zfzsPdKiF9oRXdi4gkvr13FlvaZq 7o3dBk3KTl8ky1LsrnUhudb1VNl20u7cz6DnDW4G3GQ8ZJRM01QepPXztPql rPNjpiqmmSgdZaKkjTd3734Mqy3NVh6qoRsdAuuwwDohsM65R6ryvF96Lcz5 W5iQHMkLgbXz6DWalYmlxx1oOWFHR4R8tARBUxXfM1/3F541/TujmT/yTeMr 3nYKxJ3f8bjjLbNtz5hsnWGiZZS+7CYyHG8QZtNCmH01iZ41ZAcoOltHpXCq OqHSDQrvSqulMUsgTS0hJ1Y4QlIxMT6hWO49iMPRc9hdDMTVPBBf8yDCLgbh fyaCcJN40i7FCzUOw32HBcZr1nFq/edYC6z/3VVdjM3PihmlbsgcJbAGb9DC d81W/CQoChOJXr6J2OXCyVZsJGv9FnGjG6nduJ0GzZ3Ua+2mQnMXhRu2UbZ9 FxW7t5N+cp9qhTsbK1UHn++nBF5Zr8G1dRuwElgdBFZ3TR38dh0kyjiErOsV 5F1vpcqunw73mwz5jXMr5C7ZdoMMRs1KQPqYZ2L35utfck+cmDJ1eqK2lzf3 7/8nVB80ddFipbbrYnXHxabPqNvBqs5cVCl379PuIrhl4UmToNpg6ED9STsJ dN5IoPOtWNTvmav/gSctP/Ci/Qemy77nTff3vOwWVLveMdP5gomuB0x0jnG3 pYnM0CTcjSrwvlZNuJMgKz4iK7CagvBqSmOrKU+upiJDntnV5KaXkBKfi5+D N+d0tmJ3zgE3iyA8zAMIvRJEzKUgUY5IMs3DaTrpRe6FMHKMgsg4FUjUbjc8 dIyxFFQD3w9A+aCGLcr6v45bihBEAtdtwmflFvw1thO1dhfp6/dQtFGfKi0D 6rUN6NY3oXWTgYg+DZv2UKmziyLtHRRobaZi7w4SzI6pbhSVE1HvD05F3Q7t wnrtBmxFSZ00tfHUFmOgtwtPA3f8DyWQe72LSqdh2r1uMxg0SWvgI9ryv+Fe whTPmn8U+bOEGV8z1fyUidb7oiVDvJmd+QjV/6mca9Jw3U81DqNH3eRX6Qqr QlZ11BIlpkTJ49vII+HiNyzcJSiyoc7QnirnMglsXjFc8lYCm3dMNyjTy7/h acc3zLd+zzvRz+c9X/Oo5zXTvc+Z6J9loneU9sIc1b71umSF68VU3K2qCXat JsavmuSwajIE1awkkTR5nakMqCrB3sSYExpfcO3wBTwuB+Jm4oa/kROxZkEk Xo4n3zyUEvMw2XH2VFiEUnklRCSUYvnzJANzog9aLazs9Y/vbsPVE5I+UTVy XqnqvV2QEIDXMk18Viio7hBUdwuq+oLqPiq191Onc4CWbcfp231cqMA+GnT1 qdTdQ7HuDoo2baFoszb+yny1o1tUJ6GqKXwfnIQ6b9XDbuNGnLS0ZceJrupu wnWnK267oggwLKDceYRa1xtUS6BZkvEDt+MnmBG39rT1zyLfMtcmqCoDsbrF 9nUJqvPvUS1WZyndb+hRNaBsFgvcJ7p6U4Lwu4LqfaFeM6pT7wjVwLv73mKd fUKoOmRNqUko5fHzNGc9pb/4ObeqFg46Z1te8bDjFU+6XnGn7s+87p5jrv8Z 9wYfMzE0zd3+EeK87GQFlbKOL1Tf1NPcHxebNFw9qvETXQ2OqCZUUA1OEJT9 A/G2MFGdGpluWY+7qSNupp74nPMkwjSCdPMECiwSKL4UTeW1eLrPB9BgGycU MpEWxzga7KKouhpEwRl3gs3NVCvsf1191yuIBi3Mz/6EQBWgeQLmxPAdogzO 47NsC76rdhKxZi+p6w3I19xPmfZBKrX2Ub1hNy3C+dq3H6R+iwEVensp1ttJ 0ZYtpEmUfX2Phmo+jarXorp25X26f9C5IypAHXS0cNXVxmeLDu5br+C+MwqP wxlEmtVRYtFESuRr+qPHGM2YZE5U82HrWx61v2a2W5a6T9R0QPxq7yA/fPO1 GtASdc7X+waUTf9/e1/+1uaVpflOUlWp1DzdNdVPV011J5Xq6ppMJ7EdL3h3 4i1gjMEG7+CF3WBssxgQi5CQBBIgCcS+g9kR+y6QhMS+L8Zms1lsvCTeq5Oq mnnm1zn30wfG6Z6/YOqHm09J+LZz7jnnfe937jkEqHsJUA+TmU6QQlkRyjuk zCkyzXGu+KQSLYEalEvvQJu6gJaCZZgrHmKo/hEmWx9jVv8Y9zsJ2nY9xnLv I8yb3+De8APMjC7i7sg8RnoGLd/Rrl/6Dz3f1q0TvM8tFBzlCOO5TZ9A7BoE iacIYtKVwj0JOV7pqPTJRJFbIm5dkKCCdDsekIWOkGwamdCHkS6FOeiISMd4 ohZNUUpEss95zA/SLVhra1kQ2/J+CcUZXJ8qfrG7GGqvcIK3ZFmbbKDcynb0 O+AWKbJstz0qd9lyrTfLrL5Gq91llLCmGISqS776GhVkdfH2++G646O114vj d8is2y7AkWOR7SEISJFRpEjxQQdEHkpG9PlKKDyaUR5oRJ/IgA7NEIbL5jBW OYcF8nQL3Y9xb2DFUiiERLk8Pcfzlho+uZMVqKwkJTYK1NATou4iq+wlatxL 1LhboiZPzmWwcX/dnruAEuU9VGUvoLVkAebqRQw2LmJct4SRlnn0Nd6FrnIY JiKcdw13oKsdQqO2G2btEISuZ8ka2fv93rKGu9qTbd0iT5LrGWS7+SHLj0ii Txji3L0h8QglLcYizicdyb5FyPG+hfKrJSi/Qv7VU4kSwkJz8jKYhKU0iona F6I1IgfNkdmE8DsxTX76L99+h+VFyyaP92Dq4GnFP6BKU4mqFDOCN7A+QjaQ bbFD0nYHJG0+gLTNXyFr8z4UEJYttCJ1UYisPeKAnJ27kLlzO2KsPof3nj/C 69AXlvf6rcX81k3M1HWLWDHW9khx9kGe+w0I7SQQOOZA5FaCnLAOaOVmNKm6 0JHM2keZCeab0Kftw1jXXUyNLmBieAY/fP8Dr7k67vCzd7KazQVa3LfksP2E 3xnTemsFBUkLqMxbQHPZAgy1pLTyKXLeQ8hI0kIRGQeVMA4pscUw1fdBr9HB ENMK370HEWBty7XJWlVU+DFHpHkGIPVaKJJ8o1AgEiI18rqlsAUDmP7XEO0a BYl7ImLds5F9vQb5vhXQ+tegOaSORiW6blShK7oe3dI6GjUwSivRFl0CXSwp T1mBmbJWvLw9Zdl8tQFV6npUJQ1AfkWDoI22iNxkhwhWSG7DXiRs2ockoiFp pJoMK1axbB/y7S4ge/8BSHZswqWtH+H0hl/Bc9+/cS0PFNf4PoD8UhPTjfr0 eeT43sStwEgUy4Vry0xJXqcQYSuF8EIZ0gQGFEsMqIk3oFljgC6TLCzfgPZi omWlenR33cH3P/wv8Ct8bTy7efLkNUZHFpCmaUWiqB6x/tU0QaqRQZeSBmbB 2cER3i6u8D17Dp7HbOF1xAYOf/gj3D/6CJoDdvDffxBXKMRHHr2CkHOBFICC kBYlXGtfmMGVLMhc49uJfjehvKohjaVD4VmKZK9KFF6vQ1VwExrD2qEXtRM4 bkR3jA698jb0KJphVNTDoGyAnsTcHl+KwVwtXs7M/px/har4ZmIpw6hOnCMG EgqXT7+E76e7EMg2A5P0pSR9OUlfYUVH8mcxhAczLgbjotXHcLH6CJd3fIpT n/0akZeOr0k//rQL0q8Gk0WIuCWgn3AP//dI8j4J0cGtEB7YSpL3Q5y/AalC AwoVBpST1KtI6tUk9apbpIWMavQJ1fjz4kNe6K38xpXJsfvIz2hFGY064lVt xK8M6lbk+eQj+YwcSkc54RkBrpCw/Y7YItDaBpc2bYbT7/4Fvhv/iKBtv0Oo 7WVEeQfg5sGDiLCzebvOEbSWAb62zsEaWHpFIvFqFpQ+pYi5VIJkn1oUBDSh SqBDc5Qe7ZIuDMp16I4zojfBgG5lOwbSTOhJM8CQ0oz2ZC3ak7Jxu6rk57w3 1hLaZGWbqtT3UCg1w3HTRhz97BOc/XwDLm3cCPcvSA+bt8HXahONDbi4/RN4 WH+NIIohYf/6GW7u2oDzX36McAIMKp9QpFy9idTw62urNask39Iilf36JeJO fI0okj8byfZHMSqQoyq0mOJfCdqlJTAoSmCML8ZIdCpmBTJMB0djKigKPyw+ AO+SWrjDB+ho7OdK5VbRaCNFmEkRAylt6JZX0e3K3GPxK6I2chSelyP1WAgi bI4SHjkKzy074bNhC67v24zgQ5/h6g72ew8kJxwg+GY/pERp1q9TvMetUvyG 00Ia389NfSUMid65UPtUI+laMzIDdcgPakNluAGNYhN0Md3oFppgVprRr+nB aOYAhrL70ZNphiFTh47MGnRk5GFxuP89PpeRLVPkpSgQSTM4iobIj45XCTP7 iFElGyYLuYcwZwGuHT2Di4SbbT//BA4bP8GJL/4JZ9ia2rZPcN6KtEdaOnnA Ae77XJHs5I9mt1MQHDvNbbmPIAvhSsSsW4pJCeKT2JmC/hs0V05yXe+EpCDR QSuUu7jjNstaFbCsVSWWwy273lciErjc1fvhCm7H+1yoGC8NZl5HzdxhN+6O zqEyi+2w00GXpUdPRidGM1j2dzchuXw03mB7lJPQdF2NOqKmNa4K5DkGQXbs OGLtjyPV1hYCgiJRx6wRdng/zn36zwi2OYwI9u82+/7jwsO6dSS28JBIU1Lt nguVdw2S/HXIC++CVtKPFsUQjV7UyUyYy5zERM4YJnJHMJ47RN6pH925RPXz 2skB16IjNx+LoxZQUkgKEvEZVzGs2zzz+P8MOekp6tJZeBKEjvNIhbe1E+np FALsTyP0+Gm4fb0H3vuscPXwHvjY2sD3jDeC3aMRclFJiDEVab7pyPXVQOIk RfDhKwg7fZZjwO+srbA9hOwdf8WVkUm4QGGK9BR5yIpA2i50+AgwTfT1PpGd BxFqPIpU4wk5r6dClsaqxFIk6ZDfQD8rEOIdRe1FJfm6qqx2NGT1wJw5iJHM UdzNm8BIIkWikELoBYXEPWgI8tAenMlti2zylEJz6gISDx9FsvNpJJx0QryT I2IdT8B/73Z4796GIPJsoUf3W76t8j0sNIHvbqzn2jbf8IHqYjZyQrsIBOgI qZhQIelBY1wfOhL7kSeowWR2J8aySEHpZgxmmDCQ342uQhMMRaSoIjKoglwo /ZzXsqtkN95CeKUl3+Y9btv3bxHwjT189trj5MbPcdXWCdePOSHY4SRu2NhB csoBIu9IiIliRRPRjrmSDI1fChKvpKLOLQFFXmrcclNB4yBCyvFYJF68yRnV OmW9x73fP3CFZ8SHtyCMZdse2gG1vRPGicDMhqtJIYlYESbhadTbNNYnUWos ExOYj+R7AUSI8NflZZ4KNfG6mhm5g6p0MqoM4rgZE+jLnIFO1sXl7vYTeugU 1qBLXIv20GzSlQbtgmToCKXqgpSo8PRH9rFjiDt7llAJga7Tp6E4dRIxpDeP bZ/BnyBCoP0hiC7ZU2x8u1KwukNfua7ZU0FgC3KCOkmuLcgU6FES3YnqWCMa 5O0olulgSu2ASWPESE43epNbYEprhCG/BXoCXx2lVWjOz0LImbcrBKs79jlS yYyLZdFs4lKmYl3P4eqeY3D4I6tSsQN+R0/QY57AzSNHEU10KOZGPCS+KqIz aci6Fo9C33jkukjReVGMuqtE6+n/sW3sBc4iFJ0TIetcBHc7VqaJLXOtvh5b Agk9sAWhB7dD4XAcPaFKTISpMU9kZTkyCY+iLMmrz9jgE1eXucRVVu2brEsY jVemTvxIY+YaI7evryZ1HB3p8+RiHuBuyROS1DCGNX0EUdthFLGtn4XoEJKF iTLQJkqFLioDrYHhyLriiyQCcEnnzkF97iziz56G/PRJmqonYMitxzUHcofk 27msM3odReDbTsexNEotnY7xfPl7lIsnEe/bCE0waS20DrcialFJULkhtgG6 +AYYVA3ECwhEZDfDRGFKl6NFc04FWoorIPU4geDTlham8nXa0qzf8b+RI5IK t/Nw+NePcPx/fAxvmxNw/J9/IODgDKmXBGKfJApBGmRdT0SRnwYVV1OQ6SjD sK8SupsZNGnT6ZiCjvBs1JD2qt0VSPXwJ2xL1w2wvJripqWRdxBpS+Zw1LJ8 F6rCBJnWPGlqWajBI1EyvhVZ8lWfidnyexKWRCxXdX0x8M53lPUv0KqqiKv1 ozZ5GoasZQwVfYsZ9qGs7k+4U7OCyaRO6IRa6KMroY8pRXtsIdpiM9ASkw9z jIKIpQBJ588jyfk81M7nkHD+DOTnTkF6xhHauCTMtPegLi8NZiKIq62Io0hh 3ZZWxO/zX6HaM+chc6tHjG8NeccKZAkqcStKS1hAiwaFFq0qLXQpWhiLdWjL qURzXiVqc8uRKxbhht0Wbv9n7P+D4b/PMcUNazlMLtv+AMd/+x2sf/9PxGW2 ErUKg+yqms7VIPV6Ogr8clBMHLj2Wg6KLqRgiiKASVgCs7CIjoUYUTdgmnhk r7QIrQEJiKJrilkbdXqtaFJWj57NLSUMQTGkqHh0kw8cD0/ELClqMeptbir7 7PUtKeoxW51jScVcfXBSVLRkNWA18RBcG1fPkYa65HtkAo8xXPoSs9xXsD9j IHkM061voJMS55DXQZ9QjXZlOXSqfLQnkIkpleQAz3Aakh21h8zWDjHkSWJs 7SE5YocGNdH5zl68WJy3dGH5JUrkgwg7Xw7xlQooAyuRGU60hyZAuYJIfaIW talaaLPqUVemg5a0kS2JhfjAJrgTO7Qw9p+9w9jXsXWuPAApPIEtSJynsHXa CZe3fAG3PVa4dvwyZF4iKAgbxZECkj3SkedJYdJZQQhXhWJXelJxCXpldeiL qUVvTDVm8gcwWzKMmQITZrLr8ZzCxU/4PedLrAE4a1l1Mw5dAiVGSQl3WUd4 8mvLZCkrpITHYj6/kCWfSUgJ0oTVres/0kGFrBZVcWNkKQvQ53+LofI3mKn7 Acutf0Ff2hj6cqfxbcc0ybuJgjhNAQ05/eQyGNKK0ZKohOy4PcJ37IFo517I aaiI3LGi4Mk7DqPWJQjlZ6/i0fCYRQdbsGw0Q+TghoCL5Qj3q4Q8VAuNWIsM eSUy4iuQripHRlI5UeEq4hZnEL11A6L2bsaN7Z9CctnxHWa+mt+VdPkM8j2v Iv96CAoJLFYIhcgWXkeM23E4k1U4b/8DZN5h3KqQzCsVCR45yPC8RdZQhnLf ItTeKEGJVxFmY7UYiCPqm6DDWKoJy7X3MF91BzPlQ5gp0eNOXslP+anUfkMK fZACnaEJGKDYMhFpyfG8xxqxkw6WyQAecMUrEjEvVXHynyX5P+/uedcIPsJM 1xKqYixlkWtVs2hT30Gnapxo0CQGNYPoSiC4Xf8AY+WDMKTq0J5BRDCzAW3Z 9NSCYAh37Eb0zj1I2LUHKXTMIiXk0rHykCNMlwNhdA1Ef4AEk8mF+JD3S/rQ SEKBUuK3NvCxv4aQs4G46RGPkHCyDgq9ygvXoXa5hqwvtyD/a1tkfvklKnbb Qf45EYqT1pwWRMdOIYPYufyiP3Kv+OOWRIiUiOuwZGn8xtJ2mn6FnjwAV6Jp 4ksCRLspEe1KCM+9CFnelSi9VouaoEY0C5opgNRgVtnA9T8aVHXiSfNTcgQP Md9wDzOsSWt1D7nw2p/yRS/eLK6gLUBOcSYeZnJFg+EWLbBsvFlREuYpTsxH k3uSqjEtU9KIx1Jx2cn1wv8Yz5ZfozikC+l+rENGNxpj+mFSDZLwhzCa1o9+ FbHxhFY8nHiKsZJ2tOYQ7CmoQ3NmPuKO2ZPgdyOORgoJP2fXXhTs3odiInb6 E5cx5B6EO4FRmAqRYDxIzJYgLKz9tzBwTXwtLTzFNrYI+pJo7IbNiNq0BfEk 89TNluyVPPqd9vnn0P5+GwY2foVb247QrU4iyU+ARLElryL53bwKJv332I/3 OOn/I+Rex+Fz8GuIXEQQX0yG5GIB0Snybr61KA1oQm1oG5ojO1Ad0IzZ1DaY YjswmTmGp7oXeND2FPMty5hpnqFBVtDQ8jO+XMi8rheNgXFoCVHCRBbQT+hq hOTP1vMnxZad52Mk+zGS/b3iilPvyv318kNkuuQg1Yv4XKgRNRITOhK60KPp xnAGKw3RgW51PUyJNZi784w8UQUa8qtRGBmNiO07ISGPo965Dxm7vkL+nq9R vPdrNNg4YNI7HLd9w/CAq5Qnw0wot/RgkftvKG5ZsnrMIURTndxw66ADkvcc RsLW3Yj5YjMSN25B615bNO+1hm77CRg32mJu+zfQbvsKhV/uQLa1LcdEVrl3 SuBb3r26xLBa6Naf4nfwcTvikmxrfxqxpyIoPWoJ2jai9KYONeF6NIk60RCi x2hKFwaT2ZQbxmzlfSx3PMd8+yPM6Gnu68cw06b7gK8R8nLxEbRB8agjnKQj z99JFKSbZM7VCSGZd0lUuF1UwacKN/Jbd1bLserDopHrTm72ugHFkQTzCerr 1Ub0pBoxkG0keF+PjrRK1CfXYjinDi3pRQjZthPh2/dASl49ced+ZO45gIJ9 B1F3xBG3WQM7PxG+EybgMbHTJcZOwy0rCS8Mpg/4PTqGmyyXIhZtvpGosD6J apuzaD7igq4jlzByxBVTtm6YPeqGeTs3zNm5YsLaBeP0Nx1f2aKU/FvZvq+g djvDNTRN5GsVc0TaUjXvv691jI71Ps5VzZP7ukPppoHKoxRytyoymFZk+rdy lQO09N46RT/ahCT01DGab6MYyRjBAFHmZeMrzJmekFNewIx5AjOGdt5pfoAp Qz+mOwdRGkE8hBh5T2EV7ncPsu5POPOuuEeyWTFWMYxE1AfDYpHvXYPUQCOK REbUxhvRkmJEB4nbUGhEY14zitLroKWQrfz8SwTQXAyx+grROw5Atesg0vce RsWRkxj1FuNxWAJeEr98QXTlKXHMB6yiXiQTuQTToREf8EG2I1DEibvixCWU W59GjY0z2mwuofeIGyZYd2A7T9w/5oFFlgts7455e1dMO1zCxDFn1O8/gsr9 h5BHpJ9LIFi3fLGaQLCe9AucDyCICCD3NfGCGqrLJUj0aSQ3ZECFiLCdrA9t 8SzfdxCVRFX6Eg0YzBzAcFY/zbheLHU9x1wvSbyPJN47jimjzvtdYepDhSTM 1f71cZghIQyHZuGWoB6psk4UqDtRkt6J4pxONNL8nYhJg/GSK/K20ZzdfgAR O76BbIc1Sp280OMVhumAODynCPGSvNRrsppXYr52nigB86x2XiTN34ioD/iV 7aV2ljESg6JDJ1D+zVlUW1+AzsYV/bYemCRBzh3zwqKDF5aPs+GJhRMk4OM0 hx1cON1UHrRBxcH9lu/2/BIDo6tq/ps9o6vvcZz814jyXNcvm/C7yrkI6iv0 mkEdyBP0kbn2oCm+G+2J3SijedRfSHg9swv92Wb05Zkw3nQbs+zr3RD5jYFx PF9ZK5DSwO/BXORKrlrySHsEcRgnac7TjF6JZMUaE7lKgq9ovBaxaaYmdqzE UlQc14yshkTQQtCAuc+RMBVm2C5ebgevBi8I8bwixPMmmh3pv0XT/xOT7xfF E6uO5Rqj/pz/0qS7QeI84IiSw+e5Vo9tNm7os/XEJIlyzt4bC8e9sXyChqMX Fhw9MHPCDVMuvsTQ6TmEMWhxcuSWVrmKtv8Jn5TT6DM0oFf3tou1wssXcacL yCPUQhPQipzwdpRK+lATZ0AzzcmOFAOM6QaYs/Qw53XAfKsdw22jmBlZxPTI PdzuH73yriS5Bups706InFhrPJf1bSlem8QVr2Xz643YUrz2Bc2xJ2t9COWo JnDWcuEGzKG8JMmLP6DznhJ2fE6OgNW/ey1JxkuJBk8JxTygc+fFJEkxSVK0 Kslf4zWhoML9ThTInFFx6DJabNzRfdQT48e8yaJXM4JpOHnjvpMnphzdCJvS tZhWRHStKBG3mTmX5dbR5BQFsMkoDmTraz0WLsvdqZdvqM6qh8YxaV4UQnGh GvF+jUgJbUYOObYKBQU1ZSuaNHyiWmYz2ohONWZUQ1/aDmMlSblch8GiWgpu 3T+al8t6E9dg3RiiQK8gAZOE5+6xHeJRli3GTCJvaPxJwirZJuEJza8lsaUq YNUBmpcuN2AKIc8QrsI0nbfEKoeydYNoloWZzBWye8GkSTFyKZokEE0SiI7F NFHtD3lm1eQZRHDXGUUHL6Pe2h2dR70wRJKcJEnePeGDWSc2SJKX/LEcLKP7 M3pruc6sWLSKrlk3n7U23NcsfQ+kZ1Mg82igqdqE5Igm5MUYURzXhMqkJlRp yPsT36lKr0J1VjV0FQboyg3oocfuDZLBHCDFJF+f2vNH1swV85Ry3c05qZFF 3hNa1rjYislLfh69ZlKTJBEnTMQi37Cry/Uamp2vo5OseZDm4BRXCDSJ/GAy l+TIJPdMwoqCkiRJaoscj2ElKWPwsrt7TWojaQUkuXCUOvhStHFDK80/M0lt gKQ2QvNvnObfoq8Qz6I1lvsTQpmT0HWIXj+4VfgLXmoyn0trxV5Wv28k+AVB 6N0IaXAT1NF6ZMY3IzuuBrkJVchPqkJhWhVKcupRU0xBRZLCbZe7TYqZuCnF SJAEg/5ifL/wYLVCSiOfWKQPkHCpnd0ksXGS2JyQvTWf2snmi8QyX1i2Ltd4 bq3ungxN7gLog+PIdyoxRudO07lsuxdjfCv0ho/YkFgKeN5jBeNkcbhLEvsF L603iw+h95dxGushj2FwC0OfZySF90jMBcnpfJI+G3SNh1xyk0Xqs9JY/PXh ww95BjFj7EZOWDjct2+F986t8NtthRt7rCA5e4wL1VIKciGCRojFrZBFV0Eu r0K8shqqiCS0yPMJLbBaMqymDAFlQSz9jqH/JuXKSo/5R/1IYMM0+7gO3Vwu rAp3uZrHlqxJ9rBsl+p3nHGRILkXZ8sNCkxLpJY2woEKdNC5rCU0q356N4q1 hSbBiS2ZXPe5WmJkuLIETJHA/rLyiK8P8vcYSilBO1FtVrBzgLWU5nP77pHQ F8Vsn10SR7Pv031niWzM0PlLxaWrH0hfEdOoE0jQSFBMRy8Z/c0R+O/YhuBd 2xC2eyuEe7Yiaq8VEjxPcSE55ptvuC5DMgrZqgMH0ekTgllBPO6HxWM5PJ6Y RTwehsfRb1aXm6AX0ejZYBGek/9yXy+1j/GK7LXVPxYdRFG5rMQfTZeH0Www ia3WtovHNEntLysr3BXmdH2oD0qAjqB+N0H9IXrzcXrz26wqYzSryJjIVWQc Jmn/eeXR3/HMbCCtHC3BCUTwVegnL8oEPkWnTbNWv3S7aRLWFJ02ScK6X1y+ 2u2VUbJWogesiyLDrf0krFECCRnWdojaaYXIPdsQvZd1ZtsKGQ3psQMQH9iL +G9sEb3/AHQ+obhLBnU/nHApV1JbhSc0nkZaymsvrdVdkRAti3RfTwj/jpsl TUQn20OV6KGHHuUfeoYeek78tjfxlIw9OJlDUSlfjeMXeEHnmjOJtAjUaCca ahISFSII00UyMpH5ThZp8e8rj37J/3l3egXqgpVopz8305/3k0qG6DZDJJtB uk0/yeZuccWHvFzaOdokIZIrxUBYDMbJWu7y1jN05SaK7eyR+NVOCAjnRdC4 ttcOflYn4P+lE+F5Oxj9FJgNt2wGYx/0ntLTfUcY/hmNJ1EqAlAEwFbLnYSL 3Nd/0/uvHN2roTnAtp+ZaA70EcUeJrmMkExG2GZDkkkfuZlH3f18Lar38d3q nhbzIAVzVrvw/bXqhRYnxP75czxfegxDdiW09HSNQjVaWD07CmmDt7R48/Dx hzz+Xu40r5GZHiIz4/TiM+ss4iGNyZsKFF4WIddVgvTjfsg86IqUPRcQb+VO HP0qCqzD0e2m4L6/sJov3/EY6Tmp6SlXt1pFcYsvHEJI8WWn0W19uoal/245 +dwGEmMrPWgbndVKSGaZGNjrh4+28Ax/lSx00oMOELydohl5j2xvmZ+RdyjY 5bvLcItGJY0mVymqrH1QuNMFeTsuoszGHzVOUWhykqDHOYaDH9+KNO9xGORn eEo47gH7VrRaKYN9fTB18s/6ipfYm6VlwteWJR4TTZUhcl3TXEkiNYez74XE odxdgmKPWGg9FGh2j4fRLQEdjkI0HvJD3gFf1J4Kh/5sBDouxqLbRYqxy1Ku bsez9d9BOPxhKfswJ5a4v/sUywzp89uYOJxJ0psh01rm6+60+UhR5CFHqaca 9R6pMHhkodczF6Zz9CTHIqA7K0ODiwydl2XodY+lKEXXcJNgia7zdP0iPys+ IaGnkMgxG/3jp1jSd1q2OgXLLbxBwHhDIpZZVwISbplbND2FBhUeuWj2KIbZ uxzD17S4fVMLnWMsRm5kocNbA6OXCn0+CRjyjcfwVXIlFD9XxJYV7gfr4iRb 5X7Z3cM/xWveiA1B0VzE5xBimOUJloQaunoMCtyUKHLLo+lQgTavOvRca8ZY SCvuCtswGFCCYf9CckVagmFZMF/XoP+GCoOBKowSuLAEMEsKsiX4xJNvjfV4 9+4dAaSFIHb3eAzR3dlGpPt0994bChRcTsct1zK6ewN0V3XoCzZiXGiiK5kx IWrChNxADq+JnHwV2gMyYLqZgv4QJQZC5bizrjQv8+ZjFPooELxz94+wSARW HxALI4WhPrr7BN2dbWbRX1Mi72IePUENKr3aoAswoS+iBxPSfvSJu/Aoc5jr ybdS+wijiTqMprTAIM6DkSBEVwSZF929j+7ey4qAFlcyF7sKT9/wKGU4tRS6 oDh0klcf4BZoE9FxVYHs84V06waU+BjRHNxL3noQo4ph9EZ14YnuGZ52/IBv Dd/jkfE1JqtvoyevCU2xGWggat5Ihj9g8VDe6+/2a4q3K2jwJ3Oi4Gfkgl8i F0fSzxQi62ITCvxMqGWVByQD6EvoR0loJebq72HF8AqPjS/w0PwM93qfYqZ/ icYEXhJ79rXc4k/c4R/xgm7RxeJHiIoCJYUXuny1bw5SXJqQQZcvCetGvbQb Q2WLaCudwbzuKTHup1gyP8Zi3wpmh5a5dPO7gxP487//ib/699zhV5xDnjYO opwcci055FS3CqQE9qIobgz6kiX0VS9htHEZU23L9Hf0kD3ETQcXcWdkAVOj 9/Htk2d8v3L8lQcD3y38gDzRDIrY14WCBbRXLKCrfgH9ugUMr7bTGqZBl7gz s+JnOft/c4cP0VDxGNlZCygvW0A9ndWqs3RQ0/Va+j4tPnqFa5ZT/g93+CmG br/BxOwbTN1/gztLdKRxw/InXPTx+9vvv/3+2+//337jv/xfZTiKMQ==\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.4720965540000002`, 13.160051864000001`, -0.253223284}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.19997601, 12.260542288000002`, 0.315584242}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.06135612, 14.225857328, -0.687860264}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.196531504, 17.549885362, 0.098265752}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.846262302, 15.730079224, 0.978878068}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.827914984, 13.47374638, -0.31369451600000003`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.4399712120000001`, 7.723310162, 0.470541774}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.54323625, 5.91484238, -0.262671914}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.050017764, 3.314579404, 0.852266426}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.438416432, 2.450974622, 0.013228082}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.49288354, 4.40306158, 0.901399302}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.221647884, 3.673627344, 0.2834589}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.149288354, -2.076808874, -0.287238352}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.010668464, -3.8852766560000003`, 0.268341092}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.45508902, -6.47231155, -0.8503767}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.084702724, -7.36048277, 0.166295888}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.085922558, -5.415954716, -0.570697252}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.7579951220000005`, -6.164286212, 0.23243629799999999`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.347374638, -11.882597088, 0.49132876000000003`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.953641738, -16.206290176, 1.3020212139999998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.5102260200000001, -17.183278518, 0.153067806}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.58736984, -15.253868271999998`, 0.60471232}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.130941036, -16.060781274, -0.489439034}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-2.609711606, 16.51620524, 0.6614040999999999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{3.2824540620000002`, 11.481975175999999`, 0.863604782}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-1.7139814820000001`, 9.958856019999999, -0.999665054}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-0.15684725800000002`, 19.828894918, 1.5476855939999998`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{4.257552678000001, 16.682501128, 0.196531504}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-6.224757444, 12.360697766000001`, 2.127831476}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-5.854371147999999, 6.865374558, 0.7899054679999999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-4.958641024, 1.664848606, -0.139839724}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0.20786986, 0.12283219000000001`, 1.216983544}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0.91651711, 6.72742456, -0.338260954}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{4.418179388, 2.641836948, -2.218538324}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{4.236765692, -2.898839684, -0.9297451919999999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{3.42985269, -8.133380704, -0.024566438}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-1.7820116179999999`, -9.690514928, -1.007223958}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-2.443415718, -3.101040366, 0.6557349219999999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-5.775002656, -7.141274554, 2.7646691380000004`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-5.699413616, -12.625259406, 1.42674313}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-4.9775382839999995`, -17.903264124, 0.68974999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0.105824656, -19.494413416, 1.430522582}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0.857935604, -12.948402552000001`, -0.602822594}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{3.802128712, -16.986747014000002`, -3.01411297}, 0.178]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.780121892, 13.288553232, -2.326252706}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.46453765, 12.045113524, 2.382944486}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.745771878, 14.543331296, -2.7401027}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.020786986, 17.992081246, -1.938858876}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.791460248, 15.539216898000001`, 3.0689150240000003`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.459418414, 15.403156626, 0.574476704}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.016002696, 9.862479994000001, 0.126611642}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.06757524, 15.151823068, -0.5121157460000001}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.419399222, 12.124482016, -1.8103575079999998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.147278678, 10.567347792, 1.925630794}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.42518835, 19.432052457999998`, 3.2711157060000002`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.447530116, 8.099365636, 2.528453388}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.692524604, 5.793899916, -2.350819144}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.16529105, 3.380719814, 2.949862286}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.362827392, 2.294127364, -2.076808874}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.353043816, 4.663843768, 2.981987628}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.47075677, 5.349814306, 0.432747254}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.934074586, 2.279009556, 1.68185614}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.1015903080000005`, 5.610596494, 0.476210952}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.603372536, 0.015117808, 0.489439034}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.386054046, 0.844707522, -2.067360244}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.279679448, -1.655399976, -2.3300321580000003`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.30546572, -4.03456501, 2.339480788}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.419184226, -6.374045798, -2.946082834}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.0091136840000001`, -7.528668384, 2.252553392}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.08970201, -5.13060609, -2.653175304}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.03922935, -4.50699651, 0.130391094}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.540341686, -7.5966985199999995`, -1.0884821759999999`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.516110194, -4.136610214, -0.7086472500000001}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.987656806, -9.785001228, -0.587704786}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.784451286, -8.940293706, 2.647506126}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.056356834, -11.44229093, 2.515225306}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.7646691380000004`, -16.021097028, 3.3844992659999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.780456838, -17.521539472, -1.901064356}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.83303422, -14.91938677, 2.662623934}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.472646496, -14.44695527, -0.48565958200000003`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.983207462, -17.570672348, 0.68974999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.993875926, -13.866809388, 1.34170546}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.457863634, -19.532207936000002`, 1.230211626}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.413849994, -19.097570956, 3.150173242}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.509221182, -18.751751098, -2.93852393}, 0.1]}, Text3DBox["1", {0.8720965540000002, 13.160051864000001`, -0.253223284}, {1, 0}], Text3DBox["2", {-1.79997601, 12.260542288000002`, 0.315584242}, {1, 0}], Text3DBox["3", {-3.66135612, 14.225857328, -0.687860264}, {1, 0}], Text3DBox["4", {-0.796531504, 17.549885362, 0.098265752}, {1, 0}], Text3DBox["5", {1.2462623019999999`, 15.730079224, 0.978878068}, {1, 0}], Text3DBox["6", {-6.427914984, 13.47374638, -0.31369451600000003`}, {1, 0}], Text3DBox["7", {-2.039971212, 7.723310162, 0.470541774}, {1, 0}], Text3DBox["8", {-4.14323625, 5.91484238, -0.262671914}, {1, 0}], Text3DBox["9", {-3.650017764, 3.314579404, 0.852266426}, {1, 0}], Text3DBox["10", {-1.038416432, 2.450974622, 0.013228082}, {1, 0}], Text3DBox["11", {0.89288354, 4.40306158, 0.901399302}, {1, 0}], Text3DBox["12", {3.621647884, 3.673627344, 0.2834589}, {1, 0}], Text3DBox["13", {-0.7492883539999999, -2.076808874, -0.287238352}, {1, 0}], Text3DBox["14", {1.410668464, -3.8852766560000003`, 0.268341092}, {1, 0}], Text3DBox["15", {0.85508902, -6.47231155, -0.8503767}, {1, 0}], Text3DBox["16", {-1.684702724, -7.36048277, 0.166295888}, {1, 0}], Text3DBox["17", {-3.685922558, -5.415954716, -0.570697252}, {1, 0}], Text3DBox["18", {-6.357995122, -6.164286212, 0.23243629799999999`}, {1, 0}], Text3DBox["19", {-1.9473746379999999`, -11.882597088, 0.49132876000000003`}, {1, 0}], Text3DBox["20", {-4.16213351, -13.666498432000001`, 0.12283219000000001`}, {1, 0}], Text3DBox["21", {-3.553641738, -16.206290176, 1.3020212139999998`}, {1, 0}], Text3DBox["22", {-1.11022602, -17.183278518, 0.153067806}, {1, 0}], Text3DBox["23", {0.98736984, -15.253868271999998`, 0.60471232}, {1, 0}], Text3DBox["24", {3.530941036, -16.060781274, -0.489439034}, {1, 0}], Text3DBox["25", {-3.209711606, 16.51620524, 0.6614040999999999}, {1, 0}], Text3DBox["26", {2.682454062, 11.481975175999999`, 0.863604782}, {1, 0}], Text3DBox["27", {-2.313981482, 9.958856019999999, -0.999665054}, {1, 0}], Text3DBox["28", {-0.756847258, 19.828894918, 1.5476855939999998`}, {1, 0}], Text3DBox["29", {3.6575526780000005`, 16.682501128, 0.196531504}, {1, 0}], Text3DBox["30", {-6.824757443999999, 12.360697766000001`, 2.127831476}, { 1, 0}], Text3DBox["31", {-6.454371147999999, 6.865374558, 0.7899054679999999}, {1, 0}], Text3DBox["32", {-5.558641024, 1.664848606, -0.139839724}, {1, 0}], Text3DBox["33", {-0.39213014, 0.12283219000000001`, 1.216983544}, {1, 0}], Text3DBox["34", {0.31651711000000005`, 6.72742456, -0.338260954}, {1, 0}], Text3DBox["35", {3.8181793880000003`, 2.641836948, -2.218538324}, {1, 0}], Text3DBox["36", {3.6367656919999996`, -2.898839684, -0.9297451919999999}, { 1, 0}], Text3DBox["37", {2.82985269, -8.133380704, -0.024566438}, {1, 0}], Text3DBox["38", {-2.382011618, -9.690514928, -1.007223958}, {1, 0}], Text3DBox["39", {-3.043415718, -3.101040366, 0.6557349219999999}, {1, 0}], Text3DBox["40", {-6.3750026559999995`, -7.141274554, 2.7646691380000004`}, {1, 0}], Text3DBox["41", {-6.299413616, -12.625259406, 1.42674313}, {1, 0}], Text3DBox["42", {-5.577538283999999, -17.903264124, 0.68974999}, {1, 0}], Text3DBox["43", {-0.49417534399999996`, -19.494413416, 1.430522582}, {1, 0}], Text3DBox["44", { 0.25793560400000004`, -12.948402552000001`, -0.602822594}, {1, 0}], Text3DBox["45", {3.202128712, -16.986747014000002`, -3.01411297}, {1, 0}], Text3DBox["46", {1.1801218919999998`, 13.288553232, -2.326252706}, {1, 0}], Text3DBox["47", {-2.06453765, 12.045113524, 2.382944486}, {1, 0}], Text3DBox["48", {-3.3457718780000003`, 14.543331296, -2.7401027}, {1, 0}], Text3DBox["49", {-0.6207869859999999, 17.992081246, -1.938858876}, {1, 0}], Text3DBox["50", {1.1914602479999998`, 15.539216898000001`, 3.0689150240000003`}, {1, 0}], Text3DBox["51", {4.859418414, 15.403156626, 0.574476704}, {1, 0}], Text3DBox["52", {2.416002696, 9.862479994000001, 0.126611642}, {1, 0}], Text3DBox["53", {-7.66757524, 15.151823068, -0.5121157460000001}, {1, 0}], Text3DBox["54", {-7.019399222, 12.124482016, -1.8103575079999998`}, {1, 0}], Text3DBox["55", {-6.747278678, 10.567347792, 1.925630794}, {1, 0}], Text3DBox["56", {-1.02518835, 19.432052457999998`, 3.2711157060000002`}, { 1, 0}], Text3DBox["57", {-2.047530116, 8.099365636, 2.528453388}, {1, 0}], Text3DBox["58", {-4.292524604, 5.793899916, -2.350819144}, {1, 0}], Text3DBox["59", {-3.76529105, 3.380719814, 2.949862286}, {1, 0}], Text3DBox["60", {-0.962827392, 2.294127364, -2.076808874}, {1, 0}], Text3DBox["61", {0.753043816, 4.663843768, 2.981987628}, {1, 0}], Text3DBox["62", {4.870756770000001, 5.349814306, 0.432747254}, {1, 0}], Text3DBox["63", {4.334074586000001, 2.279009556, 1.68185614}, {1, 0}], Text3DBox["64", {-7.701590308, 5.610596494, 0.476210952}, {1, 0}], Text3DBox["65", {-5.203372536, 0.015117808, 0.489439034}, {1, 0}], Text3DBox["66", {3.786054046, 0.844707522, -2.067360244}, {1, 0}], Text3DBox["67", {-0.879679448, -1.655399976, -2.3300321580000003`}, {1, 0}], Text3DBox["68", {1.7054657199999999`, -4.03456501, 2.339480788}, {1, 0}], Text3DBox["69", {0.8191842260000001, -6.374045798, -2.946082834}, {1, 0}], Text3DBox["70", {-1.609113684, -7.528668384, 2.252553392}, {1, 0}], Text3DBox["71", {-3.68970201, -5.13060609, -2.653175304}, {1, 0}], Text3DBox["72", {-7.63922935, -4.50699651, 0.130391094}, {1, 0}], Text3DBox[ "73", {-7.140341685999999, -7.5966985199999995`, -1.0884821759999999`}, { 1, 0}], Text3DBox["74", { 4.916110194000001, -4.136610214, -0.7086472500000001}, {1, 0}], Text3DBox["75", {2.387656806, -9.785001228, -0.587704786}, {1, 0}], Text3DBox["76", {-6.384451286, -8.940293706, 2.647506126}, {1, 0}], Text3DBox["77", {-1.656356834, -11.44229093, 2.515225306}, {1, 0}], Text3DBox["78", {-4.589211586, -13.885706648, -1.9199616160000001`}, {1, 0}], Text3DBox["79", {-3.3646691380000004`, -16.021097028, 3.3844992659999997`}, {1, 0}], Text3DBox["80", {-1.380456838, -17.521539472, -1.901064356}, {1, 0}], Text3DBox["81", {1.23303422, -14.91938677, 2.662623934}, {1, 0}], Text3DBox["82", {4.872646496000001, -14.44695527, -0.48565958200000003`}, { 1, 0}], Text3DBox["83", {4.3832074620000006`, -17.570672348, 0.68974999}, {1, 0}], Text3DBox["84", {-7.593875926, -13.866809388, 1.34170546}, {1, 0}], Text3DBox["85", {-5.057863633999999, -19.532207936000002`, 1.230211626}, { 1, 0}], Text3DBox["86", {-0.18615000599999998`, -19.097570956, 3.150173242}, {1, 0}], Text3DBox["87", {2.909221182, -18.751751098, -2.93852393}, {1, 0}], TubeBox[{{-1.19997601, 12.260542288000002`, 0.315584242}, { 1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.05], TubeBox[{{-3.06135612, 14.225857328, -0.687860264}, {-1.19997601, 12.260542288000002`, 0.315584242}}, 0.05], TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.05], TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {-0.196531504, 17.549885362, 0.098265752}}, 0.05], TubeBox[{{-5.827914984, 13.47374638, -0.31369451600000003`}, {-3.06135612, 14.225857328, -0.687860264}}, 0.05], TubeBox[{{-3.54323625, 5.91484238, -0.262671914}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.05], TubeBox[{{-3.050017764, 3.314579404, 0.852266426}, {-3.54323625, 5.91484238, -0.262671914}}, 0.05], TubeBox[{{-0.438416432, 2.450974622, 0.013228082}, {-3.050017764, 3.314579404, 0.852266426}}, 0.05], TubeBox[{{1.49288354, 4.40306158, 0.901399302}, {-0.438416432, 2.450974622, 0.013228082}}, 0.05], TubeBox[{{4.221647884, 3.673627344, 0.2834589}, {1.49288354, 4.40306158, 0.901399302}}, 0.05], TubeBox[{{2.010668464, -3.8852766560000003`, 0.268341092}, {-0.149288354, -2.076808874, -0.287238352}}, 0.05], TubeBox[{{1.45508902, -6.47231155, -0.8503767}, { 2.010668464, -3.8852766560000003`, 0.268341092}}, 0.05], TubeBox[{{-1.084702724, -7.36048277, 0.166295888}, { 1.45508902, -6.47231155, -0.8503767}}, 0.05], TubeBox[{{-3.085922558, -5.415954716, -0.570697252}, {-1.084702724, \ -7.36048277, 0.166295888}}, 0.05], TubeBox[{{-5.7579951220000005`, -6.164286212, 0.23243629799999999`}, {-3.085922558, -5.415954716, -0.570697252}}, 0.05], TubeBox[{{-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}, {-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.05], TubeBox[{{-2.953641738, -16.206290176, 1.3020212139999998`}, {-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.05], TubeBox[{{-0.5102260200000001, -17.183278518, 0.153067806}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.05], TubeBox[{{1.58736984, -15.253868271999998`, 0.60471232}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.05], TubeBox[{{4.130941036, -16.060781274, -0.489439034}, { 1.58736984, -15.253868271999998`, 0.60471232}}, 0.05], TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-3.06135612, 14.225857328, -0.687860264}}, 0.05], TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-0.196531504, 17.549885362, 0.098265752}}, 0.05], TubeBox[{{3.2824540620000002`, 11.481975175999999`, 0.863604782}, { 1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.05], TubeBox[{{-1.7139814820000001`, 9.958856019999999, -0.999665054}, {-1.19997601, 12.260542288000002`, 0.315584242}}, 0.05], TubeBox[{{-1.7139814820000001`, 9.958856019999999, -0.999665054}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.05], TubeBox[{{-0.15684725800000002`, 19.828894918, 1.5476855939999998`}, {-0.196531504, 17.549885362, 0.098265752}}, 0.05], TubeBox[{{4.257552678000001, 16.682501128, 0.196531504}, {1.846262302, 15.730079224, 0.978878068}}, 0.05], TubeBox[{{-6.224757444, 12.360697766000001`, 2.127831476}, {-5.827914984, 13.47374638, -0.31369451600000003`}}, 0.05], TubeBox[{{-5.854371147999999, 6.865374558, 0.7899054679999999}, {-3.54323625, 5.91484238, -0.262671914}}, 0.05], TubeBox[{{-4.958641024, 1.664848606, -0.139839724}, {-3.050017764, 3.314579404, 0.852266426}}, 0.05], TubeBox[{{0.20786986, 0.12283219000000001`, 1.216983544}, {-0.438416432, 2.450974622, 0.013228082}}, 0.05], TubeBox[{{0.20786986, 0.12283219000000001`, 1.216983544}, {-0.149288354, -2.076808874, -0.287238352}}, 0.05], TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.05], TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {1.49288354, 4.40306158, 0.901399302}}, 0.05], TubeBox[{{4.418179388, 2.641836948, -2.218538324}, {4.221647884, 3.673627344, 0.2834589}}, 0.05], TubeBox[{{4.236765692, -2.898839684, -0.9297451919999999}, { 2.010668464, -3.8852766560000003`, 0.268341092}}, 0.05], TubeBox[{{3.42985269, -8.133380704, -0.024566438}, { 1.45508902, -6.47231155, -0.8503767}}, 0.05], TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \ {-1.084702724, -7.36048277, 0.166295888}}, 0.05], TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \ {-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.05], TubeBox[{{-2.443415718, -3.101040366, 0.6557349219999999}, {-0.149288354, -2.076808874, -0.287238352}}, 0.05], TubeBox[{{-2.443415718, -3.101040366, 0.6557349219999999}, {-3.085922558, -5.415954716, -0.570697252}}, 0.05], TubeBox[{{-5.775002656, -7.141274554, 2.7646691380000004`}, {-5.7579951220000005`, -6.164286212, 0.23243629799999999`}}, 0.05], TubeBox[{{-5.699413616, -12.625259406, 1.42674313}, {-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.05], TubeBox[{{-4.9775382839999995`, -17.903264124, 0.68974999}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.05], TubeBox[{{0.105824656, -19.494413416, 1.430522582}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.05], TubeBox[{{ 0.857935604, -12.948402552000001`, -0.602822594}, {-1.347374638, \ -11.882597088, 0.49132876000000003`}}, 0.05], TubeBox[{{0.857935604, -12.948402552000001`, -0.602822594}, { 1.58736984, -15.253868271999998`, 0.60471232}}, 0.05], TubeBox[{{3.802128712, -16.986747014000002`, -3.01411297}, { 4.130941036, -16.060781274, -0.489439034}}, 0.05], TubeBox[{{1.780121892, 13.288553232, -2.326252706}, {1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.05], TubeBox[{{-1.46453765, 12.045113524, 2.382944486}, {-1.19997601, 12.260542288000002`, 0.315584242}}, 0.05], TubeBox[{{-2.745771878, 14.543331296, -2.7401027}, {-3.06135612, 14.225857328, -0.687860264}}, 0.05], TubeBox[{{-0.020786986, 17.992081246, -1.938858876}, {-0.196531504, 17.549885362, 0.098265752}}, 0.05], TubeBox[{{1.791460248, 15.539216898000001`, 3.0689150240000003`}, { 1.846262302, 15.730079224, 0.978878068}}, 0.05], TubeBox[{{5.459418414, 15.403156626, 0.574476704}, {4.257552678000001, 16.682501128, 0.196531504}}, 0.05], TubeBox[{{3.016002696, 9.862479994000001, 0.126611642}, { 3.2824540620000002`, 11.481975175999999`, 0.863604782}}, 0.05], TubeBox[{{-7.06757524, 15.151823068, -0.5121157460000001}, {-5.827914984, 13.47374638, -0.31369451600000003`}}, 0.05], TubeBox[{{-6.419399222, 12.124482016, -1.8103575079999998`}, {-5.827914984, 13.47374638, -0.31369451600000003`}}, 0.05], TubeBox[{{-6.147278678, 10.567347792, 1.925630794}, {-6.224757444, 12.360697766000001`, 2.127831476}}, 0.05], TubeBox[{{-0.42518835, 19.432052457999998`, 3.2711157060000002`}, {-0.15684725800000002`, 19.828894918, 1.5476855939999998`}}, 0.05], TubeBox[{{-1.447530116, 8.099365636, 2.528453388}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.05], TubeBox[{{-3.692524604, 5.793899916, -2.350819144}, {-3.54323625, 5.91484238, -0.262671914}}, 0.05], TubeBox[{{-3.16529105, 3.380719814, 2.949862286}, {-3.050017764, 3.314579404, 0.852266426}}, 0.05], TubeBox[{{-0.362827392, 2.294127364, -2.076808874}, {-0.438416432, 2.450974622, 0.013228082}}, 0.05], TubeBox[{{1.353043816, 4.663843768, 2.981987628}, {1.49288354, 4.40306158, 0.901399302}}, 0.05], TubeBox[{{5.47075677, 5.349814306, 0.432747254}, {4.221647884, 3.673627344, 0.2834589}}, 0.05], TubeBox[{{4.934074586, 2.279009556, 1.68185614}, {4.221647884, 3.673627344, 0.2834589}}, 0.05], TubeBox[{{-7.1015903080000005`, 5.610596494, 0.476210952}, {-5.854371147999999, 6.865374558, 0.7899054679999999}}, 0.05], TubeBox[{{-4.603372536, 0.015117808, 0.489439034}, {-4.958641024, 1.664848606, -0.139839724}}, 0.05], TubeBox[{{4.386054046, 0.844707522, -2.067360244}, {4.418179388, 2.641836948, -2.218538324}}, 0.05], TubeBox[{{-0.279679448, -1.655399976, -2.3300321580000003`}, \ {-0.149288354, -2.076808874, -0.287238352}}, 0.05], TubeBox[{{2.30546572, -4.03456501, 2.339480788}, { 2.010668464, -3.8852766560000003`, 0.268341092}}, 0.05], TubeBox[{{1.419184226, -6.374045798, -2.946082834}, { 1.45508902, -6.47231155, -0.8503767}}, 0.05], TubeBox[{{-1.0091136840000001`, -7.528668384, 2.252553392}, {-1.084702724, -7.36048277, 0.166295888}}, 0.05], TubeBox[{{-3.08970201, -5.13060609, -2.653175304}, {-3.085922558, \ -5.415954716, -0.570697252}}, 0.05], TubeBox[{{-7.03922935, -4.50699651, 0.130391094}, {-5.7579951220000005`, -6.164286212, 0.23243629799999999`}}, 0.05], TubeBox[{{-6.540341686, -7.5966985199999995`, \ -1.0884821759999999`}, {-5.7579951220000005`, -6.164286212, 0.23243629799999999`}}, 0.05], TubeBox[{{5.516110194, -4.136610214, -0.7086472500000001}, { 4.236765692, -2.898839684, -0.9297451919999999}}, 0.05], TubeBox[{{2.987656806, -9.785001228, -0.587704786}, { 3.42985269, -8.133380704, -0.024566438}}, 0.05], TubeBox[{{-5.784451286, -8.940293706, 2.647506126}, {-5.775002656, -7.141274554, 2.7646691380000004`}}, 0.05], TubeBox[{{-1.056356834, -11.44229093, 2.515225306}, {-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.05], TubeBox[{{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, \ {-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.05], TubeBox[{{-2.7646691380000004`, -16.021097028, 3.3844992659999997`}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.05], TubeBox[{{-0.780456838, -17.521539472, -1.901064356}, \ {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.05], TubeBox[{{1.83303422, -14.91938677, 2.662623934}, { 1.58736984, -15.253868271999998`, 0.60471232}}, 0.05], TubeBox[{{5.472646496, -14.44695527, -0.48565958200000003`}, { 4.130941036, -16.060781274, -0.489439034}}, 0.05], TubeBox[{{4.983207462, -17.570672348, 0.68974999}, { 4.130941036, -16.060781274, -0.489439034}}, 0.05], TubeBox[{{-6.993875926, -13.866809388, 1.34170546}, {-5.699413616, -12.625259406, 1.42674313}}, 0.05], TubeBox[{{-4.457863634, -19.532207936000002`, 1.230211626}, {-4.9775382839999995`, -17.903264124, 0.68974999}}, 0.05], TubeBox[{{0.413849994, -19.097570956, 3.150173242}, { 0.105824656, -19.494413416, 1.430522582}}, 0.05], TubeBox[{{3.509221182, -18.751751098, -2.93852393}, { 3.802128712, -16.986747014000002`, -3.01411297}}, 0.05]}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5734911324625587`*^9, {3.5734912359063406`*^9, 3.573491285420827*^9}, 3.5737999612594304`*^9, 3.5737999970302935`*^9, 3.5738000545631943`*^9, 3.573800088602454*^9, 3.5738001222205133`*^9, {3.5738001941678395`*^9, 3.573800221109087*^9}, 3.5738003058640356`*^9, {3.5738003434913015`*^9, 3.5738003725385528`*^9}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfXl8W9Wd73cSZyMU6JR2hgItb9rPfNp5n762M+9NS6EzpZ3SeR0KbZkp LWELhbIPBGjKUnZooSyBELJA2AmQBUKA7I6zOd7kRV5kW7YlWZIlWZJlWbIk y7ak+85677nXV7LDmz/e532qTxzrnnvvOb/f7/z28zvHP1l+5/XX3rL8zht+ vfysH92+/Lbrb/j1HWedf+vtpGn+XwB/cT39OQv0uwbI/zTyT7uB/kdb/vz9 z9//3/p+F/01j7LqfNYwH5xt2TNYKNoKhYLe5uMv/o79qjI9Tj7zKvRSX1OH 4Q/emkMvdrAsEI+6enxwBYegZfwULq8VjyqbdxeJtkCMXOcnoRF8PMcNwWLR ls2T65KGQiaFAbWXhdZeKlFF9pYnvY0VSNtoHP22k8LeWyrgpFMRy5LHx0Io Fgpu/sbTojN/WEN2ukSQzKOX33rUZuz5BqEWoFDk6AT3H8FI9QGUyAiuSu/O bJsngAuHEnjrV7dC+6efQjtWK3p5mP6qKjc38xTEHvjHazDyHysw3dujvqu8 QT8LKkBFezm4MQStqCPxiJma7JtkiHZnDFqIk73L9vGyElFEfke9+qIdsebN GNG5uY8BR686+Yurxa3W5hHk/L12twoFMqfdfeqt58WtuCOsy2eH+VZ7QxKF qUm7W+FQElrAY3eLcdg2t3prjbhVszGiA99uvsUoGei1u0VpldnZqt56Qdxq 2eLRO3Sab/W4xpAXHYpbl9vMpKqi+hzN7PdXVKo5O9QuLjt+QZVsEA4N49D9 qzAaDeEMffx5uoRKSIYdQwgPcNK2feJRpajsX9WgU+jz4o6lGzupkkA31DvR 9KdHMejxSGAuN8M+sz+JSJczhPzosDF0lZn0UoF4Sd9Xnf5DrGzowqFL/gXp WBSt/9eIMw4d7GFXp+tENgRqgRi9pvoo7vj+rbh/nx+O+2+B/8ju/4LRKc+W WjsVsi8w6SD5XVFrS9Dn9uKaXz2GVx54EofWPAznsUMoZfLQeqOY6vcgl8mg qTwrS4swcrRLh+c09v+icigIJaPD8CnU7g3iw331eHPzDrS2NuqqIZXSMDSl IU2NlzeBkm8ME14vMpks6nh3N4vxDz1bb2Y5TqIqE/IK3/W5YpjWVKu2CKlx DdFpDVPUssXGUOgKYjIUYuAcMQ/X2zWMnGCz0+w5cp6ZWuR/ryeKSXXODIbm b3NAPBENwwTr/AR5tDeESacPw71uJLyeGt75daLDPLGYklaSMcKhUZ0FP29h ezNXeT0RpEc02kNVBRTKGLI+8ua292oQbTkKAdaltjKtC2cVfETDHD3jW9D+ 8evUnZHdU77VWrnK+xvRliVT7OvXUCwZXpQFurk6f9WVoCvXVoXD1YfR+p1l 0H7yC2Ik/PJR38Z6/dGzlNGiAcVtm6dSSu28lsPyS33Oy+vBBYT9U/ho/Vak 1q9DLjuMfDqlT8lhhd+/qIDRU696j3NSuypMlsm2Oh+L2Ri+dUfJbw2Dk2mU Rv3sjtMRRHZ0WAWl4SMNmYmc4Orj0mgCpF9Z+Ndurpdgz7oeRgo6pidFndJD eH/DS1j/pb9H29oXWPuZ4n1HDXFXxPtLbNRZve3AVQYxdEXC7pI+2p1EC/gM 5bfqlWb4Bzux+8or0HzzJYi7XdzyUlfek9SVTm95rqwSXauEsupQKjPFrR8I 6i3C2uc34Z5f3If373oQzU/9Ft6tWzAhdNdpNvpH+ODLbYbnXZ5iahs83KfL lNvtwRXXPon1j6/C7o2PwRuIwZcmc011SU8Co3UdiIfCn9VHjSAV17izw0e9 uuyoS/S2tvowSsQPpK85a4hW9PrhIyEUvZ4vkKZM2JfUEBrTMNk8jClXBFmB 9Cm6IskwRVIiV/2zDW8waTg0RtywBvR2ZDGlaSeI271BjeGaI6MWugmuTS6M p1In2igCEWVdORfuN+w0ndfuq9djkui9kxQ06aBx8jPZGCEGYRA5geYiZeSu o7x7ESV+S2fimf6eajlOs5GDecpzbyw7SKM2/CVrOxG9BMFghtBglIDrGmE0 yBF1Te9Sam/esBHvnPV1Iv95ZCdyItj9x7krpHkKThuveQijHQ34kmhr3q9h 94duFInIfVawjE4fIvyTvnGsW/0SHv7WMnz0q8vRcsMFyGczOH4opML3+ENI TuZZiPk5G1JJ2+n3jDPhpg58YM/eEw3FUcYJWcgQPOdLt+APl96LXffcB+ef bkUqFvZa58/OkkiQR9PE6cvyV06dC68tMd2m0W++KL9H8PEt9yAXC+NEy5CV 52oB1q59D3fc/BTeI0qh+tVHMEkYpzLNDf9I+pANYWLvxxLs6jPHhwqlZCLK pVxe+wk69PenKkyunQpgdmRwCA3PH0D7wBim0t20zTM7NmUyOJQ/g8SvLBAu OtUiYvZect0ujsJnbMEEdPPeScyuViJmf6iAUurIDMk33Ew78yVdnXAkgRjx Zqe+9VUU8vml5YhjUg0qZ8gRIkcOweMmAbzOjAtMvZg56QTTvS5XCKVAN/t+ xJ1Hx+sPIvX8GuooCrPxXRuKWfhC9536evuw+Qfrof34P5B76RWMhMKQSrzM +xyJxaYu5fdEIoWt1zxI9f5f2jOAoRDm2yCXpwk8p1OIWRhPrXFA+5eLoR2q Ecido+uL8rzJ3a/qDW8jtno9BkNZBBNED3dNYKJ5EKlQePFsombiB9VJ/rR5 fst7PIt1+Rp58zD7niE6//lLHkDiuQ2Ue1R85pAEWyQmpYtY1p6YhnF3Gnln UBo4u8hEs6RRDn1UwGP3bWRO4F/ZcufMNsknTev2M2T2vZ9DOjPKvgs34Vx9 IDu4TxAzkiKWsI/MQixYYMY56/XphEXZdIVEq98dZcLCEgcDrr82M5Epeuwi ot7e3MVUnMcKYZlhThZA0nytf5xjPtWZwESfR6WGnWGgP4lEEpm41KhFJDa8 jkoguoj/lXS0o1gsSRC/W2H+mHbjVF2CicNDyDS7dW6TXOZ0NKOH/EQGDa3d vbdVp7F1wg1pmSno77/bDK3DKezST3VGN/wjMa2UEf0E8awrz0TrtQ2v4slv XISdP70A/R9spoNLpmo83D8jEHP3BolU5BB/bb80gj8ry4N2hmkh9ux34yd/ dx1euPROHFq5Al0PX0WdMCPKJ/zi4078FwQrU18tGtIY9Z3rOVuLWfh5WSLZ j05f3bDhfTyx4k/4+Ok/omHjXdSiqwF7YuM7ptF72qYxIfK2nfV+RhMx+sXi Eet0GDK8kMS649j42ocIbn0d/lic4DqupghcdMYFlT9j5rv5Ci39/hiTD/01 1xDCrTyaPNmeE9nr0lLTrKBkrOrZgV8k5Ia+UqrjWbL8FNEFxTSmwj523eEY RGEqL0x5mSSG6v8XEI/QvEdJx6LT2YO+9b9VsLB3BWfOJNfxa3/zR8ScR3FA 4fvjWb86gfUy9tYuvZ16NC6anhqLwuPx4/D27RjsdVcyjUpzj3MayfGMCmJu YoJdnVIBFTuUPT4/vOE4pmKjcsJ+ZmaPhbqAS7MXXHPIIgQLUOfNIz30Jl79 zr/h4H98H+OxKI93ZmQf/P4oimX0TnkScicwOTKOfDSK/RzSX1nmXv1tJ51S rXU4O3Hdb57Djvsfg+O+m+Hb/jIV/lNmn9dYiLvIdlZygSoIFNrMSBq59Dj2 8Ucute/eBGhRzUUuZfbj8ksew8b7n0TNmkfgbDqEMInVc+E8pprjyDgHkCb0 oN7R0tmhTxFHg159thIkldRMFXweL4YO1qJAjGE+l9vLH1hmQw4TXiUVL65p P9jmQPXhOgx4eGbE8NA0eElkHMoSCtJRdocw7U5hwjuIeDS22Myd7Ntf63po ns6xcqWgu9uDjNfBui0SV4OuAu+ZG9SlVESBej7a6rPIEMi5zuLQ5ic1DBFB jhBIcyMaplxJ5DvDyLBZyUuyURcvTByySIDxz+cFI1omwJYlNLNl8XgCmIj2 6lqkxHHazd/95Vw65rcnw279kUQigWJeW6rTUaRO5CdGdHKSYDjRNoKpriTi h+owGo2xZ9587Q08eObZeOs7N8DbWGtZtZnJZXxiFhE9EIaWCptUoiYmaJci 35a5Ju9TI6V1HtXfbDmg2caoHIATTW2ZLHfkBtLE6+yI4l+/cDmev/BGHLz5 enTf+zPKiapala99toJoVFo+ZEiOBU1sxBBNc0R38l6uEqSiq42ak9vBdqf3 JBsKajNW5AgvPnPTY9j3+CNoW3sHCrmjKPlqkWuug9vRisYzvo3SC2u4yrIE KKpyGPAQMNNB3bOWYEaJSR8d8HykQrqAW+xjTUySkxFNyROUUStGOtT62+Ua YN87HnkWY8kRwQwFeIn/WNMXQ2z7FmgX/eyLZVjbQ+HOhOUaR3tbO2q+dD60 c88jLJ3/kD93sT0lTakAisogCQ0dtSnkpibtiI+ZSrKc8mh9+5CSaq3CaGIU nR/uw4QvTmf+CzbY6N0Z2LSSCdx97tUoXXwlDQ1N2MzdyIdCEVTf+wii/W5b Lw6qgVcYi/fZ4YiwggLVEJdinH9P1x82+VC5sAITDdKGsK1Lg4+o8IlsVrDS v9vPiSnN+uDdvfq9T9lrA3US7CaCJaK9ncrKFnkuXjLAr+TW56Omtqb6AdSJ 9PTO8ljMohTcvSG9bbZwm5WcvPu+7leMjmWhBTOMtTj0J5jeVQVKClJT3RA8 Y9ru4wZYzSMnwxoLID6rz9HMZLenukfXmpLc/sEpaLGogazxrgw86CtvvOSB f0o3zT8vI+xzALanI4eJ6Sl2JeNJV/Ow7oNISgaHyXupUXZ1hhBqage3b9iI +jUv4I03MxgjQcReReYs1QiS56nmyCQ5GGeJNsZ2QW5iZX7WEyQ+SIybzZMM CsxIb0vfhfb7g9MuxKrzrsDKHwfh2rlNOpPfsxc8C6epJkwGPnW7S3rbWfpz RUzvqzUBS99tZgAnbIMmuyyd5Di/ZxDnf/N2rL7mARx85PfoXb9iru7+ixy/ f7bn0krrzY01xxB6cYNwvSalRxAKjeqPysXxwIEevc3Al6/AUR/8pDngy5aq iO2Z7ishW9Lw7PNb8fuVq7B5zdPwNdXMFV+j8iWMhtuvYAtFz6s0WGClgUEZ WYLS7R5EfyiIsaKG8SxdVBpGoXUYmeZupIibRsMDyfaUp+IBLstyTain2ajw WqKQo5jgWr68c8UzHfQTq+knViGP4RxdGNOk8+fxBTgnkcBpIpGwo0qVwfK0 dCmJZlG99byV1e3ykNaMLVvLSgnJItGEO4l0qwtjhAxSGgYHPKjb1ExJ8GWp IFwRlIbcYooNCmjCzp1ow44sh8WZcoJeimbVzhST/PXPVVZnEvmgfwidMX57 TUU5mLn2M3NuDFal2cvBNHd6c8TFdr1xDNu++CNo55Cf2iNfVrto6zS6MJni 1HgeE6EJRsWlCj5JEqOONAyyyacfgreJguOcBHYxp1WF0a4PNPB7L8wRfwZe 2bS/1A2U69d/+9eY/unVmO7pLp/ztM890E/10y9imnRTXoirWIi355q7EI6Q KHEkuER0ImWEfnJEVRQ1dT1IUitJSy8SfNW7TCJopunp6UpjojilkqyyabC2 zfYcDfiJz8aujpdsEu9p4j1Wqu72r3mdfQuQQEKLDC5QVAvlrqhQLRGuWj4t eupwk6dHIga9DM/CxrGOhKI4EtTWcaQvrEijLx4XnvYerCljxoVwEhpx5+Va Qa83jw9f3ojVZ34dnvp6w564uT2h+kSWgAwS50tLptjVUjOqM+ph48T8Ha7X sP6/HlO75yo6kmFCdK1H4ryIxLQdWPHff4UtF1+BxusvRtDhlAZDZy76fTJp b4et/ZvFfD4OV9dg9xkPItXcIvG/qILe+W9zxN6afxWglGk2E4A4ntmYHjW2 O124/aJ7sG3lA2h58rfwtx0TlaZCW6bsLa7R78xFJjrpIU8Au+/djt7zlkNb /bxE/k4bYVC6LIurhYPtloPox0/slZaPSOSoC3PJr5/G7jv+iGM731VilPl8 v0Gc66kTLB2faAsffTvQTPw04pMN0VxgrgB3Rzd1kAR2V1YQv5PNaLBvdsvy 6uJHh4P6HeM6Y7+1TWOGI/3udgqNLIFzu4kbEQ0aqNh2WcUqOGJHXdBGc8hO aS+rQM99/YFmDgPNzezqNEFoKwcYpFyEIacRg/X3xhAucVKW6ht1ae/1k/dE ncgJlj6lzp6sHyJ9ljTtVT7EVRVgtGtLJMbQ+PLLjJuNJU9l+XwRont5xDFK dPyOAU1oSWI5mxpNJZn+cJpEb0Xuwkrq0htDbh8J7QvIiz5fU0GtlOwRWqZv ioEnx/K+voWNf8xpqAFaKa01HmNXlgSEBXHV6SmNcTFeJIjLVhJ3NyEbymFw NMUcsjfL07XSfioWprTGjBI9Jddqb53ok1P1zajeSwaeyhoroEQ1NR8TEjir JjNxt5oYkDfn68NpyCaKskJONtN65PB7TSylSB6xS+bwfS+4wh6Y8hWsxHUa m4bWyXE5pYKQyHS8x+PBraf/Tzz81eVwRhLqZg/N1ViJJBVNAY+u5C0O8GKE gnnc/r3zsfZv/gGOtS/A29uHwrFhVutG5Osk2CvXCnOwSlElZVIIkhv7vOQV D3cq7aL48uZuAc4582L86Ye/wSsPfYzuu36qrNLMZ4uWpa7aT0AqI/ssq/gO Vh/C7d+4ClsvvRYtt12KntZmWlJ3yvETRs17ON/cjCkyHU/wF1aIWz09hP/C PD9pF+ZbYyf5Q7uMuAO46n8/jj9c+yj2/OERtK/7rRwx4A+hMNBg0GO+gWFF uZIiJHM+zcQI3Xbx/dhyzyNoWnUXUrEIry365JRwufqQzwxJStwubjk6iCaJ DBuqzZYSS3Uo/WTK00dH2O6OsTwvbtm0eQ8+/mA7Er4IU3gGewQwPdyj9D23 tROdb5SyoSr0ETt25e9exPpL7oajdq/h7Bu2XYbB/iDR6ZM8xfZHM75UMY14 KmU0+JT5q13sW3SqRNlQUfgLMUoVTaxff0csYp2sg6xUwhjFXzo1TTuofJ4Y BrK8ny1PbiK6oFy94sw2Hd2Age4f+Hh3KOjmPQWG7lJ9cMESXuJY5b2yV/sk ul4JOFCCFvKxK1dXL4KuDmsdL9OdUTOuhFo+Txh7IsaMO+rbaRr2VPPL7NsS C0IUyMc4KHcqCGXaeIWZGll73R6k26eQm9aQzM8pLjGTtgq9PhpfJfDmxo+Q 6Gk7XcDvJ0KtZaP64z5PBDtcmlGt5SHmjAuQZQlakX6JU5ABy/eL4rfi1miS BIUtDQIbPirbIUJkbeiwG5OBHHypaRRK2hy3GKloMeEP0oV6lrY5XQzD0BIr G+lUBs/VqWlIwkyDvARx1tURy3ABgmc6ehiR6gOU6x7mIN5opoxJsF3uIrx1 DWgib/Q7mucxiKsw2EwwJz7qGPFdpzStzFacymqPaOwRTVnkqUKHsxsTRc5a B7s0NUlRam76RBjTd3/zlUcxcc7P6dZngfFNxztTi1ji6NIzL8ArP7wER6+4 EL51dZgo8J10n2D7T5VCBm2kYKQwy3gLCxV83nvtbXQ7G3GkVVPTCqPbPmZX xmaHSjuyX928C32X3Y3JWAyflCpE87j7ce3378Cmm+9F06N3INxyREl/zMyB jo5NEE01yK6s9fcqdHZjURzPP/08rP5fF+G2ZRGM+jx6sDB81KE/b7dZUbME F+FjKf3eQ+WxNxOSg7B+wzbUrn8U+158HCPE9EuO7OsnSjjI/Tj7OLY8ajQu //dv3oyXl69E/X0rCDq7dFAPPfWm/nyZncaSut01ScZIClaXlxvVtLB+HHLb U30MPX5eQyjjbaacTdGqPRmlLNF3w26vztwvvrQDq+5+GnteeBymbJnjSIu+ KmgsTRohqnyutyGpP2dCfO71IKryLlqLm+31TTaTQ+QK4uoXJ0WNKBfEbj9X 6HapB/7up1hboNeDaWeSFQjRD9MFAsTOXrFCnEzobVKcXa5+JMe5Vftb2dYV hzYeUSlQJkorO7nS+xhx7FfAVcb1EpO3+SMf89mN6J+o8ThX40sEA8iemZkk pj9zMIBSKsdxLFoAMbQm/UyHeFfKqIf21iJxrNqEbTg0ohftHD+26mKGhy5+ JBK6CA0++yLWtPHnzlJw1OJFI18gKZXY14dSLCd4CpUDqhlpYFns+7dKmxby z0TKJrxXl0RTk2mkRtN639TPS+95FYOE1J/ThcZq2kWhgtDFalU03S6frHOj FMohWWRp7kXmbqrMHf6dgkC+J6YicNnxKhj7UioJsr/NhaFQgnDgeMVUG39+ Mdo7JrBz2QVIORyIhiKI7WuDNqq7LUstDKt2wRl4Vjsuz7SY6jYMyoOKBrIs A5Q3AlW6CmD3jLQMXZVIP/ssnB3EycxmTrPpQfFluS356G8vhHbeTzDe4WSr FEb0o8Q8OtdSchE1Y5kjnegDznZkRX2IXJ7v2j1qRfeGOaBGz7PRS96rmELJ j/Vi7z4PXbiz1L+VSzBxJ6h6/SbkVm+g3ZXbSDcdmdWaHTncgVjMbcJtoCml GxOB22/KEZ33wzP+VLVlC0XdAruf2YA83bNKgvtiUeRYj19DyTYjphajxuPj mA2/PvcQiY8GTfjRE1xKsdBM/MqAtsTazH6P0PrI3Bg6HK2Yrt+rbwBX5MUW ss8L0bSVuaJud3Vb10WAnwiZEAiFyARNxFUErtFVhRIqzwTFvLFux3YnvBde DG3dWkZpI0I0BPYLhuRUmXQCDGXuIUGnNhEwwcjW1caGZ8CoEFn8LuPwyxl8 ZfWr8P2Arxn9QLS1tRMExlNC4HkbK7nNmwnF2McXVYG4djYZU4OuIa+f+UI/ 0NuI2gxyC73AhDzP1slqlXRNXO/ygTmOe4F4NxZPk4AoahKDEDX3OfMYqgf/ QHkulqNeKF5z0/SSYDN9+7OHdJ0bMnXfd3RMF2TR/fv6bM1MILCUemTa1C3d RqFluZNi2GE7BSxp2d0wzBaHlUF32IhQJZ/UR/DzdrswSrqRbQMUvwnuG/6V jRyoYm0gVcW2Ct14+jl465x/QsfGFz4RRIvYiSg7zzgX2re/rVOUQZQdslY8 zzeIsQDf+vwy3HveTTi47Ca47l/OGPJ+DsJ2/TVrJnIR+nv7sevsq6D97HLk U5xHQiHCj5mQKPIxS6CO74kzaEJHPPvLK7Diskdw38XXo2XLWmjpEqY6+pCK xn/P+/jABnfb1dlFGCTyFPTG0D+dxuRQP3bu2IOWPTvZQNbqGxNsJ5t6p4/v 2pzCcCaLRkc7XrvlcWTiXDy8RDeGJmk4lsVkez8S0TjuVifOvljNtnjLmMUq PLK5AbXP3IMdF/0c7jfWWavt5cfAgbN5NpNHT4ea9THqbAxXktyYcHSzuII+ xlNveMqGOSx7FyolR6U/dPaZd2LlA/uw76670PXE9QyEU/WXlciHv9BNDI4n zNZ9KlYPGBaMfvqjGtKU7JExZB0uusrEs7x40r4Tu7WyL1Qaz549z/8fT2LF TU/j3WeeRmtLHXIkfio42GZ+u0S1dRqyx3f0kGSGfuJCj+c1OLdvge/1V1Yc N6ay8w5nFwLv8tKiiu6R2V+g4H+0KchOeqHli9mJCR00MhGRaBKF7gA1XcYG N4tfQD/04KWFxw803faaSiXZ1W0q6lYfziCj/Kj8SpEIDhM3erzDqNiz8GTF jLK5ImD31hDyJeNUpGhSQyxB7vWnMB6NS24YTaQIfTShkMw61wz/SgU1C1hl 14TIuF3eLLL5QVaIR6TA7pANez0DG2GkiO3dlkROVizyxesI8T3H2oLIer0n 680FNBzpRSLJXLQlFgqpisFu+JWKyrFj+rLBm76mTkg/PDSI9De+Di0atSYA y407X0zEgdffJSrcWMeg6Ox/L4/MVEFfnaMlCR4yo1NDxAQNxpQyTy7QO98Z YxJxonme2DdhAp42CGzjhsyWfF3xtQdQ+NfLMfXKDuJfxMvkt2DseD6wvxWl wqSO0YEdU0jnJj8taOYbI9PoTKPQxc4T0M9xJWbN3c674xOC5yqI48w2uqw1 CH9bB1KZAgYJt0+2xpCLRhdaOLiM87sAbho2ZfgBns7GEisa+JQuCKYVxBgJ Mqc7BxlBZEaLJUKEMesmyLn5nkJ+Gqx+eOhsvGHsetIQIPOe701Sjpd2ba6s bax/R1EYHUJrXcl2D7K6mCzbMsSkRYmyn+6IYtjjxWWnfxMvffUfcGznEBIl vcxhlY2OOFFhnN5wEdlBwrW+sFGiYOFQI3sVwf61OXZVHky7toVs6+BLL72D u791NXZceS2cd/6SGgEB5duCngO0XK0ljYm2fnpXFSFXI+mwrw+ftgzCUdNF xHCf165+FysvfQjbH3gUbS/chRKZdTHcu2K4PmKSY8OEBzsClElkNTwdrqeZ y0X2qNM6ooHWSbYzTX/TzNDaV3egZ8eH6CNmMFRIIXDkA0SrDyAbjT6lwCGV Kt26748RHdIzQqxCTF3XcDuNERKH22fQwI74Ol1EQpLVYnV36QJ/8zMOTD1x C7S6WgHNFvbLSLllcgQgMiEjJPTJeL1sf8+O196Ac/ceCpFk3v4GYyvsSWbu scbP4re61qC5u3WQtm1phPfZjSwUETBtNks2E2CiaglU557xIzz57UtRfdkv 4fvgLX17GDE0MkNkd+iBVcswXeDq5jUaPs3CIBYdJBf16cPf++oKrFp+Pw49 dC+8uzbpstxc59YBOLWcFpaTxcq8GjvQ1aLh2YpDy90qdHvaLTevQu3e9+Ab 9ECL+XhxtKZx1TgeVtJRdgqJHpI2sqVNKO6KqModsh11vQRnrjQH6RaLIjF/ 8Tga6prRuPtjVqwp19o+3hqA5uDFK88qkzhPJaBlMEYwdYJdIxl0b7gH755/ EVwvPUcJLpOrna3ESxpPQ2vslSi8X6bXUqmgj1hTXYvrVuzBRyt+h64/3oRo OKK7tT7PCE05c15o6RO9GpEs6STa7LFI2mK4e324+uon8cYTz8C59x0M0rMF /AVkGntobCdPoKJ5PnnuIeP4ercZ8Ips5u8T+3n9AaWEbAETzjjRqfnBcYw3 dLMpkDVfXhLCj4ybo5FMg1vZNGf2MBgAd88BpPnETTC6lfWZ7iENQWKJJnuS mOwPMTIa64CmzYqpVIbpON4Z/3/k8IDepZIMX2gCUdEeaqCUE2cy3D5jyhZg aGuL3m/Am2FnGp4oKUQcj2F64EAfcWD7QjLosgtoJBTU9YlTp72oyQgk/WG3 WfNZs5zq+3JS2519CO7ewYoWaq9ZzpJ4IlTZIWg/6uAUofNIfJOTja4XI0cU sVo4yjY+RHn10KBXr8ugQt70zIvstqWa2+pjqnPh6JxEIRpGsbZF1PzpOaXA q3VsVTUcmeKMxvs5Qe/HS13GEUEsAtE7xFQ89+Vvs+uCXFhYyKxIgFhButGQ rcg2s9OUDPoZlkM/VdudgjbMz6a/zQxV5KUD7FgIesWsItcCS/Vc8FVf+zU2 LbuJ0+d9YlvcdUTGdyL59p3IPXYjNX+2LkXZrIuR1KWJK36OpQDqDRtCS885 cN9evQvpZKvjwRw6/vLCh/DKPU+w79FwQIekp6sX/cREJlqb1FUHc4paM+Xd 5sPp6MIwPbIpFpSgPqc/ZBdOL7VRqHIAOSlUaQZ3HWRX1g1X4reUeq9vSIdN wuT20mNMeQ5QJldGHNyT6B0kem0kcSvv69nKGkltVrcUy/UZ+3SBgjiVsu5e DzoefUg5h67iWgXvra8+wAyXurW/IDZ9ynOpssf6hZiSH7E95T9VvGbdoMrN wHPLHycqvF0/VNeKvQHbTO1FpTY+IkxBsWDZ7SUnqacrgsJ03sTjLHU+Msau zhR3Moq7x+6n0maMFttipPyWwRNLF5AAaoL0UPClKgV/qr8UG+KnCMkKF79/ BFo2JNQLb8vQo1DGOeCfMWsWqf6Y09TDcZHdB4YIz6T58unNCk6W+GmBWc6F z6J+Mn1eO2zozLU3al+Uw9FViFgfzL1LYLx+YznkMxZeKceS2uSIuOL/t4bT iBAvcYKYg5sUyS+bR7E7wlEn2mJ4CQunxw1cqdfR4XCgZ/8AsoWCRIzR1tNe lisNepCp5Lt8T6088ay5GFWQq0JHmxMHzjoP2rr1lLI38ndW6/DaaYiFFTSb /scZiKy0tLmx60s/hvbPP6JHh/Camkrm3UjGkLZR7pWMElNHV+dtTyswIcjX cUulrCJaBRzY04Cn/lCLfd/9NbTVa+UMvqJjWD4VygObI+s3obR6PfUxvqg8 miMxkpnnZDKzrUtj9QY1OxswGhMZPHsVxbtagqdP/wY8DQ3od3tw5EAnHG0T dEsRe8bj4adRCsBfLcd6diZ2fjkEjf1QFUsRiGIgPmniHX7qS6WDW0R5wrIv LcO6n1yBFecNojlaoPuMhbF8rQLTWHeAqfc+P1dIGdP0jVu8NZGJGPIE4H+v F4e2NUjd1fjc7zE1yXW1gPFlGz1lTQLyuzAvJNMTiuiVdIIGaoP6CzMLk+gm n4HuTraFj28AOVF3R4dbAsgTXyxbJOa7oOn1ZK5eL6prajEyFKOSLvzK7RVU mnFO+CRcb29iVnO+GcEyXlmHsMlcqDjRacZR0/Jo76XMneLNPPsQi8bhJ9FT rreEqQk+eEEzn52spSdUQr9n1i8z9sVpQb8C0Ywpl4/2dAWRHgmJh3Tlwm+P 1DiEEigiT8KlFFEidPF5vtClMokZIRFopimOyeEcYgW+NV7CJPcENNB0bYJX Kp5ipiH79gsFrVnMAokPmohWiw4bUM/iJNbsOYKxY/sVgsyc8FS9U9eCXk8I D/9oGd4++7vofvkFxvu+d3ow6s5hVGzrlplHtjNPbBW02scZsLDieL6bmYe4 s1gI8eeqeqdZ93NBVS0btK5csYqTIbfUNvTv7/z+vJux68b/RM9Dy6WwnKr3 RGQoyVnjLyuMrErxHd97ANlBt9iwLc7apEagoDOkVsFonCToTz/0vCtNSwoG LGDTa7tx6xWP4b3H/4SQ86i+1byju6hXFn96DmBW7w5hJJtlfQowawSYba0G W+nTMkN0Fuo8u1ABN+YwcpqHayaRJdJ/7KPDCIR4wsSulN0ktIlRTS9+WGxI Ytm/3TNDQqif5Rgm/MmPBvqpGTeVjzTVHMw3pNRc5ii/S7360QsvsTOBGl2a HC+2v0l/3B7BmW2mepgx83k1qkwaUm/3Z3voDz02OprT+DFTOCj6UHnN7jBQ zfC9f/fli/DE91Zi4zsdugxGdtfqj56gT4O19mQ+2h3NSKfIUOPJcgXt1lwH x2Pzq69h01nXYCCa4UfA4ZDo0uk02M/YWmuqiCdmz13nxC///j48+PO7sPfu e+Df+boSlxCHt4Nng8qvL5ax/zzC63p9B7PpA+IUJTvjbVf0JzllsLkHvz13 BZLnXQqt7hgsOFI2nHBNK/v3luoM5qnvwlhTBpmRSWJGSsyM0P2Jv7nlOWxd vw7BriYdU7oGlB/zGpw3+5pdFYbrpD0jt7Kl2VCjqbZAczeKQVYKzKI91tbW ydJlArX9M1SayoLyz2rxsul+BBr7Me4qEtbXmCkx9AhfFBwOG2ogRLcyl2JW Xigzfwv59He26bcyaXrI39BCQWc74ZZ4hlv4oeM5gSc/lVccVFa2yratLY+G uga4+J/vU1nV4/ZiyOFH1qdhnMAxUuBmk5F7sc5wND4WBV+0JqaQR5nzMk3u H92oq00Pm3RMP41The5boEo5FRoPXWaOCY172Rxwo3/SqB33fOXH+PCCC1C/ 7kX07xtEeoAQlcAcnTT7AJTQVBFkDjQrJaIMzSmLhGjsfNRYlHlS6mpwHwlc wtVtbKvHGD9f6Mo5ALoAa1e/iUd/vhLVd/0Ornc3szoDeeaMszeN5B6+p16u XIw42vWupCf36uvbcc8XzsWO887GQEsrRmv9GA/nkJguUESvVgBRtGAV3GSW W268D9tWr0Ik0F8pCjHOLiNM2tjGcJYgDXywT39Hpcl3zrgCf/rJLTi44hYM 7H+fBnTX8g4tC3Lsm12xgRTJQacLncmkUhFRGcqAPwhvdy+0sE9ASXpvaDa9 Q/vqJwT4zrlP4r7r/ohdq55AzN/Ha0yxzQaaSovvaiH3zIISSrXaFVslJBVO y5KyWV9Tj5SzDt19TC6slfOcwHVHMhjJiDCfeCvjmcR1xwf+PAX8ty+9jf15 F+mm99W14K2DRQNoi7Itf2TVAmSyOebHqidxlD/B0DjCrlBI8OL/Pa042GOs DrfRM0j5+uRxTBCnl0FqbyBktEltROem4DyMzlHVFtkhp8vAJJnrOC+3LX9+ ASfqKxs24om/OVsHQx5Rpz7XU9dO2gsqdlvMLKQAbDhStBiilI6bFQqRFWIm wyFeXzGrbZWuW2s3zdHynOVSnUFVXmt2tOLfvrwcay6+F/ueex3x/m69Qryu Xe9ThX/O7qTZOfRRV7pk8uFZ6OPtxD037EAuHrY75Vgz+cLmfWtLBTFUvuh3 9yHi6MFU9xSK2UkiR1k8//wWrF75JI6s/QN1ESR+Eafbit9Wm/mxd+3FzCnq gf6Ea45wLT9LmMBOEBhJGuzH92cvhN/tQ6zBWBGJTjGbpqqjwWAYU4lJYxfD gSYrGh9bgOcTkS0YdWqM8lHv5+Yo/3KOm9qKKAyHlMXmxboLHCWgT7TGMO3P IUPmebrIAldTOBWiJXCiuFuOE9jTYIV/uz7t1op9wRwpLh7DNbV/XVb72GHA oX3se1dh8mtfR/igA9PtEyimJxEnrm1J0/dlq6+qCx5a1mzBOtfttQL/oQ1N FyqU7YsX0Pb+xxirr7XbE1apmJsC/8zXlkG74HJMh0OyNjRA/7JKwbw3ItjQ MRfAKhmPw9WHEPgHEo1vfAn2kMLIcHhJDJoXhxmeoE+aaX8qvSVpKOkXPdpq BfOD2ZSb/uflEqNoXvs2puPxGTsExKN26H22LBmM1100G1gqSmIeXvuOFcod cx/Q+OPWRuHDXIBgsXh6Sl3e2nPbo4wJrju+GT277HNmf6tHbLJRLV1Z0TTm 9juzzZjRH/XI+SqUWJFJ2YBhBnFmiqGrP001r+ghbR7dpLP5wX9cWfB9jiiK W3SlUKrv6823WKQY96m3GJiWdUKpFzJRo6frFJjmsiRnEbm+gTz6a3YhS3Sk 6Gp87owm2+hB/c6v/Cu0DRtkL5ly8qtvKibCNPDjm1Hq7S33zmzDMpsS86t0 SNnMoNJdpd68LDE/MYOqtt7TfMT3HNW7EI+XxK1UfYv1VlEFedxvxwQ+j08f X9wateF9admiHx/UB1F5Zg70k8yqOdo+aRfGvowOpL1tKr8fbxfZ7ATGROZW dJE0Sxh773bl1hwsmFjXGbOZQXGLPXfDn7//+fufv///+h1/8X8Amrvv2w== \ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{"tc", ",", "twc", ",", "twh", ",", "tplo", ",", "tplu"}], "]"}]}], ";"}], "\[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.5734889677091565`*^9, 3.573488990141996*^9}, 3.573490401445275*^9}], Cell[BoxData["177"], "Output", CellChangeTimes->{ 3.573491132540559*^9, {3.573491236530341*^9, 3.5734912860136285`*^9}, 3.5737999613686304`*^9, 3.5737999970926933`*^9, 3.5738000546411943`*^9, 3.573800088664854*^9, 3.5738001222985134`*^9, {3.57380019476064*^9, 3.573800221483487*^9}, 3.5738003064568367`*^9, {3.5738003440841026`*^9, 3.573800372694553*^9}}] }, Open ]], 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", "]"}], "*)"}]}]}]], "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.5734904669029894`*^9, 3.5734905118466682`*^9}, 3.57349058125119*^9, 3.573490973279879*^9, 3.5734910146199512`*^9, {3.573491100747703*^9, 3.573491105817712*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv4", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3", ",", "tv4"}], "]"}]}], ";"}], "\[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.5734890195948477`*^9, 3.5734890804505544`*^9}, 3.573490452847365*^9, {3.5734907923039613`*^9, 3.573490798044771*^9}}], Cell[BoxData["177"], "Output", CellChangeTimes->{ 3.573491132696559*^9, {3.5734912366863413`*^9, 3.5734912861696286`*^9}, 3.5737999615246305`*^9, 3.573799997279894*^9, 3.5738000547815943`*^9, 3.5738000888520546`*^9, 3.5738001224545135`*^9, {3.5738001949166408`*^9, 3.5738002216394873`*^9}, 3.573800306612837*^9, {3.573800344224503*^9, 3.5738003728349533`*^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.573489671395192*^9, 3.573490889476532*^9}], Cell[BoxData["177"], "Output", CellChangeTimes->{ 3.57349113291496*^9, {3.573491236889142*^9, 3.573491286372429*^9}, 3.5737999617274313`*^9, 3.573799997498294*^9, 3.573800054999995*^9, 3.5738000890704546`*^9, 3.5738001226885138`*^9, {3.573800195119441*^9, 3.573800221857888*^9}, 3.573800306815637*^9, {3.5738003444429035`*^9, 3.5738003730533533`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.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.5692132215357027`*^9, 3.5692134269568634`*^9}, { 3.569213527889041*^9, 3.569213567871911*^9}, {3.5692136024727716`*^9, 3.5692136035959735`*^9}, {3.5692136633596783`*^9, 3.5692136641240797`*^9}, {3.5692137511410327`*^9, 3.569213751343833*^9}, { 3.569213815132345*^9, 3.569213856659618*^9}, {3.5692138980308905`*^9, 3.5692139153313212`*^9}, {3.5692139536293883`*^9, 3.5692140116146903`*^9}, {3.569214080816412*^9, 3.5692141084596605`*^9}, { 3.569233762887478*^9, 3.5692337633554783`*^9}, {3.573489165626704*^9, 3.573489227558813*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5734911329617596`*^9, {3.5734912369047422`*^9, 3.573491286388029*^9}, 3.573799961758631*^9, 3.573799997513894*^9, 3.573800055046795*^9, 3.573800089086055*^9, 3.573800122704114*^9, {3.573800195135041*^9, 3.573800221857888*^9}, 3.5738003068312373`*^9, {3.5738003444585037`*^9, 3.5738003730533533`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5734911329617596`*^9, {3.5734912369047422`*^9, 3.573491286388029*^9}, 3.573799961758631*^9, 3.573799997513894*^9, 3.573800055046795*^9, 3.573800089086055*^9, 3.573800122704114*^9, {3.573800195135041*^9, 3.573800221857888*^9}, 3.5738003068312373`*^9, {3.5738003444585037`*^9, 3.5738003730689535`*^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[{"4", "/", 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}}], Cell[BoxData["6782.205474392181`"], "Output", CellChangeTimes->{ 3.5734911330241594`*^9, {3.573491236967142*^9, 3.573491286450429*^9}, 3.5737999618054314`*^9, 3.573799997576294*^9, 3.573800055109195*^9, 3.5738000891484547`*^9, 3.573800122766514*^9, {3.573800195181841*^9, 3.573800221920288*^9}, 3.5738003068780375`*^9, {3.5738003445053034`*^9, 3.573800373115754*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"sc", "=", "0.346"}], ";", " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sw", "=", "0.346"}], ";", " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{ RowBox[{"2", "*", "nj"}], "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.573489756493342*^9, 3.5734897846825914`*^9}, {3.573489878282756*^9, 3.5734898815275617`*^9}, {3.573489913616818*^9, 3.57348993743806*^9}, { 3.573491228277927*^9, 3.5734912809436197`*^9}, {3.5738001670393915`*^9, 3.573800176664609*^9}, {3.573800209611867*^9, 3.573800239454719*^9}, { 3.5738002997956247`*^9, 3.573800300435226*^9}, {3.573800331682081*^9, 3.573800366407742*^9}}], Cell[BoxData["7119.363304427862`"], "Output", CellChangeTimes->{ 3.57349113305536*^9, {3.5734912369827423`*^9, 3.573491286466029*^9}, 3.5737999618210316`*^9, 3.573799997591894*^9, 3.573800055124795*^9, 3.573800089164055*^9, 3.573800122782114*^9, {3.573800195197441*^9, 3.5738002219358883`*^9}, 3.5738003068936377`*^9, {3.5738003445209036`*^9, 3.573800373131354*^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.5734892610364714`*^9}], Cell[BoxData[ RowBox[{"-", "13808.553608267408`"}]], "Output", CellChangeTimes->{ 3.5734911330709596`*^9, {3.5734912369983425`*^9, 3.573491286497229*^9}, 3.5737999618522315`*^9, 3.5737999976074944`*^9, 3.573800055140395*^9, 3.573800089179655*^9, 3.573800122813314*^9, {3.5738001952286415`*^9, 3.5738002219514885`*^9}, 3.5738003069248376`*^9, {3.573800344536504*^9, 3.5738003731469536`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "core", " ", "nuclei", " ", "in", " ", "their", " ", "cloud", " ", "centers"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526609667845`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vne", "=", RowBox[{"Vne", "-", RowBox[{"3", "*", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vne"}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526649915915`*^9}, 3.569170044088443*^9}], Cell[BoxData[ RowBox[{"-", "18313.01687217221`"}]], "Output", CellChangeTimes->{ 3.5734911331021595`*^9, {3.5734912370295424`*^9, 3.5734912865128293`*^9}, 3.5737999618678317`*^9, 3.5737999976230946`*^9, 3.5738000551559954`*^9, 3.5738000891952553`*^9, 3.573800122828914*^9, {3.5738001952442417`*^9, 3.5738002219670887`*^9}, 3.5738003069404373`*^9, {3.5738003445677032`*^9, 3.573800373178154*^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[{"-", "18410.12017056403`"}]], "Output", CellChangeTimes->{ 3.5734911331177597`*^9, {3.573491237045142*^9, 3.573491286544029*^9}, 3.5737999618834314`*^9, 3.5737999976542945`*^9, 3.5738000551871953`*^9, 3.573800089226455*^9, 3.573800122844514*^9, {3.5738001952598414`*^9, 3.5738002219826884`*^9}, 3.5738003069560375`*^9, {3.5738003445833035`*^9, 3.573800373193754*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", "nucleus"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", RowBox[{"Vnn", "=", RowBox[{"Vnn", "+", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vnn"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526609667845`*^9}, 3.5691527650033674`*^9, { 3.5691528050174375`*^9, 3.5691528220994673`*^9}, {3.5691528694611506`*^9, 3.5691529180864363`*^9}, {3.5691531888249116`*^9, 3.569153192974519*^9}, 3.569153245359411*^9, {3.5691532970111017`*^9, 3.5691533046239147`*^9}, { 3.5691708905147295`*^9, 3.56917090235515*^9}, {3.5691714357512875`*^9, 3.569171449775712*^9}, 3.56917197825784*^9}], Cell[BoxData["6247.187839425834`"], "Output", CellChangeTimes->{ 3.5734911331645603`*^9, {3.5734912370763426`*^9, 3.573491286575229*^9}, 3.5737999619302316`*^9, 3.5737999976854944`*^9, 3.573800055218395*^9, 3.573800089242055*^9, 3.5738001228757143`*^9, {3.573800195275441*^9, 3.5738002220138884`*^9}, 3.573800306987238*^9, {3.573800344614504*^9, 3.5738003732249537`*^9}}] }, Open ]], Cell[BoxData[""], "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.5689102484819775`*^9}, {3.568910416821873*^9, 3.568910421314681*^9}, { 3.5689104658527594`*^9, 3.568910491858005*^9}, {3.5689105421368933`*^9, 3.5689105444144974`*^9}, {3.568912692943871*^9, 3.56891270358309*^9}, { 3.569081202041748*^9, 3.5690812220097833`*^9}, {3.569081528363121*^9, 3.5690815341975317`*^9}, {3.5690815797964115`*^9, 3.5690815808572135`*^9}, {3.569087876950272*^9, 3.569087906793124*^9}, { 3.5691451539721675`*^9, 3.5691451954526405`*^9}, 3.56914526334396*^9, { 3.5691715700987234`*^9, 3.5691716005343766`*^9}, 3.5692316175093093`*^9}], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tlp", " ", "=", " ", RowBox[{"2", "*", "nj", "*", "2", "*", "1.125", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rlo", "^", "2"}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"lp", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", "=", RowBox[{"Ttot", "+", "Tlp"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5734893213149776`*^9, 3.5734893650730543`*^9}, {3.5734897131564655`*^9, 3.5734897173216734`*^9}}], Cell[BoxData["7119.363304427862`"], "Output", CellChangeTimes->{ 3.57349113318016*^9, {3.5734912370919423`*^9, 3.5734912865908294`*^9}, 3.5737999619458313`*^9, 3.5737999977166944`*^9, 3.5738000552339954`*^9, 3.5738000892732553`*^9, 3.5738001229069147`*^9, {3.5738001953066416`*^9, 3.5738002220450883`*^9}, 3.5738003070184374`*^9, {3.573800344645704*^9, 3.573800373240554*^9}}], Cell[BoxData["6247.187839425834`"], "Output", CellChangeTimes->{ 3.57349113318016*^9, {3.5734912370919423`*^9, 3.5734912865908294`*^9}, 3.5737999619458313`*^9, 3.5737999977166944`*^9, 3.5738000552339954`*^9, 3.5738000892732553`*^9, 3.5738001229069147`*^9, {3.5738001953066416`*^9, 3.5738002220450883`*^9}, 3.5738003070184374`*^9, {3.573800344645704*^9, 3.573800373240554*^9}}], Cell[BoxData[ RowBox[{"-", "18410.12017056403`"}]], "Output", CellChangeTimes->{ 3.57349113318016*^9, {3.5734912370919423`*^9, 3.5734912865908294`*^9}, 3.5737999619458313`*^9, 3.5737999977166944`*^9, 3.5738000552339954`*^9, 3.5738000892732553`*^9, 3.5738001229069147`*^9, {3.5738001953066416`*^9, 3.5738002220450883`*^9}, 3.5738003070184374`*^9, {3.573800344645704*^9, 3.573800373240554*^9}}], Cell[BoxData[ RowBox[{"-", "5043.5690267103355`"}]], "Output", CellChangeTimes->{ 3.57349113318016*^9, {3.5734912370919423`*^9, 3.5734912865908294`*^9}, 3.5737999619458313`*^9, 3.5737999977166944`*^9, 3.5738000552339954`*^9, 3.5738000892732553`*^9, 3.5738001229069147`*^9, {3.5738001953066416`*^9, 3.5738002220450883`*^9}, 3.5738003070184374`*^9, {3.573800344645704*^9, 3.573800373256154*^9}}], Cell[BoxData["74.66666666666666`"], "Output", CellChangeTimes->{ 3.57349113318016*^9, {3.5734912370919423`*^9, 3.5734912865908294`*^9}, 3.5737999619458313`*^9, 3.5737999977166944`*^9, 3.5738000552339954`*^9, 3.5738000892732553`*^9, 3.5738001229069147`*^9, {3.5738001953066416`*^9, 3.5738002220450883`*^9}, 3.5738003070184374`*^9, {3.573800344645704*^9, 3.573800373256154*^9}}], Cell[BoxData["2521.7501650685226`"], "Output", CellChangeTimes->{ 3.57349113318016*^9, {3.5734912370919423`*^9, 3.5734912865908294`*^9}, 3.5737999619458313`*^9, 3.5737999977166944`*^9, 3.5738000552339954`*^9, 3.5738000892732553`*^9, 3.5738001229069147`*^9, {3.5738001953066416`*^9, 3.5738002220450883`*^9}, 3.5738003070184374`*^9, {3.573800344645704*^9, 3.573800373256154*^9}}], Cell[BoxData["2.0000272416253764`"], "Output", CellChangeTimes->{ 3.57349113318016*^9, {3.5734912370919423`*^9, 3.5734912865908294`*^9}, 3.5737999619458313`*^9, 3.5737999977166944`*^9, 3.5738000552339954`*^9, 3.5738000892732553`*^9, 3.5738001229069147`*^9, {3.5738001953066416`*^9, 3.5738002220450883`*^9}, 3.5738003070184374`*^9, {3.573800344645704*^9, 3.573800373256154*^9}}], Cell[BoxData[ RowBox[{"-", "2521.818861641813`"}]], "Output", CellChangeTimes->{ 3.57349113318016*^9, {3.5734912370919423`*^9, 3.5734912865908294`*^9}, 3.5737999619458313`*^9, 3.5737999977166944`*^9, 3.5738000552339954`*^9, 3.5738000892732553`*^9, 3.5738001229069147`*^9, {3.5738001953066416`*^9, 3.5738002220450883`*^9}, 3.5738003070184374`*^9, {3.573800344645704*^9, 3.573800373256154*^9}}] }, Open ]] }, WindowSize->{1271, 939}, WindowMargins->{{Automatic, 312}, {Automatic, 3}}, 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, 1263, 26, 52, "Input"], Cell[1823, 48, 11811, 327, 452, "Input"], Cell[CellGroupData[{ Cell[13659, 379, 955, 14, 31, "Input"], Cell[14617, 395, 372, 6, 31, "Output"] }, Open ]], Cell[15004, 404, 3399, 49, 92, "Input"], Cell[CellGroupData[{ Cell[18428, 457, 1560, 29, 31, "Input"], Cell[19991, 488, 2052, 29, 52, "Output"] }, Open ]], Cell[22058, 520, 1390, 22, 31, "Input"], Cell[23451, 544, 1566, 28, 31, "Input"], Cell[CellGroupData[{ Cell[25042, 576, 1234, 18, 31, "Input"], Cell[26279, 596, 6299, 182, 132, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32615, 783, 697, 14, 31, "Input"], Cell[33315, 799, 1407, 22, 72, "Output"] }, Open ]], Cell[34737, 824, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[35670, 852, 4925, 113, 112, "Input"], Cell[40598, 967, 1690, 25, 92, "Output"], Cell[42291, 994, 1714, 26, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44042, 1025, 519, 12, 31, "Input"], Cell[44564, 1039, 2050, 29, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46651, 1073, 1401, 38, 31, "Input"], Cell[48055, 1113, 1503, 23, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49595, 1141, 827, 23, 92, "Input"], Cell[50425, 1166, 370, 6, 31, "Output"], Cell[50798, 1174, 370, 6, 31, "Output"] }, Open ]], Cell[51183, 1183, 1796, 35, 92, "Input"], Cell[52982, 1220, 935, 19, 31, "Input"], Cell[53920, 1241, 4271, 83, 132, "Input"], Cell[58194, 1326, 3240, 56, 31, "Input"], Cell[61437, 1384, 1679, 34, 52, "Input"], Cell[63119, 1420, 1254, 35, 72, "Input"], Cell[64376, 1457, 4187, 79, 72, "Input"], Cell[CellGroupData[{ Cell[68588, 1540, 3292, 75, 112, "Input"], Cell[71883, 1617, 1839, 27, 112, "Output"] }, Open ]], Cell[73737, 1647, 1808, 44, 92, "Input"], Cell[75548, 1693, 561, 12, 52, "Input"], Cell[76112, 1707, 2148, 49, 92, "Input"], Cell[78263, 1758, 2230, 52, 72, "Input"], Cell[80496, 1812, 1525, 36, 52, "Input"], Cell[CellGroupData[{ Cell[82046, 1852, 923, 20, 31, "Input"], Cell[82972, 1874, 382, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83391, 1885, 711, 18, 31, "Input"], Cell[84105, 1905, 390, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[84532, 1916, 507, 10, 31, "Input"], Cell[85042, 1928, 389, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85468, 1939, 823, 23, 31, "Input"], Cell[86294, 1964, 395, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[86726, 1975, 204, 4, 31, "Input"], Cell[86933, 1981, 389, 6, 31, "Output"] }, Open ]], Cell[87337, 1990, 1971, 35, 92, "Input"], Cell[89311, 2027, 1743, 24, 31, "Input"], Cell[CellGroupData[{ Cell[91079, 2055, 2334, 45, 92, "Input"], Cell[93416, 2102, 375, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[93828, 2113, 2435, 47, 92, "Input"], Cell[96266, 2162, 369, 6, 31, "Output"] }, Open ]], Cell[96650, 2171, 1862, 26, 31, "Input"], Cell[CellGroupData[{ Cell[98537, 2201, 2728, 70, 92, "Input"], Cell[101268, 2273, 1409, 42, 341, "Output"] }, Open ]], Cell[102692, 2318, 3424, 65, 172, "Input"], Cell[106119, 2385, 16558, 423, 1492, "Input"], Cell[122680, 2810, 2696, 53, 92, "Input"], Cell[CellGroupData[{ Cell[125401, 2867, 939, 17, 72, "Input"], Cell[126343, 2886, 8356, 189, 292, "Output"], Cell[134702, 3077, 375, 6, 31, "Output"], Cell[135080, 3085, 375, 6, 31, "Output"] }, Open ]], Cell[135470, 3094, 10201, 233, 132, "Input"], Cell[145674, 3329, 6183, 100, 31, "Input"], Cell[151860, 3431, 10215, 234, 132, "Input"], Cell[162078, 3667, 7001, 127, 72, "Input"], Cell[CellGroupData[{ Cell[169104, 3798, 7688, 141, 132, "Input"], Cell[176795, 3941, 128089, 2408, 375, 46800, 1075, "CachedBoxData", \ "BoxData", "Output"], Cell[304887, 6351, 46705, 823, 375, 30681, 559, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[351629, 7179, 3860, 90, 152, "Input"], Cell[355492, 7271, 374, 6, 31, "Output"] }, Open ]], Cell[355881, 7280, 2408, 45, 72, "Input"], Cell[CellGroupData[{ Cell[358314, 7329, 3787, 85, 132, "Input"], Cell[362104, 7416, 379, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[362520, 7427, 3653, 66, 92, "Input"], Cell[366176, 7495, 370, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[366583, 7506, 3575, 73, 52, "Input"], Cell[370161, 7581, 5881, 185, 152, "Output"], Cell[376045, 7768, 2637, 38, 112, "Output"] }, Open ]], Cell[378697, 7809, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[380585, 7840, 2435, 46, 112, "Input"], Cell[383023, 7888, 386, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[383446, 7899, 2583, 63, 132, "Input"], Cell[386032, 7964, 385, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[386454, 7975, 471, 14, 52, "Input"], Cell[386928, 7991, 410, 7, 31, "Output"] }, Open ]], Cell[387353, 8001, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[388759, 8026, 1709, 32, 52, "Input"], Cell[390471, 8060, 415, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[390923, 8072, 1415, 43, 72, "Input"], Cell[392341, 8117, 409, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[392787, 8129, 2550, 50, 92, "Input"], Cell[395340, 8181, 390, 6, 31, "Output"] }, Open ]], Cell[395745, 8190, 1499, 20, 31, "Input"], Cell[CellGroupData[{ Cell[397269, 8214, 1129, 23, 192, "Input"], Cell[398401, 8239, 395, 6, 31, "Output"], Cell[398799, 8247, 395, 6, 31, "Output"], Cell[399197, 8255, 412, 7, 31, "Output"], Cell[399612, 8264, 413, 7, 31, "Output"], Cell[400028, 8273, 395, 6, 31, "Output"], Cell[400426, 8281, 396, 6, 31, "Output"], Cell[400825, 8289, 396, 6, 31, "Output"], Cell[401224, 8297, 412, 7, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)