(* 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[ 387765, 8025] NotebookOptionsPosition[ 381843, 7840] NotebookOutlinePosition[ 382343, 7860] CellTagsIndexPosition[ 382300, 7857] 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", " ", "29", " ", "March", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.5735305477201138`*^9, 3.5735305508557186`*^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.5738360977192335`*^9, 3.5738362189782467`*^9, 3.573836374026919*^9, 3.5738364072237773`*^9, 3.573836519855975*^9, 3.573836646091397*^9, 3.573836683578263*^9, 3.5738367334827504`*^9, 3.573836822012906*^9, 3.5738369253474874`*^9, 3.573837085154168*^9, 3.5738372005319705`*^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.5738360977348337`*^9, 3.573836218993847*^9, 3.573836374042519*^9, 3.573836407239377*^9, 3.5738365198715754`*^9, 3.5738366461069965`*^9, 3.5738366835938625`*^9, 3.57383673349835*^9, 3.573836822028506*^9, 3.573836925363087*^9, 3.573837085154168*^9, 3.5738372005475707`*^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.5738360977660336`*^9, 3.573836219009447*^9, 3.573836374058119*^9, 3.573836407254977*^9, 3.573836519887175*^9, 3.5738366461225967`*^9, 3.5738366836094627`*^9, 3.5738367335139503`*^9, 3.573836822044106*^9, 3.5738369253786874`*^9, 3.5738370851697683`*^9, 3.573837200563171*^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.573836097781634*^9, 3.573836219025047*^9, 3.573836374073719*^9, 3.5738364072705774`*^9, 3.5738365199027753`*^9, 3.573836646138197*^9, 3.573836683625063*^9, 3.5738367335295506`*^9, 3.5738368220597057`*^9, 3.573836925394287*^9, 3.573837085185368*^9, 3.573837200563171*^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.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.22522", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}}], 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.573836097812834*^9, 3.5738362190406466`*^9, 3.573836374089319*^9, 3.5738364072861776`*^9, 3.573836519918375*^9, 3.573836646153797*^9, 3.573836683625063*^9, 3.5738367335451508`*^9, 3.573836822075306*^9, 3.5738369254098873`*^9, 3.573837085200968*^9, 3.573837200594371*^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.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.573836097812834*^9, 3.5738362190406466`*^9, 3.573836374089319*^9, 3.5738364072861776`*^9, 3.573836519918375*^9, 3.573836646153797*^9, 3.573836683625063*^9, 3.5738367335451508`*^9, 3.573836822075306*^9, 3.5738369254098873`*^9, 3.573837085200968*^9, 3.573837200594371*^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.573836097828434*^9, 3.5738362190406466`*^9, 3.5738363741049194`*^9, 3.5738364072861776`*^9, 3.573836519933975*^9, 3.5738366461693974`*^9, 3.573836683640663*^9, 3.5738367335607505`*^9, 3.573836822075306*^9, 3.5738369254098873`*^9, 3.573837085216568*^9, 3.573837200594371*^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.573836097844034*^9, 3.5738362190562468`*^9, 3.5738363741049194`*^9, 3.5738364073017774`*^9, 3.5738365199495754`*^9, 3.5738366461693974`*^9, 3.573836683656263*^9, 3.5738367335607505`*^9, 3.573836822090906*^9, 3.5738369254254875`*^9, 3.573837085232168*^9, 3.573837200609971*^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.573836097859634*^9, 3.573836219071847*^9, 3.573836374120519*^9, 3.573836407317377*^9, 3.5738365199495754`*^9, 3.573836646184997*^9, 3.5738366836718626`*^9, 3.57383673357635*^9, 3.5738368221065063`*^9, 3.5738369254410877`*^9, 3.5738370852477684`*^9, 3.573837200625571*^9}], Cell[BoxData["42"], "Output", CellChangeTimes->{3.573836097859634*^9, 3.573836219071847*^9, 3.573836374120519*^9, 3.573836407317377*^9, 3.5738365199495754`*^9, 3.573836646184997*^9, 3.5738366836718626`*^9, 3.57383673357635*^9, 3.5738368221065063`*^9, 3.5738369254410877`*^9, 3.5738370852477684`*^9, 3.573837200625571*^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.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.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.573836097984434*^9, 3.573836219181047*^9, 3.5738363742453194`*^9, 3.5738364074265776`*^9, 3.5738365200743756`*^9, 3.5738366463097973`*^9, 3.573836683781063*^9, 3.573836733701151*^9, 3.573836822231306*^9, 3.5738369255658875`*^9, 3.5738370853569684`*^9, 3.573837200750371*^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.19934553660713`"], "Output", CellChangeTimes->{3.573836098062434*^9, 3.5738362192434473`*^9, 3.5738363742921195`*^9, 3.5738364074889774`*^9, 3.5738365201367755`*^9, 3.573836646372197*^9, 3.573836683843463*^9, 3.5738367337479506`*^9, 3.5738368222781067`*^9, 3.573836925628288*^9, 3.5738370854193687`*^9, 3.573837200812771*^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["2321.73880565393`"], "Output", CellChangeTimes->{3.5738360980780344`*^9, 3.5738362192590475`*^9, 3.5738363743077197`*^9, 3.5738364075045776`*^9, 3.5738365201523757`*^9, 3.573836646372197*^9, 3.573836683859063*^9, 3.5738367337635508`*^9, 3.5738368222937064`*^9, 3.573836925628288*^9, 3.5738370854349685`*^9, 3.573837200828371*^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["2467.938151190537`"], "Output", CellChangeTimes->{3.5738360980936346`*^9, 3.5738362192590475`*^9, 3.5738363743233194`*^9, 3.573836407520178*^9, 3.5738365201679754`*^9, 3.5738366463877974`*^9, 3.5738366838746634`*^9, 3.573836733779151*^9, 3.573836822309306*^9, 3.5738369256438875`*^9, 3.5738370854349685`*^9, 3.573837200828371*^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.13825184008755`"], "Output", CellChangeTimes->{3.573836098124834*^9, 3.573836219274647*^9, 3.5738363743389196`*^9, 3.573836407535778*^9, 3.5738365201835756`*^9, 3.5738366464033976`*^9, 3.5738366838902636`*^9, 3.5738367337947507`*^9, 3.5738368223249063`*^9, 3.5738369256594877`*^9, 3.5738370854661684`*^9, 3.5738372008595715`*^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.06109369651958`"], "Output", CellChangeTimes->{3.5738360981404343`*^9, 3.573836219290247*^9, 3.57383637435452*^9, 3.573836407535778*^9, 3.573836520199176*^9, 3.5738366464189973`*^9, 3.5738366839058633`*^9, 3.573836733810351*^9, 3.5738368223405066`*^9, 3.573836925675088*^9, 3.5738370854661684`*^9, 3.5738372008595715`*^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.5738360981560345`*^9, 3.573836219305847*^9, 3.5738363743701196`*^9, 3.573836407551378*^9, 3.573836520199176*^9, 3.5738366464345975`*^9, 3.573836683921463*^9, 3.5738367338259506`*^9, 3.5738368223561063`*^9, 3.573836925690688*^9, 3.5738370854817686`*^9, 3.573837200890771*^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.5738360981716347`*^9, 3.5738362193214474`*^9, 3.5738363743857193`*^9, 3.573836407566978*^9, 3.5738365202147756`*^9, 3.573836646450197*^9, 3.573836683921463*^9, 3.573836733841551*^9, 3.5738368223717065`*^9, 3.5738369257062883`*^9, 3.573837085497369*^9, 3.573837200890771*^9}] }, Open ]], 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[{"{", RowBox[{"1", ",", "26", ",", "52"}], "}"}], ","}], "*)"}], RowBox[{ RowBox[{"{", RowBox[{"2", ",", "27", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "25", ",", "3"}], "}"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "28", ",", "56"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "29", ",", "51"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "30", ",", "55"}], "}"}], ","}], "*)"}], RowBox[{"{", RowBox[{"11", ",", "34", ",", "7"}], "}"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "31", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "32", ",", "65"}], "}"}], ","}], "*)"}], RowBox[{"{", RowBox[{"13", ",", "33", ",", "10"}], "}"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{"12", ",", "35", ",", "66"}], "}"}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{"13", ",", "39", ",", "17"}], "}"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{"14", ",", "36", ",", "74"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "37", ",", "75"}], "}"}], ","}], "*)"}], RowBox[{"{", RowBox[{"16", ",", "38", ",", "19"}], "}"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{"18", ",", "40", ",", "76"}], "}"}], ","}], "*)"}], RowBox[{"{", RowBox[{"23", ",", "44", ",", "19"}], "}"}]}], RowBox[{"(*", RowBox[{",", RowBox[{"{", RowBox[{"20", ",", "41", ",", "84"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "42", ",", "85"}], "}"}]}], "*)"}], RowBox[{"(*", RowBox[{",", 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, {3.5735653567186174`*^9, 3.5735653746430483`*^9}, 3.573565411178313*^9, 3.5735656178630757`*^9, { 3.573565837792262*^9, 3.573565915823599*^9}, {3.573572023948822*^9, 3.5735720280984287`*^9}, {3.5735766246636543`*^9, 3.5735766289224615`*^9}, {3.5735767451114655`*^9, 3.5735767511330767`*^9}, {3.573638007486597*^9, 3.5736380211990213`*^9}, { 3.5736380748007154`*^9, 3.5736380782327213`*^9}, {3.5736382143429604`*^9, 3.5736382213785725`*^9}, {3.573638268397055*^9, 3.5736383619036193`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"2", "27", "7"}, {"4", "25", "3"}, {"11", "34", "7"}, {"13", "33", "10"}, {"13", "39", "17"}, {"16", "38", "19"}, {"23", "44", "19"} }, 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.573836098202834*^9, 3.5738362193214474`*^9, 3.5738363743857193`*^9, 3.5738364075825777`*^9, 3.573836520230376*^9, 3.5738366464657974`*^9, 3.573836683937063*^9, 3.573836733841551*^9, 3.5738368223717065`*^9, 3.573836925721888*^9, 3.5738370855129685`*^9, 3.573837200906371*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"nj", "=", "no"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl"}], "]"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"c1", "=", "20"}], ";", " ", RowBox[{"c2", "=", "21"}], ";", " ", RowBox[{"c3", "=", "51"}], ";"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"rlo", "=", "1.125"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rli", "=", "1.125"}], ";"}], "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"P", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nj", "=", "7"}], ";"}], "\[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", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"k", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"{", RowBox[{"7", ",", "27", ",", "2"}], "}"}]}], ";", " ", RowBox[{"nj", "=", "1"}], ";"}], "*)"}]}]}]}]}]}]}]}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.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}, 3.573559197379511*^9, {3.5735721769538903`*^9, 3.573572238261998*^9}, {3.5735723274629545`*^9, 3.573572337244172*^9}, { 3.5735725492329445`*^9, 3.573572578935396*^9}, {3.5736233852376604`*^9, 3.5736234047064943`*^9}, {3.573626830490112*^9, 3.573626833984518*^9}, { 3.573626898568631*^9, 3.5736269113138537`*^9}, 3.5736270490308957`*^9, { 3.57362805908587*^9, 3.5736280650918803`*^9}, {3.5736281539808364`*^9, 3.573628157178842*^9}, {3.573628305956303*^9, 3.573628308109107*^9}, { 3.5736284063892794`*^9, 3.573628411162888*^9}, {3.573628547507128*^9, 3.573628549285531*^9}, {3.5736286413100924`*^9, 3.5736286455064993`*^9}, { 3.5736287593554993`*^9, 3.573628761477103*^9}, {3.5736288218180094`*^9, 3.5736288257960167`*^9}, {3.5736288834381175`*^9, 3.5736289204257827`*^9}, {3.5736292676667924`*^9, 3.5736293192560835`*^9}, {3.57362943134228*^9, 3.5736294402810955`*^9}, { 3.573629489670782*^9, 3.5736294932119884`*^9}, {3.573629532789258*^9, 3.5736295370480657`*^9}, {3.573638087842338*^9, 3.573638092647146*^9}, { 3.573638394648077*^9, 3.573638408766102*^9}, {3.5738371319854503`*^9, 3.5738371884107494`*^9}, {3.573837259546874*^9, 3.5738373163777742`*^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[{"U", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "+", "0.00001"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\n", RowBox[{"nl", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", "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[{"(*", RowBox[{ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"-", "L"}], "*", RowBox[{"Cos", "[", RowBox[{"\[Gamma]", "+", "1.0472"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Sin", "[", RowBox[{"\[Gamma]", "+", "1.0472"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", "rlo"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"-", "L"}], "*", RowBox[{"Cos", "[", RowBox[{"\[Gamma]", "-", "1.0472"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Sin", "[", RowBox[{"\[Gamma]", "-", "1.0472"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rlo"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"\[Gamma]", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Plota", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plotc", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", "0.02"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"P", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plotd", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plote", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plotb0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{ "Plotd", ",", "Plote", ",", "Plota", ",", "Plotb0", ",", "Plotc", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[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", ",", "7"}], 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.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}, {3.5735585571075864`*^9, 3.5735585598687916`*^9}, { 3.5735586056860723`*^9, 3.5735586386333294`*^9}, {3.573558697258233*^9, 3.573558697632633*^9}, 3.573558893678178*^9, {3.5735591288017907`*^9, 3.573559132920198*^9}, {3.5735592899812737`*^9, 3.5735592920872774`*^9}, 3.5735594281663165`*^9, {3.5735603676311665`*^9, 3.5735603798771877`*^9}, { 3.573560567545518*^9, 3.5735605685439196`*^9}, 3.573560776585885*^9, { 3.5735613963749733`*^9, 3.5735614053449893`*^9}, {3.573565222683182*^9, 3.5735652306859956`*^9}, {3.573565435015155*^9, 3.5735654359667563`*^9}, { 3.573565643774721*^9, 3.5735656445235224`*^9}, {3.573565941906845*^9, 3.573565956695671*^9}, 3.5735721695282774`*^9, {3.5735722640176435`*^9, 3.57357226782405*^9}, {3.5735723170109367`*^9, 3.573572321238544*^9}, { 3.573572359458611*^9, 3.5735723601450124`*^9}, {3.573572454993179*^9, 3.5735724691424036`*^9}, 3.5736234147529125`*^9, {3.573623450570575*^9, 3.573623478260624*^9}, {3.5736235516431527`*^9, 3.5736235703007855`*^9}, { 3.573623804441597*^9, 3.573623805174798*^9}, {3.5736238613660965`*^9, 3.5736238663581057`*^9}, 3.573626959689539*^9, {3.573627084754958*^9, 3.5736270889201655`*^9}, {3.5736271844703336`*^9, 3.5736271883859406`*^9}, {3.573627233204819*^9, 3.5736272816897044`*^9}, 3.5736273340901966`*^9, {3.573627483335658*^9, 3.573627505253697*^9}, { 3.5736276207719*^9, 3.5736276462467446`*^9}, {3.5736276809568057`*^9, 3.573627804602623*^9}, {3.573627838127082*^9, 3.5736278494371014`*^9}, 3.573627886674367*^9, {3.5736279341764507`*^9, 3.5736279589180937`*^9}, { 3.573628009196982*^9, 3.573628009836583*^9}, 3.5736282126525393`*^9, 3.5736286010464215`*^9, 3.57362869113658*^9, 3.573629110324916*^9, 3.573629172896626*^9, {3.5736293428901243`*^9, 3.5736293473829327`*^9}, { 3.573638415006113*^9, 3.573638452430578*^9}, {3.573644309993664*^9, 3.5736443105396643`*^9}, {3.573644528659248*^9, 3.573644534400058*^9}, { 3.5736446892459297`*^9, 3.5736446898855305`*^9}, 3.5738196156412044`*^9, 3.5738196471532598`*^9, {3.5738197328910103`*^9, 3.573819764340666*^9}, { 3.5738198143855534`*^9, 3.573819822559968*^9}, 3.5738198697968507`*^9, 3.573819945410184*^9, {3.5738200126619015`*^9, 3.5738200565291786`*^9}, { 3.5738202267254777`*^9, 3.573820227599079*^9}, 3.573820560581664*^9, { 3.573820769450431*^9, 3.5738207844888573`*^9}, {3.5738208981974573`*^9, 3.573820909523077*^9}, 3.5738213078427773`*^9, 3.5738213534572573`*^9, { 3.573830396938821*^9, 3.5738304183888583`*^9}, {3.5738315560832567`*^9, 3.573831560997265*^9}, {3.5738316549718304`*^9, 3.573831668450254*^9}, { 3.573831863715797*^9, 3.573831868177405*^9}, {3.5738342195851345`*^9, 3.5738342340307603`*^9}, {3.573834266915618*^9, 3.5738342903156595`*^9}, { 3.573834399812251*^9, 3.573834407581065*^9}, {3.5738344783583894`*^9, 3.573834479309991*^9}, {3.5738345422405014`*^9, 3.5738345655781426`*^9}, { 3.573834611879024*^9, 3.5738346197570376`*^9}, {3.5738346744039335`*^9, 3.573834679785943*^9}, {3.5738347287856293`*^9, 3.5738347350256405`*^9}, { 3.5738348245073977`*^9, 3.5738348607462606`*^9}, {3.5738349130219526`*^9, 3.573834913599154*^9}, {3.5738349622088394`*^9, 3.5738349670448475`*^9}, { 3.5738350402713766`*^9, 3.5738350499589934`*^9}, {3.5738350886626616`*^9, 3.5738351116103015`*^9}, 3.5738351474279647`*^9, {3.573835193791246*^9, 3.573835232994115*^9}, {3.5738355052457933`*^9, 3.573835526773831*^9}, { 3.5738355770683193`*^9, 3.573835601731962*^9}, {3.5738356560980577`*^9, 3.5738357030853405`*^9}, {3.57383575378543*^9, 3.5738357730982637`*^9}, { 3.573835837760377*^9, 3.5738358454043903`*^9}, 3.5738359261345325`*^9, { 3.5738359755398192`*^9, 3.5738360055074716`*^9}, {3.573836058001564*^9, 3.5738360691243834`*^9}, {3.573836206108224*^9, 3.5738362130190363`*^9}, { 3.573836294217179*^9, 3.57383635758449*^9}, {3.573836393526953*^9, 3.57383639734896*^9}, {3.5738364528382573`*^9, 3.5738364914951253`*^9}, { 3.573836619852151*^9, 3.5738366305849695`*^9}, 3.5738366791790547`*^9, 3.5738367240603337`*^9, {3.5738367842140393`*^9, 3.5738368158352947`*^9}, { 3.573836874943799*^9, 3.5738369053638525`*^9}, {3.573837070396542*^9, 3.573837075466551*^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.1831091114925423`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.1884420664660733`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "1.1822816686131146`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "1.1820263536923505`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3", ",", "1.1906416251145056`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "7", ",", "1.179562812399278`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "8", ",", "1.1809421577217574`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "9", ",", "1.1829029939029012`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "10", ",", "1.188035965376226`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "11", ",", "1.1906901025253112`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "13", ",", "1.1806738568310036`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "14", ",", "1.1813971908481906`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "15", ",", "1.1831423234608482`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "16", ",", "1.1880201891514786`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "17", ",", "1.1893852770575741`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "19", ",", "1.1788105338859705`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "20", ",", "1.1777675224721846`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "21", ",", "1.180694999392993`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "22", ",", "1.1877850720295478`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "23", ",", "1.1870497743990638`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "3", ",", "1.1316645531044596`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "4", ",", "1.1259844131585692`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "1", ",", "1.1381808301760907`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "2", ",", "1.1336705459102396`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "7", ",", "1.128328523305504`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "4", ",", "1.134081104016268`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "5", ",", "1.137521316930776`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "6", ",", "1.1397273338933405`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "8", ",", "1.1393000482431825`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "9", ",", "1.138926968463311`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "10", ",", "1.133218523174445`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "13", ",", "1.1278089593419884`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "7", ",", "1.125046420815687`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "11", ",", "1.1317969883089012`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "12", ",", "1.1402614162267113`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "14", ",", "1.1403324797249974`"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "15", ",", "1.138195987624775`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "16", ",", "1.133725757042272`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "19", ",", "1.1288432414442582`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "13", ",", "1.1252590233473756`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "17", ",", "1.1321826317470947`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "18", ",", "1.1406107759309054`"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "20", ",", "1.1392588926704932`"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "21", ",", "1.1391136858301385`"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "22", ",", "1.1392980728042372`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "19", ",", "1.1248148153977862`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "23", ",", "1.1349239767068844`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "24", ",", "1.1380763709722834`"}], "}"}], ",", RowBox[{"{", RowBox[{"46", ",", "1", ",", "1.2754245521509575`"}], "}"}], ",", RowBox[{"{", RowBox[{"47", ",", "2", ",", "1.2710235531033858`"}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", "3", ",", "1.2761956915632071`"}], "}"}], ",", RowBox[{"{", RowBox[{"49", ",", "4", ",", "1.267660823112549`"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "5", ",", "1.2751490158264138`"}], "}"}], ",", RowBox[{"{", RowBox[{"51", ",", "29", ",", "1.093462913509712`"}], "}"}], ",", RowBox[{"{", RowBox[{"52", ",", "26", ",", "1.097044203050865`"}], "}"}], ",", RowBox[{"{", RowBox[{"53", ",", "6", ",", "1.2714265817920407`"}], "}"}], ",", RowBox[{"{", RowBox[{"54", ",", "6", ",", "1.2757876265968418`"}], "}"}], ",", RowBox[{"{", RowBox[{"55", ",", "30", ",", "1.104275432801264`"}], "}"}], ",", RowBox[{"{", RowBox[{"56", ",", "28", ",", "1.0866711510036549`"}], "}"}], ",", RowBox[{"{", RowBox[{"57", ",", "7", ",", "1.2677026452160929`"}], "}"}], ",", RowBox[{"{", RowBox[{"58", ",", "8", ",", "1.2726675596906816`"}], "}"}], ",", RowBox[{"{", RowBox[{"59", ",", "9", ",", "1.2775018165824639`"}], "}"}], ",", RowBox[{"{", RowBox[{"60", ",", "10", ",", "1.2729766252347319`"}], "}"}], ",", RowBox[{"{", RowBox[{"61", ",", "11", ",", "1.2772257029772307`"}], "}"}], ",", RowBox[{"{", RowBox[{"62", ",", "12", ",", "1.271448733341614`"}], "}"}], ",", RowBox[{"{", RowBox[{"63", ",", "12", ",", "1.2752298095450385`"}], "}"}], ",", RowBox[{"{", RowBox[{"64", ",", "31", ",", "1.0946826447111433`"}], "}"}], ",", RowBox[{"{", RowBox[{"65", ",", "32", ",", "1.0989605652519145`"}], "}"}], ",", RowBox[{"{", RowBox[{"66", ",", "35", ",", "1.1016630174904332`"}], "}"}], ",", RowBox[{"{", RowBox[{"67", ",", "13", ",", "1.2655789033195335`"}], "}"}], ",", RowBox[{"{", RowBox[{"68", ",", "14", ",", "1.2730345167455122`"}], "}"}], ",", RowBox[{"{", RowBox[{"69", ",", "15", ",", "1.2740158752517536`"}], "}"}], ",", RowBox[{"{", RowBox[{"70", ",", "16", ",", "1.2700902398361644`"}], "}"}], ",", RowBox[{"{", RowBox[{"71", ",", "17", ",", "1.2776402845179078`"}], "}"}], ",", RowBox[{"{", RowBox[{"72", ",", "18", ",", "1.2729800306619543`"}], "}"}], ",", RowBox[{"{", RowBox[{"73", ",", "18", ",", "1.2753896868982753`"}], "}"}], ",", RowBox[{"{", RowBox[{"74", ",", "36", ",", "1.0916899931961788`"}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", "37", ",", "1.0980423149608882`"}], "}"}], ",", RowBox[{"{", RowBox[{"76", ",", "40", ",", "1.1007550571947238`"}], "}"}], ",", RowBox[{"{", RowBox[{"77", ",", "19", ",", "1.2672826791997567`"}], "}"}], ",", RowBox[{"{", RowBox[{"78", ",", "20", ",", "1.2741409590917088`"}], "}"}], ",", RowBox[{"{", RowBox[{"79", ",", "21", ",", "1.2749193745958576`"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "22", ",", "1.2749627531971157`"}], "}"}], ",", RowBox[{"{", RowBox[{"81", ",", "23", ",", "1.2750401520042067`"}], "}"}], ",", RowBox[{"{", RowBox[{"82", ",", "24", ",", "1.2744191800805171`"}], "}"}], ",", RowBox[{"{", RowBox[{"83", ",", "24", ",", "1.272510880969897`"}], "}"}], ",", RowBox[{"{", RowBox[{"84", ",", "41", ",", "1.0935364986081584`"}], "}"}], ",", RowBox[{"{", RowBox[{"85", ",", "42", ",", "1.091114561755932`"}], "}"}], ",", RowBox[{"{", RowBox[{"86", ",", "43", ",", "1.089425031738966`"}], "}"}], ",", RowBox[{"{", RowBox[{"87", ",", "45", ",", "1.0886394954698164`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.573836098296435*^9, 3.5738362197114477`*^9, 3.5738363747601204`*^9, 3.5738364079413786`*^9, 3.573836520323976*^9, 3.5738366465593977`*^9, 3.5738366840306635`*^9, 3.5738367391767607`*^9, 3.5738368234481087`*^9, 3.573836925815488*^9, 3.573837085606569*^9, 3.5738372009999714`*^9}], Cell[BoxData["90"], "Output", CellChangeTimes->{3.573836098296435*^9, 3.5738362197114477`*^9, 3.5738363747601204`*^9, 3.5738364079413786`*^9, 3.573836520323976*^9, 3.5738366465593977`*^9, 3.5738366840306635`*^9, 3.5738367391767607`*^9, 3.5738368234481087`*^9, 3.573836925815488*^9, 3.573837085606569*^9, 3.5738372010155716`*^9}], Cell[BoxData["48"], "Output", CellChangeTimes->{3.573836098296435*^9, 3.5738362197114477`*^9, 3.5738363747601204`*^9, 3.5738364079413786`*^9, 3.573836520323976*^9, 3.5738366465593977`*^9, 3.5738366840306635`*^9, 3.5738367391767607`*^9, 3.5738368234481087`*^9, 3.573836925815488*^9, 3.573837085606569*^9, 3.5738372010155716`*^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.4", "]"}], ",", 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}, { 3.5735301732414556`*^9, 3.573530176392661*^9}, 3.5735304624191637`*^9, { 3.573559520721279*^9, 3.573559528474493*^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.1"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", RowBox[{"(*", RowBox[{"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}, 3.5735301132749505`*^9, {3.573559347748175*^9, 3.573559359572996*^9}, {3.573559539300912*^9, 3.5735595466797247`*^9}, 3.5735596849583673`*^9, {3.573565698390417*^9, 3.573565702228024*^9}, 3.57356605302584*^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]}, 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}], {Opacity[0.4], SphereBox[{1.6966067353363496`, 13.253712553146453`, -1.7641905780243905`}, 1.2754245521509575`]}, {Opacity[0.4], SphereBox[{-1.3926561778383741`, 12.103645579903038`, 1.8212421249655808`}, 1.2710235531033858`]}, {Opacity[0.4], SphereBox[{-2.8313050736605416`, 14.457285925515144`, -2.1838808407943238`}, 1.2761956915632071`]}, {Opacity[0.4], SphereBox[{-0.06861357672388238, 17.871743372565717`, -1.3844818351360728`}, 1.267660823112549]}, {Opacity[0.4], SphereBox[{1.8063207228707931`, 15.590972344963799`, 2.502167258238024}, 1.2751490158264138`]}, {Opacity[0.4], SphereBox[{5.1086104152948115`, 15.776579605753792`, 0.4641597232750979}, 1.093462913509712]}, {Opacity[0.4], SphereBox[{3.09362135529579, 10.334247306173701`, 0.34130155069048196`}, 1.097044203050865]}, {Opacity[0.4], SphereBox[{-6.730823972028141, 14.695976839403947`, -0.4582150095106019}, 1.2714265817920407`]}, {Opacity[0.4], SphereBox[{-6.259057352247132, 12.490245897800472`, -1.4046362273473758`}, 1.2757876265968418`]}, {Opacity[0.4], SphereBox[{-6.169758291331338, 11.087668598132668`, 1.9842971019622713`}, 1.104275432801264]}, {Opacity[0.4], SphereBox[{-0.34656590227196604`, 19.548325091963992`, 2.7661602670706555`}, 1.0866711510036549`]}, {Opacity[0.4], SphereBox[{-1.4454730994579605`, 7.997029063033533, 1.9684306344297322`}, 1.2677026452160929`]}, {Opacity[0.4], SphereBox[{-3.651994716191561, 5.826734255490381, -1.7839137512363872`}, 1.2726675596906816`]}, {Opacity[0.4], SphereBox[{-3.134067800880106, 3.362804834996782, 2.381701523326519}, 1.2775018165824639`]}, {Opacity[0.4], SphereBox[{-0.3833458300325527, 2.336703122917547, -1.509474062399919}, 1.2729766252347319`]}, {Opacity[0.4], SphereBox[{1.3909261767821763`, 4.593198284379184, 2.4183595304165397`}, 1.2772257029772307`]}, {Opacity[0.4], SphereBox[{5.131442386798183, 4.894486230508303, 0.39219379519070563`}, 1.271448733341614]}, {Opacity[0.4], SphereBox[{4.740895846834354, 2.6571684671518487`, 1.3026724079507208`}, 1.2752298095450385`]}, {Opacity[0.4], SphereBox[{-6.737791401281884, 5.976600242577015, 0.5677118891442536}, 1.0946826447111433`]}, {Opacity[0.4], SphereBox[{-4.706753964783188, 0.4951815703815081, 0.3063219287616928}, 1.0989605652519145`]}, {Opacity[0.4], SphereBox[{4.395388360751405, 1.3668800707403699`, -2.111286431065436}, 1.1016630174904332`]}, {Opacity[0.4], SphereBox[{-0.24415985416310756`, -1.7701951850670583`, \ -1.7735585212220186`}, 1.2655789033195335`]}, {Opacity[0.4], SphereBox[{2.2254460204714657`, -3.994042213443883, 1.77729110413286}, 1.2730345167455122`]}, {Opacity[0.4], SphereBox[{1.4289256569567417`, -6.400706556407925, -2.37749089026176}, 1.2740158752517536`]}, {Opacity[0.4], SphereBox[{-1.0296603995325202`, -7.482951941940144, 1.685464043302448}, 1.2700902398361644`]}, {Opacity[0.4], SphereBox[{-3.088678364352477, -5.207891336387986, -2.08914655221483}, 1.2776402845179078`]}, {Opacity[0.4], SphereBox[{-6.691442390063047, -4.956862533399273, 0.15809094036665997`}, 1.2729800306619543`]}, {Opacity[0.4], SphereBox[{-6.328219913118816, -7.208320974483243, -0.7303345449759722}, 1.2753896868982753`]}, {Opacity[0.4], SphereBox[{5.142318135820718, -3.774965017386367, -0.7732464683264048}, 1.0916899931961788`]}, {Opacity[0.4], SphereBox[{3.116399328676289, -9.304142403986852, -0.42375063319002476`}, 1.0980423149608882`]}, {Opacity[0.4], SphereBox[{-5.78170451666697, -8.417308824991142, 2.6815660657295686`}, 1.1007550571947238`]}, {Opacity[0.4], SphereBox[{-1.1355678723513924`, -11.562136202310873`, 1.964348539283498}, 1.2672826791997567`]}, {Opacity[0.4], SphereBox[{-3.8733467351861663`, -13.826236193599978`, \ -1.3657585021515275`}, 1.2741409590917088`]}, {Opacity[0.4], SphereBox[{-2.8159177604555317`, -16.07132067800642, 2.8197394465400425`}, 1.2749193745958576`]}, {Opacity[0.4], SphereBox[{-0.7071728222410854, -17.429806333392687`, -1.344003341105313}, 1.2749627531971157`]}, {Opacity[0.4], SphereBox[{1.7664148437162277`, -15.010091613094058`, 2.1045585434382454`}, 1.2750401520042067`]}, {Opacity[0.4], SphereBox[{5.108694555393685, -14.884722815461682`, -0.4866847987341023}, 1.2744191800805171`]}, {Opacity[0.4], SphereBox[{4.75181068667548, -17.160725511006003`, 0.3695912587305976}, 1.272510880969897]}, {Opacity[0.4], SphereBox[{-6.616055750704573, -13.504432957096212`, 1.3665257634865609`}, 1.0935364986081584`]}, {Opacity[0.4], SphereBox[{-4.609748126728132, -19.056119089703092`, 1.0722517535627423`}, 1.091114561755932]}, {Opacity[0.4], SphereBox[{0.3237390121349573, -19.213664859016312`, 2.6470996622626455`}, 1.089425031738966]}, {Opacity[0.4], SphereBox[{3.594947127544483, -18.235183142267438`, -2.960646754656641}, 1.0886394954698164`]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.9737670952770183`, 10.013448687371813`, -1.327946715457775}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.5893502745748838`, 16.200952278972128`, 1.925528297516112}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{1.8264889209327149`, 7.581372428244028, 0.0366168149185056}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.0729358722213322`, 0.057169574890811176`, 0.9866922126694465}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.2293209231073385`, -3.3940342481924892`, 1.9071848825648012`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-3.0722065490129733`, -9.628657523553079, -1.178629038156684}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{ 1.8221361411040493`, -12.099521045665067`, -0.38481683157433433`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-0.8118080630581523, 9.878313734910396, -1.9363640784829566`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-3.488414448544403, 17.376607607867772`, 0.23082532686792678`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0.784365298107467, 6.4479354939130955`, -1.6040534964615953`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{1.0325371894415218`, 0.24280658710226077`, 0.21531546534732726`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-3.3806828018853263`, -2.249232396567106, 0.3495281345577461}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.0038893038956753`, -9.811097747584578, \ -2.0453927534826826`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0.5449570604203838, -13.259887331794651`, -1.828722534131763}, 1.125]}, TubeBox[{{-1.19997601, 12.260542288000002`, 0.315584242}, { 1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.1], TubeBox[{{-3.06135612, 14.225857328, -0.687860264}, {-1.19997601, 12.260542288000002`, 0.315584242}}, 0.1], TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.1], TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {-0.196531504, 17.549885362, 0.098265752}}, 0.1], TubeBox[{{-5.827914984, 13.47374638, -0.31369451600000003`}, {-3.06135612, 14.225857328, -0.687860264}}, 0.1], TubeBox[{{-3.54323625, 5.91484238, -0.262671914}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.1], TubeBox[{{-3.050017764, 3.314579404, 0.852266426}, {-3.54323625, 5.91484238, -0.262671914}}, 0.1], TubeBox[{{-0.438416432, 2.450974622, 0.013228082}, {-3.050017764, 3.314579404, 0.852266426}}, 0.1], TubeBox[{{1.49288354, 4.40306158, 0.901399302}, {-0.438416432, 2.450974622, 0.013228082}}, 0.1], TubeBox[{{4.221647884, 3.673627344, 0.2834589}, {1.49288354, 4.40306158, 0.901399302}}, 0.1], TubeBox[{{2.010668464, -3.8852766560000003`, 0.268341092}, {-0.149288354, -2.076808874, -0.287238352}}, 0.1], TubeBox[{{1.45508902, -6.47231155, -0.8503767}, { 2.010668464, -3.8852766560000003`, 0.268341092}}, 0.1], TubeBox[{{-1.084702724, -7.36048277, 0.166295888}, { 1.45508902, -6.47231155, -0.8503767}}, 0.1], TubeBox[{{-3.085922558, -5.415954716, -0.570697252}, {-1.084702724, \ -7.36048277, 0.166295888}}, 0.1], TubeBox[{{-5.7579951220000005`, -6.164286212, 0.23243629799999999`}, {-3.085922558, -5.415954716, -0.570697252}}, 0.1], TubeBox[{{-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}, {-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.1], TubeBox[{{-2.953641738, -16.206290176, 1.3020212139999998`}, {-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.1], TubeBox[{{-0.5102260200000001, -17.183278518, 0.153067806}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.1], TubeBox[{{1.58736984, -15.253868271999998`, 0.60471232}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.1], TubeBox[{{4.130941036, -16.060781274, -0.489439034}, { 1.58736984, -15.253868271999998`, 0.60471232}}, 0.1], TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-3.06135612, 14.225857328, -0.687860264}}, 0.1], TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-0.196531504, 17.549885362, 0.098265752}}, 0.1], TubeBox[{{3.2824540620000002`, 11.481975175999999`, 0.863604782}, { 1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.1], TubeBox[{{-1.7139814820000001`, 9.958856019999999, -0.999665054}, {-1.19997601, 12.260542288000002`, 0.315584242}}, 0.1], TubeBox[{{-1.7139814820000001`, 9.958856019999999, -0.999665054}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.1], TubeBox[{{-0.15684725800000002`, 19.828894918, 1.5476855939999998`}, {-0.196531504, 17.549885362, 0.098265752}}, 0.1], TubeBox[{{4.257552678000001, 16.682501128, 0.196531504}, {1.846262302, 15.730079224, 0.978878068}}, 0.1], TubeBox[{{-6.224757444, 12.360697766000001`, 2.127831476}, {-5.827914984, 13.47374638, -0.31369451600000003`}}, 0.1], TubeBox[{{-5.854371147999999, 6.865374558, 0.7899054679999999}, {-3.54323625, 5.91484238, -0.262671914}}, 0.1], TubeBox[{{-4.958641024, 1.664848606, -0.139839724}, {-3.050017764, 3.314579404, 0.852266426}}, 0.1], TubeBox[{{0.20786986, 0.12283219000000001`, 1.216983544}, {-0.438416432, 2.450974622, 0.013228082}}, 0.1], TubeBox[{{0.20786986, 0.12283219000000001`, 1.216983544}, {-0.149288354, -2.076808874, -0.287238352}}, 0.1], TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.1], TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {1.49288354, 4.40306158, 0.901399302}}, 0.1], TubeBox[{{4.418179388, 2.641836948, -2.218538324}, {4.221647884, 3.673627344, 0.2834589}}, 0.1], TubeBox[{{4.236765692, -2.898839684, -0.9297451919999999}, { 2.010668464, -3.8852766560000003`, 0.268341092}}, 0.1], TubeBox[{{3.42985269, -8.133380704, -0.024566438}, { 1.45508902, -6.47231155, -0.8503767}}, 0.1], TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \ {-1.084702724, -7.36048277, 0.166295888}}, 0.1], TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \ {-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.1], TubeBox[{{-2.443415718, -3.101040366, 0.6557349219999999}, {-0.149288354, -2.076808874, -0.287238352}}, 0.1], TubeBox[{{-2.443415718, -3.101040366, 0.6557349219999999}, {-3.085922558, -5.415954716, -0.570697252}}, 0.1], TubeBox[{{-5.775002656, -7.141274554, 2.7646691380000004`}, {-5.7579951220000005`, -6.164286212, 0.23243629799999999`}}, 0.1], TubeBox[{{-5.699413616, -12.625259406, 1.42674313}, {-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.1], TubeBox[{{-4.9775382839999995`, -17.903264124, 0.68974999}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.1], TubeBox[{{0.105824656, -19.494413416, 1.430522582}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.1], TubeBox[{{ 0.857935604, -12.948402552000001`, -0.602822594}, {-1.347374638, \ -11.882597088, 0.49132876000000003`}}, 0.1], TubeBox[{{0.857935604, -12.948402552000001`, -0.602822594}, { 1.58736984, -15.253868271999998`, 0.60471232}}, 0.1], TubeBox[{{3.802128712, -16.986747014000002`, -3.01411297}, { 4.130941036, -16.060781274, -0.489439034}}, 0.1], TubeBox[{{1.780121892, 13.288553232, -2.326252706}, {1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.1], TubeBox[{{-1.46453765, 12.045113524, 2.382944486}, {-1.19997601, 12.260542288000002`, 0.315584242}}, 0.1], TubeBox[{{-2.745771878, 14.543331296, -2.7401027}, {-3.06135612, 14.225857328, -0.687860264}}, 0.1], TubeBox[{{-0.020786986, 17.992081246, -1.938858876}, {-0.196531504, 17.549885362, 0.098265752}}, 0.1], TubeBox[{{1.791460248, 15.539216898000001`, 3.0689150240000003`}, { 1.846262302, 15.730079224, 0.978878068}}, 0.1], TubeBox[{{5.459418414, 15.403156626, 0.574476704}, {4.257552678000001, 16.682501128, 0.196531504}}, 0.1], TubeBox[{{3.016002696, 9.862479994000001, 0.126611642}, { 3.2824540620000002`, 11.481975175999999`, 0.863604782}}, 0.1], TubeBox[{{-7.06757524, 15.151823068, -0.5121157460000001}, {-5.827914984, 13.47374638, -0.31369451600000003`}}, 0.1], TubeBox[{{-6.419399222, 12.124482016, -1.8103575079999998`}, {-5.827914984, 13.47374638, -0.31369451600000003`}}, 0.1], TubeBox[{{-6.147278678, 10.567347792, 1.925630794}, {-6.224757444, 12.360697766000001`, 2.127831476}}, 0.1], TubeBox[{{-0.42518835, 19.432052457999998`, 3.2711157060000002`}, {-0.15684725800000002`, 19.828894918, 1.5476855939999998`}}, 0.1], TubeBox[{{-1.447530116, 8.099365636, 2.528453388}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.1], TubeBox[{{-3.692524604, 5.793899916, -2.350819144}, {-3.54323625, 5.91484238, -0.262671914}}, 0.1], TubeBox[{{-3.16529105, 3.380719814, 2.949862286}, {-3.050017764, 3.314579404, 0.852266426}}, 0.1], TubeBox[{{-0.362827392, 2.294127364, -2.076808874}, {-0.438416432, 2.450974622, 0.013228082}}, 0.1], TubeBox[{{1.353043816, 4.663843768, 2.981987628}, {1.49288354, 4.40306158, 0.901399302}}, 0.1], TubeBox[{{5.47075677, 5.349814306, 0.432747254}, {4.221647884, 3.673627344, 0.2834589}}, 0.1], TubeBox[{{4.934074586, 2.279009556, 1.68185614}, {4.221647884, 3.673627344, 0.2834589}}, 0.1], TubeBox[{{-7.1015903080000005`, 5.610596494, 0.476210952}, {-5.854371147999999, 6.865374558, 0.7899054679999999}}, 0.1], TubeBox[{{-4.603372536, 0.015117808, 0.489439034}, {-4.958641024, 1.664848606, -0.139839724}}, 0.1], TubeBox[{{4.386054046, 0.844707522, -2.067360244}, {4.418179388, 2.641836948, -2.218538324}}, 0.1], TubeBox[{{-0.279679448, -1.655399976, -2.3300321580000003`}, \ {-0.149288354, -2.076808874, -0.287238352}}, 0.1], TubeBox[{{2.30546572, -4.03456501, 2.339480788}, { 2.010668464, -3.8852766560000003`, 0.268341092}}, 0.1], TubeBox[{{1.419184226, -6.374045798, -2.946082834}, { 1.45508902, -6.47231155, -0.8503767}}, 0.1], TubeBox[{{-1.0091136840000001`, -7.528668384, 2.252553392}, {-1.084702724, -7.36048277, 0.166295888}}, 0.1], TubeBox[{{-3.08970201, -5.13060609, -2.653175304}, {-3.085922558, \ -5.415954716, -0.570697252}}, 0.1], TubeBox[{{-7.03922935, -4.50699651, 0.130391094}, {-5.7579951220000005`, -6.164286212, 0.23243629799999999`}}, 0.1], TubeBox[{{-6.540341686, -7.5966985199999995`, \ -1.0884821759999999`}, {-5.7579951220000005`, -6.164286212, 0.23243629799999999`}}, 0.1], TubeBox[{{5.516110194, -4.136610214, -0.7086472500000001}, { 4.236765692, -2.898839684, -0.9297451919999999}}, 0.1], TubeBox[{{2.987656806, -9.785001228, -0.587704786}, { 3.42985269, -8.133380704, -0.024566438}}, 0.1], TubeBox[{{-5.784451286, -8.940293706, 2.647506126}, {-5.775002656, -7.141274554, 2.7646691380000004`}}, 0.1], TubeBox[{{-1.056356834, -11.44229093, 2.515225306}, {-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.1], TubeBox[{{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, \ {-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.1], TubeBox[{{-2.7646691380000004`, -16.021097028, 3.3844992659999997`}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.1], TubeBox[{{-0.780456838, -17.521539472, -1.901064356}, \ {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.1], TubeBox[{{1.83303422, -14.91938677, 2.662623934}, { 1.58736984, -15.253868271999998`, 0.60471232}}, 0.1], TubeBox[{{5.472646496, -14.44695527, -0.48565958200000003`}, { 4.130941036, -16.060781274, -0.489439034}}, 0.1], TubeBox[{{4.983207462, -17.570672348, 0.68974999}, { 4.130941036, -16.060781274, -0.489439034}}, 0.1], TubeBox[{{-6.993875926, -13.866809388, 1.34170546}, {-5.699413616, -12.625259406, 1.42674313}}, 0.1], TubeBox[{{-4.457863634, -19.532207936000002`, 1.230211626}, {-4.9775382839999995`, -17.903264124, 0.68974999}}, 0.1], TubeBox[{{0.413849994, -19.097570956, 3.150173242}, { 0.105824656, -19.494413416, 1.430522582}}, 0.1], TubeBox[{{3.509221182, -18.751751098, -2.93852393}, { 3.802128712, -16.986747014000002`, -3.01411297}}, 0.1]}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{3.5738360983900347`*^9, 3.573836219820648*^9, 3.5738363748381205`*^9, 3.5738364080193787`*^9, 3.573836520417576*^9, 3.5738366466685977`*^9, 3.5738366841554637`*^9, 3.5738367392703605`*^9, 3.5738368235417085`*^9, 3.573836925909088*^9, 3.573837085684569*^9, 3.5738372011247716`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvWeYXNd5JvgOSUmWRCXLkrMte5+ZH+t55tnZ3Wef3fHYXq3HHu16bMuB clCwaEk0KVEMyBndAIFGbKAbaKBzzlWdKuecc845dFV1V1UHRAIksd+9t7rZ oECvfu6PuQ8P6/at7nvP+eL7fufcgz9/+cCrP/rpywde+8HLX/uv+15+69XX frD/a3/65j669Py/Af7Nq0z7GpjzJ8DO/57Qf09eY/7HXPnv5//9/P+/5xfY jxfgcmfhc+fgd+ZQKTZT3Lfn2I9Pw+fLQKXwY2HCANGYAbIRAxSDBsh7DZB0 65G25pHg/uQd9uNFaFReLMzQr84aoKNPy5QB9kkjnHQL57gBNrqFud8AQ5cO G4VmjPvrM+zHF1CtrIM3rYRw3gDVvBnmeRtccw74550I8V2ILFJbcCDMtyEw Z4aHuWufDlvFJqJ7b/VFmNQO7jY8Byw8H7z8IEJLEcSFUaTFUWSlTAsjIwki KfQisuRAcNYM74CablePcHc7ynw8x7j38+yFXwLn6qwsEQvEIZ7TQsFzw8SL wL2YQFiQRlKaRU6RQ1GdR1mTQ1mbRUmTRl4VR1IWRkTgRZjpfp+k9ZwjLX3s vTsdz7EnX3nqsmhSDDnJRMOLwraQRUBQREK2ipy6ipKuhopxDTVzDWvmKqqm MkqGIjLUgZgiTp2jB89ocIfkHP5Xn7x3uPVKDbIpLeSzAeh4WTiWVxGSrqPz r4eR7FUix0tg3baFhp2aYwNr9gZWbevImStI6PIIy6MIL1mRVpvCHxXrC3ue k/TGIZ+0QjETg55XglNYR1i5jRuHbPDq72Nd6ENTV0LT/RAb7vuou++i4tpC 3tZA0lRBWJ1GWOJBcEH88w8u5U1BPu6CYjoF/UIFTskm3eg+MsbHCOjfg8n4 PradNWwqktj0vY+67zGqngcoOLeRsq4jostRJ8m2RKqnHvrJjz70aZ1+mb0k H/VAPpWBfmkNTtk2QtqHSJsfo+x4H37NB/B5PsB28j7eNQTQCLyPqu9dFGjU KXsdUWMBYW0IIZkGPyNWdoTPs8/4RcgH3STXLLT0FLtsC0HdPaQsD1ByvEtD ecQOSW39AI3Se3gUKaNuLqLgoac4GohYiggbwwgod4bX1up/vVinQGAn4aWh XqzCKm3Cr91CwnwHecc9rHruo+YjrQXuw2G4j9wqiSKTRc1dRtJBmrWRZZgD SLpdO/1vZz8+AUmXCfLhGNt9k7gGj7oObjCfQdm7hYpvG1X/FiLUSVf6Cd5r bGFDbUTYkUHA7EYpnXrqjl9C3JyH7HaAvYdOUIJdUSHt1hC3rCNNnWGOgqeO opeah0zXVYMz9S7ubj9EeHgKlguXEdlzS86kPgejOAenqgi/oYyoZZUzY8cq Us5V+iwj7iwiRLF1YNAIWdtNbP7DPz51H+raHtOAaDwJ+UISenEKNmUGbl2W vR405RC0kK/bMvA4UrA7khAKrbj6dyJsd+x27cyu/klc+sU8FkcTFAST4K59 GmZlElYtNWMSJnMSWksSMmMUjY07EA4UUDg2+4x7fYa9Uivfg0paZK8sLdHz xUmIySmE6iQW1XFEs3XOtJ/HbG8Yin9W4IlNvaPas62v9jrFc3u764rWd794 ofXLHf+3Do9n5tifQtx9ulpfdb/uxlrbyLO+mu1Nw/66GI+t0p2vultf3f6m Fh9YHOxPwb1ffRpv/8UKVo4MYZby3AIlqeUhA1YoUS3fMsC06EfMkoOb+5Pr 7MfnEPBnMDWlw7V2Kab3T0E5IIKWMpKBbmEcpkapUt9ngKbHAOVVHZr5DTi5 W3Bp+BdQXm1Sls1DIfFhalCP2X499AJ6mpOcw5r9rVZe1KrcWJjVQzhnAP+W AhOv82C9sQjntAlual6mTRnhmaR8SE+30ZMtN/XwTbvBjRb/0krQlWoTSqUP PErMQmpy+hM1JWbdKDUas5bGrKIxy6/rkTJnf71lpQaVE8tzOkh4Rso8Zljm 7Rh8RQjXqXEEKf1FFtyIUXaOLToRXaQMzbPCP2tiM7SrX4fQnBN2rievtAYV CqTBm9FBQFBBRc1IzTpNA6Beuakxg3FPtAZEPTNRr/yUyRuZBn6FvccvIxog A5xTU7fM1C0nZXov3LwApBftcLVJkBBGKNtHKMtHkJWEkBEHkRL5EF9xI7xg R5AE5xtUo2TlcEypvAG3Kwcv+ayJ6+6PWhLQKh1YomQvmTdCS9jEOm+Fe85O XWLwiANRwiWxRabZEOFbEJxjdELdp66br6nRzNbxVfZev4E1yr+iGRmkdB8V z0PgIQTXQhTBpQTkVwlMnDQjN2VBgWJAScW0NIqqJPLKODIyAjGiAGVUF0y3 6R5nZjBLClwiMQnJcEWkexFZneAmPZfvQ72woeNG8r2n0wPneV/CyqyK5Gei 1O6AjTrj5fsRXgyQjEIkK0ZmIeQIJWUlAWTFXqQELkSXbOwAfWN6xJbdrYH9 JiwKE0E/QkTzHrofARR+Cr6lLKKiAlKyEsRHPSgMW7GqW0VVT81QQkVfJOCS R06TQVAQgrhHA+k1MRTnZ6DoXoaW7MBIAzSThZrJrUwD5FaEQLXdZCOzPmi5 0X2X/fi1j0u7qK3WIJiWsudqGqaVAKGXZB5eJlAmSiIrS6GgSJOsUyirmZag 8xhdCyMtJZcUkMmQXgNjGqw6kl9pWaCEgWOzNijmwjDMp+FYLCIgJOAjqyGr WofqUgLZHgdqpjrWLUxbx5plDaumKhKkXu2oA8pBC/mcGprOZWjODcExQ44z baYA6SP7/CS5N+faDpKAjfzTdE2LjXxD/fMN3CQ3Qko6YQ4D6cS1kEJwJYuE OI+sogjrkBmJbhOrizVjkVqBzgm16tIEKhNIkADC5DNh8jH/sPRLe6M284w6 CZYDNszxmzDyi3Ct1AgiNpBSbSCv24JleBXhrhjWRHGCidsEE7dRt2/SdxVY Z4IwTvmhG3NBO2CG4aYCxs5ZuMe0FFY85FAexJfokwyecbIQOR4jFy9Jw3FD hc18HaqPWjiXir7Kdkk8wamIOcy8NDzLRUTEFaSVNRS1axBdcMLwzwvYJCE1 CNI1bISerRWsmssoGPNIa9OIKshSyPDDs2qCH7EvsLf/tz8j86Q3BvmEEfLp EFQzGfaaS9RAWEFoUXuPbvcAFctDmC4WkLtpQdP1kNoDlE0Ud/hJ2HlJWGZj ME2GYBgmBydtW24J4B1TkC/GKI7FOOYiCbOxLEmQOEJyYWQSGNcjueLckQVn Fr/+sWYhm9RAPuNlzy0LRfiENeIIDWS1mygbtlCzbGPx+1JsEdfYcG5h07mJ urOJqn0dRWuVAHIJMSI1YWmQYpEZaY0ZX/gQGz2PlIeC2ZiVMkxk1zbcDLpW EfzUE5AloFuxvY+uH0tgvq1HYkaNDe/7iEtW4SXw4lrIwzabhG0qAtN4EJZR G+UBGbE0IwVCYleqHDlolg2QBQqOWSI4CSnDrhhbpfg0psKqKw7lzycP+QSB zqkQe25drsBHeDam2kbOQFiW0PK6/QFG/0mDRuc0togAbHnvo0EAtObeIiTd RNZKcNJAaVsZQ1jsYFgI0dBdGP67SLkJ3I3YsXOYltfhIjgeUj9AyvAIBct7 ZJbruPWGBf3LD8nmSajzAUoKBfiIctl5edhnM3DOJmCficA27YJ9ghDWgo0Y ZoXiaIX8lompZZQppha0ZLqUOKIyhvhRTJ83wT8qUn6cqyQ9yd2+aeYLsK6s wSffQozsNmd6lyjdY6w738ficR+qlwTY9r2HLaIOTSIlNRJG2U3CImKSMJUQ 1iSJ9hEVE8q/0AL1e2XNuooz0WJmv8Vyn6DmHpLkHgXruxTuk5g4ZUQP7yGl GnJ7Mn/vYASukRiMoyk45okd8vNwE1a2z3spYFKoINOvGpvEe5sUZBtssK2Y 11CiQJvVlxBXE1GTMfGevHheie3qmoLr0D/vCMBNVHDYQZYQJwGUYCX+6SPH jekfIGt5RFH/Pay734e6v4DkWSW2LBVsEStrBh5jzfcQZbKGHHlIgohAWE+e ofYhKFVyAvjUzxhevbTOGd5wtOUfv0X0bJOI3zbiRrqV9R4skwXMXLVBN+KG lxzRvRilAVfIJ6h7w1lYb0Vg6Q/BOe6HnVCqfU6DFPnGmvUuxde7FGvv0Oc2 ahRry9YmUfI1JPRl8sEUUWUCESsG1MLRjwrCSZY6SNRuLE7wpAQLRTAvEfGo /h4y5Aplx0MSxCMoBglpn9DjHuHJreAjNINkCX4ShJd67yJBUBANm0gQOh8C csUeb/j8U6bAWtwSQyHr8KqbiBo24RHVoBtYh1tagUuSgZ+ohncxtpN4dPNV SKdqrZ+Y43Oo8tPI97vRcFJXnO+ywXXNeZ/0dgc52waSZAkRcoqwIkKDt2It lsRHRl4vMaSWYhYZmopMwCSkHig3SJ3bSFvukqPfQ9VNpNb3AIIjJmzLg9gI PqCRE9n136ORbyNLJhC3kQlYSMZGD1Iu5xf+lZJAwprnBvXbUPHpiaIKPXGN OEcegq4c/GrKojYyY/cGGdgGl1EIVTn5HDW0CaqwiznmqSNXYY64/gOsq+/g LiGv9R4T7kjSKEy4KRreR96+ReR/nXRJxF5DoYpgrXd5YUcQ33kGT+N+4iCe pJuS2yDRu9k8EZUqnIp1BHVNJM0b7K2ZIFDz3sHYQTPqEwuoB+5gPUB03UdR krqfIbIdt5MB2hIIGh1YzaS++DQsxe9A3OlgH6mYzUK3UqBsGsXkuRCsYlKg uYa0nbCVcw151xoXrudiREiSraiahkGQpBZkfy5R1Ko634PN9D5ylF38nido ht7HI9cm1uYoQ9jzSFkbiBqpU/oEycSJtXTmX5fHk92qXMJagOy2nzJHGtol ckoy1/l/6UDyrQtI2+ooOBuktiZ4lzxYHRKh5qMM6m1g1UPfUfdTziqiRPZC tgg8BlPLMX4Jq6kMuQxFNbkO6p4RxGQ6RKRa1BIZ9jfW81sQ3wxCOp6Akuy+ +4CVICglTU0RQQJyUcIucWsZSVsZ+gkHZ2FfhoYAr2o5CqWAVEi4PaThJFgh d1lzv4t177uo+5j2ECH/Y6RdVeSd23QbphREEjKRhPRO1NKpHQn9427Of2GP XJgzUacbshFKwLwMLrx8Cb2/99dwf+OfYD/aBV6vGUZKbpOXLHBdFRMBi6Ho poe5CJe5yoi5Cgg4UvBYfSjmC0RcmTv+Hqokl6kDp7B04DSkB9qgOtAO3f52 6Pe1Q/s2/fzGabi6htGIZ2jcUQh6Y7i234mZ3gS0whSs8jRc6gy8uiwChiyC Js6N5ONOSGd87LlgMYSVRR/04iTFjDvstbLzHirue6h57mHNS813l7XzsoeS HiGjBKGisI0SH40jZCCCk44/JaA9JrRr6Xuy7y+SQrch6gmDP+DDmSNTaP/2 NQj/4R1ID1+B8NQERJdkmDgqwDRR/8XDPPjEMSScBUSIqfqcFA/sFNSC8Rdb yUZ7ewiLh05BeqgNOmrWg2fgPHAGHmrPwUv//124SG42kpn5jVPYJLs6/S05 ek/GMDkUhoTAqIpxIykBUgq9dnUSDh3nYksjVvAnuVAzNcfJLKChoGfkwlPB Qb7u2iIb30LFu4WqZxMV8v0SpYQs+X/CUUPYQXHYFobPYGgBkm/viuSjdrTT +s+J0XVWiIGLYpz/3jj4f3IRplM3YR5Ygq1jELprEiwc4kN9bhHiM2LIrqjg clD/7XFojV40mpv4bKvwYrg9CMGhk1CQbIyHSDaH3oH/0DlEDp9D7PD555A4 co6cMXb4LEKH2klgbTj+jStQTD1AJHEXGkERcwRSFinqiJcpW5KpqEhMahKT SpfcyVJjY36IiHFYJZVWiv8cEuY6MhQZ8o4GRYAGWX2dJFNHkaJBzknBzVmh iFBCyJFGwObDaj6PnxHR83uBtl7l2E2j3FNeRO9/7kXwjStYum2HfVqPYPc4 JPv6sPjqO5CfnYb0ggjCqwq4AjmsN7c4sfx7ojlqiA6dgIwRC43ddeg8gocv IH7kItJHLyJ37CLybLtA5x1IHT2Hwb+7jMVuyo/eDLYSafZOlfJd+P0NyCkc TRJImyFTmpGQfBxFuAMUIrtckI1S6JrPUqTOwyErwaehnGmoIG6uUMarUpQn kuFgGoUExyqhEgprrjwCLnJfB+Egk6NFdf5Lq4ZXqTShUPgwP26AYMwAyYgB UqYc0kssitBR1JLjKMozE9wv7nqncFYFGc/K5ZMxN/t58ffHkXzlCiwDdphG iZnx/EjOiGElAzQc6oD88iwxVxlRo+SLrYqR6OAxyA+dhvbQWdjpVwKHLyJ+ 9BIyxy+jeOIKyievoMK2yyifuATtq9cx1rZO8Y+Q6sFTSN0coEFx4SFmKkN0 OwLJZBJKIvBGUQZ2eQ4eDQlEX6DAXKCYX0DMQs2aR8SeQ9BJgmJCgyMBqzWA zc2tlsD+uFUMVKs8z5it42bqmGKDdcgA/W0DvDTYRq755VZnWBlNMdNQFmh5 ATj4XK0+QZ1aPmmD9wdjiI4YYRmjAH9sGZpJD1y3luG4OgLj6QH4ri3BcZnH Gd1nEJeTuA8yvniWRHkeLpJT5OhlpI9fJTldReVUJ2qnOp/D+qmrFNoMP7mM 7rfTiBcew9d9C+Ej7QgdOI6tZKolri/CMJPESl+ceskV1HUiCgMyIg6Ee93a FLx6akZqhNHcNgpt9iTM1PSWKDY277QqK19vVSqZaUmD2g3hnJ6IgRHWeTM8 NPYgse4I2UmUb6FmJlphhJ+pYDKTnDd02Mg3W1b1FcR9EVZGSgqYRl4CnqU8 oqISe805Rr38rgCNcQ3qZsJzo24IrsgpSElh6luAihKZdcAF1wUhjXQYuavL qExIKIwx9/4ybLf6IacIpaAAZjp0EZ4jlxEj4eVOdKJ86hrWTl9Hve06mtQs r59Dx8tOxFJPkBmcRvxkB8LHziJ8+BSqClWr2P95rBXvgd8bx+JEEkIeAeWV JLTkwQaKciZidyY9NRNJzEwRz5KE1BBhphE0eyX3RRjVDojm9WQlNjh4bvj5 PsSW/EgLmFpiAHmJn5qXzt1ICeyILJjhZ4zwloakV2drTfhVytpmTnizUZiJ 93kJecbk3LRNxbiJsW+T4G5KkCP05R6uwjYfgmclROEsjiRlestyGIYpK7ST FlgIHBeI0KzdsiP8Wh+2hAZsuGKtrPNlSPeR11J+VB7sgPnwJXiPXkGMBJkn QVZIkOttXWi2d2GD2vG/UhNMeoLyyDxyp68gfuoiwsfPIXy0DWsqdQu1fAZB dwNThNTmKV0sUboQSri5EzGlCwEJc0EdQzS73qrT/p+t+MFML0tmNUTBXLDx gvAT+YsLEshIUygqUqioU6jSX1c1Cayqoygqg0hLvYgsM4VtA/2uoxXu/ufd cCcZ4SqgqpkU++mTNJBQb7PnNct98A75UTyzAnNPCWUjkR3HBsHnTRRs60gR sY+oCQBK3AguSrj7RYjBlJ9gSfcEUfVDVGcyKJ9eQvbKEirjYvZ3ZPuOQ77/ LFQHL8BMpuk91onYyWvIkzQrbd2ot3ejeaYbPX+vgNv8BGsjfKy2X0Ou7QoS py8hfPI8SbUda2rN51vFhNXKPXhCDfiiDfjjxE4TDRg56f2np6EVF9u/RFzC DgMvDNdCGhFhHhl5ESV1GVViw+uE/Rs0uAYF0DVTDquGNHKaOBLE7sIkzMA4 kf3yOifMndwunwhAROhWPJLZze1xxR2i2u9BQdLzHdOjuezFxk6JhJBj0bmB tJUQvy5DxMuPkEjZsrtfRWj1CVz5J9CTPVlZG61jrceO0Kt98Lz+DlQ/aoPp yBV4jjPSu0721oUKSW79zA1c/JsZmCXvoSwz0c9dWD1D0mu/StK7jPApcvCT Zxjp7czt/R/sx8esNvgyYt4QZFM69mvzfBrelRLxjxrymnVUjQ04L0mxQYRg i7DcpmMddUrUVeIaBRNRKW2SeIofYb4BVbLfL7T4DJOaR87w0XdKjdHzTvCu hyDpTUE3lId1jEDBRJkyThliwuobRN22Au+hSQSk5n1AyGiLuFSNKBrlRW0Q QZl6D/756s+UEhg7rE2nUTq5CP9PuhH4/klIXjmKl3/rf8XZ//AnLIgrRIpo niXpnf1QWvE2srXTjLTaUVVzzyBFO2UauGXcLIPv5xJg0puAfJIrOFsWCvCL 15BQbaBguIPFC0a4O3Woih2447mLbSIQTfcmakQUiyTItJESOYWDsNAO36yQ CyE7NqdWejA/o8fA4amWzX0Ry91hKPsoGI8Qs5nMwjachm10CyNvutDsE2Az 8BCNwANi4GR/bpKkfY1INEnSEIBfodyZa90Zyi66xG8gKdWwP88NGLGyVIDN 8AGKZJb7/vdXcP4PvgPxd74Nb+dREuINat1YI9MrkzCzO8JsI/R4qg3bGYKy Ci2m9p/GAjXh/jYCo9SIfIjePA1L9wjqiYz7ow78fEueKW+aCBqHw6zLq/DL mkho76JofoA1+yOIhWSAviLu2su4439ILncfax4iZyTTjHWV3C2FsMyDwLK0 RQB+ZXe8ejV3X/m8gf2cOqbEbIeTPVcPxGChsO2hYCm7niXd3IGkJ45MtwZF QQh1/x167jbB+E2k7DVEbFkCYj4kXI5PfGzd4De4x+0/DzVlF+uxqxjtseJv vn4EB1/pwrV93eg/cBnTb/YT1evHxL/0wby/B+4jnYi2X0So7Rx0b+7DHOHD lYOU8qnpiQObKWPZ9p+BnZqNuLDpLbpOXNhzfdj1/22zO1OBqukMLIIa2QUx Wv19tha75nyMiPIxZJYn2LL5cSf4HjaCdJ0pdxGzy5LRRolJh9V+BMSKpwTM pH/BPDf1ZORxpe+ZgwrMn+MYi2owAstEHMtXIvCKSamSHBauWWAcdiI6J0ec cuWqp4G8a51YI9EDgmgBsxPbzcYnnyFgbhi/TLfRQfrWORLOBcwf7kLPoV4c /lE3Tv+kD/M/uIzZs71QHO2H7K1+SN7oh+C1Xiz+8DaE/9IF0Q9ew/yP90HM Avd2WIkcug+ehf8gwwTfoWeECKa+gMDBdnjIjh1vn0a4e8j5cwQGrrPyIS+U M9nWL72IGjMFRPkh6XqMYOoxHngoZ4QY+d5nF7tkyF+jJpKv3k+GL3/2uHcT 3S9RkvPAyeeWugjaDeCd4eSuHAhh4YoLqrES/KoCO+8ZWYlBNGtBeDGEAAHT lCHHVl8izjz89jAhkPCn2Cf8D089b2/5Utk9SQZ7HT2Hb7PXeEf7cO2l6xD8 yVnoT/fA2LcE84k+6EgH6gO9pJfbWPpRF0b/8h0I3jhL18loSa4+Av7hwx3E NBlW2UFsk2nnkSQeHiUmGiRD9+0/idiNwZ0lDR8JFM+3AqJxpcKlAQNXjqi4 7qBOwW8jcA9C7XuUiu5gXRtGjby3RAbM8MyolRKy0YuE0/7JZ6hw10VeIM5j 3k00/sUk99AvYPGyF7OXHRi/QAhVkIGLF4FvkdpSmBoz0+yHe94F97IbYSKw HmcCNgtpemOzhQCevUptZ2JgYUaBwbOjGDzSy15ZOToM+dFRTPxRJ0L7OzF/ 3QrPqAjmYzdhPDUI9fE+LLxyHsKf3sDyP3dRLOiAj8QbJSKfIg6aO3YJheOX UGQbEfrjF5A5dh6xo+8gTOQ/sO8EtpPp1pKNP/gw3X6JInGCLXU65FX2StrS QImATdW7SRFxi5LNFpYtj7C9mkXp3ARiiixSxOEjxLMCJgdK6SQ+9bHe+xUo 5jy7Eg4KipSFypwxn7Wg7x/FOPdjM5YmElBPB2GcCRAbC8DGZ5qPsi2zEtMG 7ZyBGEoQBkuY+Nw2Pvk0KNypnIhasYn7gjl+FcqTs+j5oz7E3+6E5owQoiE/ IjNyJPZfhPniNDQn+qEgLSjf6oHsn68R/byE5LHLJEFi9AxbPXkVNWL1VYbV U8ufuIjkcTLuo0SyKKhkbg1gr1j3rClljoSlDBmFRdU8hWJxAT41N/os5Zci hcGKl0CYbx0zl3SITJiQGSb3nQzBdkNNRqeFYVH0C8+wJ+Ho0vMtC3YvlwnC ryGtqqOka+5UjGZuFjHbEyHaHIRsNAjlVADqWT+xDy/kfDckFL+XZ41YJmBC RO+zH4kLzCGeVVIe5eomNh43lWq+ZYKhU4mrXx9B7s1rMF9aAf/oAuzU3+Lx frhvCGB8ZxKatjFojw5C/9YNmIjhZ4lylU52osry12uon+7EOrUq0aziqctI n7yICCPWI2coIjPGmoKN68kffug4v8ReEVzzQ0oWo11OwS7jCr4xUxEpWwlZ Z5nSSxkBeQR+shyXiGSpy7E0TU4OG+73I/6TMWwKrdh0xT7xEfiwM3T5lBvK 6Th77hESwpJvIKPdJg51FxOnLBCPPcBqrAD7PGHc0Qwm+8KYGwmDNxnE/LQf 0zMejEzaoeSbkdaZP/cU0yCpM1ow8GItK/11JER5ZGVFiNttiP1kBNoOMXTX EnBfV8B7aRm6o0NkqSTSMzPQtU/DdGyAMAGxWOJdq6eusyWBRqsk0Gi7hlob ibvtKjLEt6JsSYDiwJFTqCqVzxArt/xqLc/VxsXTSWhXuNqwV5tG0JBB1JxF zErNlkHETtccKbYWa7aGobKE4E4/Qd/SE9iF7yI7nEH6IA+Rc3NID4l2vZQy +V7rkk+QMc6kORETbY2qtpEhkKIbTeHWsVW4rRsU2njY9j6m9i6aRB2C2jpU wiKkgjQSzIJZFSFrmQP+JSE+ImMn1HMRmHmZXRmnKcAFST+Tb0jgeIWH6BU5 MuQ4CcbluhUwn5qG7sQklEfGqY3C1D4B69EehI5eQYXYGVMpaLQqBUzFYI04 bZnknCVeGyPzDZ84R3JmKgWqHRn/0TNct5a/u7MOU7GUhEGShFWZhJOYv8tA zZyE3Ur4n5rKHENz8+4LLZZsTj6ByvGE/uQ9pCZLRBmlT03myQY/DH+m5So8 sg1ENHeRMT7E8ZcMSKaeQDpGdGKfFNsiH7b9BP38j7C2d7bfXEJYlyTJuuEX iVmh4neR9HElQfmMn+SagoVfglfAzdfabjthvWaA6owGsh+IURu3obBIsPq2 EclbetiIJxrb+NBQJFYdHYdqfy9BiF54TlxGtY04G7HexplubJxh6gYk1zPX UW5n5Eq041SrXnCCqReouVD4SZRXN+Dz5hGkFnJTI4BTLTRbMzT/ZU+ZZpqy 2yI/SZyC/F+ehFJNn0RqRboEjJ48ao07L+xNIarYE6xYn+xJIV9FuUsGy4F+ LJ+VE9TLwbhcIwa5iTDJ9p0fGuFk5mdjj9DwvIvFN9XYWvER4X1EhJdgn+8B N6nkaLC5IGwk2WrdBI+FO7K1SUzkDDaKOWFoZnOwLlXgEzdg6PHA2GmGq9sG +zUbpl9Woz6oRL7ficKAA7kBGxznhDCfXaGYsAD1yWmojwxBt78LVrLJVZLt WvsN1M/cYOsxTZbSMbK9xtksU4s5xfHjmlr9yZbUqtUNTE3qsDBlgHjCAPkY qXbYAGU/nfcY4OD70chvyDhZ/2nLNsuVe/CGG/DHqCUa8MTXW/XMZ3FRLuDG sk+wLHmC0MIW8tfdCPywD97zYnzzN/83XP2934fwggWl6iNUXfdQ99zH0Bt6 1G7OEQW+T7K9h5rvLsl2C1mSLTM5GjYniAa7UM2kd2QrGRSwc4GKyRg0c0V2 EYx9vgj1ZTMs1x3w3vRAc6WI/u/rUO9cQonQQXnYh8KQB44OKSznxDCcXaZ0 Ng81xV/d0ZtkuxcotnajSrJdI9kyFZv62S7USLYlossZstsoW3s4j9BJosvp NJdmXoRO7cUiYRkJNe2sAebpDwv0LpKzY8QAywBhnZsG+GY8Uk5sf/txHOEj ictGiG1pfhWT4idof20Cr379Ldz89kHwX30DkvP9MMxEUSNb1IwlkLq8hIZ/ m0V4Nfq7kruJjGMdMXuRnfQMGq0opeKcHH8H4j6S44ibBYvsWhoBBeIbbmiu 2mDtckN9KQQf7xGUt/IoXJRjdSSI1dEASqM+RG4aYe2QQH9OAPUZHtSnx6E7 eQu6w23IkxxL5P9M5at6hmldqJAci+T/abLRaBvFVeLIvpOnwAnx8zBq3BDO 66HgGWGct8AxZ4NvjllI6ESER0yTkE2EWTBG0N47aYRrQI8wz8UVOPFSy2D3 Cm7HOJ9rAbi1fBPzl424fVGNYz8dw/EfduPWvh5MEvnkHb6FpQ4lFs4qMUDc V/DWAupKG8HlOlbd6yi4akgxc36OLIK2IFw6/VM1nxSxBfYNjrFkS6W/BvVV K9RXbFD2NJCWNSE860CgXYv6pAKVMR/KY17kR92wtKSoOsunNgFt2y2oj55C 8JWjyFF2KlBWKlIrtTPn19i7J9ovI9zeAX/b2ec/HOMXYaI+i+d1kPOsUIxb yb0tWLmkhuyKFupOLaEPLWy9zJJgG1ICH7tuK0jc0j+sRdmWFP/80lSrvLjV IUD/WSEmLohxZd8QJv+U6PyB85Bem4f5wgjZjxyKDjnGfjQP/Xk5wuIE8s5V Yq8lxJhJQsIaHqsH+Uz2s3vKLk9Btl4HmWicXefDHMIOPVRXiVt0JBCS3UF8 Ogxblx2a40ZsTKixOu7G6piLBOuAr1sD3TsrUJzjQX5ujFLZDSjeOATPK0cQ J2iVarv+HNnjNRppkjI+cwTbL8JDlhkdGWsFNW4ibb2yBumsAivk0jM39OBd 1kPSaYK2ywpzD0Xs23a42UbgtMcKWzfJmCJUZIVZ0sfIV9aS7V//KzyytRS2 VqmzL9itzOnZitfCFSkWzksgviTF4H86g8Cx25i7SCxiVANv5zCsVxYw8za5 4JEJSE6IKc2EEHFmWisOwggGoi8+o0DAHLIbVrLbKBSzBfbnlXNqzLWZoRuv I7hASa3fhuSQHeNHRKgTbSuN21Ei28mPWui6GYZLAsjOz1EgGob07DWIf/AG lH/2HfiJFIROdVImos/TVxFou0xyvcQ+w3D6HTQz2d3CIXMkA3GsjKoweEmJ KYriwk4HITo5IbURhChsBocCCI8EEB0leY544SNfY2Ru67fDO21HeE5HhCsG ETeyv3m66MCt6foijCNmiM6qd+FU4tBV2Hv1MPUboZ20ITK6AHn7LBZ/0onl n96G9NQynAwetsfhD6Y+/6HH/zYXmnnEwnoD7NthzDF1UoKZC8zy8izslFT9 vUZEB00QdysRm9QjN2pGbsSENCXe+JAO/iE1dN2LJPU+8E9fBO8b34P4pVdh IZZqO3EF9lP0SVTKTDlde/oC+4x6Jrs7C8Ycy/0LGLwgxMglA/hXKAJ1h7Dc mcHyYBOVSTcyQ06kCJCnZ1L0mUBkKgLvmB9Wwhr6a2RAU3riQJYdyf1Dy72N SqJDc5yoDDyu+hrgc2zRcsuF21+/yZ67yDg8IzaYmBn3WTeFZBWcZ29C9lob 5Id7IO6SwuHPcFNCX/sZ+1vPb9KveNkVSMxx66AFKsro2j4zTN1qOG9pEegn Ej2oYyWWGNaR3WkRG1YjNKKEe0QG69AKlDdHMfrDA+j7k+9g9vv7IT56GbLj lyEnNCohFL9MbCmmMezF1XuPofZxDJ9XUCCzY6kzBHUP4enBAlT9axR5HqC5 EERpMoz8YgXZxRLi/BwCswl2RaeZumodUCK4LGnJ8O9bvswEDfGMlK1GaXnc Ehz/QhzRFW5aLy/Pgv/DBfbcQYbtnvDBM+mB9MIKFm5RUJnQQN9+G7pj58gE JpEelxMTjr3Yyt7M6jPmUNwaweTbp9lzZgWaolvOrkJgjrErcYjIh4UXxRT/ ZTDfUJBMFfD1KhHoUyA4QG1QTpYog2tYDPOwENoBPnRdA5ShCUWeaofqSg98 ShP8KmpqE1bTuV097hRz9wqUObeoLOz56Ds6TF3wQdCVhKavSMOsITTdgHX6 DiyS93FXHEVlPoUCIY/USgXhhTxcBGgso06Y++VwTSzgKan+GhL+OGQzOrYC pZ+PwrnAiSEp4TJEWbMKfQf3+JKygJQ4S9+lESdKNnFiERLCSNrrs1DeEMLQ pYXzkgyl/hAyhxeQ7ZSisaBDuE+4U2Fk1rKpbw+Df/A0xAfadhK+YV879G+3 Q/NWG3YK89PdHowfX8T8mWUSuADKqyJ6ggiWm2LYb4nh6BPBPkA/DwmhH6Lv B5bJ/ccQa83C+E+d5mpgz2M3dO1K9IVWDJu+EIagOwfdQBXOiQZllw0Ep2ow 3KBcqn+CB8ooyrwU0qJ1hFfKcPOJ1017YRlTw3B7+Clh/juIx4XE/gijzIZg mk/DvcQJMa3glj1XDQ3SP+f+m7YGtToaNmLXoixUt8Iwz7lgJfOOsO8XWElv lH5KTyB3Eyml3oRU7yJPqbt41YLIayPYVgZQGZei6oxhjSTLP3gSwkOnoTnU BsuhdjgPnoH34Jnn4DtwhqKQ90A7zr4kgpJfQ9/bEvQQLBs+toTp9mVCACuk SwEU1wmA3hRCc1sIVZ8Q0n4BhL2U9a9PIEkwKdR+gYFJKGt1n2qZ0Eej0C7Y mNZi+DCPPZ++EMXKjQK0QyTn6TpC/CYcQznEbgbhF9+hBEuy1oaRlqwhLKiQ 5DLEnwOwzGhhHZvGdqUqfDocyMaUbAWKOcz8AjwCrjSbUW+xn2uWO1Be5xbE bmlT2HZto+ncZGdcM5o15JklV/o8oqThsMiN0CKzPr72fAusadJPx7SEeGu3 SGL+px54ftoB/bcOwnfoHMLU4oeZuv15yF9+Eyf/8BCEYw+REmmh/ekF3Pre bVx9awk9R5cwTLKeIlnPXxGAT7Lmdwswe4Nk3DkL1zs9iLVfYWGTu/08zBQu fmHXgve+GC+fsoB/tTV71xHF0o081MOrsE/XKK+swzqcQfiWDzlZA0H5FhLB J7jnKdFAS3AJSLTLFGl5lBDmV1ANhdGS7d+1fCPmCkA2qmPLT+qZ1I6XRpVb yOjuoWx6sLvozr9fiHsSJ7Y9DxEkXhUTbKNkb6BAZs0snoiyb0X46Mk6VMKR T3wEC0dqTzBFeVs1qsWOn5aI0yffmoL/tZvYWcQ79pcH4B0aQuIIMyXVRo89 ieXvH0T/2wMYYV5hPTmMwbYZCM6OQvDOKAxtPQhQrvcTP3JTQLC2XYC+hZS4 BVO/+pTdflhwc2LlFmdVU++EwO/KQEGpyzK1Cg+/CuNwAgH6PiVdIxZSg09B bCTxAbZ9OTjEhG2EHuj4hM2lZqzF4k8L9pcRd4YhHzISsaGsOJOFeakCr7SJ qPoOMoYHKFseYd3xmEIN6XC/HPdlfrr1Y9iGGqjY76Pi3kaBmHzKsoqonnSs pkAhM6ISi7ao34dQOK5QQXbo5POtnDJ2g5vEkS9x2PSPf/dbeOfPXmfPFQd+ BPnBC1h59TysPzwC375jGPvDvwVvH107eAmKI1cobV6BiVCU+SQ1QlIGQlFq QlGO4cmnJ+yZZ0sH2JJmqzdfgKgvBe14HrY57mVqdw/RT3EZUXGJPgtwKCvI ZD5Aw5eATuiAVWxFmMjXWjK5I8KXPjK89VINsgHjjoGYn6rl3UfJyrwI8S6a biLc+5W4RyHVPrKKopZZ8U2S9NxFwdlEilmaYswirAshrDJiNb4jyd/cfZRk /1H2XEN+bjvMAUdm+oM5mKkP5vju/3MK+37Mobi+Y9cwdXMFi50zWD4zAN7b N2H6qzfg/68vISA3YfLABfCOXMLy0UtYOX4JSycuQjc0hbVMjnt9irzcLrST pXggH09BTX41czaEiXNh9v6SwQQBbK74bL5hhGc5Da+Q0g0ZoE0ag0adRyzz HgxnOhH4079CWGtDLZV4WpJP27+Mef15KMSW7pjDRQw7rNlCyngHRdtd1Jxc eWlpvwrFSQeCc1tYd9/Buu8eiXJ7V5QRM4nSGERQY8DWeq0lSo4xrCdTkO0/ wZ5rD3XAcfjijs2UT15D5EQXxo707r64P/bHF2F9o52MsxdLh8ax2MbDyJtD WDgxD9U/XkbGlGtBpa8g5UxD3u+CfDTJSssiaGD2AgeC525EIByMYK6Lm4A3 LERhWolAL4pAJY5ALAqjq2MB0v/xz/HB17+B9OgogcHYjrT+kv34LFYrTQQC eUyP67E4ZoBghNqAAUu3uDBcyzch6tJQN/zYmZYNahpIGDeQt26i4tzGGrnv yFsCJCixli2Uj/x0zcesGt8kJl9H0r6KiI3c2uyHT9OqNnLCS8go3e0/xZ7r yFWdRy4/13Iu4/EuTB/j5kglJ/rZ2Trm8Lx+CZYj/TAf7oPx8G1IftoF4WtX IT6nh+XsCgLz3hZ4fwH1YgMyckr5cBzKuRJ368+TpWXQ1xHE6M0weq9wk+qC eYJMi2EsLlEsIxS4OOjBN/+Ajxu//zJSf/kPCBgMLVj0F+zHb0OldIM3Y4Bk 1gAtfZqmDLBOGGBnltsOc+LT3DDAMOJsBeEktAtcpPCpaojp15Gx1FGkyFdx NQlm5ZHQOFH11MkAm/TZQMm1zi4lTzhK7JKJoMWN1VyWM8AdM0vIVJDvOw35 gXMtM/tFhE90QnOUqwMtnhxgP/UnR2E9Oc6ex15ug+f0BPHtcbjaRuA8PUhs 8hbsYyborurgOjeHMN/91RaJZMoY8v4wFNN56Je4d5QCqjUaQx12SRl91zgr 1EsJdMpy8OtL0EzG8M0/i6N94SEc7hRCNj9iXm9ryumT8PrzCPryiHgJrrjz 7FKFWnHjFiflP2+RQWa1rmBOT/ZvgGXeCPeciViVGSH6jMxTmzNyZjHBvVHN HLKhGBFEDvG75SWEtKtImCrsi50FRw2q3jSbySueGlbdNZJylSs5MevSncTa 7BG4TTZsNhufallSXEqG+nYbu9pHe+jSTlJfODEA8alx6E5N72KHue/Nwve9 mwh38BHq4CHYMYdAxxSC1/nsG/dL50ywd+vgbR9B2d56/fzLqBc2IbnhZ6uD Kl6Oci5nKkENJ25+vwOR60vsec5ewYFv9eOvXiqgQ/IAIVcWAUccbouLOt1s 2f9noFL5MDdtwAo12aQBKvJwzRA1EpSyxwAXV9C/yYn8v7VEblTZIZrXQcOz wMZzwMd3I7rgJe7lQ0bAUdQcYcuMgFN6qKWCqcNGdnKWOaziDLzKHEK6AuKm IoQ3PfBLS8g6yiTqMhk1M2FbRJKUHqHe+5wJuKx+FHKFT7dQhewtMun95yg/ XYTt6BUsHb6C+eO3sXxiAoqTPErXS4QnBQi+I8I8MWTt30+ieG4I8U4hYp0r iHYuIsUUVORhJMV+LHe54OlWw90x2RLQp2Ce4aLpzmEhHuimbvu1hVa4+xT2 f2sIf/39dVzV3EeAIrLHmWQrZlub2+CU9zmsVZvgz2qxTFYqmzNARzHBMm0k dm4kekpWO8atJWe28zAz23lMuXCDk/qftXQV9UcplKig5Nlh5fnhXwgjthxD RhxHQZZAWZlARRXnevVlJIUudhODnUMyTeR5KUmEOQWXMk35IARJfxxBfQpx SxaJ1hRulHkZxZmCm0Zhs0fhD8RbK8V/haxyhIz8HahI4gpq04eugXeMoOcJ HlQnhbC0SeE9p0DkogqJq2rMvrSCMll4+oYSqZtyJG6IURCFUNSkkabuRiXU hx4yoOsiVKy+nbVTxdLGbob+zIdU9ss/U3Ex8rIQECoQz1D+o7GZCAnY5Skc /MfjmPn7N/H2S7P42x9v4Yb5PjslbWuV4Tz+REszX0Ctso6VWTVEPDJ5nokI rBXOOerTLPOuvRsRHhk3n5k+sLNFbi9py9OvQ9GSau0og/9rN9hyNbXfZTu3 MwLRBLFj+kPdfBBOPtGClSzxvTxKyiKq2hLW9UU0DAXUDRTeCNyWtQlklRHE xF6EeUZMH5BicYBgDClQuZiEUZTE9FUfjIIEvLokfAZq5iS81iRclAKszMsN 1gTcgfRnW5monshC+uZZwhQdWKYsOn3oNuaPEm04tgLVKTmsZzXwXtQjctWI VJcJvX9D5JqiT+a2AeleLbITNlTNVZQMZWS1ecSVNAzyGNVtE9xXJ6AeFTy1 KYmg14DFbj3i1nyLdjxreeTn2Wva+Sz4pMNlGp5sIYkT/3IJP/63f4rv/8dO /N2Be+i3NWCyUGak4SnNcTQ3733pGbfcmbuwqlsvlJK6jDwPXMxr9bwwootR JFeiSAujyIioCcnpVwLsbjahGQv8gypsl+rczkKtlxo+pr7+O7uX11erkE6q oJj1wjjHvOlRQExSQY4yX0W3jrqpjg3K4JvWNWzYaqgzW01QsMuRmhPM5gEU 7UOzCqRcecz2xcGfSuL2BRumemJQS2IwqEjdpGIjqVhvorBvYt6+iCORq3Fr GigYW7qY173OY/KtDkwdIEp4mI/lY2IoT6thPk+2esWC8HU7EjftkB62IHdy GZl+K9IDZlTVJazZmgTKCEUYKxSA49CMWSC9IcLKJTEey+zwDvBgotxpYeYf mb15KDVomW2OOvXMNkfPWt7FienF3WvV0j0oxUUMXNDg7//d93HkG2+i7ccS SK5fIqZ5Actk8fFc48utWLn3VkyrV9chm1Vy1sILwT4fp+CXQoxxJHEeeVmB 1F9U5AkzFBVZZCkCJMQk3SU/wjNGpKXWp9T6iY+qdY+yfxMJb5SQmJmQTBgm SrPyHqK+PSFEu6zIzqbQJFqw5biDO65tbLm20GhtlFEwl5FkFvvLAggv61EJ cdsU+tx1HP+xF2NTCfAFSSwRdlxWEH4k3eo9xAOz9Rb7+VWYbkxi4CcXMPr2 GOlyEQtHZZCf0cFwwQxXJ9GPbjditzxYOWaH+6AW1X4x1nV1NJ33sUZ9Kts3 ENeUoGZ2uRsyQdUng7iTj8XFJ3jIU7J7qTyHAOWdT8BP6d4zTmh0iNtAyjvp wrNWnD7fCsM712z9Ckz+XS/FhhhunBDi1X86h7FzFyHpPoi00fvVZ9xiZws1 F7/AVhNTEoJTijWU1GsITvgQOjeJVV0FBU2Z3dIgQmYYXiK/nJW3tvraE2Kf a8XtnQfsfDJ7WsjHHFCRnM0LJeLiMSIqRXJ+7pWXSl8IhQ4t7gjSre59mqvW GAuIqJhtAiyoxeLsva7s0yLm+ADvffBBi2t9DaMHbmHwjQmM7FvB3DEFxGfJ Dy5aYb1GqOGmF6FeHyIDfojetOEO8awtz2Ni4cS63feRMazDNBeCbspL/mWF blgFQx8f4rE49LInuCe2ILHoQnLJSZ92xPhWGryJcg1BsD4d8ubUR8scrbaz XGjlwAxs+6WoyRuIZ8hnHnK/MrFAMM1gxsJiCk+C0a/uKaY9Vf+Z5t7xNcwV 4V5aQ1TcQEa5SYl6C96ZNG4e8LGbj9RMGyga6khrK4gqifNSAmc3lgiFW3ul fVzo3LP4nJMotwWHC0pi9GZiDL7WSv+C+SH7Wxn7e9CrP0De/gG2rPfZa/cW vaj2Um4SuZAeE8E/RyNOJDB3nYeZSxu4e+9RC7l9uNme5LYEK9eNGD+pYq8t kN5kl2zQXXfC2uOGq9dDyYArWDd7l7HJrid7iDXPA+ws+dWRbxiIAJuGlhBf ipB95QkBPsaDZSkKkjDyzJ5ZIj8lFMILfBuCzAZtfUpsFustSPDpp+RhJR9i x0g+VAs+Qrb+BFuPn2DnVYJs5QkiNP4nBnkLpzwtT/mYYpcF8yrwCJqIyu8i q3lAKfohRk6VsSwh07M+RI1EV7RskWuuI6otcnvWyGxYi8d/fo1xcSHhII31 MwtmUjAyFTx5c8ezt3wPsR14SGj9XfZKMfwA7tC7WI1tY9tXxH2NA6bX26H6 2u+j2TGCze21lqI+nE1OOTN0e271A3NIBqLQjRNom2U2tqli1XYPNSdnCGUC lE3vfWr3kCL+4+RzMN04G4FhxgszhTjT6BJh4wxhYwIYfTW20PhwiiKNKkXY K46sLIIEs7vaohOhKS2SIuvehdgvfNSn2Ms765a6Bx+RhdzFI7ej9d7ns7f8 kA+pdzW1sAaPeIv85j6BqEcQXMuip/cxEjSmdfsj1OwPUaLkkjGTNvWr3FI7 QjNMMfD6s4Hmh2t81gp1yG4xW3RSVlkswyXjpl6y5k32c929jabvDjb8d7Dp 5xZzVlrll4StBJslA6cziOH2QWh//7t4/y/+Fvc99l/eg2fj1hQ9YmchBcc9 vfI6WVUTGSYuWLdQcWzTkDli3VQ5UPduwcMPwrGjn/koNR/MxAjtsxrKAqso qysQvD6Ba21Fii/bWL8+SNmggLwmi6QigYg4SLHHiuCk9LmWpK2tHJS+FcUa +U+O858XW8qZUVBIJcr+ZK3MKWcvf5D1qSjucHPQhsV1uCVbFP/vEdMr4szR BvS291lVrDkeoOa4h6L9DtKWDUSZbWdNKYT1DtTSiR2V/FkLUth4EXZ7Hw0/ zxY8gprq7ruCFVeDjKWJuo9pDc6CXevEb6uUZvIIWUNI+v3snQwjK9gMRrGz lZDPT99TGxvSY2rAALXAv1MI2cW8u6HumpXdseXDamYVIXUNCUo/OYKhzATF qpN7flxlRZWgiYsX2HmdxMgnFDuvx85R1Tcx8a2b2Jg0YWjqMbYphDS0RDYN q5QA8uwrt2GhB6qrc5j8Tjds+ySsryS4/PPFljZ6bzfx2OjFe9k4VzFnn7fH 0zi92Cn3yfsChL1y0JGrOMVNhFVb6DxZwpDkCTKOTaySLqpkYhXHFoo25gXL OiLM/jtEd0JGK7bqax/VC7N7iuRWCIqZFEyCLLyKAnaSZt5eJT1QZHFzjTmY 2kOS2crVwTAqN7Y2NjhV/EdUKg0oVT7MTxPDoSafInVQhtYy+2kOc0UTBSFj O5Hzen5jVy1xc5FYLjMybsbexqz1VxLy062ymxlnrFW2K8xRIpOIKGKwzVEQ m+em8XQLQWpcgs5ptrGqv8ue8783iDsLTmzY72JF8B4ct5bw5tf+F8z+zXch ODJLunvaQ7YfP2nFqucRZNayklSfRLI/s08Cc+zsVcIc9WITspsUmEfT0PBW YRPWcP2AAW03H8NOGslbmuQlTda8SvY6jWUNSeYtEAelG3sE6WCoheL+WysX GmeTEA0niG8nYRGn4FVxISNhziNtK1Du31HSC4hRWgi0dj0JBCJcZ/8n1KpN dkvR5TkSOjUDNdsMwSVmS1GCtl6CtjtFFdbVu5nvPE8NUjwYh3yGyzZ2aRY+ VY7cm5snSpLS0tZWMVYagmHWCc08t4eefMEHGY976TOnu0+Ujst68lfHkZ7R w0pgq/P0Il7/5hlc+HYHbr/8DobeHIJlKQe7MYW1ROorLZknSk/gNr+PJ3ZL a0Ogj9cD6yW8KGSUGBkX73uLjxMHIphbZmbFqtTlKjIWasQyM+QVKZI/s+FQ 0JmG3x7A9uZmSw9/3mJaBgpWK6OEm/lcWcFBvMSnTSJIfDNsTlFgStJfJrnl /LYEfMF0y1qYilYDyxTCJTzyAp4RlnkT3HMWBOasCM/bEONZESccG+OZ2Tos 85r6hxO6O2+o6FaSsEqTcCtThKjS3OWvwCbxkGY+LF4tz7thE3F1zhwhnFXL I/Z84O1xzF4XYPGmjjDqGM589xqGXr8B/r4urBwfw1KbCPxjizAMGFum/2lU qhvsjMYUWQiPXLfrehpF9wPkuvsQs+cplW5wRYs9dOPpzeB3ztdzm5h4Q4GR 12TgnbNA8MYUnBdX4Ffn2bpmxEhB0pxjXxYNOtLwOmmgTgqaoUSrcsRNFXwW ISKQ8yNJCOZbe/HISOBqcg49fba2XlCYEkjm17BTcd7bo4/kOGbTWcGMnNWN hvRg5Tnh5XkQ5vuQYPZkWAkgK/QjJ2KaF1mBG6llO7u7RYDBrgNaFCypXa6l XyxgkbonIr9VMS8miKlrcrIX6qKTuuikLhrVQSwQb56d4iKVZrEIr2wTO7vA 3Ty7hPFj4xDdkkF5WwthhwQXfzQM/n/+KUxHL0B9cQGayyIozi9Cc0UC/VV2 V43Pt2oJjL9r1H7wZw0QkZ8ryJyY7WKZHZg7+zaxTfnVTbRK1UU+P+N7dtWJ Ob5IPhGDcN8oAoeFKAiL4F2LYplw0+QlDfRCskcSvpPYuZsAmJtG5rLtVA7J G0LZHZLscudRLnOVykucOr/ZStrMfjgqXQnzy0ksMHNF5FcGdwnRbOOZ9bC9 S/EslJilc1qKjQ6YKZN4+GFEFmNICgiyihMoUu/KdL9VZYJajM4jyMuYvY6Z f9nAjhAJx9Mvb/H2r5HhrWOaYi2fdCdc2rN/kYYa6U5hTGJw0ITRQW4Win2D Qdog6MllsJkeBQbOL2O5bRKaXj3Mt8llXhFh9oYF4j8+iNTFfjhuq2EjvZq7 l2DtFcNF2dB2g9nXo/Fiy4TWak0szunJwg3sclQ9xWvrDLMFNLPhrZEtqy4u beJdEnakfxGWXvqdyxo0SWS/8DE+aG1bRP6qFfeD91BufsBSqFr+DrQrpFRS qIDSi5wUqiZT1dFwtQauhCYjT0rl15/fCQiVJoLBPKbJnJh//0JIQUE8xO0l tNKtR8KSa/0rGnj5YwskXO+k0zLKRjZoKXXbeAn4F9MksBj0bw2y9d6Kpog1 YmHrFB3W9DlUdRmUNcyGpjHEJczqJwdCk2qC5gnOJn6BenefrK4BhaGIcYqW 46I4IpkGgukGbHz/TppkQL9TUqMck8R0t2hnJlN5bgHmXjvG3lZh4koAsg45 1H9+GvkbE/CPWuAd1sE5IEFskSxnzgz/mB72G/LPtpDlOgV5wZwGYh7zz2sw xXFmTT2zXQG3pj5KgSXGd0LS5cXswhM8kurgI226hykLXlN+Ym+oZ+5o7pNi 4R96UJ+Isj38RMthKqv34A/SIPUlTNEgp8lpGGcJ00BfaEWAtdoG6/1Mxpcz uxhRpmcKk9bW7kXsvzXCrJed96OZa57fq7GPqZv8EsHuGOTTeihmfWSSCTgX cggJytAPEWQ8W0S1W4V1gs8N0xqaZqZVsW5axSppI6/LIaliCIqfCIoJvgnB zhvxdcoh0m4POzGv4eVgFZWw2KvEXLcUi9RHXoca+osSLJ3SY6gtAutEBPz9 PJhe6kB5gIfItBvBKUqgBO/S4gBiyxS854kDjaoJwSc+nN19fk+1Q8pjXnyw wcRzwUUkK8ALIrpA1GI5jIwgTBGfacwKnAyMug9wT2FEaJYi/qgWMYocn2xB 5jD9bP7xNO5Iy3h3/QPU32WewHz3eUQIAQiIIzAGoZ43wjxrhnOa7GjaigC1 IJ0Hppl/rsUIFynF1q3BZr5x7uPdZ+/6LvHIMqFqG4H1MDGRLFxLhO0l60gr mwhQcHB3raJ+S44N2xY2bZvYtG+gbmugYllDwUiIhzQSYf4JEiHzj8hIW5vy /DJxuxgkfVHSNFHYSQ8mryxgtkuNxRs2DB+SQ9quQO/BMBRjGUSm4lg8KoTj u9exOr5C5h0iz3ATTc0gR3EzIY0gvML8qy5G8iDxzzDxvQAhEeQmO5nJCGb3 LPt8BH6iwtGlFFLCNHISpjyR+X8pew/wNs/sTPR9nElmkplJMpNk0sve3b17 n73ZW5Kb7N0kO5niaR6P64ybbEmWVWzJ6qIoFrGpi1WVktg7AbCCANF7b0Tv AAGCFezq9ozHuuf/f4CibDl793+eTwBICsB/6nvOd75zMCOjJScYQobKIZom 9PxL3O3rps8wE8tluDO7lA99Y+S8JAXdCJdK8ZBu/876Izz89aNv5szsMims mK8mWTCS4FlhIeA0wfMgQJ8epjgiNuwnefDRowcRZuuDx/S8IWh8TZqbBYRt T08HbW7VJ+tyQtETg0GQgUuYOwKrvotZ/QP0V99HsnkOq2QC7zge4jZTQuOg uI2+bMayiARpTphwQ1BKNBSqcDu7gMd2grvNx0U6xoEUxsh78a9r0XlRhJ46 A9qrVLj1Ph+X9zrBb5qHtztJlJrEcLkM7l2NmOmTEoVjmFFNU6w0hylNBgll EiGGcxRlBnlyzLqDOd35fLde5lHSI2Irrr+UQ1VxUuC0dJaMOAdCl8jbLmhm MU/GnJn9U3P1AVYn7kBb146+HYWIS42Q3RDBeWoUM5cdeBB+iF999AgrHz/a VDb2RHN+Ft6r7eQdDeT8J8jW+uHiRxAYjCM6msCkiBGYJKYkzIpjUhxBRBhg qjAQ6NJgYSKWm82E7Y/t7p9u3Fb+kjTLyS65iYEJCvln4RJREK24kytx/AhL 1l9C1PIJst3TuKfL4rbrIyy77mPBcRsZCvGSJqbNCpFc6SMmajEb8m+Yjs9Y WTxm6begG8zg5skutJ6R4/pJKSreuImr78nQVJuFoTkITx9F3QMzGK7Swr+v BSHy4gu6ZSxZ1kjBl0nBF0jBSXhym4/MJks2GOa4+Plm38woI1mPglwFV9Zo 5KXZx5Aoi0npEqaVpCnntezPVkd1WDIsI2tYwixFUk7CWqUVSpS+W4+zb5Wh fksFuorEkLW54dSnc5Ha/2DuD2eUZX30FXhOqHlhWPlJ+AanYLxGStloQUY+ jxnlPJmWOcwqZzGlyJDgTJL5ChJXbeQBxHmO7slpn+QGMa/FAznJvGFoDq7x VYSUd9nT0bNs6/KP2IbIJv6vcYcfwx39DJYnHmLBeRcZ+yoS5nmE9fQRWh8C Ci3WF+efuuvztDOE/TXDuHxchLPv9uPMtgG0FRkgafTAfHMCDt4C3EOLGDxr RvhIN9boe6zZH7CdqRfIWk8TA5NkocPqFIKyILvbshiJbermweHiOLv7xuRW uLYmJgHXEyEiWUNKeWdjK2nFfBdh6TRGWq1ob5Djw9dO48J7teg4UIeBw+ch ucXNN2GKWKQNeiSM6Zw3+B9wjQu1Zb2kvv1+aPpTsA/MITC6iLLnbyB2Q4o5 Eo557RqbHpvXrWBaS0ZNNYuQlHRijBmoocadhYVTmxn3h7AOOyG75WYZpyPG OceXEVCukzm8gxm6GSbVuOy8T0bkPuTtv8TDQQ+WNelc6StTZTiPkJlpXeKD T6V+eleNJ3lmvClH1+EO9B/XYKg+isoPxOis1EF6iaL1dsI6w6uIyu5BdoWi wiIe1hy/pPUxWWuSFztTALmKpDFLyj6FoJq8qsKGxXjiS08xmwl3NOcYglD1 ppGHVxH5XaTUXM5e0sAFhivWjxFXZNF7TY2+6yoMXlWgmJzt2XdqMPZ2OcXt dbDclMHJDH2gQMLCHHplcZ3nq/8THOwmS0quXENWxTG8RBbjNgy8exAOkVCq QliSUaRveoCs8R6mDWtIaulGlcwEM2Yr0IhsOPQZDsYoipdec7L7E1qyUzZx Fj7lMmIkB1OmNczZ1rHovE3qdpstxzUPf4KHKgrSnPR7pheulalyJBkxuZGY cH1BGL8x0+mIFknROnqrZRs1e0wVyNCtMMEkeqf+JbIfq+yICel1LxLlfKw6 P8aaixjoIgaS283QN0oSNArrMwjqIghqiIGJxBO1gQlXDLJWa+4V929EcR9p 7UfkDT7e6D0WVy5C0KjG4A0NhPTYcICHS2VGXHy9AbLvHoSqmk+O1YoQj9m6 ZFo7UlzH5N+adMxoj8dlPJvSP98kuZkkerrY1KiWNw/H6Cr5lLtIqh7CNvIx 5NJPcMeWxAq52qzlIZkR+p1hhURylkQySj7IisVYJMep93Nh9HiDjc3Fq3hT MAtn4CE7G9FkSZgX2e6Gs8SNBSeZexd5Pv06/NKP8UDpQso+jyibtIzCZ7Jj ZjL5RPuaIGEvHwVN+eAq7v+Uk+iPc7uotyYg78wleceW4ZWtQ8+7gxQ/g1nF PKQ33Jg8w38GK+ROv8INtXOQehMyShAyCpmJTSbSM50VC8nYl3PhadwRpXe2 sHek6MvANMxt7YSV95DS3ceMKX8s4RsYJHA8Qhwao9D18gEBGkrskDba0Lq7 CyPfK0LoXCMSBP+Sox56dLObzswADV+PkT29y4SBv/OFpuVxBJ5wTXJl2h1J inUXYBeuIUCmJKl+iIz+I7jEH0Gj+zU+8qexYiCIZCG+mchVkQsIGmLkfugW 4+En+PZNRE2zGG8Mkt4moB9OwSGZgl85jah+lkUdU6RB0zbymQ5mkQ4YKTRQ 38dtqY54MwmvLYCoP/TlzfLtvkjBj/ljpBee7G7P8uu6g1x6rh6RYCyzm2Ud Woamaw3pvjDkrZOYpEiW0eol120sutYp+iJtti0jbl1AmJlrZwnCrzfi9spS fm9Qep2cR3MIit58FvuPSVBJFXW3MWW8QwzhMi0jjQoIbxhRf2AQdSfcEN7y w3rLAwcRtufZ00icb0eGgF5GEsUUMw1GHESM2f4ZciHYZ4KvRc5EBhzDPtsc 6ze4dD2fa5CV3/FIGe6SvNyFm3TMYPsEv0qkkTWlCBaQJjBtEsxRBAzmHOj4 IMcXplOKmEC4nBeHUZiAg8IVHznykC6NGNMJ0jzFDghNWtPw6aLo7iC0RlZx gq9EX6cMFgYp2qZ+I2e906RGoqJR6I/pkBy/DVfkU2QfPNpcFLbZuI/XW1ly MpdhZJYdExFUZcmDLsImWIKlzQ6n1PMM6dIyk0pwLGHGvkjKvICYnW7JnmQr i+M+Xw5j/AVsgz5C535yxiloB+dgJ1PuVywhql3GJJkX6U0DBituYOS6Dr0X LDh3zIfBmzFYm5jBJGG4O4No/lEtZq+KMUcCOk+OY1aZRkaRRFIaQ0REToTl EhlxqfkbuWwKc06auZT9MzCPZuGRLhMg4vbj0qQdGQvRTLYKk/tX+GQmg6TQ BI+IIn9bEEmfP8eVvTkyGnInWvJX8zkx2s+I8wZbS5HfMMEYIc8IEd+IbsE6 Jul7lm09jua3i6AkE9FeJIC/w4LRHYOIdM4iHvgUa/ceMRH/b+ZC589yI2qa geR6fmMqDasoQ/Z1BiHNHNzyOXiGZ5EecpBRmyddnaPHOaTtM2TFuAb2frJm uX21DXYwlc2Sy+7cMYY06SKTOiZLoZ5HTL+A9tMCDJ1qR+c5LSoOetB1jSKX WzHY2hKYIDzl64uj8WfXMX1ViSyhsSz58gUt2QjyGilVhkBOAkERRUpDVvJN kjw7LP0cxmSkQDc0Dfv4LHwKTmHiFGwk2f2UedhJ4Iy+j5EY1iNwvQ8+bi/l CSX5Fpug7u/V4lY113a3h9gxeF7MPh87IwaveIh93lEqBL9RhZF+I/q6tHjp 27tR8J+eBe/ZZzH22kF4asKYpBDM7VyDxZtrfvj09EL+kZl0xdozooNuJAnb eK62WjOF0ZYUfMNJdgxegnQ0TjoatROOdCThccbhsoUQ8IU2Zer++nMRI5M6 kZJN1g5NwipOE5+nEFBnULW1BNf330LJB1bcuET2oTEGPdlMW1caE+SpfPwp NLzaikzJdSwZCRkZ1wlvrWJWv4w0hVkxCpyDUm4TOTiixoI/sLnx7u9CWDOB cdbwULQzSlBcmmZ/w9xYSD+FCKH6sCWF/rohaOoFmBBpEArEzmx2K3/Cpp6Z gYYSgR66XO/P8Xo5xs5znBKeHsZIFXeCur9kEB0HBRASOPUTlPnev38DZ148 CNnhg3CcfAsBEmNPV27U3yUN1tIrjw/bbqqY+T1C3AEI2+KQktFkd7nG43DK E/CoExASMT1kgwJqH/zWONz2ONsiwGKLwRdIPrVn3uY4d6wlBkl/HJoRbv90 17Pv4sIrR1D8ngKXqoMYvhwgG0af256GuXcGTnIDwZEs5HUuJAtasExQasVy nz0sOmdaR5ri3hhBqpAyydUvig1YDEdydYkcRl1M38ZwQxDCjtzMg6/ATM7J QdG4SxPHRG6jhJlX2nfZAp/FfXYzfv5tLC0sY4zHtNs3QC+wwCngKnUjgxOk Wm4oaiUbyEpRI4KhWgjN6REoCgfgbTFh1yvnwCNliV4vhanpAiZHHYgOcoVy nnZ2OCEXl38d2uFpDBLtx4hGitx+lUkWh5Vpwj0Qg5mCazMBPgN9YbWFbsI3 +bmORJ+lOZO+GGqh9yQlaz/Uief+17fRsO0MrpwQo/vwLQxcCUHUNAlF5zQM vURvMTNc7WNILhGfj3RhmXR6haLiJdsDzFnusAafMW4hDdNQlSJiOUXEsWgu EfS4CladM/Oj/DhkQjKQUm4zQ6un58y2oCmGuv0GPApFkaP4ti9CcPmTvMwP mK7+UtIGjcAFu4DkcIA7ZZcSRREf8rLPnRR6uW5xhzdcpBFWirTN58dguziO 7mOETnZ9QDo3gllZGDNSZn4kM2+TgZRMVllFQDuey5V8FT77Erpbo+CTPghJ biWkD3ISHv5QBDc7YhB262H2TmNp7X7OMXxhbMS8lN0YQ/fWNuR/duCDG6je VY+WY10baHioKUXR6AJ8BDLS2oeYNXyE8asEsg73YtlGcZKdK/OZs91DiKmT oWA3yMx105H7VluQjUe5r/+4YoUw1Pzs/Q3LyOxVMMMu1I5phFIr7F+UP6fA I2/qCV78W5kxTrykfSooeE52uLh7gCtuZq5ZeQaBbi6F5e+YoJVrAdHiJNZY YL+igu3CMK78016sNddiURtFlkRqTp0kOBJFgh2TR/aVp4enLTenjj3Xdx/u wAp8kRUEYrQSK7h0cQA6ya/xyOpkpxEx2b2F2GTOHP0vn7uHKQfX+c16YABL Q1Ps84cPHiE6w0X8t0o7ONG94CTV4e7HI1lnZ+2ldBR3G+9DfN0H+aE+zA2S yDDjmsnUa286Ia3XYvTsGIbOCjByrgNjZ6/A1TNAKjL55znxbjpqwUdd/eyr nMnf/hTB2SA0xwSmrEDZH4CZnKZ3ZGZDgLJjXviIuMGNGYa/j1BPDP4eBu/5 4Gy2QnNuAO53D2FRJ8YaCcuyYZ6dwTetzc/fIz0esbM1/XfmF7+Zkxi/XIP+ gnKMHKuAoKwdYQ3J3rVLUB+uhPxgBUT7y7ESm/zNnKFkriSRdrLHAv2eHmT7 klgKcwUPdz/ZLDocLIjbuOoZ/ukwlDc5zZ2QEKBXriKhXaeYYx0J9RIGKoYQ GnbA3uWDtlYKTbUUKtJk+UUhJBf4kJ5rhbiyBsMvH4JkRxGcDa1/liO1qDmD 1Sbp/29S5zpf97ig6iPYPDANv2gRCfkqeyw/SIHQotCBcB9hER7Fd/wZRAQU dwvS8NLfuzo9GCpoRriyiNx7ht3qWSVsnGVq2NgZfxmSIYoiydwwWeCFQJiz ml+D/kYrRo6Xs1NtdExP52NVOHM0ggUDWdyqC3Ae4QYhGQ6Ww93QkheMaE6S mWuuLYJV/0ebilW+IOMkabDm81z6oTk4xAvE6SyimiWE5LPkBMgRd0WhvaKE rkYMPevTxuhRCHXtMFQ1/UT+Jij2lUHx4j6MP/cB9LtOIHC59U9zZO+/kcBU vf7zZH9aYcNfQNqqhKzTC3UfYbDhefglqxQf32G3ZYy8u5ieeIDbIhtigkWK /JcQGc5SMEmgdyBFeI3c15Gr0NU1YtbzEHfs97Fqv5cbJ7iMlHGO7oxwo5xw tJg55R/76tOAzzegJNKbiPTO46fgKzgN0weFKH7zKrreOY6uH/4Cnd95FW3f fgUN//AC5AfOYuSdm5hu9GPN/QCLy48w9/ARPoOpvpQjs2VsGhPSmQ1W6Xq8 MLTZiIwj0F6kiLJ6FMbaERgID2rrB2j1Qll9E6YdhbC+dgCmVz+E5mfvw76n EOHLzX+yQWYPfBVW/Hohlifz1n9Luh8Xc0ub1JC1+Yniac5CyyjM19xjW0Xk myjHRlbJmpM6jpInGspgnGCj7XQj5E39WPTdxx12MCzdu4M5wLGKlHkBUYqs g+oQ1wwglsg5US6zGZWrMJ6bZ8WqOjMK5oMTGHh5Ozqe/TkEP/gFul45Dtnz 72L8P/8L+v5xC2Q/PgjF26UY31WGmD/FpXj+8om7y0u2sNqF5tOcOmj7uEBP 3uki4eLg2jgZZNm5QSgvDEJbQ3Suo8cGAdSX+FDV98B09DwC7xTC93YBJt48 THT/ENa3PoT/SClmJUrkiS7bb8ejKNcM9fQmX/nZ6tA/h6zFD2WOwD75Gtm0 O5gx3UNinIvVxGLuxMB8vwGRsRUEmbb2I9MUcfXAerUHWrLM666PcHuCCD3x EFknMci+hpRlEVFDLjWqtiGbiD9RgycpKCEilyM/dLLjB6+gnwR49IevQfHD 19H3dz/B0H/6Hjz/1/cw8fIumOkutd99BbJvvwjLwTK461s25WY2deLhJIm5 /gjjjVxN4cA1Zgg9lx8Yqeojf8fD+EU+ZLUCSGp4EJ/ugJTIrKq4ifiOclon EdleAt/WE3BuOQLza3vh3HkYniNFGyRu2kLkjQQ2k3h3zjzHbVOQ3fRA0ZuC aYSjY0zDJbLnSeW9PVxZpM74ET5euIe0MgO/cA6GngC0Z7ugbhPCYowSPe9h jdbKxF2iKzMedw2TRNfIRi7TgvlEbFOnjD9EXE5mquAk+4oZAuU6foF9zv/h zzH2o9eh/tGbMP/oLbh+9DbG/+ElTPzzS/D8+C1M/OgN2In25mdfgXPPUbgO ncTt2CS3rfO4H082zR34aT3DCXFHPQXa17hD/L2V/eCd4WPwwgCGawbBO9eP gVMktCeuI7nrNNK7TiG1qwrxnRUI7iiFa1shLFsOwrZ9P4LHS3AnkfjjHHHP vqjDo0Di88T9EpYyXOmUvItCj6EMJz9fw7RliW2H586VnNrdD/GrJZJngmnD NRJM3OyEiidHmmi55Fp7BsuuNbKEC8zkOPsykmzGkeyCJQCf3pAvjGMuW24q FHMZj58nU/AOJ0hETeWPthA134H7x1sR+Mm2ZxD56TZCdJGfbkXwubfhe44I ++NfwL1tLwLHSGgPlWyq0s6d1Wlq5FLODRcsaGzgspc3yvhoqhpAy9lBtJ0f QseRWzD+ohTJd4swtec8Mu8z6ywm95xGaFcF3DtKYN12DOa3P0CwqAxZhWLj lPXc/BoKXh2Cr49Ap5sAeL5v7/QaKjdHkRyXx5sjUPG5PLuX8HFEy7kE/1gM tk6utN85EIUnfJ8IvADlxU5Y2gbhVQYwR2HIgoOWk3nMYpbWlH0ecfsMQnam CQGFMF4PV+Waq3YgDMFcJubE87Mvsc/HiKraH22F4yfbEXjuXcSe34Hkz97D 5AvM47uI/2wbQs+/A+9P34R/x/7c5LJSzMuUubEZf4aZOIfbZuPcoE+/k4PN qV4R2hu522h8/yqa9jWi48AtmN49D83LJXD/5BjS751E5oMazOytxvTeC0h9 cBbhPafgJgNvJW9nZgS2pJxpOP2HOcTv96fR26tny9dvnpJitLIXsnY95M16 MgV6SK5ypesrU2so54i+67Hz/ROIOx8PjfYouYxT1JCCpZdLo+l5Xoh7w9CK nDBXXYe1ZRBJ0yzSzLwgG4FkG/M4g7R9Ggn2VP8kBYWRXE+CtU1C9xuQHmbm SFVBeezcBhgf+MFbGCdBNvx4Oyae24Hw8zuRfGEn0i/uxBS7iPwv7kDkhW3w /WwLAjsPIcT0Ni8sh+fYia/koB7Tik3Z2AY+6cvo0UqIaeW7OQsIFdYef1x2 3PXKUfS9dhIDb56CbOs5whEXoXm1DBM/LUR6dwUy++ows68W0/uqMbnvPMIf nIF7Tzmsu4pgfu8gnAcoVlAp8wdbdWoPBikOG81VsHVUjkNBamTu0MPKHP5n jmLe0sPQqIfukh7u3gmUbeLEJjzCXNn03fzRDaPoMW+YS9TqgKjXBSEF97cI 2qsLazF5rhFhXQox4lmcyflb6NE6iQiTIHcm4HbEYOfaFuSDRAkZA9mRU1Ac O4+xd/aj/9nXiA1vQ/Kj7TD+ZAfcxILIC7uRenE3cwL35d34Cv27C+mX30P0 pXcRePEdBHcd5rr3F1UhUFjCxZJ/BS0B9UFyruOEYlQFVTCQklnYiTa0Dlex U236CBFfOXsf9wQKdDKs+MVJCN46Dcm28zC+dxHmd87A+bMipPZUIv1hHTK0 pj6sQXLfBYRIISber4DlfWLFnoMInqzAnErJhWTfgknjxphAz1ZIK/l6GAk7 8CrF0BaPwNPNbF+a4Os2wktrosMARyuxpE4Bw00durr04BHLBollw6Q8Q8Qu PTdz8vgmR7CpfJyzIzxmvt4gxyiNPA6dJg6ZNIT2VieaO50Y6PfDMBaHTRrH hDIOL/3ep2d6utBzK/3MzqXXjNYonJ58puiPKMQnEHqoij3dP/b2AfR9/w3i 0jvEpXdhfG4n3D/bjQhxKP3SHuLO+5h5hR5fodcv70Ts5R0IvESeYfcRbhhA ySniVGmuJuSvYCI2iYhN3PDUStjZ1noMsD+FQAEzq6UKvmOVEP3sAzS/fgW+ 8Y/hLb+I3p+Xgv9WFcTbzkH3HsVde6phe6EIifcrkfywFili0+SH1YgTq4J7 z8C1l1i1twim9w/AX1bOselPYVY7iUVaNmeoEphh5Nvg4DmhvWaC9oQSoSYJ IgNuRAcm6NGFEN8OZf04hKcGMVbcD1G1EIpuPTQd3BEdXRM9J3apLpPdq9Zi dWoVx57Os8ebnW4ft0WjME1DaZ1GeHIFDv8COxl2gIyiWMAV7eskcZiIb2Yt LaYinulaQEtGOGll/V5+PORybBLSA5Vsp5i+n21F7/fegODZrWTbdsDw051w EbvCL76PSWJV5pX3Mf0qs/Yg9eouxF7dAf/L25AsryZ2nSepJvtWcjJXR/vX MN9oJo0qg7ywgoAAM9T1NHwEsSK04oVnkTxBi2nZV0hxGYFz2YsHUFcYwwN1 FKK3joP3JhnFraeheu8cLLsvwPjCCYTfL0eEDFzsw4u0LiC87xy8H56G48Ny mD+kwOrQESxotDlx/HNEfVFIeQTxBEa2iN3AdxPP/PDygggNhKEsNCHRZcGk MILUWARhvgfqyyooG+SQ14xDeWYQipJOCuUlsOeanzO1IMxJHuawuuUGk3rX YT2ziqObwcHT84W/lQvZmBJjuXwafcStIeKWkLRsjLg1yky4dM8gkl7JnbWl OPMSge3DZzD01n70fOcN8L6/FULSJi1pk4PYE3hxD+LEnhSxJ/0qs/Yg+fNd iBB7YhTuJog9oTJiTxlpSOnJ/OC15UQS0uOlrDLlPV208AImizgAnAfIU8VE 4V3FUL90CB3PXcRo9yMsNHWhh1yR4O0KjL97GtqdZ6F8oRCePWXw7j0PP3HF v+8sPMQZ5/5KmA+UwrD/GEwFhV/f7Fk/H4P8KdR8PztY3c2PIziYRGw0BXGh A2kK/zKSKUxL0yRZZjIGZuivG6C5ooG2VgL9GQEMF/oItjEpLzuC7LKyRcDu LjKcrUxhqRq3p1dwhPvkSzkKL0ZTEB44jf7X96Hj26+h53tvY4gorCAK60gR 7D95j7DTTgTJw4RoxV7djejPdyK6dT8yFbWIVxCFK4jC5aeQbG35Uk7+bY1N kJH8K0n2jSTzbgLDkRNcx+hMcTXmSqoxz8yWKOXa2DGzkCxbTkD56jFc3yXB gnoNkr1V6HqTKL21AuIdVRh7oYB0gcDr+6dh+4DWviqY9zMz18qgOlAMyb4j uJ1K55LW/5HCnUlCpVq2o27PkXL05brqMjPdmb9gChNZWNnPVd1o+8ms89Pw DU4jKpwleQ+i632K/va1IckPwdcTJPfjIXTghqnJBX2jjT3NZiQOmC50swXK saEA4sPM8tFzD8Lk9/19xIkOHdyN0jz1uVNHf4DFWBrDB8/i1j/9Ah3f2YK2 f3kT/G+/Bcl33oH2e1spwtoG2w+2wf6DrfS4FU4KGSaPnUK6YtO0v/JKzKjV ubrgv4L0WDFFdZVQFpyBmcjuLSRzUVzD3uJcKTMoqRaLtJjJvsw1fZLe5zBh i1cKIP/FUVw6cweuZ9/ExP/xz2h96yT6tpaj5/ljkO8sgnw3ve8HFVDsq4B0 fxnGSLiHyfQsxRK/nUvQqclRCQoqIKSvwAB2NWEJ7ZGqfOgt318OYwtvk9j/ GXT9U3AI5uAfXURMvAJ+CcGMPTzICwTwnRvCRHuIfH8EjvYorK0hIr4XpkY7 zNe0sF4eRqjfiRRTlCtOYkocxySzcyIMI0RMCJIjCnaqsDARPczRnuvm9A1k ifYjxy6g7u9exrX/9zV0Eu2H/nULJN99B6rvE/2ffQc68t5GgrjOt07A+vpx BAvIzFeeh6/iDGJtHchPfVmOJ8iNnKQbPgUVeX/r8Ysb+ezp0jrMn6wnetdv FJBlywmrlhFAItq7CWRJf34M2/7o2/D/46t49MMfoHdnLa68VYLLzx1FP0UR /bvLwPugDH17y9C1rxT9VQ2Ye0xzI9FcmEu2MsPdmGSr41iO5r8JFyFr5hon Z8craYes27dhcpxDiwiMUewrvYOm/UqKc4bR/uYtBG9o4atzk9AGic4+EvoQ 7C1knlo8sDRbYGuSIthrxLRsDjPyWVozyMimkJSkEBHFEGRpb4a/W4TPEH5x YRlCngq3tpbg6rPv4fJ/ex1t//0t9JMCDH33bWhe+ZB84hE4thfBRnG/aWsB 1PR6ovIcbBWnsTaZ75n+24jn2hLKjp6GuuA8rIXV8BXnBbseC2UNyI+jZeYt TZfXblhd1+EK9Lx6ENe+ux3KcQdWdJ1wDatx+Nvv4eoegk1XB8C7PoCeRgHk RnbKT862fJl8Xwvn3zfPsieFCxbkO/v9JsJk+5hLdeg0+vY3gl88uiHyzpEV mLpmMHY+A+nledTtG4a4oA+uDicMLbMw3JqG+UoU5vNOOK57YLvlhrXTBXuH ij3nM6dawbxqGfPqJcyoskgpZhGVpRFk2u0wG3+DSsz7/Ic2U/73YVHb2a1G FaGBnt0X0fYqidYbxQRWS6HYehLa7Sdh2HESxh0lBBaLoHz3OMa3HYHovSNE 9XR+Qgor7Ye5nm+qgguwnqhhiZ4o5doYMoOYFisusc+XmakMzPX1DazEXMFS 8pbOZfSQuvd5b2MhqoLwtdcw8uw/Q9w9AqNnhulElKuB+wpichXTTJalt47o 6jh+hvDUOYQLzyN+4nz+8NVk0bkN9vL23eR+/GXoBQtQtk2jqygBffcDJFQf sf05TP2RDTV1dM1SBD6fe8VcX4O9aQz+HjPmtfewoLtL6zZmtWtIaRYRVc4g KE0gOE6CLmK26cM5alc/CWDz4pfvniQni6TnB+ASEDyrEKDptVJ0bynH0LYK iHZUQLKzHJJdZFt3lWLgvRMQHSVQ0SFnpyHnK8Rlh0jkj5whG39hA8BMkajP lV/aZFl/C46tXOdYzZYCSN84wj4PnDyZ321pqWvHwaYIotMRmI7vQeBCVa44 +yuQFpAbIZvCeHAzeXAPuZIwefBkUTXSxdX5T00Xn4f+4JlNn/rn6DobQHtZ hu5yHQH5XUwy3WT03Fl5F8VeEz3cFqWlex72fu68vUbAbUua+rRYGshgpk6L lX4fpgZSmDXcRkq3gph6HkHmaLgyiKCM2aWPIUfzi0/fJvhSzuQwl6zPBAVF diYeU/ORQWxsFlPSeahrRDA2jGO0qAnNO8phZTrJXx5BnCJDtoxcoEPWF8nR /s9gu9JK9OdicWMhM1q7FmGS/FDBRRi2FcO6vZj9PDc9ured4O7qnQJo3z7M PpfvPMlWwTPvFnIs4bnvFaOOiCtpqCDq2JApEmB9SMNZmr9FTEYW7lgp8YJ8 acFZci0X4CeXHi+qIeLXYIZcOuPWWcUrrUGm9CIShKZ4O6+Dv6cXF9+VcbfP W4JXsoKwYhUJzRrSuVGdjs4wHN1cFsnaOwvbYBb2Ee5wjW2YrA5fDbvqVwgY f40F6y/xS5L7pWYdJscDiGqzCDJF6dowgmorFhPx/wl+9Dih7IvCIsjAN5ol D7QKR8cctPtuISuMYdW4jhXTGrLGFUzrF5BQTyEkDbNTmid15hw//hKRcTWF cacgpzBOR37XQURxks6oSPb1T/CjCJ4cPyzbjsG47RDHm2oBeTg9mWEnGiuW MG4g0K00YSqTRnzhEcSGR5gYvIu5czLck1qQdeRl4atIyCi8OsY0dOXcj50+ nxlFlySZyJDfnyMXlGWmKZbVIT9qhPH5m6+xm2GYieAT4wukLVlE1YtI6Lg8 r6WdPG8HV9Jv6Uuye+XG4SQso2H2Z36KdGcM9zFnvI95830EbR8jZlnAJMVS UcMigsYMLS77z/RKeYI7T+sN9mRckreDCcUdWHvSEDT7saJ2Yp14zrRfy1pu Y9q0jKSOKVliGq1PwC8cf6L6lXk/M4Vx44fPIl+SNUrmSLb1BDTbimDaxrHH SWxyvss9N71XAP2OnLnqM2LsjBa3qlbg9ixvdHT2Tz9CMP4I+uGPMXvVjrma QdyZiHAS9sfEGRX5pwq21a6WrKS9sAbBolpMkqYywGCerCXDmaVy4lA5AQNC w4q9dajcZkBzsRP9x8UQ1pqhG5yCdYwpg5xBQDmLiGZ2A1AYukLQU7imGwxD PxKCUcglYFPkJjJks2ZM5C7M67TWiEwrmDQtIWJeQNDClSsHDKY8Nrr4tB23 b0DapGK3NVnlHObClYTqHmb1D+EVPoDL+Qnu+JK4Y1tA1nYX0xbmpMg8Qsyx MLWH5EOSk9WvbDCblbkj59H2Gif/o2+fgPydkrwfNL9bSvQvgZ7i3rwbSY16 cevQEJrPrMIfWYenie3R+OWcG3FEHkE4/AkyLRGs3JThYSCSy93876TVdAdH uCSLhiyknbBCoLgOSZYP5LHKLhH9L7HDMbMV9Sj7cTWulS3Cqie6F9Sge2cv Bs/rIe9nStGTsIon4ZKl4FWmENBwPkPV7ICyyw0Fj6u5UI74oBjhWowktMtI 6ZcxZVxGxsR0B2RGL5C1YWaU28iFMyWYNj+SvkCeF9VP0Y4nNtYl15XcXmhv mv2JT0r4WXUH0waCCaSFS7b7MDg+wXoqi2zjMKbHE0iYiO9G5tiQB0mnPceV xw3gmEtYdR1XX+W40kfof3jLSYxT9CXfXg7FexTA/nA3JO8WQFdyBbMEPUp+ fhOtF9YQTNwjwEegr0eL5LglB1L/Cir/I3TwHrFzKBOHOrDUJ0dcQt/9EOnF kbNksS7CluNHorSBRRCzxI8F4ofhw7M4/6oAvPaHMNuSCJVfoBj/DPjbGzF8 PQphZ66iciQOk4jLlTrJBExo4/l9gtH+CYwOuDesiV/BHDubQ0w3jwTTusjI rFliBcXb9in25EDAEYPP5mXKenPcqPm3N25/H7IbHii6U2QXOfAWVa+Qc1tl tY4567poXyNIGcFchwGhazYEBnyYYFq6mpxYSCW/eKj5N9BIBuHKG6UUBpej d2sFeO9SAPVeBRq/V4BYwygWVHM4+VoL2mvWEUo9JGGPIzQWYM8MBnqluDOf zSHY/4L04iNozWSzBCuYOTmCiQ9IKQ5zEM5CTPASE6KkFJOkFBligGbfRRS8 rIJE/QjxW3zEK2oQYiftUaRRVobs9H3wGqNs4lPEj0NOjFCPx6FTcK1KFdIg elpt6O52oaPHAdlAhAxZCi6m6TcDosidhrVpRAxphM0pbmKsI0GoPA4Pubhw IJbPVjTkshV5Ei1lViG57IK8gz5ugKuKDCqZcSZZ0rMsZixZzNnIk5F3ivY7 4JLPQcVLwdJqgPkmn5npyyGBz2V5Zd0yyHq5fU1jfwryRgdGz4sp7PGy50Qb X+7BQosVZW+0o6vhNsLpX2JaM4+kKoOwlKLOMeLrkAbZQOgzlSscg/832IfI W9aoYd1JuHVXFVzkEwIl9YiRT2h+vRbnDiRgkZJANgnYIZGRCm40X6DiFOY0 GnaP0C3TovvcIK5cNODGZSN6etxsFlPIZDE1caiInF3XvRhrJx1hqoOHOR2x S5n+OnG46W88Bno0M2XfcTgc9Ds7uc9Q+uiT2bnN1mH8FnPsiNtsdUsZBhKG 1U9j0jiNlJmWhenXNIWoI8VuIynkQQx1phGqC2C2ToR73ujTDpPm317WqSHy czWNJt4MJkYWCVqtIiW/g1n1XRhqfCj94SX0XLmDSOYTgmXrZPCWkNSSViuZ dqsb9UhffCbycXGAP/Up+A1aqIZ/iZlGN2q+txsH/t0/ofYff4zW2tuwW6cR J78cK2cGdXIzabyVZ2E8WQn1jTbwCyoweqwSkqOVkJN/kR8m1TxcjY7KDgQs oWdyO32LmXsQXItiqJ1rmsMUIWuJFQYC9yZig5nYwDQ11ltJlJmtncBUfh+i 7mku+ZtsqyzTGDFOloBPRfGfNoGwIYGQJcH1KmOajpMVCwST7PvI3I9ws/VT eK+l4Nl5C7Odksdvx+W5467ghlVT9kzCJJiDW7iCiPQ20sp7mNM+RMVbPei7 fhdhIv2y5T6yZvI3JvL2hIzDpMpBFaE8OXsu9HNV69w94HGx4lKUc5xtDUY8 +zev4Cw5FvkHu2C6XAztzkJodx2HhcATM7nGToQfP3gcwxQLCin6VlAcojtW BTMt29Eq2I/QIxHfRE5Ff6AcE/Ut+QJdZrZvD5knPpFsVBiHmOyBhHRknMyT SB+HxTeD5bX7BdyXvJbD1FqmxxGxS0JGTUv/y0xaYyM8a6f/YSNWmfOs8qc3 8m8pwuly5SM4mhYQ2d+HZZ5qw64sz2QhazawvQaV3WmYBhbgHltFRHYXafUD lG/pA+/WPUSCWSxbP6L1AFkCt9OE3JiDityhzSh3aDOZ+GLhfnLcZZ7w4is8 vPCdEpTuIuEsuQjB6XKMbz8IwU+3ov/5d9D90y3o/sU2iI6XQcLOzqqkePsU nMdOwctu7J1mN/gCBVXwksBPHC2H89BJBBqa83c/u/AA7tAKvNEV+OL0mFjB Ce4LXM/lyRbm7kMpn4FgII4xkn8Jyb+UiCrWEUG9LBtyYvOniMw9wqCc6YC4 TlGmCGujJsyRR5A16iBrCrDO1jC4gAnRKkLydZRt4UHQch9y6wL85WIsWe8S BLrDHjfPWNaQJNgVNk2Tw40gqGeOVMaferDimS8SW4LzZz9owKl/PYfR9y+i tngMfbXj6PvwMjR//zLGtuxF+3dfQMd3X4LkgwJYjp/GxPGzCBw/hwiteOE5 JE7QKjyLWOFphEiC/RS0eQ8zI+yTqOA+7Wbu42cWCVdHVjC7dH9z1di34J96 BE+AGc/9ALHTejg/uAlFuRTyrknoB+bgHFtE6RYBBtvpDeLLcAymYDopwRJZ hwWm46OVYKhlCXErAXT2xGIIfoPp6ecdmOsv2LNMzMUUK7AKe/wKeo9dxbl/ KId5Xx3E+66hY08TuglQaLbVov2np9Hz/S3o//6rGPruL2B+v4TIcIFu+wIm T1xAuugCMswqvoBUEZGm6AyChVUIFpRh8lpTjhJcJfe3nvhGFsKS/M5fIlzj Rf+7Ddj21/8V5/7uOQx3P0TYwtQ3Z5Em3z9eKmNH7c5QFDptmUfKNssd5WWK G2w+xH3+x8dCNxnWv8QIT8NWAuQvQeFVCAuuo+YfKuDefwnjH95Az0EJRg41 QbWnHoLXqkiBKiF4djvE338Thpd2I3KiGpMUf2eYxEhJDeZKua2mDClesvg8 Quz9VtL9lhDrE/nymr4nTT0hv/6xu9j63RKc/PYOiN/bSRbuBfjkBDLU5JbI 6fYWyzAvtWKSHG+SeBmzpxB0MggqBrfVzZ6q+/omVo4LSHcEho20u6iwBcrj 7Wj4b+dh+7AR/CMK2K5q4SpuIyt6CaJ3z0D41hkMvlgO6bNboP/B2/BtP4Z0 SS1m2A2FOmRpLZyk1yfppksvIFxyjkLcUwie4Iq6cjfX+/RUTL43htc3hbFh J/a+cxXFu66h/uA1XD5QA8UVKQW3fgTUSdwqlCEtMhNOJH9nI79HPo4brhHG 7dt38bgAmdl/4lPEJzCxSeaBE63sTxUn+mAo5uPyv15C6EQ7HJ0+QlUCBKt4 sB1vJudTD8l71Rjfcgril47C8KOt8PxiL6boVmfZND6TQ2FyKXWYKashkFyN cOl5BEuIn8UVWFSqnrjbz/eSCZK34DNNq2jlE9Jn/nsZJvaXo6lMCGG9FKLS LggrRGj4cAyBEQtcZuYWyU8xtR62GNZv38/Vpf41pH3jkPEMUPBdEDUoMFrY D1nRILQlo7BWjOHqD28ge+4GIpc1iBGCjZ4bw0RpL9QHb0K27ypkuy5CzqTc n98F53NbMUWwf5YWs2GxyOYk6jFD+GeS7jZ8kmB/6VlalVhUqZ5k7Od7iI/y 9RDnjtcZ6XZtPdxz88FbGCb7LKiSgl+tge4CH62vnsal//ID9L25BQoT3W5g Bivr+dv8G8S9Ya5zSr+dPawhqTdgrHAUipJxGCpkGD3hwLXnW7Fc24EEwerJ WhWSNQq4K4kUR9shO9gE6b4rULx/BtrXP4Tjp9uRptucoTCT2SZYoLB/gW51 mm41ydxqGTPvnm61rAJZtSrflowR0qERJ+rqJbhaK8H18xIIms2sGT26SYfz MaGYVTc9tILcmSmmu1YfV9Q7eaEHE8wMhRsaKOrl6DmvhuaqDAqyMfrdr8Oj 8HA58P8Aj1wDv1yLriMV6Dtcgf7SWgiqBzB60whlXwzSehvERVKoylUYOO6A rW2ZAuRhrFzmI9VgRvqSiR4NiNVroC3sgfwYUeTQDSgO1kC94wisz29Hkon3 iOkz5Uz6nlkcNRLlRA0m6K7gqHE7mfyNHEJiZLm9TYkrDULUnx3AzVMDaKsY QGcJrYIBtB4YQNfBUQSk0XxOoy+XNTMprQSs1JAKjEQcK6x8B9y8ifxEpObv nsPslWFMjnhouZEYckJ8eghtexshPHIVor2nMXnZjflrKiz2yr+SSzQwsz95 BeUYJlAuIZyiImyoJWzYsa8KnSTw7Yd6wTupgKY5Qg5CiZ4jZuhvrcF7PQDN MQNWG4VIXXFg6qqdHi2IXzbAWD4E+fFuSAvIPBQ0QHmoBMbntyFK9JokeqXL Gp6hQJkZ952mGCHGxGlMHQKFx8m29pwh/zoMGg8aLw3hKrHtFq3u8wMYPDOA scoBjJ8cgKR4AOITAxg5Qj9/XwBHszWfJe3No2V2WriU7QelFDhh5Hsxwecg e2w4islRrnNBtlmCmfEorQh8nVaMlmgx3iCF7uoo7NdHCMzG2AyAffAuUrVW zDbImOmp+ZIJfWMLRgkAiglkaxgQWMBu4hLgq0LvB8wWYjN6D/AoyhFCctqI 5v06SC+vwHYlAHetE+pCC1aapEhdm0D6mguT1+2IXjPR70h9T/RivKgN0uLL UJCv17++FwGyrRGyrXGyq/lkbajycW6a8xi/i96mMdyqEaCtZgC86iGMnR+B 4swYtGfEMNAynR2jx1Foq4ahKB2A9FAfPG3Gg5uJ+AfsSHBZP3kGngMaXgBW Xgze3HHpSdEUMuNcHmGlS4sFRQbzijS01T546e9iYqZf2ASCZMy87WM51/U7 sMQewWx5RMxYQ+q8DplaEabbxVgmcRQfPwlZYTlz9iifPAoUnEH4+BkCEuc3 cCX/mBaC81mYeudgvmiHq84JZZENy20qJBonMNnookcHItct8F3VwVwrhuhk G8Qnr2D8xEno9lfAWVwLD1kGP/niQBktdu5n9UYV0bTmcStv5hru4A6jt9cM o69ajLELCqjOa2C8qIe91ggXRWXuSwZMUHjsqFPBdEECQ+UQ1EeZMWSxAxxh 23LgnynZ9nim4J+Ygs85hfmZfD/yL0PSOQpZr4ksuBdasld2Pv3d0Cziovnc t/sqBrd0YY1nwRIBOC2BO1//LFLKDOKyJHdWf9iGIJ/JZS3kwq3/CGf8Edp4 n9LfLiFVpYCT4JjizWPsO3oIeYdzQypTJ87DcqgaQ++3sa87D8jQUjYFTUcG shIlDBfNsNVbIS01Y6lTTVS2I95oQ7TRiuB1Et3rOlgb5dBdFkBYfhlDhRVk E6qhI4hnJqpbieo2ojgzVT3fIC7vBSV9EvQ09LLPu6qVGLpohOKCHZX/fAG+ s3I4ahwIXnYidMuL0E03fMRl+xUTcVgO06l+WGt6kCN1C/vwlwj4p9ghbSO0 JN16KDr0ULboIbuhx1iDHiuZNcg6yFD02CHvCUHXn4JzYBYB4SISklVMK9Yx r76NsfcEuE3y7GlLwtu5hFntEjLaeSRUzA4XRZpikvVRDRaCwY0dX71+EoON 6pwoM9dfIrK3ckOowseqMbyrmX3ecDiIsRsJqCpV0JKTVpNuGGvJcZ80INtD Lo1IG2w0EokN8FBQZ7+phvEWwb1bg1BcvoXR6kb0H7uIkUJCZISkpaU1kBHi kpBz/vwxs7azXeyznvMWCM97oakJ41rBJKIU+XvP6pC47ke8PYkYxfTBtghc zV6YyS6Z68TQn72BBU8I+zlCN+VMYXZhhQy3l0Uyclp6UnwroRhnF9dLnGlr a2Pqs6/q0VchgKxzAoquKP1dBs7hBZLbFSRltzGjZvbt70O6V4hMp41udAUz utuYN64iYyCmaGcQVhKmlRMclRiwGIlsEFxy9ARk5M8eE/xbiHRObxB87z/8 GKe+ze1X8chQCYslUFRIyamMwHBKDFW1Cl2nxuk76+C4poGLWddV9B0UMDbJ yBeKYOwTw2eyPpND6C458UNphE9lYkazf2mD1PmGyR1n9Og964HoYgz6S1Nw 3ZiF9NYK5nsmkGpNIdWbRZIsWbh7ChMdUViaXQRz1DBf6cZiKPYZKo/2K9m4 RE0gycI3YoJAUqDfgnC/FRGyCBEeiUmfEV6iei8BeF6lGgpiqp43A+fIEoLj FNsr7mJG8wDz+odQH5ZiqsdP4vwAy5Z7mDdT/G9cZnP97OF6dRBBhYk9zb1R yHC0mK0SUxw7m9PgP4Kz2QLx6CfsqyvPcROC+/a2EsQeIAoPw3BBCFcFnzRX C3ufm0AcUfOyjPwsrUYJ1LfEpHoqmCli8dkDmM3MfK61Hkdazj4zr+1Sbjpx O0H3jkor+s+EIK5Nw3BtHhPNywQQ12EQfISVIT/SjLvhLxN95uDunYSl0w9z uwHmFgH8I6P7NyXNN40I+erGZ+eXmbCYlK8lTME0BnfCw2fqBSlEps/IS1xq ZAKxQfuG1I3UuaHnz8IpXEZAso6k8i6ZDqK14T4MhXIsyfxYtt5nczBzltuY Mq0gbphHiBkxrCdrrjFhPh7myPHnkB0pJRacYo93MJe3iKsTzJTWszVr6t3c 6bCLe7kKj5bDI+CTqxpp0IFfr4bs1Ag8LUYEVJPE4kmE9UmETeQ4rFyQyDQ2 maCQOBxMbpoknqNI/hJUD+U3hvvORCGun4bxxiJh9HW4mpYwWDVNt/gx5uiW U4NrCA/Q73hTsPSHYCZxNXcPITA+nrch9U8Pdzk8+O+f+PHSfJbiOBmZGAu0 fB+c/DBCgzEkR5PIiCcxK5nEPLnBeRmXdWf6PonOisEv4koqtLxZ2EcX4ZcQ kZVrSGvXoWggtSuVY03rxaJ1ndYaMWIVafMSYuZ5BJnWgWYKq3V65PdPpYeJ C0wF5tHHXMg3ZhspuoHN19Wt/ajbKaYYVYyuwhEM1hkgaYnAwbfBpSZq62mZ H7cAYWJXf2jqd3MwzDZmgazFgfYCETpKHGRNYhS+zkB/c4ks6yr016YQuEo/ 6/sl7tqXMTMYJ5Jk4RqchmUoDPOQBSbeEPyyzxD835rlxp3hynd4VvR7KCyN QVytR1Q4g6nxOczJF5BVLWBJPY8lDddpckqRgo48VX72k3VkDt7xLCKKRWib ohBdDmG4shMpmRnzliVai+zOU8o6jyizs2sjw271IOn1brTqt19p2aCksfBi PlwcKW7k7HgxOb8ibnqx5UAdMeYGunZ1o3aXCA37x9BUrkUrwW15lw96sRdj Qg86uozPoL3HSO/Ob9dj+Ca5q2Evwpapr+VonnAkILtpRw8hno5CK3pORyBs yEBzcw629nlor9MXbQoiMrgAzfgnRPdZQl3TcI6mYB4Lwiw0wSXTYDGdepLm X3kqzTc9PpOL4q0SI2TdVih6Q8S9NBreGsZEkQ6+Sg2itXos6daxYmAWl27M aDkWdB+Rob9My5FrcApO0TQMfXGMXyYhVs5CNOBExjSHjJlZs0hbp5GwTyHs IGvjiMJnncCdtfV8sjc2ThbjAHeGLw/KO4oa0Vt6CwO08pMTPHtPwXDsBnRH G6E5co1i2W7UVRpx9ZwR1fU+DLWZcLWVXrcZMdhtwHiHDnqK6A3NeugIi6mu ECa7qMVKejW3/foHWJ5ehuyqGbxyA9oOG9Fd6SfdiUPWmIShLUUGPkSxhR/+ gTSMgnnEfJ9iVWWFTUxCLyGJFenh1hhwb231CSZ8ZoMofy59vFnI9lNUdsfI ts9A3r8M09AdiLsfIE7PFxo9G/5ngek4ZuCKO6ykHN1FHMVVvATGWz3orJyA XZRGWJ1GTJdGwpBG0phmz43FbGR4Sb78zK6tPYxwIJLf/Rd/WMmenVAXXEBr 4SUSvxsQEJXHSpuhLG6FoagdA681IbH/DOwl7bCVtsJa0gTXpWF4iaqycyMU c/Kh7VnB6qjkCRDGzCt0ExCbaOc6MLFHQShcWZ9aZT8+Hzu2FbvQc8G3oXP8 Kj27l+vojxAyDkFGyHh18gF86gnopS7opAZ4TdYDm1zoFxZi5LcL2En1rW4o u5IbceyM5j488o8Q1v1yw5Iu9nJHj4PaKPiVHJIWdcVxs8wNMYFHh4RIKCdr SVY0oCOsaqRHsqJee5ydwcts6gVDuSP7v8fuoY0dOIMOAsodRVfRU9yEQSKj tLgb2qI+mEt46KfYKn7wGvtRrqp+eOpGkBx2b3RXkp7iY7igFzFCUOm2IXh7 mbERdkJgdkIX9MijOIiZiUrsYFJWjqsqrGeWfzuXumUucQNXYNF2kqt36a5x Y/gat42r7bBDy/TTH3RDK3Rj3HgH65EM4fl6uqsg7qzfyYc4l57MyX9m+Cc3 EY7B2EmYBufhFZPDU3ADzeaZSWGWO4Q67mzUTcRdHyHrWt9ge9fuOhS/0I/W uigkAq4Nl4nIbVXGYddyY0tsFm6wh56WO5DZiGGZ1J9M7kU3iVs/4f5+wv3q ES+Z9qncd/0r9hhF07EaEnOy10VdGCzisclYfekIxYZCdO/gI3KQ64ETuKrE 9Dh3+E9Pz9UN3AhANcV8jZU+3NVNEYpVID4YJF4FMDnCLD+SQx72ZFuAOVfT oUVCaMuLAnMJr4Uhyg3Mu1rlQksd1ypolEkE9bkwOujCsNCFC+eFuPLaSdz+ ++9gseYCDm7efPq/uRFP1xyQU7BkGJjBhIhxeFwx4IyRkL5lBVnrMvt6jpxe yrKACFldx8QsRf8pXP3OEXj+eTuk58bR3xPHyBBZa1EcchJsBQm2ggRbaohD pIuyeV7mUwO51PgwLTGFtuw5vU7unB7buvk6hbv1XHjLOnJfBKM3R9FRxUfb cT4EhaMUJoqhLZfCfFq+EYnPK7hoyXTDBM01I/tcd3EMmqoOSAcf4p46hvQY hbUvlGF+xMWWSU2JY0iMkR1jRsYyHWw7Zbg7t7SpD0kOTTDXYCOXeOO3hHC2 ikuyXLnlwvVOF0pLB7D91QG89KwDJ/72TUw/vxWf+tx5et/KGQ+rIAJpcwQa XmrDHsfUc0hRzMJ4thkzVwmbsc6QZ2M6J04iYPdjgWKKs2+UQvnjd/FpgOvs MOFfgS+8gkB8BcEkPU6uYGHlfr65lF7tZgNaEVOAz9NT8Mel5ll7SsLtasvZ UkIQxstkX/smYJORHe6h1euF6Kabbd2sv0b2k+CCt42rAXV+yKWTFjXLyGqW 6D2cG4WW6msW6C+rYKoXQNqyCLXw13g4IIR/701kJSFi0SymZdNISVOIsJN6 mVHXegrrDBvodLMhYK6F6fvIT1wv/8/fx/a/3Y2X/r4HL70xhYKbdyFyr7Ci 9ce5lDMz5snrnYLfQ9DycT+Bn29mxO+y4+HGrgQh7aLQdpDD235CgBFNGnE9 5/CYK2ZPsg7PS9bYYXE/LjXlYorHAwtMaie7DSAVMK3VKMLlUYTbx20DBPuY KJdZZoQowvUz9pVxZTe06K9og6zLCnl3EOqeSVgp2vKNMAeTVjElu41Z5Z0N SVli+ifpOTtnbg0QLOVcneGmEeZGEZLiZfTVL2BadwerjTxk1avEohXMMic2 lDOIyghHiSgqFtoIeIx9+SmmN/9cfWOMfX70n3bipW/r8OaxdQhsj9jBLNnV Bzlq/w6rzDySrAFaYyRdUpIsOUmVPN9YgO/Fcnr1lc2pAK5MZvhGjJ1Nrx3m rNgEmQwvmQy/gXvN9Ea0O5j6izDWyHP8Vo5zm79t/hsvZ1cg4XNHT7npF+w2 A4IU4kYFXiQGfc9gknT86/TvBNlaB0Lk6xg+9J1ogYhp3NtJWtk7BRuhYp+Q /I2EolnlPcySa8/Tf9l4H0khlzg2t0eha8l1p22zUjQuw6T0NqYVd1FVNYcH 6jBWRtxYJKw7q1tBSrOAqDKDoCyKIEGP4Jjsy5sj1PbXmwgSWREZXsK5YnEe r3oGrm7cKUfzr7F7DIxmj9FSkBHVE93NzETn3EFZKxlRExlRQz2LkF7myNT8 +NN+A7IRIryEGd4V34DGTENEV3AGS6t3vrikh7CmjEdBFRHYQKx18UlqyfUo 3r+EFHnZjCiBaXF8Y+RWfNSL0IAD/bmNWWaGqKY3Q1RehE+0hrjsLqZU9zGj fQDefq4Bw5LpPtlkikc6Ynm7ou0MwNBtp7uUIyW/i2n6L4O7etFx42N8rA1j 0XAXs4Y1pHRLiGooFlNTiKPyELGVyM9TYlp9uZuU0J3iHHCoewZ++ydYW3yE qbuP8kmx3mE9GgnsrzlX8Cg79cc5qeMOpOvYXqJqPqkbqbajxwJ3tw0+WoEe RpzodSepPfHASa7+dmaZGwyG1hy4mF94QNHxCnqI/HwiP08WY88fL270PvwP T5A8/yjrlUHWb4Oq3w8zxbIewSTUjWkoToQxTUZkTjaDBTktZtSUYgoZGddh JCT0s6kq5hKRHVcT6a1Di/CKmAkA60ip72Baewcd+41YEcbYKq8F8zoc7RGY CBJou2L5Flw2RjcKRygiz8Im/RXudA1g1ngbKcMyInqmu3cSQZ0XAaUCfiK1 9aYE4yWjkO0ehr8xgbD+ITsglPVu9x7lBUxheITbQn0O2TwR4ORPAyj5Npj6 J+Aip+QnAoRJ5qIDQdLiAGIDfkQEHkKxDvbMa3LMliP5wJMIk5Ok/4e8mw6y PjfUfVFYKTT1Dc0iNpaF7HIWiYsOLNAbL6qXsUSeLavJYkbFhaZhSRS2Torn jo+yr5VEDjNBU7doEWHZMhKqZUyRmo9WTWBpwII58zLmTMuwtfpg7AhD00OL x5lrC59L/o3U25BoGMeccR3DHffJtK9g4HA9FMdqEaHwllfSAfP5cQxt7cLE RR9XQRZ/hKXbG3O+2dv6Ss7z+UO/hlb5KX6lkcHnJg9I3s9rn/q9XEi62XDa VdzmtJzpqdAfgL0vAh/Ff5GBSSRGUkgJU4SVUixeSgjjhI/Ia5DOB7sVuDu/ iBc3EfmLS9f/T/JsZvJsAbr9JGwUlzJHbhPjq5iW34b2yjqWO9xY1hOaJ6+W 1a9iRrfI/s+InDyVxI+eIyPc92RqngQZOIX0HpI5RJjyX+0CRO1O2HlSTBvn WfzEdALSd3qg7PORI5iAls/hQCaJ01MswQzPxFaRzhgX8ep/PYGGf3kFyjd/ Cv3+m6zldU58ipVVwqhrj3I1CeTiAlPoJ/dW15BkO8JbemSQkIpLyMWJyMWZ ycEsTa197SlklvVwWImZa6XvTcLFIwcwOEtmcR4pcRbe1ijiXROYltJryTQi IlIiCgCCgyYsBmN5Mg9+Jlr6Ws6WUiBKoqXtTcNOougfW0GC8UDKu5gYuA/X 9VWskY4sm+5x7PgbTOrm2bA+qAxT6M+RRtIaI7uShHk4BZc4Db98CmFVBjFt BgldBknDFJJmQkW2FJSddroXF+QkCgq+BS4RB7lr9/fgxsVRNNdKcfZgK/6/ 9q78Oa7qSn8TIEOYMFCVZarmh6mamt8mNUnV1ExqtkwGgo0DBBPAQDA2xsYu IASDwSbeF2xsY8u2ZFvWvlnq1tKL1Fp637vVavWiXtT7rpZaUmvHwskkmXjO fe+1LGlM8gdMuurWa8vS69vnnXvO95177jl7XyzD+V0VqHzrMqQVrQRhI0iG YqUyvawws5S8iJzBU4KmWpJus2iRTLkTg4185w97Fd/VzXjJjIXcglA8aZ14 b2p58bbGYRXlMdJF7KVnjnDQIoYbsyh7z0WLO0oYag5Z7TRiKhL/ANvwcmNU riiJV8FdvoukOwV13fBdJ0WmLkgwLKkhK2lYRsF8G9IygmAE0+Y0We6j8/YF pC3TxPyFvHSjE71lPDfov8nKmhPNJMfoIrLh0yQRFFJ4w6yjNDncAKEcy4Af ijYXFCI3V95KI1Tfu3qwDeLyHjSdkuH4tg4cfekKTC8eR+uBekhP9qP9kIKe gP9ejSVXCml3GrmWbRwqJUkPiq2QXCBX1n8Hn/f0wk/uytfCs/1hkrrzqglZ a/LBdQr3KNRNJu6WWlqINnEBIzIy+31LsDfkcOqtDJQDv0bBSF7YuIQs2c+Y jlyCljWLIi+sVK2R9MNIDLNIGKlvfZQsMS/pAEfyF5CjO0xYljBFRL+3/BaW +yLkkxZWYErEzleYY6/SgSFpdQKK1gSXLG0haQ8S4R7WJkqhmCHi+IP0kfIW PmhRW6ZB9UV+aYqOtqDs7Vqc3dOLhrMGNO64jPjuw9DQ/yvP98Fy1QB7hRkj bZ57taNkY8jIc2+WcGekVTFEntordiMg8qDpbATjrCWLbBDRTjcXamFHfP0E /703tFjKz66qdLn+OJwg+1pen7TNWdhYv6XueRjqMjj4ZgqSnt9x0acJE0FV 8uQZ0zyipklyxRneHWvVgux7hSiOqmIQ6poQdG1ZcuYF+MkORTUzSNNTG7PM klOfhW9gESHJLSyofMgNTiPhYC1syG4MhVgKKUrp7tPjX6CtJoYuwvG9Mr7H qJ5wvNFIg3C8zs5j+VSeL5Fs7o6uZMOd23oEn22/jrJ9Jkgvm6G/okXTs6eR PHyFwywj5M4DN3nVdFcaybwn+cN4q0WVEBrtlW5q7/DBQxgh2B4mXBBFUhZF fdNt/HowiHR3GEn5KKJSH1exZLTZiGSfQ7jTPdovf2XtO1pOmuYMrB3TaD3l wN7tUTR1/RYZ/RLGTItEuhZozJM1mOV7xrOdF7sPxVx23RNwdAShYuWPW1Kw duXgJrAbVE0gpi8gbSogZy1gzFaAvJ4MOOsSaAwiNkzSZ2XqnAHE/YEVVFsQ uoRqreNo60tApOIbaLKi1LibdVl7uhHtZyU4sPUcyvfUoPyYC70XdNCU26C/ ZkfTj44hXS5BSsbI0giRJjdf0aWFNL9KjcX8DO7/MjmVOi+RRdd08EvBSfDK 35kiWWcIT+SgONqH0FtnIJX+Hr/W27nSGayxLVcyg5jYaJuKcMX0fQIIX7fC SgcgudggqaH62giaDlrQ9pER53dYUFHOVLiIhJ7U2FhE1jyNLDvCa2dqOyZs zYxgeWEBa57FoyhmF9B7ycd1G9C1J2GXk5fuz5AXzCJKnjJhyiJlyRKsjZM9 X8aiKQC7xg+regQ2/fCqhO1vItDgwPXna9H5CwnaPu2D6Nogzu9rRzWNvhOd cJIWJ2iVpHuS6HvhAvkRDRGmOHJ9MaQVpLAsCEVgl9UPSfTbHlirgyUpi1mb TL5IoIvgxCjBibgAJ4yf6DB5WQZn9wJSzl9hiiadVGYRpg8IERcNSc0ojka+ /EHyMV49cX/j0V40vyqH9OgIJNczqN7dDvtpJQIqlsIwjphhnBBCnmsDExnK YNRFuumKIRVOCN2Q0ScEdIq5W+i+GkFvMxkEcoe2nhLnfAiu/hB6mm3oabNB 0hqAX3ULQbkB3QTT+6qNcEj9rKfqA0KwRUczC7W4UfdSI/QH+DI6dtv/YHry DiSNvcSRrNC0jxCkjaCrbBDK8hAilV6kaYUN13jg3lWFYl+Q+FIe4+ocsso0 4pxwmOTtZJl78cDqR8rZmBFe2upWLyEN/nA031hhhuzHPHKqRTS8UIkZIqiT +kVU1fwGt50pZDtsiLDecAME6MjOFKMJXvLfXiN5S1U/DMd4mJtXTGKWSFI+ fgvtl0PoJw6mI1hu706SqFIYUacQ0KcQtCQRGGRbMPyet5vw1eLikiD4fu7y PUyPLaOedLvyklBwiAQvb+I39zvJ8XeLbOgnFFhXW0CKsMkn23+JIdZ07YYF pnILFFfUMNPsoqIAWl5tg+moF67OeZgdv8fU9B3EF9fGjPjTdIQQRTzadXfm MSqbhIG4VbYlgr7TBqQ+vokp4kpTtFQL+imCZaRHKvJV5OX5QiJEMEqdQVdZ gqQ3RBjEXIr4W8Xj8EiLRHDnuVZCY5plSHc0EIn1Y8p0C5NkkFtv/g63rX5E iBCHtOy40jDSjsF1Ks+X+Lae6uOu48oi6euqHfyvc7EqaWUcPS0Jwr0JmNlm AllZhyEBJ/k4h4MHF6w63+LS8k9X25eHMD29AL3ej642kudNMlmXddwHlb0v w41TPDNvabJ9BeKbNsK4+jY7XvjHd/Dpd/4Tssf/Dc3bm9GxrRPWT0bhki9B Zb+DyRniJ/N3VqfqCOe6vKNQtxgIFvOKahXn4JFMItwzA1/XAsItc9CdMmHq khTTJsKxpgXCbMRbDVNI6MYQZicaleQc+8ysDZ4QBPoqEm66LysW2hCEpikN a3sBHvlsiZ/b3hdj2lDAlGUZk8TlLIpbGB38Dab69AR16ZZGN4rpNBcVcFer SzhuQj+PqTyx2dsCXC2VwZ/KL0PXn0c7gYpueQIDBOZUehrmBJS2BAcmXliN J78Ni8HPkYkBgrhGIhM2kvZQC5+G3nGoC80f8V1eRATkTG2sWJkHUXJVm/9+ B2pefQ+DH+9BoN2BgJnsRG8AIzUGjDuSJcDHDsypG82kgH5oW5IkANI+GWkf rf606nMYa29BsVeFOXqGRZJCkaRQsBCUNc8gbmC1Ctj+dZA00Ma61j0ozFpd ZSIkxsvUQjJ1y2eJmrCg2BLkZfw6neButYSCdZHQ2TwuXSJj+uFZXPuHf0HP z95F85brCJ1xYoKVihm/g6nbdx4Wlo6HYIE/yh/Rmpq7vYUX2d2zJ19Z+44e 96DRy7EFLQ1bhxUuMbEDMhKeOv1KMWzV8W4MHOiGt3YYCWmEUFUUH3zvLQwe PoreimMIivsJZfm4DuGjrRb4alW4V0+p2QmhGlo9CaCZgFAHp1QIE3dLqW9h TL+Mtl2dmOv0Ytr6BaZttzghZC1z5HhKAJcsq4FleEWFIMg3MFCug7rSR88r RW5gglYNkbg+IivqWSgu84ZwzDyLcSsNywy0HQF8tOMi9j2xDw3b90P61h5E vQTnvrgjtHhC55dFOYTzpfHRJFREtDRddti6hojlE73s8CLWOQIfrRvbJb7f kI1oh/U82dTTA1y90RAr2X/NDNfL78IuUaJAdnBcmSRXHkOMa/BLmtqmw5Qv ut5xlAYnwZoAJ0ELSdDdPYtRjrKSpAxLGPhAjmLvKCZ700SoFgnczxO/I3rG AKqdJGinjzHbviYoepx+pCr30EOJQS/KwSEbh7e3gFHVJESHeRPpIZQpq7eh vlyFsx+L8P4rlTixowJN711D+5FaDFzns1Pjtuxbf0x+fJKaikt2t8NAj3qY HQHqjCAujSHTHef6iLuu22kMrYB8xyUzhs4NwHVJg5Ytn2KqvpYeZR7T+kmu nW6WsFtcSYZHwfdn94vkq9oJlMCUU8rvZKsbk6Qo4xiWTxEHLSJGXMjSGoby uIhYbgZZaQ4TmjTytmmk7ZOIOsYJTNKCdgQQsFhKNdHYy9ERw8CNCFSsq2VX GkM92dKcfe1GNFcMoJJA+P7XG3BsnxYNF3W4vOUcgrs/gOWGHoPVFlgrLTBf YbtxI0J1yz8gPv5narFB8Ge8YY3Icmh9pXrVzx4lgxbESPUoPNUBOG+44Swn wnXiJkZf3wufKYEZcgUzpjkUTISeyWLFNaQbA2FyBcST5P33PirJy3FWKHqu ZsW5RYxT5jHSN4GQqsBFATRdXmTMBbgkBWR7Y8jaxwnEk7dhR9iG48RofJjM jX1tlYYXM0voLgtCUReHim0RSXgaeWnbSdR82oJTv2jAwXfYYRQDZNfVRGkH IN55FYFDdXxEo1nIX6DFN1xpJmjn4Uu080cN10eF/xpDSrbvOUjIZRQ2MeEs CV9YXHx9hjQqg2jdEAL1/CRYFrW3Mc5Vp3NWO6HcdxXB603w2z/HrPUWZpi1 JiOVNbFGZ0Q+tIQvNV6y7Jq7n3m/QD/Yq59pDIELU1eKNCaDkQGiG6TCI93k 88XD6LtkgKMzDXeTCpobcihvSGHvsSA4NPLgXT78ACsLjc4rYUgbEqg83Y0X /+ZfV+JAx4+ZcLNCB8U1LVRX9dBVEHP6/n7ETok4RxglkxXmQhMO+El6PnKA EcnQ7lVS+yNnkJX1CgIfLi4v2t4+Bn83b99ZpHdIvYw5ZQDBBr4Ql79lDN6W NFzNUShoITuPXyEW4MaY+za3xzZDoizYWM2oItn6cS5gFjISMNHo1qc+rQ0I shdTGmUbiVNK2EyRgKHBht7zUigvyqC9IoO8khwb+XhjnQyqKil6r4uh2v8p FlYaHt2LGX0LA8Q9Ot+R4NBzF/Dekx/g1PvtuPzZAIlVjy7CFb0VdpiqXPAR jbn8g+PIXOhGWh5BSh5GUjaKmIS+APMMN60I1Cq5Dp5v8p/ScS+t/HPCW14u AZqVR/Ar+KQMLrgrv72ysIM3J+Brm4CnLQdnawLSjxsxVFkPVW+YXObnKNrZ IGxgn0fGOoOYlVYmiz1aR4hJaO7/Q4T7UZJhHlLS+z5ahPJrNohPSSAlC6Yo k6K/nGR6TUrA1QuzxArdpRY4Dp2H64PjGNp7jHVoWNWQ9a/QubUWvsNmZLry iLl+C6cmhqNvn0PlkRtov9gOeR35ndoAWcoEgYcUEvIMrj1xDuMVamLJWRpp sh8ppBQxROSj/HZEmwFFf7QkR7nw+Fbyh5qTK04jrl5ETk96Zf4cQSVvsnJd BPVIeG5ydX3lpBaX2+DpUhEAi5P+zdHfTtpnybaP24tk+qfI9OfJ9JNjGfTQ asusSj37Fhqu8rHF0kt8QYpO4uJdFTI0XFaiWTSLW7VViB34BKH9J+H/8Di8 7x8hMfF1GyKEjr1VSqiPSKHZ1YbwBe9KE9nPCe3nlu96/YQvhPYbMlSc6SV3 bYaZHo+rPYsgiTbeXSC6O4mqp69gqtqMCdUUjUnkibinyLJEWLFMRneldgIp ipLopHcf+31Qs4ygxsQqD/JNLjyYJ9yUURegkPHF9WKSINe3q/dkJ3ySPgx2 qZE1T2LMOoVxQhjjtgJygxNk7vOCuY8iOOjC0vz8Q6vwU2mlDVfVoWv/ebQc rILkCO/A1CfroKWh3vYeql6vgONKD3Sv7IF267u4ufnnML18BOo3rsP+bg8S NVGkzbeQT93BwhKN/15XCO4bSPoiRFNN6KhwQfRZhNyuG+4OWhKE5hOKWWQH 5lH30yoUm4YwqVugQShRS45fM46YkmVPMJ9IitejLkmue5XNUNXxcWkeDjwC j2sZi7FJ9LPDGDUSDCos8PR7ETeOIWUeQ9qaI8XKkoDSiLpSGHWxHYEwosEw Vu8nzSaTUO8/DPWBEzDsP42h/Xzmtnb7XjQ8sQWtG15C1xMv4/w/b4Pk7/4d vd9/Hl2b95NvqicnqEeRlGf6V3dWslNZ23Z1M0t6CKD2ZByW6iQp/jQxxTkk CYDniNQ0vtSImTYPpgyf01jEOClAmhh7VEM+TUNKpBkhtmhYKwYe4/dd508r WiVJuPv4reiovhRMy0DbnkaYqF+0TYah5n4Y5cMYUSUR1CURNtIgWh0mWh1k 4Q0Xn9IfDWeEHTmhnN9HR7mTHMaPPsXwfr6OdhsTw8aX0bfxFeg2/Ay139kE zXc3wfTEK9D+1xb0//AFKP5jM7Jd3es7TTGheOIrq7ernLT6ch4eAoZhxQKS A58TrFxG8zYRZjv9mORiDEvIm4gBGoqIGshLGZmXopWlNZWEIrtrAPmWJyah vY5SxDrECIkuanroQuJLgL51zZl2WM/UQ1vdDbVkFPb+BBlLWuHGBDzEf130 O6UdjUA4/8hqKPjhca40bcnoiTdsgZQEoiSBmDa+CseGV+Gi4SbhDG94hf79 Eiw/ehGGx56D9aXdWIwL5ybWVQpTV9u5UhyckC8QzWjO0TJYRIL0JKO9hZu7 OjAj93PGtUBMlMXCU6YZRMwTfGKAlcRiNK6102vZDHt11CagaBcaECkTsJFU Bi18xRxFvxu2/iE0N41C1pXAALl2jSoBPf2Onn5Ha2MF9xNIjc0+vO4brHyL fSe4Kqa8qjyPzo0voZckY9y4FY6N2+B9chsCNIKb6LrpNXg3kbSefBn2jc/D vXUPEtfq7ikd1TUL11WavXpqJmConkSQFfVWzSGlm0ft7jpMK0ZIKnPEU9gu SxFJMpERQsIhBynNoA8Zv3/tSvqLNR/Brj4/346gg765jHRGpk8gnpvDzMLt lVhWYeo2/JE5hOJzCKdo8Olaj97Vw/tXlWQ7g/bN20u6otywFbaN2+F+cgeC P96BCI3oU3R96nUEn9qGkadehXPTFni2v4XRD4/gVqLUr3atNIa6/FyAnr2M ojxkVwsYaSUMrCQ8rJ2C6KqR9CaCnHkKOcskMjaiG+RYw84sQs4YF6ifyuX+ r2O6i43+VqAeqvdI3d8/g+bHN0PEWpQ8sRWqDdthp68w8uOdCD+1E/GndyLx DF2feQORn7wO/zOvYfjplxH6JfnhA8dQ1OjuHWifzS1gQMiq1bam0VYWh6ku BZ+UXIA6j6guj4QhjyTbJyc7nnBkEHGSrguR8JFBtwCfw8JdHeWN6Hp5D5of ex6tP2LNH16DesPrGNy0E76ndiH89Js01V1IPrsLiWdZQ5sdCDy7Hd5XdiN0 6AxCB08i+PEvH/gDsQB2jVr5HNL+RralkUD96SiczWRhlSkENDRBfQphM1lZ e5JrQswOTrEqbN7hCOsBs27SxVga4hf3oIFsZ/NjP0Pn49vInOyAjSbtfYoV 6t+N2LM08c1vIv7cLkQ2vwHf5tcRP3IeIdb+5fApmvihr66VcYmXmIlsyW7E Cf0niA5HOSNja/dgmPTbTSvbQyvbTat/2MknAw4RYVxaWhbYXETwB6Od3aj7 wQuo/+GrED2+HX0b3oD5x7vgIoH6f0LCe3Y3wpt3I0LzCz73BhJkCOKsDD1r fHL0FIKHDwvVU75O+KSI9uo4JASmr56NQdMZhJFmY6bZmGk2JtbcgyywLzyO +cUvBI4eFfhc984P0UJSaXxsG2Q0C+2mXbA9vRvDNAvvs3vge45m8dpeZPad QvbYRcS4+hM0i2OnUDQYeFv+IHwjc2hsy6O51g/pAGFvMv8y1q/Cx0on3X57 7Yc6Kxqg3vsJevccwcD2A5DTo1HTJIzPvIngnkNI7juN8WOXaZQhzYpinxDK PBw/ieV0+v61oZFVsdj70NXye9yZyHP/enf1pz6C2XgGA+99QmbkLFcHd1io yh09cgmJo5eQppE5RtfjF+92bTh5BummZiGX826u7+rr+ljD6nCHznIHy870 6unEuMtfwnalGb3vf0qY4BwsH38G10FW4/AiQkfKEDlK02LVPk5cxOiJz+A/ eQ4jJ85gKZMpndRa5yvW93sMBHPQav0QNVtQfU6GCzsbYP+nzZgeW8DP+T+K CwpkLm+F/INzUO7/DKaPL2KQJuI6XAYPTcJLk3DTJJw0CceJs6x9xJdnbzyE 4vQCV4qpm8aA2AJdK73/rBvVjx+AYdt5aMstGBb53uEnkOAuDxG7sUK87zzk By5ARR+uO3wRxqMXYaAP19Hj9zSKMJfOPrQqBLH6GVgNvM1jgeBS3viwcBBa s+EXCFUpuFQRx3ULgh1eQRdTwtfwamwIau0I61mWQNjAztMV07mVr8bL+5vr 5b1y5TJ5u0y89+i0wdHugFfkRLDNhc699YjtPIKo2ImQyMGFekZqjIhInEKk ce5eRPphWsNOsipeeMQBjIpDiHVG0P5aBSbPNSItC7H0YEQ6vRhtsyNYr+ao ubCwlwQpzU3NQC3WrGRhDoljCLSniAJlkO7OQbz5HGZuGpEnpspYarwnipDE i5DYjGIgtu5uSXY2kWUitvlgbItjWEx4SlJAsmcaQzV0992VKPYTCVVPYYyI W2KAqIeC9RgeIpLXs/5uPoI+LYPQtIRgas0QoSkgLJ9Bum8eijNWZE+IeDKj n8OYbhpJ8l4hFh9V0vz61MLdivdwtLTM1Q1O4oJRmFvH4JZMI6IgxKtcguSD PhSbrZgkejBpXMAY0YOEvsB5l5DBz2I1JRnOrXvmpWvSxUM9Fm02kbVzSYsI 9c5zSWyiN0UoEtkqEMgumBaQM81yhVxD1jSHJoMG3R+5+2yej5ioayIw0OSH pVMI9hahbxyF8qAYE8YswfcZQmVFLlkgxqExmryD5Wzk1tz9XhEhPhNdVTkK bQuroTgGj2Ico8oJcrpepPQTyBjHkbEQQhjMEbpJ89HOIZ+gqzNrPeJ9gkec yS4S8wigvz4OvTgJhywFD3GooCrN7SNFTSlE7awuFjEGRhcJahTyU6tvek/j +cian7E9edm1GBRsT76DHEs3cQxyNB49f6SXK0U1zJcKDYVzpZ2Q2XutLz4z b2psGYbecUiI4fQTs9HR3Yx6vl09a4bFsssz+VkIxup2CbCy/JUQAdXYHKIE WKOZOUSyc4Jx5yb79p/e/+n9n97/f3iPP/tfB1+s7g==\ \>"]], 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.1], TubeBox[{{-3.06135612, 14.225857328, -0.687860264}, {-1.19997601, 12.260542288000002`, 0.315584242}}, 0.1], TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.1], TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {-0.196531504, 17.549885362, 0.098265752}}, 0.1], TubeBox[{{-5.827914984, 13.47374638, -0.31369451600000003`}, {-3.06135612, 14.225857328, -0.687860264}}, 0.1], TubeBox[{{-3.54323625, 5.91484238, -0.262671914}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.1], TubeBox[{{-3.050017764, 3.314579404, 0.852266426}, {-3.54323625, 5.91484238, -0.262671914}}, 0.1], TubeBox[{{-0.438416432, 2.450974622, 0.013228082}, {-3.050017764, 3.314579404, 0.852266426}}, 0.1], TubeBox[{{1.49288354, 4.40306158, 0.901399302}, {-0.438416432, 2.450974622, 0.013228082}}, 0.1], TubeBox[{{4.221647884, 3.673627344, 0.2834589}, {1.49288354, 4.40306158, 0.901399302}}, 0.1], TubeBox[{{2.010668464, -3.8852766560000003`, 0.268341092}, {-0.149288354, -2.076808874, -0.287238352}}, 0.1], TubeBox[{{1.45508902, -6.47231155, -0.8503767}, { 2.010668464, -3.8852766560000003`, 0.268341092}}, 0.1], TubeBox[{{-1.084702724, -7.36048277, 0.166295888}, { 1.45508902, -6.47231155, -0.8503767}}, 0.1], TubeBox[{{-3.085922558, -5.415954716, -0.570697252}, {-1.084702724, \ -7.36048277, 0.166295888}}, 0.1], TubeBox[{{-5.7579951220000005`, -6.164286212, 0.23243629799999999`}, {-3.085922558, -5.415954716, -0.570697252}}, 0.1], TubeBox[{{-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}, {-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.1], TubeBox[{{-2.953641738, -16.206290176, 1.3020212139999998`}, {-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.1], TubeBox[{{-0.5102260200000001, -17.183278518, 0.153067806}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.1], TubeBox[{{1.58736984, -15.253868271999998`, 0.60471232}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.1], TubeBox[{{4.130941036, -16.060781274, -0.489439034}, { 1.58736984, -15.253868271999998`, 0.60471232}}, 0.1], TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-3.06135612, 14.225857328, -0.687860264}}, 0.1], TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-0.196531504, 17.549885362, 0.098265752}}, 0.1], TubeBox[{{3.2824540620000002`, 11.481975175999999`, 0.863604782}, { 1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.1], TubeBox[{{-1.7139814820000001`, 9.958856019999999, -0.999665054}, {-1.19997601, 12.260542288000002`, 0.315584242}}, 0.1], TubeBox[{{-1.7139814820000001`, 9.958856019999999, -0.999665054}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.1], TubeBox[{{-0.15684725800000002`, 19.828894918, 1.5476855939999998`}, {-0.196531504, 17.549885362, 0.098265752}}, 0.1], TubeBox[{{4.257552678000001, 16.682501128, 0.196531504}, {1.846262302, 15.730079224, 0.978878068}}, 0.1], TubeBox[{{-6.224757444, 12.360697766000001`, 2.127831476}, {-5.827914984, 13.47374638, -0.31369451600000003`}}, 0.1], TubeBox[{{-5.854371147999999, 6.865374558, 0.7899054679999999}, {-3.54323625, 5.91484238, -0.262671914}}, 0.1], TubeBox[{{-4.958641024, 1.664848606, -0.139839724}, {-3.050017764, 3.314579404, 0.852266426}}, 0.1], TubeBox[{{0.20786986, 0.12283219000000001`, 1.216983544}, {-0.438416432, 2.450974622, 0.013228082}}, 0.1], TubeBox[{{0.20786986, 0.12283219000000001`, 1.216983544}, {-0.149288354, -2.076808874, -0.287238352}}, 0.1], TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.1], TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {1.49288354, 4.40306158, 0.901399302}}, 0.1], TubeBox[{{4.418179388, 2.641836948, -2.218538324}, {4.221647884, 3.673627344, 0.2834589}}, 0.1], TubeBox[{{4.236765692, -2.898839684, -0.9297451919999999}, { 2.010668464, -3.8852766560000003`, 0.268341092}}, 0.1], TubeBox[{{3.42985269, -8.133380704, -0.024566438}, { 1.45508902, -6.47231155, -0.8503767}}, 0.1], TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \ {-1.084702724, -7.36048277, 0.166295888}}, 0.1], TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \ {-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.1], TubeBox[{{-2.443415718, -3.101040366, 0.6557349219999999}, {-0.149288354, -2.076808874, -0.287238352}}, 0.1], TubeBox[{{-2.443415718, -3.101040366, 0.6557349219999999}, {-3.085922558, -5.415954716, -0.570697252}}, 0.1], TubeBox[{{-5.775002656, -7.141274554, 2.7646691380000004`}, {-5.7579951220000005`, -6.164286212, 0.23243629799999999`}}, 0.1], TubeBox[{{-5.699413616, -12.625259406, 1.42674313}, {-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.1], TubeBox[{{-4.9775382839999995`, -17.903264124, 0.68974999}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.1], TubeBox[{{0.105824656, -19.494413416, 1.430522582}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.1], TubeBox[{{ 0.857935604, -12.948402552000001`, -0.602822594}, {-1.347374638, \ -11.882597088, 0.49132876000000003`}}, 0.1], TubeBox[{{0.857935604, -12.948402552000001`, -0.602822594}, { 1.58736984, -15.253868271999998`, 0.60471232}}, 0.1], TubeBox[{{3.802128712, -16.986747014000002`, -3.01411297}, { 4.130941036, -16.060781274, -0.489439034}}, 0.1], TubeBox[{{1.780121892, 13.288553232, -2.326252706}, {1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.1], TubeBox[{{-1.46453765, 12.045113524, 2.382944486}, {-1.19997601, 12.260542288000002`, 0.315584242}}, 0.1], TubeBox[{{-2.745771878, 14.543331296, -2.7401027}, {-3.06135612, 14.225857328, -0.687860264}}, 0.1], TubeBox[{{-0.020786986, 17.992081246, -1.938858876}, {-0.196531504, 17.549885362, 0.098265752}}, 0.1], TubeBox[{{1.791460248, 15.539216898000001`, 3.0689150240000003`}, { 1.846262302, 15.730079224, 0.978878068}}, 0.1], TubeBox[{{5.459418414, 15.403156626, 0.574476704}, {4.257552678000001, 16.682501128, 0.196531504}}, 0.1], TubeBox[{{3.016002696, 9.862479994000001, 0.126611642}, { 3.2824540620000002`, 11.481975175999999`, 0.863604782}}, 0.1], TubeBox[{{-7.06757524, 15.151823068, -0.5121157460000001}, {-5.827914984, 13.47374638, -0.31369451600000003`}}, 0.1], TubeBox[{{-6.419399222, 12.124482016, -1.8103575079999998`}, {-5.827914984, 13.47374638, -0.31369451600000003`}}, 0.1], TubeBox[{{-6.147278678, 10.567347792, 1.925630794}, {-6.224757444, 12.360697766000001`, 2.127831476}}, 0.1], TubeBox[{{-0.42518835, 19.432052457999998`, 3.2711157060000002`}, {-0.15684725800000002`, 19.828894918, 1.5476855939999998`}}, 0.1], TubeBox[{{-1.447530116, 8.099365636, 2.528453388}, {-1.4399712120000001`, 7.723310162, 0.470541774}}, 0.1], TubeBox[{{-3.692524604, 5.793899916, -2.350819144}, {-3.54323625, 5.91484238, -0.262671914}}, 0.1], TubeBox[{{-3.16529105, 3.380719814, 2.949862286}, {-3.050017764, 3.314579404, 0.852266426}}, 0.1], TubeBox[{{-0.362827392, 2.294127364, -2.076808874}, {-0.438416432, 2.450974622, 0.013228082}}, 0.1], TubeBox[{{1.353043816, 4.663843768, 2.981987628}, {1.49288354, 4.40306158, 0.901399302}}, 0.1], TubeBox[{{5.47075677, 5.349814306, 0.432747254}, {4.221647884, 3.673627344, 0.2834589}}, 0.1], TubeBox[{{4.934074586, 2.279009556, 1.68185614}, {4.221647884, 3.673627344, 0.2834589}}, 0.1], TubeBox[{{-7.1015903080000005`, 5.610596494, 0.476210952}, {-5.854371147999999, 6.865374558, 0.7899054679999999}}, 0.1], TubeBox[{{-4.603372536, 0.015117808, 0.489439034}, {-4.958641024, 1.664848606, -0.139839724}}, 0.1], TubeBox[{{4.386054046, 0.844707522, -2.067360244}, {4.418179388, 2.641836948, -2.218538324}}, 0.1], TubeBox[{{-0.279679448, -1.655399976, -2.3300321580000003`}, \ {-0.149288354, -2.076808874, -0.287238352}}, 0.1], TubeBox[{{2.30546572, -4.03456501, 2.339480788}, { 2.010668464, -3.8852766560000003`, 0.268341092}}, 0.1], TubeBox[{{1.419184226, -6.374045798, -2.946082834}, { 1.45508902, -6.47231155, -0.8503767}}, 0.1], TubeBox[{{-1.0091136840000001`, -7.528668384, 2.252553392}, {-1.084702724, -7.36048277, 0.166295888}}, 0.1], TubeBox[{{-3.08970201, -5.13060609, -2.653175304}, {-3.085922558, \ -5.415954716, -0.570697252}}, 0.1], TubeBox[{{-7.03922935, -4.50699651, 0.130391094}, {-5.7579951220000005`, -6.164286212, 0.23243629799999999`}}, 0.1], TubeBox[{{-6.540341686, -7.5966985199999995`, \ -1.0884821759999999`}, {-5.7579951220000005`, -6.164286212, 0.23243629799999999`}}, 0.1], TubeBox[{{5.516110194, -4.136610214, -0.7086472500000001}, { 4.236765692, -2.898839684, -0.9297451919999999}}, 0.1], TubeBox[{{2.987656806, -9.785001228, -0.587704786}, { 3.42985269, -8.133380704, -0.024566438}}, 0.1], TubeBox[{{-5.784451286, -8.940293706, 2.647506126}, {-5.775002656, -7.141274554, 2.7646691380000004`}}, 0.1], TubeBox[{{-1.056356834, -11.44229093, 2.515225306}, {-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.1], TubeBox[{{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, \ {-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.1], TubeBox[{{-2.7646691380000004`, -16.021097028, 3.3844992659999997`}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.1], TubeBox[{{-0.780456838, -17.521539472, -1.901064356}, \ {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.1], TubeBox[{{1.83303422, -14.91938677, 2.662623934}, { 1.58736984, -15.253868271999998`, 0.60471232}}, 0.1], TubeBox[{{5.472646496, -14.44695527, -0.48565958200000003`}, { 4.130941036, -16.060781274, -0.489439034}}, 0.1], TubeBox[{{4.983207462, -17.570672348, 0.68974999}, { 4.130941036, -16.060781274, -0.489439034}}, 0.1], TubeBox[{{-6.993875926, -13.866809388, 1.34170546}, {-5.699413616, -12.625259406, 1.42674313}}, 0.1], TubeBox[{{-4.457863634, -19.532207936000002`, 1.230211626}, {-4.9775382839999995`, -17.903264124, 0.68974999}}, 0.1], TubeBox[{{0.413849994, -19.097570956, 3.150173242}, { 0.105824656, -19.494413416, 1.430522582}}, 0.1], TubeBox[{{3.509221182, -18.751751098, -2.93852393}, { 3.802128712, -16.986747014000002`, -3.01411297}}, 0.1]}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{3.5738360983900347`*^9, 3.573836219820648*^9, 3.5738363748381205`*^9, 3.5738364080193787`*^9, 3.573836520417576*^9, 3.5738366466685977`*^9, 3.5738366841554637`*^9, 3.5738367392703605`*^9, 3.5738368235417085`*^9, 3.573836925909088*^9, 3.573837085684569*^9, 3.573837201187172*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQd0VNe57neNAOMWO8nNTXPqvUmc8uw0l9g3N4lfyrONHYcb94YLBgyx scEGYxtjY8BGNEmAMIgmEEggiigqqNeRNOoalRmN+kga9ZFmpJE0M+f9e586 ozOD7PfWemu9lbMQc+aUvf//33/f/94zf+HKxS8tX7hyyQsLv/Pn1xe+tnjJ C29850+vvk6XZv0L8C+L2d93wM4FQP5PoH/CEvYfu/LP83+e/78/X80+rmLs OYtfmAWRVfkz6BEfeot/hPndouMqnTfmSNc8Ho9yrSVkK3r9zpaulaS3YrLW AOfAoNyKCnBY0BfDYGroQodjHMJAM6aslubPDMEcqbmBYQ9Mg3TNRX9dJo5X k7a1OYGtXZk6s6kVAZc76dok/TXkQqBWLboDwt+fp7zmQX23ANcEA6YZkw4H zOJrWyTU6iwCapx0e9gOb2tTo3h3gw4ss1QgZ8NNLVYyNN30Z84Xewr1Lvt/ nt81hlNGO51P0V92AvrTM+CjZkxiMx+wj7Bg43aVBH5mlRsV2aUQfvtXCAX5 2nc1b7BjdohWGPRrb/8HbM/vwlRTvdTKh/6U5Wcqu3px7JFiCHXl0H88CJ8f 303jdjqFf6sNTrCrpvVYZuxB77v0otcjv7hTutVl60fKs4UQWuoCbzHMzu2l LpPOybcipFtJiS1wbjrFeanG/1aXbRjVy3Lha64NvMUajLjfCCHnlHwrUrp1 cJcZUzGH+CBW+9+qruyG9Y10TPR1B97ilPx7CYSaEvlWlHQrbjcx6+lU/q3K /1ZJkQ32d1I5NQJuud2TSH6GUaNevvW0zkjepkHo7F7q6Nx5+fGnPrugztK0 Zikq5p/fVPq6SpFMmQtPHbfC8WESJ37l/3GvXbYBlD28F1MDPfiGvs4KLkTs 9SEULrqMpvw8GZin/WGf3t5sBWEvjt99GIKpWOw6zJ/MYRoRe/GufDQcO41W q7Xi/wql3/4fJyFcSBApreqnq1QAZ6PZasUjN3+IxantML14D0Z67Sj/3L3L ZIz6KAuTJxL5t69LPWm1jXyuUWBzkZmeh5d/FY6FOV6YI5ei48geDDaa4XKO wRicU+dKfebnmtH78g7O81+XmgwCujS8St/Xoqy0Gi8+/hF2bj2L7KgPUJ+d TeJNLxY4IOyJw3ixEU5bF5wEi0Fs5hUtd/1Nw10iScL8kFUu3IiOtnbsWjGE mOOXERt/DuXlxdSsB+YeEuM+AZYBAWN07mtkir8PvlMpcBaVYIi6p1HN9++d MVj8PSKDfV2fF6/yJxo94HCMYMfz3bCTifIxgOUHpCcGBtzSN4lVGnwQ0hvh zS/GcIEBgwRKTiAcHqy/NQFCcoJIBQ15/ceBPZkc24N2Mm4jrhEFKD2oaWS0 w9YyJKCR/rr6BUwxe1/lpQ6LMJWaDYfZjEzxySd05ULDKm63W/GoZDbetzUH kweO8m/f00jliT1NsJgEDI27w/Qh1bNnsiNgbXOijga1eohRlVqxXgHKYNfC 0NJkRd4374Bw+61ML8pwlxlb0LdYZPvvauA+HGVErUGA0yfMCZB6fefQ4xWU a+kiiI8pGktPP8qA5aTnoPw3T0KY/wg8RoMMWL2pHeULorlcfFe6VlHaipKL HCjJcs9IE+drwAnwWwJ9j3nE3A4ciSqBY+Un6Gwrh6c4FlPuCS4pCZKkfEdq qdnagawY4kOfIDHHZ1J3ElyPB/C7Hn2vJpvciprHDyM5tQ4Wpwu+lkz0m5vw 4a1xEM4f/bZEDkujBQnhBBL5fx6v92odjVek222YRoDlQxTqeTj8O9LF5YWo bpzEORJ6tz0FiY89gujv/wIVu3ep9piachFsMWs8GBwT4PUJ9cG5VezxRj9K BWraE7uM8Bw9zr87yelPJM3WN9KOzqPLYFz2KPoaTbJJZgO3fWE3ekWt1CC2 sTCodN2gXCsuakf3kt3cXWDfoyNisSSqhixKDozhq9C+9zic+xLRnWdAr63n 36QOmRo4v78b7W1cE0nO/fNBO7yJX2PuQNbDx+G1ip7t5ZQyPPPSFkRv3o7k /R/B0DSB6noBvSR87vMujK1LgKPIiBFRf+OLfsrFAkstVy7mK/UuhgfsrS23 X4Bw8iCxihWpnwooN5nR0tHJ78nPNpJ2LaC/0lYBzRUCRjN9cMfWYSy7BD0G IyMDEVCF5Pi+MlQXUSzkE6TI6dmZyIOq2g9FlcH57iZEvtaHYQp7PIpIXUMj 60YDDXxFB0VTRJo+RpokJ9zvH8NwrkEmzTUS7iWF9YqWkILDOxReV53F7+mI huyOlRk7UP/sATQVNpIUea6TqUIAlNoIEKJMK6NKhg8TR2oxllUCW14R7EQV OaKoMzUhc78AB0FhFaG4feYqS9bkTJpkU/M9peUOHP/zSfhKc3CdKrpfoIfd 0B79Egu51x3FUG4RHDYbl5L4vfsRQaKbsNkt64nPAaKs0Rh4GZsK4TCewr/p 0FQ2e5bGJpzd4cLGZy/Deyz2eh1tHCYNODuymgSUEPe1ltNIEvfFLY7GB3c8 ifOPP43yDasx2D/QHDi4evZJpuTZgl60EIEmrOX415nwpn88zYR9+9IBDJMS SkpsQO/ybVxfBKKhdnmN3zXGw029Au7+/nJsfGItLr39Lio/eRWO3q7mkKQP jFXDuCU60kDc57TCM+H+8mdDhg3XyZh2tLUIsA90odzYhNqd+Rjr7ZIkOnCY obr7u3cnYsWSrchcFYnCw+sxWleCGYCvG62H8RxFHNHE11/HwPpygBhep4tS dWULjFkCJgTZH/ShzdbNGrhBglL7mvzqbKlnhn5WdhnO33sARcnF6B+qxXhH qzWQlcKUMz2bqDgpZgrGiSN8nbm6nHBVAEr+7H6VhulbrC2I384V6I36lFQl SgToar8h3fILslHkx8ZaBQwPlWK8vUXSff8ZoGl1eETxxXZVknalCH904W3w uN3X6rCW5lUR/mv8WpPPW602jGbnIPuMG4MjRCGfcJOOEtZKvPz6QXKlfSdP cfY4yWxrXx7ad+1j4iZZubsVrRfceZ4LS0MX9pWNwLd4CVzLd2MgIx/DkhWd dyVh8xv/ZouAQecgf+pfVY2r5yxxhwsFuRYMvvoxfORVt7cP4EC9CxPZ8RSQ ZWpR0E2i3eAHlDy+6Xvj0LMhHMVmAXUFAvrPeTGyvRAjWUUUFTSTfprQ84j9 dccsFJNtLE4jNhsbE5X1NJYMdm0ueeQdMD8RjdH+HpSXWrDzb+swsHMvYxQ5 73lPSFU8W1JFbrLvjXay5WRGK8lGdV/0wbHXhOGYs2gnO8Ui9pBhnX6ekUXG cVvIcxodx6jR8FV/edFI4Rxywvpw6Y8HYE08gIMbSbuLVLYEYhEkPSOy/PWc Q+sokCwnLi0nO2W7TIr+cAcc+5L4K72klwJFTc+4CJKBuXTYxYXlyL48OD+N QXAUxOzztl8cQ8PqU+jp5S4v/CRenxG+IN1jrkxJM3P+SPdkKEkHliXQMHWY RK/EI02wkskZHnPwiLHxr++wiPGrIaQvEL99H2XA/XE03D6f7Gz8NVCUrJ1u jSiFYeDkBBzrLmK4qIycl66rONJXo7LUiJzkPBRdEjApNc/SKOfvDMdEi/k7 EooDAwNY8nABhldwQZQ6fViHw8Xeb+TnLMooJ7+jrEkVtNEdBYjYEoEttz2E pMdWo7Uwj4+XLJwf/HQvfOXF39YMzcmDvTh5ohqWp/ZghARG6v1vQSl23TSK yWKSWjKA+T9+GbueWInsN1eg9oPn4FUj+L1bM4hZDvBv35IgqKttQWk2IVLX jtQ/xcDXVCVDsEB6JLA3VWhFI7l372ls+scWlG+mmCRmLYarSuUeDYYmNDz0 Ls8ZqEZbnSCRHHeWJtr3vg/jXpFKEb86CqE4G3r2TX618MpAzpFMhsMxipjo NIyvXIeNhgZyhzrhq0nDBAXrjBvO3LEVUy3mL+mLcOCcCQPwzNF+dPeIosSu xRDL+mIPSgDrpyr1rjFb7pWc9nQNq3+W2bZ5MBQ1YGDRZnLxJpBGQYdtfAKC +RImCb/3RYZDSORU8hlLSetnkM9EsicPYsyuIpijV0mcPx2MULkkRqzs3aRt zPXMKqdrJEtlhTmKtpLTCK1PbMHogDiLWU26p3CUmu04ifBfr0HaJ9vR2tAo YuQXN7BjYGAQ0e9wVtJmqMfGxz8T/HKT1fU+9LPJsaoqBv9lEf7HA1gi8LO9 zc7PfUPdiiFxjXlgGCY1NFSCvBceRNbf/4DRXvtNocZFvHyCfHCbjTPbV3RU 0myV1cNQRap3iBS2UMHnPtLEp8ScytWBnUiw9vBzb1ud7C0aS1uwtnYMDRWl KH13GVqPHII9qxA9DWYmMzeEAlmErSiNsZDkAgWzzaGENgz1NOwOhkklx0Sc fcKT/EO1GVqh5BSvypUAuR5mCiOffvQj7H9vCzKjPkQhOfNtFIsPUozoTBjB yDsXMHQpB515BgzZ+5hjJNrrADtKp+OalOW/KiroKoV55ain1dqB5A+rMcoB T+dgpcwMcqHaIEF+EwyFddgXmY9TFy6jyWrmzzAdbyWVY+4jZd0twFRPpqyY DO1FL5wHzBhavgv9OQb00SD1EzbXSsNxYn8bOjtFVfU1iRf1+AD6LtMs6ZXU 87nwJcYjr0rAGMPOmMbAShbffWwmDUu4XziqPMIsY8zbXpb9k9zhWXCOUSQ/ oA175qIvV3WeHSnEiHnFcNjtfMRkSXU6nbicnI98Zup9wtf9RynYxNkcpBFi wul4/i2/htiWpftrcpM1kh7ID3NJ31+AcOKI0t6xfZWwt9BgOAYkwt+o9Gcl 0e100ID1iEh0lpGIphELxvbCsWo/BlNy0ZyRi+OHYvH+zXfh2N/2YKBv4Jsh ZCT4QM3FoagzEM7EK9cLagV4CQSh2YBLYgvPSah/ujUVni3v8G9d5M6l7Cd2 FITrdAgmqO4XS2tVEZEs9VLIT0BGPrgUWcsWo27tw+QYdvOB0WZ95Ga+ohDx KqVJrd44HHUawtl45VomiauXDYi1Hhf9gS8paoTr9fcxQUYvKdaBcSfLInv1 gFcopg6K9tNJmvneO9bw87TNH6Ji9xvwdFB35RvgPbYE/ScOoPIn98G3K+rb Qfj8SFQihKQEmReTq+kWgT1UnIfBJut58bkF+nTVzC3OJpe5CX0vbYapog71 +cTJXq+ULgiC0k26KLFPk6mJnze9sh/lxfmwdnlhGSLX3+WBzdWNsa48CA89 zMfnWzp4KW1lXgqToGOPxhe7kP/wKxDu+T28JL9JWuRmblirqpph/vsmnNlc zyaEgtiUgBlFWR2zQovU+Sfgba5VLOUgGf6KcznoOl8JofS0Ounv539dTtJA JoVGG+KRfM/z8C14lgeoEkL/rT9amuqBMLS1daI9sQZ9xQ1wjAxcrwftbL9B 0ZPgTb+iLvOSlUA4q4TEkM3J1pdLcyX66VR+LT1Jc01EaE94Ax6MIMeppgHj LhfOB0copC6ZxZVCzHYrtx1XygF8utWAqaOnlPxBipHaIix8tlYJizl+77LP 4yQ2UDU0S2Hv2dqMDYkCCWX/xc8N95nDpA9GuD4Qw45ZAYMi8kRxUQu6luxn 0Yk8onyuJIdaq5uEx9b+Vf+XlWlqenZwYAjzb23A7myuNGXd+rcgGiIE1Eqw VFgNU44o899SRqAfmX89Dk9bo18yNC2fWakuDHb1yLK7/Ifvk9tXyGOK+bd3 IDyXG/1kjXwGlGbIksGZZtkob/jbmmvbbifmqjFKyknsuLKMMaaNOcNfUEky rQZhjgQUi6xf+9Y92PbDv2D+vS5El3GgJJ/od/pCKmgcLbqWm9GKHosA17hD mU/dT9zmTTjDv2nBKy6nd2strPbpCzPUSLKDzpyRe7/2IN6/ZyHmP+jBOqOL 7vgCXe5gzXwqovRf+twaPEbyN5ByXr3LZsP5XXxeVJnTLjd2wk5eHgumr5a6 6e2dRF0lvVtqVPPaV55jYF1arW3I3XYcL/z+PUS8uA4Jxy/Denh5oJzPCN/Z gfiqVJATQ6nHjJjadhquDPLfsvLR39bOilwUN3VvH5xsPpZE9rsKEQaRu+AY xlsbpTTsLNSZvRioo36KL+lOQoigitUcHMvaBphjjHCcJhea2t8dm4J33tyO +KitaCvK4TMzeiiHqZI+iwKiKrRHxPCHIwNZVy8ROltizLrGVlj6KcjqEq9P GcjZPdeFyfdPSm/M4r5SIKGrKhtRmU7OKHUoT+YxbHbfRf5RrRHyBGYuidMk MxXmGl03QVF416FwUyy6PjbBbSJJmiQ3gPSje1J8zNrSjvr6PtQ1MOEuYV19 JbQekynDhOZPv+3Cudp2qfAvmASoakfkXdEXa6FopoL+6ohInTaxC0+hB97T nZhcfwCOixnoyC1EP1mihtpa7F3UxeWcIPy+hu6+4ydUWfYr8MsiM+QjtHxd bZAnZ2XIGEVbG0UvifHHBPHHsJeHD2q5Z40P7jbCoqlO9F6DUFju78ShWryd I4ZbMyUI70vjC4uy2kJBUHWvgGb67GoXME7+tid3Cqe+/WdMPbeKAsZKPcbV szDaFHvfqxG8MjSUc8YIcyybWcEpIly7GhTTPZGPamU+4pdl4cxkxoFlS3o6 giWcplufCmMlFqwng0rDumsmdiHwWrDntDXS9S0DiL7zBUz99XlM1dfpinwo yjFVxI7h5sYQlJuNbpsd2b8Ox+lLwySo3Rjt7pHs01yJ3SySOpri7DbkEdnt Og3lz5L/J7Q4MdLb9yWFn+XwLoD3uADe99thpBKn7BbJ8eCMqNdibebeIfsW PDuv/y6bV+aS6pkMQY05aG+zoe0vr8EzNko6lPmDPUyHynkmhmwzWaGibfGw bVZYCtZRVmkgfEGhCbkdLKJqHWBvyy7xicMVWHNZlLQZYf7tGWIp+4IBpA5w nqT5EaOxGiNPvw63Z4IDWkCDVxh1GBE33wprURHMlTXigCeKAz4sDfiXtMgx e9bYwOhxrf+AB8zme1BEuvDhdwX0e4Q9Is4PhVBK350hxkGm0GYws1ZG6HtW vSFduxplpRVY8ZPHkbDgGRQvXoD+PJsypGRtZGeqomIKA03UoiVlmhUP7CJQ nLmLfvAo1tzVilP1Lm6UJVqslPguAGA9wP1QDxjaq4I0k5WSC+FsnAxIVaUJ rz/0Nk69uQ5lW1ahraJAqoydhdRCYsxW+mszT5vuV7sIXIjhQaOpEQ2fnIEp yoiG3y+E9+gxRItvrfKHlJ9de+URWnrLy6THyxTymRta8edHPkTjo6vJxYjj vcr1vJy0BdRM2wTcPd3XBFBkepkFeyE/KQ22gyUQDB74aKhbHG7UlVezeQ0J 8mdDCNT3AoijfhONyoYfLiYuEQvFu8kJuP9ZAW8lGND795WYnJxQigm5HJH+ EDpGGEdcE7RZGrekTPRtLIDQIIqia0rAfi2kV56/kZWekyLW7vJyTgcxufqF QCyV78zPO/LTpfC2lnOtfWT/AK+iYNXog48RNlMu3KzBpqiGyYdVxeZqheTm Ris/d+23QOgW69emBEGc2ZMyZDOdo5nFi7Db4sfgqy7XzCNryhquRv7tyyGM 9iKedO5TJyksoRDEaKzF6DMrGUBytDpICq6biXV9pmj15OjQbGqAZetFeNJG ITjFZg9poQ2VFZuFjDzSeCed8HW0SpHx1dy2WO59FaVpp3D/GgF2yZc1GCrh ennlDUojeqjL7JGURYQj785HAiKqWdFMG5Iuo+UNCp0rfeQskQ82NM7diCPB KRxqUV1SKo3RyS5M9HSLM1CaxLS+7bHZelBw32LM/5/jSOwW5Efz84wYX75S ksYryr4f58s3GB/KN2UNH8tcDqKDu9nC8JcVYK+9D5kbYzAYTuLdLEqLc0pM EAfkucR1SXhGH6hQS/640jlF6u+cEc7evhulm3piJC/Ds1qtWH7zL/DULWVY lermLoCMXgGRaHJFSBKFNHezuEvCDp9P9pKv4QKZbCChPJqC3d/7JQw7tqH0 g1iMH2mBMMiLsZgEXh/EcoQYm+0azRMkmTJPoZSAy0n0Wnadkn+ZARfKo8kI fffNC7DhD8vwzM4J1KbuVwd7FlIu5MDz1pufg3BqLl9ehpGVno3Xb3sOJ594 CWWvPYH2skr0kZp1ewTJb/rca42aT2RitKsLH4svvKbVmOfp8YxCFt7o1yeK Y6m9xlKOJcnZqNtThaf+uBkbX9qAlI0fomrPKrnT1AvZ8J04ptJFU44WUvqY a8gOeXLQWFqN1xa8h5NvfYCS7avh6O3GTZ+XGKLc5JvIoR7vw1hP92bxnRXS 3UFS6vkkVcKlc+zJoCWHUqrESmFwaXga2ne5MEh2sY+UXQ1ZmUNHLyBqezQs uTUQOlsUgLJSCuA7KRLl+hASq5ccCSz4nc1HYf+uXixYuAtHf7oM7UUXxer1 AHdHzvSxudBCsnuCm6O+SWz6damv+gaKs074yCHJmOZ7iZXrYt+N62r5GSvU 7ZnSOjpzxdVOLAI22eHo6ORXj0QlQEg8JjJwQHUi1Ao/hbQa6yNmF/dHtSMq nxQFy63+6FXmHH5phjLsl+PsUTDfKPb6hvQGs5O9CS54q8tE11CeMClMSkdj TC16zqlukBZe/+GaI0YyRXS9wc796wNbY4mTEr8SgNa1SE/N9WuE0Xd/pAVL zotZcfb9lZ+8AV9lSWABkCYXJOKV2UVtTAwwvD4SIVop4XU+R8DIyR5Mkv0U 35gn6gLi2sp9hWjfM4bBRvIRmPs5PMVbU9EJWvTCHjMwy1fbiDeePIvxfru0 bHMu8jJJj6RdUJCKiarC80cFjE26lAH6dFscJg/s5d/UmQKVKWZpkLvEBm1i kCG3QYucKMcJZ8m4nisjxdYjyoQaHKdtjIN5vQl9JayoTkDnBC+t+BxVj4OD XrSzOLrsMmv9G9JYx0Yd40t2RCzz8GgEiYPbJ6u/qG3HMbJLRPIbQVufXqXI LWa3iLQ9J4uz0QcimEv9aaVRBdfx11KJSxtPZqIkPQOWUiM5Q90oIg42xzXC Tozl6OcBMKvoC7K2K5QRqbP4MFYv8KDoGxInvPzTReTrFSJm13n87SNyYidV v99gqEb7fYvgIXcgOAH0Sc6wicrtwPiLr7Fl8RL+r3zWsZvH5wOeuPkBHPjj o8h75kHU72jAEKs1JqM6OClSW55zCRTqEM3LOGaWsCypD56OFo2NCzatI8bg S7/zMA4+uQwPkvPd7lZTZdVVZpT/5mU+TfE1ZXxDLbg4GHMGPasSMGapx+cl 0RwKiixY+LvXkbhoNUo2vAFzbipbG3SNDrOp2tSD0/mSlu/quS4EjNN7FKnw p2/8Hu/d9jjuX0a6xO5UXP5uWy+Sb30F48N23eWygl9yhz3fg8a3GyAMd4ei gT85RRCiNu3D6HtLkfbpZvSTT6FG8+QSMfVm7mPSd21Q7KbPDbGCzPLkLPz3 z5dh18IdSE5MRk/eJS1y+368nNjFHGyduxy6sdbSXjZDsFtkvJ4ORlK/sfkM io1HED9ehK6ieHb+zUD8q+tZMuKaEOSUOJ35IXWFpWjZmipbzpeWR2L7mq1I 2bUZfozMOn3rJyvgM+ZqlL8aNWuf2/QAEaC5yp8AMy/t0fqaU1IxcUiSzOKT e45HF8Ix6VTmknv7JtAm6X+RGF+cBoJcjdYUnY7Rgz3wNotgNTk8fKEdO2oa xCkTobZBBkVG9vmfrIS3KJd/+4F07djOJgjShibrxReCRIlBtbY8GF5bnbL0 0o/Ixzd8iokDb5N1HlfSvOU1qp6fp+FzhmILOQ4NnyZjeI8F3kYRLabzJ7wa QPzrFUYryHFradT2enBnGgaykv2wPRBFAWFR1efEVh7p3v4ptLCdazp4Hk22 cl02O2rveBGG0ip4xoa+I7XAk41Me7da/DS0fAxsr4SnVuorlOOgrGLSzEhr Yy+vdE1G1lDUAeFM5XRkddIPsqdX10TqhfwYoTGPtSlnAQy5pfCufgHx3ZOY cLsDiiynbWEh++bDXT1y6plv+UEhS9XmWPRuKoGnnMaTOhrycVd0jn+LYf5t /1gCtLqyDePRtdx4SRg99RmZNUjlnAw9S7/E/mgRKqPTUDMhfC2ELpCXPHFF Viyg42gahgsLkb31MLrX5WPSQJg5CUMv94Wu0VHmclPsM88gJW0nJoIh8EPp Whcp+I4P6+Cw22QyPK3QL3B5mb5SZkdGjdR7U7lMmsbGZgw9vBBb420Y9vq+ Foxd1Cmkdpz/wYMQfj8f3hYy04Rrn0tQ03uayEvESpJQUk4BI6bIbWslqWOH uEhLniJh3FPwagOcnRYZ4yVXwK6IZTrJ//J1N8uXE8mXdkcuwlLyYMecw+oi 1yCRiJal06OPYSxiLxO+LwXoHxkBR/kVvdvEqMuk8Uqn4Rb7KGngDpOM26Jg dNeudjhrZe47Kx9t4aqn8pcvwtFUgKpOFwnIpDRt+BkUm3+tixrhS1or/qLE LtJDmiE7Hk5qtkHcrUaeMjixlQxLu7gS630tWkEguibwMhesC2zzlfEJFBw6 hLF/PEM6zhvo5QdD6uuS5tFek0NPobE8EIeEqDTSWUY/HGLZNlSllVocXlRU hiZInw6KOhXMuiyl2Hk4Iw/C+nWcxgGFa5wHv6XKjDgcLF0gHbJnF68DY0Fu J4Q80zQYNXSWPoNEDTJvHog4iJZ7F0KIiMQfFM4XUMCUea1ZNQc0tpGXeaGL Fo7KShs8sTWcPSQ4XrqSgGm9sM7mNr7Y5l7pWm/vBIZJorzNdSqfRaZN65ct EXLsqOM2Yab9PiDT8yLzv4c4zGHaPmr8++imEFd2/0PwstzrfAUtAUY2YWeu UJo/GplKzZf5Na944d0NcvOnlQFTExZyE+msdLDWh6HuHmXwYiPTKYQVt5T5 ijrYOtpXK+tr/2hEZ1GW3Om5oCr16kA8xfxmFn3WNmLQbpcFMCY8heDI4t/+ LUAStLItf8oqlu0/tfQbd+Po3b9F9f5d664EkN61uSg2NCHtoRUQ7rxTUVNH GK/mZyFA22vKkGbjjq8/iaV3LUH4HS/D9N5CDNv78J4IwhnlNVVU5foxS4MF l+56DsLDT8Nbk8FpcjgyG4Ihf1o1knSI+F4/jSasXvV3P3gPL97/Fh750bMo PLiF2MYH4VIOJgqLyNT3Ya3Y0FkdAuhOkc9FK8lUQ/MgzK5J+OrPID7iCAqi ozmggYt//AC80a/1HFJd25aNoax5BPnkPV8OT8cYRc5mUmtsV6PhXuYwErBH U+EuLmXLdVZrB1C//lAD6fT8VEv7BC52OjFYeRxnHvgbGo/skSAOsYOYND0Y QxKcECmmidicmMyuASsb2IAeSoHLUIx+km9xBR3CddhE3c5Lk1LWT9HKjtGv frQHEXXDMMbuRu3HizFibWYwBFQMyeqeV3TtbkBWFsuSekJmD9X9X9jRNChg lGVma6YgZOZiJCOHry8Ss+3K/pUBLelN+H0rVKfTGbajrRMv3peMFa9sxYlt FIGfyoQ9me3nUobRunqoW9zoO+FsQQA7alp4HWXIPbWm74jZYBc46mOM8yqn MJ6eIc2tfBaUZeVZUlQD2/kLfD/UkF6Tf/lAF3FN+MvDaB8R0GhpgUtaxcj2 3Kkk77MjU8D4PgOGcwo4OdR9EySDrj1YCQ4FcHrVTUGglxUhowdbXjwy6vSn QaCPpxJUPrSczDaEzG7vgzBYCIelCXq1TiGn1VSHmBFm+zIHOviiH0Fey2Xv d3Ov3EwmceyEGU6iy4C9T15jyUh0KKoQ54+T6E4JaoWCXnLyTQ2iAUDqTWqp OUFyKYlWPlc9psg5ZfM+gXlFvTYUfTVt6UhNZQ12vuZCl0vQLJSbw5efmzoE 5FL0P5LowljMaTjtffJKGqbvT+3tgJFiMMekIG9FGyhlwWB5U6OsgubqQidH fUjtEeCcHMf4P/4CwWZDYAoyWOdygWDxkTR4Hf3K9ZrKWkSu8sLu5qQQm5sL F3GBqU1AbR2ZuQteTCRmwNEoLpuUs345GbkIX+qEqZtLgTo7pmKzRoRpqzoA Os5NqBUEfG/NzaSdEi9hZP0xitVLmaqcp/uKIqNz8dYtuyFUiXu8sV3Zdr8t oHdCHG15ttzcSVbSIsB+mUR+02UMZuWrO3nMlubdUnBiJ7G2SB1JRpUtaKcT WO/aXLRYW9FWUY1q0ptZqQRJdDNGswq5yzI7QAaCrqrc+xE5ESU5nHmj3xX4 iHm8XnVuQWPnrkULBQBjB0swkleIcadLUsIeZfvEA9tqOCiDxFNbxa4iAjAI xkrypAiXFuKRsiLSHjEjcMSex4C1NXD9+5XEQn5+z9YU5LywBPvWC+ibFDfG Cl5zoBbO8TK1VgH1JLRjiS0wxybgqW/8HPtu+SU+WtDKF7tPeD3bRCC26yif 66RhspBNLiolGxDngePIZTisLUp0HcDYcvqwMNeAmI8EXonhCVU/cu00erAZ d7YJy4G9yVhzx/M49+xLKD90kE9lSxUsxyRKs/1CLlBYZUmgAGLtaQyUVcKj pt+ZDB/cTFza1sMuBy7IF5FVBE0NC3ZHnMCbT6zHmXUbULFrNSaaecGsRKnj spg0u1FFFsB0VsDAh3lwlJSzdKK8vLK60oTD4QLKW3rQtuATHtLpbQkgkmH6 /jryd5bEi4pOwsCWA+RftKPb5YAjfS26UtLgsttFrYkTWlXOtlCpIPelf18t BuKTuDjJvlyZsQZHtompyva2blT+MRyeqYngkOnQS7ILWRmV8O44yc/N1mGc 6XJhopEihsJ8CaoE/iE6Gkwq6mm8yokd7Qd7Mbz7BNopUDp36AguHD6JY5Fi Xb4skGfv3MZDVN0SiDA/EkENErIyKuD5ROSP/Jw6bNuYjfpoccdrCah4tZmr JQq7UdviQzaFok/fvQxb7nwCqYveQ8OFBNUt8WD3rTvgtZnF2oIgwbJskYxG M6Y2xcHc2ILEA2LN1jbNSAVzDkXF/rtbVmD7wveQvX4t2lPi2OYaMiBv/XiX or+/HEzZywrTZGrF5MbjOLiDNIBP2B4SAJGk8/ha3tV/3QFL8glkN5og2Csw ahE38TkYfoGrWjWdJrOVtjGjsQETG46TInbvuDLO8j4cn/yM4LOW89rHFLYX 7ngnfIY4LPje+8jZtp2JljLdyCbPFi3Iw/g7ccRXzh2agdVYTp1IralYsaD1 ZOVM1NdodSIu/fG/Ydq3kxH/q9KrbEvCtx/uw7GzBoyviYNvwgmpn9MBrSsb QrQalWHMzKxCVHEHSo4eRO2mV2BLSmFhr7zUic8r7OtD24CAQkMNXGIPUgdq mM7SU3dGwtPTqJHIebiYVIjnn9+CIx9vw+VUA+qryHae9cG5/hwGC0owSAL/ RUkieEZ2jw1N4rYesFptcL55nOujIAgxgeDnI/KeIteTqW5DxhFS6M4xNLe1 K/qfxQeF7AcFikmnnJnCCGHSl1/M4zbZSrFnD0bVwWTWzhraMPoGgeFxi5VT ejkezjFrtEDOmw7kqJ1/ZzFczPvirlnyMhgW01e0UIRlIBUdPwZnXB568gzo I+ACphbk7vdH5aG4lC0KdiqwNls7MfgaKZVJl6jCg8U9frIs4j1O9GLfXp82 tHNg+nMkB5+n5E+6MeIWVPNFZpdc2lryIyykMYfjezFy5BJsuUVQRXx6Josd 5xKLkJHGXHGlsoZh0L9cxIAr1MCkr/Z9WXqqq/swaMhHd3sHep/YAMHnkWog pbTNHO7AWe6PxNRgG07HNssbFV2vECBwtmQeRg4k8R3QtdJjt4ub2Jw5TIT3 qil8q7UdXUsPYnTEAXUJsP/8oQYBbSlMWSWZmZx8DL25c4UW5tkU0PWgfUEk Nr++AXXlIgCqkSG5YQ4IOwz1AtoypSnZlDwcJ0u189/v5N+HpjyS2zhBxG1B Y3oWRUR2Hoo0N1pZ8vcGhc6BOTqWD3bCQlIjnDkBP/BY8pBs/ONRKDnTh3Fp f0JRNK9FZZsIzXM/ewHHnnyFn3fseQJC2koIWavJ8q6FN20ts8BSuWeg1wp9 X1OGa9/xEQhkpKfsXfJQH9Gh+1zN+DgWRsHp7FO2ANb2p/QmenmPPbgeB97+ mJ+XNjSjc4wIzPINvW4YVpAyqmvnhvomPUMvtavJWYZhxQ9fR/R5cuK7xtiL r4oP71Se08s0XKtjG+Q+tHXiCQdNcC3ZhSm3Sw81jcpobulUIFQT0qR1Kqjl qiKpSiAMh36xER7yaJrMLIteKUG7I4RtDDKzpd3qXT8VpDQgTWHHtOHkyWrU b4nU5G1CTfmIDW69nbiysUhhD1bW52J1Dj1t0vqROaR3baj/czh84z38/hiF HMKg/R9a7GawZpuBWXloEB4CczyjAP0NjdqK8ekQTtd96SkmbglZUx5BUJ0U PwV/dGO2Mmsp45XCCrMaxfVd35S0bzvZk+EXdmJqSqyCyWXL/cUVP1iuRU5/ ryvNp/YXfWqZTieTOUqtTZ2ph6zG5JXZKn7+PlV1ZR2y4wS2O9TNEtAx4bkQ aso1iIRx9ZPLJmksNmVyN6D8gG26ZayGb3O00jirQDawlf2tnUxxLdNgFxAR ztZSkj3FtlCqtfmkEZoH97EUfjbiGPEjA9ve49BH4s6IcpFQYa4ZQvJl+Hch cQQjVhWDqbnmywE8FIxbhbLSaWbA1EhRRaWRzLDzFY12CJpmkktHAnhLNl5s V6z+alVoevKKKKApQtohB0YmRdaT0cvPbYDvXEZQlpXPB4aIFZhK6OnQCy0C kWyp1yApZmO27yhFwWNvQNgjzoYsFV+MUCDXUyZzAqiqBUuOppglbCPw6smP 6ih349L374NnySqMDgyIWi2UGyFDePQS46wJLjjM8RIG+0XPMGQoJzl63XUS N3iQkZKNHRvP4b7/OIe0/3wBQsRuqW4RB0JqfFkTMrWZufMQfBHRjM2/rXm0 99WEADbUFm6XkvsoNDRh/Q+ov556KVGmr9RkQfjkm79GaXoaPn4vEg/9OAU7 tnlQahHdU6uUP5GgPxiMI/WM9KxgWMrLzFlQLx9BMmfaYvFGUph969dDmOgT 0bpeFy05xnny+0/i9Xvewvyf1GLrIdJL4u8aQDJmh0Iw1TUh7sm1OdpSspB1 LGzi2Ms3/RlsqIff9jA1RaUoi7gEy7p6VMZ1yBo298B2TE6IulxybWJ0NFzg ak7xLvyn950tLfzbjZprR/8rMYCFZKVcU2nCrpNkXZqH1OLYG5SsY0ujhb9Y v9iArjgf+pvZdtcCWl0evrGhiTyl9Mx8NJSQLNg7JHfxTAilKFdYuN0+dMT1 YdLerbGBespARu7DX5+HUG+QJFAE/60fLIGzqgxmtkjUVKpdFNFKQWF25AlY jpjQsW8c/VUiAGyB5KSiY2bhMlvf0TXFVYBE+0R/SfNzK8+cJabKtvDHg8wh yY/Gbc3j2xmKDykaaS43qFl3kls83ktuiRvDdQRSQxVpILuiYeT1raYcA6p3 ZKM1vBN2Crb6+kkre8TVuhqrIHp1FcwotdRpnFSVtI9ocAtqYtRyZR9KL9Dd rERl7l5PNmQiHorKwLipRjNeak0tO1jZlPOpj+CedPJraXlubH54GeLu+k8U REbCuOUcl4keCg0HusS0f6uTL5STA/XBwTEME/t52szSrgGhQdI6og+Kd08H aFA9o0MdDUyiM97BOTNsBh1xl87r0bShckSZsQpCzKeyzWJrnN/5/TJcWvoP 1O34GL3jApocbi5K8hIozo/tDs5gXwzRvSwWrGJ+7f374WytlzZBQIYExQVW dZNhlis0ghqhGySeY0dK3EUIbaJlYxbx3v+IwoqH3kP6jnDYKvOUcgvGIcVs bzOrlVHgphCQypOZIw4H5v+8CQfr+U90+AE7W2W5zESNctMVMLWGdY4G8mO3 rcBYn4Vct2K+8ddpCga2/Hglxuqy+BjpLWvwW3vgdnvQ1ETi3dwgKpgwDfia Q+9Httgfw29/lB2HagVp02zpp6fC/HhKmJYynieNQgCa/FO2OhfvfgJvv/gh 7nvGB6tLTL1n/mYdhLHu4Isa9UO0C1k+HkgztgiclFMA0zCLv7cvTrG1YF+5 IG7yhixZNZ4T+K+WsXaDbFkte/kr/30+nvnZJTy5wY0xwctvs6Cm55FNELwT 1yrUD0xPhKEgORNJyeOk57qZp6T3uwTC9GSMFGsePIRXf5CF6EJhgT/sCvfl nINaVCvunz6X11PnkGAYNmXj6Ts3YO1DH+NAeBo66GmZ0o30jGeNmEgPPsEb xGWYzccz+bZF8Di7eWAgtFl07X1gHQ8DkGWN6sizMH1wERGP7sDZD4zw1VRL m1EiW2qm1+6GTWJCEcKbFEPfaKrnTZqOVsO0xQFrNingTgE2tqU6WdJFy3fi ZPQeWHMuKVq1gkI1oaQI12voFQJHcR8c2/9ajinfOM6levkeScM9PYHsH8j6 BacuoWl/MYbiXHCTcRj1ksdv64atpo5xgITl5Wkq7qyGH+dI48LaZMv56ytr kBd1GpcfzUD9TnJ0yLS22cW+m4f5vjsK2E5ydloosPJZxPUMBcn5xH2mGaI9 l4e0nqUrFZwS8li0PqRxIfR3FGFHRVI6jM+e4+fjvWKNu3NCEDcaRpp+x6oP 7YMhyY3qIzEwlRrlXwOwE/6VxC4l+5NR8kIxLHs9fEFkG7kWXROCZpnCbGTk k64wi5mFiJ+ugq+7VvkZKz3Zliv2aqrq+GyMqjXY3voCXzyt/jweQZoZGYfq F5MxQvwgX5vSKNXHQ2Kq/pxkGd7+0X1IeuABpD/0HMpfqYQ51oc2E6E0IqDT zcsdOBjyOm0+kZdJVi6tEMW/fZ+8MbsYqIgCRxattdpPvxeX+eBl+ZFmM3fV 5PGsM5mRGxWP5lW5GMkRMO6gRj1ih8/MAPw52BMRi01/eRXpq99C08V4NDp8 rKBOuzlS/KlGOB7bTAMxJgcku295SWlQrt96bbcVkX9fjHO/vwuF63eg/V0D nMTb46PkVIlrRaVfeBNh8lOtjFEnFy/BqYjt6G63hAqKZEcx4UQqPOu38g2+ 5O2z2OZfjXcvgcqKc7mO+c03n8En85cja8VytGenwjYhLo4Wq6g1c5+q0tff v0aElmnM3PCDaM4/A3nLqJDQhpHGqsHIkUR5KaAclraRXhp5aoVGv87hvk/8 kQL85vZPsPqhd1AevRG9bWaxGhmndOAKtRxBW+8/vW6ILQbxrFxGAzQlYjxt Q2j5XdmVOr03H0OFRbCyuMdarZbcSoLLV3QeP4/5t9UhIoWGn76v+gGFZ02l L382DLSzzPkrj8PX16nZf2ACp255EaasEnimxvTMVfCt12aTXh3jjjPbLmeK mbzeLgTfrXSuohNdZfncIu8Jr8I2ivN7J1Uw3/0hIdkuBiKfYazEkVepnlo+ qV6TxYPJue/9VxHXPAWf9FtPQX1qWUCOMh+82ckVaPDKGJG+B/bux8bv365A kt+m/rSG/NyHP3oDUz1mLYIJ/gylgVn03JgZKGT+HishE2molaH0nz2HqvNl aNfuaBPEpGmDzVrm/dcWaX5RTzQwc8iZaIAhLgn3//tCfPzAHjy3YwIdzfXa gvhPbnkDwlAnXtagMGMXVnVIeRp1hOUn87VoFeaWQti5AqtOeNhK0SBbgmp8 71k8Dnew6YOBHsk5Eo0yM5bsMMVeQs0LF9C/bwgjVewnwwS8884+RLy5Bbm7 NzJHRIvfrp+sguDslfE7qTNE+qWm7JjDJimUa2yM8n/xHARX15cVUgeLSmbh fCZTCRMar2e2YqXqC0vRcDAZrWsNypznoEvcTIH/rqGmxqW23oqRhgl4xlx+ Sxn2/+wtPvkuYXYhAB8pLJoYUdYFGIvKISQeIFXvU/Yynq4ipodTvEaM7ZZY UyN1fTUaCAnjqWRYonPQHd4ER74Ah41XdrLEjn+mJpXetTf76WH2Q1mHb2UI KKx3RmEF1eyoBS8+EaxhOzrJSFTdQbZzzDbTvYHl9VbMgUzemoKJn92KqsdO oC96AMNlxEMD4s4FXWM0yl4h+O5Qs2Axj/JFyKwyQovMqZ+vJj5TRiNJh75z JCpzWSHXtv3SxxjaF6635DC4ARAnwbb97EkIDzwNe0s7WganmJesTTMWsh3D u1sVAHlM88vV8Dm7QgEYyuxczqhD55I1EPbvgz7EUAP4Zmsr3NJenup+B9Om b0x1k+S/C9ofdWYFGul3rIHDaZMhPXslXSgPFyuwN+6Ow1Rfn+7WuEEw1BMF bU+MoKVs7q+rXn6dpXpKf7MGvslhGcpzM+8w4KcA+FlwINQI09JEctyuyjOr PqrckkYW3/1ZR/WuoM/5VyzVsQ107a1+xlFuY1Gg2Krj+5srDZncXg6jq83L UZImpBwBYGje0p305HMvxSyQa5BaGPHv3U/HZxWygXTzdXfielp4FNyII6tY dFkp3/JKtxKY79AlZkwXa8AM0++EtdTNdkfu65YfHwnAaqZid5RCZ4+tFy4a a2mMR2fOafK1qooqVP7oLxD27pVbcQaTYVnRmckX7v3rG/A1NAR750rdVrPY M1Gs63tZO7qf6+cIEiJjIbTVaFtTR3q6NWc67+LPaSDddnkQ5OFkSfCRx9+C 1zcZeKucpVJSTmtHWr715g9foKi5TntrUIf3ZR3IJrfTf72U979Ei/xMlxuI cLqeXs3h/JxNVFfWYDJT/LGqz9mEyzUOlzQnJjUx5C9h/L3XNbdmYM2kGaph nRGUbvHnlvzz/J/n/zz///Uc//K/AU6R0wM=\ \>"]] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5735727201780443`*^9, 3.573572720224845*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.573571739295122*^9, 3.573571739341922*^9}}], 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["149"], "Output", CellChangeTimes->{3.5738360984680347`*^9, 3.5738362198986483`*^9, 3.5738363749161205`*^9, 3.5738364080973787`*^9, 3.573836520479976*^9, 3.5738366467465982`*^9, 3.573836684217864*^9, 3.5738367393483605`*^9, 3.5738368236197085`*^9, 3.573836925987088*^9, 3.5738370857625694`*^9, 3.573837201202772*^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["149"], "Output", CellChangeTimes->{3.5738360985928354`*^9, 3.5738362200234485`*^9, 3.5738363750409207`*^9, 3.573836408222179*^9, 3.573836520589176*^9, 3.5738366468557982`*^9, 3.573836684327064*^9, 3.573836739504361*^9, 3.5738368237289085`*^9, 3.5738369260962887`*^9, 3.573837085871769*^9, 3.5738372013119717`*^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["149"], "Output", CellChangeTimes->{3.5738360987332354`*^9, 3.573836220179449*^9, 3.573836375181321*^9, 3.5738364083781796`*^9, 3.573836520745177*^9, 3.5738366470117984`*^9, 3.573836684483064*^9, 3.573836739691561*^9, 3.573836823884909*^9, 3.5738369262366886`*^9, 3.57383708601217*^9, 3.5738372014523726`*^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.`"}]}], "}"}]], "Output", CellChangeTimes->{3.5738360987956357`*^9, 3.573836220179449*^9, 3.5738363751969213`*^9, 3.5738364083781796`*^9, 3.573836520745177*^9, 3.5738366470117984`*^9, 3.5738366844986644`*^9, 3.573836739707161*^9, 3.573836823900509*^9, 3.573836926252289*^9, 3.5738370860277696`*^9, 3.5738372014679728`*^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.`"}], "}"}]], "Output", CellChangeTimes->{3.5738360987956357`*^9, 3.573836220179449*^9, 3.5738363751969213`*^9, 3.5738364083781796`*^9, 3.573836520745177*^9, 3.5738366470117984`*^9, 3.5738366844986644`*^9, 3.573836739707161*^9, 3.573836823900509*^9, 3.573836926252289*^9, 3.5738370860277696`*^9, 3.5738372014679728`*^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["4982.252609187491`"], "Output", CellChangeTimes->{3.573836098842436*^9, 3.5738362202262487`*^9, 3.573836375243721*^9, 3.573836408424979*^9, 3.573836520791977*^9, 3.5738366470585985`*^9, 3.5738366845298643`*^9, 3.573836739987962*^9, 3.5738368239473095`*^9, 3.573836926299089*^9, 3.5738370860745697`*^9, 3.5738372015147724`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.324"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sw", "=", "0.324"}], ";"}], " ", 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}}], Cell[BoxData["5274.720242337358`"], "Output", CellChangeTimes->{3.5738360988580356`*^9, 3.573836220241849*^9, 3.573836375243721*^9, 3.5738364084405794`*^9, 3.573836520807577*^9, 3.5738366470741987`*^9, 3.5738366845454645`*^9, 3.573836740003562*^9, 3.5738368239473095`*^9, 3.573836926299089*^9, 3.5738370860745697`*^9, 3.5738372015459723`*^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[{"-", "11738.045499669004`"}]], "Output", CellChangeTimes->{3.5738360988736353`*^9, 3.573836220241849*^9, 3.573836375259321*^9, 3.5738364084561796`*^9, 3.5738365208387766`*^9, 3.5738366471053987`*^9, 3.5738366845610647`*^9, 3.5738367400191617`*^9, 3.573836823962909*^9, 3.5738369263146887`*^9, 3.57383708609017*^9, 3.573837201561572*^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[{"-", "16263.62382088511`"}]], "Output", CellChangeTimes->{3.5738360989048357`*^9, 3.573836220257449*^9, 3.5738363752749214`*^9, 3.5738364084561796`*^9, 3.573836520854377*^9, 3.5738366471209984`*^9, 3.5738366846078644`*^9, 3.573836740034762*^9, 3.573836823978509*^9, 3.5738369263614893`*^9, 3.5738370861057696`*^9, 3.5738372015771723`*^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[{"-", "16360.630597103922`"}]], "Output", CellChangeTimes->{3.573836098920436*^9, 3.573836220273049*^9, 3.5738363752749214`*^9, 3.57383640847178*^9, 3.573836520869977*^9, 3.5738366471365986`*^9, 3.5738366846234646`*^9, 3.5738367400503616`*^9, 3.573836823994109*^9, 3.5738369263770895`*^9, 3.5738370861213694`*^9, 3.5738372015927725`*^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.573836098951636*^9, 3.573836220304249*^9, 3.573836375321721*^9, 3.5738364085029793`*^9, 3.5738365208855767`*^9, 3.573836647167799*^9, 3.5738366846390643`*^9, 3.573836740081562*^9, 3.573836824025309*^9, 3.573836926408289*^9, 3.57383708616817*^9, 3.573837201623973*^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["5274.720242337358`"], "Output", CellChangeTimes->{3.573836098982836*^9, 3.573836220319849*^9, 3.5738363753373213`*^9, 3.5738364085185795`*^9, 3.5738365209011765`*^9, 3.5738366471833987`*^9, 3.5738366846702642`*^9, 3.5738367400971622`*^9, 3.5738368240565095`*^9, 3.573836926423889*^9, 3.5738370861837697`*^9, 3.5738372016395726`*^9}], Cell[BoxData["6247.187839425834`"], "Output", CellChangeTimes->{3.573836098982836*^9, 3.573836220319849*^9, 3.5738363753373213`*^9, 3.5738364085185795`*^9, 3.5738365209011765`*^9, 3.5738366471833987`*^9, 3.5738366846702642`*^9, 3.5738367400971622`*^9, 3.5738368240565095`*^9, 3.573836926423889*^9, 3.5738370861837697`*^9, 3.5738372016551723`*^9}], Cell[BoxData[ RowBox[{"-", "16360.630597103922`"}]], "Output", CellChangeTimes->{3.573836098982836*^9, 3.573836220319849*^9, 3.5738363753373213`*^9, 3.5738364085185795`*^9, 3.5738365209011765`*^9, 3.5738366471833987`*^9, 3.5738366846702642`*^9, 3.5738367400971622`*^9, 3.5738368240565095`*^9, 3.573836926423889*^9, 3.5738370861837697`*^9, 3.5738372016551723`*^9}], Cell[BoxData[ RowBox[{"-", "4838.72251534073`"}]], "Output", CellChangeTimes->{3.573836098982836*^9, 3.573836220319849*^9, 3.5738363753373213`*^9, 3.5738364085185795`*^9, 3.5738365209011765`*^9, 3.5738366471833987`*^9, 3.5738366846702642`*^9, 3.5738367400971622`*^9, 3.5738368240565095`*^9, 3.573836926423889*^9, 3.5738370861837697`*^9, 3.5738372016551723`*^9}], Cell[BoxData["24.888888888888886`"], "Output", CellChangeTimes->{3.573836098982836*^9, 3.573836220319849*^9, 3.5738363753373213`*^9, 3.5738364085185795`*^9, 3.5738365209011765`*^9, 3.5738366471833987`*^9, 3.5738366846702642`*^9, 3.5738367400971622`*^9, 3.5738368240565095`*^9, 3.573836926423889*^9, 3.5738370861837697`*^9, 3.5738372016551723`*^9}], Cell[BoxData["2492.827040079426`"], "Output", CellChangeTimes->{3.573836098982836*^9, 3.573836220319849*^9, 3.5738363753373213`*^9, 3.5738364085185795`*^9, 3.5738365209011765`*^9, 3.5738366471833987`*^9, 3.5738366846702642`*^9, 3.5738367400971622`*^9, 3.5738368240565095`*^9, 3.573836926423889*^9, 3.5738370861837697`*^9, 3.5738372016551723`*^9}], Cell[BoxData["1.941058259375492`"], "Output", CellChangeTimes->{3.573836098982836*^9, 3.573836220319849*^9, 3.5738363753373213`*^9, 3.5738364085185795`*^9, 3.5738365209011765`*^9, 3.5738366471833987`*^9, 3.5738366846702642`*^9, 3.5738367400971622`*^9, 3.5738368240565095`*^9, 3.573836926423889*^9, 3.5738370861837697`*^9, 3.5738372016551723`*^9}], Cell[BoxData[ RowBox[{"-", "2345.895475261304`"}]], "Output", CellChangeTimes->{3.573836098982836*^9, 3.573836220319849*^9, 3.5738363753373213`*^9, 3.5738364085185795`*^9, 3.5738365209011765`*^9, 3.5738366471833987`*^9, 3.5738366846702642`*^9, 3.5738367400971622`*^9, 3.5738368240565095`*^9, 3.573836926423889*^9, 3.5738370861837697`*^9, 3.5738372016551723`*^9}] }, Open ]] }, WindowSize->{1253, 850}, WindowMargins->{{Automatic, 279}, {Automatic, 5}}, 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, 1321, 26, 52, "Input"], Cell[1881, 48, 11811, 327, 472, "Input"], Cell[CellGroupData[{ Cell[13717, 379, 955, 14, 31, "Input"], Cell[14675, 395, 337, 5, 31, "Output"] }, Open ]], Cell[15027, 403, 3399, 49, 92, "Input"], Cell[CellGroupData[{ Cell[18451, 456, 1560, 29, 31, "Input"], Cell[20014, 487, 2008, 28, 52, "Output"] }, Open ]], Cell[22037, 518, 1390, 22, 31, "Input"], Cell[23430, 542, 1566, 28, 31, "Input"], Cell[CellGroupData[{ Cell[25021, 574, 1234, 18, 31, "Input"], Cell[26258, 594, 6268, 181, 132, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32563, 780, 697, 14, 31, "Input"], Cell[33263, 796, 1360, 21, 72, "Output"] }, Open ]], Cell[34638, 820, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[35571, 848, 4677, 109, 112, "Input"], Cell[40251, 959, 1645, 24, 92, "Output"], Cell[41899, 985, 1645, 24, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43581, 1014, 519, 12, 31, "Input"], Cell[44103, 1028, 2011, 28, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46151, 1061, 1401, 38, 31, "Input"], Cell[47555, 1101, 1466, 22, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49058, 1128, 827, 23, 92, "Input"], Cell[49888, 1153, 334, 5, 31, "Output"], Cell[50225, 1160, 334, 5, 31, "Output"] }, Open ]], Cell[50574, 1168, 1796, 35, 92, "Input"], Cell[52373, 1205, 935, 19, 31, "Input"], Cell[53311, 1226, 4271, 83, 132, "Input"], Cell[57585, 1311, 3240, 56, 31, "Input"], Cell[60828, 1369, 1679, 34, 52, "Input"], Cell[62510, 1405, 1254, 35, 72, "Input"], Cell[63767, 1442, 4187, 79, 72, "Input"], Cell[CellGroupData[{ Cell[67979, 1525, 3292, 75, 112, "Input"], Cell[71274, 1602, 1783, 26, 112, "Output"] }, Open ]], Cell[73072, 1631, 1808, 44, 92, "Input"], Cell[74883, 1677, 561, 12, 52, "Input"], Cell[75447, 1691, 2148, 49, 92, "Input"], Cell[77598, 1742, 2230, 52, 72, "Input"], Cell[79831, 1796, 1525, 36, 52, "Input"], Cell[CellGroupData[{ Cell[81381, 1836, 923, 20, 31, "Input"], Cell[82307, 1858, 356, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82700, 1868, 711, 18, 31, "Input"], Cell[83414, 1888, 356, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83807, 1898, 507, 10, 31, "Input"], Cell[84317, 1910, 357, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[84711, 1920, 823, 23, 31, "Input"], Cell[85537, 1945, 359, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85933, 1955, 204, 4, 31, "Input"], Cell[86140, 1961, 352, 5, 31, "Output"] }, Open ]], Cell[86507, 1969, 1971, 35, 92, "Input"], Cell[88481, 2006, 1743, 24, 31, "Input"], Cell[CellGroupData[{ Cell[90249, 2034, 2334, 45, 92, "Input"], Cell[92586, 2081, 337, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[92960, 2091, 2435, 47, 92, "Input"], Cell[95398, 2140, 337, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[95772, 2150, 3675, 93, 132, "Input"], Cell[99450, 2245, 1029, 27, 131, "Output"] }, Open ]], Cell[100494, 2275, 5679, 111, 292, "Input"], Cell[106176, 2388, 26058, 621, 1692, "Input"], Cell[132237, 3011, 2696, 53, 92, "Input"], Cell[CellGroupData[{ Cell[134958, 3068, 939, 17, 72, "Input"], Cell[135900, 3087, 8323, 188, 292, "Output"], Cell[144226, 3277, 341, 5, 31, "Output"], Cell[144570, 3284, 341, 5, 31, "Output"] }, Open ]], Cell[144926, 3292, 10201, 233, 132, "Input"], Cell[155130, 3527, 6183, 100, 31, "Input"], Cell[161316, 3629, 10215, 234, 132, "Input"], Cell[171534, 3865, 7127, 129, 72, "Input"], Cell[CellGroupData[{ Cell[178686, 3998, 7960, 145, 132, "Input"], Cell[186649, 4145, 97078, 1730, 375, 39264, 782, "CachedBoxData", "BoxData", \ "Output"], Cell[283730, 5877, 49965, 877, 375, 30591, 559, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[333710, 6757, 94, 1, 31, "Input"], Cell[333807, 6760, 92, 1, 31, "Input"], Cell[CellGroupData[{ Cell[333924, 6765, 3860, 90, 152, "Input"], Cell[337787, 6857, 342, 5, 31, "Output"] }, Open ]], Cell[338144, 6865, 2408, 45, 72, "Input"], Cell[CellGroupData[{ Cell[340577, 6914, 3787, 85, 132, "Input"], Cell[344367, 7001, 340, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[344744, 7011, 3653, 66, 92, "Input"], Cell[348400, 7079, 335, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[348772, 7089, 3575, 73, 52, "Input"], Cell[352350, 7164, 4982, 156, 132, "Output"], Cell[357335, 7322, 2250, 32, 92, "Output"] }, Open ]], Cell[359600, 7357, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[361488, 7388, 2435, 46, 112, "Input"], Cell[363926, 7436, 353, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[364316, 7446, 2384, 62, 132, "Input"], Cell[366703, 7510, 355, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[367095, 7520, 471, 14, 52, "Input"], Cell[367569, 7536, 372, 6, 31, "Output"] }, Open ]], Cell[367956, 7545, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[369362, 7570, 1709, 32, 52, "Input"], Cell[371074, 7604, 374, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[371485, 7615, 1415, 43, 72, "Input"], Cell[372903, 7660, 372, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[373312, 7671, 2550, 50, 92, "Input"], Cell[375865, 7723, 346, 5, 31, "Output"] }, Open ]], Cell[376226, 7731, 1499, 20, 31, "Input"], Cell[CellGroupData[{ Cell[377750, 7755, 1129, 23, 192, "Input"], Cell[378882, 7780, 359, 5, 31, "Output"], Cell[379244, 7787, 359, 5, 31, "Output"], Cell[379606, 7794, 377, 6, 31, "Output"], Cell[379986, 7802, 375, 6, 31, "Output"], Cell[380364, 7810, 360, 5, 31, "Output"], Cell[380727, 7817, 359, 5, 31, "Output"], Cell[381089, 7824, 359, 5, 31, "Output"], Cell[381451, 7831, 376, 6, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)