(* 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[ 772236, 15474] NotebookOptionsPosition[ 763258, 15196] NotebookOutlinePosition[ 763757, 15216] CellTagsIndexPosition[ 763714, 15213] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "ES", " ", RowBox[{"09", "/", "17"}], " ", "April", " ", "2013"}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";", " ", RowBox[{"rad", "=", "57.2957795"}], ";"}]}]], "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.574069429922815*^9, 3.574069433479621*^9}, {3.5741328775223475`*^9, 3.57413289583678*^9}, {3.5741333767544246`*^9, 3.574133378220827*^9}, { 3.574341036190522*^9, 3.574341050277347*^9}, {3.574503184922072*^9, 3.5745032038917055`*^9}, {3.5752201500921936`*^9, 3.575220151324596*^9}, { 3.57526642588752*^9, 3.575266432361531*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", 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.5705590525489826`*^9, 3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}, 3.570855059411189*^9, 3.570856566545436*^9, 3.5709425310226765`*^9, 3.5730457924857635`*^9, 3.5738743957366743`*^9, {3.574067876130838*^9, 3.5740678963328733`*^9}, {3.5740679338997397`*^9, 3.5740679382521477`*^9}, 3.5740694160855904`*^9, {3.574335155023285*^9, 3.574335160249294*^9}, { 3.5744825096366043`*^9, 3.574482533177046*^9}, {3.575217073303817*^9, 3.5752170742554183`*^9}, {3.5818289943174543`*^9, 3.5818289943174543`*^9}}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtVQtQVGUUXsA0CYUpNCcjDCl5SItIa5DI4Skb7sACuyC74O69uyzyXPYB xGNZVHxMNVAOL4WYInEEh2EqJB85Z8iUabIwJMdRM2uMyoQaxxS1me7/H/6Z O//c+9/7ne875zvnvixUZpk9ZTJZmnR5SVfr+P0QfYYRn92N33yUEoreV/qt cb8Y4SvpcasgQMsd9RcvpezAzyeqz/YdUgN/f8iG/DzMAIHsBU87/ivdjgeU wMPsX48cPpdH362wgOnNmxnv5WbARrbsGzCGAQXK4S/puOWZXPAf3nqrLqcA Zh4f++eHLzXwiTVOouCARdrlEZ/GJRPO1zpIu1XnP9xpgndPli6dX7MS9YyI jw34vsoG9RwoFz+cO3o+fSYVmAzvJQbi62vEQ93SCi2F1BP3/rss0+ATKZxK 2IZdFUz5RuD8lbVQxJbCCNsGvFNfmV5L/IJN+FT/B7Eey56DQfbZiBY5/lgV BuRLClvTCH+7EbnOJW7ie6GI+N/evHCvQ85HXghVTGakiDK2njixI+mdspnV kcBxTlYgO7bGOJHnqd6EWdJ2Z2kOcj7Hi/Dit2wVke4wK/I47Y10Hp2ILNxW pQ15nIkGDGWJ+r0EOQ9fA+2NbuLrJVK8uHLk+rXllNfgYmBw/h1lMHD43JqR cQ18nMISuBjfv9sQ//pvGuLRUEB++dMCs9Ljwtj1cDDWQ7Vn2QrS3ysA59Nt pL3lbdLfpgCuH4vAXiwh3syGC+mbDiTI4imu4AQmW91VQe+5NyH3R241nX/n BM7bacYpleCXp9RSvdbYQXJP79ycBkdsEvB1Fdac7XtBHhBDfj0hUh1ay6nu 0xaK83MJEm4lyG8EL24+oqV+EEw4uEut7JWtJT2jDoqvMAMLc3Qgi+p/qYzy 2JtE+J0CxZtoJl8NCxTPqad+EJspbl4l8PoUJ5MfIIr2TBM9Dymk+gfYkOO5 StAYpYkMO/Ygnvtjykj1fWgl/Ps2ypPZTfob1gH/Xl1DuIYm8su8jfwbqCFc YTf19SML+eeGFZm889/r0HB7Muja9gRkaWnX5VCe/SzoGb5v5dXZGOR23CxA j2QT2xv5xHtSjaz9O10psIXlRVlKdTTokI+b5Srg/ok20vt5BnzkKjnjeGyk fsl2oKLwlNLntSzSJa9CluZujwryb71I33dUUd1OlcLxFyVBSQL10fROuh/L ovmiCqZ6eibS/EjOp7q8JS7MOSW0m/eLBfo0it9vgMu1f7y6oVYP3C7+NXDG cXDVor3x5GO1ALvapcbdVwimguupXrWhhDNmJ51dO0GczU/c8nQE5T3KQef3 7OTbbgNeCro27/opk3zQYwOWvuJRLab5SJn9cTXyvgvLpnkmCtTf+jLiPSvS vHxgpnrXl4OULc/wKQ0eSJAqVqfDu/LT63zTIyj/TdXA9StEEBnf9UC+mXET /mkTzeUravLnqJt0+JVCD8vn1ecpTngm7Z8t/CeCjFSPITvuZfoaLbifBRhK WvCzCdtYAneUkc62KpozkU04yfQPhlD/XHQgP/d30VxRWJH9Bnr78jGa8fm7 Gfm8c5kJt6ES/wes7x1+ "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[23, 24.], SphereBox[24, 24.], SphereBox[25, 24.], SphereBox[26, 24.], SphereBox[27, 24.], SphereBox[28, 24.], SphereBox[29, 24.], SphereBox[30, 24.], SphereBox[31, 24.], SphereBox[32, 24.], SphereBox[33, 24.], SphereBox[34, 24.], SphereBox[35, 24.], SphereBox[36, 24.], SphereBox[37, 24.], SphereBox[38, 24.], SphereBox[39, 24.], SphereBox[40, 24.], SphereBox[41, 24.], SphereBox[42, 24.], SphereBox[43, 24.], SphereBox[44, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[4, 34.], SphereBox[5, 34.], SphereBox[6, 34.], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.], SphereBox[10, 34.], SphereBox[11, 34.], SphereBox[12, 34.], SphereBox[13, 34.], SphereBox[14, 34.], SphereBox[15, 34.], SphereBox[16, 34.], SphereBox[17, 34.], SphereBox[18, 34.], SphereBox[19, 34.], SphereBox[20, 34.], SphereBox[21, 34.], SphereBox[22, 34.]}, {RGBColor[0.291989, 0.437977, 0.888609], SphereBox[2, 32.], SphereBox[3, 32.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{46, 36}, 15.], CylinderBox[{52, 23}, 15.], CylinderBox[{53, 24}, 15.], CylinderBox[{54, 25}, 15.], CylinderBox[{55, 26}, 15.], CylinderBox[{56, 27}, 15.], CylinderBox[{57, 28}, 15.], CylinderBox[{58, 29}, 15.], CylinderBox[{59, 30}, 15.], CylinderBox[{60, 31}, 15.], CylinderBox[{61, 32}, 15.], CylinderBox[{62, 33}, 15.], CylinderBox[{63, 34}, 15.], CylinderBox[{64, 35}, 15.], CylinderBox[{65, 37}, 15.], CylinderBox[{66, 38}, 15.], CylinderBox[{67, 39}, 15.], CylinderBox[{68, 40}, 15.], CylinderBox[{69, 41}, 15.], CylinderBox[{70, 42}, 15.], CylinderBox[{71, 43}, 15.], CylinderBox[{72, 44}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{45, 11}, 15.], CylinderBox[{47, 5}, 15.], CylinderBox[{48, 9}, 15.], CylinderBox[{49, 10}, 15.], CylinderBox[{50, 17}, 15.], CylinderBox[{51, 19}, 15.], CylinderBox[{4, 6}, 15.], CylinderBox[{4, 7}, 15.], CylinderBox[{4, 8}, 15.], CylinderBox[{4, 52}, 15.], CylinderBox[{5, 6}, 15.], CylinderBox[{5, 11}, 15.], CylinderBox[{5, 53}, 15.], CylinderBox[{6, 54}, 15.], CylinderBox[{6, 55}, 15.], CylinderBox[{7, 9}, 15.], CylinderBox[{7, 12}, 15.], CylinderBox[{7, 56}, 15.], CylinderBox[{8, 10}, 15.], CylinderBox[{8, 57}, 15.], CylinderBox[{8, 58}, 15.], CylinderBox[{9, 59}, 15.], CylinderBox[{9, 60}, 15.], CylinderBox[{10, 61}, 15.], CylinderBox[{10, 62}, 15.], CylinderBox[{11, 13}, 15.], CylinderBox[{11, 63}, 15.], CylinderBox[{12, 15}, 15.], CylinderBox[{12, 64}, 15.], CylinderBox[{13, 14}, 15.], CylinderBox[{13, 16}, 15.], CylinderBox[{14, 17}, 15.], CylinderBox[{14, 18}, 15.], CylinderBox[{15, 65}, 15.], CylinderBox[{15, 66}, 15.], CylinderBox[{16, 19}, 15.], CylinderBox[{16, 67}, 15.], CylinderBox[{17, 20}, 15.], CylinderBox[{18, 21}, 15.], CylinderBox[{18, 68}, 15.], CylinderBox[{19, 69}, 15.], CylinderBox[{20, 22}, 15.], CylinderBox[{20, 70}, 15.], CylinderBox[{21, 22}, 15.], CylinderBox[{21, 71}, 15.], CylinderBox[{22, 72}, 15.]}, {RGBColor[0.291989, 0.437977, 0.888609], CylinderBox[{2, 47}, 15.], CylinderBox[{2, 48}, 15.], CylinderBox[{2, 49}, 15.], CylinderBox[{3, 50}, 15.], CylinderBox[{3, 51}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{1, 45}, 15.], CylinderBox[{1, 46}, 15.]}}]}, Boxed->False, ImageSize->356.2600955490703, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.581873158539752*^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.5738743957366743`*^9, 3.5740679502641687`*^9, 3.5740679862378316`*^9, 3.574068238587475*^9, 3.574482553893882*^9, 3.5818289943330545`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.581873158602152*^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["44"], "Output", CellChangeTimes->{3.581873158617752*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"un", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "\"\\"", ",", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, 3.5688146762563534`*^9, 3.56881472549004*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.581873158617752*^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\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "33"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "34"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "35"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "38"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "39"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "41"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "42"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "43"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "44"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5818731586489525`*^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[{ "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "2", ",", "3", ",", "1", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ",", "42", ",", "43", ",", "44"}], "}"}]], "Output", CellChangeTimes->{3.5818731586645527`*^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]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.21522", ",", 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.4507"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", 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.574340997689655*^9, { 3.58184795912473*^9, 3.5818479592963305`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.24`", ",", "0.24`", ",", "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`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{3.5818731586645527`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.21522`", ",", "0.21522`", ",", "0.178`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.581873158695752*^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}, {3.574482652579655*^9, 3.574482674872094*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5818731587113523`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "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}, {3.574482652579655*^9, 3.5744826676648817`*^9}, 3.5818289943330545`*^9}], Cell[BoxData["\<\"C19H22N2O\"\>"], "Output", CellChangeTimes->{3.5818731587113523`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "6.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "1.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "8.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "17.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.5818731587269526`*^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["22"], "Output", CellChangeTimes->{3.5818731587425528`*^9}], Cell[BoxData["22"], "Output", CellChangeTimes->{3.5818731587425528`*^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.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}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot1o", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "White", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Darker", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, { 3.5744827068053503`*^9, 3.5744827177409697`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.9482045318, 1.87218934272, 3.4895680315999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.7419494268, 2.2170265432, 1.6434191131599998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.2406311424, 0.76499887932, 2.0991076408}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.1131346124, -0.10454342177199999`, 5.456772797599999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.4709457426, -1.7748306592, 0.86562678882}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4230066772, -2.5790980448, 4.106374598}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.58761550438, -1.0727596556799999`, 0.37401456992}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{7.3436642086, 2.6021527019999997`, 0.187390899338}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.0451044763999997`, 0.090001980202, -1.7150397285599999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.356239374399999, -0.92830900024, -2.622939688}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{9.692404653999999, 3.4438366624, 0.5460363277}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.0998635312, 2.2816551724, -2.9011073552}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.647111205, 0.30441596134000004`, -4.644946508}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.417320523399999, -3.0965050236000002`, -1.5147098753}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.4277739913999996`, 3.446860224, -4.8883432168}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-8.944451103199999, -0.6880492366, -5.5289603307999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-8.7029441204, -4.0682021328, -2.4281089374000002`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.9722730746, -2.8742732459999996`, -4.4204470592}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{2.7794090008000003`, -2.3636692808, 1.33066946016}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-5.644800534599999, 2.4439826358000003`, -5.7479795742}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.6168925647999997`, -0.23878577735999998`, 2.7036309881999996`}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.435186922, 3.6496278238, 4.3216143894}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{ 1.6448553049199999`, -0.053932780039999996`, -1.6553432842199998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.228931817, 3.6156127558, 0.26671592764}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.099460058832, 2.8139909866, 2.6605452354}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.7163181758, 0.4264166719, 3.4393013199999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.50218099192, 0.58583395726, 6.4653195638}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.6252933575999995`, -0.44408560999999996`, 6.7555814774}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.5928760688, -3.2440926241999994`, 1.68461513996}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.783128477799999, -1.6582156677399997`, -1.12865775076}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.47458578764, -2.9802868746, 4.4688240448}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.6033295368, -4.0630998726, 4.8082188344}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.7118271943599999`, -3.0815761881999997`, 0.17954664671200002`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.2610401831999996`, 3.2066760494, -1.40981118504}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.356763293, -0.7413395097999999, 2.8105894797999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{10.754241693400001`, 2.8241955069999998`, 2.1512640784}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{10.514435463999998`, 4.738676917599999, -0.7713861531999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.34487499499999996`, 3.0708047499999997`, -2.2797654464}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.4777487562, -4.0054632296, 0.027945268087999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.6949382486, 5.1317399256, -5.7326727936}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-9.9159592398, 0.22192942144, -7.0509456512}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-9.48642452, -5.7366412182, -1.59678067548}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-11.7227262684, -3.6250613858, -5.0990476658}, 0.12]}, Text3DBox["1", {3.3482045318, 1.87218934272, 3.4895680315999997`}, {1, 0}], Text3DBox["2", {0.5845558458399999, -0.32975718699999995`, 0.29407916011999996`}, {1, 0}], Text3DBox["3", {1.1419494268000001`, 2.2170265432, 1.6434191131599998`}, { 1, 0}], Text3DBox["4", {5.6406311424, 0.76499887932, 2.0991076408}, {1, 0}], Text3DBox["5", {2.5131346124, -0.10454342177199999`, 5.456772797599999}, {1, 0}], Text3DBox["6", {4.8709457426, -1.7748306592, 0.86562678882}, {1, 0}], Text3DBox["7", {1.8230066772, -2.5790980448, 4.106374598}, {1, 0}], Text3DBox["8", {-2.18761550438, -1.0727596556799999`, 0.37401456992}, {1, 0}], Text3DBox["9", {6.7436642086, 2.6021527019999997`, 0.187390899338}, { 1, 0}], Text3DBox["10", {-3.6451044764, 0.090001980202, -1.7150397285599999`}, {1, 0}], Text3DBox["11", {-5.956239374399999, -0.92830900024, -2.622939688}, {1, 0}], Text3DBox["12", {9.092404654, 3.4438366624, 0.5460363277}, {1, 0}], Text3DBox["13", {-2.6998635312, 2.2816551724, -2.9011073552}, {1, 0}], Text3DBox["14", {-7.2471112049999995`, 0.30441596134000004`, -4.644946508}, {1, 0}], Text3DBox[ "15", {-7.017320523399999, -3.0965050236000002`, -1.5147098753}, {1, 0}], Text3DBox["16", {-4.027773991399999, 3.446860224, -4.8883432168}, {1, 0}], Text3DBox[ "17", {-9.544451103199998, -0.6880492366, -5.5289603307999995`}, {1, 0}], Text3DBox["18", {-9.3029441204, -4.0682021328, -2.4281089374000002`}, {1, 0}], Text3DBox[ "19", {-10.5722730746, -2.8742732459999996`, -4.4204470592}, {1, 0}], Text3DBox["20", {2.1794090008, -2.3636692808, 1.33066946016}, {1, 0}], Text3DBox["21", {-6.244800534599999, 2.4439826358000003`, -5.7479795742}, { 1, 0}], Text3DBox["22", {-3.2168925647999997`, -0.23878577735999998`, 2.7036309881999996`}, {1, 0}], Text3DBox["23", {3.8351869219999997`, 3.6496278238, 4.3216143894}, {1, 0}], Text3DBox["24", { 1.04485530492, -0.053932780039999996`, -1.6553432842199998`}, {1, 0}], Text3DBox["25", {1.6289318169999998`, 3.6156127558, 0.26671592764}, {1, 0}], Text3DBox["26", {-0.5005399411679999, 2.8139909866, 2.6605452354}, { 1, 0}], Text3DBox["27", {7.1163181758, 0.4264166719, 3.4393013199999998`}, {1, 0}], Text3DBox["28", {0.90218099192, 0.58583395726, 6.4653195638}, {1, 0}], Text3DBox["29", {4.0252933576, -0.44408560999999996`, 6.7555814774}, {1, 0}], Text3DBox["30", {5.9928760688, -3.2440926241999994`, 1.68461513996}, {1, 0}], Text3DBox["31", { 5.1831284777999995`, -1.6582156677399997`, -1.12865775076}, {1, 0}], Text3DBox["32", {-0.12541421236, -2.9802868746, 4.4688240448}, {1, 0}], Text3DBox["33", {3.0033295368, -4.0630998726, 4.8082188344}, {1, 0}], Text3DBox["34", {-2.3118271943599997`, -3.0815761881999997`, 0.17954664671200002`}, {1, 0}], Text3DBox["35", {5.6610401832, 3.2066760494, -1.40981118504}, {1, 0}], Text3DBox["36", {-4.956763293, -0.7413395097999999, 2.8105894797999995`}, { 1, 0}], Text3DBox["37", {10.154241693400001`, 2.8241955069999998`, 2.1512640784}, {1, 0}], Text3DBox["38", {9.914435463999999, 4.738676917599999, -0.7713861531999999}, {1, 0}], Text3DBox["39", {-0.9448749949999999, 3.0708047499999997`, -2.2797654464}, {1, 0}], Text3DBox["40", {-6.077748756199999, -4.0054632296, 0.027945268087999995`}, {1, 0}], Text3DBox["41", {-3.2949382486000003`, 5.1317399256, -5.7326727936}, {1, 0}], Text3DBox["42", {-10.515959239799999`, 0.22192942144, -7.0509456512}, {1, 0}], Text3DBox["43", {-10.08642452, -5.7366412182, -1.59678067548}, {1, 0}], Text3DBox["44", {-12.3227262684, -3.6250613858, -5.0990476658}, {1, 0}]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5818731588205523`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfWl4FVW26DKEMKOIikLmeQQhARISCCAzImBCwhDmkBC1abvFZ0+2cL1P H9oJMzIo4gQIqJfG4WLb2uKVMTIIIipobGUUsRn0Ne973+PVqtqratU+q3ZO uu+P++PWJyancmrN455q1PS5s2f9bPrcmpnT44f+cvr9s2tmPhA/5Oe/tG41 uw7gutnWv+nxgL9fA6D/XbP+u1aD/8M7//17k36/wf69GVy6dMn+Df+Vsb+3 s39vDlevXoV9+/bBww8/DAMHDoQ333wTrse/NUMdDGZPtLZ/b+U+MW/ePJgw YQLk5ubC0KFD4Z577oGYmBi4cuUKdFDYHT062AcyWC3s39vasM6fPw/r1q2D X/3qV7Bjxw44efIkXLx4Eb7++msbFt5btGgRzJw5syU+FolAmzeCwPl7lI9Y RHD06FH46aefnD9H2h9ff/11eOmll+D999+/oRGoEQFQkUQLakslU4KKXJSV ldlctHOe92T6/xgsXQQWrDYaLPxkUYhScGBpZA5yoP5fM9/t1J/RKh5//HHP MiwqDxw44BGpwF01M+zIq0UIOGR8/vz5NuN3O5B+0iBp7HYUIP3973+3WUbi Vq5cSZCuMEgoGaRp2bJltt1YkG62/9zSfnrkyJH202ieaNhIj2J1rAPsopnB W5WkkQy0bxRjM3UPmURtINAxDrQLZiaj1ZOIxPqoPjn/RwtEEvHTaAfaeTOj serJ1157DT7//HMfNG55CtpZM6cJArRIde/YsWMup3c50E6ZoSWrJ/Ej/tmx ZY9TlCd+GuVA+5YFI53TNPUYdwQCdfbsWdsJkDAF6mszYRkCtGYKpmUVrrUs XrzYZllB/dIMNTsQapTNKoYy8o0FCxYgpjsdwMcVbooAtbW1LufdWAgnn2jB FEweNtIB9ZmZxu4CtJbMvJFb/DTCgXbUDK2nerKqqsrljKApD7M/DXegHTGw mS94RUvGJlmeAnXIHOH6CNBaCT42zIG238xmXwYNafdU0NwXnvBCJSuo9QK7 lNr6C47WQlExZ84cN04x1oc6UPeYOR8oAG4jcD7EgbbTzPlgwYPbMK1QdIl2 U0a6A/cDQ16z+B8muEpbwQxjhByX4mB43yyHEQKGdkwOFHuiVYzjGK6puseJ hvCuWUajDJi4g3oyaiZwFe/g+pNBbhauMYL7tlUccEu05BcWuu1mId4toGuj HkHWKKOi0St/7yzI07oigml40yzeMiHGEA0oVrrHPOVWl/UI9zclBcKvVLtN w62Je4IQRq5X95BvrEfwU2wwd1sZBiF9TzJgIAfDKBrjMpLowH3VLLUpCgai opB1A4NL4dSJQ7DZLIfpQlCh4p4HlWIH2stmnmcK0G5gRrx582bK5y1dtp1U A+vNbFcJ8ep6FYbXrl3rGiz+DUXQQrbWPOeXF8zIagTH7yiEmOZGJM+p70jC us+AgYcWM4a1ZjbmMCSIGD/dJMTiSCOSNWYkvxAiyc3qHq8UmhmRrFKykgqI uQYMXFaRukmtMFP+kBB/Ogoh14oFhQ7ApWaAvxFc3jF/p13BchbLQywD8DEW XJ2yBhYLYkDzQDE8HAg90hYyQsSfligimHQoHhQ4GOrMeeERFl3IgzsJ8cAp 6uBJs0D+RYgHnRhtVGQoaAs07vmIwf8U/J+6N96/9HZAPWZm83EB2m2Cg/dy oD1qZvMJwZk7KV7IkFDv1MooqPMYVIHlWgNUtCBsYdCCtm7danOvoP7ezPlC BRURUkzoou6p1sX+pPzyt2bOlwiu2YUpmFxTQfuVgWML2nIBGvXUaHgUr3Id aP/DzOlKwb0JGg9MPRxoD5g5XSN4XzTjlOxPQbtfg6ZxulaA1lmzGOo7kHMF dQ6DKqTfdYK7dVaPoI/w1gOhW9bjdI1wr5n5FwTAsQLztzvQZpuZXy84X5wQ Y5z+GKrMTG80QOMxRkGbaeZ0s+B08ULK7OpAm2aG9qoBGqoZ3RihKmhTlAVI nG4V/DZWYce8wofBlNflOFAnmWncJjgdAUb58UpcSUABHm8G/KYAOEnwvywH WpmQ+oj5twVXThTsT4EqMRP2juB8RBiv/TMdaGPM0N4zQON1vl2Q2o2E6h/u EhimXL9DcLhE9X3UNrqJ6gZtxmkEhBdXToetRo8Co+R/GDCheaqKwnVMA6Zh ZkHtEhw1RXDUlsEYhmgi4wXCXsHXUtU9KhCcp6+pKlHp4Q6zgOoFuDRmyUuF SIFsJw6pVixQMAcMGEJ6AZtyBbcvgyuI5GPBAQkuRh9M9ygVR0pQaJbDEQGa MwzcwpeyKAiR3atBnXyzDD4NDBaRtgzYyFmEIBqHEFX3B9YXX7AwQq6aru7h IzgLhSpV0HLNAjkhOH5KwCPvvfceiloBvt0siwYBsOOSrYIesf+KAsFLYcnR sGjC+EZw/DgzYTQsT57qEaYib2CSPikgizYji1LaJ9tSxbNjFEptgQ+fEWLN beZHaHIPrYxsGD3kyJEjyhJDtKtJ9DvBj28xI23P0g4FEiXRJLNEvxeQdRQe YchoXAe9Es2cIYs3k/k3AdkN6hH0MwHZTcHIYpWkEZpux5eFONDOjIk3lBTk FSYaZMYn8alNmzbBTwKGViqOUdwQsKhC2oDGmW1Gm8BH9+/f/yPDRJVLVBiY qLLmbpbAMXmzxghaYQNCx8NGRBjoEhpDF+XTO0N5RQmPMEpYVLBUEP3VC17o Xj4xtvAFCQ0jXGIMoUy5ZxCqZIWKtzzkYPb4sp2kb/KbCB9OjWCKI8QXGGLs uknPRAQizhRsXprL7+BHzRXWjKFevXq1jfqcFvt5dUw8k8yyBBLsyiRwVYVG DC+xIzVi0GJOMTkEEUNM8OhLsuHuY5BNNENNXhrF7tGijr+GQQ49x61YIse2 jQhmG0QE77moOiUC8NMJgQi0fU5EK4EIUhb3vNaCTDr6yeEgWjFyUE6I6rMA cpBcIqdtmOR4MjEQQTS/++67LhGfGIhQKcydDuFKJsVQT4vxIcGPWpoA5agP aah5wCPUNwqoU9VzNFRLYQqrgTBIaSuQ8lEYpNwieF6Keo6KEerC8C6FMo0U HsDaCaTsCYMUGgLlEUkKavF+1Jzy9gLqD5X7BqCW4iA3A/JPA9brBaxB08gK a7wgNykqKKw0qsljQQcB65/NWGlkgBsO+Z3QORJW7m03Cljteblm7mSo/Rst Ovhi/xfw7xvf1PN+qoESHgEMlNCEFfJJlDgDaM31WXfw0o8nmweqH4Mt1W/A iSc387U7PG1witAWBIo4A1R1YoYmijYZKIpQMV3S1rb1J+HNZ3+Eb+u/zxSY d6j1zxRZESI+mLibGXGYTpGfDW58jVTCwUsowSmnfnDgMpy/fJWR4CcrXXHL 2xgaptBo45ZPQYhSvUubJRwSHBcSXoqyHoZUwoOGpjbehHfSsCOol7R4hRcv W73JQ38UDxM1WcGtDAQyhqifU/c4alpqQCTjv4jGaOBxRNFAbQQKnr7eWaDh GUMcsWgoEliRopeGleuoi4YVS81VZqzFQqSWYkZsMNZoAetyM9aB/zzWGAHr YoZV6ItogRT3EsKKCw6wGhCwSsUJjzzScpk2AnU3Ct+za/i5iuyAdm6YQAfF BL2wwZgQ98+TT23CV5+chb/MeR4a1mxxOw3OUgfl0VIgpp9Uq7/1+DY4umyL /Wm2meORBo4xCFAURG6Rc41jrl+7mo4EN48CXRG8e/pg+0X48q0rcGbXAV9P Qny2d6FI67NIWts3HIH3njoP33/YALNYrAtq0+9Sz0nZkcc6zR55gNDH7r0M 6L9Hi1CPHr8Mf/uR1oiHMqr3b0EtJrFcf+gKnDrrDCZND4NlO2F6VY2tBOq/ jh9tgGUTlsCR2pfFPCiFYINoWrsIPFQdGMvUi9Oo5JqFtVAc0wUeHFcKH+/c 6T0k8U+yw4eKrIc21tVBRRj8dxHkKzkg4VzxyAewo+4snHn9i6bKhCp/Xt62 EWTSzlWJwkoXjQ9EKoqqykphWEIcTEyLhxnZcTAlvYsDprmZC+fJIfFxMMF6 cnpWHFSkdVFTjbK0qKXVl+o1Jq3jn12Flzaeh4Yvf3ClxdmnRd88xcT4pSUt cm0sWjb2PRpYoPXlBXEJMDYjFWbkpsG9+alwT+8EeG1lrb6cSv30Vf75cfEw Oj0VpvdIg3usR2t6JcCrT9WWMmFiLSqNocW5Go/QEClkucw5qI5posTiBciu dbV2BUEpvyAhBcbengkz+mTDPf0yoaZfKrz29ELJ4YKzlCWU+BQY3S0TphU4 YGb3S4Etq+vGakKh8T0ulCRZFDTIym+vslz9uYV1sL6uFuODmoyRxcWrCU1c PKdJ4nKxt3Zv85GgqvEVMKRHFowvyoHp/bNhUnFqVJPE1RxmlU+CQd2zoNwC MdUC8dj9FWrHiXnQLTD/dfF03JZbru/3qvJS6BcXA2MwgqTGQkVqFzi6ZydJ kUduCmp8CuWflyL+4w32mhXL4eezp8LGZ5fDwf27w5UiGeeq5cvghadXwHrr 8VFhSS80lknCdGPZJw1w4rVdcPmzBqdyjHSZchoXJ23W79oJvWLjYGhSMozP SoEZ3VOgOjcRtq2sI9HyIltqcS2P1FIGL6CM0g2t/LiESXz7LBqftbznectz AhamSpKOVV/Fx9fZjlfnJmZPGPYztKZ27+4GWLNkB9w7/nk4tLuhcxh6kdYm 2NDJIP5l8uvw2dMn4ZtN/6ZK+BDqmys8qy0K8+OSYXhGOkzskQmV+VZMK0yD J2vKQdIG1bQ4raHXtJpKuH9IWzWbuSahr6B3JCXdw08tfRpDa+ofFw0lieig MfCvFaWexXnjUB3d3yQLpjSHwAotj787MQ4mp8fB1PRo9Hj9kSAwFK66JS+B gembYXT3V6AkbzUcqW9QYxvm4fm26nmOh35SObyytgH+9KfzcPrcj43ptt4K +T3jU2Fw1ywY1zsHplnRs7J/Bmx9domrW2ngjVdmWhBrXKfB91ZOXQOH566C y8e/goB12I6C24gBsFdMDNyVkgxTu6ZATV4yzM6Nh39bUSvu4ZF8k3RcbcWP IVbomdg1FarzsJRJgm2r6qSVMyYwKxbvhLy0vTC812ko638WJg46AlvWHaUt pqZpj+tFVKAGlVnx1Bwqx02EgpxMGGGpr7RfNsy/f4papxe26mhsiVeVN7gB KZjtSHjrpUOwffl5uLTnO7h44tMm6Iz0ltvZyp7Z6TC9VybcW5QB9xWlwB+f XiTqjJFjKWnceBiSmQGTemZBdVGmVSOlwba1i6k613F5Vh8Fe3edgdyskzC0 349QOuwnGH/nBdj00je0i7jxqSCZQ1tBEt3kmPv27oE1q5fDgf173U2VvE3O Zs9SXWqPFNsZ6Tq/skLXOAjRxyaJYv7ujy7D2XNXmI2G1LQRXEw9YhJhkJV9 K6xCdpZVUlUOSIMtzyyiyXZNBP7QgoFyD/TNyoS7862CrDgbpg1Ih08P7Dbp h5rW6VPPQGG/MzB8xFkYfmdDe00v0oxQR5d6yVy9nWgFBrHzduBmQ5yNCFZE ByMZrU3uITlYc6jfvQd6ZabB0Lw0KC3OhN/NqXBLCEl3JML6vXthTvU0ePC+ qXD4wN4AxzSVans+ugpPrbuoXLdxDYxzI5NXwUjdlNRN3GISTCOClvqqVuEL mvTECwaTgGmv45q6WtcgfN52Yxiyok1fK6368WfjSmGDVWId3rlzjECfiWYc W1pSvgh+PPGtmzFCwoI2LkUzT1z8N2k4XFld58YdLfjwxCKNANufpHEZKkz5 VBxpH3vRotguMDSmC2yorfViqmdQenFspb+yEru4GxsfA+WJdvflTmBxFXiP Mz+JsnH2xXIuKR6mZMTZTHyye6eHhyacsAhfvXgH7N/VAN0Fjk16WjlvN+xa chZOvfGRqyeeazsGyd/QRR3b/AFctH7SWClvK2196sPD+FPTIt88ReMkfEbS WwquWGEXF2C/uFgoTY6HqZk4EhYDryypDbfx5GV1QVwcjE5Jgqk5yVDdPREq u8V41bkUTx15yLOi6Go+tw+ogaMgz6oaByelWNVeGlT1TLW/9sdVdYGxUWtZ qQ6bNvF56JVcB4NTl8KdmQvhocnPOXVYYJRy3fjz/wPrtpyDI59/Ky41aap5 zJv0JhxY+BWcfW+3G2n49i6rnuls9G6UI3XKNG3IJ4NbCMhNPRNKeGhyMkzq lgbVloTv7Z0MM3vENM1GnEa0KCEZSrqmw4xeGXBvnzSo6ZMEr6z8A5jKisiA iLzsFy/C4V9vhHPv7jN3GzKnedEJMNgqQB03A1M2jYKFD5+27//94gWuRxO7 e3efgG5J66F/xodwV95+KCvcBeV9NsDhj06oAl/OUJR0uQl56TI0FK9adBre fus8nLFKwyhFNG2tx717O60eEcV1mz8ee+bCO76eDDmZi6Rns7kkwrAsr7K/ t186zOwT3+SQsnMXFCSnw+ge2TC1MBuqi7OgsjhFB+OqzyrPTKvWFz3wNZx8 9wpcOvVDk42luV0NF1rVMF4VVpcWFNJIASe+u6qDNxrLisX10D3lINyR9wOM KbZamsF/gwlDP4ZNz9WrViOEXGmVQYfwOaPenveT3s5mJ236FkyQLfbWTAQr Fik8mkxkVd0S6JedCSWquZg+IANeeXZJUweNK8sroH/3bBhbmAPl/TPh6ME9 jAc+GoiWgZduGe6c8rdX4ctvLsP3l64EEA7gBuN9VnG+bvUKUJdkB/oAXqPB Ytcp6Jr2FRQXXIJRgy/DuJEXYdyor+DjgyedittLor4gwQfu9EIuCKdU8AXk 2Jv9ZsCLHjpuhy8mkcZRr/nyrFUlLl0GRblZMKwwEzY+u0zKRabkuFf14J6z RboKVq4vLaGhY9A0ylTcuMaDKyKxqhn6ZjiT2dwmly8+Bbn5p2HA4DMwbNRp OHz4qjqqLdKuknDasX80Ts66RRZXondmnhfp+TEH1OCGpzDeTVDrzBUmmbp2 7El7v3S8e9pCGryUV3kzuBHKQQ7t3MnFHsn8hl1SXJ5VVkL6tNuD3TuZtAMH MSQFkbSXr73s3ivUzNMpZPPiusAgqyYusZqKivQ4eHxKKfk4ckzNE43NzrI0 2jc2GkZafc/DZaUke76UsOna6qOe4Osg/IHNPycbwDS5zaFXPoSzbzhnKgW2 V5Gu7emNVnOoLi+FoVajVZaEg/DRsGVxrRj4ZIvyZJsfGwejkpNgitUkVFlN wsxuTh2pWdjwQA9rB6sX1llgEmBEilX056TCzNwUqM5LgGP1O0PmmjE5YuLy WGMtlcMpeK1EldWM5luKH5GQAOPTE2FaVjwsmFZKPSTvucPTKO+zCzX/Q41G eN7gLXPg9kwhbvumY/Dhkw1w4Y2P4aezf71RcMCQPWZNGKiKsoRaC4W4BCAt GabdngKz85JgVvfYpqoYa/zC+GQYm4NDwhlWfZ+ONT61RThr9nRdLRyw4sEd rkoc1tvDmrpFkB+fCiOtymBSnlXt9e0G1SV3wu8f+mXIRAo+oaIY9QecHi0e uBruGRsDRRZ9ozPSYHL3dJhltTOzeyWQhnkX3nQNFylCNJ/1ERIAlYLT8cNX 4MWXvoMDB791d74FKLnNP6BkS8B9k1OhpFsGzMjPhHuKMmB2YZIpbbvDwVY1 3jspDe60yq3JVjU+y6rGZxSneB01H9ApjIuGURgsEqJh3vgSGCCTSv0/wu6T 1RXKR4+CWTNnQFVlJcwsH0PDbXx7EKXKYBuUV2P0tJq9wpR0uKtbFlT0yoZK qy+p6pdMeucL27wgpBXBfAK6bxPCs+I2rC2aTVJn/c7dkI9M5Vk6KbKYsnQy tTg53HkuqlhWLVwKfW/Pgrv6ZNtj1FhFS10W+Zk9u29pd3hiIkzITLZCuBUq usXBsX071Rb0gIHqlr41Vffffz+Ujh0LI/r1hN/OmQZHDuyhYpDaDT5f31gE cluL2sXQKzUDhlpt4ziLo4r+WfDquqWU9Oh4MNR2tF+/vJHqJwbrYOXyLbGC cpvQl1HHuXLRUijqngWjLGcb3S8DxRN2wnWL5X17/BagJXfSKEbtgrgkGJVp RcXcDKjOT4Oa/GTY9vRCpdHWOum+LMs4pfOgaXkQfyR4EC3SZremcioUW2Fp w7PLSJ76jn91nqpBc8WCZwIvLTqYVXVT+KryBsg94UpHP7PeooUd7HolpMKI rpkwMd9qfQsyoLJPMmx49AEl6xZut4qXnvjIlKiE99EXQna0gsgXKNMpstT5 K2FSLORN3gDBDRrZ/X2LKxRP5CmCUNiQWxTMGl8B/azQPKYgB8qKsuChaRPg u89O9mXyCJqLIX0RierykPOzYKh76uxnmRfeAxnLtBr3ekVmwAJaGs2zx9Jj u8BI699vy0o7uEahrWH1B9RIi7W98Oya5fD82uXw3pHLQQdkKGz6+CAKIb1p PN6h8YiQ25h5THflyWcOCq1ieUxSAkzOSLBX3z42pUQPdeqS/IerF43ydw89 BA/OnesboKH5eB5PolzBSsGPksjnnzTA7pd3wA9HGtzdgryC1+SDCEk+gxlS KguaM2KDFlJnyk7ozVREwx2JyVCekwaVuWlwT2+rB8qLC3fcpqdwT99Yhmse 7v/5z2Hq5MlQOugOKMnOgHnlJfHqUV6VBjQJNN6x4vfb4I0HD8K3z3wA0vER mvh4HTxERUd9Za1JdDlm0VWPmwB3pKdDWW4WzOyTBTVWRpxVlCiNljgDU+1d SEHBo9ASzYC4eChJSYQpWVYnmhMPW5fXxWkhz1uOJ48e0Ujf9lcuwOZnf4DP Dpx25cXLSk1evJgcqkyLbFxadd49xP/qd+2GPpmZMLpXDkzqmwPTBmRioWMv +6TJQy5hGg5dXfcH6GW1z0OsRqAcp2Ly0mF271SrFYpxDw3jscU7DkgqP8jb jp+76t5r1zj7fMhrGLuHisL7ubI58OUR91VNg0F97EHEkVogQQFS7sTLZYOW zMUmwyBLdOMsa5puWVNVv3R44r7x7hEVtJjA8/vGq2npeBCNaV6mDBMEEcD0 3Yy7oAWjvjGsqrJJUGT10HdZjc6EvlZvMCADl+4kMpQUBHTugmIPZdnjx4/z Q8GcOQh3RIlPEwwXmM5zTWmMxpOU2fWpLivBWhzfVz0V1q9dgatikhhaBICj bV4l5s0936JYxeKRdrhTpuzs54AfYStxUOoC9RClKbEbB2P84uyqCcxb9e/P 4beFUkc5SqKuPExbJa2vnLcJ/lTzEpx68U01Gxi6W4OHEG9hggTVDQVW4v1s k5V4Dze4ps89iuyQJ2MDo8M0WeGn8U1k9OHJH8LBFy/Bmf/4SuEwu9OtGqzG WH684i04WvcJnHvnAzcQIP3kZhRYeALVWOYJlFjmpXiZ6w2hU8BfHL8Kizec gtNnvzeuXyL2osMUnztBcc9XsO/tC3Dh3BXflCD1IMQeD/hNZC9c073V7Gx0 /I+Uqamy+eKMl6r0CU6UTnzj3PDsLb2JINg+/VMWOB6Ku/XW1dXy1atB/pds 4I5elcI9jWoZnpM0TqScxDmRlgXy8fzecV1geGwMlCZEQ1lCF1x8pa82lBws WRAGczZJ8xQ2kDIUCH7SD4f9BxiUDM8t2GOtgj0+AcalJcG0HBzliocnZpSS 2/F9+7TMio4MUFeK32ubcU1xD6KjvXC8A3MsXlYSULzQAj/uMMMFXiSzoxHQ XrGJMDQ1DSZ0S4fKnun2Rr3q3gkOq/KBf5iIeQSU6j93EdQn38L6aWvh6zVb QyK2t8e0uQ0bByLwJ2U6jUspy/H1vsFctrcru8FZmVDe0+oTCrOg2qrsKvs6 qdXgWeEOrNH33t58Bt5f9QOc+eBLl0RaEomf6Izl77//3s3llO7C4JYHy2Bu 28AsVeiNtgq9iVahN2XQ7fDqyy+GvaXIlDIPHLkMl9SmbKKLux7lEJ7Fb/Wz xtmQWCtTzGhBgM6uW7F4CdRUzYTqqlnwi1/c79tgIZ8ZYF2lgnPxs70p+zaR 1HLXe2nIKsBh2iri9cCGSwqw9cCrjNHo9w9/0tFo5ElnuHBvAou7QRmkpcuH 19ZZGsB9kAOtYDcmLhruju1i3x4XaNfOcUkIVqCSn7ciUVngUuBNft7EKA/K GNRTh7qoM3lZFBcHY5ISYXKm08ovmF5KoZ2bLY2e8YwhcEAYiAPephUprAG5 i2rCZ+ZvgR01z8AXSzeqe6FFGTfp4M1WUdAzJhb6J6ZAabbVr+c6/frs3gnE IDf2zgIYp8pxF6LyNDJCYLpIBQKpzKAw8kT1EWh45Qc4+e6HbooJcAlvbwcN XVSVjod+aelQ0iMLphVY/XffDIzS4xk75BekL94VaezwCCqx08fFL/Xyzr3W 8PVfr8L67WcspFdNHtRJAEH843xcL4ut4XnZUFaUA5MGZMKnB/fQO4C4I9H+ FH5Uisr5ZI7hslcoUBQ8KWR2Mv0kCI+7SNi3ew88vWo5vGA134cO7KX3DnHn ukkhwgk2lBk/29bAFTkZ7/D6apS4AUNMYWbP8raCVzFM5DCkUZ4dNAuTsgN3 oj4uAq83oyI5wCkWCLYuzUaHQQkXJZ9BChpqpdH/VU7jAQettDQ00EaN5Egp iZOjT+BIpx0UucLztp7thFyrrxho9RVj42JgfGI0bFpYSzSGWpw/nGs0SuE8 5IhOfbeFo0E3ZLWEz3fXwzOTquGZadXwu7kP6jbW3xAWMDv1sbLTqKQkqMhM gspuuDciltjhtvifwI5+yp/kOE7S99vnfbOq4GeVlfBayQSoHzJskIGhnjEx 0Dc+BcZmpcFUKxtV906DmoIkqewnhnj4VssqaNpDykbShrNQr2/r3gsy94e6 jYT38sfD+UET4NSwUSamVtcuhsKUNLjr9iyoyM+28lEmzCpOlar7jo0zJQVt 7ru3CBHDmWX0z7TzFlPzY5rx/fdlL8MLRVPg8Iip8Nff/F7ikdbm5CalwR09 suHuwhyY0D8Lk5NLHfcq4iJ0j1/YDN6mkREUv6mjwtm6w5uc2TrKVHjpMR0v ftjuZ/uPQsNBZxpcYp2+t+qp5bDu6eVwaP9eoJO8uOfRO974Rhs6u6yTn3XO 5n8G62vnvwufPHkITj/3qm+QSF9ZGwBmpGtAvBwkB2yv+EI+MMNhMKfTHJrI VycXkXERWxT8efsV+OCPZ+DTjz7lHqkNXtILdbhn0eoJnnI0w+MpZ4RwTx+6 dT9J9Y+eGuntN9wZ+MsUKSZ7gzk3+Knj0Zmo473DbbLkmmm0SVWM/TYHbfPa 7wIt2U+vtLGiXeOU817Oi1jeLgRLptLETZ6yOe4A4caAgy/vgO8PNQCtI8Ja oLqsFAbEdIGHSktxmy1MZ1zj8gV+4gKPyVK5r7imZosnn5GCJG5jigmqpwpk nZpd/i9w6LGP4OtV65kt0cCHtwY9BkoT8WSyWJiS5uyNJd75Btz2/xjvPIRL vEvnmei8h1umE+OrnjwBH75+Hk4f/8awr6yFXTMVxMbDSNx2mJ0CleoEoT+u rIMZgpPSlDPPWF6ouSGYcTJ13nvowxGSN+oFn8M4yAvAvB2Qi6DAKpxGZWVA RW4GVOWnQ01hKmx7ZrHLFXdl4oq3JlJrd33j/PFzYDsE8Md9OGAhp6Rb6bAT 32q3xDQY1i0LxvfOhul9s2Bm/3Q4dmA3zGQckxvTqXUh7xVgFZLLp5SwuEO3 C8N5B7vAPTTe1hXaHLxy4VLo0zULRlqFYUlxFmxZt0wdpun3RFooQlUETZXj z1v8xPPN21LZ2zoM75ssSJ4GaOrrvbWf1PZyj6F0qL+tHj+jEWDq0EjmiUwi OZxRrul+2Up9VxvvDyFbhPjrq8lL3G31x49r26P8SfBmPzdSwuPcBG075l4y R1OAx4xUhUbB+kc2wEcLNrrfVT/NEysNsHTCUji26BXgLSN5DH+Rg+/QGS8U 8dg2UhkX59TgHw8IYeCaL11FwfaXP4ZNc4/BqQ3H4eKn7opU05b57S9/BW89 dhpOv/GlO1vE/YimanlG05gKzdwtbKLR2CRfeUgjx5ypIuH4oR9g6aJzcKj+ HPzvK5fksSfwhnu/+PgybHv7Anz8+XlxvoT8MvTgDpel0FUPfutDi+UjJ78J k6XWyuE1JdqfSwSHaiKpgxV/QY6C2rAi3a+VuWgZhX4GL68ISUKSu4wVXINU E3K2hscHTyEDmMiD0kUz4blfuyHNqzikpeH6hApvY3m+M5DYT7MKydAJJG+K 6D1loQnAP5ejoeYgCgPCIQ/urQyoQ7ed+k+1sKL0zX7sPEDnhxGMqXbgacrZ ftnKZxZ4hw5IoPXweBnQ54VhGtJz5wSVk/Xy2KZeeiMdLtMjDJVLY4P0ljiu 8maNo+aO3S0MlUtrGwm1tNOYxxQD6uww9M1fqUDpzT7uWmuS+VA72QBFGx4a NHLQ7/xvuzDrX3qL02Qt8jYWqcknn5+3HuoXOC/GeETFTW5DeEeFjJtCqaZo kaIJUaI6ThD+FDnsmrLl9pfrYcMDR+HMRrsGmKe44cZHIU4jmMeKxACt86SX KBA8VaDMt0Cu7omzsL/+LCZyINq4dVKZqNHGI0lcGBaZEgZtQZJcoCRJVnrq 1CkkSaOIu1mXMIxSOp69QhlUExLx/1KPkKvgzwcffJCKTuU5NA7BHfI2TWwS kdkCkZNd9/WS6iPqe/wtVS0VfNIgrS969NFHISYmxv6eRh5f4xvOma101CN3 rW9YJKVN/q2UkNQrz+1+BCdYkQzrs0CF/wVHZtvqYaCCB1Vqwvj7TGnBFb2l 8KZgUq4Pw6h6GUgJHapoGTKmzhOvRU4nPzWh7zozL2kpCKSmtRtzaFkdf9Ua jYZbFHQJpqCVphrJQOglOTyUHVP3ECt5URSTBxoNTpOTetja9Dg/NRxqlEaN ZCjFQvAianjipyEarh18/THJBr+X5CeFRx8+8d7YTHMoKa1dUvShEs04UjkF rVwKTAYxRKCW3q6N2OhouRZMHagmelWoZhzq9ew0mEQDaZIhSGvyCXPI9EGE jTjKt72VOWlXv+iRSfu1shYaPn9FcfYjJVaOJsjvLOg9OHQv6ajdWtKg6I5G JEixRnAvZ+OaWyDzozql1RSEKWRTPtMVtxbmOvZkhrbJ2VnO7Rscnad2wEjr gXcYBCmoqZOSYBi1kjqtmb8SkggZKhDyViMCp+ghOE3nJhPVkRkC089gga4t 6h7iIrqozgpXZcw4pMNazbTSuhSiE0PpIAOhnKiWLDGgFikU63vMFXGJTSaO v+COtEthkC9ilojjqVvSLobL1CZTRBaq+Tht7ebJjhNFQwJ6Eg+I097+YK9e U55H8+Hc7/sHYvc8rxFfd0au3PWOSAcJvFiA/ry6R8UJ/mvO4zDPxszBnUl1 VWx728zRyCxGaP6LJ2l6rV9IxNeSra5aZ0Wdu+OZi0uqMByGWtk0BymHKmWn o3O3SxBolBUtH+Q5+il1jyhzZcWKF1qMoWnFmcZy20ruBn3UPZ4dCRMK3H9Y VjNf1I2w8fgpciZg3HeBkH0rmeUHYmtl18voiAZ7hhoHeqImMiSytwD6D8wM URS6yAwR8GcOpiQGgUTGj+OkROycW93WFzmuqSRlCGXe6zGUnSXLFk0HCfOM XKsYQVArV64MsmBp6bGzphdSNTHyjobHbIo5yAyBoOSCNkK6jwwvKkmn+SuK 0hh2Ouehu4Gi0CzSxldONxKt3D1yAil0egN3ltubREoLd62SUKI4lhXBVE8v 3NGyfdcwcerCD+jrUgWOJzoE0CJF7lU5gdjb+LA34k0ObJtbhSxbEC/d4xmC JvOQGNIqb9neeecdO54L2n3SwZTD5MpSbaYBWciChTACX52DrZsmRD7eE4qq tYuqEZ9Z4kDnBkhSSxegVzaSKwyd1QoHU3c5EJH58JxXqb7KHe9acCul8Kx2 8PSQrZ4G7XgCrFQMIDDcwxUQ8NY6gPM0RaCokgWoE9W9+fPnuw4hBTJBVE5N 4csHpBTKGzwbTVR+w12vsQB1o+s3zhtr1TBPSGJNEPDRtDwP21TN4hUUmW5W KLRqdpHzS74mV3RMXlhQRqTuiY8LBp9x3mjcutVIFA038TQdayCKQ2mhPJHu NRLKoo2E6CeEKreRpiEkWvR6jjcbzCzijTRQXcpDkPQGd4kAGkAyjT8lG7H3 ZZgohUtvZXawmytlKvu8PkZ5gXQSnPReFCIG6yOpSiE9C879noOpWI5P0umw hMxfNhvHk5yzX90TvbhP8SOQqD+lMlDyaKo1pCZml4NmoCA16SgAQmMaNg7w jr0Opju0KKVyrrRhJle5H0+EhoioDu8crEkMbVxaMp3BJLZ1q7OSmMZr8R5K S+gv4WMHzRCmZpIYXytGKZDQ8Gn7CE1iAYHtEweTvvEEMUkz/hnKbajqNxVd 3urgvzhIhsnGzIczfSuLxYEuf83P7cLQ6Eg1/58dokZoqkQotMYydOWrX8YU u/WaP8AR7CRiBy5pHZSiR9+IgJpoa6CHl8G8MsUrIKAlB2O/U/McpaLWYRLA jc7gRaluQFWWQS8Y50poyQRBCbSTZn6GQVjIFLhMcBGDf32h/TVVe45WD/Js TrbHMyg/QI7OT6QFgtwKeHRHwrq5RCRqJOIljdo5R9uriioku5Mx8TlMh7Y2 vlaisQEhZ1RLXhLmjJKoY6f8cS+SoadcxJdfEhheXKCe0B4E25jYNJmUaBSh spoZKAqtNhrvrSo8q5EPbVTS0c8ZcE/z1miJVGGDD2oa6o+qYO7HKbfX3JWw 6cPtujUqkde4/ClGypX1kFBxXuvQoUOmCAs2XY6bqDEMhyzEibPdzANudhOD NyNzwXmStM8aOWjCdIqzygjucwNtE97iq56d+1/yiQdcQXlD6Upk9vdq/vv3 /8q/w3X/H7BdGac=\ \>"]] }, Open ]], 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.5744827068053503`*^9, 3.5744827177409697`*^9}, 3.5818289943486547`*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {110.11999999999999`, 680.54}], LineBox[{{120.77426283237966`, 662.0868167743184}, {135.12, 637.24}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {160.12, 593.94}], LineBox[{{135.12, 637.24}, {150.27381181749612`, 610.9935979320968}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {110.11999999999999`, 680.54}], LineBox[{{88.81194312796208, 680.54}, {79.12, 680.54}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {48.120000000000005`, 680.54}], LineBox[{{79.12, 680.54}, {67.81194312796208, 680.54}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-73.08, 431.46000000000004`}], LineBox[{{-54.88687899621884, 438.9954477170683}, {18.519999999999996`, 469.40000000000003`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {110.11999999999999`, 507.34000000000003`}], LineBox[{{18.519999999999996`, 469.40000000000003`}, {91.92687899621883, 499.80455228293175`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-73.08, 431.46000000000004`}], LineBox[{{-90.13359793209673, 441.30618818250394`}, {-159.68, 481.46000000000004`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-246.28, 531.46}], LineBox[{{-159.68, 481.46000000000004`}, {-229.22640206790328`, 521.6138118174962}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-73.08, 431.46000000000004`}], LineBox[{{-82.42118747746623, 414.1246361253731}, {-121.97, 340.73}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-170.85999999999999`, 250.}], LineBox[{{-121.97, 340.73}, {-161.51881252253375`, 267.335363874627}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {460.12000000000006`, 593.94}], LineBox[{{450.27381181749615`, 610.9935979320968}, {435.12000000000006`, 637.24}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {410.12000000000006`, 680.54}], LineBox[{{435.12000000000006`, 637.24}, {419.96618818250397`, 663.4864020679032}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {460.12000000000006`, 593.94}], LineBox[{{{454.60381181749614`, 574.3864020679033}, {439.45000000000005`, 548.1400000000001}}, {{445.94381181749617`, 579.3864020679033}, { 430.7900000000001, 553.1400000000001}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {410.12000000000006`, 507.34000000000003`}], LineBox[{{{439.45000000000005`, 548.1400000000001}, {424.2961881825039, 521.8935979320968}}, {{430.7900000000001, 553.1400000000001}, { 415.63618818250393`, 526.8935979320968}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-47.19, 334.85999999999996`}], LineBox[{{-28.997375560729637`, 342.39664648013655`}, {44.405, 372.80499999999995`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {136., 410.75}], LineBox[{{44.405, 372.80499999999995`}, {117.80737556072964`, 403.21335351986335`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-47.19, 334.85999999999996`}], LineBox[{{-65.2039083282003, 342.81435295282324`}, {-171.735, 389.855}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-296.28000000000003`, 444.85}], LineBox[{{-171.735, 389.855}, {-278.2660916717997, 436.89564704717674`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-47.19, 334.85999999999996`}], LineBox[{{-52.407977476467686`, 315.87196863258407`}, {-65.72, 267.42999999999995`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-84.25, 200.}], LineBox[{{-65.72, 267.42999999999995`}, {-79.0320225235323, 218.98803136741586`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-47.19, 334.85999999999996`}], LineBox[{{-46.964510274799466`, 354.5506520597648}, {-46.834999999999994`, 365.86}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-46.48, 396.86}], LineBox[{{-46.834999999999994`, 365.86}, {-46.70548972520053, 377.1693479402352}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {110.11999999999999`, 507.34000000000003`}], LineBox[{{115.21642713955177`, 488.31898387135607`}, {123.06, 459.045}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {136., 410.75}], LineBox[{{123.06, 459.045}, {130.90357286044824`, 429.77101612864396`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {110.11999999999999`, 507.34000000000003`}], LineBox[{{119.96618818250387`, 524.3935979320968}, {135.12, 550.6400000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {160.12, 593.94}], LineBox[{{135.12, 550.6400000000001}, {150.27381181749612`, 576.8864020679033}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {110.11999999999999`, 507.34000000000003`}], LineBox[{{97.13545874255301, 522.1445368886889}, {89.67999999999999, 530.645}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {69.24, 553.95}], LineBox[{{89.67999999999999, 530.645}, {82.22454125744693, 539.1454631113111}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {136., 410.75}], LineBox[{{154.780869431759, 416.6704364317265}, {165.565, 420.07}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {195.13, 429.39}], LineBox[{{165.565, 420.07}, {176.349130568241, 423.4695635682735}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {136., 410.75}], LineBox[{{142.73544905525878`, 392.24577480198354`}, { 146.60500000000002`, 381.615}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {157.21, 352.48}], LineBox[{{146.60500000000002`, 381.615}, {150.47455094474122`, 370.9842251980165}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-296.28000000000003`, 444.85}], LineBox[{{-286.43466447337573`, 461.9040901992186}, {-271.28000000000003`, 488.15500000000003`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-246.28, 531.46}], LineBox[{{-271.28000000000003`, 488.15500000000003`}, {-256.12533552662427`, 514.4059098007815}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-296.28000000000003`, 444.85}], LineBox[{{-315.301016128644, 439.75357286044823`}, {-344.57500000000005`, 431.91}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-392.87, 418.97}], LineBox[{{-344.57500000000005`, 431.91}, {-373.84898387135604`, 424.0664271395518}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-296.28000000000003`, 444.85}], LineBox[{{-297.7951611302213, 425.21643407568666`}, {-298.665, 413.94500000000005`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-301.05, 383.04}], LineBox[{{-298.665, 413.94500000000005`}, {-299.53483886977875`, 402.6735659243134}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-84.25, 200.}], LineBox[{{-101.30409019921856`, 209.84533552662427`}, {-127.55499999999999`, 225.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-170.85999999999999`, 250.}], LineBox[{{-127.55499999999999`, 225.}, {-153.80590980078142`, 240.15466447337573`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-84.25, 200.}], LineBox[{{-65.77415365833228, 193.1870912149085}, {-55.165, 189.275}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-26.08, 178.55}], LineBox[{{-55.165, 189.275}, {-44.55584634166772, 185.36290878509152`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-84.25, 200.}], LineBox[{{-92.61167029002318, 182.17150892206982`}, {-97.41499999999999, 171.93}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-110.57999999999998`, 143.86}], LineBox[{{-97.41499999999999, 171.93}, {-102.2183297099768, 161.6884910779302}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-246.28, 531.46}], LineBox[{{-236.43353674095803`, 548.5134391089666}, {-230.78, 558.3050000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-215.28, 585.15}], LineBox[{{-230.78, 558.3050000000001}, {-225.126463259042, 568.0965608910334}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-246.28, 531.46}], LineBox[{{-263.33423309152676`, 541.3050880044196}, {-273.13, 546.96}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-299.98, 562.46}], LineBox[{{-273.13, 546.96}, {-282.92576690847324`, 552.6149119955805}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-170.85999999999999`, 250.}], LineBox[{{-180.5384668658382, 232.85065880910392`}, {-186.095, 223.005}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-201.33, 196.01}], LineBox[{{-186.095, 223.005}, {-191.6515331341618, 213.15934119089607`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-170.85999999999999`, 250.}], LineBox[{{-188.10358603574167`, 259.5095407240764}, {-198.005, 264.97}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-225.15, 279.94}], LineBox[{{-198.005, 264.97}, {-207.9064139642583, 270.4304592759236}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {160.12, 593.94}], LineBox[{{179.81194312796208`, 593.94}, {210.12, 593.94}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {260.12, 593.94}], LineBox[{{210.12, 593.94}, {240.42805687203793`, 593.94}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {160.12, 593.94}], LineBox[{{140.42805687203793`, 593.94}, {129.12, 593.94}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {98.11999999999999, 593.94}], LineBox[{{129.12, 593.94}, {117.81194312796207`, 593.94}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-392.87, 418.97}], LineBox[{{{-410.32980652052186`, 429.35880652052185`}, {-431.76050000000004`, 450.78950000000003`}}, {{-403.25880652052183`, 436.4298065205219}, {-424.6895, 457.86050000000006`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-463.58, 489.68}], LineBox[{{{-431.76050000000004`, 450.78950000000003`}, {-453.19119347947816`, 472.22019347947816`}}, {{-424.6895, 457.86050000000006`}, {-446.12019347947813`, 479.2911934794782}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-392.87, 418.97}], LineBox[{{-397.9673974881964, 399.9492438898392}, {-400.895, 389.02500000000003`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-408.92, 359.08000000000004`}], LineBox[{{-400.895, 389.02500000000003`}, {-403.8226025118036, 378.1007561101609}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {260.12, 593.94}], LineBox[{{269.9661881825039, 610.9935979320968}, {285.12, 637.24}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {310.12, 680.54}], LineBox[{{285.12, 637.24}, {300.2738118174961, 663.4864020679032}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {260.12, 593.94}], LineBox[{{{274.2961881825039, 579.3864020679033}, {289.45, 553.1400000000001}}, {{265.6361881825039, 574.3864020679033}, {280.79, 548.1400000000001}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {310.12, 507.34000000000003`}], LineBox[{{{289.45, 553.1400000000001}, {304.60381181749614`, 526.8935979320968}}, {{280.79, 548.1400000000001}, { 295.94381181749617`, 521.8935979320968}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {310.12, 680.54}], LineBox[{{329.8119431279621, 680.54}, {360.12, 680.54}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {410.12000000000006`, 680.54}], LineBox[{{360.12, 680.54}, {390.428056872038, 680.54}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {310.12, 680.54}], LineBox[{{{295.5422183271316, 694.7663631298753}, {278.91499999999996`, 722.5665}}, {{304.48221832713165`, 700.1133631298753}, {287.855, 727.9135}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {256.65, 769.9399999999999}], LineBox[{{{278.91499999999996`, 722.5665}, {262.2877816728684, 750.3666368701247}}, {{287.855, 727.9135}, {271.2277816728684, 755.7136368701247}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-463.58, 489.68}], LineBox[{{-482.601550007726, 484.5855658352993}, {-493.525, 481.65999999999997`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-523.47, 473.64}], LineBox[{{-493.525, 481.65999999999997`}, {-504.448449992274, 478.7344341647007}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-463.58, 489.68}], LineBox[{{-458.48556583529927`, 508.70155000772604`}, {-455.55999999999995`, 519.625}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {-447.53999999999996`, 549.57}], LineBox[{{-455.55999999999995`, 519.625}, {-452.6344341647007, 530.548449992274}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {310.12, 507.34000000000003`}], LineBox[{{329.8119431279621, 507.34000000000003`}, {360.12, 507.34000000000003`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {410.12000000000006`, 507.34000000000003`}], LineBox[{{360.12, 507.34000000000003`}, {390.428056872038, 507.34000000000003`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {310.12, 507.34000000000003`}], LineBox[{{300.27491199558045`, 490.28576690847325`}, {294.62, 480.49}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {279.12, 453.64000000000004`}], LineBox[{{294.62, 480.49}, {288.96508800441956`, 470.6942330915268}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {410.12000000000006`, 680.54}], LineBox[{{{415.75638926330777`, 700.1136958499759}, {432.38, 727.913}}, {{424.69638926330776`, 694.7676958499758}, { 441.32000000000005`, 722.567}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {463.58, 769.9399999999999}], LineBox[{{{432.38, 727.913}, {449.0036107366923, 755.7123041500241}}, {{ 441.32000000000005`, 722.567}, {457.9436107366923, 750.366304150024}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {256.65, 769.9399999999999}], LineBox[{{266.36552982865584`, 787.0683713266437}, {282.345, 815.24}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {308.04, 860.54}], LineBox[{{282.345, 815.24}, {298.32447017134416`, 843.4116286733563}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {256.65, 769.9399999999999}], LineBox[{{236.95938498910996`, 769.7112979059873}, {225.655, 769.5799999999999}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {194.66000000000003`, 769.22}], LineBox[{{225.655, 769.5799999999999}, {214.35061501089004`, 769.4487020940126}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {410.12000000000006`, 507.34000000000003`}], LineBox[{{419.9650880044196, 490.28576690847325`}, {425.62, 480.49}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {441.12, 453.64000000000004`}], LineBox[{{425.62, 480.49}, {431.27491199558045`, 470.6942330915268}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {463.58, 769.9399999999999}], LineBox[{{453.8659006247674, 787.0691826274051}, {437.89, 815.24}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {412.2, 860.54}], LineBox[{{437.89, 815.24}, {421.91409937523264`, 843.4108173725948}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {463.58, 769.9399999999999}], LineBox[{{483.27061543923696`, 769.7113347884475}, {494.5799999999999, 769.5799999999999}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {525.5799999999999, 769.22}], LineBox[{{494.5799999999999, 769.5799999999999}, {505.88938456076295`, 769.4486652115523}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {308.04, 860.54}], LineBox[{{{327.7319431279621, 865.7479999999999}, {360.12, 865.7479999999999}}, {{327.7319431279621, 855.332}, {360.12, 855.332}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {412.2, 860.54}], LineBox[{{{360.12, 865.7479999999999}, {392.5080568720379, 865.7479999999999}}, {{360.12, 855.332}, {392.5080568720379, 855.332}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {308.04, 860.54}], LineBox[{{298.12846501351726`, 877.5557015243751}, {292.435, 887.3299999999999}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {276.83, 914.12}], LineBox[{{292.435, 887.3299999999999}, {286.74153498648275`, 897.1042984756249}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {412.2, 860.54}], LineBox[{{422.11153498648275`, 877.5557015243751}, {427.80499999999995`, 887.3299999999999}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.026981209545864894`], FontWeight->Plain], {443.40999999999997`, 914.12}], LineBox[{{427.80499999999995`, 887.3299999999999}, {433.4984650135172, 897.1042984756249}}]}}}, {}, {}}, ImageSize->{{0., 370.628306451613}, {0., 279.636870967742}}, PlotRange->{{-543.47, 545.5799999999999}, {114.47611374407586`, 936.1579146919431}}]], "Output", CellChangeTimes->{ 3.5818731589453526`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzVXX2QVtV5v+67++6usrB8ueyyy+6ysOwHuwsJAhI+V0EnViNTp2qG8mWM 0IBBpBWqGQumoNIYQ2tI0skodgY70+k41hprh5aoTRNqEyAfNVRbrYmBppna mc7Umf6zvb/zPOfjee/z3j2XbjNTkvfdvfee85zn++ucu968bd+Ou3dv27fz rm1dN+zdtmfHzrvu79rw2b3prdIVSXLF/elnVleC38eSxH6Npf8f24cv3JmY 358wPxrT77eSJ1ck9G/Fk8lbmeux5G2a8kXzoz79/kbyaX40Zj7pdfq/b6S/ /9NlDi3xI/pXY75L6YeGjv1fI3EZ3AiZ+WWiYcfx48dnXbx40Vz9o3i054vp vz179iiPGj788MN3urq6zEx+dNzP+vLOnTvN1QXxqPmDDz7496lTp2J2MrUA +qcJzFcIDHDCKuZqagTDvimmA2fgHmARNf2rfvWtTz/9tLlqjlSE0wGIGizc ZG5chV8BzAGMwOOk+dH08Zdeeun4jh07Ls6aNevprVu3Ljp79mwsiM8W4P2g GVvueuedd/YfOXIEnLvQ29u7+9ixY5BnTXEx7ong+Vxzpy4Ze7w1Ef9aH09q zbNaYARsjuzfvx+/fzceercT22hSToGWR8eSGr5nFkxXwdUPQpDjS7krBFEe NVc/Lo5ViMHlTperF5H3HKOjEK1ZzzPIrMfiwPUPCfZ+7xEYpbGkzXxfCSOF hNaePn2anxE4FmXy+GgZoBjSAx7Sm319fQZiK8n6xpdffhn3YHxA7W2xNjQA ummurvba8fKNN96IT9+bb77Z6F2QQ/P7GQqcT5tBUDAc0LE2cLiKhn57+fLl ABpCOUCPfufhhx/+ixtuuMFcTSMosBVAAI5YZZKCNkP5bXp0dlH6zxr0FIIC Lv54wYIFf37TTTcBx8k0FLdPr127VoGy/NvpvxRVchgEBTOfv/XWWzEFKzR7 4j9obm42TGcoD9IjjL71+eefJ5kSFAwDpeAXnk1Xhp4XUMBJRxEJo/aO5557 DhAACRCJ6TLuMJTfpRmAAMyfu+OOO0AJCbtkXUE44/P+EbhpdJC0qYShuG+u ztHwh3IcTidNg7dFuAynPRjpSTroHpgDJmkgQrud65kG/26kog1n6D10D5xx tna2OnQzvAZcPxfqbiP0RdipZvadim6dFQYMIq26MzPK1UyfXSZUz5nm9wja b5LIV7322msQINgGm+unGdAA6E84436v4oiI54eHh3/92WefZaO11hfKY9/R o0df2bBhQwhlLz2yymlCMxmPzDw6vIL9y5w5c0IQ9xTwt6wtQNph1+TFD0Ya j0QLlHDtXA+HvB3J+NFBs60OhariIIXf1PRcgBw/is7w/IeQzVW74qUKYHq1 4lXbFZv5+8IgBaHtzq6+W1wPGCDiFSKNuZpN94AzcA9xPKw8aleM6Q0aTkFG OujZiiXJ4dBtF4p5OOwB1hUOf1RRpDYPwrlmOVwk4rMV9f47Gv6Yt1+EzBC6 WFEOF2rZpkiLhz+uGEarom5yOG6B7wbXNsXBnKHhR5WF36dHv6co5U/FIxHa +dEXFEGS6uix6ztimlCXmc4g82PX3xIIqjdLkL0rV2aEwzm6vCGGCyHPUKDz cC6pT2zevBlx1lxNV6DXe7VimxxLXhUgsCJcvxE85U5XIVpBz52E8yJcydyp hR0j+OInYHHt9KSiL5TQ1YIt4C7iIiyKAFWNfVTH1AG2XQs4Gm+0pIDnOCgQ E3pPiVYdvAG0U9SKlJzWAVEoGSwP2Y3xHB+J8ICHaNn+AphuIRSxjBNymdCA QG05Cys36LNiw8jsM/w0RrcoHsWBiKHbFGsk+dVBILA3cBWoG1XmHB6cc76W Eo06PMc4cNSqQjLsIOZHv4NFUW4IfYvtJ2BpoIZnZAIy6aXaoc6ahWW6eT5Y lLHjE0WY1v1wcHDwK/fccw9QgRoaOU5V0Gv2lmF7DkDTxMX+iZX7Vq9iQOln ra2tP2lvbzfqx/4H2Z1Dbbq3GoRqqxNGB+YXN9oYFDfTGFCPJSFbyBiydmGA Uf35zJkzO999993AvwvLcsb/p8WN95NSu0G5S1ZKSniZpgi2hUzeqql1lpYc rmOgli6QUh3HcdeoBDTVugIDuaxEJk2t2rzWY+yllpaWo/v27TPPuxTvSUVn cksBJi2mJcAILAE0ocFGPRp8fKroP0o027Pa7xjNVYDVBXPFaI74Ry5N6ohQ L5JWLdQILgMyARfZwYkMi5sFUH4nH6oH6yxGwNZRrGWYElsQCSZFYzvkI5pt L8EITNCc7GHCSAwKS7wRWL2BYEypS6uWWi5dugTDMSRRXs1MUSuGcb3dgF8S 3AOK+Gnky/IW2cM10ihgEKFRcJom8m6J5e/v2rXrc4cOHQqwzGdiv3T/wBAY GYZNVwxhuTQcES54vKijJHoQfUWNko/eAtJIzPv+0NAQ2s34vUXhXWMB21zg VSdjV82KOh4RVIhiYHaBZXvksjbNMxoYFBoQuVG1KyM4NKgbnREWNw8Q0ZzR MSmLFVldn40SLv9ijRfVS2O8kVqjs/HekPxUgIqpla+jwWqW1amYYUOkGQ5n zcr6Ntw7JliCO24bjFd1WOCKHK9L8W1yxY06Uak1RHCIEuzaME6AU18ipH6V oIpieLaPCrZacNGcEg9ZFNZHYLHEq6ZTFfNJq6GSZSnXafg8KtATakSa7PIo 29Y1PCXDk9lBuYAFLXUSzy9UHw0NNi2HTwwxFfSvNHTCxk/RZWmRxhTmVzbD FRHs+nBpLkupvrZRLf3elLqUJGne5DE9MVQyKASh5K9GR0d/67HHqGNBxXFd mMI7NIe8e3IcvF7hQAUaWDLFwVzx9pCI59O8ToXBMaiv5L7OdQrlpGe1NugC Puz8UBYTS3y3M32Khnq2tN9Br16pUwVt9iZBE0z8P6ZMmfLHt99+O+zg4erc aPCezeVd3IETgZZSikxy9JDTYbWyJ55MRiaO0bBLhA6OWuMq/L4Q73qhTIYD rNe4psS7HlKC94bZQQr4HTgb6XGEhlTcdlNFqSrSKDK3WrduQmtZPd7U3Jxs YoX4hPm+Umzu5DgcaumzNjdisaCP4xdLNSU5sanZEEh+oh4qCUSB5IcNDQ0Q NTTIhJR2H27AYlEbXBswcYgVEB+jDAlRso4oE1RMiXCfTM5Cmg5DBXrhuQKg BzStZr6xZMkSkGEsjLsbahb2MQ3tlCXQ3xNDQx5tY0exxxBYsQYVhGs8DxyP CGwD7t158uRJ8BTKBUTxOxwintEwk67Z3BW/r86QAAkTxwUJFZGkAOcHqhMC tjg/Ryl0PRQC3Ae3YY+wZvi9oITNO3FgMk+Xuq0V5KWfUikZOmGVi8gL9nac on/MMxo4BIyOIrm/GslGEShJaIAWw9QRPxwTAkeqBU/y5mUrVGGUzvobHGms I8DDOg/8vsL7VZcxkkDjQj1raF8uldpJh/XEQlAOBYQDp9C1qdkF/xrr2Pie 8TNjYyx54JypYJcl2ahJ3Xmb1VTBca7CYgqfJlTCfqB+UKVm774yJSrVhrI/ sLAAP4cLjKUWSNJLS8LiFbp6FN6TFZtDAWCc7SRTQlO1ruXMW2wQDUcYQkzj lzTE5sUQ0bmRkZEKUuY5QNUzjJVEmj1/AvlAL2Z5120TF1fic7oh0ogJpmte ruqRAKsmJ2SitQhB9oAM8OYgGjZW8MjUE5x+iiw4tqE9EjmOta+nukv/+vbt 25/ZsoU2ET5FVABdcN4e0CEG1dnpojDmaPGfkyZNch5uggUztzr2Qh+GvO67 jGOJDzI2FWAF1l1DUFW9NW/evIDZE0ZOdyQ5w54ct13MFS7COhydPbnFrSfr EESxxWotNnqLOLDLcHZFji/OjOTGIiVmkGDMqbTw9BU3SmzVLDa4WJdEbkSb qjbrzxVhLLZBA8T1+4a8cdnTb/ADi72LgH/HXsk316xZY1xCpwfjumQcPIG9 M7ghP84V4PPjqQrOnLgQr1H1UeUepb0mTw1P413jXYbdC3Muo90z0bXbmSqR 4jBV4kSfoGp8/9eiYMzRX7S/KDWqteev7Ek4qnNEKe9SVe2wBLV0ZctoUDHj 3njZ8L45KMDS+Al0mhXClnrf5foZtJLJjjAdxAF7KiPqbHUhtqlbFP4wYTAh NI8NEUwYTk46YgsT1mDbZNZSsU8IntpCe5JnH4NwyiK2pijEmXTpC3v37sXW A8COel9gS3nnC1jtRXuaU20cNnU9pKA6+MHChZQoLiju6XhPfvj8+fNQGFt0 I7lgOHp3bbVH0+1wkRurtYcCoZy4v176ErthbXzJNEVjVihuql8RP1M704Nn WeQ35FbRvQOHDx/+s5tvvtlckUtzZ07BBcj24wQaXs36C9fpnKKImws+cehh gUIhGbbVadGtGvXEv93T02M0rMObiy0mgNIt3g9kDpU0eatzCkoJrjnR7Prf vco9BTvLu+sUh8g7f9Aea7HcNtYPnHy9OvHc5xRxkCwgcyz813JM6A/DFfKb amsV78THysOsGb9/UldjQxO9MMK4lpMqHS5ugYjDxdSxyyS3W7xCOvmlxYrW qV+VY6Vzcp6Ry7AHdcRO6jSvx7hnIsldiQ1u+Z35lW5cvhnOjhxHqbw9bRq8 PeOEJ3YJgxP0ECh4DdI+FWIqalm1WQyQ6aL0gts0813nFB4fO2eRwE64p7Xe kt3xQT6ZX5kbflrh4zqFF13KvRGBgQj867y1uuO1wan+MN/bEcmfLuWexEAk UKNeuRzriMXujQCbm+101lq9RF8VYdHtEWMGBcZY/RfTp083Mewmwq4y59rl LFsttFfnG35H/mNGZ47i/SgCmWzTHdn/DN2DpbqNyLLC6OVeIC4a9XvLdtnr gmB501UYtV5D6Y/e53mGxQ1SZX/PnWGnxcv2ns2UcA1LoPrPbOfYwB3G+wWC I+IFhLWRfohehCrhyL+rPvhEqThvTmlbWTiR9GMNiREVu77px0ZARrTTW59j /xrFpOi1hdKf3Hbbbcd2795trhoV30HVQL3IrtI7tuVprqnoKIu0Pv1Y9eGk d5vCGn7tQRTf5BdkIOTTKiJepR+7Yq+XoashGEmA0BBgNtynyIFTapFPUWlX FkgFzKdEpSx8XiA6rsoowDVCCVgLqzuY3Z4zbjd0kjctJwtGzBYuVn3twQ5C rF5ksOkdu6drrkmx2F3F5epkAFeFiUmQ9aqOKfkcYS/Um4r7ssji0o8dQxG3 LDLW4PG80HnmV1NkWya5wUJ4pQ1i2F2A5uClNRdFF3n2vtvZ2amyl99lDa3K SmjpmTNneuKJWOpdJtT88IEDB3hP1bQ7HFe3R8DixAqcd+8iUfgsf+nee+89 eeedd1ZqMaVpZeED089vPPXUU99ZtmyZIGT81gMpbq1llU2PmhQftC2CHt5v RvXtnOyQ7rvwEvP3Fi9ebK5pTBlV+n1PPPFEpWeZGy+dgQK6xGHCnbPBhykX 7N0Wycxp3mc6r8yUif55+kHzbMszzzzDTejeCxcuvN/W1maZA5TAfHPdHU99 zAFubij85fr16x965JFHzNXW+HnCuw7qymg9iTFMk0LUKJO7inu8mDPTjCdO YMAbGBYWoC/Ga9gMJnA8oV8XL+8xlZ+I1CHGQsTizQU4pL3sR0leWbQhAgdO 7fqM+7fDBQFRjWeR5D3o77lzjjnxMC+k4mNF0RmP1dXeLF2D7kHveB3NlLtl 0gebgdAmTSb5sJkgI1TkxPgfEBIiY+MsTjiAMZ9EUfCpmoJRgpz8m+KI5nsp h10Ey08GLMr+9A4YBuIZ8GcKUMfv1iMOuNxJa34tUzSWdW5XhHT/yDtxt8xy T7+lk1PyKJDmzhXh+Nj3XOI4w6/gqPVUh31WtceKEykHUxOif30H3ZGOg319 yUFGpzWe2rsixkx2XMgvstrcuJiea72hZOPGU05IpzY2gSZDRtvEksCv3EH1 EJDsx1i/OTJEjWozimuTRu8k7PCk3kQzvMrUSJNcccItkOs00g72QVIpeRtD 0opY0/ZIPQxeXAvJNLGEyXRmwZJr9NZSQeajDzzwAJPpOhAsxiyZ0EmSXAWZ /1BAwcKqsDNQHNkOt8umn6amZOMpqzyXuWx+k2m2G1O9gbTa8Z4sM7VKp/cW rcAsf1TYWVTtNLW7x2oraZVF7CA5jKZUVO4sFN9LbyanxsYYN4Mon8X6Bc02 5wxtYck7BKK1scK7cBdhZShSAq1MBq/1SuiiK7vsn9MjJYOQXWoGIQ54SxBK ViTvaRu8HIv+1a/o0sMBj5krRpf6ey4H6hYglAxarsh7vyIHZBCXPJsqSgxJ 90c9thXbcRaEyDqGFO4zCFG5MIiLCtIjCnF8wECUB1yg/syz6b2Ojo7w3DmQ xgEDI1QG8c/d3d2o0xUQSitD3tNOZXHT4n2FTR9R1G3Y33MJ63wBQulTydZ3 zjmBnyrcv0aR0qCCba8AoTQN5Z7+oAKWQfxEYdMyBWm2G9EB5bbnewqbliv3 cnZv36vuGwRm7ENETdMnQIRNUOuhxDvbvd5uKvc6QydY7fe/MT8KZnynNiZN zolT6Fpjn13eft23zI/IMGeW9xEzvHaRYmL36WLQ49QMsrWbbPiYM9I1tNkm /rCJyRLTdMqer8F1E6daKwNUKjbxEMbcJl6D+S79d11dnbtXT2uFTc7Kjb1v Oerz0zBuIyUIsRa1mgBdoF+JbsSuXrywJVdqIjmVs503sXo2YXt2E2WFhFYD 3BTrWc7OXWO1x3jqQIS+ZI53a65uZy+I6FjpSM0c3iWsbDjYd1VMCKuBd2fp ikjdmwVU2UqxTQQ+DC1yirGKbkwIjlPOyv0Auc+TaaPYkBxCYl8i+mVMjIgN FCcz/SIRoudn4GZQsMGiTyfApikhpDbPm1AGIgvs19lrM4J5GXBVJTFQfTWX 5fYE4FrzJbEwXxIhJH4fHk1T/M2LqpIIUhBHP4/DvJWvv/66uerOwK4qDX5Z t7I7aaUxN4DUUp0/DmvePkFSOXLu3Dk7xhpHdwZcVWksqr6as4uuABz1Gcti FzOQBrdZK1t3VhohpKCP6vRdkwZlu/VCGmwXrh7pzMDNSMLqzxJdEjaNDSFR m7m+sk0pLJm3iwXGY5leZQCuLEqYMb/ntTRCEh0BONqGynS07XxKSWsrJWE2 KqqACV+Os/rCRxo07kMHQkja+6Wc1Qpud2bniMYmp7GisRnykVPT/zI/CgZF JcUczXk2ucAalKglRENspzE/vVwTOa4pYs3aePSCVBUxG5/XV65cad7CMNVF tiG4PsDK5lR08KQMXbdg8PnRwMDAmaVLl9YYSFe6w/sOCx0rgX90ixCZA4o4 +8Ff26SyjnboHQ0pK9crnCUazHvEIZjVr776KoOpEzurFq1SVZQKKYhyTlTc mzaxgvedwvEOj+aPmRyPVnErHuekadXHTcVtOVMVz/DuyrUKuKaEN3RuPXSL HOdEhOAz08KrzsnOEe0HniPiWjiHXanoegQNR5f1Ku5XdE+uVeCEc1oUPLiF InpBXdk5ItYvU/gSzuFsTflTQvJemOy0KjC5TyWi9tzsHOD+1+vWrQvnfO3u u+92NIZzeAsIL13e8sILL5ir4H1P9zeNe7JzhCwWK7wO58xWeD2i6Ma87Byh WyMKX8I57QpfuZcnwvn87ByRhy1U5Jwt0mRP1WTbJi0J60LtXGi/p8xlRMoc kUFpf045nEOabY6nu5gWvHnoOrp92TlBGe3miHsxfTbSeD37qPXexgbPpMF8 lxBA7d/pSRrNd13wZ+i9O7axsRT8bYiBLC3JeClGjafPBsGkwXyXNrzyyiu/ 8uKLL5qrRgqK0S+maLhENmsycyJ6S1XXqfdW5VpljUr7jFpqmfxnUQb8hDV/ AjX5X561zigfMwKd7wrjKNnzlhlFDozMubF+xY0phimej2fM7Crw6hf+jJB3 FUkJ//kV/CFdc5Vt2hglxV/INaVx4JJc+azM0VyfKHKzrReJO7tYUWcrblm8 Ej2i3AvnVHMaVLPFpTKLCoxVit9k/L/ylT+m65cCc/yCYHHkuP+PPPhl6EOB /45VcsX/ACAXjbQ=\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}, {3.575215689331786*^9, 3.575215690018187*^9}, {3.575215722871845*^9, 3.5752157627143145`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44"}, {"0.`", "4.764186363578456`", "2.897367790293567`", "2.9007706882162534`", "2.911135308410796`", "4.743897483613559`", "4.745591453372828`", "7.001764166889323`", "4.792323730248217`", "8.897780881568607`", "11.47946941259541`", "6.643063241698385`", "8.808377913089755`", "13.449496486218703`", "12.536938651256394`", "11.272712381903746`", "15.94080439404326`", "15.177572724646243`", "16.69960905629489`", "4.8958578730902715`", "13.329852945303209`", "6.940778982331223`", "2.022063437164405`", "5.956968737571725`", "4.047492995562893`", "4.048098708188335`", "4.036268795816754`", "4.061137588993961`", "4.060840154791573`", "6.035601349052828`", "6.0957948458211675`", "6.047437057036995`", "6.089781340195658`", "8.217785203136227`", "5.5797831704409875`", "8.732928232140821`", "7.00139379359982`", "8.335938473674462`", "7.2905705879834874`", "11.635214966012548`", "11.82394781116356`", "17.49402251029828`", "16.255906724457823`", "18.69658143390113`"}, {"4.764186363578456`", "0.`", "2.935560130771779`", "5.479098106923681`", "5.515754063892873`", "4.559390571005619`", "4.596399815284282`", "2.8711280593496777`", "6.82217661794422`", "4.7013596872428565`", "7.186742331998181`", "9.310584530362954`", "5.274097270887754`", "9.280687416761571`", "8.289459312837955`", "7.898982674329893`", "11.689009533716746`", "10.915536369480574`", "12.37643531099044`", "2.784757519305547`", "9.531013320975672`", "4.5016914408178765`", "6.528640553788233`", "2.0219304048361098`", "4.081349519604737`", "4.081757848212822`", "7.288905300178374`", "6.2468712966478`", "7.321390428692687`", "6.298957769808226`", "4.993581130215261`", "4.995784218773994`", "6.337647100865748`", "3.996831273340309`", "6.417187512556061`", "6.099872293414991`", "10.245752321702232`", "10.671030610766602`", "4.5307456607933565`", "7.613668286079819`", "9.011113374683552`", "13.321981187472064`", "12.111134043221288`", "14.371596233531845`"}, {"2.897367790293567`", "2.935560130771779`", "0.`", "4.749123450613732`", "4.670278603905887`", "5.517725831119642`", "5.434408869623634`", "4.849750896662977`", "5.800650723347713`", "6.222488598243183`", "8.858850792204567`", "8.119054770483276`", "5.951170009804256`", "10.65729607861424`", "10.236263114016174`", "8.420359270138066`", "13.19400047226408`", "12.852129838608455`", "14.139123569447506`", "4.707112591084572`", "10.452193961830133`", "5.114153584076799`", "4.059384752940053`", "4.006060018357509`", "2.022005663558001`", "2.022049311741623`", "6.490343485599921`", "5.095979013955282`", "6.44433038829806`", "7.304588212844935`", "6.247642791899432`", "6.049891766341314`", "7.274660197417702`", "6.492047939756411`", "5.5429056156088645`", "6.878118435077696`", "9.04698693256157`", "9.441743290199145`", "4.524947566789865`", "9.667118317799043`", "9.087808215550568`", "14.679210662014055`", "14.136339944208096`", "16.152038299002896`"}, {"2.9007706882162534`", "5.479098106923681`", "4.749123450613732`", "0.`", "4.670251991460329`", "2.926538007886675`", "5.45768828650642`", "8.224034782209147`", "2.871667984448132`", "10.061223929088635`", "12.635364194744538`", "4.637126561461797`", "9.842065216097302`", "14.552948354173758`", "13.718404783562358`", "12.226811014763989`", "17.055365508020188`", "16.345212253270216`", "17.849570253595456`", "4.7285431590624265`", "14.3408246054045`", "8.934694081956465`", "4.064510945720297`", "5.990634887843745`", "5.251417936200907`", "6.498273855877245`", "2.0219815106706402`", "6.445837141475734`", "5.074834977834954`", "4.045824415990317`", "4.061988041852385`", "7.272551151215932`", "6.132306317893833`", "9.040046889147987`", "4.27489359612267`", "10.7275360903243`", "4.961420285717623`", "6.503480233892321`", "8.237727921751231`", "12.820586950475082`", "12.658973595015249`", "18.575624147272134`", "17.414683293483197`", "19.84359540046769`"}, {"2.911135308410796`", "5.515754063892873`", "4.670278603905887`", "4.670251991460329`", "0.`", "5.424735427202545`", "2.9022874507490775`", "6.9906312688525425`", "7.279421004482275`", "9.454980248453136`", "11.734165471243099`", "8.943887755268939`", "10.135257965368895`", "14.05255774306732`", "12.181255271147332`", "12.744307692843217`", "16.322137871412696`", "14.74793771929395`", "16.627049339368092`", "4.715904068362745`", "14.447937182121851`", "6.358539320012947`", "4.1388656250361`", "7.262272421433469`", "6.446554652086591`", "5.041722521845241`", "5.053850878523982`", "2.02211747246029`", "2.0220823314087175`", "6.016190089412664`", "7.273971418450718`", "4.025901519571058`", "4.041173404035258`", "7.745456498922117`", "8.247633567247664`", "7.950293713205197`", "8.825554771736456`", "10.81785567790732`", "9.049568523289995`", "10.885431582862495`", "13.651229479100964`", "18.06396667183713`", "15.499097796871025`", "18.54513845904176`"}, {"4.743897483613559`", "4.559390571005619`", "5.517725831119642`", "2.926538007886675`", "5.424735427202545`", "0.`", "4.520976104408898`", "7.1104059761115765`", "4.808852432639255`", "9.091784851140902`", "11.406780112725368`", "6.719921280566692`", "9.378726804527025`", "13.473566296787547`", "12.196052663521082`", "11.813612462305917`", "15.807450917615371`", "14.731171087138808`", "16.359839796413368`", "2.7941663588473378`", "13.60507221745379`", "8.435094652854362`", "6.514706168631405`", "4.894460915868777`", "6.318720497358666`", "7.289161459163897`", "4.06337147808245`", "7.2581258084859295`", "6.097341763076104`", "2.02192984496147`", "2.0219366808082744`", "6.2769234464247035`", "4.926276314117157`", "7.332838256969903`", "5.53328801760562`", "10.07148691671722`", "7.121595398609118`", "8.398951178286453`", "8.197404813974561`", "11.204969577038508`", "12.566619910696948`", "17.418840804000926`", "15.667875369626701`", "18.292704893292736`"}, {"4.745591453372828`", "4.596399815284282`", "5.434408869623634`", "5.45768828650642`", "2.9022874507490775`", "4.520976104408898`", "0.`", "5.6819589056176305`", "8.14964189844668`", "8.420997523635096`", "10.417554624802175`", "10.089395325353303`", "9.65339733383932`", "12.92931987851375`", "10.488836239133182`", "12.306451806156925`", "15.021146466709004`", "12.988598354323228`", "15.047816323257056`", "2.806772377813602`", "13.690476576136586`", "5.73108502061146`", "6.549215483669179`", "6.338720070079243`", "7.290753435640425`", "6.047702103616934`", "6.123499987077073`", "4.053311716610019`", "4.052979374395847`", "4.867745618480913`", "6.2884025443518405`", "2.0220450147105287`", "2.021882491633962`", "5.724448723590009`", "8.867580766776648`", "7.142947315663167`", "10.120647965714996`", "11.950464432737801`", "8.964672621388845`", "9.005000824980286`", "13.507673228333411`", "16.869547412741305`", "13.57684095826965`", "16.909630360649928`"}, {"7.001764166889323`", "2.8711280593496777`", "4.849750896662977`", "8.224034782209147`", "6.9906312688525425`", "7.1104059761115765`", "5.6819589056176305`", "0.`", "9.65958418062283`", "2.80007796095692`", "4.8171699876178735`", "12.15187592757195`", "4.716028043197547`", "7.258448851261719`", "5.566765300863349`", "7.17673718270378`", "9.440134787869514`", "8.212945458114477`", "9.825212267379225`", "4.653228907768259`", "8.142913423017884`", "2.679932154579043`", "8.61154091369929`", "3.950337838168106`", "6.046352811711764`", "4.814693863106095`", "9.909929083832035`", "7.028639391084206`", "8.928598085792927`", "8.564625099398107`", "7.545107666311838`", "4.965762670053477`", "7.453201492822598`", "2.022026255618407`", "9.115755612134084`", "3.7033655071800413`", "13.063931814186905`", "13.473840414041108`", "5.0750446631228465`", "4.884019956047403`", "8.775739813243407`", "11.232433550524025`", "9.382270993407994`", "11.79784406392083`"}, {"4.792323730248217`", "6.82217661794422`", "5.800650723347713`", "2.871667984448132`", "7.279421004482275`", "4.808852432639255`", "8.14964189844668`", "9.65958418062283`", "0.`", "10.856180651289439`", "13.477747172973944`", "2.5206427974501615`", "9.940913253174282`", "14.97908126760554`", "14.99121568502371`", "11.937356847806376`", "17.572842700984978`", "17.573505964446834`", "18.73673119334819`", "6.840972111799927`", "14.281241431098971`", "10.65903780199832`", "5.162194119096883`", "6.551860978364793`", "5.214775275929507`", "7.657666850439528`", "3.930345994432973`", "8.809134791068736`", "7.733707739939847`", "6.08144289389334`", "4.724192466698337`", "9.832524587243551`", "8.931279087887159`", "10.691433962695362`", "2.022023183909232`", "12.448297662054145`", "3.9418447014711346`", "3.941799020040156`", "8.088271154066485`", "14.424792602418947`", "11.925581954099552`", "18.86673210878697`", "18.86718417953516`", "20.742513681319085`"}, {"8.897780881568607`", "4.7013596872428565`", "6.222488598243183`", "10.061223929088635`", "9.454980248453136`", "9.091784851140902`", "8.420997523635096`", "2.80007796095692`", "10.856180651289439`", "0.`", "2.6837630495245612`", "13.36431108792106`", "2.6652543170057363`", "4.648094186265549`", "4.64389922403907`", "4.635168632869907`", "7.067789235630497`", "7.05763973146834`", "8.005736769919663`", "7.015825280421757`", "5.344553145072187`", "4.451529819501506`", "10.250214070509513`", "4.692547669557753`", "6.6462580183133`", "6.0377268901507`", "11.936859888134073`", "9.3724027139239`", "11.439915913183055`", "10.750093443584943`", "9.018747466366234`", "7.749520267356781`", "10.198177881702838`", "3.9275939100745187`", "9.818917972098156`", "4.784652260689842`", "14.589245151263702`", "14.365297913346062`", "4.061445498963028`", "5.072335771149445`", "6.456246072018974`", "8.700456427380848`", "8.686446918573944`", "10.027677971380351`"}, {"11.47946941259541`", "7.186742331998181`", "8.858850792204567`", "12.635364194744538`", "11.734165471243099`", "11.406780112725368`", "10.417554624802175`", "4.8171699876178735`", "13.477747172973944`", "2.6837630495245612`", "0.`", "15.988112889797925`", "4.580963967647464`", "2.6971230031397386`", "2.6561514486629627`", "5.2908541486668925`", "4.623628893099223`", "4.593181964844821`", "5.3221778170854765`", "9.158605729930626`", "4.606679141423051`", "6.029246917046128`", "12.847426427758512`", "7.121523943922538`", "9.302266202644272`", "8.466680484881056`", "14.473348216260227`", "11.485948591423702`", "13.70482131300874`", "12.91120607316774`", "11.262821955347137`", "9.407563345999812`", "12.054995059020607`", "5.076635635636713`", "12.390761334351943`", "5.527852136678354`", "17.21690773385008`", "16.953504054072422`", "6.420627094807447`", "4.063352523661617`", "7.312807713445191`", "6.459205097205619`", "6.421175155233118`", "7.344095554812869`"}, {"6.643063241698385`", "9.310584530362954`", "8.119054770483276`", "4.637126561461797`", "8.943887755268939`", "6.719921280566692`", "10.089395325353303`", "12.15187592757195`", "2.5206427974501615`", "13.36431108792106`", "15.988112889797925`", "0.`", "12.340626172846177`", "17.429344326316137`", "17.508454802585053`", "14.201111853049216`", "20.032734660994734`", "20.091419149734698`", "21.243446523967638`", "9.062686319961614`", "16.608558253054266`", "13.02826622285557`", "6.4757762456524`", "9.046740506620159`", "7.4706729081649845`", "9.843395730236061`", "4.623929441942493`", "10.501707343411221`", "8.907862114586825`", "7.458675304956054`", "6.642136588306573`", "11.900664323687579`", "10.563954356387644`", "13.144269915373574`", "3.95674699480752`", "14.833172977284695`", "2.0219320441905535`", "2.0218674368653264`", "10.434140655866445`", "16.90840151273927`", "13.98990599834079`", "21.273992480227147`", "21.370548128458864`", "23.247454168855743`"}, {"8.808377913089755`", "5.274097270887754`", "5.951170009804256`", "9.842065216097302`", "10.135257965368895`", "9.378726804527025`", "9.65339733383932`", "4.716028043197547`", "9.940913253174282`", "2.6652543170057363`", "4.580963967647464`", "12.340626172846177`", "0.`", "5.256225955518931`", "7.0347096560987135`", "2.658976376768291`", "7.910318234368364`", "9.17306320522828`", "9.532409087467393`", "7.955769901904277`", "4.549462605051549`", "6.167092791647504`", "9.835951555429984`", "4.585827991292244`", "5.527478299569482`", "6.0043638473429395`", "11.832164441349281`", "10.177449954149887`", "12.079281319742256`", "11.275037084979116`", "8.989200345482507`", "9.414441685090427`", "11.498523298649642`", "6.197197100748689`", "8.543087194421432`", "6.845113155994676`", "13.82204139202362`", "13.026634538319469`", "2.0220800146509794`", "7.714746636412024`", "4.061386444510443`", "9.085977117410721`", "10.979782708970173`", "11.503031312087556`"}, {"13.449496486218703`", "9.280687416761571`", "10.65729607861424`", "14.552948354173758`", "14.05255774306732`", "13.473566296787547`", "12.92931987851375`", "7.258448851261719`", "14.97908126760554`", "4.648094186265549`", "2.6971230031397386`", "17.429344326316137`", "5.256225955518931`", "0.`", "4.627898948751203`", "4.505366799346002`", "2.654098380973308`", "5.3160706153762005`", "4.605558222236808`", "11.475449805938315`", "2.6074996029890585`", "8.398769054712679`", "14.642642811570374`", "8.821726013525883`", "10.671110149450904`", "10.255944629250786`", "16.482659090545084`", "13.781443015352167`", "16.049903350833997`", "15.098096795535627`", "13.066256851432758`", "12.023670590318678`", "14.611949389168526`", "7.687503190392073`", "13.620190396514253`", "7.8692003995833595`", "18.850592828557833`", "18.14347883187662`", "7.27771733655617`", "6.463620094667696`", "6.332920037834329`", "4.059680206735455`", "7.338077874331289`", "6.434972288597264`"}, {"12.536938651256394`", "8.289459312837955`", "10.236263114016174`", "13.718404783562358`", "12.181255271147332`", "12.196052663521082`", "10.488836239133182`", "5.566765300863349`", "14.99121568502371`", "4.64389922403907`", "2.6561514486629627`", "17.508454802585053`", "7.0347096560987135`", "4.627898948751203`", "0.`", "7.945717032047711`", "5.319892382819038`", "2.646236638291447`", "4.596779653861795`", "9.654691384496967`", "7.015294931838871`", "6.3564307279725`", "14.048128244359019`", "8.61833526266723`", "11.08980083273773`", "9.73833391720435`", "15.385478448046593`", "11.830426639391305`", "14.04892768609193`", "13.398607316464343`", "12.290999485189317`", "9.127680835310645`", "11.888110055809884`", "5.001239396604259`", "14.159164014195985`", "5.338624842445384`", "18.52988420815649`", "18.671555024271512`", "8.688821241445721`", "2.022074434187703`", "9.96751503254118`", "7.341824473540351`", "4.049253521851312`", "6.424498372908778`"}, {"11.272712381903746`", "7.898982674329893`", "8.420359270138066`", "12.226811014763989`", "12.744307692843217`", "11.813612462305917`", "12.306451806156925`", "7.17673718270378`", "11.937356847806376`", "4.635168632869907`", "5.2908541486668925`", "14.201111853049216`", "2.658976376768291`", "4.505366799346002`", "7.945717032047711`", "0.`", "6.92398677713693`", "9.505594922256106`", "9.110769638721898`", "10.534110902254517`", "2.5806868886269654`", "8.47818302849916`", "12.111589001166859`", "6.959842541256348`", "7.655157268302831`", "8.356292262751573`", "14.2359942755596`", "12.704156247941837`", "14.682381805921422`", "13.725380111513235`", "11.18202839207145`", "12.003883156448598`", "14.137157885853956`", "8.440880467528155`", "10.29713521537124`", "8.813489819558777`", "15.845294288978762`", "14.59463361416225`", "4.055904575523755`", "9.160208177767347`", "2.022068314634349`", "7.561321034589687`", "11.483829018668622`", "10.902417387794879`"}, {"15.94080439404326`", "11.689009533716746`", "13.19400047226408`", "17.055365508020188`", "16.322137871412696`", "15.807450917615371`", "15.021146466709004`", "9.440134787869514`", "17.572842700984978`", "7.067789235630497`", "4.623628893099223`", "20.032734660994734`", "7.910318234368364`", "2.654098380973308`", "5.319892382819038`", "6.92398677713693`", "0.`", "4.5933689802127935`", "2.657968227327582`", "13.686165245959646`", "4.554699436139696`", "10.393045489093232`", "17.17160383551698`", "11.293379605285862`", "13.302475548516917`", "12.693487158793618`", "18.95397014523577`", "15.956743111061101`", "18.305940304172573`", "17.31986040709952`", "15.401476747854591`", "13.925814222553026`", "16.60406693790915`", "9.51981469289517`", "16.227853832198804`", "9.518288204322976`", "21.43269017201149`", "20.754087193687923`", "9.931714853443694`", "7.341829513043755`", "8.542122428282752`", "2.021961555787196`", "6.422153301105961`", "4.065670689768528`"}, {"15.177572724646243`", "10.915536369480574`", "12.852129838608455`", "16.345212253270216`", "14.74793771929395`", "14.731171087138808`", "12.988598354323228`", "8.212945458114477`", "17.573505964446834`", "7.05763973146834`", "4.593181964844821`", "20.091419149734698`", "9.17306320522828`", "5.3160706153762005`", "2.646236638291447`", "9.505594922256106`", "4.5933689802127935`", "0.`", "2.6468988216937017`", "12.201568771491738`", "7.923530380887194`", "8.833980293431134`", "16.66535782737997`", "11.12602705991208`", "13.631177638275206`", "12.277674973610944`", "18.006117729250256`", "14.31424818115299`", "16.586630292970455`", "15.860509798836857`", "14.742554306108337`", "11.531621715220773`", "14.276163244369187`", "7.526553944101598`", "16.669781315803103`", "7.576362174760891`", "21.14374333545737`", "21.204092224921485`", "10.992940669764055`", "4.054383253656122`", "11.474110454113815`", "6.422402487779467`", "2.0220378822649923`", "4.055782493415817`"}, {"16.69960905629489`", "12.37643531099044`", "14.139123569447506`", "17.849570253595456`", "16.627049339368092`", "16.359839796413368`", "15.047816323257056`", "9.825212267379225`", "18.73673119334819`", "8.005736769919663`", "5.3221778170854765`", "21.243446523967638`", "9.532409087467393`", "4.605558222236808`", "4.596779653861795`", "9.110769638721898`", "2.657968227327582`", "2.6468988216937017`", "0.`", "13.997908893138689`", "6.983781696698185`", "10.573547402208531`", "18.070966412819907`", "12.270199306310763`", "14.593064037013137`", "13.56232318473251`", "19.635591637182497`", "16.190594583064264`", "18.5444970689301`", "17.65821953004295`", "16.141479206137575`", "13.717406450835405`", "16.458389021604134`", "9.457160395417263`", "17.594383536397917`", "9.400598164937083`", "22.477730041823516`", "22.158020724665388`", "11.515783252952842`", "6.4240589914135064`", "10.898522168237616`", "4.06314718517142`", "4.049974206440535`", "2.021946586294221`"}, {"4.8958578730902715`", "2.784757519305547`", "4.707112591084572`", "4.7285431590624265`", "4.715904068362745`", "2.7941663588473378`", "2.806772377813602`", "4.653228907768259`", "6.840972111799927`", "7.015825280421757`", "9.158605729930626`", "9.062686319961614`", "7.955769901904277`", "11.475449805938315`", "9.654691384496967`", "10.534110902254517`", "13.686165245959646`", "12.201568771491738`", "13.997908893138689`", "0.`", "12.007834750659992`", "5.959884549852152`", "6.917159399802104`", "3.9418735268115586`", "6.09810100953187`", "5.979871382708681`", "6.050122324877848`", "6.057682100011872`", "6.043323665225611`", "3.9297523950718865`", "3.9456667151522185`", "3.9421366665809465`", "3.95730451649418`", "4.691660326584646`", "7.1176356295231065`", "7.466396196104446`", "9.549098023318296`", "10.70946281145742`", "7.233940744321766`", "8.518992423691385`", "11.663637544614915`", "15.43078634705434`", "13.053642248320102`", "15.913651363800648`"}, {"13.329852945303209`", "9.531013320975672`", "10.452193961830133`", "14.3408246054045`", "14.447937182121851`", "13.60507221745379`", "13.690476576136586`", "8.142913423017884`", "14.281241431098971`", "5.344553145072187`", "4.606679141423051`", "16.608558253054266`", "4.549462605051549`", "2.6074996029890585`", "7.015294931838871`", "2.5806868886269654`", "4.554699436139696`", "7.923530380887194`", "6.983781696698185`", "12.007834750659992`", "0.`", "9.36990897131336`", "14.298826876227658`", "8.725155327293631`", "9.977221069144353`", "10.19003068781327`", "16.34001823257921`", "14.272236590186196`", "16.43638663812976`", "15.40643998455798`", "12.990909380891281`", "13.086354147411896`", "15.469433002873355`", "9.007532776078149`", "12.694504693507355`", "9.222495397617978`", "18.20635048839538`", "17.063206380493558`", "6.3647958273950955`", "8.659362912544514`", "3.9907344001788085`", "4.987788865846882`", "9.94550822143185`", "8.613686155383574`"}, {"6.940778982331223`", "4.5016914408178765`", "5.114153584076799`", "8.934694081956465`", "6.358539320012947`", "8.435094652854362`", "5.73108502061146`", "2.679932154579043`", "10.65903780199832`", "4.451529819501506`", "6.029246917046128`", "13.02826622285557`", "6.167092791647504`", "8.398769054712679`", "6.3564307279725`", "8.47818302849916`", "10.393045489093232`", "8.833980293431134`", "10.573547402208531`", "5.959884549852152`", "9.36990897131336`", "0.`", "8.213979285851051`", "6.098960751087073`", "6.654093251830595`", "4.086547923196409`", "10.380700811854824`", "5.638888685919794`", "8.301187127322143`", "9.741155004775875`", "9.34139024495747`", "4.49321412764205`", "7.599067791160782`", "3.9078897640131123`", "10.373490424647846`", "1.8141528391406063`", "13.728590419347187`", "14.466604812902396`", "6.399194740016507`", "5.4343031981935095`", "10.000992898393978`", "12.191816855351341`", "9.793386758879835`", "12.46053225634927`"}, {"2.022063437164405`", "6.528640553788233`", "4.059384752940053`", "4.064510945720297`", "4.1388656250361`", "6.514706168631405`", "6.549215483669179`", "8.61154091369929`", "5.162194119096883`", "10.250214070509513`", "12.847426427758512`", "6.4757762456524`", "9.835951555429984`", "14.642642811570374`", "14.048128244359019`", "12.111589001166859`", "17.17160383551698`", "16.66535782737997`", "18.070966412819907`", "6.917159399802104`", "14.298826876227658`", "8.213979285851051`", "0.`", "7.564808967306246`", "4.616375217459389`", "4.717623033907278`", "4.683309597584782`", "4.752349789028782`", "4.7664269553197105`", "7.689783424189459`", "7.726293766764264`", "7.724234650513737`", "7.772704748928856`", "10.01257285531099`", "6.031516021799466`", "9.942946192412615`", "6.732177373333885`", "8.005119942326886`", "8.170816594296058`", "13.24017776766171`", "12.414670031417016`", "18.628999822103708`", "17.802828758790803`", "20.06858578283627`"}, {"5.956968737571725`", "2.0219304048361098`", "4.006060018357509`", "5.990634887843745`", "7.262272421433469`", "4.894460915868777`", "6.338720070079243`", "3.950337838168106`", "6.551860978364793`", "4.692547669557753`", "7.121523943922538`", "9.046740506620159`", "4.585827991292244`", "8.821726013525883`", "8.61833526266723`", "6.959842541256348`", "11.293379605285862`", "11.12602705991208`", "12.270199306310763`", "3.9418735268115586`", "8.725155327293631`", "6.098960751087073`", "7.564808967306246`", "0.`", "4.183422214582541`", "5.40741406882048`", "7.940327488949144`", "8.147074476703757`", "8.931902684323266`", "6.768703833551112`", "4.4694995344335124`", "6.887561578937701`", "7.854086665823304`", "4.8786025731333105`", "5.656944297128155`", "7.512423660827833`", "10.283715399817194`", "10.120273717728175`", "3.7567158975203006`", "8.3174239915742`", "7.896177899797747`", "12.760919159456149`", "12.498079665010474`", "14.258481563825617`"}, {"4.047492995562893`", "4.081349519604737`", "2.022005663558001`", "5.251417936200907`", "6.446554652086591`", "6.318720497358666`", "7.290753435640425`", "6.046352811711764`", "5.214775275929507`", "6.6462580183133`", "9.302266202644272`", "7.4706729081649845`", "5.527478299569482`", "10.671110149450904`", "11.08980083273773`", "7.655157268302831`", "13.302475548516917`", "13.631177638275206`", "14.593064037013137`", "6.09810100953187`", "9.977221069144353`", "6.654093251830595`", "4.616375217459389`", "4.183422214582541`", "0.`", "3.3026756099231385`", "7.095609824681982`", "6.937608620270598`", "8.020540853172443`", "8.252878619579768`", "6.510963665000121`", "8.015069217002683`", "9.02645253540119`", "7.7710694129436515`", "4.385871665492783`", "8.29612594986202`", "8.766913452457171`", "8.42546732984077`", "3.6614020070205378`", "10.841159350385075`", "7.907958209706171`", "14.579562282108629`", "15.105854761877087`", "16.609260799247757`"}, {"4.048098708188335`", "4.081757848212822`", "2.022049311741623`", "6.498273855877245`", "5.041722521845241`", "7.289161459163897`", "6.047702103616934`", "4.814693863106095`", "7.657666850439528`", "6.0377268901507`", "8.466680484881056`", "9.843395730236061`", "6.0043638473429395`", "10.255944629250786`", "9.73833391720435`", "8.356292262751573`", "12.693487158793618`", "12.277674973610944`", "13.56232318473251`", "5.979871382708681`", "10.19003068781327`", "4.086547923196409`", "4.717623033907278`", "5.40741406882048`", "3.3026756099231385`", "0.`", "8.020193247144237`", "4.626944721257451`", "6.918638014872823`", "8.934051044466772`", "8.16472769455424`", "6.081467544740435`", "8.01149061611942`", "6.647843847686776`", "7.395070829746673`", "5.702702409851163`", "10.666950975299335`", "11.133475723209783`", "4.966896071173901`", "9.19460692804264`", "9.144765219902865`", "14.189448971877125`", "13.532454255304257`", "15.5382356463871`"}, {"4.036268795816754`", "7.288905300178374`", "6.490343485599921`", "2.0219815106706402`", "5.053850878523982`", "4.06337147808245`", "6.123499987077073`", "9.909929083832035`", "3.930345994432973`", "11.936859888134073`", "14.473348216260227`", "4.623929441942493`", "11.832164441349281`", "16.482659090545084`", "15.385478448046593`", "14.2359942755596`", "18.95397014523577`", "18.006117729250256`", "19.635591637182497`", "6.050122324877848`", "16.34001823257921`", "10.380700811854824`", "4.683309597584782`", "7.940327488949144`", "7.095609824681982`", "8.020193247144237`", "0.`", "6.9135881583127325`", "4.61626718592917`", "4.220626049647194`", "5.3804427765812015`", "8.068967348821088`", "6.24070264546496`", "10.574589332801768`", "5.775947396614504`", "12.145708263834933`", "4.07889232225971`", "6.644918192282862`", "10.231488079604594`", "14.330467953989922`", "14.651260573649243`", "20.517902022698358`", "18.954676485759965`", "21.61467850232613`"}, {"4.061137588993961`", "6.2468712966478`", "5.095979013955282`", "6.445837141475734`", "2.02211747246029`", "7.2581258084859295`", "4.053311716610019`", "7.028639391084206`", "8.809134791068736`", "9.3724027139239`", "11.485948591423702`", "10.501707343411221`", "10.177449954149887`", "13.781443015352167`", "11.830426639391305`", "12.704156247941837`", "15.956743111061101`", "14.31424818115299`", "16.190594583064264`", "6.057682100011872`", "14.272236590186196`", "5.638888685919794`", "4.752349789028782`", "8.147074476703757`", "6.937608620270598`", "4.626944721257451`", "6.9135881583127325`", "0.`", "3.301335660331297`", "7.96483827665493`", "9.001708812796425`", "4.214162318738113`", "5.364083685910029`", "7.955544416423981`", "9.567300475352916`", "7.03176148147528`", "10.450931268663808`", "12.281561177522665`", "9.27702578929328`", "10.547000377825567`", "13.67742989539048`", "17.697338167776312`", "15.024000922161353`", "18.06555842079938`"}, {"4.060840154791573`", "7.321390428692687`", "6.44433038829806`", "5.074834977834954`", "2.0220823314087175`", "6.097341763076104`", "4.052979374395847`", "8.928598085792927`", "7.733707739939847`", "11.439915913183055`", "13.70482131300874`", "8.907862114586825`", "12.079281319742256`", "16.049903350833997`", "14.04892768609193`", "14.682381805921422`", "18.305940304172573`", "16.586630292970455`", "18.5444970689301`", "6.043323665225611`", "16.43638663812976`", "8.301187127322143`", "4.7664269553197105`", "8.931902684323266`", "8.020540853172443`", "6.918638014872823`", "4.61626718592917`", "3.301335660331297`", "0.`", "6.117689155263774`", "8.060764366332345`", "5.374937184882557`", "4.234843036911556`", "9.505771275103843`", "9.09270948084423`", "9.814716675312745`", "8.333391138868889`", "10.871902495836151`", "10.89470154384367`", "12.649741478285241`", "15.512321422308402`", "20.062696590345574`", "17.23118335622156`", "20.442812543804102`"}, {"6.035601349052828`", "6.298957769808226`", "7.304588212844935`", "4.045824415990317`", "6.016190089412664`", "2.02192984496147`", "4.867745618480913`", "8.564625099398107`", "6.08144289389334`", "10.750093443584943`", "12.91120607316774`", "7.458675304956054`", "11.275037084979116`", "15.098096795535627`", "13.398607316464343`", "13.725380111513235`", "17.31986040709952`", "15.860509798836857`", "17.65821953004295`", "3.9297523950718865`", "15.40643998455798`", "9.741155004775875`", "7.689783424189459`", "6.768703833551112`", "8.252878619579768`", "8.934051044466772`", "4.220626049647194`", "7.96483827665493`", "6.117689155263774`", "0.`", "3.329444584284472`", "6.7271753852452285`", "4.400575119213872`", "8.44154837991694`", "7.162262618483354`", "11.288321111622263`", "7.372845172429197`", "9.226872709622405`", "10.18462724420703`", "12.207547826203337`", "14.540778039229`", "18.996446362501395`", "16.598923592089413`", "19.535211983339543`"}, {"6.0957948458211675`", "4.993581130215261`", "6.247642791899432`", "4.061988041852385`", "7.273971418450718`", "2.0219366808082744`", "6.2884025443518405`", "7.545107666311838`", "4.724192466698337`", "9.018747466366234`", "11.262821955347137`", "6.642136588306573`", "8.989200345482507`", "13.066256851432758`", "12.290999485189317`", "11.18202839207145`", "15.401476747854591`", "14.742554306108337`", "16.141479206137575`", "3.9456667151522185`", "12.990909380891281`", "9.34139024495747`", "7.726293766764264`", "4.4694995344335124`", "6.510963665000121`", "8.16472769455424`", "5.3804427765812015`", "9.001708812796425`", "8.060764366332345`", "3.329444584284472`", "0.`", "7.826895950559521`", "6.766202409726663`", "7.740265786419261`", "4.896388288449268`", "10.916763978213094`", "7.4539830793440425`", "7.9644926731378085`", "7.825669913880361`", "11.560910765985762`", "11.797375423860892`", "16.88401003011325`", "15.811765960698896`", "18.057891032763358`"}, {"6.047437057036995`", "4.995784218773994`", "6.049891766341314`", "7.272551151215932`", "4.025901519571058`", "6.2769234464247035`", "2.0220450147105287`", "4.965762670053477`", "9.832524587243551`", "7.749520267356781`", "9.407563345999812`", "11.900664323687579`", "9.414441685090427`", "12.023670590318678`", "9.127680835310645`", "12.003883156448598`", "13.925814222553026`", "11.531621715220773`", "13.717406450835405`", "3.9421366665809465`", "13.086354147411896`", "4.49321412764205`", "7.724234650513737`", "6.887561578937701`", "8.015069217002683`", "6.081467544740435`", "8.068967348821088`", "4.214162318738113`", "5.374937184882557`", "6.7271753852452285`", "7.826895950559521`", "0.`", "3.328169205397037`", "4.815450326880785`", "10.31115497218242`", "5.57714632351587`", "12.030562142185676`", "13.705502050943764`", "9.101136519376265`", "7.49684449552564`", "13.41347826506426`", "15.840540048330492`", "11.98377136960965`", "15.515615509325167`"}, {"6.089781340195658`", "6.337647100865748`", "7.274660197417702`", "6.132306317893833`", "4.041173404035258`", "4.926276314117157`", "2.021882491633962`", "7.453201492822598`", "8.931279087887159`", "10.198177881702838`", "12.054995059020607`", "10.563954356387644`", "11.498523298649642`", "14.611949389168526`", "11.888110055809884`", "14.137157885853956`", "16.60406693790915`", "14.276163244369187`", "16.458389021604134`", "3.95730451649418`", "15.469433002873355`", "7.599067791160782`", "7.772704748928856`", "7.854086665823304`", "9.02645253540119`", "8.01149061611942`", "6.24070264546496`", "5.364083685910029`", "4.234843036911556`", "4.400575119213872`", "6.766202409726663`", "3.328169205397037`", "0.`", "7.116100479961621`", "9.928593312183546`", "8.853682443213229`", "10.277635471872905`", "12.504665194203847`", "10.803723217213017`", "10.262568894530906`", "15.34026245943695`", "18.487088125835285`", "14.66855209707174`", "18.254692376646826`"}, {"8.217785203136227`", "3.996831273340309`", "6.492047939756411`", "9.040046889147987`", "7.745456498922117`", "7.332838256969903`", "5.724448723590009`", "2.022026255618407`", "10.691433962695362`", "3.9275939100745187`", "5.076635635636713`", "13.144269915373574`", "6.197197100748689`", "7.687503190392073`", "5.001239396604259`", "8.440880467528155`", "9.51981469289517`", "7.526553944101598`", "9.457160395417263`", "4.691660326584646`", "9.007532776078149`", "3.9078897640131123`", "10.01257285531099`", "4.8786025731333105`", "7.7710694129436515`", "6.647843847686776`", "10.574589332801768`", "7.955544416423981`", "9.505771275103843`", "8.44154837991694`", "7.740265786419261`", "4.815450326880785`", "7.116100479961621`", "0.`", "10.2778786109388`", "4.403950620336402`", "13.934442308920211`", "14.54448797379719`", "6.765246890941142`", "3.8805560752550616`", "10.167566456167314`", "11.42370127419757`", "8.405300270956614`", "11.330358968131119`"}, {"5.5797831704409875`", "6.417187512556061`", "5.5429056156088645`", "4.27489359612267`", "8.247633567247664`", "5.53328801760562`", "8.867580766776648`", "9.115755612134084`", "2.022023183909232`", "9.818917972098156`", "12.390761334351943`", "3.95674699480752`", "8.543087194421432`", "13.620190396514253`", "14.159164014195985`", "10.29713521537124`", "16.227853832198804`", "16.669781315803103`", "17.594383536397917`", "7.1176356295231065`", "12.694504693507355`", "10.373490424647846`", "6.031516021799466`", "5.656944297128155`", "4.385871665492783`", "7.395070829746673`", "5.775947396614504`", "9.567300475352916`", "9.09270948084423`", "7.162262618483354`", "4.896388288449268`", "10.31115497218242`", "9.928593312183546`", "10.2778786109388`", "0.`", "12.088687244141607`", "5.745990620290154`", "4.5657403119513`", "6.664337684153782`", "13.852121222469345`", "10.129291835319927`", "17.3904117498741`", "18.110784795746362`", "19.588235193099383`"}, {"8.732928232140821`", "6.099872293414991`", "6.878118435077696`", "10.7275360903243`", "7.950293713205197`", "10.07148691671722`", "7.142947315663167`", "3.7033655071800413`", "12.448297662054145`", "4.784652260689842`", "5.527852136678354`", "14.833172977284695`", "6.845113155994676`", "7.8692003995833595`", "5.338624842445384`", "8.813489819558777`", "9.518288204322976`", "7.576362174760891`", "9.400598164937083`", "7.466396196104446`", "9.222495397617978`", "1.8141528391406063`", "9.942946192412615`", "7.512423660827833`", "8.29612594986202`", "5.702702409851163`", "12.145708263834933`", "7.03176148147528`", "9.814716675312745`", "11.288321111622263`", "10.916763978213094`", "5.57714632351587`", "8.853682443213229`", "4.403950620336402`", "12.088687244141607`", "0.`", "15.539955651158207`", "16.24849783672872`", "7.51926890381266`", "4.433308118757481`", "10.49962165055547`", "11.361444527381058`", "8.407816312657166`", "11.186403451875849`"}, {"7.00139379359982`", "10.245752321702232`", "9.04698693256157`", "4.961420285717623`", "8.825554771736456`", "7.121595398609118`", "10.120647965714996`", "13.063931814186905`", "3.9418447014711346`", "14.589245151263702`", "17.21690773385008`", "2.0219320441905535`", "13.82204139202362`", "18.850592828557833`", "18.52988420815649`", "15.845294288978762`", "21.43269017201149`", "21.14374333545737`", "22.477730041823516`", "9.549098023318296`", "18.20635048839538`", "13.728590419347187`", "6.732177373333885`", "10.283715399817194`", "8.766913452457171`", "10.666950975299335`", "4.07889232225971`", "10.450931268663808`", "8.333391138868889`", "7.372845172429197`", "7.4539830793440425`", "12.030562142185676`", "10.277635471872905`", "13.934442308920211`", "5.745990620290154`", "15.539955651158207`", "0.`", "3.502089444240901`", "11.953461006382284`", "17.737819346936284`", "15.75949437506763`", "22.775198337368277`", "22.293952849929795`", "24.48211640388135`"}, {"8.335938473674462`", "10.671030610766602`", "9.441743290199145`", "6.503480233892321`", "10.81785567790732`", "8.398951178286453`", "11.950464432737801`", "13.473840414041108`", "3.941799020040156`", "14.365297913346062`", "16.953504054072422`", "2.0218674368653264`", "13.026634538319469`", "18.14347883187662`", "18.671555024271512`", "14.59463361416225`", "20.754087193687923`", "21.204092224921485`", "22.158020724665388`", "10.70946281145742`", "17.063206380493558`", "14.466604812902396`", "8.005119942326886`", "10.120273717728175`", "8.42546732984077`", "11.133475723209783`", "6.644918192282862`", "12.281561177522665`", "10.871902495836151`", "9.226872709622405`", "7.9644926731378085`", "13.705502050943764`", "12.504665194203847`", "14.54448797379719`", "4.5657403119513`", "16.24849783672872`", "3.502089444240901`", "0.`", "11.089708260570067`", "18.244146287720532`", "14.11582153243648`", "21.845706744943012`", "22.593095544063956`", "24.148957213269362`"}, {"7.2905705879834874`", "4.5307456607933565`", "4.524947566789865`", "8.237727921751231`", "9.049568523289995`", "8.197404813974561`", "8.964672621388845`", "5.0750446631228465`", "8.088271154066485`", "4.061445498963028`", "6.420627094807447`", "10.434140655866445`", "2.0220800146509794`", "7.27771733655617`", "8.688821241445721`", "4.055904575523755`", "9.931714853443694`", "10.992940669764055`", "11.515783252952842`", "7.233940744321766`", "6.3647958273950955`", "6.399194740016507`", "8.170816594296058`", "3.7567158975203006`", "3.6614020070205378`", "4.966896071173901`", "10.231488079604594`", "9.27702578929328`", "10.89470154384367`", "10.18462724420703`", "7.825669913880361`", "9.101136519376265`", "10.803723217213017`", "6.765246890941142`", "6.664337684153782`", "7.51926890381266`", "11.953461006382284`", "11.089708260570067`", "0.`", "9.041321270107064`", "4.65755517866339`", "11.06733503628638`", "12.712415207115397`", "13.499573146614237`"}, {"11.635214966012548`", "7.613668286079819`", "9.667118317799043`", "12.820586950475082`", "10.885431582862495`", "11.204969577038508`", "9.005000824980286`", "4.884019956047403`", "14.424792602418947`", "5.072335771149445`", "4.063352523661617`", "16.90840151273927`", "7.714746636412024`", "6.463620094667696`", "2.022074434187703`", "9.160208177767347`", "7.341829513043755`", "4.054383253656122`", "6.4240589914135064`", "8.518992423691385`", "8.659362912544514`", "5.4343031981935095`", "13.24017776766171`", "8.3174239915742`", "10.841159350385075`", "9.19460692804264`", "14.330467953989922`", "10.547000377825567`", "12.649741478285241`", "12.207547826203337`", "11.560910765985762`", "7.49684449552564`", "10.262568894530906`", "3.8805560752550616`", "13.852121222469345`", "4.433308118757481`", "17.737819346936284`", "18.244146287720532`", "9.041321270107064`", "0.`", "11.15424745436696`", "9.363720284693581`", "4.65899055581717`", "8.088912549582151`"}, {"11.82394781116356`", "9.011113374683552`", "9.087808215550568`", "12.658973595015249`", "13.651229479100964`", "12.566619910696948`", "13.507673228333411`", "8.775739813243407`", "11.925581954099552`", "6.456246072018974`", "7.312807713445191`", "13.98990599834079`", "4.061386444510443`", "6.332920037834329`", "9.96751503254118`", "2.022068314634349`", "8.542122428282752`", "11.474110454113815`", "10.898522168237616`", "11.663637544614915`", "3.9907344001788085`", "10.000992898393978`", "12.414670031417016`", "7.896177899797747`", "7.907958209706171`", "9.144765219902865`", "14.651260573649243`", "13.67742989539048`", "15.512321422308402`", "14.540778039229`", "11.797375423860892`", "13.41347826506426`", "15.34026245943695`", "10.167566456167314`", "10.129291835319927`", "10.49962165055547`", "15.75949437506763`", "14.11582153243648`", "4.65755517866339`", "11.15424745436696`", "0.`", "8.83103768926369`", "13.466684746969063`", "12.593014195988216`"}, {"17.49402251029828`", "13.321981187472064`", "14.679210662014055`", "18.575624147272134`", "18.06396667183713`", "17.418840804000926`", "16.869547412741305`", "11.232433550524025`", "18.86673210878697`", "8.700456427380848`", "6.459205097205619`", "21.273992480227147`", "9.085977117410721`", "4.059680206735455`", "7.341824473540351`", "7.561321034589687`", "2.021961555787196`", "6.422402487779467`", "4.06314718517142`", "15.43078634705434`", "4.987788865846882`", "12.191816855351341`", "18.628999822103708`", "12.760919159456149`", "14.579562282108629`", "14.189448971877125`", "20.517902022698358`", "17.697338167776312`", "20.062696590345574`", "18.996446362501395`", "16.88401003011325`", "15.840540048330492`", "18.487088125835285`", "11.42370127419757`", "17.3904117498741`", "11.361444527381058`", "22.775198337368277`", "21.845706744943012`", "11.06733503628638`", "9.363720284693581`", "8.83103768926369`", "0.`", "8.089312685603408`", "4.67692752905513`"}, {"16.255906724457823`", "12.111134043221288`", "14.136339944208096`", "17.414683293483197`", "15.499097796871025`", "15.667875369626701`", "13.57684095826965`", "9.382270993407994`", "18.86718417953516`", "8.686446918573944`", "6.421175155233118`", "21.370548128458864`", "10.979782708970173`", "7.338077874331289`", "4.049253521851312`", "11.483829018668622`", "6.422153301105961`", "2.0220378822649923`", "4.049974206440535`", "13.053642248320102`", "9.94550822143185`", "9.793386758879835`", "17.802828758790803`", "12.498079665010474`", "15.105854761877087`", "13.532454255304257`", "18.954676485759965`", "15.024000922161353`", "17.23118335622156`", "16.598923592089413`", "15.811765960698896`", "11.98377136960965`", "14.66855209707174`", "8.405300270956614`", "18.110784795746362`", "8.407816312657166`", "22.293952849929795`", "22.593095544063956`", "12.712415207115397`", "4.65899055581717`", "13.466684746969063`", "8.089312685603408`", "0.`", "4.661082381805799`"}, {"18.69658143390113`", "14.371596233531845`", "16.152038299002896`", "19.84359540046769`", "18.54513845904176`", "18.292704893292736`", "16.909630360649928`", "11.79784406392083`", "20.742513681319085`", "10.027677971380351`", "7.344095554812869`", "23.247454168855743`", "11.503031312087556`", "6.434972288597264`", "6.424498372908778`", "10.902417387794879`", "4.065670689768528`", "4.055782493415817`", "2.021946586294221`", "15.913651363800648`", "8.613686155383574`", "12.46053225634927`", "20.06858578283627`", "14.258481563825617`", "16.609260799247757`", "15.5382356463871`", "21.61467850232613`", "18.06555842079938`", "20.442812543804102`", "19.535211983339543`", "18.057891032763358`", "15.515615509325167`", "18.254692376646826`", "11.330358968131119`", "19.588235193099383`", "11.186403451875849`", "24.48211640388135`", "24.148957213269362`", "13.499573146614237`", "8.088912549582151`", "12.593014195988216`", "4.67692752905513`", "4.661082381805799`", "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.5818731589921527`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, 3.571808490989086*^9, { 3.572601938592864*^9, 3.572601945722077*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.2"}], "||", 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, {3.5743387654349337`*^9, 3.574338770629743*^9}, { 3.5744830510823555`*^9, 3.574483052611158*^9}, {3.5818415427954597`*^9, 3.581841544480263*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44"}, {"0.`", "0", "2.897367790293567`", "2.9007706882162534`", "2.911135308410796`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022063437164405`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0.`", "2.935560130771779`", "0", "0", "0", "0", "2.8711280593496777`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.784757519305547`", "0", "0", "0", "2.0219304048361098`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.897367790293567`", "2.935560130771779`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022005663558001`", "2.022049311741623`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.9007706882162534`", "0", "0", "0.`", "0", "2.926538007886675`", "0", "0", "2.871667984448132`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219815106706402`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.911135308410796`", "0", "0", "0", "0.`", "0", "2.9022874507490775`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.02211747246029`", "2.0220823314087175`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.926538007886675`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.7941663588473378`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.02192984496147`", "2.0219366808082744`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.9022874507490775`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.806772377813602`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220450147105287`", "2.021882491633962`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.8711280593496777`", "0", "0", "0", "0", "0", "0.`", "0", "2.80007796095692`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.679932154579043`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022026255618407`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.871667984448132`", "0", "0", "0", "0", "0.`", "0", "0", "2.5206427974501615`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022023183909232`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.80007796095692`", "0", "0.`", "2.6837630495245612`", "0", "2.6652543170057363`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6837630495245612`", "0.`", "0", "0", "2.6971230031397386`", "2.6561514486629627`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.5206427974501615`", "0", "0", "0.`", "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.0219320441905535`", "2.0218674368653264`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6652543170057363`", "0", "0", "0.`", "0", "0", "2.658976376768291`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220800146509794`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6971230031397386`", "0", "0", "0.`", "0", "0", "2.654098380973308`", "0", "0", "0", "2.6074996029890585`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6561514486629627`", "0", "0", "0", "0.`", "0", "0", "2.646236638291447`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022074434187703`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.658976376768291`", "0", "0", "0.`", "0", "0", "0", "0", "2.5806868886269654`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022068314634349`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.654098380973308`", "0", "0", "0.`", "0", "2.657968227327582`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.021961555787196`", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.646236638291447`", "0", "0", "0.`", "2.6468988216937017`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220378822649923`", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.657968227327582`", "2.6468988216937017`", "0.`", "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.021946586294221`"}, {"0", "2.784757519305547`", "0", "0", "0", "2.7941663588473378`", "2.806772377813602`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6074996029890585`", "0", "2.5806868886269654`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "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.679932154579043`", "0", "0", "0", "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.8141528391406063`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.022063437164405`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0219304048361098`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022005663558001`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022049311741623`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0219815106706402`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.02211747246029`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0220823314087175`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.02192984496147`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0219366808082744`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0220450147105287`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.021882491633962`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022026255618407`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022023183909232`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "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.8141528391406063`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0219320441905535`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0218674368653264`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0220800146509794`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022074434187703`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022068314634349`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.021961555787196`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0220378822649923`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.021946586294221`", "0", "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.581873159054553*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "C", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708947833985987`*^9}, {3.572528557136052*^9, 3.57252856181606*^9}, 3.57252899467002*^9, 3.572529147612689*^9, { 3.572529371395082*^9, 3.572529383875104*^9}, {3.572531374906601*^9, 3.5725313995390444`*^9}}], Cell[BoxData["19"], "Output", CellChangeTimes->{3.581873159070153*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "count", " ", "H", " ", "atoms", " ", "bonded", " ", "to", " ", "each", " ", "C", " ", "atom"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.570894821930666*^9}, 3.5709437180911617`*^9, { 3.57252947817727*^9, 3.572529509876525*^9}, {3.5725312638188057`*^9, 3.572531289964452*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "2", ",", "1", ",", "2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "0", ",", "0", ",", "2", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.581873159085753*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2572"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2556"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.257"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.257"}]}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708948169698577`*^9}, {3.570894956839703*^9, 3.5708949736409326`*^9}, {3.5708961320833673`*^9, 3.570896139696181*^9}, 3.570896314088887*^9, {3.5708963602181683`*^9, 3.5708963666609793`*^9}, { 3.570896482038782*^9, 3.570896483645585*^9}, {3.5708965159376416`*^9, 3.570896521194851*^9}, {3.5709435995777535`*^9, 3.5709436285158043`*^9}, { 3.5709436695594764`*^9, 3.5709437026783347`*^9}, {3.57094471360691*^9, 3.5709447144805117`*^9}, {3.571117678992402*^9, 3.571117755775737*^9}, { 3.571117807801828*^9, 3.5711178311706696`*^9}, {3.5711179386236577`*^9, 3.5711179514468803`*^9}, {3.5711180538922606`*^9, 3.5711181329531994`*^9}, {3.571118284803866*^9, 3.5711183600895977`*^9}, 3.571118418542901*^9, {3.5711187358786583`*^9, 3.571118760152301*^9}, { 3.5711189251069903`*^9, 3.571118931175401*^9}, {3.571119065756838*^9, 3.571119069968845*^9}, {3.5711191828038435`*^9, 3.5711191858302484`*^9}, { 3.571119378740187*^9, 3.571119441873498*^9}, {3.571119489453582*^9, 3.5711194938839893`*^9}, {3.571119574255331*^9, 3.571119584660549*^9}, { 3.5711196943599415`*^9, 3.5711197163091803`*^9}, {3.5711198294561787`*^9, 3.5711198460078077`*^9}, {3.5711199544435987`*^9, 3.571119960418409*^9}, { 3.57112005791858*^9, 3.5711200601337843`*^9}, {3.571122132488224*^9, 3.5711221772447023`*^9}, {3.5711222335764017`*^9, 3.571122265696858*^9}, { 3.5711223339157777`*^9, 3.5711223418093915`*^9}, {3.5711223939602833`*^9, 3.5711223957542863`*^9}, {3.571122528292119*^9, 3.571122529087721*^9}, { 3.5711226076026583`*^9, 3.5711226245598884`*^9}, 3.5711226547927413`*^9, { 3.571122698566418*^9, 3.571122702404025*^9}, {3.5711227857393713`*^9, 3.5711228031646023`*^9}, {3.571122843085072*^9, 3.5711228432878723`*^9}, { 3.5711232359405622`*^9, 3.571123255206596*^9}, 3.571123320991912*^9, { 3.5711233774484105`*^9, 3.5711234457765303`*^9}, {3.571123624911645*^9, 3.571123633975261*^9}, {3.571123734751438*^9, 3.5711237424110518`*^9}, { 3.5711242010206575`*^9, 3.5711242671491733`*^9}, {3.5711245724573097`*^9, 3.5711245843601303`*^9}, {3.571124620583394*^9, 3.5711246628750687`*^9}, { 3.571124751951225*^9, 3.5711247552428303`*^9}, {3.5711248069569216`*^9, 3.5711248951750765`*^9}, {3.5711250701761837`*^9, 3.5711251099562535`*^9}, 3.571125196598806*^9, 3.571135972980551*^9, {3.5711360048826065`*^9, 3.571136013634222*^9}, {3.571760985057314*^9, 3.5717610088005557`*^9}, { 3.5717610576442413`*^9, 3.571761063431852*^9}, {3.5725287590472064`*^9, 3.5725287902628613`*^9}, {3.572529030674884*^9, 3.572529042343704*^9}, { 3.572529556645407*^9, 3.5725296188271165`*^9}, {3.572529678793622*^9, 3.5725297125832815`*^9}, 3.572529766184975*^9, 3.5725298594731393`*^9, { 3.572529901374813*^9, 3.5725299376604767`*^9}, {3.572531381084212*^9, 3.5725313843134174`*^9}, {3.572537228892798*^9, 3.572537235429209*^9}, { 3.572537287814101*^9, 3.5725373101221404`*^9}, {3.5725380504682407`*^9, 3.5725382242837462`*^9}, {3.572538261053011*^9, 3.572538276590638*^9}, { 3.5725383120339003`*^9, 3.5725383418611526`*^9}, {3.5725384271465025`*^9, 3.57253845404095*^9}, {3.572538956424232*^9, 3.5725390373103743`*^9}, { 3.572539306644847*^9, 3.5725394512103014`*^9}, {3.5725395463080683`*^9, 3.572539593981752*^9}, {3.5725398474041967`*^9, 3.5725398481529984`*^9}, { 3.572541676133009*^9, 3.572541712605873*^9}, {3.5725419267942495`*^9, 3.572541927823851*^9}, {3.5725420320164337`*^9, 3.572542068317698*^9}, { 3.572542098675351*^9, 3.5725421006877546`*^9}, {3.572542267561248*^9, 3.5725423059217153`*^9}, {3.5726066153250785`*^9, 3.5726066318455076`*^9}, {3.5726084389526815`*^9, 3.5726084422286873`*^9}, {3.5726211211499004`*^9, 3.5726211269999104`*^9}, 3.572624425506504*^9, 3.5726245538167295`*^9, {3.5740888464626713`*^9, 3.5740888580378923`*^9}, {3.5740889171463957`*^9, 3.5740889398288355`*^9}, {3.57408900495895*^9, 3.574089019732176*^9}, { 3.574089077031077*^9, 3.5740890848310905`*^9}, {3.574089123472358*^9, 3.57408913014917*^9}, {3.574089171302042*^9, 3.5740891719572434`*^9}, { 3.5740892687866135`*^9, 3.574089271391818*^9}, {3.574227108071917*^9, 3.574227115525343*^9}, {3.5742271744657145`*^9, 3.5742271817051287`*^9}, { 3.5743410750969906`*^9, 3.5743410822730036`*^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", ",", "nc"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.73"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}]}], "Input", CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, { 3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, { 3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, { 3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, { 3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, { 3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, { 3.5712028115629635`*^9, 3.5712028346354036`*^9}, {3.574134565351712*^9, 3.574134566646515*^9}, {3.574134676891908*^9, 3.5741346826639185`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.6837630495245612`", ",", "2.5206427974501615`", ",", "2.6652543170057363`", ",", "2.6971230031397386`", ",", "2.6561514486629627`", ",", "2.658976376768291`", ",", "2.654098380973308`", ",", "2.646236638291447`", ",", "2.657968227327582`", ",", "2.6468988216937017`"}], "}"}]], "Output", CellChangeTimes->{3.5818731591013527`*^9}], Cell[BoxData[ RowBox[{"2.6487113060837495`", "\[PlusMinus]", "0.04776374600161605`"}]], "Output", CellChangeTimes->{3.581873159116953*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.73"}], ")"}], " ", "&"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CC", "]"}], " "}]}], "Input", CellChangeTimes->{{3.571152083381344*^9, 3.571152103920519*^9}, { 3.571200806148241*^9, 3.571200809159046*^9}, 3.571201865936102*^9, { 3.5712028396274123`*^9, 3.57120285544584*^9}, {3.5741345719505243`*^9, 3.574134573026926*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.897367790293567`", ",", "2.935560130771779`", ",", "2.9007706882162534`", ",", "2.911135308410796`", ",", "2.926538007886675`", ",", "2.9022874507490775`", ",", "2.8711280593496777`", ",", "2.871667984448132`", ",", "2.80007796095692`"}], "}"}]], "Output", CellChangeTimes->{3.581873159132553*^9}], Cell[BoxData[ RowBox[{"2.8907259312314304`", "\[PlusMinus]", "0.04023706245592179`"}]], "Output", CellChangeTimes->{3.581873159132553*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CH", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", ">", "0"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.1"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CH", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CH", "]"}]}]}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.571202078205675*^9}, {3.5712022379343557`*^9, 3.5712022402275596`*^9}, {3.571202304764873*^9, 3.5712023101312823`*^9}, 3.571202353748959*^9, {3.5712024254310846`*^9, 3.5712024257586856`*^9}, { 3.57120276994209*^9, 3.5712027833893137`*^9}, {3.574134646315854*^9, 3.574134648952259*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.022063437164405`", ",", "2.0219304048361098`", ",", "2.022005663558001`", ",", "2.022049311741623`", ",", "2.0219815106706402`", ",", "2.02211747246029`", ",", "2.0220823314087175`", ",", "2.02192984496147`", ",", "2.0219366808082744`", ",", "2.0220450147105287`", ",", "2.021882491633962`", ",", "2.022026255618407`", ",", "2.022023183909232`", ",", "2.0219320441905535`", ",", "2.0218674368653264`", ",", "2.0220800146509794`", ",", "2.022074434187703`", ",", "2.022068314634349`", ",", "2.021961555787196`", ",", "2.0220378822649923`", ",", "2.021946586294221`"}], "}"}]], "Output", CellChangeTimes->{3.5818731591481533`*^9}], Cell[BoxData[ RowBox[{"2.022001993921761`", "\[PlusMinus]", "0.00007166841573628236`"}]], "Output", CellChangeTimes->{3.5818731591481533`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5693"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.5712020689392586`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.257`", ",", "0.257`", ",", "0.2556`", ",", "0.257`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.257`", ",", "0.257`", ",", "0.255`", ",", "0.255`", ",", "0.2556`", ",", "0.257`", ",", "0.255`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.21522`", ",", "0.21522`", ",", "0.178`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5241`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`"}], "}"}]], "Output", CellChangeTimes->{3.5818731591637535`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Gij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, { 3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.569341165522358*^9, 3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}, { 3.57059671735485*^9, 3.570596744467697*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Hij", "=", RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Hij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679601758938704`*^9, 3.5679601965327067`*^9}, { 3.567960427147912*^9, 3.567960432217921*^9}, {3.5679605764089737`*^9, 3.5679605968294096`*^9}, {3.5679607389456596`*^9, 3.5679607643581038`*^9}, 3.5681142501278777`*^9, 3.5681218877140923`*^9, 3.569341165537958*^9, 3.5693418217531104`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Kij", "=", RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Kij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679602339571724`*^9, 3.567960257419614*^9}, { 3.567960343406965*^9, 3.567960353500182*^9}, {3.5679604155258913`*^9, 3.567960421422702*^9}, {3.567960854323462*^9, 3.567960874197897*^9}, { 3.5679611596939983`*^9, 3.567961170270817*^9}, {3.5679614000124207`*^9, 3.567961407016833*^9}, {3.5679615066074076`*^9, 3.567961509649413*^9}, 3.5679616124379935`*^9, 3.5679616766477065`*^9, {3.5679617424486217`*^9, 3.5679617456310277`*^9}, 3.567961801276325*^9, {3.5679618582788253`*^9, 3.5679618970760937`*^9}, {3.5679620279135237`*^9, 3.567962030113127*^9}, 3.567962107894864*^9, {3.567962149468937*^9, 3.5679621572533503`*^9}, 3.5679623389156694`*^9, {3.567962645815009*^9, 3.567962648888214*^9}, { 3.567962691647889*^9, 3.567962693020692*^9}, {3.568048161486014*^9, 3.568048162827616*^9}, 3.5680482096900983`*^9, 3.5681142588638926`*^9, 3.568121899632513*^9, 3.5681219958534822`*^9, {3.568277844675576*^9, 3.5682778463603787`*^9}, {3.569341165537958*^9, 3.569341165537958*^9}, { 3.5693418217531104`*^9, 3.5693418217531104`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.5683793122399254`*^9, 3.568379313019926*^9}, { 3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, { 3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 3.5705968020785985`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}, { 3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 3.5705968602823005`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tval", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.567963992456174*^9, 3.567964003890994*^9}, { 3.5679640974287586`*^9, 3.5679642038209453`*^9}, {3.56796433180357*^9, 3.567964353487608*^9}, {3.567964403641696*^9, 3.567964453046983*^9}, { 3.5679646160984693`*^9, 3.5679646168316708`*^9}, {3.567964688747797*^9, 3.567964762255126*^9}, {3.568277859480002*^9, 3.568277863598409*^9}, { 3.568379511358675*^9, 3.5683795129030776`*^9}, 3.5688214977895346`*^9, { 3.56882774467134*^9, 3.56882781892747*^9}}], Cell[BoxData["79.69841442395429`"], "Output", CellChangeTimes->{3.581873159194953*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tcor", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.5688764647552447`*^9}, {3.5692363452556133`*^9, 3.5692363456924143`*^9}, 3.569236415892538*^9, 3.5692365043134933`*^9}], Cell[BoxData["818.891861890794`"], "Output", CellChangeTimes->{3.581873159210553*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor", " ", RowBox[{"(*", " ", RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", RowBox[{"pairs", ":", " ", RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}]}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767685033784`*^9}, {3.568895188410715*^9, 3.5688952349923964`*^9}}], Cell[BoxData["898.5902763147483`"], "Output", CellChangeTimes->{3.581873159210553*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TvalH", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767642445707`*^9}}], Cell[BoxData["34.8314411188464`"], "Output", CellChangeTimes->{3.5818731592261534`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TvalC", "=", RowBox[{"Tval", "-", "TvalH"}]}]], "Input", CellChangeTimes->{{3.5688726088808727`*^9, 3.568872610581275*^9}, { 3.5688726952426243`*^9, 3.5688727146490583`*^9}}], Cell[BoxData["44.86697330510789`"], "Output", CellChangeTimes->{3.581873159241753*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.575216940828384*^9, 3.575216956366011*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\<\"C\"\>", "3.9482045318`", "1.87218934272`", "3.4895680315999997`"}, {"2", "\<\"C\"\>", "1.1845558458399998`", RowBox[{"-", "0.32975718699999995`"}], "0.29407916011999996`"}, {"3", "\<\"C\"\>", "1.7419494268`", "2.2170265432`", "1.6434191131599998`"}, {"4", "\<\"C\"\>", "6.2406311424`", "0.76499887932`", "2.0991076408`"}, {"5", "\<\"C\"\>", "3.1131346124`", RowBox[{"-", "0.10454342177199999`"}], "5.456772797599999`"}, {"6", "\<\"C\"\>", "5.4709457426`", RowBox[{"-", "1.7748306592`"}], "0.86562678882`"}, {"7", "\<\"C\"\>", "2.4230066772`", RowBox[{"-", "2.5790980448`"}], "4.106374598`"}, {"8", "\<\"C\"\>", RowBox[{"-", "1.58761550438`"}], RowBox[{"-", "1.0727596556799999`"}], "0.37401456992`"}, {"9", "\<\"C\"\>", "7.3436642086`", "2.6021527019999997`", "0.187390899338`"}, {"10", "\<\"C\"\>", RowBox[{"-", "3.0451044763999997`"}], "0.090001980202`", RowBox[{"-", "1.7150397285599999`"}]}, {"11", "\<\"C\"\>", RowBox[{"-", "5.356239374399999`"}], RowBox[{"-", "0.92830900024`"}], RowBox[{"-", "2.622939688`"}]}, {"12", "\<\"C\"\>", "9.692404653999999`", "3.4438366624`", "0.5460363277`"}, {"13", "\<\"C\"\>", RowBox[{"-", "2.0998635312`"}], "2.2816551724`", RowBox[{"-", "2.9011073552`"}]}, {"14", "\<\"C\"\>", RowBox[{"-", "6.647111205`"}], "0.30441596134000004`", RowBox[{"-", "4.644946508`"}]}, {"15", "\<\"C\"\>", RowBox[{"-", "6.417320523399999`"}], RowBox[{"-", "3.0965050236000002`"}], RowBox[{"-", "1.5147098753`"}]}, {"16", "\<\"C\"\>", RowBox[{"-", "3.4277739913999996`"}], "3.446860224`", RowBox[{"-", "4.8883432168`"}]}, {"17", "\<\"C\"\>", RowBox[{"-", "8.944451103199999`"}], RowBox[{"-", "0.6880492366`"}], RowBox[{"-", "5.5289603307999995`"}]}, {"18", "\<\"C\"\>", RowBox[{"-", "8.7029441204`"}], RowBox[{"-", "4.0682021328`"}], RowBox[{"-", "2.4281089374000002`"}]}, {"19", "\<\"C\"\>", RowBox[{"-", "9.9722730746`"}], RowBox[{"-", "2.8742732459999996`"}], RowBox[{"-", "4.4204470592`"}]}, {"20", "\<\"N\"\>", "2.7794090008000003`", RowBox[{"-", "2.3636692808`"}], "1.33066946016`"}, {"21", "\<\"N\"\>", RowBox[{"-", "5.644800534599999`"}], "2.4439826358000003`", RowBox[{"-", "5.7479795742`"}]}, {"22", "\<\"O\"\>", RowBox[{"-", "2.6168925647999997`"}], RowBox[{"-", "0.23878577735999998`"}], "2.7036309881999996`"}, {"23", "\<\"H\"\>", "4.435186922`", "3.6496278238`", "4.3216143894`"}, {"24", "\<\"H\"\>", "1.6448553049199999`", RowBox[{"-", "0.053932780039999996`"}], RowBox[{"-", "1.6553432842199998`"}]}, {"25", "\<\"H\"\>", "2.228931817`", "3.6156127558`", "0.26671592764`"}, {"26", "\<\"H\"\>", "0.099460058832`", "2.8139909866`", "2.6605452354`"}, {"27", "\<\"H\"\>", "7.7163181758`", "0.4264166719`", "3.4393013199999998`"}, {"28", "\<\"H\"\>", "1.50218099192`", "0.58583395726`", "6.4653195638`"}, {"29", "\<\"H\"\>", "4.6252933575999995`", RowBox[{"-", "0.44408560999999996`"}], "6.7555814774`"}, {"30", "\<\"H\"\>", "6.5928760688`", RowBox[{"-", "3.2440926241999994`"}], "1.68461513996`"}, {"31", "\<\"H\"\>", "5.783128477799999`", RowBox[{"-", "1.6582156677399997`"}], RowBox[{"-", "1.12865775076`"}]}, {"32", "\<\"H\"\>", "0.47458578764`", RowBox[{"-", "2.9802868746`"}], "4.4688240448`"}, {"33", "\<\"H\"\>", "3.6033295368`", RowBox[{"-", "4.0630998726`"}], "4.8082188344`"}, {"34", "\<\"H\"\>", RowBox[{"-", "1.7118271943599999`"}], RowBox[{"-", "3.0815761881999997`"}], "0.17954664671200002`"}, {"35", "\<\"H\"\>", "6.2610401831999996`", "3.2066760494`", RowBox[{"-", "1.40981118504`"}]}, {"36", "\<\"H\"\>", RowBox[{"-", "4.356763293`"}], RowBox[{"-", "0.7413395097999999`"}], "2.8105894797999995`"}, {"37", "\<\"H\"\>", "10.754241693400001`", "2.8241955069999998`", "2.1512640784`"}, {"38", "\<\"H\"\>", "10.514435463999998`", "4.738676917599999`", RowBox[{"-", "0.7713861531999999`"}]}, {"39", "\<\"H\"\>", RowBox[{"-", "0.34487499499999996`"}], "3.0708047499999997`", RowBox[{"-", "2.2797654464`"}]}, {"40", "\<\"H\"\>", RowBox[{"-", "5.4777487562`"}], RowBox[{"-", "4.0054632296`"}], "0.027945268087999995`"}, {"41", "\<\"H\"\>", RowBox[{"-", "2.6949382486`"}], "5.1317399256`", RowBox[{"-", "5.7326727936`"}]}, {"42", "\<\"H\"\>", RowBox[{"-", "9.9159592398`"}], "0.22192942144`", RowBox[{"-", "7.0509456512`"}]}, {"43", "\<\"H\"\>", RowBox[{"-", "9.48642452`"}], RowBox[{"-", "5.7366412182`"}], RowBox[{"-", "1.59678067548`"}]}, {"44", "\<\"H\"\>", RowBox[{"-", "11.7227262684`"}], RowBox[{"-", "3.6250613858`"}], RowBox[{"-", "5.0990476658`"}]} }, 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.5818731592573533`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"conj", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "identify", " ", "C", " ", "atoms", " ", "at", " ", "double", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"conj", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"conj", "=", RowBox[{"Take", "[", RowBox[{"conj", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"nj", "=", RowBox[{"Length", "[", "conj", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, { 3.572624511540655*^9, 3.5726245129758577`*^9}, {3.5726259545431895`*^9, 3.5726259555883913`*^9}, {3.5726268385811424`*^9, 3.5726268436979513`*^9}, {3.5727156260686264`*^9, 3.5727156464110622`*^9}, 3.572767008717453*^9, 3.572767169428935*^9, {3.5727947272385855`*^9, 3.5727947348669987`*^9}, {3.5818319134413815`*^9, 3.5818319360614214`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19"}], "}"}]], "Output", CellChangeTimes->{3.581873159272953*^9}], Cell[BoxData["11"], "Output", CellChangeTimes->{3.581873159288553*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "3", ",", "4", ",", "5", ",", "23"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "3", ",", "8", ",", "20", ",", "24"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "1", ",", "2", ",", "25", ",", "26"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "1", ",", "6", ",", "9", ",", "27"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "1", ",", "7", ",", "28", ",", "29"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "4", ",", "20", ",", "30", ",", "31"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "5", ",", "20", ",", "32", ",", "33"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "2", ",", "10", ",", "22", ",", "34"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "4", ",", "12", ",", "35"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "8", ",", "11", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "10", ",", "14", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "9", ",", "37", ",", "38"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "10", ",", "16", ",", "39"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "11", ",", "17", ",", "21"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "11", ",", "18", ",", "40"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "13", ",", "21", ",", "41"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "14", ",", "19", ",", "42"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "15", ",", "19", ",", "43"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "17", ",", "18", ",", "44"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "2", ",", "6", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "14", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"22", ",", "8", ",", "36"}], "}"}]}, { RowBox[{"{", RowBox[{"23", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"24", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"25", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"26", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"27", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"28", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"29", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"30", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"31", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"32", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"33", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"34", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"35", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"36", ",", "22"}], "}"}]}, { RowBox[{"{", RowBox[{"37", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"38", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"39", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"40", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"41", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"42", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"43", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"44", ",", "19"}], "}"}]} }, 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.581873159288553*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl"}], "]"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"c1", "=", "20"}], ";", " ", RowBox[{"c2", "=", "21"}], ";", " ", RowBox[{"c3", "=", "51"}], ";"}], "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpo", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"nj", "+", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"nj", "+", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "=", "3"}], ";", " ", RowBox[{"c", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\ }]}]}]}]}]}]}]}]}]}]}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{ "construct", " ", "the", " ", "\[Pi]", " ", "clouds", " ", "for", " ", "C", " ", "atoms"}], " ", "*)"}]}]}], "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.5740881383930283`*^9, 3.5740881415442333`*^9}, {3.574133050043051*^9, 3.5741330901351213`*^9}, {3.574133304276697*^9, 3.5741333056182995`*^9}, { 3.5741334325089226`*^9, 3.5741334353481274`*^9}, {3.574484489607682*^9, 3.574484492602887*^9}, {3.5818294301822195`*^9, 3.5818294332398252`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}]}], ";", "\n", RowBox[{"c", "=", RowBox[{"Take", "[", RowBox[{"c", ",", "P"}], "]"}]}], ";", "\n", RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", RowBox[{"mk", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"mk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ml", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rpi"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "mk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "ml"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"mk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "mk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "ml"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"mk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "mk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "ml"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"mk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"mk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"ml", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"mk", "=", RowBox[{"v1", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"v2", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"mk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"ml", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"mk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"ml", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "nj"}], "}"}]}], "]"}], ";"}]], "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}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "--", "-"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}\ ]}]}]}]}]}]}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "construct", " ", "the", " ", "\[Pi]", " ", "clouds", " ", "for", " ", "one", " ", "N", " ", "atom"}], " ", "*)"}]}]], "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.573148680368494*^9}, {3.574133119104372*^9, 3.574133144033216*^9}, { 3.574133281157457*^9, 3.574133289987072*^9}, 3.574484169323519*^9, { 3.581829332635248*^9, 3.581829338001658*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{"{", RowBox[{"21", ",", "14", ",", "16"}], "}"}], "}"}]}], ";"}]}], "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.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, 3.573183074758076*^9, {3.573206537871501*^9, 3.5732065516931257`*^9}, 3.574070559848399*^9, {3.574484313920173*^9, 3.574484362093058*^9}, { 3.5818293114972115`*^9, 3.5818293211536283`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\n", RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", RowBox[{"nk", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rpi"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", RowBox[{"nj", "+", "k"}], "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", RowBox[{"nj", "+", "k"}], "]"}], "]"}], "=", RowBox[{"nl", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "1"}], "}"}]}], "]"}], ";"}]], "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.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, { 3.573183074758076*^9, 3.5731830995309196`*^9}, {3.573183400018647*^9, 3.573183403669054*^9}, {3.5740705690368156`*^9, 3.574070569988417*^9}, { 3.574075420473737*^9, 3.574075431518556*^9}, {3.57448439193591*^9, 3.574484392981112*^9}, 3.581829347424074*^9}], Cell["\<\ (* ---------------------------------------------------------------------------\ ------------------ O atom 22 LP`s of -OH *)\ \>", "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.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, { 3.573183074758076*^9, 3.5731830995309196`*^9}, {3.573183400018647*^9, 3.573183403669054*^9}, {3.5740705690368156`*^9, 3.574070569988417*^9}, { 3.574075420473737*^9, 3.5740754582882032`*^9}, {3.574133164172851*^9, 3.5741331957785068`*^9}, {3.574486166314227*^9, 3.574486174785042*^9}, { 3.574491302508808*^9, 3.5744913056600137`*^9}, {3.5744913474836874`*^9, 3.5744914376206455`*^9}, {3.581829454814663*^9, 3.581829455298264*^9}, 3.581831752339898*^9, {3.581846016156917*^9, 3.5818460350329504`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "1"}], ";", " ", RowBox[{"hj", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "conn", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "gamm"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{"{", RowBox[{"8", ",", "22", ",", "36"}], "}"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"rlo", "=", "1.125"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tlo", "=", RowBox[{"{", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tlu", "=", RowBox[{"{", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plota", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "hj"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plotc", "=", " ", "Plota"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Plotd", " ", "=", "Plota"}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plote", "=", " ", "Plota"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plotb0", " ", "=", "Plota"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ok", "=", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gamm", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";", " ", RowBox[{"t1k", "=", "gamm"}], ";", " ", RowBox[{"t2k", "=", "gamm"}], ";", " ", RowBox[{"t3k", "=", "gamm"}], ";", " ", RowBox[{"alf", "=", "gamm"}], ";", " ", RowBox[{"bet", "=", "gamm"}], ";"}]}], "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.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, 3.573183074758076*^9, {3.5740746292247467`*^9, 3.574074630301149*^9}, { 3.5740746649020095`*^9, 3.5740747139640956`*^9}, {3.5740747744610023`*^9, 3.574074848015131*^9}, {3.5740749399928927`*^9, 3.574075144556052*^9}, 3.574075176614108*^9, 3.5740754672894187`*^9, {3.574075548799562*^9, 3.574075581356819*^9}, 3.5740758787089415`*^9, 3.574135482290123*^9, 3.5741355446590323`*^9, {3.57434006146961*^9, 3.5743400666956196`*^9}, { 3.574490877033661*^9, 3.5744910620811863`*^9}, {3.5744914513018694`*^9, 3.5744914558882775`*^9}, {3.574499216903905*^9, 3.5744992394459443`*^9}, { 3.574499298538848*^9, 3.5744992992564497`*^9}, {3.574499382810196*^9, 3.574499384307799*^9}, {3.574499488531582*^9, 3.5744994933363905`*^9}, { 3.5744997030943584`*^9, 3.5744997039679604`*^9}, {3.5745008764068193`*^9, 3.5745008808060274`*^9}, {3.574500934766522*^9, 3.574500940522932*^9}, 3.574501053857131*^9, {3.5745011031844177`*^9, 3.574501125071256*^9}, { 3.5745011615129204`*^9, 3.574501162277322*^9}, {3.574501225909833*^9, 3.574501231323043*^9}, {3.575214298799343*^9, 3.5752143048053536`*^9}, { 3.57521445633682*^9, 3.5752144600652266`*^9}, {3.5752658325560775`*^9, 3.5752658462685013`*^9}, {3.5752659856859465`*^9, 3.5752659908027554`*^9}, {3.575266154774643*^9, 3.57526615872145*^9}, 3.5752663048469067`*^9, {3.5752666195306597`*^9, 3.5752666463315067`*^9}, { 3.575266793080964*^9, 3.575266804952585*^9}, {3.575267072383855*^9, 3.5752670807610693`*^9}, {3.5818294606958733`*^9, 3.581829497355938*^9}, { 3.5818297049923024`*^9, 3.5818297088611093`*^9}, {3.5818460561709876`*^9, 3.581846060866596*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"a1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"a2", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"d1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Alpha]", "=", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a1", "^", "2"}], "+", RowBox[{"a2", "^", "2"}], "-", RowBox[{"d1", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a1", "*", "a2"}], ")"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"alf", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "\[Alpha]"}], ";", "\[IndentingNewLine]", RowBox[{"L", "=", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", "rlo"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Beta]", "=", RowBox[{"ArcSin", "[", RowBox[{"rlo", "/", "L"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"bet", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "\[Beta]"}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"\[Alpha]", "/", "2"}]}]}], ";", " ", RowBox[{ RowBox[{"gamm", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "\[Gamma]"}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", " ", RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\n", " ", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"t1k", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "T1"}], ";", "\n", " ", RowBox[{"U", "=", "p"}], ";", "\n", " ", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", " ", RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"t2k", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "T2"}], ";", "\n", " ", RowBox[{"U", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"t3k", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "T3"}], ";", "\n", " ", RowBox[{"U", "=", "p"}], ";", "\n", " ", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", " ", RowBox[{"nk", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Sin", "[", "\[Gamma]", "]"}], "*", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}], "*", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", "rlo"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rlo"}]}], ";", "\n", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"Ok", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"Ok", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plota", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"Plotc", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", " ", "0.02"}], "]"}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", RowBox[{"P", " ", "-", " ", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", RowBox[{"i", " ", "+", " ", "1"}], ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "k", "]"}], "]"}], "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Lighter", "[", "Red", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"Plote", "[", RowBox[{"[", "k", "]"}], "]"}], "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Lighter", "[", "Red", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"Plotb0", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"U", "=", "p"}], ";", "\n", " ", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", " ", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", " ", RowBox[{"U", "=", "p"}], ";", "\n", " ", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", " ", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", " ", RowBox[{"U", "=", "p"}], ";", "\n", " ", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", " ", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", " ", RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", " ", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tlo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tlu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "1"}], "}"}]}], "]"}], ";"}]], "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.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, 3.573183074758076*^9, {3.5740746292247467`*^9, 3.574074630301149*^9}, { 3.5740746649020095`*^9, 3.5740747139640956`*^9}, {3.5740747744610023`*^9, 3.574074848015131*^9}, {3.5740749399928927`*^9, 3.574075144556052*^9}, 3.574075176614108*^9, 3.5740754672894187`*^9, {3.574075548799562*^9, 3.574075581356819*^9}, 3.5740758787089415`*^9, 3.574135482290123*^9, 3.5741355446590323`*^9, {3.57434006146961*^9, 3.5743400666956196`*^9}, { 3.574490877033661*^9, 3.5744910620811863`*^9}, {3.5744914513018694`*^9, 3.5744914558882775`*^9}, {3.574499216903905*^9, 3.5744992394459443`*^9}, { 3.574499298538848*^9, 3.5744992992564497`*^9}, {3.574499382810196*^9, 3.574499384307799*^9}, {3.574499488531582*^9, 3.5744994933363905`*^9}, { 3.5744997030943584`*^9, 3.5744997039679604`*^9}, {3.5745008764068193`*^9, 3.5745008808060274`*^9}, {3.574500934766522*^9, 3.574500940522932*^9}, 3.574501053857131*^9, {3.5745011031844177`*^9, 3.574501125071256*^9}, { 3.5745011615129204`*^9, 3.574501162277322*^9}, {3.574501225909833*^9, 3.574501231323043*^9}, 3.575214298799343*^9, {3.5752143677202644`*^9, 3.575214385613496*^9}, {3.5752144336855803`*^9, 3.5752144356199837`*^9}, { 3.5752651421768646`*^9, 3.575265147418474*^9}, {3.575265215044593*^9, 3.5752653948505087`*^9}, {3.575265881680564*^9, 3.575265897795392*^9}, 3.5752659328330536`*^9, {3.5752660927177343`*^9, 3.5752661014849496`*^9}, 3.5752662705736465`*^9, {3.575266341928172*^9, 3.57526636364341*^9}, { 3.5752666521659164`*^9, 3.575266658873929*^9}, {3.5752667464680824`*^9, 3.5752667480124855`*^9}, {3.575266822518216*^9, 3.575266843484653*^9}, { 3.5752670346629887`*^9, 3.575267062056637*^9}, {3.575276264288258*^9, 3.575276290231104*^9}, {3.5752765594719763`*^9, 3.575276574494803*^9}, { 3.575276619329282*^9, 3.575276682212992*^9}, {3.5752767790579624`*^9, 3.5752768182296314`*^9}, {3.5752769283502245`*^9, 3.575276942281049*^9}, 3.5818295160759706`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Plote", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plota", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotb0", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Axes", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"AxesLabel", " ", "->", " ", RowBox[{"{", RowBox[{"xl", ",", " ", "yl", ",", " ", "zl"}], "}"}]}], ",", " ", "\n", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", " ", "->", " ", "True"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}]], "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.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, 3.573183074758076*^9, {3.5740746292247467`*^9, 3.574074630301149*^9}, { 3.5740746649020095`*^9, 3.5740747139640956`*^9}, {3.5740747744610023`*^9, 3.574074848015131*^9}, {3.5740749399928927`*^9, 3.574075144556052*^9}, 3.574075176614108*^9, 3.5740754672894187`*^9, {3.574075548799562*^9, 3.574075581356819*^9}, 3.5740758787089415`*^9, 3.574135482290123*^9, 3.5741355446590323`*^9, {3.57434006146961*^9, 3.5743400666956196`*^9}, { 3.574490877033661*^9, 3.5744910620811863`*^9}, {3.5744914513018694`*^9, 3.5744914558882775`*^9}, {3.574499216903905*^9, 3.5744992394459443`*^9}, { 3.574499298538848*^9, 3.5744992992564497`*^9}, {3.574499382810196*^9, 3.574499384307799*^9}, {3.574499488531582*^9, 3.5744994933363905`*^9}, { 3.5744997030943584`*^9, 3.5744997039679604`*^9}, {3.5745008764068193`*^9, 3.5745008808060274`*^9}, {3.574500934766522*^9, 3.574500940522932*^9}, 3.574501053857131*^9, {3.5745011031844177`*^9, 3.574501125071256*^9}, { 3.5745011615129204`*^9, 3.574501162277322*^9}, {3.574501225909833*^9, 3.574501231323043*^9}, 3.575214298799343*^9, {3.5752143677202644`*^9, 3.575214385613496*^9}, {3.5752144336855803`*^9, 3.575214438381189*^9}}], Cell[BoxData[ RowBox[{"{", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.3795387586702784, 0.536781455218997, 1.125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.3795387586702784, 0.536781455218997, -1.125}, 1.125]}, {Opacity[0.5], SphereBox[{2.6799321545790433`, 0, 0}, 0.257]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.178]}, {Opacity[0.5], SphereBox[{-0.6048155355954327, -1.7103650755509279`, 0}, 0.5241]}, Text3DBox["8", {2.6799321545790433`, 0, 0}, {1, 0}], Text3DBox["22", {0, 0, 0}, {1, 0}], Text3DBox["36", {-0.6048155355954327, -1.7103650755509279`, 0}, {1, 0}], TubeBox[{{2.6799321545790433`, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{ 2.6799321545790433`, 0, 0}, {-0.6048155355954327, -1.7103650755509279`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {-0.6048155355954327, -1.7103650755509279`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztWntQW9eZ/9UY08SxnThJH0mbZvrYTbfddh+Z7XZnd7KPNJnpNLtJ2s3u 7Owr40k36TSJ49dkd6abOLtJDcRpksapsA1+Y2xsA0JIQggQQgIhCQuQBEi8 zENCAkmADRhjw93v3HuOuIgrnPzR//bOfNzHufd3vvf3nSOeen7Piy+8/Pye l3Y8//CTu57f+eJLO3Y//MSru+hRzmcAGIiKHga7luiS/zFAkiQ2+Fs7vcFO OWyyP1IevCWf5CfyFaPv3nboTXbaoILZr/HuH9wWZg03mjz/lJ02srceSV89 pAz9RwY2Ox7kzxYWFtLzbdZ4j0O8qMHe5+W/uTJEU1MTnnvuOXl8x44d9FTw sFHjyy8roC9pDN0r/71jFeiTTz4Jo9GI2dlZnDlzRn6f3W/R+P5L2aHvlv9u kqHj8Tjy8/NlaHYMDw/nyMMbUVJSIj9mM9OMd2Wf5Kf8C/UQHco8n5XnYewK EXw+nyzCK6+8gmQymcPV19/fLz/u7e2VVceuP6uNzI3xWNqvkJM2lHJHx8Pp 0a0qgdUGev3119kswtyMR6ZOhWvx8VcU5L/U8IkNGir5tkpoLbuxURJ8MxeM vVZeXi50/00F+6+4StTAYtJv80mF5ZgWNzCFbeNSMqnEjJFIROjykU8nx6Z0 sD2URSJhRjZKc4npyaKreOZafWSNyXJXmUxc36HBywPy37w1HHzwwQdpT/m8 Si3sYNz9roL6Aw3IvKxxvCmb6YSWyEzpTz7HzcheZXrn3PyOMvHjaWG1pLqf M6I2JMNgnAupvsTxhZ6ZMnU6Hcf/Ow3U7Vl8nVtLCMGG2GQrWSgHMzMz8uvs 1W9kn2HbOh7O/I2Htch3gvWVfLFRfpV9xsX8ujLZ32YNWHWGInU9wmFExmCv EBSH+WfOH9OrSDtMVGY39nZVVRU7f4vzJyRmd19VEP40I/jXugQ7E/53OSPC hFyeu9Kxo2RxfE87jT14mxzPRplR2LWYir3HxpkUNJ1W6t++7qRfyAgmoVsG ytTFnn2Po7IxoRs5w2atZOvP+TmVGtWVgJtEOKXaVR7NSJBctZml+fZz33sb d2X3dP4z/jWrPsxbuH4//Xzq6qqej/tujirYRLH5c/5MXYC0Msb2TPfcqnIg dSVnICJNcXfHX2ckyHR53ZC2qQoTT2QxGXeRH/Bh5h0a6XibBveKKpUYUxWW takqI9+qveJv+CciKsRzrrltGiYRsykZH1/T4OyBT+AilNGeytAg0/DWtN5y NIA3KXM+uG7oqMuOuhawg+R6Rh7OlUUWTInysOWTzK4l8f1ZJBY1nU3m8Xh+ ouGYmzV0jHV6CG0GtmdkIbXKRUb+xwx9s2d3piXekL5SNX8KaNZZRY+S6XFM 5SqPE4WQtTLPraP+u7PL/NU0d9s4U5llnnkPA2X3/6ah5xXPUppgvkDSrkV0 v0NDW7lpjHsUjN+XT1uyhZw8ypiK941gwhtCsj2M6cshLIwn8K8qTTCm1ZoQ awbNXIjfk0/3aZYcEV/uejcu611w6Ezw6mrhP2xB6KgFQ8fqMHbKglipBYlz ZkxdMGGu2YXFUPhfuMSCEXa3YV1GlMbhi6taA3ZQS5UWP+ANo0JnRK3OAruu Ae6iJnQdbkZviQODpxwYPetArNyBZEUzZqrsmDXYMG9swILZghu1JtzytGI5 lcA/adhjfe6UnuuhrO0AD0rEIwmU6Qwo19XBoLOhQedAq86Fy0fd6D7hQf+Z doycb8d4RTsS1e2YMXoxW+vBgrUNiw2tuGVzYKnJhmW7lc4mLHcQx1OJf+CO qrbv/v3704rJFuVbVR6fJYnyYsqgcvhrZaTic6TeSzonqdpNqm5HpH0c8Y4Y 5mLXlMXBnbg5FMPScAzLgT5IrV4su9ogtTmJbJBcFiw7DVieTjzNee8hnx0i atNVI1hUjaEj1ZjrDGHeH0orn3eL6yUuLlJm95fRhubw6suks1qt6a8byI3L yC7lZBOnPoxk5BpfolNqunoVUl8IUgfJ4WuG1G7FsrsGyzMJPLWS0baghuLA qbPCf6QRQydtiJ9vxEylFfMGExbbWjEbjco8CddSnH8l0r+sModWF8x6Z7re xJUSuTJKPDcQ70Hyr6s56bSqWr6QTWaJ+ys9kIIOSF1W3PIa8CN57G6ZEWbU CyQ5OzxHLyNU2olIRRemzF1YaPRhyeGG8SAp8ft/kg5+7mK8U17pSLQq2kri X2FwnSLCZL2TwwS8AyRcgIu7GjqbG4jdBykZgRQikf0W3IqGfyg/vkeOQ0Xq FlTqOuXrsDWCVE8Ks/1TuHFlCktjKUidYUiBLvrciWskMftaOCEXOy/dIWTy oci5SuwN3C3ZBo04hP9R8G5OSzxCLM58KolF1ynN03dhOxYHXPghR2CJsYyi lR95wqPn5zHr70DcH0jXOHYwCXnDmrE7s2LF9SXO+hkxw1xZHIFAQCyDRn0t KmdZ1SqsTbtiR0uaGsWN7lpVX/IYejy9MFISqSeyETmIXERuonYiH1EnkZ8o QNRN1EsULjKg74gJ/cW1GCixYuh4A66cbMLw6WaMlDoxWubC2Hk3Ihe8iFzy IVrRifEqP2LVQcRqehA3hhA392HCMoDJuiFM1g9jsmEUCVsEiaZxJJtjSDom kGxJINWaQso1hZR7BinPVaS8s0hdnkfKdx1THTcw1bkIV0kAZ35egfKXK1Dx SiWqX61C8b8rW4f6XVbU79bL17a9etj36THbFuLOkoe22jDiobBcEFgoiVLN 0sc9Kr9dq9mN3EMzHq+XckUnx/fk5GfCQO4LF7B8fVqYa823yp1Sv8wfUfb/ n3q0vWODO98Od6ETnvda4fmgDZ5fe+E5dBkeXQc8h7soRQXhLulB7yUL3Cf7 0HZ6AG2lQ3CVDaP13AhaysfgvBCF42IMzRVx2CsnYatKolE/BWv1NOqqr6LW cA1GwxyqDddRZVjAxepFlOkXcaJiEc2Ni0h1L1FCIOpdRiokIRUm6pOQ7Cca IBokGpKQYHSFaFjC5AjRqIQJRmMSRbGEGKOohPFxCVFGMQkRojGi0biEEaLh CQlXiIaIBokGJiX0E4WJQkQ9RN30PEDkJ+ok8tF3XsJwE7kI10nz2GnOBuKh lniqJl6DE0vcZnkINHfL2rYcbsHZwi4lAH2EMS5ssxETkXnKtVcoW7goa/QJ k61tnTW34e7IFvt8x5C5I1tqCk/ZyjHmKVct99tV+W6NXwpOpmYlTHn8kLq7 0ikvEuhIv/oE/9xPWaCxpBPvvGDCkQ/jChd3Yjk6hcWRacwOUuCFpjHuT+Gy YZTaxgDJ3EZkIblDIu2w8szKEqt0pINVoudlixGVYlYvb7SWPNv5TIvjYSz1 UCWIBNLVYmVlL6SfZtK3dVBP5ePLlRy5UBiPV8p3j3PMIEnffLIfb79gxeGj MwiSy0bmJNxy0grFTeWwtR037F2YqQsiqu9GuCwAb3EnrDoPdQHNpIZacoMW YQvRwvIUkpvmMO8T10Atr7iX9yY3qYO62UGcdTdCGg1Cmrua/mFkhiSeJm6X O71pLVCXIzcEAe8g3xvJRa8nTIEfxbsv22Guuo7AsHClzVhKJnDDbCCy4Fq1 DZMXm3HltAOBI3a06BqpWtRSQ2tgEkN0VRmbV7ka3r5JJXyuhmlXFCJLez/n dLGnBcs+M/UU1AcHWyFNRHgg5OEqk9bpwdJljywlC8MyXb1cwB/j31eSix77 hQsf7vPCbLkJf0QUf2oZg1SDThowUmxAL9UzD0nF6iBrrqnnETmf7ZSJTUM6 ryPcSlOnGdarn23MkDUPS90kn5dkvdxAfTP1/h1uSONR6qWv8RKRi6rzURjq ZjBtd6Pu/Qskbw3+go/V6Jpw8m0fPn6zBzWNS+iIae95a23OcAm0VvrK7u0X sOynnqOFHM9FgedqIqL71jZamnix1BXGraFx6qNiWOiPYy4cx9WeOKaCMSS6 Yoj5xtFtCKNJ54WJzHSRwubDj9tx8O0ahC82UKff9n0uRd0RsuLBAA4XjCDQ RcXgmqT8xLV2P32dzaBtae0qu29fZCs/LNtoFWUzE9GKsNGGm/UOLNS1YK7W RatHN5J6D2KXPBg5R6vL0x4Ej9FivchFft9CnmFHNa0czsnR3ip3xQHyJi9l iylrKxacLvwxZ4HlU9sxP/Y/X4MjhyYR7KWCNid9jYsh9vO5R60jxh/Kp3uw NBDCTTdNYjLheo0Fs9X1tChvRPISWzE1YbTUjsETdvQWN6GzyEbrwgbStRVm nRnNepccEiI/dZNb+IaoSpudmLe3fIfPx7Kg89Qg3nmxAcbz1xCkgj06K4nf INTLe2n1hs2jvIm50RPGQncfJstqEDtjwthJEwZLzAgdNsNfZKL4MmLE24dB YiYRSYhVRy9V567hZSQMDlxrcH6T+0HI0wdXeQwHdzpgpoYjQE3Ct/iY1g9j ygIo3cX3JaiejyxhotKOKYvj6yJ+SCnH3nDj1//lg8l6C11Uzr/Dx8SSkd2J Gs5Rf8RRB5ISekeXMH7Rhgmz/Sv8SyP5xqkDnfjN/4bhb1eahEe5VcUP2Exx SuZRfgAitKEpCX1jt7A4NEaJLfoAR7MedePc+0Ecfm+Men6KAMpzYhOeoahW k9wCT/PR4WlqiCK3cHNwBFJs7D6VOzYd78ZbO0wo0iURDMsFTmzHq/eVeI16 Jl2jWNYaH83IZKReypFRtnFGNC9yZS66mROdGcaBnzXCdGkOwSsST8Ur7QFP Q3ymZ+XTllU1cDS6iFvhAflaLD5bdCaEi82Il5owc8GAOXsLctKu0o+2i5P4 1W4nTKZFOck/rkp8YneHB9WPeVCp4y1KWSYyfkN+Zimshf9kh7xema/vxJLT jeXWelx65zyOv+XFR7/ohKFeya9PqnQoMhOf5icZkjHytwZx7H2f/Cx03I+k sRc9R9vQWeKB57gD1lPdiBMrwovVmYIWmrlq5LtWIQccfWg86ZefTSRuwtu+ iECPhHbvHHrqB9BVZXxKpRLh5xtV9qakqUZUW6SrsY/Kb4t8vdQ+SOVnGIPV V+A60Ue53IdOexvnSjGoKHiz45OY9IUwSrlGeZaH5K8OIVZQjP43TsDz2nGY 9p3Gmf2nEaX31BhUjGaikwgZnego0SNwTI+e43qET+jR93EZ+t88hO6d78L7 84Ow/OwgTP95CKHflGHqLK3u6p24GZ98Vi3cdkwTWsvRKriLq3CZEDsJMUiI vQzxpB6Dp/QYJho9rUf0jB6xUj0miBKEmCKaLqtiqM+oUe9F45EqNBNqa7Ee HkJt/egsmkg8839/iIu7DuACUTnRudcOoLWwBC2FxejRncUEIU4SJQl1SkHm ccxP96G/vRdWgrcRfH3+URj2HEANkWFPPp3z6VyAaiL97gJUEl3alU9T5ctT le48IE81QdAJopkGxyr0XIQJ3fxBKUyEaN57ALV788lGlr0F5LO19Ld2byGN FcJIZNhdqMyyq4CEKsD51/JxlmY49eoB9BSVIl5WKZh/hntZ7Z5foo5grTJs /d6CHLospAazjv7WEqaZYRNuNVHVLsZ9Acp3Eu6r+Tj1ygH0VVgyFXI10Ivw kVJCO4AGwm0gNhv2FaBxXyEaCbaBqJ7IStAW9RS7ClH5GrFOdI6mOENs28ss q9CpcSf0GAkycOQsoeVvgI3gt8LGwdUT1BFwLQGbiAy7OP+kk3Li3fh+KYyH KzO0vUjmZXaYJIoTBd4rJiU10gx3KciEWL9nBdlI2jYQahWhWn5ZDDs5bQP5 gsfgeHq1A1LNRIoQmSMxh4qTyw4UlaHrYAk63i2Bj6idHM9D5CoogTO/BG0f laGd3L+NHNZJyE3kYalo2gGf5RlylqCZbzLvT/BoGKfIiBCNUJQMUbQMUOSE KIK6ifwUTT6C9RKsi2BZxD2jTrrbZDdn4Zkq5ZAENU5QEaIRghsiuH6C6iWo IEF1EfVRCrhKUDyelZ+q7sB1P9WerhBSdU6M06djLH7p82itE8mOECaJ/l75 5Lf/L4T/fxInfOb/AJPsHIo=\ \>"]], "}"}]], "Output", CellChangeTimes->{3.5818731593821535`*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "--", "-"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}\ ]}]}]}]}]}]}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"next", ":", " ", RowBox[{ "N21", " ", "one", " ", "doubly", " ", "occ", " ", "LP", " ", "as", " ", "sp2", " ", "ligand"}]}], " ", "*)"}]}], "Text"]], "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.5740711445842266`*^9, 3.5740711934435124`*^9}, { 3.5740712484648085`*^9, 3.574071311114519*^9}, {3.574071353780594*^9, 3.5740714392063437`*^9}, {3.5740717257632475`*^9, 3.574071742283676*^9}, { 3.574071857115478*^9, 3.574071918189585*^9}, {3.5740720907414885`*^9, 3.5740720966694984`*^9}, {3.5740721676028233`*^9, 3.5740721835304513`*^9}, {3.5740722327953377`*^9, 3.574072381432399*^9}, { 3.57407241628286*^9, 3.5740725747635384`*^9}, {3.5740726677709017`*^9, 3.5740726864129343`*^9}, {3.5740729230809503`*^9, 3.574072923455351*^9}, { 3.5740729588050127`*^9, 3.574072990707069*^9}, {3.5740730904380445`*^9, 3.5740730958668537`*^9}, {3.574073130155714*^9, 3.57407314478854*^9}, { 3.574073269853959*^9, 3.5740733111160316`*^9}, {3.5740733441100893`*^9, 3.5740733480412965`*^9}, {3.5740733832037582`*^9, 3.5740734276482363`*^9}, 3.5740740818977857`*^9, 3.574074116810647*^9, {3.574074166481134*^9, 3.5740741666527348`*^9}, {3.57407419825839*^9, 3.5740742105668116`*^9}, { 3.574074252827286*^9, 3.5740742532484865`*^9}, {3.5740743137765927`*^9, 3.5740743140105934`*^9}, {3.574074358345871*^9, 3.5740743585954714`*^9}, 3.5740754073385134`*^9, {3.5741353517646933`*^9, 3.5741353928551655`*^9}, 3.574135465457693*^9, {3.574484765977767*^9, 3.574484862073936*^9}, { 3.5744849882001576`*^9, 3.574485043705055*^9}, {3.5744851789572926`*^9, 3.5744851982389264`*^9}, {3.5744852859110804`*^9, 3.5744852918702908`*^9}, 3.5752146686375933`*^9, {3.575214703316454*^9, 3.575214752674941*^9}, 3.5752147864334*^9, {3.5752148167910533`*^9, 3.575214843825901*^9}, { 3.575214952183691*^9, 3.575214963368911*^9}, {3.581829560567249*^9, 3.5818295701612654`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "conn", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "gamm"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpln", "=", RowBox[{"{", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{"{", RowBox[{"14", ",", "21", ",", "16"}], "}"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"rln", "=", "1.246"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plota", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "1"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plotc", "=", " ", "Plota"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Plotd", " ", "=", "Plota"}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Plotb0", " ", "=", "Plota"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ok", "=", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gamm", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";"}]}], "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.5740711445842266`*^9, 3.5740711934435124`*^9}, { 3.5740712484648085`*^9, 3.574071311114519*^9}, {3.574071353780594*^9, 3.5740714392063437`*^9}, {3.5740717257632475`*^9, 3.574071742283676*^9}, { 3.574071857115478*^9, 3.574071918189585*^9}, {3.5740720907414885`*^9, 3.5740720966694984`*^9}, {3.5740721676028233`*^9, 3.5740721835304513`*^9}, {3.5740722327953377`*^9, 3.574072381432399*^9}, { 3.57407241628286*^9, 3.5740725747635384`*^9}, {3.5740726677709017`*^9, 3.5740726864129343`*^9}, {3.5740729230809503`*^9, 3.574072923455351*^9}, { 3.5740729588050127`*^9, 3.574072990707069*^9}, {3.5740730904380445`*^9, 3.5740730958668537`*^9}, {3.574073130155714*^9, 3.57407314478854*^9}, { 3.574073269853959*^9, 3.5740733111160316`*^9}, {3.5740733441100893`*^9, 3.5740733480412965`*^9}, {3.5740733832037582`*^9, 3.5740734276482363`*^9}, 3.5740740818977857`*^9, 3.574074116810647*^9, {3.574074166481134*^9, 3.5740741666527348`*^9}, {3.57407419825839*^9, 3.5740742105668116`*^9}, { 3.574074252827286*^9, 3.5740742532484865`*^9}, {3.5740743137765927`*^9, 3.5740743140105934`*^9}, {3.574074358345871*^9, 3.5740743585954714`*^9}, 3.5740754073385134`*^9, {3.5741353517646933`*^9, 3.5741353928551655`*^9}, 3.574135465457693*^9, {3.574484765977767*^9, 3.574484862073936*^9}, { 3.5744849882001576`*^9, 3.574485043705055*^9}, {3.5744851789572926`*^9, 3.5744851982389264`*^9}, {3.5744852859110804`*^9, 3.5744852918702908`*^9}, 3.5752146686375933`*^9, {3.575214703316454*^9, 3.575214752674941*^9}, 3.5752147864334*^9, {3.5752148167910533`*^9, 3.575214843825901*^9}, { 3.575214952183691*^9, 3.57521496862612*^9}, {3.575215119337985*^9, 3.5752151197903852`*^9}, {3.575220019863165*^9, 3.5752200639176426`*^9}, { 3.57526155271976*^9, 3.575261571346193*^9}, {3.575261988256925*^9, 3.5752619961505394`*^9}, {3.5752642988861837`*^9, 3.5752643466066675`*^9}, {3.575264476383295*^9, 3.5752645335105953`*^9}, { 3.575264738682156*^9, 3.575264741271761*^9}, {3.5752647907862473`*^9, 3.575264795669056*^9}, {3.5752648505031524`*^9, 3.5752648523439555`*^9}, { 3.575264901437242*^9, 3.5752649099080567`*^9}, {3.5752660077443852`*^9, 3.5752660092263875`*^9}, {3.5818295957765107`*^9, 3.5818296269453654`*^9}, 3.5818296579738197`*^9, 3.581829877559806*^9, 3.5818299406775165`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"a1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"a2", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"d1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Alpha]", "=", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a1", "^", "2"}], "+", RowBox[{"a2", "^", "2"}], "-", RowBox[{"d1", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a1", "*", "a2"}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"L", "=", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", "rln"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Beta]", "=", RowBox[{"ArcSin", "[", RowBox[{"rln", "/", "L"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"\[Alpha]", "/", "2"}]}]}], ";", " ", RowBox[{ RowBox[{"gamm", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "\[Gamma]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"k", "\[Equal]", "1"}], " ", "||", " ", RowBox[{"k", "\[Equal]", "3"}]}], ")"}], ",", RowBox[{"\[Gamma]", "=", RowBox[{"\[Pi]", "-", RowBox[{"\[Alpha]", "/", "4"}]}]}], ",", RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"3", "*", RowBox[{"\[Pi]", "/", "2"}]}], "+", RowBox[{"\[Alpha]", "/", "2"}]}]}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"Plota", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plotc", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", "0.02"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"P", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "P"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", RowBox[{"nk", "=", "p"}], ";", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"-", "L"}], "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", "0"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"Ok", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plota", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plotc", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", "0.02"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"P", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "rln"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plotb0", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\n", RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpln", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "1"}], "}"}]}], "]"}], ";"}]], "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.5740711445842266`*^9, 3.5740711934435124`*^9}, { 3.5740712484648085`*^9, 3.574071311114519*^9}, {3.574071353780594*^9, 3.5740714392063437`*^9}, {3.5740717257632475`*^9, 3.574071742283676*^9}, { 3.574071857115478*^9, 3.574071918189585*^9}, {3.5740720907414885`*^9, 3.5740720966694984`*^9}, {3.5740721676028233`*^9, 3.5740721835304513`*^9}, {3.5740722327953377`*^9, 3.574072381432399*^9}, { 3.57407241628286*^9, 3.5740725747635384`*^9}, {3.5740726677709017`*^9, 3.5740726864129343`*^9}, {3.5740729230809503`*^9, 3.574072923455351*^9}, { 3.5740729588050127`*^9, 3.574072990707069*^9}, {3.5740730904380445`*^9, 3.5740730958668537`*^9}, {3.574073130155714*^9, 3.57407314478854*^9}, { 3.574073269853959*^9, 3.5740733111160316`*^9}, {3.5740733441100893`*^9, 3.5740733480412965`*^9}, {3.5740733832037582`*^9, 3.5740734276482363`*^9}, 3.5740740818977857`*^9, 3.574074116810647*^9, {3.574074166481134*^9, 3.5740741666527348`*^9}, {3.57407419825839*^9, 3.5740742105668116`*^9}, { 3.574074252827286*^9, 3.5740742532484865`*^9}, {3.5740743137765927`*^9, 3.5740743140105934`*^9}, {3.574074358345871*^9, 3.5740743585954714`*^9}, 3.5740754073385134`*^9, {3.5741353517646933`*^9, 3.5741353928551655`*^9}, 3.574135465457693*^9, {3.574484765977767*^9, 3.574484862073936*^9}, { 3.5744849882001576`*^9, 3.574485043705055*^9}, {3.5744851789572926`*^9, 3.5744851982389264`*^9}, {3.5744852859110804`*^9, 3.5744852918702908`*^9}, 3.5752146686375933`*^9, {3.575214703316454*^9, 3.575214752674941*^9}, 3.5752147864334*^9, {3.5752148167910533`*^9, 3.575214843825901*^9}, { 3.575214952183691*^9, 3.575214963368911*^9}, {3.5752153437755785`*^9, 3.5752153446023808`*^9}, {3.5752196198004627`*^9, 3.5752196437465043`*^9}, 3.5752196892985845`*^9, {3.5752197843027515`*^9, 3.5752197899967613`*^9}, { 3.5752199889907107`*^9, 3.575220008537545*^9}, {3.575261680795985*^9, 3.5752616868331957`*^9}, {3.575261830057047*^9, 3.5752618478410788`*^9}, { 3.5752619099135876`*^9, 3.5752619409420424`*^9}, {3.575264359975891*^9, 3.575264383391532*^9}, 3.5752645697806597`*^9, 3.5752647035352945`*^9, 3.5752649185816717`*^9, {3.5752649540873346`*^9, 3.5752649605925455`*^9}, { 3.575264995458607*^9, 3.57526500274382*^9}, {3.5752784049084177`*^9, 3.5752784183556414`*^9}, {3.5752784887897654`*^9, 3.5752785288974357`*^9}, 3.5818296394253874`*^9, 3.5818441540684466`*^9, {3.581845121082945*^9, 3.581845122237347*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plota", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotb0", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Axes", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"AxesLabel", " ", "->", " ", RowBox[{"{", RowBox[{"xl", ",", " ", "yl", ",", " ", "zl"}], "}"}]}], ",", " ", "\n", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", " ", "->", " ", "True"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}]], "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.5740711445842266`*^9, 3.5740711934435124`*^9}, { 3.5740712484648085`*^9, 3.574071311114519*^9}, {3.574071353780594*^9, 3.5740714392063437`*^9}, {3.5740717257632475`*^9, 3.574071742283676*^9}, { 3.574071857115478*^9, 3.574071918189585*^9}, {3.5740720907414885`*^9, 3.5740720966694984`*^9}, {3.5740721676028233`*^9, 3.5740721835304513`*^9}, {3.5740722327953377`*^9, 3.574072381432399*^9}, { 3.57407241628286*^9, 3.5740725747635384`*^9}, {3.5740726677709017`*^9, 3.5740726864129343`*^9}, {3.5740729230809503`*^9, 3.574072923455351*^9}, { 3.5740729588050127`*^9, 3.574072990707069*^9}, {3.5740730904380445`*^9, 3.5740730958668537`*^9}, {3.574073130155714*^9, 3.57407314478854*^9}, { 3.574073269853959*^9, 3.5740733111160316`*^9}, {3.5740733441100893`*^9, 3.5740733480412965`*^9}, {3.5740733832037582`*^9, 3.5740734276482363`*^9}, 3.5740740818977857`*^9, 3.574074116810647*^9, {3.574074166481134*^9, 3.5740741666527348`*^9}, {3.57407419825839*^9, 3.5740742105668116`*^9}, { 3.574074252827286*^9, 3.5740742532484865`*^9}, {3.5740743137765927`*^9, 3.5740743140105934`*^9}, {3.574074358345871*^9, 3.5740743585954714`*^9}, 3.5740754073385134`*^9, {3.5741353517646933`*^9, 3.5741353928551655`*^9}, 3.574135465457693*^9, {3.574484765977767*^9, 3.574484862073936*^9}, { 3.5744849882001576`*^9, 3.574485043705055*^9}, {3.5744851789572926`*^9, 3.5744851982389264`*^9}, {3.5744852859110804`*^9, 3.5744852918702908`*^9}, 3.5752146686375933`*^9, {3.575214703316454*^9, 3.575214752674941*^9}, 3.5752147864334*^9, {3.5752148167910533`*^9, 3.5752148246690674`*^9}, 3.575214868926345*^9, 3.575215096047144*^9, 3.581829745037573*^9}], Cell[BoxData[ RowBox[{"{", Graphics3DBox[{ {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.5], SphereBox[{0.7246033689285525, 1.2689026149147111`, 0}, 1.246]}, {Opacity[0.5], SphereBox[{-2.607499602989059, 0, 0}, 0.255]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.21522]}, {Opacity[0.5], SphereBox[{1.311473066398528, -2.222607300726417, 0}, 0.257]}, Text3DBox["14", {-2.607499602989059, 0, 0}, {1, 0}], Text3DBox["21", {0, 0, 0}, {1, 0}], Text3DBox["16", {1.311473066398528, -2.222607300726417, 0}, {1, 0}], TubeBox[{{-2.607499602989059, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{-2.607499602989059, 0, 0}, { 1.311473066398528, -2.222607300726417, 0}}, 0.02], TubeBox[{{0, 0, 0}, {1.311473066398528, -2.222607300726417, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztWnlQnOd5/4UF67Asy45j2U5iK3bs+IjtNJ7maJI2/aNRkzRtZjr1dKb5 x6Npm0ynTitbrWK3cpFTCckCHWB5OSwJCxCXDsQhELDszbHcu5wCJASIQ4sA iUvi2D7v9e27y0KUmfa/7szLt+/3ft/7/J77ed7lZ2+9+8u//+e33v3Vjre2 bd/51r/88lc73tn2o1/vpFumzwEoopG8Dex7gL7KP0UIBAJs8X/xsptdotn2 3xE3fsMvJnCKAU5YLb0XtsTGt8XS+xGWvvU7lzhxRIcshSGJYje++7v52COp jI6OYnx8nM/e0AE8gPn5edhsNrz55pvYvn07v05PT7+hY9m44qmSkhJ4PB6O kc137NjB3tpkyO1Z8f4ujQoDceDAAeN9et4kWc3MzOTbsystPRRB2nLD7xns w2SsiRl9vrEKU01NTYxcDF+OwdTUFJvyK3uELccY0KMjqOYrgtb3IwCLivD4 11fBIdl+UL7C6EvJIZxnNrYJIj+QsPUlRX2TIY8v83vrDJq6qAsKCjihzZII k7PZbOazTasTvl92N0S22Kc0KTCKTAq7d+9Gf38/Y1ntxLhXb23SJKM0s8ru Kw0iJsQg1PcHI7++dW0VRcnl7vouDNR3o8VchKGiaky3dOHeiP8hDafS4AYD yXOCyJ/ev6gek7fD0JgMiQsO16PKXI6mlCr0ptsxkmvHZIEFs0VluFdTjUW/ X1kW24cZAMP2miDyQ2ObVSTyKP+yfoW6mA4Uj4YBPMjfzjFfRpHZzb+3Z3ox eKEdE2VtmLd5seRuwHKNE4uOEsn1A1zzuqClil8VEH4WGdfD96MpE9871EiF x+SaG3A5pZN/H++cNNaWb0wiMEIxsb0dgbYaBIZ7iHnhQ0ytaj822Dw2NpaL QPg2/tIQ50Nr41sn91Rctbga+Pe2er+B9wHJQ2D0GoYqCkJcgW3JxM9mr4g3 /k6yoCKq7lgbw4zO5/IiaEb0NW+fw+DLJP96iytXuKCMxXz2sqD7t2EhRudU hfAHw4KV1+5DYKw3JHbse78BGQ2hECwX+1GRWcZnunfJfKQg/M39GYOK8IbL Cf8RoX24bxiBDicCPe3KrYp9AcSnzRlC6G+agJ0QZZvr4KvvfVhu29nZabjC SwLQX4fp4u233+ZgmC6+IAW63E7m1eDE3n/KxwXrNGYdV2C+FEDf+StoOt0B S3IL8s3VRK0Uo0N+RY3xqLaT1H4egX32kQluq/TNBb8fZe/EoyS3G3NlDkwW 1iC/7h4602tQm+zEJXMlEStmxLBFeh0Dz4xI+uSLuk+ujyjvoaEhPne73U/w xzYiL6MTuc5l3G3vgj+TQmZ6Mco+SEcjEbNQCO2kcEpEPx8hfH5NEPyJxuGq FYN4k8mGzR6X99p8i8iqXOIzZQhezwhax4RSt0aw7BcEVX7hkefpVQxMSvjL cg9fy12cvrQQYsLZqX5cnQ6lpScySetrEbLqF1ehyj4khWcUN42zOHlhXmpM Ur2whLF7guoTEeT6vCCyzeAwUn2zVXpKpOJB+RErItj3pxWY+jtIy5mR9i/u nXUFcGdR7PlkhAD2VQHmpQgQHtNEEKFaeNZQ6AT2p92Cf2bGCJuV7QHcnb0Z QpXZjvKMNag+snY8+apB9Sb+23wL43eXsE7eqx8MlmJPSCkos2Svq4TxnGZi K7PblrCYqkteGc7zBophxCaOEYqATFUmxMZ1Gdt9MYLEHzKi3+c184sKJtaY iBKPFEifM2Bcx56EIfjvqnrGhITUGQPGlzQ/Y1DYbHME2QvW8Ydrq+Alg2oP fhN3FTfnA0aSM5cEVlDVk8bmCDKnwWGIPIdvrhJRmSBoi1cM6l3YFduNm3MB qCIrv2bW2FXFBT1DBEVvisC92EW2LOtC8odSgrKmIIhO/Ot7HRib1cqD9lvG lsoz9QC36X5AvLq2Cl5X4s5awuiM/ibDNAjvmE4/2ijzpP/FGBCiI/tApJ5C Int5bWR/IN9MOnEXw3dCC5jslBFcm9aRhXZ+Sk2mNUBFhX7Tes4gJbwoMYaX ACwA0PWbEs+R49O4MRUIeiXDeG4R/gW9xwzVXlRkbBtWF5iIFSs7dpm/+Crj nlHx+XzfkDvFJ9zC0EQgxFfznQHMLC6FgNPz2Srg1hviElzKTm1VHX5Lbn1o /zAGx8U2qgSqYJH99gCfPavpUOlOaSOSBYnqC89o1PWCgn3IW78j3zz44TVc v6kHJorwQ8Hw8pxkVo+taxMWIWFl6aQ0wfjweDzfljsc+K9OVPaI3P6IvLc3 rsXYVbGvtlPJTZgJfUQO0sQfyeGDBm0KPrKqar4nd9i/pxEVPWKHR+W9wyl3 jF2/Irdhr+nVoUyB4iBAJM7oSFITUEKQKeM6ceIE1IdsVh1J7HvfgbIuQV1V k8nFQXWplKmr60lJK/TgKCiRtaGt+hqBZAFbfciplNh+u/sSStr08oYqJPeU AfIFzeNVonxCk9VK34qWgg67vZY1qsDFiCiX+a6yr12FKGzWrdYEa8vwCoB6 Tg0BGH64saacTNxeVV/9R0ogWZ047wnF4PX0wSed8cUwTTIMW3UM61aThoYw NG5HiuU/kE+3ty8hz7XMZ6qxyE4eRP/MSjjsw0xdh/P7G5Gi7PPewxnLIp+p 9iE7fwHjC7rjrcdQ/y00OPvQKEcTG66raGbD3ReFFncfvdpS3YdWGkIxwpr0 ro308LiGOyaCTIK8hAD1Ns1R73NXM1fKFY4AZhdEPyTC/mYMElAPgSvIaoA5 rhLJcRakxFUhNc6KtANWfErjxEEbTn5kw6lDNqTT+CzeFoXTCVay8YzDVcg8 bEHmEQuyjlTAW9MHb22vMjw9DXwhPPRFknPYvWjjYeWu3oZpnLowq8UKkYBm hlv5TFSdX0KNs5esth6JcRVIIp6OE0+fxNmIRzvx6CD+HMSfE58edBF/LuLP Rfy5kR7vJv5oJLhw+rCLGHQRc04aDmQddeDMURvOHLMi+1gVshMrYTnXAF9d r+qt9LpARBMjUekO8CeGD03i0xwRo5+S9/SEJuS4Bdf7x1FNHB2OK8dR0tIx 4iaJuPmYuDke5ySuXMSVmzRXTWY3gEbXIJkbDfcgmdugSSq7pXoQrTXB4a0d QOW5NpxJdBMzLmQnOZCTZKdhpWFBblIF2up69X5e1RWSuYcNBf3QYMmPlNMT fPZIqLMJGcSgxlyMDw/U4MZnxbhjcWNhzC+b0w3IzfIgnrhMIJ0dIRs8Shwm EodJxKGHOPM4B0UuiSKxD5AF5n7sQu5xBw0bDcJ8vBxtnh69N1IWKJurnxtI R/Db44Mh6UkPBlESkq++i8+rzE60narDyYM9uFNah4UqBxatl7A04ZfProfb 2UPwL9OoJBaspDA7seFELUEf7J96Utpom2cA1gIf8j5x0LDSqIT1ogdjQ36j KCfUEvBfGYCvY2/iEMbnF6U3PRZiVWxkmy38XvWpHvRc7Edu8gjueSiae68g 0NaI200usiY/ybmOQFbQqKJhp7kXA/2Tz0g+bBe9yDfbaViQZy5DY10LF6FU vwhz4nxVtn17Eq7ynner3EEHlk0OpOZXKG2cddyMUvY9NQFPxnnCUCrxWAlL K2GclNXUepLKJGyFrchPrkJe8mUuJe20VxRi8hRMdIHvxXXzzldEvodDwKS9 c47PE+M64GsNYFgmjWvNUxQRmnF090muvnjyL4biBZnO2xv6kZ9CCFL4AaDK dWHUd8V28u43mCm3rEh9mYd9SDxEiaCsm8+XPW2YsXfjRskVeLO6cO5gDX79 i5P4z505JIuWlySAsRsTyE+1wFpUy++wWKM6N+5kIlrgLySUtLPLGJsLaFky GpfTaozg6usJaF3TOsyVVGD8nB19nzngIVG/94sk/Ns/phGEZtndCgx5qRUY uHqDt9HsY/xoF+o+Es1P5ZI5cxGjs3qdFY2qk804m9qNojO34OsPrJNEZlq6 MNXYhTFyPHNsLj7YmcVAqAa4vfEqau1NvIg9evSocu9wDOJhjuEncikxbQ4j 0/qhUgzv1+2nu3Hh1DUUnZ+GdzDY+cXHXSLCjXz2mnzeWtxgbK+i/QMRSMsf un4slw4nTmL4tt44xcBHpN1nBrB/ZxUKi+bQMhxsqtzObh4H2ex1ycvojeAx gorFVCFEYlxS/3O5lHBoFEOTelsbgw6iXnt2DB/tdqLFtYDR28G+ITerlmxf UHtDPn+/LZ0kvV0uHdp3HYO39PY3Bl0UL+qLJnH4g1q01i9j5E6wrGSBQG2l fiouvVAXEuSk3IPWKw7a8CO5x0cfdhl94gZJs8BcgcbyGRzb1wpvi3B7VRix qK32fl2L5G6nOLdjCU//7Z3mspP/M7nDgVgqmkf1pB2DQrMNGfGtOPZRD3wd AQzNBE//Gmp7wyhu4EJX93p6eowiXBe8KG/E/xlozaHoQa6xg3saEw1dSjH7 9zhR3jmtKSYapSluZCW1oyBtkMUAdW7tawwK4TV5j9lAfFyJ9rqJG7zq1oRw ZauyaUUyqroofnZspKDdd7IcY2cu4/a5Euz9hwxc7gqok6bKE/UUVTtRmOGH 71pAnSJbimtXAGLlQW5WtebcJqMkEXrTAIXapZDRRowUUCorb4JlTwaslgEs uyiFT1I8T2/D+VN9KMq/zYLA85pYxqTjvWqgaOSxgTmpXuqq0+QQFJtXxP+S 5A5+neiawNzVSXTYJnA62Y3+XDfsR3JgSfeh+UZAdTG+hm6KOvV89vUQxbA6 o9g4ZWYNrvo/jxAEwQ51qG8IlswaFfHZrY7OZaRYl9HsvMdDQGDKjxFnuTzU I15TS2ErFtJ9WW7ndl7jwYnJgIoJddKrlKBF3nAAfHTbtYNGEyaG52C/OICK DItBtY14zkstJ8rN8ieBaJ6HRIlQyiT/mOYKWgO7EfOuYgSaROe3VOvDjK0T IyXd6MzphCOFyghzDVylbnVgy9JpPqU0W1GzzPUxxNQEr0REHVDKTU72L9+X VBbH/ZgvK8S9y6WYLbFQ5nTgaoYTTSl2lFGskT/dvSJ3ZBVDXvIlqiAqaNio hpkwztxYlcFqHlGLGQzKzu+P5VNzvi7MervQl1rI/9Phen03Ouq7XpcErIV1 VCDR5slWXiyxoulpGY+CBGw0LLruVF/8rqRivVhLBV85Dap0KIBZqRBsqx94 Su5UQ3VsHpWKCVQyJnC4ldwOWbSURze7ZGQYGxqnuraMRgUN2u0TqjKPO1FF dS+rf0cHp2S+2cir+jra+lyWjyp+B5XMNl4+J/Dty3m1Sj2QPKP6d0mBynxU XainFqCSRhVyPrZR28JaGCdvZ1hrE8WaHBPrdkSk3ILh61O8L2I9EhusXyrM aqMeyk0doot6KtZt2KnHshGWKirhWSlfTiz2MgziJwz5z2briYtx1v8hJ5FU nmjhfeGZY6xHtLN+MYo3j4/yNvI0tZSsrUyPF60mazlZ6/npARdSqRVNIcaT ibCZN3VWAlJFRSpr9ipI7n1Uno+LWI3/4JfHMTowTuz18a4760gl78JZN56R UMX788/irdSwW4malTfwJw6Khp419qm0ewrZAmv6P6HBDgHqaAz2j8v/2tkr LYsdULDjCjaa2XD1kVibXH1R/GjDxA86lHPL30//L/7h7/8v93PB5/4Hg171 cw==\ \>"]], "}"}]], "Output", CellChangeTimes->{3.5818731594289536`*^9}] }, Open ]], Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{"k", " ", "=", " ", "1"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"conn", ",", "P"}], "]"}], ";"}], "Input"], "\n", RowBox[{ StyleBox[ RowBox[{"P", " ", "=", " ", "4"}], "Input"], StyleBox[";", "Input"], RowBox[{"rln", "=", "1.246"}], ";"}], "\n", RowBox[{ RowBox[{ StyleBox["tpyrn", "Input"], StyleBox[" ", "Input"], StyleBox["=", "Input"], StyleBox[" ", "Input"], RowBox[{ StyleBox["{", "Input"], StyleBox[ RowBox[{"{", RowBox[{"0.0", ",", " ", "0.0", ",", " ", "0.0"}], "}"}], "Input"], "}"}]}], StyleBox[";", "Input"]}], "\n", StyleBox[ RowBox[{ RowBox[{"conn", " ", "=", " ", RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "6", ",", "7", ",", "20"}], "}"}], "}"}]}], ";"}], "Input"]}], "Input", CellChangeTimes->{{3.5818443673676214`*^9, 3.5818444580193806`*^9}, { 3.5818445098894715`*^9, 3.581844510466673*^9}, {3.5818445637563663`*^9, 3.5818445673443727`*^9}, {3.5818448617792892`*^9, 3.581844867270499*^9}, 3.581845249689571*^9, {3.58185623892412*^9, 3.581856320290263*^9}, { 3.5818564278056517`*^9, 3.5818564295528555`*^9}, 3.581856562340288*^9, { 3.581856623461196*^9, 3.581856632025611*^9}, {3.5818567525378227`*^9, 3.581856754784227*^9}, {3.5818568288687572`*^9, 3.581856844655985*^9}, { 3.5818577879232416`*^9, 3.581857791604848*^9}, {3.5818586018530717`*^9, 3.5818586056750784`*^9}, {3.581858642896744*^9, 3.5818586480447526`*^9}, { 3.581858716762873*^9, 3.5818587231432843`*^9}, 3.5818590362046347`*^9}], Cell[BoxData[ StyleBox[ RowBox[{"<<", " ", "\"\\""}], "Input"]], "Input", CellChangeTimes->{{3.5818443673676214`*^9, 3.5818444580193806`*^9}, { 3.5818445098894715`*^9, 3.581844510466673*^9}, {3.5818445637563663`*^9, 3.5818445673443727`*^9}, {3.5818448617792892`*^9, 3.581844867270499*^9}, 3.581845249689571*^9, {3.58185623892412*^9, 3.581856320290263*^9}, { 3.5818564278056517`*^9, 3.5818564295528555`*^9}, 3.581856562340288*^9, { 3.581856623461196*^9, 3.581856632025611*^9}, {3.5818567525378227`*^9, 3.581856754784227*^9}, {3.5818568288687572`*^9, 3.581856844655985*^9}, 3.581857802602867*^9, {3.581858309993758*^9, 3.581858314236966*^9}, 3.581859225058566*^9, {3.5818729123401194`*^9, 3.581872917004528*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}, { 3.575264402142765*^9, 3.575264409568378*^9}, {3.581845542377285*^9, 3.5818455539837055`*^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[{"3", ",", "1", ",", "1.1923838951467836`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.2114800653858895`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "1.1933853441081266`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "1.199267654205398`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "1.2069690039433376`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "5", ",", "1.195543725374539`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "2", ",", "1.1785640296748388`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "4", ",", "1.1788339922240658`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "8", ",", "1.14403898047846`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "10", ",", "1.0868815247622807`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "9", ",", "1.0040213987250808`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "10", ",", "1.0766271585028682`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "11", ",", "1.0935615015698694`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "11", ",", "1.0720757243314814`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "13", ",", "1.0724881883841453`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "14", ",", "1.071049190486654`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "15", ",", "1.0661183191457233`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "17", ",", "1.0719841136637909`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "18", ",", "1.0664494108468507`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "2", ",", "1.1562687596527734`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "6", ",", "1.161673179423669`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "7", ",", "1.167976188906801`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "14", ",", "1.0686398014945293`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "16", ",", "1.0542334443134826`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "8", ",", "1.1224660772895214`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "1", ",", "1.1957634371644046`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "2", ",", "1.1956304048361095`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "3", ",", "1.1971056635580009`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "3", ",", "1.197149311741623`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "4", ",", "1.19568151067064`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "5", ",", "1.19721747246029`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "5", ",", "1.1971823314087173`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "6", ",", "1.19702984496147`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "6", ",", "1.1970366808082742`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "7", ",", "1.1971450147105285`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "7", ",", "1.196982491633962`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "8", ",", "1.195726255618407`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "9", ",", "1.195723183909232`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "22", ",", "1.1120528391406064`"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "12", ",", "1.1970320441905533`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "12", ",", "1.1969674368653263`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "13", ",", "1.1957800146509792`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "15", ",", "1.1957744341877028`"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "16", ",", "1.195768314634349`"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "17", ",", "1.1956615557871957`"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "18", ",", "1.195737882264992`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "19", ",", "1.1956465862942207`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.581873159475754*^9}], Cell[BoxData["47"], "Output", CellChangeTimes->{3.581873159475754*^9}], Cell[BoxData["25"], "Output", CellChangeTimes->{3.5818731594913535`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 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}], 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", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"nj", "+", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"nj", "+", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tlo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tlu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8e", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpln", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rln"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Plot8f", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpyrn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rln"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], ";"}]}], "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.5740702979395394`*^9, 3.5740703017771463`*^9}, {3.5740715898714085`*^9, 3.574071671631152*^9}, 3.5740719856597033`*^9, {3.5740752116205697`*^9, 3.5740752571102495`*^9}, {3.574075295283517*^9, 3.5740752956735177`*^9}, { 3.5740753389479933`*^9, 3.574075350632414*^9}, {3.5740757330202856`*^9, 3.574075745749908*^9}, {3.5744844155075517`*^9, 3.5744844203591604`*^9}, { 3.5744848749751587`*^9, 3.574484876160761*^9}, {3.574491080910419*^9, 3.574491088382832*^9}, {3.5818299776495814`*^9, 3.5818300037484274`*^9}, { 3.5818446331296883`*^9, 3.581844641460103*^9}, {3.581845825976983*^9, 3.581845831624193*^9}, {3.5818484182959366`*^9, 3.581848428857155*^9}, { 3.5818727837178936`*^9, 3.581872791751908*^9}}], Cell[BoxData[{ 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[{ RowBox[{"Plot9a", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot9b", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "*)"}]}]}], "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.5740716827539716`*^9, 3.5740716897271843`*^9}, 3.574073190995821*^9, {3.5740743978919406`*^9, 3.574074401682747*^9}, {3.5740753037855315`*^9, 3.574075320758362*^9}, 3.5740757790247664`*^9, {3.574341432758819*^9, 3.5743414337884207`*^9}, { 3.57434147314729*^9, 3.5743415190269704`*^9}, 3.574501459301843*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"Plot1o", ",", RowBox[{"(*", RowBox[{"Plot2", ","}], "*)"}], "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8c", ",", "Plot8d", ",", "Plot8e", ",", "Plot8f", ",", "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.5740716827539716`*^9, 3.5740716897271843`*^9}, 3.574073190995821*^9, {3.5740743978919406`*^9, 3.574074401682747*^9}, {3.5740753037855315`*^9, 3.574075320758362*^9}, 3.5740757790247664`*^9, {3.574341432758819*^9, 3.5743414337884207`*^9}, { 3.57434147314729*^9, 3.5743415190269704`*^9}, 3.574501459301843*^9, { 3.581844653612524*^9, 3.581844658729333*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.9482045318, 1.87218934272, 3.4895680315999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.7419494268, 2.2170265432, 1.6434191131599998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.2406311424, 0.76499887932, 2.0991076408}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.1131346124, -0.10454342177199999`, 5.456772797599999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.4709457426, -1.7748306592, 0.86562678882}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4230066772, -2.5790980448, 4.106374598}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.58761550438, -1.0727596556799999`, 0.37401456992}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{7.3436642086, 2.6021527019999997`, 0.187390899338}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.0451044763999997`, 0.090001980202, -1.7150397285599999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.356239374399999, -0.92830900024, -2.622939688}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{9.692404653999999, 3.4438366624, 0.5460363277}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.0998635312, 2.2816551724, -2.9011073552}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.647111205, 0.30441596134000004`, -4.644946508}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.417320523399999, -3.0965050236000002`, -1.5147098753}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.4277739913999996`, 3.446860224, -4.8883432168}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-8.944451103199999, -0.6880492366, -5.5289603307999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-8.7029441204, -4.0682021328, -2.4281089374000002`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.9722730746, -2.8742732459999996`, -4.4204470592}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{2.7794090008000003`, -2.3636692808, 1.33066946016}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-5.644800534599999, 2.4439826358000003`, -5.7479795742}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.6168925647999997`, -0.23878577735999998`, 2.7036309881999996`}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.435186922, 3.6496278238, 4.3216143894}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{ 1.6448553049199999`, -0.053932780039999996`, -1.6553432842199998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.228931817, 3.6156127558, 0.26671592764}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.099460058832, 2.8139909866, 2.6605452354}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.7163181758, 0.4264166719, 3.4393013199999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.50218099192, 0.58583395726, 6.4653195638}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.6252933575999995`, -0.44408560999999996`, 6.7555814774}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.5928760688, -3.2440926241999994`, 1.68461513996}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.783128477799999, -1.6582156677399997`, -1.12865775076}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.47458578764, -2.9802868746, 4.4688240448}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.6033295368, -4.0630998726, 4.8082188344}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.7118271943599999`, -3.0815761881999997`, 0.17954664671200002`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.2610401831999996`, 3.2066760494, -1.40981118504}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.356763293, -0.7413395097999999, 2.8105894797999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{10.754241693400001`, 2.8241955069999998`, 2.1512640784}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{10.514435463999998`, 4.738676917599999, -0.7713861531999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.34487499499999996`, 3.0708047499999997`, -2.2797654464}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.4777487562, -4.0054632296, 0.027945268087999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.6949382486, 5.1317399256, -5.7326727936}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-9.9159592398, 0.22192942144, -7.0509456512}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-9.48642452, -5.7366412182, -1.59678067548}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-11.7227262684, -3.6250613858, -5.0990476658}, 0.12]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.8445439511567754`, 2.044691255144647, 2.5660475453870726`}, 1.1923838951467836`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.4633855497979362`, 0.9442419722897706, 0.9690708939623}, 1.2114800653858895`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.0944178371, 1.31859411102, 2.7943378361999995`}, 1.1933853441081266`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.5304687745136114`, 0.8833476431875975, 4.473643440821839}, 1.199267654205398]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.855604341087885, -0.5055233929596679, 1.4820721779459445`}, 1.2069690039433376`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.7680706448000003`, -1.3418207332859997`, 4.7815736978}, 1.195543725374539]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.20152982927000007`, -0.7012584213399999, 0.33404686502}, 1.1785640296748388`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.7921476755, 1.68357579066, 1.1432492700689998`}, 1.1788339922240658`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.316880507672855, -0.4909635772883644, -0.6712586493679087}, 1.14403898047846]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.2006719254, -0.41915351001900003`, -2.16898970828}, 1.0868815247622807`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{8.518686692823703, 3.0232284236777196`, 0.3668132118437239}, 1.0040213987250808`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.572838656989817, 1.1850062708353586`, -2.307628530828307}, 1.0766271585028682`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.0016752897, -0.31194651944999996`, -3.6339430980000005`}, 1.0935615015698694`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-5.886380468234266, -2.01159071960186, -2.0692420130594735`}, 1.0720757243314814`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.7638187613, 2.8642576982, -3.8947252860000003`}, 1.0724881883841453`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.794915572057272, -0.1914427007763193, -5.086620344398283}, 1.071049190486654]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.560132321899999, -3.5823535782, -1.9714094063500003`}, 1.0661183191457233`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-9.4583620889, -1.7811612412999998`, -4.974703695}, 1.0719841136637909`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-9.337608597500001, -3.4712376893999997`, -3.4242779983}, 1.0664494108468507`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.9939462952823326`, -1.3619707287967469`, 0.8201503449357461}, 1.1562687596527734`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.105728949581225, -2.0735047817195884`, 1.1015084152989651`}, 1.161673179423669]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.6037715534537846`, -2.469834015675231, 2.6985555055471426`}, 1.167976188906801]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.138310246686039, 1.39051990744228, -5.204876974379824}, 1.0686398014945293`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.554233525559612, 2.9373033924465513`, -5.325119931843648}, 1.0542334443134826`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.117424733526211, -0.6434806261634012, 1.5731594126814261`}, 1.1224660772895214`]}, {Opacity[0.5], SphereBox[{4.298079910595036, 3.1492005332013164`, 4.087356659009602}, 1.1957634371644046`]}, {Opacity[0.5], SphereBox[{1.51525218830062, -0.13159461968925149`, -1.1064588147504786`}, 1.1956304048361095`]}, {Opacity[0.5], SphereBox[{2.0918208881151523`, 3.2218378296545764`, 0.6543296409158599}, 1.1971056635580009`]}, {Opacity[0.5], SphereBox[{0.5618964552909924, 2.6459180045742055`, 2.3741773916343663`}, 1.197149311741623]}, {Opacity[0.5], SphereBox[{7.300830386381007, 0.521746352051365, 3.0619624286490588`}, 1.19568151067064]}, {Opacity[0.5], SphereBox[{1.9557233348499672`, 0.39146748387963826`, 6.181376775204697}, 1.19721747246029]}, {Opacity[0.5], SphereBox[{4.199557985567636, -0.3484904085803161, 6.389912993023789}, 1.1971823314087173`]}, {Opacity[0.5], SphereBox[{6.276982351568762, -2.8304032774806336`, 1.4540185792208282`}, 1.19702984496147]}, {Opacity[0.5], SphereBox[{5.695229765225918, -1.6910499870677638`, -0.5671435356219492}, 1.1970366808082742`]}, {Opacity[0.5], SphereBox[{1.0231571618461788`, -2.8673335035605145`, 4.366777617266447}, 1.1971450147105285`]}, {Opacity[0.5], SphereBox[{3.2709868775452358`, -3.6452505445296084`, 4.610601057187033}, 1.196982491633962]}, {Opacity[0.5], SphereBox[{-1.6768554847152173`, -2.5159953759894895`, 0.23429894697254}, 1.195726255618407]}, {Opacity[0.5], SphereBox[{6.565852641615356, 3.036472688521884, -0.9601194337919028}, 1.195723183909232]}, {Opacity[0.5], SphereBox[{-3.85412303636011, -0.596154161857334, 2.7796896877658757`}, 1.1120528391406064`]}, {Opacity[0.5], SphereBox[{10.455268328658445`, 2.998663145901505, 1.6992923313280768`}, 1.1970320441905533`]}, {Opacity[0.5], SphereBox[{10.28297511620462, 4.3740869628657615`, -0.4004376900608081}, 1.1969674368653263`]}, {Opacity[0.5], SphereBox[{-0.8389775856094583, 2.8486261758226448`, -2.454699151355734}, 1.1957800146509792`]}, {Opacity[0.5], SphereBox[{-5.7422781909346, -3.7495528150639124`, -0.40637780048073346`}, 1.1957744341877028`]}, {Opacity[0.5], SphereBox[{-2.9012633194972626`, 4.65737315610026, -5.494957368956119}, 1.195768314634349]}, {Opacity[0.5], SphereBox[{-9.642423088440754, -0.03428259631049724, -6.622418095656846}, 1.1956615557871957`]}, {Opacity[0.5], SphereBox[{-9.26583746008169, -5.266896126058477, -1.8308391882616277`}, 1.195737882264992]}, {Opacity[0.5], SphereBox[{-11.229868044555046`, -3.4136692101186865`, \ -4.9079806376420345`}, 1.1956465862942207`]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{6.844635691238142, 3.677184208137062, 0.9325605442325737}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-3.7513092424521326`, 0.8676162172342943, -0.7895177532563684}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.062476463552646, -0.1503142390694051, -1.6977622317807595`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{9.193370417886921, 4.518913830166249, 1.2911362636379502`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.7854918950748675`, 3.077988841992855, -1.9760309079141283`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.343208715145652, 1.092135509092326, -3.720313515695543}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.120839236692076, -2.290610796988615, -0.6116063842413624}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.1369310499057725`, 4.2198681735465104`, -3.9612213389924826`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-9.641011942810913, 0.10553257063770155`, -4.609704701531468}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-9.405418784608834, -3.280346441905804, -1.5084281468697658`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-10.66877395978059, -2.0806950230725487`, -3.501142908748168}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.356331250953822, 3.242869463442873, -4.844927041783573}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{7.842692725961859, 1.5271211958629378`, -0.5577787455565737}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.3388997103478673`, -0.6876122568302944, -2.640561703863631}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-4.650002285247353, -1.7063037614105947`, \ -3.5481171442192405`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{10.191438890113076`, 2.3687594946337507`, -0.19906360823795013`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.4142351673251325`, 1.4853215028071454`, -3.8261838024858723`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-5.951013694854348, -0.48330358641232507`, -5.569579500304458}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-5.713801810107923, -3.9023992502113853`, \ -2.4178133663586374`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.7186169328942262`, 2.6738522744534885`, -5.815465094607518}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-8.247890263589085, -1.4816310438377016`, -6.448215960068531}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-8.000469456191167, -4.856057823694195, -3.347789727930235}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-9.27577218941941, -3.667851468927451, -5.339751209651832}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-4.933269818246176, 1.6450958081571287`, -6.651032106616428}, 1.4]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.9802817545650313`, -0.8716781245883667, 3.648079479708004}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.5987621983847156`, 1.063906928775379, 2.681905353679227}, 1.125]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-6.344174788811662, 3.080366144134434, -6.862006311431131}, 1.246]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{2.436493947559417, -3.632976010938786, 0.6931480256298421}, 1.246]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.7419494268, 2.2170265432, 1.6434191131599998`}, {3.9482045318, 1.87218934272, 3.4895680315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.7419494268, 2.2170265432, 1.6434191131599998`}, { 1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.2406311424, 0.76499887932, 2.0991076408}, {3.9482045318, 1.87218934272, 3.4895680315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.1131346124, -0.10454342177199999`, 5.456772797599999}, { 3.9482045318, 1.87218934272, 3.4895680315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.4709457426, -1.7748306592, 0.86562678882}, {6.2406311424, 0.76499887932, 2.0991076408}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.4230066772, -2.5790980448, 4.106374598}, { 3.1131346124, -0.10454342177199999`, 5.456772797599999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.58761550438, -1.0727596556799999`, 0.37401456992}, { 1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.3436642086, 2.6021527019999997`, 0.187390899338}, { 6.2406311424, 0.76499887932, 2.0991076408}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.0451044763999997`, 0.090001980202, -1.7150397285599999`}, {-1.58761550438, \ -1.0727596556799999`, 0.37401456992}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.356239374399999, -0.92830900024, -2.622939688}, \ {-3.0451044763999997`, 0.090001980202, -1.7150397285599999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{9.692404653999999, 3.4438366624, 0.5460363277}, {7.3436642086, 2.6021527019999997`, 0.187390899338}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.0998635312, 2.2816551724, -2.9011073552}, {-3.0451044763999997`, 0.090001980202, -1.7150397285599999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.647111205, 0.30441596134000004`, -4.644946508}, {-5.356239374399999, \ -0.92830900024, -2.622939688}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.417320523399999, -3.0965050236000002`, -1.5147098753}, \ {-5.356239374399999, -0.92830900024, -2.622939688}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.4277739913999996`, 3.446860224, -4.8883432168}, {-2.0998635312, 2.2816551724, -2.9011073552}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.944451103199999, -0.6880492366, -5.5289603307999995`}, \ {-6.647111205, 0.30441596134000004`, -4.644946508}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.7029441204, -4.0682021328, -2.4281089374000002`}, \ {-6.417320523399999, -3.0965050236000002`, -1.5147098753}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.9722730746, -2.8742732459999996`, -4.4204470592}, \ {-8.944451103199999, -0.6880492366, -5.5289603307999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.9722730746, -2.8742732459999996`, -4.4204470592}, \ {-8.7029441204, -4.0682021328, -2.4281089374000002`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.7794090008000003`, -2.3636692808, 1.33066946016}, { 1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.7794090008000003`, -2.3636692808, 1.33066946016}, { 5.4709457426, -1.7748306592, 0.86562678882}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.7794090008000003`, -2.3636692808, 1.33066946016}, { 2.4230066772, -2.5790980448, 4.106374598}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.644800534599999, 2.4439826358000003`, -5.7479795742}, {-6.647111205, 0.30441596134000004`, -4.644946508}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.644800534599999, 2.4439826358000003`, -5.7479795742}, {-3.4277739913999996`, 3.446860224, -4.8883432168}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6168925647999997`, -0.23878577735999998`, 2.7036309881999996`}, {-1.58761550438, -1.0727596556799999`, 0.37401456992}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.435186922, 3.6496278238, 4.3216143894}, {3.9482045318, 1.87218934272, 3.4895680315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 1.6448553049199999`, -0.053932780039999996`, -1.6553432842199998`}, { 1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.228931817, 3.6156127558, 0.26671592764}, {1.7419494268, 2.2170265432, 1.6434191131599998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.099460058832, 2.8139909866, 2.6605452354}, {1.7419494268, 2.2170265432, 1.6434191131599998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.7163181758, 0.4264166719, 3.4393013199999998`}, {6.2406311424, 0.76499887932, 2.0991076408}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.50218099192, 0.58583395726, 6.4653195638}, { 3.1131346124, -0.10454342177199999`, 5.456772797599999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.6252933575999995`, -0.44408560999999996`, 6.7555814774}, { 3.1131346124, -0.10454342177199999`, 5.456772797599999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.5928760688, -3.2440926241999994`, 1.68461513996}, { 5.4709457426, -1.7748306592, 0.86562678882}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.783128477799999, -1.6582156677399997`, -1.12865775076}, { 5.4709457426, -1.7748306592, 0.86562678882}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.47458578764, -2.9802868746, 4.4688240448}, { 2.4230066772, -2.5790980448, 4.106374598}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.6033295368, -4.0630998726, 4.8082188344}, { 2.4230066772, -2.5790980448, 4.106374598}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.7118271943599999`, -3.0815761881999997`, 0.17954664671200002`}, {-1.58761550438, -1.0727596556799999`, 0.37401456992}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.2610401831999996`, 3.2066760494, -1.40981118504}, { 7.3436642086, 2.6021527019999997`, 0.187390899338}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.356763293, -0.7413395097999999, 2.8105894797999995`}, {-2.6168925647999997`, -0.23878577735999998`, 2.7036309881999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{10.754241693400001`, 2.8241955069999998`, 2.1512640784}, { 9.692404653999999, 3.4438366624, 0.5460363277}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{10.514435463999998`, 4.738676917599999, -0.7713861531999999}, { 9.692404653999999, 3.4438366624, 0.5460363277}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.34487499499999996`, 3.0708047499999997`, -2.2797654464}, {-2.0998635312, 2.2816551724, -2.9011073552}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.4777487562, -4.0054632296, 0.027945268087999995`}, {-6.417320523399999, -3.0965050236000002`, \ -1.5147098753}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6949382486, 5.1317399256, -5.7326727936}, {-3.4277739913999996`, 3.446860224, -4.8883432168}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.9159592398, 0.22192942144, -7.0509456512}, {-8.944451103199999, -0.6880492366, \ -5.5289603307999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.48642452, -5.7366412182, -1.59678067548}, {-8.7029441204, \ -4.0682021328, -2.4281089374000002`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.7227262684, -3.6250613858, -5.0990476658}, {-9.9722730746, \ -2.8742732459999996`, -4.4204470592}}, 0.1]}}, AspectRatio->Automatic, AutomaticImageSize->True, Boxed->False, ImageSize->{360., 360.}, SphericalRegion->True, ViewPoint->{-1.7118611335559637`, -2.871658377819619, -0.5225989097949617}, ViewVertical->{-0.648277568435151, -0.8264396490358327, 0.9691899665233363}]], "Output", CellChangeTimes->{ 3.581873159553754*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvIdXo1t+Jbrn2s/jGfeE9fw8fh57bI9zatvt7nb3dN9YOVI5R6ooipxz zjkjCQQoIIIESEhCIEBIApGjyJmqoqqAKiqH2/d2t/2W3/4Edd09/8Gs5bVq 6xMK5zvfOXv/fvt3vqM67h7mdcffPcz7tvsfHgxxD/Lyvh36hwcCQ/jSr/w7 4N95CfhDCM//Bfjw8C/89y/ewoPwyr89/7fn//b8357/2/P/k56/dR3+I4bX nqJpZA1F5hkUt82gpJVoIQyEbhoj89sYmX3iv/Mtd9fh32No5SmGV7ZdGBGw TCzx74VtfMv1mV/718/wvWHhvcVtPH72Ptz19n/GyL2nKO6aRknXDEoJsYXo nIGknWBHJCaCnRDriEaifgpj0098dzpy3XX4T+z+ExR1TKGY3ywlRB38JFsQ m3daEbMVMVsRsZXSxmmMzj3F/7X73ccv3/P72yjuYC/4vVJCJHxX+B6HQcxh EPG7pdoZNNvXsLH9Hjun/208WH+Ovt5lDDiW8ejBc9erG6/eo8Q6jVIbv0eI CYl1BmW8unL2rZztS9kvKduWGvk32y5v5vtNhHoaRssqNp+8w+4MXXUd/hjD 97ZQbJlCKZsSWX+hSQEcNCmblrLbUnZbysstZ9Nlen6OzYrZ7Nj002+6px1b 3RlwtiEW2ur65e6Vs3vlbKec7ZSxexIOm4SDb7CuYfPpe3i6WvpdDA4uobFx ECX5JlTkmaDIMaEm04TaNBPSEnW4m9CERHk3xN38PlFmZ5scDinPVcE+V3TO oqJjFpXtPJoF8DVhWDjkUp5Xqp2GtM6Jrafv4LUzHJddhz/Dxsu30I0vc5Sn IWazEqFpQsrmKwTwsip5mkqeppKXVcnLquTwVAqnMO2OvDDqDfxuwyTStSMQ 7bbzTTd326no+uU2XN3cHWahm+XanZkzdKzcdnXv/8HG4+cw6AYhKTFBRtQV m6AtNMHAkWrlKCWnahCc0kToEJJExGuRXtUNqX2O3Z9HpXWB3V9ElYXoWvqI D4v4dT7yZQvf7pjjlXDg2INK/RQqNOPCIN3dGaNLu6LeePWWmhrjdU25pqCs h/0lKvi8kqiyz6LKNvurkNlm8V/4OAMZL1XGIavq2BmqYKkdHvkW3E7vQI5+ DOX8mnT365UcJn4dVdZZ/ApkfPx11/erhO937g5V2+5MNgnEXtkJHL+F8eEF 5BYaEJ9rQHBGM+4maeGboENAnA5BUVp4hTXidowat6MbEJWlQzQ/E51mRGxS C1LzrKi0rfLUa+wyYb8Hefc9fAQZH/8DnwuvrfK9FWHoeCkLqGplNw2TqGwY wdb2m10C4+JuCNgZqFEOlBOSnmmUuwaKw9szj6qeBTa8yGaJniUoHETvEk+n 6F1kAFM4Foh5vj/H084iXGXH3fJOeIot8CwiMjuQb5jYaav7m7Y+EhpjG45F octsQ8735Zx9YS6qunbJyumtYPRt6VrGDVdf/yfqGuwIztHidqaObevgl8Eh S2tGWIoekYkGRMcbcCa8HmfDGnA2pAkXfNQIDtUgl1rMSjIgPakVmUUOyHoe 8ryPIO99BEUfj307R0UfX+9d53sP2Nf77A+H0rIEmVkYwnFUNvb/8vD9BkSW IWpwYnfoSGBeTiWHqapnhadZZVNrHKw1KPuFWVIO3MP/DeXgGqoJ5eAqX1nh e0uI1DjgreyCt9wKr0orvMts8C624i6HsJAsl39oq+8eFGyLLQnNrZHqyoFV vrTCt5Zd8yLvnt8ZSYGH5GBl8yRHcfHaLv9U7Omd7EZ45ujgldOMgGwDQjJb EJFuQkxaK+JT2uAe24iLMY24HNmEG4ENuOnfCHfvJrh7NCA7So+yBANKE43I EQ/y1FsCIQaeMO0pB58QW/xri93a5HsbrkGWOzioAlc5mHLzNGTGEUwsrN/Z GcsLrsMfoHmUMcg2irLuKep1nmO5zLEk2x33IHPc5wWus+V1nuEhqoeI4YdQ jRCjAtb5fB3VI/chItX86hxEL3xrCCUhc8CnvAe+xTZElvWyZ2xn4CGUu+18 xG8+FB7WOaLVww94gvuuiRJGVs4Jldk5qhaOats0KnXjGJ95fHk3E268esdY PMkRVcM7VwufPD38c1sQmtNKBbcjjnOYmGlBSmYXriQ04kasFh5ROnhE6nEn woA7oUbcCSJ8mxHsp0VlphmSzDaUaGYFzgw/58PIc2Gmh58R2+z0U9eAK/o3 d3jsGlrqqN2Jqpbe3WF1cx1+FR0d6+jseLiD9vVf3RXTxsvXEHcNMuI7XcyV krEVHOUqYa56H7LxxxyADZ5wk8OyCdXYFlTjAjZRMyFgAyoB44/h39CPACZD f80I/NVE7Qj8qofgJxuAXzlngqOernFyYNnW6NY3bX3kau03+LjTjmrskWsK lEMPXFpR9K64goZr4FudqNQO70b433GNuhC0Emq7OOKN8BVGPa8VIbkdiMy2 IjbbjsTsHsQkW+DN0b6ZwhFOaMXdRDPRDq+EDnjF8RhDRLbhbogRYaF6yAos KCnsZD9fM7RXj71m/6rHXvHvV5yGF8J8cFy2XbxXODhODBJy9k/eMYStl6/g sTP6R3ZHf3XtNSSSKTbtQERo70eICu3FbyI6pBfRwb2ICupFZGAvrO0Psbby GvpRct9KDTCcSnuWUdHDGel5BFnvhuuMgsKqR56yN9scsW3OwjZHsWZyG/8V tXysmSImnyLbtohA3SgxAc/aUdysHMRdxSgCaCkCqsfgL+dsufRg4aizrYln bMb5bKetb7naqHE+IbZcs1M99tilE+XgA7JjjZTjrNA1VrWMUsmPdiT8F65s IraPu8KhT04d/PKaOSlmBObZEJ7jQEzOABJzh5GaP4q7Xq24HVKPO/FGeKXb 4Z3eA590B3zTKNckO3xT7PBJYiiM74B3ZAvCo5ohF3fRkK6gevw9qifes9vE +Dv+/ZZdfAMlJ005/AKKQSqkj0PG4VOwq3LrOJxr67tzc2jXw62tvUJZ2RTC wzgRRAwRR8QTCQI4VQmcqAROVDwRx4mKDeiFB8NjRv0ATdciHcE95jdOkGML 8n6edfCZS63VYy/YuxccyJeclJecpNrplwz+tTMviReQ9D9CUOMozpVacb60 BxeLenAp145LWTZcyrTiYoYV13Ls8JL0wJ9ORNz9gG29YlvE9Kud5r7FxxfE c778zDVzqoknnE+qbPixK1bKe8lOK0NXO9OXsf+o68r/AwaHltHUMIjSXBOk 2fRpdK5yOld5kgntFO2UdYnkFz77e9BPLDIcO5FnGoRfbtPufHYjOHcAkTmj iMtzIrlwCumls/ANteBMGM1LcCO8o83wjWqHX5gZfjE2+KcPwT+DASGzD74Z nOvkTvjEGlAssjFPMSU6v4bK+TVjgvMrBjuV8yec4i85kO92p/X5TtBjklY4 mO56phgXunen9KDr8OuczjFEhHcjKoLTScQTiURSeC+Swyi/FNcDJ/aPkczH ZE6vr7ce527VElpE5A/SIz6k5japOap8gGoffumKAKqJ1xzjNxzrN5zCt6id JebeonxoC/FNswiWj+KS2I4rkl5cFfXjaoED1/N7cTPbgVuZdtzK6IJ7aieu x7fiZkYrwmW9nMq3rrY+EloTHt4Ikzr7mi8K8yzw5zmHYpsdYGoVJrX/AS+d aZT1UJV5EFsvXu/Q+S+h0/ZDRLMtJVRFJmhounU03UZOckuWCSZOcEsy/443 QU9BLXUsYvTeY8aaMU7wFFLqOEk06AE53QjKGUJIzgSi82YQX7SAVNEyYjMc CKY79fJVIMxHiVj/OiT41CPpbj2S76iR5K5GvLeBYc4M//xh+FHwfmntdLeN EFcPQjX5cyHiT/1ciPhTP+PfP+Wkf+USslIQ78iOcJUDzDz9gteZZfTv/xBR D+xa+/KyUURGdCOa0xpLJET0IYlIjuhHSsQA0sIF9H+EdL7wp3zsQ5oAMsCD Pb3ooSEMuODRBk+KvKrnCWT95NYQ4/voG1c4UU2+5yy/5yR8ycn4EnVzX0LK 5BuinEB4tRM+VYO4Xt6Hm+XDuFE8APeCAXqqPnhl0sVl9sCbIvbO6IRXcivD mxY3YmqRKV8kW36C2vmfcBTq5r+k+a6bf8+237lYJEx97TQnffIFR+SZK08q 6HQUgoIFc2wZgXN1neLdSSxDy0+JbQwtEYvb/8v18l9j8/EzlJcYUSEyQUlo SjnZrMLaSAhLgQk21qrdnOQeqr6HpLBn8LUUE6xxrFuTa2i+Jlx2IKWWKT27 C4HZAwjOdiIsZw7Rhcu0iL2IiGpCTDTr26hGxIfUIjVAhRz/GhQEaFDk24Bi b8KzAUW3+fcNDTK9DAhnNPfP74FflhFJ4nYS4J8FMkz/s4sM/+QiRPXk1yTE T6BkNFcK6VbwO0O0IEO0AoMMYr2DH8iw33X4DqRlw9S6lWRwII6znBAxSCIM kwijnPUxpEeOI0NA1DgyXRiFP8kTENmNc6Ft+My7Bp97a/C5VxO+8GzG57cN OB9hR1LjKooszLeMPirnl2TDT1Az8xVn6WvO2tdI1C0iTDWJyBq6aUk/zuZb sSe9HftSO3AgqQOH6CyOxBJ0F0ejzDjLv6/ydf88Br0MA+4m10GU04si5QID bd3C1wIbFr4iBIaQdXPvXfGlZvo12UhGjD/dlf89V9klZ83ROjq5u5LzLdcq kLCIVczi1bWSwxJKxCJW1EqYdldxdDNoZoU4Mvv0e7ts2SJbZCIDFGITaiQm NPFoErXCUmJGd7EZfUUdGCSGi9sxWiKgDSPFbRgqbEV7ehOyQ8qQ7lXpsiqp NSMIpACCssbJmDmEZYwiKt6M2JgmJMRpkcECN5tFbV6EBnmBdSj1q4WUxUVV YBNkAQSPVQGNqPRrRIVXA8pv1nEaW+BPMxZVqucwqab/P4Et02TL9M9RPcXw MUm2uMIHE8SokHk3Ceb8YbJlYPgDW/btpr0uyzKiwjvJlh6yZQgJkWNIjpxA asQU0iKnyZQZkjIzepZWJi56Ah7RTMzRXbgcI8CCq9Gd2O+vxgH/Juz30+GA jwEHvI3Y59GCa0xrniVjCFMsIE23zpn7GjWzP+Ns/hzSkdeIUE3jdvkQTuZ1 4UyBDSdyu3A424LDrAqO06O6JXfhBHEqyYKTCZ04SdtzkinULdyEc6wUbiWp UVDUxejej+Ia1s91iz8XSLP0Mz77qYtCtfMkKENVDROKij5BCCPKUZZhNG2K PuYMxyTr657dzP5fXaQptkyjZHddTdy1ux5mIYT1sPZfWAsz8r3mf11TG51+ +h1XM39DErEkETVDRQLVlrVCKzGjVWxBFxO7o6Qbg6UOjEoccJb3YqqiF9OV DsxU9mC6woYpqQX6bDUKY6pQGFmNQhqQ1OoJBKYz7GRMIzR1hLNVh3jWTEnx OmTGN6MoXo9ymkZRpA7loTpUkDzVwc2oJVnqowUYCT1q6fprwptQE6xBtRfD k7cSPsXaj1wM+hZUMz938Ug1TR5Nff2vXBp/DcUY0z5tlGKMXBollwaHdqm0 13W4SO/4jJ6xlSbDzixEKkU4kUT6pEbOM+gsIiN6iURaRlbMCjxienEx1o7L cd24Gt+Na8SNeDsLQRuOBDbicKAehwOMOOLfgiN+Jhz2NeGgpwnekjF4iybg VTKBSMUyRL2vmYbewK9qFCfyLThVyCBW1I1L9I5nC+w4nmuDG33jqXQbTqfZ cYY4m2bDuVQrzqV04WxSJ87EmXEq0ogTQY24G9EMReUwyspHIB95Ry79M/FP xM/JKVJX4BRTVs0sgyADUbVTGBWmJRYCikHWxX30IHbHztrqy3fQja+4FiW/ WUy07S4m7i4kutY9O/51EVFY76wQ1jv1/JxuZ0HSaFkTloD/ztXoj1BdokGt hPNZ1o7Gsi6YaIct4j70igcxXDaC8YpRTMvGMKccwwLrmkXVGJYYiJZUQ1is 7kdthgqlyfUoTWBKCm9AMtNTYOowgtPnEBNrRGJMI5IZmDISDChMMKE8oR2K BAsqIs2ojuqCMqwd9TSxTQlWaJNt0HEodakWaFPMaExqQSOze0NkPer9ZEiK USCrc4lDRW8z81MeSSoBU/Q4k1+6yKWgh1RQlgpW0IqJ+5CPM7MPDfwSub4P qUQoRiwk1gAdrJMOdp6hcIkxapXEuofMmPtUxAIukUBX4uk2E/twPbEXNwh3 4lYCHWdCD45TFceCjEQr0YZjwWYcD2nD0YA2XE5l9Vc5AV8p/YxkEt7Fk7iS 242TBZ04TVKdL3HgcmkvrpX24UKxAyfz7Tid1Y2z9Dfn6GjPExdYX1/M7ibs uJDFQoae5yw9z+lYHa5G6RHBWFbMdkoqRwXPs/zP+G0+7hCslkFL8EI1syzh pt9whFhbj9Pfj5JcwyTXAKvLnt6d1RXrBEk1vbOSS3xYiq0gySpJsCoSTFg4 /BXXAuyvu5a+PizjVuzea5Bq+b26SZLr/bddw/xjTA/PoF6khZoBS1PWDb1k AJ2SEfRIJjAkncJE1QxmlLOYr5nHct08VtXzuNcwR8wQ01jVOKHO10KcYYQ4 rQXiJCPyvOsRxrQRHUliRdUjNbYZ6TTcaQzhueHNKGCWEwVoUepeDe3VClRH dEDDWNCc2ouW7GGYcgZhyu1HC82zIduG5ox2NKc0QxejgjqoDCKdk6T6ikPG 8sgFlki0qtWTLJOcb6BwvoSChaBiktWv8x7kEzNwbmzglxh2FNGhLYilI46L GGfomqNnWmHouo/06Idk12OyawWXY7txhcy6ljSAG8l0ucQtwiNJQD/uJPbj REgL3Oj33UI74BbRCbfITpyI4vPIdhwLbYU/Y7m/0gk/mROnyY49wcyaYUaW vSx3yaxrpQO4WTKIy0V9OJNPVuX04wILy4v5A7hUSBT143JxH9938DnL44Iu Mq+NYU2HO+lm+KRY4B1pQonYhjLrxg67ln/uSosuhtFT1cz9bwwbI8NGybCh aeS3WyCyjUPUPQVJz4f7BLOoEJbAu4Vl63lhdd2+8BEt1wLdh7x7wbXCKhfW A21zrrX/b1b8hTVr/TSkaic2n75jahQG+29RV1wLjagFGkk3GiWcY4kTNskM +qULGJMtYUq1gvn6NSw33MNa0z080N3DevMaHupXiWXcb16Eho5MnGOBONtK vvHIIjKJfjs5XIG0qAakRBuQGNZML96EXFqTUn8DKgJbkH9QC2eEBf0pBjQk dKMptQ/6rEG0U+4dzCvtJaMwFQ3CwGLVkNsBfWoTdHEyNBY1f0RyvRdWv6bf kWK05Kx9lZOMX5MvIZ96TjwlHkE+uQLZxDS23r39QLM9rsMJWDvnERPKQBY2 zEA2w0C2zED2gD1+jIwYls2x95kVexjA+nE9aRg3U0bgnjKK2ylj8CDuJI/D k7jL52do3E5G2HAyikEqtgcnmU1PJdiJLrhFd+B6oQOBdRO4WNqFo+kt2B+r x/5wA/YHNeBAXC32hlZgf1gVDoTLsD9SgYMR1TgU04DTDF7ni4dYto/hKtV/ tWyQx15cYSl/sciM87nN8GdA9MuzwTetA94MbFUt06QZndcyndcSabb49U4w +wWqKSZItYmHkI9xeIanEFTfzADm3KGZYxZSxzwqexYZ5JZY5i4TK65lfoVj 1VX0fUTPtio8rNC5CrddFD2LLvrJrHOk3OzO4r5hChXqcUa1t/irD2Ft0Em6 NJJyFmjEQ9CKp9AmXkCVXyfs4RY4VeuYVT/CUuMG1nSbWDds4lHLJh6bNrDR +hiPWx9i3fQADRI7JNSkOK+P1OuFON2OgggVK2kVJ1GHaFqIeH/mTl8jivza UB7UCXlYF4qutKMvRI25aIkrrBkyB2HMGUFL3ijD6ww6y2dgLnOiRTzC0tQB XU4r9JkNaM2oQlnzJLLMq4hhpA4u60M4JyKSsSKytJsFxijyDdOQTz+AbGoJ VeNO3PlFvl2FrXMZsaE092ETiA9fQFLEPaSSa+kxT5AZ+8wV0gSuXUsaIdcm 4J46CY9UlnCpM/BMncVdwiuNSJ/BpbgBnI7pwykeTyUO4nQykdKP06kOmnQb bor6cUvRizOl7TiYpsX+RC0+CVbiUx85S0qBZwocJseORKlwOLYWR2PrcSye SGrEsXQDHZwd16omiXFiBFekvbhM23yh2IjAsl74i8i5Agv8MloRyCq9dpnu fkkAS8RFco1lomrXmSknn1OWdGbOdVqKJYQ1dyBe28lwNk2uzZNrS6hwrJBr a5D1MCsIt1N6H+zeBhFuqQiL7uuoduEB/xbuftzbXYb5cAeEFOoi9cwC7Zww 2Rc+MG6WkVRTzABHv6ApdUIrWkC75B5iDvfAkTSJkRtFmEzuwErzc9w3vsCj 1hfYML/AVvtzbHY8I57iYccWWuSDKCsagrhwBOJ8AQPICylFWpAC0ay7onx1 SPQxIZtMLgm0oTLcARWnSBbYgYZbKjxKLGMSHUVr7gjaCp0wF0/DXDKFzkr2 p2oBpoopJvkh6IqZWPP10GXIkZ+jQQhdZSQRTyTRCKSS+ekSG9KZVTIYTpKL 2pGt68PE1pNfZtxJRIcYyLgBMm4KCWHLZNw6GbdFxj2DZwyjSYKQQEeZQCfJ tjmybYFsW4Jn2hJZtgyvjGV4ZxHZy7hBNp5NGMaZxDEybRxn0hn1WEWfoYDO ZPTieEo7zpVbiC7sSarDZ7EqfBFZgy+CVPjcS46DwdU4GlOH42TZ0QQ1y8oG uKU0wS2tCSczmlgf0PrlWXC5agzXlBO4ImPirWAtIu1CsHwYgRV9CGDU8y9s x900PZLob2qXviTb3qNmgUybI2YZ3aZfQjn1jMF/k8H/PooHp+ChaEJOW7/r xl25Q7iVdA+VZJnsw+2kvsdk2oZrPad6eMN1S6l6dIPF2OiGUNSPPOZLj765 x+Ba52AQdAXGLqZaM0sN/Sgm5h7jL3c3GtTlKKAp6iTzhtFQPANd6Ro6pI8g S3gAdaYTnfFtmI1vwmKAFCuMY4/b32Gz8x2edBHWt9i0vsajrhfoUk+grGT8 I4iLnfgzlOR0kXTlSAlUIcq7CdFeLSwbupDj74AotB+y6CHUJo6gMW0M4ks1 WGV5MZmlh7mQRCPZOsSzDG8LMEsX0V69BqNsHs0V4wzDDjQUtECbW8MSohAx JFpimR1pRGa5DTlEXpkV+Sxz8sssyBebkZNrQEdoM16ubP9SZj2O6OA28m6Y vJtFQvgakiMfIy36KWJj1nGFUe5a4jAz6iSj3Dxup7IGTV0j5+7jbsYDeGeu wztnHT65D+CT9wCe5N75JCfOpkySc1M4kzWFs9n8O3cMZ+lHD2e04XxVNw7l 6PFFsgZfJGqwJ1aNPSzM95J7+wOU5FwDTiQ34gT9w4kMHU5m6nEqm2D2PJ3f DLfCThwrsuCSbBhXlYx28l54KgYRoppAkGIYAZWMeIx+XnlG3M1rRc3iW3Lu DVTzxCxrzxlybppRbpqmY/oxebeGsJYu3K5qYkkwi/KeZRq3+8yoD8k5vu/4 hRtmw09dN80+ct3q+s+uG2eq8adQTRDjT3ZuRwo3TUaFm1yPyNMHrhvtcpJP uLUnax1HZfPADu8+gTqbdq7ABk3hOHm3CL3oAToqt+BQvcCo5g16lFtoK3Ji hAH+YV4LHsUp8JCm4qn9p3ja/RW27O/xyP4GXY0MzqWTEJfOQCyeQVGaATlB chKvAVGeWsTcNSPZx47coAGII4YhjxtHXYoTTZlTkIfYMcqa9X5+EzpK59Eh mkOnaIZ5fh4mkq9FtowW5RK0lU7m8T40iMyMeg0w5pYhSYhu5XZkS+3IIwor 7SiW2VAqtxIWVmttMHEaBmiiHCxfXq9tY2dzDz5zHU6ht28Jg/3LGOlbRoS3 FpHeHYgOGEVi+D0ycYNMFKIfZzqevi5xgtFvHrdSBBaSbWkPcTd9A15ZG2Tg JnzyN+FbuAm/og3iMa5lLNDez7HQnCcDecybwbn8SZzKG8TB7HYcLmrFXjJs b3oz9rEy2peow77YBuwnG/czAh6L1+BkWjNOUZMnsg38XgsZ2IIz1N7pQiNO MfAfL+7E0eJ2XCQDr1QPIKxhASHqGQTVTiBQOUQ22uFVYiLakGmeY+R7SRa+ JAtZQsyQhTPbkM9sQTa9jqLhaXiqjYhr6mZhukgW3mP58Ii5Vtj8INyl3yYL n5FZz8mwF2Tczp1B4X7ri49c6/3fct3mqXE+4xvbLkoKq/9CmFQMCFtSSEX7 EuSdjIGtQ5hYXP8L1zx8CnWWGpq8HmjyOc1FK0xuj9Ah24aj9jVGG99jpvkr LJl+hgntS+jz+7BY1YdXUjO2s1R41vIQTxxf4VHPO/QbV6GpnodYRJTNoyi9 FVkBKiT7aRHtaSAVLUjx7UUeI44kZgLKpGmo02dp3RagZnYzRJjxrERLe7dK LMFCCnaWM+GywjFUzsNQvYQm2RQaKgbRIO2EscyIlmI5Y18vssr7kMfMUyTr R4myH2JVPyQ1fZCoutHDzDQu7sB4cRvGc40Yond6fe/prR02fuw6nHPtxdM2 0jrkmyAvoFPiUZ1rQtadamTdrkOmuwZp11mPu1sQFci8F2MjM0fIzBncTFoi M+8zJz8iKzfJyifwzn1KVm6Tlc/gV7wNv5Jt+Jc+wd2iRzifvoRzWUtkJY8F CzhXOIsThYM4lG/F/twW7Mti5ZHZiv0cwf0pfJ6kZ/XBCiSqBofoBE9lGXGG nzuVZyIb23CaFcaZ0jacIdNOF5vgxis9Tkd5kjneWzOLMO0KQsnOYPU0AmvH EKDsg7ekHV4SM/wqO1E9+xyRda2IrBdg4vMW5FhHUDVNJdoGGB+bUc46VWpf hbT7IYvaTcZHxtC+Z1AMCtsZdrY2CDc3Vc4339zgFG4wvxEehP0PtVM796Vq nM9dDK0eferaFyLYR4WwM4kViaxjDK00Ah+oWZ9GamY7oMnltBetorl8A+2K 5+ipf4MR7U8wbfgpFtt+hrXOn2Hd+nM46u/DSv/3uKEfX9W14ctaC7ba1jDe vkFqLkAsISoWUJDWhiz/OkbGZkR7mBDvZUVaYD/yw8cgiZuCkiZLnbUIXf4K KbaGKt9WPCztwDzTbLd0FfbKFVgql9FKT2iQLUBfvYIm5QwaaICaZHa0CNGv rAYZZcPIrRhBoXwUJSqm+roxlNWPobx+BIPVw5hj6JiV9WGaBmpG0oHpAj2W 66y71PzR7jLx8NACSouMqGAwqSW0RAun2VxkQiepKvWqRoVnPSo8NJDeaoTk hhZx16rhQdreCBVW9ObgnrTCgvgB7qRt4G7mFrxyBHo+g2/Rc/iWvIBf6QsW C4T4ObGNazn3cC5nFefyiMJlnCuex+ECpm+W+HuzW7GHxcQXKUbsSWzGXmKP EEDjGxlEGUBjFDid24qz+a04V9SGUwySZ0SdOEsRCoXOGeaRE6J2uPE6jvK5 X+0MwpvvIZQ0DW6cR6DaiYCaAXhIOnEuoxp7Q9JwPDwBZ6ITcJY4FxPPYzzO RMXjdEQUzhaUI6JMB6mNgdN2HxX2x6ToE8h6aS8HhFuAtJujb8k64T4cbahw Z3Z6987szHvhjvl74Y75zLudW/LTAntfk6iM1+NCvH1Cx/mY2Zz1jrD70OpE VXvvDkc/g7WaWTyDHM1m/VK0Ro5uwqx4ge76txjWvsdUy0+wYP4KK5avcN/2 FR72fIUNhswR4z0MNg3hWWsfft7chreN7czmTogY9koqZpFD0Wf5qpHsZUD0 7TbEe9PmBQ2iIGocZQw6ijSGzZwVaAtWYSpeQU3CEJyFNmzK2+FQrsKmYBgl WmWLMMgX0KyYJ0en0UAe6hkiWxSdaK2oR5bUiTz5FIpU0yitm4ZYMw0ZU9hI /QxWiOX6KSzy71nVCGZpuGbL2zFT0ojNgcndjezYuW98CQZtL6QlRqhEJjSJ hLuAJChhLzWhl5M9QMK200yrfeqg9tXw2Ig6Ly2Cb5Qg9IoMwRdq4enVQ7Ku kazruCPE0mzG0rxn8Cl8Ad/ilyTqK/iJX8FfQpQJIGnLn+FC9n2SleAUnC1e wr5MI9GCPal67GHs3BtHckZrsD+qDvvCSapQOfYFV2BvpBQH4pU4yVh6roS1 EQl6StyJM+IuwoLTfH6CcBPia7oal4u7EKZfR2jzGoK1iwhqmMYNOu19USIc jC7CwYgMuEXE43x0Ii7EJOJ8TBIuCM9J1nPhUTh45g6OH/fCdY8MknWdZN1k lidR+14ylgobGN6jevxL19aVmsmvSFRW6zNfu24a1859LcTUua8EtgrbAGZd BOZn3qGkdwvJratIallCUvMcEhunXFvf5N3CruSBD2yd6Z6HJqUbGlp0TcEa tIyorcrnsNW/wqDuDZwtbzFnfoclyzus2d7jQQ99Zu87LFjuY5omxqEbwbh5 GC+tfVjXd0Jd1IGCXBtSI9XI8q5HzE0m+9tmxHl3Iy1kCPlM9GXJZGs6I2r2 HAwF82gXM2IWjKElw4ZXta1k6gKsZGe7YhFtTPJG5Ty0jNaaakZUxRDZ24sW VRdMMp6jcg55ygUU1iySrYvo0KxgrfEe7jWt4X4TnzctYaVxAfOaGcwy2s4q HZitNGFKpPzA1h+4Dv8DG4+eoryo0XXvuk5sou8hOyWtsItb0U8Mi+kXGJ4m eexJ18EYpiZof8OaYAhjiPWQINZDiehb9Yi81oSA6xZ604e4k7mJuwyv3gXP 4VP0Er4uxr6Gn+Q1Z8+//DX+nI9krvQFvERPcS53HSezJrEnRoW9aTp8kWrE J/F6fBqjx+dhZGxYLQ6EqXAwTIEDoZXYHyjGPv887PfJxKHAIpzI0eG8ECrJ 1lMiK05LunCSiepYKVmboMSpaClOp2sRZniEEP19BDcv4SQrqgMJVdgfK8ah uFIcis7BiahkMjWJfbxIzv4RLpK1FwNDcf3qVRw57Y39F2Pwwxs52ONTjpvi AbhLhnBbMoJbkjHcFo8jVLWIVJ6jZvqnqJn5GdlJzP3cdfO6dv5nqJsXbtb8 FGnWR7ilGocHcad6DHcUI7hTNYw7UoZ8cR9ul/TgVoEVSbXd6J5c+Z3d++4P Hz7HwOAyhol8GqQSZiBRqglOxzKcLLI27z3Hr+2yvD6+C5q0CVraFTTSzrYo nsJa/wz92hcYa3lJJr/CvOU1pjs3MGSYwYBuFCPCyoBxBFPEdMswBuiSJ+3D 6KzvQ2NJFxpYtGbdrkbkRTWirpkQ42lFKhmeG0nPED8BVcYkmgpmYGAV1VI+ x9g6B3msGY9rurBU1wWragYdhLl6igyfQmP1LOrrZtGgZDyW98BYYUR1fh0y 6C2qq1bRUX0ffSz79SXDqEyzIJO0ywttQkFQE/L9GtGW24OWzC7M0kvM1lgx q2jE+81N3PxFlvuhokgNhagZdZIWGCRt6CjrQI/EgkGJFeMS4ea5HXOsVBbl diwrbOiIa0Yn2dcZb4ApWo0UnwqiBkneDUi4q0PcbSNCb3XDk5XXXXpc70Ky nHHZV7TL8rI3ZPdb+Enf4K6YfljyENeLlnA8Yxj/K1SJH8Y24uNkIz5OMpHl LfgkSo9PwpvxSagOnwRrGZvV2M/4fDCccTmkCAd8U3HkdgqOeKTgeHw1zpPl ZxmbT4i7aR5sOBwjx7FQMY6HiXA0tBheNBP+Tas4VdiKAyk1OJAox8HEShxO kJDp+Tgamehi+UXiUnAkLt/0wMlrXjjuGYOPb6fjE49sfOqRh89u5eOQfwVZ OYy7FaO4Kx2Dl3QCXuUTvCYn7rLojlCtQNT3hqz+Z9Qt/BMkw+/gWTOJC+WD uFQ+gEtl/fCq43foub1Vo/BSDMOrapDt9Ln2ZN4tteJOQTvipA7od34b9Fsf flX1+Dl02kGImDIrCVUhyxGWJE0sSXRZRDp9YAr/TuDrUUbMdi7iV3fZ30XH qU4choaFlUb8AHrZBjrqttDT9ARDxm1MtD1Dn34RXeohdNOB9DcPYcTAmtA4 RLcyiJnWAUy39cHZakdvmxXFpf2oqexB2nkxok4qEHNRh0h3xnhfG9LC+pAf Owhx8hCqskZRnTcGdfE4msucqMlhG6TVRpMZnRyWdpWTuWYMBsUo9HVOtNU7 YWah3K7sgbWyGb2JVei/UoBuOv6qTCty4nQoIh3LY3WQx+igcu3FIEK0UAn7 NUhJpUc9utJaqAITtqcmP7D/H12HALQ1daG6tInxvQXNZH0H42JPmQNDZewa 482sbBCL7MJKzRDu1Q3hgXoQUxKa/LQOdKd3wJSgRmagCplBGqQHapEaoEeK vwlJd80IDB3H3bwn8GKF500LLShAiOeeosdwL15kHFvA1YJJHM/qxZ7kNvw4 UomPo5T4NKEBnzNwfZHaii84fV/EGLAnmi6FStgT2YwveIlfhDThcz819gVW UAXpOOGZhhNeqXAjTkRX4QLZfb7QjDtJKrjHVsEtvJyugyoIL+F7FlyXjeNg WgOrR9rxJCUOJctxOKkchxIK6VLoSIKicMndE2eueuD0nRCc9InDKd84fO6Z gT2ejPGe+djrWYg9VMGxIBm8K0fhUzkGn4oJwgkf6SR8yqbgLZ6Ce84oriT1 4VpBD05ktLI6bWN124aLxGVWsRczzDif1g73UgfusE73ZYHmW9nPNhyun6h4 sbBKlDtQLvyAr971M7Df3N1cZND1o4zmsYqoJZpoIo1UQxvV0EE1dOWYYM0k qAYLh7QjkSk8xsTpHcDzlWcf7QriyeoL1Eb3Q50+Q3IyJVQ+QKvqIawNj9Gr pwGqHYeppp9moh/2pn708bTD+n6MG/vhNPViso1o78FYawfThB4dtU0Ii1Dh zL4URLrJEHauAeE3WxHt24WUMAdyY/tQmjKAisxBKPKGUFs0BI1oCE3MmMZS mh5jK9pow1tpqY3KYTRXD6JVM8kUNY4usrBb3QtrXQdqE/shCq1BQYgMRcz+ ZbENUCTqUZ+gR1OcHs10CAYyxhimg4GxszmwETr6ap1nHZpuyGnepj4I4vuu w3lsPXqC6uJ61Ila2J0umMt60V02hCHpCJyc4FnFBJZqnFhTT2K9YRKPtJPY 1Dmx1TyBgeweDOR2o0NYYwxtQHaYAVlhJmSGtyIjvA3pYWYkebXDN3UFXkXb 8CzaxK3CFbgXzuM2BXGnZBFumQ4cTLfhYIYdn0RX47OYanzO4574OpofA/al t7GeNGFfXAthpEEheJn7KZD9kawxed49AXU0IWUM2dk45ZOOU34Uh08Kz9WE xGI5kkrkiCtWwC2yAm5RFEakCBfiZTic0oT9qU3Yl6J2pYaDKYIwpDgUlYkD PoG4cOEGbly7RSHE4Iw/a0ziHLHfK43IxQGvAhz0Ykq6W4z9HoUuk+JHofnL J+jr5E78Djzphy6m2XA6sg0HAlkWezXiVFILLuW24RpxI6cN7iyfb1EXt0ja G6nUSLIZHizc/OT9hAN+VTb4StuRUuvY2dnUPIPyht0ftm69w3/Z/dnY5uNt VJTqIaN3VRIawsBqy0yhdBWb0FPUij7GiQEK5SMM8fHXMMjHfqaQXoqmR9ix y5jzcvUboUy2r6Mm3om63EWoJavQKdYYpe9DUzWEBnoUvaoHrfUOWBod6NE6 MNDswHBLD0ZbezDe3o2xThv6jXqiGd26GqgyI7HvOxcQsr8QYcdkiLhE7+Rh QKJfG9ljRlG8FWWpNmYOOzOHHXWFrEwkfcx2VjzUd2G6qZ3nHIBW1QdtVQes 6jF0aUZh1Qwye9mgrWxFfpwW+fFaMlAFSZQKtRFyNEUooY9pQmu8Ee1kkYUh 1kIGWaJ16IxqQntkA9rD6tEepELrnXLc75zb/YHgrlBCoMhXoq6kGQ0iC31T HyySUfSWT2K0choztG5LdcI+ngU81C1gg8n0iXEB26YFlvNzWFGxfKbmLTnt tIcG5EaZkR3ViewYC7JiBXQiM6IT0eG9uJW3iuu503AvmCWB53E1z4kDqR0U CL1Npp0R3IDPYykQYl+sEvsT6xjZ9TjEKmEPL+dAQgv9DZEkHI2EHgfj6e5j WO8K91YCZdh3swKHbxcwyqfg9O0onPJOhne2kvV1FW7GluBsSC5OheTjeCg/ w3OcSmrCiRhWHeHMPrEyVh/MGiFZOBUaj4teXvBwv40zftE4GxCHc4HxzCbx uMTjYa8UCoS+iSI55F2Cw74iHktxKqIa/hyTAAaWwBr6Ibr9c6lmnGNWPMzk fiBKy+pGh0O0tZd4XbeoFM9sM6soM7wF8LkXs8ntTDOup5nhntsJ7wob27TD T9GBopaRna1awn5AI6GdRjnPs7n19j/t/mJREIusVAclbbCwx7SRaKEd7hS1 w84E1F9qwXCJBWOlXZigvZxkST9V1olJSTsmRG0YK2nFSAEzCyuPvoRmvFoT fjO1oxqzeB7KlFmydgn10mXa7QFUia30TFa6exu9jg1mjR1dTTQfejv6WuwY aLNhsMOGAYsN3S0GdOlpUrJ9cObjv8KeP/89nPnuNYQcrELcmTrE36Tt9jEg LbiFVGpFaXwbylPMkDGxVnN4avPNqOQQjfAc94wmKtWGJqkBLcpOtGvorxoE DEBTYUBBXCNKk/QQpxhRIYDqUUapYYhugCWiHvbwBnTHtsKR1AlHSgdhJkzo TtbDntQIe1wtekjFoWQd1rtmdv8HAezsBQ/FRP8YagrVUJe0o0nUi1bxGGxl 0xioWsBE9TLm6lex2riG9eZ72DDew9PWe3huvocXHffwqnONWKEnm0Jv8QBE CW3MpIIN7EF2Yg+ykh2EHdlJFtpOxtNsJ67nTDGmzuBS1hhV04ZDmRYczrLi WLaV6aUCn0WW4ZOQQvqpIuwNK8HeiAqqQoY9YUp6LQ0OxjXhMBl3OFVPNONw WjMO0vMdiFVhf4gUB++IcOAa2XwhA2duh1M9YbgcVULfJcV1Kud8KFNQUCbO hefiZGgRzkWU4zorEY/AHNy+k4Dr/on8fCouR8Tghg+n1z8KZwPjcD4ogapJ wKWgRFwJSmL6SsVh72Ic8RHhiG85jgZIcTRQiiMBEnomB4LU9FqslS9kd+Ai VXAsRUs/14QjiTocpUU+FqHDcf9G3KSn9Mnvgm++Ff5MTwEMpAFFFvgVdrp+ h+6e24HrjP0+cr5f2/XNDrQqy+w3v5iu1E1SPaP4IJ2O5h7USAyubdkNZWbK xoJOsQ09oh4Mco5HxYKX7scMPd2crB/z8j4syHuJHszL7Jit7MJUeQecolZM 5BsxmNSwu3v8M5jKllCVvoDK/BkU51ghKragsqwLKhmlo7JCX29DW6MNnc02 WFtssLXZYe2ww9LWjrYGNfrqEhF64WNc/OSvcflHf4GTf/278P1RGMKOVCP+ kgZRnjokBDTTmhiQRytRwihZxnKhnPNcmdkMaZoGTZU2PLW0oTJHBZWoDo2K Vhg1AzBSNno6sVJ67NL4RpSxapVSCsrUdjSkWmBMscEQZ0FbTBtDQhtGGYVH EtswzKg9nNODoVxKPKeTtol5OEOL0RwdJvMNGKMvf/PgKa79onTC0K5uQ32h EZoSO3SiEbRLptFdsYghIQeHdWAsherWP8Yj0waemDfwrGMDrywbeG19jLe2 R3hrf4jX9geYUXFK07uQG+9ATtIAslMHkZVOZPQjK60LGXGt8Iu342rGBK35 IJ1QCw5ltFM2FuxLbsKPQ0vwMeXyeQjlElqKA6EM4iywD0fSQUWzmI6oxAE+ F1b7DyRpcTTTgMO8vMMcykPJLLjptA7yO4d9inHIk7hZgMOXUnHGMwznApLg kVKG28kSQoyrCaW4EFuMs+GFOBuahxMs4E/wu9dC83EnKAWeXiG44BWAo/6R TDQxLtlcDE7C5eAUXAlOxbXgdFzwy8BRbwmO+VbgWGAVjofIWQYpcSy0CtcL O+DDpHOJ9upSbhfOMyEfzdDjWIYBx9OMcOOUnohvwUkm6ZP+TfAv7kNgSR+C RH0IYdIPYakYXN4NH7EdHiU23CpqZ7gxIlY/6FpcVbi2NC1CZp137aarahV+ 2D0Bk3X+N3Z/2D01PItakRb1klZoyGx9GQ00m+6WDGKwbARdNMKNhwoxFVqN RebIZeat1boJrNWNEaNYrR3ia1SV0oEZqmKmrA1TBTos1Fp3VfQpNu+/R150 LzJTrMjmZRYxiZVLrVAqbKivZTJosEOvs8NoJFjUtxjaYVZJ0CuPQBjVc+Pz v8atL74Njz3fxvUf/hku/t3v4/b3EhF3TIG462rEeKkRH6RDGqNMFhNFdnQt E0kNipNqkJ9cBVGBEUttXeiurYG4QIkyUT0kJWqUS3RIDcxFYZQcovgGSJnv ZSkW1Kd0Q5/SCzNrJGvaMByZI+jJGEB/lgPjuUOYY600XjyC8ZJBghGm2Ibh AjOfmzEr6cBMYTPGMlW/JKBwqKhfNSdcw9zRXOrkKC/AIVtDTZQTJp8RzMab MB1UjfuyaWx3PsNL6zO8sT/Dux7CsY13vU/wpncLLx2PoRf3IzeB4kkZQXbG GLKyRpGZ3Y9MGtVM6j8gyYqr6WPYl6SjGzPhCP38p1EyfBomwWdhYnxOEu8L KWPtXo7DYYzjkVIco7M6Gq9ivFbgCHE4XoGDFNyBFB2OZDP/ZDZSSHR3qXKW JCIcDWI+8C9mXijEoVt5OHmHzs0vFrdSxLiVKoJ7SikFVIwL0Xk4H5mP8+E8 huXgfEgGRZCFs5HZuBaehJMhMbji7ovrNwJwiXX+5ZB0XAnJxLWQbFwPycHV oFyc8C3F8QAKJ0SJ46xs3TjDbtEq3CCTLpc4cKWgG1cKe3CMBbcbLccJCulk VgdOZnTgNC3CGca/M9FGXKZ1CC4fRWgFUTWKMPkwwoQdOswLnsxjd1hy3i5u Q7S0y7VDRrm7RUves8w8JPwcnCIyCT/SH8XWszf4j665/X9RW1IPtdjA4qCL ZWsfWiXDsEnG0S+hI6+YhjqoD52h/XiU04hV9QLu05k/aJzHetMcMYMHTVNY a2Bpqx7BXO0AZmmRZstNmCpS4+3DJx+c3NtXmxi1SaCuakQx01VyHgUlsqGE ZrNcaYeszg5FQzdUKgPTUgMWrbVYbsuGIfcGrn/xN7hNAXns/Vt47v07eO/7 e9z4xz/BiT/9K9z5QTISTioR5V6D6LsqRPgoER+oRAptSCppExctRnKCGGlp dbDRJToNWuSxACkorEFeQR1uHbqImOuRyPQvgjhej4pkG5TJvWhMGUJLyigs aRPozprEQN40RgpnCB7Fs5iWzjD1ThNOYgzOsgGMiuyY4nTMstScLTdjplSD rcHJ3f8o6Rs11WY3ujYoNRSNsKqchUW6gl7lOjP/I9TnPIItrRvO6CYsh8pw nxn9fpENbx1v8L7vNb7sf433Ay/xduAFXg1sY75tBdJCJwqynFTSJDJzJ5BB nWfkMWbRy6ck0XklGKgG1gHJDfgxVfRJWBk+Z/3xWbAYe0NYh4RV4nBEFY5G V1FJMhxPrMbxlHqiDseZdo4xSx9NrsahNKaldLq6HC2O5DAlZVTjWKQYx8JL XOvDRwOLcMSbNYp7Jty8E3AzpQQ3iJspxbicUIDAggrcjMvDhQgqKSKbSKOq knAxNg3HE1LZH9Y73jG45R2Hu3dicMcjFjfuJFFJ+bjB+smdqex8YDHcgqmi 8DqqqB4nYtVwi6tn36txtbQfV4v7cY6l7okCC05yjE/ld+N0Xg9O0zWcoXs4 x/R9Lon1ER2Lb+kQwpRTiFARtZMIr3UirGYMd2WDuFPZ47pJni24JsuS6z80 EXbhuvadCVsqXIqagaxlDK29c7s/+/0dzAxPQV0qbO7uhIburZkuvV08hZ6y OQzRcjgVdOo1/P6ZMjzguD2U9+MhHftjPV27YQ2PDSt4ZFjCA/08VnQzmG+c wGwdVaXowqxUi2Vd+zfF0cKYHmO2Mox1VxAyjHcr0NWiQaPGAKO6AeZ6FSbM tdgYrMXmcB2ejNRhtT0XklA3SkmQ09/hDqXktf878D3wD7i1Zy9O/+AUPv2D czj+d6k49N1T+OFf/RA/+usf4PO//xT7/3E/Dv5wP9w+P47rZz0Q6JcIaYUV Cx1muksFgv0T4H7gLLwPXkDCzWgk3MpAmncVpEn9UCWNQpvsRGvaNKxZc+jN W8BQ8RLGRMssCJcpp2XMVhGyRcpngfmY8pJNYFw6gDk69NlaZhlFNz/Tgkmx 4oOkvus6RGLrwQbqshjESPvGwgnKagGWqvvoq93AWOM2ZvQvMVT3GG2Fo3Cw iFnKMmGD9F4PL8N2ZS9+MvQeXw6/w9vhN3g19Brr3ZtoVsygqnweYiIzfwTp +YPIKKCsCjoRk6qhG6uhK2tySepjJqQvKKEDdHGfB0uxP4yJJoLJKIZuKV4J N0rqBCXkltGIE0xGbhlqHE+nxNJr6ZjqcSiL8sxqwOG8Rro+0ju2HMej6byi SnEsTJBWPg57ZdP1peFqYh480gtxKy0fXvnlSJTV4WY8JRVFSUVlEqm4EBnP xBVDJ5mGY5TVSU7VCZ90XPLLgSfhdzcDfu6J8PTJhHtkKa5HinCK7u4EC7cT sexjAsGa9LAgK9EwpTUGNxY8J4scOFXUjzNFQzhbNIyz+UM4lzdA9+fAhcwu XEg14xrdbkTdAiI1RMM8IjSzCKmfwt3qUXiS7tFVvciT9qBQNfDNPjrl4CPX /x/kkhYd385/lTOIreev8eu70qqj/dGUtFBaPcQo53jGtZnNUbGGEcV9TNU8 xILmEeq8aOEi5NiSdmKjZRObrXT1bY+x1fYQj9seYJ2F8apxGYv6Ocw2jVNe vZitpvWrqNmV1h9g1CKmtKQYs1cRcozblZix0UZ2q7DaW4P1/lo8HqrbkdVo PbbH6rFGaQl2786+HVmd+vE5fPydKHz2nWjs+Ydo/PhvwvH3fxyEv/n9QHz7 f/jj7/8wHN/7I098+u0TOPD9/Tj642OU3Kfsw/6//QH7cOHgFbSmcp72foxD f/Dfcek730XYGQ9KK5HSykfi7QpkejdBlTAFXcoczBlLsOWuoL/oHjPUfUyU P8BU5QPK6QHmlPcxr7pHrGK+hnKrnsVM/RzmtZRbwyTHYBCzNRbMKDR4u7GB K78sL2f3OOozTNDk9FNeUzBIlmGRP0Rf/ROMaZ9jxvgay+b3eGARNo5tw1Yp JMlerIsteFGoxfOUKryqGcDb0S/xavQdno+8Qo9uFZXli5AwiRbRrRdKB1HE qCvsrfZMV+B0thpfxFS6PN+eiArsp9M9FFONPSFy12+DDsfU0PPVMEPV4kRq LU5SSicpIWFH88lcLdyyKLNsDY4TR7KYrXKZvbKZKRLlcEtgMRNfgeMx5Tgq +MGwQhwJyMZB70x6vixKKw9Xk3JQ1mlForwGt5N2pHUuJp1IxvnoGJyOicYX 9IDn/ONwITAVF4OyWTgV8HkxrgSI4B1ciuCgAoRQYj7MYBfCpTgRpcWJOB1O JDYzyzbxeupwVTyBS6Xj7F8HjtAU7c1oxb4MM/a7/rsCM6+jB26U1kWGtkvZ lFimibJaQ5R2FZG6FURolxFImXkxewWpxlHAoqxAMYTcCrtrJ3X12FNKTNhp LeyzerC7a5qZq30EzpWHu/K6AnVBPf09sxYrg4bSKRhFS+gqF26UP8JYzSZm NE+x1LQNU2I/ekPUeJEuwpb5OZ52EPT8TzufYrNzCw9ZPK+ZH2DJtII5/Qwl xsitYXVV04iNsVG8fcmQbJFgzMqsZZMRCkzYKC+7CkuOGqz11WJ9sA4bw/XY orSeUlrb4/UY1uZQVn9LWZ3BJ/8QhU8pqS++G83MFInv/Vkwvk/8458G47v/ MxDf+/0AfP8PCErt+78bgO/9biA+/aOPsfdP/oL4c3z+338bP/pv/w2f/tZv w/NPfhenf+83cfnbf4mEq6FIvJmOBPdSJLkrkOKuRrF3O3SpyzBn34O9cB39 okcYKX+MiaoNTCk2MKvaoO/dwDzTy0L9Q8yr72NOs4bllkdYYEaf1c3vhJlG msJ6A55OTvzv8tq6v4m6NDM02YOU1wyMZauwKB+jT72NMd1LzJjeYrnjSzyw foXNnp/ied9PsdLxgtltFk7lADaraRArDXhVoMCLhgE8H3uDeyy5amRLKBVP Ul6jKKgYQqHMgfTyFtzIqsT5vBqaQJZTNIN7mbkORlUzW9ViX5gKh1iiHHH9 FKoebmlqZiw1TlFCp3N4ZEF6usCAE7mkcZ4Wx4kjzFpHcpjFMutxJLoCbkkK ZjwayYRKGsoySqwER1gOHWTBeiE2F26hkXALi8CxkGAcDQjAPs87+OK2Bz6/ 5YHP3N1x1N8PB4KCcdgvkvJKoqQyKK88XGHZdi1EhBvs8yWWfldpYn2jpQil hMND82kUZTgZrcPJZGH9Qc8QwoyV2Yk9vJa9aXrsYzl5IJVIMu4s7vOzB2ME NOFgvJafbcOlgg54VY0gSr+OyOZ1ROjvw0e9CK+6GWRoFlGgnkcBpZZf3Q9x 69zuNsZtKIe3XLvBFcL/AmhboMQmUGXuwb/f/enbdN8oNPk6aIq6KbMxNBbP o0W8BmvFI/Qrn2C8/hnmGl9hufk17re8RaOPFs9y6/BUu4Ttrrd4Zn2Dp9bX 2LS+wMOubdzrfIyldkZ0EyO4gSaxmVmswYin005srI5grJPGsKuSoMS6FHBa VZjtrsFSby3uDdTh4VA9Nkbq8WRMje0JNZ451ZClJ1BW4fjsu1H4nNLaQ3xB ef3g/+fqLaPjvPJ1z9/KmVnny8waWPfcTgdOOmimmMUqMTMzMzMzMzPZsliW LbRky5Jl2TKD5Jg5sWMHnMTd6T49a87c+VfZOd25H556S5IF9db+7ed5qt69 vS6G/SI10d5Po9j3iUjwUhPM1P4UzX7BbP8HovciUf+jAwYf/gG9D/6Axrv/ huLddzF7/118v/iAxA2fkKEXSrp+CqkGeaQZlJNuWEueaTONHmO0+0/QHTot 1fM559tecLnrJdcOvBR3eikhUMrO4AtuDj1ndfApdye+5e70c25OPmbt6F05 B9dF4mIj07xcW3X758qVSG/ONP1FKwxW3uBI8wNme75haeA7Lhx+xerkL9ye FfM6+Reenfor3y3/VTLg3/jl/N94OP+SO7OPuDooWWR4gZ8PjfNzcw9PpcXO tJ2mpuYSVU0y6bado7JziZT6UTyLuzBKb2F/ZA3qkQ1oRbeiFtGCZlQ7ioQD 6KcclEom+S9/UJUHraUO2og52VYMYVc1KvlqEtvqcakvY1hUHcasclQIEyNL bRIy28TwJE+KLLI7JVu2YJZaL/WtCkVEIZrBaZhERmAlZNnExWArMg4KwjAg ED2/IPSEMIWXF2qOvujoOWDpnYRjRAkuUZVCVx0ecY14JbbgLVXQR6qgV3on PpJfw7K6iBfDdJd86JE2KrWvT3JuOzpRjSjSD6KfcxjD/EmMxLAMEoYwihPD FZkk9Il6MY7twji6RTJxM/5tKyQdeUbS0WdEDD8mZPAuxYefUC20VQ7fo3JA CFNezX3sNgevvKJHRdiLf1worNxe66Ryd7Hl3+BaXb7CQJlEw8rTDFRdZbjm DuNNjznR8Zzlg99zaeAnboy+5u5RmUSn/spY+ikelR7lx4ELvDz5V75f+JWX C3/m+cLPPD35Aw9OfMvtuafcmJGBNSkDa0IG1tg0L25c59ldgWumWQATuOYk Gh7vfgPXosAl3vVAvOuJeNczpXddegPXpclDOJtXoNidKp6VjN5bsPatF7DW x6Ku1BciiYcan8ag8Uk0mn8SzxIv01RK7mt+JPowEq33HdD/dyVg72L84btY ffxHLD9+jzxDU7LNcsg2qSDbqJ4cwxbyjdqpMOuiwaqHDrsDHHI6yLDbAY56 HWDGr4cTQd0shnWyHNnBSnQbF+JaOJ/QyJmsMb49uMzNGfG3qQci8bBJ8fHx OV7evPE7uJI4mDlFf74SrjXGBK5jAtfiwEvOjf3AtalX3Jr7mYcnf+Gbpde8 PPNnfjz3F36WJPj60q+8viy68iu35h9y6ciKBPZT/Dwyzi9d3fQUTVNdtUxF 63kqOpZwyKxDISltp1cWu30K2Odbirp/JVpBtWgHVKHrU4ZuQAV6cW3oZ4qF FQxIEhSgBCDb6lGBa0SOYl+109jUTmIhkJlVjWEuNmWTUCWDWgpXtsCVdwCL XCluWW1ig1LsxFq0I/MxiM7CIjoWO4HKLi4O+7h4zEPDMAkMwkDgMvD1xdDY AM19hmjut0ZjvzNGFtE4R1bjGtOAR3wzXklteKcqwWrHM6MddwHYRSYLDwEs JP8gLqliVeFiy6F16ITVoau0rqxRDHLGMUwewyhhVCCSCSFJbDdFymJKv9jr QUwTOjCNrxeLLSKy/pQkwkeEDD2m9OgL6iZeUiOwVSkBk7RYOXiN5uP3VWtJ DlxWbp73UrVcRLnh6pvVxJIOT65w+d69t5d9urO2dFXiyZQU7LNiY6sM195j XFLQie6XLPe94tLQa0l7v8q0/DcezfyduaqbXCo8xs8H53m5+He+O/Ufol95 fuo1Txd/4sHCd9w+IclpTkbXrBQxSaNrE8d4cXONZ3cucHFaCDsm5WtWCJv7 J8KWlYT18USs65lY17dC18XJXmICunCxqER/bzr6u1Iw3JWK5uZE1DckoLE+ Ca31yWh8lojmZ0lof56Ejkj70wR0P4tH57M4dIQ6HaFPW2jT/igc3Q/sKFj3 KXWKTVhveB+Lz9/D8vM/EWadQIpnM3GOXUTb9pDqPkp64DQZkXOUJpykQWaW zhyZhQrPcKT0DMcql1moXeZsw2kuNS1xvXWRG+0nxca+5T+vP+Tm7Lfy+B+p LjJcm5WUOC3n6/bN/4mwYzJl9mXLmS9fZbTpPtMSDk8OfMvK2EuuTH3Pzbkf uX/yFU+XfuLbMz/z/blf+PHCL/x06TU/XxZdUUo+J7q2cI+VqTOS0xd4OjZF d+kMHZXTBEcUsd81jD0u8aIU9rlmou6Wh6ZTLlrWqehYJqKwSUbfPhUD5zQM XUXB0pnEJqwrDgtZY9gpVSP366axrjuGuchMephpTBVm0RXSscokbEkwzD+E WW4P5rldaCfUoBVTLtQWYxifi3lMMnax8TjEKRWHbXQ0pkHBGLl5YKyng9XG j9hv7MN+kxDUTCLZZyDzokUaFpESPKM7sI9vxVkCoWtKA26pjbilNOEuIdQj vQnHpAYMw8rQD69DK0yCb0QTOpnD6ORMoCmBcH/SGOoijaQjaMpRM155zeAI homDQl6P0NYsdlaGTUARMe2XaZp+TcP0T9RN/kCNUFZ19BsqJfNXjt6gWWa0 g9d+4cBbC+s+r1zr8lRC4j06l2/QsXieyw8e/Bdhq4tCWJGyBKzI83yD4boH jLc+43jP9yz3/8SlkT9L0Pkbd6f+g4ezf+fpib8zkTnHz+1Hebn0d9F/8PL0 X3m+9BcZB7/wYPEHbp98zo15GV0nbrJ2/KJQNseL20LYbSFsUgibFsJmhLDZ bq7OC2GnlIQdeuNhQtg3bwmL8W8jLrAHV4sqDPZmYrQnG91tGUKXULYhHa0N meisz0LrCzl+kYXuuiwUSsnHis+FyHVpcj9ZlIBCaNOTEGn/SQTxu9ypddiJ 0WfvYfLpHzD/5F289ygo8GokzaGVSNMmYqzbKQudoz56gUN5XzHd+D0n2l+x 2P0TZ3p/YkXOzYVBcZmJP7M69ZKV8Qfitw+4Ko7z4MyPfHXiBWvzT0R35Dxc YW3uJC/v/p6w/4Mrc3fozThDf8l1hhvuMtEl6aH/a5YPP5Of9i03Zl9y9+R3 PF76gW/kp7449yPfXXjFj5de8Q6vLr/ij7ySZ/oHmU9fXPpB3P97ZieOszx9 iotj83haeaCvayk0hbPbXtqqXSL7HdJRt01Dw0jmH3OhyzpF6ErDyCkdY7dM TDwyMRWvM/XJxiSoEMviYfldSgczk5A4rlqLaFk+gYXUIdOYWiGnGovYKqla VarX7a2KBtFLa0M7UUZ7fKXUHVFSARZxbwn7jTLxMEsbG/SsnNAxskXdxo+9 7hnsd8+RWSCPvU757LHLZb+L+GtEG7phEvyCOzAKbcdBPM09tVnoEg8TLzMI LcVYCDMJq0AjooG98d2o542jlT+FVtY42ulH0RHpihRpIuUVusqrc8XTdGIG UcQeEI+vxSVY6l5oNc0zv9Jw7DV1QlnN5PdUTT6jcvwhlWNf0azcc/e6cjvQ n94QduHtHqy/7Ucplevyo4f/Rdi3D7+hP088rPCcpEUhrPYh423PmeuRKt3/ s1RtGUHjf+H29K88mPsrT+b/ylTZCs/aZ/hp4hIvln8VSUlY/jNPTsvoOvUj txdl/l6UCrIo8/fJCzKHz/H89ipf3zzPhXEhbFIIm+oUL3vjYaviYbeEsPsr h3j8lrBKyR+xAR1CWC9BLh0Y7s3HeG+x0JUldOUIXXnobCxEZ4NoXQGK9YXo yX19kYF83mB9Hobrc+SYjf76TAyENvsvkgjYEY/HriistuzGZv0HWHwqafGL 93DbpkaKTRYptq1EWbYQbdNBts/hN1t2JK0wVPiQydpnzEoFuzT6C1eOSH47 /iuP53+VdCyziyTlJwuveShp+a64zlcLUtEWn8rsIYQtCmHzQti93wh7c9Xf /0134ikOKZdG1d7mSLtUsEOPWBp5wvnxr7l+7Bm3JHPfX3zBk+WXfLPyHd+e /46XQtF38sx+L7p/5iZfLV16h6sLS/hybmqCs0fHiXR3xFpbHT0ZuGo24eyx ipajmL3ApKkXhY5xLHoWSRjYpGDkKO3IJQMzActcwDL3zsTCV0Kdnxz9MyVg duJZPYG7NDB/aVzJmbXEZLfgJwPbMr5OVI15bAVW2T3oSSvSTmlFS0KjQrlA La1aACvGIDYFu5gEHPz8cXRzx9Q9AAN/mfacA9Bx9EfHwR8Nz0w0PXPRcM9H 3bUATfcSNJzkiQ1uFGtqRz+sAwOJ5QbBXZiFd+KU2Iqd/H7j0DIMJZ5rJneh Fi+NUqxOO2cU7WyBKHsChViYXuaEhF9RxjgGSqUdwSDlsNhrH7qRPWgHtchj r8dJgnJKzcIbuGZ+pnpa4JI+XTn1SAC7+Xu4Lv9A90VpYBcErvMP3m7fqYTr wb++fXG+T9geyJOEUnKDQeHqSJuMn57vODXwI+dHf+b6xC/SJl5z7/hrHs3/ mRNtN1htmuP12AlJLK95fkb6wfJPPD79ivsyx946LVydFq5Oi3MtXmD1+G/v e+kwUpdJZUow1jp7sNXdi4PuPpwU+3ARuYoy/B1ozk0nxq+FuIBu4gMHSAiU DL2rFMW2YsmDBcJUsTBVhmJTOYqNog2SQORosLECw00VGG0ux2iTpJWNxaIi DDcWYL8xn8BdeXgpM+YXEZhusMPyC2Uu/KOKL+fNO4lURJJm006EuXBl301h 4AR1MSdoTTzJVMVD5qofMl/3iFMNj7g68IL7J5Tn4xcen/yZxws/8WjxlWTj H7iz+B03lpTnQJzrtHC1dFnml3l++f7l77hK5Pl9SfGZV+iruMlQ812mDtzj 5NBDzh55xKVp+e7jX0sO+EbO6jMenXnO05XnPJMscuv0DS6eXOTq4iLXTy2y tnCK1bklLhyepDIpEXvtvaI9mBsaombmz16rBHGGNNQNxK0MBSrzBPStkzEW FzN1EaA8srD0ycHKLwfrgFysg0UhotA8LKW1uYhvJTb0kVXXSaYoo66DqNI2 rOJrsRSHsoivwiu3F4uUThTSkrRTlKtHmzFKr1W5lmFELPY29lg5umPuI44V EI1VYIzAGynZMAB9J3+0vbPQ8c5D27MAHU95hj1L0BG4tFyKMIpsF4lrRXZi JFCZhHZLc+tCR7KGbmIT2pJjNROb0UhoQj2uTu63oJ3UgU5cJzrJA+iljghM hzFMV14yL/dThjGQz+sn9KIX2yVwNWPsK3+vu7ixZwMNs79Qd+xHqo+9pHJG XGv6IRUTN2hYePgWrJ/fgHXpBV2XBKyLD+g8r9zL9DzPf/rxDVifyJN+j4Fs KRRFqwzUPOBwyzfM9Lxgof87VkZ/4MrEj9yYecXtOSlV8xITR6WAVwlYw0ck qLxShZWvl3/g0fJ33Ft+wc0zz1g7I5HwjFT6pRXuXT7PzRurFGWm4qCvjr3O bpx09uIiYLkJTJ4ib7397+Cjt589GEli090Ri6VWIfEBh4WrSWx1WtHbViUd q1yYqkR3Uw16m2vR31QnTNViIEfDzXUYbZEpbEstxptlqtxUhYlw5rC5ksA9 lXiplYqHpQtr8RhvCMD8i01YrXsfmw0f47hpM65bdcix7yTJrocU90FKwmao iZ6jJXFOuLrL8Zp7LNTfY6npHmea73Gp5xH355Us/Sg+9YOk4e+4f+oFt09L Ij7zDWtn5RScFc9evsCV+Vn3f17bFM90820OFH5FX/1tDnfe4VjfXRZH77My 8YDLxx6yeuIxNxefcPf0U74S17swv8KKuN7FhQVx+UWuHTslniaaXWSsfRA3 cw88zd3xNnGR+37YmMdgYpSChnEMGlrxmOgnoWeZjIF9JobOkvbcpQf55MvY LsBKkp91sCisCOvwIqzC8rH0S5Wxn41PfjtemY34pNbgkVCBS3QxtpHyPVFF WESXYJszglXmAFaJbZhG1WAYJQYSmYtheAoWQf74OlgKRxHyO2Lkd8RgK7JT Kigac89g9L1TUcjfofAqEpWg8JYZ1KccXY8S9INrMYnrwEz4MI8VRYthCVf7 g7vZ69XBPulY6rHVaCkveIyrRhFfL2pCEdOIXnSj6n08veQhYXwUo8wRjLKG ha0+0UFhqws9+bdmIc2YBkrn8m4kKP8MtbNiUnPfUnnsqfB0j7Lx6xxc+wsH lFsgKo3qyg90XflWJD3r8n06L67RvrLy5i0uV7598D19aacYyJeqVXWH9pJb 9MnAGWt6wEzHQ5YHv+H69Hd8Nfc9d+Ylcix8z8HCKZ4PTfP97BlVNHksDD2U afTOyjd8tSLT68p9GUirXF9apqu+Gm97S3xE7iYKXGT6dBeT8hSWvIQjX719 +AlGAaJAkd72UPR3KNdx5IpKCXE+TKjzBBrrKtHeUIPOJjllmyUTbGnGQKS/ uRlDORqKMRlvzMB0k0y9W0oEqgbst8gp2tuEt0a9ACbT3aY8TLemClQhmKzT xGbjx9hu+gTbjX/CZYsaOdZt5Lr0kes7RlHIJFXR0zQmzDBZeZO52lucbLzF qZZbLLfdYqX9FufEsL+a+pp7Cy+4e0oe/+lvuHn2KTdWxKTPyTlY+YpVyQTP Hz10/+dlsnG0p1yjp/w2fc13GOu5o1pXvjh2h7OTd7k4e59rJ+5z+cRXnJg5 zuLcCc4cm5d0JzBNn2RuYIaGsgEK0w+QHFRKokcOqW7ZZLpmk+WWT4J1IXEW xUSYVuCsV4qNQRlWJgkYOkqElmRlIiZg5luCRUAplsHy9aACKe9Z2PilYOMV L4rD2isWZ6lHPmI0vuk1+KRV4ZZQil10ITZR+VhF5GARXohVdBXOUrG8I4rw D0zFyy8a56BQXH3cBMZwASgamxCBSGQvchA5qq6yjcFUgNXzkdjuXYKebxn6 /hUYBFbKUYAMUb702IFFcicWSZ3YZ/SindCNmpiVemgn6r5taEkl0o2vQT+u BoP4RkmBbaqL6A2Vl2/FiRIkNaYOYpA5jHHuiGgAo5xegUqMTkzNPFoU0aS6 mtcxYZjwinNUzn1D5ayY0vQtgeoWB1aVmxX+IiC9erthoYB09QmdV+7ReWmV trPLb98sfpenT7+X0TJNqd8sFVGnqU45T0vOZQ4UXWWo4hpHa1aZql/j7IAU 8YmnEkC+5dgBqQa9c/w4M8OD08+4v/w1d1eecuucjCBJlWvn7nDt7FVi/bze wVcQ0sbf3oogkbvWbrwkj/iIMfkJSEqAgvT3E2ywHy8dPYEnEoMv00WS1HZU iuoJczqG9sYGAalRQGpFsaUdva0SrEX6W+S4qURSXS4mm3MFIplvt+bguK2E oH2dhOh3Y72rHpMt5RhLYjTdmiHOFCUNywO7zZ+KPhF9jP2m9cTrZZDreJBc 72Hygo9QHjVObfwE41U3mKm/wYmmGyy23uB0xxpnOldZ6bwuQF0V//iam0r/ OCMPf0U85fw90R2ur6xx4dSZ365h/42ib+69pjVzja7KOxxqvcPhA3eYHrzD vJB0evIOS1PXmTg6y7Gjc5wYE5LGTzDRN0lDeR/FWQeoyT5AU0an/JnZFHll Uy6qlR7U4J5JoV0RhTal5FuWkWNSTpxpI8HmPThaZ2JtH4+1UyLWLonYuCVg 55GAvbfIR+57x2Prq1ScKFZsJB2fDCEkrRKPlHI8kktxSxIbii3ENioH+5h8 HGPysI4UqqJKcI4uwicyHc9gKameYTh4hmIbKvYTFotDWByOYfE4hSbgHKJU Ig5BqZgElGMSJAEiuAajMAkVYRIPQ6sxCKnArWQE95JhvKvG0JEIqZXYLh2p E60YkViTlp8Mg4h6oaYB49hGIaML4/gOTJK6MJVOZZKivA6/SygaxDBnSHXt vXFBP8b53ZimtaqWAlvENQpNjdgkHFD9rzFJ7ZeoOHaXkqk12i58+2Z72euv 6LkmVvTbJozXHgtFd+i4dJUr33z99j1hVy7K0638bxgblKs+3aeoCjtFbeJZ mjLP01NwgcGySxypusyU6pLrq5xovsrpA2ucPnyDY21zvJoakxj/mFsSZm6c e8B1GUJXz9/lyrmb1JdW4O9gJbIkQBQk90MFpWBLE3y0xId0BCOF+JAKIzVC DdVw1rASdOIw+jJbVCqqwfhLibM72jHcLudvfZuEO7HtLd3obz2AwTax6i0H JOgViycVCy5FgkoR9oJMyL5Swgy6sdkt0WNbHSZbazD9sly+ni3+JDP0Zn/s tn6G3RbBacsn2Gz+iIC9HmRZd5MtAS83YISCiMMy5hc5XLnKZN0qs02rUhxX Wei4zqnOayx3XWG5+yIrQ1e4viwzzdl7XD4nj1/O6+Xzt7lw9ho///TzW5L2 vV1++PT+a8YPPKVdEsABIWlYSJoYEA1fp39glpG+OY4MSqwcPU5XwxBFWV2U Z3VTn9lJu4yChsgKKn2zqffJps07k06vLHo8s6hxKKDOqZxa+3KqbMspta6g 0LqeeIc+gh1asXdNxNY9CVuPROy83hDk4JeAY4AcA5USkvxjxKMScUksxT25 TCQEJZfgnlqKQ2IRnqlFOMUXqChyiM7CISoNm8hUKVjp6CXliv8k4uMbg7d7 OG6+0UJQEs5hyaIUXEJTcRU5Bkv4Ey80C6vHLLJJRnML5uIhFvEtmAkZPtVH CJXRpZ8u5Sddyk9aF9qp3UJUD7qxovAuFMFtQk4LpgmtmKUcwEx5MVbaAcyV F+ErldmDSfYhDPMGMSoYwrRkCOOig1ildmCV0oal8qL9hEZMY5vxrZjHu/AY mYOXqFt6JD70o2oL057r39N9/bt/bCl5/QEdV2/Sfukyz37++X99e93SN1+/ ZPLwMu3/tFa3r2BCnqJ5aQjLNKSepT3nLIeKVhipOM947XmmGy4w23yB4y0X mG85T1f1NE/Hp6WJz8sguiuD6A7nZRCdk0E01HcENwtjgchCBVKgCiRrwkVR 9jYS5LQJ0BE/0lNTgRRiqE6YsToumrYYSbgz+lKiyJcVogZMvpTT9aVk201t 8vleaUtyOjdLf9wqp2p7vwS8QwJTuYQ8meS2lmOzrVJCXRURBnU47JUJa1ur fF6O2xuw2FUp9/NEqRhtDRGYPlcBZb/tc+zlGKxpR6pRGxmOfWT6DJETMkRd 2jyDFVcZq73GZOM1jrVe47h40QkB6eSBiyz0nmOhb1m6zBrnVu6wIufhnOjM 2Zs8evzstyWJam9XvF9Y+p6GasnRQlGvJLuGllnaOuboOThHf/9xKgp7KBJi ytLbqJdjR3orh0RdURW0+ufQ7ZdNr2hANByQLSTl0e5VLqqk1bOCRvcq6t2q qHZtIMWnn0j3VvGIRPGfJPGeN/Q4+AtBQo9jULyM7HgcJHHZS+JyE2IC86sJ yK/CP68Sv5xynFOLSa6pfUNQXJ4oC8dYISImXub3LLTj0jEJlJ8dkoVXaDZB gekEy+/z8UvGNSwT1/BM3MIzcA5NwSq0VBKVpKqYNszFQywSO2RUK4+tuJUO Y100iK74rm72QTn2qlbhK9JESfJ0xxxAL6xTqlg7ZsrUl96DefYg5ll9WOT0 v4N5bh9/wDSvD5P8foyKJNSVDGJadAhrAcsqowvLtHYsUt6sfvGuncerbIbQ +uMqaMqPX1PtOZis0rjcP0rp8XN0XL9L+9UbTNy6zW/0/GPx7sQ/Fu82TDJb PyUTXTPBpjnobtORhKWD8U4dLPYZYadpia2GKSY71IhxjSZXWmddyShXhme5 OdZPV+sI7W0jHD66xNTcRWKDggiwtxBy3thQiMMbeiKFnmgHG2JFIQY6BCvU 5ahOqJGSIA0hyE4IShFyCkVVGG8vk99Zg9muHhQbJABv78V41xD62weEoAE5 SgDeOigUVWG4tRrLbbX4760n3LAZx/1VmO1olZ/RJhS1YLJTJr6dVUKSlITt 6RhtC8dWSc72L0TrsJP70cZ2Qp4HSabdpLoMkuo3RGveVXpKrqquMhmtv8p4 8xUmO64w1X2JmYMXOdZ3TrXXxeyRFRbP3mFRKDp55jbnr/72/+S+3RYzQiaX H8grWyK/eo6yunFqaocpyGymIKmOkpRmaoWYdnmaD6Z1MpnbTWdQIYeCShgM LmYkpIgjYUVMRBYxEFzIgcAqekNqORBcRXdwNe0BVXT4V9EY2ERmcD/Rvi04 +Qo5vuI7/kJJQLyKGIcQSVkhkrZE9qHRuKUVE1AgySG/HL+8MryyS4iuriG9 Ub4/UahJyMUhIRPH+BTsklMwSJXhEZOKrVBnF5qMbVgeTmGlBISVEB6ST6Rf JgHBWXiECDVCjlNkMZZRyhQloz6xG8uUbvEEOaZK75GkpZ97CD0Z9grxDb3c IfSyh9HLlKc4/c0GsvoxPehHdGAufdBS6LLMG8IifwjLgkEslCocxKxQkpvQ Z1LUj2GxfCz/zlr5dli28nuUWyGLB8nP96o/iVPhsGpzF/N46YTJv+2DmIV9 atabo2ofxBT8S0s5uXzmLTaubxfuHqW3SZBpmmKi8RidmW2EWXtgs08L693a GG3RkeSki8VOXex1XLHTtsdZV6Rni4O2mQzD3bjo29NR1MaTmVEam0eoE1U3 DhMtfdL4y00EKrFRpjbBJVRwiRBFOdgS62hLvCjGxoJwY13BRkOw0ZD7go2G PUbb0zDeUSzlJfeNSWwvwlzSnNH2HjGfbsz2jmKy5zAKwUWxdUjKkeAjxch0 Wz0+e5qkALVhv79eEJEStEO8fEenoNOK6U6l+VTI4xJsdkgp2h6BjSBjJ8jY 71iPrdwPNjIj1NiMcCMPYqwqSfOZoDbjOs2F1+ksv8YhMZ9BSbLDHYJQzxVG ey9xuO8Co4MrDA8tMTEvaW/pNj/89BfvfyYmkJ9//IazxxuYHGnmQGcbLTUt lKXVUJ3ZRGN2B905PUwWH+JEST+nZcLsExpGw2s5Gl3HRHQ1M3HVzCVUcSKp kkOhtQzFtDIkzXggpoHeyDoORFRzMLyKlshGciL7iAmQtiy02PvHSTqLU3mL khSHUGU/UfaUaFxTC/AvKMMvvxSfXOk06YWUD/SQ3tSEZ1q+pLYcHJIy5Jgk IzEH/aRsTKTP2AYLjSFpktCyJZ3JvwkvwzWihmD5O6OjyogNyyc0JAdv6Ur2 sbVYxsvoTe6Vib9XDECOGT0YpXWjJ6Ner2AEfeV2y9IjFDlvdgw1zBzFIG0I wyTlFnfdmCQLZUKXVcEAVqqtlw9jWTyKpXQmc9WCrhFMlJfJZ77pQVa5/ULJ ISyVC8CEIHMhxlS+ptywwkAmfOOoXBUhDik576h2YvxX1V6MjsnpOMpD9fLy IsTSkoqUVG5fX3373o0LMyPH6W0YVa3ZHWxS7jR8krwggW+/NnZqOjiq6eKq rounugLbL3WlUmhgsUf8RssBJ12RwhZXfVts9mhivn0PVjs0pGU3MtrdS3ZO PXHe/jLPb0J33ceiT/A00SdEoAl/C06MQBPnZEeCsx2JLvYkiyJMFFJ/NMVz NFXwGG4TeLbLQ9yaJZAqB7qE5Z2S4LY1odjYJantIDpb+sUXB1Teoy/JzVhA 8tzdT5CAY7OvXqqOeM2OgwJxj/wsgUfpPTvqJfVVvvWzdEl84Vhv/hjrLaKt n8rj3kuQsQUhpuaEmprJ0YzhgquUJlylPGeV2pJVmqtX6Wi8Tlf7dbq7xYsO XqH70CW6+s/T2XeGlcXL/G77ZVNWzx/m3IkmLsy3cGlBklh2Oa35DXQWdjAg kWK8eIjjMhpOlx7hQsU4w9IJxuNamJEGPZfSyonUZhbSmziV0cRUUhOj0qiP SOYfleQynNxGn+T4/vhaUQ2VMqfnRB/EOyhTRYx9kDKNKYmJwV5osQ+PxjYi DueUPHzzivHOLcY9u4CMjiaqRvtIa27AI0NGVlKW+EsadkkJ6MvHCklqtgGR 0o2ShRrxn9BcoaYAl4hCXKOKcYqpxi2+kdDkBmITa0iILSEsogibWKXHKJcI ymjO6lctGDHMEZ8pHEUnbwTdvDFJZ8MossfeEaMZ5T0JaZIgUsRq5KEYJrar rEUZ5mzKRrAqm8Cq/CiWZWOYydFUeczvxTxK8rpyn7B8pR0NYCEWZpQp5Ti1 FaPUFozE0o3iJdfHyISg3CMsNfvNVpDvv9kKUh6ph5s7UTZWRFpbEW5lSZi5 JXdWV3n+9LnMmP1Sa94s0R1tXCLY2htbAcVeTYGzgOKuoYeHwg4vE3+ctJ2w 3muJyfqtmG3ahbUENls1I6z3aAuEFl/uxQCzLXtw2LwVhw2fS//XJcbOSmD5 CL31n4g+RW/dZ3ibGIrb2Ao0dsQKMPHO9ipgkkQprvakusnHjpbiOpryN9hK 4EqREFUkVSRHBnyRVJ1yGfAV6G0sRmeDNMlNPQJNr0Ajp3aHhFoBx3XXIAGK MSz3iFMLLEY7DohkXtshc5DUJCOByGhng6gSo13FGO7MQG9HmAS7T0UfY7n1 Izz37sRv714CdRUEGhjRLa314ZFXPBl/xcVD3zLV8USAuUtx9RpljauUt16n TCrP+MBVjvafY21ohpdra7+HJpSzsw1cONHMxfk2jnTW0pxbTUe+hLHCPkZl 2pwpGWexbIqVyhmu1s4yFt/FjEBxXMrvggSNU9ndLOd2cTa/k5WCDkYTuxjP HGA8u5+x7F6GMrrpT2thMKWB/lQBR2BKjKnHSezFLkisJSRaAlW0ymJsw6Ow jpTAlpyNZ26BjKAM3HMyCKsoJLKqRGxHQktCHMYR0RKsYqVKZKFIzsM4JBG7 QOW7OakCoVhMaIGEsCJcIktxjSnDLa4c19gynOPr8BbIwzJaiU9vICqpQcJe n4SfPiyzJXxJ0deVEKonf7tC+X9LZIrlpPShn9z/JpBJjdELa5Jg1oJ+dBN6 sQ2YiXVYSw2yUar8MFaVU1hWTWNaMYWhTDYmscoXHyRIxNRgknVIgpvYT+4g OsktGEtIM1JudZHShHFSNcYJhVglKPf8zVZB46JUdAJenp7vECfp6CPVCI62 tRSCLIm0tGC0rZeBumGhZpbBhtNkBuW/JUZIMffDxzaWYOdsYtzyxBIyiLVN I95aZJFGnEkaIVoBOG3ei+XnH2Px+Z+w+OwjFB/8Af0//gHz9/4N8/f/GwH7 vxRS/iRU6QszH8jtZxiu/xx/EyOiHYUaISbeRUmNA8muDqS4OQg1DqS5O5Au Sna2EqtJxkAsxnBrgYx6GeFScXQ2FElGK0Z3c7tYTRvqm4+ivuk0ik2LWGw9 gp/usFjgyDvSf7rloRsKLIYSz4x2tIurtAkkcgb3NmG4q1JUiMGuVPm8GRY7 vsB0+6cS3TbgLrD4KnQFPi3ybJ24l9DG06az3Klc4uuZv/DNsdd8fexnnhz7 kfszL7k9/TU3Jh6wNv6V6AJrR05wrb/nN2jUVYeLPL17nvOzjVw83iLgtNOY WUJ7bjNdBb30y4x7pGiSudJZTlfMc7FugdXmU5zIHeW4DKgFefJPFwxxVtzo nCT385LjLpT0slx4kKMyCCeKjnC0aITRwgH6cg4wkN3OYLY4T0Yl+aldeIeL WyjfgVG9CyPAhEWKIrCITMYoPAbdwCABJBTL6HCsRNYx4dhER2Ak5VTPLwBd Hz80/ILR8JLv949U7aliG6j8mXkCThFOEaWqNUgusZW4JdbimdyIW0I17onV uCbX45XZTmhOB+FZXQLPQfRCylGEVaEjjqOT0afaKFuRKtaSJGU1qgeDqC5R B4bR8pRFNGMQVoN+SDEGoSWqvWCsSw+rthK2qTiKWdUJjMomVdtdmEfWYBFV rYLHXMAxKxAnk/aknylzZ7bMoZLRjNNbMUmtk8xXinXSm62HVeB4B+Dj5CTz to3ImgQHpaxUDMXaWRIjBLns3E19aoNqlW1tRj/W+xV4mvsS6p1HpE8+Me65 pLpmkeWSTrZTOvkO6RTapVNkLbJIp8A0nTzDdLK0U3HfvA/zz/5dyPnvGH3w LtYfvYvFB/+G/Ud/xPn9DTi9vxHH9zfh8N4m1dH5g034CXXRGgpiNRXEaylI 1NYlSUeXFFGqrg5pCqW0hc4AzDflY7GlHNNNQs/6Qkw2lmAm5d9sq0xI4jfq G5aEoHNYbj+Fk9oi9lqHMd4lgWxXt4S2dgx2KF9EaMXwyxYMdjajJ15jsKcO /d3lonz0domn7dgnyHwhXvaZtDd98VhrPIzMSfGK5Vjdab5qX+J55wl+bhnn l6pD/FA3ycuOZe4c/pr7cz9w+9hzbsw8Zm3mtugya1OLXJek8zt0wvj63gUu HFMu2WplrK2K1qwaOqT0d+cPM1g4wUTJHCcqFjhTe5rLzWe50XGOc1XHmc87 wpKgcVbC2/nyI1yqHONSxSiXK4e5VDXIvOB0pGiMo+WTjMnXB+TjvoKDDOW2 MZBXR2NWI+FxhVJHorAKisQqJAKr0AiM5WM1T1/0g4OwiA7DKuoNLrYxSkVh Gx2FWUgIRgGB6Hv7oO4Zhto+C5EdFq5Rgk+6/MwC8a8SHCLLcYypxEV8xie9 E0/xGrfkWlzTJLSli1KrcUmrl3m9EUMZ/orwOgzC69FJF2wyhtCTGqNIlJwd 3YtB7CEM43oxijuAsXiucVy7INSAYVQFhkHZmLqnYaFcayHJzK1sHD+pNCFZ nfhLErMUf7WKrcMytkb1QrW+BEKdVIkbyhepcw6J78jQyGjHJKNB8KnAKEb5 YnkUzk4eRMtknuRsS7KTrUz4yU42eJLkZC0YWakQirQwwkNiSKS5GwO1K1ju 0yHQKZZov3zi/ApI8y8gzzefAvcsip1TqXROo9oxnTr7dOpt02mwkaNVOrWC UJVJOuV6aSTs9ML3Tx/i9Nl72H/xHrZytPz0QwK0zEUWBGhaEKRlKWZlSYSO JdG6lsQpLEnUsyBZ34I0UYaBBVkG5uQampNvaEaBkSkpuk5YCTo2W6qx2daA 3Zc1OEixd9wtU9eeg1LwJ9HefF1i1z3sNB5ip/0VRnvEt3eJy+ySKWun4LVd /H5HI3pfNqDYWYfuzhp0xXEUu+X5252D9s4EQecLcabPsdPRx9XICjdjK47W XmTt8N+4dfQ/ODf0PZdGHrM6+hVPxs7x+ugS/zl6jL8eOskvM1e4ffwlN+ae snb8rugaa7OnuHZ04HfkbOTsZJ2QI0ltro0DJWW0ZbXQKRG/J/8oI4WzTJcu sFAtzajpPFfbL3Gz5wr3+65ysnCK5dJpzlVMc7F6miu101yrn+Ja3TiX68bE oEaZKjnCYSU51TOMVI1zqGSQg5LoDuU2cjCrnNKcBqwDxWhCIrGPjEbhF4KG UKPp7acyGpsYSW8xsdhERf0LdoLM/4lNRDimAQEYOjuhqWGO1n5rNNUc0dzr jLaGF9ZBAmNYqfy4CtyTWnCX+uAq87GrAOKaXPOOihxx8JRa+VINhiHKDVaL MI0oQTdEngMlL5ljUprG0IvpwyBGonWCjG/hxzipTyxBnt/kLtWbN0Zx1WJB eVj6KS+BzRY2GvCvnyCjsoOMqg6iijpUn7OKb8Iyvl7yYAdmaYfEYgYwzBsS ZiTGS9Y1Vl1kIL02RrlHZTRBTs4SbpScpLjYvkOqiy1ecmsjH9rIF6xV4IQa KfDaryb5XRM3HQuivDOJ888nMUDaoKgooJAq/0KqvXKoEa9pdE6n1SWDDlGn awZdok75fIfy8+JBLQJQjyS3AcMA6qy2Y7vpQ9UFZOafv4fhnj0Yq2lgoqaJ qboWFpra2GjrYK+jQ4j4Ybg8F5EuzsS4OhPn5kyCuzNJHs6keCr3BnImTeSk mYb+5lJJa7XiG80CQRsmuzsw3duJ7o4p9m+/h2LPA6y1HmCpfQ+DvVPo72yV +NWiAkX5grPhrgYVKDo7q9DeVSEqRWtXAdq7s9HdroZi++cY79uHrYBbEtfJ mb7XXBr+C6tjv3Jz4q/cnf4rD2f/yuPjv/L0xK9cnXrI6vQqT1Ze8NONl9ya /461k9+wtnBPJMDMn+Ll/du/95pNrExIt5mRiDYrEU0iQntGF53ZIxzIm2a0 aJ6ZymUW6yXKtV7mWvd1bh1a4+HgV5yrOcWZihOcrzkhhJzgSoOocZYrTce4 2DTN+cZJzjYcZbZmklHpRIelrnaXDNNdcIBDea0czK2iKb0AR+Vb+zFJ6HgH o+7uK8T4YRAUhnV0/H+t/HFUrkuIjVWudxBsNLANCsDK2hybnZ+js98EHamc Ouou6Gh4oL3fE23tQByixFMSm3GW/qJcAeSS0ohLkmAjcU1JjXtKnTBTJxGq HCPxJRORjcQ548BCDDMGMcw6ikHCiDAzKMdh6R/SU1Kll0hsM0nrxzRd2Ent EI6Ubb4Ii8D8N5ePuyYInsrdKatxlp/tLP3KLqJYUC+SqFmJeXIPNtmHsU3v V22dZ5io3Pe1CbOYcvn9yjdz03GRaSHZxU4QsRNU7P6FNFe7d+TGVp6vN+hY E26ij4+aOt77tSWGxZPon0uyoJIZKLgEFlEdUEqTfzkNHnm0SLHpcMunxyOf Xp8C+nwL6PfLE+XS55NNn1cmRzwymPTO4ohnNgU6XhgLKhbr38dh8yfoS1Qz XPem0BhuWIfxpnWYbVkvlXs9PvpaxEuhSXRzJNndkRQPR1JFaZ6O8nyly+2/ ku7lQICxAxqfZKDxRRGaG8rR3CTDXjznHXS31bAOtR3nUdt9BxOtO+IRK2hu q2Of/Bs1iXAaWyrR3FqB1vYKwaUS3d2Cy55yURmauwtR7I3EZO9uEn2Kqcs6 wXjrC47/to5j5BeuHXnNjcnX3J55zf3Z1zw88ZrH87/wdEFajfI664VX3Fv4 gZuLL1lb+pq104LMkiCzsMiL/xkZR86NCzLTLaolic1JNbSn99KVdYTe3DkO lyxxrPocp5ouc77jOtcPfsXtgVs8HLnDvf41zlSd4ryk6XN1xzlXO8Ny8SBn slq5lN3Ctdwm1nLruVncwmppC/OV/cxVdjNULi2ntJuBonoO5BfiH5eLWXA8 ai6+qLkHoO4RiFVkvEQyaSkx8dirlvMkCDaisDCc3FxxtzQiwngXXvu+QE/d HIWGg8gVhZYnCm1fwcgHU4dU+V7lDpG1OEo8c05qxFVqt0uSEpl6waVe2kwt xuJIpiIbsQynhFqs5L5RWh9GgocivE/sR+wl+QjGaeOYZB7FVCzITLmBas4g plkHBJtGsZwCrJzjsHKJxdo1FgvvjHdwj6/i/8JVuT9KjPKSOyEyQnn9ahl2 QrJbQjO+0TUEhhTiG5SDe3Amrgl5uMWn4RIV8eaFKFGam71y5MntZjLc7eSe UrbyeVv5ug2Rpgb4qmsS6xRKomcCKX45YjJFFASWUxVQRWNALa0+1bR5lNPt XclB3wr6AyoZCqpkJLSSw2EVHA4tZyK4mPmwQk5GFzEVnkePSypddkkkqRnj uOUTHLd+isFH/w0DFTmSfjb+gxwLIcdq23rihZoEUZKQk+zhKP7oKTdpXo5s E2ocCTbRksKihfpn+aivK0Vjo5CzWUjYUoHB7kbMNbrQ2tkrCawNZ7UGdLYW CjVZqG3KRHOLaKt839Zi1LcVoSbav7UIjZ0laOzOxXjbdmpjhxkouc1g7ROO tn7LbM/3nOr/gXMjP3LliHI7hFfcnHnFnblX3D/xiocnfxRafhB9r7qK+u6p F9xcfs7amSciSWbLV1hdXPjtv6B8Q4wu5442cmGyVbXEsCWxgfbUAboyJ8UI 5hkrO8Ns3UWWWq9xofsGS42rHA2c4Xr8KDcjankUV8fztAZ+zGvgz6UN/L2m gf+3qYH/7Gzg/ztYz//oFw3X8T/Gavgf49U8PtzFfFe/BO8+BqvaGSgtozg6 AQ07P/Y6B7LPNVB6fjSWEfFYRyaIpSRgL3L088fJzk5kS6S1LgmW6sSL4izU MNGxRU/DET1Nd/S0vNHX9UdPEYi2mjdmPnnYxdQIMfX/RIyYS3Id3ilSMsQE TMLKlOYVV8MXmIfkYS7lxCBGcoNyuUBEP8Yiy7gBzJIHMUsRpfZLuOrFPL1b tczUNEmMKS4HGzeh3D0OG484rD1isRc03BMqBY0KUZn8/ir5O8RIoktxiq+U yFmFlRQd59ha/GLKCA7PItA/Bu/QaFxiwlWv2ypxSXe3f0dYURHjYa+6pyJH pKQm0syAEH0zUr0Tpeomky7+kRNQTVlAA/UBLbQHttPt30K3XwN9gY0MhjYx EtbIWEQj49GNTInmo+o4myhKr2ciuoJByap9kjP7vVLosZOcuGcXTts/w3L9 B+h//if0Pv8Unc8+RvPjD9H55EP0PvsQg88/xGzbBpzUd+NrqPOGmBRPx38h 1Uvu2e1az/+OxXZt9n9ejNr6ctQ3laOxuUxyVj17N5Wxf4t8bnMN1nvLMZNO r75ZEBG9I6Bk8KGYTh5qgsj+bW+kti0fqx0K3HboMZB1XgrzVwzUPORwy9fM dD/nZN8LlodfcuHId1ydlLw18x0355SL2b/j3vxL7p98wf2Fb7l36hl3lr/m q7NPVJd3rq3cElwucffq1d+jspmVMUFlQlCZElTim2lPGaIrY5pD+YuMVaww 23CZpfZVLhy4yXDeXRarXvD0yGO+OTTFj/1HeT06zq/jE/zH9CT/z9wkf5+f 5G+Lk/xlaYKfTx/lh+Uxnp0e4f7xXu4MdHCsrpf+sm56a3rorayjKDaVAOcw 7O0CMPaIwDQ4AYvQBKw9A7CV7qtcdeNhY0mgjTGJ1prvkGStgRqJVhokWKlj b+KIuYEX+loeGOj4oq8IQM8gGF0df/TNIrGVuu0gpDgJKe5CindKA15Cio/E MYPAPHR9M9Fyi0NXRrmejHIDkb6v0OKbg8IrDw0fiVvhvViL11imDwkhg5hn 9qnelTRLbcI0pRKThGzVNXW2XuKHXlK4vJWLGTLwSqvCJ6OKgJxGPDPqVJuJ OycqPawSp9hyHJWGE12OvYqiUvzicwiOjCVOYljh/t1kWJoIJR4ObCVTbjOF lN+U4aGkxZYEOzMpNEFk+qTKLJ5FhnhHgX+zlJdOmgN66AnupTekh0PBHQxF dHI4qoujsV1MSMA/Jjqb1MGlrC7OZncym9LCkbh6hqOqGJB0OhSURb9nHJWW rjjv+AzrjR+i9eG/of7B+6h/9AEaH3+AtpCiEFL0ReZbN2C5bSNW2zdgvWMj rhq7VbSwXSCWoCahTEmMrVK712O2Q4d9n5ewT8LZng2l7NpQxh5hZt/mcvZu FIffKWFWrQjdLfJsfJmNYkeOFP4cCWQlYkHlIuFsezQW6z6RnvUJRh/9O2k2 qfTnr9JfeZehpsdMdD1l7tDXLA494+zhZ1yceM7V6eeszj7nxvHn3DrxTLU8 7fbi19xafiK8PGLt3APWzt9l9dxNrpy5wC+vXvn9vsKcGRZkjrSqltc2x7TS njRCZ/oxDhWe4nDledXVsqc6bnC+9zbzLQ+YOPBSas8zrvQtcW3oNNeHT3Ph 0AJnWt7Ul2stM1xrneJq2wRX2o5wqW2Ei20DUoEOSiZrZa60lvHiBiYKSxjL zybWN0SQ8CfI0gNbYy+s1Mzw0lbgbWGMr6WJcKElqGiRZKPJv5Astxqq+4lC jrOJLXam/liZBGGsH4ieXhB6RiHoi3SFHVtxFifJYm7imh7JjXhJdnKSmGTs l4am5CYd91jhJBZDz1iMZaybikz8MjCROmAizOhJrFdILFaEd0nVH8AyS3jJ UW5814VZeiOmaRWYx2aorj+195Xs6BcnkkwWnIZ/TjUBubWietwyavDJVK6H kFqj5EVcxim2RLUJsnNKOa7pJdgl5UplSyHe15smedztiv3UaO8jz8b0X8j0 dEBTboUVUbqSF09XssRRMqWBpHkVkuldS7FfN7X+h2gLGqA3fJh+iZKDkb2M xvRxNKGfqcR+5pP6uJjZz9XCQc4XDjCb1sN0ahfjKe2MxIv7SCwdjixiMDCF Qz4R2Ej5t1j3Ltr//t9R++A91P9dePnTB2gKK7rCiZ64ivHGTyVnbRBWNqpY sRHZ7thApPCcLMj4m2hjI6DYCCjWIqvd6zDdocn+dZFs/bSYHevL2Cng7BbD 2btF8pUYjcP+MiwlZ0nD2ZEr5qKlzF0CisaX0ji3Ogm/SoY/xWrDJ1iu+xjr L7ZSEzbModJb9NffY6T9AVMHHnF84DGLo485c/SJhKgnXJ55wrXZJ1w/8ZjV hUesLj3k+pn7XF15c7HzVdGllRusXVvD//ekfP3VRS4cluYy0U5TpJASL6Sk zdJbsMRo1QVmmq6x2PUVZw58xemuSyx3rbDcucTFA6dZ6zvNncFlHg4vc6/v FBcbhJCWaa63T3Gtc5KrneNc6RrjUtcw59sPcaa1i4XGJo7V1jFZWc5IXrI8 Fe/hrq2Oq74NiQYWFGrrUbZrF3lfbiNZb99bSrSEES0hJcVWi1aSbTVJEoVa KLA3DcDeIhQbizBsbGIws47GxCoKhUEAZu5p0nhqZHTWkVQ/QnCRjPCgTPQ8 49F2i0HPPeYflHjHYq6UXwpmATmY+ecILdkYemdgJKXYMK5H2sxBVVsxU278 k1mPaUapZEZpSH7xqqvm7ANisQsUdwlNxS+nEv/8WvyFFpeMSrLbB/FJr5K2 pNzqUVwmoUSOBfJxPq4ZxUJLDi4piYR6uhPr6ESBkwPN9hZ0m2rTvH87JUba KmD+CxdPO7J8/MjzzyLBIY1E5yL5WgOlfn3UB47QETpGX/Q4g7FjDMeOcCRx lKnkw0yGS4uMrZeG2cFS3ijz2cPMyQwwk9XHRMZBRlI6GBYXHpTKNRiRS39w DEkGWlL838X4i/fZ/957qAkuaoKLuuCi/akgo8Rl8xdYSBBTISOYWH+5ARul 5H6EnSl+UlusdikxWS8IrMNCZL7zU/Z/+kc0Nmiwb70T2ySf7ZA6s0s8ZteG KsljDVjtK0Nteyn7d5SLyjDa7oL9li9En2O35TNsN38mY+hT1fo1H809hErC OJB/g4NVd1Qryka77jLZe4+5ofssHL7P8tH7rEzd5/yx+1w8cY9Li/e4ePou F86+uZT53HnlZc23WV27H/D7F5KfrF3k3HCL+Eo7BzPaaYuRs5x2jINCyoiQ Mt18lYWuNU62X2Sh4yzzbQssdy9yufcUa/1LQsqSdP7TPD18mmdHhZxDx7nc OsHldlHnBBc7xzjfOcxKRz/L7T2camvhZHMtkzVlDBcn4a+9gQCdLQRqb8VV RxdPA4niJtaUGxhSq76X0n07SFffKZDYaRMitwKNSpqEWSpwMvUSWwnB2jwU W7s4SW4J2LkmYescj2dYPhUjC1QfXiSnZ1IKSbYUkjQMvOJQuEdL5IrG2FPg kthk7hODpW8M1n4xWEhpsZDebRmcg2lAplhMGqahBRgktKOQedckQ+JXdi3G mcXYKC9oU1qJQGIf+OYqBpvQZPzyqvDLr8Yzu5Kk1j6y5OGH5AokiWU4Jgkk SUU4qbYszsY5PU9gysQ5OV71qlKaKNbVkSgBJtfViWYXaw5a69Gts5NKM523 oNiTL/aV5pZOmEkiMTaFZHt2UOY7TEPwUTojp+iPP8Zw4jSjieNMJk1wPL6f 44ntzKV2yMetzEjxOpl3hBP5YxzLG2Eie4DRLIElvY1BKXb9Ynn9kUmkmupi vuFdrLZ8hJUMzH3vCzCSw9Qkh2kIKFriLSaSwZSNxUJAeQfLHRvewUo4+V/k dj1OWjuxEErMd69/R4b/Ov431L94D811H6EQX1Bs+gz9TZ/LfW3UPnVAb72r wBZNgl4o+ltdsd8q3+awdR1/xFFuHbZ9IR8p9YYV5dI0P+29RBibkOpQTGfR Lbpr3qwXG+6+w3jfHWaG7nBi7A4LyjVjs3c4PS86JTp9h1PCyKmVNxctX1l7 ROA/XxPjyNkBgeNwm3SSDloihiV0zdCTf4ohCVwTTZeZaDzDXOsyx1pOcqJ9 njM9J7ksIWttYInbQ6d4MLrEkyNLfDO+xPOpJb6dXuLR2AluDk5xY3CSSwcP c+HgEJcHDnGhv5Mrg00sH6ylOcmHIMVmgnS3EiwK091GhM42PHQU+BjbkWlh S7WpCc066lTv2EKenORUYSTVXpsUeyHEXuxE5Grqgq1pEDaWEdjaS1FwTsTO LRlb13isnaOoHDpJdudRsZAMzAJTZdSnSbBKwEAIMRJCTL2ixULe0GGlXKgT EI11SAZWIcr/ZUipLEzl+8yCUjCOKUc/uQH9lGpMcqowSi/AVkapnf8bC1Fd 4xMs3x+a9A4+eZXoEFTeTOOM/AkdhwjOKxMoinFMEaUW4pSai1NKugAicKSn ExQaSIr7P152Vb5wlCFKdHcmw82ZJqnxBx2N/n+u3juqrXzP8t2r7uqeNzP9 el53T/ftuberbt2qsivfcs4GbGNsMhhsYzA2OedsMphkcs4CRBBRBCEJkEDk ZHIyBpxzqnhvzaw3a7213j6CumH++HJkEWTp7M/3u/c5Px2h/vxhFJw5hBSa rojLsfA1jkWQRQYSrtUj06UTRd4KVAeq0BTej5YINRTcpeMJagwndkERzeDi XYgOv0Y8T2zDXJYM/Snd6E3pgoyQtN9shDRBjKaoYjRGZKAxNAa1PpzKX/w7 Lh34nCUcLv4Eh9//DxzhNDnKaXKckJz7+nMYEhBjAmIiFOkw3U9MzPZ/hn+m x9qFc8w6hgc+hSEJOfPNR+TjA5wS+KB/OkM+DL7cjbOffATzXZ/A9ptPYf2l DgqMDBCl8wdC8Rku7SEnl/d8hl/z66e4zB+5JLCifWvMx3A9dQShnL3BF4wh Ez1A2a27qCjYgLhiA421nClNZKV9A4pu8tK7gb5+1iBvj7DGNqAkK2MLD+D+ 13y4Y1klw1RLBW7LRCj2aEZFqBLViYNozJxAe8EkOvI1ZGOInKigrlRjVDyA mQYNlpoGsd46iC1254eyITxVDOF5zxBe9g7hRd8gnihUeCjvwT25AhtyGe7I W7HaXYeVzlIM1Wcj21EXHme+hueZP7C+gY/+HvizAk7vRaDJCfian4WfhSUS LlijwNwYlQY6KDn0DVJOHcCNi+SDFX6RdsvsDCwMGEDMArYnCPm4YMeufk14 +6fAhxpm/ikwco6ACZ22uUckb4fC4Ko/p0cApwejoFMA2aCuycYFd5YH2fKO h4UPy49Txzsaxl43YORL2xWSjDMUzumIZBj7RcGSE0d4A9wFN+H3ArRrEsx8 IuCQmAnPrGKU9g0goVmNsEopnDPb4JLeCpe0VrimtsDpZjWuxWbTYgmfC0+7 tH10VRt+d85LCMeLYhwuMcoH2pEUjpMC5uFaWyPk2Ucg6WICQsxTEG1bjsRr Tch060aepwzVIQNoDNdwTKjppwbREtSMGq8qlDgWo9K1CvKk+/hj3zPcb56A Ok2JnlQZZCkd6ExpRWtiHRpjyyCJyYEkMgH1wd4w/Cs6Lh4QDgt/goPv/xaH BEI++R3OkI6zHCHnSYghvZUR6TDaT1oEQowOCIToffUBzpIO0+N7oUtbpMc0 IUyPM1/sgv4Xu7VHnw0/+gg2HBFWf+Cw+fQgYk8bodbsMC7xT15m2ez9/Ff8 8hn+O/9JOvaQjj2fwN9UH+GXzOg4TdDX3IBnj/4EafMTFBRtoLRqA9UNG6hv 3UBT1wZalCxOkBbS0cwpopl/gtff/ezxt1B8//I5xiUVmOoQoSa8AaUBClTG DqD21igaMtSQ5qrQUdiHruJe9FWqMCxWY7qhH/NNA1htG8BGpwb3uzV4pNTg aa8Gz1VCDeBpnxoPlQrcU8qx0dOFtZ4WrChrMd1eCmXNLaRd+gYe+gTi7B54 sXwNCITBXgSxAs8dRLClLkIv6MHfknBcsETixYsotjJFtZEeRHxh0/T3a6Hw MT2GSwa2uGAaAEtCYXl5GworAQpbf/imV2kHhpGLAEUEU/QNmHozYXtlMGNw kDgSCudtICzdt4WtXafmE60FwtKfYATEwsg7AueZNc4FREM/JB46wYTlqg9t 2PbvWrj582+zPH1h7H0DfgU1iKztQ2BFL0IrexFZ2YPg3FYEZTTCP6UB/jdr 4c/u7B9bCd/IYkTZpiPK2g/hhEKIt5FaKITTDh9pp0e0wyXtSTuhwphDIq5d RrpDInKdCpDnUIHc62Kk2Tci1bEZhe4dqPaRocBBghz7KqRcLkPm1TrG+HaU BPZAlDSAjuLbWGhbx2DmAPpu9UB5Sw7ZLRk606VoTqqHJLESkoQ8SOKSUB/h J6znfQ+XDn6O/wrrQ5+xaG8O7dIOjMOf/B46X36GU0TjDLE4y6FhQCwM9gsO y4BT41+0PJz84n2YsK+5s9fpfvohTglcfM6JITDxBSfJB8I79jktOCEsiZgV /5bTAUNUWerD68iXsNn3Ba6w3uPXz/F/8etnvI/jY99ucrNLu3Qh4rI5ATFF SXzE9lsa/h6PnvwJ47PvMLn4Dhm168jh9OgYefoe5jbfeW/DcHLn08QeL85h oqWSQq9BgbsMZREDKE8cQFWSHM1ZPWjN74G0SAllRQ801b0Yr1dhpkmNxTY1 1jr7sSnvx31lPx729uOxqh9P1Go86VfhgUqJzV4Z1vs6sNLXjAVlNTTCIbKm IKTaUPjGe+BBALzO7YXP+b0IMCQIQvF2kNlJhBCEMCs9uiQCYUUgrAiEzSWU XDJn1zit9dupZ/bA57QeLI38GcQJwqXQ7QsCXBeOFDM3eN2CpZ9wiLURV0Nq 4RJQCc8AEbz8Kt6De1QjvOEa2Qj7gExc9okhA/6w8vSHtbcfLAPIQWAcLIJj YeIfiTN+sTjrdwMGgeE4e+EaywlmjhwGLtSJmy+NmS+sA6PgcqsWwXypQkU9 iBQJH/bejdiSLkTmtCDiVh3CkmsRniRGeGI1IpjpYwNzkH8pDTmWaUiziEK0 jZOWBeHYaCQrSlsXeZvlcBE3HKwR4WCFm1cTkXS9GLec6lDg0Y5E+ybkukiR 7tjCl7IMERb1iLvSiRR3FbKihlCdPgRp3gj600cwkDkCTdYwBrI06MtUQZGu hCxTgfZb5CBVAklqFSTJBZDcTEFtpB9z9S4K/3MtBFY7IFgRBIsDH+OGrRXs Tp+E8eF9OMHGrkMh67KH67F0KVRrncMEYC+usCz27YPVcR3o7CIIn9E6fb4L Zz7fDd0Pfw+zT4VuzxxPCCy/+QJWe1hf6yDPxBi55/bBZr8WAn79z7jCWXWF Y+fKfoKwfzdldEK7jkdYkBBhw0lx2QSh2yrX2Xmb1pJKjnFpFVpvNaEgQI3C yD6UJHSjNl2Ohhw5mgq60VWmgKpKieG6HuaKXsy29WGpsw9rchU2lCps9apw T9WH+/0sTS/uDfbgjrqLf7sdc72NGO+ugqopE2sdIWhP5m6y3Ad3tnZPw33w NtoHf1aQ8V4EG7Hdmx6l1dNFCDNBKDNB2EVuL+nC10ofPlYWSNhJlrUX9FGn fwCBelZM0my5F6nsK1T4tUjYuGbD3i0fzm558HLLRZB7Hm545CGGFeuagwSX XNwUyjkXcR7FuOFbAV//Atj6R8PKxxdWfkGwCNqWuCnrtF8M9H3CccbeCYa6 +jhr6UAkmJy9g/nzwbC7kQLHJBHbfCfCRUrcKJMhsqgDsazEIkowvwUxlH90 qhjRlHjMzSrk+qRDfD0R1fbJqLRLQ9nlNBSbpyL2ilbm7wk6f097EmA3ZX0R 4ZR3mCDvKwlIti9CkkMtJdyNuOtSZHp045ZrLwJs+3DDfwhZ8SOoSR9FVxL9 a8ogem4NQpUxqF2T2p+tgTp7AL1ZfZBnKNGZ0Y02yrsxnfLmeJSkFaIhORlZ 7ldxgR3+wiGhPsOFw6xDu2FJeftbnhfO5L+nPTf579pT+cJJ/BBrM/iaGuKa ji5LB9dPnMD148e1Zxz0P/0Kx37HTPHh76D7ycc4SWWf+5gp+JvtZSrmf/hi W93Cgd0/7EHYaVNIuNupbor7gPbL5/hPWnVfproj7S6QMCrblsq2NUfYlf9D 2Z/j+xcvMNwgwlhHNSoiupDu3Ym8yG6UsX/XEeraXOGj37shr5RDXavAcKMC E21KzHT0YKG7ByuKHqz19mBdrcS6hjWowNqQAstDctxWSzHe0wBVayZWpKFY aQ+BNMUacZf3w51924PK9jLeB1+T/XT1+xBswt7NfwdS2UFUdjCVHXxReJNP MJ/kv/CrDuE8Qxd8GXF2l1FsZ4niC0Y0Qm5wNfLD1avxcHDKgaNrHjzc8xFA RYe75yKWik5i3fLMQzr/neUmrNjJcc3Fp8jl12znHGQ65tIM5CDELRPWAX6w CgiCGdV9PjgJp9i89a66wnD/ERgdOgyDM4awZtq1CYiEbVgynFPq4ZbehJBi GYLz2xFZ2I44KvomlZ3CulXMLY1MYno9kuJFKPNJQ4vnTbR43ESTezIkrmmo c0pDjX0aRNYpiLN1pGG5hF8hnMr+lIq2RihVHcyKuRKMJNtCFAf1ojJ+hva/ FWlecpSG9qE2XkNj3oPGeDbrpGF0pQ6hK4UR+FY/emlMVZmsLFa2CkrO5m7u 347MbrRmtUOS1YiGrCo0ZLJxpyUj3s4Mdns/puP+EBf3f4ILez+CxeFPYaOz d/stH3bbb/l4Tzjtjn+Ex/mzcDp1iqUHJz1duOiydE7C9eQJ2B/ch7O7v8Lx Dz7Aid99iOMsvd99BLOvmGlNvhaMiTlVbSn07L1f4uK+L3GNJkZ00RDxDIDb wj74heBfyNqVg5/B8/xJRF612hY4VXDDjh7G1nRH27razac06i8w2FiF0c4a ZPtUID2gG7nRfK1SaNj5vOvYtaUcsPJqartBjqFmBcbaFZjuUmBWocR8nwIL agUWB7gdlGOWmp5ijQ10or2tFmONMfQxoVigtheo7ZTrB+Fnth9uRvvhSU37 mO5n/KC2zdi5TffSlOvSi+giwFrQdACV/a/8qoPgy/qIdbyEWHYwP7Oj8LrI 3H/1MlJsryLAIRk+17Ph7ZgNHyfWtXR2uXT+fDo7G3VLTeexirxYHjko8cql bkp9chCMYu8cFPK+PJccxDunwMmNHoed2MSHXdveB9YHTsL04DGYHTkC42OH YWTvza4eB4e4cjgy6LmnNiEorx0RBR2IKexCYqEMyUVy3GJlFCuQn9eJ4pgq VAXnoZMmqDMwHV2Baejwv4V2v3S0eN+ivtMgcUxFzeWbiLW9jhAqOpQVQk0H s4Ko6UCHCwi/4oUMBxGabs6hKXMdca58LK9ulEb0oDpaiZoYFRrpK9uSNehi p5anD0CW1gtFRi96MnvRm92DniwFlNk05dnd6GDfas6Voj5HwhKhLjsfdenJ cKRyLhz+ApeOMDEeoZ4PfgKvY5+h9MReZNMXJp/RQbT9Re2bSbwMz8HlzGmW 8L6iU3Cjtt2pbQ9dHXjonID7iWMw/OwLHH//A5ykpo/99ncwohEx+epT6n03 jOjwzXaEfYGitmZZ7TmGDFMzFJof4WPToVPXNoeE+hwOuvsRZW+9reyrVPZV KvsqlW1n+kvb1tNuPsF3r15CWhiHlmw3ZPkzrwTJkRWjQEmqAuV8+nXcRa0i vhS1cvSyZfe3KTBEWY8p2L57WZT1BGU9pmFL18gx0C/DsLoV7+bL8Hq6DGuK BMy0heC2NARFwWeZng/AxZjSpqw9zQ7Ax5zSZgWY74W3xYlf0XXoIhGBVHKE vQW7lwmC7Q0QePU0vEiAN8tTcOmMjpGeKQigIiPdixFgn8HYloGbjllId86i Bc1iishDuWc+Kn0KUB2QD3FgHuqCclEfkgNJSDYaWPVB2RAHZKPKOxvF9ukI Y3yMD3CmynSReskIFse5l08ch+WJI7AwMtSebL4WXQ3HhHr453QiJLcbUXkK xBf0IKmgD6mFKhSkd6MitQN1iS1QZ7RimHGuJ6IIyvACVh4UYYXoDs1HV3AO pAEZaBXU7ZIMsU0sghgvg65bU8nWJNYa/lS1L1WdlxqDHJcG3HJophdoQJST lNSyA0WQnuAuVNyQoz6hD83JwqJLNbrZpeWZfeiir+zOlENBNSuyZJBnd6Ir pwNt+R1opE+qy6tnVVDZeRDdSoQx+6IxFXSeWyNuLaikDBcbVLhZo97ZDE12 Z9FkcQzVenuRqn8E0UcPwl3/NDyobA92bU8q24vK9qKyPXWO49qRozjz8S4c /c37OEsDYsSMeYpb/U92wWDXLm3TtmCrFlRtpVX1N/A7ZQ6J7Vl4n/jyPVw+ JLRrB70DiOJLEymI2t4KN+wpantLSoRe5Krp9qUn/hPGJzYwwZoe30B6sgyz oxuYHd7AzOAGPLd1f0q7ScaTu9PoLApCS643xOnxiA+UIy1Widw0BUrz5Kgp k6OxRg6pRAFZK9tBhwJ93TTmShZ136fifax2RTcm+0X4+Y4Ef2T9tNaAH1Yb 8Gy6FBuDmeguc0Gi02E4sZU7mxyAGzXvZU7dW+6HnwVNucURuFvqwOeiPkKv WiCEgg+g2ANsTyHQRg8BF3TgTcH7MJKG2Dki2i2CNiQGiZ4JiHbKQqh9ARIc i5i/ClHgUoQKrxJU+5VS4BWQhFegObICrTHlkMaXoT2hFB2JRWhPLERbQj6a 4/LREFWAmsB8lLgmoDnECJJQY8RbnWQrPwqzEzow1z3B0eJAUabAmePBI0UK f477sOxeROWqkZTRh6zUXpTFdEGUIGOOU2ClpAerZUrcKVfidlYzVDEVUEWX oi+aIESVQx5Zgi7C0B6cBalvKppd4pFvFwA/Ct+H5X3dCg7W52BpcAzXrehy zf0RaVKKyEs09QQgxa0TVeEyFAR3oiS0HeURUohjO9GULEd7Rg/bdi9LgS4K viOjnVspOnOkzJ2taM5vRn1hI2oLalFfUIGa3Dz4sU0bHNAeMKEl+Bj253QQ ZssQYHcJQaxoRxsGGBuORhvUe1ujzd0MHdfPot36KOrO7EWG/mHEHeU+JQA+ BMDhKBvVGWPo0aac/93HMPpiN07t+gS6FL7exx8RgI/Y1j/WLn21FMS/n8I/ 8CVsD+mj7JIp4s/vwyXq/jpV/55W93/P5maNG9eo/GtU/jUq/5o59WK6faDl /8bTp+8gbZtAPvtREasypxs1Wd2oZ96QpHWjMZmV2I2G2G4MVExguW/9l1NY 20S04CmJmJaXYKQtG10VN9Ba5I/i1ALEchqk3lIiJ59kVChQRfNez0nQyEnQ QipaZAo0k4zaTjlG1WJ8v1iB/7XeiP+5LsGfWD/dIRGk4ltS8XalHq+W6iBK vIxQu+NwsTgKtws0KlZH4Wt9BP7WhxFw2QAh3CPBbP++V/mKXtaDNw2PL0kQ aAiyIi2Gezgx9BDjEoJ490jc9IhHru8tlPvlIIcmJ/lqCZJsipFnlY0a91LU hNajPqoRjXGNaE6UoO1mPaNxHdpTxGhPrWaYqERrcjkkiSWoD89iO05Aw+UI pOgbw+PAh3D6w/uw+/o/cJFlfvArWJl5wcWdMdatGO5XcuDjUYOYSDlSQ7uR HU4znMK4l67GUokGq+UarFdqcLdKg82aAdyr6cdqKc1fWiNUHCO98WIo4qog I6XtN4ogDclCm+9NmvlIeLDfubHf2VkYwMZYX3v1XGdrc9gasFucyUekZQ1t swRJLm0oJwl5wVKURXSgMqodoug2VMe2QJLCdp8lR0e2QEcHOklDW3YLmnKb OAJo1osaUc8SF4lRlV+OhLBQ6O37DHr7P8OVszpwNTdE8BWaLRp1YWH2L+fW AiyM4cbW72Z8HmE2FkhyskaFvw2a/a3R6WUCmdMZdFw8AjGd94XPfg3z//Ef OPlv/4ZzH/xGq/5D77/P2j5JfOLD96H7+/dx+uMPoL/rdzjLMvl6Fw3PESSa WqDZjvve2nh7PXgkgfg1IbBGBBtFxPULLEuEE4iS5EitmLvax1FKT17GErHq 87vZ6LvRTkMjo1+X3+qGMpWV1A1FPP8d043uiG6MF4/jzeabX9YJndo5Tv90 /TamhQ+sUFRgpocRt7MAg2230FUVBEl5EipKilBbVYyC8kYklSogapBA1llM IEuwPFxNL1RBGhrxv+427pDRuEOGBD/c2SbjzQ4ZzxZqUZNCu26rB08aex8a EX8bHc6Ckwi4ch5eV87Cg/e7W9A6CnODRPixAq22yQgwO8w9dB2JbuFIdo9D lm8G6mJE2rUtZbZpqKdJSj4dh1snwlBlnY3KoBZUR7RBktCB5pvttMVtJKKV JqIZ0lQJmpOq0RVTDEUwn69/Mjo84yB1uoH6S0EI1zkIzyMfwuXQ72Cz731c 2vtbeJ4z3n4PtE06ii6mot44FpJjQZA5FGMidxizhaNYKh3DasU4iZjApngc W3XjuF8/hocNo6xhPGmZwZZkFnMkZ1AwLAliSGM5xyIL0Mr/R3dEKrqLyuB4 0Qzbl8M1giupcDJlnD56FNeOWSLsvAjhF+qQ6NiCAj7HzIAWFIaRkigpquM4 LxLaUHdToKMNHXlKNKW3QMF4rSadfXVqKOv60F3fi/ZqGSSlrZRSBVwvX4TF 6ZOc1dbwu0yTRiqCbS/+5S0LO2/4cT2jRzLOwO3sWbifNYCH/jl4sXxMTBBt a4k0F2uIAi6hyd8S1w99DK99X8GAFBz893/Fkd/+Bic/+hgnPvoIOh///s9k nProfS0ZBkLtJh1ffgJXHXPU2hshxd5UezLvBsEQDmFFcIaGE41wohFONEKJ RnVBPioKut5DVVE3DZWYX5sLmW5Ihpxk9JKMfpKhoXcdSu1+D0Mp3fg7DBKQ gQRWjAyq0E58u/XmlxXa23D8E57cIRydJZjpJhxKEeZV1VjS1ODOSC22Jurw cLqe92VhWZOFtaFsvFuW4PsVin+VENxppHFq5E4kEvxCPjq3yWB9L5CxtkPG 8jYZj+fEKI6zhTsJ8CAZPiTDj2S4WB2Ho+lJOJvrwI1keApkWG6TEWAl0HES YVZnkegchBTXaKS6p6A0oAD1/oWQBpai2ZWhzi4dhSY3kXTMHy06/hjyLaJr kVD9zeiKbYQ8QQJlYgMGEsUYS6iEJqYUvREFtPM5tPLpDKpJaPeIQotDMFKM SOqJj+B54kNcPfIBHI7vQrn/DZQHpPKxcxFmV4p0m0o02pSg50Imes/FYdRX jJXKGdypmcFm7SzuNcziQeMMHjXdxuPmadYkXise4oXiPp7Kt/BQto7NzhXc kc5hpWkcK1TtSlU7WkOiOSNM/3x1W4+LnBe04zZHj8P22Ek4nbiMYEMx4q+2 sDs0IdmH22DSEdFCF9cCUXwrxEktqE9pRVNKC25zZk23jGOsfRajnbeh6ZyG unMKKukYmiuliHfxoYO1hIe1FbxIhi/JCLBhjCEZwht6hNPNwpk1Pwuj7QCs fxauZ8+REL5GZ80QamgH77NG8DEwhO85Q/idPw97nUPa01S6n32E47//Hzj4 63/VLijS+egT6HzyCd3ULuh/ugvnPtvF4PwJTL/cvb1Ydc/2YlXrgyeQf9kC IvtTdEoCEZxd1621B8CEw7phjFShJCPw6kVUF3ZALFzisYSDgttWotFFNHry 5ejPZdrNUWA0iyk3U3hDtAJT2ULJeVuOCdqrcdqr8ZsyjHDmfn/vtdNf4/HP +OHNM0y3l+B2F/GQizDX9xc8NonHA+LxZKYeL+Yb8HpRgndLAh6N+HHtL3j8 fHcHjjLhJv5IOH78a0BW6/FSAGSRgMyLcX+mBgXxV7jzdeB+WQfOFw7Azvgk rhEQRzPCIowOlrfltqEKYUXzdry9I5Kdw5HhlYbSICEzF6MpsAKy4Googqog dSuA3KcYSbqxKNUPxaB1HCaiRZhKasbEzSZMJDVhMkXCasBESh1Gk2swlCSC mtFDwZghC89EZ9BNmoMINDn7IdBgNyLNv4CnwadwPvU5KgMTUBGUhYrAYlQF iJDnUoNk+wZUuDShx6MOky4lmLK5hcWoFo6HZTxoXsajliU8aWW1LeCFbBNv +p7jZe9TPO15jEfK+9iS38V61xJWpbcJyRCmy5vRHBz65yvWCnB4W1sQjqOw PXoS9kf1cP3YGVw/cAXRVk1I5GPHuLUgyY8jJKQF+TdaUExTVZ4oVAOq+FxV HBka6Tz6O+bQ1zkHRdcMujum0d4yis74dNy0sYEbAXG3usCRbsWRzlxPQAIJ SLDwjjcCEkZAHE/pwvnMGbjoG7AMCYoRR4cx/M9fhLeBCWOgMY2vMXwNjfiz Ojj04W+x//e/wZEPPobJv30Ivd++D53fExDmbT0CcoaAGHy6DYjx5x9r3/lg vrOa23LPHoQZW6Lxur52iWqYcGp75+jwewghHr9C8HULJAcnEAoZ72sgHv+M 1mI5ZEVK9Bb0YSBfjZHcfo51Nog8DWYLNJgv1GChaIDVz1JhrqAXs3kKzHC+ zKR1YiKuBd/ff+W4DcnpnU+Ym2wlIB3lnCEEpLcKSwM1WBsRY3P8F0Aa8PwX QHbmx4+cH3/Uzo4/0U7J8fO6FhT8SUtI458JeUdCXnOEvPhrQuZqsDVXhYH2 ZCQEXcCFs9/gsvEJ2JpsU+LCMeLFCrLQRSgrwkKPVlsXNx0DGTizURKQhzL/ YtQGCmvsa6GI4FiIbYYyqBo9vK/DuxRZRrHoMovGrHc25pLqMJfegem0dtxO l2I6vQ2TNBxj6Y0YTqvHQEoN+pIqoIwvQHdkBrpD4tDpH4RsW0M+Lgkx/BKZ 140hCkylYStgMbgG16IppBGt4Qy2qeOoCOtDC+PHBMPwajBfP/c8bKZ04rF0 HU867rBW8a7/W7ztf4tX/a/wTP0cj/oe417PPazL72C1cx4r0nG0xWXSaEX9 +Yq0Xhct4MS4YXv0BOyP6eHa8TNwPGGAK384g2QTJyRezUOwQytueLYiPrAV qeGtyIxpRXZ8M/ISGlCcJkFRZhO6pYvobF+AtGMBLe1zkLVMY7yOymH0kHj7 w9XCEq4XLsBdGCOXOEZsSMmV7THyCyWOwjmB0/pwOnOeZchxYgx3fRN4GJjC 87wpvIxM4W1kAh9j4RKiX8Do60M4/bWw5vQIzv/7NzD+1/+A7ge/1xKiS0JO 796Fs5/tjJEvPoEZx4fZ3u1F3IZffQz74yYcIaZItDwCByMdXDc6qT3OHEQ+ ghwsEeUWAElRBxrJRmMJY3BxL7qo/N7CQWjyhzGaP4ap/HHMFE5goWQSS2WT WKmYpPmdwFrlOLej/Pcw79dgsViFpbxuLGS04W59/98Q8k9Y0XRhuo2EyCox 21OFxf4arA6JsTFei/tTdXjMEfJ8rgGvFiR4yxHyHQn5YXV7jPx0569J6dbO D8Fg/cD48R0JefsLIYwfT2myHi6QkPlqbM2LsDVbiZ4GF1TnOCI/2Vs7RxxN OFdMdeFtxmhipocgBvG2tAAoC+JRE5uHqhtlKPEtZBisRENQLdrDG9FLRQze 7MBwQiv6wmoxGF2PCjv+rFUiJm0SsZjWgOWMZixyuM7Qh05nyzBJ6z+WLcVw Zgt9KftsWjUTWxm643PRHZWMrrBw5Dsa44bVV3A3+hryKG8Skkk6SiEiAeIQ CVputKItopWDfBJTolWoCubRmDQM5U2G82Q5HiU04lFICR5z0L9Vv8O3mh/w VvMdXmne4tnAKzzqf4Z7qodY79nAqnwJg5UytCXlkpI4hu6r8Ny52rmLgQGu HtVh9DgNB9LhfIImZr8BCq3MkGF9Hv6GLvC7WohA7zZEBLchNrKVJUEyHz81 tRmp7AaFjDs1nGftbSuYJq1rpGWlZQIrjSrI41PgYmYJF8sLjDpW8LhkBW8S 4ktC/ElIIMO5LyPQdb1TcDhlAIfT5+F42pjzxIRmyxRu50izoRk8jczgZWwG k/1fwegPB2BygKZQR1f7swYfH4f5v32OU78W3g20i0ZrN3R378ZpzpCzn+/C eRKiz9LZ9QHv/wCnPv0A5/k3Ui9aItvqCPS/+lC7Cs/owKew0t1LQmwhKWhG E2NVU7GSdPRDWjQEZeEY+gsmMVJwG5NFs5gtmcNiOZ+raAFrVYtYr1nAhniB JniO21ncFd/GWjXJEY1gpYwmt7ALizmNeDa2AIe/xuT/weOVWUy1lHGYVDKM VGFBXYMVYnJ3tBb3Juvw6HY9ns424CWHyRti8u3yttvaQeU9LStybTD/cad+ WJNoXdbbVSGGkDJS8mRRjIeLNbi3SEoWRBiTB0NR6wxVazRmhsoxP1TJhxVh fagKW0PVeDhcgycjNXg2KsZwVQFqY0tQHS5CJVUqChCjMbQJnVFt6Evs4jwQ Dg11YDC+BcOsXs6WApsMyK+mYTm8HKu5rVjN79JeWXE6rweTnK5jeTIM57ZD k90MVWYdlGkidCcVkpR0yKKjUeBqAn+LP6Cv0AnyGD/UhWZqZ4gopB61tP0t MR10Kl38nV5MVq9jvo5qb9zCeNUqZDmTGGJw38pX4XVWG97EV+KtaBRvh37E q6Hv8GzoLR5pXuBe/xOs993Das8qlEXNkN4qICk3kexmT4dlqb2iue2RY3RY p3D9OHs4CXHRMYL9nlMotzFD5sVzCGQcCDYwQwjV6mcbw1gRwP4fhADfTIS6 RCHYNRIR3ol4Qpd3v+cR7io2sSZbxUoH3Z1UWE0vRZaXB5w5S1zotlzptjzo tv5MCilxNSGZuqdwTc8A104Z4jqV76hvCmc+rst5RiYjc7gbm8OeTuziMV3O kCOwPKajJcr5jCncWWf//SCu/5p0/PZ3DOq7cXLXbuh9KtDyMY589B84/sn7 OEFKdEiJLinR++wDeJyzgNjhPK4c/L32yk/nSYnFsT0IueKMjKBbqLpFUuic hEsydhZOo69gFoMFC5goWsZM6SoWKtewwn1zR7yOjbq72GpYxz3JOu5L1nC/ cVXriO82LGC1lq9FtTBXVFgpacd8XvUOJGd2IBmXlGFaWoHbO3Fk+f9I64Lb EuLIq4UG7SwRIBHmyfecJT8IkAhIyLXj43ve+m6VJmvnCJY2hizRZC2J8WCJ JmupCqtTOehtdEGHyAkzg+WYJRyLhGOVcNwlHPeHavCIZu/ZmBgvOM5Ga0og jipHTXgtxGzf4mC+MOFtkMV1QZWiwHCGEhPMXrP53NJSTt5ifvMQ8cXNwm2X LKwVdeIuW85yyQAHrxqThb0YK+DvFXRhIE+KPrYORWYNZGmlkCVnoysxnn/f E3HOelhpC0F3TACab6QTkCqIQhshjpSiOV5YuaxEVzINlvguZhu2sNz8AHfa HmCj4wFu169hrnEDUxzqT0Qa/FDWie8yqvC6bpQifYRHQ69wT/MM6/33saK+ g7bsGkgzi9CWmkTrf/nPl2C2O3LiLyPkpCHcdI1x9StdVNmbI+uiAYIoopDz FszMFghgPPDhz4fr6yH0vCHvN+H3jeBvcA5P+l/jgeoZNnofYE2xjhU5zZ2M omiX4eXKPG5FxsCJo8TZyoqQWDMmWsOLkPgQEmfjcxwJp2Gndw52BOQqAblG QBwIpeN5czgTEBcBEN5vdUiPo+QkruieoSEjPGfMGVnM4XDUEFa/2Yf4D3fD jGbrOEfJia8O4cwRY5w7agyjoyYwPmKC4wREeAODDgExP3wK+XZmCDj7FXS/ /ABmhEO44m+iSxhuuieyslF9iya3YAaygiWoC1YxUrSOqbINzIu4P2ru404d 90fDQ9xrfMh4+BAPWx7gUet9PGzdwv3WDWw038Fa4xJWGgiJeJigKLFcQTv0 7Pn1v4bkv1HBc5horsB0l0j7MeALNFxrguEaq8P9nUnybLZeO0leLW5PEyGa fEtQ3iMTkve0YHRrD+5+u0KSODteEw8hhzxdFuMR6/4y58eSCPMjCZDXCfMj FjOaCswNirA0WIU7g9XYJB4PhsV4MlaL5xO1eEW3N15TBnFEJRGRoDaS0zVO idYYGboTFVDzJRrOZh/nbJgr7sNyeT9mOCMGkjpQxgSt9MjHWmId7pZ3Y628 FwtlA5goVmOU3nWoSM7J3IHevBbIs+sgy6xAV3oeOlNuoi0+AMttoVhijRSH EZFMJnUxKsNaUBPTiaYkBX+2D90ZvVAXTeG2ZAsLLZwH0vtY77yPR72v8Hro Z7wd/hmrsgeYk0zgRdMg3lT14vu6IbzqXcbW4HPc0TzEUNMwpPliSHOK0Xrr JjythKuUX4A/Xc/VIyeZ0PWZQdiPOT/c9EzguFcfYkciYn0GQectEWJoiTAj ZolDJxB2+hTCDfURStmG0P0EG5oggLhIEkrxoP8l7qoeY7VvEyu9lEXPOFa6 FXi5tqCVQSoxcbC0giMdlwsxcSMmHkTEi47r0snTuKx7DjZ6hrA5bQJbuiw7 ImJPRK7xsXqKZnBV1wiGX5+EuZCb6MqciYcb8fDUt4D3WQuY72bOPHoR4Wae cOa8c7oUyfwTCSd9V87Ga/Bgeeu5wvdcJC4dMoHpHgOEmltA6XkWepwzwqV9 Qy9dohO9gSS3W0hyL8RNNxFqUycgz1tHf+EmxkofYKbyMRbFT7Ba/wx3G59j q/kFHrS+wCPpczxuf85s+AyPO57iQccjbLbfw53WO1hpXsSKZIqoDGClrh2v 5ud/+ZQO/Z1QMlpXgUmpCNPyKsz21ewc1xJiey0eCKFEYGRu+9iWwMhrMiJw 8laLA6cG6z3tLV/ev33+QztBljlBiMeDZU6Q5SpsEBFViyvaRS6YGSjXXj93 XlOFFeKxTjy2iMdD4vGUeLzg476eFhCpgDi8itWMukgZmhJU28t9UtVQZ/Zj KKePk0GNOcp/WTSIO9WDmC/pg4SRut6nBDOM9xvF7VinPJcqBzHJnxspVWGw REl5d6GngBMprwGduSJ0ZBVAlZ+FwaJYzBOPeWkoBolId0ICygNrUc4AUh0n gySlBx2ZashzVVCVTmBCwknSsoFF6QYe9L3Fc81PtFQ/4c3IT3g7+iPejv1I O3WPw/oFfl79Ed8tv8DmMBEZfojBViJSRETyitCUngAvK0vtNckD/ozI2W1E OEHcT5nC9eB51LuYU/qMroYXiMIFeBw/jSDd04gwPI0wE0uEmhARhoNgY1ME GhkxKJXhvuY17vY/xerAFlb6Vzi9aMSVCjxfm9/54IIzuLOygpSYWFwnJo6M 7i6cJK5XrGF5/BSsThowDBjB6pQxrDlFLtFmBV0Lw0zLD5DnTxIRQ1w4eh6X T52DA8OKCxFxFxAhHr6m9trr6nrZJSDULhpBdpEItxXWpkch5mIkYixCEGPo iwTjENw0jkLCuSjEnY5C6rkE2O9ifP/g33Dl048QZXsdyS4MbK45rHIku9Yi 1bWZoXUJAyWPMF7xDLM1L7Fc9xp3Gt9gs+Ut7re9w8P2d3jc+Q5PZe/wRPaG 9RIPZc+w1fUIdzr4ekhpydrmsNLKydqsYFDs+VtELuOHVy8w2liJic4qTCur MScEkkEx1n85/LuDyVOOkmfzRIWe6+XiNi6vlgRkhNscM0IRDyF9aPFYIR4r NdjkBFlfFmFtsRJdYheMyDIx019BRERYGKD5GqihyRLjHrF8RCyfcXS9pMd7 M1OP8WoiEsqcHN6Kuig5mpP60ZUxwow8if68EQzmqTBRosEs5b9UNYS12iFs SoYwywwm8q9CX2gt7qe1YL1OiUV+f6pSg2F+b6C0F30l3VAUSulkJegpl2Cy sQWLrbVY7sjCdGsoponJUE0IuohITagIZRFtqKTJqkvrpTnqg7xAhZ6yMUw2 b2Kx4zFf2u+Yxb/D08Hv8GKY+XzkO8rv9dh32I2X49/y+X2L+wvf48HoK+3H r66NEZH2IUhLatBWUIC0AG94EQ9fJgIBEffzRjuIGG4jcpq5+LgxGt3NtIgE Ew9/4ZjrcT2En9dHuKkpwkxpvEyJiAkRMTFBoLERJMnluD/4RnuJlpWheywi opnEcp/873au9iXQ0d7SDDs+tL2NFcxPnYUxH9pYoNPaH3HsNr1VrzBc/xbT Le9QGFaupeIaibnOweLA/5oLvZVAReDVUIS7pSLCPRVhTkmk4gbibG/gph1V fyUKGZejkHMxGnlW0ci3YJnztmk0bp27gbRT0cg+GYWQrw/A47PfIOjQSUQb BCH6XBwrDTHncpBwvgjpJuWo95Cjza8X8mA1VBEDGIoexHjCIKaThjCfNoyl jGGsZg1hPVeD9Tx2xvh2PC1X447sIVa77mKli8O0i52iQ4WlptpfqDir3fwD 5pVyjLSIMC6rxlRvDeb7xVgeqsWd0W0q7pGKh6RCOKr1ZLb+PQGNX+H5Qj0H xbNF+idS8Jgx4yGHxD1SsLFSjTUOilUOihF1PNStMZhRlWFGTRL6q7A4wO9z OG1wUNznoHjMx3hOCl7x77+dbcBGDylgFq8Nk6IuRonmZA06s8fQVzSNkcpZ DJcMYZwD4HblABZqNJyjGtyld7nXOghNAYnIu4v/t2eN81SD+ZpBzFQPQEPf pSIJA6IejNb3YVHOl02hxqKsEwvtTFuk9FvSvT6QiTVWf0E66iOLUUwaSxNk tLo9aMlTQ1GqQXeJir/3CmvK19joe4P7/W/waPAtng6/xbORt3gx9hYvx95w +5ox6hUejb3EvfHnuCt8CPHEfQx2DEJaWoXmglyEOdj/hQT6mb8lwQRulFsQ q8nTFAH0UUFGlnA+qotgfX0OiXMIMyMFZqRAW6YIMqOfMiUJKWWk8DXWR4Ur RpKE0WXSMI75Xhn+s3a/n8Qr4UOmo4fQdHMBTVkbkBY/hrLqOQbrX2Ki5RXy w0q10rfXo/RPCdJnLqf0g66GINI9BdEeqYjxTEGUYyxir0YihdLPuhKJ3CvR KLoSg9LLMSi/FIMKbitZFbydZ35De+XoCg6ICoNI3NTRQ+mFcMSfS2blsEqQ aChCikktcqwkKLnSgmqHNjS6daDdpwvyQBlU4XIiIMdEAmNnshyLt+RYYwRd z5VhpfI+/r/xO7ijeIIVBYeCcpVbxgv5gPZi5jvSN9Bu/LVLwYfbqjDWXUPp izFH6S9R+msjtOTjddhkg75H//LgtoAAc8YspT7HmuftBdYivRWlf48Je5Py X6dHWuEQWGLSXlgQYbgvA7d76F/66JNUlZhV78ifQ2eDQ+cBH+PxVD2eE69X HDrv5hrwPYdOTYAYtaGC/HvQlDqIjpxx9JZMY1g0g+HyQUxVD2OG0p+v02BZ 0o87LQO0igNYpI0f7f4jftz8Cc/UI9iSjuFu2wg2umewLp/BXeUc7vTexnLv KJZ61FiSd2C+oxrPp2rw7XLDtu8j2LMtpejNKEF1rBLVaQOQ5A6hvWQYysoR 9DBRz3Y+Iz70Pr30QOqX9CWcxUMv8XjkJZ6MvsTT0Rd4OkYrO/YMD8efYmvy Me5MCtfL2sJ0/yRaSytRlJgAR/oa4dCOm6mxVv7CJ1FcO6r/Z/lfOaCLSCbs Jm9j+DNlCxHDj0k31NiAAyeU4v8HrfSDzTgEzCl/c/4dU0PUpxZjk49/R7j0 4wRlML6I5eFRvLi/9V+0u/4EX95+SOJnadfuoLnwAWR05eq6pxhpfobc0CLY 6ZzHVT0jbeN3YOMPtAtEtHsSYqn4OFYSK+F6NNKuxSLTNg6FNnEotU1EpV0S qq8mofZaEuquJ6HeIRH11xNQZR2ECWtPtDskoN4mBlVm4Uiw8kTMtXzEXK9i NSH0cj2DtQIZvn0oDB7g7F2HnKlBVXYPg8LHvosfYpqBeq7pIec3X872B7jD NHdHtoUJ5bd4NvWGu+QZVvoeYEXF1KCiHeqlX+hs2hH+Oe3GD7MqBQbbqulQ ajDRI2ZvrsWCho5guA5ro3VYZ0/eoPg32fu3KPx7FP4Whb9F4W8u1GKDwl+n 6FdZi0ucGYvVmJ0XYXVdjmcbt3FbQdH3st/3iTCnqsKSENgp+k3OlAf820/Y 75+z37+m4N8xkHy/KEF3Si3EIduil1D07bnj6Cmdgqb6NgbLNZgQenn9IBab hphj6YDaNdjo0uCeXIMl5W2sq2/jSW8/tjrHsNkxhkeqFdzrW2amnMcqv7ek GsFSH3u/Uoqp9krteUut6Jfrta7uGZ/bcHkZWlJaUJXaD3GOBi3Fg1TGILpF akwxj811P8ZyzxOsqZ5iY0D4kPmnuE+38WD4KR6OPMHD0ce4P/4I9yj2u1P3 sTq9hbmhRYwrh1GVnQ9nfQNc+GYfLu7ZD5t9B2B74ACuHjwIpxO6uH7kDJzo fmwO6CPB7AJFfx6+hubsuRbwMbVCoLnFe1S6Of4rdW7GfzIXmLPdmxvB1+wc H/Yp7pKzVeEajlOc+hPzmB8e5k9vC/7l1neouzGNhpRVSPLY7ikqhfgBBhof IjM4H1dOnoMd270gelejy4h2jUecB9uyZypuet5CiksqUinqbPtUFNjdQumV dFTbpaPWMQsNztlocs1Cs1sWWtwy0Ugopkxt8D+DnbAQEUYIYtHAvFBN4adc 5d+yL0f0pQoEW5Qh8XoLcr17URrYD3nOA2bFb7Hc9icK+2dsdv+M+4qf8bD3 Zzzp+xOeqljqn/BE/SMeqr/DpoqCV7/AygBh0KxzS8Grh3B/cmhH8Oe1m0h8 9/ol1BT8IAU/SsFPqWoxo6nDAgW/RMGvsBOvUvBr7PZrMywKfo2CWKHYl1gL C2LMLtRgeqEak3Mi/PjTS+1f1opdXooZJcXeK4i9WnvC/A5t/ubYX4u9YVvs CxJ8z9R9r1fCLi9FbXQPu9UgWvNGIWcK7a+exECFGmPCOh+G/blmiptCX5MN YkNBk9OrYTrV4LFagyf9A0w/o9jsHMYD1SK21AtY759lMpwicEMUvBJzyham 1Fp8vyrRHvh6s9ygjS+C2O+oqyFNFaPiJiNElgZ1RWw5FQPajwcdabuHya77 mJU/wGIvFaV+iDt8le9qHmJj6AGnF2vsPk3NPdyZEkS+DE3HEHoaeqCo60BG WBSsv96LS3/Yh8sUuz3F7rT/EFwPHIL7wUOw/2Ivru09SrEbIJVJtdTZCN6G ZvA1Noc/LX2AKRUuFDt7AJXubyGcNDGGn4UhUn182JweYG3q3l+uvjgxh6eP Hv2DdqccZ9pZhjhuCXWZdyEp3kC7aBPK+i2kBebgsnC+/OR5rdgjnWjZ3eIR 75GCRI9MpHjmIcMlB1nXslBgn4tSdudKVq1DAZpcCtHiWay9emy7TxFaXNIw bOmMn4N98Co9Fm2BeZC4JKLNJR7tTvGcBmlIulKKG5bl8DEuQZClCJmePSjy U6Eheg7d6ffRm/UAI6VPMVv3ClvKn/Cg90f2rR8p8B+4e7/XpqwH/e+wOfCG /ZNCH3qElWHCPTRPwQ9qL5q/o3TDnTVO76j06eEeqKh0DZU+wtY+wdY+TaXP jNVhjoqcZ1ufZ1ufn6nF3GwtZuf4/TkxJuZIx2w1FtcVv9L+OWc8u0uBd1Pg 8u0VhdolU8KKkGFB4LRGk/XbAqdzf81O/m5xW+A/LrOjJ7VCfKMHdSkaNOaM oKuELr56HGpRP/Mm86xEzZDVj/n2fizJ+rGm6MddoYOr+umq1djqobPvGsR6 J7s8hb0xcJvJYRpLmgnaKA1hk2Nc3oQfV7dXoQiHsF4vb+fzZwuCVaslDNWo SpShPH0AVfkDaCjrR6f4NtTNGxhu38SEbJPTigLu2cSCaovPjXZhaBMrIxTW +AaWJjcwPbQEpYQBjNVdr4CssAa3LK/g0pd7YEOBX6HAXfYcgufeQ/DZfxj+ B1kUu/uX+3HpqxPIvGKNFDszeJwXVkQIIjeFLzOsH8uXjt2XtsXHwohlCC+L c6jKyKWoN7VXSxSumjgzuYbV5bv4R+0+OQZ5yQaqku5wQm2gQXtpuQ1UpHfj IpPD5RPn4GFmjxiXKCo7CfHuWVR2IW55lCHNPg+59kUouVYCkVM5xK6VaHCr RKtnJdr9qtAZUAVZYBX6Lvjgp6AQvM5IRUeYGIqIMjR7Z6DTj+WVgHbnRMRb FiDeqga+JmUIv1yHLE8lld2HmogRKDM2oc7ehCZvCyMFWxgv3OI+FE6CfEtF swbe4SFTk3A4a4O2cW3kORMKW/gYW/goG9jQIH769u2OsI21m3/Euzcvsbm5 CIWyBn0qMTQaMYaowlF6irFx1iRvT1Hw02IMTtdgYKoaD58v/N2OkIV147e7 SreXxip+EbKYQq7dETI79e2/FfJ3WiE3sus2QeSvgDiRXTJ7GK3FI5BXjaKX 0VJd04Phhj6Mt/ThdrsKczKmbIUKq70qWpI+iraP3VvNBK7GclcfI+YUVing pUHGMc0II3E/JhjL7owI71USzuBRyCvCwaZ6vNgR8qP5Wtyfr8GiphrFCSqU ZQ1AVKiGpGIasvoN9FHMmvYNjHRtYFyxgam+DdweoHCGWCO8TSGPapbQ1dCL Dpa0rgedRfUYDUvAVFgiLn2xB1fYra9/cwBuew7Ce98h+LFTBx06jJDDhxG4 7yC/p4s8+4tIsjOF6zlTuBuabH8AqAnLlGVmDE+K2JMi9rA8D1cLA/YawjO1 gUmKeIKeZHBkAe++/R7/TbtPjqCzbBNlKesQ0Y/Ulm+gRbwByyP6sD5ugKBL HohxjkGsazqFXIhEtwqku4mRcbUMBddFKHeqQY17LRq86tHkU48233rIAurQ HSKB4moC3gVE43+X3NJ+wKEirhmKqEq0BOajM7SQP5uCDu94FNveogmvQoJt E5KcOLU85SjwU6I8uIcivgN1zjoG89cxUriO8eJ1TJasY756k82JYh54RQG/ 0F4/W4jZq9qscZ+1Rjcxg4XBgZ1Tvebaza9w994iNh9wTj9aZHq593iR9209 4X1PFnbeMid8dcKTtdvaVaozv6xS7f1Ly90+41WvPUwpKPXVvARvtUptxA9U 6k8rjRivbEFlOA1s+jDqC0YgraBaaZ6VVQr01ysx3KzEuLQHU109mFX0YKGn B8uqHiz10i909lLBPZiRKfiYY1ToKG4PjmJKM4wxtYqqkmpVqjXPO2cOXu0o 9SmVKixXukeftLVQhWlVPQpuqlCYrUYN21Qj21R7wwbkLRvo7dhAv3wDg70b GOpnKx5kUalq9RKaa3vRxGoQM/3m12OcKp2hShfCbkLu5I8rX+6DPZXqznbr rW23RxB8+AhCjx5G+LEjsD+oiyLHi0i0OAlHPQM4nzOBC9XqamwCNxNjuJkZ ad9H40qlOlueQ2ujHLX5TN0sDRU7u/IIb7/94Z+0u+Mwnj38EzqanqC4cAOV og1E+ObA4qgBoq+FINopiZ02F7Eu5Uh0ESPTtZHeoQbFjvUQuTWizrsZjX6t 9AZt6Ahqozh5+1oanvkk4n8X52LiZhXkMZ1Qp7ajPYJ27IYIbWH0GCGZ/J04 1Dqzg5tXIMGmAYmOUqR5dCLXT4biYBkUGctQ5dJ2FaxguHgFY6UrmCxbwXT5 MuZq17Cpecbu+gQbzCRr4+yuk7RLhHGF02SZAn3+8MEvK3a2O+1uTAlLP9sr tEs//3ph211BdRNUHQf9sxlBddzzdLLfCuujOeh/2FkCKk3qRnn0EGo47BtK R9Bew6pQMGcooJIwcrYqMNKhwES3AtM9ckwrebtdiYlObqm4yR4agoFRjFF1 IwMjGFQPYlIje0+74uEYvlvenvFvdo7DP18UVv8Ih2DE2BJW/yxWUXiV2Jwr Qx8TYAHbShnbSg3bSmPTBtqkG+iUbaBbSRGqWBRet4azVNQDkagXdfktbBXZ GKPYZsKSsBiWjLXQZNwNS8ENzlXbP+yH697D8D5wFP6HKLojguiOaEVnfeAM SlwvIsH8OK5RkPZnTXDtvDEcjFgUnQNFd11fF3Y6h+Giq4cc+yDk2wej4Gow Sq+HoC0gHkMFDA49g/+s3RsH8OTJz5icfYdsis5a1wyR9jcQ5ZCOKKciCq8a yRRbrns7chwkfGiGVq921Pt1oiWoC+2h3egK70bD9RxseaXhfxUWYziulN2v Cj3JPehNpuCi69EeUw8pO6M0sgDSiGS0B0Ui1qgM8RfrkHCtGUluUmT6SpEf 1I6uzAX05C6iv3ARgyWLGClfwFjFPCYq5zApmsVtyQJH+QN2wntYnqR9Ytdf nr6LpalVbKysO/611nZhvJFaExZRdlVi9pfVYYM7q8PoUR9Ra0+ptZdMTW8E rQldbme5sXaFGLvQiLgLJbHDEAl6Y5drZkyXimjQ6hToaVIw8Smgkck5G9n5 qL0BbjXU2kCXHANKNTTqEXYczvG+YepNwX4srBo4oRXZW+GEz6KwEJOa1x7i FuO+dhXN9jKBrYUKrM+W4U8/Ptc+o4npd2iRP0U+xVbWSFFRbGLO41p2OXHP BoolU2hILUdHbCZUYfEYpsimKLDmwCyU+OUh1bsI2V5FKPDg3rVJhreOC3xP uiLomAWCjp5F6LGjCDt+FJcPn0epB+ew1TG4HNkPu5M6uGxgDBtDY1w9cwpX eN/lw/vgcfwUCgVx2QVD6hEFhW8sBoMSoQlMQD/F1usXz/visKkY/BftE/ga 03wZEhzikeCciwSXStx0aUCaWxvyvWTIcWrhw3agxkeGhkA5WkJ60BHRi0ZP MRYY+/+YV4GhWPrI8ApIw2ugzuqHMrkDnYltaE9ogjReDGlcCaSxGWiLiEDY 6UTEmIsRy9Eb79yCZK8WlEf1oz1jDvLcOfQWzqG/ZB6asjkMV85ipOo2RsVT GK2bwJR8noFvA3PsZu9hjjL7FaYmFvHD9z9on8nfdLVP8US7DrF8ex2iokr7 pijtMis6vy3m/odTVBrn6Ysd5/d2550f3/2y1EqrOAmdnBR5McMoThtFNR1g db4CkjIFWqsVaGcsaK9VokvCalagW8rqkKOTJe8dgYzVrhjG7eEu7cL5N9qz 78IZ9zeLDfgvfz6tqF3QuLxzMmXnjPsm1XZ3oRwP7sr+fueTOIYW32F05R0e vf5Ze48yJAJ9YdGsePRTWA1BGUjzL0RmQBGKWCL/IraGIhqlIrRSZGVXOLco sHgdVySedEPMcVtEHD8Lm2PGKPWyhv+ZA3A5zsh+fL/2jeB2uif4vQMU1wGk XbiCJgpK6ReL0ZBETLCmghMxTXFNB/I2BTZOgY34s6NRYPO5Vf+8898WPoIn 3TOHIitEAjvYTedmCqwT+T4KFHn//+19WXBj6XndSScuSSMvipPK4oekKqpU pfIgV6XkctlOYjspaUaKS44c2bIUaaZHo1l6errJbrK7STb3fd/3FeAGEARX EACxgyB2EDtAYiW4L93sbXrGLsdJKucC4JTs97zp4eNFNwuXwHfOd77z3fvf ezcwQqKJClSYL9JA9kgLKZXM8l4PnrVP4TB7NZUIyw+noGzQwtxrhKJhDeuN VLuGRfYeKlk9yVfXjeXKKnz8X7+NB282o+wH82zVMnrIBfSV6CBt8WK5k+N3 7w7UQzvQju5AT3IZpl0wzjlgnLdCL9mCwxG/AYdT4JbVvosXL19nv0RexW5e L9+bG4FLPsYRmR1T8Gl/b2XSdcc89+aW8AloX12vTgrN5zrbb2YXKhlkG+ho saC3y4T+DprQfhUmR1UQk14zpNechEFqzS5uYGZZh9k1CxRqLc3mYnZRx7lv 7gbO+Td+NbsO6twvNMicdgmMOsifnkuEpxAPTWAvOI6wdxSvX51+JX9j8bhG B01xGTQPKsmkWgze70TH/X6K/wDGGXMM+b1BrBcMQnVnEJrbg9B9NIiVn7Zi 8DuFaP2j99H+h++j+T++j4I/uImhT/4Mb//+7+BtMuntP/gP+Ml/+X38mP++ 9+abmPngDow0dkKvdT6oxQ5Z5GcEGEGyKVQkbGvgZ+zcryarqmAvqIT5dnnO mP02R3Q/0Vwno8SofmcatT9bRPOH6+i5s4nhQi2GySpRIX3kAx3E9xRQvDOA s2ZiMrkONSc5VQ2/bq1wSzAb9B06KJtZu80KLDUvQ95CN9MiwkrzEFbr63Hn Wxzdv/UWir7bjoc/XEDJuzL0lNkgavJhvt0HeY8Xq8NkFaVKKWLMeqCad0El tdPvWrC5uQOTg57XtofnLz+7vm7z5i8ucJOOwbUyAbfQDLVshsbcyoScROWG 0xNK1FmeSpf5hW43hHWhN7L96jf4c5Ycm4VKroBcJEJduxItfUp0UKe62Bm7 RdxOb2B0bhqb6nXsU/sO8id3b2RXY/9adiWdsFLo2Jfz9Ee0WQdB2qwvTvCK sEddilKXwrRbr1+f4Y38kJ7KUqgccsLXWtiJ7qJ+9BdTgBjSogGs3h+EmhQy FA7CfHcQ26SR7c7gDdj54lewTUYt/KgCY98rRPebBRj5gfBkxb/4vW/yD3zw u99EzZvfxdQHn0DzqApmap09OxrUwf+gDiFGtLjuBvb44suI8WeMxNplRIqr SSxK0f0q7BRWINo78bXsB/4GQls+SBsVkDZb0U/ZqX1XjqaPNtBdwDH7gYkc ZhXe12Ls7gbmfzqMdO0skmMU9XozVPUkUZ0e6kYTjP0OaFs3sdG0gZUmkqh9 DfIOGZY6ZrDSPsL/a8Ctb30XH/Mb3H7rO7j7J4/w6KZw56oABhoCmGgL0H/6 IRn2Qzbhw6KYpJrdgVzihmzBCZnMigWpGY7gEZ4+f52/KP7dPH8s06Owyyfg XJ+EhzL0hXHPmymhxR3m+SNcmXK9olhY2XIjy6R/hUv/7N9pQ8LKFtdKBcwL hTDKC2ieCmBcucvtJ3CoGjn0ziBObiYpc2nuf991fZKUlPIKBy2EcXAG+wHh BOn0FydII6EphEmfYIBtLabInZ/4N3AN0rQXVWDkXgt6i/owQMaMMyTFg1gr GubvRmG+PwbbvXG2Gqpt8Th8D8c5FY5xO4KdB8NwFQ1C8sMqbPygFubvV8Hy kwro3/kQElbv2tsfUNSqsqJjJ2UE2gRo7iOCwX/QiARNfupR4w2kHzWSPulH DfxnPf+7loSqQZj0CRVVwl9YjhO14Wv5p5ZIatchbbCSPn4MlbnQeseIrvs2 jJR6MVXiwvA9I8bfVyJcMY/okAIrtQZ2LQM2GvSkkAbqJg02WzRQtaigalVi tZV127YEWdsc6TOFxbZeyJpq8NGb/w0fc5y4/R1SiLFQrYKiJ4Xm6hA6moMY 6A5idDCI8bEAJqf8mJj2YZz0GZ93Y3HeApt48foWI+/m71Ii3Edte24ctuVJ OqopeDQiBPIHxGLW3Ap0YUWUIA/CRbHCqqgbWfb8a5wKq6MYp/7cFCasATkK 5ppMmvJgWXuMzYUCbC7ehVp+B7rlUvgN0wiZZ7In1/fIm7g9d4I9Sd6kPNzu XJ9fnMmfX5zOnl8MkjMBmm4f+bIX20DuGP/XobpXguGCOvSxSw1QZkaKhzBb PIaV4ilsFk2TLLPsGGK4b40gcKsf0Tv9SNAT7T1mi66cQaRCBFtBK0w/vA37 zxuw814DjD+uh+TNv4TsW9+D/Ps/ppeqwTaJ4s5Og42IPmxC/FETmdGM/ZJm HDAOS5uZl6PSJnwJB6WNyHCMSj6qw+6jGk6PVYiQ1P7CMnwtb4LmK1chLjOi v3ALnffs6C/xYqIqjOmqIBbrI+i664Wm4wzJ1V2o23RYrTNigwqjaiZlGtXc qqBsob1s3cB6h/C8Z1rQnhWGBPLuCSx1dqHpnZ/gZ9/8HXzISfPn//mPUP9u EdKLT3Gw/BRHK0/hnjuFYnIfqukUVLMJbMzvYX0+gtU5P8KLLoRlBoQlcpz5 3fmHj/wsb3heXJxhSyrcdmMKDqUIHq2YrCFSZM3e9Yohx0xeDXKN5ZDoHpE9 R97ZGzgkvL+FTDA3tqdIGKGfROlKdKtlWJPeZb8shVWVO0e3Y5iBn6QJkjRh eqoIdx8lKXcpNLv5c3QRP4lFwgQCYpJEhB2G2zeJ4zPfr+W5Ii8oQ19hMx1N N4YoJJNFIsiKZqEsksJYvAjr/QU4PpqA7xO2tUJa7qJJZB5OEtVxZKpmsPNo CK4//yn++t5NnNVXwHObvHm3Gms/KIDs2/+dAvOnFJY62DjQecmT8MNmxMiR VEkLMqUt3E8LjstacMJgDfHnl/la4E4T0qUNiJewd2X5Ukm+PMb5pv438nRZ GzWj870ldH2kQ1ehFQMlO5giVaSkylrrLiRNKYjnPqUauCCvJV0EdWkWVEYF TSvpQiup7tqEQrgHU68KS/1KyAbWsNC/AFn/JBa6u3Hvf/wZfv7Hf4gP//g/ oeH7f4HUgxGEbvfhsNuE3TYjTjee40R5haONS2Q2zpBQHGF3LYXwapThZVgQ XlrHRdiXp8t7eUv54uKcDSR3s0Y7MXWTLr5fEALhyJIgBElnbqVNmrjuE9c0 G0ia2KaIbZJciZMru+RKmGIQpBj4A5MI+BcoMFPQr4tg5r6t5IvTOM0Zi4Cx Ofm4Xz/36+c+/aSgzzsNL8PjI7cYdh9NVlyFl5+e/3p+Ap5iIxgsbMPgvSGM 3Bdj+r4Uy0XLbD4cRB4pYLk1C/fdeYTuSxB7KMF+mQRHFRKcVc2xUwwg9JNb +F8VBfjbsTJEmoZhfzwGw61qaG/ehfxPfoz1t2/TtzTA8aCJjauZmLcgWdJK jrThqKyNnGjD2eM2XAhRLmxb+W9y5zH1pqwJibIG7Ga5Uk2uVCDIue/6syuX LRhpWkLH24vofl+D3rsWDDxyY7KSDqcugNWWINQdYajadjBXqcZCrTp7a6Q1 EkXdrGT7oatpU0Ldv4n1HraqfuEesWuQDS1DNiyFbHAKA1W1ePet7+F/0gq/ 8+23OLGLEBox42hch2d0Ra8HFvGaw9pFzRCeTpqQmfQgoTrFrjKDsDLOCDBs CK8rcbkbRJ4tOTfzz7Jn6Q0LUzCTLdtKoqShAuhZ2aYZhMiWCFHdZevYo8DE iGqMqMbIlJhwNptMiVIFQl8sSaES+CexG1feyLukxK4fTrsaGrUIBp0YWyTL NnXLxm5ntzOcDNc0rG4xLB7+3sPOs6fGi0/Pce0XJyp7MVjQQ5ZMYvSelDPR Ck2tErqHGnYcBawFS/AWLyNasoJk+SoOqldxUreCHb4n+V4x/ndTBf5qohfR dgX8zUtw18/BeKcMxluFVJO3ofjpHVjIQhfZESA79siOFNlxWNaOk8ftOCtv JzPaccl4UsEgS84ZJ+VUGrIkUUZnVlrPv19LlrD7PCzFp6nUr+Y/vt8VxTRB nR0SnhqxiK53Vei7bUb/AwfGH3swV7uDZc40yg4/dD0BbHZRVZqEm3Sucrpe xXrLKj3KGlY7GN2rWO7jrDS4jIXhJSyMLDKkmB+cxN0f3cTbb/0pym4+Qmjh FfaWPmND+xyWuTRiyxnsSOy4WLXhr9ZM+L8ravyNehcnmgiim0cIa5IIa0Pc CqvbN3GxF8rzJLf5p3hGnnjMauhX85VPnjipKh6qipc88ZMjQXIkREUJkSch KkqQPPH7qADkicdPbvmpSF5K/Jkvd4rwDTx9eo5YMoBkOgAFHbTSJIJ6i7Et goqRPg4gdRz4zXxTCdp2MFkxjME7Ixi8O4exgmVIClVYf6CHocwM62MT7MVK +EpV2GXBpWrUOGpQQ/dBO45vV+L/dLfgr2cmkew1Itqthb+T9KmZgomzk6mw FJpbH0P1USm2KRbuhy0IkQqx0nYKQTuOHnfgtLyDVOggDTqEIZA/38hS4qKC dGAckBLJ8mYaHhqXUopGCUWjpBwXOt1X8yP0+fElZgeWCNk65kmJhcENtP9I gd4PSAl6k+FSN8TVHiw07mCt3Qt1jw/6AUafk76E1reOkDfLIWunRnQtYbFX zsYiw9wQY0SGWVJieliCtuom/CVNeFfxBDySlwguford5c+QWPsMaeVrHKhf 42jzNY61n8KnSCK4ec459wUSuktE9ccIG9KchyPcOkkLNc5iX2jHh3ljkoj6 oaIp0apEMLLLWMgHm3kaDpoSF/ngIh/cLG6Xm1zxsNB3yJsdWtWdKRye+b+e BzVs80PauYKB21MY/ESGcc590ns6KErMMFbY4Khzwl6ih7/SgL1aI9J0ZqaP +nB2vwl/O9SPz+fpcwa3kWTsCvff6N2ErUEEEx2Aiaqtv3cP+uJGWB80w/Oo laC2IU5AMwT0uLyT9d1JADvxpLKToF7xJ3lZSaArWf+VBLWiNQ9qE6JlrPMy uobSClzq9V/N1/hMrwSSgWVICaZwE4TlQT0W6Qo63zah97YDAw/cGKvwYLaB 4yWbwXr3TvZwq6JZuIWIDs6J3KN/FvvWMdMjwwydgnhQisnBBUwOMyWMSTaH mjvD0I5fcvh8BrfkOfzyl4isvERs/SWSypfY33yJA80LHGkZuuc41F8hrX+K uPGSw+kJwlsEdYugmp0I6dT58eRWfln61dU5EixGxSYLUC+GziSGwSKG0cqt neEQQcfwRNUsTP+/vT4oZA1B2q7EVLkCQx8vY+KOGtJiExRlVhhrXHA2euGp d8Jfsw1bmRLWj0dxUdKNv5mcxFPRBi6I28GoB8kRB6LDluy9U2wtszBVdRH/ RpgqKmAobiJ+LTn8WJDxsg7i15nDr6ILl4wnlV244nsEBK+qiGlVB/FrJ35t SFZQ18uJX3kDgzr9OItf/iDKb1O6ApAI1+rTpkkHNLRrZqwP2KDrd3JodKLj Z3b0FOxggEPmeI0Xcy1eLHZ6WYlbWKdYm4cNMIgcMMx6YJC4oZe5oFt0QC2z YG3GgCUpK3rKy78RxergMTQT59iaeQKn5Cm88isEV6+wq7hCXHWF1OYV9rVX yOg4PeifIKPPPTY6tnXKdkyxttIGWsMIWxw0bO7rIbMgf877yfPcOjkh/t11 iW1HIG3ZhLTNjsFba5i4q4X0AT96BT9y3Q4czQEEaFRM5Xoob/YwdcP4bFqC J2NmXAy7cTwRRGbCh8S4G9ExG/zDJlg7FmCs64exth1bTc05iB4KELXlIerM Q9SVheiC8DwhPNRN/mSJZSHqxAlhOqjMQbRbQYNWQYgqCFE5ITLorxEyyDWQ 9i1CSq8k7d+CnMgo+7ww9AVg6w9DR6818TCAzmI/+ir8GGvwY7LJhckqLdZ6 hPWkHig4om/Ms+ykLEGZB6tyaqrcDtmsCTPDNkgbyOSOJJYHDqAaP4Fx+gxW yTnc8nP4Vy8QVlxgV3WB+OYFkppzpIWF2PozonOChOUYu1ZhQcI+I8EIIrTt wNl+6hqh0S+OohINkkba4sIcsz9+Vw/JIyvWKkmcBh9srSEWjg3qdwdxWj+F p/PLOJ7awdFEDMeTuziciiA9FURscgfhCQe8Y1twjmpgoP3d6mS0t2XR2BbQ KMmhESMa+yyWI6JxSiTOK7txWdVNRLqzeDwhEueMY6KRIRqJylaO7ESjkmhU 5tB4nU7nC+YbkHTNQNrLdtRnZDiw3OuDui8C08AeHCNJ+CbSiIgztMAxtJQQ ltog2h6bMdFoxjwLa34iAKmYwfFXIvVhbmEHszK2PrqUrZElrJbKIKnh79pi bG9prI9loBUfwiw5gn3xGJ6VE/jXqWjKE0TVJ9jTHCOmO6LSHbJQDrBn3efk Kpx+T2TX5oYcISRD0Q9/EYlvcCaKQFJHJBrdWGiPYrFtF3MlNqxUeaBpCGC4 wAb9fTPS9AknM1rEpnxIT+zhgCgciKLIiCJIioLYFfkQmHTBM7kN+yTloH8G lv5xmDvboS9qgoVIuFkXQQEJ1kSKSBywJo6JxBmRuKjKoXFJJISaOMsjsU8k 4lVEoopIVOWQiFRUXNeEsKZA2imFtJs10bPN2MFKTwSbvXFsDaXhEq57FZ1g d/YUCfI4LTvHRKkZPUUqdDRto7svhP6REAZZ3gOiAPrEfqgXArBSrcLSLYTn N2Co78VMORWvOYr5ngTkBHdjKgUdbeXWwj7sSxm41zLwbmQQUGUQ0jDxeoaZ BNhOIsRaCDjjCLqEiMFr9+PVi5f4O0h8Hef7F5ivZonXu7DQFuUolIaiLw15 lRtK1sRQSRr2uVdIbaQRGg5jbyyMxEQYqSmGmNiKWQ/kU4hIeEVsOuJt+DUh uJeNsAxNQNfdDi2R2GITcRKJAJGIsiYSj4W66MJhHo3TKuGRFufE4StZFE4Y h1XtSFe1IVbdgihtVbSaJqCqBmk2sDfyU3fY6qV0LBEOA6RdTix0BbHaE4N2 IA3L6BHcU2cIzVxgT/IESdkVPEMRbLw/hiuOek/W0jjbeIJT5QXn/TPsKw4R X08jurqL8Iof4WU7wpS/EI2OejgGcW0E0x1xzA3EsTQex8Z0AjpJAubFBKzL CTjXk/CoEvBqE/AZGZY4vDZhUWP8BjzZc7cuJ2Xk8Cx/g9csEmN5JGbL2L6r nVSnCJb6UhTCI2hH96HuDELeGIFyYh/b5L932I/gmB/RCT/2phhiH3bFXoTF O/CL3fDKfAjpOYBa4/Bp7TCPiaCta4fmPls6rZidKHiJQpitXKiJJGtinygc EoUjxkm2Vwj5/zKOBFWqbkeyug17WRQasyhEiMKn+/tv5OfxsJVOso0dvN1M MHYg64wQhCS0Q4ewjJ/CI75kEq+wt/AcqaWXWCtaQ6plDS+WtnGmeolz9XOc qq9wpL7EPmfouPIAUQUFRMFuq3AjvGZASL6Ak/gLKMdSmGjYg0hYEToUh3wy DoWwMFAah2EpDvN6HNvqOGy6OOwmxjZfEwSrg8F62HawFoKp6/uyj+WPyQd1 acyX2yFpCkHWm4Bi9AD66SPYpCfk/z7MQ36Y+1ywsyu7x9zUWTf8U26WuYtZ d5I3e4jrU4jbjxDNtqI9GuwdmGclUN2tw+b9BmiLm6lIrXCxN/hphMM0wnvM foImOM3IVHbeYEsWEn/A9GcE+jPx8WoKUQ2FqKYRkeo6JKdEOf/7W+xoVPJm BaStFKFWH63RHlZ796EdOSFXLuCZuUJI+gIx+Suo6u2wl67iSqJlsl/jbPNT nGte4UzzHEeap9hnY42rj6nq9KqbUQa7nMqE0OrijfzgsUYKDjfHMU6dE4/G 2UjiWJEw/8y7mnnXMu965l3PvOuFJW6koI6513D77OXnH+dSPp4/oSB+aGUb DrKlxbA8nMSmKM02k4FDfgDf2hFCyqNse/HJIgguRRBajiBjPkJm6wj71gOk 7BnsOdP5VhNFQFiKaLVh7ZNabBQ2QEXZ0VN2tuldXSS8jykPMeW7THksn/Yk s53izJEk0RMkeoz5jtS0IMx8h5hvL/P9aj+D64SHzP7s7d6lTVYWagCLHTGs 9R+wUE9hET2Be+4ZgguvYBlOYfFjefamLCfKM5xsfoYzLZPOqe9MWPGue4a0 9hJxLb2lLoOwnnTR+xDWbiG4If+H+XOMwrMel2XH6B+MY4xEF8/FIZHHsbgW x7KSydcyDHzNhK+Y47D4hec9fnb7FxP973GeeglxuR+zrXs02XHCmIB2NgGL LAXnShpexT6Cqn1E2UL2dPuIG/aRYBtJbKfJZ+Gqh9wKp4CwSNsZgZ0GWNjz k3gGK3fqsX6vCcriFujJ7W1y28lk7zDZASY7zKk9wnk9ytjlUBAlqcNMcrCm FT4m2stEu6sb8CpzkDuC/S9pP0joerrCpgBkHQmsDhxCM3YGi/gp3PPPEVh8 iZ6bMwh26nC86uZE/QrHJPIp83qif8G4HsCeIGY4Q8TE/JpjCJuYX8MWUk4L csdBvoLD4885Hl+hnRavdz6OISZ3dJXJVsShdB4jmL7C3Vw2J/JHZDbotKbq opimAC0Mx7EuIvH5VjPfaudbPRtUfnUCQXaBELtAeCuOEAsgaBeyF882Ahed kdUawIsXL2/kL2Z4kjjA4t1GrNxrhqK4FdqHbTCXtMPGZLoo1R4m0svwVQrR Di8T6WEinVQHB6XZRml+mTn49XwS58pX2U2oCvUBLLBnrfQfYnPsFGZKsTD8 9BWqoa1QIb1gRFL1jBPsMxxqn2WJeWygFBs4BBkuabHZOzkAhS1M4jaTaGGn MXE6ScdRnkvMZP4brI+kMNYYg4jqIKU6rE3HsZlXZWG5tl0Vh5OEdRsZVAcX k+LIq7KFW6M1iucvPv1HebG5YEKMfXOQ3W/BChOietgOHRNiIrMsZJaVybCR VTYmY5vJMDMZJibCL5rD8/2D3EmFf8FWmICkYgvSOh/7UwxL/RmoxjhjiM8w 2xbH1KM9ROej2GMRxFVPOAUKq/cvcaBjcAI8MJxj30QfZ6Gfs3IKtFFxbLtZ cQ+azRW5HEzlP/RJ5nMM0nqP98cxM8HuxM60LqM6khg6FqyB39/EgjWRFIbt vDoyXKHsue4v5Y8I+De3oR2UYP5BK5bYr9dL26Dk91aXt2OTY7WaoeSkoOCk kDBt5w7T/XPMPDLlrvRsibKJpbDOJqYVHWGNfbhv9DVchucIrp8iqjxFbJPf ieqT0p2wUhimIyQtNEDWDBsYv6MjkV8/u4O434/8FxXlT6keZl5DtnCIXrbg MVbADNuAlEAvsXBW2AZW2QaWCfQSlUlmiCG6/zR/OvNLdCVWBPU2FqMNESGM QlhxsX/I+sp9lYAmg5kyT+4avm7uh4KqmkpDP0sXtJCBa+kA3rUDiuUhIupD 7GoOOIccZK/aim1RxzisRx3J7MUlwsrMEBuE1+rGi+fPrr/KTHbzK7B6ruAM XkGuP0YvsepfFtba+ZNX9GtnV5//vaH+H0M9uAtxdTh3xRXldIVWUEUraJAk YVlMwrGSgmc9BZ8yhaAmRQbyY5gZ24msCPiza/l8WT/ocYTx6uWr7J7zH2s3 u/knUI4mMdmQu/RlnjqzQv1XkU76hZzW2FhSTlLKTUp5jPkHzrCkXPwTTv4J p3AlgmMPvmAcVbld7+W/gYJ9fLQ5hklW6twIWUoAFZSwzUXunrs1sVK3tMKF FKxMVqqFuzXbcw+hN9pjSB9eojq3y1j+hIPb/AT9nBmHmZApEl/CT7rE3a2R +Bv8lCoNi4DEV7NLqSy553U7Q8e4evE5anK7SmQ3X4XDeYVO0mqAn2qctBKT VnN0FxJ+Kgl3M09qGb3HCJNSdbm3pvPHYLb9V3CEr+DavWKKXbGrxtzvswDe +uXrX77+5etfvv7l6/8fr/EP/h/Pqy67\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"Plot1o", ",", RowBox[{"(*", RowBox[{"Plot2", ","}], "*)"}], RowBox[{"(*", RowBox[{"Plot7", ",", "Plot8", ","}], "*)"}], "Plot8a", ",", "Plot8b", ",", "Plot8c", ",", "Plot8d", ",", "Plot8e", ",", "Plot8f", ",", "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.581829050758353*^9, {3.5818446723169565`*^9, 3.581844677995367*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.9482045318, 1.87218934272, 3.4895680315999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.7419494268, 2.2170265432, 1.6434191131599998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.2406311424, 0.76499887932, 2.0991076408}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.1131346124, -0.10454342177199999`, 5.456772797599999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.4709457426, -1.7748306592, 0.86562678882}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4230066772, -2.5790980448, 4.106374598}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.58761550438, -1.0727596556799999`, 0.37401456992}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{7.3436642086, 2.6021527019999997`, 0.187390899338}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.0451044763999997`, 0.090001980202, -1.7150397285599999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.356239374399999, -0.92830900024, -2.622939688}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{9.692404653999999, 3.4438366624, 0.5460363277}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.0998635312, 2.2816551724, -2.9011073552}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.647111205, 0.30441596134000004`, -4.644946508}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.417320523399999, -3.0965050236000002`, -1.5147098753}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.4277739913999996`, 3.446860224, -4.8883432168}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-8.944451103199999, -0.6880492366, -5.5289603307999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-8.7029441204, -4.0682021328, -2.4281089374000002`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.9722730746, -2.8742732459999996`, -4.4204470592}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{2.7794090008000003`, -2.3636692808, 1.33066946016}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-5.644800534599999, 2.4439826358000003`, -5.7479795742}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.6168925647999997`, -0.23878577735999998`, 2.7036309881999996`}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.435186922, 3.6496278238, 4.3216143894}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{ 1.6448553049199999`, -0.053932780039999996`, -1.6553432842199998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.228931817, 3.6156127558, 0.26671592764}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.099460058832, 2.8139909866, 2.6605452354}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.7163181758, 0.4264166719, 3.4393013199999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.50218099192, 0.58583395726, 6.4653195638}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.6252933575999995`, -0.44408560999999996`, 6.7555814774}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.5928760688, -3.2440926241999994`, 1.68461513996}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.783128477799999, -1.6582156677399997`, -1.12865775076}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.47458578764, -2.9802868746, 4.4688240448}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.6033295368, -4.0630998726, 4.8082188344}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.7118271943599999`, -3.0815761881999997`, 0.17954664671200002`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.2610401831999996`, 3.2066760494, -1.40981118504}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.356763293, -0.7413395097999999, 2.8105894797999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{10.754241693400001`, 2.8241955069999998`, 2.1512640784}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{10.514435463999998`, 4.738676917599999, -0.7713861531999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.34487499499999996`, 3.0708047499999997`, -2.2797654464}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.4777487562, -4.0054632296, 0.027945268087999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.6949382486, 5.1317399256, -5.7326727936}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-9.9159592398, 0.22192942144, -7.0509456512}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-9.48642452, -5.7366412182, -1.59678067548}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-11.7227262684, -3.6250613858, -5.0990476658}, 0.12]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{6.844635691238142, 3.677184208137062, 0.9325605442325737}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-3.7513092424521326`, 0.8676162172342943, -0.7895177532563684}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.062476463552646, -0.1503142390694051, -1.6977622317807595`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{9.193370417886921, 4.518913830166249, 1.2911362636379502`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.7854918950748675`, 3.077988841992855, -1.9760309079141283`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.343208715145652, 1.092135509092326, -3.720313515695543}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.120839236692076, -2.290610796988615, -0.6116063842413624}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.1369310499057725`, 4.2198681735465104`, -3.9612213389924826`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-9.641011942810913, 0.10553257063770155`, -4.609704701531468}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-9.405418784608834, -3.280346441905804, -1.5084281468697658`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-10.66877395978059, -2.0806950230725487`, -3.501142908748168}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.356331250953822, 3.242869463442873, -4.844927041783573}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{7.842692725961859, 1.5271211958629378`, -0.5577787455565737}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.3388997103478673`, -0.6876122568302944, -2.640561703863631}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-4.650002285247353, -1.7063037614105947`, \ -3.5481171442192405`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{10.191438890113076`, 2.3687594946337507`, -0.19906360823795013`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.4142351673251325`, 1.4853215028071454`, -3.8261838024858723`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-5.951013694854348, -0.48330358641232507`, -5.569579500304458}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-5.713801810107923, -3.9023992502113853`, \ -2.4178133663586374`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.7186169328942262`, 2.6738522744534885`, -5.815465094607518}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-8.247890263589085, -1.4816310438377016`, -6.448215960068531}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-8.000469456191167, -4.856057823694195, -3.347789727930235}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-9.27577218941941, -3.667851468927451, -5.339751209651832}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-4.933269818246176, 1.6450958081571287`, -6.651032106616428}, 1.4]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.9802817545650313`, -0.8716781245883667, 3.648079479708004}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.5987621983847156`, 1.063906928775379, 2.681905353679227}, 1.125]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-6.344174788811662, 3.080366144134434, -6.862006311431131}, 1.246]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{2.436493947559417, -3.632976010938786, 0.6931480256298421}, 1.246]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.7419494268, 2.2170265432, 1.6434191131599998`}, {3.9482045318, 1.87218934272, 3.4895680315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.7419494268, 2.2170265432, 1.6434191131599998`}, { 1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.2406311424, 0.76499887932, 2.0991076408}, {3.9482045318, 1.87218934272, 3.4895680315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.1131346124, -0.10454342177199999`, 5.456772797599999}, { 3.9482045318, 1.87218934272, 3.4895680315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.4709457426, -1.7748306592, 0.86562678882}, {6.2406311424, 0.76499887932, 2.0991076408}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.4230066772, -2.5790980448, 4.106374598}, { 3.1131346124, -0.10454342177199999`, 5.456772797599999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.58761550438, -1.0727596556799999`, 0.37401456992}, { 1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.3436642086, 2.6021527019999997`, 0.187390899338}, { 6.2406311424, 0.76499887932, 2.0991076408}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.0451044763999997`, 0.090001980202, -1.7150397285599999`}, {-1.58761550438, \ -1.0727596556799999`, 0.37401456992}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.356239374399999, -0.92830900024, -2.622939688}, \ {-3.0451044763999997`, 0.090001980202, -1.7150397285599999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{9.692404653999999, 3.4438366624, 0.5460363277}, {7.3436642086, 2.6021527019999997`, 0.187390899338}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.0998635312, 2.2816551724, -2.9011073552}, {-3.0451044763999997`, 0.090001980202, -1.7150397285599999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.647111205, 0.30441596134000004`, -4.644946508}, {-5.356239374399999, \ -0.92830900024, -2.622939688}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.417320523399999, -3.0965050236000002`, -1.5147098753}, \ {-5.356239374399999, -0.92830900024, -2.622939688}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.4277739913999996`, 3.446860224, -4.8883432168}, {-2.0998635312, 2.2816551724, -2.9011073552}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.944451103199999, -0.6880492366, -5.5289603307999995`}, \ {-6.647111205, 0.30441596134000004`, -4.644946508}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.7029441204, -4.0682021328, -2.4281089374000002`}, \ {-6.417320523399999, -3.0965050236000002`, -1.5147098753}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.9722730746, -2.8742732459999996`, -4.4204470592}, \ {-8.944451103199999, -0.6880492366, -5.5289603307999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.9722730746, -2.8742732459999996`, -4.4204470592}, \ {-8.7029441204, -4.0682021328, -2.4281089374000002`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.7794090008000003`, -2.3636692808, 1.33066946016}, { 1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.7794090008000003`, -2.3636692808, 1.33066946016}, { 5.4709457426, -1.7748306592, 0.86562678882}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.7794090008000003`, -2.3636692808, 1.33066946016}, { 2.4230066772, -2.5790980448, 4.106374598}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.644800534599999, 2.4439826358000003`, -5.7479795742}, {-6.647111205, 0.30441596134000004`, -4.644946508}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.644800534599999, 2.4439826358000003`, -5.7479795742}, {-3.4277739913999996`, 3.446860224, -4.8883432168}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6168925647999997`, -0.23878577735999998`, 2.7036309881999996`}, {-1.58761550438, -1.0727596556799999`, 0.37401456992}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.435186922, 3.6496278238, 4.3216143894}, {3.9482045318, 1.87218934272, 3.4895680315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 1.6448553049199999`, -0.053932780039999996`, -1.6553432842199998`}, { 1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.228931817, 3.6156127558, 0.26671592764}, {1.7419494268, 2.2170265432, 1.6434191131599998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.099460058832, 2.8139909866, 2.6605452354}, {1.7419494268, 2.2170265432, 1.6434191131599998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.7163181758, 0.4264166719, 3.4393013199999998`}, {6.2406311424, 0.76499887932, 2.0991076408}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.50218099192, 0.58583395726, 6.4653195638}, { 3.1131346124, -0.10454342177199999`, 5.456772797599999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.6252933575999995`, -0.44408560999999996`, 6.7555814774}, { 3.1131346124, -0.10454342177199999`, 5.456772797599999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.5928760688, -3.2440926241999994`, 1.68461513996}, { 5.4709457426, -1.7748306592, 0.86562678882}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.783128477799999, -1.6582156677399997`, -1.12865775076}, { 5.4709457426, -1.7748306592, 0.86562678882}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.47458578764, -2.9802868746, 4.4688240448}, { 2.4230066772, -2.5790980448, 4.106374598}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.6033295368, -4.0630998726, 4.8082188344}, { 2.4230066772, -2.5790980448, 4.106374598}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.7118271943599999`, -3.0815761881999997`, 0.17954664671200002`}, {-1.58761550438, -1.0727596556799999`, 0.37401456992}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.2610401831999996`, 3.2066760494, -1.40981118504}, { 7.3436642086, 2.6021527019999997`, 0.187390899338}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.356763293, -0.7413395097999999, 2.8105894797999995`}, {-2.6168925647999997`, -0.23878577735999998`, 2.7036309881999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{10.754241693400001`, 2.8241955069999998`, 2.1512640784}, { 9.692404653999999, 3.4438366624, 0.5460363277}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{10.514435463999998`, 4.738676917599999, -0.7713861531999999}, { 9.692404653999999, 3.4438366624, 0.5460363277}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.34487499499999996`, 3.0708047499999997`, -2.2797654464}, {-2.0998635312, 2.2816551724, -2.9011073552}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.4777487562, -4.0054632296, 0.027945268087999995`}, {-6.417320523399999, -3.0965050236000002`, \ -1.5147098753}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6949382486, 5.1317399256, -5.7326727936}, {-3.4277739913999996`, 3.446860224, -4.8883432168}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.9159592398, 0.22192942144, -7.0509456512}, {-8.944451103199999, -0.6880492366, \ -5.5289603307999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.48642452, -5.7366412182, -1.59678067548}, {-8.7029441204, \ -4.0682021328, -2.4281089374000002`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.7227262684, -3.6250613858, -5.0990476658}, {-9.9722730746, \ -2.8742732459999996`, -4.4204470592}}, 0.1]}}, AspectRatio->Automatic, AutomaticImageSize->True, Boxed->False, ImageSize->{360., 360.}, SphericalRegion->True, ViewPoint->{-0.5554699171826781, -3.0140825544020053`, -1.4341406926639222`}, ViewVertical->{-0.4113192248745845, -1.5500924920027077`, 0.6965618113828136}]], "Output", CellChangeTimes->{ 3.581873159600554*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvHd4XOl15vkOW/ZaWtnyrMN4HGY8M8/sznqTxyOPLVm2tFpbLbWs3JEZ AEECBEkwgETOORSAAgqVc0LOOVchh6oCCjmDAQAB5tzsIGvf71axm+1n/9t/ /Tx96lYV2Lfu/c7ve8859zv3/igkJiL8fEhMZFjIn755OeRiRGTYlT/9XvRl fvXGvwL+VYSwP4V4/yvg1cuv+N+vIsWL+OZf3v/L+395/y/v/+X9/9/3idLm yxhf28fE+gFqxzZQ2uJHaTOtcRaTKweYXDrAzp2n2An8L3HS5rdw6/5T1E6t Q97jR3nPHBTdc6joonXOQdlBa6O18HMTrZ5/r/Zjan7/ZmAv16TN/8S9PEHd 9BrKermXPv5LmkpY7xzUNA33quFeNdyjhntUc49q7lHVwL3X0Jx+TPtvp0u7 ewOq83qsF1ikT4dendv65+dW0vrq3PyYXOa5LfLcDp7iZ4GjuiptvoKdB09Q 1udDeT+PaIC/RlPTNPysFcYj0/XOHYKOh/dl6HiAOp62jgep5UFqmvnPeYBq nnJzzzp2bz9BirTrX8PG/AZSvl+NZ7JirM7NYmLzgEcq5wB+BWXcWzn3peB+ FO386VYa96XgvhS1tMpZTM3d/kngYMOlza/j1r2nGF/lOQqjvyZ4XrfuPP2y 9OffwOTmDs/DB8WgH0oXz4WmoWkHecAD84eg71/gyBn6FmDoD9ghvs7zfzXQ EXoemXR+PB4tB19T74fa4RPnlBL04aU/+zks0Vc4YnMo4+hIfuQIKYXxlFT8 31U8JRWHRsVdqIT/SISSp6SqpNlmMD2z96PAaf0i6Mr19Yfo6roubb8qffdV TGzso7RzFmVdwYHqDAxWBfes4GApuOdyDlaDaxNTC/u/FhwC4U5FvwcVg7PS EKhd89C6FqBzLUE/uMzTHVzB12B0rcLoXoVJ2JCwFdoyv1uCcXARhoF5GHrn oRfDwV/UNsxC4/RyKB4jSfqp35V+6q2fx6MgJhXlJEZBU3JMVP1Bpjmc6u4g z+0BpjU8ck3La9jUcojp6uaulX8MjEnA4/8jurq3oVTOIubKEK7RYi8PIU7Y JdpFfo4egqbMj96O6wRD/D+/jbqptcAc5a8rgl55/UjUHEM1j0TNo1DzCFSN /Dd1HNMqzqy5/UPBn9558JhjOMkx9AXG0L0IrXuZY7gKvWsdBvcGjEObMA1v kh/zyBZ+E+axLdpm0DZgHl2HaWRNGlgjx16wpu/hgHb4oWuagcYxFVSkrwZ8 NjCDt95OQH5MGir4m8rBwDRUk04NHaHtoQ+7Fzn3Ft8gpIt0ta5zAdqOeWka Cly1nOjamhm09q7QT4/eCoxnALX/Ad09W7gS48K1mCHE0xJoSbRk2iGkcIR/ HSkc32SObxLHN/EC/815N/o6rgfG5T8EpKJ3JiAV/QFnq/sDUqHpC0iFVsyh 7sA80gY1Qtv6ucNVQsjss9jdf8qJMwrlgEeapmqOr9a9Bh3Htrhuhhrg59jd 4Bje4HjehHn8JiwTt3iolsmb4uUGRcQyeZ1fBgbeNLJOp6yS72WSuxAY6EYv WvsX4z/zqxhnnzS+b74Tj7wraVBZ7VAPLkAzsES5o4/7Vih3q/wdfe/aG9D3 rXGk9fxC38M/dC8LB1Ag5qGjtOrquP++peBI/2NwpFUqL65ddSHuKkfxGkeU 2xRaGkf6DaTz9XeRzvHOoKVzxNM44ikc8WSOuEE+C0P3TEDFBvwBDGiawVcq RuNw6znckmQFtuJo5/A70L8a+fbgNOOIpyjdiJZ1QkVFULuWKYgbHOltFNYt 4PRJnn2mhSe3xBHe44DSpvZgnb7NQ7V69kin1bPLzzu0W/zbDQ74dZhGBf0c 8MFVabAN7TPQNUxi786juCDUjb4VTp5ZqNxz+N47cci9mAm1tZpnsgrtwDrP YoNyvAn9wBbVZlsI0zZ9ZHBtc75s85P4epPzhv+sd51nRhd0LELfMgt9/TTd Oo8fBMb9rWDw29i4h6sxPYi95kICxz2JlkJLuzaM9GsjyLg6Qrdm8fVryOLn LH6fdVXYEDJjPvfHiZhmvH21Adn1k0EJ5YBSRnWUUT21kYdKWP6AJ78kTW0T TdJN1yJtgd9TO+kjA10iOYTOOF3ShvD8TlwqHeD+1rm/69C7b6Godh1H38uF +koOdIMbHOADDvgdWL13DsHmEy8zdziatpkDftyH1XdbcoiFDuFEIPnXJRkS jjBy6hnaptE2NB8rDclvYnprh373cob56YgFRBfWIftCPjTWRuK0RZy26YAb PKGbHPlbPA0xw4xDO/xJ4/AOjd8NCePf3TckHxn66RlGekMnVa1lBvqGceH3 7wecEfDJv6cz7lJquhB3bYDOGEYyBzz12hgdMYHMa1Mc/GlkX/MgJ5YWJ2wa uXFT3E7Qxvj9KP8+jNBrDXg/phbvX6LFNCG/wUt6GctcKzTS51rjUVNrh9Yl Is2UgUOS+v5nvq7xM4PbsAhuAQcZBhaQUT2ECGUHzsh7cKawF6kWD527wzO8 zTM+wLHDhVBfLeAg36Mj7nPQH9ABtFma/wHskt3ne2H3+P1dyUFWLx00vQfz 5A5MYzekGGHs5+92+aBvHeUoPQymXb9FLXrIQDlJz8zQFuidVZwvaEbGORm0 lnZ65iY9w2Ny7fL89nhctylx+1/i1Nun8plGxUdxuLuSu4yumzDSmcZeDgfj grHNg/aRuS845TegUU3QIX3B2TGB1NhpOsSHzNhZZMX6D3Hk5yhOefHzyEuY C5of+Qmz3PqQG+9BUvwQPjjvwAdnaZFVOBxZi8NRDYSZRDAVMbq3ON7bPLht CU7zOMOHkIx/Q163+W5bUmzLuAiT6wH3METGOgYQqetBpJrb8kGcKehHcTN3 OXSH53oPx46WQB1bzCF+BOvMYw45zf8E9jna/BO63D7/mMDb5x/xu4ewzT0I uIeusXoP6MrbME/QLaOcLwIZoZtdE/CuXsdZaXT+iPn5M2ZdByhpZ9LMOStn 6JJTRMuYacmZCtZTOCcX9qV/Pb11i5nytKQNaqKo5qmfL2hHWoQcOnM3dWKP w7FP3xzAOCLO4S6RuMfhuAfTxD2B6MQ9vozfpXCZxg4kt5qG96QZGHAkJ3SX n8rK2XXvId4MePL7wYndx2gUd7WLnnTTk1P05AzSY+fpyUVkxy7TkSvITVil 21aRn7iKgkQR0gqSVvCv+brEz4v8fh6Hz1fjSFQtjpyrpzXh6NlmHI1sxvmU Xh67CL9CYyj8E0JvaFM7UjA4RBXaISpWzy1+vkljYJjaDkbjDUSZ+xBlHMRZ LU3lQqR8EBF5fTCM3Idp/CGOHS+DOk7OqfUU1tln9Ndz+u453bjwnPLsWOTH xWfcPuU3wuhuutbmp2tn78PivRtw6fitoPxxlvV60DY5i4igOyc296VkUNQb ZcGiTREs2iroXmWw4qgQFUcwCYyWd6KgcZxBalGKkxrXDVzI70LS6QrozQNU nDtE8h5dytMYeyCdinnioXDn5CO6xcJX8xRtkt9PPuDfxOnS5aN3JO+aOE1N DHqmPh5vD6fohO+Lnv0K4mJakXB1kJnDJKOXn9FrCRmxq8iKW0dO/Ca9uoW8 xG3hTL4UJm/To0UpWyhM2eSndcTEDOPYuUYcO99G66R14fi5bpyI6sCJs20o aVyVQr15kpFkioLl2ZeE65AUX36fQnab74Tt0Rj6vTuShxVMHc7bh+lVF6L0 Q4jS0JR8T89mVTMKTj7G0RMKaOIV9OgLevRDepS2QFt8+QYcSx8e4ssLBnm7 cO8Cvc6Za/OLGX2PLj3gMe1yqCgebibNgwwtPUM4LY3LH1Mwn7Lqmg1UXTSF SED7gjl+sPJSM+FUtwXz+2DlXGCbwqncdpzK6salEjcTvW3aDqLzehEXpqFb mXUNPaBLH9Kljzk7n/A4ntCjU0+p0+bppyTtdeOfpx5LXjeN07ujnLtDPGzm LCYGYVM/E7ie4aBT3ww6tY+JYwJTk8Rr45yuM4yEy3TqBp26TafeoFNvIT9p h05N3qUPClN2UZS6C1nqDre3uGWmkHIDx6KacVz480I/zYUTF9w4KdkAQqJ7 cDF7mAje4UEK1WNQ8jE4zYgAdY8Bi3pj999lEWv334F9lgnFzL7k5rzuBbp2 FOfMYzhnmsA5A03H92q6uLxfGoljJ5VQJyjpro/oto/ovo+5u6WP6dflj0m+ Y/kj2kt+Jdz9IuBeirOVMdPiu8N9kP7xG1JNZBxiYtQ/Eqzqfw0NnlUWkH6W 7XOSicsQh6Qy8g9Z+zCL7QlcHCltGEWuvRspujpcLTUjtsSMM9kGvJtowrvx drxz1Ym3zzmQpp/E6aQmxITo6d4xBsnHMI49pWufEdPnPJYX9OsLWDzCPiR6 JNPifSEqCs9zjt4z/pMn0iQ2UaClWMsEyDS0QTIZWwfGv+De30TclSYkxriR eNXLRGeRc3adSnwD2fG7dC0HOGkf+ckH9Osd+pGWeocnKEu7g/+VrwcoTttH OpX6+Pke+pR+jR6ljeNk9CT9OoHQS2MIvexC6JVeHt2DYEIipPAhnflQinj2 +YdwzIstk5P5+/yOfqe7bbN3kM+K8IJ9Auet0zhv8eK8yUtH872BTta6OJ92 cTREBVWCik77mA7+hE78lM78JZ36KY/VsfJLTgbHyqe0TySz0+H2JTp84YU0 j62cxxbyZqYsmyY4WowCxhFmwq6xU9Iw/QkavCvSpRkFg6ZU44pLNKK4kS43 sZBlJVHWMoF0UxPiVDbEq+xIoiUr7UipsOF8oRmH0y04nGLH4QQnPrhahQ+i q/BehBkXTxphsEzCOPoMxvEX9POHdOJLUS96PmItY/F+zMMLGL/zfUQZsnhf SgyYJYeLqX9fisXm0R0mJqKkFIn9NHxbm/hewOPfC6a3m+u3kXClk17nhL7q p1KvMv5e54TeRU7CAXKT7tLj91GQ8gCFqQ/p8Yf0NC39IYole0C7j1jGbGkW 08snoz00H0IuztDbPoTFeBBGwTgV60KGbZkefyLlPIekjOcPOfJPGCBf2WM4 FoQ9kgiwzd1Hfv86vT5Nm8F5m5/eFzaDCxZ63jyCnNYVHAlV0+vqgNcXhNd/ Sc/+UvK3Y/WfxJbOX/0l6wHJ6Ssf888vpRluY1yWnE6BMTOImKYYiyfo9DHW g0PjYcGLBo3eJVRQy4WzlW7h9HlmSwtSiNUOsJ7uX0FhrQuJuiok6auRTEul pdMydNXI1FbjYqkTx7IdOJZqx7HkShxLqMKx2Gr8KMSAM8f0MGTqkW+ZhXHi JQ/jIzqUjvZ8Qgd/Sld/Ktw/8ylPwTLzieR6i49wcKabKeYmhmnTBAVqfJdG ER9j7BnxwHd9+ws+/xr6uhbp8376fBpJMYtIvbpJEb+FrPh95CTe4yx/SJ8/ pr+f0t/P6G9a+jP6+Rl9VpzxlJG6JOMxjkf1U7EnJV+fvDhHfy/Q34v09wJ9 PYdT8T6cShxDpnOd/pbyIiktcnDQRfwUUfQ5cy/HMr9bYpK09FRiQCRJ+aym o50ztHlccCzivGOB2zmajxxM4pyxX/K5kj63ztPni3TokpjNn4pJ/inlfPXT Lzj7o6Czn8E695gjeB9mZgumaTp7is6eYE08Mh4adPbuwydQSvVmoPAXNaea 5bGGKbJ2cI1VzTqyHJ1INtYhxVSPVHMDMmiZ5kZk03JMDcg1NiCmvBYnsqtw IrMGJzPqcTKtASeS6/DTsya8f0wLR4oKObpRFDnmeRif0Jl0tPeXdOwvxeye EWJlmeXn2U8DTp/5OOB073MpopumKO2TdynxIhFiSTBBp4954btx/QtO/490 +gqdziQ7xofkmBVK+3VkxO0hO+EOnf4QeclPkJ/yjE5/gaK0D+nwl3T1R7SX dDYt80NuX+DEuRE6nQ6PXqDTl+nwVTqcxtTuVMISHT6P8GQPQuIGA6nTgphl L+lcEVc/Es55KV4+xK/z8wsJAZEhKxnuoyvn6PDFQ7hQuURZu1C5SPPTOM9t gzgcoqS/lfTfS/qRxl0KvzpWhDA6VqXwvcrvhK28DEzwpVcTPOhz5oYmD2vM afp8cp4+H8WXgtddxOrI+PqBtPAwscb6qdmPydUDaUFlYukAtw6eBrPbN7Cx eAv67+fgnsrMaCu++09QSmWwT7oMqHIvQs3sTyNdI9mEbnAL2c4epJoakWZu Qpq1BZm2FmTbWpFLy6PlW1tRYGlBrLIJobl1CMltQkhOK0Ky2xCS1YKQzEb8 4rAC+gvpyDONId80juLqRQkac1AhhD4IWAjP7CdCKWYJzIxQipf8NwwRHkIz /YhGaESJP01oplmiTRCam9f/mVL0d60h8fIwkq74Cc0aoblJaPYJzX1GhkeE 5hnyUz9EYdpLFKV/RGg+ITCfojjzEx5BCV9/h68fEZopAjPPHGCF0Kwz/m8y ImxSITZwKmkN4SnLCE+dRWjiEFVCzNTAbHYsB2K0U9iq2KeTXv51fiZQyx9K KiLgia5aQLhx+hDCmRB8BeFmBouaeUTXMEVwuvBBqAIVIp1ncWYTYZ65nW2Z uZKdGP478sI90eyvbIV7JZo2ZvfW+UBwMDM4mFhNmHxkx8t6fsqPtvl5aZwE N1KR1u2XCjRpZe1VgRZcVasIrqopPl9VCwzyl1Cl2UCz/AY+6erGJ4VXf0P6 +t+wMr8pVeZCgoT0qFnti+pcywRdN3gDOc4+ktSCDGsbMu3tyHR08LtO5Dm7 UEArdHRTVrohc3QhXtuGsIImWgfCWAYe4ms3Byosvx0/P6FG4rk8FFjHUCjM MoaS2nnOlGCiMcPc2DL7kQQT84wZ5pkzBMnLXMPDsOOhAnk4OF7mxV7C5KEC TXqx9+jhF2D6BmFaR+KlUcI0R5g2kMaQkxF/gOzEB8hJeoK8lOcokGD6iDB9 DFnGJ5BlCph+SYiEfSohdeIc1efCEoFaJ0xbCL16HWFx16k82ziVvInwNAKV wVCUMiqy+0AC+Fkq8EsiRFsT9qkElUBKR/fm97FIbRlGhHEAJ5SDNDdOqIUx kdWwUNF0IETTiA9CyqBgyW9wrxEPVgcE0CZUjGFMIPWc0NtXn0vvJFsWfydG THOs85QhJrrmWabjs3swzlwnTqvQT83Ae+tmYFm1L7CsqugLFIaHpKWfrwQW fl4vDl9flvt8WfUfgsXI4Bx/MqsUdwpT8WHU2/h00RtcX/pPUPWNQj3glfKX AFfb0iUC3eAtKDpXkG4mU9YOZNm7kOXsRk5lL/Kq+lBQ1Y+iqgHIuC2mldAS DV0Il7UhvKgHp4r6aQM4JevH4bRG/O3beXj3RBou5DrJI8Mci7Mi2wgqujY5 owIwCaX6UIKLRcwsq5YZhjYf4fISLi+TWdYIJh+HizW8yce8xrvM2ed583W4 vsXwFoTrcgCu1NgdwnUHWQKu5ABc+QxtnykVQ5ss82PC9bEEVUmWsI9xImoW J8+vEq4tnLx0A6HXbiEsnpZ0E6dSCVnGBsKzFhGSKuBibrEk4Pr0M7gcawG4 xFbB6iGjcwKZnePI6RhDbtsIrjndCFW5EKIaIkw0rRsh+n6E6DoIXDUOf5CP 5vCrKLc3w0JYBDQ25kS2ZWFPYVthfrTy5A3piz+BdVH8E+auLJwsTJVN/gMY /bswzm7D4FuGzDWKnLaxz5c1B16txgUXxv/ZSpdYERdrLq+W4jTkS02+1FV+ NHevY3fvCf4+CNj80nXUM+dZlOXj45TTuJ9wIRhKfwe74qpw3zgrolkmyAyD DH+awZvMnXYJ2W3kVQ5TuAiXvQfZlX3IIVR51YMoqHahqMaNYlpJ7RBKa8Wi nrzOjd9GeAlBK+7H6RIX37txJLcLf32kBN9+vwA/OZmJH7x/CcnFNSjivmXO IYqfmyARJgHU7PNDfHnGrMI885TGqtgn2Hok8WXk9DfOcuhmd2ibMPoW0b68 gjf/WeLcuYaEiyME7XXIDoKQMRymMIdislyQ9hyF6cyjmC/JmDcVZ75kylCc 9ZL7OHF2BifPCcC2CdgthHAfoQm7CEveQVjaDZzKZFjMXkJm/S06XpSmInn9 WAqDzJvWPsHvQ+9/gCImGFndE8jpmkA+raBzDEXtIyhqHUJYhQthyiGEErBQ Hd8b+mgdOMna8+jPM9AUfg1KlQFFTZPQjt+UCLIuPjpEmXqE3yNaj6R3/Ir2 kH9+QBaZO7ESN89xJs7dhsF/E4bZDZSMMx+v7JDK4Ypgp4K4liyt80lrfPPQ 9c1Ly5DzYllMrMVLFmhT0L+CLtiCoanzQ22XWhUQULL/DcUllejKL8GTvFj8 U1kyXvg8WFrzYoXW4OpFdnUzcmp6aUME7gZtD9r+fcgaZpmUdzM69jH3GkB2 lQu51UMoqBlGUe0IiutGUVI/CnnDGMqENY6ivHEEl9UDOF06iNPyYdoIfpba gm8dU+DNkFL87GwhfhyRiLAziQTNTXNBVjkIZc8KiRI1rWDrq3x9TGPeECTM 5OPkpOgbpQl6m8Y8YpZ5hG8evt29L1yH+RoSLgwRslmGynVW5DeRzsosM/Eu spMfIDeFyXrqY0L2hJCxQstgdZYp7DlBEyGoOOs5/guOR3pxNGIWh8/6ceT8 Mo5cWsPx2G2GRQKXfgNhWRsIy1lARu02k6IPA9dARNbM7Flk0Qb/PWR3jyGn Zxy5tILucRTxs6xzFMXtwygmaAk2F04J2AhamIFbUy+Ba8R3LqfiW39zDIf/ 4RhOhl5GXIkVuY4ewnYdloX7JOr+G0TrPpWCbwnXPaoXE9K5O4TrIADY3A4P YRslTNLDnO3I6xh/rRUm2AvC0ls/IHoSlmFkCX4IRmrNV/nKz67lwNX0wcBa mYEQikVMvej5aQ02gjg8ohEkwNlfYWX9FspTSnBTloWPYw5jypaD/k49YsuL Ea/UI17l4LYO8YoWxJd3oJDlSqbJzUjZz2LQRb6GyOIIcmvGUFA3DlndBEoa JlHaOIkyTrXy5kkoJJtACqPgGbkbx/NYx15pxIXzDpxPqMRbF9T46ZUyvBOT g0snIlBYNShF3CJG2kJGYZP3kaRaZt/Dz7ny3pcipHH2Dodsn8bEgsNnnGMQ 8DO58M0F65YgYH8NXdkcEi/6kHhlFcmsBNPidpGRsI+sJFaDyfcI2AMq2UMU pD9CIUv9ImGZTwjZE2QkLiPmwgDCT/finWMDeDdkFO+dnsb7Z334gJXh4cte fHB1CsdTZnE8w8OsmyU3y/5AjvRCSq8Nfv5O9zDBGkUerZAmo5V0j6K0cwRy AiYnYPLmQYSXMalQ0fRUMX07fpStxl8fu4g3vxOC0B+HIOxwKEKjrjI56UQ+ E2Dt+OaXiNQdwmUhTGZhHBUBlXF+D4b5HejnbqBkahGnqruoXp0BsFjia9xL 0BEcvdQgswYDqzeja0O6YnpIWqD5Kl83YB7ZkBZpTcNrga4jF5NeAWLfQnCl XPRsiOaYyUC0/D/w4MEeunu1sOhLUVKowFRREV5mXsDB1cNIUsiRojQhRVXF bQNSKtqQouhCqqIXMdl2xMkamIYNE7BRAka9r51CYf00ihs8KG3yoKzZi/JW LxSSeVDRNs3isBfHrjbgVEw9Lma0Ib6kG2dk7fjORS3+4VoF/jG2kN4sRWtB BRSqGhRW96KouhsasebpZTj0isU9k1es6xl9FK0ZAZYQ/l3OzVscxuvcbkI/ uwLv3v4XAfuG6LahinlYPS4h+eomUuKoYgxzmUm3qWIHyE29g7y0u8hPv0fI 7vM7/vuYCcSc78e1qEHE0yLCevDe0T68f2IEH5yewuEoL45E+3D08jRPbRxH Y5k7ZfShsNkD3cQewyXzo6VnTOb5G51u5HYPEa4hwsWEgFZC4Epp8s5hlLUP oazNjbLWQVxVNeBoRgNC82oQkabFhbgCnAiJweFfROLM8ShEnjzNYwhjctJG yNqQ72iDZnRNaD0H5Hf5ytLnM9uR5p5h/iYpuw7d3BauEOoQVmqB5oVFUrYi tQjpSZbBtQWjm0M+xNJp5DrJusHdjt0QnVjjN2ARgkkzj23DPLoVAG9IQLlC 1SNwPQSufRY6ktDav4jvSsP/v8PrbcHAgBaDAzq4B/QY69dDq1CgOqcU9wuT URZ1ATn5CmRU1NCaaO3IUPYguaQZsXmViCuoRVx+HcPnEMMqaar1oKjBh2JC Xdoyw2GbQXnbDBTtM0gqasG1s0ooU4wol9chqqBbCp/hFSM4WT6Ad/j3t4uq 8bbMgZAsO+xl1RjIkaHEWE/qmDp0+yjc0wcscYweQuYlZD7O09ldJjq3pLmq J2z6eda9/g1ofQs/eH2l8ceIOzfJtGwRSTHrSI7dQlr8DYrULWQl7yI7ZY+s 7ZO1A/5tDpejehAT1YfYqH4knOtHMi2V9v6RHnxw3I0Pwidw5Ow0jkZ7cOzK JI5dG8WxuAEk6vqQW9nPSojVT/M0WaMg9k8ht5OJa7eL0ZF5QDeTVpqclmNv Q26pE2UKB9KuFEGeIINanHSJEpEF1Hq5GRcrNFDw889OXMaRU1cQGXmRx3Ie FVoLB6aZYtaMXGsTp98O9Z1czdyi3ZRyB4P/RpCvbWgZJtOGZxBqJZsdE+RM XHtaI2Ob0JEt0fBidN+kWt0KLAmM78IysSuaz/hindoVzVFTYl1crI/flMAT wJnE0oGbsA2sSKAZ6HBdvdQc9Z3gNJ/1tWBoUIshlw4jLj0mBvXwkLeZfgOa K9XIjSni1C6A6lo2CpPLka1sRlZFJ7LVvUgta0ECuUgorkNicQMSZU3ItI0i v86HwoYZlDTPMgbMkjM/MorakB6tgy7HQQVtgqGqg7WJC1e0ozhTPoYzKppu BKeNrA1MLETFypqxBqfym5Fa2AB1HtnMVKC8ywPDJOHiSRumGQi8NA6pbpbF rz8wnDoBmhjW2TXsPX2GL9D2E2yuPkb8hTkkXF5F0lXmZ3GbSEvYRkbSDRJ3 i8Tt4Gr0EC5GdOHy2W6qWQ8SaMnnepBGS+f7C6Gk7dggDp8aJW0kLnoSR6+M 4RgV7Sdn23EyrplVZwuiWRVGazsRY3XhvLEVF22dLH1qEU2LKa1FXrwMynQ5 DLIKWFQMLkYzzA47TDVOaOqdzEBsnLpVOKmoREipGe9HZuN7R2LwVshl/Cwy FpZiB7qzCmGMy0SBsxH5tnqUsVI1eDjffLSZbQo8h8UfoExDU89uIdTRgfz2 UagG56XrBxqqmM51Q+oEMw6x/BzZI0GirWGfVB2QLtr0gdRtcUBps3kPAuv1 nttSo5FgUNBnlhZWxbr5pkSdsetVJ9gcvh1Ezk/kRl1aycaI3RSx8xE7/4AB 8/1GLPUZsdxrwvFrJYhP0kGRpEJ5vAJZObXI1fZR6lqRVFyNpJI6JJc20JqQ UsoKwjGOQspbqpGRo5hKH2OAUVYFq6UN6poeVLSMQNnpgbJjigF2HJe1xE05 inBiF07sTunbEKatQoyhCrn2VkQV1yM6txbyQgvTLTvUzPx0U8TMQ/NyTGcE YoEx1c4FthpWVHtPnwc7AYPk/RSa0jXEX1xGAsuBpGtELn6dyG0SuS0K2iCi z7QRt3bERHYiLqoTibSUqC6k0TJomfz8/pFufBA2xHJgjLjRrgzjJ5Ed+POf 2fFXR2vxV+E1+OYpC04kGHE8RoHTV8qJoBZnkg2ISDfjTKYN4RkOxBRVIlVZ BVl9HdTtbShpa4OsXah4B2dXE8o7q5FVa0UqES1QNeN8cgUuZlYgWWFFSGY1 0rIdsGUroM0oRHaZGTnWWg4JZ5yXw+CjcVg0NDVN5dtCEmvc/FY31P2zUIsr CdIlUAZX126gz22E9cLYHZgn7sIydY84BXrdbMKYHNtm7h+Sege+yo+ik+CO xKBoDKX8BRpvGHeNohW67wstbn8rjf7XMedtJmgajLu1mHATODeBcxkxN2jE 4oAJy/1mrA2YsU7LkSuQWGTF6Vg7ilLsaAjPQkVhDbJUbUgmdCmldUgpa0Bq eSPSypsQl0MQExwojTPCVFYDi6Md+iaWkx2TqOjyQkm9UnZOBT63jzPeDuOS 3o1w1SBOaXoIXAtCtZW4onMi20qI7U24pq3HidRK5MnsUGWVQtvJKn+ao+qV RvYNzuBt8HVmE7tPX0gn+dbrDag/hEa+hbhLq4hnQE2MDfB2IaIXUeFNuHCm BZciWnE1kjklpSqJlkpLj2pH5rkOZJ1vR/SpZnwQQomLYOJ2fhRvx7Tjz0Kq 8edM6L55ugtvnu/AD6OZcCUZqPwGypkVZ0uciCitwglOudOl9QiR1eNobgNC cppwkslZXm0HKnq6oOjthKKnFeXdDSjrrIJryIaHs2TKUod88panp5lE4GxG ZH41zqQ6kZ+pgzw2D3lKM4o7RqHmaKjJnIojoqRVTG+hYekmmiZnoOqbJmui j3odmkFxSVRwxvx3+E6g8W3iATmjeR5KTXwCrkf4Emyzj2D3B8w2+/CQ1GT5 FYk80cEimDNPCUXcCbQVij7X3kDvnm/t+rekkf93ePxwlzFUjUnyNvU6ay4T FgfNWBmwkDMLNget2HJbYTCokc+ZFZ9XhbPJDShJrEbXJTlyjybjL/7yOP72 vx9H2JkcXD5XguKzRXDGyWGqqIWZFbWysZ8p8Dhn7PQhwjaN3+PrJHGboI2j ggOl6BiConMQic5ehKm7WOc3I0TtRIahGZlmhnJbE7IdDSxM6nGyQITySiiK 1FCUaqXBVXFCH4LSJ3hrWtvD7pMXQcQk3n4YTODUZdcRe2lN4u3apTlEhDTi 7KkmnD/djMvk7WoEC+5IyvbZNqSSs/Tzbci4QN6iaZfaERrSgvdPt+P7l2vw Tl41vh7ZiP8WMYpvnxvBDy4O4YfxTOwyaxFSbMexIjuO5phxLM+OU5yJ4bTT YitvRFghLZ9cZjfgQkkDynvbaE0o665Ddb8DT+YceER7SJt3V8LkqEe2jsNA 3rIsTbiiqsd7cXYkZ1pQnFyCrLh8VExsQzG5jfKJLUzuPMTO4+fSWatYoKh7 WSL2L9O2yNst6cqoYeiu1JVnHn9Izh4TnCdSc6Fthjb7lHw9g50VtX3+6SG+ eUpdE72jNv9jCUHR3mul7Fmm70hN8KbRG4F+n4HFV42F3wpe7hjvU2JqkJwx kE6TMw8585OzBRc5GyRnLis2XTZsc4bdGLahvUaPgjKmpopaFCpbEZ3TisyE Bhz/QQx+9M1QvP2dUJz8+xOQhV7BsFIJJxMKub2FFWsfStsmIaeGlVOLFARM QewrBGSdY/xM0FiSlXe5aWSyqwvZDYwcpjocr7AhTduMdCONqXCmvQGZlfUo IpwXTW5EFFahsNSECrWVJR33xZk8tfuATL12J8MfoqfjLq5dXEPY0RaEn2xC RGgzzp2ikIVTyM60Ij6iDYmR7Ug51440gpVOsNIJVsbldsRdrsM7l+14J6sK R4tr8ePUOnzjQjN+FFmDkNgqfDdmFO9kEqx80xs4nm/CHyGsvAanycJpdQPO aLhV1uOUnMZMN4xV1QW+z65matBRhTWPA08XnHhCezTvwH3aXb8d+7M2eNxO NLdXo7G9CsnGRryTWoWoFBs6krLhTknBct9w8Ir7b0HVNRq4+a6P6Vj/dWgH WD4NHsAwfB/GMdHJ+URqCLN6n8M684LASK2Nh6Texq8FuhsXXgRM9GmIha25 p4H+5Bmi6L1HHPcD+jXyxc7GvwkCdWtzClP9KkyzIJhmVjZNoHwEao5ALRGo NYrWptuG68N23Bi149aYHTvjdjrQiMLyahSxOCjSdSLkmgFf/8YF/OzNaIT+ KBIXjkYh9P0wKOz1yNDVIsvAgKqrQknrGEoZFEXGWi5BJGxEgknROcQQ4eLU HUBZTx9rsg6UdjVS/p1odVlQ31KNiirRvNGIVCsDsr0OeYz7ZdTm5BY/3klz okKmx0h6Ih7aTcG7uYIZ2R991iYg3XvZ6kdMeTeOR9Th7RMNeOck1SuM8+NU Ky6fbsM1ZmYiUiYyMiZHdyDlYgfyrtTAXuhAqlqHIocFkaXVOFFUxyS9Dt+7 asbxM3IkJJTgcH4rBfRYvpUuOl5o5b+x4KSwUjtO60iXoR4RrKPPsN45rapj zV1H0khZIdUu1Q53lx3Pliq5j6d8/S08XnTiAUm7S8r2SdnujA03vVZsT5mx MWbC+pAB7lo1VFcLsZkYj8chP8Un895DwevS06sbFK4JaHrEzVwbhI2l08Bt JmN3A32n448Z5Z5JzWhW34ek5yUpCjRaipboj9+AfVGsJDsWX0rI2eZffIaZ JFueO1LzrHQ7iOiwdPth6B8JEPZfseRpxHS/moTpaAYSZsIMw+ICyVqhbZCu bdJ1c9RBshzYnXBgb9IJq8GIInklZBUNkGnbERmvw19+9yK+/Z1zOPGL8wg9 eQEhZ69RaqqQLnq1mMNnGytRWNfLBHeYlIkrRjTGw7IOylQnyeoaJFkDkPf0 0rpRyqSkuIvS1O7A5owd6zNWrM9SRmeNWPfpWSIbMLb5kJEwsOyvUNTAXVCM F1mX8DLvyo9fX2r6aeCuydf7CYJ36io75xBfzrRJYUQi0+eQOCfejXLiB0zh j4c0U80akRRVg5TznCMX7eizWLHUZYOj0QhZpQnFVTaUVjtxrqwWoSy4f5ro wLEoNa4mViC0uImoOXG8iFbsxIlSJ07KaWUOVjeNOGNpQQTD3BlK0Rk9Qyal LVxZh4uKaig0dtRarXi2XEWrxFPaYyL3gMDdXXDgYM6OPUraTR9h81iwMUHY Rg0ETocuRzmMOaWYSsrEowsncT/2fODehNUtqNqnoOlahKZ7k8QxRA7ss8q8 B+Poo0CH8/Rz0fZKSSNl/o8J0yei/++QtOr/NTjE8qxoCxPNJKKpZPFVo+dz qQXRKknbXamJXCo+x9ZfNXsGZe3PMdVbQeg0mB6gpA0YaWbMMgdbJHCrjI+b BO46gbslgCNse1NO3J52wt9rQ2GxDbLyOsjULUguqsLf/iwef/0PF/D+u9E4 HBKFmHwVUrVOpOlFUuVkJuFAflUziltcBM9FbXFB3jbISEHQOvspY4ylPT0o YSZc0tOO4u4myLpqYeoh/BzedT+h87MW8RO6GR1urrT8WnC5trnBDXNGKe4U pOBx2E/x8ZwnGB+DK7pvY3LzNuS9s1/oPhA3dktxhSZvGkFKhRGpFSaamRWM BRlyGzJLbMjmmeYU2tFRbcO+x467PgceMC93NOhQXGlACb8vralEeU0NFDUU W2sjfhpbjfciTTiTYMDJ4mYcLajFMYbY46U00TnHKRJSQdPU4YytA2es7Tht bsNpI8M4gUwx10DpcEJpplhrrATQhGcrVXiyQvgI4MMlJ+4tEj6q3R4BvDUT hG+SIzTGERrRYc2txr2tKcgKGGsT87F/LRof5sbC7ayFqm0ams4lAsj8rGeH 8B1APxSIp6bJp4Hea99LWGc/+qzd2LbwaaD5dOmXh6TugN8MwCcgFMu5kug9 D7SUB+OqVBdM3gw2nc6LplN8M6h4O+uTmO5REkDG1H4qXr8JHhac/n4rAbRh bciOrREHbo45sTPxOXwHnkoceCth01lRVFINmbIRMl0bikyd+OGbuahkMWAq kSNZaUOKxoZUnZ1Jlg0ZJitBNKGoqR+y5n6C2EcQaR1Uwq5ulHQL8DpQ3NNG a4WMABYyjdmatWPDTwDnqHhznNt+A1ZntLizOx3sOgk0DGRGF2ClKBefxIdg RVb5qhIIXLd+V7qztd6zhvJ+v9Q9/6pfQfPajfw6Eimr6kSayoh0lRnpSgsy K6zIZq6Yq7Ahr9yOfLmDc49Vod6OhQE7lkatKHZoUVplgZwUltXWQVHXBGVt C42xOk2LqFNluJKkQUhZO46VNOI4K4JjZZTEikacUDXiJLO5EyLG2npx2tqN cEsXUqpaoWpogKquDqrqaqgclaTRznzUhA2mNk8FibSHpPEeaTxYCJLIubrN uLvBuLs+QRLH9VgbJonXp6SRWF29CfmVIqwlJsIVfhLFGRpo2kli5z8n8TFJ fPb/QaJoiRXISdrHsLssugGlZgLRNUkZDFD4FBZWDRKFovV5+mawG5YUjowH IPzP2F2fIoRM7HoZdvsIYZ+A0AL/gA1LLjuP3IGtMUJIAHcmKwlgJTWAAPoq cYd2d4ahtMCOojKGR3UzCg3tiIi1wHymCEYZIVSYkERPpmgtSNXTo0YTITSg oKEbhY3dKGqhtXVB1tFJtetAUXcb04ki4vdlFHa3oIBhd3LKIQG4NmelmWlG rPr1uL4m/lWgaVNeVo3arGm8HJ5/Bd7/LW2+K4FX3ueBYmBWulf5sycu0HT8 rB8Qt3oE7lVOUxmQqTXRzMxDLcjREjqdDQW0Qs6jIq2Dgu9AsYIms0Nr06OU EiivcRC82gB4dW1Q1XdAXd+Ji5kmpIfmQqcyoay+BZdV1bisqcElXQ2OsdA6 rmpBpLYOMQwScfZW5DV2oaK1A6qWNqibW6BubOJ+CGENJUvIocmMuioj4av6 InyUwr35IHyMwxvThG+K8E3qGYvVuHt96lCwf2d+bgtWKu9YUhZKIpMhv1wM TQfZ6/6cPYPE3tNACGayJ9q4pNbc+ZeBzhWpe0W05tpF36/oL/gK/0D9W3iN PJ9oHQz05JqmGXyn5qEfHf1mMPZK5HUz4esheb2Mvb1mePus8FP6ltwkj9K3 Pe7ETcbd3SmSR+r2fVU4mKnCHdpd2nw/6SusYYlBqdIycsSYkBtejPI85thy PRIrDEhSG5CsM5A+HaVQg9zaduQ30JrbUNBGa29FQQetqxX53bSuFuR1NWGc v7tO6lZI3cq8hWbCMslbnNXj2ZO9rwTBc3GK7t1/+vq1tsAKyv8ceEZD37T0 3ASlyx9onhHQuTgQNMPgAo3FOwt4E7eZBC7bwHhrtCPHZEce1abAQuhoMiuB MztQwiyiVO9AltyKEMZWAWmZiLt1jQHw6jqhbuiBprEXl3OsyDpdAD0hVnX0 I4/7ybXaDyHHZmehk2sn23YrCmxmFFM0Kzp6oKSp2rugbiO/rWSwqSXAnxBA mxVKI3matEnsPSB7d18TvptB4Vv3kD0P2ZtiCB5X4871SbyC7979PaxteBF/ pQDno4pReL4YxScykJQt+i86Ea/tRaaTIbt1ldw8lboFReegde5FoKCQ7tT7 ULqFi9wtfyjF4A+lXnCpH3yR/LG+tTIBtMw+5P9/l5KyApPvhtTba5zi8I8O B2Pw/4XdNULYSQi7mQB2E8JuQtgbhJDxd200CCEB3KX03fZWSRAKAO/MVuEe 7S5tfqASBSzy8hXNOBVtROzxEuRmlCFOpkV8mRYJFVokarRIIoDJWiWyalqQ TT3IaWpFTksrcttoBDGHIOZ0im0zRim5KxzTZSZ+i4y9i5S+Rcbfecbf/dte vB+gLbB48h5pewRF7wRjqzdI2wK07kXopDvRl5n3rkiPVDG5RWPDGszDayTN iRxLFXKsVci1VSPfXo1CZxWKaSWVlSh1OiG3OyAnfYkKK8KyLAhLsiJHT+IY W5WCtvpeaJhSaFoGmPNyf5HFMDDfVXe5ub9KIsZ9c385lVXI4z7zK50oqLSj uKGJZc8AlF39UHf2UYNIrUCP8iewU9XVQ1XpgNJqwDC14dFryO0Tud0gcluU u3UfkfOy5JjWYXVchacPd3D/wR4mp1ulzox+Rjd3rx5phUqciNAg65IOZeeK kZVEXdD1IM3QhzTTANLMg8iv80AzsgeL/2mgB3hB3BojwPpaoM9l6bnUiiCZ aEuQen+fIEfXjwpjH1Iv5UGe44SmbRRG3yoM0zPw3boVRO63sLtK5NqJXAeR 6woi1/c6ck5sTQSRo+bd9knIHRK8vYG7/ipO3bv+SpiNdQiN1OPSO8UoyjMi vtiEazINYss1iFNpEK9RIUFbgTTWHOm1zchoaEEGxzWzhdZKaxPbJriZXi75 bFiYtWKOqPmJ2hxRm2WdsbrWhg9ex+x9NHoWmLpNBW6fEfdIiYfOuFcDN9e7 RQuDeOzGltTSYBkTd9FvEbEaqk0dch31yHfWo7CKtXp1PYpZLJQyasopYGVU mHLiEV5kRDgTivBsJ8ISmG5RrlX1QtD6oWXppG0fwjVKfv45OQymaqh7RiDj 6eUxqc+r4m9UswDh/vJrqlHAdLCYM6yi2w1ltwvq7kEm/ES1szeAWgv33UDh 5L9VOs1QmJV4RMTuE7G7i59jdoOYbYp6f4bZr4+YebRYHGfm7mlBX58Wg/06 DPfrMUGbpjksGqTmmxB62YaEq3bIr2rhPJuPLEMvss19yLb0I9s6gCxaefcy LHOPJYSsC6L7d/GJWEZdeoJ80yDU/CfZV4uhTC1jPqWCSWuEyW6BrrUP+skl qRNYP+3B3uNHQcK+ht0VEtZKwtp5OB1fFLVF5nNC1F4RtuOpwh5F7TYF7YBC RsxI2B9LnIl3paGFmD6Sg+TjmYj8URGKE8qQrm/GtRITYko0uKpQ45pKhWvq CiQ6mpFE2pLpjuT6ZqQ00pqaUdVfg7lpG/weG2ZJmo+keTmc3lkzPBzSpdX2 wwHI/k7aRGBq4wYr1AmoBsQtN/PSvVniqTt6d6ClxjgktdNIT90RbQ3WyVuw Tt2ihjUQsCapzs6vbkEhawAZj6S0oRlyOrqM+byivp7aVYvTjKCni504XViF 8KxKpCgaqWXUoWZC1jYMbccI4ijphdEKGC11UPeJ9RRqWmUjQWtkHtGAvDr+ Xn0dCmprUNwsVrFGoOoZJpTC3NTAAahZXqlaO6Hi3FPW1ULJalnhUOPBElM3 QnaHkN2ec2CHucZ1zr9NUePPBkDzj8ow2F0A14AWQ4M6jNM8g3rM0OZYMi7Q MrKZshY6EZlUhXOsum3XDGgKTUNZSRWOXyrCqSsyXC1i5Lf3QdYwyVD6kLA9 RKGRE8HGrCC2GGqGKrNcA6vBDAvTTBPPp4x1j7izVD44ifSBDaklWO9bQNvy yt8EQXt8dwfTTQStlSlcG0HrCoA2K4FmxypB2yRoNwjaLUrZbhC0fQm0A39V gLZ/i+i3p7HffR2VyVkwf+sIxmMiOCHrkWJoRiJT5YulKlwqV+KSSo+rFtJn p1U2I7aqCZbOGnjGbPBM0KZsnJRWTDINmfBZMM64MOY14fHT2zjyRcQq6CJV /7R0c694Ooa4k0vvvk4N+7ybxiK6aSZFD8MebNM07x41rIV4MW2saUdBXTuK GlgxN7WjtLkdZc2tUDBrryD0KdZqnFFUIULOLavhM/m0zEomZwMMlW7q2Ah0 XWM4E2eB7JISRhvxE3eZUVvzq5iCVjcjt45W38SqoJGY1UPGYknROw5l7xhU vaMSaqouF1QMnyJrU/L3KxrqqZkOaqkOAwx7dxecn18kmWOGxnR2Q0LMiLmJ EjTZT6G3vUjquZh06eBzES3aIhFbGTBgrd+IJpMB2XkO5JTWIbawAcdjqqFJ siPkH6Pww++exI/fCsVP3jqO5IQSFMbkQ3c5A7lJcqRmapAuYwWksCNNXQU5 p4rJ7UHZgAdmv2gG3odxbi/YELwlNRzqvH7sPXnyrSBiU/WsTZuIVwvx6qBe 9FpIP6MVI+UK8dpgcnaddelNJmc7xGvX9zpi+6TrDwhaJdKvqDDb1oPKM+9A 8VeH8U+JPwtcxp2xYHjYhtpOJ+wNasgNZRy6KigYOgb5W+5BK4aHrBgZoY3z /YQVQ1MWuFhguaZMuL47cywA1n8LFgTbi9cx5xwKPmjrlZ5t02HjBE50OgSe b6V3CdhuMWDuSbfvi4Ya62SgmcbmvSO1M9hn7qCkeRgF1Z2ErQuFrJplTd0o Jgilrd0oa+uEgql6RWs7Uh0NiFDWIaKsBhEltYiQVSOC0KXpWqFpHaKejULX PYG3QytQEqOG0dEEDR2hHvSgpNWF3BqmoHW0RlGGNkvaVsxgW947iQrmlQI6 JfVNKYJpZz+U7d2oYA2laGxAeX0lyqv1Up61Pyf0zI4dwnaDsG0xlxCXjVaZ tvY0R6DJeRFjhE2sgc+49ZgnbMsuI9YGTdigbdG2XSYYxPUeWQ3yKgi/thk/ DivCt/+fc3j/R2cR9rMwnD8chl+cvIjLBTpEySwILa7EUVkVTqk6cbyiE+G6 MZzSjCFMOYbLVi/Sm1lpzYv2zWDjoX8DuplltK6s/20QtqXBJkzXawmcgXpm gqebsPXbMM9ydJnl6Dph22JZeIOw3aSe7RC2XcK2J8F2m6+/z9dK6LNLMFEk w9OqK8j9+gf4OPYXr12+pbTP6LHq1Ui/urY8g7W1WbR2mtDONLdzwIwuN7fD ZnQMc0huzWLj5syJAGR/EVxhWJtbR+mbWjzN02ErPjHA2VFUdFIMej3BLoc1 aAe3yZlo3CJjIwdkTCwdi5aFe4Eumpn7sM/el54UpexboKj1orCuD4WNfShq 6UdxWx/k7X0ob++Fgvl5BUUmtbKVnDUikvEysoxWWo/IYoocc39N6wi0nWPk bBLvhimZ+JAzJ0vIQR/NK913XcDKNIfCmVNP1hiXs1m5lvZMoYxWTs6EwFX0 jjBpG+L5DEDR3oNyJmrlTSJ+U0RqyVGfDrv+gKDdmGcNwPp8bd4s1eeurquo MZ7CYEfRZ4wtuA0SY+vkatNlxnW3BTeHLLg1zCykzYq8PNY+ZQ0oUDcj5GoZ /vp75/D3P72EH4Yl462YAnzvSh7CFDV4v6QGx4rrcFLeikjL6CGcNY/iy4g0 jCBC9IypRhCuGMYp+RBSm2alDmGdfw0a70Iw7jBmHuxislqD6QZ9QNQYM30i /Xd9HjM3GDO3GTMlzryMnT7BWiXFZXemEl+BNiEPLWky/Mp+Dsn/9X28iHmX XImrs4HlgbVZHa6vtJx9XZi+hKKsW9jtnMaTqCO4dzUqsHjwv2DnHn3fxbyl l9okdSxsSk/2MkhP9DqQOmMsk/epSw/IzCOpJ0bqhmHS6ph/DMPkDrkZQGH9 IAqbB1m6D6KkfRClHYMoE/6jVlQwQKVVdyBS3YLICvKj4PiVN5MfahbzFNGh rukch4bcvB+mQnmsBkbG90MSNV9nPeslI2PIrmkjNzTWMvmsN4u7pyV25D2T 5If5GfWpvIua1TFAbexBGbmRNzdB3sh6ts6ITibrN/2BILjJOmeVzCyRmfHh TDRXnoa7k8yIICh0yW3EspuTlbxsuSy4IXhhFNgdteL2mBX7jAb+TjsKZCxo KppwPrYcf/d+HL4Rlo/3ogvJTC6+H1eKYwyaJ0prcZKafFJWizO6/kOIMg+T myjTMG2I7AzhjNqN0xVuhMvduGwYR2HfLHafPAvWXX+Exb5mTNXoAtrUzjyr h9o0YP1Mm9bGyA21aWuKAZHc3PAE2Lnpc5Ifp7QdsJdDfakA/1QVj9j/8108 ufgelSRwVX+N8rw8o8OzJ7v4Aji/js29j6BlGuNKzMb9yxF4kXkZT6c9bwSD 2/TaFrOQSSa881KLgrZ/mwBRaIf2pWeKSW1V049g9T6WWl3sLKxFd4tjXjw8 6xmcLKRL270EyI2i5iECNITijiHImWyXSY0jLlR0DSK1uhuRmnZEqNqlR+NF VrTTCFFFHVKtbVC/BpAiXg1DZZMU3FQuDypoCiazJRSWrDoWvnVNyG0ZRiHn g6xrCiUMjKXd45B3jfJ3+dsC4NYelBCgkuZGFDdWoqjOgLY+DRN0qzRqy5xt 8xw5P2dcS90Z1NsuYWpQCw8D2izFZpFis0Yl36TY3Bi2YmfUhr1xG/aZqB5M 2nFnyo6703bM9zpRWNKA00VV+PsYBf4uXI6zl0sQmllGeGoJTw1O0kIoPiEM iKfkjThnHsI5qxvnbMKGqENuRBjchIsUqUhRGSejcQq7t59+O3jd4dH+Lsbt TPLq9JgSwtMZuO4wG8ymlkcpPuMMchNM2gnR1jRFaNp5CNc9TmrOda8D2z4H 0k9k48PKDFz8s7fxIOoDrHAKrXAKLfn12FxtjQqg85fBdaH2lhFUxxZgJ/YK Hh19Cx/5PcFrgSfIzQ1mrgxWPYtSx4G2n0F5cDcoOvelZxt91iI1+5zMPIdj 4QWZEU8H+JDcvIDRc4eJ0Qi5obWNSi2ApRSzsm4KQfewVPkXNPWRm06cKm/D CXkzx7KJAl7PbSUSTc1QirbBrnEcDquQnkGhr2xgVTBF0WHi455EuWQTkPW4 kF7bTm4mkdc2iYKOCRSROVnHGG2EyZIbxa39UpYua2njMTVQECtRUK/DyKhe uo63QJWeZRbgY4HX35cBleYSTFV6mKuNsFab4Kgyo8rJGUlmtsnMLRY2e+Rl X/BCVu56HLhPT9z3ia0dKocZR/KqcLSoFn9zWoHISyU4V6DH8WJyIwSH4hNS UsfkqBah/BzJou+cQzxj9FzlMH4DZ8lOJDmKID9n9BTvWi+0DX5oKmewu//k T4I5rfqaBX3vpuM589h/L333B3i8v4cxpx4TDQZMMFma6rLAI3hiIJsnT0sj ZGrMjrWJAFMbkzSxkjNN4yls+Oy49I9JeGjLhfvEL3Bw+jCuD+ZyiIzYXG87 FwDpv0ubi1heuYnii4VYTkjE04h3sRcdEKmm0VlCxOyim5Grh5GrX/QPi97h uzCNPwj02XnFA/yeS31R9vmXhOizZ5bAufKR9MiJ0o55Zj2U3Vbh0HGUdAox GJNAymGJl1pVh8OcfIc50EeK6mi1zDarcURmxfvZZYhXVyOdlemRsHKoEhXQ VdaiYmAcChejknsMclqpm4AOMoMe24Ssew7ZTWPIaRE3j48hn/AWtFGQmIkX MvMqYHaf39rGKFePvGYHsuvVmPNZMcN6xTNjhomzN7/GjBiVAXEqI+JVZiQo LUhUWpHCzDmtzBZcv7ejvdaOmR4CRHjuBeF5MOPAwxknHPSerNKMdJOd0bgG f3NKgcPnKxCWY5UmyoniJgLErKi0GaFlTQgrF00ihKhqAudqJhBVNY6zlWOI JFTXqsYCz4/uDDyQW9c4C22lF3v7T/44CFLcL0bwsGURv7q1iD+Vvvt9+Dta MVJlwGijEWOMbBPdZkz3iTKPAdZNcRoRi7wBmFbGKVKcCyvTNqx4bVj22RD2 nWjs6AvRc/o4dkKOYL/2Erw+faDRBH8lbf4C874N2JjCjSdm4uHFU3iWGo1i ZSXr5hmmHiuMHIxa/TvQu1mTjoonYD5k1BLwPPv8WYELH0mtJuLZJU5hKx9L j5kweh+wXKIiNE+isJ1KQXiyGnsQ76hFoqMayfZKhJfX4GhhHY7JGphC1uM4 1fxEqR1H88qQoa2U+pNOHClEx9lYlBmtKB8YgZywlLqGUUIrdjEqjXjFUyie 4c9QPrSOjMZhZLI6zGoZQjYDZw6zr5yWPuS0diK7tYVWy79zV20aTHosMJKZ KxYyUlUv9YAkqA1I0piQrDEjWW1BqsqKDKUNWbScCjtyFQ5mxbRSB2wGsdou +j6ceOR30hk2FFcaUVJtpTlQwnr5vQtFCDldhrCsSgpsO63jEE6WdTDrDano QCjjdoiqDVE1XkRVe3C2ehrZ7fMo610M9Bx+dpclEQreZamtnMIrdiLeseFm Zyd+5W/Cf5C++z34yM4Q2RluNGG4zYxRitBkrxUeZkY+CpF/yIa5EQoSD3d+ kkZu5j38jtwoi0qxUCZDa0Q4No8dwZOOQjx+socgON+QNr+LojwHmuPzpO4R 2dHTqDB0QtOxCk3XK2AOgsA8gkUKV2L56YW0VioBsxQERnrQzaeHJGLEjZdk pmGSnAwj1tmA+Mp6JFUyk3HWIM1WiWhVNVX6eFEDfpus1DNykRe5A8cK5MjS 2JGld+LUO5noPHcNhSoNkvWMNCyVigddKKLJRzywLz8mLo8PSW/+NexLj6hD K8jtmkZKwyDSmvqR1tyNNCY5qS1NSGmpRhInYX6jFhdNJvLVzQRpVOrUKGkb QYrWwENK1ZrxX5CmsSBTZUM2LU9lR77KwcNwoEjpgIzcyMhNcbEDTp0Nj+cq Ax0a1WaU1jho1ZDX1OF8qhIZJ1KgLFEiTteOOEMH4oziWQY9BIWm7kacqRU5 3avI6VoJ3DE5tg2LdLfkZvBuyVUYWbW8ultS3yjullz4w2DNozyvR/nPM3G9 LA+/Wmj/j8FlyIf7tzFQZcRggxmuVjOGOi0Y67FikthMU3I8wzZ4iYyPodc7 RSMy014rZKkFGMyVYSn7DBbeO4pfDTlxIYDLN4O7Xlu9CeWVQmRFpUEengB5 bmUQld0gKvdhmhSoMCjNPA+i8uFrD9L6WHrelXh0zRtwrn2CfwsZy/lYeyPi nY1kpIEleB3SJU6qkGlx4HhBvUTKK06Ol5rJSQmy6aSLOXL8/LtRyD8ciatZ /y9fbx0e532lf9+X0+1Ct7vdfX9Lfbfd7ttutwxpmkLaJm2aNGk4ccggk8y2 bMliHNFoZgQzGpA0zDPCETMzM5glsx0zJiklv/v7zMixu3u9fxxJlmVZmufz HHi+59wnD2l2L1KsXmbMFVD3jcG9dINgCHlYfiTOua7j69LkvmsuOLlfNLqM 3N4p2hhUvQNQdnfw9vVB1zkdVMLsDiokCgn43MpmOjIb0slIhomEmFz8IUiI SbRQeJBnIRU0NU1jppl8KCz2QUNaMvNs0DAV0pS7SQcJqQhAW1FLSkyQbWSq pDHz8038+yaoK5qECFV5I28OTXk9yarji3tEGjYT446u0LijU4w7CrHWftIi Br47j8DaKsYdJ2EOjIhxx38LkRLzdBlK3srGrEqJjxfbviJ9+h9wcnEabQE7 2ulcOulcehmY+hmYBvtcGGIlOMQqcHDUhYExJ/rGnVDGy1CamIeP/VEYf42E 9JauErL61Hx+4RS0zOtTIwpRuE+Fwthi5IhB3MAMVHXzfEHPSvJLzmnhSO5J 596eUM4raazhedLBtOVY0Ap65pDTOoSshm5GmwBSfVWQ+SqR4S1HuqsUGQ4v Dur8pKSSeaGgg8RoLPxcCQ5mqfHjpzfj+Sc3IfzlMLz6ahii8wqRandBZi9F Qe0QXItX4V6g8b1r8QrhoM3T5i6HpvBDE/ghWQfxFPcQ66ekAIv/ntn7+vSr PTf5lS2Eg+6FcGQSjCyCIScQShtdiMOHfBKtdhEOWqHTBy0/p7XRzD5sTbMh Qu6AVjR6lVfR6qAjBvv5+ZSNchgLRZ9NGwppa6AJtPESagKt0FS10BpR0j4F 90RoQnE8NKE4el5a2yBGsx0DK8F5MSE70TJDUEbR0DeLVUrkG9KR9aPt6JUp 8JFl81dDl1Q8xBsaakJDsx3N7Q60djvQxtKvrZ8fDzowttCMk+dm0NvWjII9 CvyxNAU9L5CO7rI/p0N0SATaOvDu/hLEHLSgIMoA9Y4cyHjlUh1tvG/ptD1d jBP08aLaHrkoKS+KY2lBx/tM0L1H3ycZH6Bo5CQUrIKUbQNQ0RQNXcjk7SLz kA4PkwPSkU5/kGl3Yofaz9yklBWnm2bEgUI91j67D888vQ1vvRCO3e9sw4aN 2/DGOxuR7atAXkUzVKVNrIz74JznKypsTsyBOsnDd+CcvUgyLsA+f1567Com msUjV1nXCLY6aliRh5a/9M7D2BsU/bD0LEFd2YFMo5dU+BjjSiG3lUHhKEeu uxz5JFpNv1foK4PWXwqdrxR6rx96jw8pBifCSUZ4hhsHcrykohZ6kqGvaCUd LiSF5cKoc0Nb3QUtA19hTRc04n2tsHZ+3CpaEddIgsSfkQYKXZOhgcKx0EDh 0FlpwMsmPEn7AgGZgKV+4D4cpdpKHPrORlTH5uBjd8T3Q59OfDsDd31ZmF2/ Fh93VkQ8mF58D8dPTKClzSidIwcCJUhQWhAeY8PuKA9UCXboozTITncg2y2U boJT6tml3cgS6iF0Y5axCwzvd3jl7/K634V15iIULT285qx82/qQR5PUEVr6 kM/fU+6vQYYrGDcymAzuTdZgQ4od65OKsD1aAdeBVLQlZ0EVmYzNmyOwe1sE DmzbibBtW1FQxaq2sgG55Q1Q+ephGjq6RpJI+AXfnoddGJ2AXdKQOCON9otH oAVjQZ0XJQvt1S0PQo7D1PvJfgRNZQ8veRmyreWQ2yuR4wxA6WEB7a9GQWk1 PbyIBgHoKqqkHmNDWTkMpaXMSdzYnuvCDoUP2zN8OCAXZzctvOwdiJB5kbAp H0Y9o1VtL7R1vZLyiKae7xtC3dfMl409i/CIGT8hVSx2KIjZUlLgmrgijTc7 Ri4wipwJtjZ00TG00zGwNpw8uvKvoWs8PzKPxO++DfOebHzsjV299Puejcdl hxKXEtbhD8nPRTxckly7fh4TE3Xo7DSht9OMoS6z1D6QIjdDludBlKIMGyP9 yErxwRanh3evHEpvO1T+DijLOmldUJR3I6dMPHUdJwaSgBhTQAaTlm5JuCCX VtDay8vfKz1QS1aLh01e5GQUS0d1hlQlzAx5mkI1dirM2JGrg01vg9PBwuqg DG9sjcS6HdHYtT8S3oRUmJSFUrtFXnkNr00NFO7qNbBPn8H3YZ8R+gWnGQdO wzrHODAXGrafPYlt/iYkBzqlVRKSsm6vONA/xqB9IriSoWeF/nmAl7+Kl79a 0kZQeOroYeqQT4+lrqynT6+HLlAHfaAWRYEaFFVVo5g47GCZu1Pjw06W4zsU pdie7ofC2gBDZRciMvyI3aSBObUAOt6qWlohS+3CRr5vCk59FDb23H8mKeTH bwv199BslFCxFhh8Mh91Smqgskm7p0YxdeJU6PZ/BAnf24Acxoc/uJOxCoDy UBFWjHk4lxyOj5JfjnjwocYOXCcAXR0l0vH+YLcJY91mad59jlbutCBDyTxf wxuiqBrhaawPZGWojzOgKiEXWh3rxfg8hCfkS0c2qkoCUdHJRH0M+a0jUDTx cy2diNGykKNlyUuQy68tySiEXWgKFJnhtNlh9zlhrXDy1bIj229EDlOwiDyX 1Mybb6vF+gNyvLwtBr/dFoXXD6TDSDBbcwpQLstCblk1IeCN6q2EljeEdXqF /kcoEwlfv/KJtsDMMlI7xrDf08hUcSpIAG986cy9ZxnW3lPBTQ59jMID5+jz a5HjqCcBDVCQnFymfPlMLdWBZhRWN0NX0wRDbROKavj9aupRXF2LXfoy7NJV YpemCjvzKrAjpwxRrLcNdCwHsspwaLMW1lQN9A3D0EqTZSO8IYaln1srnvqS BM+ceED0/hrpUeNnpHlM98xt6cRDzJ2LwUtJjZeJgpAKsvcuwtY9gcbx6fsx YMfX3kHCS0m450jHR2dmvhf6dLm9ExPqfCwn7cGfEl+LePAp6Q7cIAc9nSXo 6zZiuMeEyR4zZmkLPRYcoR3vtiIr2wU5CVcY+HqbaxChCiA+rRxVaVZse3kH nvvNZrzy0la8zCxOdP7LS0qhzjAgM14JRXwuitPVsBfo4Taa4HY54Cr1wllZ xjS4gq9tJYob6lFQXwtlfQ30zQHom5hh1dnR3eRGXmGNNOYieMh30Tw0Xy22 ZJVCJvfAk2OALquARaADSmaecm8FzFMrkg6CeSakhUArnl5G0eRxJJU3o7hz TCoZVnsvhMZEcL3POWkNhWOQQXf4IlkgA65mKLwtdHgsSCvbkB8Q8bqdP584 GmyDob4VxfUtKK7j960VpwMB7DbUSCzsyicTuRXYyTpM6W7FgexyHNysJwta 6BtHoG0eRWELrXUUWt432tZhaTzBuyAamxc+FK31ojwTyz9mV6fZbkhOIThZ xJyA9ah9QCymm4Klo3cVhQptABFPH8I1SxY+nqpYRaFU34SmjHx87NqF38Wu DaHwmPQuRkKht6MYA90lIRRMmOs1Y6nXgmM9VpzssWGFVs/QrVCVQakLQGWq QZ6jFinGGjy3LgXPP7cHb76xH6+tj8abGyPxbHg6IhO0iKHP35Vpx9ZsxhbG APHIKZtpYFFDA9T1DOt8+XTNbdC3tELfKozpUyvTqNYK6Jq86Otz4vasF0d7 fPC6GZuNdci11iLXSSMSuURib14Z9sh8UGWaoU2Q82dzQM50UdfPAoBIlEwF R8eLJpdRfeQ8xk6dR3HbIEpYTZZ0LcHYfQKmbroPadcR08d+Ot7B94hC8ORa 7GFU8DIqfYyD5R3IZZGRzzROU9fF2N4FXUMnDI0MNA2iJaad6UqjdOq4S08c tHyvqcVudYAugu5BW0EcKrBvs4E46Pk7EoGWMaIgThTHoG0Xp9IjTHNOEYff B6WLF34X1L0WRdnc3fuTZi4xZjF+KbjA575E+zQs3X0P5IfliPj5PpwvYn44 X3cfCG0ZrIfEqVwc7h16K+LBw7dYXL96Dn3tRUwOSjDSY5R8wxxhONxrxfFe G5Zpp/vsONtvx/kBBxxFfPHJfW5JjXS/Frhr8ehbCXh0iwI/D8/B83vkeCVK idcO5eCQwcPo6cOGPC82KL14W+7D+twAPw5gfXY1Yi2Muk3NfFEIRiutrYnG KNzGRKylnNHUiTvzPtyVzIvbtCP9pfQtASj4fysIhsIjejNrEWPi90z2Ij3b Dk1qPuSJSuQ1D8IwvgL9uBiiP4nRc9eC04GMqsVtoyEp06PMy5cJxVlCcUHa VmQfuCJtKXKOXpeOpc29Z5DjZvxjbqyq6CYUvcx1ewl1r6QEpmvqhaGpB0VN 3Shu6iIYndhtbMIuA32FnqalFRKOQsaOfA8iCMXuTUWwpOiD/iEERGG7sFGo CYUYv/GujuEshqBYCDoKMQHhmrkZhEJShyAUo4Ri5ChsQzPMevr+7X7iOItN P9iLYwUKfLzYvJo3ZG3Lxu9KZdj1n19Ayltr9z/IxNcwO16Noc5ijDBeTNBB zPZ8wsMKy84zfQ6cG3Di4pATl4admG12QaWqQC5vAhl94zrC/8toA364S4mf 71LghQgFXooiG1EKbGMRs1HlwgYFawI5jQ5jI5PrTblV2EQuNuUEEJZZhXhr DW+OBlo9b5Ra+k1W481+HJ/wrsG9RR8+h7t8e1eaf/fiBtGYH/CjhdhYK6tY etYi01ODdG8NNmQzPGe4oEzTITs5F81MZ87d+uCR0Mm3dNXaJmDsWCQNx2Hq ZFnRdT64u6r/yidnheNBSQX3FFPgqgnSwAqoog+51f2kYYA0DEh5n64pOEdu aO5DEVNi8f13G1sYNZqZ/+0ytOCvg1QYarGzsJQZVADhpMGcbGDGEIwUgoI1 0LSPMO8zDp8KuoZFsbYjOATtuT8ELY6dgjQ4WVZINIyzTCLx9jHSMEwa+no/ H0ohX/1GOMblSvypSYXvhU7fRwf6se7x1xHY/Rbe+fd/QtjX/h2KzWv3PdgQ 9G+4ee0chugmRqURahOmRQsf48XRXjtOEonT/URikEgQh/dGXbgy5sK1CRcW 2+kC5H6sVwU7W95WePHkwQK8ukONmLgCPHMwB2vTTQinr1xDEGz4Ejbm2LAx 24YNmTZsK6zEFv67LUy1tigrsTm7EvvUVcgqr+YLVcMXrALHJ/1kwY97S368 vxR8f3eJXJCPm4tBXYTLcx5cnHHj3JQLp8edWBZDxANWuLValMUpcS42Etfe eQ4fzkysclHcJJpsp2FsP0w2TpILsY7uIsOG2GUmZDb4mo/RPYsnrVN01dN3 YWEoyfEOQFk+CFVgCHm1QyhgRqhpYhbYLLQGhhj+6JWaByCvaMBmfR02a+r4 q2/WNDAl3KwR58cB/tp+JDn5d2FFMCXqoWEmqWbmoG4bgrp9CPntg2I4ihT8 XWjd0OrKoeCAsktaOySm88SuCnq0STIxsQLbuJBYlwYGVplIXp+D1mR6B8dO fFf63F9hYngI3//8v+JXn/8aDjz+XRx89EvY9NV/QvxPvoSrIxN7H2Tj85gb DWCEOcUY60zRPTxHLpZ6+PqSi5V+J84OunBh2IX3xty4Ou7G9UkPlhjrvQEH ZFY3XUE5NuUHFQzWq7xYu1uDOLIRxo+3F1ZgO9kIU9g+hTClVbxGag+26Sux lWhsFefPecRCQWP1kukvxzGBQwiDNXj/sB//gHt8K2bLbxOLm7RrxOLKvAeX ZonENJGYJBKj9uBob78FnRXFKDiowpGERNzevhY3WS0F+wq+Tu8+hJKWWRjb GDnaQ4c03WLPnfAVYhnaLWlN1n25jBlem9kPYeDXKkqHoawagapmFHn1oyhg hqhhpZBd1Ya00nrEu8t53Uul22EDPeIGVTVfElpeFa0M61QO7Mzl7bFRD/+B LBS0DLAaG0BB2wDy2vph5bUWM3J/Ie0X+4w0XOKeD+6wEGmE2EUg7bGQdAGX YZsQiuiT5OE0VoEo1ZbCHynHx97IEBB/A5O6AI/+6xfx4v/3dUT89FHE/OBr iH3sS8j6yX/jD3FhuJsVhysWU2jNeDDKfAM3mFsMtRow1mHEeKeoPa2Y77az 5nDgBAE4RTDOie4DgnF5wi11HNyc9iDPY0GB3wl1GetKhw/7deXYSkBeTXbg jd16HIjXIlwjhHcC2KGrQliuA5vyHAjLt2NTgTAbNhc6sa2kEtuKaAaSog12 Kuznq5iVK6afvUFKDvsJyRE/nsA9vr1Lu32YkNCuC0gWCInoNqXvkCARU7fD hGSQZVO/Ec0uDTzi2DcxAzcituBmUjC/KuZNL1YtG1uPERQGlI6gpoqtX+xX CmmqTNyl41gFhCF+7ndS/pdfu4icijEoqsegqhuDvKY/eDzjDSDJW4UUj2hI KsOB4nKE5VXz16/he1pBABvV5Uy37NiTb8XWV7LRuCMOKTbm0i0MVq1MUwaP SkCskVab/D0xuROcMhJC8UIwXgjHi3GR2RtwzlyHY+Yq7DMXYZcEJE/CNrkI y9i42NHwADAs5cIz8ZE3IQTMZ5H+9iZs+sr3selHP8COp3+M3b98HKpnXkLl T9Yi8M1fYGn92/ij4iDu7nwNp+IO4PbYRGjNXYief8GZ46MYbS3CeLtJemw1 3WnDAuk5KnqeBnjP0qWcJznvTXhwdcojtRz4qm1Ql9qhLndBW+6FrsIPAy3F UonXEjx4fZcRu+JK+Otv19XRL2wXM7IFHoRpaIVuhGnd2KR1SSdcW/nybjNW kaIqbC2qQCLLGa3VB22JF4VqJy+/R0JG4FOKn32CD03CZ8kr6Vdcmg/hw9Cz LOZmR4ND28cHTTjSWyT9tvlKH+riFbgUvR+XXnsaOnM1SprmYWw+DmPLaeJz QVq8KC1dHL4praMTe9qEUoorpJTimf+9tLRCZI35dUuQV44j0ddMdGqITg2S fdVI8wWQ5q5EuqscCeZSohPCJ5/GOyqMfmdjvo0h1oKwV7JQtz0Oicz4Ewxe KBsGpH0mrrmbYhHlp8jLTeFi5m8GZz7mrsM5y3AzSxczyx9VSEmLx3XTx+mW 5mEeGb5/1C57MxUfutOkP31bevs5FG3Yg4mX38AftDFIDnsOv33sa3jzF9/G epaw0e9mQPdKNEqf2oia7zyN+S2bcC5mJ/6UEo7za3+D2y5L+IPwfB3zwwGM ienfdjMmOqyY6bQzX3Hwtuc9TLdzZtSNC+MevEdwrk1/ojWhKXNK4Ogry6Rp GjGdX8J88qDMgB1b8hETr8cOJnI7jc3YQQsrLOOLxhdSR9P7+d5H82JTEV2W uQaJrkoU+gmN1wedi2ajGd2ocDkJzj2C8/d4/yjd0NGH4blGeC4vPgiPMwjP 6tD1sAmH+4pCQelb0rFwCYu8k/Fx0GyNRF6mE8YmwtNKeDoJT6+A53pIZofw hILTJ/D8LgTP76WOAlllH+KYQ8d7a5FISyVAMvqfdHeVBE+Gw4+dos1ERWjy CRFLwjCWehvVVryTpMLPntqNl36xAdG7o5DtbGD51Abz4GkScl2Q8ghc89fX 8KNrDC4uEuOcvSJRExzbEId99DezK7BOH4FlcgaT586twhPzXDxu2zPx8agH 3wwlLPMjE8j6xk+xsjkMHzmScH3EhvHxMdjMBsxMja1uta8MDGD3uiyo3kiE 65kdqH7sBXQ/+wpOJ0fi93kx+PDA27iWfEhaE7Dl4Vg21KDHWItRGief6LBh tsPOJIcXhJ5oZdiNs2NMMBm/LhOmBSbC+ZJkhD3ohSSYhNRDDYyVtbQ6RGYY iXk67MmpKK5t4J3ZjFR/Mw4Vu7GRsWqDrhIHS5yIKnEgqtgGmcMLTUWVJD+h K6+ArqwMer8fercPBrsHen5tf70ryNTf3XdGt+7zFJoEe4Cnk6uD1OMWHBsx YrFf/0jot51fPIXKojKk7lOgcFcG1JE6yL0jzF8moaychVVC6QE/JFCa/SDU xRTsNhBT+wWssHOY+2bW9iC1rBFJDGOpNJknhJKzgiiVIsHol1DayCi/UVMm +eG1iiL88NVdeOonmxH2m83Y9DpDSng0VOJJnacFpoHlT0ncfIZvL9PeY8T6 RLDdPheUsreK44LZE7BML8E0PoXVnsPdT0XgsolpzkyAv3CwnfQIMbI8+itc i6ZvqUjFx9dPIbhU6W9RVtWH/Gwv0t5KhfmF/fcj2RR90e3iTPwpcw+ub3gB H5TacGVkIuxBfL6J4XoDxpuN0iD4ZLsNc0L9s5dBhL5ohSnQWfqii1O852e8 8ARMUPstKCxzM4CVwSChU4uSqgaYAo0wVzfhUJYVMhbxjvQMGBvEQH0zE9Nm Br5y5NgskNstyLab+d7EP5cg08jiMsAyOlADfVWA/q0KBmJk8JfC4PbCIFrC iiyS8MMaiZzPBhVIhBYO+blKfxQcxGfCPOPCqWnyI01Fk58J8jNqxJUzYyF/ 9H+k6ejhsXo0tZrw7l7WevsNKNivQV6kGinyUiSbWpBibWdu0gl14xGU9F4I djaFFiG7pYV/7yO/YxqKpv41ULJi+mfk8a2ytguZzJVlgh/GskyXYKhM6kPY IQYoJIZK8ZbMhHdiFHjnhd1Y+5twhL+xA7veDce767ZC5W8kR41Quhth6j/+ CPOcS2LBCzMdx8wFycRp43059nkhmb0My+wxmKcWceH2nfscNfq6cUanwLQx Af8U4uj48RtopecV1kYrMszylWljIH8Ebc2npa8KJtbBr89dvxPNT72A97MP 4FZ1Kn53bYU/TZA7IX0jz/IwBmY+FAOHtm3HsdRofKhJxB9iN+JOZiwum00b HuRuL0bqizDWxASqZZU7B+MGuRviNWQMPMfk6SJd1tyAA/meEnInmh9Koaer KRLMVfIFqmohc60w17YhJseJ7B0KWLOyYRJjzrQSmq62HgqnEzlOoctrp1mh cJFBawkKaxqhramHvqYOBjGVX1UdYo/JmdMFvcWKvmaHFPtuH344gQpqMHlw gYXaWXK3MuPECWlMmtxNmnFktBiXyJ3YkSCOuds7zOim9XdY4HCZsD3aiD37 7FAdMkO7Jw/ZBYTF2oZMRycynF3IcHWzUJ+AafCCVDSL3NgycQE5DT1QNvUS u17kNvPOb+6HuqkfhZL4fx9UFeLYqBEpTI5SsgzIURZi9yEDwpPMiM7UI1FV gE6DAe+sO4htjMf7wvdjF6+YWudCrq+O8NVJjy+lQmwyKNIuDjrP0d9IC17m zkieK3jGLY66TsI0cxR1R058IQSNKNIf//x/YPPXvobt//3vyHjndfxjKP1u Y8lxKLqX1ocYWtyhPsTTEoRF0SL554O0iD6YtLPSzoW/Cj0bNG3cg+lX38Qf 9LH406jzcw/Ezj1/Fjubnn0NU7JEXDPKpWz+fDh9Kl36uoed30gtIWwwSZIE k60hCPsJIePmKcbNcxNeCUJXZREKvBbGTS8hJCDlNXR8jTBKALYTwA5YGjoR r2I2yotps3lgau2Gqa0bJW1dKG7thMLtYbLhgdzjRo7XBYXXwRqSzrSuFbq6 ZujrmmCoaYChui4Iojjo9zB+2q0oLxdVvnB5v5Tm9G+sPikQWTyLwPOE8Mws s/jVEeppK45OmrBICMVBe1enCT1dZgx2WTBKm2DV0lZthkxpQ1SGBxv3eZAZ 74JnXx6sW7Mhd7TxhmnnzdIJuZvm6UJeYEzKsOV1nVI/jbKRgDZ1I48wFtA0 jb1ILfAiX+1F4oFcaOIKYMoshE1jYLZTjEKrGbsKhECtA3u0NkQk5OPX70Th 5bCDWL87GvlJWWhJykSR0YlcbzWUrgB0jcOwTQgFE9rUKVhnTklnrGukM/ZP BU/Z54Ia43VHT30x9OTwsS9+Ab/4ty9jx/e/h+Qf/xdB/GdkrHvl70OjqSdO 3EBMTC+tD7G0eFoiWUyKFou5kkniXyGFLKaQxRSymCxMbC/az6/b24OTR69/ KoS6SO8U33wCp7dtwkeuJFxk9f3/SH/316G47IHsz+Jyz9ZwTJXNsiycfZjH AxiuJo/1gkcrebRjrtuJpX6XxOMKeTw7GeQxz6FHgccBjegFKguQx3o6xGYY A4LFTljqu2Fp6sGuGDPyI9SwMyk2t/OOohnbe1FM01Qz+fX6kePzIcfvJY9k kgVBYT2dJk1f3woDuTTUNtI51kqO1yDldcwdbUbcELKbSz5JDfEa7SpZvEyH GByBZRU85wyO9Iu5vGkLZoby0VyXit5uE/p7zBihSRND3RbM0xY7rUjPsiCL 91C2pgLhieVISvKjNkqHsiglDkZpsOVQHh1nPhS+dv68HYywDcgsa4CivgMy 8WCdfKVnFEMVm4diWfC831VsgdPhgpO/m5X5rrqyFMX1Yqa8FEk+L7ZqfZAx p01SuLBuvxwvbo3DHjrKvTImHyo32pRqOFNzoHKL5pwKWMZPMfFfgWVKdPx9 cta/RlK7F0rkJ1HLokdc0S+GiPvFF76K1//zq4h84nuIevzbSPrRf6Hgm9/E JeLz2VDALSmeQlxsn2TxtERaEi2FdKaSzDRhh/rWQEY0/xIywpl2MGipB2gE NGVfD6zq1UGjv2DuPAHHY0/jeuwu/LEymDX+c+hH+iR6BytY0xO70f5yNi6z FnyIyigM0fuN1ZLKxiCVs90OUul8iMrpPjupNJJKNwrFsWdpLYoYhkqqWmGq 7oC5jkQyRFla+vHWFg00kVqGwXKWgIMw0YydAyjpGEBRez/z+TJJNCen1C+R mctwr2kQg42d0DV0kMw26GvpMavrJfknUXHoSK/WZUQX04mrC0F9TiEI+95c SBSW6eFZUrky58CJ0FD2zGgBqjzb0d9tlFQAxh5UARAdCN1CBcCKapsV8hx6 7oJyKPTV2BzjQVxSGQr35uO5X4ThhWc245UXtuClFzYiPdkAdbwC+ftSUZiQ B0tOIZy6Erhsdrh8HjiZNhsDlfzZa2Gob0BWgN5eHDu38Pdp4e/TUgVdkx+l LU64rZVQ6WuhNNZCZaXZ+bFLSMeXITbTC3VmCTSHsqAsskPTPCitHHho3YDU eRBcOVBz5MwXQ/FS1BI92/bj3MY3seGJx7Drmcew9Vc/RvKLb8P87B6U/fA1 lH3951jUGkN54GdgLJkklL0SmKtwJtNSaWkEVBbdj3Rhh/p5C2Tw7d/ybR/S o4ImaJUd6EXa/h4GhAnkMa9s/9WL+DDnID4edODDa8urnesinIevC2DEfx4f nDj2EIuR9BQ1GGMZMl7PiN1iwwwj9iLTxmNDbiyz7j5DFpsbTWTRQhbpzXx8 Pf31KCoLCTYxRzc39MLKlMnaOigtPtXF6OHwVsLcNQxT1wiMfF/SOYQiWmFz F1msgLy0nOaHsqoe6oZgG52WTOroeXR1LdAxldRV1UrZgdbvQaHHjA6WVBJ/ cx6JQaFEITg8IzicZ7o4bw9OEM5YUFO6A81MsIfvCwSYsSBOu3vIYI8NJ7tt WGFpdqrbDqvODUVeOZRkUWWsQbKuGo8+uQsv/WYvNr28A+GvbUXEui0oiYlC jbYAxfoSyAxupLGWjTeybGNKnF/TII13iWFhXSP5a6a3b2mBoVWsIuDvItof WljRN3pxhPf5jSkP2gNl5L8WCvKYYxWdSrXMEGr4PQPYIvMjO4eRITUPWQnK /7mOgFZ9NKiW/8VQx69tw06MPfscfpdB91SVgt2vPolfffe/8NKPvoLXn/k5 tq2LQgzdU+HL0XDzPqv4zrPo2rBbAvPTIa9pLBlHQmw3jbljnPCY/QSzn2AO QBY7hPSYYWREjzyCzOhRMpkVM0oboQ3zMyz/owckWjMEp5E9CHtMgZzHI/HH ojj8cdS5WkodO/IBxpbv4Nrd3/15yD6zMI7RCtbPtUyrmglkpwMLBPLooBsn WcecnhBAWpBnt6HAVQqNh2mNn2leeStKAh0w0TGambdbWEBa24awfpseRfEG OHwBmLtHYeoW7UKjtBEUEU5917AEoby0AlmlvCD8Hvn1/RKUGtHXSSAL69pY 2zShsKpOmjcR4shqn5UVnwXnZ8RzFhqBFBPhp4RSBWE8LqkI2LEg1Crqo1Ht i5TaLoSS/qqSwBGCeKLHjmXa6V578Li934GpeicUOaVQFVZJSgK5llr88Df7 8Mvf7sfLrx/Auu1x+G2kCu8wNIfle/GuyoPXmBmtzXDj3dwA1qkCWJ8TQKy1 nr8Ta7Jm4QybJBD1bQ20OujaqqXWi7J2N27NeHFzJqjFe3Xag5a6cmTxRsiU VjjwvVDVd1dji6IccXTc+ayDNPlmqGuHoB9bQWDpAkbPXguB+H9wih7R84Of 49oeFqn2WMxqY+HZnwBfUiLWrf0lnvnxt5AYsQnz06NYPnMOlTUD2LkhC9lv JsP8G3rMx4Mes3/9DlwymdaECuSTJ66Ryw46yx4kCjbjBpBCJlNjR8nmONmc RGbMFGGcps2sQXbsDH1tdtwMP5rm+ynIYyf58bjEbfSWerz738lI+Kkc6S+p cKS5CkkPHni+haEyXrCAWRK/mm63Y77HiSMDLpwY4YUe96Cp3oo8qwMFzjJo 3DXQ+pjblbehKNCJEkljrF/S5rG2DSMs3ICSpCI4/NWEcBymnnFCKHZ3ByeE 9QRS3z0EBWEUMznK2kGo6vqRVycm2XukiWA1C3M1QVQTRDXzRzVBFA+zcx0a nKZHOT3NDGJG1C0uSWX3aEjpb445Y09XBr1iJEa7SyQIpxid50NyFkEIHYTQ SQCduCD1fLjw3qo0QV6V1PORZ6rFr9cl4bGwdPxspwLPH1Dg15EKvJhUiLfl NryTTcuiZdiwMVfI1VcFZ4qUNAUtqxIJ1uo1UvPPI9C110HbGkBZpzhcuT3n E7IWfHtj1otrZPHytHhW5sZ4tw819WWori+FgYEjxU4HqSpDUooJgYwCdEdG 4rrdHOLvr6UqIrB5D46++jL+mL8f79emIu23r6LgpUiMlxTiMJOrvwzN5cwf Pg2l3POwY/zus2j59o9wdM9eRL2mI3CdUuqYRNiSY8cI3CSBm0ZG7ByBE4tr s2IX+ftkxy1BHh+0Ncjh27/m20X+eQHyuDkkbOtE+LdVSPu1Dhlv6ZG5rxYZ Bxofpu4FzPFlGakws3J5ID/s4xUdCuaHjXU25JodyLeVQ+2sYUzmrS1R10Xq emFsHICJ1JnbRrBlexHMKUWwlQapM3ZPoKRHaBmMw9A7Bn3vCHQ9w9B2DUBe xco0MIicGvHsrY/09SCP8T2vph35gWbkV9bRqpBX4UduqY0VuBoneHmOk7pj pO4IqVuadZI2B6Zn7Zhk1VxfGYXRzmJpicgEiZth/F0kcUd7Qu0kdO2iw+hC iLbLIy5cGXXh6pgLLoNoMa+WunDfYGr9070avLtLjb2JeXguQUvaxBjhu3LR SrKO1K3LtGJDtlNqL1jtF9iiCvUMiHYSTRWyK6pR2FaLsq5yCTjRdXabdosm 1rZcmxOPZsWjMjfOTTLcjLtwcoRV16DoFxCdUSa0+PVwKzWYlGXhVlQ4bqcc /PcQeR1a/vUTv8LduK34yJ+I66MOZGyIhPb1aEyatXj/6rnQ875/vO/1skJe L/3R7djwtUPY/b147P1hJuLWliJ6axfSYueRHrtE2o6Qs6Ok7DhpOk6yTiAn 4cQjUCScYORWJB7nR8cQ9nMXDv6wCJkvOZC2jv/9gU5kRfciK6oFvS1HEh9m 7ealCxgsZfVYY5XC7XQHw22vCLfi93ajgZ9XGR30cmUoYCjQeJugE5vOyFox WSumhxNCPSZ6uO1kzZJG3kKslZCx4t5xFEmcCRuFlqypWZv4mAHoe08iS/Tq V7NGqe6ForoLSlbcyiohUlUPpRDFI2uKMhtMAQOWeD0Wp1wMG/RK005MTTsw RhuZtKGjLQ8j7ayrhAh/txmT5GyOnB3uCQqvrJCzM/TcF3gPvcff68qoaFHx 4NqEB9cnPNL9lWp2Yb1CHKtX4oUkO9bv0eBQqhqbWT2/S77WYB39299iPT/e kGWVbEtBKbax2hXtS1uFPkI+TbQw5ZC5dNZj1eX0bPN+RsU7C37cpt2Strj4 gqjR010U2cOUyGzouCXV+dDagwETjvUW4+ryqKQ8X5OSi4tJ0bix/gUhf/Gv oYwtWH7sk8qPj4qj8NGwA7+/voKsjYdQ/HYcpu3E7tq5vwudvq76u+d+ko03 Hldh3fdzEfZNFbZ/twAxPzUg5vEipL7ZgpSt4yRthb7rFCk7TbTOELEza6AM vjlN2nc+VY6EnzuR82YFsrc3B31d3DSj7DCyozuRGVWDxAc7Dn+L2dZ6DFVY Mdpgw0SrA7NdodqX16W2ygqZxohktQVpzMnTS8oQqbYj2SRUP0UHfzNZYJrX OozdO4pgTWdEZXom0jkpipIvQ98odH0j0PYOQ8NoahpblljzHr4Hy/glqJqm kFHVg8yqLmSzfsmubJYEpLLJWnaVH1nlNpS2sm7lfT/BCzI26cTwpAODk/TD R5pw8/ZFLIwGMNZeHNTb7xKbBW0Pd7uQs3PM8S+SM6HNIjE26ZFy/sP9LuR5 6btZ06TbfYyOFXgxIdjtEp5QKPktsrZGguzLWC+640SXnMImNb9sK65EuKFS aosSDZbiywVyCWpmwmoPjvX5JMYEa3cWBWt+3CBvwc44ssYs9dx0iLUxvuyi FWqYrA2Zcay/+L62/OGjZ5B3KA+LaTLc2b8BV6L3hZ50/M3/KDM+ONEr/U12 WCwsGxIx6xLAnQ0+Tv4Cs7bLSIpuRNi7FXjmCRte/bEL7/7Ahc3ftmDr14yI /rETmb8pQ/ITLmS+24eMHQsE7SIUSRcRu3MeO9/owp43erDlew7InqmEcl0D 0nZ08WuWCeVRQjdP6CYIXR/TukasnHgPCQ/2wr+LPo8FQ9U2jDYxKLXzYjbp 0FmTA3luNPanZuNgZgGic4oQl2dGQqEdKSzuUkt8SDWVIkWoRuZ7sH+nHrZM HYo7h1HUPQwDHZm+j4FT0uQYhKZnEPrBGcL2Pu2eBJx36Q48i7dhGjmLnIYR pFa00ZqQxvRNVlUJWaUXaeUWOJqN6B9xopd3fzlvCFsbi+cOISA0x9x9DnE6 KxL0diToHIgvdCJR7YLW6EKlj06aQJ3mzXNeiAGNBYVdrk8KTQ6vlKoW+Fgn lQa1FTS0QtqGRAPW7tJjW7yOBLFWkDsZQF1YJ6cDVLqwIdeJjXnC7NhWEiB1 wqqk9irRiyQ3+6G1BBtktIXBFqs1Em+fxa3FVeJ8DxM3yZ91nMSNkbhREjdi XhWUD627+QsU68rRkabE1fgIXHjtGel0/h9DT0xETeEWNcXuYE3x+1Enbl1Z lv42Z1MCHJtTMOeVyGNWF0Svs/Uw0WtFcswgUlgU7N85jjeeb8fLP6nDusdr sfXRSuz4thcHfliK1OfqkPNiAzKerMBrT/bil99gEPiGGXsfK0P2S41QbOqA MvYklMnniabwhSfpFw8TvxniR38X146+9qWH0ft/cePiBfQyQx+staPUFgeX aS9KrfsRsO9HZEo2omUFiMvWIzHXhBSNHTK9CxnFXmSZ/NLU6i6ZBXFbc9GS kIwUazkKmjqZrw2gkKbpHUBBDyuErj4id1ea2r3LmO49HMTOs3AL7rkbcM9c hXP6EooGjyK3YwR5HX3IbW+HqrkG40fH0TXDGM6YXNg+F1zrwvcGWg79rRC+ TykSt4QDKXon0rQupPOSZ6jdyORtYTa5MdXmwXshSRghBXNzxied7qhLHaEh fJ80Z60rL8X+NA1SNsYjJceMCEMdNijLGHN92KDyY30u3xeI1hJagQebiwLY aqxFkqMKclc5dN5SqQtC71xtr/EQPweO9nlwWzi7/z/0JojeBNEbt0p68seH iyU9+dWDhxPHz8IYn4+Tqcm4s/NN3HZb8feh4w+pnNi0B0dEOZG3Hx+wnPjo +qk1oQdsii0p8G5Pw7xfi3vXzvxjCD5LUS+SGQRTokdpc7SjSI1ehizmLMLX zeKln3fh3Sc6sfVHrdj1aC02fasKT369E09/awTPf7MLr3+3DYo3OiF7tx3x 4VNQpVyFKvlSCMBTBPAYchLnCeE4g3QP3Ma+Vfh+GOrlXj48CWvhLjiL98Jv 3ocAwWu0RyArQ4bY5HzE058lKUuQWmBFOn1LZpEb2UYxRO/D7nQT5K/Goy8h BjJbKdJo6b5qFHT3Ip+m6uqBbfa8gO7wbQm6W/As0RZF01iwS8wlen3u9xQu wzZ5BNbxGQLYhaqJ49B2EjiagVZEK6aJUY3csmakFdtoTGGL6PYNvCmYEGTR 5LScQg8Uai+U+V60VQgdItaMhM5fTej8Nvo40dtF6CrKWBiJ48UqHEzTIz0s BUZ1EXRlYs7Jg+yiYhzQOBFBn3qAv/9BWpLBCJXdwe8R4PcI8GsrpSVwBn85 DATQ4PJDb/MSPhfK3XYJupuhKHt1PiSRGwLvFJPVk1MEj8lDUFXeJKnKf3oV rPkVeEsqMCyT42b0TtzLiMKt0Ym/DTF5v5iI3YqPfYm4yfCwehQhmMzbmo6y velYKCvE3WunQwdlX0BiVADJh3pI3ARtgXYCaTGnWUScR0bce8iKv4aYveew 4eVZvPXkEF75wQCe/sYsXvjWHN784RLW/ZxR97luvP0TusZ1I1ClXid9V6BM uUj6zpK+k6RvifRNQZ7Yz+9X87Db24nlk+PoZire1lAAr2EPKo37UGfZjxZr BEqUiYhNyENCmhZJOcVIZdRN19pInwPZJhfkVje2xOdh5/N74Dq4Hxm83WW0 VKZLMm8lctsGYJ05S+JuSko0nsNB4RHPIl3dwnWp10zSHJG6zC7AJsaJp0/A OrWEAqaFiUJOoiuoN1IU0hsxdgf3B5lJX355M9If2BuUsbo3iHeHssgDpcGL XL0Xedrg4azX6kFXnQNqrwmFpQ6pEUzapFERgIHlZlFFLSLTjMjalA4TL6m+ sgEaP12a0YysEjMyTXxvNiPbwjvOXIJclweFLH+0LLf1lbUwVIouCn4vQaKP RLvoAkUXTwnL6AG3RN/qvj7xePzCjNhi5cYKy6QTLI8eFJtfGi4KHf//BZoa h1CaLEaK43Br8ys4ZzWHtuB8WioqullUnBVFRdH9ouJB+sK//RqqDmZhoUKD O1dPscBZpa+G9PUj5dAU7TDpWyZ9Z0nfRdJ3BVkJN5CdeAs5SXehSL6HV546 iae+dwHPP34V6351FW/84hLefKIfr/+U1X/qbdJ3k/RdI30h35e8QmPel8TA mzTI71e3St8PQn5vcrwGvZ0lGAiNwQ40qtHijEeDcT9azRHoJoXR0bmITyaB WYJAE2SFFhJoI4F2PPNuBH76yzCs/dVGbH9lA97dGoF0XpU0pxsyVxk09cNi QGfpGl4iddfgliwobhIUNLkSFDSZpe+bPUc/KY7ajyGjdwTbPMwz+MobeoIL hEpCYiYmsUCoO7hASE3/l1lsp9EnlziRXeJCDgOt0hxSvzGTPFqB0Qs1kwW1 zou9yVZkGYO9ZNryMugk+upQVN6A4opGRKdbId+aDTMDuqG6BXqa3GxHNi3L wvd2O+R2G+8+M3Lp5woDLPSrxVG1sHoYmLMaKmpIYVWQQqcHOv67wuISib7V oHuJFa14Ji5t1JBWGwYlwoVU8bEJI66cGw9RRoyOnIZ8vxKzsgzcPrgZNxIj Qs/l/kKqMkafYZWRvgt/YpXx4cne+3miwG/Xd9aiNkaO2fI85oEnQx1ZxC+y FslRA0RvmnaEtkL8zhG/95BBx5eVcJP43SE+94jR+9i29hqe+sEtPPuTm3jr 6Rt4/amriH+mH0n7zxC/u8TvluQAlSmXaRf4b1gLJzP0Js9CnjyErMSGVfwe DeV8N6+fR39nMYa6xaSlCVO9Jsz3mnG414LZpkL0uxPRaT4Aa04q4ljzJWYU IVnFMKwxId1gRqRCi8ef3oJf0za+uAUR6zfj3XVbsC81EyppEUELcitaoKkb 4EviXri8RhJNeZ7x9pIkmiLJpcydDwoozJ6EenQO4WVNiPA2SlIpxb30dr2h xVU9grvQDqHOBdYIbfRKZI7xLZu8yS30eDYPchkv8xyh3UGiRVXsD7J6ka13 S2I6W+IFS0IuRehq1NLrNZK7Zlortu3TQ7ldATO/r6G2g9aOAn+N5Omz7Mw5 nPT6LprDjlx/JQpr2qCraYW+pgWGmmby2kT+GuhRa6FnLNZ7mAg66GnpMRdZ 41yZY9ydDSV8s0z4pO0HzqBEttQuYcbSRAlu31x9+vZ30laDxlQVLidG4urb 0jwYTOp8OAvyMTs0FKw3Hv05rop6wxasN+5cXV7dzCkQ3Pf9t9GYkIMzfdX/ skrfQYbeSNIXNUMT9J1Casx5yGIvk77rpO8Wsun45MlB+pQpH2DbO7fxy59c xyukb9OvF5D26zbk7mQWlEb60oQDvAFl6hUoGH4VqaQvlfSlzkGeMoTMpPpV +oIHaLtx4xrpay/C8P05X9PDc749Numw6ViLDvO1CqjSlQzFRdgfV4ioCBUK DspRuDYKCa9HYN3rO7EzbDciNu/A9vBwxCrzoKZTKKBTyK9sZKLGj2t6id9F Oj1hFwjgBQlAhxBwmafzE22Vc8tQjy1ge1kLttiqgztfJL2eBZh7hV7PIqw9 S7B1H6Ydgb3nCENgF+QmLwH0Q87kM8dRCqWrFLnuUuR7/FDTCsWJNCsCrcuL 5Ad0e7bFO6UkT0/nVyRB2C6t5HjtHSXydufBwu9bVN8NQ0M39DSxvijbQeP3 kdPRy11OSZNCaPpoCay+rh362jYCSSirm6Gvquf3roaOSaHOTYfrMKOzySo5 v0sznqCkuCQP7cQJSbaeEM5acGTahJOHa0M9Kp/B0WNnURiTj6Np9ASPfgtr P/95rP3SFxD+H/+Giqd+fL/auHi4M1SpfAo1jm6kPrEbLalKnOkP/Otqrdty DEmR/aRPkHf0E/LiQuQl0u8l3SF59H3JDL0p90jVPexZfxJxb40j6bUOxD/V AhXJk6hLuxn0e4K81CB5OavkpQ6hr+vEw+Ttwtx4NYbp98QJU3CaWMgNWHFM mi6343ToeLMmeg/mYvegZ/MmpD2XgLyN6dBHKlCflY+uYgO6vVaG3Chs3X0I e/ZEInLvbpQkpUFTXQd1oA4FTIzyyuskmQDz4GE4Z84x1Ao7S7d3htTR7c2f CrZU0v3trOvCVncDlM3DwZ190jKrw5LQm5AMsvUeh11Y3wk4+k9CW91H1yTa qyuQ46yEwl0JlbcKeb5KFND9aEormOitKkf5Eam1Y7vKhe05PmxP9+Gg3M8w 2UTy2lBS2YmS6m68sS4PBXvVsFiEUmgfDDQ9La+iie6vDNmkWk6i5R7Rn0Pf XtuDwrpuaGm6Otb8dJnCHep45+noBrX8OcSoSaHLCrVVJyV9wa7F4BG0ECU/ Nm/H0TkrDs9YMD9p+lyoU0mbpcWzX/kWdn7j69j1X/+BrJ9+FYpn/hu3xxyh yuQR5CeOYNp3GpdnV1WpvoCO5qNIOsii9uAUKRO+bVkiLE2KrFeRmUjKkkhZ MpM7miLlNqm5jd1vL2HfKywjwjpx4GdNUG2fIV30aWmkK+0qFGnvISftAu0U 7RjkaTPITh1A7yeEfS/k24LDyYaHhpMXeqzoMGWhJ2o3jibtQe/PfoSzLz+J u7uex0eyt/CxfhvOGROgY0GrzmMxqXZCYytngavFr9dH4uUt+/H2nigcik9D u1KN6mw58o0OUlbDUiCoS1NQ3Qb7zGkmc6ekZM42d+ohZaJDLYMSYUlVXaGt kEKU6ij92vGQKtEyCVshXafgHKANnoZrmDeUrQoKRzUJq4HSW4PcUv6f9Fvq 8hoUsnS4L1RVVoEdLFR3FHixQ+XDjhw/tst8UFrr6ds66Nu6UUI//Ob6Amgi CmHh71fUNICi0MZzHX8+RWmdJNKR7S1HFknLq+lHQW0fs4g+ktYrkaYlaVqh hxJolsoPUQQX+kSThTjjLpKSulMkbFnsfgnJ3h8mZYuzVswzwbtz+wI+Fyoh TAUa/PTL38Ir3/oO1n7lB1B991FE/vKrf3m/BeRDzJy5ixt3PwzNF/4tEiO6 kHRggoQtsoRYRgrLhrTYS5DFX0ZmwlX6sKv0Ydfow64jJ+X6GuJ1g75003P9 UGzqRviP6qB4sUKCSpl2OQiW7CLtHOSyFdoRwjWFrNT+1WOJIFhfwvxoAKMd xfBF7sAQK/HhDa/g8K+fwLX1T+MPMa/i49yN+NiyBx+XR+MPDcm42JSBk625 uDhgwEiTHfmFNczGa6G21ULjrsUhuQHrY7MRodJju9gJkedDk6YYzYlJyLe4 6L7E8rJKKJntlAzOrZH0Dp8Nah3NBfsf80aXsM3fgv3uJhR3z7BQIFP0VpLO UY9QFySPvWfI1FnyJHYMnYNrREhWniO3XVA466D01EPlb2Asa0BBBcvOB9Wv qoKl5U6tDzvJ1c48mpJ8ZfsQpSI/FZ0oDvSghIy8vUEDbaQOFkclmRqGoWUE +tZh6FqHoGsbgqK8nlxVIstfC1X1oKSiXlDXD3Wd4KuH3qxL0tnRBFqgZvmr ZmxV04MW+PlSeBgxBiw48YAa/oLYTsiYOTtD73W4/h9CSE0MjeCnX/0afvvd n+HVrzyOjcQq+fvf+Eoo7zYXTiIpYpQIzSMp6jgrz9NIjWUIjL+I9IRLdFDv 0UFdpoO6zOTpChESoe0K3nqyA5lhXYh/jr/B8+Xk5hJNcHOezJylnUa27CRt EVmySThts6v8BKdg/xONjj60vZCMyzu24t4eOp70t+l4wvGx5wA+qknAnaY0 zNWk40qfHotdelydcOPGpAe3pjy4Pe3BHbrvYz1+5GtryRHDnJ0cuWheGl9U NTPqA+pyRGT6kC83oyiZiVuuHiqxJbuMGXP7ICtSIZH0rfsiSSXTy0jmxVIy zBR3ir0pi5JYllkC6DSdEsNlL8Om2FE4dEESSXKNXoJ7jDZ+CYamKShc9Nfe ZmlvUC4TqfyqB8SzmAjqqxuk6nCXvgI7NWUEqRw7c8ukJVUCJKWzGUXVvSgm DO9s1EJ3SE+IqlBEgAyto9C3ja6RlrX8C98OSauDskrboAgMQVkzhNzaIEtC g6Wgtpu5Zgdzz1b6Zuaf5cI/VyCPBa/KX4Ka1qL7yvizs2LtoB1T01YsHWkI PRn7NLa8tQHP/OxnWPfTXxKgH+AA7dLIxJdDAJ08dg2J+4aReGCWudSRkA86 jbS4s5AlnENG4nlm3BcI0UVCdJEQERLmRmEv9SF1XSeinq+C7FmmqlFzD4Cz gqz0k7SjhGcBmWkTWFm+8TBAL6NYNo3j/mV8PDeI3zekSA5msVGFY506zHWa cFqaoHdJE/RXCM/1qeAE/W2Cc5fZ5t05D+6x/D7e64PPE0C+iXUiISogRAXM kwoIUX5ZLZJsAWxK80m9hfr0AhSkqwiQaH0r/0RWaTooq1Rz5ByUzH6L28eC CjpdR2DqPglzN6NfzzlpGZCjnyXnUFBWyTV6heDQJq7AM0mb4v3lEhJLbQS1 7b7ilrq6TSrxtFKJx2y6pokAVdITVRGiACHix3nl2JXrR6q5juUfAWatuy5M B0O0ARaXAGgUBgmejlEBT8cItB3D0LQRmPp5ZFcMQ06IcqoFSANQ1fQht6YH edWdyBMbo6vIdSWdVSXDRaUHOWUmVLQWYya0TXCcNjplw+07F0MPtj6N0pJW VOTpcKu/BMnr9+M1wpPzlR98JfTQqaPxLBL3T7MEXJK8T1L0SaTEriAt/hS9 z2nCc4bwnEVWMi3lLLJpO9ePI/rNNiS8VoaEp1l77OqSIpXwNlnpJ5CZfpx2 FBmyeTjsS6uNQt8N9S51N/ehon0es9OtGO+wYKbThkVpcN6J5f9lcF6cCQrd rbsE5d68F+/P+8RQ+4IXb+DegtjnWAovXbPKzuTaHdThUgmXTnCUvN228c5O yHGjIIue55AMGSV2FE2swEDTjwZll85fu47ilgFJINfYKYR2gotcLF1nCY3Q 4XoPjsHLBOYqgVndBnSdsAjNzBvwztxAUesSFN5OQtPJK9WF/Oou3vqdDCMd TFE6gslwbSt2GvgzqSuxKbccYcoybFL4sYteckeuW4LGQNexntAUxxpgdlcJ YKBvH5WY0XYKG0EhqTEOr8C7+CF03SvIqGBVXTWI7OoByEmNorqH1kmX1Iac QBOtjmRVIrvKg8xyI7ythtB2QAfmpQaBC6FnUX+JdT/bjSGHAX860YH5kQW6 nJ/gLVITWL8DXwmdpps0R5EQsYCEyKNIPHQcyTEnkBJ3gticpM9ZJjYrxGZl DblZIYTb3+rHrlcakbWxHAefdCFrZzvdyvE1EiqPIINvM5jmOBwnkfwgLF8O zTUH12RPtFsx227HUvf/MijPsHRVLHUgKKJDSmhyvb9AW/ThA8kIDu0e7Q6h WRoqRXtrBeTOWlYvNEKTxTw2k7azsBx7ssh1lhGqWDm6qqqFIFPoFOPboY0/ w4RlFsaOI8GVUZ2s3sT2lt5LQX2uoaA+l3v8Jj3LTYJyi6DcJii0Wdrcbahr JqAs6+Ht3INcXrB83upqxgsVw1U28+lYixPvqDx4N8eLdazS1mUL89AceCej BKnGAHLczdiwSY+SeANKWPHp2oRLEYDQOulaOoag75sTB15E5XPB7TEL70PL /D6tsh/pgT5kMF/KDHQSoDZ+3ISMarEutwKyKjdSy0tQ1WPE1OFm3Lh98bOh Z5nnjy9jsrUb0y1Bm2zuRnCj1l9h/6upOBHQ4veXFqXPzI9Mk6EfYhsZmtcb g2HrX3Di6E3E7ZlG/IEjSKDnSYym94ll/hN3nBgdJ0bHkZ5IMJJoyfQotHXP 1SBjUwW2P+FAxrtlhIZfQ3hkkh1DWtoClpdvPwzR5x6abp5oswaH4wnR8X4x HO/CWXqbCxNCbSHYwSla6kR7nVDvIjyP4IMlIej1wWEf7i2RH9otcnR93oMr c3RUs0Iy34va5lJUN/lR1cBo5rZCE5mLo6GFLZci96wJVaTjx04Rn/Hgwqh2 +pn2ZZg76Ge6LzI4XaafITpiadSYQEcIet0hOnckPU7v7D2ic1daHmUbvoQc H4uIin6oAv2QV3YgxRtAvMOPRIcXyTY31rPs2qDwS9pVZfg7ScosTOnGRrkJ +1RmJOvpgzbpUJKgh95djkJGIg1TGnUnrWNQEnKyTV1+hNy8z1LHK5S2hc3d gZFZu7rrML90AVkNg0hgdpPAOyW/sxd57a1QNVd9NtTif/HEMtqK7fBEp6E8 WoYAvXAtrT5KhrpIGaoPytCn4zVp6pb+RanWg+z9ubjaqMDqo8vk9VEI//Z2 TL+ZhI/Onvhy6NKeOHITxsIVxB04inhSlBCiKJkUpZKiNBIkE0aK0knQK09W IjksgOjfWpD6omkN0mTCA6XKjsHmOEN47iDlQXj+ESN1RRhrJDzNFky22ZjX CGUF5yfKCuOfKCtco/cRTXJ3CI4QgXuf3AhqPjzsWyN98BPcO/wAQAseSeZJ AHRhmhxOOrEyZsdJIfPE4qLVq4NNrsFoUgZuHtyGu7IDuDk6gSIWvGJ1lLF1 gXacBJ2SZJ6sYvNPvxAHvEbnc1OShHNPCnruwiOtkHqf9NDm35ecgI9mG73M PGIASXSCcc5yJLjKkeQqRaqTaYzNKwmjiygVphDRqgJhqlJGLi8/NuNAnhkZ xX6Ev6NCy+44JBeX0XEJGbn89n4xN8631ikh0B5cdeZZFO0enoU7Ql12nmTP 8ecTki3TpH2aPze/1j51NiT9dATWsRlpXf1nQpnDJXLUVWJDWUwaAjEyNMSk oy06A520nkMZ6KX1RfHjyHR0kam2CBma9qWi6KAB3hwt7g7bQw8kH0HUW+O4 0rqCj6+cwX+Fvn8JQYo5eAyxBCmOICUQpCSClExXlEKIUglRKiF668UmRK+r wb4XnIh/3oKUNH4NzWI/g7QH6Xn9f84Wdzqw9OfCCoKeGUGP7z49QiDugyU/ ofGTHr4/4sf7wv/Q7tBuEaHrix5JAOo9+qALM8RniviMO3BihPgMWaRWzKO9 xchKzENDggLvxUbgxtvPQmcWT/OY6DQvwdhygvgERVisYj/HwFXiE1ocJTmf EDpiedQcY8fqAilGEx9NbCBLD3QhjjV2vJP3lqtC2v2bRicks/lwQIjOCHQU lVLX4KY8JjwFPr634GCBCVlGH/a8kIrWfXFINfmRYvTz3wagbO2BdeI83POi I+j2p6S2oKCaj2gOcs1cp/FHnaG/nL4oSXAH9Z+WYB2fxOTZM6Gptb/BZVJT FZuK6tg01MfK0B6bjp7YDAzGZGCE5IyRmolDGWswQXQ+jTHCM0x4+g/I8PaP t6DXwlToZPcqN0fPfojTV+7i2u07WN1/cOLYPRTrzyKamVBMDNkhMwl0Polk JpHMJJGZDev7sftN1sOvOXHwGRvMujmcXL4H2YO8PBac/a0zScvLxWSbxEvf w7xcmAwKcYhWXMGLEBK8R16ElpzEy5EQL0f4+SNBXm4KXpa8/zsvQvFphLwM kZf+Yry3Mspf6QzM0SosJ8RDE74Xir1ZMDaRl6aT5IV/1xXiRSgNil1REi93 yAtZmSErsx+IZWNrJFg+Q1x+x2tzBTmNg1A0MU+t6UKavw4prkrI6HHSHaUS LhlWj1j7Q1g+izAhuSmtiSJCBcSlsAQRmTq89eQeqN7ZjYNyHVLMXsisFazy +yUu1khdPH/P/1p0VdyQ/uSeZxom9fVck5hxzoj+nvdgn2G6NnMqqAA1tXB/ j/xfh7i5Qm5qY1PITBqaaJ1kZ4DsjJKdSbIzQ3bmojMewUK04GY+Oh2zDGqT DGq7f5uEI5U6LDuL/2975xke13Wk6W9B2V5btnf87I4tr+bxeDQee3acx5Ll tYJtZclKFCVZkRTFTOScc240AkHk3N3IIJFzBpFjo5FzJBJBglmybMna75x7 GwS1z/7cf/5R6EtIAO49b52qOrfq1Pm5+pZwdvYW6uquID7pIhxpV5yoH860 K87UkTdeb4HT+/mo94tA4/7T+LxR7393BCM335ZSLSoVtTCpZmRmr1owetmS aqGYEVFRK3tOTubtk/rwuNSIW5QbU6pG7LaQUzRiRWiErDejRvRRI3pSMNWR iI2FXiWUG19CSWIhvK0CEHPaF7GO0Qg2dCA0r5dhyCDDENMejbihasQtRSNG Pr5z/BwtR/rgZYRRHcSxCBpKBCWyuh2hRTXwoyPy1xXAPyMP/mnZRC+cEC2I 2JkTQycUyzAmKglPH3XGb35/CC88chBHXjiIV/74Ply0idDmc7GcW4cYLqT1 I5epFSOXqVH60cvySlQ6iCov3bDSl0f25DHRd5pEV6cFpA9PIW1oBBWTk6o2 /CO1YZ6a4IUqakSNqy+aqQ2d1IZ+asOwSxBGnYMwQZnm9awQV+VzxiUQU/z/ Kg47wfdEOLaqItBv642V6ia1Ef49iLEMw6d5nmh8/j18Xp/7BfZis2tvcbKy 2VXdWziusl8g+5U97C/ThVyVJiHP3D7wHtk+8BsKd9USXFE9h+C+pnJfGNzT bqk3GROd5vZdP5OnsszOD8Le8wxcbGIRZROJqEO+8AnNhldyFbzT6uCT2Qif rGaEnhtATM2M7DdqMN02d5Un94/l6iO0sp3MOxgfdsrjtSIpMdWiN227bF0i 2pYEZOYhgMGHW6I4Ia5Inu8oeua8H5OJ96IT8JtXTuHJxz7Em898iFMHPsT7 7xzFUUtnRDL40ObXkL144dd+Dylvif5Lw6L30qasbBG1VUqVgei9tKT0Xhqe NB+8rvL+OsqdPFBD3rX0HI1y5geQdRBZB2Oci8JpypxrKBbcQrHoFmqBJbcQ Ln4W3YL5rSAkvOKEzIAz2MqlkXD0xoCtJ67NzD+kEnc54Icb2cFYtnoVnzo8 cxfxb8rdpD17d5NyvTLGkHOaIec8Q87lvmys0QlsGe8Qvz7GEPMmvcArspOo 6Ch6e4/9v065qpKX/RlMSqOkZdkoyVxqlYqZvmSMdsTLBkl9AxWob0xBc2Mq 0gxJOOqcCEvrNGgcknD2tIZr+1QEptciKIureX0TggwtCDS0IiC7jevQGdkg PJsLFbFiiG4Ykq90NdUkzFkeWdOB6BrlFIqzJH+W5OMqWhHP9W98aQMpnod1 TA7e8tLjoH8GPnCIgr1jIKrtfGFzyBGH37XG6UNWsDp8Au8dPIyowkpEUrT5 lYjIqUBqxzRDynViX5efsm2SaU1mXMUhLbKBzW7bpFmkGidQPjWj4v8Gpusb UevsgTrir1cDhh7iNxL7uEsoZoh+3i2M1MOw4hGGixQLrPHrf+V1KFbcQxga 2qMhKR4byf4YZ8g66uCF6bhUsw7EuKViLU2DKccP8LHNy/53Lzuubq6hK1/d yFmVDmN9Ji1BFqbadZjrMjemUbojbQ/nYkdYfQaOorLzBme+UIVbYtkh6P/T 7swXFv+yiAHUpkUXh3VYGs7CvLncTjQt6ktCY7VGHszS0pyKjuY09FBq6IB8 NGlwCNTjkJUOQa46xDvGId42CqHUgTB9I8IMTQjLabZAaE4LfoLg7Bakda8x JltDWEUzNFWtVIFWqkCbPOQ4mhJrxl/ZBldtDsIjDAj2jkO4fTDivYLhHJCM UyEZOKVNgV1MLPLSdThu5483PrDDe0edYHXaFmcsbZGYopcviyPzy6DNLaUB aELW4EWuKijGVXlAS6bsXbSspEJlsl2kruaROiyOKR/9mkq/yskNdc5epC/C xQC0c9L3k/wIyU+5hpO8BsvuGqx6aLDmqcEGxQKb/PpVbHiF83thOPaMC8YK 4rAUYY1xVz9qgDdGHDxwfXZOLTi9B0W6ZgzHRGLZ/xCuHH/df296j4b/rh2V Sl+iCbU51mLv3U5fmIEdmgFR0HttXKhB7j1cJOTiKVwVPabVlaZoKLxuosE3 0dGbGPrJGrd0jHRHobrIHnWVEWhvTUF3K7WuNU2mqsVxLH6hnOrkEnSmEMfc C7gayoPBOQFFb7siRpuPiOwGGt1GROQ1QZOntKIX70J9M0oRXtEITWUzIqpa yL0FUdQB3+gcRHJ6+9hpEesWhdSgWGRFJyIrJQ2Z+gxk5GcgsSgdR6JzcSRO j5PRevho9XjpkCuefs8eLx5xxNu2gSiMzEKjXzDSwmOgzSuBNqcYmuzzSL4w iszBJa4LlpQYz7Sb+raQucp9SKHhTx6alKeMm2f9NtnU0vDXOXNFQu5NnPGd 5D7oEoYxcp8h8yWPCHKPwLpnBDa9Isj9Er8yXPSOwCVvDdqOu8LtgxBsVERi 2oPOwi2AFsOX/D2xWdf4oPoGLf9sFSr8tPjcYIml997C500Z5rWAmb/c5ZiX ip6SdAxUK7scx4UbaDe7AXrvAaUxn6IDSjNxVQ8sJPkXaBVy+E+hA/xfqAOy 17jokyfb83Dqq/Vmo73RKM8/jpIcO9kIpVc2QkmV7fWVRihpKNanIzjcgJCo fITFFeN953w4ehXiPG1Z9UlfHHXU4uEnD+Hxpw7ipKsW2gLqRUEjvBL0cI3R IyBKD1+/BIQ7a5HoG4NMbTwMiakwZOmhz8tFZlEh4s+dQ0pFOc6UlyCyogTx 1ecZXObiw1gD/M8WITJZOZrHLigevqLGPqUQdmEFiA/XoyBAixhCiMg9D03u OUSW1DK2X5RH84g2PeZjeYQKiEY9yYz2koamqQS3v6ZmRGbrGlDn5Enxox4E otk5GF3OoRgi/3HO+zmyX/bUco5Hkn8kmUfisk8krlAue2txyScCafudkeQd g50yD8x4hmDCI4g/Sy/g6o35pGSYlWC0Zwix1uH4jMHfwP53GPhnm5Xgl+ra 0lRfqWw9rMhQmkEx+tvbmXFF+IFBRQk2h5W9mdsjgnQOlVyow3PyeluSNygh H8mvjujUNjg0LH0xqC87iaKso2iu1qKvLUW2HpHln63i5JU0zLeky7OuQ4L1 CNOKk1fOIyK5BN5xpbD0KILWNhZ/fOIw3njqEA688iH+9NJBuBx3g+agPYqs XFDEWZoVQ9qpaTBk62EozENGcRGiRQfb8ipoSyqRUN2AhJp6JNTWUvjv2lLE 1xQiriobhVz15GSehza+TG7o11IDtDqKyPjklOJIUAE8Aw046x+H2MBIhCZk cVlSxLjuCwfxmJSWOCLPnDgwI8jfq5Kfq2tEHWO1Oq7k6pyC0eoUQp8fBqOr BhPuESSvxQqpb5D6lncUtn2iSD0KOyS/4xvJf0fC9RkrVMfF4VIaYwSvUJKn BfCgBXD3pfdwg9n5u9HY38wOwshBTv26/LugfwtX19dxIUfd/lelbP8bbdGp rRENMuwXs3+Vs39tSAQB2bKCT1gBUVIqlMCCV9l4Wpp8Ee0J6CujhD6q9D6a GklHW50Lig3HUH3eR23xofSbmRJVl63pStUlZaU1E1XqkTuivYc2iaY2vRT+ cUX4zydO4o/PW+HQ/lM49cYR2B2kHPkQXfpYNJ1Lha4wF8nnCxFbXIKY0gpE lNUgpryesX4d3X4d4qrrZO+jhLoaSjXi68opxfyeAG/gGtSAG3yu5tJCaBLK EZ5aBg3ha/RlCCd8UYFkFUUTEECXEpyMM1x4haVkIqqu4+4jd9T8cMnkqlrJ KIg3kThtvWMA6gVxzvMel3AMu4mj1rWYJ+1VryhseEdjyyea8zyapIWQPOUy qR/+gz2MuSSeyLnuFYYJzvdxz0BSZ8Tn7r5L/NgTNlhnuLfkeogh//N+e6uv v8lwbx1t+cqOu96aLAw16mTfDrHzdqZL2dW+SOIrA6LTlth6Lcnvw7pRQF4T Z0cIv662XFsgZFFIN8HZ3dMRhPKCE7Tr9oScrLbQUEpr5wh5kXBX2jJx8UIW 1tuzsNGhQ3iwaGJA0AmliEwrQ1RWGX7zghWefMkKB14+AcuDJ+BgZwsrOyuk 5OsQajDAI4UejLbcJy4VESU1iCTo6PIanKmoQWy10sslvrYK8fWUhgp+cnbX n+f381FUr5P53ZsmJdc70ZYHXc55hBJ2SKZoMCTSdKUIJmyX1PM47JeD4JB0 nPEOR1hsFhL61XwuP0sm13Hxxkf4phlyLSE7+BJyIOodQ9DmHIYeTulhNy0h RxJyFCFH34FMv7QjJRpX/KKxTdCObwditTwaiz4azHgTsncoxr1o1L38MOrh sQu5SN+MkTORGHU+hVuW+/327vB4DQvDQ2gtzEBHWRZ6anQYJGRTix7jFwyy U5BopSa6BQnQS/1ivzOBi3YOQ/ykLIkOoyalTFIUsk2pRUeiUUpp/gmU5trv tqwwqSegzJg79bRmScKC7maXDpe6qWDVBkRoaLtpwyNpU6M40u9aBuGx/TZ4 9fXTOHnkFN47cRrH3dwRmJJET5sE/6QkUhatpJIQrMulh60k5UrEVFbiTE0l YmsrcLauQvZKiWsQUoq4unMoauJ6ZEQ5KEmQviFeXpL0Do3UNrW3urIQldUF 8Kem+etL4WcogV3iORwLL4BHUBa0JKOnG+29ePVbe8HaE6yDArbVDNZdBcuZ u0qo6/zRLQIVYK8IsH4xEmz6a460FrTflX4EG4EZH3p4AdabYL39MOLpob4B 2YfV2QVcnFU27v5iTwhXxYDjc/1pXDryJv42P2B+/f+g+j/Ok3hzUSbaSLyL xPsb9DA26zn/DJhoN2CKxnyG1GdJfY7U50h9jsRlgxLSnjGJBiU6jO9pUNLc FIBiMZfVclLRrG60VWmJM0vS4gikVdEOp1OHLZqO7R49rvD37/D3T9TnQBtV jMgE0ubc8mU89sLbnvB61Q2N7k447O4jTzgPSE6Af2K8BVEn4CvwT0iAb1wC IkrLGZKVIbqqHDE1DNEI2kKegfQdflXaMxU1F8js+201gWo+GUskVXco2wS+ aaQ/GqS56qc/6qU/UhNes+0p0JJMC73mVceT+CjQXia8lOrMBzBTQ+J2JG5/ h3g3iRtJfIK2eo7EV0h8zScGmyR9SVCXtBXiGe/4ozQ6DtsZGiz4RmBaEPch cZ8gdNg6ocrSDnpHX+Q6+qGIct7BD8X2fjhHKbD1xURNCzZnFn6yG76NIM5G hG8eOPvII5jISzArgGIQfo6drQ00UAHEVrt2KkBPvR4DzQYurAwYoQKMcdqP 07ZPENAk4U9wyk8Q/rhR7Riilvb0cX3ePZiBykIv9DWqXRxaRN/MdIy37OlM Q/BrDA03RVeaXoIn9Kv8vdf4e69RsaY4DSNjShGVSAWgYT/pkgSv1zzQ6OGE 6DwumvNLJW2/BPH2z5f0/4U6EA+/pHgEZRugJf1I0o8i/WhO9RhqQEy90ATR neYcbo7mkXoebo/lSfo35QFY4oX0Hvqc7mtDpD+g0J+V+SpGHJ2inUMSw9AC FDHa3nAl/XeUTS7KruYfYHtmHrU29Nh21ACHELRQA7qoAUPUgHHO+VlqwBI1 4CI1YN1X1QLS35YSjfcft0KfIR6XU3wxTw2Y8g1Hp7078t84iJRn9iP74CmU O/ujxilASS0yMmh2oNjz2o5xoa0fqq190X0mA5emF36saoL7m/64lR0Ij1// EEceuB9+bx2Aj6IJynG3+zE3YUQdtaCJWnCBZqCLZqCXZmCgw4AhmoEhaoGR tIz9egwN6DE4eKePR4fax8M0UKqeOZIkT6wRHXxNzRmYaMmkoc/CgugXYz7O SPSK4e/bkeT3FG1Splvy1FMty3DcMQmO+31Q4OKOqBzSpRaIue4TTyF/b4oP zYFvCrUgKw2acgbcleXQVlcgsqYCUdSCqJoy5DWdU3sTKRpwS82B79UAsRz5 ogbII2t61fYK3Up7BdHQY2pqBbH2Yr3ljlvHXsNOVuquFvTEZpBEAC1/MJqc wtBBDRigBoxSA6apAQvUgGVa/Yu+ihZskP4m6Sc8/AL8XnTEUmkMliydMeun Qa+9J9Kfew2Zzx2A/tnXuO7355ovABdIv5PSQw3oFUIt6KEWdFMLRG6w1cYX jVY+2Jle+F9q5dSxNw/guf94BMHPPoFjP7of73z/2zj6839GaUKkuapAOff6 e5iZHqa7y0IdA5/mZh3a2vRoZ6zXQXqdpNfRo0N7rw6tHJ0mjs7imhE71zfk T6/O9qGvjjagIVkW0A02pWO0KROToqSFS8PFDi7v+Ds2eu90crnG5eGNoRwL 3GQo/QvcEvV0JqUIU5xlecQ2CVav+OGsrTe06lmWXmcT4RVHSUiEZxI/kxPh k5oALypCaFkZwrhGD6+sgKaKQX1lGU1YAT16ruyFdkNOfeXcM2kGxuUbauU9 xO55Z+YOQurZITLpRCXopRJ0JWJ7WenqIvabi8MejJ6iq8v72HGzUkK7f8Pl mQXOxgDU2geh0SkUbYzdexm7DzN2H2dYN0M9ELqwRF1Y8RX6EI3Wk24I+/7j 6Hj0T/jLm69j6dBxFL9xCHryN1ByKCUHDuIC9aBbvPSnDgw5Kek+k6N4m698 Gh39Za6vj76hm76h3dobV3k//66WQT30ve/hsf/5AE4/9Es4PfgDnPrJd/n5 T7zHD3E5LUUtUXpUjS8m54YxszCMuaVh2t255WF+b25lGLOUy9c21LKFb6Gr 8iz6ZT0c7X9DGoYaMiT7Ka4V5i7osURLIs6s2pBNVZQOPtdEAeVwjgJ9RLwW EDW335bXaQH+8HzSFtFW3gjTK+dVeidmwIPw3eMT4ZbIT4L3IHiP1Hj45hcg mFFACKWmpQjbxlzsDIvmd6IbWZ5oGmUhyf832VlFTH4zd/EW4pJpzzl3NG7z 5qTTQJpscCH6DGwt9+7umY2Pzkczg4EdNRi43mdulXw/Os/oUG0bhFq6gSa6 gU4agX4aAZMn4XOJPs0l+hzBL1AK9h9G9W+fwG2Po+h7/Rg2X34Hg2++S9iv IZfA8yhFlJbTzjK/O+QcCJNTIMYoE7zehyl+/QomaRjGnRkaMjgwck0xYO+D HhsvkdrBj9TtcQ/d/wBe/pcf4cSDv4Ddr3+G4If/E/of/hYVzz2BT0Pt8JHl 67jq7Yjt1BTzTqHnVLo9lXHoryHdulQSToeRdMeasmRprHKmFIeul/azn3QH lTOlRAvMm3vKYy3wEb/eJwtkRexl8LRHw68ex1+tf4Pa6kJUc13tlZQN5+hE OJ9JhBOnuDOnuDOneHiyBoa8s+hpzVNOjBkgMlkUR8qiOkVNLRPpPjnHvy5z Djv8M5dHcuQLh/Vh5ci63RM45EkIabKLxFR3wpdUsFVlHSjc4+M/oY//ujqr L00votQqEJX2IfTDYWh20aCLs1rAHWaUN0a41Sdckf27lzD7+n58dtYOt/Po r4+5ouaNw4T6KoG+JqEWUppPuxBqIIwuQRhzDsakSzBmZPouBPOUBddgShCv RcpWSddKyE4+MNp7o9fGc7fUI/Ldk8h87Bm885sHcfKpB3Ho9w/C5aV3EPtH O+h++y7yfvIUap94AX1vv4FPQ2zx0akD2PF0xFZKCly+AFtUJVbThNcSdl06 hhsyMd4sGsNw5OgGljmN1whhk9N4e0jpjXSdoG+qoEXts4Uscv2OvL5FyfGy R+tDj+MT24fpaA0MtPUMtHXozLRGe4YN2rKsccFgjc5sK3TqT2GoNAgLVKoV KtU6YW/y74gpLUqRREbp6oiotRbIvylJiytxlumV3VBOIb5iPvtCHjtA4kPK vvnF8dIvq8QVfx4h/fn0O24ckew7xGeWUGwTjDL7MFQ7adDMqdzB5XkviTcc c0HhQ7/DDccP8Lc8d6ykhmDcl77eT4sSRm25z+2XUzj3uddReuCwzNINkfCY cwhJhmJWJmnVTJ17GFbF3mfKsnsIvxeMebcgTLsGYMLFj9PdBybGA2s1jWqp 839HxkFLjLz+Fj5NckOa29t45tc/wauP/xgTw304X9qJU+8HIfiAJ5KfPoWc X+1Hzr8/hoEPDmLRzRKfBdvg9snXcNnDAZvJKXD8ggaUqaWF1QzlRBtroQEt Zg2gZ6QDX+NU3xzMUYqbhxXvKpdXY0qB8z5Z4vxDedpsHul3PvwYbtr9WqGv hlkDhR64kGmDVh01INsaHbmkbziFwbJAzNNhLPfQE/fnYEPklIeUfKJIKIlK EqEFMqEwqnyKIP7yyB5LLpLIXJ3KQydEJmGYHnwoFVMDSdhc7f+K+mJEOPH0 iEGM6+fx54EL31ADuS2CL7QJQbFDOCoIvsE1giupFzH28kv4NMoa17MDMBap waBPJAYIvc8vAoZnX0E2p7dBAD9khXYCF8k5E2FPuoRhjqAX3cMJORyrHuFY o6xLCZMJ2lWPUP73EMwS/KSrkpwZc/KiPXd/YHdhN4DwHz+K5WOH8Xm2N9YY TX1ZzRHJVoSh2XB8JxBRLzsj8/EPkPez51D51KvoJfcbCQH4LMgat46/hm13 B6wnJcPuC9xLxQEPybLIa6BGnfktamJH8OBsXJNF7Tl3FbXf3MPdQnK/T4bY gn2hlwP6/vdjuJ1hK6OrTdXLzrTGoS1DYd+aQytA9u36k+gvDeSS2yBLWEUO QSaSVP6ilHXbJJOK+yTse2Vu6ZJ5wpuUl41LxD4/op7tMJyG6aEUjPYlqdm0 fZid+wRTy7fx8V/+rEbu/4qGszlIPeSIzF88iiuW7+Nzgyvm8/zR6qVFm7cW F3z4SSn50Bq6Z2nHGYlV0H7fycSFYoyQZ9zCCVGDFQ8NLpqzcVI02PSieCpZ 2GXCnvOgJXAPwrirsOs+hO2B9boGfF+lPU3aGb96CldcTuGv532xzuEwZ4KL SjsQE5Itj9VKeM4GhoffRN5//AElT76IUV8X0vbHZ4FWuHn0VWy52WONtK33 0v4xus+LgxOSZe2WSOP9v2iLWb4taSuzXJaBqosoWd43oXyKWPr9HzyCoUdJ O9P27rODGUt353ugmXa+hTa+Lfs07f0J9BQH0KroMUersps1or0XpYQyfWhU UogWorDQgpdiBPayXtlzasKMKR3T5D1O3rdurN2vok2ha+x/9nn8JfQ0bpd6 ozEsDMXuESglnnKiKSOWEu9wZL3yJ5SdtEeds5Jga6Gh7nYOpXsOx4RIsPFn lhjAX2Qct0612KRcEkL12KZs8fesU1a8wjHvGaokWd0DlSS7ixe26hvxzypa zbsnUC1PrrLDrfIQ3L68oMaPYiIvoYx4rd8LQvh+GvcnjiH3ly/B8MNH0PTh UUynx+BmPPEGWGLzuC0u5xTA8m60nYXx6Csh2vI7aMeEAd+D9uIuWiWGuq6u kc3LIzPeWyrawz94FKO/I9osG2yN3B0uj7eeRVOGNZr1lmgxnObncVkKON6q l39TFIYs9igFQqI6QBSIrA+KKgFRVrnBr/fKa5E0ECmDVdOddMGs3HefgUnS HTdyCTZVrm5x/hImOUMSfvpbbB59G59nOOPj3Z5e+9DX0I7Bxg4pFmo2o9bB DXX0pXXyLUoQWp1CZSZtWGTSGMnNy0yaFmsSr5JD3faOtJAJ1K9K0uveESSs wbxXGKZFSkWkUN1prd28YXJ2Vbtmf0mey9n/8hv461lOxpoQ3Lp8Ue2k+DUU lF6ANjQH7m/548yLDtA98h7yfvo0Cp58FVXHbNAVO4iP52ct77bOspf/eUIt /ULlzQVlgJdUqBvqfBXLHxEYXx9V173jwisLm/xtWZp7jEAnnyBQnY1aeqtG yENK6dVo2xk0ZlmiifFYXdYxBv5ZGG4i7DY9ptqVBtoi3b/IvyvArvRnW8jM 370yE7QqkgNGpX3MorTIooeCusOdPEfJc3amcpdlLKfEhT88gz/7n8Bfir3w t51FtbnWd8nNA3WOaqrEKRgXuKzqlfkwDSYZiwluq+S17hWFTS6vLlEuq1lQ kf++RMu9TlnxIThO9WmvUK7D1QyoyIe5uauHrCr9Cc8ftsb8IeVMzOXKUNy8 svKP6n8WodXJ94MR9LoXIn7vgKznE3FVk2B1N6trW2voLlSrpCrTMSQy5M13 Z8iVhUz27kLmqlpmb+a1TxL7V7LKwUmymn36MdzS2yi1MqI4kiuZRWOWeq5b OkYvRKM+8ySa8gPRXZWFvjodjE16jHISinf6oruZYCba7S+o2ZzFfsoghbDm +TvltnGTyOCQM83qKM2qiW50gCul6zfWcZ8Ka4yDVPehJVbeewN/S3bEp5x4 5kKFWgaqdVyHmvNaAlYfJ5hJTV4uqMnLdZHXomzL3FY0rviKT8LzjVRhcUJ6 awgrjOtmNXnpqSQv71dpTPA+4n/xB2zZHcdnhT641H0OVy/N3WeO7hgTBTi3 IzV2HVenVlVIz6t1LB25yegVdUzl6UrxcmOW3EEzwxXtghp+iO1Xu4sPtZxN hJwEtU++QXhA1rFY/eAxLD4r+FjfiT657ljY7deVjpnBFAy1RKA+JwZtpVno qNKht06PQTIytRgwdkHJvUyS0TQZTZPRDPlMk880+Uxxbk4M39mSbaQM8XdP zVTh2vV1M5pkqzg00pB85HEUnxV54sZsC+7di8aeaByC0CDRhCtoOIemPCKJ Rkk5rqspx71oRLpxi7JOPCvEM8+5NO1NNN5E4x2ophzdd+dzRWwKzv/2edz0 s8HNEhG9FOweZLxw6RN5JcTybijLpgF05aeitySNVk45KGJMRCUXVNfFkbmo zhxzTCgLjJQ0zj65DPw+F4g5sCWUlRcIhQtLUVx2kQO3ZLpTWCTO/ZoaTMbC RBmubG1goLUGTQTTRjBdBNNHMIOtBhgJxsQAZYQ6MUooY4QyNsB/E4qJUIyU QcIW3dN7heGcqvquOgh1+QNIP9qFT6s68flArvTzX1edUY2txx4YoRJGL9cZ u2lCwlghjDXC2CSISxJCtIUk8lXJYo0sllUWUz5k4UMWPoEyS7iQlgrzbZx5 9xTan9+PT6KccLMilANZhAhl3F9QX/y2G1LQfS5NqeepVep5zNvJFrqUNd/F fsVtb94ViyvrLjH+8prBuAMHfv2lR3GTkd6aDNJ0dwdpdOPjHPib19csVIM5 O2FEbVkWGqp1aK3Xo4Nj303D1csJ0c8/P0DsA7yFgX49+gf4fUYdXeIFwmAW RqZqZCfx+1Xtyi6/gsXVK2o4pXztjk1DnR0H2z5I5mfaONjmnOwEB3vOU83P qHnZTY7xPjnkX+W1MtJLXOjN+dLj+HKkfcVqnyPt44ut5iZ8Z4/3yObib+Kt d/FZqjsuVYdgfapTu3ew/wHXNtbRkZeG7pIMLrQzMUTXOmo+YlS1PnsHXBZR GXfDYQt5qMK9Mhx24VhvvfooruVYydqpJTHOdLEzI+mYMqUpIdNkuboL9huY njKiq6cGNfU6NNCbN5NxK715W6cObV287uH3erLQSFlcG5Yv93+qaux0dRNq bXyVJJfj/53kmjGnOGSiSxnIDaGxm3IcNziOqxzHRY7jDMdxwo/j6KeM4xjH 8cbCgtoW/cvSwUT99HFcPHUEn+f6YPbcGRFCRSrj+Ef1how1lWgvTEdXWSb6 RHVKg06tR9JLNyvGURzXuqLGnGuDcjwtZLApQk4DekuTEPywG9aPu2KnyEUN ORlVySqVdIxxQWEcSNk9c3ZyfhjTi5QlyrIQo1os83VUWvui1jZQpn+aOTYd LhoMuGkxQq83SQWb3ZMCWhXjsibHZY3jcpGyzHGZ94vAtF84x0WMDSMUvwDM ZWTujkup7gJKnvfHdT9XfFLsi9bGIXz6ySdRyri8qN6Isb4KF85loLOCFqlW J6t2Rlr08lwGEQbMqbVaolp3uc+wDys0Z/fKWo6CyELoPabxl65JOr88GbJN yHqODIxw7g4NpeIGI4E/yD/1HUxVtaDKOhA19sFoUFMdPfT0QidG6emn+Myz DMfmKYsMx5YpK0LkA1MZ/LSY5UNP+vOh/akMfkFKB8uFRfWh70GYaxe6dKv4 eGwQ1y7NxSgP+5L8uA+DDVVoPZ+J9gq1eqVBj+Fm+sk2+tKOOxUsIu6ZZ8yz QPO9wOedFzEPA9SKqg7MzHZikrNnjE9qonsw0q/2D8mY50n19XlnjA6VtsGo cQhFI+G2U/FFTmfIQ3nQCT6oeLUvHtaCFjmK0es8H3CODzijPuCofxglhA8Y hKlM3X2qwRqYvYmdW4pLVB/uZfnxbfQ3VqPpPH1SOW1dDX0SH26omX6HDzdG 2zjOh5vgw02S5BQfbIoPNskHm6RPGmewMEqfN2xScvUDDBQnpqtEU4Wn5K// H9iaXkSxVRDK7UJR5RiGBmcNHywCPaQ36CFea/PhGFiLvMUkF0OTdDaTVNMJ PtSYH82nvwZGPtQgH2oyy3BOuflX1FeUVy5toK44E40VtC21enQ10nDz5gd4 80MkM0w1NJGKiVRMvPFhRjpGLikHKX2MbnuMohNEJlbWjXhW/Z1b00sosg5G iWhx56RBvUsEWl216OId99IGDRDFEO92mHc7zNDfyLsd4t328257iKCHE2ss KxtXqF/q7e5X36HPTA6jikpUzxnTwltt54zp5IzppkXu6ab0UPr4b/qgzgEd 2gfIpT8Ty2vGXcu+wQFtPpuDQvtwlPD2qnl7jby9VvdItPP2Onlr3by1bg5k F2+tg5rRxltr5W0NZWYXK3d0QNW57csbmJ4b5l+sRTWNdR2XDw3tlA4d6juz UEtZuKgY6ZdVA785uwwdByePKIuJsoIGqJYo67mmbRDCv1zL0LqGMUNvZi4u LyyhRPmzyl//KtbnlmlCOjDa2AmdWzhy3Cke4Zho7qR0YIs/Uqb8iIzhTv39 +u/Xf7/++/Xfr/9/X+O//B8NAjfc\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ 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]"}]], "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.5740716827539716`*^9, 3.5740716897271843`*^9}, 3.574073190995821*^9, {3.5740743978919406`*^9, 3.574074401682747*^9}, {3.5740753037855315`*^9, 3.574075320758362*^9}, 3.5740757790247664`*^9, {3.574341432758819*^9, 3.5743414337884207`*^9}, { 3.57434147314729*^9, 3.5743415190269704`*^9}, 3.574501459301843*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.9482045318, 1.87218934272, 3.4895680315999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.7419494268, 2.2170265432, 1.6434191131599998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.2406311424, 0.76499887932, 2.0991076408}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.1131346124, -0.10454342177199999`, 5.456772797599999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.4709457426, -1.7748306592, 0.86562678882}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4230066772, -2.5790980448, 4.106374598}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.58761550438, -1.0727596556799999`, 0.37401456992}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{7.3436642086, 2.6021527019999997`, 0.187390899338}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.0451044763999997`, 0.090001980202, -1.7150397285599999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.356239374399999, -0.92830900024, -2.622939688}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{9.692404653999999, 3.4438366624, 0.5460363277}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.0998635312, 2.2816551724, -2.9011073552}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.647111205, 0.30441596134000004`, -4.644946508}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.417320523399999, -3.0965050236000002`, -1.5147098753}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.4277739913999996`, 3.446860224, -4.8883432168}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-8.944451103199999, -0.6880492366, -5.5289603307999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-8.7029441204, -4.0682021328, -2.4281089374000002`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.9722730746, -2.8742732459999996`, -4.4204470592}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{2.7794090008000003`, -2.3636692808, 1.33066946016}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-5.644800534599999, 2.4439826358000003`, -5.7479795742}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.6168925647999997`, -0.23878577735999998`, 2.7036309881999996`}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.435186922, 3.6496278238, 4.3216143894}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{ 1.6448553049199999`, -0.053932780039999996`, -1.6553432842199998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.228931817, 3.6156127558, 0.26671592764}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.099460058832, 2.8139909866, 2.6605452354}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.7163181758, 0.4264166719, 3.4393013199999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.50218099192, 0.58583395726, 6.4653195638}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.6252933575999995`, -0.44408560999999996`, 6.7555814774}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.5928760688, -3.2440926241999994`, 1.68461513996}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.783128477799999, -1.6582156677399997`, -1.12865775076}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.47458578764, -2.9802868746, 4.4688240448}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.6033295368, -4.0630998726, 4.8082188344}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.7118271943599999`, -3.0815761881999997`, 0.17954664671200002`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.2610401831999996`, 3.2066760494, -1.40981118504}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.356763293, -0.7413395097999999, 2.8105894797999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{10.754241693400001`, 2.8241955069999998`, 2.1512640784}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{10.514435463999998`, 4.738676917599999, -0.7713861531999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.34487499499999996`, 3.0708047499999997`, -2.2797654464}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.4777487562, -4.0054632296, 0.027945268087999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.6949382486, 5.1317399256, -5.7326727936}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-9.9159592398, 0.22192942144, -7.0509456512}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-9.48642452, -5.7366412182, -1.59678067548}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-11.7227262684, -3.6250613858, -5.0990476658}, 0.12]}, Text3DBox["1", {3.3482045318, 1.87218934272, 3.4895680315999997`}, {1, 0}], Text3DBox["2", {0.5845558458399999, -0.32975718699999995`, 0.29407916011999996`}, {1, 0}], Text3DBox["3", {1.1419494268000001`, 2.2170265432, 1.6434191131599998`}, { 1, 0}], Text3DBox["4", {5.6406311424, 0.76499887932, 2.0991076408}, {1, 0}], Text3DBox["5", {2.5131346124, -0.10454342177199999`, 5.456772797599999}, {1, 0}], Text3DBox["6", {4.8709457426, -1.7748306592, 0.86562678882}, {1, 0}], Text3DBox["7", {1.8230066772, -2.5790980448, 4.106374598}, {1, 0}], Text3DBox["8", {-2.18761550438, -1.0727596556799999`, 0.37401456992}, {1, 0}], Text3DBox["9", {6.7436642086, 2.6021527019999997`, 0.187390899338}, { 1, 0}], Text3DBox["10", {-3.6451044764, 0.090001980202, -1.7150397285599999`}, {1, 0}], Text3DBox["11", {-5.956239374399999, -0.92830900024, -2.622939688}, {1, 0}], Text3DBox["12", {9.092404654, 3.4438366624, 0.5460363277}, {1, 0}], Text3DBox["13", {-2.6998635312, 2.2816551724, -2.9011073552}, {1, 0}], Text3DBox["14", {-7.2471112049999995`, 0.30441596134000004`, -4.644946508}, {1, 0}], Text3DBox[ "15", {-7.017320523399999, -3.0965050236000002`, -1.5147098753}, {1, 0}], Text3DBox["16", {-4.027773991399999, 3.446860224, -4.8883432168}, {1, 0}], Text3DBox[ "17", {-9.544451103199998, -0.6880492366, -5.5289603307999995`}, {1, 0}], Text3DBox["18", {-9.3029441204, -4.0682021328, -2.4281089374000002`}, {1, 0}], Text3DBox[ "19", {-10.5722730746, -2.8742732459999996`, -4.4204470592}, {1, 0}], Text3DBox["20", {2.1794090008, -2.3636692808, 1.33066946016}, {1, 0}], Text3DBox["21", {-6.244800534599999, 2.4439826358000003`, -5.7479795742}, { 1, 0}], Text3DBox["22", {-3.2168925647999997`, -0.23878577735999998`, 2.7036309881999996`}, {1, 0}], Text3DBox["23", {3.8351869219999997`, 3.6496278238, 4.3216143894}, {1, 0}], Text3DBox["24", { 1.04485530492, -0.053932780039999996`, -1.6553432842199998`}, {1, 0}], Text3DBox["25", {1.6289318169999998`, 3.6156127558, 0.26671592764}, {1, 0}], Text3DBox["26", {-0.5005399411679999, 2.8139909866, 2.6605452354}, { 1, 0}], Text3DBox["27", {7.1163181758, 0.4264166719, 3.4393013199999998`}, {1, 0}], Text3DBox["28", {0.90218099192, 0.58583395726, 6.4653195638}, {1, 0}], Text3DBox["29", {4.0252933576, -0.44408560999999996`, 6.7555814774}, {1, 0}], Text3DBox["30", {5.9928760688, -3.2440926241999994`, 1.68461513996}, {1, 0}], Text3DBox["31", { 5.1831284777999995`, -1.6582156677399997`, -1.12865775076}, {1, 0}], Text3DBox["32", {-0.12541421236, -2.9802868746, 4.4688240448}, {1, 0}], Text3DBox["33", {3.0033295368, -4.0630998726, 4.8082188344}, {1, 0}], Text3DBox["34", {-2.3118271943599997`, -3.0815761881999997`, 0.17954664671200002`}, {1, 0}], Text3DBox["35", {5.6610401832, 3.2066760494, -1.40981118504}, {1, 0}], Text3DBox["36", {-4.956763293, -0.7413395097999999, 2.8105894797999995`}, { 1, 0}], Text3DBox["37", {10.154241693400001`, 2.8241955069999998`, 2.1512640784}, {1, 0}], Text3DBox["38", {9.914435463999999, 4.738676917599999, -0.7713861531999999}, {1, 0}], Text3DBox["39", {-0.9448749949999999, 3.0708047499999997`, -2.2797654464}, {1, 0}], Text3DBox["40", {-6.077748756199999, -4.0054632296, 0.027945268087999995`}, {1, 0}], Text3DBox["41", {-3.2949382486000003`, 5.1317399256, -5.7326727936}, {1, 0}], Text3DBox["42", {-10.515959239799999`, 0.22192942144, -7.0509456512}, {1, 0}], Text3DBox["43", {-10.08642452, -5.7366412182, -1.59678067548}, {1, 0}], Text3DBox["44", {-12.3227262684, -3.6250613858, -5.0990476658}, {1, 0}], {RGBColor[1., 0.75, 0.5], TubeBox[{{1.7419494268, 2.2170265432, 1.6434191131599998`}, {3.9482045318, 1.87218934272, 3.4895680315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.7419494268, 2.2170265432, 1.6434191131599998`}, { 1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.2406311424, 0.76499887932, 2.0991076408}, {3.9482045318, 1.87218934272, 3.4895680315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.1131346124, -0.10454342177199999`, 5.456772797599999}, { 3.9482045318, 1.87218934272, 3.4895680315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.4709457426, -1.7748306592, 0.86562678882}, {6.2406311424, 0.76499887932, 2.0991076408}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.4230066772, -2.5790980448, 4.106374598}, { 3.1131346124, -0.10454342177199999`, 5.456772797599999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.58761550438, -1.0727596556799999`, 0.37401456992}, { 1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.3436642086, 2.6021527019999997`, 0.187390899338}, { 6.2406311424, 0.76499887932, 2.0991076408}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.0451044763999997`, 0.090001980202, -1.7150397285599999`}, {-1.58761550438, \ -1.0727596556799999`, 0.37401456992}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.356239374399999, -0.92830900024, -2.622939688}, \ {-3.0451044763999997`, 0.090001980202, -1.7150397285599999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{9.692404653999999, 3.4438366624, 0.5460363277}, {7.3436642086, 2.6021527019999997`, 0.187390899338}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.0998635312, 2.2816551724, -2.9011073552}, {-3.0451044763999997`, 0.090001980202, -1.7150397285599999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.647111205, 0.30441596134000004`, -4.644946508}, {-5.356239374399999, \ -0.92830900024, -2.622939688}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.417320523399999, -3.0965050236000002`, -1.5147098753}, \ {-5.356239374399999, -0.92830900024, -2.622939688}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.4277739913999996`, 3.446860224, -4.8883432168}, {-2.0998635312, 2.2816551724, -2.9011073552}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.944451103199999, -0.6880492366, -5.5289603307999995`}, \ {-6.647111205, 0.30441596134000004`, -4.644946508}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.7029441204, -4.0682021328, -2.4281089374000002`}, \ {-6.417320523399999, -3.0965050236000002`, -1.5147098753}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.9722730746, -2.8742732459999996`, -4.4204470592}, \ {-8.944451103199999, -0.6880492366, -5.5289603307999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.9722730746, -2.8742732459999996`, -4.4204470592}, \ {-8.7029441204, -4.0682021328, -2.4281089374000002`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.7794090008000003`, -2.3636692808, 1.33066946016}, { 1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.7794090008000003`, -2.3636692808, 1.33066946016}, { 5.4709457426, -1.7748306592, 0.86562678882}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.7794090008000003`, -2.3636692808, 1.33066946016}, { 2.4230066772, -2.5790980448, 4.106374598}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.644800534599999, 2.4439826358000003`, -5.7479795742}, {-6.647111205, 0.30441596134000004`, -4.644946508}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.644800534599999, 2.4439826358000003`, -5.7479795742}, {-3.4277739913999996`, 3.446860224, -4.8883432168}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6168925647999997`, -0.23878577735999998`, 2.7036309881999996`}, {-1.58761550438, -1.0727596556799999`, 0.37401456992}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.435186922, 3.6496278238, 4.3216143894}, {3.9482045318, 1.87218934272, 3.4895680315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 1.6448553049199999`, -0.053932780039999996`, -1.6553432842199998`}, { 1.1845558458399998`, -0.32975718699999995`, 0.29407916011999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.228931817, 3.6156127558, 0.26671592764}, {1.7419494268, 2.2170265432, 1.6434191131599998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.099460058832, 2.8139909866, 2.6605452354}, {1.7419494268, 2.2170265432, 1.6434191131599998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.7163181758, 0.4264166719, 3.4393013199999998`}, {6.2406311424, 0.76499887932, 2.0991076408}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.50218099192, 0.58583395726, 6.4653195638}, { 3.1131346124, -0.10454342177199999`, 5.456772797599999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.6252933575999995`, -0.44408560999999996`, 6.7555814774}, { 3.1131346124, -0.10454342177199999`, 5.456772797599999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.5928760688, -3.2440926241999994`, 1.68461513996}, { 5.4709457426, -1.7748306592, 0.86562678882}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.783128477799999, -1.6582156677399997`, -1.12865775076}, { 5.4709457426, -1.7748306592, 0.86562678882}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.47458578764, -2.9802868746, 4.4688240448}, { 2.4230066772, -2.5790980448, 4.106374598}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.6033295368, -4.0630998726, 4.8082188344}, { 2.4230066772, -2.5790980448, 4.106374598}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.7118271943599999`, -3.0815761881999997`, 0.17954664671200002`}, {-1.58761550438, -1.0727596556799999`, 0.37401456992}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.2610401831999996`, 3.2066760494, -1.40981118504}, { 7.3436642086, 2.6021527019999997`, 0.187390899338}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.356763293, -0.7413395097999999, 2.8105894797999995`}, {-2.6168925647999997`, -0.23878577735999998`, 2.7036309881999996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{10.754241693400001`, 2.8241955069999998`, 2.1512640784}, { 9.692404653999999, 3.4438366624, 0.5460363277}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{10.514435463999998`, 4.738676917599999, -0.7713861531999999}, { 9.692404653999999, 3.4438366624, 0.5460363277}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.34487499499999996`, 3.0708047499999997`, -2.2797654464}, {-2.0998635312, 2.2816551724, -2.9011073552}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.4777487562, -4.0054632296, 0.027945268087999995`}, {-6.417320523399999, -3.0965050236000002`, \ -1.5147098753}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6949382486, 5.1317399256, -5.7326727936}, {-3.4277739913999996`, 3.446860224, -4.8883432168}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.9159592398, 0.22192942144, -7.0509456512}, {-8.944451103199999, -0.6880492366, \ -5.5289603307999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.48642452, -5.7366412182, -1.59678067548}, {-8.7029441204, \ -4.0682021328, -2.4281089374000002`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.7227262684, -3.6250613858, -5.0990476658}, {-9.9722730746, \ -2.8742732459999996`, -4.4204470592}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.581873159647354*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfXdcVUfX7vPaa4rp9oINuyA2UKzYpVlBFEUElaKCWEARxUqRLlbs2Dt2 jSWKSmzYo0ZN4quJmpjYo3Jn9p7ZZ85mzha/7/5x/7jn55FzNuyZNWvWelaZ NbN7eof4DQ/wDvEf5l3Vaax3sJ//sHFVOweNJZcK/wf4jx95e1cF/ZwH8P/y yL88f/ofvfL/P3/U58+Uz4Xx999/K5/ou6/w+7LK56J4/fo1zpw5g4iICLRv 3x5ZWVn4lP6uMJ2DTsIdpZTPJbU7IiMjMWDAANjY2MDJyQkjR45EpUqV8OzZ M3zOelfnUe29vdBWceVzGaWtR48eISMjAxMmTMDRo0fx22+/4enTp7h7967S Fr02f/58DBs2rAS9rQhttOgHOlB/X8yMWNrBlStX8OLFC/XXRZSvO3fuxOrV q3HkyJHPPtBqIQutUhJJqyUYT3mrdBR9+/ZVRlFWvd/E0/dCW3oWkLZK69qi 3wiFlAtqWzoyO6qtvjUed1n2ayoVs2bNMkkGofLcuXMmIllzr40HrPKreL7m 6MCnTZumDNxVbemFriXdcL+QtPTq1StlyJS4BQsW8JaeCS1RzlCakpOTFbkh LX2l/LqEcnf37t2Vu6l4UsGm9LChuqiNPTUe4LeM05QMKt+UjYXZNTpIOhu0 UWe1tSfGg6zI7qSdkK/sm/o/lUBKIv3WW23tkfFAK7M7t2zZghs3bpi1Jkoe a+2h8UirSVorwq5du3ZNG2kvtbX7xq1ZsTvpV/prVZZNI6X8pN96qq39KoCR fqS12W2iIvCmHj58qCgBJYw1ddeYsLqS1gqzNolUaNKSkJCgDJm1etu41foW Wy2mDJVCGdeNOXPm0J56qA3fZH1zBIiNjdVG3kiAcK4TxYUJ5hrWXW3qujGN TSStlRDEm46WfuumtnbFuLVm7E5fX19tZLw1pmHKt65qa5cMhtlCohUlhGFy yWNNXTBGuFaS1kpKdKyL2tpZ42E6CK1R2k1TUNQMnuiLTjJrNUcyXG7aHCWK VpxRERgYqOGUMHQntdVTxiNvL2m4tGTkndXWThiPvJNEg0sLs8LRpaJmMuqo 7R4zsGtk/F0kqlJGIoaVJDauptrDEWM+dJP0UFbgA8eeigzjxB7ymN+joiEO GfOop0FPooKaeFRYMqqqal/7DfhG+nKWqG8ZNgJREgn/CtTdXmMmukq6K81u oUPjFpUKPdP38hJ+klchyzRkGbO3rwRjOA2UrfyaoCnfakMvpH1iXOD9s6nd oetbx+4BEhj5lF2j46b+CP1W2fLotgk9SMy3h0EPXMEoilbSBlJdbXezMde8 WBu0Kw5ZnwntcjhVcQgbjPngLQEV7tyLoNJWbW2d8ZiHSVr7TBDiDRs2cHte Qhu2amqwxnjYvhK8+pTB8NKlSzWBpb+jLCgul1Zb9cNK4878JYr/hQRiihp2 spz9jYxZow16EKHFuIelxsMIFDqhHdNvX0qwuIhhJ4uMOxkjQZKv2DXRUyhs 2Ek645XMgQgx6EHkVRG9SKUaUx4mwZ8vJJBLsKC12mCScYOTJCqvir8arlB3 lrqH1A2gtwngqro1SJCwgYoHZUOExdaLKEymLdKfhBWFBO5wPGip9hBnbBem CujCNfgbCR6oTh3mGTMkSoIH3wi0cSeDtTZHN3oxYxAt0X8evYnxS3O1qZnG w5wlae07iYLbqa1NNx7mXIkyf8PGwgWJzjsPZVirkUKrkiHHGrRKJYiGMFSC tm3bpoyetTrFeOTxrFXaIceECuwaC12Ub0wvJxuPPFGimhWECeaqyVqbYDBi 0lqKpDUeU1PB43hlo7Y23nikCyTqzVsTgamp2to445EukmhfRWGkXP5Ya8G6 1nQjXSpprbxOYnjcQUfOWg0UWpWY3wyJupVnt1AdEUMP2jqRHjVqxCjjwa+U NFxZMvjGamt+xoNfI1G+KhKMUeNj+BoPOtOgNRFjWGvDjEe6QaJ0VSUms6Ha 2hDj1jYbtEanmaoxbZW15sUkQDbSbRK9rcx6p3ZFTIMxrWugtuphTOMOidLx hin/RE+ccYA13N+44SxJwzUk+ldPba2vxPTxwe+TqHJ1ifyxptyMCTsgUT5O mOj7W6utORu3dtigNdHPVxxSJZBg8UMvyYC5rT8qUbjq7O/pbFM1YdGgMnCe ARGdKzXCZtkjiyh53KAnKp7Mo9AU06CnLsaMOilR1JoSRS1huYfOOpaJDsJp ia7VYte4g6Dence8RDYPHYwZlCNpl+csRVehiIRsFYdYKGaRMecMesgXCyiU s3YdhHYlLLkoUUDeLkUfau4pV1QuobUxHy5JWlPTwMXNTBYHIS73LKnTwpgH Vy2CRRGFB0LmrJCENSohzO+36F/8JMAIV9U67Bq9ha5C0SllrdkYM+SWRPFr Wrjl8OHDlNWs4cbGvLgjaVhVyZKWblF+SxlCX6yXBrpedMz4RaL4VYwJ42l5 rqkmwhjyWjTSv0k6q2jcWTE2+1y2mPOsCgWbNos3P5BgzXfGt/DFPSplXIap hly6dIlJYr7Z1XH0D4kef23c6SeC2eFAwjhaw5ijjyWdfSG5ReiM53WoVlIx FzqrakzmX5LOPmO3UD2TdPal5c4qM07T1vRy/I8EB8oa9yQGlBzkWU88yUzv pHetX78eLyQ9lGQ4xnFD0gtzpA26UVebqUzQW8+ePftc6Il7LsUK0BP3rEU1 qyb2ZFo1pk2z3sC7E2GjUAG6q/ah7oqZzbvQ5TPGPN6jrBcGlqxFc++Fvqh6 mbGxuBlI6HrE38KAKE9FzeBdWbGuxJCHK5iSX1aM9JfmIiKmUwsJE8c7fiJ0 TKNuPs+cCNqxtUTmZWv5n5t3LU5YYaHrhQsXKl3/rsN+0TvmY+Y8qychQfFM LFZV6IgRXewiOmKoxNwX+GCJGD4IEX05b0T1MeBNRaFrrqXFhGu8qONeAcjh 94lSLCNHkY1CgmxwIsSYi3unnAD67ZaECCr7IhElJUTwyRI1r5SEJ1+YkyM2 UVIgh/KJdnXdAjmUXE5OmQKSY+KJARGc5kOHDmlEXDYggpkwbTlEnGQ+MTym pfhQzbxr2QKo2PUFXdci4PGuy0m6rsXu46laDlPUGygAKWUkpPxYAFK+lmhe TXYfd0Z4FEavcijTkSICWFkJKacKQApPgYqIJAO1quZdi5R/Iun6B6a+FrqW 4aAoBlw/DXr9VNKrpWVk1mtVCd9kqMB65VlNEQs+l/R60LhXnhkQBYfrnSRy 5L2K2lZO0quyLldYWwxVPvGig5/O/oQ9mVl6u1/LgBIRAQwo4QtWdJycEjWB VlS/6g6T+THxZpTXFGR0TcKTmUli7Y5oNkSKqCxIKBIHwL1OaqE5ResNKCrE MF02Wytjk7GxaXu8jx1pLRm8Sq35ShFBiKqWiftKII6aUzqetRq+FmHMoS+J C859kszERTjaqiPyloVBRlYdNloxjOFpCh1touRzEOKmXqONMIczTmQSfemi Qk8rO1xx6oy8I6ullMlcE91UioH5NzqKaFOrdRhGX6IraxL7whhl1QL33bsg 7wcTOSLaF5AcLi3fCk1QBlBylrNrIjm8JIEPg74LiXRNqNkaf3l3Rd4vFwzp EjGI0cVDEDpp/M/LS+haYoBBL3iRKBWldMRbt8WrgG6oLxmyDA11lIjzW0FH CXVd040p+UygZG2Tdng/0USJaA1kuFTZMiUVJZSkGFPyhUbJIhxq2RHvorr+ 36CkkoSSBIESSTzGNXGmx0hc7EjU6fBqjRJRYzkltPiBeiYSSmSOkoiCstKd 0hKKy0n+ToknQthQLISW3J3wI6r4iwtRxeOmoYi0cczSO14Us6r874fEyxuu nP4Ze91n4eSICJxLTC8iGennDGBktoL/5OHEfP+5OBSurqf6GTOCC2SoVSs8 8SK6n73KkBEUkzh4UyZQhugYIYqCEgQUgWb+wV+FTFa3DLave4hza+9iu+c4 7O7pgywHF2xq0gF7B4/GRaKAd7NzRF58ojUqqzLjPN279hKcrWwRbGWDP7Jz fASA/lB6I5f0N7duG7wY1Y3lKuWmXwRonYCLaKVfmDCZd/NrfGvCmdvPcOTg KUwMjUHSuHlYNWo6tgwJwy4XP2Q59sU22844MGgkEp3749DKNfpY1VI4zaUq 3CMIroQpaz184V0ArijOgcmDE1yC4go8rmzcDu/Gq7WPN6/cQUznKbg2exlk Bc8yE2LAuVJah6auSzMuXbl1DwcJl5alb0BsSAwyAqKxadhk7OwzGrs7eWCH XVesrN8GV5MW4UxiOi/yWRQfi7aVKiC0jzsunjhhalfGMl7j5GzVHD0r1UDr 775BZlycZwG4VkEyK4UYOOh1ODNxIfY174C8SLXSePrIHdg98Sze7zvysVzk wCYGA6UlXCyrTSqJi/YSNvLX4uDZWO87BTsGBCOr2xDsatkT6xu1wyhnV3Qv XxEDa1fF0PpV4FWngtJaUZk0m3hXFMNcndHm62/Qt+J38K5XBZ61K7D1WTkD eR5AX99oxMDpHv44264T8g6tJuIdAGe7GUhe/wCP/nikMVDkCEc40VZWMmeg rEr4Q3Bu+e/KKNfmJS5F4tw0TA2NxYKxc7HWfxraVbZGnxq10c/KGlMbWmFu m2rY7ty4MJ6PdmI1afQT+1lYlVTl0zNyuRhi2jfBRLtamNDECuNtqmKd52D8 kp3jJnCYevWybGQVTRoKMTkXCdfgtRh8iZW809sJ4fZt4Fx3KNyGRGHl9hUy H/EjOVtV0rEmmKW0VBaldvP+E2hh1QBdm9gSfbRBBHmn9W6CzRGuhfF4d1Qh PMqKYsynn+hbvPYH+fSH8u0P+se/k4+lMHdIF4zt1hwhneyQ6uaOXe4jsbvD AGxv1gVHhgXjStJCnExM76HjJk+xitysIedhIWYCxMvpBIM8KtTBCvtWcK7t CZf+kVi4aZWm1zKGis6UjqGinZYxVKOilHZZTMr59vdE56b14GJti4GEqSk2 jbkj8SGBV83ApxjezwMdm9RDP/sGGNyhMeKjwrF4wXrMJoK+JGgWNvhGYOeA IOzu6kUApQcyGznievJi6uuwTWnGeVKLxr6CSVrKaCghjFv56dvPHfYVK6L3 t1XhXLMPnHtHIDFzNbfsosHhMyCuev3vuU3fYk5kUWoKxhDcpmI81cqmoNzm Fio9JRkrF6dizbIUNgNlsPNgNo4TGJ86XoWWTAIt2weFYHcv6k65YnPTjthH 3KlcwvF72TkOBWJ6fgCWzQEn6+blO7ixZDv+uX5H9cuLaLxQQ081QZ1z8gRs K1ZB+/JkNqx6w7nLJIyPmY6TWSv5jIhhjSyZQSBBZ+5En9NwUsrksx3ixNDv zlYO6F21Hmb36Y8VcbEWKpBl8/Mp64Ei1fdkLiaMm4tE4pmsHD0DW7wnYJcb AZf2/Qi4OOHIUAIuxOwfN3kmZwhjMuLjsCYuTvNMTCxkyK/+6ensO1iUeBSj +q/Ahew75Qswm7LaFaV1Ln1+dhNwY/AE/Lkhg4VVFuxBSVwl/vEPiUswwdoB bb6rDec6DeHS1BWjo2dian97zPPvB9lc8iCCLn/pgwjdhIpKKdvSW1gTKP1O C5Vjsmv0Wwmz+V4Wl4SWX38Jl2++hmetSpjh6W6SV1O+8gsTynyK/WRmlxBs m0uwjb42Dg/Hzv6B2N1lEHa26I61DR1xID4Zbb4tD9fqVTCoThUMrlMRV06d yKc+llSqCGOUfdVgtK+WBpeGK+FmuxCXcu6wfJjxkk4Zdr/YD/9pyvY0x1/D iNuek8nm+7N86LmVoMUSj9FIauqEbZ0H4Yfh43AucgY6NrCDa5vW6O/YAiG9 WmGWc2PsXZ7A51yWuBV91UofO9eWrpXFzHZTcd1jHI52ccSJDi3wg/Jurvzt MfLzKPt8hPz8vn1zJgmHyKcSOEj+P8De/StXwai6VTG2QTUENa6Mramxsn1g qhDVUK5lEcj9gQjDNAK56WPmINMvEp7WLdC7cl24V6uJ0Np1Mbt1Nezr2Rh/ DuuIv4Z3xFPfTvjHv5Ny//PRnfEi0Akvg7vg1ZguyrXXod3wZnx3/DuhB95O 6om3k3vhXURvvJ/qDJ9WPyDA8SQC2m5H1ogoBT5+JZr4uQWBEBfVPpWORdB+ Nc/lgPcRvURx/wSLmnVDVo+hyB4VhvNEv8+nJ+Do6iTcu5yD6ZPC0LKBNbra NYKHU2sk+vTA+2hPvLuSI8shGIgCz2GKTvpnGgDKCtgKMRHfvfoCVk65gXc5 V0i8NBt568bQ360L5vBFPtG3igDkQ2Gzy0SOMoOJLMT3bYPJTk0wwaExpjhY E03ugXVEk68lLcbZxPTyEgoEp6Q6thw4Cd8B3mjfyA69ajUk7rwNFjZtioPR /fA0KxJ/kfeTrGl4TN7UJ6Wvh+Tnf7Om4z5509e9XTNwh7xvk/fNndG4Qd5X d0Rj74IlGND7Pga7PYBf33vY7BuO3f0DsM/JA1ktuuK4zxhC50Lcz84pZSAL 5mubcotmJhMzPHxxqVNHwqdwVlNTWkmN7CeClzl4DJa37K00cnrMJFygBfqL E7FvVQLuXDmD+w/uaeHDmdOnsGhhClZmrENMWBwepUXjTXgfLiJiZqW+wGce PigrJ0ri6z/mwpK/5keCrGYjOvbjP3j0zzP8eoNiMf1fZQP9xN4sF0C/lUW4 X1/0atEIg9vZwM+pOcKHDMXCoNnIHD4F2weMQVZXNUDeQALk68lLcJ5oEa+r 0mMp+8lXmnJOnoJDPWs42zRV0lQjiMAcWpDCo2bxbt5CMeZleA9+gNZtHqBr t4fo1vuOAkQnyHsGAaIlBIg2+k1Blkcw9nXzwu5WPbCmUVtcV7MgbE6M11q/ 0PgmUzx+LYzaj6Gq/SjLbCuVju8TFyHKuh3W2rvhUP+RyBkfgQtx85CzLElp sxRrJffKXaRPnY+/06Yhb8W0egbSIAaTXxmYtkKW5eNzwzFxmmQqIcWdcsjJ PgU769pwsq0N97bWCA/0RO6129h5gDji5D0thDjiwXOw1ncqtg0ci6zuQ7Gr dW9satweewaNxAUyGT9n53wu6dlcaosi5/RpBI4Ygm51WyshQyR5G0bscv/8 1I+vkZbxVJjET7CdwBYPGxYSd3W9fyR2DRqHvT29sad1L2xo3A6prgMxp6e7 KCK8wp3O9+rGDngX3ovl5UopzuFx4hzObdgRmxz74+jgIJydPI0MOBanVyTj 7MHNuHb51CeMjqvX72H9zAS8SgtH3qIJJTXbY/J6ZYkDWVj8tdEsfkAqZNm/ kgWXCi5UonOpZbeJNBwj7ylEItKIRKwZEYmtxGXZ1dMHu+xdsLlJB+z3GqVk ukloVtZAIkqyCXW2soc7kYKNBKEXxcWazLkJ8soxwN6w+xhWLtuAyaExSA2Z h8xRUdgxOBR7nX2wt40LtjTtgJ9Slyq980hkQXwsAvq4Yy2JRHJPnODGbyvB /dyOxB5khrNwohS2kNsWUw+xCfUQPTUP8UJKPE6uTMZvxE24mHuCBxQzJy7F 3nnz8SYlDG8TxnzcOklhJb08q+Nk/EZkjLs0+ayALlXNF95FSflS14c2rf/R zIzO1oh+jGzRSfkmS7TyuEusRCjBJGPr/pM4euAUmZtYpIyZi9V+07DFMwS7 eg3HrjZuZG464iAL2n/JzuE6T9NH9pUrwKlSBayNjTUZbpPKmD7xxfvc7POw /a48WtFwp0oF9KtegYYkfOVftAfqyFSLunHvcfBXEhGhNQEzsH1oGPa4jcDe du7YZtsJo2rUg+N3FeBWtQq86lZR/vZy9gkTDV8ysQ21ao4/vbvhVNIcLEw4 irMn7zCZK4WdZIwZnoFYSP3N7t44OWp8Pn/z94e/cB2fN2sNTsbH421SMF5t Xy6rTTNacJsZuIcokR38iBIRFOalQaL7+YXudkuqz5Hj0ukruLZoM55evqOt +IhpJIUJ+qUw+lMnaeL+Vht2TSwaMe3WYVMkvpKIFK30j8Jmr/HY1XsEstr2 wdamnRBYvR7akynqU40Eo9ZV4V2vEjYlxhZmlO0gzD9I3j+QN33RvBwVuqvk fYNdu0OFMCkdv6Wk40FaOn5PT8ejRemYVccKbhUqwb9GZYyuXwU+jSqZImeZ sVUZJq9sofbFDGa/0KMvLt9U130y0jcgnijOysBoOFSuo+Rs+tSohdF16ip/ t4vEpDTU+pu+/Tqx+Xvq25EQQEOxv3w64k/6JqHZk6EdoMtWFWWAQk3cysb2 8GocDDurOHSqlYQedaIxa2A01lInuEUv7HP1xelgqRPMj6ZITFhHOBqL9/H+ yLt1vrih4eHhf27uCwxwDCWS2goeRFLXELjnq31ijrigosql/zSZyiPNm+Hv oMF4eWwvP5BA3BBMAobyhoBIZ41n3GwFMeUlOsUl/aviVku5tmnfDzhMsC8s JAYJY+dhxcjpcKhUG85VrZVpDK1VF3McqiOiZQW8CnbC63Fd8YZEx0pkzKJi +nof5Yq8aHfkzeyLvDn91P5iByIv3hN5CV7ISxqMvJQhyEsbirz0YRjVqiFC HRphcqv6iLVvio2K676Yuu78NCaRZM5OvuCpF9pI93m47DUDTw8e0cynTmIt e5HEgbp5F02r1EWHRrbsxiL4QwkR1bcCFo+zIguT4DGyEP4kUaRK36unTz44 3TzjuYXY7aVNe6JxtRVoW+sA3OpkYniz1QhsEyt657h4cCtuXTldhQ1j+YKN uJ0yD3lzvfH++o+yYyvydH5JuMc0IqztFN8khQjrA6I8YtkGF1iT36Vffy2G o0Q4s2ya4emQDmQCPfH33hj8+eQpd4b5ETB0j/mJEyeUSfjO3AKahFTMLDUT 6OBCKsu8y1zoQkxwqTW0IQLagUT5vWvaYAgdp4MNwnvUwZ+7o/Bo93T8Tt4P ds/Ab7uj8UtWtNLOzZ0zcZ28L++YiXPbZirXjm+Mxv7MGdi4PAr/3j6GN7eP 4zV5JwX3xwCHphje3gaju7XEnEGDsc4vEjs8x2FPz6HYbd+buIztcSNlqdIO MV/qpJQ23II1eUguHh7+BXnbYvDueo6lAEImRzyOpyFraxKy0hedZfqa7+Er YxifrVt/vM4H4JZFtSRCiIcQbTMKTWr8CPvap+HTMhdjXa5j3MATOLxuBw0c tD2guTk3MT0oBv9Nm0VQYAD+vZRj6WwVfqRhZuJmQnkXuFg1QyCZu7uCfObP QhZoLW8fEdf1RHsfD3BEXswAvNkUhFc3D5idWGV2mokip6obY1ZJyHWjuU5O qX8rMxKWs6LFkB6XiDb1reHcQF0rnUXem5YlftyyXkn49POEY5P6cGndAP0c rXHl/ClsIxHjMWJ+I0jEmDZ2Lku1l8Tu3sOxu42r8m0fiW/pK3LEKDM55CB6 9e4rpK/ej793zMXbxP7490qOuXSYVQmfIeFvxsJU8BcdULyHr4xw/SKHadLK 6nFLMewrGtkj22swrKvdQM96WzG803X49buHPj1/xsXzv7H9OkWIIf4Z8yfF 40naDDwPdS2i0Wia0VJcKrOvEAqdybsFBhNKNxMY5N6puBaiDyJMpKo1XlnU H65vgweubfCe2LZ36wPw9uZ+rYo9/xzmE9evzIVMdG75yXdibaZspYuPjp88 l56UDHubekpBDB0dTXh97PLlaZYONF0ris0kEqKvSSTESBk3D2tGRTHJKoo9 jiTMsOmIw0MCcEmNhExRDQkIF85PwvMds/F6rjteXMihN8l0Q1gsKqrAF5Mj nD55AqYZlM1I/kXDzYSO8+07YK2rE1pZL8F4q5Z47NkZU733E2F5XYux8tLV u1g2bT6ep0UiL2PKt2x+wz2mkN7boC+hYGY/L/j2dYdjxQrIJKE856YoK6ZT cQuLgzjm7Yt7PezxLtIV79eMxJMT6VoeVEyZFUw8xDi6pUQ85HYRssRxZuJS hbvR5G3aGm6i/RM2e7Ky7cxdh9XxlUViyDysGj0dW4dMwG43P+xp3xc7bDvj iHegsvhBswC0oUvX72J5ajJeEuuq3lsEF06cECeM+1Z8XtlL9Nhysy8rYmFb vjxfPlRi5OwTAiZaTOvKlvzpexwJMo907QDnOp5w7h6ImDr2eOHnxFe1N68+ iC2zE/A6dRLyFoR+pmMlFZVoOFVtgfpffYUO5b5VAjjPOlUwy8tdC64oG3l+ ohyjYzgRKYfKFdG9UgWE93HFPi9f3OzcCm8n9UbeyhF4eXIB/nl0my+3iZsY Pl5cWrE7xHrVPAulRexllOWh4DKhXndcGh+tVf/ny0+YMJioxyFikFakb9Dm dcvQicjqMwp7Og7ATjsnHBsajE1BU7B+UQpeb5+Oy2FO8KxVERsTYlmvn+eb ud1CPHyZ/LxJC1GT03GfxL6HhgYhmsS9ruUrwbdWVRL3VoVvw4rqrOmEnWfc qb3JaGhPRtcDzj0j4NnHS8nMvwtxYvXsRTBrynIcjJmPf5ND8TImSLYYysld EBODhuWqokf5qgioWx3jGllhUtNqyLR1wsoWXZDayRmR/TwQMHSY4toEeg9F Sr22SLBug3l17bHJK5C1TKKQxCUa61TZ/wQ/kuHmkDeNFU+R90nyHuHsgpbf VkD3CpUxpFplTKpbAYn2NZC3zAf/nkzDq8e3eSgqZtsKJlBihq21Dn+oQBUy 6XFRM+3jn/m2/My009gV9APeb9+FFw/vlZOATb7N9dZSvaapBvpSSkyJZVoe OBObfSZjYquu6GHjiB3LUvFmWyRuhXZAuE153O3tgPvubfA78QWfDFYd5Gcj O+JlUGe8DumKtxO7431ET+X6+5luJLIiMWvcAOQlepAYlcSqC7yxe3QXhLZp jMn2DRDfthl2NHPC0WHBuEoAj8xFaWbLaLFIsHt/DLdqC+dW4zBqxmzMnzwJ B+3a4f0Up3qMF7Fz1+LM/Di8SwhE3u2LJkOiilEtRSozPX1xzqE5NvdsjrCO jRDapTXG9SfiMzoYASP8MXlkADLGTMaO0GnYFzIdY8i1FQFh2B80FfsDpuDA 6HAcGDlZGdaBERNwYPh4HBgWqn4fPFb96RGI/QMCsL/fKOzv44/9biPQtnwN dK5YFy7Va8GjTnXMatoAk9pZ4e3j2zwtKSbQPl6M7Jnq6XDJDIsstMpN2c3c Z0hb9RDXbt7RzhWwIEml5S3J8liXiGDtI5g1OSgcDnVsMbBjN+xfkYK3WyNw bwKZwW3j8XbHBLzZMQkvd6mc/StrCs0E4GHWNKakn+HqjhkknpxBYsnpuHF0 Od7ePkpiyGNICOqHvvZNMYzEkCNJDDnT2xtrxszCdr8I7PEIxv6eQ7DHvrew 85o4+33d0LpKRXT7piqJG4ZjYPBM5Jz/HjM9/HGBuDp5B/nOgCJITV6Pq0mx yIsdgbyb52RLFhry1VLWHY+1aIbnfp3wOtkLG6KGYfiwofD18cHwAS7YuCsL e74/hiPZp3GUvI9nn8EJ8j58+ChCQkJx/Mhx5JDvZ8n7XLbi4OHCyTO4SN65 5L1ujYr88+bOR/y8BCTNS0TqvCSkxyRhMfnZslYTODZqjl6NbeBSq4XidoVY N+KmRaziN8G2LkITC8wcPsLcMVYU6LCNj8gcFUfOiWy0qFkHPZo2hKfDEBxb nYJ3WybjxnRXgxSGzJZURHp8Ehwa10OvVvWVtUwa5126dRf7D59C9qFTmDkp DovHz8OGQLVQYV9fNb7LatENa+niMivlVEv7KqFThSpwruUO14HTMGVqAK6d OQF/YtTv9e6EvGOrGrDOJ/rOxt3Uucib5YX313LUoqVPpUh8hCaFmtri5yHd sXPCUEQEjcD4sYFwd3FBtzbNMDlwCC6dO6VlHXlATT1oyykN2bUSSI9NgF2t unBqWh/O1r2Iwe4AFytbjCVicy87h1s4fmosFZ2K5sIiphLaSE2ZZUkRT0qR SIphZkI2nuJYQOIj+yb10KNZKwzuNQlnMlPwflMY3iwILjBvtNjtzClziVL/ rBw2HziB7w+bthEscBqAte36IN22O1Iad0JQ7WZw/K42etQgwWM7P0yKn4kp brbYsTgeYSR4ejKoM/JOsgpQEkWfu4VZ42LxMG0m3k7tixfnc7QFZr18LOjQ Geu8ByJy5HCEjfbFofWppr2ERbVSZ/EWy0n3Egq7/H0Go20La6xdkKH6a0R4 vcn0H0tM/5TNj/5gKXZsv4EktJXABkRP8XPjqf+y4FPP02+52dcwdGAkLqxP xvsN4/B3XBB0K4X8CJtNRMMOK/6e6gumNemMta2cVUtTBt/7jsexkKk4Hjkb R+fFoV0DO7jZt0L/Ni0R3qs5Ip1qY/pwD8QS1/Klv1MjRmvupTtIDp+Pv9Ki kLdqemkmknSE/BUy3AdJo4fhSrI/nuXu1HJvPO40G2a+0ZvSLldJrDRZWRmn +L5QWyopbrZnjT8Pgafl2HxxWyDmSNpJNPcD5xh9rc2laVZLCXMx3Hs6rm5K UirP/tmxnFFYRllF/568zxDmT6vbFulNOyOztQt2dPHCgf6jcMQvTBn48ag5 OBoTr052aVwnWnH+/Gnc/e0efIiv37pBXfRs0QijetljiU8HLO/SCmsbqyFG Y8a/y9fuYdX0BLxMm4K8JZOKM+vPZS6M2NtAIrQbB/TBL+P74EXGCDwnrv3T P25pVcGcIeyl21SkLANEaag5RkVNiJEmT0yUN2e+GFK2F5jPT5vhqmdhy1V9 9uvUZZtwa0si8taMRmDL2uheuQIm93VX9busUtN6VAlulmK6dVsssnHCentX 7Ow6BAcGjsYR/zAcD5uG49Pn4EhsPPanJDHtKopzhNn8xbGEJzXPnDmNZSS+ nDg+AhdJXLnWqw8ONSe+3FQnNGGc27rue+ycMx9vUifgfcpYvvYtKvyY4GDE efvibKc2eBPSHXlLh+HfE6kktrr1lcATbty+YCzPTN5CWN5dRCppLsiA5R10 LKdsLW3M8jra1KuI8xWWrtqMe1vnI6F3c/jUrYIRdSpikacnoq0dsdi2C9Y7 uGFXd28c9AjAkZETcHxCFI7PIJyOm499qUnYvDAZ+7dvxDUi2j8Sbt/69c7H pBB4gfyqtA2Y1q4HLlLH9dAq9ZDaTzAnaiWOkp5eJIzBxcmjER4WhtCQELVE culyZJBI6HQrO7wc5USCscF4fzyZRCO3+HKSaEqKaQhquYC7mAJLzjXdVViq 5YBVQybj6Y9XeBJXjJJ1M0M5zGemk9A/91SLClBqaQ+itY5xjHlFGTdsK1WE i2MXjG5ji4kk3IxoXR8r+rnh+EQyJ9Fz8X38fOxNTcbGhUm4dTYHV8mc5Jw/ ZTlPKp+L3HO3MZKI5S/OZBxLxtSX/CnP0XNFGEuizTH+/pjh74P+HTvArX5d THNzxqFmzfBsWAclYH62JRh/3TigbbQUA7wS8oHzywo+1QvAOo+teL5ss+yo O91siFGletRnabPNafSK0Uw0MJqJEhjRZwAca9XBIBIlhXchs9G7BaYO7EQc 8RycPpdt2qxpwlpenBZGN25T5ym+L17tXK4G/qZKfktFFh69POBatz4CG9Yi rnlFTG9aCXt97PFmYyBe/bRffzqAqWpJvjzOF16mBx7D0mUP8PutX7SVCjG+ 0rFVjKqcmEBzJZPtCW2iwxu6JpmNZjWt4dGCcs0WQ9pZY3NGUhX2a+UgCdUl QS4B5bx4H+Rdz1Fwi9fiiPPEo6uFcTEkkqmBjrVt4NmoAYbUt4Jv3boIaVxH OyZZhGFTlltW8cKjkpu/v9aulf0wd8QlgC7CNTqf9LqNXKh4HmxV4nIs6OOK mYPbInNZclWBJZnUKQh1wkTvGXiQNgsvw934uU7ihlH6otyhL1NFYykSe56A TUUrOFo1gnsTW/Sp56Rs5XK3aoPBxOYnEefrVnYO38HLiyJNoPDh0FR2dKKO PaJv3UXCMkP2FIa/dQ88nBSEvIs72IFVxZWN2IeJzc4jNjv3/G2kTIzDiwXE UVo8Xvsbo01WwlpZabSo1BidbVpgRI/W6OvgCLfm3nCu6084NYC8ndCfhD20 /mwPmRDxoCkOYnpWWcJZHhfcvHlTPH1ZxUXonQb6rauEg7aaBHNpnWw3EM/n BCPv/EY2+BIYZGWH3A6KTVWubFpxAHtmx+Nt6li83JFRSccjWXW5vir/U8L1 5Yh3DkX6OB+EBPpgzdJUYjTUU5MzF+2Hc9NgYkTpdkkXuFk5wsuqGa07wCHC OP0hM3QRwxTcmArRvmYspWEaP7KM+0XlzTklPpNExin+ZK709sPwLjnANAe6 yks+f6OI7fvVWcl8aK5MzMzVuJQYg7y4YXh/PadAB8DKovQiSgI3yM4bP86b h+enV6k8LakE0OF+qXC2HkX45qFUPfQlpsKXCFyWWnpudnAQBzLxGHTuM36X nz/cM5Hxx55dy0xcgb19/Iny+GtdfUjteYXFRELqn2pKAPPDlmNbl0g8W7QQ k7yjCWDNxLNJboye/FvcRTznUUf04KnYFhSFx9vmCoV+kqqAzMVE3poReavl Q3jmBlerdsrxUTGDgnF14Wb8mXtHAyAR13hFvOjRGfCti471olxtTFyPS35E rnbHGPDt0/ykk2lNqOuAlyOdFKnwbr8Dpxb9jPcXchQwS5tEwSwC7xeNl+4Z 04PZF0znuXreW0H0/MldDYvYT6PUU+75W8hM3Qvn+qMJNwfBzy4NN6Zk4dWh nRrCU5ZwyOMHvoqemI6LoifGuShG7ZyLyUOm4sFEFd5lYTnfOE25tp6Zw3CP CXDumoA5637F74/Vc4w3rzyEvXNUhPt7S0ZZHeNEgeOM+0qumgXNynK/OXPp fvgPuoazxx/i+Z9PxVohnhvh/BKdiP8hvyY1G4hnswnaX9ikTU3BtLUY1iUu wvfEbIbbtYVzk9HwGj8bZy98zyEqloDdZQp2sUPx7lpOSWOw47s9uMo+ISpr tCuK11r/9MDkXOnrquisVP0wr0R3VPa0QM6r1HYU+dVHnljWUPM6Mbpg51Sx JhIaNiNewGD0GRaNdbtWa1Zi8tCZSrYzLzPaLLazhGwVuJSYa6cRp/ijUUXc qsKuiX6WjisyP0vkignvl2O3m4r3isbp7CGXFrpK0LxKBXQp9w0x685w6T0F UckzizGFzL1wGwsmx+ElhaqFocpVA5jiJ1xLle0D5Rrms8YhnI6Lcpl+0z9K 5n/BHgrruSMswzqvf7WtXBHtKlVFz6r2cG4zHgEkEl84LZB7ZZtXHULWrFic ihqtVQzzAwbZizuTotHTleEUFuVBRBTOTprepg4lfRE/gI2Z75sRAaSrwZgT h0zBfyeoIPydZMx8Tz7fVWr7BRl3ldro1dAFg0JmIyrADSOaV+NLlCJi+PuP wtqISfgteqiZh2y0ZZHEJNjQ0hX3F2RqyUyd/jSVIEcFNj9U/Wgemf7k/pGO MTLfSNzRyBkz0XYA/pmloq3aRHmNYsqMA4QZU+s4YlUrVxzsNxLtrRqjj10L 9G3dEsG0KLhHAwS0raEphyWUoL+PGDYLvzNkgXztg2+mpnv39nj54qeOdng7 oTNe7YjT8vE6BeM1/3xfkzoGtZnHxHZy55E7RAVgVP6lewLJbYfibZIItV8o lNBXZF1HrGnthkMDRiEnbAouxsfgx+XJmOznjXbNmqJn88YY2sUe4e6tsdW/ n8EhJ0UJ6vyM9HAVdd6lhwiiZL7gRPte7+mLCw62eB3UHnmLPPD8eCKev34l 8zXtJJjCj9wTXcVvzbkjckLGHV4fk5mYgV2ufoQKBrmEWkrhIWKQ6WutvTsO DRytfL44PwY5y5NwTtl/mc0zHakJifD3HYYRI3wxcsQILB8fgCsxY4WMTxFs WXUYB4gP9C5ljAaewhpmMWSQaOyH5jZ4MaIN8lL64t+j8Xj16KZex35RdYwz RcQd8WFq3PP7HzJlQ+I6XBgegNeLvLT1mkuEKYcJU6Zbt0OmQx8c9gjAjxOn qlpQFlcundRm2FLsun3DURyYHYd/k0Lw7/wgxpxPlBbiZq/B1aQY5XP2siQl QcKlRlm6bmKDp4OITMe54uE6f7x79BN/nCNXq7OqWomFueb4Y+656Hgjei5d Jdc4bxIGR+B+GAHkCzvZ8kA5hTd003Z0vfZY16Yvvh8UiB8nReJiYizOrExG zsFNRE5PfghrePlwLOHFuTi602kU8m5dMIXCvDTz97RoRDnUh3OViuhd/hte bPl+Vk+8WOeLv6/v1WyrqEr88dr5AUc9i5uSIuGMeHCvjDMtNXNIfvHPTALJ Fzezb5pzWQ6XCY+OJC7GrPrtsb5tPxzxClQ2NV9MisNpwqNTBzbQba5mAiSB G65Qy5I34HbiHOTNGULTkZZDqBJYvnANHGvUh1/DegisWwWRDSsg0bE63q4e ijfXd/P9kDoV4/Mt4g43wKIvI2EWJ4AzS0yptWagkdjWWyH2za8XNMPLf6qO yudICVuJrC4TsIHvAQ8n7EqOwynCrvuX6erOMam+iceW8PXi3DM/YVZQDP5I icbbqe54ecG0YYA7y80qVYZ9VWt4NGmKQdY1MbxuPYQ0qYvbZOo4lzRli1GU jRsZEYhkJ32o4YS2zU70frpJOMclNTNxGXY4+0HzunTNqh5vWYS4HMOt1T/h xsqVyF5F90yfwaPffzVEI762RxfYFxG79SxlqnigS0n4uvcnXnY9DLSzw0Bb WyUJ1MfKCUOsWiKBwPUBAkt82hU1C1bVTKxX4QDEJUdMCul4Itpzizzhqv52 8RDtF5Yj4FK4/vNrrDr8AK/fvDZCHp4A3bzyALZHx+NN8gQTJ8pgcv9AODZo Bu+u9hjUvjHc2rrAufk4ONceDhcrFwywagt/K1slD0uEhT+4VqdRbSXww8+i EE8HZg4z16yP4g+5Fu8VrrKCALTlzbPGiZtv2QjmTluJEzGxeJcQZHJnPiXR egaSewTht4xYrFyWjpVLU3GBpVtpnih89AI4NwggEuMJd53E8Eo/nSLxUgkR bvimb1ojRSdLfGqVAXM47IiZsdasqfFN++Hv6GAzuDGqkTOCFuHkQILKMcOR 99M5rQE6vEktB+NK3Bw6vOIMizOXHRAkx1WRHD8iOQsId27zw3dUddquqNMc szoGDjE8OyH6Ojp1kvk6Iuy0Eq3WO/Y8PXXogltmATx4Mn/KiDm4n0xYPGMA 3rItWMPqO+PYxOl4cWJ9KfZnlmSCVnYQmeBb7hR9cSH6spLqy50OunkUnyci OjIFGHj+rQbqFpOtvYnnu3Cklm00WoC14oMhfn5CWBz+SpmG56G9MX1QCDYO nYTHG2Pw5vHtsoYz3YzPNI+X6EkMK+cnIag5VYUYIisrtcX6/EBhOHCZB5d/ 4KWwPjETPw4bjfdLvM1AINL8OFL+FLrLV+8iM4p44ymTcT/IHb8uJXjw5N4n JvkpnW9yB5PJ9a5aD02//RbtK1eC83eVMbeLqyLPThY13dyx0I1O5ljke+iR /nAEVZQ1JC+BG0Qtk/uMwqYBHpgyJlCv07w6eWboEhyaE0fixnH4Z3Kvz5iZ FRGCvsU5dqjQCk3KVUTXbyphKHEcprZrhIBm1bThiur7f2G4+ueqyIDMBNnF sH5+KpZGzsAoH1+MGuaDXX3640p3p8ZMDIfW642IEbNwgQTAefEjqdstPfHN lJa/jbblqyOmRkPMtqmDiW3qI7pbY/i3rJFvZYIqDx+xaP9ZfTTfxijziWTn 9eSHaXVzHTUuP8xfgOWDAxHezwNBZJQBPsORPsQPMxw9scvBE8/dB+FRzx6N 2Cime47D+iET8XhDDJanbMCdxNnIm+1FHWqDXZJqsmkTCeEvtWmGN2M64qdZ bgjpYYcZvZvRMkY+X6L+fvFhBsgMvAhmpoyovl6unELRHrbVaA2JvpIadsBK +55I7TtYuTbOdwSCR/hhWUgYjpA48WhaEnYtTsYMn3FY0nE4LvYehnuTpqjP ai6p+J3xXQPwyxJF15H7403MGRODRykz8G+EG/7+MYd1/Uk+pVhMAO4ocRef +xCHJ7k/zsQORJB7W7i2bY5gZ3vcnuGNN7uWcyaJMMA5kf9IpgIzSZ8jtGTg i7AOb1y+g1Npm+kpqjiXtAwx9dthhV1XbHPsiwMuPso9qwLGIsTfH8HkPWe8 uivl8NZ1uEliiIsXTuPOb3e5c3797BXcOa+WnPKKHTo3YXaDkDuPugKr+QIu 9buXRMTjecoU5C2LUNlpWpOju8I3NrTBk37Ed5nrghcb/PHnNfVh0elpKchY nEIC5RTkkoDofQLV2PNmmsex5lOm4eLRHPz5E9+Y81bk4/+et58gNmAzTgdv x1ES6p4MnIjT4Wrx/4rIqRg7epTyeeOq5crPX//7C2+Tb1+PHToN34+PwsMt M7SdxVtWHcLOmdRBH493yWNMxyWREabVscEv3Vrg/ZTueL/aB//e2KNVsixN I+Fy2jzipiknUcgg6hPGKMoY6ldRS8uPlv1IRn2jkWW4N6gYdmx/ij27fsW+ 7duwIj0NYUS6goKDdAuNzVkjUZ5jkek1AY/Xx+LNk9t8lW9u1CqcUpz0QLza nsGf90kTDtsISF1pS0BqLC2c88KLH5Lw5++3tLRc1Oi5eJA+G++m98fr3BzO FhG4eJgoOh46nRQdj26Sa7K1CqG+oXg+L0R0u9poWnQesV1G497iWPxz/SD3 GVPnr8ONhLnIm0fM6E9n+Y7/ZQSEjjezxYvhjgoIvT8aj38f39RODrxwG/Mn xuPpwhnIWzNDhkXc+ok22rTw8Zk5B0RrzTkgZj2+k4uBpaMUxShDsdC6k4VK aDzJQWgzD+TOnY0Xp9fwgr5I/zn4b/JM5EX1o0dacBeAHs+0hSDKn/1VRHlJ EOWv6/t4QHbpyl1kRCXgRfpU5GVMtowl5jyR7d0v+2HuiEk1k2EzHYZAZENW +mPLlFSEoA9DUREF5mO8I3E4ZBoebZ2pykEZ5F78GUkT4vA38eVX9HFAu0oV EObuju3xSVhY1wa/didwMlWDEx7YX79xD9vnJODNgol4lzpOZBUtexaPyxXt vWzdhLGKZ/5FJ6i7hH3fCRJjKVBpKRc2I/bEBm7FgcCNeLQuFv8++dm04qrO bikS5WcidmQoPOvUgn/tyvCtVh5ja36NC54EnJZ64SUBlr9+v8XT9bPDM3A0 fj7epozFn9GBelwxwe1HM0i0/zIGyc621jPIQdeNMXcKIyH6Br7f+xCP794z OO+nBBaSWM6mQh30a9AEAU3rIqB+VUQ1scb26b4UfHhRR9y8tbigWO1RyLt9 gTNHBB9e2ik6QiZ78JlllnD1EnMfXxYAZRylLNH6sjDeuPloXrkmulvboI91 ffS3tkN/qxa8JJGnTBcSz/pmKokrYoYi78aPsoCIj1fMZ8jynZ9+eOTi8+P0 NUoyRHEsuLZYDohKI+fESTSpZA03u+bwbtcSfW1d4VzTm0TEvUhEbI8hpqJW rdxyit9s3E+fg3czlKOHRMZwGOHPg8n3yGNlcnTskLklIqCIlUeWwKOT1rip m7LaJ55vjvAgMVbHoXBp35r49TQhWg/rMzIRPiIVznX9yKj7wMWqPQZa2SGA SAN1Zjk20GL+2LA4/Jk+A8/CXGXYwOvEuc/Ka1Lpz6/NxyyedSiLGmXHWevH PMii7hdVnfcWw5AbOw8vT69GTs4pbZ9fZvo+ODcMVOrSnK26KtWRPqw6UkgD 516+iyX0CBfFsEbI9J07QnSaxe2A9DsVVGpsdQMX3QvZwIsXQOu9zSebtDDY ujf2h0zHn9vnMJ0wPRSFsycz4wDChyazAkdaUNsWg4h404Ja4mMIpyzkOy2F u6zXrt9TDy1ZMAnvF4TIIEF7JsjNm7pjaMz9j6/M2SLzNUS2WDqFT4QEfza/ Uz3GYGn/MDxcE0fzkdpg2M/CDBREsaHliuEj0+Bcb5RSpe1i1UmBxHH1+uJi RLK+CWmCnhe9zQpbgsMEYt+mhuD5/FkyeBA30pgddm4CbtESdGcqITLEAAxG cwHOPospbf1wLSkG/5zKkB1SmGd2KEQJtQiWFl1bT0Ry/4N4seYonl7VtmIa PVwuJioLh2NP493h05CBA6/WEx0H3Zjze1HFlTFR2ZcBQBC7b1h9dxydHE1T 1wWunecuVO6ZJ5gR9wA3rj/Ay2d/yxcVYKqN/+niP1i//zGu/PwYsviDV2zn P3RYG2b+cmBzuaa6IK7qjGGkRnmEYs2QyXi0Po56ewUdKd+Gqpt35bubRIM/ cgSd2LAtaSadOIL0Y9kgaPp+ZqfRuLWABMO3jv4PqvUsnPQnU0kXie7xicx3 Qq9peKJBbidMkCXjW1hyX7CmhDkY2bg/sqNm4WX2OtmhWKZsiMmB7yPRIO7D ik6FAeVtdKIl0yDepBj2c8pnDJqEzSOm4MnmWLx+fDNEIuxcBMUqDB1F+WtR jG1bScl9QZrsZCCuezDuLYnFi58OhUqEl4OcmDYjJucrc6JEa9PCAlGiZeHu nGi8A4UJHmPrhbOz5xBPY22YcrmkmcjRK/z0Ur4Vnb4MqLItgNjJ7gtk12YN nopdgdPw19Z5mCiRJa4tIhqruW7NXRbRuGkBZEm2BBLAmBThEYQ0lxDcXxGH d0/uTpLIUuEPUyTCTiMdRTJZku0XMxnHHExoNQyX4ubhxelVky3KkjkQGlBU vwCCpN94Q78pzxTVZYq4Fgyu54wDodSvm40ICZhxfBTBTEcihQTzB7EbSxWv xxOnf5DOhHzI5HB/MXJQOJYNmICHaxVPbAoDe1EQ6RUGaF/mJ5xjWU0db2WE V5HMiZfcVhg5BHvX5SC270FC8xE8O7sxkg1IFFUOwDqCRciqbkEYRLteXULw YAllZk8TiJj1X1y5pvgq4LSJQst9bB1tInJVKYCg1iwAbZY4OYdxkgvq/fv3 KUk6ikSlrFAAuZQ9DteTCdRHeA+z2S1cW+jP0NBQ7ooz5eFZLlFPv9OxTUZk fQmRgzStNpn8qezv+IZE+q0Ea5/PIC86nz59OipVqqT8nY48ccNiQZ4O10ii Wr8IuMsPguQbdeg1aqxoMEdrjSgZ5LuECj7YLwogW00NqBCxlofC3JbTF6/C p4BHGfKlZVI+LYBQ2RmQkj+pVSLfapxo0Qk535hTI7ZaRqDGUs1+S4vUlNIw h2/P4LkVTgGTpAqWKSipmxqZgGjF9wKUXWPXaK9ci4oJ/KBCQ0u9+PQIG22r mFMjtlpMR41MUHjlnQhenBrRTeDrMeLsBAYGaryhf1fDnBQRfcSiMUuC0sEi KaU0UvRpL51w1BIpKKlRYCQQnSXU5rBrtDf+0IziwnTQaaK98+kQhEM9FUTL J/KUq0wQZNt7ec/5ltYKKR0XMzsVS1DShuasp4Ncv3690g1fChBx9kfGVrEb S3pHWm8qtm4yOux8Dlli/egHOMixRqJe6qMENM9bfOiTrFiP95TvoEFhrkRp EVRHSbuads8pVkPdyGiWRo9kxwbI9p8dNWCkZJq+YRwsgK/Ent1YTmAuJ8RJ QsjuDzCco4dEacp/NFF8ewUlSpifThK6NrJrtC9OF/ezCjplgnBU/mhaeXUg p5NCaUcDQkWi+HO46DU6ixyK9UfTMeKqfzRxPHoSZ5fDoLizTUacaLpls0vh stZHU8QlVKfjvAZZNHYiUTwzoTfiFnDadLSVyV9jmscraUS9d7TYu0nzPqDr ahZO24BA6eAMbytpfQW7xp0T+i4q4rBojQUF76d2U0HgIu2GChkZiLZ9XjDS yy0hvs7Y6qfWQ+2pkoRdMg9DHZC6a9rS5HBPWY3ooD9hhvKKb30RbXQau8Yp 03glOC+8eF83K0PVnnhYKaoBr0UWrSPviTLc/ED1wmaoW0jpx5yi4WpXVXXy zXjWwmJvJRV/mSqigTyzdREt3BTBprmk6RhBDCkr9CwzQEA13aMdJSIKsvgQ Hm6I1ccXljFDjjxmpAygzPSUYiZnVgLfBInmz1ATLXIsGwhtasGCBZYkWLYX qL/aWS2JUPOIRsRsjjl0MLwJblyojPC5LyKw1mAWZc+kZhTVFnrnJyY2MaAo vxUpbeZOfwCttLMnJKTUkShL448ipbhW5ShxUVTJKiRMPX+cgs7aNyxgn3rm W4jraklGPFAlgBd0i1rVwGLvpc16/4A2qW0ro2Wd1ZewV/a8bZ4FpsTwWRVD tgMHDih4LpndeWpPDQS+CqbW2qCzfEUvBQC+OLW3Rjomivme/F2V0rr6gM4k qq2LAsi5VkfSus8HbIVBZJWq9tRE4JoARFx8RJvnw/5UVLw8y6EU62eh2k9T udTzpJ1oAH3YAGhjdHe+BcBbqjZsq5sIyiorSasD2bVp06ZpCiEDMgmrVJ/C zB7wSeF2Q7RGA5neiKr3IYAqp+lNgtqZnU6aGb+qSfpzlsA292bpyxIy8Sox nTc7X/3QQsdXqpiiY8EtIo+exLyg5ecpfhC3vjUkiqebRDNd2YAosZXiTBP5 tQ9AWUVDQvRPkWFqI1uJkNGi9+fEYEMQi6qGNHC/VIQgvv1exHEZATyBZJR/ sjLs3UHoiZvw8hZ7N/aUudtnimOYFsgOpJc9YZsTQ/0jmZfC51mi3IfVntrK 8Un2BCHembnbbJhPUnePa6d0izolnqHL41PuBso0mvsasiBGPfcg3z5OyjXZ EVu8G6O0sQXtUHfgsuA6n82VbZC0YeonGkIDRGQPP+mk4xiVcdneiLoCx7Zt 26Z84/laeo1ySxJfQt2MqmUtRXsr1v1xE8i7EasHCuk4ZgHYLqs96QvQaE+y woO6TG2412/kdJmq2r9XO+kiF2YxnWlWES9NdJn7/KJcGAQ6Mp//oEpUN91U 0lZ4NW7+umpzHnPs1vv8FhRBMSIKcMnKvxg93SUzUcaAHtENFj1T+rIAaFaW e++h0xw2RaUKSIAodAZaVEsDVCYZvSSTUEJgBDeg3+jEzyAJC2vJKKtpHcN8 j6zyZ8z37M1uFK05lz3RgoonkPNnIvDqSlEKRHSnhDXSiKiuI5G+ZFk79UGP zKPKZ925MIlrmCptpc1CiQ8lhNSslry8Tc2SwFWCe0WE7rktEmtXeTOic0Hn icqDRDYGfhxP3HQU0ckqbEBRfm/jw7GVp0lqTI9NE+lj3HGXqG4hCS38UCwx qWngf/haHn0fpvY6deW96dPtemlkLPfXxscG0o9JD2cqXde6cOGCEcJCoUtV E5bDUMmifdLVbkEDvtIMg2lF5ol6J599IZDDRyyn/KH+crQGtLIHshrfG/L/ 5B3jNEaZUumMZcrf+f//z/8vf8Z//g/zir2v\ \>"]] }, 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[{"ttlo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"tlo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ttlu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"tlu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ttpln", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"tpln", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ttpyrn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"tpyrn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{ "tc", ",", "twc", ",", "twh", ",", "tpo", ",", "tpu", ",", "ttlo", ",", "ttlu", ",", "ttpln", ",", "ttpyrn"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", 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.574076503349639*^9, 3.5740765293080845`*^9}, { 3.5740766389138765`*^9, 3.57407664084828*^9}, 3.574076909589952*^9, { 3.5818329799060545`*^9, 3.581832997081685*^9}, {3.581833081056632*^9, 3.5818330881078444`*^9}, {3.5818331567167654`*^9, 3.581833337131082*^9}, { 3.581834229374649*^9, 3.581834234054657*^9}, {3.5818343257204185`*^9, 3.5818343369524384`*^9}, {3.5818447011770077`*^9, 3.5818447400054755`*^9}}], Cell[BoxData["97"], "Output", CellChangeTimes->{3.5818731596629543`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"3.9482045318`", "1.87218934272`", "3.4895680315999997`"}, {"1.1845558458399998`", RowBox[{"-", "0.32975718699999995`"}], "0.29407916011999996`"}, {"1.7419494268`", "2.2170265432`", "1.6434191131599998`"}, {"6.2406311424`", "0.76499887932`", "2.0991076408`"}, {"3.1131346124`", RowBox[{"-", "0.10454342177199999`"}], "5.456772797599999`"}, {"5.4709457426`", RowBox[{"-", "1.7748306592`"}], "0.86562678882`"}, {"2.4230066772`", RowBox[{"-", "2.5790980448`"}], "4.106374598`"}, { RowBox[{"-", "1.58761550438`"}], RowBox[{"-", "1.0727596556799999`"}], "0.37401456992`"}, {"7.3436642086`", "2.6021527019999997`", "0.187390899338`"}, { RowBox[{"-", "3.0451044763999997`"}], "0.090001980202`", RowBox[{"-", "1.7150397285599999`"}]}, { RowBox[{"-", "5.356239374399999`"}], RowBox[{"-", "0.92830900024`"}], RowBox[{"-", "2.622939688`"}]}, {"9.692404653999999`", "3.4438366624`", "0.5460363277`"}, { RowBox[{"-", "2.0998635312`"}], "2.2816551724`", RowBox[{"-", "2.9011073552`"}]}, { RowBox[{"-", "6.647111205`"}], "0.30441596134000004`", RowBox[{"-", "4.644946508`"}]}, { RowBox[{"-", "6.417320523399999`"}], RowBox[{"-", "3.0965050236000002`"}], RowBox[{"-", "1.5147098753`"}]}, { RowBox[{"-", "3.4277739913999996`"}], "3.446860224`", RowBox[{"-", "4.8883432168`"}]}, { RowBox[{"-", "8.944451103199999`"}], RowBox[{"-", "0.6880492366`"}], RowBox[{"-", "5.5289603307999995`"}]}, { RowBox[{"-", "8.7029441204`"}], RowBox[{"-", "4.0682021328`"}], RowBox[{"-", "2.4281089374000002`"}]}, { RowBox[{"-", "9.9722730746`"}], RowBox[{"-", "2.8742732459999996`"}], RowBox[{"-", "4.4204470592`"}]}, {"2.7794090008000003`", RowBox[{"-", "2.3636692808`"}], "1.33066946016`"}, { RowBox[{"-", "5.644800534599999`"}], "2.4439826358000003`", RowBox[{"-", "5.7479795742`"}]}, { RowBox[{"-", "2.6168925647999997`"}], RowBox[{"-", "0.23878577735999998`"}], "2.7036309881999996`"}, {"2.8445439511567754`", "2.044691255144647`", "2.5660475453870726`"}, {"1.4633855497979362`", "0.9442419722897706`", "0.9690708939623`"}, {"5.0944178371`", "1.31859411102`", "2.7943378361999995`"}, {"3.5304687745136114`", "0.8833476431875975`", "4.473643440821839`"}, {"5.855604341087885`", RowBox[{"-", "0.5055233929596679`"}], "1.4820721779459445`"}, {"2.7680706448000003`", RowBox[{"-", "1.3418207332859997`"}], "4.7815736978`"}, { RowBox[{"-", "0.20152982927000007`"}], RowBox[{"-", "0.7012584213399999`"}], "0.33404686502`"}, {"6.7921476755`", "1.68357579066`", "1.1432492700689998`"}, { RowBox[{"-", "2.316880507672855`"}], RowBox[{"-", "0.4909635772883644`"}], RowBox[{"-", "0.6712586493679087`"}]}, { RowBox[{"-", "4.2006719254`"}], RowBox[{"-", "0.41915351001900003`"}], RowBox[{"-", "2.16898970828`"}]}, {"8.518686692823703`", "3.0232284236777196`", "0.3668132118437239`"}, { RowBox[{"-", "2.572838656989817`"}], "1.1850062708353586`", RowBox[{"-", "2.307628530828307`"}]}, { RowBox[{"-", "6.0016752897`"}], RowBox[{"-", "0.31194651944999996`"}], RowBox[{"-", "3.6339430980000005`"}]}, { RowBox[{"-", "5.886380468234266`"}], RowBox[{"-", "2.01159071960186`"}], RowBox[{"-", "2.0692420130594735`"}]}, { RowBox[{"-", "2.7638187613`"}], "2.8642576982`", RowBox[{"-", "3.8947252860000003`"}]}, { RowBox[{"-", "7.794915572057272`"}], RowBox[{"-", "0.1914427007763193`"}], RowBox[{"-", "5.086620344398283`"}]}, { RowBox[{"-", "7.560132321899999`"}], RowBox[{"-", "3.5823535782`"}], RowBox[{"-", "1.9714094063500003`"}]}, { RowBox[{"-", "9.4583620889`"}], RowBox[{"-", "1.7811612412999998`"}], RowBox[{"-", "4.974703695`"}]}, { RowBox[{"-", "9.337608597500001`"}], RowBox[{"-", "3.4712376893999997`"}], RowBox[{"-", "3.4242779983`"}]}, {"1.9939462952823326`", RowBox[{"-", "1.3619707287967469`"}], "0.8201503449357461`"}, {"4.105728949581225`", RowBox[{"-", "2.0735047817195884`"}], "1.1015084152989651`"}, {"2.6037715534537846`", RowBox[{"-", "2.469834015675231`"}], "2.6985555055471426`"}, { RowBox[{"-", "6.138310246686039`"}], "1.39051990744228`", RowBox[{"-", "5.204876974379824`"}]}, { RowBox[{"-", "4.554233525559612`"}], "2.9373033924465513`", RowBox[{"-", "5.325119931843648`"}]}, { RowBox[{"-", "2.117424733526211`"}], RowBox[{"-", "0.6434806261634012`"}], "1.5731594126814261`"}, {"4.298079910595036`", "3.1492005332013164`", "4.087356659009602`"}, {"1.51525218830062`", RowBox[{"-", "0.13159461968925149`"}], RowBox[{"-", "1.1064588147504786`"}]}, {"2.0918208881151523`", "3.2218378296545764`", "0.6543296409158599`"}, {"0.5618964552909924`", "2.6459180045742055`", "2.3741773916343663`"}, {"7.300830386381007`", "0.521746352051365`", "3.0619624286490588`"}, {"1.9557233348499672`", "0.39146748387963826`", "6.181376775204697`"}, {"4.199557985567636`", RowBox[{"-", "0.3484904085803161`"}], "6.389912993023789`"}, {"6.276982351568762`", RowBox[{"-", "2.8304032774806336`"}], "1.4540185792208282`"}, {"5.695229765225918`", RowBox[{"-", "1.6910499870677638`"}], RowBox[{"-", "0.5671435356219492`"}]}, {"1.0231571618461788`", RowBox[{"-", "2.8673335035605145`"}], "4.366777617266447`"}, {"3.2709868775452358`", RowBox[{"-", "3.6452505445296084`"}], "4.610601057187033`"}, { RowBox[{"-", "1.6768554847152173`"}], RowBox[{"-", "2.5159953759894895`"}], "0.23429894697254`"}, {"6.565852641615356`", "3.036472688521884`", RowBox[{"-", "0.9601194337919028`"}]}, { RowBox[{"-", "3.85412303636011`"}], RowBox[{"-", "0.596154161857334`"}], "2.7796896877658757`"}, {"10.455268328658445`", "2.998663145901505`", "1.6992923313280768`"}, {"10.28297511620462`", "4.3740869628657615`", RowBox[{"-", "0.4004376900608081`"}]}, { RowBox[{"-", "0.8389775856094583`"}], "2.8486261758226448`", RowBox[{"-", "2.454699151355734`"}]}, { RowBox[{"-", "5.7422781909346`"}], RowBox[{"-", "3.7495528150639124`"}], RowBox[{"-", "0.40637780048073346`"}]}, { RowBox[{"-", "2.9012633194972626`"}], "4.65737315610026`", RowBox[{"-", "5.494957368956119`"}]}, { RowBox[{"-", "9.642423088440754`"}], RowBox[{"-", "0.03428259631049724`"}], RowBox[{"-", "6.622418095656846`"}]}, { RowBox[{"-", "9.26583746008169`"}], RowBox[{"-", "5.266896126058477`"}], RowBox[{"-", "1.8308391882616277`"}]}, { RowBox[{"-", "11.229868044555046`"}], RowBox[{"-", "3.4136692101186865`"}], RowBox[{"-", "4.9079806376420345`"}]}, {"6.844635691238142`", "3.677184208137062`", "0.9325605442325737`"}, { RowBox[{"-", "3.7513092424521326`"}], "0.8676162172342943`", RowBox[{"-", "0.7895177532563684`"}]}, { RowBox[{"-", "6.062476463552646`"}], RowBox[{"-", "0.1503142390694051`"}], RowBox[{"-", "1.6977622317807595`"}]}, {"9.193370417886921`", "4.518913830166249`", "1.2911362636379502`"}, { RowBox[{"-", "2.7854918950748675`"}], "3.077988841992855`", RowBox[{"-", "1.9760309079141283`"}]}, { RowBox[{"-", "7.343208715145652`"}], "1.092135509092326`", RowBox[{"-", "3.720313515695543`"}]}, { RowBox[{"-", "7.120839236692076`"}], RowBox[{"-", "2.290610796988615`"}], RowBox[{"-", "0.6116063842413624`"}]}, { RowBox[{"-", "4.1369310499057725`"}], "4.2198681735465104`", RowBox[{"-", "3.9612213389924826`"}]}, { RowBox[{"-", "9.641011942810913`"}], "0.10553257063770155`", RowBox[{"-", "4.609704701531468`"}]}, { RowBox[{"-", "9.405418784608834`"}], RowBox[{"-", "3.280346441905804`"}], RowBox[{"-", "1.5084281468697658`"}]}, { RowBox[{"-", "10.66877395978059`"}], RowBox[{"-", "2.0806950230725487`"}], RowBox[{"-", "3.501142908748168`"}]}, { RowBox[{"-", "6.356331250953822`"}], "3.242869463442873`", RowBox[{"-", "4.844927041783573`"}]}, {"7.842692725961859`", "1.5271211958629378`", RowBox[{"-", "0.5577787455565737`"}]}, { RowBox[{"-", "2.3388997103478673`"}], RowBox[{"-", "0.6876122568302944`"}], RowBox[{"-", "2.640561703863631`"}]}, { RowBox[{"-", "4.650002285247353`"}], RowBox[{"-", "1.7063037614105947`"}], RowBox[{"-", "3.5481171442192405`"}]}, {"10.191438890113076`", "2.3687594946337507`", RowBox[{"-", "0.19906360823795013`"}]}, { RowBox[{"-", "1.4142351673251325`"}], "1.4853215028071454`", RowBox[{"-", "3.8261838024858723`"}]}, { RowBox[{"-", "5.951013694854348`"}], RowBox[{"-", "0.48330358641232507`"}], RowBox[{"-", "5.569579500304458`"}]}, { RowBox[{"-", "5.713801810107923`"}], RowBox[{"-", "3.9023992502113853`"}], RowBox[{"-", "2.4178133663586374`"}]}, { RowBox[{"-", "2.7186169328942262`"}], "2.6738522744534885`", RowBox[{"-", "5.815465094607518`"}]}, { RowBox[{"-", "8.247890263589085`"}], RowBox[{"-", "1.4816310438377016`"}], RowBox[{"-", "6.448215960068531`"}]}, { RowBox[{"-", "8.000469456191167`"}], RowBox[{"-", "4.856057823694195`"}], RowBox[{"-", "3.347789727930235`"}]}, { RowBox[{"-", "9.27577218941941`"}], RowBox[{"-", "3.667851468927451`"}], RowBox[{"-", "5.339751209651832`"}]}, { RowBox[{"-", "4.933269818246176`"}], "1.6450958081571287`", RowBox[{"-", "6.651032106616428`"}]}, { RowBox[{"-", "1.9802817545650313`"}], RowBox[{"-", "0.8716781245883667`"}], "3.648079479708004`"}, { RowBox[{"-", "2.5987621983847156`"}], "1.063906928775379`", "2.681905353679227`"}, { RowBox[{"-", "6.344174788811662`"}], "3.080366144134434`", RowBox[{"-", "6.862006311431131`"}]}, {"2.436493947559417`", RowBox[{"-", "3.632976010938786`"}], "0.6931480256298421`"} }, 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.5818731596629543`*^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}, {3.581833392214779*^9, 3.5818333950383835`*^9}, 3.5818342233218384`*^9}], Cell[BoxData["97"], "Output", CellChangeTimes->{3.581873159725354*^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", ",", RowBox[{"nj", "+", "1"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"nj", "+", "1"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv6", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5", ",", "tv6"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tv", "]"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}, {3.57184030784344*^9, 3.5718403245666695`*^9}, {3.5723553440956435`*^9, 3.5723553601792717`*^9}, {3.5723567913257856`*^9, 3.572356801543803*^9}, { 3.5723587125159597`*^9, 3.572358735884801*^9}, {3.5726205042656164`*^9, 3.5726205078692226`*^9}, {3.5726209578956137`*^9, 3.5726209632776227`*^9}, {3.5726266468256054`*^9, 3.5726266628780336`*^9}, {3.57284236531176*^9, 3.57284238273699*^9}, { 3.572842728620798*^9, 3.572842734502008*^9}, 3.5731240921601086`*^9, { 3.573206599320009*^9, 3.573206611737631*^9}, {3.5740760016059575`*^9, 3.574076072196081*^9}, {3.574076952755228*^9, 3.574076991786496*^9}, { 3.574077057057011*^9, 3.5740770577434125`*^9}, {3.574080286699484*^9, 3.5740802892578883`*^9}, {3.5744917474371896`*^9, 3.5744917512747965`*^9}, {3.574491794596072*^9, 3.5744917963432755`*^9}, { 3.574492188761965*^9, 3.574492189822767*^9}, {3.5818300933237844`*^9, 3.581830122495836*^9}, 3.581832132980567*^9, {3.5818447887243614`*^9, 3.581844789285962*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"3.9482045318`", "1.87218934272`", "3.4895680315999997`"}, {"1.1845558458399998`", RowBox[{"-", "0.32975718699999995`"}], "0.29407916011999996`"}, {"1.7419494268`", "2.2170265432`", "1.6434191131599998`"}, {"6.2406311424`", "0.76499887932`", "2.0991076408`"}, {"3.1131346124`", RowBox[{"-", "0.10454342177199999`"}], "5.456772797599999`"}, {"5.4709457426`", RowBox[{"-", "1.7748306592`"}], "0.86562678882`"}, {"2.4230066772`", RowBox[{"-", "2.5790980448`"}], "4.106374598`"}, { RowBox[{"-", "1.58761550438`"}], RowBox[{"-", "1.0727596556799999`"}], "0.37401456992`"}, {"7.3436642086`", "2.6021527019999997`", "0.187390899338`"}, { RowBox[{"-", "3.0451044763999997`"}], "0.090001980202`", RowBox[{"-", "1.7150397285599999`"}]}, { RowBox[{"-", "5.356239374399999`"}], RowBox[{"-", "0.92830900024`"}], RowBox[{"-", "2.622939688`"}]}, {"9.692404653999999`", "3.4438366624`", "0.5460363277`"}, { RowBox[{"-", "2.0998635312`"}], "2.2816551724`", RowBox[{"-", "2.9011073552`"}]}, { RowBox[{"-", "6.647111205`"}], "0.30441596134000004`", RowBox[{"-", "4.644946508`"}]}, { RowBox[{"-", "6.417320523399999`"}], RowBox[{"-", "3.0965050236000002`"}], RowBox[{"-", "1.5147098753`"}]}, { RowBox[{"-", "3.4277739913999996`"}], "3.446860224`", RowBox[{"-", "4.8883432168`"}]}, { RowBox[{"-", "8.944451103199999`"}], RowBox[{"-", "0.6880492366`"}], RowBox[{"-", "5.5289603307999995`"}]}, { RowBox[{"-", "8.7029441204`"}], RowBox[{"-", "4.0682021328`"}], RowBox[{"-", "2.4281089374000002`"}]}, { RowBox[{"-", "9.9722730746`"}], RowBox[{"-", "2.8742732459999996`"}], RowBox[{"-", "4.4204470592`"}]}, {"2.7794090008000003`", RowBox[{"-", "2.3636692808`"}], "1.33066946016`"}, { RowBox[{"-", "5.644800534599999`"}], "2.4439826358000003`", RowBox[{"-", "5.7479795742`"}]}, { RowBox[{"-", "2.6168925647999997`"}], RowBox[{"-", "0.23878577735999998`"}], "2.7036309881999996`"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"4.435186922`", "3.6496278238`", "4.3216143894`"}, {"1.6448553049199999`", RowBox[{"-", "0.053932780039999996`"}], RowBox[{"-", "1.6553432842199998`"}]}, {"2.228931817`", "3.6156127558`", "0.26671592764`"}, {"0.099460058832`", "2.8139909866`", "2.6605452354`"}, {"7.7163181758`", "0.4264166719`", "3.4393013199999998`"}, {"1.50218099192`", "0.58583395726`", "6.4653195638`"}, {"4.6252933575999995`", RowBox[{"-", "0.44408560999999996`"}], "6.7555814774`"}, {"6.5928760688`", RowBox[{"-", "3.2440926241999994`"}], "1.68461513996`"}, {"5.783128477799999`", RowBox[{"-", "1.6582156677399997`"}], RowBox[{"-", "1.12865775076`"}]}, {"0.47458578764`", RowBox[{"-", "2.9802868746`"}], "4.4688240448`"}, {"3.6033295368`", RowBox[{"-", "4.0630998726`"}], "4.8082188344`"}, { RowBox[{"-", "1.7118271943599999`"}], RowBox[{"-", "3.0815761881999997`"}], "0.17954664671200002`"}, {"6.2610401831999996`", "3.2066760494`", RowBox[{"-", "1.40981118504`"}]}, { RowBox[{"-", "4.356763293`"}], RowBox[{"-", "0.7413395097999999`"}], "2.8105894797999995`"}, {"10.754241693400001`", "2.8241955069999998`", "2.1512640784`"}, {"10.514435463999998`", "4.738676917599999`", RowBox[{"-", "0.7713861531999999`"}]}, { RowBox[{"-", "0.34487499499999996`"}], "3.0708047499999997`", RowBox[{"-", "2.2797654464`"}]}, { RowBox[{"-", "5.4777487562`"}], RowBox[{"-", "4.0054632296`"}], "0.027945268087999995`"}, { RowBox[{"-", "2.6949382486`"}], "5.1317399256`", RowBox[{"-", "5.7326727936`"}]}, { RowBox[{"-", "9.9159592398`"}], "0.22192942144`", RowBox[{"-", "7.0509456512`"}]}, { RowBox[{"-", "9.48642452`"}], RowBox[{"-", "5.7366412182`"}], RowBox[{"-", "1.59678067548`"}]}, { RowBox[{"-", "11.7227262684`"}], RowBox[{"-", "3.6250613858`"}], RowBox[{"-", "5.0990476658`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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.5818731597409544`*^9}], Cell[BoxData["97"], "Output", CellChangeTimes->{3.5818731597409544`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{"nj", "+", "1"}], ")"}]}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"lw", "=", RowBox[{"Length", "[", "ow", "]"}]}], "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{"nj", "+", "1"}], ")"}]}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"lc", "=", RowBox[{"Length", "[", "cnv", "]"}]}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, {3.5721935303764954`*^9, 3.572193534214102*^9}, { 3.5726206642250977`*^9, 3.5726206651142993`*^9}, {3.572620782223705*^9, 3.572620782738506*^9}, {3.572620924963956*^9, 3.5726209465699935`*^9}, { 3.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.5732066718757367`*^9, 3.5732067228410263`*^9}, {3.573206842321636*^9, 3.5732068742548923`*^9}, { 3.57407070801746*^9, 3.574070708969061*^9}, 3.574070764099558*^9, { 3.574070877886158*^9, 3.5740708814273643`*^9}, {3.5740762086807213`*^9, 3.574076354884178*^9}, {3.574076421558695*^9, 3.5740764298579097`*^9}, { 3.5740771670372047`*^9, 3.5740771716548123`*^9}, 3.574077238048529*^9, { 3.57407728960662*^9, 3.574077313271861*^9}, 3.574077347825922*^9, { 3.5740802177941628`*^9, 3.5740802188549643`*^9}, {3.574080327977156*^9, 3.5740803298647594`*^9}, {3.5740876878174367`*^9, 3.5740877018106613`*^9}, {3.574491842144956*^9, 3.5744918529089746`*^9}, { 3.574492105676219*^9, 3.5744921066122203`*^9}, {3.574492269242506*^9, 3.5744922699601073`*^9}, {3.5744923474766436`*^9, 3.5744923633574715`*^9}, {3.574492409455552*^9, 3.5744924326995935`*^9}, 3.581830146504278*^9, {3.5818302134595957`*^9, 3.58183024448805*^9}, { 3.5818304495660105`*^9, 3.581830461437631*^9}, {3.581841028150556*^9, 3.5818410303969603`*^9}, {3.5818447649967194`*^9, 3.5818447738887353`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}]}], "}"}]], "Output", CellChangeTimes->{3.581873159756554*^9}], Cell[BoxData["97"], "Output", CellChangeTimes->{3.581873159756554*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.581873159756554*^9}], Cell[BoxData["97"], "Output", CellChangeTimes->{3.581873159756554*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"echarg", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "lw"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"pcharg", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"cnv", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "lc"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.574087724274701*^9, 3.5740878100592513`*^9}, { 3.5740878506505227`*^9, 3.5740878682629538`*^9}, {3.574087937043474*^9, 3.574087937995076*^9}}], Cell[BoxData[ RowBox[{"-", "158.`"}]], "Output", CellChangeTimes->{3.581873159772154*^9}], Cell[BoxData["158.`"], "Output", CellChangeTimes->{3.581873159772154*^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["97"], "Output", CellChangeTimes->{3.5818731598501544`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "0.0"}], ";", " ", RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "\[LessEqual]", "bt"}], ",", 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}, {3.581846907745283*^9, 3.581846916138098*^9}}], Cell[BoxData["1995.8850700622093`"], "Output", CellChangeTimes->{3.5818731598813543`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{"3.0", "/", RowBox[{"(", RowBox[{"rpo", "+", "rpi"}], ")"}]}]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"11", "*", RowBox[{"1", "/", "4"}], " ", "C"}], " ", "+", " ", RowBox[{ RowBox[{"1", "/", "4"}], " ", "N"}]}], " ", "*)"}], "\[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.5732072289995155`*^9, 3.5732072309183187`*^9}, {3.5732072939268293`*^9, 3.573207467867135*^9}, {3.574088506132474*^9, 3.57408851499329*^9}, { 3.5740885486269484`*^9, 3.5740885498593507`*^9}, 3.5740886113234587`*^9, { 3.574502690104803*^9, 3.5745027760297537`*^9}, {3.581841791381897*^9, 3.5818418385563793`*^9}, {3.581846301091418*^9, 3.581846309063032*^9}}], Cell[BoxData["1994.8136414907806`"], "Output", CellChangeTimes->{3.5818731598969545`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.3686"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "\[LessEqual]", "bc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sw", "=", "0.3686"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "\[LessEqual]", "nb"}], ",", 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]", "2"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "\[LessEqual]", "2"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rln"}]}]}]}]}], "]"}], "\[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.5740886250202827`*^9, 3.574088677311575*^9}, { 3.574089214342518*^9, 3.5740892207541294`*^9}, {3.574089308987884*^9, 3.5740893677999873`*^9}, {3.574227207798621*^9, 3.5742272123888836`*^9}, { 3.574341156185933*^9, 3.574341159477539*^9}, {3.5743412228292503`*^9, 3.57434125707131*^9}, {3.5743412876941643`*^9, 3.574341318051818*^9}, { 3.5745028253570404`*^9, 3.5745028335782547`*^9}, {3.5818462519201317`*^9, 3.581846257723342*^9}, {3.5818463776407523`*^9, 3.5818464364528556`*^9}, { 3.581848022850842*^9, 3.581848080399343*^9}, {3.5818481320042334`*^9, 3.581848134890239*^9}, {3.581848170707902*^9, 3.581848224949197*^9}}], Cell[BoxData["2142.0726460189244`"], "Output", CellChangeTimes->{3.5818731598969545`*^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[{"-", "4074.954896771753`"}]], "Output", CellChangeTimes->{3.5818731599125547`*^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", "\[LessEqual]", "bc"}], ",", 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, { 3.581846846047175*^9, 3.581846856499193*^9}}], Cell[BoxData[ RowBox[{"-", "5739.240904656083`"}]], "Output", CellChangeTimes->{3.5818731599281545`*^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", "\[LessEqual]", "nb"}], ",", 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}, { 3.5818468618032026`*^9, 3.581846869806017*^9}}], Cell[BoxData[ RowBox[{"-", "5790.423526620296`"}]], "Output", CellChangeTimes->{3.581873159943754*^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", "\[LessEqual]", "n"}], ",", 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, {3.581846875390826*^9, 3.5818468831752405`*^9}}], Cell[BoxData["1801.2797304475941`"], "Output", CellChangeTimes->{3.5818731599593544`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ratio", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", RowBox[{"2", "*", "Vnn"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"Vee", "-", "Vnn"}], ")"}]}]}]], "Input"], Cell[BoxData["6.419922380303041`"], "Output", CellChangeTimes->{3.5818731599749546`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.45", "*", RowBox[{"(", RowBox[{"nj", "+", "1"}], ")"}], "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"rpi", "^", "2"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tlo", " ", "=", " ", RowBox[{"2.5", "*", "2", "*", "1.125", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rlo", "^", "2"}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{ "lp", " ", "kin", " ", "e", " ", "of", " ", "1", " ", "O", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tln", " ", "=", RowBox[{"2.5", "*", "2", "*", "1.125", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rln", "^", "2"}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{ "lp", " ", "kin", " ", "e", " ", "of", " ", "2", " ", "N", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", "=", RowBox[{ "Ttot", "+", "Tpi", "+", "Tlo", "+", "Tln"}]}], "\[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.5732069154233646`*^9, 3.5732069210393744`*^9}, {3.5732069747034683`*^9, 3.57320697542107*^9}, { 3.573207068038432*^9, 3.5732070690212345`*^9}, {3.574088216299565*^9, 3.5740882530844297`*^9}, {3.5740883007893133`*^9, 3.5740884434827642`*^9}, {3.574492507688925*^9, 3.5744925547854075`*^9}, { 3.5745029153379984`*^9, 3.574502916835601*^9}, {3.574502968159691*^9, 3.5745030155993743`*^9}, {3.5745030768762817`*^9, 3.574503080713889*^9}, { 3.581841686674513*^9, 3.5818417371718016`*^9}, {3.581845316005287*^9, 3.5818453173156896`*^9}, {3.5818461745595956`*^9, 3.581846179442404*^9}, { 3.581846777625455*^9, 3.5818467787486567`*^9}, {3.58184699118983*^9, 3.5818469990678434`*^9}, {3.581847819800885*^9, 3.581847823591692*^9}, 3.5818481023641815`*^9}], Cell[BoxData["2142.0726460189244`"], "Output", CellChangeTimes->{3.5818731600061545`*^9}], Cell[BoxData["1801.2797304475941`"], "Output", CellChangeTimes->{3.5818731600061545`*^9}], Cell[BoxData[ RowBox[{"-", "5790.423526620296`"}]], "Output", CellChangeTimes->{3.5818731600061545`*^9}], Cell[BoxData["16.875000000000007`"], "Output", CellChangeTimes->{3.5818731600061545`*^9}], Cell[BoxData["4.444444444444445`"], "Output", CellChangeTimes->{3.5818731600061545`*^9}], Cell[BoxData["3.6231510657539117`"], "Output", CellChangeTimes->{3.5818731600061545`*^9}], Cell[BoxData[ RowBox[{"-", "1847.0711501537774`"}]], "Output", CellChangeTimes->{3.5818731600061545`*^9}], Cell[BoxData["923.5328718249466`"], "Output", CellChangeTimes->{3.5818731600061545`*^9}], Cell[BoxData["2.000005854154247`"], "Output", CellChangeTimes->{3.5818731600061545`*^9}], Cell[BoxData[ RowBox[{"-", "923.5382783288308`"}]], "Output", CellChangeTimes->{3.5818731600061545`*^9}] }, Open ]] }, WindowSize->{982, 937}, WindowMargins->{{Automatic, 228}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 2021, 33, 72, "Input"], Cell[CellGroupData[{ Cell[2603, 57, 1181, 22, 72, "Input"], Cell[3787, 81, 5545, 95, 332, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9369, 181, 787, 13, 31, "Input"], Cell[10159, 196, 930, 14, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11126, 215, 955, 14, 31, "Input"], Cell[12084, 231, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12192, 237, 1560, 29, 31, "Input"], Cell[13755, 268, 930, 14, 52, "Output"] }, Open ]], Cell[14700, 285, 1419, 23, 31, "Input"], Cell[16122, 310, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[17739, 343, 1234, 18, 31, "Input"], Cell[18976, 363, 3080, 91, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22093, 459, 697, 14, 31, "Input"], Cell[22793, 475, 599, 10, 52, "Output"] }, Open ]], Cell[23407, 488, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[24340, 516, 5862, 125, 172, "Input"], Cell[30205, 643, 768, 12, 72, "Output"], Cell[30976, 657, 750, 12, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31763, 674, 568, 13, 31, "Input"], Cell[32334, 689, 932, 14, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33303, 708, 499, 8, 31, "Input"], Cell[33805, 718, 88, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33930, 724, 1401, 38, 92, "Input"], Cell[35334, 764, 656, 11, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36027, 780, 827, 23, 92, "Input"], Cell[36857, 805, 73, 1, 31, "Output"], Cell[36933, 808, 73, 1, 31, "Output"] }, Open ]], Cell[37021, 812, 1824, 35, 72, "Input"], Cell[CellGroupData[{ Cell[38870, 851, 4977, 123, 232, "Input"], Cell[43850, 976, 25378, 438, 368, 10191, 187, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[69265, 1419, 1277, 18, 31, "Input"], Cell[70545, 1439, 42931, 975, 295, 34637, 837, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[113513, 2419, 2198, 43, 72, "Input"], Cell[115714, 2464, 47980, 680, 701, "Output"] }, Open ]], Cell[163709, 3147, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[165065, 3187, 5129, 92, 72, "Input"], Cell[170197, 3281, 13582, 206, 701, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[183816, 3492, 2570, 53, 132, "Input"], Cell[186389, 3547, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[186497, 3553, 2598, 53, 92, "Input"], Cell[189098, 3608, 296, 6, 31, "Output"] }, Open ]], Cell[189409, 3617, 10233, 208, 232, "Input"], Cell[CellGroupData[{ Cell[199667, 3829, 1990, 42, 72, "Input"], Cell[201660, 3873, 392, 8, 31, "Output"], Cell[202055, 3883, 143, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[202235, 3891, 623, 15, 52, "Input"], Cell[202861, 3908, 355, 7, 31, "Output"], Cell[203219, 3917, 143, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[203399, 3925, 2789, 54, 72, "Input"], Cell[206191, 3981, 706, 12, 72, "Output"], Cell[206900, 3995, 147, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[207084, 4003, 3698, 81, 132, "Input"], Cell[210785, 4086, 827, 13, 92, "Output"] }, Open ]], Cell[211627, 4102, 2072, 49, 112, "Input"], Cell[213702, 4153, 561, 12, 52, "Input"], Cell[214266, 4167, 2148, 49, 92, "Input"], Cell[216417, 4218, 2452, 56, 112, "Input"], Cell[218872, 4276, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[220656, 4321, 923, 20, 31, "Input"], Cell[221582, 4343, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[221706, 4349, 711, 18, 31, "Input"], Cell[222420, 4369, 86, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[222543, 4375, 507, 10, 31, "Input"], Cell[223053, 4387, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[223177, 4393, 823, 23, 31, "Input"], Cell[224003, 4418, 88, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[224128, 4424, 204, 4, 31, "Input"], Cell[224335, 4430, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[224459, 4436, 491, 14, 31, "Input"], Cell[224953, 4452, 5697, 128, 686, "Output"] }, Open ]], Cell[230665, 4583, 1975, 34, 72, "Input"], Cell[CellGroupData[{ Cell[232665, 4621, 4565, 108, 212, "Input"], Cell[237233, 4731, 222, 5, 31, "Output"], Cell[237458, 4738, 71, 1, 31, "Output"], Cell[237532, 4741, 4340, 150, 686, "Output"] }, Open ]], Cell[241887, 4894, 10808, 194, 172, "Input"], Cell[252698, 5090, 11008, 295, 1312, "Input"], Cell[263709, 5387, 3676, 74, 52, "Input"], Cell[267388, 5463, 2920, 44, 72, "Input"], Cell[270311, 5509, 12946, 319, 1292, "Input"], Cell[283260, 5830, 3085, 43, 49, "Text"], Cell[286348, 5875, 6010, 117, 292, "Input"], Cell[292361, 5994, 22125, 545, 1532, "Input"], Cell[CellGroupData[{ Cell[314511, 6543, 4775, 77, 92, "Input"], Cell[319289, 6622, 7642, 140, 170, "Output"] }, Open ]], Cell[326946, 6765, 5305, 97, 51, "Input"], Cell[332254, 6864, 5837, 107, 232, "Input"], Cell[338094, 6973, 20707, 512, 1312, "Input"], Cell[CellGroupData[{ Cell[358826, 7489, 4835, 77, 72, "Input"], Cell[363664, 7568, 6995, 126, 170, "Output"] }, Open ]], Cell[370674, 7697, 1633, 42, 112, "Input"], Cell[372310, 7741, 782, 12, 31, "Input"], Cell[373095, 7755, 3175, 60, 92, "Input"], Cell[CellGroupData[{ Cell[376295, 7819, 939, 17, 72, "Input"], Cell[377237, 7838, 4227, 98, 212, "Output"], Cell[381467, 7938, 71, 1, 31, "Output"], Cell[381541, 7941, 73, 1, 31, "Output"] }, Open ]], Cell[381629, 7945, 10201, 233, 192, "Input"], Cell[391833, 8180, 6427, 103, 92, "Input"], Cell[398263, 8285, 10215, 234, 192, "Input"], Cell[408481, 8521, 5925, 93, 31, "Input"], Cell[414409, 8616, 12653, 228, 132, "Input"], Cell[427065, 8846, 12810, 228, 152, "Input"], Cell[CellGroupData[{ Cell[439900, 9078, 9850, 141, 72, "Input"], Cell[449753, 9221, 104866, 1864, 375, 26225, 573, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[554656, 11090, 898, 23, 72, "Input"], Cell[555557, 11115, 82601, 1465, 407, 19702, 432, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[638195, 12585, 9646, 136, 72, "Input"], Cell[647844, 12723, 41689, 736, 368, 18005, 346, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[689570, 13464, 6020, 140, 232, "Input"], Cell[695593, 13606, 73, 1, 31, "Output"], Cell[695669, 13609, 11170, 278, 1481, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[706876, 13892, 2575, 48, 92, "Input"], Cell[709454, 13942, 71, 1, 31, "Output"] }, Open ]], Cell[709540, 13946, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[711406, 13979, 5175, 112, 192, "Input"], Cell[716584, 14093, 5994, 175, 1481, "Output"], Cell[722581, 14270, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[722691, 14276, 6622, 123, 112, "Input"], Cell[729316, 14401, 3126, 100, 112, "Output"], Cell[732445, 14503, 71, 1, 31, "Output"], Cell[732519, 14506, 1326, 20, 92, "Output"], Cell[733848, 14528, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[733956, 14534, 632, 18, 52, "Input"], Cell[734591, 14554, 91, 2, 31, "Output"], Cell[734685, 14558, 74, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[734796, 14564, 4670, 80, 92, "Input"], Cell[739469, 14646, 73, 1, 31, "Output"] }, Open ]], Cell[739557, 14650, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[741445, 14681, 2995, 56, 112, "Input"], Cell[744443, 14739, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[744570, 14745, 1338, 29, 92, "Input"], Cell[745911, 14776, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[746038, 14782, 3976, 85, 152, "Input"], Cell[750017, 14869, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[750144, 14875, 499, 15, 52, "Input"], Cell[750646, 14892, 106, 2, 31, "Output"] }, Open ]], Cell[750767, 14897, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[752173, 14922, 1745, 32, 52, "Input"], Cell[753921, 14956, 106, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[754064, 14963, 1450, 43, 72, "Input"], Cell[755517, 15008, 104, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[755658, 15015, 2584, 50, 92, "Input"], Cell[758245, 15067, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[758372, 15073, 230, 8, 31, "Input"], Cell[758605, 15083, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[758731, 15089, 3535, 71, 232, "Input"], Cell[762269, 15162, 90, 1, 31, "Output"], Cell[762362, 15165, 90, 1, 31, "Output"], Cell[762455, 15168, 106, 2, 31, "Output"], Cell[762564, 15172, 90, 1, 31, "Output"], Cell[762657, 15175, 89, 1, 31, "Output"], Cell[762749, 15178, 90, 1, 31, "Output"], Cell[762842, 15181, 107, 2, 31, "Output"], Cell[762952, 15185, 89, 1, 31, "Output"], Cell[763044, 15188, 89, 1, 31, "Output"], Cell[763136, 15191, 106, 2, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)