(* 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[ 611858, 12102] NotebookOptionsPosition[ 602911, 11826] NotebookOutlinePosition[ 603411, 11846] CellTagsIndexPosition[ 603368, 11843] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", RowBox[{"B3LYP", "/", "6"}]}], "-", RowBox[{"31", "G", RowBox[{"(", "d", ")"}], " ", "opt"}]}], ",", " ", RowBox[{"ES", " ", "24", " ", "June", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}], " ", "\[IndentingNewLine]", RowBox[{"Plot0", "=", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", RowBox[{"1.889726", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5518738256"}], ",", RowBox[{"-", "0.3068849017"}], ",", RowBox[{"-", "1.0766713055"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.4067156067", ",", "0.6844314096", ",", "0.1301628685"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.4873098373"}], ",", "1.8320903428", ",", RowBox[{"-", "1.8165180739"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.3596805963", ",", "1.0470240652", ",", "1.0406413043"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5807461482", ",", "0.6653284829", ",", RowBox[{"-", "1.3526228105"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.9989970528"}], ",", RowBox[{"-", "0.2506702136"}], ",", RowBox[{"-", "1.0630834413"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.0287779025", ",", "0.8154976138", ",", "1.4354075509"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9255963656"}], ",", "0.8244781894", ",", RowBox[{"-", "1.4500888039"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.0657224656", ",", "0.8222947809", ",", "0.0833537679"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.5050226911"}], ",", RowBox[{"-", "1.6236543802"}], ",", RowBox[{"-", "0.6633781387"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.0231185583", ",", RowBox[{"-", "0.5085902057"}], ",", "2.1839005777"}], "}"}], ",", RowBox[{"{", RowBox[{"1.0587408424", ",", "1.4273743166", ",", RowBox[{"-", "1.9748082596"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.8933096947", ",", RowBox[{"-", "0.3185743100"}], ",", RowBox[{"-", "1.7185325023"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.3086916669"}], ",", "0.5254979038", ",", RowBox[{"-", "0.3557712410"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.3476068784"}], ",", "0.0462500676", ",", RowBox[{"-", "2.0575258299"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.5037266334", ",", "1.5927198321", ",", "1.9961564407"}], "}"}], ",", RowBox[{"{", RowBox[{"4.0456150878", ",", "1.1493528281", ",", "1.2138490460"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.1417655166"}], ",", RowBox[{"-", "1.9005423260"}], ",", "0.3317499300"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.1743315146"}], ",", RowBox[{"-", "2.3858740246"}], ",", RowBox[{"-", "1.3768563422"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.6006549060"}], ",", RowBox[{"-", "1.6237173942"}], ",", RowBox[{"-", "0.6430463031"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.5077607060", ",", RowBox[{"-", "1.2927132974"}], ",", "1.5923977593"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5688346059", ",", RowBox[{"-", "0.4027311095"}], ",", "3.1289002938"}], "}"}], ",", RowBox[{"{", RowBox[{"1.9990314072", ",", RowBox[{"-", "0.8184276698"}], ",", "2.4123435127"}], "}"}]}], "}"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9, {3.5719810762355733`*^9, 3.5719810786847773`*^9}, 3.5723256977094345`*^9, 3.572583124905918*^9, { 3.5727976670013523`*^9, 3.572797667157352*^9}, 3.5728672700652885`*^9, { 3.5732075583876934`*^9, 3.5732075588400946`*^9}, {3.573221345358634*^9, 3.57322135451585*^9}, {3.573369135900576*^9, 3.5733691365557775`*^9}, { 3.574682961367374*^9, 3.5746829644717793`*^9}, 3.5747440056200757`*^9, { 3.574833269418433*^9, 3.5748332704636354`*^9}, 3.574833303161292*^9, { 3.5750055229593754`*^9, 3.5750055237081766`*^9}, 3.5753452568612485`*^9, { 3.575602814966606*^9, 3.5756028151382065`*^9}, 3.5757279640625825`*^9, { 3.575775139243217*^9, 3.5757751402728186`*^9}, {3.5809175214308605`*^9, 3.580917612971822*^9}, {3.58096449139602*^9, 3.580964509086451*^9}, { 3.580971899521303*^9, 3.5809719305653577`*^9}, {3.581045653434513*^9, 3.5810456822633634`*^9}, 3.5810459232057867`*^9, 3.581047116639083*^9, { 3.581047297569401*^9, 3.5810473128106275`*^9}, {3.5810677607251596`*^9, 3.5810677836572*^9}, 3.5810678866485806`*^9}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtU3tIU2EUHxNChoiYREbNzExlSIR/iNnq2Mx0aTbXfMy93K6jpm66qSsN IUQsTe2BNIWKtaQMiQozqchjQqn0sBIkQkKkJLTCpCwq7H7f8cDl3Hu+x+9x zo22uvJKpRKJJEF8gsRHNhWoVIYLGN6I4/6abPwZb+h4cs9AedoBM3URt/b3 WqBeTDPqdFjQDMqb6g344rkYfTZg5boIGzave/dyOSYLjn/etiN4IQ4SxOM/ Mi3wICtEqlg5BM8OJJ9O26wAVo436JGvn3Kj41H1hfVCEkY1zWsGTSZkSb5Y BdcqlbKpJSPhugXgeCe0+GpZO9ujyAAlI95mRr6+sxheb3n/u6FbDRkDS/8m fwHkiTTnNx1DCQsowbuXvl1/GpSPmUxQoBpuLr7JsZ5NwSp2EdqBy2g3g4IJ idLQd6gd7SzkOgju26gX3uYju1YzaCSevR78OCECm3KA54NZxOerB/n+h4mQ xKK1DLnP0nLyxWclXVedwOt6L/kyaSddsQKwsmyolnw+U4qc1/1Y8mWlFjk/ eRny/gzbkOM0NyBfDypGIfVDbpu5gM77asiXGxrqU6uO/NHVwfTWNSc7Z3ch 4VUA14cu6tuQlu4vqiA/zpfT/WtVpKfFiOwzMGHEsETR4bhI7O4SI9pEvltc pD9gBl5vKqKsFKBT1Vo+l1sAFmacfy/p/1uAw+P+fQPJRcC2dVWUoKjiovOT FnxOcULVQLyaD0P/aO3jKxmF5EdjOvG7XIJhhSn9o6Fa4GPmWuUpM5C+SA/e dh8596UvCcbE4xsadch9SPWgj+FFSkmvsZTOfXfBbvYytjr/LUeBz09PNfVn zkq8swX6D5xemhe7jXzPVtE8tHsJf7sdOf8REzJ6HXn1hD9sQtGNP7138glX XgOcZ0gm6lkjRyyr8++FdLYxJZX6sMdBfUxzA2ujKkZN/1WIA/4DBnLZUg== "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[12, 24.], SphereBox[13, 24.], SphereBox[14, 24.], SphereBox[15, 24.], SphereBox[16, 24.], SphereBox[17, 24.], SphereBox[18, 24.], SphereBox[19, 24.], SphereBox[20, 24.], SphereBox[21, 24.], SphereBox[22, 24.], SphereBox[23, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[5, 34.], SphereBox[6, 34.], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.], SphereBox[10, 34.], SphereBox[11, 34.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.], SphereBox[2, 31.], SphereBox[3, 31.], SphereBox[4, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{30, 12}, 15.], CylinderBox[{31, 13}, 15.], CylinderBox[{32, 14}, 15.], CylinderBox[{33, 15}, 15.], CylinderBox[{34, 16}, 15.], CylinderBox[{35, 17}, 15.], CylinderBox[{36, 18}, 15.], CylinderBox[{37, 19}, 15.], CylinderBox[{38, 20}, 15.], CylinderBox[{39, 21}, 15.], CylinderBox[{40, 22}, 15.], CylinderBox[{41, 23}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{24, 6}, 15.], CylinderBox[{25, 8}, 15.], CylinderBox[{26, 7}, 15.], CylinderBox[{27, 9}, 15.], CylinderBox[{28, 8}, 15.], CylinderBox[{29, 9}, 15.], CylinderBox[{5, 8}, 15.], CylinderBox[{5, 9}, 15.], CylinderBox[{5, 30}, 15.], CylinderBox[{5, 31}, 15.], CylinderBox[{6, 10}, 15.], CylinderBox[{6, 32}, 15.], CylinderBox[{6, 33}, 15.], CylinderBox[{7, 11}, 15.], CylinderBox[{7, 34}, 15.], CylinderBox[{7, 35}, 15.], CylinderBox[{10, 36}, 15.], CylinderBox[{10, 37}, 15.], CylinderBox[{10, 38}, 15.], CylinderBox[{11, 39}, 15.], CylinderBox[{11, 40}, 15.], CylinderBox[{11, 41}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{1, 24}, 15.], CylinderBox[{1, 25}, 15.], CylinderBox[{2, 26}, 15.], CylinderBox[{2, 27}, 15.], CylinderBox[{3, 28}, 15.], CylinderBox[{4, 29}, 15.]}}]}, Boxed->False, ImageSize->292.2588496211564, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{ 3.5810679223882437`*^9, 3.5810680036331863`*^9, 3.5810680344120398`*^9, 3.581068285400881*^9, {3.581068317848938*^9, 3.581068414132307*^9}, 3.5810684490139685`*^9, 3.581068712701232*^9, {3.581068760952116*^9, 3.5810687875033627`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, 3.5705592408949137`*^9, {3.5705593512807074`*^9, 3.5705593890483737`*^9}, { 3.570559442712468*^9, 3.5705594826641383`*^9}, 3.5708550837628317`*^9, 3.570856587480673*^9, 3.5709425310226765`*^9, 3.5730457925169635`*^9, 3.57466137224955*^9, 3.574701612104143*^9, 3.574852309007204*^9, 3.574935583329076*^9, 3.5753438951264563`*^9, 3.5753463317967367`*^9, 3.575346463679368*^9, 3.575347966071207*^9, 3.5753753647221766`*^9, 3.5809645825313797`*^9, 3.580968422758925*^9, {3.5809686190328693`*^9, 3.580968622823676*^9}, 3.58097117067988*^9, 3.5810036889413176`*^9, { 3.5810474472672634`*^9, 3.581047474910512*^9}, {3.5810475642674694`*^9, 3.5810475718334827`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.5810679224506435`*^9, 3.581068003679986*^9, 3.5810680344588404`*^9, 3.581068285432081*^9, {3.581068317880138*^9, 3.5810684141635075`*^9}, 3.581068449060768*^9, 3.581068712763632*^9, {3.5810687609989166`*^9, 3.581068787550163*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", RowBox[{"Length", "[", "t1", "]"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822123693834*^9}, 3.568873215924739*^9, 3.5689108676002645`*^9, 3.5689997098237543`*^9, 3.5689998170115423`*^9, 3.568999886915265*^9, 3.5691460425981283`*^9, { 3.5692371678918586`*^9, 3.569237204489523*^9}, 3.569237465805582*^9, 3.56923802261736*^9, 3.5693403424025126`*^9, 3.5693404501675014`*^9, 3.569340737988007*^9, 3.569340852819809*^9, 3.569341165475558*^9, 3.56934149694494*^9, 3.569342614390503*^9, 3.569343567162176*^9, 3.569343662712344*^9, 3.569343763597721*^9, 3.5693440703198595`*^9, 3.569344266209404*^9, 3.5702973471714044`*^9, 3.5702974395391665`*^9, { 3.570297637207114*^9, 3.570297637987115*^9}, 3.570297920051211*^9}], Cell[BoxData["23"], "Output", CellChangeTimes->{ 3.5810679224662437`*^9, 3.581068003695586*^9, 3.5810680344588404`*^9, 3.581068285447681*^9, {3.5810683178957376`*^9, 3.581068414179107*^9}, 3.5810684490763683`*^9, 3.5810687127792315`*^9, {3.5810687610145164`*^9, 3.581068787565763*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", RowBox[{"t1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.574996055162717*^9, 3.574996080637562*^9}, { 3.5749961872169495`*^9, 3.5749961936753607`*^9}, {3.5749962548738976`*^9, 3.574996268492721*^9}, {3.574996311720397*^9, 3.5749963415788493`*^9}, { 3.57499639316814*^9, 3.5749964813394947`*^9}, {3.5749966279017525`*^9, 3.5749966325037603`*^9}, {3.575738220273323*^9, 3.5757382663558044`*^9}, { 3.5757383024542675`*^9, 3.5757383039050703`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\<\"O\"\>", RowBox[{"-", "2.9326163169557855`"}], RowBox[{"-", "0.5799283777499342`"}], RowBox[{"-", "2.034613759457293`"}]}, {"2", "\<\"O\"\>", "4.548033056586765`", "1.2933878299377697`", "0.245972156839031`"}, {"3", "\<\"O\"\>", RowBox[{"-", "2.81060806960158`"}], "3.4621487551380725`", RowBox[{"-", "3.4327214337187515`"}]}, {"4", "\<\"O\"\>", "0.6796977745236138`", "1.9785885986341352`", "1.966526929409622`"}, {"5", "\<\"C\"\>", "1.0974510956533934`", "1.2572885326766854`", RowBox[{"-", "2.556086493194923`"}]}, {"6", "\<\"C\"\>", RowBox[{"-", "5.667282704599533`"}], RowBox[{"-", "0.4736980200654736`"}], RowBox[{"-", "2.008936419194084`"}]}, {"7", "\<\"C\"\>", "5.723560350579715`", "1.5410670437358187`", "2.7125269695320533`"}, {"8", "\<\"C\"\>", RowBox[{"-", "1.7491235175798256`"}], "1.5580378709421043`", RowBox[{"-", "2.7402705150387314`"}]}, {"9", "\<\"C\"\>", "2.0139234520284255`", "1.5539118271310333`", "0.1575157823985954`"}, {"10", "\<\"C\"\>", RowBox[{"-", "6.623532509961639`"}], RowBox[{"-", "3.0682618972778255`"}], RowBox[{"-", "1.253602916532996`"}]}, {"11", "\<\"C\"\>", "5.712865740702026`", RowBox[{"-", "0.9610961350566383`"}], "4.12697370309471`"}, {"12", "\<\"H\"\>", "2.0007300971451825`", "2.6973463578112513`", RowBox[{"-", "3.73184651318087`"}]}, {"13", "\<\"H\"\>", "1.6881105561266523`", RowBox[{"-", "0.6020181565390601`"}], RowBox[{"-", "3.2475555514413696`"}]}, {"14", "\<\"H\"\>", RowBox[{"-", "6.252520668924269`"}], "0.9930470517563589`", RowBox[{"-", "0.672310164169966`"}]}, {"15", "\<\"H\"\>", RowBox[{"-", "6.326059755891318`"}], "0.0873999552454776`", RowBox[{"-", "3.888160056433607`"}]}, {"16", "\<\"H\"\>", "4.731357316028448`", "3.0098040774350046`", "3.7721887260582485`"}, {"17", "\<\"H\"\>", "7.6451040174079425`", "2.1719619224341007`", "2.293842102301396`"}, {"18", "\<\"H\"\>", RowBox[{"-", "5.937075982622452`"}], RowBox[{"-", "3.591504247542676`"}], "0.62691646821918`"}, {"19", "\<\"H\"\>", RowBox[{"-", "5.998616795758999`"}], RowBox[{"-", "4.50864817701126`"}], RowBox[{"-", "2.601881228120237`"}]}, {"20", "\<\"H\"\>", RowBox[{"-", "8.693977192895757`"}], RowBox[{"-", "3.0683809764719894`"}], RowBox[{"-", "1.2151813181719506`"}]}, {"21", "\<\"H\"\>", "6.628706607906556`", RowBox[{"-", "2.4428739286425123`"}], "3.009195448090952`"}, {"22", "\<\"H\"\>", "6.744119544468983`", RowBox[{"-", "0.761051448630997`"}], "5.912764236601499`"}, {"23", "\<\"H\"\>", "3.777621625002427`", RowBox[{"-", "1.546604046740475`"}], "4.55866825688052`"} }, 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.581067922481844*^9, 3.5810680037111864`*^9, 3.58106803447444*^9, 3.581068285463281*^9, {3.581068317911338*^9, 3.581068414194707*^9}, 3.5810684490919685`*^9, 3.5810687127948313`*^9, {3.581068761030116*^9, 3.5810687875813627`*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.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, {3.581067378854088*^9, 3.5810673932373133`*^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, {3.581067378854088*^9, 3.581067389150106*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.5810679224974437`*^9, 3.581068003726786*^9, 3.5810680345056405`*^9, 3.581068285478881*^9, {3.581068317926938*^9, 3.5810684142259073`*^9}, 3.5810684491231685`*^9, 3.5810687128260317`*^9, {3.5810687610613165`*^9, 3.581068787612563*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"num1", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146829331646`*^9}, 3.5688147231032352`*^9, 3.5688216336189733`*^9, 3.5711137970191836`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"um", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"un", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"num1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146885023746`*^9}, 3.5688147203576307`*^9, 3.56882164316619*^9, 3.57111380070079*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"us", "=", RowBox[{"Sort", "[", "um", "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146945707855`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "23"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5810679225130434`*^9, 3.5810680037423863`*^9, 3.58106803452124*^9, 3.581068285494481*^9, {3.5810683179425383`*^9, 3.5810684142415075`*^9}, 3.5810684491387687`*^9, 3.581068712857232*^9, {3.5810687610925164`*^9, 3.5810687876281633`*^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[{ "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "1", ",", "2", ",", "3", ",", "4", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23"}], "}"}]], "Output", CellChangeTimes->{ 3.5810679225286436`*^9, 3.581068003757986*^9, 3.5810680345368404`*^9, 3.5810682855256815`*^9, {3.5810683179581385`*^9, 3.5810684142415075`*^9}, 3.5810684491543684`*^9, 3.581068712872832*^9, {3.581068761108116*^9, 3.5810687876437635`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, { 3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.12", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"(*", "0.25618", "*)"}], "0.2572", ",", 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.1786", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.48698"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}, {3.5727961392438684`*^9, 3.57279614016427*^9}, {3.572796215855603*^9, 3.5727962193812094`*^9}, { 3.5731452670909014`*^9, 3.573145275920517*^9}, {3.573366168242963*^9, 3.5733661753721757`*^9}, 3.573367679154417*^9, {3.5746744522844534`*^9, 3.574674453220455*^9}, 3.5746820022776895`*^9, {3.574682057033786*^9, 3.574682057704587*^9}, {3.574682089045042*^9, 3.574682170757985*^9}, 3.57468220769885*^9, {3.5746826561216383`*^9, 3.5746827960226836`*^9}, { 3.5747437628680496`*^9, 3.5747437640692515`*^9}, 3.5747437976249104`*^9, { 3.574743832756172*^9, 3.5747439364027543`*^9}, {3.57474397413922*^9, 3.5747439758396235`*^9}, {3.5750084847337775`*^9, 3.575008487276582*^9}, { 3.575008535059466*^9, 3.575008535761467*^9}, {3.5750085659943204`*^9, 3.5750085672267227`*^9}, {3.5750086497820673`*^9, 3.5750086512484703`*^9}, {3.575345710884446*^9, 3.5753457175144577`*^9}, { 3.5757079421584663`*^9, 3.5757079428916674`*^9}, 3.575774946192878*^9, 3.575774992259759*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{ 3.581067922544244*^9, 3.5810680037891865`*^9, 3.5810680345524406`*^9, 3.581068285541281*^9, {3.581068317973738*^9, 3.5810684142571073`*^9}, 3.5810684491699686`*^9, 3.5810687128884315`*^9, {3.5810687611237164`*^9, 3.5810687876593633`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "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.581067922544244*^9, 3.5810680037891865`*^9, 3.5810680345524406`*^9, 3.581068285541281*^9, {3.581068317973738*^9, 3.5810684142571073`*^9}, 3.5810684491699686`*^9, 3.5810687128884315`*^9, {3.5810687611237164`*^9, 3.581068787674963*^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\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.5810679225598435`*^9, 3.5810680038047867`*^9, 3.5810680345680404`*^9, 3.581068285556881*^9, {3.581068317989338*^9, 3.581068414272707*^9}, 3.581068449185569*^9, 3.5810687129040318`*^9, {3.5810687611393166`*^9, 3.581068787690563*^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]", "\"\\""}], ",", "7.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}, 3.5733593979404716`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5810679225910435`*^9, 3.5810680038203864`*^9, 3.58106803458364*^9, 3.581068285572481*^9, {3.581068318004938*^9, 3.581068414288307*^9}, 3.581068449185569*^9, 3.581068712919632*^9, {3.581068761154917*^9, 3.5810687877061634`*^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["11"], "Output", CellChangeTimes->{ 3.5810679226066437`*^9, 3.581068003835986*^9, 3.5810680345992403`*^9, 3.5810682855880814`*^9, {3.5810683180205383`*^9, 3.5810684143039074`*^9}, 3.581068449201169*^9, 3.581068712935232*^9, {3.5810687611705165`*^9, 3.581068787721763*^9}}], Cell[BoxData["12"], "Output", CellChangeTimes->{ 3.5810679226066437`*^9, 3.581068003835986*^9, 3.5810680345992403`*^9, 3.5810682855880814`*^9, {3.5810683180205383`*^9, 3.5810684143039074`*^9}, 3.581068449201169*^9, 3.581068712935232*^9, {3.5810687611705165`*^9, 3.581068787721763*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}, {3.5749356251839495`*^9, 3.5749356357451677`*^9}, 3.5753438951420565`*^9, 3.5753463317967367`*^9, 3.575346463694968*^9, 3.575347966086807*^9, 3.5753753647377768`*^9, 3.580968446954568*^9, { 3.5809686406233077`*^9, 3.5809686430257115`*^9}, 3.581045597165214*^9, { 3.581045956309045*^9, 3.5810459966819153`*^9}, 3.581047124189496*^9}], Cell[BoxData["\<\"CH2(COOC2H5)2\"\>"], "Output", CellChangeTimes->{ 3.581067922622244*^9, 3.5810680038515863`*^9, 3.5810680346148405`*^9, 3.581068285603681*^9, {3.5810683180361385`*^9, 3.5810684143195076`*^9}, 3.5810684492167687`*^9, 3.581068712950832*^9, {3.5810687611861167`*^9, 3.581068787737363*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, 3.5733691180073442`*^9, {3.5747381333641615`*^9, 3.5747381348149643`*^9}, { 3.5748523465408697`*^9, 3.574852347788872*^9}, {3.5749356592544093`*^9, 3.5749356651044197`*^9}, 3.575562664774312*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, 3.5733691180073442`*^9, {3.5747381333641615`*^9, 3.5747381348149643`*^9}, { 3.5748523465408697`*^9, 3.574852347788872*^9}, {3.5749356592544093`*^9, 3.5749356651044197`*^9}, 3.5753438951420565`*^9, 3.5753463318123364`*^9, 3.575346463694968*^9, 3.575347966086807*^9, 3.5753753647377768`*^9, 3.580964599114209*^9, 3.5809684404961557`*^9, {3.5809686473001194`*^9, 3.580968650061324*^9}, {3.58104557800838*^9, 3.5810455839207907`*^9}, { 3.581046017539152*^9, 3.5810460312047763`*^9}, {3.5810460622800307`*^9, 3.581046062560831*^9}, 3.581047128838304*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {373.21, 75.}], LineBox[{{353.98080478906286`, 63.89897516976265}, {329.905, 50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {286.6, 25.}], LineBox[{{329.905, 50.}, {304.35272021531927`, 35.24865501403953}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {373.21, 75.}], LineBox[{{392.43864015930603`, 63.89801376483484}, {416.51, 50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {459.80999999999995`, 25.}], LineBox[{{416.51, 50.}, {442.0577922177911, 35.24954259942777}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {719.62, 75.}], LineBox[{{738.8486401593061, 63.89801376483485}, {762.9200000000001, 50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {806.22, 25.}], LineBox[{{762.9200000000001, 50.}, {788.4677922177912, 35.24954259942777}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {719.62, 75.}], LineBox[{{700.3908047890628, 63.898975169762636`}, {676.315, 50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {633.01, 25.}], LineBox[{{676.315, 50.}, {650.7627202153193, 35.24865501403951}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {459.80999999999995`, -75.}], LineBox[{{{454.80999999999995`, -52.7965160224375}, { 454.80999999999995`, -25.}}, {{ 464.80999999999995`, -52.7965160224375}, {464.80999999999995`, -25.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {459.80999999999995`, 25.}], LineBox[{{{454.80999999999995`, -25.}, {454.80999999999995`, 4.501365785979736}}, {{464.80999999999995`, -25.}, { 464.80999999999995`, 4.501365785979736}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {633.01, -75.}], LineBox[{{{628.01, -52.7965160224375}, {628.01, -25.}}, {{ 638.01, -52.7965160224375}, {638.01, -25.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {633.01, 25.}], LineBox[{{{628.01, -25.}, {628.01, 4.501365785979736}}, {{ 638.01, -25.}, {638.01, 4.501365785979736}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {546.41, 75.}], LineBox[{{528.6577922177911, 64.75045740057224}, {503.10999999999996`, 50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {459.80999999999995`, 25.}], LineBox[{{503.10999999999996`, 50.}, {477.5622077822088, 35.24954259942776}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {546.41, 75.}], LineBox[{{564.1622077822088, 64.75045740057224}, {589.71, 50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {633.01, 25.}], LineBox[{{589.71, 50.}, {615.2577922177911, 35.24954259942777}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {546.41, 75.}], LineBox[{{559.5864928791234, 90.70267620651369}, {566.335, 98.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {586.26, 122.49000000000001`}], LineBox[{{566.335, 98.745}, {573.0835071208766, 106.78732379348628`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {546.41, 75.}], LineBox[{{533.2335071208765, 90.70267620651373}, {526.485, 98.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {506.56, 122.49000000000001`}], LineBox[{{526.485, 98.745}, {519.7364928791234, 106.7873237934863}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {286.6, 25.}], LineBox[{{268.84779221779115`, 35.24954259942776}, {243.3, 50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {200., 75.}], LineBox[{{243.3, 50.}, {217.7522077822089, 64.75045740057224}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {286.6, 25.}], LineBox[{{299.7784328779201, 9.298951897330019}, {306.53000000000003`, 1.2550000000000008`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {326.46000000000004`, -22.49}], LineBox[{{306.53000000000003`, 1.2550000000000008`}, { 313.28156712207993`, -6.788951897330017}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {286.6, 25.}], LineBox[{{273.4235071208766, 9.29732379348629}, {266.675, 1.2550000000000008`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {246.74999999999997`, -22.49}], LineBox[{{266.675, 1.2550000000000008`}, { 259.92649287912343`, -6.787323793486301}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {806.22, 25.}], LineBox[{{823.9722077822089, 35.24954259942777}, {849.52, 50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {892.82, 75.}], LineBox[{{849.52, 50.}, {875.0677922177912, 64.75045740057224}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {806.22, 25.}], LineBox[{{819.3964928791235, 9.297323793486274}, {826.145, 1.2550000000000008`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {846.0699999999999, -22.49}], LineBox[{{826.145, 1.2550000000000008`}, { 832.8935071208765, -6.787323793486273}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {806.22, 25.}], LineBox[{{793.0415671220799, 9.298951897330035}, {786.29, 1.2550000000000008`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {766.36, -22.49}], LineBox[{{786.29, 1.2550000000000008`}, { 779.5384328779201, -6.788951897329996}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {200., 75.}], LineBox[{{189.7501710553752, 57.247957547196606`}, {184.5, 48.155}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {169., 21.310000000000002`}], LineBox[{{184.5, 48.155}, {179.2498289446248, 39.0620424528034}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {200., 75.}], LineBox[{{182.24795754719662`, 85.2498289446248}, {173.155, 90.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {146.31, 106.}], LineBox[{{173.155, 90.5}, {164.06204245280338`, 95.7501710553752}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {200., 75.}], LineBox[{{210.2498289446248, 92.7520424528034}, {215.5, 101.845}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {231., 128.69}], LineBox[{{215.5, 101.845}, {220.7501710553752, 110.9379575471966}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {892.82, 75.}], LineBox[{{903.0698289446249, 57.247957547196606`}, {908.32, 48.155}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {923.82, 21.310000000000002`}], LineBox[{{908.32, 48.155}, {913.5701710553752, 39.0620424528034}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {892.82, 75.}], LineBox[{{910.5720424528034, 85.24982894462482}, {919.665, 90.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {946.51, 106.}], LineBox[{{919.665, 90.5}, {928.7579575471966, 95.75017105537522}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {892.82, 75.}], LineBox[{{882.5701710553752, 92.75204245280335}, {877.3199999999999, 101.845}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.036892726050988485`], FontWeight->Plain], {861.8199999999999, 128.69}], LineBox[{{877.3199999999999, 101.845}, {872.0698289446248, 110.9379575471966}}]}}}, {}, {}}, ImageSize->{{0., 325.2673706848095}, {0., 99.85469023421668}}, PlotRange->{{126.31, 966.51}, {-105.99726842804053`, 151.9379513210304}}]], "Output", CellChangeTimes->{ 3.5810679226846437`*^9, 3.5810680039139867`*^9, 3.5810680346772404`*^9, 3.5810682856660814`*^9, {3.5810683181141386`*^9, 3.5810684143819075`*^9}, 3.581068449279169*^9, 3.581068713013232*^9, {3.581068761248517*^9, 3.5810687877997637`*^9}}] }, Open ]], Cell["(* Distance Matrix Bohr *)", "Text", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}, 3.573368567997178*^9, { 3.5746565325286493`*^9, 3.574656552839885*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc", ",", "num1"}], "]"}], "]"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}, 3.573368567997178*^9, 3.5746565325286493`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{ 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[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"Dij", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, { 3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, { 3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, { 3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 3.5682778284359474`*^9}, 3.56882183684053*^9, {3.5688219650415554`*^9, 3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, { 3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, { 3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, { 3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, { 3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, { 3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}, { 3.571113899355363*^9, 3.571113958604267*^9}, 3.57111399989754*^9, { 3.5711140388820086`*^9, 3.571114044841219*^9}, {3.571115985874628*^9, 3.5711159997742524`*^9}, {3.57313788224113*^9, 3.5731379093851776`*^9}, 3.573137959679666*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23"}, {"0.`", "0", "0", "2.8683376626669146`", "2.8795041706722495`", "0", "0", "0", "0", "0", "0", "2.0669037517176876`", "2.0697897046128153`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0.`", "0", "0", "0", "2.8664793917683284`", "0", "2.736849368599825`", "0", "0", "0", "0", "0", "2.06891622020332`", "2.068888498679059`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0.`", "0", "0", "0", "2.8742989597589315`", "0", "2.74355646121765`", "0", "0", "0", "0", "0", "0", "2.0650758761305616`", "2.065346321938126`", "0", "0", "0", "0", "0", "0"}, {"2.8683376626669146`", "0", "0", "0.`", "0", "0", "0", "2.5435224283302036`", "0", "2.2873294446308297`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.8795041706722495`", "0", "0", "0", "0.`", "0", "0", "0", "2.5490015243635153`", "0", "2.2875816594774543`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.8664793917683284`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0691443346141813`", "2.0695619561149314`", "2.0708011537785636`", "0", "0", "0"}, {"0", "0", "2.8742989597589315`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.069748330344879`", "2.0718470295640588`", "2.0674499969195432`"}, {"0", "2.736849368599825`", "0", "2.5435224283302036`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.74355646121765`", "0", "2.5490015243635153`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.2873294446308297`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.2875816594774543`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.0669037517176876`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.0697897046128153`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.06891622020332`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.068888498679059`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.0650758761305616`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.065346321938126`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.0691443346141813`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.0695619561149314`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.0708011537785636`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.069748330344879`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.0718470295640588`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0"}, {"0", "0", "0", "0", "0", "0", "2.0674499969195432`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.581067922700244*^9, 3.5810680039451866`*^9, 3.581068034708441*^9, 3.581068285697282*^9, {3.5810683181297383`*^9, 3.581068414413108*^9}, 3.5810684493103685`*^9, 3.5810687130444317`*^9, {3.5810687612797165`*^9, 3.581068787830963*^9}}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, { 3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, { 3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, { 3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, { 3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, { 3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, { 3.5712028115629635`*^9, 3.5712028346354036`*^9}, {3.5746569418109684`*^9, 3.574656960905402*^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", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.59"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.5712020689392586`*^9}, {3.5733681085139713`*^9, 3.573368111025576*^9}, {3.5733681833629026`*^9, 3.573368184579705*^9}, { 3.573368233454591*^9, 3.573368234047392*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`"}], "}"}]], "Output", CellChangeTimes->{ 3.581067922731444*^9, 3.581068003960787*^9, 3.581068034724041*^9, 3.5810682857128816`*^9, {3.581068318145338*^9, 3.5810684144287076`*^9}, 3.5810684493259687`*^9, 3.581068713060032*^9, {3.5810687612953167`*^9, 3.5810687878465633`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", 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[{"MatrixForm", "[", "Gij", "]"}]}]}]], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, { 3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.569341165522358*^9, 3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}, { 3.57059671735485*^9, 3.570596744467697*^9}, 3.575798260154653*^9, { 3.57579837247485*^9, 3.575798382833268*^9}, 3.575798442113373*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.6111376626669145`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"2.6223041706722494`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "2.6092793917683283`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.6170989597589314`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.5582493685998253`", "0", "2.3649224283302037`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.5649564612176503`", "0", "2.3704015243635155`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.10872944463083`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.1089816594774544`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"1.4769037517176877`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"1.4797897046128154`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\ \>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "1.4789162202033204`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "1.4788884986790594`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "1.4750758761305618`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"0", "0", "1.475346321938126`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"0", "0", "0", "0", "0", "1.4791443346141815`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "1.4795619561149316`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "1.4808011537785637`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "1.4797483303448793`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "1.481847029564059`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "1.4774499969195434`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.581067922747044*^9, 3.581068003976387*^9, 3.5810680347396407`*^9, 3.5810682857284813`*^9, {3.5810683181609383`*^9, 3.5810684144443073`*^9}, 3.581068449341569*^9, 3.581068713075632*^9, {3.581068761310917*^9, 3.5810687878621635`*^9}}] }, Open ]], 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[CellGroupData[{ 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[{"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}, {3.5757984551081953`*^9, 3.5757984616914067`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "2.3539376626669144`", "2.3651041706722493`", "0", "0", "0", "0", "0", "0", "1.2197037517176876`", "1.2225897046128154`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "0", "0", "0", "0", "2.3520793917683283`", "0", "2.3010493685998252`", "0", "0", "0", "0", "0", "1.2217162202033203`", "1.2216884986790593`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "2.3598989597589313`", "0", "2.30775646121765`", "0", "0", "0", "0", "0", "0", "1.2178758761305617`", "1.2181463219381259`", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "2.1077224283302036`", "0", "1.8515294446308297`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "2.1132015243635154`", "0", "1.8517816594774543`", "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.2219443346141814`", "1.2223619561149315`", "1.2236011537785636`", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2225483303448792`", "1.2246470295640588`", "1.2202499969195433`"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.581067922762644*^9, 3.5810680039919868`*^9, 3.581068034755241*^9, 3.5810682857440815`*^9, {3.5810683181765385`*^9, 3.5810684144599075`*^9}, 3.581068449357169*^9, 3.5810687131068325`*^9, {3.581068761342117*^9, 3.5810687878777637`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Lij", "]"}]}]}]], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.5683793122399254`*^9, 3.568379313019926*^9}, { 3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, { 3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 3.5705968020785985`*^9}, {3.5757985741520042`*^9, 3.5757985795340137`*^9}, {3.5757996092762227`*^9, 3.5757996144242315`*^9}, {3.575799724856826*^9, 3.575799730145235*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "1.1769688313334572`", "1.1825520853361247`", "0", "0", "0", "0", "0", "0", "1.2197037517176876`", "1.2225897046128154`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "0", "0", "0", "0", "1.1760396958841641`", "0", "1.1505246842999126`", "0", "0", "0", "0", "0", "1.2217162202033203`", "1.2216884986790593`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "1.1799494798794656`", "0", "1.153878230608825`", "0", "0", "0", "0", "0", "0", "1.2178758761305617`", "1.2181463219381259`", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "1.0538612141651018`", "0", "0.9257647223154148`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "1.0566007621817577`", "0", "0.9258908297387272`", "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.2219443346141814`", "1.2223619561149315`", "1.2236011537785636`", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2225483303448792`", "1.2246470295640588`", "1.2202499969195433`"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.581067922793844*^9, 3.5810680040075865`*^9, 3.5810680347708406`*^9, 3.5810682857596817`*^9, {3.5810683181921387`*^9, 3.5810684144755077`*^9}, 3.581068449388369*^9, 3.581068713122432*^9, {3.5810687613577166`*^9, 3.581068787893364*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}], "\[IndentingNewLine]", 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"}], "}"}]}], "]"}]}], "\n", 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"}], "}"}]}], "]"}]}], "\n", RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor"}]}], " ", RowBox[{"(*", " ", RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", RowBox[{"pairs", ":", " ", RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}], "\n", 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"}], "}"}]}], "]"}]}], "\n", RowBox[{"TvalC", "=", RowBox[{"Tval", "-", "TvalH"}]}]}]}]], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}, { 3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 3.5705968602823005`*^9}, 3.574657067547189*^9}], Cell[BoxData["37.255134149822155`"], "Output", CellChangeTimes->{ 3.581067922809444*^9, 3.5810680040231867`*^9, 3.581068034786441*^9, 3.581068285775282*^9, {3.581068318207739*^9, 3.581068414491108*^9}, 3.581068449403969*^9, 3.581068713138032*^9, {3.581068761373317*^9, 3.5810687879245634`*^9}}], Cell[BoxData["520.2383203959354`"], "Output", CellChangeTimes->{ 3.581067922809444*^9, 3.5810680040231867`*^9, 3.581068034786441*^9, 3.581068285775282*^9, {3.581068318207739*^9, 3.581068414491108*^9}, 3.581068449403969*^9, 3.581068713138032*^9, {3.581068761373317*^9, 3.5810687879245634`*^9}}], Cell[BoxData["557.4934545457576`"], "Output", CellChangeTimes->{ 3.581067922809444*^9, 3.5810680040231867`*^9, 3.581068034786441*^9, 3.581068285775282*^9, {3.581068318207739*^9, 3.581068414491108*^9}, 3.581068449403969*^9, 3.581068713138032*^9, {3.581068761373317*^9, 3.5810687879245634`*^9}}], Cell[BoxData["18.098190192007927`"], "Output", CellChangeTimes->{ 3.581067922809444*^9, 3.5810680040231867`*^9, 3.581068034786441*^9, 3.581068285775282*^9, {3.581068318207739*^9, 3.581068414491108*^9}, 3.581068449403969*^9, 3.581068713138032*^9, {3.581068761373317*^9, 3.5810687879245634`*^9}}], Cell[BoxData["19.156943957814228`"], "Output", CellChangeTimes->{ 3.581067922809444*^9, 3.5810680040231867`*^9, 3.581068034786441*^9, 3.581068285775282*^9, {3.581068318207739*^9, 3.581068414491108*^9}, 3.581068449403969*^9, 3.581068713138032*^9, {3.581068761373317*^9, 3.5810687879245634`*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566773749037`*^9}, { 3.574656980265036*^9, 3.5746569955686626`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.6"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}], "\n", RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.6"}], ")"}], " ", "&"}]}], "]"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CC", "]"}]}], " "}], "\n", RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CH", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", ">", "2.0"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.1"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CH", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CH", "]"}]}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566773749037`*^9}, { 3.574656980265036*^9, 3.5746569955686626`*^9}, {3.580992421663953*^9, 3.5809924274359627`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2.5435224283302036`", ",", "2.5490015243635153`"}], "}"}]], "Output", CellChangeTimes->{ 3.5810679228250437`*^9, 3.581068004038787*^9, 3.581068034802041*^9, 3.5810682857908816`*^9, {3.5810683182389383`*^9, 3.581068414522308*^9}, 3.581068449419569*^9, 3.5810687131692324`*^9, {3.581068761404517*^9, 3.5810687879401636`*^9}}], Cell[BoxData[ RowBox[{"2.5462619763468597`", "\[PlusMinus]", "0.003874305959927058`"}]], "Output", CellChangeTimes->{ 3.5810679228250437`*^9, 3.581068004038787*^9, 3.581068034802041*^9, 3.5810682857908816`*^9, {3.5810683182389383`*^9, 3.581068414522308*^9}, 3.581068449419569*^9, 3.5810687131692324`*^9, {3.581068761404517*^9, 3.5810687879401636`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8683376626669146`", ",", "2.8795041706722495`", ",", "2.8664793917683284`", ",", "2.8742989597589315`", ",", "2.736849368599825`", ",", "2.74355646121765`"}], "}"}]], "Output", CellChangeTimes->{ 3.5810679228250437`*^9, 3.581068004038787*^9, 3.581068034802041*^9, 3.5810682857908816`*^9, {3.5810683182389383`*^9, 3.581068414522308*^9}, 3.581068449419569*^9, 3.5810687131692324`*^9, {3.581068761404517*^9, 3.581068787955764*^9}}], Cell[BoxData[ RowBox[{"2.8281710024473163`", "\[PlusMinus]", "0.06832720876400628`"}]], "Output", CellChangeTimes->{ 3.5810679228250437`*^9, 3.581068004038787*^9, 3.581068034802041*^9, 3.5810682857908816`*^9, {3.5810683182389383`*^9, 3.581068414522308*^9}, 3.581068449419569*^9, 3.5810687131692324`*^9, {3.581068761404517*^9, 3.581068787955764*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0669037517176876`", ",", "2.0697897046128153`", ",", "2.06891622020332`", ",", "2.068888498679059`", ",", "2.0650758761305616`", ",", "2.065346321938126`", ",", "2.0691443346141813`", ",", "2.0695619561149314`", ",", "2.0708011537785636`", ",", "2.069748330344879`", ",", "2.0718470295640588`", ",", "2.0674499969195432`"}], "}"}]], "Output", CellChangeTimes->{ 3.5810679228250437`*^9, 3.581068004038787*^9, 3.581068034802041*^9, 3.5810682857908816`*^9, {3.5810683182389383`*^9, 3.581068414522308*^9}, 3.581068449419569*^9, 3.5810687131692324`*^9, {3.581068761404517*^9, 3.581068787955764*^9}}], Cell[BoxData[ RowBox[{"2.068622764551477`", "\[PlusMinus]", "0.002061037727096448`"}]], "Output", CellChangeTimes->{ 3.5810679228250437`*^9, 3.581068004038787*^9, 3.581068034802041*^9, 3.5810682857908816`*^9, {3.5810683182389383`*^9, 3.581068414522308*^9}, 3.581068449419569*^9, 3.5810687131692324`*^9, {3.581068761404517*^9, 3.581068787955764*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "C", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566836773148`*^9}, { 3.5746567220533824`*^9, 3.5746567296193953`*^9}}], Cell[BoxData["7"], "Output", CellChangeTimes->{ 3.581067922840644*^9, 3.581068004069987*^9, 3.581068034817641*^9, 3.5810682858220816`*^9, {3.5810683182545385`*^9, 3.5810684145379076`*^9}, 3.5810684494507694`*^9, 3.5810687132004323`*^9, {3.581068761435717*^9, 3.5810687879713635`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "O", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"no", "=", "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[{"no", "=", RowBox[{"no", "+", "1"}]}], ",", "no"}], "]"}]}], "]"}], "\[IndentingNewLine]", "no"}]}]], "Input", CellChangeTimes->{{3.5747778571769943`*^9, 3.5747779085322847`*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{ 3.581067922856244*^9, 3.5810680040855865`*^9, 3.5810680348332405`*^9, 3.581068285837682*^9, {3.5810683182701387`*^9, 3.581068414553508*^9}, 3.5810684494507694`*^9, 3.5810687132160325`*^9, {3.5810687614513173`*^9, 3.5810687879869633`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "count", " ", "H", " ", "atoms", " ", "bonded", " ", "to", " ", "each", " ", "C", " ", "atom"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566836773148`*^9}, { 3.5746567220533824`*^9, 3.5746567296193953`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "0", ",", "0", ",", "3", ",", "3"}], "}"}]], "Output", CellChangeTimes->{ 3.5810679228718443`*^9, 3.5810680041011868`*^9, 3.5810680348488407`*^9, 3.581068285853282*^9, {3.581068318285739*^9, 3.581068414569108*^9}, 3.581068449466369*^9, 3.581068713231632*^9, {3.581068761466917*^9, 3.5810687880025635`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"conj", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conns", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "identify", " ", "C", " ", "atoms", " ", "at", " ", "double", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], "]"}], "]"}], "\[NotEqual]", "\"\\""}]}], ")"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"conj", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"conj", "=", RowBox[{"Take", "[", RowBox[{"conj", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"nj", "=", RowBox[{"Length", "[", "conj", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"conns", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, { 3.572624511540655*^9, 3.5726245129758577`*^9}, {3.5726259545431895`*^9, 3.5726259555883913`*^9}, {3.5726268385811424`*^9, 3.5726268436979513`*^9}, {3.5727156260686264`*^9, 3.5727156464110622`*^9}, 3.572767008717453*^9, 3.572767169428935*^9, {3.5727947272385855`*^9, 3.5727947348669987`*^9}, {3.5733216830258026`*^9, 3.573321731307887*^9}, 3.5746648213532076`*^9, 3.5747423225955195`*^9, {3.5747806605331182`*^9, 3.5747807483924723`*^9}, {3.5747809586028414`*^9, 3.57478099722851*^9}, { 3.5809196826118565`*^9, 3.5809196867146635`*^9}, {3.58091973012954*^9, 3.580919826178909*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.5810679228874445`*^9, 3.581068004116787*^9, 3.581068034864441*^9, 3.5810682858688817`*^9, {3.581068318301339*^9, 3.581068414584708*^9}, 3.581068449497569*^9, 3.5810687132472324`*^9, {3.5810687614825172`*^9, 3.5810687880181637`*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.5810679228874445`*^9, 3.581068004116787*^9, 3.581068034864441*^9, 3.5810682858688817`*^9, {3.581068318301339*^9, 3.581068414584708*^9}, 3.581068449497569*^9, 3.5810687132472324`*^9, {3.5810687614825172`*^9, 3.5810687880181637`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "4", ",", "5", ",", "12", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "6", ",", "8", ",", "14", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "7", ",", "9", ",", "16", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "1", ",", "8", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "1", ",", "9", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "2", ",", "18", ",", "19", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "3", ",", "21", ",", "22", ",", "23"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "2", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "3", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"22", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"23", ",", "7"}], "}"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$, TableAlignments -> Left]]]], "Output", CellChangeTimes->{ 3.5810679228874445`*^9, 3.581068004116787*^9, 3.581068034864441*^9, 3.5810682858688817`*^9, {3.581068318301339*^9, 3.581068414584708*^9}, 3.581068449497569*^9, 3.5810687132472324`*^9, {3.5810687614825172`*^9, 3.5810687880181637`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$, TableAlignments -> Left]]]], "Output", CellChangeTimes->{ 3.5810679228874445`*^9, 3.581068004116787*^9, 3.581068034864441*^9, 3.5810682858688817`*^9, {3.581068318301339*^9, 3.581068414584708*^9}, 3.581068449497569*^9, 3.5810687132472324`*^9, {3.5810687614825172`*^9, 3.5810687880181637`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"j", "=", "0"}], ";", " ", RowBox[{"h", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coco", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "no", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coch", "=", "coco"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nc", "+", "1"}]}], ",", " ", RowBox[{"i", "\[LessEqual]", RowBox[{"nc", "+", "no"}]}], ",", " ", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "}"}], ",", RowBox[{"Take", "[", RowBox[{ RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", "3"}], "]"}]}], "]"}]}]}], ",", RowBox[{ RowBox[{"h", "=", RowBox[{"h", "+", "1"}]}], ";", RowBox[{ RowBox[{"coch", "[", RowBox[{"[", "h", "]"}], "]"}], "=", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"coco", "=", RowBox[{"Take", "[", RowBox[{"coco", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"coch", "=", RowBox[{"Take", "[", RowBox[{"coch", ",", RowBox[{"{", RowBox[{"1", ",", "h"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"oj", "=", RowBox[{"Length", "[", "coco", "]"}]}], "\[IndentingNewLine]", RowBox[{"hj", "=", RowBox[{"Length", "[", "coch", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}, { 3.5747411461662536`*^9, 3.5747411501130605`*^9}, {3.5747732863761578`*^9, 3.5747733212266192`*^9}, {3.574777246966323*^9, 3.5747777516272087`*^9}, { 3.574778090990205*^9, 3.5747782123584185`*^9}, {3.5747782626217065`*^9, 3.5747782672393146`*^9}, {3.57477829882937*^9, 3.57477835005986*^9}, { 3.5747784095115643`*^9, 3.5747784447520266`*^9}, {3.5747785201625586`*^9, 3.574778535122985*^9}, {3.5747785781478605`*^9, 3.574778578319461*^9}, { 3.5747786106427174`*^9, 3.574778688830055*^9}, {3.5747787248193183`*^9, 3.5747787708393993`*^9}, 3.574778803895857*^9, {3.5747790916071625`*^9, 3.5747790975975733`*^9}, {3.574779153835672*^9, 3.574779165457692*^9}, { 3.5747792016185555`*^9, 3.574779212008174*^9}, {3.5747792458290334`*^9, 3.5747792599314585`*^9}, {3.5747792935339174`*^9, 3.574779301552331*^9}, { 3.574779474915436*^9, 3.574779529047531*^9}, {3.5747795770176153`*^9, 3.574779592914043*^9}, {3.5747796386065235`*^9, 3.574779641742129*^9}, { 3.574779726762278*^9, 3.57477972782308*^9}, 3.5747798402368774`*^9, { 3.5747800908513174`*^9, 3.5747801971811047`*^9}, {3.5747802368675737`*^9, 3.5747802741828394`*^9}, {3.574780331856141*^9, 3.574780343462561*^9}, { 3.574780380434626*^9, 3.5747803867058372`*^9}, {3.5747804240679026`*^9, 3.574780436781925*^9}, {3.574780765302902*^9, 3.574780854581859*^9}, { 3.574785122296955*^9, 3.574785156398615*^9}, {3.574950232276594*^9, 3.574950236582202*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "4", ",", "1", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "5", ",", "1", ",", "9"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5810679229186444`*^9, 3.581068004147987*^9, 3.5810680348956413`*^9, 3.581068285884482*^9, {3.5810683183325386`*^9, 3.5810684146159077`*^9}, 3.5810684495131693`*^9, 3.5810687132784324`*^9, {3.5810687614981174`*^9, 3.581068788049364*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "3", ",", "5"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5810679229186444`*^9, 3.581068004147987*^9, 3.5810680348956413`*^9, 3.581068285884482*^9, {3.5810683183325386`*^9, 3.5810684146159077`*^9}, 3.5810684495131693`*^9, 3.5810687132784324`*^9, {3.5810687614981174`*^9, 3.581068788049364*^9}}], Cell[BoxData["2"], "Output", CellChangeTimes->{ 3.5810679229186444`*^9, 3.581068004147987*^9, 3.5810680348956413`*^9, 3.581068285884482*^9, {3.5810683183325386`*^9, 3.5810684146159077`*^9}, 3.5810684495131693`*^9, 3.5810687132784324`*^9, {3.5810687614981174`*^9, 3.581068788049364*^9}}], Cell[BoxData["2"], "Output", CellChangeTimes->{ 3.5810679229186444`*^9, 3.581068004147987*^9, 3.5810680348956413`*^9, 3.581068285884482*^9, {3.5810683183325386`*^9, 3.5810684146159077`*^9}, 3.5810684495131693`*^9, 3.5810687132784324`*^9, {3.5810687614981174`*^9, 3.581068788049364*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl", ",", "i"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpo", "=", RowBox[{"{", RowBox[{"1.4", ",", "1.2", ",", "1.4", ",", "1.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", RowBox[{"{", RowBox[{"1.4", ",", "1.2", ",", "1.4", ",", "1.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "=", "3"}], ";", " ", RowBox[{"c", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}, { 3.5747411461662536`*^9, 3.5747411501130605`*^9}, {3.5747732863761578`*^9, 3.5747733212266192`*^9}, {3.574777246966323*^9, 3.574777607030555*^9}, { 3.5747831833383493`*^9, 3.5747831840715504`*^9}, {3.5747851902662745`*^9, 3.574785199875891*^9}, 3.5748282451644087`*^9, {3.5748534446735983`*^9, 3.5748534455472*^9}, {3.575721474665098*^9, 3.5757215077995567`*^9}, { 3.575721778631632*^9, 3.575721826414516*^9}, {3.5809715159634295`*^9, 3.5809715296758537`*^9}}], Cell["\<\ (*--------------------------------------------------------------------------*) (* next: \[Pi]-clouds for C=C and C=O, half occ each above and below *)\ \>", "Text", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, {3.574655628725462*^9, 3.5746556677099304`*^9}, {3.574782364321311*^9, 3.574782366817315*^9}, { 3.5747823996553726`*^9, 3.5747824011997757`*^9}, {3.574851478943345*^9, 3.574851501984586*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"connc", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], "]"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"connc", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "1", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "1", ",", "9"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"cj", "=", RowBox[{"Length", "[", "connc", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "cj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "=", "tpo"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"tplo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "oj", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tplu", "=", "tplo"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.574782409030989*^9, 3.5747824335386324`*^9}, { 3.57478246631429*^9, 3.5747824836615205`*^9}, {3.574782729892353*^9, 3.574782734509961*^9}, {3.5747827728236284`*^9, 3.574782822150915*^9}, { 3.574782939494321*^9, 3.574782974048382*^9}, {3.5747830324548845`*^9, 3.574783065448942*^9}, {3.574783361818263*^9, 3.5747833666074715`*^9}, { 3.574783407073942*^9, 3.574783441097602*^9}, {3.574783484762079*^9, 3.5747834849804792`*^9}, 3.574783557801407*^9, {3.5747836107946997`*^9, 3.5747836636631927`*^9}, {3.574783719464491*^9, 3.574783731414112*^9}, { 3.574783780975399*^9, 3.5747838001946325`*^9}, {3.574783898490405*^9, 3.5747839481764927`*^9}, {3.5747840180958157`*^9, 3.5747840270034313`*^9}, {3.574784153800454*^9, 3.5747841712568846`*^9}, { 3.5747854335799017`*^9, 3.5747854339543023`*^9}, 3.5747867930286894`*^9, { 3.5747868591884055`*^9, 3.574786865865217*^9}, 3.574787046575935*^9, { 3.574787368045699*^9, 3.574787376922115*^9}, 3.5747874778074923`*^9, { 3.5747875111447506`*^9, 3.5747875582880335`*^9}, {3.5747875958996997`*^9, 3.574787678221044*^9}, 3.574787726456329*^9, {3.574787774847614*^9, 3.5747877758148155`*^9}, 3.5747879836695805`*^9, {3.574788032310466*^9, 3.574788047239692*^9}, {3.5747881733035135`*^9, 3.574788204831169*^9}, { 3.574828128133003*^9, 3.5748281291938047`*^9}, {3.57482825168522*^9, 3.574828270452053*^9}, 3.574828314724931*^9, {3.5748306212357817`*^9, 3.574830621703783*^9}, {3.5753559894421577`*^9, 3.575356014137001*^9}, { 3.5753561901365104`*^9, 3.575356206251339*^9}, {3.575375584885363*^9, 3.575375598753787*^9}, {3.5753756763015237`*^9, 3.5753756873931427`*^9}, { 3.575562289422053*^9, 3.575562298189268*^9}, {3.5755628657806654`*^9, 3.5755629193667593`*^9}, {3.575563069579423*^9, 3.5755630812326436`*^9}, 3.5755632175768833`*^9, 3.575563562493489*^9, {3.5755643314188395`*^9, 3.575564336426448*^9}, {3.5755649483375225`*^9, 3.575564954156333*^9}, { 3.5755653205385766`*^9, 3.5755653215213785`*^9}, {3.580894768624258*^9, 3.5808947815410805`*^9}, {3.5808962984409447`*^9, 3.580896311123767*^9}, { 3.5809006217573385`*^9, 3.5809006392917695`*^9}, {3.5809722862303824`*^9, 3.580972313748831*^9}, {3.580972650397422*^9, 3.5809727057931194`*^9}, { 3.580974161306876*^9, 3.5809741619776773`*^9}, 3.5809741927565312`*^9, { 3.5810043290519295`*^9, 3.581004352401265*^9}, {3.581047911539679*^9, 3.5810479493385453`*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{ 3.581067922934244*^9, 3.581068004163587*^9, 3.581068034926841*^9, 3.581068285915682*^9, {3.581068318363739*^9, 3.581068414647108*^9}, 3.581068449544369*^9, 3.581068713294032*^9, {3.581068761529317*^9, 3.581068788064964*^9}}] }, Open ]], Cell[BoxData[ RowBox[{"<<", " ", "\"\\""}]], "Input", CellChangeTimes->{{3.575816054798004*^9, 3.5758160989148817`*^9}, 3.5758162991256332`*^9, {3.580899285145791*^9, 3.5808992860817924`*^9}, { 3.58090152780693*^9, 3.5809015330953393`*^9}, {3.58097175550185*^9, 3.5809717625374627`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 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.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, 3.5731486865617046`*^9, {3.5731490505259438`*^9, 3.573149068278775*^9}, { 3.573149110008848*^9, 3.573149243825884*^9}, {3.5731493138232064`*^9, 3.5731493450700617`*^9}, {3.574658310026972*^9, 3.5746585452285843`*^9}, { 3.574659591943223*^9, 3.5746596938582015`*^9}, {3.574664442038542*^9, 3.574664456640167*^9}, {3.5747841177643905`*^9, 3.574784120931196*^9}, { 3.574788295155328*^9, 3.5747883150453625`*^9}, {3.5748281376022196`*^9, 3.5748281378830204`*^9}, {3.5748343592063475`*^9, 3.574834363948756*^9}, { 3.5753654533402643`*^9, 3.575365496287139*^9}, {3.5753657782732344`*^9, 3.575365826196519*^9}, {3.575365998186821*^9, 3.575366010152042*^9}, { 3.5755611386860313`*^9, 3.575561149793251*^9}, {3.575561180306905*^9, 3.5755612310849943`*^9}, {3.575561285248289*^9, 3.575561409393307*^9}, { 3.575561440016161*^9, 3.5755615497935534`*^9}, {3.5755616124120636`*^9, 3.575561635437704*^9}, {3.575561892338955*^9, 3.575561942820644*^9}, { 3.5755620823160887`*^9, 3.5755621030173254`*^9}, 3.57556213981779*^9, { 3.5755625665409393`*^9, 3.575562567820142*^9}, {3.5755634654301186`*^9, 3.575563469205325*^9}, {3.5755638765688405`*^9, 3.575564008295472*^9}, { 3.575564213810233*^9, 3.5755642215946465`*^9}, 3.575564866094178*^9, 3.57556519149515*^9, {3.575816288424014*^9, 3.5758162902024174`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\<\"C\"\>", "1.0974510956533934`", "1.2572885326766854`", RowBox[{"-", "2.556086493194923`"}]}, {"2", "\<\"C\"\>", RowBox[{"-", "5.667282704599533`"}], RowBox[{"-", "0.4736980200654736`"}], RowBox[{"-", "2.008936419194084`"}]}, {"3", "\<\"C\"\>", "5.723560350579715`", "1.5410670437358187`", "2.7125269695320533`"}, {"4", "\<\"C\"\>", RowBox[{"-", "1.7491235175798256`"}], "1.5580378709421043`", RowBox[{"-", "2.7402705150387314`"}]}, {"5", "\<\"C\"\>", "2.0139234520284255`", "1.5539118271310333`", "0.1575157823985954`"}, {"6", "\<\"C\"\>", RowBox[{"-", "6.623532509961639`"}], RowBox[{"-", "3.0682618972778255`"}], RowBox[{"-", "1.253602916532996`"}]}, {"7", "\<\"C\"\>", "5.712865740702026`", RowBox[{"-", "0.9610961350566383`"}], "4.12697370309471`"}, {"8", "\<\"O\"\>", RowBox[{"-", "2.9326163169557855`"}], RowBox[{"-", "0.5799283777499342`"}], RowBox[{"-", "2.034613759457293`"}]}, {"9", "\<\"O\"\>", "4.548033056586765`", "1.2933878299377697`", "0.245972156839031`"}, {"10", "\<\"O\"\>", RowBox[{"-", "2.81060806960158`"}], "3.4621487551380725`", RowBox[{"-", "3.4327214337187515`"}]}, {"11", "\<\"O\"\>", "0.6796977745236138`", "1.9785885986341352`", "1.966526929409622`"}, {"12", "\<\"H\"\>", "2.0007300971451825`", "2.6973463578112513`", RowBox[{"-", "3.73184651318087`"}]}, {"13", "\<\"H\"\>", "1.6881105561266523`", RowBox[{"-", "0.6020181565390601`"}], RowBox[{"-", "3.2475555514413696`"}]}, {"14", "\<\"H\"\>", RowBox[{"-", "6.252520668924269`"}], "0.9930470517563589`", RowBox[{"-", "0.672310164169966`"}]}, {"15", "\<\"H\"\>", RowBox[{"-", "6.326059755891318`"}], "0.0873999552454776`", RowBox[{"-", "3.888160056433607`"}]}, {"16", "\<\"H\"\>", "4.731357316028448`", "3.0098040774350046`", "3.7721887260582485`"}, {"17", "\<\"H\"\>", "7.6451040174079425`", "2.1719619224341007`", "2.293842102301396`"}, {"18", "\<\"H\"\>", RowBox[{"-", "5.937075982622452`"}], RowBox[{"-", "3.591504247542676`"}], "0.62691646821918`"}, {"19", "\<\"H\"\>", RowBox[{"-", "5.998616795758999`"}], RowBox[{"-", "4.50864817701126`"}], RowBox[{"-", "2.601881228120237`"}]}, {"20", "\<\"H\"\>", RowBox[{"-", "8.693977192895757`"}], RowBox[{"-", "3.0683809764719894`"}], RowBox[{"-", "1.2151813181719506`"}]}, {"21", "\<\"H\"\>", "6.628706607906556`", RowBox[{"-", "2.4428739286425123`"}], "3.009195448090952`"}, {"22", "\<\"H\"\>", "6.744119544468983`", RowBox[{"-", "0.761051448630997`"}], "5.912764236601499`"}, {"23", "\<\"H\"\>", "3.777621625002427`", RowBox[{"-", "1.546604046740475`"}], "4.55866825688052`"} }, 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.5810679229654446`*^9, 3.581068004194787*^9, 3.581068034942441*^9, 3.581068285931282*^9, {3.5810683183793387`*^9, 3.5810684146627083`*^9}, 3.581068449575569*^9, 3.5810687133252325`*^9, {3.581068761544917*^9, 3.5810687880961637`*^9}}] }, Open ]], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O atoms in C=O, two doubly occ LP *)\ \>", "Text", CellChangeTimes->{{3.573213657265206*^9, 3.5732137071540937`*^9}, { 3.57331351711226*^9, 3.5733135247562733`*^9}, 3.5746557964101562`*^9, { 3.5746643799192324`*^9, 3.5746643831328382`*^9}, 3.5746732567499037`*^9, 3.574740785852421*^9, {3.5749559129781585`*^9, 3.574955914444561*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"conn", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "10", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "11", ",", "9"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.5746625442640085`*^9}, {3.5746628828158026`*^9, 3.5746629097414503`*^9}, 3.574664223185757*^9, {3.5746695839262524`*^9, 3.574669588512661*^9}, { 3.5746696590715847`*^9, 3.574669659258785*^9}, {3.574682369907935*^9, 3.5746823705943365`*^9}, {3.574682413759612*^9, 3.574682423228829*^9}, { 3.574682475629321*^9, 3.57468248066813*^9}, 3.574682520073799*^9, { 3.5747408251956897`*^9, 3.57474083678651*^9}, {3.5747855534349117`*^9, 3.5747855725761456`*^9}, {3.574785769729292*^9, 3.574785777045705*^9}, { 3.574786365775139*^9, 3.574786374511154*^9}, {3.5753558083414397`*^9, 3.5753558395570946`*^9}, {3.575367002641385*^9, 3.575367023202221*^9}, { 3.5753671931957197`*^9, 3.575367224473775*^9}, {3.575367534103119*^9, 3.575367537769125*^9}, {3.57537552033245*^9, 3.5753755271184616`*^9}, 3.5809007348575373`*^9, {3.5809724154142094`*^9, 3.5809724551786795`*^9}, { 3.5809921840599356`*^9, 3.580992187710342*^9}, {3.5810043867822313`*^9, 3.5810044091495113`*^9}, {3.5810479881982136`*^9, 3.5810480035330405`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"oj", "=", RowBox[{"Length", "[", "conn", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5809724723231096`*^9, 3.580972508156372*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rlo", " ", "=", " ", "1.14"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "oj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "oj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Okk", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Okl", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"<<", " ", "\"\\""}]}], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.5746625442640085`*^9}, {3.5746628828158026`*^9, 3.5746629097414503`*^9}, 3.574664223185757*^9, {3.5746695839262524`*^9, 3.574669588512661*^9}, { 3.5746696590715847`*^9, 3.574669659258785*^9}, {3.574682369907935*^9, 3.5746823705943365`*^9}, {3.574682413759612*^9, 3.574682423228829*^9}, { 3.574682475629321*^9, 3.57468248066813*^9}, 3.574682520073799*^9, { 3.5747408251956897`*^9, 3.57474083678651*^9}, {3.5747855534349117`*^9, 3.5747855725761456`*^9}, {3.574785769729292*^9, 3.574785777045705*^9}, 3.574786365775139*^9, {3.5753484863633204`*^9, 3.5753485008089457`*^9}, 3.5757146385303354`*^9, {3.575816415969838*^9, 3.575816437934677*^9}, 3.5809007468695583`*^9, {3.580972392513369*^9, 3.5809723934025707`*^9}, { 3.580972540276829*^9, 3.580972579214497*^9}, {3.580974406211706*^9, 3.5809744907638545`*^9}, {3.580974532213127*^9, 3.5809745364095345`*^9}, 3.5809745898396287`*^9, {3.5809746633469577`*^9, 3.5809746775117826`*^9}, 3.580974760191928*^9, {3.5809748106424165`*^9, 3.5809748253532424`*^9}, { 3.5809748897813554`*^9, 3.580974914164198*^9}, 3.580974946035054*^9, 3.5809749886543293`*^9, {3.5809750218511877`*^9, 3.5809750254079933`*^9}, 3.5809750736276784`*^9, 3.580975145013404*^9, 3.5809752146675262`*^9, { 3.5809752594708047`*^9, 3.580975261904409*^9}, {3.5809753136653*^9, 3.580975338828144*^9}, 3.581004560807185*^9, {3.581048221746224*^9, 3.581048234397846*^9}, {3.5810482972347565`*^9, 3.5810483673880796`*^9}, 3.5810679988595777`*^9, 3.581068030371633*^9, {3.581068279706871*^9, 3.581068281235674*^9}, {3.581068312435728*^9, 3.5810684099046993`*^9}, 3.5810684457223625`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-1.1442661047854243`, -0.6552564699712565, 0}, 1.14]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.00467076134736248, 1.318591727559534, 0}, 1.14]}, {Opacity[0.5], SphereBox[{4.571960614295916, 0, 0}, 0.2572]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.1786]}, {Opacity[0.5], SphereBox[{2.1131043090746626`, -3.720587159096996, 0}, 0.1786]}, Text3DBox["1", {4.571960614295916, 0, 0}, {1, 0}], Text3DBox["10", {0, 0, 0}, {1, 0}], Text3DBox["8", {2.1131043090746626`, -3.720587159096996, 0}, {1, 0}], TubeBox[{{4.571960614295916, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{4.571960614295916, 0, 0}, { 2.1131043090746626`, -3.720587159096996, 0}}, 0.02], TubeBox[{{0, 0, 0}, {2.1131043090746626`, -3.720587159096996, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-1.1413595890126584`, 0.6603061778969325, 0}, 1.14]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.0011556718463825494`, -1.3185994935622352`, 0}, 1.14]}, {Opacity[0.5], SphereBox[{4.59878503441811, 0, 0}, 0.2572]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.1786]}, {Opacity[0.5], SphereBox[{2.1509266699146408`, 3.7104367847925994`, 0}, 0.1786]}, Text3DBox["1", {4.59878503441811, 0, 0}, {1, 0}], Text3DBox["11", {0, 0, 0}, {1, 0}], Text3DBox["9", {2.1509266699146408`, 3.7104367847925994`, 0}, {1, 0}], TubeBox[{{4.59878503441811, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{4.59878503441811, 0, 0}, { 2.1509266699146408`, 3.7104367847925994`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {2.1509266699146408`, 3.7104367847925994`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True]}], "}"}]], "Output", CellChangeTimes->{ 3.5810679229966445`*^9, 3.5810680042259874`*^9, 3.5810680349736414`*^9, 3.581068285962482*^9, {3.5810683184105387`*^9, 3.581068414709508*^9}, 3.5810684496067696`*^9, 3.581068713356433*^9, {3.5810687615761175`*^9, 3.581068788111764*^9}}] }, Open ]], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O atoms in C-O-H, C-O-C: two doubly occ LP *)\ \>", "Text", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.5749502553646355`*^9, 3.574950272103464*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ StyleBox["rlos", "Input"], StyleBox["=", "Input"], StyleBox[" ", "Input"], RowBox[{ StyleBox["Table", "Input"], StyleBox["[", "Input"], StyleBox[ RowBox[{"1.125", ",", RowBox[{"{", "hj", "}"}]}], "Input"], "]"}]}], StyleBox[";", "Input"]}], "\n", RowBox[{ RowBox[{"tpso", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "hj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpsu", "=", "tpso"}], ";"}]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670446904168*^9}, {3.5746710892508965`*^9, 3.574671127018563*^9}, { 3.574671266124007*^9, 3.574671266124007*^9}, {3.574671949327207*^9, 3.574671952228812*^9}, 3.5746720468897786`*^9, {3.574672142595947*^9, 3.5746721470419545`*^9}, {3.5747408907470045`*^9, 3.574740924458664*^9}, { 3.574741956213276*^9, 3.5747419624688873`*^9}, {3.5748306614370527`*^9, 3.5748307091575365`*^9}, 3.5748307421983943`*^9, 3.574830849354983*^9, { 3.5748316203083367`*^9, 3.574831676156435*^9}, {3.574831733065335*^9, 3.574831738228944*^9}, {3.5748530946245832`*^9, 3.574853097011388*^9}, 3.574853202997974*^9, {3.575001859979342*^9, 3.575001914766638*^9}, 3.5809173790026107`*^9, {3.580972818144517*^9, 3.5809728537593794`*^9}, { 3.5809729085154753`*^9, 3.5809729086870756`*^9}, {3.5809731251686563`*^9, 3.5809732286436377`*^9}, 3.5809732853653374`*^9, 3.5809739855413675`*^9, { 3.5809754568267517`*^9, 3.5809754672475696`*^9}, {3.5809838741876965`*^9, 3.5809839118305626`*^9}, {3.5809888284304414`*^9, 3.5809888286020412`*^9}, {3.5809920799453526`*^9, 3.5809920922381744`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Ok", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.574999421008658*^9, 3.5749994459219017`*^9}, { 3.5749994915051823`*^9, 3.5749996567718725`*^9}, {3.5750076770423594`*^9, 3.5750077104420176`*^9}, {3.575816701185139*^9, 3.5758167353803997`*^9}, 3.580917396942642*^9, {3.580972863836997*^9, 3.580972883165431*^9}, { 3.5809754738619814`*^9, 3.5809754966692214`*^9}, {3.58099214666667*^9, 3.580992154092283*^9}, {3.581004445357582*^9, 3.581004448245747*^9}, { 3.5810048220751295`*^9, 3.5810048653386035`*^9}, {3.581048100705611*^9, 3.581048142092484*^9}, {3.5810486479545727`*^9, 3.5810486717914143`*^9}, 3.5810679696563263`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"<<", " ", "\"\\""}]], "Input", CellChangeTimes->{{3.574999421008658*^9, 3.5749994459219017`*^9}, { 3.5749994915051823`*^9, 3.5749996567718725`*^9}, {3.5750076770423594`*^9, 3.5750077104420176`*^9}, {3.575816701185139*^9, 3.5758167353803997`*^9}, 3.5809174237590895`*^9, {3.5809729404331317`*^9, 3.5809729530535536`*^9}, 3.580973134684673*^9, {3.580975555777725*^9, 3.580975556635727*^9}, 3.5809836143692403`*^9, {3.580983826046012*^9, 3.580983827668415*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.3085793308816027, -0.4917183249876522, 1.153125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.3085793308816027, -0.4917183249876522, -1.153125}, 1.125]}, {Opacity[0.5], SphereBox[{-2.7368493685998247`, 1.3664089997595008`*^-17, 4.233521126529056*^-18}, 0.2572]}, {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, {Opacity[0.5], SphereBox[{1.1061845355876967`, 2.2903847093109504`, -2.220446049250313*^-16}, 0.2572]}, Text3DBox["2", {-2.7368493685998247`, 1.3664089997595008`*^-17, 4.233521126529056*^-18}, {1, 0}], Text3DBox["8", {0., 0., 0.}, {1, 0}], Text3DBox["4", {1.1061845355876967`, 2.2903847093109504`, -2.220446049250313*^-16}, {1, 0}], TubeBox[{{-2.7368493685998247`, 1.3664089997595008`*^-17, 4.233521126529056*^-18}, {0., 0., 0.}}, 0.02], TubeBox[{{-2.7368493685998247`, 1.3664089997595008`*^-17, 4.233521126529056*^-18}, {1.1061845355876967`, 2.2903847093109504`, -2.220446049250313*^-16}}, 0.02], TubeBox[{{0., 0., 0.}, {1.1061845355876967`, 2.2903847093109504`, -2.220446049250313*^-16}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.30499976127376033`, -0.49394661675018003`, 1.153125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.30499976127376033`, -0.49394661675018003`, -1.153125}, 1.125]}, {Opacity[0.5], SphereBox[{2.74355646121765, -2.611741759343833*^-17, 2.205032586484*^-16}, 0.2572]}, {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, {Opacity[0.5], SphereBox[{-1.1417921109692726`, 2.278973353625675, 0.}, 0.2572]}, Text3DBox["3", {2.74355646121765, -2.611741759343833*^-17, 2.205032586484*^-16}, {1, 0}], Text3DBox["9", {0., 0., 0.}, {1, 0}], Text3DBox["5", {-1.1417921109692726`, 2.278973353625675, 0.}, {1, 0}], TubeBox[{{2.74355646121765, -2.611741759343833*^-17, 2.205032586484*^-16}, {0., 0., 0.}}, 0.02], TubeBox[{{2.74355646121765, -2.611741759343833*^-17, 2.205032586484*^-16}, {-1.1417921109692726`, 2.278973353625675, 0.}}, 0.02], TubeBox[{{0., 0., 0.}, {-1.1417921109692726`, 2.278973353625675, 0.}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True]}], "}"}]], "Output", CellChangeTimes->{ 3.5810679230278444`*^9, 3.581068004257187*^9, 3.581068035004841*^9, 3.581068286009282*^9, {3.581068318441739*^9, 3.5810684147407084`*^9}, 3.5810684496379695`*^9, 3.581068713387633*^9, {3.581068761622917*^9, 3.581068788158564*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}}], 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[{"4", ",", "1", ",", "1.1769688313334572`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "1.1825520853361247`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2", ",", "1.1760396958841641`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "3", ",", "1.1799494798794656`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "2", ",", "1.1505246842999126`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "4", ",", "1.0538612141651018`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "3", ",", "1.153878230608825`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "5", ",", "1.0566007621817577`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "4", ",", "0.9257647223154148`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "5", ",", "0.9258908297387272`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "1", ",", "1.2197037517176876`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "1", ",", "1.2225897046128154`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "2", ",", "1.2217162202033203`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "2", ",", "1.2216884986790593`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "3", ",", "1.2178758761305617`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "3", ",", "1.2181463219381259`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "6", ",", "1.2219443346141814`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "6", ",", "1.2223619561149315`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "6", ",", "1.2236011537785636`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "7", ",", "1.2225483303448792`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "7", ",", "1.2246470295640588`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "7", ",", "1.2202499969195433`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5810679230590444`*^9, 3.5810680042883873`*^9, 3.5810680350360413`*^9, 3.581068286040482*^9, {3.5810683184729395`*^9, 3.5810684147719083`*^9}, 3.5810684496691694`*^9, 3.581068713418833*^9, {3.5810687616541176`*^9, 3.581068788189764*^9}}], Cell[BoxData["22"], "Output", CellChangeTimes->{ 3.5810679230590444`*^9, 3.5810680042883873`*^9, 3.5810680350360413`*^9, 3.581068286040482*^9, {3.5810683184729395`*^9, 3.5810684147719083`*^9}, 3.5810684496691694`*^9, 3.581068713418833*^9, {3.5810687616541176`*^9, 3.581068788189764*^9}}], Cell[BoxData["10"], "Output", CellChangeTimes->{ 3.5810679230590444`*^9, 3.5810680042883873`*^9, 3.5810680350360413`*^9, 3.581068286040482*^9, {3.5810683184729395`*^9, 3.5810684147719083`*^9}, 3.5810684496691694`*^9, 3.581068713418833*^9, {3.5810687616541176`*^9, 3.581068788189764*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{"data1", ",", RowBox[{"{", RowBox[{"0.92", ",", "1.20", ",", "0.002"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.574935943705309*^9, 3.574935952815725*^9}, 3.574935986464984*^9, {3.5749360234214487`*^9, 3.574936050752697*^9}, { 3.575375124746955*^9, 3.5753751382097783`*^9}, {3.575375905996327*^9, 3.575375926978364*^9}, {3.5753912779750137`*^9, 3.57539131004867*^9}, { 3.575700625296671*^9, 3.575700653704321*^9}, {3.5757278228511343`*^9, 3.5757278405571656`*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.644]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.644]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.924, 0}, {0.926, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{15.5, 18.92028985507227}, {-95.58593801785541, 97.37780742501648}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.052, 0}, {1.054, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{170.39855072463774`, 173.81884057971}, { 0.3959347035805365, 97.37780742501648}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.056, 0}, {1.058, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{175.2391304347825, 178.659420289855}, { 0.3959347035805365, 97.37780742501648}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1500000000000001`, 0}, {1.1520000000000001`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{288.9927536231885, 292.413043478261}, { 0.3959347035805365, 97.37780742501648}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1520000000000001`, 0}, {1.1540000000000001`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{291.413043478261, 294.8333333333335}, { 0.3959347035805365, 97.37780742501648}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1760000000000002`, 0}, {1.178, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{320.4565217391305, 323.87681159420276`}, {-95.58593801785541, 97.37780742501648}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.178, 0}, {1.1800000000000002`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{322.87681159420276`, 326.2971014492755}, { 0.3959347035805365, 97.37780742501648}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.182, 0}, {1.1840000000000002`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{327.71739130434776`, 331.1376811594205}, { 0.3959347035805365, 97.37780742501648}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.924, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{0.92, 1.2}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.5810679231214447`*^9, 3.581068004335187*^9, 3.581068035098441*^9, 3.581068286087282*^9, {3.5810683185353394`*^9, 3.5810684148187084`*^9}, 3.5810684497315693`*^9, 3.581068713465633*^9, {3.5810687617009172`*^9, 3.581068788236564*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Plot1o", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "White", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Darker", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.575562682901544*^9, 3.575562696785568*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}, {3.5713747544125347`*^9, 3.571374762618149*^9}, 3.5713830670175667`*^9, {3.575602053545355*^9, 3.575602059286165*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rpo", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rpi", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8d", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"tplo", ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8e", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"tplu", ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8f", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpso", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rlos", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8g", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpsu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rlos", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, {3.571838766139532*^9, 3.571838773908346*^9}, 3.5718388425484667`*^9, {3.571838961763876*^9, 3.571838969236289*^9}, {3.571839027970392*^9, 3.5718390313399982`*^9}, { 3.571839741203645*^9, 3.5718397450100517`*^9}, {3.572538612521628*^9, 3.572538701894185*^9}, {3.572538746213863*^9, 3.572538844837236*^9}, 3.5725397817592816`*^9, {3.5726093687611146`*^9, 3.5726094120667906`*^9}, { 3.5726201406133776`*^9, 3.5726201439517837`*^9}, {3.5726204342214937`*^9, 3.572620455406331*^9}, {3.5726210034788933`*^9, 3.572621009968505*^9}, { 3.5728421659278097`*^9, 3.5728422874676228`*^9}, {3.572844941796685*^9, 3.57284494451109*^9}, {3.572850660423529*^9, 3.5728506878327775`*^9}, 3.5731240021791506`*^9, {3.573124038683215*^9, 3.57312404156922*^9}, 3.5731241655738378`*^9, {3.573150838242284*^9, 3.5731508464166985`*^9}, { 3.5732110436990156`*^9, 3.573211066116255*^9}, {3.573212991206436*^9, 3.573213000894053*^9}, {3.573213104540635*^9, 3.573213182462772*^9}, { 3.5732202689099436`*^9, 3.573220322745638*^9}, {3.573220354086093*^9, 3.5732203696081204`*^9}, {3.573220402914179*^9, 3.573220410448992*^9}, { 3.5746631320730405`*^9, 3.574663233114418*^9}, {3.5746640424906397`*^9, 3.574664047560649*^9}, {3.5746708183720207`*^9, 3.574670838917257*^9}, { 3.5747409576711226`*^9, 3.574740975720354*^9}, {3.5747864634781103`*^9, 3.5747864662861156`*^9}, {3.574786586827527*^9, 3.574786630445204*^9}, { 3.574786972070204*^9, 3.5747869752838097`*^9}, {3.5748281512990437`*^9, 3.5748281556358514`*^9}, 3.5753451622470818`*^9, {3.575351337845529*^9, 3.5753513418547363`*^9}, 3.575351450508927*^9, {3.575365082044012*^9, 3.5753650985644407`*^9}, {3.5753651580941453`*^9, 3.575365163008154*^9}, { 3.5757218899846277`*^9, 3.5757219013726473`*^9}, {3.580984033183176*^9, 3.580984058892021*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"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[{"(*", RowBox[{ RowBox[{"Plot9a", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "0.06"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot9b", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8d", ",", "Plot8e", ",", "Plot8f", ",", "Plot8g", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"(*", " ", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ","}], "*)"}], RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.573211072949067*^9, 3.5732110779254756`*^9}, {3.5732129727516036`*^9, 3.573212981300419*^9}, { 3.5732130120948725`*^9, 3.57321301629128*^9}, {3.573213384015126*^9, 3.573213388164733*^9}, {3.573220427063021*^9, 3.57322044338065*^9}, { 3.5733208085662665`*^9, 3.5733208285343018`*^9}, {3.57332089027921*^9, 3.5733208917144127`*^9}, {3.5733209483737125`*^9, 3.5733209652997417`*^9}, {3.5733210904587617`*^9, 3.5733211330312366`*^9}, {3.5746581574587035`*^9, 3.5746581598923078`*^9}, {3.5746632559372582`*^9, 3.5746632963569293`*^9}, 3.574669479281269*^9, {3.5746708530664816`*^9, 3.5746708831121345`*^9}, { 3.5746734822639*^9, 3.5746735338531904`*^9}, 3.5747441301394944`*^9, { 3.574950644335537*^9, 3.5749506488751445`*^9}, {3.575001627819734*^9, 3.5750016487549706`*^9}, {3.57534426719551*^9, 3.575344278926731*^9}, { 3.5753450565880966`*^9, 3.575345065324112*^9}, 3.5753451320610294`*^9, 3.575345171575898*^9, 3.575345357543825*^9, {3.5753513717287884`*^9, 3.57535142378608*^9}, {3.5753652394014883`*^9, 3.57536535446729*^9}, 3.580900985097577*^9, {3.5809840711536427`*^9, 3.5809840741332483`*^9}, 3.580988981778711*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.667282704599533, -0.4736980200654736, -2.008936419194084}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.623532509961639, -3.0682618972778255`, -1.253602916532996}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.712865740702026, -0.9610961350566383, 4.12697370309471}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.81060806960158, 3.4621487551380725`, -3.4327214337187515`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0.6796977745236138, 1.9785885986341352`, 1.966526929409622}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.0007300971451825`, 2.6973463578112513`, -3.73184651318087}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{ 1.6881105561266523`, -0.6020181565390601, -3.2475555514413696`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.252520668924269, 0.9930470517563589, -0.672310164169966}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.326059755891318, 0.0873999552454776, -3.888160056433607}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.731357316028448, 3.0098040774350046`, 3.7721887260582485`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.6451040174079425`, 2.1719619224341007`, 2.293842102301396}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.937075982622452, -3.591504247542676, 0.62691646821918}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.998616795758999, -4.50864817701126, -2.601881228120237}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.693977192895757, -3.0683809764719894`, \ -1.2151813181719506`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.628706607906556, -2.4428739286425123`, 3.009195448090952}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.744119544468983, -0.761051448630997, 5.912764236601499}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.777621625002427, -1.546604046740475, 4.55866825688052}, 0.12]}, Text3DBox["1", {0.4974510956533934, 1.2572885326766854`, -2.556086493194923}, {1, 0}], Text3DBox[ "2", {-6.267282704599532, -0.4736980200654736, -2.008936419194084}, {1, 0}], Text3DBox["3", {5.123560350579715, 1.5410670437358187`, 2.7125269695320533`}, {1, 0}], Text3DBox["4", {-2.3491235175798257`, 1.5580378709421043`, -2.7402705150387314`}, {1, 0}], Text3DBox["5", {1.4139234520284254`, 1.5539118271310333`, 0.1575157823985954}, {1, 0}], Text3DBox[ "6", {-7.223532509961639, -3.0682618972778255`, -1.253602916532996}, {1, 0}], Text3DBox["7", {5.112865740702026, -0.9610961350566383, 4.12697370309471}, {1, 0}], Text3DBox[ "8", {-3.5326163169557856`, -0.5799283777499342, -2.034613759457293}, {1, 0}], Text3DBox["9", {3.9480330565867647`, 1.2933878299377697`, 0.245972156839031}, {1, 0}], Text3DBox["10", {-3.41060806960158, 3.4621487551380725`, -3.4327214337187515`}, {1, 0}], Text3DBox["11", {0.07969777452361382, 1.9785885986341352`, 1.966526929409622}, {1, 0}], Text3DBox["12", {1.4007300971451824`, 2.6973463578112513`, -3.73184651318087}, {1, 0}], Text3DBox["13", { 1.0881105561266522`, -0.6020181565390601, -3.2475555514413696`}, {1, 0}], Text3DBox["14", {-6.852520668924269, 0.9930470517563589, -0.672310164169966}, {1, 0}], Text3DBox["15", {-6.926059755891318, 0.0873999552454776, -3.888160056433607}, {1, 0}], Text3DBox["16", {4.131357316028448, 3.0098040774350046`, 3.7721887260582485`}, {1, 0}], Text3DBox["17", {7.045104017407943, 2.1719619224341007`, 2.293842102301396}, {1, 0}], Text3DBox["18", {-6.537075982622452, -3.591504247542676, 0.62691646821918}, {1, 0}], Text3DBox[ "19", {-6.598616795758999, -4.50864817701126, -2.601881228120237}, {1, 0}], Text3DBox[ "20", {-9.293977192895756, -3.0683809764719894`, -1.2151813181719506`}, { 1, 0}], Text3DBox["21", {6.028706607906557, -2.4428739286425123`, 3.009195448090952}, {1, 0}], Text3DBox["22", {6.144119544468984, -0.761051448630997, 5.912764236601499}, {1, 0}], Text3DBox["23", {3.177621625002427, -1.546604046740475, 4.55866825688052}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.325836210963216, 1.4076632018093949`, -2.648178504116827}, 1.1769688313334572`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.5556872738409095`, 1.4056001799038593`, -1.1992853553981637`}, 1.1825520853361247`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.145407607280586, -1.7709799586716497`, -1.63126966786354}, 1.1760396958841641`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.71821304564087, 0.2899854543395901, 3.4197503363133817`}, 1.1799494798794656`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.26068085746139, -0.5283386219378852, -2.022143805077429}, 1.1505246842999126`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.3591560807776784`, 0.4560210007019092, -2.3765390250185057`}, 1.0538612141651018`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.118957894793637, 1.41367956266695, 1.443917465775083}, 1.153878230608825]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.3200486536413147`, 1.4196331212112265`, 0.20310777245780018`}, 1.0566007621817577`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.298103806043337, 2.5428090016019427`, -3.0983933952631726`}, 0.9257647223154148]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.3238889969443357`, 1.7735460386079418`, 1.093099651091076}, 0.9258908297387272]}, {Opacity[0.5], SphereBox[{1.7428880905025106`, 2.2862802323937954`, -3.396224493425371}, 1.2197037517176876`]}, {Opacity[0.5], SphereBox[{1.519741237783554, -0.07201699545854434, -3.0504501433623785`}, 1.2225897046128154`]}, {Opacity[0.5], SphereBox[{-6.085626332856054, 0.5747702825356908, -1.0534805000024772`}, 1.2217162202033203`]}, {Opacity[0.5], SphereBox[{-6.138191506582419, -0.0726124406109584, -3.3522481662185344`}, 1.2216884986790593`]}, {Opacity[0.5], SphereBox[{5.014833481312089, 2.5901803435573774`, 3.469439348383117}, 1.2178758761305617`]}, {Opacity[0.5], SphereBox[{7.096183600823872, 1.9917364684856866`, 2.4134462912174124`}, 1.2181463219381259`]}, {Opacity[0.5], SphereBox[{-6.1328135850481615`, -3.442305865635778, 0.09070136787884264}, 1.2219443346141814`]}, {Opacity[0.5], SphereBox[{-6.176770568971809, -4.09801639933882, -2.217508002913784}, 1.2223619561149315`]}, {Opacity[0.5], SphereBox[{-8.10407875638863, -3.06834704915626, -1.226128164995777}, 1.2236011537785636`]}, {Opacity[0.5], SphereBox[{6.367638098402971, -2.020480111288887, 3.327827989440715}, 1.2225483303448792`]}, {Opacity[0.5], SphereBox[{6.450449338348347, -0.8180181857051924, 5.404224561743989}, 1.2246470295640588`]}, {Opacity[0.5], SphereBox[{4.329893278471198, -1.3795143137804633`, 4.435473119337593}, 1.2202499969195433`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.7864022993041873`, 2.015248242950997, -1.4175577842613196`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.8431148640217385`, 3.8551449050169055`, -2.2993647667789308`}, 1.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.8652951584327964`, 0.17637808740533067`, 0.358290348168695}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.5490426242836162, 0.7987919710872726, 2.142621078502694}, 1.2]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.7118447358554645`, 1.1008274989332119`, -4.0629832458161435`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.7781012751814202`, 3.0691526052592395`, -4.566078100658572}, 1.2]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{2.1625517456240546`, 2.931445566856736, -0.043258783371503906`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0.8103529247636116, 3.1583852261809975`, 1.7904327803165487`}, 1.2]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{-4.128312721460849, 3.481576110964691, -3.4772521906630205`}, {1.2296509627842476`, 2.0957052704041104`, 3.1592302185454777`}}, 1.14]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{-2.1232301862313205`, 4.531266423215561, -3.783727156261813}, {-0.6254731528319207, 2.102020185875986, 1.8251075048002336`}}, 1.14]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.617181107719388, -0.7107209124826356, -0.7895839116893024}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{4.738008591620887, 0.053462075638855744`, -0.059312628428377756`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.664958301000161, -1.4095184026654017`, \ -2.9868978332800427`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{4.983113399209674, 2.320630370462827, -0.40378413485790826`}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}, {1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.623532509961639, -3.0682618972778255`, -1.253602916532996}, \ {-5.667282704599533, -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.712865740702026, -0.9610961350566383, 4.12697370309471}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, \ {-5.667282704599533, -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, \ {-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, { 2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.81060806960158, 3.4621487551380725`, -3.4327214337187515`}, {-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.6796977745236138, 1.9785885986341352`, 1.966526929409622}, { 2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.0007300971451825`, 2.6973463578112513`, -3.73184651318087}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 1.6881105561266523`, -0.6020181565390601, -3.2475555514413696`}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.252520668924269, 0.9930470517563589, -0.672310164169966}, {-5.667282704599533, \ -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.326059755891318, 0.0873999552454776, -3.888160056433607}, {-5.667282704599533, \ -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.731357316028448, 3.0098040774350046`, 3.7721887260582485`}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.6451040174079425`, 2.1719619224341007`, 2.293842102301396}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.937075982622452, -3.591504247542676, 0.62691646821918}, {-6.623532509961639, -3.0682618972778255`, \ -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.998616795758999, -4.50864817701126, -2.601881228120237}, \ {-6.623532509961639, -3.0682618972778255`, -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.693977192895757, -3.0683809764719894`, \ -1.2151813181719506`}, {-6.623532509961639, -3.0682618972778255`, \ -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.628706607906556, -2.4428739286425123`, 3.009195448090952}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.744119544468983, -0.761051448630997, 5.912764236601499}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.777621625002427, -1.546604046740475, 4.55866825688052}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5810679231838446`*^9, 3.5810680043975873`*^9, 3.5810680351608415`*^9, 3.581068286149682*^9, {3.581068318582139*^9, 3.5810684148811083`*^9}, 3.5810684497939696`*^9, 3.581068713543633*^9, {3.5810687617633176`*^9, 3.5810687882989645`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", RowBox[{"(*", RowBox[{"Plot9a", ",", "Plot9b", ","}], "*)"}], RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot8a", ",", "Plot8b", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"(*", RowBox[{"Plot8c", ","}], "*)"}], "Plot8d", ",", "Plot8e", ",", "Plot8f", ",", "Plot8g", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.573211072949067*^9, 3.5732110779254756`*^9}, {3.5732129727516036`*^9, 3.573212981300419*^9}, { 3.5732130120948725`*^9, 3.57321301629128*^9}, {3.573213384015126*^9, 3.573213388164733*^9}, {3.573220427063021*^9, 3.57322044338065*^9}, { 3.5733208085662665`*^9, 3.5733208285343018`*^9}, {3.57332089027921*^9, 3.5733208917144127`*^9}, {3.5733209483737125`*^9, 3.5733209652997417`*^9}, {3.5733210904587617`*^9, 3.5733211330312366`*^9}, {3.5746581574587035`*^9, 3.5746581598923078`*^9}, {3.5746632559372582`*^9, 3.5746632963569293`*^9}, 3.574669479281269*^9, {3.5746708530664816`*^9, 3.5746708831121345`*^9}, { 3.5746734822639*^9, 3.5746735338531904`*^9}, 3.5747441301394944`*^9, { 3.574950644335537*^9, 3.5749506488751445`*^9}, {3.575001627819734*^9, 3.5750016487549706`*^9}, {3.57534426719551*^9, 3.575344278926731*^9}, { 3.5753450565880966`*^9, 3.575345065324112*^9}, 3.5753451320610294`*^9, { 3.575345171575898*^9, 3.575345181091915*^9}, {3.5753713803366737`*^9, 3.5753713843458815`*^9}, {3.5753717979962077`*^9, 3.575371802036615*^9}, { 3.5753718416450844`*^9, 3.5753718456074915`*^9}, {3.580984089998476*^9, 3.5809840926036806`*^9}, {3.5809890246787863`*^9, 3.5809890822272873`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.667282704599533, -0.4736980200654736, -2.008936419194084}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.623532509961639, -3.0682618972778255`, -1.253602916532996}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.712865740702026, -0.9610961350566383, 4.12697370309471}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.81060806960158, 3.4621487551380725`, -3.4327214337187515`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0.6796977745236138, 1.9785885986341352`, 1.966526929409622}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.0007300971451825`, 2.6973463578112513`, -3.73184651318087}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{ 1.6881105561266523`, -0.6020181565390601, -3.2475555514413696`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.252520668924269, 0.9930470517563589, -0.672310164169966}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.326059755891318, 0.0873999552454776, -3.888160056433607}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.731357316028448, 3.0098040774350046`, 3.7721887260582485`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.6451040174079425`, 2.1719619224341007`, 2.293842102301396}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.937075982622452, -3.591504247542676, 0.62691646821918}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.998616795758999, -4.50864817701126, -2.601881228120237}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.693977192895757, -3.0683809764719894`, \ -1.2151813181719506`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.628706607906556, -2.4428739286425123`, 3.009195448090952}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.744119544468983, -0.761051448630997, 5.912764236601499}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.777621625002427, -1.546604046740475, 4.55866825688052}, 0.12]}, Text3DBox["1", {0.4974510956533934, 1.2572885326766854`, -2.556086493194923}, {1, 0}], Text3DBox[ "2", {-6.267282704599532, -0.4736980200654736, -2.008936419194084}, {1, 0}], Text3DBox["3", {5.123560350579715, 1.5410670437358187`, 2.7125269695320533`}, {1, 0}], Text3DBox["4", {-2.3491235175798257`, 1.5580378709421043`, -2.7402705150387314`}, {1, 0}], Text3DBox["5", {1.4139234520284254`, 1.5539118271310333`, 0.1575157823985954}, {1, 0}], Text3DBox[ "6", {-7.223532509961639, -3.0682618972778255`, -1.253602916532996}, {1, 0}], Text3DBox["7", {5.112865740702026, -0.9610961350566383, 4.12697370309471}, {1, 0}], Text3DBox[ "8", {-3.5326163169557856`, -0.5799283777499342, -2.034613759457293}, {1, 0}], Text3DBox["9", {3.9480330565867647`, 1.2933878299377697`, 0.245972156839031}, {1, 0}], Text3DBox["10", {-3.41060806960158, 3.4621487551380725`, -3.4327214337187515`}, {1, 0}], Text3DBox["11", {0.07969777452361382, 1.9785885986341352`, 1.966526929409622}, {1, 0}], Text3DBox["12", {1.4007300971451824`, 2.6973463578112513`, -3.73184651318087}, {1, 0}], Text3DBox["13", { 1.0881105561266522`, -0.6020181565390601, -3.2475555514413696`}, {1, 0}], Text3DBox["14", {-6.852520668924269, 0.9930470517563589, -0.672310164169966}, {1, 0}], Text3DBox["15", {-6.926059755891318, 0.0873999552454776, -3.888160056433607}, {1, 0}], Text3DBox["16", {4.131357316028448, 3.0098040774350046`, 3.7721887260582485`}, {1, 0}], Text3DBox["17", {7.045104017407943, 2.1719619224341007`, 2.293842102301396}, {1, 0}], Text3DBox["18", {-6.537075982622452, -3.591504247542676, 0.62691646821918}, {1, 0}], Text3DBox[ "19", {-6.598616795758999, -4.50864817701126, -2.601881228120237}, {1, 0}], Text3DBox[ "20", {-9.293977192895756, -3.0683809764719894`, -1.2151813181719506`}, { 1, 0}], Text3DBox["21", {6.028706607906557, -2.4428739286425123`, 3.009195448090952}, {1, 0}], Text3DBox["22", {6.144119544468984, -0.761051448630997, 5.912764236601499}, {1, 0}], Text3DBox["23", {3.177621625002427, -1.546604046740475, 4.55866825688052}, {1, 0}], {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}, {1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.623532509961639, -3.0682618972778255`, -1.253602916532996}, \ {-5.667282704599533, -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.712865740702026, -0.9610961350566383, 4.12697370309471}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, \ {-5.667282704599533, -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, \ {-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, { 2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.81060806960158, 3.4621487551380725`, -3.4327214337187515`}, {-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.6796977745236138, 1.9785885986341352`, 1.966526929409622}, { 2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.0007300971451825`, 2.6973463578112513`, -3.73184651318087}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 1.6881105561266523`, -0.6020181565390601, -3.2475555514413696`}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.252520668924269, 0.9930470517563589, -0.672310164169966}, {-5.667282704599533, \ -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.326059755891318, 0.0873999552454776, -3.888160056433607}, {-5.667282704599533, \ -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.731357316028448, 3.0098040774350046`, 3.7721887260582485`}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.6451040174079425`, 2.1719619224341007`, 2.293842102301396}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.937075982622452, -3.591504247542676, 0.62691646821918}, {-6.623532509961639, -3.0682618972778255`, \ -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.998616795758999, -4.50864817701126, -2.601881228120237}, \ {-6.623532509961639, -3.0682618972778255`, -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.693977192895757, -3.0683809764719894`, \ -1.2151813181719506`}, {-6.623532509961639, -3.0682618972778255`, \ -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.628706607906556, -2.4428739286425123`, 3.009195448090952}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.744119544468983, -0.761051448630997, 5.912764236601499}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.777621625002427, -1.546604046740475, 4.55866825688052}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.581067923215045*^9, 3.5810680044443874`*^9, 3.5810680351764417`*^9, 3.5810682861964827`*^9, {3.5810683186133394`*^9, 3.5810684149123087`*^9}, 3.5810684498251696`*^9, 3.581068713574833*^9, {3.5810687618101177`*^9, 3.581068788345764*^9}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztvXdcVEcbNnw9dk3ymMQkmth1RcEuKqjYe8XeUERREAsoiA2Vooio9CKg YFcEBXtJjIklVqzYNdZYY4omMTGJ7jtzzszZ2cPsEZ/f+/31vfvLmt1ld+5+ 3fc9M2dO79HTxo+bPHqaj+foal39R08Z7+MZUK2Lnz/5qOh/gP+MJ0+PaqCv zQD/x0z+M/vQf+gn/+/1//z6v8rronj16hV27tyJgwcPYqjw9/eU1yWVv586 dQohISGYOXMmDh06hMqVK+Ps2bMYIny/lPL6Pen3X758qfz1xYsX8PDwgKen J37//XeUZTyollWGQSdhzBLK6+J49uwZVq1ahaioKCQmJuLBgwcopvytmDJm eHg4fH19sXv37rcNWVR5XaIAm5cvX6ZsFmd/vnv3LiIjI1G+fHls3LgRgwcP phIrDBWjYxfRXnUWRpcMzOQvxdT5/PlzZfA5c+YoaqHvuTre0/FOH13UV691 muAjU018wP5GKXJNr1+/nmoD79N3RYSB/jaWvyz7c25uLq5fv668oyxS+QmL 7+mH+9NY6o8lw9EnZY1I/b5tY/0uDKwXmgz8KVMnfUs9lz4pj127dkVoaKjy vr860gtjiT9T/lxaszgdgbJHDcKlpyPS9/3UEX8xFvpzJhX9ZU5ODrZv3868 tajCFzU3fddXHe2ZMBrlSSdpZfZL+icap6rXq58xr1TeuaqjPRVGo1+nvPGQ IaNVZb+kURMREWE12pMnTzRXZKM9Mpa0hmS0Iswb//rrL8ULKY901JSUFD7q D7pRdRLXEkb18vISRi2h6I9bh/sl0UAfdeB7xsLXYQOLgVJcMBYXvrc62m1j 4etKRivBPuPhR9/1Uke7aTxaA4PRhADko11nzHNJRWRszH4mBl0xNiC1ihgr TOSe6qhXjHl0NBj46tWrVmFDNUAIsYEvGg/cnA1M39I/03elJML3UEe7YJAW WkjCpbQk+D7Q8NtZHfSsMUy0koxbhn1GYYOH4QcSDGcU8oyV0EZCoaQNszFA sqSjYjqy9Omkkj0p0RZPHe0lAcxpUsVTi1JgpJ8w7ckSrGo/HDNWYUcJMZ4B RCTTq1CgcMRYhV3ZLzlq0CdPqmKAl2GuK1Kw2OmgQeohSushiVQuhhj3ChEl V5bVXqkIhG+MFdVLQqG0DU9giqss0ZmKo9hvrDNXgRiV1uICBXMidwVRl5Uk ujTTOos8qqsc7BM4kGS4/hJYKSlYjVKllIpJlFxRU21RiQaqqfT3GKeFgRL6 /xXoc/QpFK2dxtoeIkE6HlGsKFLefS730CK2CW/TEdYpebgEXXjhSANPXzxV 0IQtor1icnPizLq5xtodYZNwCYWwpM6qYlvKzcbqHSUh9pEE/StpMqklDDYZ jztGAl0fS6CrrTraRqZYmUrGSYb6iFmbBnd2djaPLTbaOmPexktAryxjICMj Q2mM6Ndp2NAijI262njUiRIM4s3BzZs3rczGNKAmMKxktGXZ2VcyajkJQJfU 7NNUHXSFMbdT2BiUDgexTyRwUVweVmphg1RjIgESnCjHBqS1M0VK+iACGNNZ JtEQz8jTJUR4F0WtyaGY8se0VcyQWKINoViumSkBpM8EzdGoUd8ZEYkz1lyQ JCw5ERFhjYlEC0QkeXmehEh5SewX1fvWUmMNhUjG/ZRZUMzG9EFxQK1AEWms kvkSGFCdqZQVHovNDoNHVqYsNFAHIbDQJoGiVrhbVKIiVjkusIHsTDGREuDh va8Iiqx2CzVWyFIJNPDRaHPBoYGNNk83mk76GMlo5ZnRqErFdEffs1Hn2JCY 5bI4CcyUNwbFZurAs4yFT5REfUUJLjKPnW482jLJaJUkaMjiappBtkqTwMMX OucXcI8POdWYwRWSkOKj0vxHv0q9Z9u2bYrobFRf41FXSkatIojNoUztjzHJ IE+tYT+jf6OfiUOJE0JsKB9jxtZJQpFPxIhFn5I1FPSrrY7rZTzuRsm4ldlI IobwYOTzCWJvyiiNNUhJ2ZI4r2TD65mj6inRp51KabQx2m6RBG41QVe0glEH KEiBNTzuxlrbakBBCFwjCm7GmWiHJP6qSjIGj2q1qi+Q9phphhkrbJeEmOoE Ja0aRd6/cQCwpEHWlA42VtteCRLw3k+cKiACFdFpk8pYTyUywDhpfSUhUlOS BNS5NzYfazNBfS0BBD4atQOtjKmK2Gh9jBXwrWS0GsyqvEmmX+cSO6ij9jRO VIclSMNHFdM0T89s1O7Gieo7CTLYsc/E2Spm+i7Gkh83GE1EQzZaR+PR8iRw UlOSUvj0JBu1vUGWOisJ6ZqMC8pgXFycNovAwpsFVxtjXs9LBq4tSM79kWFb K+PRLkpClc9Ji3mZoUwLgwR1RTJUbRaNvItkBSkbrbkxb9ckkWfHfkL54hBC PYdJbVIHdjQe+KZkYAeJ0Kq9WEaVJ6Lbkgisw4Tm1IOCgih/jLcGxti5nA14 OOsQrq0/pLzrKCGiqrCUzbVNFvJMhLrGCklnHMfO2ISNPVPxPCwZf3x3kNMt CAQ2R+I4S5tPysLFixe5GusYZ6hY+mc1tRXj6YY/SjP+vHt+g+1R9/DqxB2Y f7wrm72tKkEhgb+izJY09MRaRODTzthACZIcLJt8K8F4zlx5AYs3PMHVu0/w +tEFGc+8cqFakfDMl5xpdHPspS5KUYnxXNPYKsnvyHP+8UuY5rMEd7MS8Ga9 ZycJPKo9RknNmhK+tSloGqA0riz+w6obm0k3lTGim8FVagO+xOE1cD7Or02C ees0cA5FUPykEByWFTiknwscVrHhSLo4FTmUTYWWYpIMaz8D36Qm4c3OYPx7 K6+jhOGPCsEwn+HjSC8wXEnIRvqfZRTSAUoybuf4xiI7KgmvdhIPPZPFuS04 HS3nlulIm1ARSVQXuVWHpH5Ff7JSs3ERDQz4ukjmsn1IDInH8+1RMF/ZKeNI 3B5C45v6lK78spoM4LFkxVExZUgeQ+RnuZyB+C2YMyUaj7aQlvtAFGeg4Ppg Sau6imdIzkCltzFQXGvlKURQJs6cOQN79rM7l+7galoOXly9Az5fM3FkBK5u IPC8xVeaKooXgi3e+9H5PIqFBdgqYRX9Amu1GY0b+d8jrOtq3J69Gf+mRuHP H24jjI3q3nUOjqYT598RJOWwiIRD6kcih3xhnyNfAQ5LWnGo41JdPCiqWzKg j1Kc/wsPMdfnJu5/+RDmGxfx7MZZxn8xzPNPwY74JPyzawFeH1vTQfm4tCaC nm2KdZxtvnNAxEDGNp9NEdMrD8oCrBcCanh36D0kE+ez9+KfvUuZjxDvTd+P 9PAE/L5jCcwXt7YXFL5v3z5Fc5xzVq+zPFjMqj0kf69hzbxsD4jIfHk5kiuc c7QZ7eyNCxGLYM6cjleHM7jWM+N3IHx6LJ7lktrg2t42OicRMY5mUspzHWZM Co9s95UiD4VKA8aLSxj/TMI45MtdfGp92+r9OB5G5Ng4C+aT67kc+cfPY8rY xbi1idQOmV6tmPfI5OC659VBPQnc67xHRMASghxpaWmKHJ++uxxZy7/EgTkE +TfOoejPccbTNRRnVpOEu206W5eWFxxECK5QMSL55hQR+arZlqWkThY68ifv Lktm8h7sCFyIf9cHw3w+h8fD4Lb++GpZEl7vDMXru2eaGovDN36I2boQ4ohz snzDB3U5jgNKwres3haxwJHq/Jl+4fh7bSjM+du1OF5zABuWJOLPncTNzm1u bMz3ewZ8i0iv41u0Whkd35ZkoabEFd7z8eeq+fh753yNx6Q9iJ4Th1+2RZNU vctWw8NqE76sLdqe8yhivQGP7wk8ciSoIgRfjHsofksn0L1i2Hzt48uYMXEp HmyOh/mbmLf0Rx8Z8CgCO+PxCwmw8x0kBw4c0PFYFKGD5uGX1IUwrxnNFjiK YvyQcFxcR36bM0VbI7lBkv+6ibF4uGmftgBng2O+0iiWJ4XgWATF/0o45ns6 pvcKwpNkghDrx2scu3WchUPLk0mFO0f1Z1m2VXycFyS741NxIyEVWxs3xY2O LfDCvT3+Xp6NP88eZdRtyldewjCXTwRLA/nKSuTj1Zlfx+m4F0eRfDKTrxjm +iUiJzaJeHo4RXdVrnL6xKa95/+/dDwPZ4mg3432Ql6r5njavzVe+XaHOXww zCmEy0xf/HX9Pn599Ig5sk2hZVK8o9AfSoTmITW+9RTciKJp2F8TOjP1S6SE xeO37UthvrRd1jMUYf5NH7cTU7GvaVPc6dISv3t2xOugfjDHuhPP9oE5NwB/ 7QnCrV3ByDu8D/d/eqFtIbIhsGyjKU+JIu5WtRZYDNOPJAJ/wYQb7ewl1h3z WeLIjM9FiH8MnuaQJmhCF2wktXIRFhL0cYNY9CKx6Kr6jshv7YSfBrdVFbJo KMxpY2He5Efyygz8tHcuHhxbhcfXD5YxlpPP9YuTAvaMG/16LpVZZ2Axz3ws kZfv3JHWJ+WQd+woHKtWxNB2w7B2sgeWD3bGiNqVEDbEFXvcvRSqP/RohZde nfFm3gCYE0bBvHaC8vlLYtBrO4Lx2/cH8fOPtyEKKulfaxoIKu6j5clJJ6iY x8pJBK3ABN1kXcCEsXj3GjwALapWQ8fK9eDdvAnmtquHeQ2qYGGzSshxbawa MZ3klewpyusf98zDnaMrldc8NG005nYSwbinillM56liFuOQTf2DC8SrZ5pS hSpmlgavKpSWIvksDw0rVEKTT2qgc80G8HJxQpBLXSzqaI+o3nX5Xqn8bfPw /OZBPHt6G0K5YTzn4CDRviyXMNk+l6iCTwTQtpzLxgtspdLx1Sqd2TYh5j3y 1VQscJuMcXY90PjT2mhZrTG62jfGwHr1MKWpPeYTaYP6NERGhJ/VbIAtyer/ b5KJeb28IBktU+nE56eaZFuw3Eurj2YzBOaSUWlC3SZidK0u8G80AqGdpmLp yFC4OndHq0Yt0LONC3o1agQ/kh7XtmiEBR0dcOXs8cKYrJGBYGKm0Akm4mwF wYxcMF5/06IqWimqwmlRNYsJRp2QPtxNHeBXfwjmtZ2MxUPnId5vCVIWJGBZ QiLy8k7B22MMXBrWRY/GzvA0uWJr3bY40L5hCUEwqk7ZjJJsv/c7Cib6J5vj 0WJPrMSmM6ejUmXFp8HN1BYTHforEkYMmI24iZFYFhKHlLgk5G7PwbEz34Ff ypOSlIiMtCT0Mw1EZK1uOOfkhFfn84roJJTNUDWXSMiRhOM/fVfFWkLx619I JORwGdhztla5qbssymATkW6YyQXedXpjZvNxCO89AzFeCxVyKdFJ2LYtFye4 45Uhfpulme2h31hbc0p827tYgsqSt4EgFSWC8ATn18FSovE64drFOzixQV00 6ceQkUbZfLdJ8LTrjsAmHpjfbRqiRs9H0sxopCxJKmIBd9UufYnJFpm64Swx 2ZrZgZpdXAxqEbGX0okj5uZKOnFoe87rE1p8XV+qFl8faPBecCmE94c3L93F TCdf7Hd2xdM1a6qzj68RZz1MzJlYvSm+j02zF4Az1G0CPGp1gn9DN4R0nIKl I0KQELAUKRGJSE5KwKnTJ3Hv4V2WwksVmNXyGz4VY4jZc+u2w+OpXrJrAwqh DzHjVZbo40MmiIfzWJxXarNAvDqUIduALytGedu/L/MWBpgcsZw8r43oq6C0 kPBKINDUHOlVWyDfoRUeN2qO70d64N7xPJMQ9NnxyzHS1B6+9QZjbutJiBwy F/G+i5Ey3wJl9x/eYwp733AakH6De9YZFQxaGyhQLBkMFFhFosCyTANbV5Fi L1Qr9gqrQD6F1NfUFEuI8i44O9qaCisuwH7E4LHwLN8Omfa98bQ9ib3epMPp 2RJ/TeqG56M64FHfNrjWqQVuBfjgtzWpeJKaipuk9Xt4PO9zQeUUiYab2mCC Qz8EtRiPiP4EZycsQnKwNc6WEQJWr3I+h8b3oFK4on6b46D4bWtBZ7Jam+Y5 fpEY/T/LJDwdirm/mkT9/2VUlRI0KAJv1BL03dXvjFlE/ccb2lR/UYb12URn Y0humt1gAMJajsHEOkOxqd1Y/DDYC2/GeOBfj754kzMX5qyZMK8LgDljMszJ 3jBHe5AmdBjekB7tb78e+G1MRzwd2BY3u7TCkTbN8ce6NDxbnoo7pKc7FZ9a mll73OCBaF2lIrpXroje5HmRdA9mpZpJI7WZH7zq9MKMZp4I70WSyLhwJAfF IiVKSyJ6y8lmPznG0YCJMHXnAcNz/838OwX0JbMmrQf4HgG6KYyS0VlTjL3q Emt+wH0oaTe2s/r73LLADyQW4QDD16op5I4nFtxfxxE/Z6d+pn2B7Zikf48k texU+55Y2MITywbOwGrfCGxcEIfAfn5I7O6DI/29cX3YaPx8lMTyN1nYvzkG 57bH4M7uaDzdsxQv9izGX7si8O+O+XizlbQGm0mNuSEQ5lV+MKeSljtuDOlK 3UjXNhD/BvTCH6SD+2loO9zp4YK8dk54uSENP2ek4n5SKi4QfmiD5FK1MnpX r4qhdlUJ+lXEyFr1MMauK6Y1GYWwrgGI8ghD0gySOxcnIXFZHE6dOVEYm74n RONoSzQ2YR/HzliJNKcAXHMPwl937olm5YAnmwuvYtucNSTm5HmedrzNKlTG wOq1MbWhHXzqVsGg6qovv8e8Rzavoy1Gxq/AKGLbHPL8eXWqWu+XVb5CUSyX /Jk+gpsMR1z3KcgYF4oNc6OxKTYJa1Yk4vz5k7j78Db2Lt+M02tz8ejCJQam 1XHl7h18d/ooLl08jjtXT+DAvkxsy4zCia0xuLErBg/3ROGXPUvwcvci/LNz Ad5sC1FZzST16pqpMC+fSBr0sTAvHok3oYPxenof/OnTFfOb1cP4WtXhWbsG xte1wyyXPljiRioAf1oBJFhVAEazMsSePEXz8DzdXAlPJbSUmLCs3vLFtZsX 78K92Xrs9T+OvzKP4ZctKdoEv9ijiIWudZWg2VisD8XpBL7ewZ2xaZVKaP9F dbjVrodZLeqRdFIT4xpWQcSoAcJ1cMV0hQHtbc5gELHrSvK84++ldgZlFJSl jxn1+2JJWx/l9drAxchcnIANqcnYvWczHjy+r379U3x14gjOXjiOm1dO4OH1 E8rXD+XE4NKOGNwn0fuMRO/veyLxatdCvN4eqgD0tqmD4NemMaa2aYKp7Zoh eFAvUmckaXXGW8xSTnNOGmF9sYVE2KMpXtV0KrWkDtnSPzHVhbtwc72Irasf 47crj/Dy3iVDU4mlvIGpTIw7cTmHq171/dJIi46GU6Xq6FqlJoY51Me0ZvYI b10L85tXQWDTSrhFMhHvbfoS80STZ35LR1ZDF1cLEdJQ+9buhnCn0UjqNx18 5iMzKRlf7d6KM+ePq6WUxVNJyN+4fxcnzh3D1cvHkbsyFuG+o+Dq4oyxXVti cs9W8O3RHL7dGsLTpYZWQdowA5+yodGxkEXHrxtS9WagT6P9IkPbL0ZW2ld4 emIPzPk5hbWAZSGpgrUtxD7EjumLQqWuqGA8qUXddoJjPSs2QovP7eFapxH6 2dthrn09xDWrgyjX+ljS0w5ZAxrgpU8H3O/dApcDvPEkRSnqPtXM1BxziZlO NnJkpZFa6G0htbVXrQ6Y22gIYrv6Id0zBOuDorApJglrFYgkPv/ojtYBit5b kvmrY5VaaF3XHl2cWsCjdytM7NkYHu3tsWVlPIobGEmbSVdjxYPFyq1OjtUL gf2jXabh4KJo/LttAV4/uMANI2vXxTbIxobq8tZWEov72qy+ow++8kYfOQSJ vEm9F9ywP+I7+CDC1Qdt7Juhb8uWcLVrgnCqblI2LhjmhPmDG+P1LlIY5JDs sG4SzMtIzRcxAP/4d8Gzoa3xZOZ4/LpSSf4faSpJxSQyxAF7R/x5Me89hn9Z 5OMlpLwLrNsHi1t7I3XYbKwNiETmogRsTEnG3j05ePj4flXN//g123nHTsDT zQ0t69dGN6c66Nu6DoJ8R9o69IQZiC/f0SgKJ1GUR6Lo+XoWRXIDWQqvlfDu OBMnomLwZntoKQMDiW3W/2qgKsovwiZMhW8rV+V1tMtYpA+egY1+C7GZVHOb E5MxoE8fdHByhKt9U0wn2j3o4IiMvo0J5M3G/i+zcGBLDG7ticav+yLx925S zW0jlVzmFJjTx8EcNRSvg0iB7tkO17s5K1Xb3aRUrTYloTSaDLmVFiNrUvks DY2yhaTln1i7C0n+7kh0nYZVExZgY2gsMhOSkb4iBmfPn6ihS4B0rmADunYf D68JQ/DsqrrH3tYu0+oaD2ocbSZxdLuTY2W5LrnN6eM6YS9puDdSajbHbvJ8 kJBqadg2EMCdg/PxMTBvn8sNKJtHEidpjQ3I52nF/o1P2l8kvCwmeUPFP/p4 H+t8wpAdHI3NpOvckJ6EfAJIPzxSrzUf5+6OTg4NlfJ+t50jvp0yphiDze9O H8MtkvOz1kcjf2cMnu5dgj/3huP1znmkOieV+ZoJMCe6wxzWl/TGHfGwbyvc CfTGj6TReno8z7L6vxJDyehryJP8qbiAnJtJ+I81tUNQw0GI7jQZKzyCsX7W UmRGJWLd8iRcOEeR86628UhURwmWYjLjN6H/qPnIWLcYZ/am6M1aq0DwOePF +lTL9ddFJa/I4FFDxmJmpZbYVIU0+vVb437ztvjrdF5RTahsTO8fjKvLqF1n cbvK5j/e3a4FL6h4T8thk+w6ILzJUCR398Uaz2BlpC1EXZlpyUhOXopDJw5Y 9ouw0j6Lan4Fi6YPsfPgIaUkP/x1Nr7LjcFdUoa/2LcI/+4OhXkraaw3+MKc RpqSxYPw7/Su+HlEGxzr2Bwv1qTianwqH71t5Zpw+rQcOpDnxqioIixWNym9 oC/8HXphUatxSBkyC2umLEJmRLwCrvsIuJ44e6SRgJlLpkdjoOcCrF4fiVPb 46nZ6mgiqMGY7dAetzs6fiFxhOKaI6QizG0SBn7SArOq9sJWgu4PnHrgRYeu eL56tcVyuQgeHobby4nltgYYWU7szt7dciqelC6Q41aNDEJmYCQ2R8Yjiyjk qz1btcpOXADkEEKLeBo/GeR5qa3j+wypL966Q/R4DHdJY7VjUwyukIbq2d7F eLWXNFI75sCc7Q/zSm+YY2nP3Jv0y0SDPVuQliUND5JTMXfocLT89FMM+KQ8 vCuWV/rj8OGemGDXCaGOI5DQyx8rx8/HhuAYorNkrFwRRzG2EdO2HkUXTl2K wV7hWL9xEX69tN1BCLsFJOxONbOEXVELfqqzuSFuPsRPO2JK/SEIaT0JPo1G YFZTD6xrOgIpDj2xn1QEP5H6w2LCHYgcvQAPV0bjdZZPYU1YoJ6UWa0K4yub 8BVN3HhW3V7WSTCcJEFSf69Oj8O58ydw+4fvtb2CBa1XFP1MTRFLLHeumaM2 P77v2HfgD9XyH+P3vRH4d1cIqW5mqNVNMp3R6o9XUzojgvQO401VSCBUwySH GojqMBHL3edh3YwlyFyaiPUMKn94dK8hY9/omLjM+K0Y6rMQmzIj8PziVjho as0iZtBiTdVOOb3HszWk5coa0iSHfpjbwhuL+81Cok8Els+LRfTMCExu7Qm/ hqMwnJg/0dQBx+o1xR+n87QomjNyPhLGR+DHtdEwX/+aW1Cc+arLvsr3DNAH 6QyUYrwkffMfayMWXGt5T0uG/nW6ItLJHamuASQZzifJMEZJhuvTE3GBJcNS EiMW1by4OcLoDGZ9R9JH5qnLNh9bFfK0F9u7OxNfZkfjJmmKfxGKn5iBbTC9 TX1Mbt4IM9o1Qbz3GGxMplCYi7xzRxsKUChZALWUEtswfHIENm9aiBcXttTV eBuI+ZYI+0ywGrVUJuv1x9fuTWLKExE9AxFPsDZtVjTSlyYhLTUeZ86exN0H t3D1ZD72Z2whQ7rBy+SKNbVa45qnl2a1vvbDke4XiV83RhGrfSWzmorbJQuc o8MvCqe93WcMtkX18f8XsW1UpSa2dLpCYU563ku3Ed55boHsmDV7KbZEk+y4 PBl79mzG0dMHtSs5RENrfkmQKIA2DHSic2MqX2gUQ6AoY+bbU0eRSUBgUYAn RrZ3xtQeLTCtWwtMdyWvuzbAIp/BKgqpPy+umZY/KF1+OcxNYik6rz+CJMqt WeG45dVJCwAelllqWH4qACd9eNbqisBG7srrWPcQpAQuRfqiRKxYloSzZxRQ YCmyjLJTsK9pOKaZSHq0I4WNt9oBDKg/BhumL8bvWUvo7mS+v7Ngg1BU24ls ubDWujc03Gqs2VXs4Mu81R2sDVCMZaDs1HPI9j6MrZPjdfk0F6fPH/uQfU00 s4p+acS5HbGjliN+WpX6iU0Tl0Le0eNwrlUHnevXx4jWLRHkSkzcswE829fG loxYB+br4uYF+uCxayxACeyLWwUfYg130nruyF6AJyO64deMNOvA7oGTJLB/ W5/KJ4bUhDlBSZhT6w9FaNvJLIkUw4oFCUhPTML2nVvw4NH90sxV57iFY6Bp CKl/uyq59PdTeRjcxAe5c5biz82R9BoUbU+vbFJGbC31+tKE/I+GyTpgLri7 tVCbnrmWtm58iowVj3HhyCWsYkn35r0b5ZjyxR1GmfHpcCem3UinO6d6FeBV HHbcsJFo3bAuaeFbYmrflpg5oCGC/UbUkdhUxGMLtwWEKMHNGrsOCxsMRfio Wbg2ZTIe9BqAP8+f0YfzJnsSzh0cxYkkmlVHkHZoskN/zGs5Hov7z0bihAis CI5DRlwydu3Mxalzx9lKTili14Ukww7QMqxbc1/sDYvC37kRdJ7NyKRiU/KJ BqywPoHKwJD6o0VtWZFvnv/mxG+4/PiFABEltA1UeQePYzBb377k4viRXL38 AotTp05ieIdh2OjvgWuL+9q9xWAiuhfC63hzE1hvILLae+Bkz1G4NntefSEm w3hMrkstIxhPXe51gU/tPpjdbCwW9ZqO+HHhSAuKQUZUElJSY3H63ElwXKLX JdJE601gfy1JtB4uAfg2Ihr/bg2nc3Gi8ThSyoz3uTT2+B412a7tt5mMH6XA d4HR1fMoYpozTRzVDSvC0iDdXTwD9+MXkZp1POtVjTc92Ti6yegaoB3Ls3D7 3CXlHTcEjSJ3SxRZ5ntSMcTUAp523TC98SiEd/FHrEcoUqdHIT2SJMWURFLt qJMK5RgRNSkOI8brDK8OM3E8Kgavt4fxiwVkc21iV6E7yc2i+4JHWZbQS20k PZ8epNUVrT+DiQmO1nPEy0t52uYbLxc/XKe7nDf4se8b78cqVXjlOzGOqcdP qtYGHpWqouMXFRAwcCAuHD0q7mKk2cjD1An+DYYhtJ0voofNw7KpS7AinGSj pCTk7thEs5F2QBBNR31N/TGpexDOKfNi8zR3otxTzims15dou5JtHVsOT7Y0 ekqxVFST0WpxbOYQL0yt1x9fO/cntd46rtNIUk6cXUj3mkzTDvowutqwjIRs S+V3H2JldBoaflwRfcp9Dq8vymNIzcoYXqMi+tdoSPrtdvCtOxDzWk3AkoFB SJq0CCtC45ERn0REysHJs0cragoLw7R+83AlWZlsUjopft2BDPN4PuQKFBdV KlorsOBZCe8Ek9kpR7B5cCb+iNmApwmL+GWnWzK+wuEQqsOZeH109eeFUGNH zVKlGFo1rVoRjT+ujt6fVYN71coYWbMqxtepjqDm4xDZZwYSvMKxfE4s0qOT sGvHVgKuJ1j3/gFxyxzMHRaGW+okj9LF0L/IkMk6S1j6AjHg/7/SYHFEBOYh N+Eh/jz7AM9Of6PooyIHuWV7sZt002/Wz4H5dOZnEjXqryztLiGlljzvIy0m Cs2qVEOrirXQo4odRtSpC58mDTCtVSPE+kxHxpIkLE9JUNrBew/vVGPIlRm/ HREeC/BgZTT+2jgBCb36I45dYymQ5mhNVUvXruk72fVZOvWJnYBMfWbdXrcb l//Ehq9+wv78R3j64098O4RlEWwHNk1ZiH/WhsB8LqecDZWJ29l62VSZuorb vHJNtKpmh/6168HXpSl8O5Mmr5cTZg/vjK93Z2lZL8g9FMHeMxHkOxGTiH6m uw7D5rad8eOR7zR4Ezd/yi4M0ylHrLjewbf01Kg5PtcUtAVp9Dq31WF0h/qH Bgri211cJST4pGvTyiY41XDAMEdHBHRzgn+vphjb1gFj29nh8plj1Rgyi9NR 4zzHIWzCDDxavRgbJ/nAjVSwSbSCra/OEYnccyTj2/bFyuf/jq7K2NRVUSwe oV5r98/O+ax6Mt4X1FfnrSWxKjYZTjUbYLiLE3z7OGNo63pwa++AUD83llzK GmJS/3qjsS5wMX7btAT5a2KsCkaKaZx7EbP4irh42A/fAMjSJ1/RFsvDOpI8 9l+JcvjqYVC/ufg5dSHepI8osIVRppwBEuXzddUFblOxp68XzgePR9+OjdHF xQEbViZWLETe4NMxgxuPR07QEq2f5VXddFNPbLVzVqY6xOs/2Z4NtrRU3OqM LX6VtU5bYrHRRqIZ3idN7TITDxNJ9ls7TpPQhmaGaqrmM0G0lQhqMAB3Avxh 3jQD/zy5wvaJFFSviGIlmDcPbzYZe0JpD0gYyFcPfKB94iDTYCwk/f/Xav8v AyR+VpJYb1W0rYK2EhXwYPRp44/vY2hhOknruG2owJPFaoibH3J7jsVfsTPx 5nBiBeNf8R0Mo1r64xvWNb15mM/vjkBLTBVX2hviCnfm/JOXcWJZDu6u3mPV J/Gc/4VtNbQThrW+Tr0MPOhhAJG0DvJXPrEhzDjB9tPqueKG7xSiOaKGH68V 6uSX9zVsX4Fx7Wbg2NJo2sEU1YaloTAC4wlwrKvlYgUcfPpEVbZZLJal3VhJ 5JCK/zC9DqGWM5Y08sKXQ1bi5aJl+Pm7o1bHzdtQnVgutdepznJZfEnkrtqP Y8r1fTOwY66blbzjmbzz3CYjs/MYvIyaAfOR5I8lcKFXVVlNVeswsWsQzsYp /UcxK1WpqLHNADV4tOoqFeV9MZbzqDX3E0WtcxuPlLptsc25Jw73GoFzYybi 2NRoHE29h39P3cLz+/c1xYmFkk5xYqHUUWCJp8MPdQEzdlAgvpxNQzAIr75b PZEJ7mvfC5cn+JF+fSbMz66XLQS0fKzpbBMCXOfhstqG8ArWgi5dOLpI6x3Z gY/ipajbia6Wu3lhae1WyHQktVXHwTg13AuXfQPwfUgw7sQuwq30GFzZkIjM /U9w9toPH7xdbeLkVyed2iyxIz/BIiMyG1v8F+LfdcEwn92MCUwRm+IzsLqd B36LJH53OKUwpYF4Gd2cIaG8MSmh6TAcIwqBV6rOP9J0uJno7FvyDK7lpHy2 26Uvjvb3wAVvX9yYHYTbi8NxOzUK19cl4HRWIs5+m4Obl0/i9oNbVufi8/pT pzyxpuosKI+zY7R9UDtATV1yz/BZgFdrSM15YRtX4/ja3XBu7GS8WU1a2ovb ShcC6XhWGDt4IFpVro85/Sfjh4wYkmtG0g3P3CXVMHZ7K+KpDJZVQnUfW09J dGiNnObdcbD7cJwZpW6OvbUgFLcTFuP7VXHIz0zE/k1xuHflFJ48uW916DOP RabGT3QWpO/4PTQKrhXbVCNvtvOP5yPGIwy/ZyyA+eJOH0276UhxGYlfw6fj 3y1TSwpqtFVWqvyVgteQAWhetRLaVKiGQdXtMdWxLiY1qoGRdhVx5YROncMw owAqllWGj5kbiu+I+iLsWmJ94074sv1ARW2XJk3FzXlzVRUSh7+6PlF5/ZCo 7sql41rBRC9T4SeW6VRHgYNXqN1YqIqqs7XOzYMnmF4EmUZCOG0ouMI87Trj xKhJeJ0xC+aru4tJ0oa+ra7ESCub7YnCWpE2uu1nNeFWtyFmujTCTGc7eNat hNH1K2obkzgu+lVriWEVKsOl0hdoX6kiAgcMRP7Ro3yRiZ6pcIAoL8jUHMnO XTDFcyw2DRuN8+Mm4/qMWXxnyI018Ti7KQn53+aqGCreBotXaxLl8TKlO7Ml VR4/IUl/tl1Aj9l4kkT8dPUYLcfSmiLW2Q3PQgLxZkuA/nQrGdbJTkpTXclO LXEGDkOTjyuh/Wc10LeaPUY2aISA5vUQ0qIWZjlXhXejCnjg2hQX2zniqp8X fkxPxZ2EVJyOV4/SCxgSgHrlvkDbjz/H0E8+w5AqlTCkRiUMr/4FdsfGI93N G7F1XJDdrCu+6TIUp0d648rUQFwMnot5kyfi0vIoXCJR/G1WPO4TV8w7d6Sq hOXP36ZM6/6J90oT201TUpV5/QSmxNJwr9URh4dPwOvls/Dq4k6px8q2Nqna roUtRPJD5BlOAmwtCbC97QcRV7JHrzoNMbJpU/Szr49xDR0wvakdZjvXxHhn 4rArBsGc2AfmpV3xJqwD/pnugpcTWuBnt+a419MRZ9o6YnWTBkiqVRue1avA u2ZlBNhXQUSDOjg+aAwu+kzBzTlzcHvpQtxOi8a19Qk4RVLIhvQ4zJ0zS7sm hbaZvFTW+Z9Y63WXqJGrzLPlRFxeTGu9KfBmDrY+dhlCuoxApt8khPh5W6mK z/LRxy6ilnRSYcXZt8bmZj3wTQ83nPaYiCvTZuD78DB0cXBELydnDGvfCr3r N2YK/gxJA13ww65Z+GnXNPyxcwpebZuI11u88CbTA+Y1bkR9A1X1LemK1yHt 8dWQRghydkBY2/oI71gPt5OW4ObqeJwnMXmJxOQd4kiPn9zjlbNYLFZhESCe GU4fFPb+J40Vw/Y1X+PUAqqxQPx9+7SnBMImjR2PuSTv5Uf44+WFHYyLWgre fE2UNseklgw7Xfrhu/4Eb8ZPwfWgObhF7H2L2JuC9ansREz3dkfLRo3RoVFd 9G7WEP0at8Vo00DEmToov8+Oj8bp84dw7fIhfPnlKmzJDMWR3GBc2jEH9xUF B+J3puD9QT0RQnwvzNUJof0c8YAoLf/iMasr33i5yLVGr3bjhwvzOk+nNbE0 NtKachbYXKq12XhzfK2HjdKPZvGdm3MR7DwEP8wIgDlrBksA/0Uu0VwqwZfF dq2wsUkXfNVpCE6S9/RxMywEt+Mi8X1GnIYvtEp4+uR+EUbKc/hING/ggA7N 6qFns5Ykq3pgnEm9Dv+AnSNenMzTptbmkYgYO3owAryHYmngSEzt1QL+vZvD uyMJ9ra1ZOUhvzBDLOl0MCaWdEa6ykzcjW2BEXi9fh695nOkQYlCcJ9XevPd pmK3qxdeJc7Eq0OxFYT6ai/R3GoSqMmkFcp16o2Dvd1x1nMSrs6YpRYIy0iZ ujZBeX3hYK5ytdHtH26xGZRSSE6hVymrVx/RxwRTPyw3tcHB2ora+K4QumfD sXptNK3VEP1dWmGKqwsm9mgE9/YOyFmVIKsCOfgXWFYtnNbUhhnyK5G0k3Pj t2HtpHC8So/E71uShxWi1rX0pHmY1aA/bvv7w5w5E/8+vcIK9Pe1+j+0Vgus atgRe9oMwLFBY5E/wR/X583DregI3Fqh9kzHshMV3vjdoeijn8kdU0iRvMrk gsN1HPH8VB4vRvOOn0A9u8bo2dYF3v1c4N6tATatSuS1QkGAkyqQV8dipuzB dCKCHeT32OPq27ryGlYFXMYfe67h+cEdgyV4p1cf3y9A55VyeqjzSuYjieWY l+9Quk1vRJNCIatpN3zddTjy3H1w2X8Gbi4Iw+1Egu+r4pFP8H1fZqyC74+e 3PuYGYU++ptGINDUG+tMLZE/0kvb6zDCyRcpU2ciP21KgRlUC7JZV246dYkR aUNdljvkcklvXPgN8xMe49L1x7j1/bUBNko1sbUvLfiYf11XXJ9smXkqyzRF //YV0dYsUqCm1WuH7S1dcbivB855+eLarCDcIj3mrVRSINAeMzsJZ0iPef3y cUUU1ZqqFee4LcZA0pTNJl3EJlMLXHL34vsr6RbnsW2n41h0DN7sCCkrKE1/ Wtv/BaXBeg/ECBt6KnDFbzE+vXMkGcKjDNPTzct3ENzCF9kuI7CucWfsI0Xa iaFeuDg5ADdCgnErlqSG9Fhc3piII9kJSun549P7lkXexaRdGI4QU3dsIbn5 srtl42Vm/HpM7jkHF5NjYd4+nR98JoIY14849VbBWj+iLmzoxzL1P7QQCMUv nlV6PR8/VavPrtu+IvM9eHVIxLrB2/Akag+uBM7E9wvn43byUqW9OZ+VhIsE +W9dOYkfHt1huFyGJMkxGGoaqmxf20ac8IqHCsZ0LiVoKAnVjFi8OZzEd1eL yCQ7obgQWhELCiutDNL5iu1jrdVZopVtPVQ1HE6RwRvv1cf2PIZ1Sx/i2bHH eHToK5wgddfxA9m4fOkYW16kezevKpoYYRqCxabO2GVqhh+SUpXl2aXjFuLJ +hiYb3zNtSACDteCOE2m04IoMdcCnzpjD5kAfSVArO+d+dSXd+1uJOGr0z0Q N2Twufwb1/9C8PJH+PLcY/z59yt1x2lpJvhoeJgGIcbUEXtrNYWvfX8snxKJ X7OiYL62RztIR0QMfrmlWAzppBbTuuy+o3pzy6CB72qh0zDLWo3ELwsCSSPh D1sVgXpiQikmlgfGKhv42mM/EWvvhOl4mbuYbt7jLIoxzltEMc8WQiLxs/4s rdoIaQ5GY+w6K0y/Tp9F9Lvbpv35WbOqMKMwnhRlKaa2+IbUsr/G+fF5RDEk P7ctBLeiWCz0lAjRRzCLrSkujof0isJop+F4FhwI3XHs/NzfOW6RSiE02dQX 6abWOKRWlOLsHY8kvnVddp/nz62FKJiNrCcCexUidPhWvL3xaZhSoREO9RqB 12nUJHvZ8puaN/qbRiLA1AdrTK2UMu5THT1LGFoWOvld7/4H1rsXIiw+1tRs UTi/LD9x+DjMreSInMpOeNisFf4Z1ZUto5Ug9tqMgfV8MIAUVzNNvbCBVAqk uOISieHAF+9EcC//dklE73rLnXn4BKXo8rbXxkpgWo02iKzaBScc++CvHn3x vEcXPE9Pa8v0RaE60jMc/h18SSU0HHNNPZBlcqaVEGShUv7tAhbMXtZCdyhE qNieeZJLGVCjOyLrD8PJbp74220UHvToh1/XrmzLgK1v7QFI9Y3EL5uiMKfr OAw2DUOYqRtyaOoe5SULKy6omKDeUdC2gqC29grI7uJsW9DiSBg2E0ubuWF3 dy9c7z8Gl3r3Y35aGv0ajEHmrCV4mbME+emLlNQ8nKTmCFMXbCepmRYp+vl/ cXJUzEo6UQvmYmtRXWyEn1jYF/aIBn7J/56UbJxZvRXXN+SwZdkyGNZsEnbP j8bf29V44xWIO53Urjsc65uMw8258fqzPuk77s0iyOuklGUqUcoWBqFJQMZU SAEVv9BvbldhCZat/LTHGeMyDUeWxuD1jtAiYlqzn4zJzdJxbNJ2/LM8E8/P nuUSi7H6iW2JxZKMS83TmngheDPBrrZKbmVzj26XTged2BbBZJ/RbmINJnSb jXNJpJvYMYtvE9iafhWT3a7ixLpHeJ1/D88fPoQsWPlnYiemk1SWwMUAbiIJ Vr2kAToJLAYuZfUZfSpXYw8Mwc0VRKIjWqkdn/4MG/Y9xs37P2lxJ8ai/tbI EklEj5RJ0rAQsTjDpiQlrT6jc0QRo8PxaC2t5A9o8wRiYHGWxZTw2buxXM8G y2L2tn1wrTXLfe36YdmkRfh5E70icJ82lSZGxsdvZ1lkj7NccGOocWQEsZgV 2RO8X8p9vVHYMGMJ/tiyBOZL2zTuZUd0FrzGrdDc1xK4t5WDgyVxzbuHIU0n YCfd0rUtwupgN+7G/2UBrD/xj7Krc2eRLc6q2PDUkASmvijldxL2aOmPQ0sI Xu4M0xaDRFf9gLEl3t6O3ydWx5aYC2QFf9VCuGy0hm6r4NN5Fs4mUHSbzY/V Ej1SvFMWx+rP3o0jfiMhG4VjvMbMJgT0D8b15YSZ71LFM764g3FmqOU4CDFm +DyPCKe9JMxUKISDKYfg666E4I13+IQULBi1AA/XKMBjEri09jFrqNRxKcOd gudmG1doixhHuiC2XbkUw7hOO7BxxmX8tusanh/I4keFiJ74X8nPP30786La 9RvJRfVy5pe8O/NRIbeRkPEEd288xq8//8wPcRGdle9xEuFTxzz9qhHz+q1h uvCJKTzf/JLvPcdf4IdfXinvxOPiuVOLTFPHpu8sfeCH1uzL8FO0x/uFQP94 CbPKu2YSZ5bttisuGeADaz5l4CnyKW5g0lc13EeSGDF9BUMfThLX5beDEduF QrAqYrqM1RI6VmVlyzINJywHC/IDvUUH5UtqIpoWgkUZwoosFjWIOI75VyWu J2PHklOZ6+lXGCzIWloryY3c7XuJV/EF2QJHjuj0UNaaBXGHU09BZuo9lH89 6bsSL+FhKeYQi9EkBLmSu0lclhKjxqHfoQQfSGzOFwn182D0wQ/pkFPszLRs ZFYOCA8l5uUtgHjTU+He2BwmdRyIENOB8W7Dtrx5EKP9IfuJaG76CbuLKf+J iCef2GZAvPmbrXQtOyPxkcTyfOdEwUv0NdKiIK1s2LvABY060o8lPsBjvMCl 5BbSYow7FyKeP5D8jpMWneAdSTdjqnrLHbHEnzyRBDg3sxjgjCqvMMSsKza5 tsxcTkeGvvtRYuaibyctBpm+K5WVWvqGmL57JjEzJy3WH+Vsk7bVXYqZRXbv kWcCO9zMhSAtxpW9gZmJh8luwPSTxMyyU00MqIrdna10UU1C+mfGrWhm+mSR rLOuGMSyJk1PsaaE4i8sbEXr8gjSkStM8yVa1M6AnGjRQpCrZIOciBP2BuRo qNFL3ipXrqwtzTByHF5EvxOvTX7brXVEs3NyNCKpVDVr1oSHh4eMnMil2ATZ AoVGEnLPlX+LKaGwdu1aRToSEuVsU7J16auIAbI70PzKKPF9nVSX5Gkgk/4a UpnFZHeCUb25lFZE8HkLntKpWomMOsriCHwrkw1gbykJHl4+idFdTGBEnECh jMTFxXFGKthmpHQhzMpv1iDmVZWb96zSN33q6yo6Dl+0q2TNRohwQIi+rJfh Pr9eTYy5u0wBVFDqwHpLsOKqqjVlcQSjat3qEn/d774XVE93etrwAXZreLVx K2M1k06fNjyvq4TgBfZZaGio9hkrlSkPJazULhi/tsiBeuwCRW2ZofkGQTGz 5jNDi6lMNDS/SJfLTb9TVyRZTBOaGpOQ4RNBIpgdZp9Re9FRLDFSShndIMoa WNtWvKjTiJJYgZU2sKWgySYi9lsOUWfpV7YUxImJ14lwVzeKFBV0Ctwnkg4j 2/rKyRQ89tM2RrHIUBertNlD+inXXjeblEprlAw8n8GGtquIG4Z1Z10ko3+r gzMbHq0u82nLOeJVNfxaL3F1infldNRt27ZJjSDzYnUsbUWQk6Gq4dfjiUi6 838wAhNI1bRVYcuN0NEmJdtGEFTFQkC7haHOZ9tLRt9eCP9Ud09p5bDonxyl xdS1gX3G440+i79FNcw/1b2g2kq/6J9tbVJ6X4pWBr6qBJoy2aFaVjvIROe0 sky4QYApSsKG08p2ZDBHrqxTIx2Z3+hMzABrJU5LH6LT6o/qF8hU0ZGhOmwl IbNMQEiq73ewVhXb1PVLVJR6S5vU35cWFgaOXk3NhBYLVpN7vJPABk9xKepv KcUStlxetmqvxqa2hCRGAa8axcyTVDgdWo6zYOPzjkj0fT45LKLnYvYZHZOz KBaIBv4/VaUk3h5E8HpHm8Ssy4K3wDYCVSp2On1Rd28iIREk+CFHDl7F8JpA htvqjTC1cz/pkPx4g8YGZMQcXapwppqjUuLHT4iu3aiQlIwMJOguRKVkLxhI UF8DCYwHMQOJ6YgbyRasq/eb1s73ER1a1kkGMd755K0NLalBpp1IJWqpnmTU yewzyihnuqSBlgQ3VtextKP2eOgzN3YwICaapKhAzMCd1cUnNmNl7c28yxcz k0qpjBUlg+ojQR1ddCPuxNzdxCQ0SeA5OztbMYfEFMnqqI0lpqgtGdWDfUZV zk1R3MAUgnbSVEpNBFMIGuJrnSLwj2KfFVyFMK5FMlRKTSVOa7JJpoxGxpYN mMYs50ZGqXSaSXQn3uWMJxV3nZ70yZrpie8x1y1hqlsVWBqxeDI7+6GahB4/ pYirRQ8uBp78uSEPzhIH58lcTG8DGOBQ2/CV07c4OWzcooRR5veupc7PVV1F +Izj6gAmJqVMC3wbOFTNkFhLQaecmGzi1bVw/m8yJNZKHhYVJfR4RyNmQX7h v1FY2Osdl9euYoB8ISHoLBDkjsSPixWZeEvg4CuVrOy8Kd43iF0aJytOb4l9 uQzVGIvfqJTayoNFdiK7jJgIbAbBonbA2glAYlTIDlaUUSqiM58sMo6pZDoI BuLakx1I5Mz0RclQjRoULTipDt1RYhjZdcnNCufw6rmJrPou4NmyHcK8zKBe a41Yxp6tToShi84C1GZ8GkNMYnWZ7+orVSPfVY/s1Y48KXhrZOuc4iCoiD5s lCfX1FG7yf1UtqTA0Y7KxnkvpJ+q85PaBmXRT2XToJySqKXC+KnaHlrtg+Ca ek/QnvUVy6WVYX766SdDP7VciHFWJdJLUBwnQuTh2xfEZFRJ4rQ8+xbIfNZd XZ5KrLfckUtJiIk7LXnDXBhHVqJNSRGyXScNNACH9f5v5WuskuMnXIpBUFKw BQf1j1kQiMn5bUEg24nfUPcZfci2W6m9Lpsnsg6gEhL2PhLMRVmhJpIEkOU2 aY4sFGS7kdQZBHbr+QJhVkxCnqufH6H4DmFmJxG+8bspiVduBe/fIuey4G25 jEO0rqa1RhaXKm7lUjrVDRT0wc3GBRBzNr9lKOUoJSXFMJq9bCtAvVixhH7a gSc4sR8zSEA+mnBMiiHM57le6ZoSzZdGIanwpQaQdiEx/f3EiRO1dVlRKuX7 anWEYUxCtrdGlZL+y/aPKa99/t/r/z+8xn/+D20Ze7Y=\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.667282704599533, -0.4736980200654736, -2.008936419194084}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.623532509961639, -3.0682618972778255`, -1.253602916532996}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.712865740702026, -0.9610961350566383, 4.12697370309471}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.81060806960158, 3.4621487551380725`, -3.4327214337187515`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0.6796977745236138, 1.9785885986341352`, 1.966526929409622}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.0007300971451825`, 2.6973463578112513`, -3.73184651318087}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{ 1.6881105561266523`, -0.6020181565390601, -3.2475555514413696`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.252520668924269, 0.9930470517563589, -0.672310164169966}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.326059755891318, 0.0873999552454776, -3.888160056433607}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.731357316028448, 3.0098040774350046`, 3.7721887260582485`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.6451040174079425`, 2.1719619224341007`, 2.293842102301396}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.937075982622452, -3.591504247542676, 0.62691646821918}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.998616795758999, -4.50864817701126, -2.601881228120237}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.693977192895757, -3.0683809764719894`, \ -1.2151813181719506`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.628706607906556, -2.4428739286425123`, 3.009195448090952}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.744119544468983, -0.761051448630997, 5.912764236601499}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.777621625002427, -1.546604046740475, 4.55866825688052}, 0.12]}, Text3DBox["1", {0.4974510956533934, 1.2572885326766854`, -2.556086493194923}, {1, 0}], Text3DBox[ "2", {-6.267282704599532, -0.4736980200654736, -2.008936419194084}, {1, 0}], Text3DBox["3", {5.123560350579715, 1.5410670437358187`, 2.7125269695320533`}, {1, 0}], Text3DBox["4", {-2.3491235175798257`, 1.5580378709421043`, -2.7402705150387314`}, {1, 0}], Text3DBox["5", {1.4139234520284254`, 1.5539118271310333`, 0.1575157823985954}, {1, 0}], Text3DBox[ "6", {-7.223532509961639, -3.0682618972778255`, -1.253602916532996}, {1, 0}], Text3DBox["7", {5.112865740702026, -0.9610961350566383, 4.12697370309471}, {1, 0}], Text3DBox[ "8", {-3.5326163169557856`, -0.5799283777499342, -2.034613759457293}, {1, 0}], Text3DBox["9", {3.9480330565867647`, 1.2933878299377697`, 0.245972156839031}, {1, 0}], Text3DBox["10", {-3.41060806960158, 3.4621487551380725`, -3.4327214337187515`}, {1, 0}], Text3DBox["11", {0.07969777452361382, 1.9785885986341352`, 1.966526929409622}, {1, 0}], Text3DBox["12", {1.4007300971451824`, 2.6973463578112513`, -3.73184651318087}, {1, 0}], Text3DBox["13", { 1.0881105561266522`, -0.6020181565390601, -3.2475555514413696`}, {1, 0}], Text3DBox["14", {-6.852520668924269, 0.9930470517563589, -0.672310164169966}, {1, 0}], Text3DBox["15", {-6.926059755891318, 0.0873999552454776, -3.888160056433607}, {1, 0}], Text3DBox["16", {4.131357316028448, 3.0098040774350046`, 3.7721887260582485`}, {1, 0}], Text3DBox["17", {7.045104017407943, 2.1719619224341007`, 2.293842102301396}, {1, 0}], Text3DBox["18", {-6.537075982622452, -3.591504247542676, 0.62691646821918}, {1, 0}], Text3DBox[ "19", {-6.598616795758999, -4.50864817701126, -2.601881228120237}, {1, 0}], Text3DBox[ "20", {-9.293977192895756, -3.0683809764719894`, -1.2151813181719506`}, { 1, 0}], Text3DBox["21", {6.028706607906557, -2.4428739286425123`, 3.009195448090952}, {1, 0}], Text3DBox["22", {6.144119544468984, -0.761051448630997, 5.912764236601499}, {1, 0}], Text3DBox["23", {3.177621625002427, -1.546604046740475, 4.55866825688052}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.325836210963216, 1.4076632018093949`, -2.648178504116827}, 1.1769688313334572`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.5556872738409095`, 1.4056001799038593`, -1.1992853553981637`}, 1.1825520853361247`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.145407607280586, -1.7709799586716497`, -1.63126966786354}, 1.1760396958841641`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.71821304564087, 0.2899854543395901, 3.4197503363133817`}, 1.1799494798794656`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.26068085746139, -0.5283386219378852, -2.022143805077429}, 1.1505246842999126`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.3591560807776784`, 0.4560210007019092, -2.3765390250185057`}, 1.0538612141651018`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.118957894793637, 1.41367956266695, 1.443917465775083}, 1.153878230608825]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.3200486536413147`, 1.4196331212112265`, 0.20310777245780018`}, 1.0566007621817577`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.298103806043337, 2.5428090016019427`, -3.0983933952631726`}, 0.9257647223154148]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.3238889969443357`, 1.7735460386079418`, 1.093099651091076}, 0.9258908297387272]}, {Opacity[0.5], SphereBox[{1.7428880905025106`, 2.2862802323937954`, -3.396224493425371}, 1.2197037517176876`]}, {Opacity[0.5], SphereBox[{1.519741237783554, -0.07201699545854434, -3.0504501433623785`}, 1.2225897046128154`]}, {Opacity[0.5], SphereBox[{-6.085626332856054, 0.5747702825356908, -1.0534805000024772`}, 1.2217162202033203`]}, {Opacity[0.5], SphereBox[{-6.138191506582419, -0.0726124406109584, -3.3522481662185344`}, 1.2216884986790593`]}, {Opacity[0.5], SphereBox[{5.014833481312089, 2.5901803435573774`, 3.469439348383117}, 1.2178758761305617`]}, {Opacity[0.5], SphereBox[{7.096183600823872, 1.9917364684856866`, 2.4134462912174124`}, 1.2181463219381259`]}, {Opacity[0.5], SphereBox[{-6.1328135850481615`, -3.442305865635778, 0.09070136787884264}, 1.2219443346141814`]}, {Opacity[0.5], SphereBox[{-6.176770568971809, -4.09801639933882, -2.217508002913784}, 1.2223619561149315`]}, {Opacity[0.5], SphereBox[{-8.10407875638863, -3.06834704915626, -1.226128164995777}, 1.2236011537785636`]}, {Opacity[0.5], SphereBox[{6.367638098402971, -2.020480111288887, 3.327827989440715}, 1.2225483303448792`]}, {Opacity[0.5], SphereBox[{6.450449338348347, -0.8180181857051924, 5.404224561743989}, 1.2246470295640588`]}, {Opacity[0.5], SphereBox[{4.329893278471198, -1.3795143137804633`, 4.435473119337593}, 1.2202499969195433`]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}, {1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.623532509961639, -3.0682618972778255`, -1.253602916532996}, \ {-5.667282704599533, -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.712865740702026, -0.9610961350566383, 4.12697370309471}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, \ {-5.667282704599533, -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, \ {-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, { 2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.81060806960158, 3.4621487551380725`, -3.4327214337187515`}, {-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.6796977745236138, 1.9785885986341352`, 1.966526929409622}, { 2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.0007300971451825`, 2.6973463578112513`, -3.73184651318087}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 1.6881105561266523`, -0.6020181565390601, -3.2475555514413696`}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.252520668924269, 0.9930470517563589, -0.672310164169966}, {-5.667282704599533, \ -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.326059755891318, 0.0873999552454776, -3.888160056433607}, {-5.667282704599533, \ -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.731357316028448, 3.0098040774350046`, 3.7721887260582485`}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.6451040174079425`, 2.1719619224341007`, 2.293842102301396}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.937075982622452, -3.591504247542676, 0.62691646821918}, {-6.623532509961639, -3.0682618972778255`, \ -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.998616795758999, -4.50864817701126, -2.601881228120237}, \ {-6.623532509961639, -3.0682618972778255`, -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.693977192895757, -3.0683809764719894`, \ -1.2151813181719506`}, {-6.623532509961639, -3.0682618972778255`, \ -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.628706607906556, -2.4428739286425123`, 3.009195448090952}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.744119544468983, -0.761051448630997, 5.912764236601499}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.777621625002427, -1.546604046740475, 4.55866825688052}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.581067923215045*^9, 3.5810680044443874`*^9, 3.5810680351764417`*^9, 3.5810682861964827`*^9, {3.5810683186133394`*^9, 3.5810684149123087`*^9}, 3.5810684498251696`*^9, 3.581068713574833*^9, {3.5810687618101177`*^9, 3.581068788470565*^9}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvXV8W1fWNbxep522Mx16ZqZTmkIKKUMKScOMTgxxHGZmZkanQdsx2zEz W2aWZVlmZmaKw03TduZ53nnXubpyFFfxPL/v70+/bOlKls495+y99l7r3CNl zqq9G9dtW7V305pVb03fvWrnxk1r9rw1bcduvjTk/wD/ZyNtzVsQx/8GdHf/ 5r9/bxJ34pX//7j/+EXpeAh++eUXPHr0SHq2WO/vv5WOn8XPP/+MoKAgWFpa Ys2aNXj48OET73tOOn5eaic/Px9HjhzB9OnTERcXh+7ubsyePVt8Tv8jz0jH z/V/xNPTEwcPHoRKpZK6Ik5hJHdv/fr10qmLi4uxSK8N7d9/I7URExODkydP ws7ODp2dnaKNZ6U/PyO93NXVpev5Qm0L/1fvw6ID4l16HXhe78OiP35+fmI4 8of/pffhW7duDez97+R5Cw8Ph5OTk9R5cWttbcUCbQu/POX0ct9/L/958eLF CAgIkD55//593RgstY08GnwMf5L/LJ6KP/9biwTdWP4kT68WI9o/TdY2/MPg 4/uL7LyBDYseirEK5/3x6a3ff0q3q6qqROt/kz8pngq3ime6UMjIyJDmQNuA FEe8GfUfTdGe4c7gE/OyHK/6ZxAxLlrX+YrB9uKAIYjbVO3RLdnDBiYHr0l/ e0H6mwhH8UxEgUCDmBkxS6dOnZKOX9TG8eOGewefm3/IXXrw4AGsrKzkIP31 3PxuYLtdg8/IWwbafVZ+TQe9/nYNe7VjwJRcuXJFal1E9Lt6SNZ9TNdtvbCG mbap1sEn4X35kzpsPg6QZ3/lRjHpcqtNg0/Bh/IA9VvVtaRLZjr3idcEJE21 LTcYGLqIKzH0T+S/iUioq6uTnonZFE0ZmgITbZO1g0/BZ/InIyIi+lt9Tn5N hrf0bK62tarBh/6lXms6POta6+3tlSZS9E1urcLAcHV592v5Y/qp4Vn5Xgz7 +++/l2bTxsZGGrLcZOngHfzWQEp4Vv5ITU2N5AvRQfGKOAPPNEfbcNHgDX9n oOEX9Lyiw6mxtrUC+cy6iqM/8jF6Telg/1sD0JytbSp38I6NMwDIF2TciBjX uYUjlRvUDN7gRAMNPi9/REyfLsyFk+RYnKVtWD1g0PpldqoBYD8ntyrmT+cU vbLzx/5kPULbfsbgHZ9uAO2/03ORDosDC47eGdIGnGFAxp5l4Awv6p1BB83n +nv+zIBzCdPGKFL0zmWAlBjLnxQvCfw8Ho3Wr2KS5LxlqD6/0J/XP9KeLnHw yTMxkCd+K39E5AhdYhO9kyu3ocJtKO0P03YgbvC5NTfQgT88rWDhmSfOwNvv DbxMk3ryjvZNMYNPuIWBhKQbopwqHndAmtk/9B8NMTDsodqzRg0+7wsM5BXd WQV0dSH12v/mXOF65zJAOBYbONfvZcyKc4mQEr4VHxHnfdXwVBs9vQOhTxms PMVLDXTgd3KCEdM7sIKKv8ik4uX+8Rv1H8lToeuH7OagwSd8hYH0povahoaG /vPqplkf1288feT+g0/9agNn/S/5Nf0y/Hr/4LRMCL5PGY1c3tcZSKt/0ssS ISEhuuw/Sdug1+DTs9FAivuj/BHhIp179LK/tmDAQ44kQ0x3i4FW/yS/30Dm h9yk2+CD32YgRf5lQMIXrU/QtuY8+Mh3GkhAfzWQgMZrW3McMFx9FrvHQFP/ Jb/fgHzQNWk3+HD3GUhQ/yV/RLRoQDY83x9OWroFm8Hn4KABgL5kYA5+Yzgz fKU9uGZganQs94iBM/xdfk1fPzw76BkuDz5Tx546jMeokIN38PN8P/h0nTSA 6r/J3Rdv04FFF9aDn8zKwLTp6tOZp57pN7h9+3Z/a7qw5zQ+M+jJzg4+svMG 8srLBjLiMwMD7NTg7X5vIBG8YiAPauk2TshTYohGXzbQ1Evy2fVBJpwgZwK5 1aOD9/GqXsO6tKKd6+f6VYnop+CS4lUdMOTWDw3euo2B3KBbyNBXJ0P0ZkWc QTyTWeqBAbOiT2TsDDT/mp7jdDpFbmrv4J11MJBydKxAf445fLnBXQMaHFAJ nA0g8xX5I6J7+tVfjmOZLu/Qa9gAe3M10PA/9MatC9hvtK1tHXzc7gZae0PP IbowlYN+0+CD9jIAXl1revJM19qGwUfqY6C11+WP6Osz0Ud51I/1yAfaU6wd fPgBBtD/mp6XDJTs5+WP6Isq+WSr9E5mgBwEG8Dxm3qe01XxgWcQJkuLFU8Z jjxjoQbOoFvH0s2SeGboDNolJCwdfMIiDJzhDRmlwsMibejWxAVmBjnTosFn S2EA32/IHxEt61aM9LD+lEIge2fBU0Yml9IYA+cbKr+mzwgeFwLt8hgsBp+x eAOZ5R35NX0eoF2/grk8mYbIZZIBsL4tv39AkpKmRm7SZPCBpxho9U25VUOr fUbiSG7aePCxpz+16SFPSB+d0NIr6vhUe4ZZT5kPEfEqAwniPQOpULvgiOmD z4PaQGvvDigB8jqE3OCUwUefbaDBdwyUAJ0gZFc/1jY8acCg9XllvgEE6pZ/ 9eNUXg0ZP/igCw20Nkwv/+sKshzrYwYfcclT+/YrOio3OMrASHUloNwAIt+T 36+/UhMVFSW1qlta1Ie/tl7IJOCp/a40cKb35TPplwBdbL7w9DN9PfiZagxk gw8NhOzjKzna2o7hcncMEcR6AzDTNSqmXSRlMVG/MVC6tCkVnw/e7UYDZ/hA 7pE+/9dN0G/6k6Tc/ieDt9/y1PZ/088+helN0bMDT/HRgBnSZxPtBqD4iV6Y 62jOswNmSM+xwwYfQecgZ9BRn8cZRX74D0TqBWSqa6BR1yKHFuKbhWtnFAj3 zkJhRi0K0muRn1INQ+viH8rND5QHolDyudyJoXqdMMC/PKU//xEaTQ2Cg3ny K9Gwp7nSPC5Fw/tiNPwuRMP/fDQCztJO8/gEXzuiQIqLGj0Nff2XAPQJ1nvy 4HRj37x5868Ww0QQCcfIPX1z8MnXTtdf0N7eB5trkbCziYYzzd06Gj60wGvR CLkajfDL0YhizxXfRyPainaOxl4r2GvFMf7tkAJqRzVu1t+UM9OTuWzo4N3Q rYHrOv844fdXPfEJ4WvRopbf/g0RoZlwtFXA6Xo03Gg+tCDbaIRxBFHsfSx7 H885T2LvU9j7VPY+jfOeyhGkcO6TOPfJp/h4NBoJ+6OgsVXiOwO9f9OAu/V6 r7u8pcOYXu/fkHO4yNLiEy4uLiKoveQA6WjvhZNNOFzsFLhhFw1PewYBH0No URxMLAeTyMGkWMcg/VoMVFdjkMlHNR+NkEXHPAc1B5jJAao4uAwOLINuST8a hULHDIw0kJ5fH3wwv/1Pg3m2P9cI3IhPi+fapb1X0ckRudqG4YZ9FDw4Gh8H hjctzD4G0faxiLeLR7JtAtJtE6GyTULW9SRkX09Grl0y8u2SkG8vLIHH8ci7 Hodc2xhk05XZHGH2BQWyTkWgxEU5wsDAdCJRzLWBgemuFOjEwuOw7GfH+klU b3A35HnrbOvBDdsQeikSXg4KaWxBjrEId0jg2JKQaJ+CVPtUZNilI8tOiRz7 DOTRCwVOKhQ5Z7DfGSh1FaakpfF5Koqdk+ipRBTYxaHAJgb5l6OQey4M5TfS dBcq9SveS4OP8c//aYzPPTFjA8YpL6b+A/FhafCyD+cAOUgOMMAxAWGOyYh2 SEOCvRJp9iqo7NXQOGqQ55SNApccFLvloNQ9F+UeOajwzEElrcorG1WeWTzO RIVHBsrc01HimoISp0SU2MWimBkn/3wIyt2TZNX9ZCH7L7nPOqFjYMT966/u 7u6oqKj49ZCfDBIdYdYftosM8uKcMqaQEPg5RMLPMQ7+HHKIYxoUjiokOGQh 1SEbKodcaJzykedSiEK3IpR4FKHcqxiVPsWo9i1GjV8xav2KUOtfiDr/Ah7n o8Y3F9U+Gr4vk1OgRJlrMsocYlFiHY6CCwG439Ldf6371xd5Bh/+3/WGr6Oc A4avv/Y9ZMDwi4qKIK3gaCv3m/C29Yf+LZjxG+GYhTiHHKQ4FEDpWIQs5xLk uZah0L2cGUkDX2N7FK90QK1rDuoCK1EfVImG4Eo0BlfQynlcytc4L4GFqPLP Q4VvtjQX5W4pKHeMRqlNMHIveBqcgxcHmQOZictz8Gz/NU/durmYj3eenAtD m0b052KY3FRzSx/UqlpoaNmkDNnKWmyWJ1fcSnNK4X89CAFMc4EOyQhyyJRe V3CKEh2KkeZYBrVzBXLcqlDgUYMS71qE7stC9OYstFhr0OaTg8bQejSF1aM5 vB4t4XVoiajlcTUawzh9oeWoCS5BZSDDi1NW7s3pupGMcqdIlF73RXtW0Vdy 98WsPHlVf/DZelUeokjwOuKgq7uDzNazBmZLG2i/J9HsI9epxZVLUbBnnXWh eZDjeLEk+bAk+ZAteJ9heTvJeuyuQXFqLdbrzaavtTcCrocikIk/0CEDwQSZ uMU4lCHZqRIZziRzbnXI92hAsU8jyvybEHWsDP5nKlEdWIWOoHw0R7SiJaoF rYoWtCmaaU08bkRzVD0aI2tRG1GFqrAKlAcXozyAeco7g3knHuUuwaiPiPtK b3i62fyN3mwKLi3oh47p6WZTt0ikXy5l/P1Dz0G6TRzPGZjFN+Vcp8mqQmiI GvbXFHBlyfOW+VcoLYKlXsESGM2ZjeGsxsgcLJLFPowcLPgISYKTGl31N3WL LeLmb+2HQPKIQLs07eXQ1xFpX444+2q+uw4q10bkeDSj0KcVpf7tqAzqQE1I J5w3BqPKNhJ91x3RGt2F9hhabBc6YjvREdeBttg2tMS2oimmGXWKBlRzfivC ObchjNYAJjqfNJR7RqHUxcvQvA4xMK86Vaab13f+87zqp4nnDczr6zJLbG/r RXiICvY2UXAjofKhBdMiaTEkVwmc52RaKuc4nWQqnfOs5DynC7bIeU7mPCeQ JcYKnntAgarEGqyWeZG4BViHIJB0JtAuk5YvvRZpX4N4xwakurQg070Nud4d KPLrQnlQD6pCe1EXfhPXVwWiyDYOt274oz2uDx3xfehM6ENXwk1aLzoSutGa 0IWm+A7Ux7WiOqYRFVE1KA8v40znozyQOcGPEewViK6CfPmyzQv9qNVXSAOn V7dSoS/X3n769L5gYHpflcEvOKyDdRhcrivgaSdijeFKi6UlMfZSaRmcajWn WsPHbD4aIZf3zyOX057D8NYIDiumnNOdypBOZDhnO6hXyR4Ut0BrZlrbNIZz Dq0EwderpNcTnFqQ5tYBtWc38vx6URzYh4rQW6gOv4P6qLvwPpAMtXUybvlE cUbvoSvpHrqT7rIL3cl3WGI7k2+hLekmmpN60JDYiZr4VlTGNKBcUcWZZq4I zYbald139ENWcDxyWBFyWRFyKSI/1wtkMeuGZvojA5RswEwLfqKb6d8amOmX ZTaQl10OZ9tQuNtFwofcOoSmoCWQW6fSVOTXWfbkzLR8+3gUkcMU00qcYjnc UqcY+rGE9baYvLWQ3smz0c68ipIonQFeQOnZV9uL5eJ8uu0TgddiEWijXcDT vvYuouybkeDSgTT3Hqh9+pAXcBslIXdREXYfNVEPUB/9A+IulSHhchp6AxLR F5qLrpSH6EkV9gPtATpT76E99Q6aU26hIbkHtYlESGQdsvxLmJ/SEX89HokU EklXPaGwcoAXQ8NbriPerCNeRxUoZx3pbuj7QM8N+ksCwiXiuXDDpwZoogE3 6Gji7/TcIDSbcIOWe7+GfE0ZJU4wPOwi4GevQKhDDOt+HOs+ZY1DEtTkAzkO qaT9pPek+GWuqahwS0WVeyqqPVJoyajxSEK1ewKqbsSjwjUWpc4xKKJb8gRA 6BL1WQWS94fKly0+QcClAAReZY65lkUkFCHIhrXiegOiHNuQ4NaNdC/yFb87 yAu6j5LQH1AZ+SNqox+hIfYnxF0sQahVBrqClOiLKUd32s/oSf8Zvek/8fER utIfoj39AVrS7qAyrgtq/xokuRcj0TUXSc4qVuAkUt8opNr6IOXiVYQzL0bQ G5Gi/tAbEfRGOHNj+CGGkpO0BvCOnDUGekRwDB0wdNP92X/2jD6DfXGAZwQR /qusWzrbunHDJoBpKAy+kmfiEU0Sn+SYSuJKUeZEQcYRFbmQiN9QU5dkodor C3U+atT7qtHgl4lGPxUtA42+6WjwTUW9D73lmYBK9zjWsxgUCi9ZK5BtFUnN o9SCheEV+H0wAi8n00vZ9FIJPVSDULtmRDl1IIE4SfO5DXXAPeQFP0RJ+CNU Kn5Gbcw/0RD/LzQn/gtepzLQHKTB3YhMdCv/Gz3Kf6E345/oyfgZXRmP0J7x EAUhrVD51CHduxKpnqVIcS9A6o0spDHC0p1ZtRz8kX7VBglMpYn0UhK9lCTW OeipRKbVBHoq4Sg5mFjruK6SmcevgSPcJC9l9SsGfXTowCToo050DHCZwJ5u +eT3Blz258ei4x/wuh7SLziiKLgSKTrSHdX0F/WlpC2FrsxDlXc+6iioYlc7 onSbAxqdU9AanIe2kFxaDo81aA1SoyVIhYaAdL6XaPNKpK9FEqTvyACyrcLQ nFqBZVKn3kfABVbvS6n0XS59V0bf1SHErhVRLl1I8LiJNN+7UAc+QF7ojyiJ /BmV0f9Ebdx/oyHhv9Gc/N9wPZSOKvLJ+5Hx6M6g31T/jd7Mf6Fb9U/mtgco CetGtn8zUdWADN9q+q4caZ6FSPfUQOmRhowbTNzOgVDa2ErMI0Ms5VyONpLq 4XPIII1WMj8r6UIlc3SaWNlxUuFWXa9cgQ1/70XnPt3Ktf4igs59+qttBtyn 4wW6vYaiROnert2Z9ZbkMS8izpclKcA+EeEOSum1NKdc6h+tTC5mLin3KkG1 H2VgQCmSj6dAuS4SN60i0OsQgM6IEnRFFtOKeFyAjog8tIfnoCVUg8aQTNTR k1W+1D4e8do8aROB7HPBuNPUo73m+gUCzlM8fE9ycDGPjiynE+sRbE8nunYj 3vMW0vzuQR30EHlhj1ASRSfG/ILaeIIvUTjpnwi4mI98vzzci0tFFx3XnUng qclOWawKAtuRR8sJbEFWQCMy/WrpyAooqfgzvHOgopDI9IxHplswMpioNDaJ 5DgJyLUVFk9jRbaJRbZ1DDSkmBr6VUNgqk9HQnkgBHfqe18a4Eh9ka9z5At6 jtSRBZ0jxTK5eL+eI183ID7+PMCRotk/yOKus7VTK8VYcgPsEhBqr5Tp4SvI cS2VtH4Z0061fxW1fDWaQqqZUph+zhWgNzAfN4PT0RtTRatEb2wFekShiSlF V3Qx2qIKKM9y0RCWhRpCs9IvlfIgAWXOUSgieS6jc7We/JKSjmnUip68QE9e qmCxa6An2xDp2oN4r9tI9buPzOAfkBv+I4oVj1DBAleT8DPqk35GU+rPSHCt h9IrF7cTVeiLK0SX+id0Z/2EoqBWFAW3IT+4FTlBzdAENhKSlEB+lJcMTBXT SqZvJtTeicjyCIHGMRz5DOZClo0ip3QUS8aC7pRCXpWEArFGeZ08y1qs2SmQ ez4cmUcCcbu++4llq6e5U1fG9Fn2x7Jy07/uQO0z9EmP/nqBTOtRoa5Ey7+X tVKxpkirAW1jEWyXJh3HOhQi1alMOs7zqEaJTy0q/etRG9yAxrBGtEY2ooOi OW6bB25Ze+Cufzz6EhpwK7GeVoeblD69CdXojq+gECxDa0wxmujduogcVFG6 lvsL4ReHMscw5F/1x52WriVSd16C70l/BJ5NQeB5OvYiHXutgQS2DRFuPYij Y1P870IV/AA5ET+gSPEQ5bE/oirhR9Qlk8WkPqKaqkS0Ww56kzToSytHp/pH VER2GqEopJkxWsD73OAmZAc1IiuwHpmBNVAFlvOxgGWXpcQvCRqvUMayAiWu 2Sh1y6b816BCMjVNLLBkoMwtXbsuSx8X25E/X41CwYVQUoXU/k2uT/HrnwZx qf5mMOiuHxl0qW53alpaWr9LX5Rd6nnZXas4bVNYo7Kk43jHMqS7aLVQvncj SgOaUR3cgoZwsR7Sho7oNnTFtiNyqw/1vB/u217GnZRW3E1p4WMzbqU0oS+l AT3JdehMqkFbQiWa6dr66CJUMxNXCLf6MfveiEIJs3V7donWpcNRnl6JgNNJ dCslmRWz7tV6BNGl4cRqDAlpsv8dZATfQ3bEfRQoHqA07gEqE35ATfIPqGdm zQtpIYHOovzKwU1VFarju1EY3EiPCmuiT+nP4DpogqqI2WpkBdUQ+xWUYYXQ BGdBE5CELJ8Q5qYMVHgWodKrkBShENU+hajxKaDlodpbLEPTx55qlAr/CkJO sl7KIlJ0MZC0qvR3g7v1LwYyqY6z6ou6t57u078a8Olv5RWErtYO+F7RLroG 2mYg5HqedJzoWAWlW710XOjfhvLgDtSEd6IxqhttMd3ojOtBb2IPQrb646Z9 CB65OuBeejfup3fhnrIDd5TtuJXeSpbfjK7URrSn1KElsZp8swI19G0lE3J5 UAbKfeIZ9MHIve4BnWO7G3sRcDwegac0CDxXisArdQhkOQ0lJ4r2uolEv1tQ Bt9GFjV2vuIuimPvoZzauir5PmpT76M+/T7cLiuZmHNxL5V8OagOBcH1dGgD CuncbDpSQ4fmBNcgN6QW+aE1UIfSsaFF0ITQscGJ5LkhqPSpIGuoQK1/BVlA BeoJ6PpAxmZgKZ8XS4vs1UzcFT45TDuMUzemHyemH4rkwss+zw/uWN2uZf2l KX3HiqpqwLGGdmXqO/YF+awl6qJ+Uhtoo6FjixDtUKnV0K8hx7edRakL5WHU vlE30RTTh7b4W+hOvI2bKbcRtCUIPY5R+NnLA/dVfXhAu6/qxV1VD26pugiY DvJN4pv+bU1l+iZ2a+PLyU8L2WYWygNSUO4diUJXL7m4/g0+h6MQeDwTgWeK SZNqEHi9GSHOnYj0ZHH160Va0E1khvUhJ+oWCmOp6RNuoyL5Dqqp02vT78Du XCJfz8MddTJy6b+84FoYEcb1HI9a+JTPc0LqSLPqkR9ez/iogCa8ENlhTMD0 aT71VU1AHeoC61BPYDfyvU2htbQaWjWfk1yE0N9BpagMJGv0z+cY6Fcq53In BcrsAtCVXSyv3D/1avIrgzhWX2UOcKz+typfMuBYbTi9iwS/WPhfFmuzStKT PITaliHGoQYpbk1QebUhJ6CL6esmq9Mt1EXfYTa9h47E++hJuc/K9QD+W4PR 6RSLn/0D8IP6Hn7IuosHWXdwN+s2bmf14aa6lwS0Cx0ZHWhVtpLWNKCOyK2K K0V5FFEboqR3Y1Hi6Y/WvALtbsDRCAsKQDjt+iEHHJt7HSfme+DEsiCcWBcF BzI11wtFCHGqQ0pgN5ShPdBE9iIv5iYK42+iNKkPFSl9qErrQzQZkZKn6cvO QGloDjMwgRpUSwfXMvvWEaT1yKFz8yIakBNZi6zIcrZVQGdnIiMogQyvGXWi AIW2oCmshcyvBS0RzWiJbJL4RXMkgzWCQRDGIYVUMrGVPL7E4Z6EctcwlNh7 PLGEOfCqlyGZYkiUDvCw/nbtvxvw8HOyh73OeSLgEvPflUwEXStEmG0lYpzq qbepv307Gfu9KA4jNpj76mIfUL8/REfKj+hJe4Rb1OoJ55RodU7Cz8Hh+EHz EA+zf8CD7Ae4l30ft7Pvok9zGz2aPnKYHrQRx03EcB3zc1VCBcpjiN8IxnxI Ikr9gtBRVGApe7iqvAznjh/GUvO5WE5bSVttboIjM6/ihJkbTi72x6nV4Ti9 WYFzO2NwaV8cbA/Hkz8XQxXRhezobuTFdaOIZaMkuQflqT2IdC+BgtK5M1uN 2pgMSt0qerqaVKwGSgJbHdoATUQjcqOofKIqoI4qgzoyHxnhKigDlKgL7SSv 70RTZCfpRidaFZ1oi+5Ee3QHrR0t0QxgRTPq+flqer0irPLxJRgfJYrcIqG6 Yo8LR48+4eG39FymW0cwpFsHeNjQlxH0Pfwb2cPe5/zIQkldLmvo4WKE21Uj 1qURKZ7tUPl3syr1oTjiLrPpA9TFP0Rz0iN0UF70KH9h9v0FuTdq0OCShl/C Y/CALOph7s94kPsI93J/xO3cH9CXS7xn30Gn5iba1F1ozmhFfVoDqpOqUBHH 4Ss09HIyyoLC0FlSNF/q1nc4T+8unzcXK2ir5plgDW0dbQNtm+lyHJvthJPz fXBqRTBObQjH2e1R+H6PAlcPxsDuWCycT8YhkpJbE9OBvPgOFCZ1ojilE+nE mo+vBk2abFTGq+k56tdA4pzMSsnEmxFWCxWxnB5ZgQxFOTKiSnmch8TgNNSE 9qI+ggWKRapF0UfO34f22JvoEBbXS2MQx3GIsYyEmDaSi2ZURtWxuBVD6ZSE qPM+iDrrBKW1M9pyc/qv7PwvPav7ZoJ+Mn/VgGeflT3rcyaQ4pE641IOgq6W 0rO1iHVtRop3JwVBL3JDb6M46j6F40Nm1UeU/z+zhlLuU/bfUv8LWW51qHbJ wM9RiXiUUICHef/Eg/xfcC//J9zJ/xF9eT+gJ/ceOnNuoU3Tg+bMdtQrm1Cd UoOKBGboWAa2Ig1lYRHoLCueJ3XrDVRXlEleXWlBz9LWWNCztA20TfTuZtoW 2r7pJ3HcxINYDsDJNSHEcjjO7YrApf2RsD4SBfsTCjiL7WLW6ciKbUVufCvy E1tRmNwKRxcVKtS5LB4RlFOlzPTlQ+RV/OSI8n4yomUgf0NRaBtqI+6gIeou mqPvopUsrk3UqoS76KRVUR7XC3pOudSS0ItqRSs0PsWItk1G1LU4slNK40CR qdJRHhiNYg/XfucaWi3Uv5Q3wLn63Po1A859RgfbU8EIOJ+KwO8pIq+UI8y+ HjFurUjx6aJzSVzCSEYVPxBiFI5JP6GZkO0gZHsy6dysf0LtVoNSZxV+jk7F T6mleFjwLzwo+CfuFfyCOwU/oa/gIXry7qMz9w7asm+iWd2J+owWVKcxcyWV k+SyTsWmoywiEp0VxbrfZmnR2y2gyahFW3OfvBN5jOT4VRZzZKfPxVo6fD1t I20zbSttGx2/nbaDdmCmFY7N88Xx5SE4sT4UJ7eF4vyeMFw6GA7roxGwPxkJ pzOR8LNJRmZsIzTxTchJbMIV6xRkp+ehMz8RcX7FiAssQVxQieTruPAyxLFM x0VpoyAmvEB6rI5gdov6AY0xzHBxD8k/HyL7SgYarCmodl7F7aM2+MnGC/83 IgNpzvlIdsyGxq8MpVH1rFM0BetVlFyvwqgj/L3/UwDoLjgOCAB9tfS6gQAY oqvMJwIRcJYBYMUAuFqBEIcGRN9oQ7JPD1RBt0hM7qGIObuCI6lN/hFNaWLl /Cf0qOlczc/IdK1EnhNLTGwaHinL8EPhL3hAu1f0M24XigBgFc9/gM68uwyA PibMbtSrWlGdztGmcrTJZKTxSpRERaK9okhLGH6P1rY+aLJrcfWyAvakhi6X H2+A8JYvXHkRte4nolGaVouuxj6MlT47VgqQ1QyQ1SJA5s/FOtqG+cwKDIwt FqYMEFNsp+2g7aTtou2mHTC+hCOWATi6MgzHNobh5PZQnNsbiouHQnHtWCiu nwyD4+kweFsnQBlTh8z4Oly1SURiUh5aCtMR6VeAyIAiRDJPi1sEgySCaSIy ogLhYdrAqQj/ETVRj5Dt1oi877OQz7ardtij94QzHlp74BcPf/xPaAj+HReB X4qJlYSbaCSPrCW7qEpoR3lcE/FSw2Ahx4tmyYtKQllwQH+a0F+VNqSp33x6 lOgooPi4LkqM5CgpTa+B/+lU7VqTHCUKRkkSo0QZ1IdsZr3CaKFZH6AmhfGf zthXPUS3+kfczH4ElXspMh0z8DBOiUeZ5YyQn/CgiNWddrvwEfoKmSYKfmCU MGOyDogoqctsQ5WSUZLOKElllCSS3ERH4G5v57Py6ms7oySM8tbOOlra4OFF C6CFyBs8osQGD0ZN9AXa+WgozmovroUe4/sORKEssUaeud+iklxQMP5zxw5j mRkZA22lMFOayVxEBQTQuwHaxcA/9AfZGtpa/SCbbyoF2TYpwMwYYGbYNd8M u2l75psZYa+lGT2zb85lHFwQhMOrwnCEsXZsRxjOMNYuHAzF5aOhsD7JeDsT CnfreCTH1uK6dSqConNRU5AJdTRpln8RAgO1MRUQWk6rgF9wKfVCL8KPqbUL HsvtUbbVGS0nPdBrHYA7HmF4EByNH6MTcC8hmSUpBx0qsstMcanyPhrT7pA0 30QVOU55QgutjlZGeLIAx1AwhgcbCrOP5Zw98EvWIuQGJKVff4HqZWkRTxdu 4pXi1Gr4nUhBwLlckkmGmn0DohhqCaxI6ZTTmvBbKIi5gzIW1OqUe2hIv49W FROM+gf0Zgui+BDJ9krcT2C4ZZUb4X7RQyaUu7y/XfQDbhb+gO6C++hgPmpl pDVmiUhrRZWKkZbBSGPGL0tOQ350qFwk/4a21l5pZ7SDjQKuul3RtAhbhhUt 3iYayde0+13SGHLpYuPFRe3mC2lXNBNVHBNVzCGx6yELvXU3ZSA+LwnMZUJ+ CCpDkwgqJch62gZzEyNsMDPh5G4w5UuMwvVz5+LS4cOoLiuTF7z+wI8Yswg+ DsP1T4ShGXYw9HbON2cImmOPpTkj0Bz7FpgPwf4F5iwl++dv4EuB2L8qFAc2 heEQQ/HE3jCcZSheYNq7dCoUV8+GwuuGCpcuxsMhKBtFuRoEegTBzj4e7n7a MHTyKoSTVRI8VnsgZqEDsre4Sa/XXwlFi6sCnf6J6IxIQW1kGlqZOltSbqFL +U90k050KQWteIQWpcgd1ICpt1CV0o2K5DZWiAYaPZMkKkUaU15If7r79crw s/1fyxeBJb5uIhYnBonDN2XxOjAOfY4kI+BUNmlvGYLs6hHp1oI4n06kBfVA HX4TedF90nJOVcod1LPLzaq7aFffQzclaS/FSvT1dNxJUOFBXCDT6N2iB1IQ 3sct2s1Cvq/gLoPwDlpy+tDIdFeb1YpKNYNQRVakzKWeTEGlJl0u1H+XdgU5 2oQxABVwtyNftY9GOC2ax4l22l1BSgZiJi2LJvZ459B0O4LEJogseVd7OvNg ynEG7r4o3Kq/KROEF1DFpGZFxbRCj1NL1GqellMLPm2ErSIst0phuZVhuYW2 mWG5ac5cxPgFyKs6f8TF4welsFxnIcLSRArLjSIsadsYktulsGRmtNSGJUMS +xaaYz/NCAcWmhvhIA8/wcFFZti76Bh2rQrGrs1h2LOTQbo/FMeOhOLUiVCc Oc3HU4E4cMQDpy9EwME+kp70wqlznjj+vXYheNfMbZj58TfSselXo2D2zWjp 2GHHMVaJQJRQqzWn/ILWtF/Qnv4LOhmUnWKjgOondNLaM35ES8ZDNCrvozad Xk/tRXka63FaI40KPIXBmZSOUkWIodjUlWL9pZQBpVh/S8Zb8pKZ7vq+WDhN cCmA33HC7vsSBNrWIsylGTHe7dQklGHh3ciJ7kFR/E1ChmwhjYlNdRut6jvo 0NxBN9l3CCvITcbjj6lhRqy5dxmOt4vusvLeQW/BbXTl30Z77i005/SiIbsL NZoWVGbVojyzFKVKDQqSE9BaWyEzgj9IX0twkbZORcGbYRjkEI1IWpxDDFLs Y5BhFwu1fRxy7OKkrx4U8rjYIc4IJY6x+CvvY/p3TeXbaiM0iylTxchMPRKJ Ow03+yvyWbkiL5cr8iphclW+cOSwqMraC0m/k6rySlkbCPq3Tk8XbBmgC4yw cx4Deae5COQdvN9uJtYE5mIrg9n60GF5aePPqC4vxdp5s9nYHKJBm183MIhF jt1qoQtkc+ySA3mvFMjzGMK0RfMYv/N4skO8/xPvzaF/273sKHavPoEtO0Kx fV8odh8Oxb7jodiy3xub9nti22Ff7DzuiZXrj2DWxMm6PWQmw0fB/NsxsBgx VlafL2HB6BlYMta439yPejOcf0Kb8id0ZDxiGAv7kfYQ7aof0MKi2ZhxD7VK hrOS4azsoDGclQzndIYzq2BDdoYunA1drdFfXRgQzvrrRm/LdVQXzuW59fA5 lAX/c8UItK5GiFMjojxbkBjQBmVoOzRRnSiI60ZZUo8EtPqMm2jK7EOrpg8d rNn+l5PQEZ+JhxlRHP3Nglt4kSn1FuO4j2m1jyzyJtpye9GUw9qe04nq7CZU aKpRqi5CkVIFTUKMkdznzvYeuImtZ/YR8HVQIJjhG+UYh3iHBKQ6JEFln4xs +1TkO6aiyCkNpS4sQK5pqLyh3X5W5Z6C6htJqLqRiEo3sfk5VortAsZ1LmM6 aI8dNk9dgMWzZkrlfTVtrVzijUSBx3PYyLgTVV5X49fJNb6GNf53eoG9StY0 a0UM0jbpglrWMzotYyTUjBH28PA53pvwKY0n3UmesZPg2cGT2PIEz8pYVgT5 YR1JxHopwOUlFAtBIMyYqc1JIERwz8PuBfOwl0Etgnv/onlGUmQPwaHF83BY NiMcXjKP1UrcDi82l+zQYjMphx9cSJ21bD2WzVmP8WNXYMrEtZjwzSSMePtV jBv6Mia//wqmffAqpnz0IeZ8Mx6m307CglEzpWBeRls+zhgraEZYOc6Yd2Nn E1BeBEe7HNEdmcIeoD3zPqOb1FB1B7UZt1Cp6mEeY3RnMrpVjO4MRndqCnoa qnXRbejKxv8yuofqRbdYgnM/ngDfk0WM0ipmxTpE3GhAnG8TUkNakBnZhtyY dhQnkGKndFEFCzXcg6asHrRk98LzUjyaGNkP1DHMyL1iTy3vP+VxD8lCN6O6 Cy25nWjI7UBtbhsqcxpQqqmAOjEdMUFBCPPzxhJ6eBnT2NSvR2L5HEvsX7cf h9YfhONxV8Q7piDNIV3SYjlU7YXOapS6ZqHCPUv6XlGNtHcvS7t3zzeTloEG HyXqvdNQ65WMKo9ElLvFYZfZIpiPHI15346GxdejsGr2TGlJVX/hbYggCkyi ginoeMImRt4mhveVQ4dfkJX+YyE1V2KwWhFl8oSI2mXRL6Ak/TQE+3j/PO9N sY9ZeC/fv2e+CPS52CWC3HQOA/yQlr//CWvNZ2P9vDmM67lSbG9ks5vZ5FbG 9XbaTsb2Lsb2HhHbiywY2xZM3BY4uNiCwWshYtpiCI4ssZAD+whDXNjhJebY NGEU1nz1JVYP+wSbPx2Jae9/h8/+8RqGv/kavn2Lgf32K5j63iuY8O4rMP9u BixHz8KiMbOxlLacEbxy3Gysoq0eb0y9sWa8iOm142Zh9dhZUHllU5xREWfe pd1Bc+ZtxnQfajJZHNXdKM8iAckiO1aTHatyUJaWjI66yr/KRFh85SZDVYtM mjqjFlnK2id2Qw+Md/3lRDneXzWQ/LXfg/2L1MSh7adhuzkFvlYV8LetQbBL HRRe9UgKbIQyrAkaRQvy41pRktSOitQOVLPG1GV2UnV1IsxVhZrYTNzVxDPO 2/O62HJ7HuUo47uV8d2c2844b2Ocs420ciQrVPB18YWXoyucrl3BGnNtGp03 dixMvv0OZiNGw+zbsayL4zCP6WP7nJW4vO40cp1yUOhKVeeej0rPfGkjQ71f ARoDCtAcWICWoHy0BuWhNTiXj9loCcxCU4AKiZc8jGA5Zgyz74LRY7Dou9FY PGIUlo8ZJ2XdrfOepBOCR+zU0gop7J9gFAz7zcZzUVtW9pwB0aZlxiZaZiwL NrFmoCfWJK0mceIDC6Q7M+b2/QtMsZ8Q2Gspwn8u9jDGd5nNQXyAv8zT/oIa kpd180T8a2N/A2N/I8+x2cKc52JuZ+zvXCByuwVJtoUU//2xv2Q+Y3w+Y522 dD7j4OhSC/nbA3tMZmDLxLFYOexTbPp0BHaPmISDU2Zh65QpGP/ph/ji7dfx 1VCBgX/A+PX3cHzoUCz8+H3MHzUDC0czqY+ZxfifJcX/aka9EdZOmE0ErJvI vvbbLCOsnzCLWWLduJnI8FKjJfMWrY904Cbq1T2ooXyv1DCZalppdYRDKdO8 BkUpifLuvD9Ia4lZmlpcvKTAVUpzG/JMO6ogxwvRcKY8dyHndKVEdz3J46MK 6ctUXY19vzGQ6w2tvA+Aij7tf0te42hpZQ9IpnNpIf4aWJ9X4PIJqhgzL1za kA6Ho0XwuFKBMPdaxPjWITm4HhkRjdDENCE/oRnFyS1UGa2oymgj+NuQGFyM kuhM3MpOJIUrMUJTdhvrUFN2KxpyWlCX24zq3CbEBlHC3giDj1sQPJ294HLd EbtXLZfk3BrjmWSPIzGfqLEki1wwYjwWjZiAxd9OxOJvJmIJC/Piryci5lwo qnzKUOtXhobAcjQHl6M1tAztYWXoCC9DZ3gpVX0xjwv5WgHSbfyNsGjceKrJ RePGYTHBuYzoWTFqNFYQPZuNZzGjEym0XRYmElcxGSKxlOcknrJLhtIOVrHt hM3WOXNQRyKk5SovPqEqtUTcpF9RSrixFLgxk0j4fgkqkpAk7X5VIt+HSEQO SWTEjH8ylTC0j/jZR/zslfBjLJ1PnE3wovXmxqxsj+uGwM4W1oxt8+dJ2NHW DS129i+ajwOL5xtJwHkDh5dqYSPs6LL52G0yE5smjZPgs/7jb7GDU7x/0mwc mWuG4/zojnkzMGbYPzB22JsY+c7r+PKNlzHyjaGY8vJn2PHa+zj2yUdY+N1M LGYJWTZGhg5tDYEjwYZtbZg8ewjvZlF/b5w8Exsn0SbOwIbxM5DulYHGzB40 sHLUEjJV2R2oyCFscppRnl1D+BSjNDMLnU2N8sa8/0JOdi2srylgYx2N66Sz DjTXq9EM1mh4X46GL6EUQCgFWEUj8BztDI0wCjxGOxwN//1RqEiq1n0xVP8K paHV6TeeDiXt6vQXaGu7iWz26toVBRzZkxs0b5o/exTEHgWzR/5nwnF6fhDO r07HpZ0aXD2kgbd1MWIDapEcWoeMqHpkxTYgN6ERhcmNKElrouppQqR/AbIj M9GTnYwWZTpqs5o5U02oyW5EVU4j8tIovd3D4eceBq8bwXB38Yezww2cP3Gy vyQsHTcWCxnoi0aOweKR47Fk5EQsGzmJwT8ZK0dSwK0cOYVhvHLEFByftxGN wTVoCa1FW3gtOiKYd6Jq0KOgRVfTqtAdXYFMeyr2JRMmElJLJkzAsvETsHz8 ePLfcVg9eizWsDCt5/PdRMGe+YL+751v+ozEjZ5/zI4kCSCzIwGtuRKshshr NQMlrkDVZj15u0tvjWa/nqw9JElbEv9nJKb/shZai0wJLRNCiybByhiJQX56 kJojQWrjPMJpnhlJozmnbx5PJEqRBXYRTnukUjQf+xcTUkSTVIqWElpHCKQX sWHiOCx6/xOs+vAbbB0+UYLUIWMzHF1oieOrFrDgTsGamWMx/sM3MfHjoUaY 9PFQDnMy782Gj8e4l7/E0pc/wZmh72DDt3TSaG0xWiWjacMUc+w2W49989Zj r9kKbJsplqQ2TZkl7mby/JsmzyCUp2PDhGlI9U5lpLQTT23EExM1M29ZbgPK cqpQoilCvlL1B3k9p6O9D3Y2UbC3JZRoLrQbNtrrFn6EViADOYSBHMYqFclA jmSFUsjXLRSsUFEnaISW4gjtgALhuyLQV3/T6P8bvH79c4VfEl69CA3OhJ21 Ai6iZ7RAm8c/ABLDXsaxlwnsZaL46uzZcFgtDIPVWiW+J9Qu79PA/riGwqcY SWG1SI8i/4ytRXZCHfKS6lCYUo8QrxykhqnQoUlFoyqD9bqedbueQqYOWalF 8LsRCm+au1soXFyC4ODojfOnzkkXdrcLaWo8g9AaiaXfjaGNx/LvJmLFd5Ow ahSdPmqqoBKjpxph3eipDMh1fGH1yKlQ2SagU9GM7phm9MY24WZcE/riG2kN yHKOwdKJk7Bs4mQ+TsZy2ko+XzVhEhn5RKwdOx7rSQQ3sIjtNJktiY/9whaY PSNRsed5r6ViAnVavM3V4o10bIfJHB3OHivtxxVli4QxoULMpbVQncKWMEZJ LcnrJUJoU3MY4SgP3+ChuSQ/tNpai7cDC+Zi1fgR1MjfICIwACd3b4f5mBGY N+a7J7FGnG23tNDD2nzsk3F2UGCN9WrthHFY/tUILBn2NdZ/TjJNhOybaa5d a3oZuxfNwe7Fs6XTHlk2jxh7W4LYZMnewRTaVNp8ZsFZ743CzJe/wN7XP8Cp Tz/BUrK/FQJsZH2C8203XY/d5huYqtZzCOux32KFETZPm0XmtnkaK+bUGdg8 Rdh0Qm4aSeEUMj7CLKcJpbmNtHqU5NaiOKcC+ep8tDW3/F7WfVFhajhfJ8mz 05qb+EEYPvcj7IIY0KEM6EgGdDSDOZa1I56QS2A1S7SSvuFlJP2czQvSF70S WdQSibzEQ3zL3khk22oXcXUY+lzGlP5uyEHg9qrMZnKo3e2tw+Fsq5B6Jr7q G06L4XECLYU9TWdPM9jTzKvskfhtmteQfj4c3y8Jx/l1Gbiyh3ySBc6BqLtx NgsKnwqkRNZCGU3kxdVCk1BLRGUhOkiFpqw0VGeqUJBZy7kiOpPJO11D4UZz ptk7h8DG3g9nTlpRHJhITE274eU5LB817omVy7VjphIU07Bh7HTS9o3jplNb buTxqq8n4cbMA6jd4ojukArcovS7ndSGW8mtOLVyC5ZPmmKE5ZOnUlatnERs 0tbQpWsnTGYVm8iGxmPT2DHYMXOadCWA9E26DEBSxfvXtRxuoTAthxOLSgdk DrdXaCBWsN0sMNePaH8TNsXGBYe+HSPrf63+0Wl/3brWHt2a1uJ+zS8kv1D8 WskzBMd4f3TpPMmMJPR9Q1xPw+LvPofpp+/A5JOhmPvRW1g4dgTGvfcmJrz/ Nia+/w7tXcwe/gVWzpz+GHfE3C5iToe7lRzywi+/xfz3hmPlx+OwacRM7Jxq hn3mC3Bw6SK+1xS7l8xl10xxbDm5pGQWMB3xmRZwPPeUT97hoxZ00z9+F4vG j8LSUdMw6eWvsPKVT2H17nvYMnKCBLzVVFRrJlKqzVlBus0KZ0ngLWS1s1jB sW2ZJvTW5ukziT6ibtp0bJ46jSicio2UdifXbEJRTj0Kc5nLibqC3GrkaspQ Xlolf6niz+hsv8mAjpDgdsM+Gu406ZeL+DxA/BaT7tIpgzqO8EtkTCcTfqmE X9pF7eVTIyi/Z7iLL+o9z3DXXrJKFz/EdJxvOhSJQocM+Ln6CETpsKd/cWUA 9vQvrrwiLzxFhKSxm+G4YaeAr/zl72jpy9/sCruZQctiV3NoebT866Jbhbx/ D4XiW8WXw3FxBcvfJiWuHtDAlgB0PK2B21mWP6dixJPSJbP8hfkV4CJHcOpY MC4e9cGVI764cjgIVnv9cXyzO45suIGLJ/xw7qgvLtr64cDOvawHpthJ2yVx OjMJcCtHjcWq0ROwasxkrCH41o2dJr2+kdx+84QZHOWWiTNJMraQ72/h80Uf fYetX05G6fKz6PVV405qL+6m9SDPIw0rJk/DiinCpmMlbfXk6VhLWycSLBG5 kRVwMxnnFpaBzeNGCf2kvYIxBIcXmfev7GrLwSt8TSeqTGVRRUFlSeYnqiAF 1aGhXyP8nZEoeHc44od/+8Qi3LYnFuDI+gi+AzIQJRBKyLOgADy2TEIiy81u 8xlUQF/y/OZfvMdyZP75uzAjCs0+eRvLxo3ArC8+xiQicBIROGnYu7T3MYVm 8vVwrJ09U0LgulmC803AnKFfYOEHY7D6K0b6RE77XEsiczF2r1yAnUTewcVm POkKSw7z2AoCj7bNbDqB9zZBpwXeVMnexTTaDIJv7axp2Gg8B3PfG405rw7H wTc+wrkvPmVhZtWTwbeOYm2r8UKyalY8gm/7bOrK6bM4JAG93/GeXp3OLk0n +KbTI9OmYP2USYgMYEQSeDk5TO3ZVVBm5MvAe0O6Jud2PZyAU8DDgbWO5k0T 0R1EC+v/EbQYJFrHIPlaLNLEvsOrcVBdiWNxofE4i6a5GkuLgeZKjHTZWE1Q qlkbs1gbs85EIfN4OJy2XUJaVKKOaup+VlOsmQ9YFPn1LuK5UISksrdh0o9/ +TuQzLKnsQ7sFU3pIP/wgkM8CmjFjvEodYpHuXM8KlziaLGodIlBhfj2Kkfs s8MVtrvicfmIBjbEoB0xeOV4Mq6cTcDRw4E4fSQI3x+l7feB23EfuJ/whftx Uss97rDe7o5rW9xxeaM7rFY54pTlJRwyPYQ95su1i86W2kVncVs9ejxWjyEr HEv8seQJXS1uW0Q6nTQL2yYLI6eRTPt8zbdjseiDL3D8m6m46ZyMe8o7tNs4 s3qnhL2VJDerqCpW09bS1lG3b6C+2Eg8bmKd3DJpMtuegK0TxwguKMktQQZ5 L7igdgPqUVak17SL02SEhxcLPDJ2JRU2V1Jhq5gO9r48HumfzMBPlC3/M2U0 SicMx7EPP8Se94fhKJs/TPF6gJJy55ixWuW1uF95ScJLrGIcE8YKZITjvH+d 9xZUeDMxf/gw2vuw+PJ9zPvyPVgQkxafv4N5nw6FycdvYiGZqMDkZGJyyvvv SXic8sH7fD4Mk9/9AFPfZCV99zss/oyEYMxcbJo1n9VyMbYvX4TtzCl7OMKj yxdwqCsstYD8ez8gV0wdTcr5NkE4VA+M72EGbebH70n0WhT7LXNMMPW1b7D2 9c9xkeffNnoiaagMSLpq/ZRZ2Dh1FjZN0wKRem/zDIHGTTOp92bQHzOIxhlE IxG5ftpkXD9/BSoiMUNTgxRVCW7fuS+vvD6DUFLwMNlCAwKe7b/i2Av366Hw coiSwOntyMpI8+dxsH0Mwu1jobCLR9z1BCTZJiLVOgnKa8lQXUuB2joFGptU 5NimIpeWdz2FZUlYMi0JeXx/rk08cqxjkUvg5l1SINcqEu57LyPk/I3+/+5M 7CfQ/x3O/4BY7Tc7RkERnIwbtsHwsotAgITYWMQSmSmOiVA5JCPbIUW6UFrs nIYycZHUjXTTPQ21Hqmo86R5paDeK5nHiajzEGiOQvRhW0ScDIDDiQwc2x+N /bt8cGyPL6yI2stErQ3t6h4feB/zQcDRG3DZ6wWXne5wJmodNzrCfsVl2C62 gvUCK1yeZ4WLJlY4NecQ9lGWCf4obmvGCA03hYidJiF2E3OwuG0VKJ1ijB1T jUm45tD4OM3YiC/MFv+94ydfYvVHXyDPKhD3VA9Q4JMtwGqEVQyRF7Gab1pD WzdVLBgwcIjdTbJQ2TplKrZNmcjWCSQyUjJJgVELDJUYpLgdk9mkuAn0SoqO uN00/jtsGP4lNn34GXZ+MB8nPl0M9dQ1+GXxSvx7pSX+5+QyXFswFTbzJ8HO fDwcTcfAxXgkXGd8A9fJw+E89nPYj/gU1776GOepBC/NHA+rqeNxatI4HDGb JaF277xZQ2D51TD8TYLsfMJ1/hfC3oHxB69j0ht/xuiX/oLRr/4dE4e+Rai+ h3FvD8OY1z7FtDe/hfmHk7FkhDFnwAIbzBZh05LF2CQ2QZASHFxmKVaEllsS AUcI0qOPzUig1kgC7N+1cP34MVynEqrTJci+j1m0HTIt2E1bRg1v9o+vcGTo x7Aa/hlWUjmunkj1SP+tn8LZpwc2ErKbWD83zRDQ3TRzJuu1QO3GWTSS743U ExuI3PUzpmDNtElIpvyJVZbCxckZZ+WvAIl9eCvMH28yWW2q3WiySt7+WSOv CyeEK+FtHyH9mqMRfB2FJPN3jEGwQxzhq/3pyni7FCTbpiHtejoybJVQUzCK XwjJsVMhzz6TVS0ThY4qFDmpUCxZBk2JIsd0cttU/j2ZXDMRhTZxKLqqQMQx JzjsPocK9+T+nW76/y2A7oqEDGPdN/b0L9xpYTwcXW3dcLcJIIzDtLvIHBII 4xTCOA2ZjkrkOKtQ6JKJUle1dGG4xjMLdd5ZaPDNQpNfFlr81WgJyORjBk2J Zv80NPmmoOpGDIIOXce53Q64fMgD5/d74+p+L1za6wu7I4FwPRaE67u94XvI B5GHnOC22Rbum2zgvvo83FdZwYPmvsIKN5ZZwYWQdiSk7cyscG32eRyjNhG3 dWMn6WCsJZ/PEMXG2C7QO402fe4Q7Jo+14h3cwjhJZ9/hTWfDscFYvO++icE nfUQ6B3C0DVmWl/L+/W0DdOMpZwvVh22UPVsnTYN25nedxA3e02m62nAMRIL 1d0EFxV/3zFxLNZ/8Cn2fP4djoydjFOzZuPKql3YOW49wuZsQo3FajQssMSJ Hauwb4UFTq62wIV1FrBePw/2G8zgutEU7hvmwmu9MXzWzYTfmukIWDkZgcsm IHjRGIRYjESIydcInPklfCd9Bvcxn+Dy6A9x4rthOPz1MOz74n1s/oy1Tuyg GPpXTH/rL5j7xssY+/JfMeZlqtBXv8KsoePJlmdRGZpjxewFWMPautSEKWzO DOxdYol9Sy1xgOAVAD5E+B5evoAAZr09ogWtJafz6EpLbb2dMkoGsAReIwm9 fyF+38dM2rxvv9ReGxH4XSj2jFhgxhuk/W99iSsffYDtY8TaGjFMDrx2ijaD rp9GHE8njonfjTMFhjfOmmmEDYTvi1hPAK8ngNfNnILV0ydj4/IV/d/qWjHP pP+bXWu1G2elTbNG0n6al7CB4N0wl1pk+Q5YH3eAH+uun6NCAqz4TdJAh0SE EWwK+zTE2SmRRJCm2aoJ2izKPw2y7bOR55CD1POJSN4XgvwLSURGjhHK3HLY tTLxswduGj5m8eVM6Sdpi53TUcJaWGqXAMVpVzjvP4+C8wFoV5YYuoD4xpOQ /fX/0vQdblzzhvf1EOk3mILZ4WhmiWRmjwzHLGQ7ZaPQNRelN/JQ5ZmPWp98 NPhrr223BuWjLSQfHSF56AzNpeXQNHyuRluwCvk34nD1kAsu7nWEzUFXuB31 hM9hDwQedGfG8YHT5guwXXQEHkuPwW/5EbgvPgiftafhv8EKARutECge11vB f50Vg9YKXgLCyy7AdcEFOLISS5e6xlG5ELIbJ8zUcmUZrzumzSVeTbBrhgl2 zxQLTXt4/1fsnsHMO2IUVn/xFbZ8ORwlfoU4t3afVG9X83OrifM1tHW0ffNX 4IDlcuww1qqnrdRO28jTdjDL75g+AftMpw+REDsGx2XcCr66ddJY6Xj7p9/i 0MhJOMnAO0ctep5/O72WdXmFKXbPnos9lNjnZ5tjg7kpNprrrZ4usMAKPm4j L95PTBxfQ6ysscTpjQtwbdsCOO1YAI9d8+G72wKBu8wRustUOl/E9tmI3DID URunQLFuIhQrx0KxdCSiLKmPTT6nZH8VJu/8DcveewcTWHyNh42C5UgTLJ5q iSUstJazjWE+eRxmf/YB5tAWfPc1ebEWu/uXCfwuwEHi9pDgyYdXLBAyYcUC qQ4fWSnqsjh6XaLLUu0lfKd9rKXK04hbHX6XUQpoJbmFVpIv4nDHTMW8t77B sfc+xffffIEV442xkjV41WSZBRG/62YQxzOFkUrPEkY1I1C8lij+LdYSwYsm jMG0Lz+EyfgRWGlhgtU06Zt78ncyN4ktmZvNTYZgi5nJM/Jux0v7WCQuBctS R9x+j0j7DMTZq5Fop0Hq9RxkXM+D2j4fOY4FyHcqRKFzEa5NvYIkMyc0b7VD hZWo1ZWeRcRspWchkVIg7Qap8MilZaPshsCvCmXkruqrITi78xBKrwSh4Htv Q5dS/vF0zL4k38cExsKbZdbveiTVdyIiHZRIcNQg3SkPWc7spav4seNiVHqX os6vFI2BZWgJLkN7qLiqXobuiFL0RJaiN6qEVoyeqEJ0R+brtns6nvCC83FP OB1wgddhN4Qe80LUES94b7kG+2XH4bbsFAJXn0HEulMIWn2cdhRh2y8ifPv3 iNhB234B4dusELb1AoIJ84D1F+Cz+oKuqp4dv13iyhvJlTdPNta+/KwWsDOp xmh7Z9FmSxccefQl9swywcZxTO3Dv8aW4V8h0sqbwlYL2jVTCWoCfg1th+kS st0NrKrryEQXYgtDZitDZjvp2o6ZU7FzxkTsM5vRrzQFY9VdN9/w0VfY+/V4 6fiMKRHLyD+31hInV1ngyHKq3sVUvYuoehfOwcoJ32A9adwGMy16N1o8Rq9Y Adq9iEyY6nY/EXSA7RySqOsR1r63sJtcfe8qnnv9AqpOY+l857bOh91uS7jv s4TfgfkIPjAPYQfMELnPBFF7jLH4y7dg+vEr2DbmK8z5YCimEcVmnI+548dh 6kfDCK9hmPnpBzJ6P8Tczz/EZtPZ2Mtz71umrb4HePaDouoeWiFB2JKK4TCh K44Os/JO/lCmzQK2VLbTPn5fgq6WNg+Tt/NwbAOuoc5+ewQ2vTMc1z79EEdm T8c60qMVTMQryX5Wkf2sYQZcQ/iupS/W0BdrCN9VhO8q+mSbmTFfnzQE4z96 G88b/KKtuPItdvttE8jdzoO/S3ufxO30xuNabzHGTm++Ak9qUnELd1AjhrU1 wS4XKXYFUNoXEsDFyHYsQZ5zGUtaOTIuqmA9JxqZ+9XoslehxVOFah+xCb3G t5xArvEto5XytWJU+RSiwitf+rn08htq6Tc7j2zfi/Lr4Siz8UNNYNynBoAs XZkz0l7VegLS+pdrXpIFsOdVL/jZhiFQ/j2vaAcNkh0KoHIqQY5rGYo8KlDh U4la/2o0BFWjNbQGHRE16IrUXtW/GVONPtqt2CpaJfpitV8fdTh+A86nvKRj 79P+8D/hB7+Dngg96IWEY4GwX3oWbsvPw2fV9whb/z1iOJfxW84jbus5RG2x gmLXVcTuu0bjI7V+zJ5LfE3g/AJCtlxgmb4Az4Wn4WpyCkcnrMamiQQ1he9W onIHEb1zBusdMbxnlhkRbTYE+4xNORF7Z9PDEyZh5dffYPPXX2M7A1kAeo0M 6DXTSLloexeswZFlmwiUDdhrsQhbZrFpBtD22QT0LAJ65kTtBhhT0utJE7By 2BfY9vkYHBg7Xc7nr+Lc6oUsvaKUsvySVh9ZRjm8lIBeIpZgTXBg0VxsmTMB 60znSIDeIADNcrxZlGEJ0PO1gGaw718qA1qisZb9OvTYSstntDVkwTcfkmks +PpDLJ0wHBtNxmKb6WismvQ5Zn70OoH0GrYaj8KacR9j/BuvYNLQNzH1g/cl EE/75APMIIhnEcTGn2tBvGDUV9izlCyZKDaSIDyEIOb5ZRsi3b/EexnAH70j AXgqATxVAPhjbe01HzGcALbQA7D2ApEA8Orx0zH/nW9xYthnsBn3Vf9y3F5L cyMi1NSIsDMlRd+uRSH2LDDl3DHhmUzFBLEDYiKzxvOYSAjrtnhLX4qQdjGa YjttxzxT8Z0I3u3is/foVrpkw2HJQWc3n6NdoVHfbXKUXou0zyNjLkDy9WKk 25Ui06EcGqcK5LlUodCtGsUeNSjzqsHlhQlIulKM5qAi1PkTHQG1qKPVB9Sg PrCax1V8rQLV/uWoZCEsJ5LLvXKR65yMIzv2o9w5FuWOISix9TT4q7O6BTdx 0y1Z8fb3p+NZ+ytDo1GcVQifawEIEL/odj0NEfbid/kLkOpUCrVLJfLED837 1KEqoB71IY1oCWtEe2QTuqKb0BvThL64RtxOaMSdxAbcTazHnSS+NzhH6onr aS/cOKP9/8KDzoQh4kwEok+GI3KvJxQ7KAqWX4H3GmsEbbRG1GZrZGyzRtp+ aygPXoPywFVkEsuq3ZeRvucKUveSyOy/ioSDVxG3/zIUu1nHWcP9V52Bz5LT uGF6AnsnL8CWKXOwTVTYGdoqLWGa1FjAmdE5xxRjeU/A0rZPn4GV336DTd9+ jR0TBLBnPQls5oW9C9cSPJup+zaxapM3k39uNZ6N7cYEtvE0rBzxDdZ89R3W fTwSu76dgkM894l583Fm+f9j7a2j40qvdO/nujOQmWTm3kk66aTT02kwdrfb bWowM4ssyZJsWWRJFksWsyxmZmZmZigxM8tMMttNyfff95xTJVndyZqZu9bV WrvqiKrqVO3f3s9+3/fsVx0e+mrwuHIB7nR6d9a8gu52vSyF2+mSEhwJtwPh tteQY5Y6C33h6kYF4UqIN2CbEgQLgm1FAKyZqf+mRl0ZXNKWXnKqSqyFLwHv C7u2QGXHRta8H/Pcz336Ph1CcduHOLH5XRzZ8A6O8/e6AvSHNuPQx3/EoY8+ EMejBciPfbIJJwj5qa1Ctt4sBX3bJqoCVQF02PD5bfn8dpelGdteSxjuchBR t18D+ToR8X+XQi4K7I24IgTFFQXCc7NZA7kDH//cx1/DZP0ORGzbAi9loRB2 0WTYEiZ9/4GHlDk0J76JpvLHRajfElde/Is4FSy91kl6ibu4eP687ApkYQG9 dBH9OnFCcQMfRg/ehs7wNvKUER5Ji4OfkfSyzYKALubmCbTETKEjdgbd8XPM cfMYSlnEaPoSWoIpZUN7EaUUhz5XoWUa/dq1ElW0arcK9Ef30nqYj8ewULiA ucI5zORPYypvApM5I5jM7BMHmSdTm1hAV5DybDwaGF7ZqGrtZO7/DPC1c7xv yxJ2WkAScsPKkBfRiKKoLlRED6I+dhxtCTPoSVnAUOYNTIj9/e7gRuld3Km4 iwdV9/C49h6e1t3D84Z7eNl0D6+a7+J1yx28armN0hBpJZLmnYt072LxuMi9 DMV2OQQzE002uehwykeeSTLyTBOQrRuCmL36kBzSx5B1MCTu8ej3SUWfVzL6 PRPRfz0O/e5R6HMOR5c9gb/mz8dgkregOKdAz9fzQs6l60zezjAhoGYE04IJ 2+q0UKRSgp9VkLL9LuzkFGArR25p1ufkoPXVbhiSUfP9X0Nl105x1Gst3waM E2byqjBXUIUx612Ts/z94cNQ37oTFzfshNG2Q7Bmoeckdx5uGupMzhosuc/B TVdQyh7aKnxOd20Z31oyvmlOmjK+L5Hvi1K+g5ydYCAv5duQfBsJfDPZmZMB SzIgsGWzUscKKljG90rxevX0Qay0elPctp5E/1k0RfKttH09zu/cAJXdG3me 63F08x+xm5nu8M71UD20jQp3D458/LF0zmnzRhwl38fI9wnyfZpsn6GdI99a xw7gGl+DteYbxtcJlPNGS7xRoWyw05YSfnQLU7hoK2l8IxR2b4cZz8riZ5JE JJxn6MBH1zt4EhfWfwmPLZ8j6uDOt/iWqb4lAv4LcV3HCuCHP/lgnbi441/F pR1HZGuq3vCt+KbDAEsba9nl3evEawY2iqvUvPRt4XPVlSnbV1rCEHAfAu5n JBWb8dcqWUHPoDV2Hp3xi+hNXEJ75CQaAvuRb1+NQscalDjXIlYtFcPeRXga n4kajzrUXq9DHa3+eg2tmsfCLg8t6KEgni1awFThDCYLCHruEOwowodSG5jS 6xgMmMbjE1e3o1t7idX/jPK181Jvy8R5VmA2KRe66rejKLIPlRQkDXHTaE9e QG/GTQzn3BG7Pc6XPsRNsdvjMh7VLeNJwzKeNy3jZfMyXrcu49u2R/iu/SEW WXmneKRIVz59gHRCXWRTgGqHUjS7VkDiWYVev2q0e5YgzyIFSRp+iD5sgtZj Jhi46oUmqvl27xx0+Oag2z8bfQGZGAxIx6BfCgZ8E9DrGYMuN2Z8x0C0XPNB g7EHKlmdF6o5wue0DgFnBj8lLwJuzcxtfU7M3nKCJLclQVLC5aSEf/0l9L/e BTNKUJHwo2elg2SkXCBcn4Qb8rG0Dh6D+u69UPzoC2ht2QeTr07C+gTltbIa CWM9rqcOJz3Kb20hh7lr09kFsH/HH6hI0dZag7Ym0dYk2pfk6NxnUZGbB32+ KAMFBRgQbUPl8zAmBGZMcRbqQvqWps2VYSoHAShBEv8zuVDExf07VwbUoUCy lYSZZGZwld2b10F59ya6gDLBPr97PU5/9j6UjijAxUAJwXqnxOEB7YN7mdDX E0nCTQSPUqEfJ9wnmbhFuAm2JsG2pICw4iu4pvkGcBsRcNvLKrwh22/DRlsZ h1m7H938kcj3UbJ99BPpAwtjBz9n21pgm1yvsC0oE7kN38B0405Ebv8E3irC pS0E/BcywJ0JuPyXn4nZ+uin1OXCApJfitNgJwi3eMmlDGyrn/VsWCcuv94k XgrkqK4mBfrqdQIdLD02SqJlwP+qVHVGGBYjzaoeOeb1KNErRZZ+EbKshM4n 9Sh0akCxcyOSr6QjUTsHE4HleJ6cgzqvZjQI5t2ERu9GWgOP6/nzWlR7VaPi egUGM0cxWSQAPk64bTGU0UrQm6nbmcXTMv7fsC29iE0Zo5JB5AQVIS+0Efnh XeR7CFUxk2hKmEdH2k30Zd/FSP4DTJUsY6H8CW5VP8P9umdYbniOZ83P8bL1 OV63Pce3Hc/xneQZvu98ipKAPMTbxyLaIlZ8RRl2hXxDKlDpVocGz0a0+jWh O0iC/tBOjIT3QOJdi2aPYkSeuIaG01aY17SCxLcIXX6FBLwQPYEF6OZjdgbm opuxqJ3Adwamo8s/GRKfeLRdj0SLcxBlvCcajZ1RrnkNuce3IuabLQg8shfu e/cSZmnaFuAWIaccFiGXO4erRw9B95tdMN2zU4RcGHOVgs5UzmChuGMvFDZ/ CeWPv4TOtmMwPiiPa3J0SnUN2Oiow5G1tb3IMPMMCRcBx3si4QLfrvydi5Yw gEa+L9O5Lkv5tiPf1hrSjZX1GGz05ck307cB+TYiCCYEwZwQWGq8Sd/CQJaV uiJl7hGo7tuJCzQN1qsKX2yQjd+e37VFwHoz6T//5SYaNfruDVAk3nKfbsX5 44pwu6qEEN1T0iUm/w6F7V+IS7gOU5ofZuo+IhDO1H3yc0p00n3x2H6Yk24L miVfg5XmG8opdy8L883WxNua53iNgB/a9AGjBQHfvF4E/MiWDdA6fVI6lvA3 gKtKAZeNKQiAXzl8Cuobv4Lnp9sY+HcJ18UxmP2DODXmfFlqTuRcWCO2Tlwl 9uu/WSMmvc5P6aeNWS7I1qFKr/WTyZ1/hK++42qA9DWKJ+RpBD9b+uv3EWlU jhidEiTrlCNBrxjphiXINilDvlMzilxaUOrWilTDfKQZFmE2rBrPU3PR4NOO RlqTbxuafVvR7NfC42bU+zai1qceVd7VrFgrUBdcj8niKXjbe6IrnUq9sB2T +bWYzM7Ho5EB2VT0T+ez/mvYV5pIrp2Zflu2MHNMwpDBSJQf0oqCsD4Uh4+h OmYGzUlLkGTcRn/uA4wWLWO67CkWKp/jVu1LsRHs4+Zv8az1W7xs/xavJd/i u87XGIltQb1HJiKN/RFvFY9k+xxkOJfK3tRvUO3TgcaAHnSGjqA3fARDUcMY jxnGdNwAxiM7EHHGAVVy9pjXsCfUFegJLkdfSBn6ab2hJegNKUI3S4HO4Hy0 B+agyT8TjX5pqPVOpByKRqNrMJrtPFFn7oSSq5dRanwUZXr7Ua6xGyXy25B1 6BOEn94L/0N7YH/8KKzlz+EaTf4zOskHb+P0n3+DfX/8DY5++BFUvz6ME6wJ T/znDqhuOgidL8/A6Ph5mJ9Xh6XmRZhdYrI9z7pc8aQ4fu0sq4ldtVX/QUzp f5JyLpqUdSfmc0ey7kDW7S+TdU05MixlfW5iElcoN/QVFKEv5HNyYUwmTNXJ O1k3UVWA1qkjUGQ8Or93J/TIupnKWbEM1j91AEo7mbiVdm7Br6DEKluJrAum SNoVSbvClxugfuALXDl0CsonleBuLNB+kjKDssBNS7i+R37HF6R0Iw6R+EMC 8cznx0j8CRKvfnQ/TPkqzEi7SL1wWZClJm+syN0fYMVHsOQZWvBM1Y7uYTqn dt4k6IP10Dp5gjUyz0ZFWVp8XFARSbeSkW7zM9KFQQb5Td/AfPMuRO38FN6q Z0TWpTNpwgoXKe2Xj4oL0NaJmP9qdf3ZCVb/Fw/skV7esbLYXGiisAK6tEuI tJHCJrhf1pUybhgI36vRtCRaJi0PvlcKEahbhJDLJQjTLEeEbikSDSqQYVyJ XItqFNg3ocRNgnIPCVKNy5BtXoHFmHrCnkO37EKzfxda/DvREiBBa0AHmgPa 0BDQgjr/RlT71aHCl8B7l6EupBbxPnGoS2QyL+ki/I1M9MV4PDHy91h/M3wu XjL4T9IQ/xPQ186NSUH/EuOSCeQGVCM/uAMFoYMoiZhEddw8mlNvoTPrHvoL HmG05AmmK15gsfoVbtd/iwdN3+Nx6w943v4juqM6KbNLUG2WhE6HPJQ7JiHR Jg4pTjlIcStDlmcDCr07UO0/jEb/EbSFjKM7Ygr90VMYjp3EZMIEZpLGMJ88 hCgFD5Scd8HMRReCXYt+VhID4bSIanFTtb4Iwh9ehs6wEnSEFqI1OA9NAdmo 801DtWcCSmxDUWbjh3ILF+SYmcsC3x9QYXEclUYHUanzNcpVv0DBqU8R/M3H 0P7kXZz58Hc49+HbOPreb3DgnXch9/43uLD1OLT2k7qzF2B0QQNX1S/AkJnA SO4MjOVO0Y6zkFaUjWhfoB8K87uuomAXGHfTIfA6gm8KnP8zAwB9U0a6gxZJ 15KSbkvSG0pz18kuQQl0cMEVeSZsJSXoEw1dRTlcOHYIp7/cgbNf7YDmycO4 qnRmRTKvE4vif4QeOVfYsRkKO2mEXIGCXUEQ7PKk/Je83YhzzOhm508xXZ6G ypnzuG5CznWOi2s33USIhPWbv4YcYT+wcSMObNmEg0zthwj7EcKuemQ/jAim MWE3vSgFXphxN9cUVp+aE7t3YM4TNKOZ0lSOfINDGz+ifQzNE8dhyDMSYF8d abggHWkQRxPXwG4nG1EURhyuHGFq38zUvpWp/egu2eoXAfPfSOfftvztsrXj smVrF1mIrC5bEylXJuXKpFx2Sf2blhKyq2rWw9cgjrinwlM7DV6aWfDWyEPQ 5VJE6FUjSLcckfpViDeqIdJ1KDKjjnfqQKlHDyo8e5BuVoMCu1rcTGzCVHwL ke5DS2AfWgN70RrUg7YgIk8Z2xjUjvrAFlQHNKLCvxZlvpUo8ylBoL0f6pKr MFkhtE5uIe7leDw1Ltux/U1DP6GJmvAlTJm9LfvdSm5fe//Wf8e9KrmfQp5f LfIDO8n9MEojp1GTsIjmtDvozHmA/sLHGC19junKV1is+w63G7/HaM4NdIb3 Ilc/BbWWBej0qMZQeDMmUjsQaxOCRKd0pHtUIpu8F/j08fSGUeM7hqbACfI6 gZ6oKQzGz2M0cR6TKXOYS5vBYvoE6oUxugvXMXHpOmY8UzAY2UQR0IjB6AYM RNcxVtSiJ7oaXVGV6IgsR1t4CZpCCvhWZqHaNxXlrtEosQ5CiYU7cq9aw+Tk OfFtECpk4SvG+gKy7VVQ7KCECrtzqLx2EpWmhxGtvB1Km/8AhY2/h9LGP+HE h+up6M9DT0EN2mpq0Dl/HtoUAlfOnoX+ubMwPHeaRnWqcEp0UcefDYy5CMW6 EAZ+JeLvKuZ9FSn+2gL+9DiGAHuGAHuGAFuGAGuGgMUZ2dW//wo/e0co7DuA Q19QZxNGZdYbwoIMMd/LdLUVwbsm09OqDPY6J/cT3M2QI/9yZP/cbsE24Szx P0f4z1DSmyidFsHSO3wWKnLK8DJTgrfWOUhf7r9J9YhsCbepwknso8bfx4y/ n0HgAIOA0uF90Cc8hoT2KqE14uswFrK9iaYw8mhCiW1MMxLtPDQVjuPkts+k o4yULgL/huel/JsIwxEXpMMR4mijMCTxk5UzqqtvrsIWZuxPdiF692fwvnBG fLPXifT/b5hSYR3dsrryTeT/mDCy/8kGyvoNP20LILTUUPtJO5l1IvzSSQpv LQv46nmLxx6XIuChHg8vjQz4ahaI6AcTfT9m+VDDKkRcrUGscT0STVqQa9aM cqtmlF3vR6XXANItGlHq0oQ7aW2YSmxHc9Agc9QA2oL7mff60B7Sg5aQLvqu BPXBbagJakZlYD3KmX/LAsoQah+EBI8oTFb3Y7KK8r68Co9nJmU7mv7TTzZP ioiIEOv6lRn03/19qf9fRAJRJvxiVSZI1bgS8gO6KQZGURI1i2pZ2/jOlbbx 5S9RGzyJKv8exFxKRZ5hAWrsatDm14re2G4MZfVhqLgPd1vuIMU5DdnXq5Dt 1cqA0IMC3yGU+06iLpBVRNgsJFFz6I2bw1DSTYyl3sB0xhLmsxaxlD2LBrdS ZF70xfBlX0y4pmIgqoVioQ1Dca0YjGtGf1wT/7cBXbF1kDAwtEVVoJlBoT4k DzWBGajySUSpYxhKbLxRYG4HO3mWyKekQcGcMFucOwdj+bP0OUVc11FEoKUy Uu3pkye3QWnre1D49F3YnfgSh//8J5wlhpdOncWl46eZgU+zPD0DnTNnoHf2 DAPDaVxVOCNdMyIbKXcU14eo/kKMCO+I4t9ZNFaiojEI0Oy1KTq1lWDHQGBz WZ7V8jnxU/n5thCGaheheVZoN3YeV6iVDenKRnRlE0F3a6hIs9cvWGiriKJb 9rUOp3dRAZxmGPhnnNq1EUaKp1fn7BQ37YSqggq8zVnofvXFW+Jr/LW0ZqYJ YcqBYUrjyF7sYT2+h1BpESQdPrMen/kKAdInOwYXlfk8Bix4/ggDTf5Mk6+Q FuTjijl6rdA4TQgAwlikoaKSONVwVTYeaUoBIEw3rI5JroxZiEHgAt9M6fI5 4SocjU++hte2LxB9bPe61Ul8QehLV76uEyfwv1ydwhen73d/Ie1hwKdau3RO 1haE/KusttQRvtyUjeCu7CINBhfj4HM5A346BQgwKEeISTU1QTH8rvCYASDS pBapdh1IMG0j8O0otmpDlaMElT5DiDGsQLVXG+5nd2AqidI+ZAittDYK6/bQ AbSzkm4N60FTaBcaQjtQy+q6MphaIKgW5UGVSHCPhb+dF+pjCzBZK2EQqMHj 2SlZI89fr/bPycvvQXBQFUIDGZD8qxDtV4VYH5onzaMKlak9GGmZx4MbT1f3 UVu7TddKm4K1c/cre0Gt1RHrfvYzwf7XTyPK2sl86S5hF/6uJBlrm0auV4N4 nB88hmLiXy3sXZBxH5I86d4FhQGLKDYbQrZRNcpdWtAQ3IW2xH505AxgsGIS DyXP8N3AX3Gz5hYyXfKR7VGPbE8Jchh7C33GUBEwx6ppAS1RS+iMu4G+pBsY Yh0znnEX09l3sJB7C0t5SxhNGEKqVhD6dIMw5Z6NrlDqjdgODCdIMJjQgf6E NvQmtKArvhmSuHq0xdSgOaocDeFFqAnJQaV/Kiq9Y1Dq5I9Cayd4qV3CVWoO 49PS5WmmDDFm5wQ7AzPWDKZyp3Fsw7tMTe/h9Kfv4dxn78JJaTcuUZbvfe8d knYSGsdP4eKJ0ww1Z3CZ4UX7zGnaSUplpTfL0sQxcgdxhEsMM9pSc5bdrxMj zK8YX+jiqzGGBS7jjI2WghhjooN9fr7lzDpZOvB3coU2QRVkjx5DjT7JMSSk gvIXwo3wtaL6hS/FfTtwYscmmacc3yVUG8cYa/Qpj1YGIfUP74fSpq+gqqQK bwsl2H6+SVgKK2qklWDjqCW8VKkmsqMm8ne0RElhATSo4C8xe19mba4lNDnU Fi+307p4Hn7ebigvLZClt/8tXg8iznusjIsqSec+VsZGzXgaa8dHxaUDsndV nFS0Fy+TUfh0j7gSOfrLz+CpdkZ4r1WwB5rHGGq2fPi3K4VoesIigrUrhdTW tEuhmVMz6h88ANX1n0n1haIZvNV9xGM/nRT4X8mFn34RrRweWsUMNSU8rkAI S41I03ok2bQj07EHKZadyLWWoMJWghr3XgTpFKE+oBMP8rswldKOltARhpZh auMhtIcz3IQPoDW8j2mxGw1hEtSGtaMytBkVofVip4UEzzj4O3ihPDQNA6X1 DDd1eDw/vdpqVbiqNUzWbyiSfx8dyv8JqUJycBXSGXoyA5jaGXZyGHZyvGgM O7luNOcqZNlVYLJhdnULsb8JMyvLidcGiZ+NVazdsUraPuzgz7UNRlunkXO9 fjWmFEXNo4oxpSnjAToYU/pKniPa+Q4qo1+jPn6C8WYAHYVTGKm5gWfdP+Bl 74943f8jvh34EX0ZPchyKUaOexNlSzdyPYdQRLlSEbyE+shbaI27jc6kO+hj fTTEmDWefR8zufexkH8PSwW3sNzwAkm6YejQD8M921D0RXeiO6KN8aQLg0nd 6E/qQi9TQndiGyQJTWiLr0NzTBUaIktRE5aPyqAMVPrFM66EosTBlT6iCYPj 52Aoq2WMzpxdB2Nqjt/BmC5lJHcKWkf34ejmd+mKf4Lm/k/horILGgc2Mrlq 4cKhk7jA5HnhxCmoUbVonDqNi6dYuqgqwopZ7xo5/snaGaG4dhBuHLXFGxX8 C2MIfViMI/RpxhGLi+egfW4/FPd/DtVTB1bixz/KxoxnJydxmfFDi+DpMH7o EQlp0SBd7290SSgapMeqJ/bj8HZp7Di0g0XK3u3iGiPzlVEBQnrl0EFc2PwZ NA8fgc3pPbDe/glWZiuFGkBQAQ5rpJSttlRK1ZXmSdv8vIsgR2fGBen4qRAT DBjaDPnSxDFUvjQzodkXn86STycuN1hZUrTmrdE7Rg3yGTUIa7Ko47vFZUXC wgNN4VLXNesH14lx4deQ381TEYuPlajwpsGEzv79UPjoU6hv2Ikrnx2E2Ten YXNSUTYUvoFVRgz89ISrn3Phq1sML1YdLpqFuK5bBj+DKgQb1yLSrAFJth3I ce1HlmMfMmy6UWTXiVqKkGAKlpawbjws7mRUaOExBUi40AuOESGCAiSSUSGy H80RvWiI6EJteAeqwltQEdGA8shqJHgnwMHSDuUR6WhIzMRkPaPCwvRK+31p 16RKsWOSYAm0pIgqpDFIZIW9af1VRF1SQl1S6luFMu8qlFOXlLnTXHnsRLOv RIm0Y9Kq7li7zOid/153rO2wJJU4Kj/RGw9vLCPbTRYbgqSxoYKxoSHzPtrz ltFb8hRNWdQcud9C0vgtppue4V7Hazzq/BZPe77D877v8LL/O7we/B696b3I cipFtmszNUcP8rxGUOQ3zVh6A/Ux99Ca+ACdaQ8YQx5iOOsRxnMfYqbgIRYK H2Cp6A6et/8FiQbRaDSKwm3rSAwnDbKE6UZXdDvjQg/6U3rQm9KJruQOSMT9 zhvRHFeDhuhy1IQXojIki3ViEnVHBCo8pYvE9I6cEy+aE74MTp6FIcsSQ+oG Q5YkBudOQf/cSVwUxtyFi74PbEed6wWkudgjwDkZZ3cdwtmvDvPnx6FM3aHB /zMRaNCQ0iCOMMgChHSU8RcrQWLFmDHFoU078md1UR665w4yLGyDAu0yQ4Qp Q8XCzIS0yemfUZpfAB93N2iSCy2mdB01aRi4wjriykXpsd6l8zi2Z7t4fPH0 idW5jhVGhbAl8KnMkKC7bRtMd3wOi/27RT0k5GmBS+FF2cmilQ1DgjVDQrSv y7/LRlgFmXDlnLw4yqrPSCVMqRjwaa6qroQEFXFaRRYS1gkxYd2bsdZfQuGz vTDfuhtRX38GDzWWVHyuS0IhIsQB2QIkaRzYBZ3TJxkH3sxhXty7H8qf74bi h9uhuXk/DHZT3R1VgI0CX/9FdWo3dXhcvgo/TX/4XWYc0EqjCXGgBK6XCuB8 uQgeQhxgERJsUsc40IgkOwm9vB/51weQ5dCDHPtOlDt2iEVLR0w3lssl6ImR UAWQe/LfRvbbIvtYMLMQiepFcyTVQSTjQKQEVVGtqIhiMRJdg8LwAlibWfE4 g3EhDgNlRVhemJal7LdQWdol9nFKjBY6sQi3/4FUYT8OBoS8COm2L6VUDOWy bV9qGAxqGQzqGAzqqRbqGBDqqBjqqBjqXZgFHXhsLTZzWqlX1i5a+P3qAMXP xjPWrlP4D9lS4p9XHxlOsigQMIrCyDmUJ95EXcY9tOU9RHfJYwxVPsFE3TPM Nj7HUusL3Ol4iQedL/G45xWe9r3Ci4HXeDn4Gj3pfch0KEO2Syvf8z5WM4wq /jOoCFtEXew9tKQsozN9mVHgEYZzljGev4yZomXMFwtrnZbxXPJXlHlUoNI0 DovWsZhilTGcMsRKoweSmA5GgB70pDIqpHZCktyGtqQmNCfUsRisRE1kMSrD WXmEpFApRKLC1xuRFldkeeNP0BEuHjlxBrqsHnRPn4Yuq4eLxw7j/P49tG+g tP0gopXt0WpiJY6SJrgU4PqVEBbLe3Hi8304tf0A//409Fivm6gLkUBZNocv jQTWshU6NpdV3qzR+SXltALJPwSl/dtJ/xfQYhQQyLckeuYsOBZmJmW7sL+H Yir6kqIC8QWXFRegrER6PDM9idkJ6dUXVxSlMx+GqkRfTZjmfDPkaU3T4ymZ nz8rvARxBaDwKsR7YmhD5K1p1/jclrLnlhak/4aKnHzonVPAFYU3sysi90Rz 5XnE4Cec8uoQK0/TmqXOIfGsdRkn1bd+A8/tXyDixC4+lTI0SP6RtcuTtmyA 6oG9MObDa588hbOf7sSp97dBef0eaG07DsP98jA/y4e+oAFrLXWKFzUxcgkT xe4a+vC96Ev6o2mpUvJ1SuCongsXgXy9cvgaVovkR5hTAdi3I5t1QJ5nH4q8 +0i/BAVOHQizqKXG7MFyVQcaw4VM34eWSCntrVE9aI0WrJv1bBcaoiTihbZV MVQAsSSfOacwkuSbk/zYdNIfi/qkGHz37PHqUEBNWbfYSkqwdWJDqbeRQf5z SH9hpKw9IemvJv11pL+B9DeR/mbWCy28b2XN0MpI0MK6oYXRoFXoJMVI0OZa iVbSNRzbjmfzy1jZcXztFKd0c5TV7U3Xds6W/rnB35QIa+/Hmm+Ix3m+IyiI mEFpwg3Upt9BS959dBHSgYpHGKt9jJnGJ1hseYpbHZQEnc/xqPs5Hve9wNP+ F3g++IKA9iDDroySgIHAtQ85ngwEAbOoCF9CXQwfL/E+JGmP0JvF4JL7GOOF jzFdvIy5kge4U/cczzr/iq74fhRaJGDaOgGLfOuGUocxlDaMbsqBtrh2dKV0 oSutCx0s7VqTm9GUWI/6OL6t0SWojMylYEtlMIhGub8PIiyviIW/INpNFBUo TM9Ak8FA/ehRnD+wD8oH94qBQGnfN3A574tYeTv0Gl9DzTUvZDAQpDkUwF3N HvJfHID8joNQ2U1ZsPso1PYfp3BWEKf4104+CGONpINaXQHaZw6L4wCK+7aT /kMwoxawFEoFmjlJNGVNX1Oa/3/+/uj0Otm0h/Cly5ysRzavqAj8v+HSfIVJ 2bNKlxH9k3QZkbZ0GZEVn00acxRF7v9DNl4W4OACPTk+LuOKHqX/FYF7PvYK 9yYy7t8sWRIeX3imI+JzXeMzyW/dC9tPv4HZpg9wYQ+B/mwjof+Q9rG4kOHg +g1Q+HIfDry7Faf//BVUthyB1lfnWLzx9Supw/wSYb+sLgoIcSEDzUlTdjkU zVfNC34aUfC7lAJfzVwGglw4qr2B3ofpPsikFuHm9Ui0b0OWu1Cc9qDQh+bV jRzndkTYNLAwJfQ1bagIJNDB7Sj2bUCpn2D1tDqU+tcSyiaK1kZURjWhKq4Z FfENqEiooZWJqbQintDHxqAsIkB8B4UOOSlRZWRNaGD1b8jgbRaRz13bOy5C 6B1XjcbQajSH1KA1uAbtgdTyQTWQ0DqDatbxppofWWdgtbjpUSfjQBf57/as QKdrCdps8v4nvAuTFyvrlP7PTxWBNA/uRoZDF3K9R5AfOo2iuEVUpd1EU+4d SIruoq/8Piv/h5hqeIT5lmXcaH+MO51PcL/7CR72PsXj/qd4MvAUs9WzSLMh 3g4tyHLpQzbzfAHxLifetcS7OekBOtIfoSd7GYP5DBlFjzBFtGdK7uKx5Ec8 7foRnYn9yLZOxah9FmbC6oj2IAbTqfppnck9VPdtRLsT7akdxLuFeDegLr4a VbGljLp51GGpjKLRKA30QYil7jqxFF8vFuKW6vJQP3IAqocP/ITua5esEHI1 FjGnbTFkZAOJvT8qvUrQHlTFz4MB+losFJjmL315EtrfUC7Q1Ei5FiOFiWwR j5GqAi6eOoxze3ZAjqZJuk2Y48VFPDTpHP95Uq0E48uKmCdrf/eTkBZ1QlrX kVeCrmxA0WBl7kJdtmbokrhmSFgyBMvLKm+ehqdppi19GgFn6QrUDQhwdBHD hK6i9DGFUCHgbLjmcX+2HgkWmm8eX/XgAWz9zR9w7jfv4PIffocj7/wG3/zu N9j35/XY884nOPLuTpz9mAFw+2loHmQoOqcGQzUNGF9Sg5nmm+XFq2uSpOuS pE12jsLzgj1pDoevejJTeQ5cVDJJcg5/WwR3Cndvw0oEmNQgzLwWKS4SZLh3 Mnd0It+ni+VkFzLcGhDt1ITB7B48qmtGoXc9inzrUSzQKyO41L+GVi1W14WB lcgLKkdmYBHSg/Pg7xoIS1MLkeTEgBCm8xikejpiaWoc9WUSZAp9rmQ9roR+ Vzm0fNJcHF2N8ihGh0iKzfB6NIU1oDWkCe00SWgzumg9Yc3oDW9GH60/vIn3 jejj3/XSucWlOsHV6A+oxIBvGfo8ijCZ3LJC9NqY/+7fEr0yHfmObHiwNnac MW4YuUHTKIxZQHnKIuqzb6Ct8Ba6y+5gqOouxuvuY6bpARbaKK0lj3Cn6xHu 9SzjQd8yHvUvY3lgGSmWJbIn/xh5gbMoJb4rX+3p99EtLHLIf4CRonuYKLmD pbrHeCT5Dk+6WPBnTqCKn85ycj9eF7RgIK0fA+n9lPb96MnoI7oUT7HNRLcd LZTqjUmNqGUcrYwvRXlcHsqjU1EeEYWiIC94GF5c1ahXlU5RZh9cB43jBymf NY4doIbcD0vqwZWN46KOWWPU0Baj7iHixnHrxM2L3ka/0JDaPhYWpy/h8p6T 0Nt3Flf2n8X5nSy8d+3DiS934ORXO6B28jB5UBD91eyyYExDNBNyZUx0hen5 UF9XEd13ZdJJ4NTfxQ3aZEqXnF65IB20MyJLxuTIhByZ8vHExxGm+rWk0/yh fm7C4/xOthLFj3hqE3cdpfOrcwhvyQqUlTkEEz6c6SXp6qGVl7j1D7/Ftv94 H3Jvv48r7/8Jmh+9hwN/eBen398LpU9OQO1reVw6rgotZtMramq4qnFBei2i bPXASs8cuzfXJK4Tlw9sEcF0UzOBr0oIfC8kEM8sOCqmwPFCNpNwIVx1S+Fl UAl/kyqEmFcjyaUdae4dyPLsQJ6PBOnuDUyuxYhxb8FIfi8e1jeikIq10LeG WNJkKJb4V6KE7l/oX4Jwlyg4W7nC3MQCthb2iPCMQm5kJgqZXF1sbJk4IxFu Y4wQRz9kxZYjO65yHXLI5B9JZDXyY/mwMXX0oQZUM0/XR7RQxLeiLaIdkvAO dNF6IiToY8k+QAE/GC3BEEv8YZaQwzHtPG7DUHSr2I1uKLIRw2G1GAmpxHBA CQa9CjCV1vjvMvzWXn3/35L5NR4svECa/QCyfKeQGzGH4sR5VGcsoDlvCZKS G+iruIXh2tuYaLyLmZZ7WGi/jxud93Grm7q39wHu0e73P0CJdxPSrzWKnpF5 fQS5ATPicVXsTdQn3xGPO3OYsPNJe9FtjBTfxN32V3goeY3H3a+ZdB+gIfkZ XnS/wv83fVtUPv3pPejN6EE37zvTu0lmB2pi6klmM0uYRtQkVlPlkM540hmb gtLICOQGusOGZNrQnbXPHCWOB3nm6iKa6kTTSu2ibAO9anTTIg5aY9zQAXO2 DhiNqSGaY/ztv2KccXSMcXSE+Abr2OHU51/j7Bff4OTnX0Fux16o7D0MAxbU huKE+dVLyrzRVKYaNtRk/hJnzZVQWVrwvmyZhzBY5uvmhstMb9rCpDtRFAbK 9Fcn3N8SJ9uDfN2Ef5NdtPGBiPFlpkct8rc6Bq8qxVn4MiR/Vy+uLt6BMfm7 ePYotr3zB3z1zoc4894GXNq4BcZffAaFjR9T7TINnrmAi8qq0KWr/Hzy3vJn k/cCf+tEAt8sj1oxL8VA+CrHwVc1HY4KSQQwC06X8uHCEve6QRl8jcsRbl2H BOcWpLi3ItW9GfGOVQSyCmG2pYj3acNYSQ/u19cg73o5lS/Nt5J5swIFviWI cIqChbEFTI1M4WbtjmjPWGSEZCNHaPsSnkNLR05YIiK8fXHN3IyvTwNRHrHI ZU7Mi2MejatGblwtv2fOjWlEWXQL6WtDfWQH6eskfd2QRNC/InvRG9WHgeg+ DMX2YZh13Eh8H0YT+jAmWGIvrYffd0kbyrGWG4tpxnhkPcbDKjEWVIxhvxy8 vv1INjLy0+mxn2G4dnZd+jF/heH6e4xLE8gKnkVuzDxKU+dRm72AlsJFdJYt ob/6BobrbmKi6RamW29jruMOFjvv4Eb3XdzquYvbtGa+1BRz6Wx8uvsQsvyl AzDlsdS4STelSTKbCTfvJvoLlzDXsIzb7c9xX/KC5fALPO55ifaabzE99j3u TfHnRH28cAQ96Z3ooklobWkSNCW3ojK6BlUJtahKIoJJJShLyEVZXDKKo8IQ 5XpNXCVuoiYPtaMHoCYkxwvk8D3hEJZqmmjhJyLhJ9IbQ2XEnBux3x4Txh64 e80U06R7JrmJxjgXWYZWr3RUOUSj0j4Krd7pKHSKRIi+E+S+Pgj5rw5SLx+F jjqTnAbtIgmhadMqSNEsE+JHMgKnpybFsapSYZxKNlZVXiK9l/YI+6VIqSbr VU1SsUKqOIwtWx7zhtbf4gKjy7bf/wlf/+eHUNr4KQz37IbF8a9gfHgbjq3/ ALrC9NTaaWuVN9PW4jo5UiZMW5td1KWwZTlgJ2tvsU4E7RhcVC3grRANH5VU OMolwFElA44X8+GsTel5pRjeRqUIs6lDrHMTIuwqEWlXjljHciS4lCPEtgxJ Qe2YKO+BJK0W2ddLkXO9EGH2katIBTmGIMU7FQUhRcgPK0BueD5TQC7zGhGL zOJ9GhFLQGZIBKwMrsBK34xIRjCZVSI/rob3dciLbaTcbEGp0K4luhN1Ud1o Ik5tEf2QRA4yxA6hL2YYA3EjYs+o0cQRjCWNYjx5BBMpI5gUbZg2RBvkz/sx ntSL8cQuTMS1YpLhfjKiHOOh+RgOTP+/xUvabvV3qI5fQJr3DDLD55GfMI+y 9HnU5c6jpXgenRUL6KtZxFD9Esaaboh7zs6038Sc5CYWOm9isesmlrpvIsG4 TvSFVNcBpPuOIzd0RloX/Qp1aYtoyVpERy4fqvgGFlqe4Gb7U9yVPMX9rmd4 1PMMj/ue4Un/MzwdeL4Ozwaf4ROMFA7yw2lHO60ltQ1NKa0EtRElMeUoTSxH WXIx77NRHJfADyYIjkZauHpBDiqESuXoQSiTJmExqXCc7pmC1tgWdLII7Yvv EJtfjiVIEH7QCWNm/njgZI+xuAZ0BhSi0SONlkr5WUTK6jGf3oTZlHpMJdVi lAWr0IR9IJgx1CoScddDUUxq5MV30ggzk5PSdRzK0mW4mmokRV1cyyEu5dCi +Xu7YfsfP8CuP2+Cxo4dsD31JSxPbsOVA1twfMOfxMlbg5XJW5JxlWRcvWTO 3GUOQx1/GNHMaFba/rC+7E8dSNPwh42aP+zUnOGgZgF7DV2yooLrZ8OZh5Lg cCYODkqp/F02c1MeXPQK4GVcgjC7OgRZlSLYupjHJYhyKCEwJQgiIMmhregq aEC4eyDMjCxgctUUgTZByPLKRX4AoQgqRF5IAfLCCEZ4HrIjc5AdRTiiMmkZ /D6NHhWPpMAgKPA8r+jqwcPSnWAIiq+exnqPYBTFdFL59aAmqh+NhKI1ahgd UaOEYwx9sRMYjJ/EcOIkRpOnMJ4yhcnUKSq6KUynT2EmQ7BJzLB6mc4Yx1T6 KCbThjGR2s96rAuTCYSEIE7GlGKC4D7sHZHtQvhmhbkw4yLIQuH4Z8Mva7s6 SDlSQFXyTaT4zyE9ch55lINlmcxFefNoLplHR8U8eqrnMVA/j+HGBYy1LBCY BUy1L2K6gyZZRLZri+gaSU79jC+j0nmaqGmUJsyKx/UZs+jI5//VP8Rc8yMs ti3jVscy7nQ+xv3uxzwFFm19T/C4nzbwBE8GHvP+MW623aR87CUmlH8pTahJ bUR5MlN8dD4K4nNRlJjOuBSLSC8XGFGLKR7aB6UjB6B45CAUjhyCh5k76ohH C9HojO1CX1wPY1If400/UelChVU2RizDsOzpiWZvxhuWz4uZnbiT10sTGrN2 4mZOBxazhN06mzGdyvQvbEgbU4mhkDJ0U4i/uPFI4c2IyVvi/vPCBsuXFOWY OIR9Q79CeX6esKky0sNjcHz9l7i470uYy38Jtf2fQuPQZr7fyeKEpr4woaly mWiYwVjfH6Y0C5oNzeGKP13cH+66/rhOVLy0/OGtSbvIY3Waqj88z/vDQ94X rgrO8DgbD9sT0bCXT4K9agbsL2XDQScXXmZl8DQthI95PgKsChBsU4hQuzxc twqDpTHrHVNrWJlZUKqFI8ktG+ke+ayjKL98cpEdmI+cYGIRymPKsSy6X2ZU 1jpkRWfSmTKjM5ARmYKU0BjoHtoLuY0bobB9Bwy0dfinFWLayGeNUxTTjdLo flRFDVGZjVCZjaM9ahKdMVPojZvBAN1mOHkOo5RE42nzmExfwHTmAmayFjBL iTSXPS90LMuZo9/PZs9gOnsaU1kTmMxgakkbELuVTSa1iHsHTyYUYiwqeQWQ ubm51TXXK6D8DJC1k5HSX32IytTbSAqYR1r0PHKT51FCQKrz59HIbNJWzoxC QHpq59HfMI/BJoLSMo+RtnmMdsyjtVAKRJxdHxI8RqT1UsQECmKlYq0+cwaD VXcwVncPU433Mdf6AIvtD3BT8hC3ux7ibs9D3O99hAd9j97Cw/6HrIcf9LEM E/Zh5tMMVA3z5dWiLLUaBUwf6VGprEcTkR4TBcur2rhw7iTOkgtd1YtwNnVB USy1XGwnGmN70BHXj974QYqyPvRGC9ezCV0oSpFtmIIBqxg88QvC3cIx3C+i FY/iQfEI74dwr2gAd4v6cKugG0t5En4grQxTTZhIrsU4U9lwcBEmMpvkZQu+ yoiE8CV0mNU+Lw9dWWdZYbNRA0V5sUuR0K1Icf0XCP76OBqtNOiu+2FtqoWJ 0X7xUSpy8mB82QHmBn6wMPTDNUNmCJoTzc2Ark9EfIlIABEJIiIhzCShzCSh zCShzCShzCTBRCSYiAQrEJej8bA7HAebM4mwVUqDrXomXA2K4GFSDBfDbLib ZMLBJATGhuYwMjSFjYkrrplFIyOG0behG81ppUi5nodkj1ykeuUgwzcLmQFZ yAjNRkYYsYnIQhqzRlp05jqkE49NSI1KR1JEEiWgOhS2fAR54iG/YSM05eTF ZJQV2Yz86F4URQ+iLGqEhcs4GqOmmDxmKJ3n0E1J059I2ZK8hNG0GxhPv4nJ TFYHWbcwm3MLc7m3MJ93CwuiUcrk38B8/iJmGcmnc2cxmTOJyawRsRXYJJX9 ZFoTE08FUcnCd/fv/2rNjL2wrPTvCK21aLwnm5QtS7uN+MB5JEfNIzNpHoUZ 84x1zB9FxKOM7l/JHEI0OolGdzMxaaW1z6+Ey0iLHkS7DCPGZxQr4qoybVoc ieituImhmlsYq7+NqaY7mG29i4WOe1jqvIebXfdwu/se7vTcewt3e+9RXN3p ZWXUxwqp/zYWZTt2CjujN1a2o6akFqnxSSjKzRXLgUAnP6pdJvvoaibsFrF5 Yk1sP+oj+tAQ2oNKT4oy5wpUuldiIKYHs5njqHWsRM+1JDwLjsZyXC4elc1g uXyaNoVH5RN4WD6O+2UjuFM6hJvF/VggHTO5Er7fzUzc1RiPLsZgSA5e3HqI s7KZNAENbWU50XSV5VfeFbFzK+kwFnc1NyEj/wC9w0eg9Z+fI+bwQWReOoRQ RyesrPl9cO8p4iMr4XItEtZX/WBDczDyh+tVkkHzISUBpCSElISTkEgSEs0k EsMksg6xTCP/iVgmkhgmkqgLNBWaIpPNvgQ4Hc3DtXOpsL3ABKKbBzO9AFw1 MIOhgQlsjPzgZh6HAOtsBNtlw96mFHmp3Sxau9CQWogEzxwkemcjwTsTyb4Z SA1IR2poJlLC+X1EJpKiSEcy6diMJN4mRKbCy9YRSp99DMVP1kNhMxPIpk1Q /Xw7dNXUEeiWQl0xxJpzDOWRU6iJmEUT/a49ZlFcKd6beBMDKbcxnMZwmnGX 3n4P0zn3MZvLsJp/H/MF97FQeB+LtKVCOlIhHaqQtXUhC4CCRUzmk5I8UpLN +iS7l9bOx6DUSi/E45FhrCCydnZLhsjvZL9aexX++7JlU/du/4DIgFnEMnuk EJFsIlJIRMqISDWzR13VPBrq5tHUSMlFRJqJSFM78WH2iHHtQ4jNIELdRxAf NI6CxBnUMv81Fy5AUrqI3qolDNbewGgDnb35FmbaGAg6bmNBcpuc3MaNrtvr cKP7Nj7FjZ5bWOpledN3E/P9PGNhT8X+BYz0z2Ggl6m3axhNDS3wpBoqyS5C NsNYnpC2o5uQF96KPFaXaW51SLGtQJZDNZrD+hmLphh7FrDIOHOraAn1zrVo t07H8/BkPE+vwBO+vCfVi3havYDH1XNYrp7Bw6op3K2cwK3yUSyWDGGWmWQq t4OcNDIWlVNd5THhjZ0R371/gb+7E3REPOT+plWq2G1R2Bda6FEubBC9C6ob t8Ft61fIOn8YAerHYSYntOE6h466NvpY5eoGWh42kSyv/OBO8yYi/rRgYhJO TKKISSyTSTwxSaQlEZVkJpQU4pIsGBNLEqFJYHJJIDKh51zhdiYaFpo+uKpv AUN9Exjr+MJKJxl2BhlwMc6Eh3kmvK0y4W+TCTt71tMZ3dTSnahOykGMZyZi fbIYBDMQ65eBeGKSEJSOOGISS0zeQhxTya8RE5GB67YuOL91vWiKWzZBactm KG3egos7v4LWgWMwvGKAaO9KFEVMozxiTjZ0/wd0J95FX8o98buRjIcYz3qE qZxlzOQtY67gMeYLH2Ox6DGWih/jRsky7RHtIRrdWWZ4FmMhcwxTRWRE6ESV P04bpFFo5TO65ZRjIj0Zv/47c0V//Ckfa0ekPxBvz6KXxXJx+T1EkY1EKqsM spFLNgqZPorJRgnTRynLj1LyUUJ1VUhGkhiQA037EOU2jkyhbJHV+LWs8Zv5 vx38356qBQzULbJsWcRY8xLLliVMty1htoMmWcJcJ62L1r2EmV6WMn0LIhCj /VRxtN7eWXR1T6C1vQ/PX7wUV6q42TgjyiUOCV75CGLEC7yWixj7ChT6URNE T6I3hc+XcYNvCTksIH/Fd5gQ7vJtrEPjtRw8j87Cy5wGPKu7g+d1t/G8/hae 1t/E4/olPKxbwL2aOdyunsZSxTjmyoYxXcQwlNvGEFRLeVWIgai00zIwAgiG ngCFipx013NxEzD51Z1zhY3UV7uP/h5Xjx2F1vtbEcsCKV/rMCyV5MRNoW20 reF41RuxFPerG1zRAgmID+EIIBghtAjCEUM44glH4pUApDAPpNHSebwOmbw9 hUz+LoPgpOj5wv+KE+z1LVnEGLGYuQqHi75wUyrh8+bAVC0D5poZsNLNoIrL hBMBcSMgngTExrEGBdk9GGntYNTLQphnFiIIR6Q/7/0zEBGQgUjCERnKY6qs iMgs8T4sLBMu1i5Q+XwDlEVbD6VPNuP8J5/g/JZPof31ftoBEZJrJs7IDZ1A ReQN1EXdFh22I+E+epIfoj9tWfx+LPspJnKfYjr/GWYLnmO+6DkWi19gqeQ5 a/cp9Ps3otc+A0OmwZDY1eMZ6/6/5NdiqoSRuJjFbtE071m7F/fR+AkWshrJ zV6FZO20zX8BiXQwcyPu3Pse3cPPUFB7F+GEJIblRzzLj8TSeSQwicSzTq/o vouh+We49+Q7PFj8Fokuk0ihNktnjswjXKX8P2HPZrFsISBdhKu3VlbbEyxh o/YxJp9xJp8JCa2Lx938eS/LmT5CQeuldfL79u5pNHUME4xXMhnyAdL8EuFj FoogmzQCUof80D6q2Ek0xc1BQtXal34bI9l3McVcvFD8ELdKH+FexSM8rH6E Ktaiz2IL8aqwHS8aH+FF00PaAzxruofHTXfxqPEW7jfcwG1CcqNmBvOV45gu YwwqZAzKoZLNKMdoUgadUHgtJ1FRmCvuay6Qoa8i3YHZSKRD1smTZinr4mkt mIoidL/eC5etXyNH+QhCNU+KmzzbahrAxcgTbsY+NN/VraUKaCXMI/kBBYi3 jkGkYRDxCEaCfgiSDUKRahiKDMMwZNGyr4YhxygUWUbBRIk1toExTAyM4Gxo hVhTb9R7sHDQ9EWGhg8CzoQTk3KmtRwYERPjy5kw18ukrMuEvWkmnC0zcc25 HgW5PRhobYMfEQkgIkFEJJiIBLEICSAiAYEZCApORwgxCQrLgn9wBnRPHIfq to1Q2bZxHW82gGnk0y20T6GxYzd0vjkIna8PkpJDJNcF10xdURw6i7poadqQ JC2jN/UJBjKeYTjrhfizyfxXmC58zST+Gk1ebaizykWDTgQGTWIx55CGe765 eBJVjNupfXjZcBd/ZVydKruNyVLG47I5TFI4T5bzYyxnQVLawI+z4H9CyNoh 322yeZX7S98i1mUKSUHSQj2HHl9MqVXJlFDHlNBMUtorpdsn91Bu9TGd9AsV NAv1AUqtwU5+T2/v65kXL8/soLXw+8auWdS0jeLpi9eyhcsfIicoB76m0cgK Ys0WMYASKtIaobFSwhI6U2+jn8pzNO8hwzezaukT3K4gldXP8KiWqc6yGE/i y/AqsxQvm5/hVctTvGx9gmcty3jS+hCPWu7jfvNd3Gm8iRv1C5ivncZ0JQNJ SZ+0XVRuDcYzcnBvcPDEyor4qQnR2YXtxgVnN6CzX1VRkDn7Svc7RbGlpY2K 0jrYqipBD5f/vBUxRw6iUOcorqufhr3GRfq4B4tgb1w39cV1E18muQgUxlaz QqpFZUw9aqMbqLmbUOiSiyyrFPp6FNIMo5FpFI1s4xhkmUQhxOg6zA1NYGpo jCBjNySbBqDSIQndQWUYjq7HUFQtyiwikaPtgyQle4Sf9YCzfBKunE+HvkYm 9LUzmTIyYcG0YGORCUvXRhTk96CnpQXublm4fj0LXt40Ft1e9HlP+vx1pgZH l1Q4uaTAyiIMlw6fx6VDSuIKIM0DSri0TxGqX2yC8mef0rbi8pd7obtH6AMn bHR9WNzw2tchA+GuZaiPfSB1+JSn6E1/joHMlxjOeS3+rMGtA5mqkajTikOv STomnQqw5F+Oe9G1WE5rxJP8FiyXtWKkbAITnY+w2PAQUxX3MFlxC5OVTAtU v5NVrMKrevg941ZpCZYnB1dri7XzHP+F02+XzXOUZdxGHB0+kQ6fQYfPp8OX 0uGr6PDChqmNdPgWOnwbQ3wHQ3wHw3sHw3sHHb6dDt/aKTg4dRPvqzrm0DlC LfL89Vuy3DMq6UduYCE8+Qnnh3WjIHwYpRFTqI1dQEvSLXRl3MNAziOMFT7B TMkzLJa/oHx5hQe1r7Hc8Bp55qVYTqzBj+lpeNX2Cq/bX4n7NT5vf46n7U+x 3LaMB60PcKflDm423sBC/RxmamQhoYQhoaiBSbgQD0eHIXV2KwS5O4qObiBz dOkOxD91dKEDnNDiUfBzofub3p59cNz6DXJUjlGcHIPDBUW4MxJ7mnjCy9SH xirAlIWySQCyg0pQGduE2pgWNEa3oS2qA5IoCbqjO9EldEQV9pu18oeVkSXM 6OURlv5o8CpCu28Z2vxKMZXUKV42PpnYjvGEVozGNaMnsBTZOt5IU3dEqrIt kuSscO2wPhQP6EJLIwPaOpm4QiGkb5IJU9dm5Ob3or2xEXbOWbBnhHegxzv6 F8LGOR1WzhRQFkkw0QuCkYozzJWdYaHiAitlV1xToinQ5GhnXGF5whUGe9Rg sF+B78FhevwR2lFof3MEic4NsDRxQrpfl+jZJX5TyLFuRZp2AdIVpZ0c20zy MehYjkm/OixEteBGagdu5HZhrrgTtyopo+let2peMyO/wALj22z1MqaqHmCy +g4maxjia1kt1I3xnrGrpoUeX4bH0yOr3r72crGfefvaiYodslVlQiUdETiD 6Bh6fPI8Milo8ihoiunt5RRBlRQ0NRQ0tQ30fnp7HcN7LcN7NT2+glbC4/wm vqSlZfyDzMXHJUPI8y+Fp0Ec8kP6UBg2htLIWdTGL6El9Q66sh5gIO8xxoqe YabsJZaqXuNO7bd4UP8dhcn3yDYvw/3ERvwlrwCvOr7Ha8l3eCV5jeeSV3gq eYHljqd4IEx2tN3HzRZW5qxGZuqmpUFA7BQkdAEsxcOJURyXiT0hnku3tRc2 2ZZubW8ktilW5Mcta3IoNjiki18Qe57BgXbxw88RdeQwCnVPwEfzHFz1LOBl 7E7X9oIPXdzHNJAWDD9hTxvbZKasDrp4J1qjutEa0Yms69ksUP1ha2oDS2NL ZHmmYzBeuDR5ENOpg5ihrcNs2gAF1lx6P4/6MJPWw99RhCVLMJ7YhkbXNGRe dqOYcUS6qjWSFM2g8sVuHNq8ASd3HcPhPRo4K+cCXbMS2LmUw8O7CIbWaTCy S8dVyxRcZSIxMQhhAe0Ns0t0YXUXnqcLHFSd4SKaK1zp6m50dXe6upucUHy7 w+O0J66f9ILD4Wsw3nceunuPQYeu7scE5adfBjMDK9GlE87Go0A9S7o4wqEG vT7N4vFoUjeGM3sxUjDJz+QWJsqXcbPmR9yq/YH2Pe1b3Kh9hYXa55iteYKp 2kd07buYZPU22UAl08Cw1dDP76n1qytWRMzaC6B+5uFrh1N3yUby7t77AQVl lPiM5XGM5SmM5Rn07mzK9TzCls9YXkDxkk8Pz6Vl0eoH7mJ08Qn+acWjO0aQ 51cOzysJyA8eQFHYBMpYAtQm3EJL2n10sewfLHiKsZIXmKl4jaXq73Cn7ns8 bPwBj1t+RLVPJ24mteIvReV41fkjXnf+gFdd3+N517d42vUKy53P8UDyBHc6 HuJm210sNN/ATMMs35FxQk7Qq1qZ1srxcHJM5tEqCHJzgAE9esWbV3erVl7Z Nl5J7OT3poufMq7s2w/brXuQpXICafon4XzpIryMnOFr4kHx5Qtfs0Deh8Lf NBJBJjEIN45DdWQnkj2zYW1qS/lgiWC7EJQGVKA3th/jyQxEqSwb0sYxm8H6 mjafNY6FrDHaKG2ENsyfDWE2U9j8jeeS1o1aF3q0njeytN2Qecke6eqW8D6l JjZU/OrP72Hr73+Lb97+ExT+vAVWOz+D7a4PYXj2Msw0nWGq5QozmgXN+rIr 7DVd4USvdlZzgTu92psB3JcB3EfZBb5KLvBXdIW/vCsC5K4j4JwXAs/QTnjD /9B1OO8xh9LHn0Nz83GEHk/EymhxiXUFGq63oiW4Szb48lsMFz/FbMVfMF/1 FyxW/wVL9OQbtT/iZh29mZ/1zfpvsVT3Ggt1LzFb9xRTDcuYbLyPySbKlOZ5 GiloHuD3FJx1lf+X3vyVbHVN5+BTdI8+Q9/EMwRmziKURWtIwaxYpA7OPUP/ 3FPZ3PVHGGsfReb1UvgapCE/cBAFIVMoi15EbdJttGQ8QFfuYwwUPsdY6SvM VH6HJTJ5p+FHPGz+Cx63/hXdJGY+SYK/lNXRW/+K191/wavuH/G8+3s87aYc 6X6JB13PcEdCrttZgLbcwgxzxGQjua3nmdbyTCsq8HB6xWs3QF/pDAzPn1v1 WCN6rAk9VozBK13pftaRTu2jzxF2+AgK9U7BT0sB7joG8DVyZcz1pLcG0MLh x9LBzzQWrka+jHVmML1qhni3TFSynGiPGhTXB4wkCWsDmCfSZzCTMYO5TBa9 2TNYyJlZh6XcGVa6N/KmaVNYypvEYu64+NHPZo9gKmsQJbYJKLSMRNYVOq6O C7K0rJF20QQXWOht/d1v8cXbf8TB338I1c2fw+bYUTjoOMNW2xE2Wo6wpbPa 0llttemsPHbj8XU6rpcGnZRO60enDVByRLCSE0IUnBAq54QIJXdEKF5H2DkP hJ6mHXdH2FEPhB10R/AeFxhuP4EM8zrkObXCxzoSVqYOaEq6ibrUGxgu/AFj xT9govQHTJf/QFXxA+arf8BCzffix3yj7jtWQt+JTnuzngGr4SUWGhi8Gp/R QR9jkhXTZCuLyjbq6zY6bivVYws/zobK1WJy7Zi9zHNXGlusHbM/K/PGhzcf It2lGEFGOcj3H0ZB6DRKY5ZQm3wXLf9/e98ZHNd1ZnmWkj0j2Wt7Vh4n2eNx 9sia8dgejy17nOQwsizJVg7MCQRJkRRzBggCIEDknHNshEYO3WiEBtDobuRG I+dMggQBBknjqq2trT0vgQ/NBxB27Z+t2q66bKDZeN9933fu+cK9796M62jO WURbwTIcJXcxQP4c5ZiaIn/Okz8XGv4LjfGDcCY0488M8cWDLqx/FjeqWLJ9 iJvW93HdegdzLUviEoiJRmEN/BQGhKUVdey+id03mOEsL8P8wH00uolofAnu rxKNr75MNL7CiEDgz1dFNK7aH+2d17H757/Ae//8U6S/9hxTtD+Ip6767DsN P6ZkvkzxLh/0w3H3czjg9i72ux3EBfcriDiQigIPE5qi+2CN7UerPBfvSJHm 4QcyRjGUNUoUjmE0dwzjutFNmMgbJRon80fYhjGRPyQe1iW8hnRO9Od0Q382 BfrTROTRcGS6XUbW7qMo2rEd8T//NX786S/j2c99E29882nRaZ/aTie/6wIu 7DmPM7vOws/dAwFuHgjZcxERuy4iimiMIhojSaORpNFIojH81fOIICIjXz2H aKIy+k9nEUsqjfmTJ9slRP/RCzGk1JgXLiPmuUuIePYC0s83iQugi+Nmcfzw BeRFdMCuu4eOgvfRrX8fPcXvM3N7HwPl72Oo8h4d/z2ambRJBI4b7mCcKBwn CsdqljBMJA7U3iTySKMNjH/NRGMjzdlIc5pJLg3MBQxl+Jg876feCpKofHI1 INX1vxfl0DflXAEC3QhGPwGMA9ATjJUEY60AxtxFtBYuo7vkDvor7mKU42TK 9D7m6gk08wcwC4dIxTfhvxiBf1DTQcdx2/YBR8aS7X3ctN3DddtdgnEZ05ab GG+6hmHzNPrNo+x1nzSWatj7yhLMMHL/rdifn2Kot4eAfEEG5J8kQL4qAPJV EZArG3a9pRzF8zq2f+8nCPzlr6Hb/Tz8drwMj527cWbfeziy7zBBeIAg3I9T +70IzgQEMfcPP5CNGGYghZfMaI4Zhi1+BO3y7LczfUKe+Z7CcO4URnVTGM+f wkTBFCYLpzAlNP0kpvUT4jFTE4VjGCscEVE5kNcH/YUMFB71QfWRS2hyd4Pz kBvGj7tj+pw7gp57Gb//zg+w/VfP4ej2C7JT/Tec30POO+KDsMPeiD50GQkH vZBywAsZ+y4he+8l3pcn8nd6omCbJ7Le9kA8s7JEhqxJbKlveyL5LS8kCcfG vcm/fcMbSa/5IPGVy0giMgu35aCcibwpdQmGpDkRkeas6ySZO+iky3MU34Wz jPYtv8Pw8w6GGIoO03mPGpYxKqDQuIRRonDUtIjhOmbjzKz7zNeIwFn0NtGp NxONzXR1TUSj2YwbE6MfkxfFHD58WEzE1BsRfuFhiPwKoo9kIXS/DrorHXTW /SIiy4lIU8Y1cS8we+EtdJUuoa+SbG24jQnTHczU38U18100JHSjKbYR71c1 4F59F5aJwmX7Xdxiu2G/g2u225i1LmHKsoix5msYapoWV5r1NvZJ46m2AZ2V RTI1HkOZLptopKN+hdT4ioTGA6TGQ/IOLkdd9nQ69OLzOPD0T5H42h8Q4v4m 3PfuhTsDmKOkwgvu5+FzgEkSw8krB5LhfyATwQdyEbE/H7EHCqH3aoElfhyt SZPoTJ2SZpqzZsV9hIZ1cxjNm8d4wTwRN0/kzWO6iK14HjPFc2yz/HkaE8VT GCuWVmhbzoWi9dAZDJy4gKlLl3E90BeL0X5YTrqCpVQvlPpfwEu/fA7Hdp3H qT0eOLPHE6dfO4vzT0mH4AoHTgUe9kPEYX/EH76KVIbFWUz0dAcDUXAgEEVs JQcCULzPHymbLyN1izfStlxGxnYfpG/zQ/p2P/E9TahAb/ZF+tv8/I3LKHfX oXRXFgyhw6jPXEJN2gzOHL1M13cNHXqBbZbRU7bMcH8Z/ZVMiqqXMGQgFxpv sS0y0b2JEXrnkboFDDVcxwDdXF8TPbVlmo1JUwtdSgtTBgvt2WjG+8u3lMW+ 6srv51cjUV0EU5BYmVGHEDci0budCU8fCqLGUJY4DWO6vEtM4Q10lpKdK2+J PRw30fHWL2POvIxrTbdhiDLjTrUZdxu7icDbbMtYZLthXyISlzDbsojJlhsY tRCJ7H2/RRhLZPbGVjjr6jBkb5KReFRC4stqJL4i7iQgIvFNGYnyPkLCk4jC k5X7GZccdNuLi25bcHr7O/Bi2u63zxN++wPZGCruT2AImcb3HAQRhZEHihD3 bgmKfFoZ9s6gLWUWXQyRnVnX0JdzHYO6BYzkS3O5E/qbmCpmslZyEzOlNzAr tgUmQV3oDipHnbsXuo5IO5nNXonAjYhYLCUnYDknCUv6JCyUxpNnw2CN9Ma5 N57H4S0ncXTHOZykhz6zyxcvP7UTe596W/z78Ge2wHcnE5YdPgjZfgXhRFXs 7mAk7Q5B2q4QZO4LQ/6hKHr/IGTsuCoev5m5UzhOMxi5e4KRIzT+X9auQGTt DEA2kZm9xQeGIzoYDuagwi0dxogBmHNuIs6/FGeOeaFNv4jOkkV0ly2ip2KR Nl5EfxX5z3ATg8YbGKoh+kxsddeJwnkMNs6hv3kGfQIKW8iL1jG2QTYJid0N dVCerFLXYh8KwydgqZFOKlReeZEjKEmYFLcpEV4thRw4JdfZzRti90ZMNzFR v4hp8yLmmm6hKLwei4Ym3G520EXftN3Cx3HTvogF203MW2k+K83Zch0j1jkM WKfQZ+UAsvTA2WRDd10NZkYG/lP2zm7iqZ5EoHD43ysSAoVdbIQHfg5vfhsH d+7APnKeG9vel19HzGsvIvfg8zi/VX6cffcJ+Ll5M/YKYYtlS8EV9yy+55EL 9Yg8WIr4QxUo9u2ENfka2tMW0J3JSDybmtdxlOXTExVypBUtY7KYkUXpMmbI Fc0BJphPp6PRLRDOI2EYPx8nqmYxOgtLadJWIrdKCzBfmQeHLhNNiYwbvWKh 9wymx/ZCEL3i+b0XcWa3B07vlt6lNPgHOPzUNgQ99Sbif7IbwdsDiL4gxooh iN0ehsSdEUjaGoYk/p6yPRSZu8KQvSeULYSeOwTF7yVAz4Qs3z0SefsiiMhw 5LqFEpVB0PP3mhOFMB3LRc3hDBjOlqAuewGNHGXHj5xDTmQ92ksW0FlGHZQv MFJiDFhF71t9Hf3Ga+ivucbYcJ4emWZrnCH6BP4TkDeOXhvRZyeb2IlAG01p acW1qckVBKrroy4IVNdHJQR+WnTTIYezRIXk+juRFzYEPV1VZeqk+Flz/ixa 6Ya6hRJtNcms5jpGSc8TDBamm24gN6AF8+VduFtbzaDwxib+s8AEfd4qPJh7 DVNWejYbvZyNd2Ejg9uY5LR0w9HUArup+jmxF09j7x8JvpWTJ1+F+9YtcN+1 i4DbI4Lu3R3bcHzzm3jz+z+B53/8hhTwAsLc/nh/L4VdzFH2+hGAEaRBUt++ dL7n4Oq+QoTsLyH4yhF/pArFft2wpi6gPWMRjuwl9OqYEubfxnDhHYwW3UVb whAahfNYjueifk8Eug4nYJRh31xAHhZji7GcUY6lgiopuvslGpNroPcpYMth S2OLh96bOLnoC//DQrrkI84TeNO3euzzY5O2cd/81EGceWovYoi/xN+dRcyO GMTviEPy7gSk7UlkvpNE9otG+u5oZLtFI1eYS9kfg8JDCSg9loKyEykoYtcK D8azxSL/QDTy9kei7GgG6s4Ra6fzUHcyC7X8ruFqPep186jJHBGxZ8h0oq10 Hh00aHfFPBxV8+Jj1U4joz4TWz1jE0bzQgTopM/tIds5baMS5lqHRdz1EHcd TS3Kg97qEo8L5NQlnhfl4FHYPVCXXCJqItu7B7khQ/IOIR+DVT+N9rIZ9moW fcY5DHEUjJKDxxkJZMcScsw77o7M0L/OcxTPEV2Pk+TmiLNZTNhnMGqfwmDr JPrso+x1HxwtHWhvbML0+JiEtQMIOHcGbps3w23PHpHM9u3cif1bNuPQW2+s HDnkzmBv63eeQdSfnmdg9IK0dwdxdmHrO7iy8xz89gQQb1G4sjcJV9wyibs8 Yq2IWCtD5KFKxB81whA5Dmv6ItqzluDIuY2+vDtojh5GnVcjMt+KgGFnPOzv pqPvQj7GA0oxF1ONhXQTbubX41ppA6YrWjFR3cvGMKKKI69yBu15vdD76dl0 0Ptn8j0R+iuRiD3tj+CjV2TAXWULhs+7YeKE89WD0lnBe586Dm8CL/XpvUh5 IxQpe1IQtzkcidsikLEnAbnuqcjZl4SCd5OhP5SKoiPpKGYreS+NZJeK0qPC Z/y/I0koPJxItxyH8pO5qPOoRN2FYjSc06HhbBpMJ+Ngyp1BQ94MarIH6XI9 YS4YQSvN2l4xwyB8Gl3V0+iuYSBcNwlHwwTpYBzdFqZpLaPoto3AYR/ehB6i 7RH+OIBOKwnm9h38VYD78ornFV4ZF7uRFSA9d6xPkD4Tn2MuGIetZAIdFexR NT1lzTQG62Yw3DCDetJ0k+N9jPfMY9Iyg6kWoU1jkh513DaJEfsEhlrHxaXD Pa1D6LI50W5hEtytVGL+btX23ofePQi3LVvgxph132uviTvkC8fhHFLO2iUC X/3+Mzjzk18jdfuLCHb7k7jthPJw+5UdF8h4QbiyJ4aNbnZPNhHIZN+9GCEH KxB1pBpxx0xoTL0Ja8YSsk/VI3V3HlJeiUHplmQ0MDVpO1eMPmGKLqoOE6mN mMxtxkihBTOVYxipGMK88S5mjbcxxURxgqH5qGGB4ToDoaop6AOK2fKhD8zm ewoHcQQijvsj4sRVIvAKvA8GsUVILPk0AnYnYtdTF+ltmQs/fRS67x5E0h/9 Ef7aVUS/GYD4dwKRdzCLTJaJEmaIpUezyXI5KBPacaFlo/x4FkrIbsVH01F0 LA0F7yWh9nI9ar2MqLtUgXpPPRo8stBwIQHGECNqdZNoKJhEbGAeTh/zgLV0 EvbySbRVTaDdSDPXjqOjfgwd5lF0MM/tYGbRweCoQwBelwg8YZFrOymkzzko b0S7uiQoA+/TGiXBl8R/P7oKeEnH25Du04/M0CEp/PistCo3T16VWzaG9kqO AsM4nKYJ9NdNYLBhEsNm4qtxEqNNExhtnsBIyzid6TgTiDH0E2/K6sMO0nKr 1YHmRhuWlpbxrNiFT4i4E7ompOIu2z+L39jz4kv3N08WPK90UsOjsodLP/Di qgBVeOrUd9tFkmAwIchsd1caI78cEmEhrrqXIuTdSr5X4fgfChD3Qi6i/xCD 3DfTUbGvAOZT5Wj1MaErzAxnYgt6Mm2wZbdguHQKoxU3MWf8L8zXCO0DzJve x2zNXUzV3MZ4zRJGGJcPGhgZGWZgzrBBH8ysOpheNzgVcWcDEXnsCiFI+DFr vXwgHN7MxC+5xeEyvanf7mQE7WY/X0vA/qd9cPq7noj5/mkU/+gYkl9mvrE5 FImM9Are1ZHgdCg/lke85aPiZOEmVJwqwBdReTqfjR+fykUJ4Vh0nFA9k49a nyY2wtDbgDrvMtR756PhcgpqL0SgOmcUprwx1BeOIcwvDQmh+bCUj8JaTWvX jMBey9YwDHsjW/MwbMJCItswWgUItokQtAsxXu+YTCEPhaC65KIFwfmRu0g6 24NU/0EJgp+RFsBm318A21JGoq7keDAQVjWEVy09f/3o/Wf3OFb6WhgJsKM9 9uGVha92+xCstn6YmzqxvHznl6L0v1lhvbS0tAfQJ+0t+7x4dOmqo87k7bvf lbcKfe9Hvxbfw9z/cH/r7q3SaeO+WwjF7cHwZfDkuzMdvrty4btHD3/3MoQc qqK/NsHr5XaUnepD1ek6mDxq0RjYTD9sQ2NSKyxZvegonMR45Z8xWf1nTBv+ jBnCcJYwnDMRiqYP+f4BZmvvYar2jlgGGKlZxCCj4D4GS60lvSgMpT8OzWVL E1kw8rgfAg754/L+ULZoeOyNgycp0Ht3Kvx3ZSBkdxYi9+QimMPiyPcD4PlD H6Q8cwHVPz+NjLeCkb0/AwWHC1ByTI/Kk3pUnC5G5ZmSTahiFvEkqs8VsfG/ zhag/EweigjJygu1MF2xsjWx1aH2ShXq/IpQfyWLkIxBeZb0dKYxfxgVud04 9t5p5CQb0Vg9jKaaYTTXsZnZmtgsbISixSY8MtdiF3Ao/NzTNyknrQ8WXD73 MBx+SaRG5SV8Ii42vdgnLjYVcw9hsWk6u5czjBqCsaGI3SgbhrWSI8JAkLGb nbX3n5Hr5ojpEkibXWtjJ63yItNG6xBqm3qwdPsefu6CQgWBQugg9FFAoXTC wjcQcHb1GVziTpT0xy9969/F/iXvfwnnd7wsbYopbpErbTvs8/Z5+G4lArcR gduJwB06IrAIfvvLEXioGr7u/fA8fBNlMbdhTBxFUaQNTRkTaM1bQH/JBxgq +5D+9kOMVX0ozrROGT/ADAlwlqhjgFv7Pu9iru4eZuruSgisXcZILRFYy3RR nMSaRBVNWRihQ4pXBCLpgyNPBOHqoRBcZmp6cU80Lu5KgOeuVPjszMTVnbkI 3ZWH6D0FSHBjWr5Fh5PPhMH/ZwHI+dUlGF4OQPGJSujfK2GaUYaqM2znKlF9 vhKGC2wXK9jK2fg5o77yC3pUe5bSEbfA4G1Fjb/QzDBdNcEUUI5axgn1/smo jCznSKd9CcEq2rY0vxsnT1xEVZkTdSZGxYRgHSFYRwjWEYL1LWTBBquAvnrB L/dOyQnrX4G+1ZmvtPT4s5gbex8xHn1ICBxGimrxp9DLavbSVCQ/ikYENhvu P4pmI/qsRF8Le2khAs3Cok82E3+vNPfi1vI9/McayBO4b35+XkSeVEv/GAZ7 nNj1wp+w+0/SXoUC+l7+2a+w7wfPImqz5H7FHRg3vy4XLj4vbk/q8fZR+GwO gs+WOPhsS4cPkedD5F0h8pIud6EiYQG+3ssIT7gLs+422ph/dBXcRU/RPfSX 3sNg+T0MVwpz+vfEadLJmnuYNhFptUK7S1mzdXfwFSLvNibrljFedwsjdYvS NEHDnDRhZR5BYWQuUr2jEHkymMgLhy/d74VdEbiwM44tGR5EnTdRd3VnAUJ3 6xHtVoJE8nMaI9XgN7Jx/pfRCP9NCIqe80X9m2H0rZUoP11NkqtC9cUaGDxq 2Bejp5EsIjwTYbxENHqWo8KjBBZyuT3YSqJrhsHPCmOgBcagetQEV8MUUoTa oAyOvGrk06Z62rSENi0rHUZMTAlOnLyI6hppxVc1WaWKdq2mXQ20o9Ei/Wx1 TK6sVlCX9lwgpy7tKZBT71P+qIzdoowpxAQNI55pYFrSMHIyCDnycikJr7KE ostJfuTk2hp5QLBbdeyWiYPCwO5UspXx9+auSSws3X1GhbK1YjwpZdpFlPVi 54v3t9D77Td+CI/f/R6x+14SMbWyG+YWideErfPOvu0O77euwuedGHhvSYP3 dh28ibC4i60oiplDecJ1GFNuoiHjFiw5S+S02+gsvA1H8W30lt7BQPkdZq3C MXJ3MGa8g4maO5g03SGP3cY0UTVDVM3UCYX1JUzW38JY/U3mWzcw0HgNfU3C JBQR1sSApLoVcedDiLBw5hj0qLtCcX57FC5sT2RLg8f2bCJMOJxTj7A9pYjZ V4HEA1VIP2RA9ntGXPljJryei0f8HyJQ+ceraNoShYpzJhFd1Z4NRBQR4yW0 WtRcrmEzotqrCvbQNnREdqE1vBW2UAsaA8hrQU0whJphCKuBMbwMNWG5RF0k Muhic/KGkacfRgFNWVgxDL+gFIRE56GYzFFE5igWHmItaRQ4rdkxg5u3PxSN o6SuwgyvMLsrVO9cIjs1fykAU2e6H5FDxJmpD1FYMIPwmGHEJg8jNXMYWXKv Con7YvaqhAArJcBK2atigkzPnuXzvb5zBjeWP5BX4qwfu0ld/ir8z1/EC8/8 QkRM4JsvwH+ffGiFvOvbu/IGciKi3tkGr9f94P1mFLzfTsHlLbn0WF3IC5uA PnoWZQnXYEhZQH3GTXGthC3vFtoLl9BVvIQeYVKwXFhFt4zhamH6ckmcRJ9g PDZZu7QJUySnn2OqfpHtJiYIolHzAoYar2OgeR59TNrF+qlFKH87ESU4yZPR CDoUjfNbCaZtsWwpuLgtE57bCPLteoKpBGF7KxDjXo2kd41IP1KL7GP10J1o QOAbefB7KRlpr0Sj9vVg2PbEEUgEhVcTjJcbUePdCJNPA1sdapjxCKe9OuL6 0RnrRFt0J+yRdtgimtAa34gOXRvqExpQHVnBlk9wxSOOvJBIXkglL6STsjLp hlKKunH46GmEpxmRTYeZw1YrmuxDZR8+4ZQn5Zg4Ly8vMc5xAZKalbSAJC0I /O+YmvkALe23kF85i3D2Jpa9SWRvUpgjpLI3qQRSMh1jQsUQHGO3MH/rA/xo A+GWsn/7oL0D277yE2S++s7KojTx2BD5yBDps9fF/dLct72GM6+dg9drkQjc kQudtwO6gEHoQsdRED2N0oR5VKdcR23GAhqzb6AlTzhV6iY6im/CUboIZ/ki +isXxUVrw4ZFjDKAHzPdZChFpAi78NTdwES9UNK+jgnzdaba8xhqnkM/UdPX Mi1V3RlWCvM9SedCEXUyHr57w3F+cwTOb4lnS8PFLTnw3JpP5BQjYHcZwvdV IeaAEUmHapH+Xj2yj5uhO9WEgjPNCN2iR9Dr6dC9FY+mzWFoPkare9Nx+VhQ 49sMky/Rc8XMRMWKvsQx9DAw6UzoR3tcD1pj2mGPaYEtph6Ogjb0lreit8wM S2YpLKnp8E8aQhDtFUaHF0GHF8WBH006CmO4dfaiF6zOORkSHxEzSSWGUipq LnBRQ0MLLsqi7MnrH6LJeQtTCx/imTVg8EDs84hkaOUnCXpvoioiHue++F0U Pfk9LDz3O0xFX4SPpwe2MCLf9uar2EGI7HyHbfNr4j5eV309UF1Qheyztci9 YIWOsY/OfwC6kDHkR02hOH4WlclzqEmfR332NTTnXYet8DraihbQWboAR/kC eisZjVcvYNCwgOGaBYyYFjBaex1jdWz119jmMWaeJzTmMExYDBIWfVYSijil wRTZNiBOxiSdDUfC2RRc2kZ4vB2J8+8ksmXgAqPsS9sKGaOVImBPJcL2GRB7 0ISkI/VIP2ZG9skm6E5bUHCuBUW8h8idJYjYnIWibYlo3RWFBnoqIxO8Gr8W 8SjppuA2DKYQnilT6EkeQxfN3p7Yh9aEbtgT7LAnNqItvQG9Ve28t2b0VhjQ W5wn6/gR0S7KDupPahQW5PhGyfXUG66/pPHZbzcciKx+0lfrmLmPyug89bWf IuLLv0LvD36P//X757D06x/jMfH/fo/0E9XIOduCXM8O5F7pQ27wCPIi6Ubi plCWNA1D+gxqs2YZ9s7BUjAHW9E82kvm0Vk2D0fFPJxV9AmGeQwY55nKc7Sb aNZatvpZBiBsjTNkgGmaeRL91gl5zk2eA7EPwGlzIPF0OKKPJyPiSC6CDuTj 3FvJOPd2Js2dB4+tRQxIynF1bzXC9tcg5t06JL5nRvrxJmSdsiD3rBUF523Q e9iQeaxOPFE8niFy5Z5kdLnHoNHLBKO/sMPZFIbSrmMwjf1Nm0FP6iS6UkbR njKI1pQe2FPJBqkWNhMcZVb0Giw0eQ0ZIV9ObB8RbSHYQPjtCw83tXqvbcXU 6tLmsxuIDlxPFHyYqU9//XlEfOdNjP9+K/73O29hlv5LMfX10SVknGhE9oV2 5Hg7kRM4hNzwUeTHjKM4cQIVVIkhcwp1udNozJ+GRT8De/GMOInUWTGD7qpZ 9Ihr7jlaambQb5rBQC1NK6yebGRrpolbJjiax+CkiXvEJ7qHxTq+k6butnYj yz8F4QcTEHEoFxGHy9lqcWmrnubOx8WtJTR1BfzdDAg9UIvoww1IPNqItBMW ZJ62IvecDfmMlws9W5F/gZA904jwPcVI3ZcH04FU9B6Ox3DMIIYy6JwY+QzS ifVlzKMnfRqd6RMcxcOwp/fBntnFZmWrR2dxI3pNLeg1mujcClZMLQxJwRaC DZVRrU6UP/ugqV0TZbWpf7EBf/6Zv9DU0VvOI+4n29H+ohvmX92Oa2fPysu5 nyPxdyHjVCuyLvVQ5QPIDhlCTtQI8uNHUUKSq0wfhzF7AnW6CTQWTMJSNAlb ySTayibFaZuuqkl0V0+ixzgpltB769jM9N1NNK2FftQ6CodtBN1y3dLRKrwP odPej1ZLByylTYjYH4+IgzpEvFvBVk+TWzm6LfDf3wSvXZXwczMi5EAdog6b EX+sGSknW5AhnL/D0ay7aEfBJTvyLlpQdNlCszcg6kAxsg7p0HgkBYMn4jES P4ChTJo5i2bOFPZUmEUn4duWNQp79gDsOQ7Yc1vZzLBlV/IeaGaTCT0VBY+p rJyQkCCq/wt/nZXVn22kVPH5DVpZcS8x+7wR++utmMrVyyHC51EV1Ye0c7Sw Tz8yAgeRGT6MXKYpBYxuSlJHUJk5CmPOqLibqblwTNzR1Fo6Bnv5GNoqx9BR PYZOI11d7Si669kaacnmEbEI2CnN3FByB236HbTZB2GzOjE5OQtbaTMi3OIQ 4Z5H61Yi4kADLWtDxHtdzAP6kXBmBAmn+X7KgfgTbYilVZNOWpBK/5J5vgU5 HlZU+vWizLsbLeFDGEgaRXPUOGKPFCP/WC7Mp9LR51tNdzyBgWxhhwz6mGyS Tw6tmsv+6wZhzydX57exNcGeV43eBlq1tgY3xoZl9N93yWp9q0sOLmbVKjmo zarO4tZyyV/aoFkl0V+nC7Mj1aMXaVcGkR48jIxIpiFxNCEzzRKhdssc2CBs AsjAs0EvTShYyqTNAO3MOluZdbapHp9uUz0+LWwSYBMmElqlny1WpkuOIVFy R40N4btjaUaacB9NuN9ME9qVwyR1l2dXSstKgawpahEtsYtoCJ1CbeAoOuPG 4UydhZM0WxnYhcSTJSjyaMR4dCs+KLSgP4ceNncWDh1pN4+0SxTaC2k5vZON XlZPyxVWw2GqQ2+9iW5pUC7grfawSn6jXoXzF1ruhxvwsOI+QS5nL3xBjuYq 4kaRdKkfyf5M0UKYQAq1zXjm+MlShb08exhVOqnKXsfksqFUqnE20UIWWshC C7XQQi20kKVZmgxoooWabGx26b2hZRDtjlEZLd9imtSF0B3RiNhND7mXFnLj INtvp6eUdrKLPzMqVfkvz0DvJz0qbQi5Lr6bo2/AEncDdaGTbKPoSiBVp02T Gm+glzSp8+1GScR1zBqX8T+d1zFlYBKfNw1HPmm/cBytepqqmKYqoalKaKoS mqrYgM4qA5w0lZKjqL2jYqYHzhq7byatkovaTN/fgHf8jcx9pQmjiPcaRMLV YSSFMXuOZk6fMAxdyjAKma2VqArjRprDRHPU8TbraY56oTRDc9TTHHXN0v4C tUKzSu9GyxCGJ6/L+wzQFJZuJJ5IQ/iOHETsYrCym6Zwl0wReVxa+JDqMcFg ahqFfrMoC5TMYYq4hoaY62iKYyYdRlOEj6CTXNedRq8qnG1IbrMxjdJl3UVf 1weY7b4tmsFZMIVu/QTai0bRykzTXtoPexn5rpymKGvm7zSFwYjRrvaVJ2vU LuyzDzeFVhYqjARB7cJv392AC3tOvnAbM7po7wHEBA4jji4oIVYqxQo7bOVx ZBTmDaNYL1WJK8hblRwVVUKVuJatns3M35ukUmyVXJK19sxgcfkDucz7LfTS BLqAIib6WQjfVoaIHXUcEVZyFl3OsT7EnpHmY7MuTyHfbxolgbOoCJVIrC5m Ho3x8yi50oN68msHR22HEAtmzqNbcC05c+ghUfXomA4Io6CQ5tGPMyYcRRv7 3FrOIKKiF/ZKZoIVdDkVNEGZER0GA+4tL61sjqx2N0oQp04LNmACNZF9ZwPu Rvq7T6K1eRHhwUOIIDFFcxQkpkqFykydtIlTHt1GAd1GIUeBXtjEycT3WqlQ uUl8IPsR5NcPoW9iUY4qhX+/id5mqt2/GBF7chH2TgnCt9Yy1G5hPNeByKN9 iD49JKo4/fI4s8ZJ6AOZLYZIxw7UCKd5xs+iyN+JuuhBtKUMoDV9Fu1CfJY1 g66caXTTN3TnEe0FE+gqklTeTpXbBZVXMkSvIuqrGKZXU+1VzbCWG9FnsyqJ r9pN/P3aGleOQVRH4n/U0Pi3N+AmXpU1brXdQkDkEIKp7Yi0YcTSUScQ6MmF BD/HbDq1nUFtpxPs6dR4uvyIsGNsUU4uqN1Gate3GDq/OgS9oUfoOzUI29ks ai/iPSeiTknckuIlgTs/gAlaiLSI1BA9BRNzc/1VBwFOfkjphTV9iskMY6Ts SbTnTKCDUX1HwTg6SOftxSME85CoWSs1a6smtVcT0IZO2AztsFK7zWXVWL55 Q9Gumt2fkGGhfmRKeAkRsouW1YyupeVvbIDl35YznKaOW7B034LVeQv2vlto 7b+FtsFbm9A2dIuXnVv8cGUIPSZf1tnQAZ23noqtRdpZM4Jer0bItiaEurWu lEWjzg0gwXMIaT7DUFYOlYSPoSJqDIbYcSq6G6ZYJ1pSutHMFKklk4FzNgPP XBJy/gj9I1mhmMosHSQkB9BChVqoUIvBAauRQa2xEy2GNjRVNaKxtHRFNWqS /h+yRpXnfpRK8wY1qvalX90AWR+VA87cSwWM7kxUkRVhW40IfLsBwbvsCDnI cONYD8LP9CLGox9JJPQMv0HkBg6hMGwIJSTO/CDiNbADxrhumFO60EDcN2YO oTlnCJa8QbQUsBVRHSX9DFL70FzZi0aqpdHgRFONA8013XzvhNlgZ2hUj/F2 m0KGau5UKqXqUP0zqzWixpOWRv5hA9x5UtZIbUoDdJeM0Hm1UCvUwjbCe0sL At06EXy4B6EnexFxvhexl/qQ7NuHzIA+6IL7URjej5zATmQHtaE6rgOmZIIm rR91Wf1oyO2DOZ+tkBoo7oW5tBcN5b2or3KintqoN9IVUSP11EidsQMGoaBo NmNhYlS5ezW3PfHXaUQ9M/GkC0a0NHJa+I6Up3wVOo9mqqVjJQ3w29GGq/sd CDzqRDBBEs6sJda7F8lM5DICe5ET2ov0gA5kBrWiPL4NVSmdqErvhSGrFzW6 Xpjy2fS9qKU6TGVO1FQ6YaQ6jIYe1FAdNVSH0diFiko7sxkrnFTHvaXFT6uG zmoyWp0RuKhDDQZFHWqH+7kNkNB58Ttfk+KKsxXIPd8o/qzzcTIWkdbY+O7q hN+7Tlw97kTQWSfCPZ2I8e1F0lXmdMG9iLzcivSQLhQldKGUQ6Yko5fZQi8q dE5U5rMxGapklF1Z7uSd96CcDq/CIDQHyg3dMBIgrY2d4kMxo47ulbjiQSZZ He65qEN961rq+PsNMIiHjCPh1VMzguzTDXIC4kCuv/SkcdRpJy7v7YTvkR74 naJaLjoRcpmejDFAfDBV5NODpKgB6DhO8tKdyGcryHJCT3UUFbAV9aCopAd6 Rrv6CuEBnKIqB/1AYVU31eFYeULDYbHj3u1lJdBVs4eyqO/GjRsrccAjK8D+ 1F+ml7/bAI9cljlYSe9rYqXtxXM8u5BzpV+CTMQY0qijwJM98DrmwOWzPfC5 1IMAhqRhgWTdECfCovuQmNSL1OQeZKT1IDOrB9m5bPlsegeyi9lKHcgp53s5 EzjCxNY8IJZWndSLw+bAkLNPKXSo+UPrQMiPyp+pqxJSMrGiQq14ST1H8ckN cIqvixih+KwcZJYdMITssBHkRo9CHz+GrPAhBHj24OJ5BzyJKh9/BwKCHQiJ cCAi1oGYRAdiUxyIz3AgIZtNx1bgQGIhm56+qaIHTY0DYiWyR6xGDqHbPoA2 SwduLy8rlT2FRtSaUWvhIw/XjJZHVmvr42uMJ+H/FXrxF7/zxVVihHqr8Mog jWT40QMzps+m59UxpSpKGkFZ2giqMkcRF0asMOo759cND2rImxryi3HgakI3 Ahi0BKazZXajqKIPRQxO2pnVttvEvSM3obNVKusxfrH24s6deyuVbYVk1ZNL 6jro/wXNPLaGZtRMEyB8R3VE+RdREd674ojSiJq0UOY20dKhMnqmc6Xpw+LS b6O6VCYfCdDCCNzKdNPGrF9cHMxU02bhZy3C5rLCOtv7JbIW2wAV8r5SxZuY mFjhFeVhMKGzig++Xyn61GotaHljtWY+sgFeiZKZuTxyAInnnUj2GUKysLCO KXZGjHRGSGHKMF2KtMRTWGBXw/uuY/5Uz/s2C5vN8b6beN9NTLGbeN+NFmlH xU1iyekRsfhktg5hfOq6vFG2RBzKCNc69+cRDRB88i+7/U0bII448TufRrtx HnEX+xDvywQrWNriPi1uGNnJ0jb3+hxh5SNVUEQI8NYNTLpqeOsmYTEHb73W LC32EtYS1gorIGvFFZDG5iEs3ZZg/Y8axKDUVdQxxqMr5na53wejjcdW7led TLpSQJJs4rnxe+IegtFXhxAdxmSS5k1KZNLIADsnm+k7E0s9TVssbC9L05YT 0hU0bQXvr0LYWa2RTa6gVIhr7GbkLWtXj2nXE2qELE4Y30LU8JnVt/RgdUIy l9FoFP/Pdcymy3iZnfoAhXkzCIsYRjjNFEuEJmXSZByZmQW8nWKO2nLeUhXN x5w43yQuldqEgnrBLOYucfmNeLGvu7gcQczfyF0RzKKsy1GyJ+GOhG6tcyfP rzPuhHBKMFSufCfTwnqdtlu4Gsssn3cRnint9xvPDD+Rd5HEDD9JWLPDO6lu nUXP+C1cu/XBtzWGkeJrx8bGVrhUmRVQ+2QpDFuhXjVvSsW2x9cdMsI35KFX KAO20XELzUyeLUyeW/pv/YsK6V1dXeJvSs1dPZ4/vboj6rGrXpiwFq4f1eCB cQ08KqLVPmYd0a4T5Vq+4280RE9oAOnxv0y0et37WoSt3I2aDSblz+rr61fQ oMw6qknVRbS69z/dAFl+QkP0lAqIiq2VaW01q7mIVl9Ca92iq62VYaZONqdU CldIVRGtzlJcRKsv4Tplo2VrrSVV02uSxrqi1Zf43gZs/TmNv5uRP1OvBFJG vnqUy6I/6dJT4Td12V2gNC3RT2qInlXZWgn6P/Jw0WqEP70BW39Jo8tzGrZW 7lo9uJ5YW/Q/bcDWio9Wc+K8hq03yfeuVahc5+7VRcm1bP51jS5ck0e02uZC U1f1hC4I49xFvHqMqyt4a9n9Wxrdvq5hdyU+U4/xJ9YW/WUX5WvZ/al1RKvt rohWDzQX0Wp6+eIG7P7PGqIXVKKVIsimh4teq/6zlr2/pyH6hjyq1RUH4RN5 kMkm/oSqg4rUz2zAxP8m/516Ju6mDGi1iZUh7SJODcwnNmDWH2nA4aZ8g2qz Cp/IQ/mJ1RLVqvnUBqz5Ew2JyoyT2poKcawj7uMbsODPNcRJ0Ht0xYJBQUHC 6HSRpP6LxzZguV9pwHtJNTiFOFUYjOuI+egGLPYbDTEKAQvIV8hWIeDFxUU8 ++yz4ohwEa2+xCMbMN1/yt9UO2lFtJrnN8kdEAhYiHeVUzAFDYSHh6+C7GOr xuRaVvyDxvidk/9eiKGEHit0r0gS/l4gQKFXn1GL/Kh4GQ0xWmuxZ1T3olxd eMlZxybh8p9frVbhqoJqhY6/rHHJfvkzAUiCxe5b628fODhUSW5ky35JLenR lfEifJvStAp0AxquYJNKmIZ9FGHSsUAr8ZESvwpVVa2FjQOyPYS/jouLE7/n ag8FoJKvXQkcBU0o+ciLGpfuk8Hp6tEV7QiXlCIIuaz76Ap5CWamahQAqenD Ln+m+AqJg9a3g9BTSpMipZXoU1GNYPHn15T08VX5ldC0DKCytnSgxqq9/wRr C1r6vYYUo4apPy7fj3B1QZLaICpTS15n1dSCYo/n1pGk9rRKSqMeKJtEOY+s 2Ej4huRx5PlNyU4q9f1Ow/1pSXO1k1LGcLGTlDitrPxTQ/i3GvxrlHWmlqTY aZ1RKS3pXVk2qtbeb9aU8rcr0xNrDL9fS1d90mWsy4p6VuPCBSoTKF0XE59N 4kcfXYseJV5fCe3VWtJyaoqYB+piKpp0sYdIk9LIkCdmVw/6X64p5mOrjPEQ Q8i8JAe0D5CAEguo/Ve+CkgFBQWiQTSM8Yp04a9oDPifaVB8ssoSgvd0pfh1 uPENSdJXVcNO0dJ/rCNJrSXFl681OARNvSOJ+ZqLpgQxvKmfrCnp8RVJD6FI kdvFkpLEVXLu9MCI/7GG00pycVCufC+rSsnA1bQqEQi+6WIo4b6UWFcAmCIp TAVG4cqu3OJqKBUkvri29G+p7knR6r9r+DVFuiBFOepVyWIexqNfXlv8t7Up Q0kt1EweJnO3kk6sw6US+DepLPqUi5KF2/iBhhDvtXjp4QHPNzTuUvJI8uK4 1Ur+/jrS1RHqIy4AW4OCn1q5Y1nm0y6alQOvf9UQe1KFLCXK+5g8hJSuCOLX CVslQOBfXNQskM5315GopoLHVbwsSBCKEq68LC1yWHVJRZ+KaLWX0RKzwfDV U5L0r9r0/PQGhW0wfJXsLqfwD9DOd9YUtrEIVqKPFbireeYpjUsf16Bk1wg2 ULqkMkzVuP4nDf/oLn+mriE/+hA7yEM5RJL0Q5VqhG/KqlHYS+0m3WX8qn3+ Q6JXREhSfuSiIkGrCj2r/cs+Vd+FexJMqWHWGOmqP9bQ0jc0rrpZBSDh7u+j 9eEUGy+JekZ70H9tHWlqm2xyscka9Cq5V7nUv3qwf0V1r4rj2iJjVcl+14uK PrVCY6GSECWQUIdg/6gh5O2NjbQnZAWpSZovGWU/0x7tShiotcLkgbnmhwSw n123A7/QUKkS6z64VuGxVdLXMppInF9YV+wvVWKVtO2LGmJfUilZEKPGvcqK /7CuMCVOVw+HJzWEKWmD2iup4511rPzVdTvwrDbNfl6jD0okJMhSLiRlj9qZ 1zo0/C1XZP9GpXSFbD6n0Ycfyp+pZ0Yel/Wg0P8aoXOtJOm3GhpXFqOpmV9L 0sOCH5kSGiRJv9PmH60dsLWErRfrqPDVLAl7TkOBWhvy/FBWmSLpIcGyTbq6 UrZQE4/WE1yKD1SyMuGlxdBt0mWf16YYrbUZiicVBrniD1y95hoMLc2fyifT rKYTrelLSdLHNOlkLaZ2SiKUGpi64vNJDRHfXoc6VMqXKnOr9hhQlK/ULNVO TOFG9Th8dAMsLJlOptEHmODja0p6XLMutlYVQVpEsFJYVeP0cdUNKi7sH2QV Ca91NC8BAa9oqOgxjasqi0fVFLZBGhVrbGJC0yHJfNVleMv6Umas1f5Ra7dK dXixDlNqPZXaKnXgdQ1VKiGSmjP/TmZqJVtdr7wgcq7oK7QWDP7LCm3L7KS8 xK9FSh+9ocEVH9HoljqaUwS45iOu4bY8or+u0bfvunwmUc+D35Oj2ze1qecR jY4qnVdn+xsk52+uKOwH8qVch4zwkkAiR22rCWrTmv1ZXdBZh8Kf0lDC9/4y Zb0jG0edYgqfyL1SFPQw1r8Pn3+9D6SPrAKSi0qkuPwTq8a12t88hPkPrH1L ShyusN2WLVsQGRmpye6HVnord2ubfF3BPazM3QmfSStlpJ/3//+f/1//Gf/t /wCsQ1ia\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.667282704599533, -0.4736980200654736, -2.008936419194084}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.623532509961639, -3.0682618972778255`, -1.253602916532996}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.712865740702026, -0.9610961350566383, 4.12697370309471}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.81060806960158, 3.4621487551380725`, -3.4327214337187515`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0.6796977745236138, 1.9785885986341352`, 1.966526929409622}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.0007300971451825`, 2.6973463578112513`, -3.73184651318087}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{ 1.6881105561266523`, -0.6020181565390601, -3.2475555514413696`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.252520668924269, 0.9930470517563589, -0.672310164169966}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.326059755891318, 0.0873999552454776, -3.888160056433607}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.731357316028448, 3.0098040774350046`, 3.7721887260582485`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.6451040174079425`, 2.1719619224341007`, 2.293842102301396}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.937075982622452, -3.591504247542676, 0.62691646821918}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.998616795758999, -4.50864817701126, -2.601881228120237}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.693977192895757, -3.0683809764719894`, \ -1.2151813181719506`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.628706607906556, -2.4428739286425123`, 3.009195448090952}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.744119544468983, -0.761051448630997, 5.912764236601499}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.777621625002427, -1.546604046740475, 4.55866825688052}, 0.12]}, Text3DBox["1", {0.4974510956533934, 1.2572885326766854`, -2.556086493194923}, {1, 0}], Text3DBox[ "2", {-6.267282704599532, -0.4736980200654736, -2.008936419194084}, {1, 0}], Text3DBox["3", {5.123560350579715, 1.5410670437358187`, 2.7125269695320533`}, {1, 0}], Text3DBox["4", {-2.3491235175798257`, 1.5580378709421043`, -2.7402705150387314`}, {1, 0}], Text3DBox["5", {1.4139234520284254`, 1.5539118271310333`, 0.1575157823985954}, {1, 0}], Text3DBox[ "6", {-7.223532509961639, -3.0682618972778255`, -1.253602916532996}, {1, 0}], Text3DBox["7", {5.112865740702026, -0.9610961350566383, 4.12697370309471}, {1, 0}], Text3DBox[ "8", {-3.5326163169557856`, -0.5799283777499342, -2.034613759457293}, {1, 0}], Text3DBox["9", {3.9480330565867647`, 1.2933878299377697`, 0.245972156839031}, {1, 0}], Text3DBox["10", {-3.41060806960158, 3.4621487551380725`, -3.4327214337187515`}, {1, 0}], Text3DBox["11", {0.07969777452361382, 1.9785885986341352`, 1.966526929409622}, {1, 0}], Text3DBox["12", {1.4007300971451824`, 2.6973463578112513`, -3.73184651318087}, {1, 0}], Text3DBox["13", { 1.0881105561266522`, -0.6020181565390601, -3.2475555514413696`}, {1, 0}], Text3DBox["14", {-6.852520668924269, 0.9930470517563589, -0.672310164169966}, {1, 0}], Text3DBox["15", {-6.926059755891318, 0.0873999552454776, -3.888160056433607}, {1, 0}], Text3DBox["16", {4.131357316028448, 3.0098040774350046`, 3.7721887260582485`}, {1, 0}], Text3DBox["17", {7.045104017407943, 2.1719619224341007`, 2.293842102301396}, {1, 0}], Text3DBox["18", {-6.537075982622452, -3.591504247542676, 0.62691646821918}, {1, 0}], Text3DBox[ "19", {-6.598616795758999, -4.50864817701126, -2.601881228120237}, {1, 0}], Text3DBox[ "20", {-9.293977192895756, -3.0683809764719894`, -1.2151813181719506`}, { 1, 0}], Text3DBox["21", {6.028706607906557, -2.4428739286425123`, 3.009195448090952}, {1, 0}], Text3DBox["22", {6.144119544468984, -0.761051448630997, 5.912764236601499}, {1, 0}], Text3DBox["23", {3.177621625002427, -1.546604046740475, 4.55866825688052}, {1, 0}], {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.7864022993041873`, 2.015248242950997, -1.4175577842613196`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.8431148640217385`, 3.8551449050169055`, -2.2993647667789308`}, 1.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.8652951584327964`, 0.17637808740533067`, 0.358290348168695}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.5490426242836162, 0.7987919710872726, 2.142621078502694}, 1.2]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.7118447358554645`, 1.1008274989332119`, -4.0629832458161435`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.7781012751814202`, 3.0691526052592395`, -4.566078100658572}, 1.2]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{2.1625517456240546`, 2.931445566856736, -0.043258783371503906`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0.8103529247636116, 3.1583852261809975`, 1.7904327803165487`}, 1.2]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}, {1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.623532509961639, -3.0682618972778255`, -1.253602916532996}, \ {-5.667282704599533, -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.712865740702026, -0.9610961350566383, 4.12697370309471}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, \ {-5.667282704599533, -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, \ {-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, { 2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.81060806960158, 3.4621487551380725`, -3.4327214337187515`}, {-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.6796977745236138, 1.9785885986341352`, 1.966526929409622}, { 2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.0007300971451825`, 2.6973463578112513`, -3.73184651318087}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 1.6881105561266523`, -0.6020181565390601, -3.2475555514413696`}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.252520668924269, 0.9930470517563589, -0.672310164169966}, {-5.667282704599533, \ -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.326059755891318, 0.0873999552454776, -3.888160056433607}, {-5.667282704599533, \ -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.731357316028448, 3.0098040774350046`, 3.7721887260582485`}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.6451040174079425`, 2.1719619224341007`, 2.293842102301396}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.937075982622452, -3.591504247542676, 0.62691646821918}, {-6.623532509961639, -3.0682618972778255`, \ -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.998616795758999, -4.50864817701126, -2.601881228120237}, \ {-6.623532509961639, -3.0682618972778255`, -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.693977192895757, -3.0683809764719894`, \ -1.2151813181719506`}, {-6.623532509961639, -3.0682618972778255`, \ -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.628706607906556, -2.4428739286425123`, 3.009195448090952}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.744119544468983, -0.761051448630997, 5.912764236601499}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.777621625002427, -1.546604046740475, 4.55866825688052}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.581067923215045*^9, 3.5810680044443874`*^9, 3.5810680351764417`*^9, 3.5810682861964827`*^9, {3.5810683186133394`*^9, 3.5810684149123087`*^9}, 3.5810684498251696`*^9, 3.581068713574833*^9, {3.5810687618101177`*^9, 3.581068788626565*^9}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzcvXeYVOX99/9+QGM0zcQ0842JUdQYe7B30VixIKAISBFY+u6ynQ4LW2BZ FrbPbO+99957773v0puKxhLd532fMhzWYeLzva7fPz8uPrMzZ2buOed9v+5P uU97e7XNhnVbV9tsXLP69tesVltu2LjG+vZXLay4aPb/Af7PBtq62yGeTwPq wzT/T28UD2LJ/4+f/1R6fj2+/vprNDQ0YN++fXB3d8eXX36J5ZrP/UR6fgPO nTuH0NBQ6TPl5eWYmpqSvuPi4nLV52dLz39yVbsODg7Sd9j2LOnt2dJiMzMz dHd3Y5nm69f+5vXS29fB29sbw8PD0Ov1YvFS+cvfaTYnMzNT+rL4pFjNnyrf TElJQX9/v9RgfHy88s1vTP/sTUrD6pfFK/ERseIfyS18pXxElUjzbfxCaV28 Fq2LV5999pkkG99fIrfwxTXWQfwIP/Ur5W3xUmzctIyp9JwNK418ZnpDfqN0 5MxGxNqIj4q1/VBu6dIMMUWfq2L+TulAbTNqp4puERsmXn0gN3Xe9Er9Qfmm Kon8Sn4UrauSLZZbO6NpTazADLX/ZKI1sUxBRm3tlJF1UzeTH/uzkdauU5aJ j6vLFsmtTZne0tuVbwroxTpoW1N5Eq8Wyq1NmGDqTs3XZjalYUttatQ0XHcZ ae16ZZkyUqRX78utDZnezL8r39QOl+s166ZuqtLagIlhe5+Rpn5iZDMXyE31 ml6xBzSbpFJ1g4Y0sVy8ek9urUvTmpE+eNhEa9oBpbTWcY11U0j7p5Ex9VMj pL0rt9ZqeksfM9LajcoysRkqae/IrTXPIE3r4J9UvibeE92ibUo7oJSmGkyv 2NNGBtRNRjbzbbm1WtOtPWektZ8ZGVDz5daqTZD2kmZsqm7xphnNi81Umqow vWIvGxlQ6oppSXtLbq3MxEh/1URTKmZiA5Smik2P9NeVb4rNFr8mXv18husW v/Km3FqB6c18y8jw/IUR1/2G3FqeiZjyjommtKNJaSrb9Iq9Z2Rs/tIIZrIc yDAdUxYaGU2/MoLZa3JraaZjymITrWkHlNJasuktXWKktZuNuG4ZIySaIG2Z kdH0ayOb+S+5qTjTpH1sojXtgFJaiza9mas031SH6G+MDKhX5NYiTYz0tUYG lHbF1OVKU2GmV8zMSGvqimlzIdkjINh0TNlopLVbjAyoeXJrgaZjymYjY+oW zZaqpCmt6UxvqbmR1n5rZEzJnhR+JmLKNiPD83eaTVdJe1Fuytv0ilkbGQK/ 02ymSprS2nHTrdkZae334nGW+ITShocJvrZfq4EZ6c8LclNHTK/OTuWb2vA7 M2MWG/e83NphE+N7j5ER+UcjY0iOqnAxPb73mWhNO4yU1g6a3syDyje14Vdt TQvXs3JrjiYiiZrza8fQrcoybe7zjNzUXtMrdshEa9oxpLS2y3QkOaJ8Uxt+ 1YpFfETdTDlNwg7TkeSokRH5P0aG0VNya/amt/S4ida0pCmt2ZogzdvI+FZL KS1pcm4JK9Ok+RoZUNrCTO0apTUL05upM9LabTMctmjtCbm1rSZGeqCRpv5i xFs/Lje1yfSKBRsZUH8xsplKa+tNR5IwI6391ciAkisFrDMdSSKNDE+1NS1p j8qtfWJ6S2OMjKm/zlhfsVxpbZWJSBJvpCm1zNamP3Plpj42vWKJJlrTum6l taWmW0sxMqD+ZmQz5dIPS0yQlm6kqTuMDKhH5KYWm16xTCPD844ZmylWTGlt oYmRnmNkCKhzE9r0Ry6WlVr4miM9z0hrc4wMqIfk1t42vZmFJlrTum6ltbdM xJQS5WvaKKxOmmhH04NyU6+bXrEyI2PzbiOjSZ6vUDLka8aUShOtaTFTWnvZ dEypMTLS79Z0gUra/XJrL5re0nojA0q7bmrxqrT2vAnSmow0dY+RzZSnjJR4 fE3SWowMqL8b2cx/yK09aXoz2020ph1QSmuPmxjpXUaautcIafIyxRNdc8V6 jIz0fyjLtLmQvLLKKL1mTOk3MqD+odlMdUAprT1oOqYMGmntPs36qq5b7mTl rWtu6YiR1u43MqZk+hT5jMeUcSMD6v4Zy8RmKk3drazYV199hbq6upkrNmmk NXUiUkua7E4UB3U9urq6sG7dOtx2221ITEyUfvCUkbGpXTEVs6uamo0PPvgA jo6OuHz5sjJ7fvUoUtdGm/3I31Vc+XX49NNPceedd0o9zBU21sqDRvz0ndpW rsfp06clZcQr8bGoqCicNtGUdpuuauonaGlpkb6uyqA0pyqkHT1qawIc0dVi E69qbfZVrc3SbIdYJn78hJFmtTyOjY1JTasDmR004xeCg4PR2dmpvLryC6re U0YGqjyMbjIQr3IqfkFxY9InFInuuPYvXmfkF1UutQNGBucGk7+otiWWXZ3V GH5a9LHoa7nX5WXFxcWGn54w8tN3/IifvsFIN8z4aXkHrrob8Yc/PW7kp/9q 5KfFJmh/+iYj/aP89B3Kj4kxsmbNGumV2PpDhw6JZowJMKYsE95H9Ql/vsZa CAbVtfiFkbVX1kKq1KTtv05ZH7EOYn3E8H/ttdckyOkCjKkyasRH3WpifRQP bphoFOujpkXK+vxF+bq2Q4SJtRDKCGd0k5FVGTGyKr//Eatyi5HvKasizQVd J1bkekUaYyvFxn5uYn20Pvc3M9ZH6/HV9fmDke/drpXmh2uhjNhfGFmLw4be VbpX80/dGeO/NQhlC/Zi8liIYW+G1qv+6kes9Z+MfE9Za4nPWVfW4GoPY2yl 5Zm0G9HT34Q+Wj9tQFgfrZfWQ+tuwvkzJwx7NLSazDayTD0CIC+uFfsWVOBE SCe+Ks4ztr0/1zhoI9v7l/+yqddYGa1v+6WRjbZStO4fbEJ6jg7ZuXrk5Qag kFacE4CS7ACUZtEyaOl8ncrlyQEoStCjqSgDw+2Nhv1+P1aMwfbzMHeYQnvj aXzbW6yKoXWTN5oW429GvqKIcZuh342twq+MSCBPwNyC2vp05OTrUVCgR1EB N7cgEBX5gaii1eQFojaXlh2IuixaJp+nc3kq308ORGViACrjmGxE6TDW1qj4 8utmjplZ2gGw8M3DyImMx/eZu2FMg5+Y1kBNl7QuXtFAlUfr4n9tZMu3SMv+ gMGhRuQX6FBQqEdxUQDKi7hVtFpaPVVopDXlB6E5LwgtubRsWhaNKjRn8L20 QDSkUJWkANTFB6A2Wo+uvHR8enLKMPq0SswysuwGRbHY8BLEuXvj60xnTDfG vGhkK00dr0Nh1CpLG3VmCKPN7NS9H2q1IoTZpIzIxsZ0CqJHSbEeZcXs4mKK QmugNVGclqIgtBUEoZ3WkRc0C51U6GfoyglCZ7ZsHdSojRq1UKNmatRMUppI SkOkDpMtjUYpNbZMJSrWJwfH9xzHp+numO7OeFEZLlp9rlFyGGofE8JoM8tb jAizXvGeFy5McYz4o7RYh/ISPSpLA1BDqy+lMCWBaKW1U5xOWjetpzCIvd5L mX6JPj725cvWS+uhZt0cW50cWx0cW210M210M62JejRH69CTnWYYO7MMgeVG RY+O2i44bHXHyaTj+L7gsFrgi20UKz1DA7V20IbdqyS4ziCBqI9Ik6qCyJlV FdYp7vTC+Sl6CT+UU4XKUj2qaXVUoYEqtNDaS6lASTC6i4PRWxSMPv7tLwqe hcGikNkY4qufYZCPg3yvX6hC66Wn6c6hGnS6nel6dCTr0RarQ19ummEMb/zw IHqimL8kblH2V1w9GEQQF0kH1/URI3H9r1dvsIiL5ubmkvn7+//WyAbL+yBv RltjGseAP6rUjS0LQGMZu5sb2lEajC5aT0kI+mgDxaEYKgnFcGkoRoSVhc7G aFkohxWfclEIhvkxsf0DRWLbA0lCALoZcLoz6D9SdOiI80d/bqqati172QGV gT74PmOHssfhp9dkXWFcPUzlh1O3BuTF5ov+Fhne7zXbrs4OGBxnfBn6QuUJ xHcUl9ramIoq6lFTqqNp9CiT9ejmRvbRBrj9Q6Vh1CIMo+VhGKONV9Aqw9jy BB9/IT0frwjFGG20PIQCEYwSAYwYKoHoZTTuzdSjO8UfnXF+uHx6Sgln1yEu uhQpx3zwbdZBfFMe+rgJB8lNmm1kEDzy34XSphJ/UH5YnUZRlssuS25f/ace ypgbXwf963pcdAzCF8lhbyvO9xI9SVWRH2pK/FGrSNhACVuEhGWqhKGUMAxD ZWEYKQ+nROGUKxwTVeGYrA7HVHX4bEzVhM8SzzimJqvCKKos5QilHKSUA8VB HGOB5EmPvkwdeiljR6yvQcJY/3z4O3ricoYbpjtS/8tE1cyDurQSamP4DAm1 Dv2PSk40Q0JN0mw8e0oNG0ek8zi+rJ3Al62Fqo6VBT4MTX70wDr6H72EYTM1 bC8LkTXkmBugfsPUb5T6jVVGYKI6ApM1EZQuAidqI3CyNuI6nKyLII18ykWU t4YyV5PYKkpZQSnLZCkHmCANUMr+DH/0JvvhTFe9kl9SSs9E7LU6irMpxzDd l/uwaSnVqkrroYwdq6ZIqe7f0OY2fzJCo8qhJKJaiTvbp+N0YTa+jrdRjoz6 LcaH6lFb6It6juN6IZwIYfRnrRStk+D10vop3JAkXATGq2ThpmojqVAk9YrE qfoonBbWEDWLD5HiIYKO7lQ9VawjoFRyooZjnyoOz1SRWXd/uh/HtY+anW5d 4YLBWC9Mx5gps13XVE8tZLTjVlXvh5MGBvW0CZB2p6loxhBnZ+SvGh13vrcL F3RM0MJWKTr+BtV53qjjQK4v1kkBsJEatnDgtVHHLg7evrJwDFLDEYI3JjSs iaQuUdQnCqcaJO1wppH6nWmKmo2zTVHk6UxjJE7TTlLNE9RyklqOUceR6lAM UscBVcd86pjNYJHhi7O99Wqhs/L1XagP8cF0mp2S/FxTx5v/dzpq86U/awa0 +KdO4V7R09iAng3rVx1w0ps+JGq9slPnFnx6fhK1HNH1Rf5MNpktlghBgylo CLOKUHQTyH6KOUQgR6siFTEJZL0iZmM0dYymjNH87XPN0QxW51qicb4lin9p zVE420xxmyhuI4WlwOMUd6SWoFPcASEuO3CA1cBAnp6Q+qEn3dswxPdY+SHb 2wffZe7Hd2PNd5sW9xaNuOphBA9rqLt6h69RcW/TAKnOj/8XXbe8YIXRY64c RVsVXX+DicE6VjS+aCgipEzoG0qCmK+GMF8NRUdJGHoIaT81HaamY9WRmBSA SppGUytZU6o5G+dbo9ncBT6KZ+rfs5T2NGU9SZuirBMN9Bl1lJTMDnDsD5ST V/7kAAutgXzymuODy+cmf6E6zoAChDh748vMQ5huTbzTtKpqsqKNN1pVVYc6 Q1XtNMiVSRJcvcd41pXIPRtrn96IXjcKGbtNEfLXqMnxppCEk9VRQ5GoiILR WCyEDKPXDEdveQQGKiMxTBHHKOJkfTROqCI2C6UEmOdbY7jZF9picKE9BheF tUXP4oJoknaOj2daqT1FPUFBJyjoGAUdpqADNRSzUjgAismxMcD+HMjn4B+o M4jpmUZ/fwznUz0w3Zt9u0ZMdSeWRsxbjYhpLCf6y7XF1B4SIL7S3NxsqFIy I4rQ7CQktMW/y4LeVIZ5HVVsIAcNjAMNzPMaWAg0FoVeUZEoDhDF4ZooDs8o TFHBkxzap5tjqGAMzlG/84p6syX9fo1LqpLt4j1KSDtFGU+0EGfKOEYZh+vp i2sFk5SwgkwyWRhgGTdA/31uqN4wU2S55hDG4r3wbcjHygi8poDqJJQ2ZP8I AbVJ5cxDF4SAavaYEJSPyr1iMG/HdF3UG0rwvnRuEvUcRA35OlnEQgpYGMLi PAxtJeHoKotALwPOADEcIYbjxHCKAp5qisEZCniWAo7XBqC/xINZogeLslIP aniyLgCXOqlhBzWknW2n5m3UkDpOUsfxpgiMEMVBgaJwl5KORLGcGpYyIyrw Mmj4yfy9aAlnEEqxUhKVn0hO0IiGKkHagGMsq7xKQ9knlpWVSTPnrFyMyWiY XfHLQZ6DC76P3o3p5nhZxr9joo9uMZtuMY8ystZoKKCMBaFoJouSjOVCxkgM ksMRcjjeIMvYVeSO5ixH1CbboSHFHs20FlorrU1YMi3JDq0JdujJdMQQP3+2 g1pSzxPUc5J6jpPJETI5WK8M62pqWUUtKxl6yukji7xVKRc/vxmFfiwAM/co Fcg1pbzDhJRaRBUp/6roI7JK8S87O1sUhDOPMhFSGiZiPDORZOWE/0TuxXRb sizl7yQpG7L80MDkuIG1fEO+ImVx2BUpq1Qpo9GW747yBBtUJ9miPsUOzamU K9Ue7Wn26KR10Wahm0t+zRTRDl2UsyPRDm3xtmiOsUF/oTtOUk5JSqI5QjSH OLwH6ihlLaWsppTVlLKSaWapz5UkPaQYUYe98VWmi5hnuzKxMqN8m3Ul7/sp ijx1yF3vgJJ5q9C1/9BM0e8yIfoPDzozOExtMjrHiOLXGxRPQuimg/g63JEl WroK72Qv4c2k4tlUPJeK5wVTdQEvFS+NQBedaC/HfwcrzOq0fShPtEGVRm2h dAdh7SDEXcKobC//9gnj8j5+rofPO6l8O99roertqfswVOl/RXE6gwEBcB0V r6VDraFDrdIx6fUxCO6VCfedx3FJnriTVf7hDif19ZWeuBG9tY1op/S1n6xF x/NP4sKSF/GtDRNvt6WYrqrGVF3uVcdvzKxITWivzbHuMqL9dcrad9S2wWu1 I74IOYBvMg/I2v8eEz3UPoPaZ1H7bAawXGqfp9U+Eq0MKoUxVihl0VVJ3euo ZZOgPEU4BluJ5E7+7aH1JdqiP8l2Fgb5wZsxmGKLAX60h9bJr7XzIy2xNmiI tCLQfhhppvSNlL6B0tdT+npKX0fpayh9hUH6jtoO2G10w1SiJ74vdDM2vSon kr8wLCuj3GM+OhQ//igm33wGX254Fd/vX4Rp39WYjt6C79LtcKbEF5fOnzEc 72JM+h8eHWlU+pkHGV2RfjYOLtmLTwOd8F3gR8rpJH/EeDd1T6PumdQ9i8xn y8yLuNdK3RsL/JAXZYWiOBuDd2mg3vXUupE5SGs8BaVT7k6UOR+gDVHkYVZK I2l2s/hgS1cxwK3s4aIO9kMbh01zrDXqI7ahr9wPg03UvZG6N1L3BjqZejqZ Wh3jhLdax5otPICuSDFPuVVh+earRB8g110UOuzBudLyi0tfxH/s3sb0kWWY DlmP6aRt+Cp7B4bp778YKsPFsyP3/e+01uZp9xjR2rC77O2dOOfPwjb8E+Wc oj+gLoWBMZ06Zyo6k+9G6lyb64OscEvkR1uhJM4aFdS5VuhMTeupcUu8AJb+ hK97GQgH6MOH6GtG0u0xmmmPsUw7YjeWZUehRzMJegY/S9k7Umw4LqzRyDFT y/a7y30w0EShmyh0I4VuoNB1Ooy2p/xSySMba6rx0Uvsar2YHd2JhX/9H+xa vNDgSHJWmKH8iccwNf9Z/Hvja/jecbHcESyNvuPPXsjZjZMMFqcGygwlhHY+ xlgid9u1FZ55LJlQWK3Utr1ihxNStbtBUfge1CZS4VSmHulUOIsK55LkwjCk BVsgJ8IShZLC9Noc/jVUtCbajhQzzYhnjEx0oHd2QH+qAwbTHTCS6YDRLAeM ZTtgPMcBE7m0HHs+t8NoNr1MBr1NKnFOtkZzghXqYyxRFWGOgWYq3EyFm6lw IzPCen+cnVBT4Zsxl5I+8+c52Dzvddg/cz9sH/4LLO7+AzIffVCS8j/272Da fbksa5KVxK34p3A714iCP0JVbXp8rxIxtKqKJZuet8Swh0iNzQ2KTnY1oD6Z hUUqc+IMKpoTgqJ4F2QEmyOHTBVQ0VI60mr6g5o4O9TG2KMpjslaggMd7Xb0 pu5Af8YODGXtwAi3ZCxnB8bzdmCCNpm/nUZV86hqnh0Gs8ltOhVNpYPgljck WKI21pzxdTsGWhRFm/Toq/fD5U+n5HAued/rlS3Se7jj0T/fjuf/dA8+euRR 7Hh5Lpxeugdu8+ZArU6/y7CXMJ2oDJSXPW5CUW2yPENRrf9R54S0ih619EbX YVGpWasOYLyjAXUJFDOZYqYFoSLpOFJ0Wygm8QwjnlHWiph2qIhSxIx3QHvi dnRRhN70HRjIpJgUcjR3J8byKWQBhSzYzk2ZLNzOuDNRSEEL7DFIVLs4ItvS KGYqxUy25G+bozp2C7qqjlPQIPRTzO46P8Ns3A/j2M8Z8hoR56nHy//zAB75 3d145Y4H8f6Dj2DzQ3/HvqfugtvCh2Hz8p0405Ej8HzaiHDG0mVFTPVgBO0k 7P0aMcUkrK8z3eRBIaQ9vqkIeVNJMWpi/VCfoJf2FxdFHESaP4UMskB22DYU RFLIaApJIisi7UkRhUzYjvbkHfSMO9BLEQco4hBFHMmnkAU7KRzFLKKYxcK2 8/l2jBdRSNLZRa/axvHelG7NkbCNmYcFfc0WtBUdQH9LAPqadDgz1aAIectV QgrxPprzLNb//W1sf2IdrF4xwxN3PopXH30abz/yT6ya+wDMX30DW+a/jjUr VqCm7zRqemk9pzBx5nPDecjGFP3huRwGRbW5sDz1K08o2pgdQNkeus2YHZhm 9aXKOdHeiLpYHeqTApFybANSfbcgPcAcWSHbkB9OOaPoNmPtUB5lT+kd0EQm 21IoJ5nszdqJ/pydGMqjnJRyrHAnpaOkxTslOSdKaJR0rNgBA/l0tXSfrVk2 aMqk20wnl6nmrPw2ozphA/ooZ3ejDp9zgN+gjBvx78CyrVh79xuwnbsaB9+w xdE1B+G7wwP+7j549q1l+Of8FXh84Sa8+LY9zN62wf6PtmJPUA68MtvhldEO zzRaCi2pHUmlg6jrPIXJ058r51oYn264prxX79ytrq5+QFkcdjQF2fbOclnc kiBPcv0W1VE6lIcdRerRjUjzprD+FsgM2oa8MGsURzCbjbFFRbQDPeh2NCbt YN22A50Mvz3Zu9CfuwuDBbswXLgLo0W7KOKuWVR0p9jTR13HSukLSrajn2O+ I4fJQg6z2iwr1GXSeaZvRW0qdU3agLYqdwz2pCmu8s+sgXTYv2wTVt/1L0nf /a9sw5EVjvC2dYf/IW+4HPeBY0QajudTM9oq5yA8sngjnnt7Nxa/7YCdiyxx 9HAIfLLb4UuNfamxTzqNGnsn0xJoce1IKRzE5KnP/2lCZm26ZURm8U8cx8dS WpU51jMd8RZO+DZyHxpD9sgy34Gx1kbkee9DymHye3wL0nzNka63RE4wE9hw ZjVRlJnsVsVvJ+fb0Zy2E+2UuTt7J/roCgbI7hDZHSG7o1R4rJQcl+6UNaYN l25HN/lty6UryLVGXY4VqrMsUZ1hjqr0zahM2YDagr1yDvg3yXUmeAZixZx5 sHhgCfa8uBWHl+6VNsjf2Qu+Pl6oqqnCscxieBa20YhqEWWj+fC5T0E7NjvF 4NV3dmLLuzZw5hDwy2mHfxaNkvtRcj9i7UfJfYm1LyX3peS+0W1IzRvA1MnP jO56+K+6X52EPah4j1jPBAStP4CvwhzREXtIwl/d5dPTOYqxjlGNt7kX2V67 keS0EcnuW5DiaY40P0tkBlghP8QGJZG2qKQ3qWR0q6VTbqJTbsvcSc+wCz0E vo/ADxD4oWKCX7ILI+yNUfbESBmdNq2/1AFtTBma81h+51mjhj1RyZ6ozNyK CvZEKXviRF+xIXotm/MCNt/3PnY9swmui3bBc+th+Dl6GpKCiRPjmLzwObug lcu8itvxM3jz0YfmWySbH82fXTLvnd34iCNg72JLeLqFQMcRMAs6dsiN0LFL /DkK/FNpHAV+ibR4WjQtvBUNLSeU026u7hJjhxf8+dpd8pASIj1W7sfl4IP4 9PgC7XHbNxoSox8eNanOgw52jsD+iS0oemI+pgJD1bm+PgpWc1yPjmN65TDV e1Gb6YW4PRuQ6LoFSUfNkeJliTSdFbKDrFHIYVUWzc5kzldNz1WfuhPNHFJt 7MhOdmRPPjuTHTlAzzXIjhwqpZXtxGD5DvRxOLXlsxPzWevk26CGHVmZuw3l 2RYoY0eWsCOdN7zN6Pkco+c7UvR0fnc7jm10ge/e4/A/5oPElHhUN1caqoKk xj52Xyu8S0Sn8HEWfPn0d/BjT/qzB3XCOLjMObDeZJFmyYF1ePlW6HPbEcDB FcDe1HOA6dmfevamnr2pE73JQebP3vTnAPOPakVaTq/hCHvt2VE/oie1ufhD Sua6f/EeXApwwvdB8tUItEesq8f5abMKk8eIxgxi0Zy5CKEN2G5UTuI2zL5d L5XLB+Y8idS/PYHee1nNfbJO+ZG7UZfhjbKYI4jdtxnxh8yR6GGJFJ9t9KPW yOXILYqwRXmMHWM1Ry5z0ob0nWhh/G9n/O/M24Vujtxe+s8+xv5+jth+dnYv fWcr/WZzAQtadnZNHkNenhXKcrbBdesCWL/xBmP7m7B7lLH9Tcb2tU7w3XlM iu3JyYmoa6lR5zCSG3s5MNm/paJ/ffh4K3z56EfzZ0frhLGr9exmPbs5gAP2 X+/swcfvbIfj4m3wdg9FYF4HAnOFtSMwR9PtapfTp+o5eHUJbdDFtCA9txfG jvdSu1qbmc3oam33qOPe7q0dOOvnjOmINQZstQdT/tijYNVDR96b8yiOsau7 XpirnP7/g93t1yvrK9yh6websOd/5qH24fn45l9v4PvXnsPn7zyBUwueR9+/ nsaYzUZcjtTjXIAOI16spT3lM4dr07yZWOgIxzFE79uKuEMWSDy2DSl+VsgI tGEuY4viSCaILFqqE+xRRzgaWfk1E4w2BtcOBtcugtFNV97FpLCdRUsLoWik 1RGK6gJbHLZYCKs3X5OSEuuHl2P/v6zgvpJJid1R+B/2gaevB+qb69SZ8+TG Hg7xZmLQJlCYJZHwc5mFUsFCB/QlndAXdyKgqAuBhcK6sc05EW+/tw9W7zvg yEqrWQgq7OZDQRc9XmB+J/ng58mHxAVdQQCZCKAL0Ce1Qh/bhPT8npmnRWlx +OHJ34bzrLVljhqZLebZYtKTTURvNHSzFgdjxZlpHJ7EXuLQPPeaOMxW1jeB kfGTOS9ix0OLYH3/Mrg8shy1r6/FN8tXY3r1h/iP40quli2mQy0wrduI6eNc ddfl+H7PIvzH5m18uf5VnP/oJYy/9Sxa5j2JDpuPUbF6AQo+fh/Jyxcietda omGL3FBbFBGNMqIhIn5NogNLKAf6ju1ICV4Pe4t5WPvBg9jy4YNwsXyREd0e GZEbcdTiA6y4i8nTg0uw90VzuDF58rI6An8Xb/j4eCIv3Q/NtQmyQr8gDl0M 2E2koJXWBt8y+gWaf1kHeeiErrSLPHQjoKQHAcW9CCzq5QAMKurj+Agq7sNr C5yw8v19OLjUAb6eMXwvmEt/zsdefopW2CNQISNdMiPZZIQ+IyCtDQHJLQiI ayQbXSobxua9fngqv4ENbcH2sNJv65/bisGjYkbGAs3V1cbw+DEHiItc35xI lN8/F1eigTLxId48xMxy271vwfWZtfD/YDvCt7nCd9tB2L60HunvbULfh+vQ /9GHiA53Q3myB7ozPDCRfRTnco7g8+xD+DrLCd+l78f3ySx72MHTrL+ng7Zi 2nc9po+uwvTBJfh+xwJ8bf4mPlv9Mk69/wL6X30a7StfR5fDB2i2XIwS+4+Q cuBjLFz4IFYufhhbljwC6+UPw2HFQ9j80qtM3xZK6duhxUzfzJm+HfCCn5c3 8jICUFumx0BDoDSbeW6iQdZkDjO6TwlEPWFoplNolWDwIwx+ZZ2Eohv60h5a L4HoQ2BxPwJLBhBUMkgYBhFcMoTg0iFYH87Au4tcYPPhXsYlB4SUDSGE9WOw MH4+uKRfwkQFJDCfgOQSEDqOwPRWgtFEMOrQ1D6hHrzXy2S5Iq4cp9pHDaPb 2OSTCVi0U/5qMrj2g4V45tbbseqee+g878DHd/4JcR7uxqC5XkkEjO0zuslQ YwVgDaHJvnsuLsbo5KN5fyl9RISRFBY2Ut04dzk851shZMMBhoVjiPXyRWF2 KlraatHHAVkTmoLOqOTrlfSib2wUNc3V6O6qxVhfnTjOAmkx7swbPTCQ5YET Oe64mOOGL7Nd8W3mQXyfuleZYLbDdJglpvWbMO21FtOHP8b3+xbjP7Zv45L1 m1j4ymtY9vAjWPLIP/HOc+9hxfuOWLfqMF2LO1z3H4Uj89lGccCcNDsbSgvW zs7KxPyBZVcN/EoaSUuL4jpkUvzLeug++khLPwJKB0jKECmhlQyTgBHSMIrg slHSQSsfxRsfHMHqD13gtHIP/H2TEVIxSncSUj5CdxJSNixRFEzSgkmdcEBB BaQnrwtB2YKaZgQmNyAgvgYnTl+S5o2l8f3DY9ZXP2WHhFdccNZyP87kV/3E BEzaSGUCJjml/am0I+Cpv96G12+bgw0PPoA9z94Lm0f/gk/u/zO664x6otkG z3Kd4ZlabXTUNmMpYYqlnQ/Rycdx3SQFIPHP4cH34T5vs/Q80sENse7eiAzw QXtrAyZOjsm7gf6GS6cnUZfkj4YUeTI6IMwTGSn+qMjRo7UwQPp6QcJRtKZ7 YCTrKM7QPX2Wcxi9YfsQ4eGCgkP2eO+Jl7D82ZfwwZMvY8ULr8BqnS1s9rhg j7sXnPVRcPKPwgGfSOz3DEdyShgqxWHlTQHoIyiXL01CBblheJwVYR1paSIt bQopPbQ+ktJPUgZJyjACS0dIyShtjJTQysbJwQSJmECosMpJ2B7Nw4Il7rBb 5sTiZi9Cq7i8apzv0SrGJHoEO8Flw5JfCiqinyroU4hpQ1B6E4mpRUZpu7rH TB3ZV8K9sbNkrkdebBlWP5eLIqdefMvcZ3qyz5BJaC/W8yMw0haodxsIkBu7 EXoPDzz1p9vx1t/uxZoH7sWuJ++B83N3sKj7C46seg8nahuNpj/qIX8LSI6O Nmphppx+eb2czi7bAou/vwnnpz6B32J7Q0Uf4+eL3Jxk1DZXKG1cj+pYPzQk 6tGQGoSG7BA0FoYpkfP3GG2IRkepDvt83bHxoCs279+PdVstMP/V9/HK069i 0bzXsJROZsXL87D4uWdhvnkr3IKicCgwCi76SHITgQO+EXD0CqezCYVfYBCK c/zkzb8HvoVVLEHriUszcxGRj/RImOiIiZ6YBBCTACISVDpOm2BXT9JJ0Cqm EFJ5gijQqmjVJxFGe3OpJz5Z5g6XtQeh02dy+RSXT/HvpIRPSKVAbExySsFs P1iENDqZYIam4KwWIlOPwJQqnDhzETOZEWbseEh1MH+0qAfJiadwcfQkvro0 peKiLYOMVcH/c21c7jKVp/5G6udDyzbh5T/8Ay/edh/euec+LL3/Lnj+4364 /OteuL/zD1g8/T/41vpVnFvyHM5s34hPw3ToYWqjYUk9Qeu9OY/hEFFqf3Ku cv7mTdJPJDPirb/rZez951J4vrkNwWaOiN7rwUjog6AAD4a0OvlQydvlPTlx LI6SA9GQGcwiJlSOjOUR0t+24gB461zwieMBrD3oBBtPLxwMC4PVwUN46O4n 8eQDz+GVZ1/H4ldewYJnnsE7Tz8B99AoHAmOUqiKJFURcNZFwMk3DAe9QnHA IwRuvjloaD0pV8O3oGFojE6oBv7Fjax+6YRKuxWqhkjVCG2MoWqCNkmqpkjD CQSXnyQZtMpTpEXYaYTWnGaPh9WeZh/YeZbg/eVesF/phuNbDorFpyhTWM1J fvSEBJrwWcJ/hZQLn0a/RH8UXNCDYBZMwVmNCMqoRmZFi2GcXjvNmI1VT1uh zPUo/pN20Oh57v+VpOukrFk9vbqsrGyO8pkZMEldnMYu3nz3PBz854fwfcMc W1/4AC8/9ATeZrG0jEjE0BJfewxOSx5FsTOT1vRdTGitMM0qZfrYUlY+8/HF +pcw+tZTyNm0DGOe3phiu+pR37uWbcR2tlH30Fzl1N6bEM8gd2TZNtg/8B6O vLgJ+o93I9KeQe6ICHLeUpCbPDl2q+qkInWoSwhAfbq8t7WSRY7s1G7Flr0O sPA4jr0hoXBmxHaJJirR0XCLiYaN82G8+uZiPPXw05j3+NNYsmgxdrocwtGw KLiHEKuQSBwOjoBrUARcAsOJVxidVigdVgj8xRRlVBvScvsNg843v4xs1ZKt ZlbSnVL6I3M1yipqnN5qksFtilydJFenyNVpMiXsDCE5S6bOEp1z1yGs7hw7 6a0Vfli7whOuZoegC8ojVnVnmAwJ5kJrTkl+Tfi3kIpJtkSsRGJVxNSa6XRw biuCs+sQmFFmiqgrJ/I1Yd2L9qhz92D/7VOh0pblxmZuZkAlpSUKWJcvX5ah +qvhh5OUzGXPgwvgOW8jQlfsQpzdYSQe9kKczhdP3P8wXnt6LhYTBr0yObP8 9QfQ01WH6pIE1DLfnRDVU64L/pO1D9PJ9piOYsXkz9LbZaHBlZ1WXFk3XdnP DZm5HhvZZtG9c/HvzsYbNC7MZdlmbL3ndTg9uRq+C+0RZu6MGKfjUjTMYzSs a6lUzy4QO0uKAo8jwtUeLlbL4Wr3scLZz7EvjIEsIgoHyZjgzJWcHY4hQ/x7 hLZhtz/es/PEdrq1oxFRs3A0PAp3wD0iEkfCiVl4BA6xCdfQMLgEE7PAUHgn VEGX0g6dmEONpasKa8LUic8wdf4i/Aoq4F9UD11xG1FjYGRdpWNWLWM2Rfd1 kpidop0mHGcIyVmEVJ0jNOcJz3lCdIE40eqFXZyF8IaL9I72PpVYuNIfDp8c w3HzQ1x6HuH15yQgw+pIaO0ZyQOGKNxJyTvTq5BCxsn8DgTnNSEopxLN/cMG 7Y1GqCuXNBAzq7Z3PorQOx5D3VKz6ww9Fo7Nr+1Am6cHptN3qUga2wOgxVRB Uj0iWjt7JEfMX9O56KD9F/ShPWK2uSDR+TgSfFmK5aSiuU2+nHRDTR3MVq+U 4p87+Wl9bC7ammuVjfg1OodGxFSrVJelxhxFTyYr/NzD+Crn4BVHKI6mOraM jvBtXDZ7CSN0hF/F6XHCT4dJbrzh+GCWh6v4G6m0ixG66zSMJtEHm901D3se WYJjr1sgeB3D7O6jiD3ugxACyTArD8LfXnXCwp61KxF6wA7FMd7ISg7CDr1c gO5VWY1UWKUdprnRjkRFY+NuPd7dpccub19yGhk7C+5RMQzhbvSb4nOHoghq BP1heBhfJ16ZCVZmgfVxrfAPZ+ioaINffhVBbYKuiP6QRb+OJaCueAz64kkE FJ9EYPFpQnqGkJ5DcMV5knUBIdUXCSmt7hLhvEQCP0VYw6fXIbzxU+ad81cH Yu1qPxzaeBT60CIuvUhQBcfnJVAlSOkgQyqZCFawdmC8DSnpR0gRHWNhC7zS ChCalYmevib09NJ6mnD27InrDQn4LMOzKwWakpVvuf1RHPvLMyi74wlMzH0B p9ZvmG3ov1hYv7sHvX4kNs3eFLHaZTOI1c5pyYdA/0xC4DCTOau/v4ZDT6yA /j1raZUS9nsg0csXEUFeaGurx9iJEcMZOGJOcx9Jqn1wruLmb0ZmeYU0i5AS 54fqFA+M57jjM+FNs+lNUxw03nSR5E3Pqt40VCeOFVQPIww95ouHf3cL3rjl t5h/6x+wfbF8T4M4Diy3ZRawvf8duD2/AfpluxBpexixbt6I0vuoUVve0meu efqweLctPxNVCUE4EhSAHQEh2EWXuIfU7qerPEBynSKj4UImD0XG4nBkHNwi 40ltEBbsDsYeH3+4RyfAPSYBR2Lj4UY7HBuHQ7GxtBgpA3CLT2U52InAfHmf hiBYnrNuhT6hGWtcw+CfXwtdYSvJZYbIdE1XNEKbgL7oBMk9TRd7FkFlpLac xFZeJLWXiB1JrfuMKNIaPiOWnxPPz9kf4U2fs6sjmj+HvX8dFhLh7Wu94bnt KN/n5xpJOj2w5I4FwjV02dUi45yET14njqRUYHtgNLYHhGKHToftPu7IzwpA fiYtnZYWgLzkAOSyVBvqasJgR5OJ/V03SDOYi/78CD76/YvwuGM+Gh5+C58/ 8ypOvfwyrvCchJ0f7sdIIHlOtvxf8qydKfmrUtjKaWWglFY6zV0C3zfNEbF2 H+J3uSPRwxvRgT64ai5ErK4VYS5h+L4Qp5PTxNsMhUpZbRlGe+uQGOWOLnrg s7lu+CqXHjhDeGBrjQeeL3ngYeGBY/XYf/c9eOW3f8THf7wV62//I9bMuRNb 7nkNBx9fBZ8FtgjdylTgIFMBRoW87BSWEVXKdl3zxLDrFF0uTJ3AMaaPDj7s aF0IdgSFYxdf72Vq6Rgeg4MRcXCOiKcbTSDEiXSjSdi4NxwL94Vjn38AjsQl w01YfDIOxyfhUEIiXOMT4RIfjyPJWawh+pjwMegSTrEbRkyuB+YQ5sw2QtyC de5RsPLPgq6A+QGDs65wkPAyDS2S3W5AyRmmoucJ8EW63Ut0u58ipOYz+s7P CeFlwvgF4f2CeUGTeGj+chYiWr7k1oe3fIH5n4Rh3ScBOLTZEwFhZfzMZ5Jr DlcIDmWmcDS7BTsjMrArLBW7QpOwOyQWe4LDsZcjeo//cVTkBKIim5ZJy6Cl BaIshZYUgNJ4GvtntL1p9pWU4SYJA0ema5/c9SpsHl6OHc+uw6q7PsCRuSsQ PfdDRN71HDqfeOoKwKlwWnkAUyFH8X25l/aGGzN3QGmXmQD4NmVFRCprNucF 7H3ofXi9zFR2JVNZe6aybkxl9fIsCvPGnxlWJADriG/W3cQ3XKdeO0p7cQ8p 5Mi50s0YlfyyK/3yfsUvm8t+2XURNv7jTljc/zdsvO9uWM+9F0Fr9iNKpALH fBAa6InWtvr/gqiswyOYuvApfIvq2CNxcPALxXZ9JDGNxu7gWOwLiYdjWCIL 8CS4hKUQ0xRimoqN+6Ow+AAR1gcTy3QcTkyDK80lSVgqnBNTcCQtH6EVzAnL B5kfsswt7Vf2B/UgSOwHEvuRM1th5hGL9R5p2BvJNLeAmUEBK6WCcdoUAoro X4vPEtELCCq/hOBK4ln9OUJqvyBdX5IyWsO/Ifj8t/CuzV+RTNlmk9SvcD/s dU1YtCYM28384ecaz89cNpB6jOuxJzYfe2JysDcqC/si07EvIpnxJY7bHQnH kCA4BnohO8UP9dlBqM+ikdT69EDUpQaiNjkQ1Ym0eHkKtSpSj/G2Rum5oHQv i9qVc16G5QMfYt/zW+C+ZDf8LA8j0MkLFu9swd6nVzNCL4XtnLeQfveTGN5g pp72Lc5VOWbmjLMR7pjuL/pfUqudKrpVSSNGO0aRwJVzX2aO7ffNx9Hn1iJo iYOc/LocR7yfnPw2Mfm9cj2BYKwguvG0s4G6X1wLXebC2vlT8beyqQbD9Mox 3JCOjKM4Q6/87xwnbHnhn9jx6iOwfvEx7Hj9MQQ47UZ8kCemTo4rW3FNdKV4 IEe0x+S5wdIWQx7voI/HjsBE7A5KJr8pcAxNI7/pcBJeyD8GizcexwfOcTgQ GAZXeiPnpEw4J2fCKTkDB5My4JlXj7DqMdbUwkYRWsm0sULseBiUGJZ3OtDd kt/1x+JpGeQ3B7r8frLL0quAuUEBc4NCkRuck1xrEF1rcBW5rblM1yrY/Te5 /QphjWS16WsySWv5hsR+I/0lu63fsH8jWr/G/LURWLc2mF7WG6G5zD9Ycx3K bMD+hCLsjy/Avtg87I/JhmN0Bg5EpbDyTOC2RsMpLAROwT6Ii/NCS45yxahM WkYQmslvE/ltJL/isFXxL9F1P46uWS893/KP97H7qQ1we387fDa7InCfJ4I9 fRjck1HfIt8Up7epCy6rnbBozodwnvMqSv7xGC43NkrvvXfP+9BvdcWlGAFv vjF4jR2N/6drw3ujwTFeycrV8l1vHwP3x81w+EnmxAtsELXlIBIcjyHR2xdh QZIvxOjU8M2GWY5WfEiOg2nd8+aqZzZqL7ZjbA5XDuk/hb2VNZa89So+fP5x WL7+FHa++yTs334YZs/PQXdT9a2m0ZWd/u+llv3ELrNi2Vv4l3bhWFaTQnAK s900ZrsZ2BuaQW+UBcfIbKze4493Nwbg/QNx2HaMdfE2fyz3ycO6gFxYRRZi T1KzmHOcwr8QVjNJm2CRPi6BHFIp9oMMy/tei+mICfD640m0LAKcR8fXCF0e 84J8AS/zgiLmBSXnFXg/VeCVnW5ovYD3a4RJ4BLY5m8J7beElX9b5b8C34i2 bySA7fXNWLRWOGCd5IAdk8pwIKkUBxKL4ZhQCMf4fByIzcHBmAw4xTB4RDO/ YfnpEhEKl1BfJMZ7oZ0AdwgTl/OiE+4gxO1MF9I8HOGxaYMk24Z73saOx9ZI z73MnKDfdQxBHj7IykhFY2udYX/KrmXOWDZnEXznvIQ6lkWfNzdiwX0fI8Lm MC7Hu2G6N8dwJJH2SARj86kziNUen6beAnCmPzQwbJSvG7BveQPaAwcQv5tZ MKO5yII72qSSyXDzlAVzHsVxMQ//xFzDPoj/xq96tmNjdS2e+Pu9+NfDD2PN K89g98Inse3N++BkscxwRu814JV/Sj5IX+zBExOc4p+8f3dQeh5QOsZ0gO4p qgyW+ixs0udiiVc+5luE4701gXhnbzzs9oXA3twXZiE1XNWtke24E1sj2rEl rA074nvgkjGA8LoTEsuC5NDqCWmPntg/LI4sEEcNrD+egg2e2dhwvIAEF0GX O0qCJ6+mlylDEFOGYEPKoLpdQe83Mr0tV6hV/zLJbfuWYksEtwkXHEkXHIRD W7xwKCwbB5PLGCpKcDCxCE6k1zkuh5YF11imQbGJOBTDkjQqFK5hfkhO8EJ3 bhB6coNmoYcIXw+vrRvg8MYirLn7ddg9shJOr1kp84fXIdjNB3p/T2SH+6Kj qfJGxem8N2cZNsx5F9F3PYuBtWZY9NBaJO5gIE08JM5k/akRNI3N1M7AVYuH mqTOmKa7NqnXwcvzJNLKT6OiqQ1VjaXq9Uvfm/M4DhLO+ofmGvZjqFfz0l5h 6SfKe4119Xj0/gexcN4z2Pr+kzjisEo5/OqaVzr4tQKimAKVvGdRA2Fsl2Es GZT24Ih/gaVi780JOKYOYEN4GzZFdGBTZAfWelXio7WB2LQ1DPaWwbDZHcst tYjpIogW0V2wiKJFdsI8ghbaga1B7fAunmBNfpJAyrtyQiQgRySXuv54KmHM xUbPQgJZTHfaSiAJY/4pwnhWLrEkGD8jjJclGEMIY+h/gXGWhOCdiGhX3ClN uNMPVuvgtNoVHvuC4JRSxvylhDl3EZwTCuCSkAvXhCwcik/D4bgkuMXG4HB0 GA5H+iEtyQd9+cHwttgA+zffx6o5r8DqwY/g+JI5ji7bC3+rIwhy8UKgrzfy YnWoTPZDZ7IeHQk6tEX54/NT6n1Rf8ow2s2u/gj2c95E5j1PYsmjm5G1zx3f pDDAtyWaQlI7U6sgqR4Or52p/cUM9q7Fo3rlgF3LNsFOHKz1j7k4n6C7WUO0 5pJU6jxrR20nfNYcwL9DHTHdnvYbhbhrXMxA9ry/RcPgqEJcCwvpLoW4YWnC XfzzyBnDhpA2bAwXpHViM0naEtONrbE9MPOrwwa3ImxxL4RlXC+2xfXOxrbY XvwFljE9sIzuIXTdsAjvgnlIJ3bG9BK40/SCJ68AVzaswJZH2Ir4twQ2+hro r4LtAgKvgu1LDWxfKXFbJJxfs25igL4H4XRyEVfZVwioPQun1Eq8u8Ib9h/t Rdj6HXALy5JYcyFrrokFtFwcSszC4YR0uCWQtbhYHIkNww6vw1j98nx8zBBr ft8i7H12E458sAu+5ocQeMATQd7MSyO8WUsFyFdbzKZlBaA7XVxcT4euRH90 RPtpePsJS5BkLJ7zAVyZa378pCWKnY/iP6lO6pF6xvZ8auejruLsJ1fNrwoT r1ne3/T/iJy6QylXlPQRul8bclNlClf9vLqnX5xI/lnQQXyV7ohfmSZOdqc3 wzenWKassI3E9cg4F8tTOFLaI9HWSdq6sZkIbSE25rF9sIjrg2V8/yxsSxC7 Jq0SBmCVOCD9ncXHfm6DVXw/Iewjg/xodC8sI0lgaDd28rUgL1Tsua6alI6i We9B6o4L6kpopXxeKlNXcIqrcpZx//wM6oSLY7bYwBK9kXGXBXqYWp63fiVK dkJ2t4RaRNu/+erf0t8jea1wTqvAZtcEfLz0ILxWOiB8rxtciJ1rUjEOJRXS 8uCWlIUjienYqQ/FJmd3zF9hiYUfW2DnEywE3nOA90YXBOw9juDjPkii68tn CT9cHIKhohAMFioX+xSXP80NRG82MczQoTfVH90CvRjfG5XgtGuZE5bPWYg1 z9ui2u0ovkvbj/8lcmIGyd/f33CdGOXMrBuUt2cEXlMB+Ap98q6iJNq5YJ16 lIb2KlJq6WU3fyfO+zvju4ClSqi/wXDPDiPwyeuukqwr6CB6fbRhw47O9cGt 2BhG7CKIXVQvseuHedwALOIHid0gqRvGNi7bFtsPqzhiaE3Y/gZrgmedPATr pCFYCSOO2+IHpI9ZshmL8G6YB7axShb4nZCc3oHYWmxgkbKRkXXj8TI6vTLo slmo5J8kemcQUKKiJ1I94lfLdK+OlXYDU75GWhMRbP6S6NFaxTGc4W1fsgbz Kh2AS1qZZK6095e5YP5CM7y/cBne+2Al3l2yClucvOGWnAdLZw8sWm2PhWsc sXyDKz6xOgyzHa7Q7/BA0FEfpEToUJymx1hZ+Cw+hFGhUXGl0dJQ6RKrQ9Il VoOly8v20+H154hLYNJIXE+iIDNFvbW6uJrue3PexsZXtqP5uNjrudtAnLE9 8dqiWiHut4bOU09sEewpvIl98jcZPnBlz5Z0qNdsA3I/OAhx7f1LUTxvK0aX Lb7FCGiqhzOfZ4spL1dMh69Vvm4aNDkXfRL1fQPwy6mEf34zeeuiDUBfOAL3 zEGYBTXRzbVjEyPj5kiyFt3PgDpEFzcMy4RRBtMRWEaQtSiyFk0fFzsAa7Jo Q7hsEoX1wyaF0KWOwjplhPCRzQQyGtcv+z26z52x3YTupHQI2IHYOvq7XEJ3 Bbh9kXS/eQSu8AyD/TkEll0gcJcIHKGr+YzA0eo/J3C0pssEjtZCa71M6C7P JnOX2TEBtSfgksoImlYqmStt/iZ7vLBgFT5YtBJrlq/CshWrsHzVRqxavQNb 6casbL2xYW8QNh8KxFZPfziyPihJDURzfsAsTFREzOZDuDiBXbms7WiZfLnf IXEJYEI3UBiEAUI3QOgGMnWEzg89zAQvn5mESl2sZzQs5+9Ct4/Ya+mAM3qd wXeot0ER5M29NnW3GK8gjF37/+4fX2yoB1zn0gm4vpuHs/41mM6OxhcnR2CM Q3XH57pntmDAnRxGbTHs7jLFoexT/4CG/iFyWM2+Zgqf300OWU4UkJvwVmwI asFGlgObInro88hgzBC2xpG/+HGWDMPM3shj1AisYvh5LrdOGINNEi15FLYp 4jhm29QREm+bNgKbtAnyOCbxaJU4KMVhy2hmf6yBXdL76fympJmb9UdzyGGh FG+vcHiC68W4W8y4W8bSooIsVpHFGlrtp+SQ1vApWfyMHH4mC/oHYvgZKZTN u5RldmoRGSwmg8X45OBRPLNkDV5auA4LP1qLj1auxZp1ZrDcth97XMKxxysO W71pAVHYEx3BsjcITUWhmKyMwGRVBPtyio+/lJ5PiusC08TllcfKpctOY1C6 HLWGxWyymOGP/jRfjJanXEnyErB90T4M6T2kq7WV3/covmhsVOcuROfNnJdQ LxJtbELx1v/vybwOA21n4bjvBIYaTuOz8YHfGYHScDediCK0uoizUqyUJo1D qd69Rd7z/zga+obhl1XLmlJ0fg9tCPviOrA+oAEbgpn/hQnH2E/HSCBjR+kY J2Aeyb8RhDN6nNF1gsneJKwTpwgjLXWKENLSaRmTsMuYgF3mGP8S1vRJCUyr ZAVMFiiWUR1MDJvhVThMMMdhqy8lmAXY4FHCcqRUrndzJgklHWQxI3Ipy5Dy c3SQ5+kgLxDKi4SS1nCJUNKaLhHMS7PoIS8pVykIa70kmXMKS9iUQsJZKAEq g7keryzfgMWrN2HVFgtstNkGix3bsDMqHTZRySxJknE0PR4eqVFwTwomhJGY qo7ECdpsnKiJ5EO1uKSyuDa1uGK1uND3SIW4oLC4qrVCZgGpzBMXsdVhIMsP feneuHx2UvGCPyeaKXBcfgCTwR74LnY9Aua8gNrHnpSmNow4FJUY7S4SYzOI Pw5R7cSiMUSnZ5y3NDjxNbpGP8fZz782eidh9bJmCYEFqJCu6WiP8+0lRiGU D5haIEOYWSudta3L7aUNw8y/CusDGwlhOyHsxeaIIUI4ygJkAhYxkzCPEJ5x EpaxJ5jqnWTkPUX4aGmnCR4t8zTssk7BLvsk7QTscqZgz9TONosQSiCOE8Rh qV6xjOkk0M3YEd/KSD0Bz9xOrD+STxCLsP5YCfaGN8M/e1z2jkX0jiWnEVB+ BoGVZ+kdz9E70urOE8QLBPECQaQ10ZovkMMLMoX861XcSaLyWHHkk0RhBVh9 wB1PL92IV1ZuwnISuGWHNdbtsMIn263wgfV2HM1IpyXDIz0OR9MikZcfLhNY E4mTtZE4VSv/nSU9+5X0XLq+dw3dZbW4onU4RgnlcAVdZZkCZVGQAiVdZa4/ wfTBub46BcgbCWQGjqx1wmTIEbhv3IANy1Zjy5q1cDEzM/SdmpX98I6fV5cv P45C7eL/B0cpnyH/sx9cNUl4PjcHPbIdxDmcO1HpscWw4n9XPV8vocsgdFmE LrsXe6ObYeZXg/X6ZkLH8iOsn55vBFuj6fFip+j1aFEnCN8ppnhnWGOcYYg9 S692jrDRss4RNFruOdjnnoV93hnaKT4ngLn0jJmElB7RiqmiVZIIy930fq0E uQ6hdeM0Qn8ol+AVMkUswt6wRvhnjsI/V3i/E/R+JxmSTxG80wisOoOg6jP0 fmcJ3lmCR2s4h5DGc7NI3jll50Bo8zkcyayEc1IuuculeIK+n+PJpfR6n2zB ShsrmO22wjLbrfjA1g7bfPxwNDONRq+XEQ/3NMFR1CwCxYdTdVFi7kFcCb1O NrEsUrqevLhAtbjqdwTG6AiHq8IwWCEuSU/WSuRbQAwU0gEW0AHm+aE3y8uw z0R0ldVqO2wx2wTbzRsR5bIbHz63HDsfmo/ce56Q0kXtjJ964W1jV5E3zZp6 uJJ2IvCeH8+afKbgTw2sqffYM19ijxjpuid7Md2SKF926o9o6CFeabXSNSh0 Wb1Y51UCM99a4sXqNribeA0Sr1HiRV8WexJbI07CPOY0M76z2JZ0DlYp5+mn LhCbC7DNvkD/Rcuj5V+AfcH5WXw4x4TPvoCUMWGzzT5FuugK02S3ti2BSV9s O2llkMjtIB3DOJbfBrPDBTBzL8CekAbSPyK5Nf98ElY4Rbd2goSdQGDFSRJ2 CkE1pxHEajm4XtgZtnFGPVIxtIkvaU4JWXBOzIZTUjYpy5kFp+Qc5mqf2B6G tb0jljhYY6GDDd62scdKp0M4kpUB9ywClpVEwOKQVyicVRQxisap+uhZpEtc efsMH880CJOvHC+YO1lPxkjbBDkbqwnHCDkbpF8bMHBGxorFxaLp0wqZ/uV5 y734S6N50PL3ViFwmzM+j3MTtzGQdt19OGcx3Oe8ggo5NdTuW1bjqrFLt9w6 szRWnZp2JvDKyVdX6mL1DofqfXTFD4i5Y7918gVdpttTlauY/R6TZy7AL6UG /ultOBLfgnWepdKs73p9G4uHXhYPQwyRY8TpBMzjTmFr5GlidZZF7DlsSz5P Li7AmijZECXb3IuwzbtIlC4So8ILdKP2RaSq6JxsrEPt6Lis6bCs0iewjXXE tiRGyQRGyfhGNltBRzNMHHph7VeCdYfzcJi1g18q6xvJYY3Bv2BcPpSxdJIO a4qRklhVnSBSNNbCwXW0+pMSTSENJ2exwZP4HZziMohUpoSVUyItOQsOgVHY stEJ2fpAxCaFYD3r1O0RUXDLZJDKSidPqSzlExGRG4MT5OikzBLBkSGajTON 0dzEM41RElDCxFX0TxCoyToGSAI1QqCGqglTpbiMu3LrAXGF/FLCVKJDd64X 2ioyjZZ3on8WPvgJ4hzc8GXiYUz3yFiI+b1VcxYgiNlc48Nzf6qhSc3ajF11 RqFJvfmd9uCw9zW8qB8X5rJ0Hz4POojpzkzlTqBz4ZdUBf/UVuwNqca642Uw 82nAel27xMqmkGGyMo6tUQor0WfZsedgmXSB0YmWcRHWWZdgk3OJnNAKLsGu 8BLhoBVfhH0JYSmmlRAWFop2+af5efoe5vrbGN22pQzAMrkLFklNME+opKMg LI29CG5oxVqnbPjG9HL9BuGXTheZPQK/PEJTOAZd8TiBGScwEwRmksBMMspN iusB1E5RmOC6Kaj/jufW42BsKg7Gp+NgAi0xXTrGZqWtCzx3eyIyJBgesUFw YfrkmpmOwyTFjXYkKwVHGNpaKqIlWlRSpHsqNIrL1p/l42+leyucVe6zIMiR iGkQl7qPxDipGakVxIRjoEpxQRXiTlABSAt1xjEnW1iZb4K7y34161CPtf/w nxuRsecIvk5mZtyRLC2Vd3ctg/mct5F419MYMjNTYVGPPxWvHpwBkAaWGwyz bD+SGId35Ft8fKv7UCFmPlJLO+CX3Iy9wSTGoxxm3iTGn8QE0LsIYsJJTDRz oDgGqxgSQ89imXwB29IuwirzEqyzSUwuacmnkRa7YkELrUQYqSklMaXnaWf5 mVNXiEmje0kjMakkJrUZ5skkpnkQwU3dCGpo4fgug3d4N3ziB+CbMgRfRi1f iRpGr8IRUjMqnVMXUE6rGCc1tGoaq8kgYUzog+omcCynFgdiknEgLgUHElJx IDEVNgGRWLv+ILyO6BAYE4jDqXEkJk0i5pBETBr9TBKay2MYfOhbSMuphhjS EiNuZRIjgRIjw9KsmHIjidOE5gRtsoHAEJoRQjNEN9NN15IWfggO1lthZbEZ 8QEHUJ3ugY4CL5wfqVcvHbHsCXMUHHTHt6lO+G6qfZYyLyBYeX/OEuyd8zry /v44zgRcyY7EdIWaAEuxa/a1UhnDdfc9dTi+xQtxL9li2CXwN9cmTEnX1EY0 f9UDR7RTHSp22txMmMXLdvLNUMI+UbB7Bw2dE/BLaMKegCqsc6ejOl7PwEbs 9MQueAibwsfkHCnuBLYyoFkkErsUYkcnZUUnZU0nZZP3KWwKPoVt0afEjiaQ KxVG7MqIXdk5CTubPKbg2VPEdZzfH4ZlBqNaOrFLJ3aplXAqrkNwcxf2ZFYg vKYDQfk9WLq/HEtd6rD0SDOWHW3BJn0HdkT3YEdMD/yLiZ84pbNshOjRKkcR UDVK/Gg1tNpReGRX4UB0IhzjkuAYnwzHhBSsdfWHpc1x+OkC4ZMYioPpaXCm o3LJlJ3VoYwUhGTHMDzJTuqkcFACO3FjA4k34ne2OYap0jlxswgFPQk7msBO 3OulvSgA4b774WBjLqMW5IyOUqbh1Yxu1eIa5oxuFX44P1qvVnOrn7VG5WGx M8pRSWOuN6RGHnNeRtX9TI2aGjEzNxIORp3wnTF7oGSMMnfiwPw8UheybAO8 //E8Up54AwlvOqNzXzm+T0rW3ktGja3yrbSuddMiU/hpy1BhZs+aY0hcuSVq k3JB0zfhF9eI3f6VWOdWinXH6hgn2xgne7AxaJAp+ii2RI0TvSlsjWc+xbTc IvU80WGMzCZ+9HY29HY2hQK9SxJ2dsTOrozolTNVLz9PY0VYxkoxh9hl09tl jcIya4jWD4usTphnNmFtfCk+DsvFqvACrArNhVd+O7zy2uEc14AVewuw8mAJ VrjV4uNjLfjYswUrvGjeLTAP7qB3GpARLKdJCNKqaDUjOJpdif3RCdgfm4j9 RG8/0Xt/nTOcXfyhjwyEa0o8DqSlwSk9XcYvPRX1ZbEs46Ilb3eiPoboxeCU 6u2YSin3JhHwzZLgu1l6PkXvlh/jjmh/R+ywNYe15WYkhbigS1zeg6FyoFa5 YYF6+fxqolflj/Nj9epkp9gTtH6ePRo9xJ6pPepiERnXMI0KmfM8Gh8xmkZd +1K5v7xqWQrBq6K53PM0ov/5CgrnLUbDR+vQbW6Nof17UeiWg9a80/hyeNwE iD9iH/5vlHUXaaKYxBPhmGF5wTW4PLTVA+2uYqpsm8LlXUgt6MFunwqsc2WC 7V4LM69WrPfrxobAfub6w3LpGDvB/IpuMYluMe083RndIvN7K+b21gWCS0Zi RmBbcmlLV2hXJpi8wqVNEd1hzgSscsb4PbrD7AFYZPfCLLkRi0KL8aZ/Jj4M zsaayAJYxBVzU30L2lnJ+JLNQ2Rz1a4crN5fiNXOJVjtVolVR2uximyuIpur aRYh5JOc6+gedWRTTy715NI9qxL7ohKwj1zui0vGJ86+2GR5DF6+AfCMZ1Wd kgZHcnkgjTldahpqSmMxWh3N0i+aLpGwqVw2KS6xWbrfyyyJzN/wrUgUxrpj Jzm0IYdujraoSPHEIFO1cb43wmg8RF4H65QbaYjbOtQp9xaoJZfVdInj9Vdu TBGBrW/sQoe34HKHutdIztqWYhuztuS7n8KwmZkhEqszs+KV7Plu+YFX7KyV D8/dOedxBD7wIjKfeQfVC1aiY705BnbsxIibE0Z07uiL9EJ9vDdO9jSge+oy Ln7xtSHV04Kk0Ck7yCt3+ZB//Irr1OyqXaD45Jk4JgYVoGq/q3R5n29GmuRA vRqTpz7DLlYSaw8Ws+SrobdsprfsZAUq8sMBVhTD2BJDKuNJZRIri1R6y0x6 y2xaHqvP/1ved4fHVV3fricISSCEFIqTUEKQKYEAoYOpoSShGkwHG+OKe8EG 994kW7as3mc06r33YvUy6rLVZcmyLckFY1qAvPcLfuvce8/4aHwlm7w/n75v jzRXM/ecu/Y6e+/T9imgsJu5jD2H5exBLBdsLD2F5WVCPiND2YvINdiY04/F Ob1YlNuF18NL8UJwPl4MzsGLQRmYYsvDjKgCuGfXOdJ/BtJiBpKVgTmtWOy+ D9PX52P6pgJM316Mae6lmOZZg2ledZjm20RpJDNbEEBGBpCRAVX9tKIVWBeZ gHV01Otik/HS9C3YsMkf/uEh7IcmYH1ymsZK/4wkVBTH4GBlFA5VS0bSWpKN w/UjGTmo0HD5kvnIinDHgcIg9jfDcYzeeqiBwSE99eF6UrJOnOsSgR67cdxF nTh2gZS0i/xZpGS1RknHxNDH7yzC8lfXoyeAnEz9WK53FAuZJjE63MTosIDR 4Td1Z8/vVsdp9dtcoREiiwYx9L3Z2HvrY0h84B/atcYpc9D58Sfo27oR/T47 0RvuhZY4XxwoSUF/hx1DxwYcZ8qrMZ7BQTlRqlJeHrSqDr5NMgio5rQREuuX g9yVYuR2FX6oidRN4k3wjbRj+oZCzNjODopHA01iK2YFtLFL24U5NhIwqk+b M12YOICFKUNYlHGCJu0kyXcSSwsohZ/h42KaPXZbl5WyEyKk7ATfszOSe5ju nF3XXJrBXJ14b0SU4aXQQko+JQcvhaRjZkwRliaUiNyyRQzKgwr4EkziPagl JvSIrcPS3SVsIgWsJcWdtfUgHfdWYJof6effqM3C+tFJ+5F2nkUtWGNLwJrI REzZ5Itp8/Zgt2cw9sSEY018GiUVsZlx7DNEoqs8ihaMgR1pd1ih3UB1JDr2 hSImYLNu8Ui1TFLtCL2udghWk34Y1ommaJ12jU60o/TUK6d91IskXKRdHWlX 64/PSLuLDUs2863Xcf+4azHzkUmInvEeChf/HevemCTpJwLFd1xfh5fr31A1 RqAofXMSqVcudtyNf1jjSt6Tk1D7pr7Mvnf9WvTv2aH93R7tg7I4bxylCWxq rZQLOtVOrcP6nVHXnDiNwY3KN5G5evE2/E/kOnFuls63WzF44gtMW5lHQ1KB GW51mOHZjJl++zEruAMfWbowN7KHBq+XBq+PBq+fBm+ABm+I/DmGJezgLi0k r4opgl8llFJK4VFyrJ9cY6c3l2FgLl1uXhfejCzFS2HkWlgBJQ8v0+2+HJyO WdGFWvpUkTo1WEhhK0Jo8ELySbyQPPGS24o/YndCPZb6MIR1J+t2FWDmbopn sTb0M8OnGgttLdie0wUfsm6VJQGrwhPx3JTNWLnaD15BofCPCUNESiyaCm1o 3RdhMC7SwbjeigjkRHrAx221Ft8tWzwfGeHuZF8EjjfFMjzUX2JoVY7z9bjK Nhq6AcE2Sm892SbOlmmw6keeNIhMXjrbusk2uRVm1luT8MAN1+KJcTdi0p/+ jKX334GF996Eqbddi2Rvj0uMSEoEhzNdJyJ8/GNIeX+KdtaEZbcHmqqqDCt0 CWr3lWPDkmWwvP8RAu54AukPv4iKlyfLFWj9blvQH+CB7ghv3WSZndNm0Eue I6gOsUhSqZGiTqo4BInM3LaNONOSqueqvRpuoTQFa0oxfUstpu9qwgzv/ZgZ QC8a2q5Pc0Z1YX5sNxYk9GBhci8N2UF2T+kNswfoEekZ82io8gc0Ei3JPkhP 2cu/e12wOK8bl5NLnXgzooT8ycfLlgJKPl6x5OKV0Cy8EZYJj7wGBO8TqVcP IKSoDaGFbSLRZqFYSCD+DivgtfwDCM3b74INEdX4PabvIaX2CqEx21OIhSE1 2MvexvKgeLy1yhsrXlmOwm078D9JS1CXbUVDXjgaBY2KI9BWGqmdvJlm26X1 QkW3wH/XGpQme+NghY0+kH6TcqyR0dvxxpiLNPJcodOHMmz4ySOCQg2R6Gtg 2NZo085zET+OM10aSaH6QHTV+hmxz2Vatrz7r78WD4y7Ac/8fjzeveNurHj8 r1j18HgsuPsGTL9jHA7S+tRTdNpd4wjqnrr6FvztN1fj9WuuwUu8x2vX/wFr jSN30vn5YDrMXbdMQNx9zyH0zSlYOXMWmhcvQ9/mDTjk7Y5e617sj/VBOx3m AK3WseOHoR43J4PD8/Jq5D4h2ddwe3+DlmL8zP4MIwnyTUilNlfvqcK0tdUM exqotlbMZHg2K4jkCiO5bO2YG9WBeXGdmJ/QyU5DFxalUFLZEU2niLGQzG6j Y8rrOZ20Tp30hB1YmNeON21F9IK5OqusQsgsWqpXQrPpdUvJqnaE7OtASLGR wPUisR3MRcuLcQMsxV2UTm2bbpjYpiu2ORpbdbWUrRn6rvLgeC1dK4622bUl 3uXvzsV/QlbiaPpW1GVZUJ8bjtpcC+JDd+LTpcawRvAO1GQGoLMkHAP0ikfs 9I70jIMMyATBXEijmIsFx3Cfwiq6T41ZkTjUSGY1kllNZFaTwaxmi3YcS09j MA1UIAbaUzWg5QDG3BvuxEO/vQFP/+5mvHXz7Xj7jrsw9/bxWHufK1Y9diM+ uvd3+N/LH8W/5jyMzyc/gMGX70P7U/eieMK9OB0eiLTJU7D4D7dgJmXyNX/A 5Buvw7Tx12LuTePgecf9yHlsIqpf/xAH5ixG75o16PfYBtvaFYh1W4eqeG8M kVUHDlTffH5SqSMjY5Fq1cS1OB20Dd/7vWGQ6koMHv8S/rHNWO1Zjw83MIBx a2Es3YoZmhsksSxtJFYb5ka3Y15sO+bHt2NBIiWZktqOhWmUdEomJavdBQtz 2mmlFuS2YWZaHV4OyaKlyjM4VcjfheRTPt4gz4JLusinboQW6/lfXbQsi66w lBw0snXqYi07CKvI/1raq+WAtcj8rzL3a16bI29BSAqtX7wdCSER2H7vWzix dhn+HfcxiqJ84ee+nmH6AixeOA+R/tvQkG9BR1kkuhl3HTS84CHGXRrDyK6j 9RrDXATFLhIMc9F4dbXGLGGzBhv14y8PNTHIovQ2k13NDLJarAbDyK6mIASu mIXsLeu1KMh29zPIffIN1L49E8/ceAdeuONevP/Qg3j5z3fp4fQ4zHrkOvwn aRZ+iPsQZyLfx5nQN3HGn305z+fxw/Zn8Z91T+J/L3sU33z0ME699wA+vuOP WPHXW7Dh4VuR8t6r6Nu+Gf1+u9Bj80IjY/qWkmTsbyjFylUrhcuTx92p7uya /45QS579FMd8yUnrVGPy4vdILeiBf1w73GwdmLqpAR+6k1B7BaForYL301Id wEe2A5gTdQBzYw5gXnwb5iW0YX4SJZWS3oYFGfydeQDzsyk5/AxtyEtBabRO WUbsVOTCl2L8HO/bSrApo1FPDaukhbUIKR0geQZYXWv5wEWwVgyIvw7hOl7t P5tSWNBP7MvOp9EijUIzmkgjOz54bz1CJs9G2PJ5WLVoLhbPnwfr3q2oSAtB fX64Fkjt1wKpCC2Q6qkgjarEuCxpRAqJs2oVGrEWg9oA25DoOWq2KVq7Fo3b tQDqCNk0IM6jbCabyKTeFsEkIRaNGN4TX4HnbY8h4f7nse/599AwdR46lq/A Qaq7z38XPGfPwHMPPYxXHnsQL979V7x53z345LZnkOD6kPb9qMgNKEragMb0 dejNXI3hrE/xedYy/CtjEf6dNm8E5dY8fTvWP3cftr54Hza9fDeK4vbiMO3R ieNHHIss5EFRZ1fcjMkpdRXaayY2Td72o8cW6cehRc4xODVenGQDP/LFP7Eb bgyfPtjcgKk7W/Dh3hZMJ69mBLGfaGnFbNt+fBS1H3Ni9mNuPCWRkkJJ3Y95 6ZQM/p3VirnZrXgvtgQvMf5+id5Nj8mL2f8rxYdRVVie1EBC9SNU5BcW2WNL jpAuR0iboyQQpWKQNQ2vHGRcLtJ/hlce5W+KI4OskT3WyBwrMjUGZzM+D0jA 3PmLMWvGbGyfNx/tfotRHumvbaOvSwsz/J+VwVU4Wopt7I1HaBaqq4L0ooU6 KA6drYnS6DVg1yjmgiPa3PdRvh5tUEWPqYR9Eqw61ByJgy0RKIjejvjVc7HK 9UGE/OUpjRmVk6ahlV6oe81a9HlsR1/IHnSwR1aZoPfIctMScc9Nt+DRO2/H P+//C16583m8wRhqo+s/te93TJ0lQ7KsyhLYm8vQ0VaG1bNehff2uchO2IDs gHn45KUH8CkJteSfd2HXgnccHUd1laM83FEdsXIikjrmoJ2nqeR3GTk1Iekl V2u4L/TCATcx7LXYmJh3RXJ2L/xiuuDPKNw/qw+rLe34gFH7VK9mduZJr+AW zLC0YFYEJZoUi23FRwmUJEoKJZWS3oLZDG9mU8Uv+CdqY1gvhuRSijAprAwf xdXho5g67GFXMKT4CO3UUVJqkPQYIp2GSZdhUucYKXSMrKo+5gJbDV9E7s/r tC2jgmnWCvHFg9hhycSCpSswb+FSbPGJxrSZG7Fi8loErlmPIwnbUBMdBHtC COwpYbBrRwcyYKe5ajbMlThSu6Pc4FSVzqk+mixxmPEhu84rF+2E6Cv5KkYR zsoACSVCqbBV8+D5ykTsuHkCou95DgXPvKUB37Z4OXo3b9S791YvtNL7tJXq I0qDwwNSDwF+vnjgnj9j8dwPHImDt7s+h0zX+3HUN9Do1/0MQR5euI+8e/jW e/DukxOw/NUJmPX0HZj61K3obKoxG/e6WeGPHLMy+DPOZHzqBRNOuZgwSR41 I3cveyyJQ826KPwQ74OvKoslmVJyD8E3joRK7dMnsPP7sZoR+QdejZga0IQP Q0gqazOmRzRjRlQzZjLwmpnQjFmJ/J1CSaWkN2FyQiVe8EvCCwGZeCd8H6ZG VpJ4gkQN2J3XpyeW3TdEEg3DUnaMtuY4+XGCBKJoCUBPkkInL4at9iSu5+sJ WEihwIJObPCJwYJlqzBv0TJsDU5BsMhOzODLLbwE7722FruXbkOI+wZ0HGhD lS0QNTHBqE0KRS3Nk53mSTvbs4B0KhJ0sp2lU6VOJ3Eu9kGaqL7aKBftrPHL ySqypk6XIpsbYlbMR8Arr2mzg8kPvojSl6agacYCdK5YhT63regL2A15lHVH W41DCWpShMmub2oLuXLH34cva+sdQwEz3n4f99x+H954+jEsmDQBrz1xOxKs PnJrprq8UB6XLKgjRwGcqKIOLZlRRR2Kl4MJkiK71rZhn3UY/+k4hG+HuvRl ZX9EMnv3PvF98Enrh69c41DUD/fMHqxJ7MCUwEZMCaP9sZEukZSYJkyL4+8E XkukJDVhblIp3g7JoD0qxuyYSsyKsWN2dAM8cvoQXKwn7gzbd5z2RU/aaTWS doZXn6Jpqf2cL/bPca+W8NBSfRzuvM9KtwAsXLYGyzZ6YE9SNUJKDwtTZGSH Fe6vH1MX+uCTaW4I3rILXl5b4R/lg9TY3QhaPwchG+cieOt8BG1fgEi/NciI 2KGdAdtMN9ZaQldWpvNEHEPfrXEl0sGVg6RJsdUNyZ/Ox7rxD8Fy19PIfnwS qt+cgf3zl6Jn/XotJDgY6om2WF+UxDOwLQ1CfU0Q2lpC0duVYez3voS9t05N KR+6vgEvdi8LSZCvauvlTLfo3L3+wHTsmjsTqZveRlNjrbGlceQqQLOj0EeQ Y+RZhL29vc8bFXCavZa/XUxuKEOe7q7vEVV2CsdOf20s85+I5Pwj8BY8SSVP Mvvhl6uvhdEWJJQas8EV+izwKva9guv4dz2lkdeb+jHDmoyZEXmYFVVKqabU kR+9CBbJ24qGaT5O0HycpPk4BUvF5+THaer7C4TX6rkybXUimdtJcqMEC5ev wTya9tUeYfBMqaMtGdbytNnsp0inz2huTmiZhP0LO7E1rhDvvLUVuz7dizCv Pdga4IW1vh4ozw1BgvtyRG6Yi6jN8xBFrkRtn49w90Ww7FmKpKC1qEj307lC m9Iu+EKudJIrYcvnY+9Lr8LjlkcRd98/UPz3d1E/ZQ46Pv4UB7cx+vXVOzvN 8b6ozvJHdUmQC9r2WwltW6sF+wVFujP1ZLJ6A9Z5MtF1Kma5voYA1yew7+Z7 8ZW9/mzet0gseHENOgI88UPSossVishQxdXp2igUET8LFy4UduR5xWhIipxR 84U68eNhw63Utp6CF7ngTS74ZJEPtBl+BbQdDFEDyIUA8iCwilJDsVPIg8AG XicXZlhSMdNWSC6UY2lcA3ZldyOo6DA5MKTnTd130pF90lr5JTnwlZZ9Moz2 wj26nLpfS91/gm3hBXRnvYho+MaFL1/jL3w1UvbVf6GZErFIYUdKBdZHZWLG 2iB8PNMTQTv8ERDsg02hIdgY6Al7njhkPhTpbssRv3EeErbMRwKpEL9tARJo OmJ3LkI06ZAetA7hG3Zg38r1WOH6AALveBLpj7yCiolT0TJ7EbpWr0Hfrm3o C9qNToaq1Qk+aN4XiqJCfxxooWtix2l/azhaW60UC1pawtDTnWVMUkn1f4B5 rhMR6voYym65F1/W1TsSqHklYs07m3DY6okzvftkmid5PJw+Hnce9evdaGEh vvnmG8N9XLjuJ2ivt6G2/TT20ld40Vd4M5zwpa/wJdB+5dR/JYXt37+W76l3 P9oAX+p+emgGpluKsD6pXt8Ka2QWCy4UuXJPsFtzijo/jRC2f+/0dmzwTWZM IPVcqOk+ouE7RDQK+VbL2qj9bvwX5RuH4r3y27QETPpT3QSLXwDUn2Yqu4XK bskORc6O5Uhh20+hslOo7BQqO2XHAqRSPnl7FXZN2IXu+f6ofWcW2hYuQ++m DejzckevRYyz+iInZg/sRSGorgjFgcYI7G+KQAt7yc1UdhOV3dxi5W92nZot 6KSi5eETsV5peNV1Cpa4vgyb6wS0Tp6Fs1pOh8fMbTgZvRtnegpkMiR1m8lN yjXZsb36XC3LwZLnHTqVDkfVt9Tv49q7a1HTeRoJNUPwZHv2om33Ynv2pl33 Znv2pm69qVsvSnJzL9xTShGY24TAvHZKL4LyBhCUT1teeAyB+UPYbinGp9sC sWSNG5Zt2IPdjBNCyunz676lrr6DreF7ttvG7/FnLbVhRNN3hki1fo2dWfXY kliMLQmF2EK1ip/Fs/2030HWUOyIjMYOmwXbw3z1aJ+qFdmJ2nNCUeG/CRkM A9K3zWfbXoC0nQuQTpn6eDRClnbiJCl8MjNDm4NpoJkuS/NDaV4QWmqoRnsE muso9RH0xxFobLKhodnmgvrmcOJb32xFXZMFbV1ZRmqfS7HmPXdMcn0fn7q+ iBjXh3Fgsj44NfGWSQhd4o6vEneJVdpXKG1Uhn4XoFF1qEIOf6mT4E8Z/Knq PY3qPkr/aRw5/Z1OqytR19nDrmQlArNFIp8Oiuha9mJbUC7mL12NuQuXY+WO UOxiRB9Swsi95hua3H9pyShFtouIhu+1ZJRCW9SVyOf3PQ2XVNeu7EZsTS6h 7MPWpCJsTSjA9HeXaiqxBFmwJzoGbhT3SCvcw3X1deWJ1AGhZH43FfZbekpP 7PNcjiy3ucj0WICMPQtg27QDm32G0dh2HHXFGShM84KdXriuIgL1VRSqqr6W 76mqOqrK3mBDbaON96xpFHqqabSissGCL78aNgzhzzU9ve76Hta6Po9E1wfR PmUWXr1zGhJX78L3qW74YfiA4xAH1bfKmRR1GMBJSWrDmmTy8b9rr7/F4MlT 8M+ogl96Hbb4J2P+khXUwMfY5JsOz8RWPc0ijaFID2qt+lrXhpEaVEuxKPKO NP6b0P9bpFRq/reLpo9f8PU7+LDntC2lDNtlHiXqY8FmH2yZuxlJPvpZBe6x ydgZGyuTdFVnBOJggUWXQosL/wgjr3sLQlFj3Yxs9znI2jMP6V7zkeU9HxH+ bsjZOx+ZlH05fqgst6GqMgJV1ZRa/m23obLOhnIh9eEUK8rqLBgYajJ2GPxU 08Kbru9gs+s/kEZnmvLXZ1EgMuBkbIFcEawuaLpxdPTlmhC1E/26ycef1V6v 0jbmyE2u8xd/jLkLlmDj3lj4prYhKOcwzdiQnqi15KwWLNWKFrTsL987krMK 2+UiG4TI/tIskg2doALKsSO1jFKqZXvZnlSMqe9/gritnsiOCtOw94hPhkdc HDxibdr7/mIr9XGIr1fw1YL+IiFh1EoYWlM9URz0CTK95yHDl6rwmYds8bfn XBSVhaO4glJJqQ5nfYpqRAMorGHXuD0HfUebjCy/lxB6N7zr+hbcXJ9F1vj7 sX/mNPyQsVauXVCHLv5oYmmcUFf7o2ao/017HedIwSe2HHl4eGhDF8L2eccX IyCdVimDVinzoK6BfCPdqJZm7LQjTa5INRpu/5fmQMIb6ESE6MHAxYT9W4K2 jazXQdeB30GrtHCrvwZuWVggoqP0zLYeCSnYnRCH3XE2eETr/3fB4ZJwvpSK lxKhggG+HtpnQR9V0FtIe5UfguaUPaiK2oSqiE2otG5ALqWyKQc9A83oOdyM bsqpL4YN7GRY9yGmuL6J3a5PI08MD+ycYpbrQcKtBl1OcKuTtRJudWXJE0b7 Mst4KPei6k7hCvglliIgpRGBafTfGb10DgPaZuMgkj/YYYK+IPSEv+YrWO1f E3o2goZvRLojRl0/0fJm25rprJu/0cRnXzf/tyO1hP/bkVJC2YdFizZj1Rvz EP3RJ46xNY+kDMYDyQbu+rUjZTYcpQyWCws+qOUAOVouroVruUAOl1IbJdRG MbUhNxPnBqMnKxBdaf7oSPbTcoCMd0J+uuvr8GG/u0j0u+31KvLSuN/gdO2/ QP5Ro9RRck1eYoQJdW2H4c8gOCCljcAT9MxD9MaDCGLQFKyl3mcgXPG5HGyy 1rHvU//VWZxctLQXvyXYrGlyEQEuJtzF2u+VJPr8tz+Bz+RPUbJoNao/XQ73 sFjsTknHnpQkSgz2JFmRlxOGQbrQISE03C4YrhTpBIYrbbxGBdCSHC0n4GUE vJQ+Qe6mlYBnBqA7XUt0YYxuXqIFrqLzOpud10DXx1Gid14l2OqA+vXnB1sN YCXYanT0kELzURIWGLkDfoPB41/AP56IJ+4n6t2kOruiOUZeWHY9QkpJdYal YZX6nnlLLbud9tOE/QtS/Qvtmpbcwdb0BaOA4OojBL6AgBdqsj2lCDPfXY7F UzYjfMEO1Kx3Q/GaTXDzCsXuNAKflog9qdHYk2xFMw37cGUkhqsicUxIdSSO V4vfEXxv43WCXymyjYRjoNyKPnUrc36wnvEm2x9dGT43S0c6eQs2vrVO6zku YM/R4vooym/Veo4wM+kSfDF3KtG86vzgq1Ot9zvZGGHSBfDSpIvbXm5oNbWo A/7ioPSkTpr5g3pCg3xhY0h3Bpoh5ez7VZ7Uga/5jMCfIufZR6g3Ehg0fE7w 9YQGPkX76UTzKPkuWjaDK7BsqwULZu1EwGpf5G/2RjiDuJ22WOxJT6UkEPxo RGVadcANsI/XUGpF7oITNWIf+XEGkUIBQ9U0NVTA4UqRTEPkLTDALwzRwc8L oAJ8cbK71rGJduJfPkDcyp1Y8exCvOY6GR+zSxfp+gj2M/g3s/DXm3DZCX01 0jdD/54xLPzg4KB2Wz1+/RWp/xX8o1tIf2ohtRcBWaR+7hEEFtLBavuujyGk QksjiTBxNocYlbefpAZO6rYmvOEkW1B440lsi8/C9oQcgi8kV9/dn5KLeav9 sWn5XuxatRcbdvjDI4OGPSMFezJ09PPzw3GsJoooRxFwMQJ/0h6FX+JkbRTf 6poQmSMGif5hot/v2MVP5ItJe3awewpJ+3x/DNQk68D/DG/fNxc5m3fj/6Rv dfS8Vrq+gDj2vNqmzFKxlxPC8rhBNToZgb0+ZiDGTkVKO5oVs3UGdyrwj5Z7 6SrDwabks9cV2w7/5G74p4tt7wMIEBmpxYBnySBCyoZ06KuGEVZzjPBT7Mel 6a8/Tuy3xWVgm9jvLiQpm10sSko2tqVmYUdaFtzSM7GTmHtkphsZFBIQmROl Yy4wtkcT8WjCXkfsP6sTsx8ntd3txL1Wz6Bw2NjZflBuRC4h9vuI+z7iXhSA rnxvg/GX4sMJH6NSnKeWsV67IsAXE6/Lb34FnrdPQsO8rfiy7ZBzDH82NZqp Aq42hiZEDC9+lA0DpjPzd1yA/R9nNIKjw1/DN+IAG0G3sVu8H/65hxBQII5r OsxGcEQrM1Tb+DtITVBqdc1Y7EMusNQNUZlbY9OwNT6dfdsMbE3M0PPrp1A5 qRnYni62z6VjZ2YadmWlwSOLYX1GHJrLIrUsAy6aGi4i8NH4rF4XKqNeKOMz uTtcpBqwKzvD5R7fMiqjjA2hlCaohI63yEefd3bedKGECDqbxSEHc59bhVZf T5xJXS4nETWN3bkW4f+04LMN4fiOFTXzFHLFsxr8j1CXefCvqum2C/AU1xqf sTcdh29UJ6PSXvil6ZOVAXm0V4WHHBFiiNhpW3GYajosHzWs9ghbyd6cGmyJ ScGWuFRsSaAkpmFLEiWFSktNo4LSsCMjDe6ZhpIyk5BXJLbtR2nZH4zcDy6a Zn6Fzxqoo4YoXcQOfrEXuz5S211xdh829VNJ/VSywVRQPxXUT3kgdeQrt9HL 8YCzSjG7ph+xtWzSevSFUlE9JWe33XbgjUeKELv5EL4iUb9srDB1KmZL050U ZRa8yglk8e5mJ0WZORW9d3IjknP64RPTA9/kPvim9yuK6tfP6hP7Usv6qShK 5SEqi1JNqTkET7EvNSYRm+OSsDkhGZsTU7ApORWbU1K1TVfbqCexFdqNOnLP SEV4Thw9Q5SWXuG4kZ/jpN54GoSiTjVG41SDLkJZJxqEoqJ0RdkNRbE/3FNN RVVRUVVUVBUVVUlFlfn9wUkpQlwMD6NeEyLyZW2bugXHIvdQSYVyVsZ9fR92 2Y6hofM4vvv231c66ceRe9SpZVyAflR1/ukCvI5uoW+ifgbgE3sQPsn98D1n 23q/fhxsmdw7TB1VUWr0jZubohOwKS5R2zMsNm5uTErFJupG37Ap9gvr+gnL TsAR6mWwRk99oaW9qI+hbmKohxhtj+Ypbbem0NDlmrbO0Y3Ymz5ilyZ1U0Ov U03dVPiZZnWXSebUa2ve3wi/+TvwRbwHznTlOL7X19fncD2/O78KzKJeVQU3 ODURMxXcZjSRJKrAO7YPPkn92qy6UIGYLfUv0GfW5fZtMVsaRPiDCX9Qbf+I /YkbCP/6xFRsYPPYmJqmqWALJTgzgUFSlA6/kR1A5pLQUwLo8LOB69A3Gs1C rA6lDdM3IxJ6sRHRTujthN4eauz6IvSVFw79xNvfR/SnO/Ftsjv+pzneEWKp k1ISejWIuvLHQX+tE/QSdtWN6IuH/4ijx7+FF6H3Jvu9yX4fAT3Z71+oTE6S +YGVlGoKYV8XkYD1xia8dXEpWEsPso7MFxvwNhL+8sJoxqSRDtiP1ohtyiIp g4DdsTteQK9vT/6lhr3YHX+c6A9re+4E8iS93YbeOnW/HZGvo0GyB6K7ylee tqKCrHgMF5N/v3nPbGRu9GAkvE2OYqhLSsYp12SPwwl+sx7HuclhxnYOeq/k OtS2ncbelH54McjyFo6iQJ8f9BPzgzQ6fmJ+kIz3J+NXh8djbWQi1kQlYzWd 9+rYVKyhA49mQHKgOAKdpRH0qDrshxXYhw3Y5Z5HFx34kxrdTwjQGxTQtT1A EeitV/f/EPR6gl4XiMNtKUpy6ItG/sXXDx5egrKde/CfjA0jRokknhJfNah1 wlfVlhm+V12AcdcHPC7T5ucSq4fhSWviRWy9aNC9ia0PKe1DayK2Wm3LqMRK ayJxWRmezMjVlhijLeFsKgjH/mIbOkp0XPuI6wBxPcKuwiBxHarTsT1mZHQQ mR3E5nuRIYtoXmZsHo3EQEME+hpI5EaSuNGqbIghpvUB+OxonTGnpef0/ujp FWjyYWyT/ukfFQilcb5mdAhl8lF1bP8Nk4//xiTQdIbwcaNG1d2nUX3wNGr6 KYdOu6Bm4DRvUNpxGBabDXWJQahLCUVdRhjqc4havshpYUM7UetmPH+wIhKH qshIonZEbIeUyNVryLlo0F3Bhq+DKMAUXBwibvq2D7Ewn9g1Ebtmq7Hlg6a3 MQhdxO6bLwcV7KKxdOI69IR44odyPzkHoubnkRxTg3Qn7NQg3Qy7K0Zp3iIe kdb1H8Ynq2P8YY8nQGJ1sDiWPNuibb1qKbShbV8EukSTJUB9VWKrMkFy7IwR MdtQffTFBCMav9AhER6JkIj1wP1N+gpzubq8RyyOaA5Bd1MQBjrTtUdySub9 cwdKydg0eTOGIkRgViTn6dSuzFUmrc4JJTUCM0PpFxdgBF8wuHi4tQ41MYFE Khj2VFIp03JOAxRU6q00kKoRSJFOdpG5R0RIpFV99EV8iWLBwmsfJU5HtHXT 9CGOlfhWAys2vZYQdJFC//pq8CoDFycfYpYyQub9mfW3MIQsTMaX7M+eOVSn bhqTvkTiJAyUJN+PhPBC0qdPNIhWaazztCeFwp6mE61RIVoHidZdrkBIsg0Q wsN2kSCSQPKlToB3xGh3h53BaxVCAFvD0N0aii6S7VB3xtU/Hrxtq3sQHnAM p9uP4btTJ50X4YinutLp2jngXazFQIJXYugpISHBbIZBTfs9mpHTh6x+hS+G h1AZEYTq+BDU0JrVkoJ2WrNGUrCF1qythDQs0zHsIYZil0ifYyk/0Ruwi8GJ AQaLYhftIaOJ9jXTk7bYNPS6iF7Xfgt/h6GTFGxrCsbXXw3hR0Aol9uXtHyN nuGvtXdyDZs6ciTxU2PI356LnzJqZIafixN+ZobuLSOOGWhqQEWUOA0zFNVp FtRkWbV1xhp+2jYIm7YesLM8wrF29KCQGvJRiJ1SJ/aO8pqxy6+bwHWRep0E r2O/lWJBO8E70ByKb74ecvhBFSHtncyzrJo0s1wxIyAZGdfp7fHnjo+PZcbe M2xmc3YmymNCUZEUhsp0C6qyrbCzDWprrYnB/hK51po4VND4VxKLakqNyClB YbzbzVChm8/fxWbX0SLm9dr49BdrSyEPtFrQSjvf3ZU5ziC4c6db/Kgp+qU1 +q2iXmlenJ5evdUkJ8sjeOTccqZqn/kdmnIyURoThrJkC8rSrajMEps/w1Ff YEMjW04zrc9+PrVYPdzGp26vIgJ84g4+cQcDzXY+cRuf+ACfuJVP3Gos+Wuh NPNpxUqwcQ4ndjZ3gHr+hRyylqOoqhU1HlM2CTUyelV5TNVACJTkfM8M7TPX MLTJRHFsGPYlWVGaZkU5H7Mq1wY7H7O+KAKNfMxmPmILH7GVj9jKR2zlI7by EVv5iM18xCY+YqMQkrqRzqi+yYKjQ42OIFdtwjIVhxqoOD2KGqi8bPB1rLYq PiEea5bB18+PD6NuXzYKkq0oSg9HSXY4yvNtqKLPqOHjqCuHGvg4DXycBrFy iI9jb9RXDtUyLKtpsqKtO0dbNfSmSdOTq4PUaMLpUVRX+ILhLUZpchcrepe+ Ybb2+mv0tDUhO8WC3Ewr8snBYiqnlC2vvNSGCra6ysqzq24q2bOsUFbctHbl 4NBgE942aT7yCdQhwDGe4O8Kr0Ybbf+pyS3naK+X89ow6duMdDqg7AIrcovD kV8SjsJySkU4Cqoo1bxWbUX/0WZ8/uWwYYRGNocrTKByqrY6lPCMSXNQl56I W15qUu2FUr8Hm9De34QOyocmlJbVUb3Sb0avzlMX4H7kom6VWvsVCsbHx2vv 5Opf1fo7Fa1a/8fHpuCvTUo9oJQgxxIuV65Jp+pUqmp1H7kA2lw5RtFqN1sW fW6nz+ELVEsogw0xmSerc+8F0OEak+q0ObFOfE6eda5aM6M62tYNDQgZr0m7 JmcW5WFZp06dMpLXj71e5/cmlWo3rql9wctMPmdU6pcm6pHTDHJHgDrndvcY hGGVrjfRRodCU7lU+VKlRrJ1nbdGI22POt86GonMFgfK6qhm71LlmgTtAqqj NuLbTUjkPBTpalKdThMSyeqo9kNvijq/lBOvRlbi1jFII4M4s12rXU5GTLyT J2yolkStBJy3l51rXVyV6ozWr7vd+J4aj3crjJG+1eyYTaM6lzswMTu/4cYL 4Mmdys2dK3FuTtGR2BmVkBGZamycZwbMOPFXk+fqUYqWLk66UdWwOBWthkmj jYyrTLjPhGa9TkxQz9ZQzYdT0WrDHHcBWn/IpOiDJlr/yY8r+iqnpzYresIY RZudr6XaBKei1abnPNBoNhXxmMkt+010rUZ+sppjFD3aOJ2q6yeN76nhzCET XcuiVTr+amTRagu/kBMWnzEpesBE1xedr2h95EDoWjhKOsyfmrQv59L/bsKg w0pJMoSRNl1t2kbpvzZKl2tQBOPoC51HXczCtufHKF2NYmTpauseUfrI1n3R KEWrGn/JpOgj2uslI5yNuGJ85tdqiT93tKyxlPuqSSlHjaarhiDy/yOK0I8K feKJJ5xvazYZMmhoYYOx48l4hl+PREnoSLAjNzfXGLIZqVJ5F/FtUWBFRYVy l98omhZ3MTbEmY1ZDhkfFR/bsmWL7EYbSpPRa1pamuYNROikhp7ivXj3yhh3 Fk3czc3N6c5XKciJsquqqrQrhrImmtzwqPEVUbBgkbip+Jk4caJyY3WllXx2 EZSK3/KuqpOWcZTRGowyzghPLAq6ZEREq4SQRlw1TkFI/AhjJotRLYAsRjV4 Ov1/5oibxQMpB81qbp4lGfP4ajozidgro5Z0qXYHcVd5d2lw5N2NBx5xMsY5 lJGtT/UybSbVVuNr48b6XLmxeEe/sUKjF01uXGNcE88tbuJQhVFYb2/viKfY u3evLEyPjhzz87IggZG0x2pX6dkxSlcdsYtSuqCcygWldH1limPxq8RQlG42 Kiw9ieo/85XvyrjrFwqVxTW1f+Wi1eEiR4dGfFIPm41w7ScjEBfWVPx+zsSJ FZhU8efn0bFBTX2ZoqN/IhvB+UoSDyAr/ROnkpxpapSkd9gcm9RUiKUyVStb YAColiTkPI1BDyUd85OiFKFmg7NPj1rQz7R2LW40Cj/1QNGR4kBVy99M7ppo wtmfXVhL0LdpOJKyqECZtYQJY5SucvHi0Uyi8D4GCfXgzOiZXaJ9fePGjQ7H of0TjuhRjRESDZullqiqy8kyupzVhrEk6eIRkCqlqA4kUUFQ/Ixib/VQyzgj 6iyC4uZmdw1TUBWFi3c/PQ+pDV3pI6dG3/FiB2BCm/zvhDEKEzcYGUWdlxi6 rzDWEY2k4COjlnTpCOMzxt21yEOzIfoOLUdfVHxHEvBh45rqf0OcTGxCQoLD 0ijcMtuCalD9LnPX5aJUQH7D7EBPT0V/4oHOep2fjrC4qv4Enc3WkBk1+qth 2dSwyWC/o7dqVoVzR/jOGxzcMHot7jFwkQGDqA0RNesuexpGX1ZgDM7qxt5F 0fS9TvgbT3yvSTmbTSyQ2lacCaaUO97kQfVhX2O/zsgo9Z4xSledwgU2nj87 Htoo8wGlIUp6qyfUSSbJzI+qr/9E+a5Qo3h3mdHcZN3MIg6lOehD+HhwbOqr oYysiOqPZUXUoFQO2kkjOVqwsUSvgdyo5hTeaVdl8X8eo2gZpZ5tdeel/HK9 5EeURiasptCAc4mqVzMr0bmRjcK9lXqJE5zQFkLYRi9M73sGBASM2aDW6nd/ VLm7guRtJnef8yObkULkjXphjzs1GQHerWOUNFqTGYOiW/WSnlBsm2wocuxW DQHmGBRQG4Bifs0ouEMv4UkFOCVak41AVFF+Q67OUx3dR8rjjBEV7NIL+5uT aZceX/yYZVB437gmm6H+7QtinW6U8bQT6wSAoxT2noL1aH5klMJ8FBJqdu4S pVglijObinjPyXuMQT99gEMrYOvIRuW0mkaOE6s4S+2p4cPLSlOQWlabwhi9 tivNS94yZr1+pkAstaEuS5YuXdbrnOGu8wwrjPtvKiVXCjoFkNeNWq/LRtTr PPbW0YX/UXW6zGjPzg3F8DVmq+ZfUvQmwkDxtVFDnh9ZHdmXVsNROQJsVpen FD0LSH9Eu71pzPqdbWG/dNKa+GF1ZKSrRgwy2lCtn670X5j2mcZogbc6N0DJ VNV7XzNGHVRXIIcJBIriu6OUmaGXJEer1JhJru9VYwOzkn4yWttRPE6OXsxE J4NpBEVmM/FmJck9CGP1PfXRGmPn5iXnBD6C4ySr2TqaBwzcxB3F/PhY7a5Y L2WSAYAKm4zYzIqQEcNoJlFS12TMTp/BMNY3nRPojFWYGmpeYEytD/gaK/fO iXuuGLWwS53TQI5WgF0vQI6fq4GinA5XI5BbnNzGKD1RfebfsexIdQRmizik EVYpdrGhk7G6l616Me8YHzWLrw2amU7nXmfYebXY89l5fWBXD+k1C3GjwTw1 SpRG06zQaxUExc8oBlKfpneMOqh2Utp2iar44TdkYarnl1MlamR1sVKBMfqS mnnTCi5Xq3JOpkDtI9ea8/OnJlX61X9nkq83AaJEqdiI/Trqh5yHu4WPlblw peIN5/9rJ0s9igk9u/Ha7LixC6qU2Sj4RU74GnNBsgyBj3gG3ZqevTbWYLfZ eMDtjoph5LZx7WMe+qWHTXQN8+XbNxigjTKSKR9FVnm0mYMx2twtjhrf5VT+ aHXa5dxIXcweWvz+k5N3MkZGR9b6wrqot5tU5C7DODi1Ge39bv2vJ0y+9ifj a+pokQwznCfERqnO3Y4nvvPHgfa444vjDfMoNbts2TLt91hdl+lngf7JCHY5 PfVsxWoaWWgdzF0weuU6Hbc37qP9d87Yf093mCnDYGlXZ5mUcub/5V8zHHVT i5kx2hd0FWDmyG+5XPhj/f/8N/7X/wUAkA3z\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.667282704599533, -0.4736980200654736, -2.008936419194084}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.623532509961639, -3.0682618972778255`, -1.253602916532996}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.712865740702026, -0.9610961350566383, 4.12697370309471}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.81060806960158, 3.4621487551380725`, -3.4327214337187515`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0.6796977745236138, 1.9785885986341352`, 1.966526929409622}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.0007300971451825`, 2.6973463578112513`, -3.73184651318087}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{ 1.6881105561266523`, -0.6020181565390601, -3.2475555514413696`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.252520668924269, 0.9930470517563589, -0.672310164169966}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.326059755891318, 0.0873999552454776, -3.888160056433607}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.731357316028448, 3.0098040774350046`, 3.7721887260582485`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.6451040174079425`, 2.1719619224341007`, 2.293842102301396}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.937075982622452, -3.591504247542676, 0.62691646821918}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.998616795758999, -4.50864817701126, -2.601881228120237}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.693977192895757, -3.0683809764719894`, \ -1.2151813181719506`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.628706607906556, -2.4428739286425123`, 3.009195448090952}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.744119544468983, -0.761051448630997, 5.912764236601499}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.777621625002427, -1.546604046740475, 4.55866825688052}, 0.12]}, Text3DBox["1", {0.4974510956533934, 1.2572885326766854`, -2.556086493194923}, {1, 0}], Text3DBox[ "2", {-6.267282704599532, -0.4736980200654736, -2.008936419194084}, {1, 0}], Text3DBox["3", {5.123560350579715, 1.5410670437358187`, 2.7125269695320533`}, {1, 0}], Text3DBox["4", {-2.3491235175798257`, 1.5580378709421043`, -2.7402705150387314`}, {1, 0}], Text3DBox["5", {1.4139234520284254`, 1.5539118271310333`, 0.1575157823985954}, {1, 0}], Text3DBox[ "6", {-7.223532509961639, -3.0682618972778255`, -1.253602916532996}, {1, 0}], Text3DBox["7", {5.112865740702026, -0.9610961350566383, 4.12697370309471}, {1, 0}], Text3DBox[ "8", {-3.5326163169557856`, -0.5799283777499342, -2.034613759457293}, {1, 0}], Text3DBox["9", {3.9480330565867647`, 1.2933878299377697`, 0.245972156839031}, {1, 0}], Text3DBox["10", {-3.41060806960158, 3.4621487551380725`, -3.4327214337187515`}, {1, 0}], Text3DBox["11", {0.07969777452361382, 1.9785885986341352`, 1.966526929409622}, {1, 0}], Text3DBox["12", {1.4007300971451824`, 2.6973463578112513`, -3.73184651318087}, {1, 0}], Text3DBox["13", { 1.0881105561266522`, -0.6020181565390601, -3.2475555514413696`}, {1, 0}], Text3DBox["14", {-6.852520668924269, 0.9930470517563589, -0.672310164169966}, {1, 0}], Text3DBox["15", {-6.926059755891318, 0.0873999552454776, -3.888160056433607}, {1, 0}], Text3DBox["16", {4.131357316028448, 3.0098040774350046`, 3.7721887260582485`}, {1, 0}], Text3DBox["17", {7.045104017407943, 2.1719619224341007`, 2.293842102301396}, {1, 0}], Text3DBox["18", {-6.537075982622452, -3.591504247542676, 0.62691646821918}, {1, 0}], Text3DBox[ "19", {-6.598616795758999, -4.50864817701126, -2.601881228120237}, {1, 0}], Text3DBox[ "20", {-9.293977192895756, -3.0683809764719894`, -1.2151813181719506`}, { 1, 0}], Text3DBox["21", {6.028706607906557, -2.4428739286425123`, 3.009195448090952}, {1, 0}], Text3DBox["22", {6.144119544468984, -0.761051448630997, 5.912764236601499}, {1, 0}], Text3DBox["23", {3.177621625002427, -1.546604046740475, 4.55866825688052}, {1, 0}], {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{-4.128312721460849, 3.481576110964691, -3.4772521906630205`}, {1.2296509627842476`, 2.0957052704041104`, 3.1592302185454777`}}, 1.14]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{-2.1232301862313205`, 4.531266423215561, -3.783727156261813}, {-0.6254731528319207, 2.102020185875986, 1.8251075048002336`}}, 1.14]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.617181107719388, -0.7107209124826356, -0.7895839116893024}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{4.738008591620887, 0.053462075638855744`, -0.059312628428377756`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.664958301000161, -1.4095184026654017`, \ -2.9868978332800427`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{4.983113399209674, 2.320630370462827, -0.40378413485790826`}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}, {1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.623532509961639, -3.0682618972778255`, -1.253602916532996}, \ {-5.667282704599533, -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.712865740702026, -0.9610961350566383, 4.12697370309471}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, \ {-5.667282704599533, -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9326163169557855`, -0.5799283777499342, -2.034613759457293}, \ {-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.548033056586765, 1.2933878299377697`, 0.245972156839031}, { 2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.81060806960158, 3.4621487551380725`, -3.4327214337187515`}, {-1.7491235175798256`, 1.5580378709421043`, -2.7402705150387314`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.6796977745236138, 1.9785885986341352`, 1.966526929409622}, { 2.0139234520284255`, 1.5539118271310333`, 0.1575157823985954}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.0007300971451825`, 2.6973463578112513`, -3.73184651318087}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 1.6881105561266523`, -0.6020181565390601, -3.2475555514413696`}, { 1.0974510956533934`, 1.2572885326766854`, -2.556086493194923}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.252520668924269, 0.9930470517563589, -0.672310164169966}, {-5.667282704599533, \ -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.326059755891318, 0.0873999552454776, -3.888160056433607}, {-5.667282704599533, \ -0.4736980200654736, -2.008936419194084}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.731357316028448, 3.0098040774350046`, 3.7721887260582485`}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.6451040174079425`, 2.1719619224341007`, 2.293842102301396}, { 5.723560350579715, 1.5410670437358187`, 2.7125269695320533`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.937075982622452, -3.591504247542676, 0.62691646821918}, {-6.623532509961639, -3.0682618972778255`, \ -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.998616795758999, -4.50864817701126, -2.601881228120237}, \ {-6.623532509961639, -3.0682618972778255`, -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.693977192895757, -3.0683809764719894`, \ -1.2151813181719506`}, {-6.623532509961639, -3.0682618972778255`, \ -1.253602916532996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.628706607906556, -2.4428739286425123`, 3.009195448090952}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.744119544468983, -0.761051448630997, 5.912764236601499}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.777621625002427, -1.546604046740475, 4.55866825688052}, { 5.712865740702026, -0.9610961350566383, 4.12697370309471}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.581067923215045*^9, 3.5810680044443874`*^9, 3.5810680351764417`*^9, 3.5810682861964827`*^9, {3.5810683186133394`*^9, 3.5810684149123087`*^9}, 3.5810684498251696`*^9, 3.581068713574833*^9, {3.5810687618101177`*^9, 3.581068788751365*^9}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzcvXd8VNUaNbzegL1d9Vqu2EUEFREBRUQRlN5CLyH0Duk9mZJCeiOB0Am9 9xBSSA+QTnpv9Crq1VvUe9W8a58yOQmTeP1+3/fPlx/PZGaY7HP2Xutpuzwz foHz8iU2C5xXLFrw+kjHBfbLVyxyen2EnSPf6vJ/gP+znLLgdYjnLYD60MJ/ LSvEg3jn/8fPH5Ged8XPP/+MrKws7Nu3D//85z/naD7yoPT8IdNHpk+fLsYI wcHBGDJkiPSe9vNdpeeP4s6dO9JnRo4ciYSEBNEsfvjhByxatAhWVlZSO3zP Sv7TGvGri2i3h/TGg22uJ9ooKSkRn++i3PGpU6fg6uqK06dPiyaVZuqlX1I7 0jMhr3fQoHJTDykNent749///rf037zW7I4bfFV6fEBqUAyY+At3d3dcuXKF /Zb/b/369aivr5d67OPjI/V+VsdNduv8Hh9XWj1x4oTUqngl/mvTpk1qq7Xi l4Vos5sGsPYgiHbFbT6pXE/boBCl8zM1bba70xcVeNvfqWhVdFL8rwozXz+h 3Ex2djYKCwtNzWg+ghny1epMPXiu89F4QLktcUm1vceV61RXVyM+Pv4+too/ Va7znTKY6tjY2tpK/y2ae0H6v4dNzYgmtORVSDtdbumbzqn6N+U+1cbkV/Jj bW2tqf/T5NZud9Ca+OHHXlb+8scff0RgYKDCWvk9wULxJ+LVVLm1m0pPzJFU g3RnrWo6rLZ6rXNkumj+UkW7m5krqAiKJsQoiFdT5Ctc1lzBjAl5W/nLpUuX mrBXW1O6JL2aLLfW3DlC7yh/qeq+tjWt5iqtNXTe+3fNtPag8p6qreLVJA3f SVktDwVS4t7UYX9P+XOtnj5kpruWcpPVnd+ghRnyvWvmCl07aEb5G+ViFZ1f TO256JJ4S7zqpbyntQbqxcR4q6om3lH+TrmYu8k4KCqk/kjWaVInFvkRM5w0 dx8Pm2H9RPlSHu3soPixaPeekPGdj8gnZuzBI2YgmSBfxFPplPYK6tXVK5mz 72ziUzNXetSMrRj/5/o3qgPbr2iT9L+qSvP1wE7uQjvK4++D+IE2EKvPR/55 t6AOudb4PGbG+IyTL2Iw0+mvNNzSqqm4zDAzzT9uRj3Hys3rTT0c1nlXhpux co9pRk61S0q76e1aUxkhWuXrUWbsktqa2ithm5TW1pvusodCUXNqpXpE9VZG mrmIGgxpe6cOyxj5YusUG6Adcf682fn4qB6qsbHRRLwRHd7Ag20ooYk8Rnd6 D68rd28ukLU0YzWfNGPwRnV6hVc66KWiT5M7uYhWfzq/yEsdXEQJK6aZMYVP mTFKIzu9yIuKCVWZIpREG20oY6JeTGsR/mLGLo1oz8TnO+eDubhjaifX0o6e cq1DmiuI8W+HuLWZ1p42Y0i6mW65p9zuATN3rtGheUob9+7dk3IG8eoZMxZE jdO04y7HQthr5gpqgsYrLDRjo/6iUFtrLFRFftkMwi1KbvaGfMXdCtodpXjK 0Jq78lPKzYqPRUVFmUyJEh89Yhq+p03Pupjpuqyb2NG5ApmjhXpTWtP6rJkB f9A80f/yv9zWts7ZusqMpXpWc6uqynVwC0+Zf9ucw1buZ4sCtzk7bmvmZv5q xpI9YP6qT5rGw8L0TBOhid8KaTZ2TlN75ZpCCYQyaO9Dq64d3MdzHfdeVqpH OtLsNkOu3oXW5KpNa61hV/N38VfTGMgODNEdMEGhvcohTdAEOzO38LwZG9nV dC052kNk56x7SNOGAF+8UsHXGv/nzQz6EPkK4QoTzGXOXmYM5HPKjWp5x24q rYV0Tgi9mQafUQxPB11UFfgL+QKBGuDNfVrbw46v1qVNZqI1KarF/Fy+nH8n WqZNqdWARWfGPKpTBtp0cbDcvG/n8Pqbae0lM3btM7k1o6Y1M2Y8qJPWtPqi tKbvAErRBX4s1IzNVVvT2phBcmvSTICkyt3/AEHxv+K9nJwcqBfRGjLtLatI KxeZbsZgvNYJv80hGGLmkup0h9ZaKAoq5TmSzXjAzMVf7hzfdWbMwt80jFNd ufgRzz/tuJt/6/xKGzq80oNSrwSnBZtu3LihDqqc6ckhl0X7oFOrC4rKbDJz iVfa2ULx6hNNu+06IZup+3NRLTU0TN1oxtK9akY9PpavOM3Uk2c7VxQVyW+/ /dZ0a+oAam2Jei2t3VCutbwDOJQgZqeZ1l4zYyYGyK0t6RzcPWZae93MOPSX W5NhuH+OSsy+q+zea8ZWvK7prvo5pcn5nd+gGsaIK6Smpkqv9pi5whtm7Ec/ +QrW7a7QDrIjmtZUi6RqvjY+UA2G0qpVJ+b9hBlD8KpyF6IjapSrMQofya3O 7MByKgsxp8w0/Kam52ow0Fer7eYDcw1knbWqNZV9Nfb4j6NsLSdOmlHwt8wo +IfyFSw758RDmiuonDhh5grdzRC5j3yFCRr0VCKr6KWasQ3dNcOh6qvS1NgO blb85sCnm2lNnbXW6usHcmvt59Taw9bOjqWZ0V/5XuUwS8yIiB92X7nAiA5M scJJ1a9pDViqmYu8pTSjzk6rXkC5r97yxb7qHMgcpWFttqs2rHWsQhTFVhoe quCnMlv8qEOUb8Y8vKPBT6Xz+3JTXyg2zRyd1WCiwEyTPZX3tJ5dnp9XwqA/ tGniZgTxxCv1CtqYSL2CVrPl+XnFnbdaHy1/y82oc08z/Vea+rjzm60005o6 X65VXfk9xTreP28iWuVI1ZhpTV1y0KqpMlsiW5y2AZ+5GUcRe1SbsQA9lWHS 9ktVX8mKSEGEbJoVDfzDSUZxTRWhqk6uqdVYVdHV6W5t5CJHiAobzU8vXjJj Q943M2oPd9x8r86N9hUzKv6+psMqwTu5Qg/lFswNn8YXXDVzpd4aoreZYLDQ wNO9HeW1XND6HNUjmOtSb02X2s4gtO2SHHyabJFo8oUXXsCRI0ekSyh/esuM +frAjFVo7Uqbdh9AbGwsevbsKbWtYn3bjKnpY8YQyG3Ig9+lNYnoKo2J+NDG jRsFYe6Yaa+3maEUP+L6SruvmhkVC+XP1PdEk1u2bJFoqV5Ga7/eVSyrOs+v pbRqOpTLSVMDmlzowTYXFqKwUEVaICpuXbxaZxoDJS3T/Kg7WioKGhDzlT+a VgTg52s3vuzEDmlXEdTLabXsDe0I3X+j4mPEoGu7GxVXWSC99xguJqejNDkD sY4G7KEccDDiEOWwPX/bG5CxbgeqEzNwp77Z5Lm0lzE316jODi4YugkH3arx 01na2puN5jr6oUYLVGuodOplE1XV+xfdUQda2yfBJdHgXOm9p1B6Nh27ndgX ZyOOUk45e+OMkzeSKMmUs44UBz6390Yi5YytEXE2BtQlZJjiof+1jwd33kTI ttu4com0u1Wp9lE7V9hXeU8bYr2u6WMHV9P2VjUM6enppt5aKQiWsbf7nPU4 xJ6ecDEi3oU9Y4/TnH2QScmmnHfypfhQbc47+vDez7H3Wex5uh0/Z2NE8io9 vq1rfkvpVDseSSCo/sJmXhCaDpLnB5ZA7a3W53xkhqZyDiObnDYz1MLqVFZW aka0bR/lHUSPIm3jdhx20eOYqxGnKcmuvHdKtosPLrj4Is/ZFwXOvhYoEg8X 2duHUMT+FrC3eezrBfb1vJ0RWasNKIrcbkop7jcpbd9Tfcy80XoU7ohByynX Tjut9U9Kp9VLCVsoHKpsh+7vqrwF6ElksqvHXPU45WrAGXY1hd3Molxw9UG+ qy+K2N0SFz+UUcopFZRKFz8LPhG9LueIlBD9i+R5gaMR+dTjHFs9ytZuNyWm f8Rtdd+Z0WkTEmNi8Fu8D367XDxE+ajW9X+o0POXX36R+C7UcdKkScjPz28/ AKqT046rdgDkFbgnkLVxG0666hDHAUjkAKQJnNnxXFc/FFJKXNegnFLp6o9q N3/UUixQx8dHUee+hs/W8D0/VPNvKjgapdSHYurGRVq3Ajs9KtZue81ERAuT vX5UVehtqdgZuB4/xQejpfSo2un7XffDUqeFy9+5c6dk1ITSi8+JweFn2/Vf HWFBgkfM9H+K0v/sjVsJvo481yv998E5N3KcfS5in0splW4BqHELZH8D0UCx QJNHIB5HMx+bPQIkafLwR6M0HhwL/n0Fx7GM41DqqEeRnQ7XEtL6qH2OjkOg +1p8dzISLTUJ5vqsOlDRZ9E/0efw8HBTn0UPLMz8nRIxvaFcSXReKIjigx81 Mw7yjplX8E1jE+JcPKkE8jikcByy2ZdcNzEOASjjGFRyDGrdg1DvQaPkEYxL nsG4TLniFYyrXkG46hkk/b7iGcj/k8ek3mMNatx9yR8f8sOAcmk8vPD3+iZT dOOwOARXD6/Dz9vmwNxovGNmNISCa0dDtdnaaKfNaHQxZSVCLR43MxSPt0YT bbcWqfw5s+MMLsWewuXdCYoNeprezh0J5E8Sx+ws+5hJncmhdhRyzEo5XlUc r1r3YDRwnJo9Q3DZi32lXKfc0IXgJsVCevYo3wvGNY7fZa9ANHH86jh21e5+ qHLzptERY6dD3bqt6rAtmuCN0t00kyccTMOm7X73DoZNuDl12B7+34ZN9YxP dDRs/4N1f0B5bKhogmHoXtwMTMRve9bhx6tNimH7C2qTU3DG2ZOjqZdGM42j mU0NzHMNRLFbECo4kjXuIRzNEFzyCiXzQnFNF4Yb+jDc0od1wW0+eZyPobip 5wDrSUwdB54D2uBFJfZcQ0B8pQGtohMvc/TEjw1Naug+fYgNUjfF4Pd4g9kB faPdgAorJAZUmGiRiGpHQxt2vdLxgD5pZkAfMx8XSKP5oDqIZdfhaXcZV8/d wu+XK/HjncumQYxzckOSs05y2yk0yxkcwPOkYwEHsNQtmCMQgnrPUDR5heEK B++aLpyjFc4BDMcdQ7gF7hrCifQ3fLxrCMNtyk0Dx9lA9nIwG3W0hBzMKnUw yfxKZy/UxWxRkiARp6XjQOh6/BLPkSs68EWHLOt8MJ/648HUxjTqx0Vz6mA+ amYwYX6RXDUhyz+3Q1NEEGMuW2VMn8bdhkYkOHkw1DNwXH04rmuo6gGME4JQ yDEtcw9FtWcYWRaGSxzPa7oIsi+CgxfBQaQYI3jNe3x8At/y8Z6Rg0u5ZQzD dQ7uFQ5uE9laz8Gt9vJHlYes9lU0LWU0MaaBXX8GEboo/BAXjpbq0ypL719Q e7CjgVU3GNy/5GIaU23wpO6UEZ5XHdNH/uyYdkW43TpUBnNMDzrhXw1Fsgl7 BvXU9yQnLw4ro0yGVmdJ1Uzqeg6HtIg0LeeQ1niGk3Ph5F4EhyoStyh3DGvx jXEth3EtvvWOtMB33pEc2e+8I/AN5bZ3OG5wZK8aQ9HMka3XB6FGR8p6kbIe Qv8NdEge+JEJX2/lDivyKuC6klQ/Go3fU0PUSY2LzNZKKAkbdmAHM7XdlL2U fYz09tkZLFDFdI12p77Z1GdzJuCFzkFR19q1wV47ULSj+rQZUB7+86Cc3JmK Aj8Bihv+e2FnH8XINSSnEhS9lNYku6xBiksAY+IghgIhuOgRigqCUusVjiYC ckUfiRsE4zaBuOtNQLwFIGvxPeXvPvxN+c4nEvd8InCHyNwkMteIzCUi02Cg MSffqwTfPcl3D/LdzQu3U1JMsynLpvL9fevRctRGmTF4BLcam5mGZTDpJBSU gwy+j1JOUE5RTjPhtMBpJiIP4DRTkTimInFMOnOiYpl0ppvF56+d4MPPmNvB 3wk+z2jwEfMkQpkky92ajknPVMwObUlGpp528YAnWgoPqEDEO7gxg6bBYb51 1nkNUp0DCUSwAkQYgQhHLUFoIghXCcJNyh3vKKpAFEGI4sBHEYAoAhElgfEd 5R7BuOMjgIjANYJxmUA0UkVqqSJVkopwwD19aNl1uJOSagJi1lBnZG+lbzzt pcTYzyJlYyz2U3NF5n+EZDlBiWP+m0BJYj54lpLKnDBNiAOFYKRSUmyFGJFq Y1BzYVPCqzVLT3cOyssdg6IuO4qBV/e4qJuI1Mkr8X9/NZnVBMTTnP+2X4+W kiMqAGcc3GUAmOImO/sjzUUGII/W/iK1oMIrggBEtgJgjGoFwCdaAkAafF9a bMr3vgIAaopvJG76KAB4h6HRSACoDVV6xUZ5EQBPPRo3b261/HsycDQiBv89 swa/Xtj5mhI+3KEyHGKufoRe+Agd/jFKHB1UInOxs+RNGiWTks0unBPzEo4U B6bt5x2kqQnCkS2EOpJtI1J2PYojtz9iBo0nO0fjNc3wqj6+HRrawOe5dmgI EJ9Vuxp9Cgdt/fHfPd5oKT/RRyFDgj39L5PsZCc/ohFANIKQRVXI9RBohLei QSSuEgkTGkRCRiOaduHvvtHsyg98/J6I3PMVaKzFLarFNSIioeEdqqBB26Sj bdLRY3gacDc1zQRGTBJivKPxj9NhaKk4+api9+8SDDGbcJxgnCAQpyhnKCJi SHORgThHyaHkOhGEfCLyKAr4WEhcxPxJPo1XHiWX5iuPPibXzoBcG5FHb1dj da2TeKxzUN78I1C6tgHlhx9+0OIiGhO4PGPC5RC2LvXDz7t82evTJi2xp5Y4 KLg4BdBfqLiEybgQk1r9WgmXK8TkhrfAJboVFwmLaAmZv/upuETJuPgquPgw CKCpqjUGo9pAU6UnLnri4mXAnbQ0k5ZU5FVDZ8c49vhatNQlv6JERAKYE8o0 zymCE09QEikix0hniJxNcC4w/sijlS2gFFGKKSWS+KGUUiKJL9/3kWa7iohS EelYZK9HITP86qhtD5lB6GENQsJKtUOohxln9HJbhESIK7bIKusez3eIUBeE W3vjn7Fr8O+YyVBjrNx1W2V4HFvhySQ8OYSniPCUE54aGrBGQ5QCTzRuE5a7 lHu+6xR41lnge2LzBB9b0bmpokM7JmkN7ViVQMegoKMz4HZaqinRXzU7APUH 6M0PLlM6+Rd8Q2jUCZjTEjRGpn8+UuYikunzjLRzGYUUuPijiFLMaKSUUkZz XeEa0EWamXqET9dIk3Nioq6UCJXSF5XSdJc60KARndqoraY5T63D6KpJQ9Qp tXYQmVY9O8RITkOUrRrKHvi2AKkRm3GKAd9vCcDvsXOg2rX6xDQkU9WTHVoB ylAAKiRAZQSomvrTQP25TICuE6BbBOeOzzp8Q4C+pVgImPhAiB6X4LmjhcdH hYdGzRgow2PwpWLqcTMtVUXHergHcrfHoCXOTY5RzM2FSHGLOmWZE70ZWz6Z jILpRvx+qfFBBdI4Fy9pHimB2pbAJCbRTYVzjQwnoSskhBcFlIz2yymVlCo3 Jj9ugV2kybZH+RggTTlWUSrIhHIxxUhYK5zkaaRSOy/cSEx9QDGEWlSFdIao usKp9W/tENUmQX9rh2hxcbEpMXIZ7YG7G2ha9yw2qdy9+iYk0XAn2zNucPSn I5YRPU9EC4hoKYO2KiJaT0QvEdGrRPSmqnZUN4HqPaFy30oq962iclpMLxHT BmJa401MvTl2RoGpD7VZhx+a1Lm1rtDbRyMuOga/nvHF71dLuih0b792pb5u BfxhnCG6Des249hH/dH41af4cd4w/OZhid93xuCHlJPyuL+GnE1blRkwvTQL lky0zxKqdCJ9jropoS3mb5hClFIqxBSEm5jHCZZmxuoo9WKGTIhHEJ8LETON YtZVwC9mn31R6SImbZi4OepQai9N3CjaKx/TPXz48H14K9NcKsO1drkd3NoB eckM3Orcgi3j4GvRhHv/StPkQIItobbzkaBOZoyeRqjPuYchn1CXMCippHWt I9RNhPoKYRYKfNNHhvuOrwy5BUEXuvuNZFqjcJtY32BQcpVYN/uEob4N1hwR gzcu6rw+VF3z5rPYumYd/nU6BC1lx8ytM8iZ4BPSezV5RSgjvLmLlqL4809w b9oX+I/DGLQEzUTL1iVoOWyHX+PdcffiKVy/1KCM87O419iEBBd5fi7ZVZ0K 8UMasc4izjnEuYAYFzNILnMNIdYhqGYeXyumnBimNVAaKU2eoWIW3TOEeitm khs9g6VZ5ToPWgDiLjCvIuZVLvJEXaWjJxrXb1H68FCbtQAx96GdCVZXh7T2 oBOwu5kBW52VWzp4NRrCRYJsr4D9DC5EbUeSLcF2WCOBncKuZjEfyGU+cJFg y+6U1trYqtvXfWTAbxHi274S6BZ8iGLvb0tBzlp+JBJXqNNN3gLrEGJNN+od gEpvGj6DETfS02ECO/oYfJ2ZVJ+IREmsvotCQ22vzhPcqzGbkfHxAOn9fy8b gd+9p6Bl/Xy07FuF30+54B+JOnybvwPfN2bh7p1LaLjzizI18AzyNm4hyF4K yCKC9UUqQc4gyOcJch5BLmLPS90EyKEEje6FIkBu5Eg0UZo9wyxwySuMzYm5 2kueQkIkrBs8g1BDrKs8/NthrcPF1Q44f/zEfWsejF8HdAytmn5oM75XzED7 hDKGCXvTUBYooHXGL80XVV/8TX0zzth4I8le9sVnFV98gf0qNFluxrNU50ai e8lbqHQUTbJAmcETQbWgkRbQ3pRUWIb2qmKyG304Tj5UY58gQuuPcm9fFOkN yqr1s1g8fQps5wfh0qF1OEuFnP5GN1Tn5eASFVb8HOrbD3XDPsUP1kPxq9sE tITPkXE/5oBfEjxxNcGIn5oyUV+dqaTUTyPRmXmTq5gPNko4JhPHNOIoJtrE /GUBcSwhhuWUKpqtWnqpejHpRmmmXPIKZ58u8/EvuKILl+aMrxDWywS12YuA UuoIaJWnDGixA681ewmOjJuKvV+PwTY7e1U51dko7XxlPzM5SjtQtTnKq2ZA fVwB9XhsCnJ9BKju+C13l2qfL6zdgQQbPyQ5yPY5lR3ONqmsHAFXGWQb3UBQ m70VYAnoVR8BrgD1GqF8lK+FnqpghqHOhyEvAa3wYUjqvQYXjT64npGhXnpz ZDg+fu0VfPlSLyzt9yF0n/eCfa9X4NLrBdyd/IWMXcAMtGxeJD3/7bQbvkvU S8/vNGTh0vUmpXfPoOFsCm/fk/jpJcObTMObTAeb5qpMC9HgFhHDUkolcaz2 CCcuvE1apSbKJcoVXYQFrpLET0pT1NekqepwviOmrcMkKCuY46TMXY0jltbY O2oq4qbNQ+bCVYyiXeiD3dStINpg+E9C+JoZCNVFj4ObkpDqJabCvNBSdLCv ElKeWuXDPNMfiY4BSKZOpkvRVKjkYosJYZk+QoKwhhDWG4Vu0t16ryWUtMLe a2mHvCOZJTQTuSbvCDQQuVqqYiWRK/MJRAlVsYiWtmrHTnkbn2ax5SEsmz4N /f/2Ooa99h6WDBoA48i+CPryHYSN6AH1oNu/E71QE2fAP5qy5PeeUjQ6b8Mm okZL6tKqfcnUvlRqXrYGtTIiVkXEaj0jUC8hFklIInGZcpVyjVbHAtf1keIh guPVKEzxAnscHTsbh8bOQso8G+TaeKDYyciGxNqMmMUz0L56wBxo/c28160t aNrFldfNgGZaxV8Xj1POAfhtn0Gs4qug3a27hFPUu3j7AJxhCJzM7pqAowG5 SOaVsi8VKnhG6iClXoiY1a8nVI+gjtllLd1iFQErp7qVUMOLqG4FBO2C0Rff N18ypWhaH9hFSQwO0hf6Wdngg2dfxccvvY/Rvfph5gd94NivJwJGvo+gaX1x NMQWV+sylQnBt5Dk5EbUaMfE9h6mlMnMPM+6BEpzTtlELM81FBeJWDkRq/aI oJ6RVESsWUHsim4tEaPtp9ygNDPgzV/ohPjxc3F6nDUuLHBg/sJglpltjY4m xCsYRbZeBNQWKVPnIW7EJJwePh5HZi8i6mKxoQv2Msx0c3DExVNJGPDnwHvD DHjqKs7B6BPYu3oN/iPNtp38SMl47tZfxgnbNYhzCEQ8wUtir9NoNM95yIaz kOAVKwCWUyoNAkQh4QxQKUStkqiVM3AtYUBTRFXLZ1CTy6Am2+gnofauQhQt ahX0dD5WKzH/7eFw+nAOfIY7YP7gmRj03icYN+gzTOjTBy59P8KhwX2w+Mse qCnOfc4EmjtBEwsXNI7Oa6RJwhTeeroL43ECludGzrnT3hOwak9yjYA1Eqhm ymXKVX0UtYrgLnQhUPNwhlJA0GrtfaSVpyvsXrOeeZc+DLmLnRE/ejZlFs6M moGEUdOQOHIykkZOQMKcJW0WIAJX2GH7Kjdp11t9QobJXGqzz3bgabNP7SSe mCoV4KkrB2LVauMiX/y00w8tlfFyy49L4B2zDcAJhyDEOQczPwtBCo1MJl37 eYKXS5NZQPCKBIj6cAuUELVHUGIMQzHlIjErJGa5lPPELItJR7phDb4jZvJO 96ckzA5Hb4V192Gw7T0dhiE2CJllxDqHMGwKWIcNMeswoFcfDOnfB+P6DsSq 7hOQ0mcwMkZ8qJzZeo4RlodpgaNTwDxlwOq91kqA1bgEU4NccGr8fMRR8glY jYOfNOPL6Iu2/zkTYNUOdGdj5yJprDUSx8yhzEbymFk4O2Y6UkZPQeqoiUi1 XiYvVEiLFD4IW2lPlXBXFimMOLtKj6Yz6aa9hdo8sg1w8vKbenzjn//8Z3vs xF+q87jBs434cbs/ftk0TTHGj+MOgctctxdHCdwxAhfHkUgkcKkEToCXTfDO 03Tm0Fnn6hlf5xrC6KFyjKE4T8k2hiDdGIQUI/OwHXtwz6Rkj+JQ9BbM7i6H HF6DliNoiheiVwdjIxOSjevWo6ioENduXpVDtAexeUMMPu33LqZ0n4KYHiNQ O3gA/lVR9Jzi1pIdBXRGeWnESY6rUnjDMnRhyCNsF6ln5YStREA6zxlHxs7H sXHzaeRc0OAmdhRE44YxWoIsSsbtBVznY+Gs1cjkB9PGzcNZWsvksXOIlxVS iFvamBmUqUgfbYks4nbO0bSoga2rnLFztUvrigbxy16tR+na7fi2rnXDkTZ/ MIOf5qDBWxr81A296iyvl6UO320OQMvOucpZiqdRkZiN/bSYh5yCcZRDEcdu JtBqJhO7FGKXRtxO2Oixez4ZRue9b4H4bcfXdtgx3waHGdf1UgATfmuNlS2W vDMWbgMWwX+8m3R7G+hPNkXG4GTcceQW56iTcTorg0nJbrsufU6JGpMcPO8D 6qwEFG059SvLIQCnrB2xa/Rc7B8zD+nznZmOhdDQReEyAbpKIVAWAikJKPoG gVTxbBucH78A2dS/DBrK1HFzkUKsUsdZIZ3hSMbYGZSpyBxjiQtzl0lLHWKh o4BY7VjtjA2rHEwLHbn0b3liocNWj/OrvPA9sfqgY6zUFECb66m7pbXbw9UN HU4j3HE7hjHl3qUYqAxLWdI5JG/Yj700JQfpnHet1GHrXHus+Woqgr+ehghK 1NfTsY6ybeJ87J29UrLocaTWSVLrGJ1xTULGW0qIKHutVVhATXHqaw3fEU4I X+CHGPdIU4hYUJxn8nIPKzco7Hc7DVNiEIGcst7lKM8iJjsF4rSNL3bNskPU CCtsGDlHQq7QKQjVtIx1uii6pqi2yAnQrlPHnpI0TcBXylAob8IC5BC8cwQv k+ClE7y08dZIHz8HGeNmI2vcTMo0ZI+ZhNy5K9gFsRrymLQGcsrOA5uYoxfT aJvWQRyMuOggdvbpkbfaC38ngL01qqMmBe0A1CYFPdsBKKIaNWxdPcQRV9Yy r9u/Wk7gO9jzr1rW7e4HcGrgPNzctFvJQx7GxmXOWD9nBbZYr0Ss9SpsoOOO GTAK2/uPRMI8OwtksC8PIYNuIINuIF2sU9sx+KMJSaTfbqDfflUJKAXYR+j6 5tL12X0wE8ahtgi18sY6J7q+oPWI2RCNwuICXL5xyTTf0EY7XZbKGD+PRGXt LG6lF7ZPX4GgYdMR/NVM7Jxth7PMd3LdI1BEM1pGM1pFjGsVjJv00bhEfK8Q 1KtGCWcJ5utMW0usbC2QP2EhXkTOBIFxq5KmM/zMJMZZ42fzvZk4R4zPjZ2E opVuKHORFlQo/ozYvbB1taO05blUWlHxRamTWFExSisqJXY65Nt4/EmIe2kg VretqDOVi+mRakNF6u5gmn67P5g3v2FrUg9LhHbvh/pJY+TQonWzsXCpjc04 6KLHYSZgx5W1v2MLbbH27U9xsMdnONtrEFJ6foKTNF550qKso9janUcS5FDE CnkWiZDBOCBF2azwksalWnUfgpXvTYLuM6I3TYdo2xBs9FuHjevpUi9KLlWt smNO2Z9RiCBmNPetCULQkPHMLSdh+7QViFvlLZnqNJrqLJrqHPrUQpKh1HMt KkmGGpKhXsSsJEIz5XI7QlQv8+wiEeFvyCURzk+QiZAllH7CXGRNsOZrKxJk Fi25TASxDFPNzLTaTUigtNXff6UN3wugV/CXltnKXeSt3hUkQ4WjHmUkS926 LSaFv7/wgokN2pxEPXWj3fpooWhL/J40FPsLNrjgh9StT/xJQuisVsCThCjs 20/ZaNCt/b4opG3cRg+txwlXA+JIC7EcHDvBCjEDx2ETMT3z/lco6DcMF/t/ joufDkbh4C+Q/8nnOP/RZ0j+4FMUTGEWN2EOfZ0VTo+2wgU7Odb4nvxQaxKo Hnxpz3Fw/2QxAia4Y+3yQGygGd4UFYMTccdw4eI5dReKzsqI1YqNuOOy9EkN NdovbBwLi0Lccld5hUnMRDsG0rMHI4VRcyapcoFUKSBVimk3KkiValKlVq/Y DpkuFrhMjnRBPYOC3PEL6RMWcvzF40uky0JSYiHOCcpMIGUmzONva762Io1m sePTkTdjPmrc2q7hiN3y+hWrpJ3yYv2m2rR+I45N+KDK2Sit35TTtf3Y0PT+ n2PMe4op1zJGvHNk21kpTWk54IHf8/b8ObaIBHgLVpItGe/2w7+rimQ0Xr+P MOr+gX0LbbCdwIf0/AIbe4+ijMZOytkB41A8eBwqPh+FstFjUTVzKqpnTEb1 VEtUTxqPyoljUDFmJEpHfIWioV8id/BgnOv/Kc6+/zH/dgD+vX8LvtsuT9sX R29+WEG/MDcH/V/thq8p417pBs9pchUMwS0RcSzsMRLOH82D3yhnRCxcgw1E fFN4DDZFRGJLUCC2Oxqwkx5mF2Oss+t3oDIpg1FqxtMd2KR/0yY9qgQ1na2g ypraF4m2OiQLP2lHEjKUTGYwcpaBbzpzgPMkYR5JeJG3VEYSVorUjQSsE0Qk CRUi4hJ5WDjLht5qocQ8wUbxPIe/L0xQWMgYLJssPDZxKcIGL8b5MYskFl5c ZEe2hSqrSyFopJS7BUgsbPSQVxQFG2tMq0p+qJKYaECVkxeaYraYXQ1uR0Nt Pv6+MjxaGh7ckMgYPxC/79fhmNsCk9tvt87aZtffwehtmE/exb3dD9/v2/yc 6QP4AidddIiZMBP6dwYh9L1h2NhvHHZ/MRWHRs7GweEzsb3veJweMAE5g8aj mNF2yQpHXJi/DNmzrFFgNQcl1nNQbj0bldYzUTlnOipmTUHpjEkonjoBFy3H II9E/LthNlrC5uJ3nxn41XUCfloxEt/NHoqr42jxhg3Ezwe34vvYzbi+YTPK ybYBr3XD8NdfxdS3XsecHq/C+u23MPftr2D/wSwYh9khzNoH653DsSl4PdZv iML2oGDso8IfdvbGcWVvZjzlDAPGMwyl4+lZT5M6pxhinY+KFWsvakkz2RKO Vy3hQ50Qsu0BkEcZqKUjiS0m2/qRkP4mQqbRMma7M2smIQs9I7oqQXmdgT6U HJQjBvHzmuQohfU7r1jB8xIHKRMZTdEanps4F/M/9sPxSbvwY0Asau3tyb8w 7cIXRV7xEisdzcqqVz2lVqx6CS66k4tumhVOZw/8o6HRVOhXO8XQjotaTqmH owQXZ0wcj4EvvIKZb70D5749sLq3eN4Nlbk5jyna3o6O0mvTQdm8EswgHfdS 7m3fLJtBeW7uZPQmBHw6Qnoe+uEIrB80EbFfz8C+cXNweNJcxM9hfmfrxQ4F IHPqSuQwkm2k0jW7B1rgEnvcF5c9AvgsACU2nshdao/C5Xa4uMIOxStskDBt OjJmTEf29KnImjoJN7Z74qczgfj1tJ98x0c80LLPCS2xNmjZsAwt4fPRsmYm fnO3xM+rR2Fh9zexstebWNSrBxz6DkTwdD2i7UKwyX8dNqxfh9jAYOw0+uAQ I8BjHO84SqKz2B/pI+2PzGBamknJYuyfyZAvg8RMs5P3qJ5l2FewNhb36Naf 6MRmdtFQ1NwptdZ9808jQex7taXjtm913KmkqHDcqs0sos0UP+W0meKnmjaz llwVfJW5mj1+gXhYyBA3i+TMpmRNFCKM5TyJpHO+zMaZyKv4OfcKvos/JK3o NXmGW0hLek9KS3qXvcLgsXwleRmEZq9Q6WSNWMyrVnkqbKabj3TKo8rFC3fP pqgU1WbmnVD0bZNde1Aha1HOBfTr1g1DX3wdc9/tDd3g3nD99C0s6/sqAuZP edT0B13b2cwusCQ5YyiXVi9VQue/SunYCdpS8eNNWxnBrE78bB49A7GWc3Bk zlIkLrFHsUhupD1F4ihfkOQemj2UI2yUq5RrnsEWfAjCh3wZyLcFa/350TX8 Ez9pJLLnLEfm7KXIWWyPI7ZOKC3PQ3NtvnTJA3sYep2IRG18JG4khOO7xFD8 KyEI/41fg99PGrH0s4/g+tVHWP35ALiO+BhrjXQXcUeYJFxDxsbtOMr4Qpy6 PaXsT0wVJ8pc5E2jF+RNo/JEClOUfEl8kEvGihO30lZeMjaDScp3dc1PKMlq O1Pa6ZFCeaXxWdSdyUDCah8k0aknKU492SVYsqFZtKEXPMKR70mSeskkLSNJ K/RrpT1N1QaZsBnjRMq5gETNIEdfRjr5mUF+ZtC4ptOZZ1oypLSci+lDd2D7 0du4fOUWvt253rRSeVlerZQWK6/qwiWSCgN6SRcqrzhTqjWrzlXKQbkqN51Y puyEpOq2AO300dtm/DVgciobw8Lw8d/ewKhXumP2e+/C7r03EfBFDwR//ga8 Pu6GH3dtRnX05hdNLP0Y/mRp6YB+phKrhxllhls5wL33JIQNXYkNk2wVh/ME Nk2ehSNL7GgY3JHLEFo+cClnYSK0lg9bhpCOIbgmDg5SukhHBx/jYzBfM9Bh IFa20B6pI2cgZeR0JI2YhsSvpyBx2CQkfDkBcZ+Pk/vXRQksT2dnobA0Fwe2 R2HBhJGY+vnHWDZmEGzHD4LNqL5YOkRaXEH2pu1SkqTumxXbQTLEKVlXX+SQ mwWUImlfrK/YH9tFmix4iE99lGPR3syl5fm9CzZ6/L2+WeHZw/cZ0ojVS7R8 /Iui4Dlrd+KMjR8SlAXgRGe6dLEc5SboGC7RMY90LCRlxE+pLhLleiY+epme qWPnI3XcAqSSjinjF1oghRx8iY/zkUImppOJGWTinE/skLomHP896Y/rfkaa Q3UtT2ahtGCuj0DIKjtU0Ltd1tHdU+qJRg0RqJLYGCAvvnqYFl9VJt5fQlFh YusebFGW44cffuhunoxdFI98jLFYFJk0/bVP8NkrvTH5g/6Y3KsXfN59H+sH 9kTYlD4InNATLVFW+N0wHv9cOhRNYz7FTwe34NqGzeo5CJFAOJOkOR/0Uzzb i5IpDWRSYfPOKPgPXIANU9yw2y4QBwOisXnuQsRaWeOkjbN0OjidkbTY35dP spaQqJXSfj45AheRz1V6k+uUmxyiW1Ta2/pQC9zRh7IHl5mLlMxYhgtjmDeP mY1zo2che9RMZJC7aeRtGnmbNswSKV+OlwYhic5Y/MStNuBefXNXhRdFOXno 370nvuzdGxO/Hoyl4wdg3tB34W8/B+fI2jhpS7FBOc/sjUze9QWyNp93XiTN bInJjDXSImyVyxoLVLuuoZOuFimCq590xL+MqYJ8nF3e6J1PLfuBDH5E4+5V azpr4ByTpb3puEg5zvAm7jJ0OLXSB/G2axj3BuCMUyAS6PKTTRSm21coLH6K SONicq1EJ79OGjsPSbSmiUJI4USyN4HcTSR3k+jpz5K/KZbWWDjYGedDIvDb KV9l94C6rCmtRUubB4j0LjtXnOcoXNGHo1nQl9ioS9CSMfUUx7HEkQd6fHdP 3E45a5qr+QMOq2fNN23aJHP45fuy6ENkXZiVDdzeHYPwwYuwfbobDtgH4ove n2Di54NpOgcgjKws6d8PXjM+QfDSr/FjUhB+PeONluNujAMZA25k/BcwGb/Y D8ftKYNx1W057m3bjLt5RWoCIXL6pWzmbE/mVoc3yxltTxzl20veHgp93xlY O8oOsUt8sd8QwY/HIHbbWqQc309o3Ons9O2Oz8r7Gk3HZ5ltighfbIO6zjG8 qQ+Tjh7foYgzs99QKmeuQNE4axRKMgcFY62QT8LnkPDnR89EFsmeSbJnfj0Z mcMmIvXLsbI/6IoMpVBIEQPPb+qaZcV/DUV5+fjwnR4Y3PcdjPq0Bzxs5+L8 xq3kuE4+t+9mRCojlCxhmUngAtK5mHdfTg2tpIhJvDoGQPWUBiHuQvz5Wq7j UO3mJ53TL2d8XKbsnS+0lc/qq7usOzquW5RVhKk05Rs0MbGsAB9K+0BOrPLF KTt/aTtBHMOJeIYTYkuB+MmkApxj/iR+8hii5jMuTV/oIr0+TfKfJvGPMuk9 9IUljn1uiVMkfxzJH0/iJ9Bwbxs+DcuGuaMoMhItcQYa5bUS+a/oTeSXN2Iw NJHYz35e0ctr+fVEr4YaUEU3WuWlHEaUzsAxlPDU4W6qKd7VzlL9rW0ood3+ L4UScgj8CuzfGY6gj+dg80RH7F3phyPekTi6bgP2bF+HpIR4fPbRB6T8pzCQ q3k0xJaD3sCe/XuQX5KLK3X5iDsYgdozEfg2OQS/JPrh91NeaDnkgJZtS5gG zcBvHqPx/dwhKBr+Cf65ZzPq121u3UoVvR3WbPcY5btdmx9S5tCEBoZY2cLp vfEI/mIZNlt5YS+zj4Oh67FvSwzKSwtx/ZZcREs6nyu2nEmbl1qPPeeYjj0z CBMzL8x4xU5P9Sj5bb187PkbynXGqcXj5qJk/DyUjhe/hVjzPWvqh6wXeaNn 4wIdwDkGLueGT8W5ry2R/dU4qN8CIleVMeI849tMOb5V3OGzOLglGcu8aUaP 66UqFvGuXrT48l70s9SGDKJ9gfddQE0o4b2XSycNglDrJu81b3QX1SyY/VBE thok9okx+2miZgjtqBGBpbL/vMLZgDIHHYd5a5u9yB0dYFe/pKxdEP5X5U/v UDGOrvLDCTt5q8ZJp2DEOYcgwTXUtGoor/qH47xnuPLeX3B87FwcYP69qfdX OPDBMMT1HYZTn47CMXqDE5TjE60R9PVc2IzWoWK9UApPmvooXGYSeUUfxQyH WeRTuG6QdeKUo44xlUGzv0WcKxU6Qa+gU86F6ugjdQxqvPRCJ/A/KoU6ddtd CaRPRG/Fire/lPoRM9IGuxcZcZjEORqxHge2xSDuzCHcuHVVHdvCggK4zF0M e1I4vRe9Qqiu3crRX5CUewG1VfnIzzyCwrhI3EwKw7+SAvBbvAEtR13QsnsF WtZZ43efifj3imG4PG4Qfj60BTc3bsbVvCJ1NX8qL7GDcnfLZqhfXSfCoZPU opU9hsN3wFysn+iMnav8ccAvCgdiNuBs4gkUleao8Ujehs1y4QVnedPYWRf5 NHsuteWiOM1OTanxFLssw6WgUuzju0W5Y4ikpjBjdGRMQi0po32rmDDfApUT 5jHLreBjmaI4F8fOQSEVJpdOJIdOJGfkNOSMmIwLwyegkHmuFP7y8kWMvAul gkQi6taJVQl5TJ/Bwa1nsdwnFOeO63Da2YO6Im/zVuttnKOuiJiuWDqZI5IQ Mb8fIs2uNkuxnZSIWDBBDiGJrkrZcxCz6EBJbRo8hMook1t0oZXOdCKrnJAe vfE+FXnINKFSeZ/zeE4JIDKi9jDNDoD6c5z6cZr6keAWhmQ6DrEzJp2Denqh Mw6MtkbsVzOwptdQRLw3Avs+HImEj0cgfuDXODJsPE7OWkET4oOoiQ5wnWRE wybqxklnSTcuaXSDoRIV5AmpENJee3cqRiSaqRxCMWro4iXFEAemxQlRvaIY OipGWqrZb+pqpxjayWR5Z96DOEKrHGllD13vCYj6chl2zPHEQZdg1Qokk2mF pRc06xYP0b5vxRIyNv5t2vfdm9tUA1CPYtXyveKyPCSdOYiUoxFoSojA35OC 8d8EH/bcAy37bdGyeSFagqbiP44jcHf657jpvhzfxW7GvbwiC6WZotwc9Hn+ WYx89q+Y8vxfoZ8+FRU5ObzrLVjQfQg8PpiCiK9XY9sCI/aR3QcjY7Br2zqU lRWg6WqDfDfPIcFRPdAub9BLcVYrCwRTQUJR4aGtLCAqaETiNsf+rjFSKvVQ Ol5SDOrFAlRTaiaI+YVqvvM235uPcuFi6Gou0rVIbmXMLLqWGcgdNRW5Iy0Z ao1BraumWBU1pcSJ0T0j+1xJS5rktZVtZ7HCNxTnj9OVuKg7rr2loy4ZVI8L VI8iqkepcpSpTkp7lJBQSX2ueYVKhX1Cme2KfP26ThT+CcZlL7oc6kod9USU D0tfaIO91N69w8bizOz5Qi8eM+815FXFV6Q9Ymnr9uIAQynxc5jO+zhDqVMc wXjexf6lHtg0ZRn0vUfAr8846N4dhcAPx2NL//HY9/EoHPh4KPOFWchn6lzs EUFtcIFhti+ubo/E70dXS/tHLumjlT0kUZKzEJtIhEZktdOIeoOiEQZx8pOj YaCrMFAj9LJG3NFohHZKu51GaLOEVxXjW0njG2q1Gs69RiFs0AJsm+qK/bb+ OLomCkdofGO3RaKkLP8RZS7hYHSsFO0conzDZEC8q9GIR5WcJaswB401+di7 OwxlpyNxJykUPyX54/fTOrQcFnPMy9ASOQu/eY3Fjwu/ROWIgYjs/w5GP/ci Zrz4Ela9/hIWvd0Ndj3HIHDQImyc7o7dDsE4GLQO+zdvQELCUdy4ffURxSUk OnqYKeEQhLw2tTQiNLU0eEtGubhJDTtfQYZXTSTbKbUTF1qgbuJC9BdPJQUQ ilBO9yBcg8gz8qUcYyZlGvJH0y2MGKfEMX6Md4RBFlW4jIzu9ShhHFMTLX9F zcHtKVi1JhQXjotYz8t0VEQ91yV5MNdg6TxXrXKOS6xyXJFivjDSPEzJ86U6 TPJvUl+QXsz6Z89bjUNjpmP/6KlItl6GYntPZtzyqsePDY2PdeIHXmgNp1/E bmYNARMXw6bXMDi/Nxq6DyfBd9BMBHxtDf3nM+A2YBI8+06CQ68xONnjU5QM H4089whpJ+LaiR4IWrAGt3YxnN7M+E5D8yvydika/7YsN2pYbtCyPFBmuUFm +T+ammBuwlFhuVqoQq1XKDs2OZ8SIUYcUbDp8RUC+s/GpnEO2LvMF0eMETga FYO929ejvExsI7nc+o1ypPh2StXQfqb6LtqqFtLnuiqx4rnjkbiSGM4kOlBJ ol3RsmcVWmLmIWJUf7j07Y4V778Dp/7vIXaZH/Z7r8VBZigpCSeF55Cv+RkS NdsIzyqlMLKlUhjma5GIuPIOB/Oa0xrGM2SqROKFqJm4CPWWi9AgflPqKBKb +f8VlFKa8WKJzSIzmE2ZgYIxU2jCx8t15cimRprOWndRZ8+HUbkRFWRzqYMX riem4mAsmewfhtzjHkoWLx+UEQeesqWDa8EoJosraSzreN9N0kEmuWDTdcpN vSjUJPKXJ5jNh0uTrGXLXRE/3gonx87Cufm20k6GGmmiz18pJ2akZnnhztkU 01EkYbtt2tvul0yGTky+iZ9Fb4+Aw4czoRu6FAFT7BG2yB0R9jqEuHtg82IH rJ1qj8W9Z2FK95nw6z4Sab0GoHCZG4c8EmstdYheHoB7e8Nxb9MaNCp7Oy4J IgtGPymVwRAmvJwOKHiVHbkuymNoCC0O7Kunwo0yoSv1+vf/mMtKsVvp1SMm vrV+99PDCr8zDmfhGKOEZYwSvPtMwfrhq7BrgR6HaEGOhjPo3xqDMwlHaDOv mc7YWnbvj7Xkd/kn/UwbN+7jt8ZrmK7M/8ktzsXl2nycPBCBGiVxXjakP9xH 9IPD0I/hMfpjBCwYh8Ox0bh267K8x6abTG9H79baIs5BCr21lV5kel9RS+1w cEtEREL6VkkUJpUtF6OB0iiEhqqev+tId0F78ZnyifOVG38fheNnkuZTTZHt VS9G0KSVFEF7yItNVaR3pZOOBtMDa5YFYXVAGPKPuyNt/irS21eqz5RKVTxH A51PWpfwfquU83vNygqKmPa7KSIpoZpMeosXOiGZCXjiOCsUL3GWyjZeIxku 6xnF6IPZz0BlHttPOUSkR5mL6+OdGOm/KnMLFcoxRevuQ2H3/jTpedgMHTba hWCb/zpsj4lBycVCZO/YhWR75YC8WKR3DMTKgcswq/tUrO8+DHm9+6N4pRss e07FNrtg/HAwjBT3RT3ttbzbLUra/ih2MF1W6lbU0OcYVq7GJaPM8TojOW4k x73JceU0bZU3OW70RjNT0/c1zGr7tUttSK5uXlS/w1JLurbkaxvGdFVUI+lw PraO2oTIL5YgdpYHDjoF4WhQNA5vMuWPpvIdlt0/oZb3Q0Gffqa9r9oqEuZK LapH4LeER2Hgux/A8pP+WD58EHQTP4XLhI+kZZzj2yNl3RqDRHreZFGNWakG kqocaMoVRPcIb1PSSBD9hjizThteKiINEriSpK4mqWstl5DoS0j0pZQlEunr J4n3SXRLEt1yAUpIdvFzcYIVZab0PH/sBMmmih+pzqVXAGo9Nct3tNl7GLKv 6mMF28AwFBxzQ0Pf/lRKP8XvBOE8FbNAHHQk0atI9AaxZCgWaXjPzWJmiqlg IlOBZBEZLXLGDfcgBlSRUhG+W2TFdVq/y4ZQ9pHRjJjfEPN+opqhmPX2MKDS zb11224bM/60xmvL5yk+x8qeE6XehFi6Y/0KOSSPjY6h4TyOgpIchRzPSkUh km31cqUAe39lt1QwQbdiGmeJPW+LbTdjMPn9udjPkP5fR0LwzQaDvFtK2uUZ pfBehOPiaPnjDD5kzjezd41GhfPeoe0474dKcv52RvqfpLy5QpSdsv1BnNpz HYdDryFvdxqOrN+AHdujUFqW/5xpOFfChQTPfrcfvj2y+c9x/EH0f+sdDPuw N2YPGQT3yYNgN+4DrLGfo64TnrHzlCvdOJAraqUbldui0g15UkNuN+rXmrjd sMyD3BaGeREqLAW3l5DDS8nnpRZonLSUwXbjpCUytSeJ/xYfW4gSS4XalnNw ceIs6XnZzLkMfkOl51d0wYzpg1BPelebqo4a4fDyZ3D/wAp2wWEo3+KIK0O/ ljLhs/Q56RK1Q1Dg3krtSvqh1FmrETdOnBuci6Ilbswmw0hlufjhPanmHqlN uUUCXDeKkm4Ma0jvOtryKp12Spu+xMOzdRdLWzv+E+34k6apBfnI5OIeo+H2 0XwEjHZG9CI/bPFsPc5wsTS/HUB/QQKT6GTbtrsBd843kuOz4dx9LE71GIhp Hy7FCfL252NBuLvOw7QjsF5MvjRK8y5NfGwSJ3gpYgOVoHa9cgq0WqK3UgjD 21+id7nB23ReRDsh+WJbbmsnJDuOIcxvKd6d+C2Sym4zZriiFHOUF5mWk81J Pfrhuz2bHzDD5sc6ZPMDKMzNx9IF8zDis0+xjNY62H2hUidoMBoS01trAjnK p+IElXPIDVG0qUyhcgOpfJlUFtl5EWORElK5jCa6nDSuIo0FleuFiSaTmybJ v+vJ51pK9SSZy6WTZC4Xk8vFljKX65faSYVfpbhEL04DybVJa9TapO7e2D1m EYL6zkL66CW4MmEOKqbMJOBiVicQGWK3CEmQutKAYzNWYt8YaxweOxfnFzij keZbxE+3RH02o1Qtr4tE5MdkGlNkGocrNA5BtVqdUMdLe9FLeHgpXL3PRD+m mC5BYW9xjrT713DqMxt+X9kh0tobm1zCsT14PbZuXIfikgJcZWIlB6tPo17s HRQF+m2VsMRJPisVMM6JqjID/ozAZw1YjSTfcPz3RABuhTlIm1qlzVlEok4y zaKqz+NStaYGhttuK1ahnFahlvytlk4xywUDqnwCJP5WkL+3MjL/kL4PSOG2 Sl8hYrdA+++V6YjGr5kou13acyrWhO7Fbn7QDGXV82TtrL66A8ttvBe+3RSA X7fMMrG1LjENSXZGTb0jMoAoX3AXVTPCUEq2VpGt9RyjS0p1vsLxC1A8YRGN 72IydgkqydJqSp3lMjRMWiYxtUGwdbKGrZM0bJ00h1ZYZutVRwOZFC49v0bK XCJlGtSaryK4EDVf3Y3Yw3b9B89A8pyVUiIr9hMcXeqBrZOXYt2I2dg80grx cx1RzPtvECe5xeIhMb1JudVa21GwNUpi61qZrd4RMltpeOsMCltFKUdpalis I6psNW91H9JEFeJI7ZzuX8L2vakwDl6JsOk6bBDR85rW6Pn6rWuK/XoaeWt3 INHGB0nSXkJaXGd5u+uqgcsZnUzFvE8dkBkYgV9P+RGGtdJ+wgqdslVLv1Yq VWOBWhL1UT5GSHQtEdMcpGqFTyglGJU+QVJ9i3K5voV6ilI7w92Gqg9KmwDE F4lpv8iMrx9U/rsdtToLLFTiit2ps0jaXWLeY0S/h9oRV5yJfsiUfKrlK22H ueDGuiC07F6kxNijlWJNin4T53Ty9Bx5mk+PWyI8LgPJOr1cRbJiqTvyxy1A EXl6kTwtJU/LJy6lZV2GGnKpTuUopY4crWGEUDV5Econk6eTZZ6WTGaWNUkO fr8lUe56y7s6pCq4BsHTdlVwxcKzuxdSV9vjyCJ7bJg4D0FDpyJ42HQcnO+M NAJd4C7ulTrlRQ8gFrvFQrcS0Aie3iY97yp1SO/5iAqYazskq1yvT5219Ual l6fpy7lV02pg3BVrPQO7I+h5cnIsNHw9KEXBg7Gi5wR4fbIEwRPlKHgbbyM2 qjUKlpt8RWxnQPwqb8Lgx6Rb7OcKRJJ0cCVEioQXD3FBXlgEfo/zljfCsIvS fi6dvJ9L1NIq1YfjmLMB4TaOcF2xEkdcdChjWFBK01omVfQI4vMAXCRff7h0 CebKfymEbd10r5anFz/a77UzfflVu9q90uaGLibatuHd5B5fYHuvkcgfPLFN hX2VqWo1wCWDV6NRVBrft8q0m1VUKU5U6kudVRI0UzVNqVhNhFSuUXiZsiXu yCU/88cvQiH5eXHCEnJ0Kb26iaMWEkm7opZmtGbyYlSSnmWTF6pBXDHZWTRp BhqWOymBXU+yJEJip1waONhUGrjYWYfMpatwZOJkRA8bgcgRU7B3jg3iVhkk i59Gn3/OTWhSuImd9aK8ghRuR0kxyk0m7Le9o6X6n3clZspMvesjs/Oaws5G Xr9WsNPYlp3lXp5PKbGmsKT9n38Xw575G+a/8AJmv9ENM97sBs8Z8xi7rmbs Ooqx6zzGrk6IXijHrtvDY5AQd1LErs8qMz818Rk4vdoX8Xb+yu6sICSwJ2vG L8bK4UwOosX6uQ6lI8egwCtCIqUoXnLQUU/yrYLD8hWItHVCnNgWSR12ISFz qFMXScaLJONFn0AU0s9fy8gyff+Sdl5NIaJ6BqydaVSnv8S0l/gRbOzxv6dl 6vcmregfgLKVe/DfqDDcTs82x0m1nmH83jSUisJYBxxMnBRVseKl/cB+kn8X 0Whb/y7bzVryspgZyvmxC5BLTuZxDAvIyYvkpMrLyklMrKrJyXdQTU5WkZPl 5GTpFIYDU+ZRrFE0eTZySMqrzt5yuWSfSJmU3nJyU+Xmh9QFNjgyZQ6O8LNH Js9A5pLlaDhxnLfIDMReVR+ZlNkkpahHUCzMO0lZS1I2SYFzlDThL5lNb4WY PrKbt+AzUe/ppkLKS94yKWuMCimNJKWR5tpgxJ309AdM1kD2TE9iS2Q4Pnz+ NXz17Ouw7vYqFrz5Cha//SocP5gF32GMRecwFnUOax+LPq8k5dmRO3HSZg3i 7AMQRxspqnj4jiPdxutRs4GUPOWG1A8HYf8yOzgvXwn7ZSuwU0xiuvvjgi4E RYZwFPJ+C+nH97p4wWPlKpwzBiLfRy7BUr5jt6mcxZ+no3aW4P8BHd3mVqH2 xE201Nbi75frHzFDR3Uj35FtKcrZPjf89/JFmZGf4bzYEqy4kCQntaSXXAta yo9EnTZKwWI3ZI2dj3NjF+LCuEVk5RKJkUVkYwnZWEYpp+euEEIqlklUXIii KfMp81BIiuVNnoW6Fc5SLXuVjuJQS+5iByRMX4gjE2bj+NR5yFzOyNFVr2yT 0eF2airO2HjJx+NEeMb7TCEds0hHuTZyBCpIRzWPa1YmMq8pRXhFRdBbEhVv +Yhw8xY9uKDjVYWODYS2RjvRY/RFpSgVmJZm9usauypue8CrL2Pgy90x7KUe mN69J5Z+0BsOA/sgfIHjfWHmSwqbq+OzcJx0PGEfiBOOQfAeaw/XWTrs0rvD 224ZVi5ajB2TpiBzlQsu0Brk6MKRKwrL5JKHoj5JGFEMwzl66WgHF4TZOSKb CXzxjj2meo3aSan/d1jY3i3Hn7yLvSm3UXftW1Nifn/ZR1HdOxEJ7qLGpxda 8vfKnuIZnFwle4kEhtlJ9MppbnLkmKeUkSsTBXVoetLGkAu0gFljF+EcLWAO JY+cK2T0eNFyiQXDwcV4m66XQSUDxUJavnxSLY+WL2cK3bH1Mqlw/C3PEJQu cUbGjCU4Y2mNTOuVKFjlhkr3NajRLkLqfWh8dbiZmiInsOLwm708bSAVnmVk dYEBY6GHPG0gErE60q1RKT6rUu66RLUbUmZzg1S7IQWLkbjiHaFUpdRUIKVD qyTdSvUG0+jeT7WHMeCV1/HZmz0w4s1eWPbxR1g9bCBcxg6EYe4Y7ImNUAsq XK9qwNZVOvivdMaKxcuwfOlynPL3QmHQSizvPhH73x6MwmGjkU6/a4FMXRib ztSHIdMQhgxSK42RSppU+iYYDvS/+Wnp5krS/X9q29oXTtcWm5QK2pM5v+41 oKX4iEoosS/25GrZxscz7EgSkyaidqxaYovdLSGpEkfNRcro+UgjqTLGLUQW Ddl5hns5E0ksy8UWyGdu/BDt1ELkTl6AC8w8zpNQ2STU2QkzkGe9mnecajmf Iy0I1cDM95JY85HsSBgaOHo1ptLQ8iJgBQmlbv6JX20kqdSMibx3DTFlTMXC hon61BpSNYu6mAqxrnpHWfBBqpyocEnypN6i/l7rREglI/Vyow9uZmR0Rqel U2eh3+vvYPx7HzK3+xj2Yz/Gki/ew+Iv30FtSV43ZVzNHXGK33EAHuNdEL7Y H3f3RCDdx435xiy4dR+D+HcG4gKjxiSOdxLJlURqJRpCLZDACPQBnGE015Bx zoSsmJ5R6XX/d7z8Eb20k5B/gl7tq75ry16KSHjTEqUuf/lJ+QbekYuA2fjj pLTlOphRbQhSlfMGOaSXiGKTp65Awqh5SBy9AMljFiCF9Epn5JY5cRGyKecs KZMWIpvcyiS3UifOwelRU3FwyGjEj52NkiUuaHLyw3UaK5Fl3qFvvOETQbDD 0dzGaAQoC8zepLSX0sWnUHsmgz7SF4n0j8KPq/VWc9zl2ueifLLEL73MrwaD XNux2bhWWgQRxBKlHZspUmFHb7mwYzXJVSFNW4gaq34oNHi3JnHqcWJxfmTg 631gOWAAVtIqzfuqD6yGvgc/+znKssj9u3u1X55moThHnbUvNq4OwvcHwlG6 3kCeOWFa9+kI6j4Cme8OQNIKFxzzCsFRxmVHdME4rAtCdfp57dK2um/vo455 1Zqqqssm2n2EracsW1NUc3Ws1XnvwNne+EfsGlE0TjFdL0gby47YBOCYshU5 noQ5S8JkKPvzk+a74MSIuTg1aj5OkyzxDKoSxy9E8oSFSJlIIVGSJszDiZEz sP/LCdg3ZBwOjZyMouVuYk+Fj5jal+JriShr+Y48HXHFW657XMdgptoUzPih gsHMrfR0RXWexIW1u6RDNAnKGbBUpfSyWii/RCq/LBforZFqbos0OdKCFk5M bzUoqwh1Utwkin+GSFMFUgFQH7kA6A/Nl8yFTurEldhyGfWpFS7YL4H/4uH4 etC72L8j5g++3elBxc1Z9pqJXY7B+MfhULTUJaLo7DnorPwxp/sUbOr+JQo+ 6IfStPMoSTtnKjKm1soRr9R4XTvxppCjm+am1a/9HKmBX609p4Y97hPk2mX/ 2TRdMS0v4DbdUXr0XhyyD8JRwn/SRd6Jfpbwp3OI9xP6QyPn4Qhd0TG6ouO0 FcfETvThM7Dzi4nYQdk3YjoO0S4kW60Utl8KKm5IgcVNH7FgeYuw3xQ2Qs31 1W+OoI2QoWdg4c3AgtB/39TUVfHb4vTIaTrQeGZCiTQRYrZIRV6UgBXhVyk9 pVSIUi8Xoqym1DD6rJaKUYbJxSil8qEiMRclRJkN8XJlsTtbTxyrGYqoa5Az ZxV+i/XArzVnntNYg44qYsiO61FM+WAhDvPe/n00WHxFm/RuRV6VNLu1ksHM AQYzjYuXqn5OnXYXr9T5Ae1ElRmAVVaOMgOwuiBg95Urbq0nb3YtVOKeN3G7 4TJSY/ZhP8EVm0ZPULfjeaeH57lgB8GNHT4Hm7+cjuhPJ2DdoAnY9tV07B5r jb3U6VOzV6LI0VeaFhVm9wp9uvDr1yjXJRGAysnJZUWf6znS1RoPX0YPXxMb K8+0PSGFP8cY/pwUKS7DnzPC3BDYDN6S+KYEOQSSi1SWSJVGxQmIMkL6MJti aOTdWqkyn5fJI38u0HSU7titfmONmKEMGTAT94zO+P2Y07MaGMXeUHMwqk51 xkfLEU/q/OcEB7H8mPoV6OILZkTc4MG44cw7n0jHBdpPp4hmJP3t0pE3f1hz f+Gro6hanvjuZJIaQ2oTcgV/1ZZrDy2P1dgINWJV72XpYFs0RYqpxZXK3z6L W8S/9Ox57KTt3OUcgOhFztB/NAY+/cci5IupUlG5GCr0emIet8gVWXYiEKQm UaOELW0Uu8eMMv5diLKoqHyJeDcrEV09HW+N4njLaVBLiXmB0UexZc9Jx12y aGCOiSSSHDxNwJNoYNLcwpTKpEwcCXgewc6nFBiEUMMJdh7bzyHY5wh2NoHO NAagOSPb9J1RgVZOyJyxAr9t9RC29S/t3Le5r4xVpxisPrFFqn84fj3JCP16 WRcFaWGZhRcP6T4cWe/2x7+Kiu77ulQT0h3U1lAjjZPRm6UvSwl65zMc7Dcc m0asZeqfgt8P7Mf/ALo2JRlnBnTVWQTbRKI8SEyW2Ct/+9f7fFJs5EZkHIjD ppl22GrlgAPLdYy6gk1V7guodcXKPHOVPkLrSIUftZAW4x9hoBVOZyoHW2JJ s5yYl9CiFtOiFtCR/r35kmIRn0Fa1B4cJOaHiflxF/n4RhKdSopydCOTgWgW 4+5sxt3ZxDtLSutCkcqULsUYxFg8AN82X35WozS+H03HbS9ntBxzebId1ObO YakbrBYMdpKPyMb5mMo/CZytu0/GZnrgwj792n9ZdKv7N/d1Gk+2ea+Kd5ZB mHXdP8H2D4bizOCJzMjmo2KFHRq8dEgNOoPyhNv4qfHqc+2YdB/qbU+FsyNa 4Nse8+iKo9tTkCMK3x9wxS/NRc93Eo/wz7ooXlUkCCdt/U0lnpNNxlee1Cgy edVwetVwqbRztbRzVHjVMGk5u9JbLcodTI8ahALa+lzqfWnszscUg3SLlzm7 fi/20MYfINOO8jIneZnTvMwZT6ZZibpQopGgpzfShyBOH4wT+kDUpp+Dum/I j0RNnrwM/90otDups28940g9ZyLKRSwb5qacC9WrKzyyCbeSyjEefPsz4Yxb p4g4uCJMlj8pm832iq1ucoy1WoboXp/j2CejkTWGudD8lahzcUNzAPPrDaFo 2B2NkkMxKM88gbii7/DDv37B/wC7SBDFj1gzZefGt+Nja62jrlLVqSQPMVHl KQqfPasZFjOuTbYSmuLQjnJx6ETlHHq2h5oXKoWhZb9rwWBMuNxSjcstkIpD B9MiB9EiM3SO3fWUEv4UJ5+TnEwsw7RdbsHY6xGMfZ78TUndth+V6edxu1mZ 55aV2avPFFxzdUTLEdeH/4dA60XlT51mrYDNaC9UihOOpzwe1MA7iR7aq/to JHTgoYWtlQdRLmR9nEorvjJlTY9PsbfvV9J7BTMXo9rGkZGMAZfXBqEpdi2q DqxHxqFoXKspxN2710wGWpuuyT2Tv2NJ/bJdbdI/0QygXVVAo+NwmOGQPFF0 +Kn/YTQeU+y8SN4OEVVROfqEcwjOiMidjjXdXakaTeeaq1OcK5U5n0Y2j5Dm itLRhDOLkkE4U+lYv2u+rH7XjLeVHeLGLcEv6xhz1J19QHNHQvPM3dHfFL0X h8Y+eq0bPnnxZYzu1gN7Fs3B1mmDMOP1l1CVm6Oqo7C/07tPQyj9bHYbP/tM Gz+rql4qcdpntULC6PSg8bhgOVd6Xu/hiUuh/tLzur3rUHB4PfLTjqCuOu/V jmFSTKiq45rfap0MbZZtaQa7LibsDmLLMj/8vNsHLWUnHv8fsJOjlKeRsm4v 9hO3Q8TtBLUx3k1xkKJiNJ1jBp1jhjLfmW6gYzQwUjZQcw1ByIvdi7t0th+a 6F8E5/cnotnBAS2H3PDzrar7jiqbi4bUOrnLpk/Bx6+9iiF/ewOT33wPjh9/ AO8vemBR71cRPH+K+p0YArV59Jpbuw8RXhObIsKxnVKck2P6kvIY+gG7JUsR 3nMwDg8YiYwRM027B5vX+ODS+lA07oyC+j1zt25fNRlZtRC+NtdVIFOLhLab NVPx0r49qUO8GCzNkb8rsaXidJtyHu0TA3WA/qo4/JtUtLJkOYre58pMioHT cY8QnPIMRZwX3ZqOPoxyUheMY2ITEg3e3ebL8szOYzgcvROHRy7CT2vd8eu5 dZ2GLc+Z6ZJqxfu+SM16/jWMfPEtzHivL1yH9IPxk+5w6fsKlrz/PL7fvRk3 Nm5GlfgWN/Uk5wsm5zfl5b4Y8swLsHzhBYx75WVMerUb9NOmSJ86yj/JEtvn 3h6IXR8OQ9KQSdgwfzH2i5qKBj0uRQSieVskqvevx/nD63CD1rC8IkcpotQ2 fVXV7I+3qD1j5r3JZvBT/9bTUi99leJPMVNM39TSWfW1lxRWXv+/7V15dJRF tr8vuOG4jrjrOINBEBVUFkFAWYOCyCI7ggrIEsi+p7uzEJKQhCSAIiiybyEJ JCxJCAQSIGyBEBJC9o0dXM4M6njmvBnl3VvLl+pOdfL5/nvnPM6pDjSd+rp+ v7q37q3vq9/FLKgYF6iSg4VQmlcIZYcKKa3E13Zwvb7JuHYP0afnyyOhfKEX nEn0hnBLkMbV6aRGOzFDzEEUN0ybBytfeRcGPNERhj3fFSa/0h0+7tYNSeoC QW+6QpxbZ5jfG/P7JcPgN9u78C+ffnB75ltwfWxPuDi4B1R5z4H8OT7g/1wX mP1sZ5jy+DPw6QvPofU9D/M6PQ2Lu7wKmX1GwrFRH0PprIVQExQMjUsWI/FL IMhzAWSsjIZz+bugtuK0ocCs5hqCISmIqHpBSYmadI4XsDiKsPoMDeIi6xs+ BVUMz5nW2CQH/7g4JBw8Z82BwPlz4eiacPaZ5x1i7AqEtAAhDe/UFza8PgRy Bo6HU5M+h3IPP1g2dhK8370XTOnXF0aiPUx9o7s8NfjPvV7w35nu8Fv6bIyQ Z8Cd9ZPhzmr0Dckj4PfoIfCfkHfg1wV94cePe8OKvp0goNtLaEqd4avhfaB+ UQQ0rYiDuvWYsaV8Cbnbl8FlnO8NDZVy+F2dg3q3Zn7Ih3/UpG4Ce33QDtR5 A7ygkTL4LfNbddwcyPZ2n5HOZO6YKXB2rgf2EQy/f18jAHWF3eL4GffM78Ph 96ZBMYavlQHBUB8bBQ1fYTa/eQXEL/gc3unRC9ze6gEf9OwO43r1gDlst/Jd KHipB+vj4IENkJESCSczw6FqnxWuZwXD3/f5w697PeHfGZiRp86CO1unw2Gf QRA2tCdEj+wJiz98A06i57iOSFZcPCU3tOnry6hYTlU1Ujam6h31ISwHLCcK PCSWEbNjoTyOciOvFjv4k4RTbm2Xnx6ZXTNgBvy0JBDuHFsl/AjXyjqAOAa7 9oZvXhsIe/vxcyCl87yhxmqDhkTuJSvRS55I+wKu4lhLygrZb8+e8jH0frUr DOn5KnzQqx965E/A3XUsrHUdwPq4feZsOxFPZ584AsVlR2H72jiIX+QOu3dE wL5VC8D/g7cgaGQv8Hn/dXAf0llGuDQByTvRv7o4h1A6LjUwnSQcJHUxf2oQ nFxEoAW0sNa2xE5mveQGxTM94PeNmKz9UPukMGKSLTvKYuy3Ycubw+DAkElQ NHUuG29dVCQ0fMFPBZVhynTxSAY0VRbB9ZuXZK5zpug0fP01yTSthKBPQ2Uc scm1H5RNnyM+xEOYrxOXQc+OnaGXazeY0L8f+I7uj4nC6/DpoJchY8MXumRA V+L3cedQvU+v7Zodpu7MwN3MrXlOD4MDoTxF++3ERv6buF6dzc2HYmwl1Pbn w3ls5/bn3y3+20nmLvN9ug+xou80+PviAPhXmtfjYq5Qxda1uNys6PoO7Ow9 Ego+mA4lszygKigUGuKioWF1IoXG7NvKYyDWaRz2QNdRsN21L5QjmPJbzJ44 Dbp1fgNGD+wPC8b1h2lDX4Nw7xn3O8wrAqxL2wCqgfQIDWzOj1/czTgKnvUl ZPqnwX927IQ7lSdgmKD7Rl0DlB7Ihw1+4bDZLwK2Y0vFthPbLt8IF9jlE4Ef S/cOh22eYXAybQ+krN/oCK2Uwf2Edv6n853/36qyHhWzl9QIDrGtnT6wtttg yBowDk5MmAUXFvhCTVgYNKCnrl/LM8SjqUaG+KgDylbXkZDm+hZUzJhjZPGj uk+FyNmzYdeiGXD+XJG8QyedIaEpq5uo0bAdus3RMO0W/fLLL+9rwGQfukdB NNwvBzatugE/V92AX3+8AUPEqn8TEc1btR62+4djThIB6dgy/SNhHzYSzmWH wLHlILBrFgbAovke4DN3PoTOWwhrFwRCQdI39MygLA/nsAv/sICUku7V0+ZC XOd+sL3HcMhzw8Vq+nyo8A2CuuhF0LiS76GcT10JF9Ah1Feykhp/NmxP4DrB dSoscn0PMtERV346x7g9Oqu/P5xMSobf99qMkhKqe5Sl19VwVQOqfH4d40pp vA6Zh/wpT07IQODgmZ+g+tbPHNUOcGjVWkgNCIO0QCpEEcGeGM0OiIQDAYuY DHGeXyRs8AgEP0TSa+48iHP3ghSPEDjkFQ4FXhFwGFseq0IRBqeT17Kr8a94 F9v2Vv7cL+KJlUFrYNtAb/gK48/Mvh/CsdGfwPk5nlAdaoGGhBho+CYJqrZ+ CafSvmRRfHn5SSNOJmgnu06GWFc32OfaC66u/NpIvVIwiVnwngXKVy2DOxl+ El3Vo0p01ahIoCs3cMgZCGRpyo5wmMmiKbfs7XsbIgZ5ZPU6xDMMM+dwyERM s7CRmNEBxHa9ZzOe6z38IcfbCoW+ETiQM6zKBxPS9cHgxTsCCkXVqCMeYVCy bK3dQZioNyfy77UzQOfx5R3e3LQiCB6wGcpD98P12C+hNjICGpZT9Lgco8eV kLdjOVxCnG/euixiMXqKvhLX/5kw3XUiJLoOhf2desLt02fZ/6asSIWgCRHQ uC4Z7tQWGCfk5R0/8g2d2gLaPjwa+QdRHixQJkHN3aJWBsnA7g0Ih6SFPuA7 j6O7DtE9hh63mMvAMhVYTKvw9X4o9aPyMfg+zvBiX1KmEpqw6JJPeNrgiLuV 6nNJh7h4mg/7emK31zng90Lu1kYIcm+Ci1k34fbZMjiHvqKkYBfUYLLTUayK F05VIcCfwWeuE2CF62DIQ4B/Ok1HFzJhycxo+G5rEoKbJx+AVv2uqyaCagXb EQaSd2m+s0wGVCc+iL0+DIUkshtghc2+wZDg4c2eKvdEVL/x9IeCgAgoClzE JEtLsJUGkDYpkyzFFkUKSPjaHl9JTn4RXEAPXeonlI1It9QnDIq8bHBx+Vpj o1HddgX1CINc25dv/BE2FdyE73Dk3JTbCyA/hc8xA1iFGUA+ZgBrZiyC1R5L 4HZqItypyjayG9XRvtg2impwNVmD07tizaC4aGNUDES4L4Sg+e5gcV8AG30C YT/ORlLrOhkYBWewnQtcjDhFQzm2isBoF6iil5rAaDS4miAheYmfq8LfIdxI 3K/Unwocoe2zQlZWxGuNEdOq26BOor43RTjCUeLx/LcYzx/t3AOy3QPh14w4 uHOr4lEFDOkr5TRTg6cOfwyg/mLpVgPHAF9fiFqwENZ7+8OeAF4AmhTFpT7o GQSpROiDXsRWFRgL1UGxUBsU6wL1wbGYXjUwFf8Y1khIqA5xI+wqA6WYUASU +XFRxHNeFrhdwxW05D0SuQvpzCbeFNZMT0iOdZ0B3q6jYSOG9McHjYB/74l5 TAFL+rsX2wZLjTR1YPVlr086zWZIFo9XP7cx0Gg1yccRSxnJc0xGksTxY5mM ZG0Ql5FsCI6DRmxNTEryEr4+hK+x+O9YfB9RDMGZR4/vBkUx9Li6hw3KfCw4 40LYtxL7g8YBHZEjcCvlQc9GUc4l98v1UIZ5Q2lOvng2iK/a41yns3B+m+vb UD5yqLEzqnq2jhpYHFBUeZIo0sYDpTX0r17CB7ddJuYxqDqQJ5TUrEJskMTt F+FUXNyseK4Ic9aS6jmhGRKPCMYzrcEr2Og5Qxd8jYPnmEw/SQKR8mC9QLYi uBnZi35WKPMNhZ0LAyHi+T6YDU2EUuss2OzhA1vQ1lNEZEu1STJxZdrtGwl7 MKKlMn+7MRbIwHhrlyfGA8vXwXc1Dd0VhMe7TgMLC+X7sFBeIqx6PVlzVw0v /yDCbyoIO3teRd7GOrXqGyHd1SxdfBjR5RLdsThnl8AFRJZKNtUExyNi8Tgv 45lendyAv05y3ZZ4ZbI9B5csOK8R4ZpQUqVp1nW8iJFsQs/BEPdMT1j1Ym/Y 3K0PbHm7P6SjR8jAyGsPrkLZuPrvp3LifhTdYsNo65AP/sSIK887gp2MyEGE szGqPcm1jl8zHMJ2GNt1HgvuI13fhwwe3KsOQXpPCbQatQignxT/pW5gTtH4 j+4K0M42LO8TUzmH6UNbhUZapBAFJI3oGKYRXRIYB+VBUgudV4EhkK9YljLp BvpD+mg3rfQw+01rAjzB3pMCgY0IeC0CzlVRhHQEXivwhbcxzekP67oPxOR+ EKT06I+BGCZkuHwdxHYYgS7AdhSBPubHiqK6sKqo98Ix70hWE5WyiHxPzCQW 8lp2JKMrqxmlrNgFUTOiwHeQpxH278Wwv+KzOaBzw39tG3U1NJKok5yDnPKv OqCuTm2J+v1iXeNKxCG8vrMoyn0QA6CCgBg4HhCLa1kcnA+KN9S5qQ5PEzaG ulCnY2sQSXR3YICTNuMVBL3JigE6gl4VKk6Low856e6PuXo/iHtlKGx66z3I eNsN0nsNYivBYfJbCHghFeTAxooGFtEL5RT3QZEPzylOeUewwhyFmFMU4gw/ stAGxUnfyipmKSv2wRfusXAsOsqI/5di/J/D43+Jueq0X1B4kIHUH8T8ZWFf Tpa+h8Qkr0W4c/3Qm/g3q3UeQKgLEGoSfz4bSOLPCVz8OYTKHSWip0jESUyS aUk4wfkp5++YnNp3tkSc5N/b+An96zbEHVsTYk8aKdUWLjqfNu5j2DhsDMS+ NggSXh0M3/Z6D3aQeuvEmUy6n0TrT1LBCX9ecIJlGgQ7pRb2ScY5dOlUl7TI hyRwefGJEx42OJ/8bVcRzI7pOhk2ByTAP3clwIVvY40MYTlmCOu6vgdl3+YY 8151639piwP+BAdhS6ffs7OzJ2to6GRi7eSRYh+oy81DLoSssNCRZMqpAUtw 7YyDszjtiYtK5KEWeaDiPlSv4hrJ2WEjMTvGhRDk/kH8ZFyELeVc2EgOKQ6q kY/THsGwGXnY6jYWtmFb9+4oWNdvBGTN8cUYOxL5pxIKPB85588LhJbhzwv+ VOQviuUkF/35z3J/NR+JYPlIMeYjrJaChxUuZx1iebDj3SdjBZLb4OPf+Bz2 0OOYu2NFgMlzkSmvzIU1fcOgaVYY/JyXLxlTn6rV3f1/rCVjtBOBbNFCO0nD 8YsKY87W4g5iNmRjRsIY8+OKciRcxZQ/GWPxUByUAGXIViWJV2FrEhVGrlmT 4YYtGX0UL1xCotA/0DN3RNl9grBEIdbG9avOeIbCFrcxRJQLpAwfCw9AKnK2 C/k7apQBiIJidJXnA0hxVuRE2Cpx0WJpUTVLi6oxWKgKpNA+SqREkSwlYpUA fG1Q4m1l1QAoxHfUbTVySIf3ZJ40vY8XFMQlw297I6H5SdoqmNQzDdJ9S+GX nRfgdl4GOC7vBGqb9OnjfZW7v2qWd8fbaLyvR5C7IMjF4eb6RXLu/KLhEOMu jnMX3MxdHdUpQs6uYCOtYuROxu3fM8li3vh798L1cMEdNuJu7/gZSNkY2IG0 ubCTEvdDOr5mDhuLxC1m9RuKkZvzVJk3gOo3xMoczYWSNHgQ8zGMfYNi8Ce1 aHw3mpVyIJVjKuXARet5ndbzrE7rGm2RLhexKDnsCrE8bs7AQChesQzu7AmR 6XBsxCVYs/4WXK++Bd811crwt6GhwVir5BRREwwH2nThLzlDooX+9Xwr8YG8 6cR3K1+BLO9AThsG8VLbjkQcGW1obsXBS5G2RKQtSdBGxXyINiHmiO07IbzL hLWQN+LwVjg60XASREhkvJVgkrvDjXOWilylDv8I0rBlDB8Pe4d9hI4xGjmL EdWUYxln1VRpQKSI9cGsygC+PshqDTQGx7JWj+lhHSn1Bsn0UNYGDGMVU0t9 QuFaTl4r5N1r917Kii3gOcoG1d8gcYWrjeQ7v+RnKL/6M/uXfLxEPWMitbLU rEXQJo+gqTK2MsRoWWbL6T2svwgnWbv/EOTiUpDrQ4xx9Zo8YowU2xwYqxWl mC6LKh7E2M3wZUwqWbDmwuhyxbeTmwkLXwo5aGRpaGTNZI2HncMnwG5s+TM8 MXCMgfNI0gWSusdWjaE7zz7jMZ/nOVJTiKgQF8KrxF1G4lhOHxLDiKsOdiTN hnm9BUp8gs3zlc5EuK9upJ3ew4b5qAvZsxqwHbhRZVl13DxhIu74m4wBcbrl 4jrNCCI5BalDJkzqLBJUil6w0pIkJBiTmYb1VUHQDYUkF0bTU0zJXWWoFBeV VLfRyMpYxk4qspI+fCI7QrbXbRIy5IVrVyyUIjOktF6FsU6tyF4bRfZ6mZIr bFfpWWLaIHiAyvgxWdOmUJG8IlGVpNarbLxc9LfCBT9WdVPOWJUQZRnT87UH kubGwA/bk+BOTa7Bl7pymeTLMVxv+fF7tQ93SL5cRYpEApP7vWyG/EWzblwc nEC+zhBfaFAVyFUNSXwaClfLOGfhpMm2rB0j7El8Raoi0EMiVZeRquMzPSCd UTWO0ZSKNKUjTZKqghlUYjEOytB+K5CmGlwo6yn/DUkwaLoaynPgdvhKwvi0 2UAF7S5h3tsQKvLekJjmvJcUQUlSISCU1JUZoA6HHOWSNKbLR7DONx5+3pkA dyp2O4bpzWuFfWjwB/kwc66E3wp/FLJlaWRvRTUFbee44OI8kyNJYvrvdchF o5BcvcLks0krh2k/MLshO7ppaDwmwSUkZP9H05GQMWz5ITJSkYj04ZMhE9s+ tylQFECbEfFQTqLtwSJPC+Fp8WUqXCU2JK5blrZjOxIPCM125Ip02y0yLZYF FhcratdWDCWD5K2ncd1nwk6SdNy9xNgXUM9PPN028Or+tg74B03EAq8I4A0V BC9eAph0YA4zcaJ4OI1AlJDObahiCLZkJqElwb/KHNY1WlOuoxF0YiZwJZwr E6UNHQVpbmQC4wXqk5GBKZCJiO8f97myEcEFxuuwNYrs+Aq2ayxDTkSoE+Em NSqXZOXlw2ij4oqVZ8Z1CD/PjGO4OG0wV10kNebyoGDjtt/U3gshLyYJQ+so YydMHvZVsVfD5z/bY68KC0rs1fX//tYX9O4CdlIJyvIQWgHe0YZ61VGxoJ8N 4evFRSExbEAflszqSVzG1g5xTnZhYHdgk5wECtKGfghpwxBytwlskqe6TcaJ PwUy3KbCkfk2hDweIU9AaJYi5KzELU+CLULTnW9IcFn3hzG7SmLS7oT8NZvI fxH1eitVFcUowCKL4JEaWySTBKZCeD/V1Rl3amYN8IfTyfRsgcVAXd2TNIE6 iYzJo7oSdTVYVp9pdbZU9xDR7/Fl6yGbjtFTwVbm9rkAYyGb8UuZ8lGZCr2N VHCpuAGHn3Thm3CqX2KNT/RGcYozbehoSMXIlqGPyKch8unDpsLecXMwS8EM FJEvxWsYsuOhvHjrZamoL5Lamwx22g66FUbq+jfDeK2wKzaRzRL81jgOvwUn vWVxcx3CEAurQ+hcdI0/k7DwfQtcXL0Mft/p1VFhRS4AT2lgdmBFXeN1rOge bXV8Ury3WCqo8OOeBZGQRWfWhVARaRIfEUKuRSGcmVIhn1XJpAeTODt0br0+ DCdtPfLxBNSFc8Gf6ogESEVGdiAjO4ZNxDYZ2xRkZiocRFsgRs4ajCQiI0lM CJ4zgsGZlYvBc0aSXVjxqYfY3tBNbI7bC4wQuxJgSIglnEla3sw74ETrojXt p8XuqZAwbQ9c25IFt/eulXfz1OVC5oeqDxI0yZSFsn2Zg0wVTkqlqZUHOt9m H3gZvq9uhN0Lo2AfuqosOlcuFQWCmtkh1WgSN7sg5KQqbZyhalZDgddRIM1t KSlAuts7kJ2UoeMhBdlJQXa2Izs586wsE2X2QmGYIzuU2xA7NmMjgRU+aqYn WaGHZ6J1NqGNy+hBm7FGc31cK9JjIXoO/i/oydx0HeJjbsDVs7fg9qUm6e/U HVBpKurybEfP3SyMWr16NdsBlX5usrAcoono0K3g7whujiRvhEyPaKaMs9d3 CXITh9zEM+ks0jIi6ZmzGMaUWLj1XLCSBaF/E6cUL7LaFuLMv1CG3DZkNGxH XrYNnQhbh6LVjPmc55uMl+bwmGS3a6gkj8GLqB5pEykN2y1g3IRTPdUbyMs1 bMRLo+ClykYFwuJEgTDkxRbF5AuJl5/r65xpxOiIkc/k7D/1E1Te4Im7+liK XHHaZIUfKJW7nMjIRM2yTnvU9NtIBn+8qgvkJ2/ixwV9lsBuISNzEPHKD1oK x0hKRmgw0GlR0mGQR/Xp1CA7M4jtHPJwls4NIg+bB30IWwd/BFuGoPf6cBZP K/0orYw3eDhPPGCrptCYlbJNZtU8WSVP+/TSheWTD7DImGi4LGioDUvgCpKG VBbSEIbeyxaOU8WiO1rD/uUoR6aew1HjVweHpCYO/BRN+1a3imVgwB9i7QTl WUchlY7veS+BDL9442x8Hp2NZ/oriXCCjvBZ+Nl4OsJH5+NPi/PxJxHh4+J8 /I6x02HToHGwc8pCu0TQLvnA/spDRfKBCDeIZPCyQJh2WSj8XUYZCOF7PSyZ Zx540QYVXyaGSOVjBL5h4VAm8dWfiu8pMFMf9+/QNsRqijBGsww73rCVm89q DMbh7gk3WQ21rZCCkzoV4c4ISIB94lh6nnEsPRGOINTqsfSCcH40ndTG8sLj YLd7AOyZ6SuKOnDRe5rM+UhfIfbHlHpZupHE9klqEGoj1xOqvRJuTDiwJTOk KeO4GsbzvHq8bg3T6FKlJ6OZ3p+Qn+xgREPNZyOkRJXqujtoIHnUHmV1L32U k6RLPR4hz8ard7e48sx9cD7nGBxYuQ22oPtOQfe9Eycfq1KH6GaHLnVhaltd YD96zGycTlk4nbLQXPfYlkB1/jHWSbaHTVQUiDIk2Vkuh92dRtsoNrw2zeVk Jtut5nOXw5o3OK6yKcynMUvnwoQMsiFSpVaJiWRiij81NIxWpqb0tiaApD8y vh/hBEh17WuvAZI/cIzGV3sJzh0ohJzV29mh6q3B8ZASgpYeis1CLQ62WZiq FNxquNROfJ+a7HzI8Ygw9OwpEc7zb87IzhizkyfD1VZ7AJuYE6Dc7EGWnV1m M5L7gMZwqdxDok329RjKEby6deuN45eqL5W3eNRoTYOc/VS6x1kG9KAGtMnC eXDV2nDIwdFLeXTpBmViRKXLaB+Gyt5UWDkCRnLEEyQXliE9gK9J2ND5hQu1 EzZrFDH/yGg2c0jH7qeGRnl0Ub1/L8/TqYGtGLucUOqTKkOVWeNsHXnYAeLm gPhRqM4qQAAWQTZmhTnomJhQKgmQyvwjWES4EgBLcw5SK0CgkhxJ8Cd8TbTL QVi0K7ThyyNjsXGhter1G8QRQXvPIx97VMMTh6GrS+ggE/5doqneMpomOiap sL0eiyFLBPf7KbhnUsBqcM+Vi6ksDKVfFSIFqxJBvguG+Ykki8+K6vDKI+VM 3iZOSNzEYmAZDWfRD/+joXG8woR0E39w1O+Y8LePOx31c0ah9T2e0bCXRD1I VBJ97yEjdE4wQmfSeGGjtzqGz82h8wUcsRRWJ4GPEhz1OZzqZyKYsPpEZcTy saBHNPPRYcS0jufl5bF/9dPEoIpjfFqD38fs9WFDPoqKZ+8mKQuMTXP8cVnG ZbcAB1uIs/ukjE1D7WNTrmnR3tC0OIeDpPj0DA70DA60iKkkR8M/GpuMO5Oq IeusTjNKGa28pfDqbCvnOc1Qp7PXh+BWdROk4lDTvWKZON9ujFi4WlYCHMZF kBQdC0WAeAqHWUTiSaS+ewZH2Q6KcJSnIyhGpJK0J9BntcNYEZcBXOv+jiOc qrFXOUJ1gXtEHeE9dpECnTqqq6sjN/WGCa/1gmawn7DXx+EQSdDhQFN942An 8rkHQ7OcwKVMhu4Q8lmAgzyKgzyGgyxELgvDqGGEjKM8iq0AR1mAYyzAEZ5b v5WUg4SB2NtmKyNkR7DYOiRPwtEfWczC09OTDQYH103jphxvB3TUjPVTkSGQ IttmzHG34lhTcKw7kdA9OHezcKz70UhzQ+kZwYNWumNyEMPQgzjOA2HEYm4Y sZgjpEmbJ4u9NcqDOepiK8Yoh9/yxiRPS5X6B6+ZiF50p1Bmiul7A6OXnK+2 wQZ0RVvRFe3A6CU9JAF2hSZApgVDQiv+xJZhxUAcs+Zj67aT+s9nGsOT6726 gtoN6J4WGYdYUeWDpU4G8bIGqc8FHNfqLkHxwUIoySPFgOMuUHboOH6UhANK D3HwZ2tM6AENJG18V7EYvGzCX7yq+cJlmmneyrdgYNodV1EXI/URNWe3HnWl YC5o5qGqti39pfolWiTiLX1oRxOm9qbm65RrZpHjAVbl6zxkYKL7Ei+YsIRe 4vfUB7kvaqaH/BKq/+HzwoiRVQ8rS+s4uQnTV3PVCuUK8hmC9m1fVWXiKRMz sb+mywoFYfm+vLTKTiuXftwBa938e1f8nhr+V4r31IeR5JFv1W2IS+s0Lhzv uuvisMGaS1cpNKempopeWtqfw6VVq3O8waybYcM0l67WcH3PH7v0g63PMFVt VBpNjfKepPkezefsrtr8gCxhjt/AjOjXSE2vtQ7vNR+HaPPq9EcIrDlKWum0 Yz4UvapBd51CtrzS3QoL0hQeskdctWnHm0m6eTZWQ2K9chl5n/euti59v511 tTK/xrdyRZVoeUXVnu2uyNc3DZuTNVdo0JApXbBqtuIKj4pB08NogYGBjBX8 lWmanhvFe+otJhfN5+y++13GUMV2+FTNbzSJYaqqgcz78c/YOTfeoSLworvT LjtUF3B6R4AiOnzcYUB0ad0xt0tiTqqQyr+LrnSy8pM0XV0WXalbtnIeCNye VIZJE1hccYKmtyvio3I5FD2Jjp52GB5Zy/hWepHfnRr+n+hFJ37+kXhPXSSv Kp8jh0ojFF08q1yAIhkaFX5NaZGqpUl8VLMS30f29rzDsOhXx2i64oZwn9N1 T1ipIFA+50SZlhym3LBU14cah14drVK4G/FUzgsO0AobGKXpuELp2DHdU/yY ELn8mwaEDzS9lim9ElNOvCNnyC7FIqIIhBEKr3LGltCrC+v0HrsuFd/Eh253 ZlniKjU11FXgrDm2+DcUN+5auILhmo5PmSOMn8021BZUm3HTeKzCVthSeuWH ZAzZERWEYZpeC8zNAZ4ti+fjms1KgDBE03FeK9OAgBKc8bgfumpAGKzpNZe9 th5Z8mc4xCNl9uY1SNNllrlpwKN0kbu1MC8ZzapObre5aTCAd9zNAYHme+r2 ve40RxgfqZHl0bsShAGaXneYM1o+g+B1BxCoV/zffpqOt5qwW26c4hx0Cwt7 W+P5N5njjLsn43aauujqkq515gjjnt+4FaqC0EezKHxjzm75MilS0BYW1lvj aL8yNxN4eCE2Mu0trJem1xXm7JZv5RoDVkHoqek12YTd8p01wUyLpfsN5Upy UVjaBmFiGvBnjaCfAwJ0zdc1vS4xNw3m8l5lCq1amLQ6dVFYbI6tBbzXAXo3 85rGf0WYM10v3vG7GhBe1fRqE++pUZEL67OdQRh9wpd3O1DpVi7jr2i6DTFn uIG810EKOxJbnWRjgDnGQnmvg/V+poumYx9zthvGOx6qMTG5Dqupgoe5qbCI 9zpMA4KMGVRPO9+Zp1WsNoZ36aY3MVdNr9yE73FGmAv9Xhzv9T3N8F/UdDnT nNUm8l5l5KYu4zoFjBnm5sBy3usIBQHFvuQT8OqqMNUcWyt5xx84gKDeMlFX hYnm3OzXvFcZvatRsu5wpcyS2rLab3m3cm9EnVoy11G992hzVruB9zpab1/P ajoeaY60LbxjR0lo+rrPaHodbo6xFN7rOA0ITynvyWVhqLle03mvH+nXcZm0 qyvDQBOGm8l7neCAAJmY7q7yABNWy8sbwUTN8OWNUNUV9jVntTm810l6D/Nn Tce9zM2Bg7zjKQ4I/Gqctrfv9Q1zbOXzXtUdIgnCI5peXzNntfzGkrh12cLJ PKTpWK5qbRnuCd7zx3oTkzdkVL/4kjnbLeIdz9CY2AOaXjuaI43vq4n7w/Zz 7E+aXv9ijjS+wyDixRYg6O5VPGOuY74hIhYoeyuTtyHUleEJE4bLrw+zNAjc q+nyMXNs8T1dceuyhZXptrIfNme+fN9RrPr2CMg9Y9XT/sncNLjGe52rWcrb aXq91xxbfCMe5glf52Bl7F3s9W5zJvsj78xdIKoOHH86VmGgDuiZJjV9uc17 4AF8e8OVUC9OWAT+hCEsVGikXxPj+xf/X4bJ/P//+//Fv8N//Q82r/ll\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{ "tc", ",", "twc", ",", "twh", ",", "tpo", ",", "tpu", ",", "tplo", ",", "tplu", ",", "tpso", ",", "tpsu"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tw", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}, {3.5718402591869545`*^9, 3.5718402726497784`*^9}, 3.572328636723397*^9, {3.572328748419593*^9, 3.57232875246*^9}, { 3.5725921859362335`*^9, 3.5725921932682457`*^9}, {3.5725923978158054`*^9, 3.5725924023086133`*^9}, 3.5725926630786715`*^9, {3.5726167873570023`*^9, 3.57261679757502*^9}, 3.572620232450739*^9, {3.5726252144466896`*^9, 3.57262521482109*^9}, {3.572842310446463*^9, 3.5728423195412793`*^9}, 3.572851092419488*^9, {3.572851145927582*^9, 3.5728511735708303`*^9}, { 3.5728512529593697`*^9, 3.572851265595392*^9}, 3.5728513850916023`*^9, 3.573124143499799*^9, {3.5733124027399025`*^9, 3.573312472362825*^9}, { 3.5733130968319216`*^9, 3.5733130974091225`*^9}, {3.573316202329376*^9, 3.573316209786189*^9}, 3.573368517265889*^9, 3.5746700189174166`*^9, { 3.574670900474965*^9, 3.5746709256066093`*^9}, 3.5753448801985865`*^9, { 3.575371249764445*^9, 3.5753712595300617`*^9}, {3.580901107807392*^9, 3.580901122065817*^9}, {3.580901673167985*^9, 3.5809016810459995`*^9}, { 3.5809841484205785`*^9, 3.580984151290983*^9}}], Cell[BoxData["49"], "Output", CellChangeTimes->{ 3.581067923293045*^9, 3.5810680045223875`*^9, 3.5810680352544413`*^9, 3.5810682862744827`*^9, {3.5810683186913395`*^9, 3.581068414990309*^9}, 3.58106844990317*^9, 3.581068714042834*^9, {3.5810687622313185`*^9, 3.581068788782565*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dw", "]"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}, {3.5720164790812473`*^9, 3.572016508424899*^9}, {3.57235540487335*^9, 3.572355408040156*^9}, { 3.572356807768214*^9, 3.5723568154122276`*^9}, {3.572621722359356*^9, 3.572621725962962*^9}}], Cell[BoxData["49"], "Output", CellChangeTimes->{ 3.5810679233086452`*^9, 3.581068004553588*^9, 3.5810680352856417`*^9, 3.5810682863056827`*^9, {3.58106831872254*^9, 3.5810684150215087`*^9}, 3.58106844993437*^9, 3.581068714058434*^9, {3.5810687622469187`*^9, 3.5810687887981653`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv6", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv7", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "hj"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5", ",", "tv6", ",", "tv7"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tv", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}, {3.57184030784344*^9, 3.5718403245666695`*^9}, {3.5723553440956435`*^9, 3.5723553601792717`*^9}, {3.5723567913257856`*^9, 3.572356801543803*^9}, { 3.5723587125159597`*^9, 3.572358735884801*^9}, {3.5726205042656164`*^9, 3.5726205078692226`*^9}, {3.5726209578956137`*^9, 3.5726209632776227`*^9}, {3.5726266468256054`*^9, 3.5726266628780336`*^9}, {3.57284236531176*^9, 3.57284238273699*^9}, { 3.572842728620798*^9, 3.572842734502008*^9}, 3.5731240921601086`*^9, { 3.5733125819686174`*^9, 3.573312582608218*^9}, {3.5733126196738834`*^9, 3.5733126474263325`*^9}, {3.5733131200291624`*^9, 3.5733131288743777`*^9}, 3.573368536719124*^9, {3.5746698693443537`*^9, 3.5746698885011873`*^9}, { 3.574740991757182*^9, 3.5747410134412203`*^9}, {3.5748285231568966`*^9, 3.5748285315497117`*^9}, 3.5749358536151505`*^9, 3.5753449209770584`*^9, 3.5753511874612646`*^9, {3.575371200889559*^9, 3.575371204695966*^9}, { 3.580973349122649*^9, 3.580973393879128*^9}}], Cell[BoxData["49"], "Output", CellChangeTimes->{ 3.5810679233398447`*^9, 3.5810680045691876`*^9, 3.581068035301242*^9, 3.5810682863212824`*^9, {3.5810683187381396`*^9, 3.581068415037109*^9}, 3.5810684499499702`*^9, 3.5810687140740337`*^9, {3.5810687622625184`*^9, 3.5810687888137655`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "cj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "hj"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "ow", "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "cj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "hj"}]}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, {3.5721935303764954`*^9, 3.572193534214102*^9}, { 3.5726206642250977`*^9, 3.5726206651142993`*^9}, {3.572620782223705*^9, 3.572620782738506*^9}, {3.572620924963956*^9, 3.5726209465699935`*^9}, { 3.572842408289835*^9, 3.5728424357302833`*^9}, {3.5728424783807583`*^9, 3.57284247916076*^9}, 3.5728451195121975`*^9, {3.5731249170427575`*^9, 3.573124927962777*^9}, {3.5731450428093076`*^9, 3.5731450615449405`*^9}, { 3.5731451273458557`*^9, 3.573145132259865*^9}, {3.573312700185625*^9, 3.573312779979765*^9}, {3.5733131504804153`*^9, 3.5733131516816177`*^9}, { 3.5733132756862354`*^9, 3.5733132772462387`*^9}, {3.5733147916812983`*^9, 3.573314840275384*^9}, {3.5733593507659893`*^9, 3.573359359377204*^9}, { 3.5746698998736076`*^9, 3.574669995361375*^9}, {3.5747410251880407`*^9, 3.574741049430484*^9}, {3.574828384379053*^9, 3.574828403270686*^9}, 3.5748284615211887`*^9, {3.5748284935168447`*^9, 3.5748284944996467`*^9}, { 3.574935858419959*^9, 3.574935862834767*^9}, {3.5753447605151763`*^9, 3.5753447815128136`*^9}, {3.575371294396123*^9, 3.5753713029293385`*^9}, { 3.5753713452678127`*^9, 3.5753713535982275`*^9}, {3.580973411210758*^9, 3.5809734573088393`*^9}, {3.580973489086095*^9, 3.5809735107545333`*^9}, 3.580984182787439*^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[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5810679233398447`*^9, 3.5810680045847874`*^9, 3.5810680353168416`*^9, 3.5810682863368826`*^9, {3.5810683187537394`*^9, 3.5810684150527086`*^9}, 3.58106844996557*^9, 3.581068714089634*^9, {3.5810687622781186`*^9, 3.5810687888293653`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5810679233398447`*^9, 3.5810680045847874`*^9, 3.5810680353168416`*^9, 3.5810682863368826`*^9, {3.5810683187537394`*^9, 3.5810684150527086`*^9}, 3.58106844996557*^9, 3.581068714089634*^9, {3.5810687622781186`*^9, 3.5810687888293653`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "j"}]}], ")"}], ",", RowBox[{"1", "/", "sq"}], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dcw", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, 3.5721935303764954`*^9, {3.5721935661785583`*^9, 3.5721935879405966`*^9}, {3.5721936909943776`*^9, 3.572193697218788*^9}, { 3.5721937395728626`*^9, 3.57219374339487*^9}, {3.5721937963725624`*^9, 3.5721938223154078`*^9}, {3.572193859786674*^9, 3.572193861533877*^9}, 3.5723554650270557`*^9, {3.5723567325136824`*^9, 3.5723567701565485`*^9}, 3.572621740954589*^9}], Cell[BoxData["49"], "Output", CellChangeTimes->{ 3.581067923371045*^9, 3.581068004615988*^9, 3.5810680353480415`*^9, 3.581068286368083*^9, {3.58106831878494*^9, 3.581068415083909*^9}, 3.58106844999677*^9, 3.5810687141208344`*^9, {3.5810687622937183`*^9, 3.581068788860565*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Elcharge", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "ow", "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "ow", "]"}], "\[IndentingNewLine]", RowBox[{"Nuccharge", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"cnv", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "cnv", "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "cnv", "]"}], "\[IndentingNewLine]"}], "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, {3.573315125131884*^9, 3.57331521983965*^9}, {3.573315279213355*^9, 3.573315294797782*^9}, { 3.5733153507238803`*^9, 3.5733153551854877`*^9}, {3.5733153963695602`*^9, 3.5733154277724156`*^9}, {3.5733182525629773`*^9, 3.5733182928434477`*^9}}], Cell[BoxData[ RowBox[{"-", "86.`"}]], "Output", CellChangeTimes->{ 3.5810679233866453`*^9, 3.581068004631588*^9, 3.5810680353636417`*^9, 3.5810682863836827`*^9, {3.5810683188005395`*^9, 3.581068415099509*^9}, 3.58106845001237*^9, 3.5810687141208344`*^9, {3.5810687623093185`*^9, 3.581068788860565*^9}}], Cell[BoxData["49"], "Output", CellChangeTimes->{ 3.5810679233866453`*^9, 3.581068004631588*^9, 3.5810680353636417`*^9, 3.5810682863836827`*^9, {3.5810683188005395`*^9, 3.581068415099509*^9}, 3.58106845001237*^9, 3.5810687141208344`*^9, {3.5810687623093185`*^9, 3.581068788860565*^9}}], Cell[BoxData["86.`"], "Output", CellChangeTimes->{ 3.5810679233866453`*^9, 3.581068004631588*^9, 3.5810680353636417`*^9, 3.5810682863836827`*^9, {3.5810683188005395`*^9, 3.581068415099509*^9}, 3.58106845001237*^9, 3.5810687141208344`*^9, {3.5810687623093185`*^9, 3.5810687888761654`*^9}}], Cell[BoxData["49"], "Output", CellChangeTimes->{ 3.5810679233866453`*^9, 3.581068004631588*^9, 3.5810680353636417`*^9, 3.5810682863836827`*^9, {3.5810683188005395`*^9, 3.581068415099509*^9}, 3.58106845001237*^9, 3.5810687141208344`*^9, {3.5810687623093185`*^9, 3.5810687888761654`*^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, {3.573315125131884*^9, 3.57331521983965*^9}, {3.573315279213355*^9, 3.573315294797782*^9}, { 3.5733153507238803`*^9, 3.5733153551854877`*^9}, {3.5733153963695602`*^9, 3.5733154277724156`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}, { 3.570457123841494*^9, 3.5704571330923104`*^9}, {3.570457176959587*^9, 3.570457191296013*^9}, {3.570463789649801*^9, 3.570463797637015*^9}, { 3.5704639300032473`*^9, 3.5704639472412777`*^9}, {3.570464099403945*^9, 3.5704641196371803`*^9}, {3.570464183737693*^9, 3.5704641855628963`*^9}, { 3.570855532092019*^9, 3.5708555433240385`*^9}}], Cell[BoxData["744.1984932931334`"], "Output", CellChangeTimes->{ 3.581067923433445*^9, 3.5810680046471877`*^9, 3.581068035394842*^9, 3.5810682864148827`*^9, {3.5810683188317394`*^9, 3.5810684151151085`*^9}, 3.5810684500279703`*^9, 3.581068714152034*^9, {3.581068762340519*^9, 3.581068788891765*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nb", "+", "bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"nb", "+", "bc", "+", "cj"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "cj"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", RowBox[{"i", "-", "nb", "-", "bc"}], "]"}], "]"}], "+", RowBox[{"rpi", "[", RowBox[{"[", RowBox[{"i", "-", "nb", "-", "bc"}], "]"}], "]"}]}], ")"}]}]}]}]}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "cj"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{"0.25", "/", RowBox[{"(", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{"rpi", "[", RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.571840548723463*^9, 3.571840579798718*^9}, { 3.5718477253093*^9, 3.5718477304573092`*^9}, {3.572620810756155*^9, 3.5726208298349886`*^9}, {3.5726208600522413`*^9, 3.5726208972739067`*^9}, {3.57279778559276*^9, 3.57279781975682*^9}, 3.5733150956478324`*^9, {3.5733650408599825`*^9, 3.573365073947641*^9}, { 3.573365126847334*^9, 3.573365203209468*^9}, {3.57467280495751*^9, 3.574672834457162*^9}, {3.574672996697447*^9, 3.5746729984914503`*^9}, { 3.574743538820456*^9, 3.574743544140065*^9}, {3.574828627021879*^9, 3.5748286276614804`*^9}, {3.5748512413081284`*^9, 3.57485124786014*^9}, { 3.574851313707855*^9, 3.5748513247994747`*^9}, {3.575602516740883*^9, 3.575602523074494*^9}, {3.575722007593234*^9, 3.575722017748852*^9}, { 3.575722104095004*^9, 3.575722128165846*^9}, {3.575722369123869*^9, 3.575722516668928*^9}}], Cell[BoxData["743.8115885312288`"], "Output", CellChangeTimes->{ 3.581067923449045*^9, 3.581068004693988*^9, 3.5810680354104424`*^9, 3.581068286446083*^9, {3.5810683188473396`*^9, 3.5810684151307087`*^9}, 3.58106845007477*^9, 3.581068714152034*^9, {3.581068762340519*^9, 3.581068788891765*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"sc", "=", "0.369"}], ";", " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sw", "=", "0.369"}], ";", " ", 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", "\[LessEqual]", "oj"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"2", "*", "3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "\[LessEqual]", "hj"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"2", "*", "3", "*", RowBox[{"sw", "/", RowBox[{"rlos", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.572795632149378*^9, 3.5727956355657835`*^9}, { 3.5728516649872932`*^9, 3.5728517189321885`*^9}, {3.572851825152775*^9, 3.572851850284419*^9}, {3.5728520019946856`*^9, 3.572852210645052*^9}, 3.573124800838154*^9, {3.573322145410615*^9, 3.573322167859054*^9}, { 3.573322202803116*^9, 3.573322232630368*^9}, {3.5733683306427617`*^9, 3.5733683367267723`*^9}, {3.5733684056944933`*^9, 3.573368412932906*^9}, { 3.5733695833093615`*^9, 3.5733696100478086`*^9}, {3.5733696433694673`*^9, 3.573369694568757*^9}, {3.5733697316344223`*^9, 3.5733697335688257`*^9}, { 3.573369920425954*^9, 3.5733699263851643`*^9}, {3.57336995814682*^9, 3.573370085162243*^9}, {3.5733701175791*^9, 3.573370122087508*^9}, { 3.5733701577803707`*^9, 3.5733701630219803`*^9}, {3.573370193660434*^9, 3.573370198262442*^9}, {3.5746729482125616`*^9, 3.5746729642181897`*^9}, { 3.5746730450731316`*^9, 3.5746730625763626`*^9}, {3.574674580516679*^9, 3.5746746053675222`*^9}, {3.574674636692377*^9, 3.574674639859183*^9}, { 3.574743595854156*^9, 3.574743647131446*^9}, {3.575008591469165*^9, 3.5750085963519735`*^9}, 3.5753455268821225`*^9, {3.5753457669977446`*^9, 3.5753460420262275`*^9}, {3.5753460769078884`*^9, 3.575346080620695*^9}, { 3.5753461127255516`*^9, 3.575346158121631*^9}, {3.575388932760494*^9, 3.5753889451001163`*^9}, {3.5757144777564526`*^9, 3.575714504058099*^9}, { 3.5757750148485985`*^9, 3.5757750729587007`*^9}, {3.5809736691104116`*^9, 3.580973726424912*^9}, {3.580989519886056*^9, 3.5809895258920665`*^9}, { 3.58098957317575*^9, 3.5809895817869644`*^9}, {3.5809896144378223`*^9, 3.5809896583830996`*^9}, {3.5809898290641994`*^9, 3.5809898308894024`*^9}, {3.580989902992729*^9, 3.580989942413998*^9}, { 3.5809899817416673`*^9, 3.5809899877320776`*^9}, {3.580990035202961*^9, 3.5809900367941637`*^9}, {3.5810088368147526`*^9, 3.5810088496067753`*^9}, {3.5810088845508366`*^9, 3.5810088895896454`*^9}, {3.5810089216477013`*^9, 3.5810089363897276`*^9}, {3.581009310608204*^9, 3.581009347252668*^9}, { 3.581009493612125*^9, 3.5810095250305805`*^9}, {3.5810687053848186`*^9, 3.581068708520424*^9}, {3.581068753339303*^9, 3.581068783540956*^9}}], Cell[BoxData["827.5959786837146`"], "Output", CellChangeTimes->{ 3.5810679234646454`*^9, 3.581068004709588*^9, 3.5810680354104424`*^9, 3.581068286461683*^9, {3.5810683188473396`*^9, 3.581068415146309*^9}, 3.58106845009037*^9, 3.581068714167634*^9, {3.581068762356119*^9, 3.581068788907365*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"all", " ", "nuclei", " ", "with", " ", "all", " ", "clouds"}], ",", " ", RowBox[{ RowBox[{"except", " ", "i"}], " ", "=", " ", "j"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Vne", "=", RowBox[{"cnv", ".", RowBox[{"(", RowBox[{"ow", ".", "dcw"}], ")"}]}]}]}]], "Input", CellChangeTimes->{ 3.569233528637466*^9, 3.5692342309507*^9, {3.5704557844231415`*^9, 3.570455793127957*^9}}], Cell[BoxData[ RowBox[{"-", "1554.5800440379833`"}]], "Output", CellChangeTimes->{ 3.581067923480245*^9, 3.5810680047251883`*^9, 3.581068035426042*^9, 3.5810682864772825`*^9, {3.58106831889414*^9, 3.581068415161909*^9}, 3.5810684501059704`*^9, 3.581068714183234*^9, {3.581068762371719*^9, 3.581068788922965*^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[{"-", "2581.9851771016074`"}]], "Output", CellChangeTimes->{ 3.5810679234958453`*^9, 3.581068004740788*^9, 3.581068035472842*^9, 3.5810682864928827`*^9, {3.5810683189097395`*^9, 3.581068415208709*^9}, 3.5810684501215706`*^9, 3.581068714198834*^9, {3.581068762371719*^9, 3.581068788922965*^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[{"-", "2609.166659158345`"}]], "Output", CellChangeTimes->{ 3.581067923511445*^9, 3.581068004740788*^9, 3.581068035488442*^9, 3.581068286508483*^9, {3.5810683189253397`*^9, 3.581068415224309*^9}, 3.5810684501371703`*^9, 3.581068714198834*^9, {3.5810687623873186`*^9, 3.5810687889385653`*^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["633.1028160866853`"], "Output", CellChangeTimes->{ 3.5810679235270452`*^9, 3.5810680047563877`*^9, 3.5810680355040417`*^9, 3.581068286524083*^9, {3.58106831894094*^9, 3.581068415239909*^9}, 3.58106845015277*^9, 3.5810687142144337`*^9, {3.581068762402919*^9, 3.5810687889541655`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ratio", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", RowBox[{"2", "*", "Vnn"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"Vee", "-", "Vnn"}], ")"}]}]}]], "Input"], Cell[BoxData["6.9049266773838065`"], "Output", CellChangeTimes->{ 3.5810679235426455`*^9, 3.581068004787588*^9, 3.581068035519642*^9, 3.5810682865396833`*^9, {3.58106831895654*^9, 3.581068415255509*^9}, 3.5810684501683702`*^9, 3.581068714230034*^9, {3.581068762402919*^9, 3.5810687889541655`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "now", " ", "add", " ", "the", " ", "energy", " ", "terms", " ", "of", " ", RowBox[{"Cl", "[", "Ne", "]"}], "7"}], "+", " ", RowBox[{"from", " ", "Ne_s24b2", RowBox[{"_atoms", ".", "nb"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ "Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", "Vne", "\[IndentingNewLine]", RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.1", "*", "0.5", "*", "1.125", "*", "cj", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"1.4", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"1.2", "^", "2"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Tlp", " ", "=", RowBox[{ RowBox[{"1.57", "*", "oj", "*", "2.25", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rlo", "^", "2"}]}], ")"}]}], "+", RowBox[{"1.57", "*", "2.25", "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{ RowBox[{"rlos", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", RowBox[{"Ttot", "+", "Tpi", "+", "Tlp"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 3.57184067742369*^9, {3.572851887958485*^9, 3.5728519643206196`*^9}, 3.573124110349741*^9, 3.5731249811744704`*^9, {3.573321827294856*^9, 3.573321828074857*^9}, {3.5733218842973557`*^9, 3.573322060546466*^9}, { 3.5733223511749763`*^9, 3.573322362562996*^9}, {3.5733662939947844`*^9, 3.573366334227255*^9}, {3.573366373336523*^9, 3.5733663802005353`*^9}, { 3.5733670479305086`*^9, 3.573367141577473*^9}, {3.573367235162038*^9, 3.5733672396704454`*^9}, {3.5733673160013795`*^9, 3.573367336141015*^9}, { 3.57337971917793*^9, 3.573379817005702*^9}, {3.5733798503429604`*^9, 3.5733798602021775`*^9}, 3.574672644355228*^9, {3.5746726806096916`*^9, 3.5746727600450315`*^9}, {3.5747435066375995`*^9, 3.574743512113209*^9}, { 3.574828574792988*^9, 3.57482858761621*^9}, 3.5749358994636307`*^9, { 3.575344595934888*^9, 3.5753446255749397`*^9}, {3.5753719193332205`*^9, 3.575371943029662*^9}, {3.5757146920540295`*^9, 3.575714718901676*^9}, { 3.5757148376958847`*^9, 3.5757148384134865`*^9}, {3.57571486928594*^9, 3.575714870065942*^9}, {3.5757209777730255`*^9, 3.5757209784438267`*^9}, { 3.5757212754683485`*^9, 3.5757213005219927`*^9}, {3.5757222764909067`*^9, 3.5757222942281375`*^9}, {3.5757232810546713`*^9, 3.5757232920370903`*^9}, {3.5809885403603354`*^9, 3.580988625255685*^9}, { 3.5809886661121564`*^9, 3.5809886950658073`*^9}, {3.580989689692354*^9, 3.580989724060415*^9}, {3.5809897660400887`*^9, 3.58098979553974*^9}, { 3.580989870669472*^9, 3.5809898937887125`*^9}, {3.581009386112336*^9, 3.581009469198082*^9}, {3.581009548867422*^9, 3.581009549663024*^9}, { 3.5810095866974883`*^9, 3.5810097038224945`*^9}}], Cell[BoxData["827.5959786837146`"], "Output", CellChangeTimes->{ 3.5810679235582457`*^9, 3.581068004787588*^9, 3.581068035535242*^9, 3.581068286555283*^9, {3.5810683189721403`*^9, 3.581068415271109*^9}, 3.5810684501839705`*^9, 3.581068714230034*^9, {3.581068762418519*^9, 3.5810687889697657`*^9}}], Cell[BoxData["633.1028160866853`"], "Output", CellChangeTimes->{ 3.5810679235582457`*^9, 3.581068004787588*^9, 3.581068035535242*^9, 3.581068286555283*^9, {3.5810683189721403`*^9, 3.581068415271109*^9}, 3.5810684501839705`*^9, 3.581068714230034*^9, {3.581068762418519*^9, 3.5810687889697657`*^9}}], Cell[BoxData[ RowBox[{"-", "2609.166659158345`"}]], "Output", CellChangeTimes->{ 3.5810679235582457`*^9, 3.581068004787588*^9, 3.581068035535242*^9, 3.581068286555283*^9, {3.5810683189721403`*^9, 3.581068415271109*^9}, 3.5810684501839705`*^9, 3.581068714230034*^9, {3.581068762418519*^9, 3.5810687889697657`*^9}}], Cell[BoxData["5.6919642857142865`"], "Output", CellChangeTimes->{ 3.5810679235582457`*^9, 3.581068004787588*^9, 3.581068035535242*^9, 3.581068286555283*^9, {3.5810683189721403`*^9, 3.581068415271109*^9}, 3.5810684501839705`*^9, 3.581068714230034*^9, {3.581068762418519*^9, 3.5810687889697657`*^9}}], Cell[BoxData["11.018510310864883`"], "Output", CellChangeTimes->{ 3.5810679235582457`*^9, 3.581068004787588*^9, 3.581068035535242*^9, 3.581068286555283*^9, {3.5810683189721403`*^9, 3.581068415271109*^9}, 3.5810684501839705`*^9, 3.581068714230034*^9, {3.581068762418519*^9, 3.5810687889697657`*^9}}], Cell[BoxData[ RowBox[{"-", "1148.4678643879447`"}]], "Output", CellChangeTimes->{ 3.5810679235582457`*^9, 3.581068004787588*^9, 3.581068035535242*^9, 3.581068286555283*^9, {3.5810683189721403`*^9, 3.581068415271109*^9}, 3.5810684501839705`*^9, 3.581068714230034*^9, {3.581068762418519*^9, 3.5810687889697657`*^9}}], Cell[BoxData["574.2039291423368`"], "Output", CellChangeTimes->{ 3.5810679235582457`*^9, 3.581068004787588*^9, 3.581068035535242*^9, 3.581068286555283*^9, {3.5810683189721403`*^9, 3.581068415271109*^9}, 3.5810684501839705`*^9, 3.581068714230034*^9, {3.581068762418519*^9, 3.581068788985366*^9}}], Cell[BoxData["2.000104503122019`"], "Output", CellChangeTimes->{ 3.5810679235582457`*^9, 3.581068004787588*^9, 3.581068035535242*^9, 3.581068286555283*^9, {3.5810683189721403`*^9, 3.581068415271109*^9}, 3.5810684501839705`*^9, 3.581068714230034*^9, {3.581068762418519*^9, 3.581068788985366*^9}}], Cell[BoxData[ RowBox[{"-", "574.2639352456079`"}]], "Output", CellChangeTimes->{ 3.5810679235582457`*^9, 3.581068004787588*^9, 3.581068035535242*^9, 3.581068286555283*^9, {3.5810683189721403`*^9, 3.581068415271109*^9}, 3.5810684501839705`*^9, 3.581068714230034*^9, {3.581068762418519*^9, 3.581068788985366*^9}}] }, Open ]] }, WindowSize->{922, 949}, WindowMargins->{{Automatic, 434}, {Automatic, 23}}, 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[CellGroupData[{ Cell[579, 22, 6473, 141, 312, "Input"], Cell[7055, 165, 3485, 63, 258, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10577, 233, 1112, 18, 31, "Input"], Cell[11692, 253, 754, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12483, 270, 955, 14, 31, "Input"], Cell[13441, 286, 300, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13778, 296, 838, 19, 31, "Input"], Cell[14619, 317, 3720, 82, 371, "Output"] }, Open ]], Cell[18354, 402, 1809, 34, 72, "Input"], Cell[CellGroupData[{ Cell[20188, 440, 1606, 29, 31, "Input"], Cell[21797, 471, 758, 12, 31, "Output"] }, Open ]], Cell[22570, 486, 1419, 23, 31, "Input"], Cell[23992, 511, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[25609, 544, 1234, 18, 31, "Input"], Cell[26846, 564, 1880, 53, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28763, 622, 697, 14, 31, "Input"], Cell[29463, 638, 585, 11, 31, "Output"] }, Open ]], Cell[30063, 652, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[30996, 680, 6690, 137, 172, "Input"], Cell[37689, 819, 678, 12, 52, "Output"], Cell[38370, 833, 675, 12, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39082, 850, 519, 12, 31, "Input"], Cell[39604, 864, 756, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40397, 881, 1428, 39, 92, "Input"], Cell[41828, 922, 608, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42473, 938, 827, 23, 92, "Input"], Cell[43303, 963, 300, 5, 31, "Output"], Cell[43606, 970, 300, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43943, 980, 1712, 24, 31, "Input"], Cell[45658, 1006, 319, 5, 31, "Output"] }, Open ]], Cell[45992, 1014, 1617, 29, 52, "Input"], Cell[CellGroupData[{ Cell[47634, 1047, 1783, 25, 31, "Input"], Cell[49420, 1074, 15722, 382, 115, "Output"] }, Open ]], Cell[65157, 1459, 1442, 19, 30, "Text"], Cell[66602, 1480, 1997, 39, 52, "Input"], Cell[CellGroupData[{ Cell[68624, 1523, 4977, 90, 92, "Input"], Cell[73604, 1615, 4822, 78, 386, "Output"] }, Open ]], Cell[78441, 1696, 1027, 14, 31, "Input"], Cell[CellGroupData[{ Cell[79493, 1714, 3846, 83, 152, "Input"], Cell[83342, 1799, 685, 12, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[84064, 1816, 2092, 46, 112, "Input"], Cell[86159, 1864, 6318, 106, 371, "Output"] }, Open ]], Cell[92492, 1973, 561, 12, 52, "Input"], Cell[CellGroupData[{ Cell[93078, 1989, 2143, 47, 92, "Input"], Cell[95224, 2038, 6273, 99, 371, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[101534, 2142, 2558, 56, 112, "Input"], Cell[104095, 2200, 6274, 99, 371, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[110406, 2304, 3673, 95, 172, "Input"], Cell[114082, 2401, 309, 5, 31, "Output"], Cell[114394, 2408, 308, 5, 31, "Output"], Cell[114705, 2415, 308, 5, 31, "Output"], Cell[115016, 2422, 309, 5, 31, "Output"], Cell[115328, 2429, 309, 5, 31, "Output"] }, Open ]], Cell[115652, 2437, 2075, 35, 72, "Input"], Cell[CellGroupData[{ Cell[117752, 2476, 4023, 95, 172, "Input"], Cell[121778, 2573, 381, 8, 31, "Output"], Cell[122162, 2583, 371, 7, 31, "Output"], Cell[122536, 2592, 496, 10, 31, "Output"], Cell[123035, 2604, 368, 7, 31, "Output"], Cell[123406, 2613, 674, 13, 52, "Output"], Cell[124083, 2628, 368, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[124488, 2640, 2672, 54, 132, "Input"], Cell[127163, 2696, 299, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[127499, 2706, 739, 22, 92, "Input"], Cell[128241, 2730, 301, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[128579, 2740, 2771, 55, 92, "Input"], Cell[131353, 2797, 393, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[131783, 2810, 5598, 137, 252, "Input"], Cell[137384, 2949, 314, 6, 31, "Output"], Cell[137701, 2957, 297, 5, 31, "Output"], Cell[138001, 2964, 2741, 91, 371, "Output"], Cell[140745, 3057, 3319, 98, 371, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[144101, 3160, 11929, 199, 232, "Input"], Cell[156033, 3361, 486, 11, 31, "Output"], Cell[156522, 3374, 464, 11, 31, "Output"], Cell[156989, 3387, 301, 5, 31, "Output"], Cell[157293, 3394, 301, 5, 31, "Output"] }, Open ]], Cell[157609, 3402, 9202, 138, 112, "Input"], Cell[166814, 3542, 8269, 113, 49, "Text"], Cell[CellGroupData[{ Cell[175108, 3659, 4848, 105, 172, "Input"], Cell[179959, 3766, 287, 5, 31, "Output"] }, Open ]], Cell[180261, 3774, 333, 5, 31, "Input"], Cell[CellGroupData[{ Cell[180619, 3783, 3200, 70, 112, "Input"], Cell[183822, 3855, 3723, 82, 371, "Output"] }, Open ]], Cell[187560, 3940, 442, 7, 49, "Text"], Cell[188005, 3949, 2065, 32, 31, "Input"], Cell[190073, 3983, 173, 4, 31, "Input"], Cell[CellGroupData[{ Cell[190271, 3991, 3649, 72, 152, "Input"], Cell[193923, 4065, 3074, 74, 176, "Output"] }, Open ]], Cell[197012, 4142, 2643, 37, 49, "Text"], Cell[199658, 4181, 4034, 67, 72, "Input"], Cell[203695, 4250, 939, 20, 31, "Input"], Cell[CellGroupData[{ Cell[204659, 4274, 536, 7, 31, "Input"], Cell[205198, 4283, 3657, 86, 170, "Output"] }, Open ]], Cell[208870, 4372, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[211968, 4434, 939, 17, 72, "Input"], Cell[212910, 4453, 2256, 52, 112, "Output"], Cell[215169, 4507, 302, 5, 31, "Output"], Cell[215474, 4514, 302, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[215813, 4524, 862, 21, 72, "Input"], Cell[216678, 4547, 6177, 188, 245, "Output"] }, Open ]], Cell[222870, 4738, 3143, 85, 152, "Input"], Cell[226016, 4825, 10201, 233, 192, "Input"], Cell[236220, 5060, 6267, 98, 72, "Input"], Cell[242490, 5160, 10215, 234, 192, "Input"], Cell[252708, 5396, 5925, 93, 52, "Input"], Cell[258636, 5491, 12714, 221, 132, "Input"], Cell[CellGroupData[{ Cell[271375, 5716, 13609, 236, 232, "Input"], Cell[284987, 5954, 16452, 362, 375, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[301476, 6321, 12175, 189, 252, "Input"], Cell[313654, 6512, 31697, 565, 367, 10217, 212, "CachedBoxData", "BoxData", \ "Output"], Cell[345354, 7079, 82104, 1408, 370, 13263, 278, "CachedBoxData", "BoxData", \ "Output"], Cell[427461, 8489, 56226, 983, 372, 11696, 252, "CachedBoxData", "BoxData", \ "Output"], Cell[483690, 9474, 53847, 946, 368, 11798, 256, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[537574, 10425, 5081, 107, 152, "Input"], Cell[542658, 10534, 297, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[542992, 10544, 2499, 47, 92, "Input"], Cell[545494, 10593, 298, 5, 31, "Output"] }, Open ]], Cell[545807, 10601, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[547673, 10634, 5502, 123, 212, "Input"], Cell[553178, 10759, 304, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[553519, 10769, 6514, 124, 112, "Input"], Cell[560036, 10895, 1854, 56, 72, "Output"], Cell[561893, 10953, 950, 16, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[562880, 10974, 4670, 80, 92, "Input"], Cell[567553, 11056, 292, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[567882, 11066, 2695, 47, 112, "Input"], Cell[570580, 11115, 318, 6, 31, "Output"], Cell[570901, 11123, 299, 5, 31, "Output"], Cell[571203, 11130, 303, 5, 31, "Output"], Cell[571509, 11137, 301, 5, 31, "Output"] }, Open ]], Cell[571825, 11145, 2066, 30, 31, "Input"], Cell[CellGroupData[{ Cell[573916, 11179, 2963, 56, 112, "Input"], Cell[576882, 11237, 314, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[577233, 11247, 2595, 62, 112, "Input"], Cell[579831, 11311, 309, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[580177, 11321, 5441, 106, 152, "Input"], Cell[585621, 11429, 309, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[585967, 11439, 499, 15, 52, "Input"], Cell[586469, 11456, 327, 6, 31, "Output"] }, Open ]], Cell[586811, 11465, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[588217, 11490, 1709, 32, 52, "Input"], Cell[589929, 11524, 330, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[590296, 11535, 1415, 43, 72, "Input"], Cell[591714, 11580, 329, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[592080, 11591, 2550, 50, 92, "Input"], Cell[594633, 11643, 312, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[594982, 11653, 230, 8, 31, "Input"], Cell[595215, 11663, 312, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[595564, 11673, 4448, 84, 232, "Input"], Cell[600015, 11759, 312, 5, 31, "Output"], Cell[600330, 11766, 312, 5, 31, "Output"], Cell[600645, 11773, 329, 6, 31, "Output"], Cell[600977, 11781, 313, 5, 31, "Output"], Cell[601293, 11788, 313, 5, 31, "Output"], Cell[601609, 11795, 330, 6, 31, "Output"], Cell[601942, 11803, 310, 5, 31, "Output"], Cell[602255, 11810, 310, 5, 31, "Output"], Cell[602568, 11817, 327, 6, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)