(* 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[ 260088, 5389] NotebookOptionsPosition[ 254272, 5202] NotebookOutlinePosition[ 254806, 5223] CellTagsIndexPosition[ 254763, 5220] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "ChemicalData", " ", "source"}], ",", " ", RowBox[{"ES", " ", "February", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "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.569736991045874*^9}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGJmIH56Qen2zzZnhyMb9fIWC9oc2Bs0TbGv1fdAGgi0 OR84nLIqIUTIxuF5j8Zb3jZfhy9/r1S8fJXqkMmQ38iy19mh9sLmyK9LAw5A xQ9kKOVUVO11PrDtM1BgaYCDrqL8l5w4L4dls48obDBLPKB+qG15+CW3A0vu 7+Obo2x4oObqqZb4VYoHZs0EAtXkA0Ii9sfuxHodEIiw3HLCLNFhS+TXnbcu uTkc/qoR069k6HDufosTyxpFB8UNRRkTVZMdMia+rbHnzXVY9I55wq0jP/aL rHN/WCWTfAAk/dYkxaFd7Oa574uTHJbuPSiu9j/4wL75Uvp3P+Q4sB7tNyy3 NXE4E+t9gr3XGmbOgT3r4jdIb/th75cEdIFMssNkCZYwPtOUA7JRKdb3Fycd COidnif0P9jBDeTBDzkHJvJXma22MzmgFsy6eFKX9QHOnwvSN39yc7hX2NX3 ZEfIgSIg9Unb64AayN+vVB0c+bxmZBYbHfDS+6/4ty3qgA0owD+5HVixxM9B eGeIg9/nvuASHS8HjuuLC2xfqR4IzfrmoF1i5BB1ec9jkfYoB5D3RGoyHb48 eLfm7jcjB1B0leZHHwjaIdf6mj/VYdE1k/cWk8MdBI/v2tEbFHQA6Pvgx7mZ Dm8emUkduG3rIPLJ8Xxaq/EBqDkHPqm8nHXyu9EBzZj+Q1/zoh1cunOe/+ZP PbA9qf6m7eTwA80HTi10DQpyAPs/N/OAgdZK4Qt3bA/csK2MWNFq7AAAVG0d 6A== "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[5, 24.], SphereBox[6, 24.], SphereBox[7, 24.], SphereBox[8, 24.], SphereBox[9, 24.], SphereBox[10, 24.], SphereBox[11, 24.], SphereBox[12, 24.], SphereBox[13, 24.], SphereBox[14, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[1, 34.], SphereBox[2, 34.], SphereBox[3, 34.], SphereBox[4, 34.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{15, 5}, 15.], CylinderBox[{16, 6}, 15.], CylinderBox[{17, 7}, 15.], CylinderBox[{18, 8}, 15.], CylinderBox[{19, 9}, 15.], CylinderBox[{20, 10}, 15.], CylinderBox[{21, 11}, 15.], CylinderBox[{22, 12}, 15.], CylinderBox[{23, 13}, 15.], CylinderBox[{24, 14}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{1, 2}, 15.], CylinderBox[{1, 3}, 15.], CylinderBox[{1, 15}, 15.], CylinderBox[{1, 16}, 15.], CylinderBox[{2, 4}, 15.], CylinderBox[{2, 17}, 15.], CylinderBox[{2, 18}, 15.], CylinderBox[{3, 19}, 15.], CylinderBox[{3, 20}, 15.], CylinderBox[{3, 21}, 15.], CylinderBox[{4, 22}, 15.], CylinderBox[{4, 23}, 15.], CylinderBox[{4, 24}, 15.]}}]}, Boxed->False, ImageSize->175.42451257407296`, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.5697370101247077`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t1", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "t1", "]"}]}], "Input", CellChangeTimes->{{3.567862912170579*^9, 3.567862949329844*^9}, { 3.5678630095303497`*^9, 3.5678630107471523`*^9}, {3.5679573013548217`*^9, 3.5679573132576427`*^9}, 3.568114367533684*^9, {3.5682782383334675`*^9, 3.5682782435438766`*^9}, {3.568381606879155*^9, 3.5683816154123707`*^9}, 3.5688204675481253`*^9, {3.5688215945097046`*^9, 3.568821600578115*^9}, 3.568873215924739*^9, 3.5689108676002645`*^9, 3.5689997098393545`*^9, 3.5689998170271425`*^9, 3.5689998869308653`*^9, 3.5691460425981283`*^9, { 3.5692345679268913`*^9, 3.5692345778017087`*^9}, {3.5692346191261816`*^9, 3.569234623525389*^9}, {3.5692348865282516`*^9, 3.5692349162463036`*^9}, { 3.569234950394764*^9, 3.569234972609203*^9}, 3.569235038176118*^9, { 3.5692351317918825`*^9, 3.5692352122724237`*^9}, {3.5692354169603834`*^9, 3.5692354469124355`*^9}, {3.569237150310628*^9, 3.5692371574866405`*^9}, 3.569237204505123*^9, 3.5692374658211823`*^9, 3.5692377287596436`*^9, { 3.5692377715661187`*^9, 3.569237804872177*^9}, 3.56923802261736*^9, { 3.5692382720773983`*^9, 3.569238274901003*^9}, {3.5693394646825705`*^9, 3.56933951020345*^9}, 3.5693403424025126`*^9, 3.5693404501831017`*^9, 3.569340738003607*^9, 3.569340852819809*^9, {3.569341165475558*^9, 3.569341165491158*^9}, 3.5693414971477404`*^9, {3.5693417327081537`*^9, 3.5693417367797613`*^9}, 3.5693420227750635`*^9, 3.569342614406103*^9, 3.569343567162176*^9, 3.569343662712344*^9, 3.5693437636133213`*^9, 3.5693440705226603`*^9, 3.569344266225004*^9, 3.569736991045874*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.7380230406699999`", RowBox[{"-", "0.530425301214`"}], RowBox[{"-", "1.115758481084`"}]}, { RowBox[{"-", "0.7379380029999999`"}], "0.530476323816`", "1.115832180398`"}, {"3.31346446566`", "0.746001463842`", RowBox[{"-", "1.2584271249060002`"}]}, { RowBox[{"-", "3.31346446566`"}], RowBox[{"-", "0.7460694939779999`"}], "1.25828350573`"}, {"0.9965980287019999`", RowBox[{"-", "2.60232277734`"}], RowBox[{"-", "0.862533307358`"}]}, { RowBox[{"-", "0.323882028866`"}], RowBox[{"-", "0.1669149622376`"}], RowBox[{"-", "2.8945878005`"}]}, { RowBox[{"-", "0.996514880758`"}], "2.6023794691199997`", "0.862608896398`"}, {"0.32380455010000003`", "0.1669756224422`", "2.89456890324`"}, {"4.39198778564`", RowBox[{"-", "0.0292540923156`"}], RowBox[{"-", "2.8892020813999997`"}]}, {"3.0548176680399997`", "2.8180350002399996`", RowBox[{"-", "1.5115294664419998`"}]}, {"4.37522591602`", "0.382482432126`", "0.520636520534`"}, { RowBox[{"-", "4.39198778564`"}], "0.029186062179599997`", "2.88905090332`"}, { RowBox[{"-", "3.05489325708`"}], RowBox[{"-", "2.81797830846`"}], "1.5115067897299999`"}, { RowBox[{"-", "4.37520701876`"}], RowBox[{"-", "0.382571249248`"}], RowBox[{"-", "0.520455106838`"}]} }, 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.569737010249508*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, {3.567943087867528*^9, 3.567943093733138*^9}, 3.567943185211699*^9, 3.5679432253505697`*^9, 3.5679433277647495`*^9, { 3.5679434430645523`*^9, 3.5679434440941534`*^9}, {3.568278260766307*^9, 3.5682782624355097`*^9}, 3.5688732159403386`*^9, 3.5689108676158648`*^9, 3.5689997098393545`*^9, 3.5689998170271425`*^9, 3.5689998869464655`*^9, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.5692374658211823`*^9, 3.5692380226329603`*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738003607*^9, 3.5693408528354087`*^9, 3.569341165491158*^9, 3.569341497366141*^9, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636133213`*^9, 3.5693440707410603`*^9, 3.569344266240604*^9, 3.569736991045874*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.569737010265108*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", RowBox[{"Length", "[", "u", "]"}]}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.5688068517038097`*^9}, 3.5688069726508226`*^9}], Cell[BoxData["14"], "Output", CellChangeTimes->{3.5697370102807083`*^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[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.569737010296308*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"num", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146829331646`*^9}, 3.5688147231032352`*^9, 3.5688216336189733`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"um", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"un", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146885023746`*^9}, 3.5688147203576307`*^9, 3.56882164316619*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"us", "=", RowBox[{"Sort", "[", "um", "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146945707855`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "14"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.569737010311908*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"num", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.56881016518083*^9, 3.5688102745058217`*^9}, { 3.5688103430679426`*^9, 3.5688103543155622`*^9}, {3.5688124958093233`*^9, 3.568812496386524*^9}, {3.5688126345871673`*^9, 3.568812635491969*^9}, { 3.568812673025635*^9, 3.5688126732128353`*^9}, {3.5688127492161684`*^9, 3.568812848541543*^9}, 3.5688129280080824`*^9, {3.568813062152718*^9, 3.5688131360032477`*^9}, 3.568813172678912*^9, 3.568821701869093*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14"}], "}"}]], "Output", CellChangeTimes->{3.569737010327508*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, { 3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.1", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.22522", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{3.569737010343108*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.569737010343108*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5679472243083935`*^9, 3.567947394894693*^9}, { 3.567947453425996*^9, 3.567947471241227*^9}, {3.5679475415037503`*^9, 3.5679475448733563`*^9}, {3.5679488138107853`*^9, 3.567948820877598*^9}, { 3.568820296244224*^9, 3.5688203477867146`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.569737010358708*^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.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.569737010374308*^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["4"], "Output", CellChangeTimes->{3.569737010389908*^9}], Cell[BoxData["10"], "Output", CellChangeTimes->{3.569737010389908*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, 3.569736991061474*^9}], Cell[BoxData["\<\"CH3CH2CH2CH3\"\>"], "Output", CellChangeTimes->{3.5697370104211082`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Lighter", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5682659184078283`*^9, 3.5682659267694435`*^9}, {3.568265972477524*^9, 3.568266002725977*^9}, 3.568277802649102*^9, {3.568820898608082*^9, 3.568820922429324*^9}, 3.5688217528499823`*^9, 3.568821789307246*^9, { 3.569406212748887*^9, 3.569406252544557*^9}, {3.569492717066082*^9, 3.5694927471737347`*^9}, {3.5694931324008117`*^9, 3.5694931369404197`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5681199008322024`*^9, 3.568119920691037*^9}, {3.5681199536070952`*^9, 3.568119958521104*^9}, {3.568120000641178*^9, 3.568120067206495*^9}, { 3.5681211528280015`*^9, 3.5681211643408213`*^9}, 3.5681213201694956`*^9, { 3.568121503313817*^9, 3.568121508961027*^9}, {3.568266015439999*^9, 3.5682660461096525`*^9}, 3.568277806081108*^9, {3.568381589141924*^9, 3.568381589391525*^9}, 3.5688217602599955`*^9, {3.568821800305266*^9, 3.568821801397268*^9}, 3.5693901242572327`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "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.569736991061474*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {286.6, -25.}], LineBox[{{303.9208810206263, -15.000645987399642`}, {329.905, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {373.21, 25.}], LineBox[{{329.905, 0.}, {355.8891189793737, 15.000645987399652`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {286.6, -25.}], LineBox[{{269.27961894742526`, -14.999779992739736`}, {243.3, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {200., 25.}], LineBox[{{243.3, 0.}, {217.3203810525748, 14.999779992739736`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {286.6, -25.}], LineBox[{{273.74402848350627`, -40.32070482605489}, {266.675, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {246.74999999999997`, -72.49}], LineBox[{{266.675, -48.745}, { 259.6059715164937, -57.169295173945116`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {286.6, -25.}], LineBox[{{299.4578643243525, -40.31911632622926}, { 306.53000000000003`, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {326.46000000000004`, -72.49}], LineBox[{{306.53000000000003`, -48.745}, { 313.60213567564756`, -57.17088367377073}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {373.21, 25.}], LineBox[{{390.53038105257474`, 14.999779992739736`}, {416.51, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {459.80999999999995`, -25.}], LineBox[{{416.51, 0.}, {442.4896189474252, -14.999779992739725`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {373.21, 25.}], LineBox[{{386.06597151649373`, 40.32070482605489}, {393.135, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {413.06, 72.49}], LineBox[{{393.135, 48.745}, {400.20402848350625`, 57.1692951739451}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {373.21, 25.}], LineBox[{{360.3521356756475, 40.31911632622926}, {353.28, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {333.34999999999997`, 72.49}], LineBox[{{353.28, 48.745}, {346.20786432435244`, 57.17088367377073}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {200., 25.}], LineBox[{{210.00049938704143`, 42.320219744846895`}, {215.5, 51.845}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {231., 78.69}], LineBox[{{215.5, 51.845}, {220.99950061295857`, 61.3697802551531}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {200., 25.}], LineBox[{{182.6797802551531, 35.000499387041415`}, {173.155, 40.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {146.31, 56.00000000000001}], LineBox[{{173.155, 40.5}, {163.6302197448469, 45.999500612958585`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {200., 25.}], LineBox[{{189.99950061295857`, 7.679780255153105}, { 184.5, -1.8449999999999989`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {169., -28.689999999999998`}], LineBox[{{184.5, -1.8449999999999989`}, { 179.00049938704143`, -11.369780255153103`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {459.80999999999995`, -25.}], LineBox[{{449.8095006129585, -42.320219744846895`}, { 444.30999999999995`, -51.845}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {428.81, -78.69}], LineBox[{{444.30999999999995`, -51.845}, { 438.8104993870414, -61.36978025515309}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {459.80999999999995`, -25.}], LineBox[{{477.13021974484684`, -35.00049938704141}, {486.655, -40.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {513.5, -56.00000000000001}], LineBox[{{486.655, -40.5}, {496.1797802551531, -45.99950061295859}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {459.80999999999995`, -25.}], LineBox[{{469.8104993870414, -7.679780255153105}, {475.30999999999995`, 1.8449999999999989`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.0770769541448646], FontWeight->Plain], {490.81, 28.689999999999998`}], LineBox[{{475.30999999999995`, 1.8449999999999989`}, {480.8095006129586, 11.36978025515312}}]}}}, {}, {}}, ImageSize->{{0., 142.0302016249526}, {0., 73.11756166951619}}, PlotRange->{{123.81, 531.5}, {-108.69, 101.19}}]], "Output", CellChangeTimes->{3.569737010483508*^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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "maTetrx", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", " ", RowBox[{"(", RowBox[{ RowBox[{"sq", "<", "3.0"}], " ", "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{"j", "\[Equal]", "10"}], " ", "&&", " ", RowBox[{"i", "\[Equal]", " ", "17"}]}], ")"}]}], ")"}]}], ",", "sq", ",", "0"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Dij", "]"}]}]}]], "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}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.8781886909715286`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.8779364416254674`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.87805457989909`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.103269636689885`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.1033344695656426`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.1032752261155525`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.103172446127338`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.103250029792444`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"0", "0", "2.1033977125517866`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "0", "2.1034616512826116`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "0", "0", "2.1032441689296015`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"0", "0", "0", "2.1032801137733586`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0"}, {"0", "0", "0", "2.1031736197531177`", "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.5697370105147085`*^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", "<", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5693"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`"}], "}"}]], "Output", CellChangeTimes->{3.5697370105303087`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Gij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, { 3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.569341165522358*^9, 3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Hij", "=", RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Hij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679601758938704`*^9, 3.5679601965327067`*^9}, { 3.567960427147912*^9, 3.567960432217921*^9}, {3.5679605764089737`*^9, 3.5679605968294096`*^9}, {3.5679607389456596`*^9, 3.5679607643581038`*^9}, 3.5681142501278777`*^9, 3.5681218877140923`*^9, 3.569341165537958*^9, 3.5693418217531104`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Kij", "=", RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Kij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679602339571724`*^9, 3.567960257419614*^9}, { 3.567960343406965*^9, 3.567960353500182*^9}, {3.5679604155258913`*^9, 3.567960421422702*^9}, {3.567960854323462*^9, 3.567960874197897*^9}, { 3.5679611596939983`*^9, 3.567961170270817*^9}, {3.5679614000124207`*^9, 3.567961407016833*^9}, {3.5679615066074076`*^9, 3.567961509649413*^9}, 3.5679616124379935`*^9, 3.5679616766477065`*^9, {3.5679617424486217`*^9, 3.5679617456310277`*^9}, 3.567961801276325*^9, {3.5679618582788253`*^9, 3.5679618970760937`*^9}, {3.5679620279135237`*^9, 3.567962030113127*^9}, 3.567962107894864*^9, {3.567962149468937*^9, 3.5679621572533503`*^9}, 3.5679623389156694`*^9, {3.567962645815009*^9, 3.567962648888214*^9}, { 3.567962691647889*^9, 3.567962693020692*^9}, {3.568048161486014*^9, 3.568048162827616*^9}, 3.5680482096900983`*^9, 3.5681142588638926`*^9, 3.568121899632513*^9, 3.5681219958534822`*^9, {3.568277844675576*^9, 3.5682778463603787`*^9}, {3.569341165537958*^9, 3.569341165537958*^9}, { 3.5693418217531104`*^9, 3.5693418217531104`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.5683793122399254`*^9, 3.568379313019926*^9}, { 3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, { 3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 3.569341165537958*^9, 3.5693418217531104`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}, { 3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 3.5693411655535583`*^9, 3.5693418217687106`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tval", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.567963992456174*^9, 3.567964003890994*^9}, { 3.5679640974287586`*^9, 3.5679642038209453`*^9}, {3.56796433180357*^9, 3.567964353487608*^9}, {3.567964403641696*^9, 3.567964453046983*^9}, { 3.5679646160984693`*^9, 3.5679646168316708`*^9}, {3.567964688747797*^9, 3.567964762255126*^9}, {3.568277859480002*^9, 3.568277863598409*^9}, { 3.568379511358675*^9, 3.5683795129030776`*^9}, 3.5688214977895346`*^9, { 3.56882774467134*^9, 3.56882781892747*^9}}], Cell[BoxData["18.569497914526053`"], "Output", CellChangeTimes->{3.569737010561508*^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["138.4083044982699`"], "Output", CellChangeTimes->{3.5697370105771084`*^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["156.97780241279594`"], "Output", CellChangeTimes->{3.5697370105927086`*^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["13.754696296637281`"], "Output", CellChangeTimes->{3.5697370106083083`*^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["4.814801617888772`"], "Output", CellChangeTimes->{3.5697370106395082`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9}], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Pij", "]"}], ";"}], "*)"}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, { 3.5681087021497335`*^9, 3.5681087223049684`*^9}, 3.568114284401138*^9, 3.5681220092695055`*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"sigma", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, { 3.5681087021497335`*^9, 3.5681087223049684`*^9}, {3.5681133837179556`*^9, 3.5681133888191648`*^9}}], Cell[BoxData[ RowBox[{"(*", 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[{"Print", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", RowBox[{"i", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"j", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "*)"}]], "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}], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"nb", "=", RowBox[{"Length", "[", "a", "]"}]}], "\[IndentingNewLine]", RowBox[{"cw", "=", RowBox[{"nb", "-", "bh"}]}]}], "Input", CellChangeTimes->{{3.5681343270045934`*^9, 3.568134331481801*^9}, 3.5681343823222904`*^9, {3.5681345934218616`*^9, 3.5681345986322703`*^9}, { 3.568134635479535*^9, 3.5681346521559644`*^9}, {3.5681351451792307`*^9, 3.568135145428831*^9}, {3.5681351781888885`*^9, 3.5681352349417877`*^9}, { 3.568135340163973*^9, 3.568135340335573*^9}, {3.568135523495495*^9, 3.5681355244314966`*^9}, {3.5681357674799232`*^9, 3.5681357771675406`*^9}, {3.568136284433632*^9, 3.5681362987700567`*^9}, { 3.568136395053426*^9, 3.5681363965510283`*^9}, {3.568381170343589*^9, 3.568381179844005*^9}, {3.5689533222924633`*^9, 3.568953376658559*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1.1840943454857644`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "1.1839682208127338`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "1.1840272899495452`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "1.2789696366898848`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "1.2790344695656426`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "2", ",", "1.2789752261155525`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "2", ",", "1.278872446127338`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "3", ",", "1.278950029792444`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "3", ",", "1.2790977125517866`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "3", ",", "1.2791616512826116`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "4", ",", "1.2789441689296015`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "4", ",", "1.2789801137733585`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "4", ",", "1.2788736197531176`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5697370106707087`*^9}], Cell[BoxData["13"], "Output", CellChangeTimes->{3.5697370106707087`*^9}], Cell[BoxData["3"], "Output", CellChangeTimes->{3.5697370106707087`*^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", "[", "Gray", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9}], 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[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", 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}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"(*", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Red", ",", "0.8"}], "]"}], ","}], "*)"}], RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot7", ",", "Plot8", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "->", "False"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", "Plot9", ",", RowBox[{"{", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], "}"}]}], "]"}]}], "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}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.7380230406699999, -0.530425301214, -1.115758481084}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.7379380029999999, 0.530476323816, 1.115832180398}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.31346446566, 0.746001463842, -1.2584271249060002`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.31346446566, -0.7460694939779999, 1.25828350573}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.9965980287019999, -2.60232277734, -0.862533307358}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.323882028866, -0.1669149622376, -2.8945878005}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.996514880758, 2.6023794691199997`, 0.862608896398}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.32380455010000003`, 0.1669756224422, 2.89456890324}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.39198778564, -0.0292540923156, -2.8892020813999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0548176680399997`, 2.8180350002399996`, -1.5115294664419998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.37522591602, 0.382482432126, 0.520636520534}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.39198778564, 0.029186062179599997`, 2.88905090332}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.05489325708, -2.81797830846, 1.5115067897299999`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.37520701876, -0.382571249248, -0.520455106838}, 0.1]}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{0.000042518835000060484`, 0.000025511300999925268`, 0.00003684965700001541}, 1.1840943454857644`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{2.025743753165, 0.10778808131399986`, -1.187092802995}, 1.1839682208127338`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-2.02570123433, -0.10779658508099998`, 1.187057843064}, 1.1840272899495452`]}}, {Opacity[0.5], SphereBox[{0.9266085522607905, -2.041514399477962, -0.9310747291935246}, 1.2789696366898848`]}, {Opacity[0.5], SphereBox[{-0.036461000572916236`, -0.2653046567791443, \ -2.4131201375121645`}, 1.2790344695656426`]}, {Opacity[0.5], SphereBox[{-0.9265250788149128, 2.04157104710478, 0.9311496245876449}, 1.2789752261155525`]}, {Opacity[0.5], SphereBox[{0.03640537054492843, 0.26537028792631356`, 2.413089213745894}, 1.278872446127338]}, {Opacity[0.5], SphereBox[{4.100057051125661, 0.18058923675549277`, -2.4477899004508563`}, 1.278950029792444]}, {Opacity[0.5], SphereBox[{3.12482231861387, 2.2572239442841044`, -1.4430254635249113`}, 1.2790977125517866`]}, {Opacity[0.5], SphereBox[{4.08786113648082, 0.4808685304081948, 0.03913454842463815}, 1.2791616512826116`]}, {Opacity[0.5], SphereBox[{-4.100056237636661, -0.1806578516371864, 2.447639538361611}, 1.2789441689296015`]}, {Opacity[0.5], SphereBox[{-3.1248813618885904`, -2.2571696551758347`, 1.442966220817107}, 1.2789801137733585`]}, {Opacity[0.5], SphereBox[{-4.087807999581173, -0.48096519484583455`, \ -0.03897517449944621}, 1.2788736197531176`]}, TubeBox[{{-0.7379380029999999, 0.530476323816, 1.115832180398}, { 0.7380230406699999, -0.530425301214, -1.115758481084}}, 0.15], TubeBox[{{3.31346446566, 0.746001463842, -1.2584271249060002`}, { 0.7380230406699999, -0.530425301214, -1.115758481084}}, 0.15], TubeBox[{{-3.31346446566, -0.7460694939779999, 1.25828350573}, {-0.7379380029999999, 0.530476323816, 1.115832180398}}, 0.15], TubeBox[{{0.9965980287019999, -2.60232277734, -0.862533307358}, { 0.7380230406699999, -0.530425301214, -1.115758481084}}, 0.15], TubeBox[{{-0.323882028866, -0.1669149622376, -2.8945878005}, { 0.7380230406699999, -0.530425301214, -1.115758481084}}, 0.15], TubeBox[{{-0.996514880758, 2.6023794691199997`, 0.862608896398}, {-0.7379380029999999, 0.530476323816, 1.115832180398}}, 0.15], TubeBox[{{0.32380455010000003`, 0.1669756224422, 2.89456890324}, {-0.7379380029999999, 0.530476323816, 1.115832180398}}, 0.15], TubeBox[{{4.39198778564, -0.0292540923156, -2.8892020813999997`}, { 3.31346446566, 0.746001463842, -1.2584271249060002`}}, 0.15], TubeBox[{{3.0548176680399997`, 2.8180350002399996`, -1.5115294664419998`}, {3.31346446566, 0.746001463842, -1.2584271249060002`}}, 0.15], TubeBox[{{4.37522591602, 0.382482432126, 0.520636520534}, {3.31346446566, 0.746001463842, -1.2584271249060002`}}, 0.15], TubeBox[{{-4.39198778564, 0.029186062179599997`, 2.88905090332}, {-3.31346446566, -0.7460694939779999, 1.25828350573}}, 0.15], TubeBox[{{-3.05489325708, -2.81797830846, 1.5115067897299999`}, {-3.31346446566, -0.7460694939779999, 1.25828350573}}, 0.15], TubeBox[{{-4.37520701876, -0.382571249248, -0.520455106838}, \ {-3.31346446566, -0.7460694939779999, 1.25828350573}}, 0.15]}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5697370107331085`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvGd4Y+l5JXiGkuyxZ2ccdj3embXHnt3Z8Yx3vW5JVrBly2Hs8awta5xk S61Wq4O6uzpUYhVzzjmBBDMBIhA5ByIRBAgCBMEM5pxTkVXFYuWqrlLtuSCr 1b37d3/6eercC7BI4LvfOe95zwsS+Ks3r1945+Kb199/+81f//PkN69ceP/t a7/+Xy8n80uf+2fAP/tTAb8O4fYL4OXhBf+9+DPhIHzln27/0+1/uv3/5+2j xOlfoKTUgopSK6pLbagrsUNUbEdTEVFoR3O+Da25VrRmWyBON+K/n/3ofuL0 iyirMKOiyobqKjvqiSaitdKOjgo7OsvtkJTZISsl+LByPqSCD6nMJ3Lt6Mm2 oSfDCkWq6Vtnj7qbOP0yamqsqKu1QVTLRyRaiI4aPhohq+aj8Fl6+CxqPouW z6Ljs+j4DHou3MBn0PEZ9HwGY7YdpkwbjGlWGK+bobqiw/999lTbidMvoL7W goZ6PlW9HWKijegkpIS8jk/Dp9bwaXV8WgOf1sSntfBprXxaKy/MxqdNgo2X 9tOw8qlteXY4cogsgk/tSLXCdtWE/3b2tJuJ079DQ60BTQ02iEX2BJqJdkJC KBrsUBFaLkHPJZi4BAuXYOMSHFyCk0vo5RJchJtX7uYy3FyGm1fv4hLchIc7 4OVSvNxjb4YNnjQzXJf0//VsFRuJ0/8IcYMZLSIS3GhPoJ3oImSEktBwNXqu xERYuBo7V+PkalxcjYer8XIlPq6ir1LYBD+P/wJ+3vdzc/oEcHV+rq6fqwtw iwIFRK4N/Zlm9F034FyH64nTv0GryIy2Rhvam0g30UVICTmhIrRckpGwcFk2 LslZ74CrzgkP4avrhb+2F/01vQhWuxDkeYD3B3gOJeDkbQeXOcCF/3OEuJEh LnWQyxzk8gYLrRjMNSOYoYfvkuq/nK1sLXH6t6TGxBVZ0SnmqggpISMUhJrQ c3WmJgesjb1wiFxwNbjhqfdwVV74iUC9DwNEiBis70O4QYAPEZEPQwl4EWnw JPHgxs8gUt+LSK0TQ1xwlAuNVtgQZZEOFZoQztajP7kHf3K2wtXE6XPobDRy v6yQiAUqpM12alvOYw+hETuhF/dyhW7YmjxwNnrh5rN6uYq+Bj8CDf0YaAgg JAoi3BhEhBhqGkC0KcjHGhYH+fix5iARIPr5tVizHz+L4SYfhhs9iIncGKl3 YYQ8jFbbMFphQazYiGieFqE0xR+frXTlfKVdjQbunwXdzTY+UjfX98tcqYMr dULT7IKh2QOz2AubuA/OJj/cjQH4uCI/VxRsCiHUNMhVhhERhxFtjmC4JYKR 1iGMtkYw2hbBmIB2AWFikM8x1haiMMfagvyeAEZb/BgX+zDOnRhv6MUERT1e ZcJYmQEjBRoMZsrwR2dLXj73I4lIh+4mE2TNVi7VBnkLRdnihKLFBTWXq2/2 wcQtsYkDcIoH4OEy+7jE/sYIlzyEwaYolzvM5cYw3BrDSNsIRttHMNYxwuWN d46QrImuEUwSU5IYJiXDmOqK8j7RGcFERxgT7SFM8hImWvsxxeeLN7oxxSKY rDFhskKH0SLVy2UvJU6/AkmDGrImA+TcbQWXreSSlVyyssWDnhYftFyyibza mkNcdhjupgh8XGp/0zAGxCMYbB5FpGUM0bYxxNrHMdoxgbHOCYx3TXCJk5iS Et0TiAuQTSRhWjaOf8XjGDHKL/NqpLwSSRTxriHEOwcx1R5EvNWP6WY3plnG 8VoTpirVGCtV/OHZ4hfPF99ZJ6cP6VhiJii57z0tlAgX39PihYoUaluCMHLh luYwHM1RuLi/vuYR9HPRA83jXPwEIq2TiLZPIdYRx1jXNMYl05iQTnPRM4jL Z9DxF6XwfqsUkW+XJmFWOY2f5zFOTBGTxASmFeOYlgsXNILp7mFMSyKY7gxh pr0fMy1uzNCvpusNmKrpwUip9Jufvohfg0ykhrJJT21boKLGVYJguPOaln7o WkLQt4Rh5uLtFIZLPAqveBx+LjzYMoXBljgibdOIdsxgpHMWo5I5jHfPY1I2 z8XPc2ULqP/LOjj+RoLpdxQ4SO3C7YwKzKvnsaCeo7AW1LP4l7w/gzkVr6pn CjO8qhnhing1M91RzEgGMdPBK2nlldA9pkVaxLnx55exkDj9OqT8krJRC5XY SL3bCOEy+ngZQfIwyMsYIhcxCmkUTu69RzyJPnEcgZZphFpnEW6f42XMI9a1 gFHpIiZkS5iULyGuWMZ0zzJqviVG21+70P9BGCuFMZw0hXG3y45F3TKxlMTD IoW1oF3AvHYOc5pZzPKqZnlVMz3CFY1hRjZ8fjV+zLS5yI0ZM2I1Juskf/DZ i1E09LCb6OnbZvqN4DkCHwO8kDAvJMqKGKGoxsnJJFzNcYpqhqKaw0DbPC9k AUNdS4hJljHavYJx2SomFWuI96xhRrXOVa2j9r+r0PO9EIYyprHZuIw72lXc s09h2bCOZeNaEm+s8mKWDStY1C9hXr+IOd0CZnlhM7yoGZVAEy9ILtAzgJnO PorNyYsyYFosO7+Y+cTpS5DVSqESqaBmmWvENl6MlwgSEZZ3jGY6yguagJUX 4myZgadlDn2tCwi2LiHUvoxI5wqGJasY6V7HuHwDk8oNxFWbXMkWZjVbXNkW 6v7WDvOPRjFRtISDzg2cmjdw3zuDFfMWVk2EeZPYwIppHUumNSwYVzFvXMEs r25GN48ZrXBVpEk5yqsawoyUVyXxYqbLxitTYaqp/fc/fVX/Hsp6GdSNGmia SJHYxavpJ8JEjFc1zquaZNlM02/n0Nu8AG/LIvpbl0nRKsKda4hKNjAi28SY YgsTym1MqXYwrdnlHu/yivZQ87cdaPpOAO4rLI2aDdzs2cHd3k3c75vAmnWP 2GX5rFl38HNYtWxj2bKFRcsGFszrmOMVzhiXMaNfOLsy9QRFyHJSRHh1LKVu ik9i5JV14/yyWhOnf4nScgsqy5mxmTtEzB1iooURqY0RqZ0ZpJ0RqYPhrZ3h rZ0xqSPLii+eq1bVoOCW6LglDm4JFSsOEVFuyRgRh0E8A4t4HnbxIp1kGb7W VQTa1jFIwiKSLQx3b2NUvoPxnj1MqvcR1+yTnAPM6Q9J1iFqvqOD9LUYBrKW sda8ixPDAe71beGeewDr9sMkHg7YpTbs+1iz72HFtosl2w4WrNuYs2xi9pNd Id+6ae7KODlnSfbQKpU+7gy5lqow0dyIb5ztivg8hFZWWVDN1FDPXCYm2ogu QsrgI2ekVBIq7piKO6XmTqm5U2rulIo7peJOqRj0VVnsbulW/NbLGq/uhJo7 pmmkgJoooKYAdytCjBKTxAwT0QLMTUtwiFfhbllHX9sGgp1bCEt2EO3eRUy+ jzHlASZUh5jS3MC07gZmDUfcrWMsmI5R+103tO9OI1ayhV3pDZzab+BecBMb zptJPBwLhyN2lHXnDaw6DrDs2Mcit26e2zZrZYlZuGUmloieha+jk2lZHhqK SB3gtvVSUCz4zvbz3RKdZ+TKSj1qOR41cDxqYnJpJTqJbkLBaK4itIzn+k/N K2bunoVas3AHrdw9CwcFM3fPxN0zcUgwcUwyckjQc0xSJxvxm4nn+l/5WBLu oiYxBmgaqTnGGk1TjLs3wfM0Mc9dXKZbrsLRsgFP6xb87TsY6NpFWLqPqPwA I8obGFcdYVJzjLjuJmYMtzBnvMVSuo2q78rQ8GoY9qvL7DoHOFLfwqn3GPcH V7HZe0LcxqbrdhIPt4SN7L2J1d5jrPTewCI3dJ6bOWfbxox1g5u5ys1c5MOz IvWsSD21p6P2tPQZlYXtQXa+kQ3n+aKhzsyhjxMYM1Q7ISFkRA+hESYvwsRN tXBDbdxQB+HkhvZWnk1ervKz6cslgJvayw11ckMdAnLPBkB7mg2WaxZoLun/ 08s6pmFrmBc0ol7uKW2NEVHTRFU2xYk5aKlIfdMq93SDhr0NT9su/J37CEoO EJbdwLDiGCOqmxjX3MKU7jamDSeYNd7BnPkOFq2nqH7VgNYfsv1m07LabuEW v34avIn7oTlsuu8mYct9KhzucEM33CdYc9/CiusmlnqPsOCkHzj2MGMXNnWd m8qCNrOgTVSnieo0Up0G9ledgwpVnW9o3Xkdn420Vo6ztsQ428FJrZvoeTlI EuaGs8nNIUzbVyRouyxFxyUpJIT0ohTdH0ohe19K8+3n9v5sYpD0c4P7WPc+ brKHde8VRltusJuqdaVYYU82/cb55qprWfL1LPkGD59ygJs7TFCsjTMcHheg a1yBoXGDRrkNZ+suPO378HfdwED3ESKKm4j13Mao+gQT2juY0p9i2ngXs+a7 mLfcw6LtPqp/0AfFe4sIlx5iQ36KE9c9nIaPseF5gC3PA+6r9z53Ytt7j7fu YdN7inXPHax4bmPJfRMLrhuY6z3ArHOXe0wHsFG0VorWStFaKFoLRWsKcp/Z QrSM9J11+L2zTa5NnP4niOuNnNitZ9M6h07J+XisJvT8moloTJGihei43g3J tW7IkruhIFRXuqEhtISO0F/uToL+YjdnI/1HvPuBFNr3JRigwIPc90DZ2eDe T2H30yX6Mm3wXDfhPyaW8hVoalTQ1DFycIrUNLA5i0aIKYIqFi1BJ1rjtL7F 6LEHZ9sBPJ030C+9iZD8FiLKE8TUdzCmPcWE/h6mjPeptAeYsz7Agu0hffIR an7I+JLMJl5/G3vaBzjxP8Dd4UPu6mNs+QQ8wnYCD7HV9wAb3PF1712seu9g iTu+4D7GHHd8tpeKdlLRDiraTkXb6bfMYzO2GHeeFmGmRRiMmFI0v9zt6sTp lyCqVqGlwYi2RmviBQlht7s5YCsJLVGXJkFTmhStad3oILpTu6FMYXYhtIT+ mhxGwkxYCGuynNK2J8uEQzf+B9iudsNGKqzUv/kjKcI0mUGazCANJkTNh6j3 YK4V/nQTnBc1/9u5znvKxdx+GjMHbk09TaRhiGAQaKApNyxA27BCNWzAKN6B tWUfzvYb8HTdRH/3bYQUdxBRnSKmuYcx3X1MGh4gbnpI8T2imz7Ggv0JKl43 o+HNGTizD5g77+HI+hgng9z+2A42fU+p876nFON23xNs+x/z/AibfQ+x3ncf q767WPaeYMFLn/ccYdbNh+il3p3Uu5N6dzI2ORkQHPQTe5gsMN6aLJhWd5xv flXi9K8hpr7aREb6iAWdTbbEay5y8dkrGjXpEogypGjO4MZnyCFNV0CRroQ6 TQldag+MaSqYCVu6Co5UNZxEL++701VJ8PCLPwcvv82TqkzAnaKA67ocrmQZ nFeksJOOKL1/iE10iOUQIRWDBVYMZBvhvaphaxSW+FX0lLVAU81QVsuIUceI Uc9AVk+/qZ8hD4ssg1UYmraYwHdhbT2Es+MYHslt9MvuIKS8i4j6PmLahxjT P8Kk8THi5ieU5FPM2T/GguNjVLzRj44Lq/CX3sKS/BGOPR/jZJilEJ4jBc+x 5X9GAgR8TDwlnmDT/wjrLJXVvntY7jvFou825rw3Meu5gRkXS8HFUnAxergY PVyzBJNaL1O5g8ZuZUrTSc+JqEyc/jNDmRIdIj26mMYlYutZBZAENVGX2Y3G TDlaMpXoyuyBLIPDT4Ya2nQNSdDCkqaDPV0HZ4YeLsKTqYeP6MvSwy+8kkUE EtARWkKD/iw1/Jkq9KX3wEd2vGTHzULpvSTBCBtHjEUyLLwiVmLBYK4B/utq zgzn7bWsFZoqttcaN1lhB6hjXKlj4KubJStLZGWdXWCblbEPa9sNODtvwtN9 Aj/dPNRzHxHNQ8R0jzBmeIJJ01PELR9Tos/YFp+zPf4YFW+PoufqHiIN97Ch /xg3A89wMkar978gGz9Ownb/c6Ey+klK/8fY6ich/Y+x3v8Qq/77Z4T0nWDe dwuz3iPMeJjCPTsEvclLb/KQEA9HJTc7QS9zoJ2d1ij/DCH/Bp0iHa3IRCLO XkVTkIiqTCkasuRoyupBGzdQkqWBPEsLNTdal2WAKcsIayZdJNMMV7YZ3hwz +nIs6M+1IJBnQZAI5XNDiXCBmTYVLjCxTML5RsKAwTw9QrlaDORoEBAIIjl9 JMZHHxtn0xljJxittiJWakKE39t3TUk6zl7sVpW2QVNpZKmwLdcwQ9ayU9Sy U9TNEyskZoOk7MDYfABr+xGcXbfgYYn4FXcxoHqAiPYRhvWPMWZ8iknzM8St z7kzzzFHQkrfsqH6nTlm2COMtT3Cru05bkZYJhNM4Zsk419jixxtJ/Axdoit wFNsBp5gPfAIq/0PsOxnd/ffwXwfSfGRFB8ty0dSfMyVfSs8MwL5SIqXDcPN 9uzkNG5WnpNScf4aYReDsrTRAJnYDHnidUIHqklIPQkRZ6vRTnVLqHQFiVBn mWDIssCcbYE9x4reHLbWHLbYXAcC+Q4ECxwIFToRLnIiUuwkGdESB34Rw6UO guovtZ3Dyv8xY6iYm15EogpIUh5J4vMFMnrQnyKHj1Uz0WDDeI0Fo+VGRAu0 n/BS0g5NBeNSlZfcDJIb8lLDHFqzQH5Wycsm8+gujC3khdblpHV5ZKfwK+9h QP2QvDxGjIUyxkKZtJAXFsqMncXifI6SH3khonX1lt7m8PcEB17yMsI2Mr5N XgLP2ENIBSslSNsKPklgM/jojJQASem/T1JOMe+/jdm+Y+IQM372ET/7iJ+k +EmKn13cR1K8JKXXSftUnJNSnjj9Fjrre5hBdewbRihoXYpmJyqzFKjLVqGJ hLRlG0iKCQoSoeG0bWBot2Q5SIoTrtxeePNc8Od7ECz0IFTsQbjEi6FSL6Jl XsTKvRip8GK00oOxBNwYr3RhrKqXt4kKB0bZx0fKhaqwJEgKF7KS8nUYJEED 7Fn9yVJMNdowWWvCWLme5Kjxa+cvgvQUNUNTbiJDZKeK+aqKU0I12ak+Z0e0 RXb2oG+9AUvHTTikJ3DTxvw95+zoHmOY7Iyan2KCTWXK9jGm2VTmej9GybtR dF7ZQX/9XSzRxm4Eyc4EMxQ9a4O8bJKVLYIskRcm2iDzFtkRGNoIsrkE6GUB lk0/GernBOLnZNdPhgJsMIEtgp0+QIb6yZCfDPnIkNuJCZP8ZcYqO//VSkcN c5OIZtWkZ66yJH4NUMWOUstO0Mh6aSU9kmxSx7ivznZAn9MLS44bjhwPXPk+ +Ar60F/kx0BxPwZL+jFUFsBweQAjlUGMVgUxXh3ARE0giXsc4JVM1fUTfqKP 8PGrHv43mavuJRz8MZYXGYuUsKTIVjhPgzCb28B1KeKMgVOccsYrtBgqVJwz 9SvQlNLbqAZNBVmqJEtVjGFVi2RpjQ2HLInPWDJ3vmTpLvrYbIJsNmG2/mG2 /lG2/gnrE0zZn2La+RSzrqcoeS+OnsxDhNseYI11dTj0DMfxO0kskif4HIkQ SuYxNgceC0QNPMIv8PZD4gHWBxjFgkwAgbtYDHA8FEgKkKQgU0CQJA2QpAGS FGQcC5KkAEnykySP8+XrM2cE/Ta665VQNGqhZMdJZK9MwdS0EDEMtbBuOkmM LNsJVY4L+lwPLHk+OPL8cOcH4CsMor94AAMlIYTLBhHlDsWo5dGaMMZrI5io i2CqPoI454dpEdNgo4BBzDYylzcOEFxSYwBxERlr8PF7vRivc2Gk2okYmYqS qYT55WsRyRJY6iJLZsTrdKw/1TlDvw5NMSMBa1ZTTperIEMVAkMLnzCkYx0Z 2g4TDNnJkIudp091DwHNAwzqHyJqfIQRy2OMMyBP2hnUnI9R8K4TFe8vwVhy C6NypmA63OHYUxxNH5Cgxwkn2xDqZeBRUoKXX0wws0lmNgc4qhCrAwzLQUaC wAnmguw+A8dkhQyFyFCIDIXIUIgMDZChoMAQI4HXcU5QaeL0v0BSy/lOpEZP kwEqmlxNhowECdVjQnO2jZ3HCSkrpifbC12OH+bcAOx5QVZPCN7CMAmKYKB0 COGKKKJVw8xXMYzVxjBRP4IpDnXxxhFMN41gViz8tmquOUbbnm8ZJqJYaBlK YK4ljNlmkiYe4PcGMEnCxkjYaJ0bwyytxG8wWVJDBSQqW8Gpwsbv49BVp2bJ yf9d4lJ+B+pChukSRrdS8lRGnsrPeapZ/RRPN2AiTzaBJ/qdT3WXPN0nTw/I 00PyxEBtfYgJxyPEex8h/8IARFc24Ky9g7juKXYGnuNg6hH2x+axFniItSAn lwEB9D+BoBAJCjHeCSBB6wOnJOoOieJUE2SYHmAZhUjUIP1ukEQNkqhBEjVI vwuRqAFmt/5+THvtnyHqS5DXK6AUaaFikFaLexme1RAxDohJUmu2i5XkhTzb T5sLwJgTgjUvDGfBELxFw5zEYxgoGyFJo4hWj2GkdpyT8QRb+wQ7yAQ3fpIE TGKudRLzbRNYIBbbBYxjqX2MGCVGsNARw3x7FHNtQ5htZdWRtMmmIMYa/QzX PgzXuCgCBzscySrUkCwZZlqtJEuHyQYlBkvbfvX8l1vq/B5oinpJGHN2KaND GSNdBSNdtRAdtqCh7elaz8iycvLs5eTpJVn92nsIcegf4tAfs9zHqO0Bxh0P MNX7AHnvj6EzfQ/+1vuYZ5zYjT7D/sw9rAQeJGLBavA+CbtPHbJ+eAjdpemt h0559w5xQqZuY2ngFhZCNzE3KLDEcgoz0IWZHSLMDhFmB45PM4MMdCGOPQH2 A4/9pemVJE5fhrS6C0rhF0VMdOomB+oylGjg3NLEkNBCqtqz+1hTAShJkzY3 AnNeFI6CGNzFI+grHUOwbAKDlZMYqpnCSF2ctTCNycZpxMUzmGmZIU2zpGEW C+0zWOqYwXIn0TWNFYmAOFYlU8QkliWksGsMC52jmCd1M6RuqpXG2RLCqDiI mKgPw0KNCX8lUGYgZSqEsyWkzEhqVaw/KX713CcU2XJomCw1RZxUizkXlXIu KiNfVSuJqCfwpeWUauw8Il+34FScwKNiDNecYkB/F2HTXQxb7mHEdg9jjnvI umBDwYdzUBYeYbD7EVZogDtjH2N/7ib5EeLBT2MleOZyAtZI0xqLaS10hzgR fsMSuo1/hRXStUS6FgaPMBcmXREWVoSD0RAz+BAz+BAHowgHozAn1VAE0wE/ onbdZxj7FcjpgipmcDWbdF06HTBDS8YsZKwXrVk+FlcQ3TlhqHKjMOTFYM0f Q2/RBLwlk+gvjyNUNYNIzSxi9bMYFc1homkeU8303tYFFssCC2eRTCxiSbKI FeliEla7F3gFsnmGinXZHG/NYkU2jeXuOJakU1ggc7NkLt45gkmyNkbWRpoH MExnHK53kTErhst0iSAx0yn8JkyLKXE3fjZxPV/AleQcXE3ORTJxLTkP14nP IeVqHv8v5UoeUi7nnuFSLq5fzOFeCz/3q1BzkNMU+KEpHCLTE2SZk2/VcmLI 0jDMa1sPYCDDZinDiPw23KoT9GlOENTfwaDpDoYspxi2nWLUcYrM930ov7QK ffUJhjVPWHnPsR1/jL3Z7UT0Ww6cJvpXEjlkLFkNnSQlCvDneLzFuzexTKNc Iq/z5HUucoDZIYFXlmJ0m+DQG13ifdZEZJQlGUY80Pfyt2Yl5xekrJNB3cCh qbEX9Zw6GzKMJNYBcZaXk24AXVkRuiblnDsGY/4EbIVTcBVPo69sFsHKOYRr FxCtX8SIaAkl32qB+tutGPjbVox9rxULXaskdI2krZG8VawS6/JVXtCGYgW/ hA3lMrFELGJNuYAVxTyWFbNYlE9jrnsK01K6L0ke7xT+qGMIMYHgRqEknSTY zJKkgxZJMSMxkWAFRhvb8VOJ6/ppJF/LwbVrJPcaySVSruUjlUgjPof05Hz8 DNKv5iODEM7plwXkIf2SgFykf5SLtA9z8Pnzaa6HQ6UmjxN2PlNowRhteYZp dIkT9jo0jdvQtuxD30E7lh7DJr8JV88teDW30K+/jZDxNiLmE0StJ4jZT5Dx YRQNqTuwN9/FhOVjrA89x9bsA05jd7DQfycRWJaCAm6z0sn4L/J4iyoQGD9j fTl0hEWa70L4EPNkfm6IrTJ6zvwwW+bwGm8vkv14gv14KIyxPvc5+cXnQ5C8 qgMqZgR1gxX1qTI0pOsoACtEmR40Z/ajPSsMSWYMipxxXvwUTAUzsBfPwVO2 AH/lIkI1SxiqX8FI4yoKv9WOtm9b4HvDi7kUH3aLbDgokpD4LazKt7Cm2MS6 chMbPZvYVG1gS4B6XcjW6jVe4bpqBWuqZaz00AUohnkF24hsBlMUwoRkHKOs 9Fj7EIZbghSBlyLgKFFlYEhlhcvsFIEGU22dZ3z9LK5dz8H16yze6+T+Orkn 0oh0IkPAtQJkXiv4HLKSCyiIrKsFRD6yruRzRVmX83m4JFhC5sVcZH6UQ86y +R9nZihLUzJFuFgTbM15bM3FnBsrfjI3alrYmttp9ZIbsMqP0Ks8hkd9DL/u JoLGWxg038KQ9RaG7bepszja8g7hkTzAtOsZ1kafYXPhDmc+ZqH+25gP3Epi MLpFH1wM3sQiNbDEHLs0cERXF3CDOjikDg6og/2EDmajO5gdFnTAhjxMFxhm Ux7mbkanEI8wdYZC+INPC+ErULAhq+uY4hucFAJdIN0IUUYv4Yc4M4T2zGFI s8ehzJ2CrmAW5uJ5OMuW4KlYQX/1GgZZBdHGDYyIt1D4bT/kb0xjMGsFq/Wr 2JfM4oYihO0SKdZ69kj0LjbVhGYXW5odbGt3sKPdJrZ4m+LQbGBds45VzRqW 1CtYUC1htmcBcTrDhCyOUbrCSFcMw+1hDDf30/Jp93UWBmE1hsrZnOVszl3d 52z9TEIJKVRCSkpeAmkpVAGRIeA6VUCQ7euCDLKpihwBycLXeOSByvgNHvOR Q23k0CayBVAc2ZRGNm0iizaRcSEr8XQ9GQ5Kox+anCh7BPtD2RwTGxNAg5AA dimLfRi7DmDpPoRDeQMu9Q34dEfoNxxhwHyMsPUY1z5w8rGX0F1xCwHVY8rg OVannmJ9/gDTfYzHfoav/mNKgwgeC3+KFDxiUFvgbLMwQC2EiEHqIUw9RKiH oU/5QoyaiFETMUbq2FJCF9PRSUyFabEMa5/RBV2vWk5dCL/yc9OxOJWm0RzS PUSQuhhiUBtl25+CKm8W+oIFWEqW4Sxfg7d6HYG6TYRF24iKdzDauouiv5uH /PoxtXIbq8oTHNhv4YZ7BTe1XmyoD8n7Iba0h9jWHSZhR3+A/xm7hn3s6vew TWzqd7Cu38aqbgvL2g0sUB5z6mVMqxYxqZzDGKUxIh3HcGcUw20hDIuFP590 MA3oEa1hzO6x0id6KJlGyoGSSMlNQmqKUONp52rITEkUf0oBQ0A29ZBD5L7E NUERedeoiLxk2kYeZfF55FIWuVfOcTmPaqEmvogcKiL7gyxIkk1QZfRBTR/V 5L9sGotMC2waTVtMCzvQde7C1L0Pm2Ifzp4DeLgNffpDBIw3MGC5geQPQyi+ RvWITpkRn5LV51iefYTFSSaoviNM+4+oiBuY7ScCzAGBQ067AtgVBqgATrtz HKRmI7uJzDcd3UKczhAf3sB0bI1YRTzGfYwtYmqYfjs0gbHBoZd/pFaUOH0d 0lIRVNUqqsGG+mtyNKQYIEp1UhF+NKYPojkjho6sCchyZqDKX4C+aAXWsjX0 Vm7CV7uNQMMuwk37iLUcYJzeWPS9HbQX3kFf1ylHkVPsBe7iiBPFLd8cTnps 2KRXbutvYsdAGI+xazzCngDTDd6nSowH2DDuY82whxXKYlG3iTktha1ZwSQl Ma6cxYh8CjHpCCURoSQCpJ5OwelwmKPHjMYBa2E5dJmpVAGlkEYp/NQnxiBI QRBCNpGTQtKpATJ/ncznXxOYL+BRuFWQnDgnIZ83/j2P+ZTGGfKZI/OYIfMY J3LZQnKoCEWKG6r0ENQ5jFRFnOjK6Q+19IdGKqJlE9qObRgkO7DIdmGnWbo0 e/Dq9tHHyw2YD3DlozHUZO3B1H4fw45nmB95hqWFexj3HmLCd0hFHFCmcf8B +8V0/z7T/P7ZK1KJV6WogEEqILyN6QhVEN0k4xuYZI+YpAqmYiuYGlnmeYlY wER0GmORMUQCA59Vw+9CVtYMdbWWS+9FQ3IPRCkWqsGDxtQgmtKG0Jw2ho7M OGS581AVLMNQsgZrxRZ6q3fgq99HsPEAkeYbiLUdMd3dxJTkJsqL7kEvv4+w i8Pp4H0cDD/AraFDnPgmcdKlJet3sMsIvccktWe+jf0EbmHXTKWYj7BpvoE1 0yFWTPtYNO5i3kC7061jiooYV81jRDmNmIwGIaFBdNAg2mgQrTYahZYjSzWs JVUw5mZSCEx/qXncxozUfPxzyiA/IQMBuQkUIo/Iv06kFH4BBdeLaBiFPBby SwIKaBiFCcMoYNz8ckIV+Zww8jlf5F/JRX5CFTnI+1BQRD96MqMsmnGoS2e4 rYvMYytQi6mItk3ou7Zg7N6GVbENh2oHLu0uvPpdfPi+DckfzUFcfAS7/BHT 3XPMTn6MhcWbGPXsY8y7h3HfHib69jBJTPl3MdVPBHYwFdxmCiAGtzDFsX2S c+AE54VxpsYxKmGcfjAhYGSJt1lMw9y+oSkMhYbxh59Wwq9BWd4BdZURmhoX lcAOcd1ONfRRCYNoSo2hJX2SvjADWR4vq2gVhtJNWCt5GbUUtegQQfExIq03 Eeu4jfGuE8a9Oyh7bQn14oewWB4hFnyEtdgjHI8+xJ3oHu56RrBTqcMuR+Uk 7Fnvsk3sW08JqoP5ett6G5vMVuuWY6xQEUsmNkKqYcZAsevWMK5ZwohqDjHF FIa76Q0SekMnh8YOJ4wlrTAW1sFaXgdzYS75z0NmqhAFU4WhITtV8IJCCqBI aAU8/hQFUJTgvyClmOdisk+klHweRSnFSTwU4bd5LETRdQEFCWUImiigGgo4 exZcJa7kIJ9q+NE3LlENg+hhU1XRG1QVLJ7aJagaV6BqWYO6Yx06yQaMMm6h cgsO9RZcum28/4EPaZdX0VlzAo/uCcYHnmN6mrlhbgvDrh3EPGzAxJiP6NvG uF/AFsYDxMAmxgc3MB4m+5F1jA2tYjS6ihFmxhEq4HMYpRt8jvcXEIvOYig8 /vLv4Ite/jlpWRdHYDPqL0nQcJVd4Rpz4/V+NKYMQZw2itaMODqz5yHLX4a6 eB3G8m3Yqmlt9Wx0jccYaL6FSNsJRjpPMSG9h7j8HgLV+6hMvYsO+RN4PE8R H3qK3YmnOJl8iLuMMfd7Qzgk90e2u9i3PSAdB/b7TOZ79nvYYTfZst3Buo05 gypYYhOdN9MGjTuIGyh03QpG1bycnmkMy+kHMvqBNAhjhZxra6cKGmCtqmeW YTY8UwAFUHBGf2phgvg80p0vMFyQUsJmQMaJ0gSKUkqTUJxa+gUeSoRbxfit hBASMqB/FHL6KLwmIA+F5/QXXM7Cj34/GfK0YSjzJqAsmUVP1Tx66pfQ00T6 21ah6lyDjpO0UbEOK4cnB3Pyex9EuZYdyJvvwc9Jcjz6HFNzDxB2biHSu4Wo ixJwbyLmJXybGOljRu/fwGhwHaMD6xgZXMNIeBWxyAqGh5YxPCxgCVGSnoRh Hj+fuD8UnUc4Ekdff/gz7P8hlKVSRhqOj5dkEF0xQXTVRQUEqIAoxOnjaGPt d+YsQl6wCnXJJoyVu7DVHMDVcIQ+8S0MtJ4g0nGKmIRNTMYZSPEQgdqbCNUf oabiGXoMzxAKPsPi+DMcTT/D3el7uE+Lemh249j5EPv2xzhwPCIeYs/xADuO e9hy3MW6/Q5WqYAl2zEWLIeYNe8hbtzChGENo9olxFSzGFZOYlgRg7FaRyhh quyEqbyJ6xPRA4qRlUbnTxOYZ9GnFhHF58yXoCC1hDtUmFpK6yfl5LnsJ0gr Y8mU8PgKStLLeKs0geK0Ep5LeC5O6KKIj1tEVQmqKKIqiqiIouQcqiI7oYh3 /uA6ZJmj3Ls4FAwKippFKBqWoGhehrKd1dS1Ap1sFSblKhWxhnc+iKMs9xCq rgcIcpYcHXuGiYUTDNjXkcb0npmmQw6RTxSm6lBClBHlKTpUXCeuaVFxVYvK yxpUXlQjEl1KQpj0fwERHoVbg9FFDERm0RccwR9/WgnfpGblnIJtaLiogOgy 88AVL0TJIaohxk4wSR+YRWfuEuSFtLLSbRir9mCrO4Sr8Sb6mm8j2H6KSOc9 JrYHmJA/RFz5iDPEKUINt6mII9S1/Rjm3h/Til5gY/oFThZ+jPuzd/CIzeke E+O+8ykOnE9w0PsYe70PseN8gC3nPWw4TrHqOMGS/SYWbAzJln3EzduYMNLu 9MuIaeYwrGY3UI3AWKeHqU4FU7WEahBzfY3sVqVUAlWQVsj6Z+0LKiD7+WS9 IKVMEEGZIIJPyC9PoIRIIv3ln0dpenkSD2X4Eo+UQvqnZJBWxJ8q/IkEOKgW XctB0dUsFF7JxI/+MBXdQqwuYgutWICM/UDWyE1sWaIE2BskS9DKlvH6e05c +GAJNWW3oFc+Rsj/HLn5FuQXGZGTQcozdSgmyni7iqgh6tK1HPSFoU7Ldk2k ENcJtvFGyqDpMvGRBqIP1BiILiE4tIT+8Bw8wbE/+TT1fwRlsQLqcjsaPmQU vMQR8bKPRjBI+kfQlDKF1sw5dOYt8yo2+H07LLYD2FjgrqZb8LXcIfV3EaFo Y7KHmFA8Rlz1FHOapxhovIv++hPUXTxEW88LeAIvMD35AvsLL3Bv6Rkezh7j SWSCQwOpdz3FPrFH+nd6H2Gr9wE2nHex6ryDZcctLNiPMGs7QNyyiwnTJkYN K4hp2Qa00zA22GBqMMBUryb93aS/ha2gEtbq0nPai1n8JT+hnTwXJlCOojSS W5xWwYJPr2DZl/JYmlHBnRbuCccv81jOr5XzXMZz2adUUHxuBoVEAYoZNYup gOLkcwVczkBn8jAkHLGlxXOQVi6hu24J0iaeqQB5B9sDFfD990K4fHkTyVf0 yM60oiDfhpJiK0qLNCjJYlETtZlkmufmLOEPM7RsyVpIc7SQE+1UQDsV0E4F tFMBbVRAGxXQQQV0XOTXPtCg7V01mt7sxn/5NPV/DGWhPPG+gYYPVBB9ZCP9 ftIfJvWjFNU0WrIW0Jm/ClnJFgPNLgz0fmvDMXrFt+FrPUWQFR+RPiT1jziz PSL1TzjHPcGi/in6RXcRaj6BqPQJFNYXGGDlL829wPHqCzxcfYrHs7t4GgyT +iek/gn23KTeRepdD7HBKWK19y6WnSdYcNwk9TcQtzIOm7cwalxDzLCImH4G JuG9pY0mmEQa0k/qa5kBK6thIfU/ob0U+aS74CeUs9wrBNZJYWWizCtZ4RmV CcariEqUZSbu8fiVhArKMisSOijLfKmDUuqg5BMdlNAJSqiBEs6hJdcEDWRT A5mMB+lopwY6c+LoKp5HV+UiuqgBCTUgoQa6qYF335PhyiU9Dd6Cglwbebeh stRMe1KymShRlqxE1TUl6q4rWeFKNBNt/L9OQkKoqQEpNSClBrqpASkbgZT8 S8m/9BLxkRaSCz2wpdpgSTZDe1H3Wff/UygKZIn3jjRcUEP0IWeAj6iDSxHq YAyNaTMQZy2iI3/tXAd7MNTegFV0E73k19d2igB1EKbzD8sfYLyH7q9+jFnd YywYnmBW/zFCrbSIjjtoan0Bk+8FYrSBjZUXON14gcfrD/B0dg3PPL3Ypwb2 3I+w436ILTctwHUPq667WOq9Qx3cwixtIG7bx4RlG6OmdcSMSzA1u2ESOwgz 9UAdNMqoBeqguhqmGkEHP9FAfkp5QgOF5L6I3BcTggZK0qtIJ5GgvyqJPFfh p1HOo3CrPOscwv2sSp4F2Qia+NKZIjLL/l+qEBRR+BNFXM9B8bUsxoOMxIY3 XxxgFcfRXrSAjgpuLRXRwb7w/vtd+OhDDVKTTcilExQX2FBRYmNfMCHvipKq UqKCqKEaROdKaD9XgpSQEQpBFZeJi0ooqQYlHUEhgK4gv6JBb54drmw73JlE ug2u6xY4Lhs+Ewz/DN053Yk3EjW8R0G8T0F82E9BDFEQ458Ioj1/Hd0l21BV 7kNfdwQLBeFkFPC23UGg6xTh7nsMaA8wpnrAMf4hBfGIY/0jLJkpDMbdcNdd DnEnaFa/QG/4BeLzL7C3+QIPdn6Mpxt38Gx6Dvf0Nux5GAeEdxG472PdLQji lIKgMTgpCIcgiANMWDklmTcQMy/D1OKBqdUBbaMcWlEXtPUt7A8URE01jLUl NIVSCuJMDAU0gk/EkH4mhJIMAdUozawmqwTP5cTnqYFqQRXZ1ajIPlNExUtl UBVlWRUJVZTjZ/mzn1VDKdVQmlBDLtWQTTVkoDA5Len8oyKasyfQQnvIujjI YVCOix/KcYVlmpFCG8ixoryQIihlay7TM1jQEmgL1RRCPYUgJtoohM7ryiR0 88YvQM5jN79FRsj57fJLBPWgpkP0XFPDV2yHj+z6Cu3oy7fDL/x9ZZYNfRkW eJONsL2vevma0dlryd+AqsCKhnfYJd5zMFJQDBcphqsUQyrFkL2ItoJ1SJkL eygGXd0NiuEYzpZb8LafoF9yikEZyVbcoxjuY0p7HzP6B5gzPsCi+SHmrU+Z 754iKjvlYx2j2/4CgfEXWGSnON6lQ+w9w8cbN/B8YhS7nvsUA6cED6cEYtV9 B0uu21jovXkmBvu5GKwbMLX5CQ+0zQwGbUSrIIhWdotWWMVNUFcVngkh9aUQ KhNCYCKgDL6QEELpSyFk1pDgGjaF8qyaJGqg5vMUQTV+nhI4k8OZJGgOlEFZ VvknxpCQQQYlkF5EGRSglDHhTAZZlEH6587fIpR1vRXpF7uRSb6ufNSD1MsG 5KVbUMqOUFPMYF5mQUWqErVEBXmtJf0iopn0txMSQiaA3CdBcZViUPLb/hV6 eOy5rIDxXSkM70gQrLAjILyHhX0/SM8foBgGKISBPBuC2Rb0pxnhvaT+zO8S vomefDPq3+ZTvkMzuMDu8BG7w5Uz/luyzviXkH8l5wIt5wJT4zEc5N/TcZv8 nyDUfQdR5Sln97uY1N7FtP4e+b+HBfN9LFnvY8VGuJ9wsruDFvFT6PpfYJhp YWPrBe4cvsDTwyd4trGDHw8HseM9xabn7P1Dq+6TBP/zvceYcTIlOPYxbt/B iJ38d/QTNINOI0zt7AxtCpoC+W9qhUXcyGmwjCgn/2cmcMZ/VYJ9wQBKMsh0 KYn/QoL68k8ju4a7XJHNb6jIqaE1VPLIuwlNEEkJOfz8uT8Iovi0IEoohmKU CYKgJ5SmskOkZBP0hGspiU8eyUttRWFGF5WY2c2CvvZWJ7KuGlDMAq0iT/UU RFOZGdUUQwMhJlpTetBBtCSr0JGsZiNQ0wg0NH8NlNc0XG4Pjz+fMAAbpzz7 RwLksH0oY8Gfv7+mmqi0I0yNhKmRCPURKbIinGdGKNMA/1X1Z34J/cdQ5JhQ 94YcDW/Tnd7tozcwPV4egyhlBk1ZS2gtWENX6RYUVbvQ1B1QF0ewtxzD3c65 UXILA7LbiXc8jajvJN5aFtefYsZ0innzKRatTIA21rjwigCHgVHFDbSpXsDO JDnJ9LB3wCR5/ALPDu/h+doKnvU7qIsT6uI2tXSLurhJXRxRF4eYEnThpC6c 69SDH3YZtdHF5NippTaoi6Y2GBvFMDef6SI/peJTnlCFIkET6dXnjaGGqKUo aklsreAJ2cKxIruOahAg3KvMqU0SZCEcqvEfzpVBOWRTDtnnHpFVdh4eSghB EmwTafkE/SE1Cz/8q+9xFS181k4+o4Tf343LP8hD2lvdnPN1aM82Q1Vqg7bG gpYSI2qv06HJu5ict7Lpd1zX0Rj0jIR6GoOBejAwEBDXDElwJmsorV4eXRSG i2f3VTVcV1VwMT/0XlLA8WE3huqciNY6MCy8s6RK+ANg4W/rLYgWmhDJ0SHI p/zGpzXx+5BxPFXlutHwphmixN+6C5oY5cqm0UivaOVE0VmyCXnlDtR1+9z3 Q9habsDVfgSf5BhB2U1q4hbn+tsY097GpOEE08YTzJqZAq13sGgXhkLWPlNh THmE0Z4DdDheoG/qBea3X+Do6AWe3H6OZzdu48fL0zjR2bDmuUlNHGPRdZR4 59tM7wGmnHsY792GuStAsFdIOU1IqIkuHX1DwX5Bx2xqhK6pngVZkfCJgtSX eqimT3ziEaSaakj6/wihDgL9dYJB5NYlblXm1grS+FzCMX46oY2KnKrzDnIW Il4qIymhi1/hsYjKoFGk5eHNv/khrv0ojybSQe1J+DNSXH2diiByiVKi+o08 iN4sgLHOxmlIDlm6Cj1pamhSNdAxEhqpCgsVYUvWw0E19BKuFCPcqUZ4Uo1J 8AoHX5oBP4e+ND36Ugn+XB9V5aW7uCmPxOfaNLgwKnyuDaUxVmXFaLkZI8WG s8+2yVC8/Gv2knOr6Ml2oeF1A5fmZowIMUKMQHQtjsbMBTTnr6CjZAPdlcyT tbvQi/ZhbT5Ab/shvJIbCMiOMKg8RlR9jFHtTYzrb2LKeAvT5luYs7L9Cy8W Om5zYLxNWdxGrOcQbZW30BN4gfDiC6zSKk5O2EZOPsbzwwO8mBvGmvsIy+4b lMQhJbGP6d49TLp2MObagkUSoBT6YOqmJKTmM0l0KmFs7YSusRHdNWdtI59y KBDkkFZ9JomMGpSc20Np1plFlFEN5QnUC9rIqackchOHOvwmqhKaeAlqI7cm IY0zYXzKMiiMsy4iWEbJmSgyCvH2375FvIn0C8WozOpCVbYEyRTB9dcLkP16 EYrfKEHN22Voercc7RcqIL1Qhq4flaEnXQ8tKTaw3ZvSzLBy+rSnWtFLuNNs 8HA28GWcvbXVn2lPQj8D4i+iP9uKABHMshBmBDKJDCMC6ewOjJd97C5j558g NCFyYYL6mKA7jVcaMVaqQ6xAzYTR/buflsY3ochwou77eohe72XCCDBdDDPc TKIxYw5NectoK2a6qNiEsmYbOtEOXXoPjvZ9eLoO4O8+xIDiEBHVDcQ0RxjT H2HCeIy4mYnAcow5200s2G9iyXkTy0yJwju6Y6o9dMg/hin2AqOcQbdvvsC9 U3aSO4/wfH8LPx73Ycm9jwXXHmZdu4hTFhPuLYx5NmCW9hO+M2l00y2kWtik GhhaOtAjakBuyk+couClU2S8lAZlkVlHadQJshD8oi4hCRpERW69oIsEqvKo jyre+IOELqoEbeTVfqKPf/jqq3iL+PCr38OVr30PKV/7LjKInK/9I/K/9g8o +tp3UPK1v0fZV/8OhW+wlbzFtvJ2MZt0Na5RExmvs8G9yVn2nRrUX6hD64f1 kF4UQXmxAeqP6qBl7jQI789PtcOW5oAzzQlXei+8GS74Ml3wZ7kpBDcCOW4E afQDeW6E8lwI5QvoxWC+E4N5DoJxgvl1MMeCUJYJwQwDAhTJREs/JoXPaWpy Y0rkxGSdBZPVBkyUaWggSnxGHclMMxZU/6MW9d/n7PEWs+f7Q4nsKUqbRVPO ElqKVtFVvg55zWbiL7iM4m3Y2nbh6tyDT7qHoHwfg+wRUfUBRnSHGDMcYtLE rGhhH7DdwJz9BhYcNILeGxwsb2CZ/WFYvYMO6wu4pl9geu8FDu5wDrkvKOQu nu8s4nHQjv4aB/y1dkx5NjFBZYx61mDupjq6vbArfYQTNrkJRvYSbUs7eprF Z+pIOVNGoWAaVIWgjOKEMmpfKiNhGH/zf72GV4m3fvs1vPfKa7hIJH/xNaR8 6TVkEDlffg35v/MaioiS3/kByr/yA1R99TXUfO2HqPu9NyH6/R+h8Q/fQ/Of fICWP7uItj+/hI6/uIrOb11D17dTIPmbNEj/LgPl75ag6oMq1HxUS9RznOhG yuuVyHqjFoXviFD5vhiNH7Wg83Ib2t9sh/ZqOwxXW2GgJMxpbtjTPHBmeOHO 9MGb1Qd/dh/6c/0I5vkxkO9HqNCPwcL+JISL/Jx0IsV9GCr2ncOLoSI34UKk 0IkIp9FwnhWD2WcfNzfVFkScaplu9mK60Yl4vQXxGj0mK1UYKZHh659+F8G/ hTzVh7rv2lH/ho8thqnj0nnqyF5AS8ESOspW0V29BlX9BvRNm7C0bsHZuQ2P dAd+2S4GlLsIq/cQ1e5hRL+PMeM+Js0HiFsPqJQDTpgHmHceJHHcPMCH7Bz7 iGq2IOGw0r/MgZXB45giefqA4ePkJp5vTGKwkRFazCtqtmDMu4oR3zJMMsE+ 3IQDijo1lLUyDk4d6C4T4fX/8F28Rbz7v38PH/zHV3H5N15F8n/6PlL/82tI /83XkP1/vIa8//MHKPztN1DypbdR9pX3UPH1D1D9jUuo/eZV1P/xdYj+NBVN f56B5r/IRutf5aH9rwvR+XfF6PpOKSTfrUD3q1WQ/aAGih/WQflWA3p+1ATV u2KoL7RA/UErNB+1Q3OpA9orXdBdlUB3TYraKw2oTxaj4VorGq53QEqWUvnz OW83oeRCG4XTiUKOKe+/korMV9JR9Uomur6YBXOGD7bMPgqkH+6sALw5Qfjz BhDIH8BAQQiDRSGEiwc5agxiqHQQUQFlIebMEGLlA0QQsbIA0U/0MXt6ES0R FNOLoQIHIrlWTHdGMN0RwkxbANMtHsw0OTAjEt7qpMFUjYI/04qvfVopbIFX raj+ezPqXvPSFkNo+CjGMDIJUeYsxPkLaCtZgqRyhfSscmZcg6llHfb2Dbi6 NuHr3kJAsY0B1TYimh1EdZwrDLsYM+1iwrKLKesupu27mHHsJj7PYq53l3MI wU7S0XwCNbtOhHPtGgPJySPK5dFTPLu9x+40hGinA0Nd7K1iLwJiD8wNVlhE FphFBt4WXuVWQFcjgbysEflfuYLCr19D8TfSUPbNTFT+SQ6q/ywftf+tCPV/ WQrRtyvQ+DfVEP99LVr+sQFtrzah/QfN6PxhG7reIoU/6kL3e8Knisgg/1AB xaUe9FxRoydZCxUzoprxQJNugpY9Xsuer6OV62nr+kKiyAFDMVFqh56Top4T o56TY811EerTWtCQ0QZRRhcaOL9KyzxIe6MZue92oJQjRR3z4/deKcQPX8mm p2Uj75Vc1H8xD7IvF8CZHYI7exDe3DD8+REECoYQKhrCYHEUkdIopTGMaPkw YhVEZRQjxGiVgCGMVkeIMG8PYrQyRAQxUu6nbHwYpmSilEykwIYZyRBmugbP PqeulXJpplwaDZgWqZhVpC+lcvYmv79G97UA24+LY24Q9e9H0ZBoPcytuTNo LppHR/kiZDVLUDUswyBeoamswdG5Brd0HX3yDQSUmwipNxHWbiGq30LMuI1R 4VeYlm1M2rYRtxOObUw7tjiqbmG2V8AmOvTPYGb7GWN23aar3HtMqTx8iMVg HFF5L6IKOouCU5gyBnsH202HF9aOXljbbRxdjNA09aD6O82o/cc21L3agYYf SND4hgzit5VofkeFlgsatH3AIfKigdZuTpSE5Lod0lQnumntMnZ6OTu8gt1d ke+BspCgX/eU+qAqJyq9UFV5oa4haol6T+LTZdSNBOOfutkNVbM7CapWl/DX qG296OlwQtnhQG1GE+qyWlCf3YH6HCnqchRor/Zzru1EzgU5Si+qaCYWvPpK PV5/pRw/olqSiaIvFqHpyyXo+UopFTJMhcQQKBrBQMkowqVjGCofQ7RijMog qsaohvEkjNWM4ZcwXjuK8ToBI0SM94eJKP83wuFl8EwsFYJY6C+lFEqh8Klc UQoldPYxgG1uzLTwa806diI5hivb8dVPv6P6l1H+tw7UfL8fte9EUH9xFPXX J9GQFUdT/gxaS+cgqZqnnyxA07jEtLhMolbg7FqFu3sVfYo1BFRrGNCsI6xb R9SwgWHTRuJF7THLBmfBCdsGvoJJ+wamHOsJxJ3r0FQ50OFlTll5gThT7D79 ZC66iUGFl4mYTVXNGKbhuG6dh00RYh4JwiL3M6N4oOu0QdqoRMNlG0RX7Wi8 7kBjai/E6S40M+K15HjQmudBWwFR5OWARnB7Oit86KwianzoqiXqiQYfJCKe m3hm/pcw3nW1Em1EO0GBdnYSXXwMiRftUi/apHxcriMJLTI3N1Msc6GREMl6 UZ7BJJwlRmV2G0ehLmZkOcpzNKitGki8+pF1QY2Si3oUvenB91+R4o1XmqmS Wrz/xXKk/g5HpK+Wo/XrFdD+XhUVMoGB0gkMlk1iqGIKw1VxxKrjnFuJ2jjl EMdEPdEQx6QA0RQxSUwQ4/zaWOINn+N19JlawWMGqa4AhrkP0TLh08hGMdNN T5GEzj5jkUU402amt6gYcbs+o5LfRefFflR8x4fqHw6i9v0Y6q6OoS6dnSc3 DnHRNNorZiCtnoOyYR5a8QJHzkWW9SKckiW4ZcvwKVfQr1qhUlYxqFtFxLCK qHEVMTPDhWUVo9ZVjNlWMS7AvoJxxwp6Kp3oqfZAr9+E17uBSGgdfkUfgmof QloPQnongnobwp4lWDSDMKlDMPT4oVWw9CVm1DDQVzOeVdNBa0pdqCl3o7aS qPKgroao86KunqAK6hp9ZLSOGvg66qiCupY+1Lb2oaaNaO9DdUcfqojKzj5U EOVEaVcfinkupEIKiDyqJYuqSW/z4nqLF5dpJ+/TXn5Q7sB7//ABLvzjh7jw 3Q9RcCEPBe8XI/l7Gbj6ai4KPxSj4MNWNGUJCvYh8z0dCi6aUUV1/+CLBrz5 RSXe+RJDypebcOkrNcj8ejWqvlGDjj+oheGP6jBYPoOhylkMc/9jNXMYrZvD WP0cxsnFhGgek41zmCLiTQJmkxLvWfwF3pwmpvhfk/y2MX77CEbr2Zxqwxiu oVDokkPlTszIhY8WjZx/yqOP3sLG02GgULpfeknFeZIt+ks7Kr4XRNXbw4xW o+yrk6jLpJ8UTEFc+v/Q9d7xjZ/Xuefz4UiOHcdpm9uS/WSzN5vcJJvkZh15 k01iK3GurxNbtiWN2mg0kkaaoqnksIBEbwQJggR7bwAbABYQJEiAvfcK9jYk p/cZdcuyZVv7vL/fj5wZefePBwABDInh+b7POQfEe95FlDqW4M5cZse5gvrC VfhL1tBSvoZ21zo6qjfQXbuBPs8GBnybGGrYxEjTJsb8m5ho3sRkgGqhWjej MBXcEEOGCUh1lvhTSQ8C5X0I0SK6PL3ore9BX1MX+vwd6PW3oXdgE/UNI/DV D6LW0wNXdTuMae0w8N/r08PQZnRA4+yEJotiwNTZYnkn5XTjq1DRHuKpOOpC bi+ic3pxJrsXp7J6cYzm/zpTdZoxF2mmXPGuGS8PIN2Uw843R7qOki7/nI9I DTLvz5KUxs44zeiE3ZCBEy+d2odDf0wN6ykL4l5VI/ZVPQGxEpASmE9XIJ+t SqFmAKWaESacZiSfZ+kSF8bRrwdx4ql6nP5GFc79XQli/yEXhm9mI/Ofc+H6 di5avpOHCecGprI2GeEtRnoT83lbBGMLCwVb5GGLvYr4+N1S0SZ+j5cb1Dq1 xvsJTeEyIgW0mvwIZvNmMJ3DMiZ7BJOZ/YSOpUjdHO1kiqSMYrmKWYfGuOxq wXK5BwtFxd94dNjN3yH5h92wvzYKx8lppEfPI0MVgVMfQbY5gsKUBZSlL8BF Y6vNW4KvaBlNpctoqVhBm2sV4epVdNWuocezhn7vGgbq1wjKGoab1jDiX8No 8xrGAlTLKsaDqxhrX0Fldieqaer1lb0I1Pahzce6vrEHHf5udDR3IERCmvtY OPuGUebpR0F1B46Y2/CKMYTndWF8Xx2WGmCDKh1GNsDmpAzKCSsb32RNFpK1 2bDpspGizxZvfupzxGcwDDmMbK5ERpR0+WWJEAdvOR65lkgxSaRESYj8qQJI 5iOAOHHy5dMSHO+8chaWE3oCYiUgBsQdthGQFFhOlxOObhQQjiLCUaaZgEs9 jRr1LDvKOZTGLhKQME7/XQDn/8GLC9+shOrpQli+XYDc7xSi+t8KEfxeEWZy djCbu8NAM1cXMFcX7hKCS1gq3o3CSskuK5KV0h1qW1bJFlPGJh9eZ5xXMV+4 hLmCCGbyWcjkTWAyl4xwnYxn0EU8s+SElUmtmB/aS17oIlWNZKQC33h0TthT sD7fh9Q3JmA/NYu0CxE4EiPIMBAQawQF9ghrLgHIAmryFuAtWkRj6SKay5fQ 6lpCe9USwjXL6KpbRo93GX2+ZfQ3LGOgkfIvY7B5GUOtSxgKLmGwfZHfpw9l JV2odvXAy5fVSDiaGynC0ezvRHt3BG2d8ygpa0Z+kQ9vHzoN3QUrdLE2KgX6 ODv08Q/hMBEMs9oJizpTBkSbFSXoeAhGrgSG3SiMIk2+NMmgCCCelHD4lsRC miTZKuyCBGMGbeI0Th46S50jCSTgVS0l7CKNJDhIggv5bFoL1GJ/zCRKSYFL PY9a9SJ8WlZ00auo1qzjzD/0IPqf2hD7dCNU366G5jtlsP1bCQq+V4q6H5Qi 9KMyzBew1C9kmV9ElVxl53GVYb+K1TKhK1gtF7pMXeLXu1gp2+FzLmKxdAMR Ovtc8TJmihYwVTiDyfxxTOYNYZLWuuyLUEwqXmU2qod2UcvKo6rmG4+O6/s6 zAcHYXtrGimnI0iNjcDOiiNdISGfJJRkRLi8I6imMdXxJ9WXLqCpfAGBygUE 3Qtor15AuG4BnZ4FlGeFUJlD5YXgKqAKqeIQetpoOdnDaCidR0f9CoZC66jy 9qKmoQc1jV1o6Ywg0BFBU4i1caEPR19+B7oYEymwUDIFuj0KEmQKjMIiBAUa QQEJEB7xhOISOZKIQ5Qg4Qkp9F+S3cGUq1zn8FpyhiiJgv+2z8EeCyeZMmRX OAfdG3GwnjAh7pCRHKRSGbhwiByeqkZ+0hAr43EUJs2glL89l3oJtdoVNOjW UPLOClxJF9Fo3kH004OI+3YnVP+jBerveqH/ngv2H1Sg+EcV8D1fic4XXFgo vomlEqrsJlbKbzLuN7FWcZMGt1Z5g9awVnmdusb7yEfFZRYKdJDybSyUMd2U rmGmdAlTxfOYLJrGZCGLjDxWnY2LWG5g+mjYG+/KAsPbRh58iJTn0Q0kIJxK 7jC+OAzL0Rkkn4nARiBS1BGkEQgngcglEEUEoiwrAjdrmprCCDwlEdSX8bGU EIEJoTA9hCJnCCWEoZQwlBOGsnxeE4byohDyHI0oSO9gM9CHusoh9IU30NvP fDM4j0ZC0BCOwNs+h5qWMXT0T0MbraOM0EUThphkAqHAwHyhT3DItrAHAy3B IlsCknUPc4ZEg0FUCjSHKMkZvrRfUjwUkTBKODxkgpnCLvGgMPEymRBZ4tB5 mN9mGXHCRiZEpkgnDxmIOZTN2rMO+YljKEicRlHSPMrIg1u7ijrdBhoMWwiY dlAZtwuv6TKC9quI+x+jUH23F5rvtUP/g0aYf1SDjOfdKHuhCo0vV6PnUDUt /C5WKu5itfIu1lx3sU5FYd19h0ysu29Tt7DmvsHHrmPFdRVLlewGK7cxX7GJ 2fJVTJctSqcRTBYzZRSKaakrFD3CT49ookc0sqRoYHfiZdFZU7bHRKaykVjz wiCMR2dZIUVgIRPJxNxGJtLJRDabp4L0CIrJhE0f4q8phHS2BE5bCFnkIYcV YIo9gIysNmTmtCEnjxVVdgCZuQEUFYWRmRZAHiuc8sJ+VJOHWmavat8gDaIT te0RVAXnUO4fRbB3Wno16vOCBwNlfoSHVOjiH+EhMQMmtUgT5EFLg3iEB5vi DlESEV9GKqtIAYTQPhIPrx/B4WkJB2ETdpOMQ6pA4hWBhEgX0TC/RSSO24lE KlsPJ5HIIg41yEscJhKTKEycQ3HiIsqSVuFWb8CjozUYdxGwXEa77Spq9dfR nHoTnZm3kPjvk9A8MwjDjzphfi6A5Be8yHqpFpWHauE/XIe+I3XE4V2sut5l 6B9gveoBNiTdp+7xa2JSfQdrVbewWnUdS+6rWHBdwryLbWDlBqZZ702VRzBZ OoXJkhFMsJ1aDtAqAqwiAqwimtmL+JlKGpk2PO49JLKU6VBF6gVomTcMp+dh JBJGImEmEqlEIjEuBF1iCEZtCFZDCDYzsbCG4EgJw5LWBltGO+yZ7XBktyM9 tx3O/HZkFrYjpyCMNHsbsp09RGMQ5eybK2uGUeEZQCrtIzkviNdfOI+m7mn5 A3K/BfVZLbTnScN5M4mwyulinwYqUabByKLBRBpkIrIkIqIkJpgzFIdIMeTI /pBqlE1CKisPSMbwL3KpwO7Cvh9/mYEUUwbjf1oqFwQDlrd0ZMDB+Dtw4RX6 0kkXzCdqkZdAS1DREliLl6iWUZ7IJKi5CI9hl+nhClqSr6Gdsa9NuoEG2x2E M+9hIP8+ND+cg+G5MZhfYCv8UhtSDzUg97AX7iM+tLzpw8BbPsb4A8aaqvkA GzXvU+9R71L3ed89rNXcwWr1TXYP17FYdQXzVbuYdW9h2rWGqcpFTFbMYrKM 5YN4Pyu4TEWUUb8jWG5huvC3Mm3U7jGQrTCQlzSL+DfGoD49B21cBKdOtuP0 2RCiY0KISwghMSkErS4EgzEMsyVMG+iGnp260dEOCxmwZrXDRgZSyYBdMFDc DQsZSc/sQy5dqrBiGEVVzK5VdEenH2+8FA2ttDXfAPUpXZTyCTn1ORF/E+Nv gZaOoI2VHUGUCzoVHUEpFyRH0MgZQjAgKoYvuoLUV0RJpnCA4aU1mGQJILKJ gV1kBCKQapIzQ6qQyYnjL53ACTaYJ145jxOHYmA+qmOGSIP5WB7Mx0upKsqD vPgJ5CfMoTCBvbpqDRXqTVRpd+AxXkaj5RpabDcRst9GV/pd+Cz3Ecx4F735 72Eg9wEMBxdgfmkSya9wPRwOw3GEFfObDah5qxHBY40YPtHIcH+MjdqPsVn7 EfUhNuuIQx1xqCMKdfewUnubDn8DizXXEKm5jNnqbUxXsXF1r2DSRTtw0Q7E ERrtq9SCMnOYGSLISqKFDUWTdw+DXCU75FpX8OaLDTh2tA3HT4ZwggicuhDC eSIQy85OxQ5PTQS0RCDB1o6k1HZoiICeCBhoA7bcbtjyu6G2+KFN7kSysx/p +UNwFg8hraQb7bkpeJ2hN0SbYDhvlHbj64mA9rReegVJZ/XQnGP8zyvxpwdo FQ/QqegBzAiGpEc8QIm/VSeygpwZkvXZsg8YsiUf+JKEwBO8zJYCn8qwU1FS vL/JRS8v/OMvHn8Y9VcY9Tf1TAJsYN/OZ+TLKZp/3Ag1jfx4Fk9c+KVJG6jk wq/SX2INcA1N1htoSb2NkOMuujLuw6e5Db/jfXTmfYjevA8wVvwhzK+sIPnw LFKPjMDxRjecb7Wi8JgfdSf8aH/Hj9HTfkaYURfyMOoeGoGHkfe8i3XPfax4 7rI1vIVFcZJF7RXM1u5ipmYLU2z2J6tpAFXsH9xc7OE1aoliEgiJAcfsHYJs LZt9j0VdzFjQ4z/hR9+PxnM/vIA33g7i6OkQ3o5m+OPDOJUUxnltGDGGMGLN RCC1G0lpDHE65eyGykEU0sM4p29FrIn3pfbBc6EaodRahArK0JR6gSvOdMHE +sbITsDIAvDhhnudXAicNTLssu1LIeeyF2HXJsjLXq8se6OaS1+zF3ZKJ1m/ +LiNTfqAhc2gxF3E2ZB9QAT9gBTxf+Z9WVQmg50pBd3GoB9j0I8z6McZ9ONi qb9h5HKn079VyMBXwvQ2gx47xqDPMOgLXOqrDPomKrnMqw1X4DVfR5PtFlrs dxFKv4+uzPfQl/M+/LYP0Z7zMbryP8Zw6Y8x4/oEyUfW2aizQT86DuexPmSf aEfxOwF4T7cgfK4F49Et2PT+GBteBt77ITZ8DLzvfax738WK9x4LujtY9N5E xCOOMbmMmbptTNWuY7J2iaLrixNYOtcpun4nm4QOMUSZBWJ7B5d7vRLzHGWs lCpBh0QGPkklb6YXW6mf/UE0nn82Fgefi8OLB+Nw6GwQr8WG8LoqjKNc/W9z 9R8jBsfoAMdMvM/YhjdfTcD3/yQGF/7RibzXK+BXM+zOaoSLCmCRdtmbWGeK /dQmCQMjUZNmLpzTw3BGhySufPVZMzTnrdBIji+veC1XvJYrXpfoUFa8CP/j rm99dOUrqz5KMBAlIIiSKPhX3sxSYr8XfxF7Of7J5nSJgWNk4BgZOMaFbzpi 4OLnTzpaBNPRSuTGDCLvAq0+dhb5cUtkgM1g4kVUaC+h2ngVHstNNKXcRkva PYRo8V1Z76Mv90MM5X+EFucnaM//CQbKfsqF+VMs1P4UqUcvwvH2EpwnppD9 ziByT4dRdi6I+uggOi8EMREXZNw/wWY97d/3ETbqP8Ca7z2s+h5gWRwj4r2N iPcGZr1XMO3dwZRH2SzrYbPo4ULv3qDYFHQz83eRgU6mgHAnF3/D41n/twmA FkkKBGrV/n56aTu9jjKozDCqLDj4LIF4PgEvH0zAKy+ocOhFFV59SXUAh19W 4Y/xvT/9AZ7/Ux10381D+ckqtJnrEM6rQkeRU9lbL++dFCzs762/YJAnLYgp C6z8kk6TwbMW9gTJ0NACNLQATfxDC9DRAvR7FkAOJBvQPrQBiQP9QzsQi9/G yD8pxd9mFMqk5NjzWYz+P8FqduBtJf5vv3KOYvwP81W9zp/wZhFyz3chN3oI eTGTZGCO8V9GQdwGK/9tVOguo5qm77HeQmPqXbQ47qPdyfhnK/Ev+BiB1I8Q yP0peso/w1j1Z5jz/JzV18/gOL4N5zvLyDo9jdyzLIvOd6A8JojG2CC644OY UpGBBsa/nvFv+BBrDe9jtf5dNnb3sVh/B5F6xt93FdO+XUz5tjBZT/OvZ8r3 sdrv3aQY/96IMh56mAyw+m9veqzw/w0l/DqGXS+FX0NpE9mfi23VDP1e+E0q MT/BGgVLQjKkyQmUDclCYgu9TWXD/47v/7cjeOOvbUg5WIraGBJg95IAF0kw 8Rli75yF/+ThZmppe32cQZmyoIcpWkdXECSYWQdaoY62Qc2OUE030MTbH0kG iiOQBKPmcRL4EnWZ4iXqMxUiMoWeQLIh8wCSGf2npchbhbj2RfzfevEY3nrp DN56+TzF+L/K+B/JJAOM/7luahh50ZPIj5lH/oUVrn/GX72Ncsa/iv7vSWb8 6f8t9P92+n9nzofo49ofLPwxRko+QVPmZwiXfYahmp9jxvdzLDX9HGv+nyDj 9A6yzq6QsWkUxAyhKLYTlYz9UGI3Lib34n5uB9YbP8R6A9d/w3tYaXggx7/h DuYbbmJWfCSl4RKmGhn/xjVqAZPijaF+xr9/VR4PLg2f5vrv4voP+R9/M+C3 kBSvIQBaqBP0EgQCAA0BEPvq9YkCALF7xqoAkAyLSsgGq7S3PlmVgl+X986r 5P3zKdT3/+w8zv4/mcg54kKjmghkUqXldOPE5ChpE+V/kVCQMEgQG6qNsBID i7SvXp60YDzL13XGgiSagTqGCMSmEgM7MUjja/xVQzBqRF0gkoPzcRRkEp5k 60oODHQjoyLGn08wpbMANJMDMzkwm9Nw9MXTOPrSeSoGhlfI5GEn/bkVuWfI wVnxeeYp5J0nB7HkQCU42EGZ/grc5huos90mB/cQyHhADlj00QN6C8hBEWuA ko8RTH0PrcU/Qx99YLz+M0SaP5O3RbV8hKzzO8wzK/y+MyiKH0Iji8uZjG3c rLqET1s38bPOCaw1vYe1RtYCjeIYqbtYaLyNefEBtkbx0aTLmPRfpMiBnxz4 GfeBLYocDJCDfjE9mRx0d2Ap1PT4G4XMA/FJCge6X+FAzFcwJO5xkAyzYECM 0lClSAQkq1LlUQpflXbQp/BWKq+f/XOu5O8UoORkLfNBAzryvegsK+RjKZTA hzzgPyu7apXd1aqHOEhjFmJ0Cg5JSDxrJQ42JMWkIok4JBEHdYLAwcF0la7g wO5A/QgSYhuXWdrRZdY5yYMsBl4vNvxYCITFKJQhS4LCLENhcsBkFkpjQ3SK Ooc3XoyG7sUk5J6oRe47hOI0k8OZIemTzHnRD6EoIhSlLA5dhKKWUDSwMGgm FG1Z76Ej9330FHyAgSImiNKPMFr+Edpyf4zuyk8wzMQgptWvtP0MG6FPaP53 kHNhh4Wn+L5baLY/YJ/3Ce50/hSfTn6Mny2KGUrvYrWJXUHTPRrLHSz4b2G+ icnBz+TQfAmTAUIRYJEYIBTN01geIhRDqw9HavcTip4OLLQ3Pg6FbA5qQqFR 6Sg9f8tGuTAgEPpE6yNAyLNVrKoUecZCotjWIKYr/JYYrCDtt09NkvfbP/Pn r+DVv6KBPFuG6hgvc0QjOovr0FXqhF2dSpEO9T4hSclsGmzSBAZl732CEcli +oLYex2jJR0a6dUmnk1GIvNF0gVBh510pD2kI/EROmgYgpAoKXM8ASPhMAkR C7PY6WUWm3nMBnFBIp6GyZgOE4kwSnJQaZQdbxx8B6+/cBZHDp6DL3UKOceq yUWAXJCJ04KJqX0mChI2ZaMQTFjIBIvF+rS7ZOI+gtkPmCDfJRPvo7/4fTLx AUbKP8C46wOEaRoDNR8zsX8snRC12vIx1puZBFgQ5iXsoFBzD40ln2O2/XPc mPocP9n6HD+98glW/eTBf5e6gyXysNB8E/PN1zAbuIKpll1MtjBhtNIoWhcw ESADw2RimEwMR+Tp3QNsGno78difl75KHpL4O9VAQ5PQSjwYJB60ytgdgzJ2 w0wO5Jkbv70/bEXQIKYvpCgciP33Yoe1ndfP/MUZnPy/s+A8XIX6pAZ0Zjah s7wagaykKD4pNUoi4/cVLpIlKvb34qsEEwYkx8tMWC5oWEckSa9YRSZU0SlI pGMkKkwkxTv4f3CQC5kJHXkQSUSvFlw4BRVREhRfgpFIGOkTJspIpzAZaCrG DD5MJL4FAy8NBEJPICQZU3HkuRM4/Nwp+JKH4LNNIueoC7nH/QSjk2CwijxN ozhHKGIUKDQyFJWW66hJuQWf4w78zntozb5PKB6gu+Bd9BW/h8Gy9zBc8R7G XO8jlPMeulwfYoSdwYz/Iyy1sDpsfR9L9e9hqeFdFGgfwFXzOYYGPsfF1c/x 7vXP8d6NT2Qgmu+w/b+FJQKxELiOObHFvvUSpoPbmAxuYrKNXUSQxjC6SxGK EVaRI/MEg1Xl4CCWejseY+J3oI5XkwctazOdxINOZVLGMFn3eTBJTMjzOKzS 7BUxlCFN4UHaZa92REk4/Jq0kfIH/6cacd8uROExD1pMfnTmN6GrskL87Veb hq9JW2TIhSLb/mZLsfvWlihDIXbfJsfRJGK1hEKtzBr9dSQIKM6nQEUoVIRC RSgSJSjSJSg0hEKbxCjrSMST0DOL6ImDQYhAGPQifRj04jEDgRAU6BXpjOL/ ojOm4R+hJQ1aQwpq9bUPZ45bJ5D1Rjly32pE7rEwck+y9zs1gbwzggj2FfEb XNLbKCERFZZrqE65CW/abTQ576Al+x7a8+6js/A+eorvo7/sAYYqHmDU9QDj VbSQUtpH3QeYaPwA8y0fsNd7Dwv1D0jEfSyxXigq+xT1g59jdE3oJ1j23yYJ VOAmlsTgpcA1REjDXOtlzAR3MN3GtNG+QS2TCtrC2A7FunJsWZ5DPsI+c2gI i73hxz+P8LtcZoms09REQmChl6fzfcEiTCppMs8jSMj2YCMOAgkCcUCaxPBV aXftM3/5El74y2QYflCBynMNCKUG0FXSQCgK+bgDDipN2pmfprVLnsFIp2pS pL11kl0kWWQypEENBnlQQ5yabUeivDf7a0igUyQoUCQQChWhSKRTJBEKNaHQ MHtoyISWROiEtCKL6MQ2YJ1eXBjSaRpaXmrJgZYUaIwsWA3MR3pblDKj02sM wmfqlYaTOw+XIPfNeuLQThz6aRJjNIhZ5EcvEYV1FLLFKDZcJgpXiQLbjLRb aHDeRiD7Ntry7qCj8C66i++ir+wuBivuYdh1D6Pue5iovoewm6ZBQ5j13sO8 7y7bRZaLDXex2HiXODArNN1mZrgtZQdhBkvNAoHrNIVrWGi9gkjwMubadjHT fhFTIRpDmNkivIyJEEM/vk2JwdVLxGGWKExgieYw0xlUSHhGmfCdnBKEPbUN 6SltyLC1wZlMWdvgMLcpmzp+jwaSRELUCilGZZynRTEQG4xfGOYjzEMe4uCQ xrlIw1w08tgOu1bsyWZcvkJiTuDoU5mwv1IDj4oWktmCrgofOkvS4NClI10n 1qqDl1+TyCE31J6lpEgbdWVLUWY6KPu3k1kTWWKTlKHjX0Ms+9Q4NihxpCae 1MSz5lCx5khMFEpHEqlR8yWq+fLUJFlDRUGjS4+CWi/mD6j19B59mqQkvR2J +hTlm/8x6nQB+Azd+xPNs1/zkJggieklMaM0jxk2I4usD9dIyxaK9bsos7DG sF1DXdoN1GfcgD/7JlpzbyFUeIuF1m30lN5Gf8VtDFbewYj7Dsaq72Ci9g6m 6u5g2nMHs77bmKtnY9FwG5FG1g5NQuJTC4v+G1zdC80KJeKD7RIplzBPUmZD 25gmKVMkZaqDaSS8qAy4v0itP6RldAKLgwPKJyG/q1Bgd7TAkRFEVkYb8qhC 5Rzk8vQ2VFLmsy5Yz7hhO02dok66YT1Ove2G8U03dK9VopBkFZjakKMP/o3y bTUCrnhhQ8xMypBQfYKVopckyBNCJLjEuCABVqIMlk0eEbM/FURMA0gTvYTY /f+f8cxfqXDu6ULGwQu/IcD8RDty1yKdaSFdJ5QOh16GzCGJgOmYsxTAUvcA UyvTIpR8ZaNjWuOT5JMMvozYC+QqLhVxCXaJq3i+wgS+QhVfYaLImIkacaHl hUonRlmp+DMSdPKWhi8pHwGpZkHl1XXKk9AN03AeqkH2kRZyxDr1LdapJ1mn nosgP24VhUlsaHVMQObLqLRdQY39KrwZ19CYdQ2B3OtoK7iBcPEN6djY3vKb 6K+8iSH3TYxU3cRYzU1M1N3ElOcmpn03MeMTb1DcwBw133idPcl1RPxMMs3k hnXofOAyE9UlzAV3Mde+Q34uYiZMfjrWMdVJfjoXMdHB0mOSbjPJUmRyjRyR qfE5LDL5zPb37H2c9jvS1X+RjoXOziJAXzgW2nahEvYLLmRccCMrxo2caDeX jRv559woOMtrQlXwDq8JVe4xPuctN5xvuOF4zY3kF8tQRbtyG/j9NEH8pfSz /gPUsSqSRduK15EqozJ+do8s2bZMCYKuXyUr5VfJksASfiS2iz/31xaov1eB srNNaKeFdpUIvCqJl3hOukg26fp02b1+g//yEffSpjw+ZkDZUG5jB5csTZ5Q fUWpg6LjbIjhC7xA/C8Q/1gqjs1arJrXanHN+9UpX1X+LlinDsOrHYRPN0Er mkfWYT9yXu8gRgNMXOPIOzvHVoeJS8XEpbuIEtMOypN3UWW/jLr0y6jPvAJ/ 7lW05l9Fe9E1dJRcQ3fZNfRWXMeA6zqGqq5jpOY6xuquY8JzXdqaOeW7hun6 a5hpuIrZRqrpCub8TEzNVIDosJWZZa0y27aNmdAWphV8JjtXMdG5hMmuCMY6 puXp+lMPEVqkDUVGxva2AH1bmaTuSGtATlYr8rODKMppQxnlym1DDa8d8ZXI THAhJ56YUMVxbpTGulFBuYiUm0hVEakq4lRFn6qiR7mIUyU9qow4FdOjCo8Q u0MuOF4oR4Oxjb/KNv5a2/5ir5KOU8lexU5Gtz/Q+BGvUmiyqB6fZPTo8Joo eXCNgOkPpA3mz/z1m3j1605iXIPq+ADCzjYWTX42EAVIZ08jkJKuWcpK7iVc ixkpTUgBS3atFCr5kSkFYn6FXppfYU1Q4Q8VTKoSWuFJ6oNXMy6NU8942UtU 2olKHztkUd9MIy9mAfkJbIA0mygybKHMug1Xyg5qHLvwOnfRkHMJzXmX0Vp4 Ge3Fl9FRdgXdFVfQ67qC/qorGKq+gpHaK0TlCsY9VzDpo+ovY6qBamQz07Qr zQ2bbmYZK/ZLtF5kOUs82jeJyAYRWSMeqxjvWqIWqFkZDzFsf2pDGri/OLGA hbEZTLETVjD5F2WYbm5WAAU5RIRolCtHfNdS6apKZCe6UCDOQ1a5UU65Etyo pmqJjJfI+GLlk6cbiEsjcZGPnebXxMVHB/ISl1riUkX3qSQuFa8SnRddCBKX AHFpVhObhCD+bC+/xSXJDsSSVozD17Fw0pEXPR3IkPD40KNkiRl58tWjw47k STeZYqCJGGORKYqn/x6Ld/6xEJlv+NCgD6KT/72uqnoE8gwkJRMZBsmIePlb Cjnpkhx6Od8Jcuz7+U6xI7WF5JCaJOa5RNqRKkk5ne5vUZPQA0/iKLz6aXit C3C+3EpqupF9dBg570wi99wc8uKXkJ/EHKVXdvnatuBOu4hacTJa1jYa83YQ KNhBsGgXoZJddJTvortyF73uXfRX72Kw5hKGa3cx4tnFmJfy7WC8focNE1vf pm35zdOAeF+E1W5wAxPt61LVO9FBUpiPxkjLaPcCRrvmlGH8m7zeVIbyryJC YmZYCSublZ9WmqFcZwMKcwIozguiJE8+QbuG8lE5SZUoSHKhRM1IJzHqVG0i KSA5DZSf5ARITkusO0o6Kft30MbLNsLTxtTVRniChKeF8AToNU2Ex0d4PASn hqnL/TJBfLYcIYLTpmmTNvrXxwSU88v/F2hjlfQVb5ThiafZxBOe+BRlOs4j 8NBsxHwDm0aejPMYOLpMyOT8mjTo4gd/Y0LcdytQeMqP1uR2pi/SU1PH52QY M/krySBBgp0M4yPew7bJYXBIBKXpH6mWRELb8x01fUfNZJZEehLVf6R86Lkm fhh1mil4mJXsz9cRnk5kvj6AbLFB78w0ci5EkJsohtKITb9rKE5eR3nqBqrS N1GXKU5E3kJT3hYChRcRLL6IUNk2Oiq2aZPb6K3aJjzbGKjZxlDdRQx7KN9F jNRvYbRxC2Niw03zBsZa1jEWXMNYGxVaZdZZwWjnMkYIzTAtZrh7HkNdM/Lc /mkxu38DETG/f3IFM2NzGOztU7j5lhKcgqxGlOQGUKqcvC7OnK6jGqh8dSVK NC7WI2SGqiM/9VQT+QmQnyDVToXJT0e8OGali97zu+jmpTiuuIcQ9dCFuqhO ulAHYQoxaQX3QCJE9a8TpEOE6LkK9LCo7iJE4SRCFNPyfygJKykmTmYoTq8w ZJH4McTTfCSGyI+YsER+JIZoPDJDTsV8BDeCoF+Xhug4FD3zN6/hhb9Jh+H5 GlTGtiKUHmIwWtFVXSEQyjogcUTn+SI/e3lL8LPPjk3mR0P3UYuJOsxZSWrl ZOa/YO7uRY1qHLX6OdRZl5D2fBAZh3rhPDqKTDpPdvScvMNTvSRvBbasoCRl FRVpa6jKWEOd2OmZu4Gmgg0EijbQWrKJ9rJNhCs20enaRHfVJnprNtBXu4EB sVPLu8G+fB1DDesY9q9hOLCK4VYquILh9mUMhZcw1EGx+h0kOAMEp797Ngpz U2LG8960/1lWMlPjixgZmtibo/FNZX9qcXYjoWlGRX7r/onx4qDyHHUFijSV KNO64KJqCI6PaqIChCdIhQlQJ9VN9fLrPl4PEKRBoSQB0hBv/TaGaE6DCbIG CFgvoeqOkUES46RamcoC7Mwaj7hQ91IFBtj39xGibm0bQvEtf6z0zuoLCQRI C50AKM70BYDksW2SAbGftiSlS6OYoiR8flMyIGk0ly5TyV57k5eyCdBZvPn3 +bC/Vg+Pth0duWGmL7ZpFVmPAPTbDwEyPoRov/ARBsRWKlVApCVAWgKkMckA qTV8XfEyQ38Od8wwu6wZ1JgWUUM20g52Iv21IWQcG4fzzAwyL7BcTowgW7uA XD6nIHkJJanLqHCsoMq5gtrsFfjyVtFYuIrmojW0lq6hrXwNoco1dLjW0Fm1 hu6aVfTUraLXu4o+3wr6GlfQ719GfwvVuoT+Niq0iH523f2dC+hj6dvbNY+e 7jlMS8cD7B0SsIHJiVWMjMztTW76J6WjKcluYD3jZ4ZqQVVBq3TCvY/K1ZSj RFuJCkJTTXm0zE5UgOAEtVUIaarQSfWoq9FPDfL2MO8foaIwxsvfwzifP6F7 KPH1GDXK7zGSJAPWT5h66FCdTG8hprZ2AdGbLjQcKsewXR5h2CfOCVcF/uve e0d7AMUapHOhdHEPATLuA+R4OPNPnvcHmwJPqgTP3hgveWSTKH/+Lx3Ofbsc OSf88FvD6CwmP7UNpCYbGaZs6ZogmbKiFCeSMpkkBSLDnhMpEOn2IGIW0xIi DWsgtZavK54FpfxeT2XsBKrEGHE6TLV9Dakv9iHtDWXb3zlW0nEROJMiyNLL +0PzkxdQYl9ERfoiqjKXUJuzBG/+EhoKl+EvXkagdBmt5ctoq1xGqGoZ4Zol dNZS3iV0NSyhu2kR3c1UyyJ6ggvobqNCEXR3RETC6IyQlk4SFOqcfuSsgQOY mGTKm6BzjS7sjYSTr/4Kpdk+VOQ1wZUfoO2wESgMop4E5ZGgUm0FXDrajq4K Xl01mnQ1aNHWol1bh05dHXr0HvRTgzovRvRejBm8mDB6MWXyYlrI7MGMuQ6z kmqpGqoaM6YqPl6FSSPJ0pMo0jWslm1L0CRyXPi0C23HKtH0ainG09swKoZi mlrRk+hXfv30ohiidEFBKVagZKWIUlzKr6AkeZHaKXuRNBOOhmTX73NEI5In PD37dTuSfliD0ugg2hydNCBmstrafYh4LXHEZJphYlFkzFQw2kts/z8o6YiS TqDEgkhLlDQySvKy+BNUxE/DpV+EO3kVbscmbC8PIvWo2CA4A0fMPNITIkhX K5sEzRHk2yIoTougPCMCd1YE1TkR1OUvcPUvoLFkAf6yBQQqFtDqXkCwegFt dQto9y4g1BBBqCmCcDPVQgWpdooYhcMRtBOl9s55BDtm8IR0NsEBDE8wCY4u KwNnJXxkH/rvKM2qQ2VuA9z5fuITQF1hK2kO0hPbiQ+bKWJTo6tl3+yBn2rV +RDS1qNL24A+XSMG9Y0YMTRh3OjHpKmJyPgxa/VjLrkJ81TE1oiFFKEGLKbW Uz4spnixYPPwsTo+h1hZq/nvBE5VGCVOQxoZJZHhus65EDpZAf/hEkyxjx63 BzFiaZFm6P3R3t8+ovcwMsoYxQqMbNATI0O8nRjt1UPp+xiJhGZ7fIxclITR VySIvv/14zj0jVxYDtUzzYQQyu5iSmBFVl0qQXRAwul3JY6Y3JD+GEk0JKOg KH2/NLKTpFQ9KdKzNNKTIp2giGW1VgtzUsIfK35UljCLClY8lSnrqGSpbD00 DNvbU0g9PQd7TAR2QpSmoScRoixLBHkpERQRojKxx5AQVeVGUFsQgacogvrS CBrLI2hyReCvjiBQR/kiaCFArQSolQC1EqBWAtRKgFoJUAsBClD+8CwX2uCE OOdEOuKAGhjfRM/IijK9Vi6A/gClmdVw5fpQlddIfpqZwFpoP+3kJ0x++BjZ qSU3PnLj1zcgqG9CWO9Ht74ZfYYWDJlaMGpuxYQliGlrELPJQczbglhIDWKR sV5KC2LZ0YqV9FZxDHh6gBloNb2ZXzdRjXysgc/xYcHuwXwKbcpWy+9TjXHa 04i+CkO0pf54F3qiKxE+UYbmw4WYzgpiMq0VI+ZmcuSTG+L/FUnnZYy0Fx7B KFZglPoQI2X0nEWZSJj8qxgx1tn7I+e+//UknPhWGTLebobP1IGOIhpSbQDN hVYZoSeRYc6WMTI9xChKAumrcBCltH1D2sMo9SFGemKkM0gY/YnCUIlqDmXG FZSlbKKcDJleHYHl7Wl5OyIZSiFDqWTIYSRHZChHbD9zRFDipBllk6M8clQY QU0JDYn8+MhPPflpID8NXjJVT5GfJvLTRH6aWqk23keGGshQzxirb6pvXOSv 3nFhQD2jm+gYXpVeoQLQ3ytvQxQ5KlGZXUeA6tmjNxHfFpbO7fAXdrLfqkal 1kMDqidAjcxfzWjVtyBsaEU3S9t+UzuGTSGMWcKYTO7ATEoH5lM7CUMnlhwd BKQTq85OrDk7sJ7ZgY2sMDazQtjMFmrj10GqFetZAaxl+vlcApVOo3L4ME+g ZgjTpIUwGUVlxYpJ5UJvdDk6ThazQsrBLP/9VFoAo5ZGhONrlLdWvgptjELR BZkifezjZmSiGZlpRBbpMzGCoT9WKJJH1KWSoMcpSkHsv1ej4GwQgdQudJST Ig9rI3lXvnQtY5TNr7MVlPZwcjLUzsdQshvSkGogSgY6kkFGKYUo2fRGJBOl P1W2JxWoZlFsXGXztYGSjE3oXx2G8e0ZeRcjO3yrKsLnEykTc1syLYko5aYT J1pRCTEqJ0aVxMhFjKqJUQ0xqiVGdcSojhjVESOPnwpQRKmOVlRDdYwQl9HN KHSOCnp4E2He1dq/vHfM2h49lVk1ND0vamg/dSTHQ3IaCjtQoK5h7exFNanx kppGXSta2E2H9CwGDB0kpxPD5m6MWXtITg9mU3sRSetl5PuwnNGH1cw+UtGH jZw+bOb0Yiu3FxfzerBN7eR3U13Yzu/g12HeT5pySVMOScoO8N/6sZTRgAgp mkn1YIoUTbBqGmOVNKSqQF90Ka2oEAsFQczx+VNpTaTYp9Dz+9BEa0iQQabn wh49YjeWXRmBqdBDD7JqHnpQii5ToUf2IDvJ+d7Xj+Lg32ZD/yKrxIQw2rN6 0OFmdV1XLQ/9+D0JHBka+Trd9Hg624eHKc3+GDypMjyGPXgMsGo1f6a4ab55 GQX2dRQ6N1GYuwnt8Wnoz87DGCdvdTSxpLbSflKZwtJpP5mZZIc1UAHTV1Ex +SljWquMoKKKqiFHHorpy8X05SI3LtpPJbkpb55DcGjzAILDghXeRGBwQ3oR yskLf6e8TV6eUYmq7FrU5Naz0mqGp0D0Wp10ml6Uanxwa/2o07agQbznqw+j Tc9VZuxGr7kXQ9Y+jCUPYCplELP2IcZ2iDEexkrmMNayh7GRO4ytvGEyQRUM YbeQKhrEJepy8QAuFffzdi/VQ5Ef/tyLBWFs5LdjPS+I1ZwWLGX5ESE3s0xn U0xlgplxVu/DqnIyU4y247lkpgVzfN6UvQEDplrlTwC/CfV5jbSnVxdj3h/9 IBxnjxnjXt5SK4MxyYtNjFVOITBf2zccCZm/vYA3/rEEKW8wm+u7ECogMrVt CLvzJWLSzbLpHJBoYUNvJi+PlECCl7Q9XozkxUhejOTFSLMx2pAieDGYZF50 mr9Q/o6Yw/YrN2sDufmbSDg2xmw8B018BFqmKh1TlYH+YrHTa1jqOJimMugv WSxzcljm5FWQG3cEhfSXwlryQ1aKyEoRWSlsmEdT3yaa+gUeTQPispG3PV0r 0k/+l0ch+X24Mt2oyfGiji2VN5+tVEEHGglIUZIXFRo/arRBpqIQ/IZOtBp6 EDb2occ8gAHrEEZsI5i0j2ImbYyBHMdS5jhWsiewnjuBzfwJBnyCgZ/AbvFE FC6XjPN/faV0DFfLRhWN4ErZMDVIkZnSPuyU9OBicRc2WTesF4SwQlYW6Rnz 9JhZR73MiaWK3lKBoYQS9JzPx1IpyyfyPZfZwHLZA/mviU8ghl3WBUlGxMUa DyDugjjlNy7GiFiiE3Nej6/sNWYSTnpx4DeREjMkkqUZEuINIgknJjCTMmbG qpRBUZIJfU0iKlUpg4S+97dmnPmOG1mngmi08TdWSp48gf8Plr4is6T4j8O0 x9LjPEVJNH1J4inFmExZYCNPyXo9LFqN/Lfi/wincw2ZZCmzeBMxp8cRHz8H FXOVirkqib2XjmWziSWPlZ5jy6cP0XMcZCmdLGUwVznJkpO+U9exibpOqnsT td3MSXU9AiHeRHnbovTDlKOf5D+M/2+oSC9DNfNSXU49vHkt8OWH0VjQC3/B IErV7NQ1rajThOkz3fSZfrQZB9FpGkafdRRDtnGMp4rhi1OYz5jGYuY0VnJm 6BEz2CyYxXbRLPGZJT2zZGQGV8tncK1iGtcrp3Gjckoc/ema5P/+euU4rrnG cK1yFFcqhrFbMYjt8n5cLO3FRkk3Vos6sJQfQiSHJXdmM3+eYInVjtmFMW0Z BuILET6bhaWSABaYW2cyvei3uuXPNzxJlPSIjTMgLt7IX6xJOkk+Cqo4E34d ibxMin1EF0xIFIqhyJPqvBEJ5w2/pnzeWXNeL02n0MbsjSqR95/rpWlGDmWa keJcmn3ngk3ahCiM69ck2/rBU06onvOhODaMloxehFxdCHt95F4A9mU5tSmp zvEriGWI3cnp0jADB1JNaaTKTtkkwmyCMKMRVr1+7zMuqflrsJduwlG5iXOJ s4imQ8XQoWLpUCpSpaZDaelQelZABpJV1ryJshYiE+R1G9XO2yFeUyVtG999 lKC/g9tZidpsD7y5zSQohHpWHE35AwgUjKJc3YJqdQheTTermgG0GIYRMo2h 2zqBAdsURuwzmHDMYtY5h4XseSyzJVwj35uFC9guXsBu6QIuly3gasUC6VjA ddcCbtA7b1bN45ZQ9RxuVs9SM7hRTaqqJnG1agKX3WPYcY1gu3IIm3SntZJe LBd3MyN1YC43SEJIUbrIXNWYMFWwXi5GX3wulstbsVTUhEieFxPOauVjVl+V jp+PjzdQRgkfFZVIJcU/PH5eE2eGNk4cQK9lP/Zl1tS8T4goaYiSmkoiTonn DEg4o39C2WClPkekePfednYJqXiBFJOhSnYvs1ogJabfOKMkpn6HRLGG0svV 9789dRov/30hTIf9XK9daMvrQ6imA+G6SmlqmsO0R5JMlUMpnKIkpr6GNF6m mWTzEmDZTQpWJmJlSqVsRMoqoZUso6WkoK/AUrSC5IpNpFRtwl5DxjybSPdR DZvIaNxEqncZ35eB+YbyCcey1ELUON3wZLPc5ZL25XWhMa8fzfkjKE5sRmVS O2oJjE87wC58BEHTODqsU+ixzWLQPo8xFmBTTjGrcQlLuctYLVjBBl/GxZJV 7Jat4nLFKq5WruKae5Vl8hDWWf5spw/ids0y7tQu4U7dEm7XLeIWi/tbdfO4 UTuHa7UzuFIzjUvVk9h2j2OrcgTrFUNYKevHItPaPMGZJTjTLGemHaJMdrHR KsGQJh+haAfBacZisQ+z+TVRym9GMJNAZhISjNIR9eKA+ocnk5OVeHG2tPiz 6pekQ+r1cYpIjyFWuo6C/oJ4WCqUok1ShtOc57c4JzZCGg4oZUDSWR00vEua ihEjb4/WPVpP7SVAuhIRYuGbKTuTTnamFIkhHY79swtpx4PwWHrQzhUT8rSh oShlb3qSPE/tAJGSERLGdECC5zfkaVqmDGKTTj3Ex2ZKoYiPyUp0zLASH7Ne l/4oEf8Ct6MUtZl1JCJAIsLw5faRiGESMYHSxCDc6k4Wu/1oIA3Nhgm0mafR mTyHPrZww44ljDuXpRmNkbw1LBesw/3DPHQ8mwf/83m4RNO76trENQIacbDG yRjDpnMMu04WMVmjuOddp9Zw17uKO94V3PIt46Z3Edc9tB3PPC7XzmKnZgYX ScYGyVglGUu0lAipmC0MYzq3FdMsXqbsNWzOyjBqKkBPUiaWXUEsl7GxKq7B aFYFUdCLM+oVFIy/ckh9lDiiXkHBoMgoFKecTW+MNR+AkTz8GgzkQYxH0IuK hzzozhqlSRnq03rlU+z/8Qv75eWKSPiKTvhKokOZrbY3VetXofi3p9IQ/YwH uefDaGKj2V5BIHzNYkhKtjwg54A0IEWaoyWZSZpkJnvDcuwmmYgUEpFCIlLM NBNzqkJEMpJJhJVEWAxGZauAgsPTqE6vhIe/Um8We54cGkHuIBpzxxDIm0K5 KowqdS882iE06scRME2j3TqPrpRF9KctYyRjDRNZ61ysG0h5phCVP6zEwCu1 WDtdg2sJpdiOLsK16h3cqNnBIrPOMmuWjawp7GRP4WrOJG7kTeJewxbu0r/u NGxQ67hVv4obvhVc8y3hMtHYJRYXicVmzRTWmG2WiUSkfABzrFVmWPdO57BP zvBhMo0mYSvAADP+ck2YSDTj2LOv4u0fvSqhkCjJuI+B+EyXjMEB6ZB6I2WS 0DDFi/vM4lT6OFlRMNMj/itvm6VbQiYhAiJGKBiEBCJMLTppiIoyPUMMU1H2 0u9NT5GmZxALPdONPD3loVfI87UoYvE/nzqGHz2VB/VLTShJ7EJLNuvB6m60 ez1PSGMzflcemSNN0VImae2NziENqYo/pJgFDWmwkQgbiUg2p5CGZFgVIsx6 Q8bj/lCTXguPk+VFVgd82X2EYoRATKIovhWVCd2oSRqEVzeGJsM0WizzCNkW 0W1fwUD6OtfeJiZzL2Iufxv2HwXR/PoI5lRTuJY2gbsF/XhQ1IBLmlLc8lxh U7vMHijCHmge23lzuJI/ixssZB807eKefwd3m7Zxx38Rt5u2cLNxA9ca1nCF cOwSjG3vAjbr5rAmpgBXjWOhchhzLGJn2BBNszebym5i1qrBRFophq05WK7r womDb1BHcPy5Vx8ZsvBwb71ebLBWQIiSUHgC5gT5AHoLYaCipFPpD8BKJqxk QSgKFmEYFuLwh9JQBTFZQ8jI7skQLY9U0e0DYZK2Umui5U31WiYObbxdqT8c EgwmAYRmL3lQEgwJOPzNcliPtqLK2ItgIWGoC6OtqgiphiwBRNYBKfZfk4dn KQRIfmBOZ+QdjHwaZZcJMNtIgEyB2WhSthgqGw7/Ga6UQtSxYvM4W+HLoidk DxKDMTTmTKM4PoRKVR9q1CPw6SfRZJpFa/ICwqnL6HGsY9C5hbGcbUzl7WK+ 8BLsBxfQlnCZ/coNVpHXca/pIh60TOL96iZcZTW4nLOJpYwFrGbO4WL2LK7m zuA6u/dbrI3vN1/BvcBl3G2+hNvNO7jp38Z1/xauNG3iEnHYrl/Bpm8R6545 rNAfFqrGMMcqdKasB9NFIb4GekO2F5Osmkftuag4FYuTL76Fd154AycPvqaM VzA+Ml6BYVOZ5eh/SYq+ZX+DvFkanZAsKEhOEBTwJmWW9tBHSbf+SH6aQoY0 XUEAESvDIE3ZOG+A/qwe//o3z7KSkKcrqPemK0gDVuzSXB0paQgY1A9hEJuo v/NUMk7+z1pknGadn9KHYJmYCBuUZioQBGm0yhPSIJ2vSRPUUhQIbF+AwEor sBIEK0GwEAQzq02j3vg4CN+BO6UMdQ5Wjhkh+DJ7CcMwYZikH8yiJKETLnpB rWYc9YYZ+C0RBG3L6LCvoTdjE0NZ2xjPu4TpwiuYL74K+1vX0JxyH/OuB7ge fIB7fQ/w7sAO3g9P4SN2/TdT3FhmMlnLWcZWHlsRtiU3CcHdErYe5Yu433Id d1uu4XbLFdwkFNcDu7javI1LhGGncR1bDctY9y1gxTOLxZpJzLtHMFPRj+mS TkwV0hPyGzCZXYUGrv3q6DicevltnHrpKE69cESGIJFr9SEEMFFmBtoiiW4p pLKKUPPWk7AlJEtjFFKkUQq8ThCP2VTkw8Z/8oe8NMt8SKeUK9M2Yo3SzBUx acMYrYeB1WTiaTNZeDhfQROrzFeQ5is9ykLGPgv//lQWYp9rQF5cF/zOAbS6 aQq+RtgMmU8QBvH2nVG6EJtqBQQ2SRIEURIFX2LsZQ4s5MDCstFMMzAazJmP IvAtVKW4iEAzfBlMB/xJvsxR1GdNoykngpL4HriThlkuTqLeOIdm6yLaUlbR 4dhAr3MbQzm7GC+4wrV4DZHSG8zdN+HKFFuh3sd6z/u4NvY+Hkw8wAejl/FR zyw+aWrD3YxqrBdsYbNoDZdKVnC9bBm3K5Zxr5IIBG/hXvAm7gTpJa1Xcb31 Cq627OISMdjxb2KrcQ3rDUtY8c1jsW4a8zXjmHUNYbq8B1Ml9IMiP5ucdDRq zKiLT8CpV47h9Mtv4fRLr+Pk869ATwQMiYoHmFUW/u72Ip8sop0gBiaokg8w 5snyfvknkcrL1ESrpJREGQcJA/yBTECCSTmn3sgkYZSnayhzVgxntYy+BUnn Hh+rsD9rR0xYS0rfj/6/PnUWz/99MbSvBVCm7UFzHiNf24VWj/gwmE2ccEcA pLFLTnm0ijFDKEoK/Vek6TpiwoaV8bdIssNMAswkwEwXMNIFsh4N/zdRnVID TxrTQHoXERhCvXMcDZmzaMpaRGlcH8M/hjrdNBrMETQnL6MtdR2d6Vvoy9rF cN4VTBRew0zJDSyU38KK6w42qu6iqupD9Ic/wsrIR7gx/RHen3kfH09ewyeD EXzaEsaDnDpslW5jt3yDvSVLQjc7hqo13HSt4V77Hdxpu4VbROB68Bqutl7G ZSKwE7iILf8G1ptWsdqwiEXvHOZrJzFbNYLpSrpAeQemSlvQzBrJr0+GJzER pw8dx5lX3saZl9/EOwdfZejFqpfKPQbxACwqseLFYfPJUkhtDHyiLYqhtj0p dsRHSduf/0gJv+Xh8dNibAJLTSnk0iSNRwaqnNUg8YwyOuECwx1rZ8jTWJKK kMuTtfZC/u2n9Hj9n6tgO96GKksfAiX9aPGGUFdsxyvPx+IQdfhgbBReOxjL oL/GL187eIHXF/Dq8zEsVkzifSsxVsXCoFuUoJuVoJu45I1Ga/aj8f4n1Ng8 8NrZCjh6GPNh1GdMosE5D3/WEsoSBtkOjMOjn2W8FxGwraI9bROdXOp92Zcw nH8VE8XXmX5vsiK7jRXGWoxJvFj3ANW1P8Zg9ydYm/gEt+Y/wYeRj/DJ3E18 OrqEn4W68X6RFzuuHVyuuogb1Vu4XbuJG+wi74Xu4k7oNm6138L19hu42nYN l4OXsdOyg63AFjb861htXMZifQQRzzRma8YwXTWIKVcXmm2FtKQs+I0p8GrU OPPqSZw5dAznXjmK0y+8JkbpyKH+sjRIJVkljc/ZH6AiTc6Qp2ewtkpK5dPE xvc0ZSxCWlKKdG1X2/ioUHKUdL7sX0o+sLfxeW9Kwv5IlRiCcF4L/Rm1tCM+ MTrlsSkJmoSH8zMMEgTpOPV9LzLOd8Dj6JcOzQz4Agw8o/xaJo4cycIb1Fuv ZeHYYepV6hV+/RLvP+ikYvD6wWi8/nw0Dj93XhqgYSICRlMqlQKDMTnn8eqv JtkHb2o7fGks/h2jxGAajZlc3jkrKI0fQpVmEh7DPBosS0zo62h3bKErcxd9 uVcwzOU+UXITM+W3seC6i5Xq+9hg+Le97+ISXb/W9ymG+z/FxsynuLv0KX68 8gl+ungHn02t4hfdffiorB67NZdwtY7VnneH3aPAgd1h+C5uhe/geugWrhKD y21XsBO8hK2WbWw0b2CVy36xYQHz3lnM1k1gumYIzewIm+3FfI05aLbY4dNp cebwSZx99QTOHeKyf+mIPEhHWuZifJI0QCVKAuCJvdBLYtzF1AM7u3C1nc23 JlXcSsFf89ImE6BWDhdWTpy2PTo+JV4Zn3JBC/N5jTIMwQZVdCoSY+xIjBWD ENKkQQjahHQ8/bfH8G9P5SOOrV++qhsJMdXsVqqhSSzHO29l4Qx1/mgW4o7m IOHNHMS/noUEIqAiAioikHAoC/Ev8/EXsxDzPJ/7Qydef+4cjjx7FgaGXW+0 5T4e8mprA8vJMHz2foZ9jCGfQWPWAgK5q1z1Iwz5FDzGBTRYV9CcuoG29G10 ZV1CX95VjBTdwETpLdZad7HgvsdC/IE0FXPb9x6LdCb5pg9R1/gZRoc/w2bk Z7i39jP8ZP1TfLZ6D7+Y28Av+wfwsbsRl32s6Rou40otw157Edc9W7jVcRfX wwx5iCFvv4adtsvYat3BRssWVpvXsNi4hPn6Ocx6JzFdN4LmdDeaHaUMey6z URp8Bi3OvnYK57jyz3Pln37xiDweRZqZJM/LsSWmRkmTchjyJDuXsV1EWom2 xs6+2MFLccuhtUu39681qVSKREKaRmbAnmSVOZDygUna4S4GYlilISlaLn8N mwC19HtPUBhQXVAYiHPguWfO4VtfT+ByLkL0SReSoqtZBNYw/VfBmlSChOM5 iH7JggtUwossHSjNCxboKBM5MJMBMxkwkQEjGTC8mAntwUxons1E0g+cOPLD U/Cyk/8iAOZGeGxhrnt2emnjXPe0eOcC17wAYBRu7YwCwCoCqZtoy9hBV/YV 9OVfw3DxTUyU3cZM5V1Equ5jpfZdbHgIQP0HuNT4Ia41f8SC/SN4/L/A2Ngv cHHpF7i/+XN8uv0ZfrH5Ln65eBGfDw3jkzo/rjZdxaW6XVzx7OCq5yJudd7D 9Y47uEoILoWuY6f9CraCu1hvvYiVwDoWm5YJwDxm66fRnOVBs7OKKicEeQTV Aa9Zh3Ovncb5w6cIwHHa/pGHwU+Ugs9Q2aOkgThPSqNQ7FSaZk/StnStg4+l K4MN0rVpvE7jtV16zI7f5CVJ0KbINGi+6AhmxRFIQrwyBUM4QYw6Svk0TRzz QIICwrPfP4fjb6Xj7SN5OPt2OTsDN0xx1bAlVSNN64L6BCv/ly1QUWpCoKOM lJkgWCnzQSMcBCGNIKQRBPuhTKS+nIkUgmAlCJZnnSh8xY28F1xw/KgUvujm x0qAf0W1iSxYO+C1kYVUspA2y7KPXp+zhlLVGFmYRZ1pEQ3Ja1xoW2RhF505 ZKHgOoZLbmGi/C5mXPcRqX6AZTEe1/sBLjZ8yEZNZuFGy8cs3z6GJ/A5xic/ x7aYirLzS/zs0s/xy+0P8PnqDj4fG8VPGgLY9lzCJbJwxbtN0RQ6yUIHWQjf wHb7VWy1XcJ6cJssbGDRv4L5xghmGslCjhfN2dWoT89CW3Yxgs4sNKWYcP61 M4gmD9GHTrC52zMBeSYOOdifjWSXQBDBFwg8ycDuBd8hbSMX11HilrhIw+9I VIhbDp3iDyQiTStokHdq2tXWfRokX1CJ/eX0BDH5IpaeEJ2IPRwKspvww38/ jdPHnDhzIhPvvFmIuJMVMMRUwc48kKGtRrauArEvGZFEDHSUkbIQg2QqlRik vUjqiEI2UchmbshmqZD1KvVKJpwvO1Fz1I2q191wHXajkjhUvCB2p1WiNSbw WAfwNNyGJtRZiEMycUiZYI6YYyO4DH/uOkoS9nBYIg7rxOEi2pyX0JFzFb2F N4jDbYwLHNzEgXlhWczMZV642Pg+Lvk/wNXAB8ThQ+LwIe600yJaP8fEzOfY 3fwc7135HJ9d+yV+efkjfL55GZ9PT+AnzS3MK2z4fKwUJRzu4krnbVzquInt 0DVstis4tGxgoXkFc/4FzPhn2Cj52LSyGswpoE1kIZiZhUa7CdFHzso4MD9Y 9sdlPRyNFCU5wpPSLBxpsImEQTqjnS4+maBLZ7Endlpm6BSJ23oZkQydTET6 I0Q49olQ/EFtUbxBmZATL+agaNgkyiOTinP8dP8ymJJcMKvdOPWmE+feYgN4 phIpsVXIoink6apQqCtFysksaEmEnrK+bKYZGGGj7C8Ykc9qoeBN6vXMKBQe ycRXUXg4E80n3fAfd6PxmBv1b7vhfdMND6GoO+RGzYtuuJ+vRNH3ivGFtwRc Oj8jTiIsA/Alk4i0OdRnLqGJRLT+v1y9d3Rj+XXn+T3VsmZ3dvec9Xhmk8Mc j9fj2ZmddUuyZFnR9li2jz2ybFlHUndLHapjdXV1dWUWc45gDmAEEYgMkAhE YiYBgmBEIkCABHMOFTqoWx3k2u97QFVX6Y8LsEhWFd+9n/u99xL43SddQ2/O ItQFEegFIqpS9PYWXE27IhGTFAh/zzHm5CwWqlMScQdx/R2O7nexYb6H7YF7 HOvv48B2H0eD93HieBdaO6lYIhWpB7i/RyoO/gUPdklFahsPFgP4pc3GYrOB DX2KZKyKRGy4KBDOHRKxhbh9HVFrEiELiRhgUWs1Y6BFDz2Fob9ZSqFogLWh nsUvj0RcIhEX8TabxIfbcMrSwiDuRUJ6D46wBadK3B1SnSMRSOCDJE/yBZGA PxIZkORVPWIgrQoZRch5GPuS9FIAUQ0KRDUQ1pmUXMtCZ5MJRbe6UHJbhtJs Ocpy5LjykhT5r6vRdMOM2hsKtGQr0J7HrM1qgYSxr6M1sDg0vVqPllfq0fZy PdrP16HjJdqLdeh8gfa88G4cxyU5ARBOhg2+mT5maCUIAwTBLJwSozIYCYGe qqD5kQzyv+948teCf43uLANU+QSgaJyy4BclQagQRgJgIQCy7EX0ZQAwV61R fTfg5HQw3LaHic59TPccYlZxxAH9GBHtCQE4xarpDOvmMw7zd7BrvYt9+10c Ou6y87+HE9c9aB2EIPQAm5sP8O7hA3x2TAgOCcEWIQjN4pdOAYIU1vVrWDck RQDWnLtIODIA2JII2mJYsBIAqRn65h70t8kIQzulrBGWxjqoynNEAN4hAJdY IUpufr4KqfzRljRhsU06+tW5EiH+4nNNrrgHQlhERRAgyZekn0UTQJHk15x7 DI+avIw05H2ORqWAxq8d608Xihy88P1ncfW1UpRly1BBHCpz5fxZC3CLVkjr yu6nBFthlVhhrzeKp1DrX69DEwtIy6t1aKO1v0IEXq6DSzjXJZzGEQ4KXkkf FhROoArP5zB0WY5/DU/mJKpTOPuVQcRCRCzn2WL/vBemn/RA/YP2J148+mso c93sEyegLSEVFZ9TMUAqukmFsiDKr8VhYt9grV2Ho2kLQ207GO/cg69nHwHF ARb7jsSdyjH9MZLGE6TMJ9i0nGLHyl7QfoYDxxmOnHdw7LqDE88daJwPEIiQ DBaM+8ck4w7JOPkAD3Z28CA6h489Nqzqk1jTJ7D+GBWxwRQidlJhJxU2Djvt /dC3kIh2zo1tHTA1N8LcKOHYVvBIFopv/tpyrIfrjkQiJKjKTdMgbA6pyU0v dJDk1T4lntH/H1ErnLOm1YqWpqQ2v0Zg45FmnBPR+P20ZuRmwBDPzJak64Vw av9WPs7/4Oe48Xopbr1RITaG1QTiyvMFuE0rer4QNS8UUfcLGfACyF8pgLte CyOniP4sBay3FBi8qYCTOuKmDV1TYIQ2el2BMdo4PzdBe0r86H8WT5WOEZhR AjOSAcb1dvpgoINwDL7aC/uLMgw82wX9P0mfeMfBtyDPdkOdRyiKCEU5m0lJ mLWCzSOh6Lg1D0VeBJriGCtyEpbaNQw2bsDTuoWxDk6XPbuEYg8LffsIaQ6w rD9EwniENTM13nKMLesxdu3H2Hec4MB5giNOjMfsCk48p9C4KBnLD7DFmnH/ jGDce4AHd36BB/sEIz6Pj0dtSBKKVX0Mq64drDg2sexIIexIYGlwGZZOCwY6 KBWtBKKD6kgoLG1S1o1qvP38ZRGKt5+7+GgPVlom2BKSiPTiq6fSQOSlYRAi W3tOBOALaQQKHqLATwt/+EM+fk6E+Cx0FPlpuXhERG5aKp772o9w/mv/jAtf +yHe+uo/IvvFQuSdL0H++VKUn5fgKkm48TznwhdKUf1SGZpfKUf362VQXSiD 7s0SGC8UYSBLBXtWH5y31HBnqTHE59FbGozf1GCCz1O0c/DyK78J3201rY+m ypiSX1FgijZJosZvkpDr6UPtHoqI561euN/ohfOVHth+zoT6YUvmNooZNP4c slsOqHIm2C7MsJLMQ1fDuYJzRn/bKmxd62w1QlAXLcNQkcCAhLNGYwru1g2M dmxhqmcbfvkO5oXbbWj2ENHvIW7cx6qZzeDAATath9i2H2LXcYQ95xEOXEec J49w5DnG8dAR1G7iEaduHLDZJBqfvUc87n2IB0d7eLC6gE8mbHBKBuGW8LnG gqhzDWEn0XBGMdBlxUAn0WjrJR6dMEk7qHGtUFSXimi8TTTefPZCZpne43uG xLVoD7UivWLoqw9l4pE2SDJw/PTLz+IF2mtfeRYXaZf/5Flco936k2eQ89Vn kEcr+tpPUUIro1V+7Seo/tqPIfnTH6OOVv9nz6Dxm8+i6ds/Q8l5FpRXWGBe q0TV69VofbMN158vQe7zHH1eqkLDq9XouFADxUUJ9Jck6L8sge3tKtjeKocr S08yDBhh4R+7bcRkthFTt02YzjbBn2PETK4RgTzBDAjkGzCbrxdOqObr8L9g Jk/Dr/fBT/NxcpmiBo2TFuGAsagnl3sxfLEH7le74HheCuM/N2buyJp512M5 FMLLjLkznEoXoK0OQ9cQg7k1CWtnCj05S1AVRikscZhrErA1rMLZmsJwxzom ujcw3buJOdUWFjXbCOt2sGyg+pt3sTqwh3XrHjbt+9gWfrHs2Mcex4h99wEO PAc4HDrAEU3jISUJNp+sLPfeZfP5ASl5j5SckJLUIj7x2jBVa8VU3QAmhPfp u+JYdEUw0E3x6DKREi10AiFt7dA01uPS81dol3GJhPzFH/4Uf/8fn8E//9Ez eOY/MdT/z7N45T8/iwv/5Vm89f8+h3do1//rc7j1/z2HnD9+DnlPP4fCpxnK L/0M5bTKr/wc1V99EbVffxn133wVjd9+A83fvYjWv7iEtr96B+1/cxWdf3cD Xf/9Fnr+4TZk/5QD+Y/yIOeIoPhpEZTPFkP1s1L0PV+OigvsR96qg+TtRtRd bkbdOy3s8zS4+XwlCl6kiAlt5YVGyN5qZlvZBOVLzWwVW+C82gjXO3UYzurH WBZ9kG3BVI4F07lWht5KCKyYLbBirtCK+UIL5ossWCgeoPVjsdjMZ8GM/LyB 36NDoEALfz6FJldFzJSYFM6j3+jF+BUZxt7qxvDr7XC+0IKRm+rKxyl5B7Ib Y1BlzVAvFqCpJCX1LCktCVg6hFt+b0CRH6LGLMNYHYelPgFHyyqGWILGulLw ytYxo9zAvHoTQe0mIgZ2jeZtJPp3sGbZQcq2Q1J2scUhc5v9w65rl8PnLvY9 e6RlFwdDuyIp/tUHWD95gLvvk5QPScoHH+HB2T4ebCwhZRrHTJsFfqkJU1Id RyIbTHVamGpVMNX0wFjF0lLeAGVhBd75g5/g2v/9U9wkIbf/08+Q+59fQMF/ PY/ip19D2VcuoOJrb6Hqz95Gzbeuova719Hwl1lo+l4OWv42D21/XwDpPxSj 4x/L0PXPFej+cRVH/BqO+nWQ/7wBihcZvfOt6HulDWp6U3OhE9qL3dBd6oGe yai/ooDhmhKGGyoYb/bBSAqExfHGHB1qrzaj/roUDTc60MjBtPFWN3qL7Ww6 6lD8chPq3mhD+1ucGM+34erTl1H69BW0Pn0V6i9fw9DNVozlDGIyxwFvnoNR djLaTswVOTFf7DyHxRIn/i2WSp0IljkQKhtEqFwwO82GYLmVnx/AUhmBKTVh rphaQ2D8BRr48vrg5TzkvdWLqavdmLjUgdHX2whK4xOQ/A4633FDccPP8WQB 6oowtLUxGJoSbPrWYO/m6JLL0aWYRahyGf21cdj4NVdbEiOdq5iUrWJasYZZ VYpyso4QZ86oaQOx/k0kLJtYtW0hZd/ChmMbm85tbLm2z2HHzYddzzb+EXt8 1LDo+NYeIMV+5O4vHuCTXxKSDwnJ3QOsD81jtmcQARkhkenh6xDeXmziz6CD rVFFaGUw1kjRU8Q+4y842f9VMar/pgy1f1+J+u9Xo/Efa9H8owa0/rgZ0mfa IP2ZFB3Pd6LrpW50v9IL2WsK9L6hgvyiGopLWigv69F31Yi+ayZobvZDk2WB LtsKXa4N+nw79IWDMBTRShwwMCLGclqlkwlEq+HHElodv15Pa7BDcpMAZLWh IZtw5BCOHBlNjp5qF7JfaEbxq+2oJ2idhOzVp/Nw8ekbyKXVPn0Tsi/fgvkr WZjM88CXP4SZgmEEioYJxjAWS4cZ/eFzCFUM498hXDmMSJVgQ4hWeWhuRPlf RPhjhasGaQSm0obF8gHME5a5EhaoIj2mCco0C9B0lgy+a52YfLsNo280wVek RsXjZ31+F7KrPihzFtBXGoa6JgZdYwJGtiSWLhaX3jWOMUvQlrGLrWGX2BjD YGscQx0rGOtJwCtPwq9axZx6FYu6NYSMKUTNKcQG1rFiWUfStoE1+wbWBzew 4dwgKRskZYP1csu9ga9gm4/CRwIpU6kHWLvzAHcoJZ98TFI++qX4yuac0oW5 PjtmVGbMagNwdg9ikC3JYCcLTpsG2kYZGp5XoPFFFRpf1qD5VR1a3zBCetGM 9ksDzAIruq7a0H19ED23BiG77URvjgvyPGZHgQfKIlqJB6qyIagqhtBXSav2 iPez76vjcwOtkdZEa6a10trc6JPS2l1QddK6XLwmZbeT16TocUBOq7hZh5rs FtTmSlGb14m6vB72O3KaCtLaYXTVjqL4NRnq31Ki/rwJrz9dQ0oKce3p2yj7 UjZav5IDzVdz4fizPMwUjmO2eALzpRNYKp8gHBMM/QQxmEC0ZgLLkgnEBKsd R7x2jDZKG+Gfh2lD/LoHEYkLoWoHFonMfIUFs+X9CJQY+G+zZ8lTwJ/VjWnK 3RQL4siFOowXyNiOPIbKv4f0rVH03pqjy8J0Uwzq+iQMLUkODEnYe1bhpmD0 FQehr4qgvy4KW/MynNIYhjrjGJetwKtYgb8vgTltEoucUkPGVUT6V7E8sIa4 dQ0rtjUk7WtY5bSa4nCScqawLtoax4t11xpehZoT8MT6AyTvPsDZRw+wOrOF QN8QZjVuzOocmNENYM4WhUN4/6jCCWuvFcYuAxqu26niDjRmOdCU7URzngst +S60FrrRVuKGtMyD9goas6yjhiYZQkfdEDrraY20JloLrZXWxq+10zponUNo 7xqCVLDuIbTJhtAq86CF6DbTGmn1vW7Uyd2QyF2o6nWhQuZCqcyJom4HirMa UXq7FaUUkuLb3Si+WEtrpLWiNYfo5tiJiRKSt7Rov2LAG19qx1tfqsU7Xy5C 7lfyUfvVAsi+Xoj+bxRiLtuGhXIfliqmEaqaRqRmGsu0WO004nXTWKmnNUwj 0eCjeWlTSDRO8nMTNKJTP4ZY/QgivO5QrRuLNaxWxGWW6hIoZctbpGHbK8fM 7U5M32jB1JV6BCpVDzH5eubYQNc7fshzg1CWxaCSJJg5xETKebc7iUEqRm/+ PNTlQRg4G/c3RmBvjcLVsYzh7mWMy2PwquLwq+PM9hUsGFYQNK0gbE4gOpDA sjWBuC2JhD15DsnBJH4bq44kjaOtk8+uBJKuFZYPDxxtwxj3bGJSMYpp9Sj8 umH4DZRboxPTRiv8QyRUO4SBPkq70sr01aKKhbiS8l9Z4UQldbaqhkZPVNXR KAQcdSkDv4kqklDZmrYK/j/l0mGUtQ+jlFbcMYxCPufTcmm3+bWb/J6rLcN4 q3EYL9cMoVZ8Y3ttYR2+yEcOQQ+NI7GkoEbYnCGsBKrCl1FyqQgFr+ej6I0S lFysotWh9K0WPhOai+1oZ4vRk+OGKnsYlRd0aL5sxptf1uLtr3Tgyp/U4eZX y1D6pyVo+0YpNN8qhfO7ZVhiOxKqnkNUMoflujkGfo4AzBGGOSSb5rDaNIvV 5gDWWgSbofmx2jKNZLMPK01e2iSWG8cRbhhFsG4YCxImXzWreSVBKWOvUtTH ZrgHM9lSTN9swNiV6vLHN2Z8B903FtHLUUZRuQIVG1Q1ZcTYyTFHloRTmYRc bGzJSF0I/U1h2KQRuDojGO6JYlwRxZRqGdPCjcd0McwbYlg0xRDsjyM0EEfE EkfUGseyLY6YPY74YBwrDj6LFkPMxZGqwQ1rxwhcvaMY7RvFhHYUU4YRTJk8 mDK7MGG2YnQsAoPOA43agV6FGdd5hVerHHiHxfdtwnGJcFysceMNVotXKRvn aT9jFfkHVpeKzIbCyrzMgrD8etTk158TDwl/8dHGFOG5VrQG1BbVf0H8w2/w wzoRjsexOCeuU/lqelchySi/XIyi1wtRdKEU157Ny9xbvgIlb3ag7M1udGR7 0Js9gr7scRiypzCQ7cNgjh+Xv6LDta924eafNiD3GxWo/XYFer5bCfNfVmHk r6oQZieyXL+EeEMQiaYgeQgy9ktkgNbK1r5tUTyAuS7aPNak5KUtgGTbDBKt fsRavIg0TyJIPhYbRjDH9AnUkI0qgQ29uEoikN+FQC7bkSwJ5up6UfbkOpW2 C150Z4fRWxqHnHOusjEJHQXE1JWEjQLiVBGQkkVoqglIfRD9LSECEoazK4wh WRijiggm+yLwaaLM+ihmDVHMm6JYMEex1L9MSGjWZYStUbo1Yo/i9xEZjCLi jCLMeVYvNHmdw+I7TZ1UjiH9KEZMIxjpH8LwgAsesw0j7gDcTi9rgQKSmia8 /MzlzJnz0vSWC3EHambljrhup0ZcYZleAPY4HDTCUV1QL4ZY3Oz1cLVOGosG USoazolwfPERHI8AKRABecRHQTX/wSoUvpoj8nHt2dxHbAj3my99swflb8rR dXsUitsT0Nz2cuTxw5o9C2feHIYK5nH963rc+kY3cr7diJI/r0HrX0qg/p4E jr+RYOr7tVhmH5JsjpKLKJmIkokoWYhgo53WIVgYm53CMcsgUh3kpmMRqx3z SLZTa6QBLLf5ESInS03sacjILOU1ILGTETMC5VoWGzk1RIqZ/FosNcsf8vGN jHhIL8+jKz8GWcUKeuuSUDWTj/YkzD3kQ5GES00+yhbZzrIXIcbm1iCs7UE4 uoPw9IYwoghhXBXClCYMny4Mvz6MgDGMWVMY8/1hLAyEsWihWWn2MJYcfHaG sOAOccq2w0LctfIh9GtGYCUbdrIxSDZsFA6PZx4OF91pn0B9Qyde+uml9D3G H9tH8Gg/rshGNUqE9ZSPsVHxmHCIbKT5SIvHFx4JR9oanhK5+IKgH+JHEpGL unMiHH/2aBFTtbCMiWyUvcVaQjau/DSLPBTRysX7zl97tl7ccV9xQYWerEko b/ugzZ6BOXsONs4HrvwljBSFcOObbmR9W4/cP+9BwV82oeZ79ej+2waY/q4B w/+9AcmGWcTLfNSIFaTaV7DOWWGjcwWbXSvY6orTYtjujmGL1X6jO4JUdxhr XSEkO5ew0rGAZTISls5gqdWH+ZYJzLJkBupd5MNKPtiEVKqpI93UkUaE2xUI NHai9PFtcP8XpNeC6CqMo6eKHLBHVbYmoWWPamZxsbG4OMlHbzmHX0mQ404Q RvIxQD7sXUG4ZEEMKYIYUQUxrg7C0uGFrcvLgdkLR48XTpkXbrkXHoX3HDwq L9tid5+XyHlhanHBKh3HOOVm1rmC+bEVzHqjUOldcHgWYXPNon/QB7XZg+d/ fBHZ4uncQuQIaFwpzayqqEDBzYfLcZ5Eo/whGo/hIXQJIhgNmfUBkow9lXkU qEhXmTpxc2Ad/iO/L7PprVAiYiFKhrCg4lIB0SjA1Z/mZrCoxtVn68T7z5cS i45bE5Bl+aDKCkCfM4/+3CXY80JwF0YwWrKMyfI4bv+5C3n/zYDC78lQ+rct aP67Zqi+3wz7D9gv/lML1ptZNjpSRGKNSKwRA1rPGrZ7Vs9hhwH6LWzLEtjk uLAuiyHVs4zVnghWSMhy5yIiHXMIts9goc2L2eZxBNiWB+odCNSyutToEKim clS0wV9chaX27odkpDdNfgOttyLoKE6gqzqJHlYVZRvJYFUx97L1IBkOkuHR 8fMkQ00y9CTDTDKsJEPb7IWhlWIp9aK/3Qtr52NU9BIBUuFWkgzi4CEOHg3/ TDOyV7R1TsCl8GFIOw23YRo+bxhW9xL6nfMw2P1QmkfRPxIUT9zeFrEoEncB 5DzE4oaARSWxqHoCC2HlRLmIRh0q8tJYVApACLLxBbGopLeSiPaUSAIFpOhx ARHwIRZPZZBIY3FO3DTx+6JiVLIDLXq1hIrBavJMFbGow9VnmtiRKlH2hgZd t7wcC2fQl8WLub2EgdwwHAXL8BTHMVa2gqnKJGZqVpH3PReK/taA0r/rRfX3 29D5AymMP5Ri6EdSBH4sxRY7z+0O4iDbwnbvJnYEkwu/LdiVr5OLHXkKW/JV bLAFSPWuYLU3hoQsilhPGJHuJQQ757DQ7sds2xRmW8bIBqtKo418mMgHO9Ka LsxU1CHc/YiLb2f2FjbfjkJakuTkl0Q3uVCQCw3bUSO5sJCLQXLhIhcySXpH oUzihaLeiz42wxoWMj1xNJEJDZnQUS1MZGKATNjIxCCZcFIoBJlwkItBMqFv HoGlawoOMuEiEw69D3b9BBTySfR0j6DbOIqnMvuYhUPZ2cIJ7MtpHnIyB/nz yUPBrc87jCekIrfuURWpzFSRKrHDEJD4a1EvRCgycDzclfXEzqxHKlGL6sLP 1x9VFZK/N7KIRRmKX6nAlZ8IaFQRiUY+E4vX+1D6ug6dNzkG3pyDOmsRhpww LPmcyoviGCpNYrxiDd7qFMOygfn6TRT9HSfi7xtR+Y9yNP6wE4ofdcL2405M PtOFxRe6sMemc0+2iUP5JnYVO9hV7mBPuU3b4seb2FZuYFOZwrpiDauKBBJy tv697OhkIQR7FrHYNYu5jmkEpJMItLKgNDtpFuLBZqO+l3g2IdKryFDxnQwV 9dkRtJYlIZUk0UkqeklFH6nQU6b6SYWNVHRKfJBxpu6o8aKn1gs552oVlUJD pVCQCDWJ0NIMVAoza8cAibAqqBykYpBUWPoEihzQEth+fo9VOQ27ZhpWHb9X M4qu7lG0vKmF/rYd6hu2zBvnfotK8fC8beZu9SIVGaW4lSkgt0kGqSgRlCIn s3w2N6MU+aJSiGQIyV6fRuMpMfzVGQzEP4nycE5E4JuPQZBe51B+4TaKXspH 8cvVBEGAQUIIGlH0mpKmRdt1HzpvzEJ+i+367RBMeVFYWZqdTLbh8hTGqzbg k2whULeNhcZdFH9/GmU/cKHyh0ZIfiRH+096oHumB+7nZJj5uQz7vas47Azj ULWLPdUB9vr2aXvYp+327WBHtYVN1SbWVetYU60hoUwgpoghIo8i1BvEYs8C 5roCCLCsB9qpEVIPAm3UiFZ2Fs1KzNS3IapSY76rFSVpGv48s2WtqTyBllrS wG6zm92mgnVDQ31oqJhGa40f7XV+ageZ57DcRW2QURu6SEEv64WK/52GuqCl GagNJpLQTxIsCiHi/BxJkDV40Nc6Ab1AimIa5r5pGNVTUPXYWGHtcOTb2Yix +yQJpht2qC4PiD+ZQMFtUiDewTxz0Pbhog+RhKzHKUjrwzlRIX7j8ZrxJA34 VyIEAhJPPGd2xaRx+FZ6bwzLRWXhY9s93sgjEiwZL0tQ9EoLrYvlQ07ro+mI xAy6bs5DkcWaygwz5cdhLWJXVraG4coNTFRvwVe7g9mGXSw27SPUeoCyH/pQ 9SMXJD8xouEZpfhWzoHnFRh7UYGF83Ic963jpHcZJ9oD7KuPaIc04qHew456 F5vqbayrN7HG70v0rSJOLKLEIiRnZ9+7hPmeOcx2+xHooj5w8gt0sKVo5zDS xmazuQNRjY7f154hIr0t609Qy+LWyPmjuSWJ3FwvSoqmUVU+jdpqP5pq/Whr 8KOz2Q8Zx2IFC1Nvp/8REUoSoRaIYLT1pMHIamEiEWaaitZeP4ze1kn0dfmg 652GmqT0dLswJWwQLrNjtNTOUc0Ol7DPj1TYbtphvGxB1sUCVoxi3L78+b3M H9HwWGP567pQllv7lIjDU2kYCtIF4ynx8X8QAagqfAhDZmlQZrULATgnEvBn 4ooO4Qh+xRuFKHqxBEXn68hBGxnoplESXtGg5aqPHfqs+CsgZVYY2pwYzAUJ 2EpW4Spfx0jVFiYk25iu38Us47/Ycohw2xEHg2NU/cQLyTMu1D9nROvzKqhf VMFxXgXfKypEXlPhTL+JU8UK9jUnONAe046wRyZ2tPvY0u5iQ7uNNc0mEuoU 4n1JpvoKQsooFjkRzvcuYFZGaWB+BnpGEaC3A12sER2sEW3diOoNCKo6H8rC f8u0lFcvT+Fm1jSy8qdRUOJHaYUf1QSgnnLQQgCkBKCL864sA4CKmKl7/Ayq Hwa5HyYFTelHH02p8qOBc3CTZBQdzVPoYQHplI7hoMmEQ2IYqLbDX2WHr8Iu gjBWYn/iFglWEYDMUet30sF/fAmDuLAlK7P3J/sxAHLTLUN5Xro4VORnCkTB o+cvMNR1Ig61j3b6nBMXcXwzvZyliNmfWb5Q8bpwQKOMKtBAAtppMlLA7D+v Q+sVuuTKPKPPTopdlzY3DnMha2npOlyVmxip2cZk3S6mG/cx13yIxbZjRNpP EOs85Vh4BslzXtSLd38youu8BiYSNfyaBnNsROPvaHDXvI192SoOdKe0E+zp j7CjP8SWbh/rul2skYCEdgNxTQpR1u+QKo5FZQTziiXMyucQkLNLkE8g0MvC IGNh6DaQABmiJjNCmp6H0U/fuenL6GjQo6fZzFS14PKVKVzP9SOr2I+Ccj/K SEE1ZaCOFDSRglbKQLuUktBBIrpYLEhCN0nolvHPpKGD1k4rq3Chqmocvpd0 WM+24EhiwbFUh+OmWiw12LFQZ8dcrZ39rB3TpGGSJIyThFHKwdBtG978xluP DllnX8kctr9eSQrSh6wLSIB42D4jASXCvQtLc4VbVYsg5KVBOCdi8Bufg5Cx KnE1b2VBrfAgYQv9cP9Ghbh/o5oIZDB4rQRVF4jAi+wHXuqg9aLwJTWamTEt 7wQgvbqA7pshKLOXoc1PwFy8Blv5BlwUgBHJLibr9zHddIi51iMsSU84+50i 1nWGlZ47kDwfQv2LXjSdd6L1FROUr+the0OPyTf1CL6lx93BE5zot7HLEfPA cIo9wwl2DEfYMhxiXb+PNf0uErotxLTrFPc1hNQrWOyLYk4VwqxqHgFmY0DF YqBkMVDQ171GzHT3Itrfj7BejicqwTfQ2aCFrNkEeesAZwfhDgY2aKVUZJqF dp1I5FAYColEGZGoIhI1RKKWvUI9xaGeWNRTIOqIRi2fJbRoqx21Xy+D5Qcy BC8ZsV9qxSn//Ts9KvFrkRY7ws12BJvsWCQW8/V2zFA8fFVpcZgoIhK5Vrz1 rUvIuiTcvTx96jpbOHV94/Hz9tWZRRwZUchJ9wkCEQIPZXkCE7XCUfsvEAmh TDD3v8tHyeerVwo/D/3DvQsVr5ah8o1GKkEzCl/oRCFrdcELGobfSxUIoP3a Ino4jyup/7oCdtQlKdgqNuGq3sZI7R4mGw4w3XzE8J9wlD9FpOsOR727WOm9 x97+fdSfD6LplSm0vu5ExwUzdBdNcNNPM5eNiL1jxInlGKfGbRwYz7BnPMWO 8RhbxiOsGw+wJrwzinjEhLc1aNcQ1CSwqIlhri+MWfUCAuoZ2hQCfQx/H3sB Jf9dmRxRC8NvVDzZGn4dHXV96G0yQNFihkpcwGuFXmqDKRN+B81DG5MOYrLN AV+bEzOtTl6aCwttLiy1uRGiRVrdWOZzTOpGvN2NlXYX2r7VhJGfaZDIsuCU WX+3ewD3FDKsdNgRp8X47y63EQciESQOi412zGZQmK4kCqU2jOVZcOk7l544 iZ19rSqDQfok9ucrOAQMJCjOkaRREBqDMuHNnOXig/iOzvJ8CcoLHlrNOXHx xrfE1RulmdUbJZlD9+WvlKPytSYU/pwYPN+FArZtTW+NoemSjxjMoeP6Erpv RaFkIdAVrsLMQmCr3IKrZgcjdfuYbDzEdMsx5qSnWOo446RPDGTEQH4Py4r3 2c69j6bXltB6YRLSiw7ILvWj/3I/xq70Y+GqGckbZpxa2QqY7mDXdIYd0yk2 TcdYNx1i1biHhGEHMcMmIvoUghzxF3RxzGkjmNUuIqBjO8BBLKAdQUBDDPpM mJYTA9sAwiblExR8SdwAr2wxkoB+qNss0LUJBNhIwCAJcJAAJwlwkQA3CRDm DmGtk7ADbpjRH0FEOsImZ4SRH8FK5wiSXbTuEdR/Jxt9f8P5540BbBc7cY/E 3FdZ8K6iHWs9Lqx2O/l9Dv6dQZGI5XYKA4lYokDMCzSwXsxU2+Ars2I8rx8X v3vpsaPYVcgWVjDcIAU3hffuCwexv/hoAUdRjkBCejtPqXCDv89xKBOkQNy4 UCoG/+HGhccP35edL6cONKPguRYU/KwbTRfcaHpznABMo+XyPDUgiO6sZQZ/ BdqiNZjLNmCr2oZLsoeR+gNMNh1hmvkvBr/zDOHuu1juZfAV95BU3Wc/fx9N b6yh9eIipJcm0Hl5EH1XLBi8ZoH3ugXhmwNYLxjAvpnBN59h2/xY8E0HSBh3 ETNuIWJYR1C/igU9g6+PIGBYos3SfAjo2QvqnATAjKhzCNFBC4JmRSb46VXc 3xS3tyub9ehrMUFNALSUABMDb2HQB4V99xw0R6VDDP4wpqX8F9tGMd82xtQf Z18zgWj7BHucCQZxgsGcxGrPJFKyCaz3TqDpL2th+ZEOoWtONgMjeFc2jPe1 bAw6q7GhGMaGfIjf58GazIVkjxMJwhAjDBGCEKIsLDanq8NsjRXTZQPi7Spu Xsocyr5SKUJw+3q1CEEuIUgvZpBQEiQZEGoJQq0IQrH45u4S8W6hpawKJbRS akIJa0Ip1aBEMPEXiCUiFcWkoohUFIln8QWrQOmLZah4mVQ804zG1yxoep1U XCAVF/2sDqTiegjdt5ehyEuQihSp2CQVOyIVw6wKE81pKmZZFRZZFcKsClFW hbjyPhKkYlX9LlKad9F6KSm+VtR5ZRw91xww3LDBe9OG1TwbDkus2DPfJRV3 SMUZNs3C6Ysj8R3VK6Y9LJu2qfQbCBrXsGBcwawpioApSGOPaCIVpjHSQRnX 9SPqJhUOCxb7H1LxncxxgJ46JZRNGlJhgKbVLFIh3hiCKWwjDS6m/DBpmCAF vrYJzEgnMd8+xXrnRZi23OFDnBNgonuaREwjxUlwnR3qpmIaW8pptP91N0Ze siGZP4p7nBbfV4/iF8YB7PRNYLtvnDaGLdUINtnGrCs8SMndSJKSOAmJkpCQ NC0TCw1WzNUMwF9mwliuDjcuPTyuXSVuahDoyL5Rk6FDgrwMHQUko/B27UNC zgl48CFP6CWLSUVxgWACDcWCUBQVslQUslf4BgoK2YgWVoqH9IueL0XZS43Q lYyg8RXy8Ko7fYd6kYcFSEUeYlDkJ6EpTsFUvgkreXDWCjwcYqLliN47YZ9+ hgU2iCHZHUTldxFT3mV5uIuk+i6nvnvs/+9x9oih41qA88cIBm/NYLliCaed S/hMN4NfGezY6adK0Db6yUP/EZICD2bywLkibN7Ekpk89Ccw27+MwAB56CcP /eShnzyYyIOBPHjIg9MCv7HnCR6+CUWDCn1NWmioElr2crrMpv4BqsIg1cBD BsbapjDV5oW/zYe5tmkssjcMt/Mn7QyQhQAzfBZrvbPkYJZxnWV8ZxnnWTT/ TR6U39fB//YQtiu9eI+8/MI4jo/M7B21Ps7BXuxqp7CjmcSWehybfaPYIBsp 5RCS5CJO5Yh2Ofh/kYtWq7iVf67GjOlSPew3VbhOJm5kmLh1rRpZAhPkIb3B I81E/m3BakUuGGnqxW+gkFpRSCKKaIVkoihf4KGQVHyHj2w6qBMFtHxykU8q 8khFXgGH1oL0e0Y0hRZoi4fQeN6Cxpc9LPZUijdJxjvzaL0eRifJkGfIMJIM S/VDMg4wLpAhPcZMxzHmu08QlLGPFBY3KM84/5+RjDOsas9IBiOuP2MzEuZI EsNIBUcEft/79lN8NrWPfwlEsTNwgq2BY2zQ1voPkew/QLx/jyPBNkL9JGNg DfMDJMNCMiwhGsmwkIwBktFP345OIjrsQcQ18MSrD99Cb20v+hr7oGk2QNvS D11reuW6iVTYqAwuEjFCGiY4Kfja2Jm2zWKhfQ7BjjlGbJ6RW2BWL/AnXsS6 chGbqkUSschILzLqi2j9+2YM/JS1IGuKQ2QAv1AH8JFlHB8aVTg0BDggzdD8 2NdPY5ftzjYp2dSw9qjHsEZCEoohxHvdiHYLdNjE/ftLDcLCWgPbS414FVcv leLaOxW4QTpukI5bpOM2FSObtSSHdOSSjlzSkSesGs4nGF9EPsEoyHtoFBOC USDIRH6B0ILk8TGvgBWpoIrGmYVMZOeXncvcyECdb4W20IOGFwaIhhuNrxKL C+kC0krBELDo5VSpJhaG8i0RC0ftLoYa9zHWcgCv9FDc5THXzelSdoyQ4hhR 5QlifSdY0ZwgqT3hlEgR4OTYcTOF7uxTjHR9itTgA7wfeIDP4p/iV6ljbA9w qqStDxxibYAtxcAeYgO7iA4QC+Eu41ZiYUtgzkYsbBQMG7GwEQvrGGYGiMUY i/8I+3/XwJOvSn0Jyno51I1aaJuN0LVYYRB3qA9joHUcg61T8LROY7QtgCnp HPzSecy1L7JFXmKXtMQWOYhEbwhrihDWVWFmexjbmjAVIIw9XRgH+jCk/6DC 8KtsMksCuN+1iA9N8/ilYxzH5kUcmRdwxD8fsd4dmGY5Qc1gl4xs6X3YIB8p 8pFkdVlhZYmJbLDf6LAixBFoqd6AQLUWnoLezOsV/xpX2XBe59hxndXkBvuM W1SNLLJxm+1mNrnIESybwc9lx/kF5OYSl7y05eULn86voZbkkIkcMpFDJrLz K3E7vyKzS/urUOVw8Mr3cIiYRMOLLmoFgXiDfebb82gjEB3sKGQEok8EYgMD 1ZsYrN2Gp3EXoy179OI+/J37mO0+wELvIYLyQ4SVh1juO0JcfYSElt2B/oiz 4xFSnCO7Sn+BQf0DLE89wNnKA3wqHNfef48wHGBzYB8pgrBq2cOKhQOGZRsR 6yaCwi3n7QRikDoxyI5ikEAMEgg7gbCNYnpgENHxcUQIxNLnQHwr89um3pou 9NWroH1sqb6hZRgmAmFt9cLZ6sdQ6yzGW+fJ9yJm2oNY6Agj2BVBtCfCJI5i VbmMlGoZm+plJnqMCR/DviHGMTnGYDNn/olN4hUftmuX8AHB+aVtEZ+4RnA6 EMYpZe2ERe94YAmH/YvY759nAzXHmSqATcKxTjhWCUeC5SVGMKJyF8GwsRHt R4jitlCvha9KmY7YF3GFA8jVa5W4xjH0BsfQm+ThVhZbhCzOof8TbnMSvZ2T tuxcPufxOS/9nJXHApTH5iSvErfyKvDFDATyLM5euR5o8yfQ8HMHGl8cQ+Pr PjRfmkPrtRDaCUEP20pl0Sp05WwtqzfELQ7CUo+Rlh1MSHfg69jFTPce5mR7 WJTvIaTcR6RvH8vqfcS1+0joD5A0HHB6PEDKtI9e4wNMzT5AMvUAu/sPWCD2 aLvYsOyKB2qSDP6KdQvLBCBsW8fSYAoLg6uYc7CtdBACJ4cNB4eNQRZ9+wii U9OITkwgTAj8dsOvQ6Cs7YFG2IvfaIauaRD65iEYhVcPW6Zga/HD1TLLS1nA ZGuQk0YYsx0RdsnLCPXEsCyPM2NXODetYF2TwJYugV19AvvGJLM8yaxPoO2H bTD+bBjB3AUcS5fxEcH42C1A4MSZLYZTCtmpNYoTawRHViqJJYg9ArHTv4At wrBhDDBH/EjophDXjGFZRRB6hd7CQhCMCLZoMdug+lcPb8hxrQJXCMDVW1W4 dqv6HG7cruZscTObPOR8bjdyyEguLaeCapJ+RU512w1N7gSD7UeDcJv3V71o fGsOzVeDkN6KojsvDkURZ4jyVZiqUuIpbGfjBoZaNtllbWGqYwvT3duYle1g Xr6DJeUOQn27iGh2sazdRVy3ixXDLpKcEldNDKZ5lz2hYDvM7h1K/jbWGdyU RVjVtIkELc4Mj9rXEWKQFx2rmHdS+p1xzLo4VboYaGcAM44pTNuHxEBHJsYR YqDLHn8L05+gq7wFfbVyaCml4i77JjcMTaMwN0/C0uzHIIPsaV3AGIM81RaB v2MZc11xLPWssMFJMvuSlOdVyvQaNnVr2DGkGOSUuFb2qD/FLE6h/cd6uCiQ KxVR3OPf+SWr1Ccji7jbr8EdCtSZaCs4HYzj2L6MQ3sU+wz4rjVEkVtiizzP kWmW7vHTVVNYZrCjSg+iMjuDbWaroMViqwqTkp7fzURMccsFtfCmwxw/6shY wytTaHwzgMYrS2i7yV4udxm9RStQlyVhqFzFgGQNgw0puJvXWenWMdG+AW/X JvyyTczKN7Gg3MKSagthNWd4LVNMJ/xObxtxwzZn+y0kTTTzFvs1Rog92toA zbJBXd5A0rqeXqAinI13rCHoTGLRlcScm2npZrF2hzFD7mdcM/A7WaR984h6 2YszYnNDjl+PmLyqHZpaNSPGBq7BAV3jMCM2AXOTD9bmABxMyaG2IMYZLW/7 MnuPOOZ7kiwzq/Sa8HLUOlY162xFN7Bl2MSuaZPR2sShsBSYgJ1SQbp/6sTU dTZ4jUn8QrfOtEzi0/F53Heu464zhTvONZw5V3HKSzl2JHDoiGPfTo1n5LZt bAKYqqkBNovmAMGeJuRsSfuoOArqtMzKqOnFvfIzTbLfyxwPUt4chzrLD03B POpfYmV9g9HiTNZyI4z2bIppQQzK0hXoKlfSZ1Lrk3A2rbIMrWFMuobJzhR8 3euY6V3HrGIdC6oNLKk3ENJsIMJLjeo3EDPQOGvHTRuctYQ3/CT61/Fv2Eql kBC23olnQ1YRo2hGHcn0yWTXChbczCtPDAFPFDOeEG0efrcfUX8Q0el5RBit 4PhY+ZOBUlZ1M1AsoHVMqwY3bQyGRi/6m2Zga5qHq3kJwy1hdtvLLAUrCHQn 2Q+ssUFcZy/An1BDnsjZBhnbNu1gj4pwQLk/tu7ixLYL6TNSaF6Ywjw9c9C1 wU57C5+MreKzCT/uu7dwz72Ju+4N3KGdutdx7FrDkWsV+7yqXQZse5DFmcFK WZbI7DxWTJz9DF5EteMMFlVDwR6h18Qurw9z0kygfge910bF+4mr8+ahKQmi 7tUZNFxaQBOrXuvtCDrzo5CXLENdEYOhJo6BuhXYG1dYLhIYkiYx1pHEZPcq fLJVzMjXMKfkoNu3hkU1U0O7hrB+DRHDGqLGNSyb1s4hxkn4t9jqriIurKiz UnQoIDF7gjFaYYxWEGR8FtwxzHmYTUOM0VAY/qEg/IyT1+VDdCaIMOMU8k5j dnQEvxaovioFtBITdHXMpvphBmoShgY/+hvn+JMvURTCGGldxmR7HNNdSco4 f1oGKazaRIxBSugo05TvTdMei9M+9i0HOLQe4MR+QF07QPvPzLC/uYDlamYO Zf9j1y4+nVrFp6OjeNezh/tDu7g7tIM7Q9s48zALPRs4YsAO3KvYY7C2Keub bOLWbSHK/yJW+mcRMxE/PbNKw6zqY1YpWfTkOhbgnvSd7f4Yims+qLLnoS4K oeZFH2rfnEfDlSCab4YgzY2guygCZVkU2qplGCUxWOpjsDfH4W6LY5g8jnet YLInAV9vAn4F+0hVAvN9wusXSSzpKCjCySpDAmFjAhETo9GfPjoTtawgamN5 sMcRJmdBZwxL1LkFRmeeGRQYimBmOIzpoRBtCV7PLKKceyOMUmh6DguT3odn B7+Z6bb6qqh3NQPQ1TKN6sYYJS/09QH0NywwQiG4W6IYlcYx1ZmEv4dMUQSW lJuIqCnRLLBJw57YQW2ZD7DL+enAeoQj+5G4+fbMeYyOF0YwynE8xc7sfdMh Phndw2f+BN4fPsR7tPsj+7g3vI+7w7s4G97BydAWjoY2cOBZx56bVc+VwCYv dZ1RWuXslbAsINYfIMOET8900rJaqW2IqgycAeUYa27J3Ezuj9FzeZLlag6q /CD6SpdR/eosJG8vovF6EC3ZHCfyw+gpCUNVEYGuJgpTXRSWxmVW5mW4pTGG Koax7hgmZHF42XZNK+OYUVGw1NR9bVx8nWHRwIptZChMcfH0SnAghpA1Jq5p EbZyCOsXFl1RhidCoYuICTQzzPDQfAzRlGcB0VkmG8MUougt+GbhJb0Vj79f /muQlbRAXanjj0nFkwwxXBMM1zQM9XMYYCINNkfYTPDHbU9gqovpL1vHvILT Sh+nFs0O4vo9Fvl9rDNMwqi7K7ycYjvG0eAJS80p7rhOIX8pAH9RCruyQ3zE z3/i3cdnM8t4f+QY740e4d3RQ9wbPcDd0X2cjezhZGQHRyNbOBjewJ4nhR0m 1SY1fd2xjFV7GAnbEnVlDlETm2EjE8rALlLnYGKZ2ZArWUJb/33mbXrC/cvl 2Uvs6aNQsQxVXZiD5J0lNNwMojUniI7CEGSlIdIa5uWHYWqIwNIU4Qgdhas9 iqFOUtqzjIneZUwpKPrC2SJORzOaZczq2FfpaUYmiYnJ0k+zRLFgow1GMO+I YM7FJpvNQsAjyJuQPMJ9zL3DQU4lE0OLCM8yGRmlpRn+nekl+Cf9lU8GqLek g7rMIb96kEEa4U85BX3tDAy1C7A0hOBo4k/ZuiJqtLc7RX3exLxyG0H1Dp3C EVOYRsyHWO8/xrb1BHv2UxwOnuKEwTlznUF6vh/mixEEJSxR2jN8PHwHnwYO GCDOeGOneG/sBO+OHePe2BHujh3ibGwfJ8y1o9EdHDBIewzSDoO06Uli3RXH KqeWhD2EuJXqOTBDiWF5Mo8yUFQ8/QDbMTX83W3pW1P/AXquL0CeH4GiLA5l dQIVF+dRc40Bus0A5QXRWRxEbznTrDpINkMwUTosrMD2tjCcHF89XRR6jq9j vRFMKCOYUrGFUkcwrWXjq6MZ2FubaRxRAxYaq2dgkP2Ak8Fw0dxB+DxBeMXA TIiBGWNggnNUTAZnMcCU9DO1fPNVTwZGXsxZq5wlqMrJ4FDganwwSGZhkixR lyNwNMdYPBMY71yDV7aBgGKLRZNThGaPjjjAivGQNfyYo+AJG7D0TqdDxx2c uO7gzH0X0lcm4LrF7qbtGPcH7uPjyXv4dGEP90ZG8MH4Gd6nvTtxgnvjJ7g7 fsTAHOKEwTka28MBg7M3somd4XVsDq1h3S2cgYwh4QizEi9y3KR+W5k9AxS6 fjeDY0VYq2UnJk0H5r+g/a1p9GSF2HLHIK9YgVyShIq9peRGEA3MnNYCBqc0 CFllEKqaIHvbIIxNQQy0BGETDtR0BuHqDmEoc6hmTBXCeF8Ik5oQpvQ0Ywhe Mx3PvtNn5bOdNsiJxRnEpCuICQZmnIEZZWBGaEOeRSzOst2izTNjZmdimPYF 4R6ewBOR+T3Ii+TQlPVDW8HSUzXO6FDPauZgqg0yZaJst+MYal/FOHtPX+8m ApztFtQc5nUc5A2H7DOPOQ2cYMN6im1GZY9ROXTexQmjcua5h+7XOEEXs3no vYdfON/HxzP38eni9jm8P3EX/xvemxACc4Z7k5S/CVariSOcjB/iaHwfB2O7 2Btlcziygc3hFNY9wsHUOBJU8xivftlOWbOzT7BxqLCwoeu3sbPS8UeU/r54 df8B7Zfn0J0TRU9xHDLhFEtdEsrmJKpvLaE+lwWoKIj2siB6qoJQ8Io1DUEY moMwc8CwMDC2LgZHxuD00nkKOraPDtbS0fogxkw0BmWMQRljURxjUMYc/BqD MsKgDDMoHgbF5Qmew9xs8hxmZ4WbPc7MrMA7HcHQ2MzD1UaP0qRQCU2phYO2 h4PAJANC7ZIswFwXgpU10dmaYD1cYzA24JNvIaBiMDT7CDFFlo1H6WBYTrFh O2P7e4et8F0cuu6x47qH1tfNUF9awVztCfZ17+PDsQ/x8QKDsZTCB5P38T5T 5r3Ju3h38g6jcYY7jMgZI3LCiBxNHOBgfA97YzvYHt1iNDhfDa1i1bOChGsZ MQpE1Mka6qCGDbLI2FhkLJxezQYE1O3/Qby8P0LblUV05sXQXZpAd3USMs44 ipYk1Gyb66hfzdSvNupXF/VLzmj0NQqnRRgRKSPCFLF0B2FlJOxKRoWRcDIS bkbCbaT109uMhIfp4WYk3IyEi5FwMhKDNKuTBSOQxAxj4KdN82PfTAKT08vw jM+h5tcqSYEK6hIrtGUs8+VTjAYjUfMwEjE42xgJitV4jxCJbQTY9y5oGQmm xLLpGCtMiTXrGTbsd7DtuIt9RuHQzUgM3UfrhSlYbnLQlt7nNPoRPvL9Eh+H 7uLjuSg+mGIkphiJqbu4T7s3xUjQTqdOcDx5jMPJQ+xP7GN3fBfbY9vYHN1A angNq0MJrLAJjbF+RjlsR13szpxTjAb7Z9sgIv0G+Pra/iCT9S3Xl9CeH0dn WRKdwlmNBuaGEIn2JPQcARoYiZYK5gbFqptiJadY9bUyGswJPaNgZE6YmQ8D jIJFQ+8yCjZGwcZ8sA3QGAUbc8LGNLUwEuZB9sEzyafgpdu/gCk+TviTGPXF MTg6L/m1Niu3D31FNmhLOKuU0fcVAXFfqKk2DGuT4Pske40UxmWb8FGOAn17 9P0BfX+EZfMJfX9K39/BxuBdzhb36Pv7OPTcp+/fRdtFJnHxEZLyX3CI/BQf zdH30TP6+136/V0+38e79P992l3vnYzvT3E8lfH9pOD7PWyPc3Ad3URqJIXV 4SRWhmJYZuMfZTmMCg2/m5XcSd8POhAa0GNc1fSHmVN1bYUJSCuSaJekz8j0 trJYsCHRdqfPyTSUL6FFQt9Ti7pZIHpJv5I61NdDfaLPdSrGgD436GgGxoI6 ZCT9RvrdwAyY8nEAnabcjPuFhxlBc8bo7JHpJDzelYebWR9Nh4XCDQVJeQk9 XSZ4eok9eARWjkoO6SqGutbp6S14lbvM5X3224cIGY+Z26dYsZxhzXaXnr5H T9/nrEBP08snw++h5xJLee09bOo/ptb/Ch8FP8bHy0f08Hv09Ht4z/su3vXe x32v4GkWC3r71Ct4+gSHU0f0NGeZiT1sje9gY4yeHk0hObKKlZE4lkfo6ZEl RIfp6SHOIG562uFA0KL7I/Gy/k80lyTQQsVvo8a0CycNpOmTBmoZCVcmYVIn McApz2ZMYtDM7xPuEk6yuzN3Ce8l2XI11XyEI/0YUR2nTdKLUzRvEsPizeSH poVHDx+Fu8zbJ1Ye3gvlmw9/7ZNnh6ZwGNriz71rrBP65ofe3WA7lvbuDL07 rxe8e8JadiZ6d9VGjqkf29SPPerHwdA98V1fups7mJe+z0nvU3zgp3ejH+KX kU2y+y5bM8G3/46evY97vvu467tH77Ike89wRA8fkOW9qUPsUEe2qCMb41tY G1tHkpcZH6N3x+jdUXp3hN4dJseeEUScg1iy6ZC+Ifv/jtqiZTSyBW2mcLQQ 4A4C3NPD4iqni/voYi1hNiTRb0rCOkA3W+nmwSQcziScbrpriEbXukf5TNe6 Jvh5utch3nd90Cs82vmxhZ8X/seGx936O1DkDEKdPwJtId1aGoCebtVzcBxo XsEg3eoR3boNr2qP48cB3XrE4fCIbj3hNHTCyeiME9IZttg/7nru0K130fj2 AmxFR4goPmTB/AwfLHyGD1few/HM3DmSeo/dyrv05H3aPd9d3KGd+tiC+n7N q1SIzYldrE/QqxPrSEysIj5Br47Tq+P06hiVeYReHR5B2GXDnFWTvmv5v4Wk itlJRainwLVw1G8nqz1kVUFW+8iqhqzq++lYC/m10bkOMuyik9gYWehQKx1q oUMHGMj+capt/8TD25RrhlfE/6TxST/23h5EX+4oNAX0Y0lA3MprIJ799KNd uib6cZR+nCKefvbic2w0lkyHLCdHHFqOkbSf0I8nnDhP6cdT7A+fofWdOIYl d5A0/JKNxK/wQfgTfJhgizd15xyZvEM/3qff7tHu0u7QTunDYx9nLS97E+8x dpn/24IfJ3eRmtzC6iT9OEk/TtKPk/TjBP04Tj+OscKNDCHktsFvUafv1v2b qKiJoZpQSujDJvpQSh920oc9elY5+lBJH/bRh2r6UEMotYRSRyi19KOWftRS 0M9BM/Lw1tzCvypY8+PO+z10XLNCmT0KdZ6P+T0rLq811kZgpvNshNBN5Rxh bk9ywpzW7NJ5e3TePp13gJj1kM47QspxTOdx2vQco+6ycJu8DXjb3sWm7RPc m/kV3o9/hF8k9liHTqmSdKL39Bxdd4rfovPYoNFOfCc4oh3ScfveI+wQwq2p fWxM0XlTW0h617HiXUXMS+dNsT2YYomaYKM2PonIiAdLbiu+lHl1uZwKWcMU rmcKNzOF25jC7VTHDqZwp/XR3abPibeafgqdg587p+3xV9d+F/JbY+jL8ZGs WbazzE4JHUPRs5JtZ1cKw70bnEG3MM3Re1a/i0XjHsL9e5y29jkSH2DNcYgN F6/Ec4TaK37oCvYxJ/8Ae8zM+4uf4b3kB3hvOYEzlos7xOYOPXCOPjmmZ+7w 8ZR2QjvyHeGAXtnzMjW9B9jy7mHdu4M13xYSvnXEqeMxXwxRHz3jZQs76UdE eNFw1I05lwXxxy/rt9FzbRjKLB/68uc4Ni1BK4nC2BiHhf2gg/3gkIzVUrnJ sZrduW4bC0YOsf077IZ3EbfvIenYQ8rF4HgOUHuNVbb6BGH9R+ywf4V7kU/x 7hp7RPYZJ8yAc1Tto6cY40P8G17PIVPkgFE+YJRZGr372PbtYdNHqZnexur0 JhLTKcRYi5bZ00Z9ofQrLVPT4istSyNuTNqN8cffGfHbkN/wQZU7x1aXvUV1 FPqGOAY4ZNg5ZHh61jCmSGGqbwN+3SbmDFtYMrNttWxzLt7hfLzDOZn/u3sX jTc24Wm5x5L1MU6I7d2Vj3E/Re8ziY/I4vHUAS/nxLt/jheyzxTlhwwNh2/a Hm2Hl7E1zUrv30HKT2j9DI1/Dcv+BKJ+Xs50kJczhwgvJ8TLmR12YeXxa/kd dF+ZgjxrDqqiENSVUejq4jA2J2Dl9OrsXsWIfA0TqhSmtSnMGtaxYN5AcGCT 7fEW4oOkwbmNNfc26so+gFvzL1gZe4CT0L/gztpHuLe6iQOK+iEF6ZB5dTS1 e46qv8vAHPPxiD/9oW8H+7RdHydWBmSTV7E+s4lVWmJmHbGZVUQ5+kVnoryi JUR8swh7p7EwPsYZ3r7y+Bvc/g/IbsyKyydVZctQS1agY1noZ+oMMkE9vasY U65iSrMGv34Nc6YUFvvXEbKucx7eQNzB/9G5icqaz1gmHmB+/gG21x/geP8B e9dt7E1w/N6f5MPBlPDg3cb/ysct5sgWf/wt7JClLf8mNmY4XATYGARSWKEt ///tnV1PI2UUx49445WXXnhh4oUxmvgtfImJiZ9EL4wxkZiYdbMi7i5Z3GUX IYBCgGKXQluBvnc67XRm2g60A522M31xNSZ+C/w9M430C3jHxZO+sDzn95xz 5jn/89DOItsvLY8luOKyhLZhi6PXxCwW+rP478na54ZsztNTf3cVnlTtocLi 9BfHyIQTZEL+14GU2WOqMV/MeCDNw0DOj4fSSQ2RzEPxTtnwz0by4961JBrX ovnXtDoTWh5GeYJ0mSAOGRWGPqHwMqpjrooxqTQmACNWMGIFQxlB7luB9OxA urYvV7ZaRVc6rKLNKhwCYVeqMpj9IPLrsv5lSzbV33oWerL9gCX8RNFFRCaR 6WfI9MIOPcweTSRFxUTlNBO+OMe+tNMBWhRTp5jMoFlzQwnU6QWdwrg4kglK a1IGD23wQhvNUeiG+P9Fdcj1POQiCEidgNQJ8D0tNmMAsaeoGa46BCUGF9A7 0NtVSypKnM58hP5dWf+6E555bC32ZRvf7+P7Q3yfwvcZfF+gGmrs7zWqocn+ 3mR/d9R/d8D+7rK1X51RbDO+9LMQ5H0JEN7Doi+jEmRlBqJmTEEe64wa7xv8 nB4joNsIyJKBFRF3FXFjEB7dXjDO1Qmh2RHLcETX+KUZ6ndk5bOmrH3TlY17 PdmaHqGp+xUlSPo0Ls9Qxwu4XDu4Ibchb6n79FOKOpBfooe61HKPut2jjg+o 4gM0kY8m8pFDPiLTR1767Ps+e+UA6j7UnhXRKh+3GepM04G4ZfekYXbFNNqi 67YEs19YeltWvqBt+NaTdRq6zektdA5oohNkSZpCerYTIZdBroJsID0spEcT ZAfkC/VnWJBdkC9B7oLsgesRUQ9cDw3sgeuB6oHaNVXy8u+tCPN8esrXYNjg qsMlo34pGkV+OPsVu7fkyVeurN7pyxpd0Ya6mws5ESMnEhsRqrobVB7UEqgV UGug1kG1QW2C6oB6DuYFmB282gHTBdPFoy6YLh51weyA2QbzAkTHUgeQg/Dk Kzx54bVh9kWvd6VYbcto9jugb8jy/JU8vYvkuI/MeHRzw5nneDMJ4glbRpa0 LSBLylxzOsGvkbZ10tY6UR85wBx4LfAcAn4OngOeA54DngNeC7wmeA2GZYUH QXPhscTLUuGtstGTnO7KOCJ7P3x4Ux7Od+Tx9wiihwghdoJfSMtd5OVvyMuj 6S0MTpHoWRxXwHFlHFeBqgpVjfjWoTKJrYXTLKgsqCyoLGJrQlaHzICsCoLC 0BglRpH3cvz8RLuUSYT04dRZjxZov4jjM+K4QcptE8d9ru3nOOkIJ6Vx0ilX SBaUPDEsglIGRUPlVkDRQdFxkk6a6eBUwNHAKWOuZETnBaq/Vd1tpha1Zomi +0dE8VH48Joscq0uEaplitMqDtnkOt3BITEyKX4QNYApwvQ7YTolizJo7Sxh yuGQPGHKQ5HHIXkoclBk9bCXnpOT/3rAJG8flnryZ2T54+mdG36435MHJMiy 6pSwukH+brPuXdYdY91xrB6y7iOsJrGawmoaq2nWnsZqirUnsXykKbUftUpx XsemxeyvyNwn4cOrsoCLl4j2E8z8vDdtJjCzg5ldFrc/bSQOcHEMF8eiRmJO dvNq5h1ebp1FM/8dzfxp+PCK3GF7W8RlS8z6GPgVXPaMWVeZdTXFDKtpNcPT 1I3Y/ieaIXzxwe3z2+e3z/+P5/LSv4OvZ7U=\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.7380230406699999, -0.530425301214, -1.115758481084}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.7379380029999999, 0.530476323816, 1.115832180398}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.31346446566, 0.746001463842, -1.2584271249060002`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.31346446566, -0.7460694939779999, 1.25828350573}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.9965980287019999, -2.60232277734, -0.862533307358}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.323882028866, -0.1669149622376, -2.8945878005}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.996514880758, 2.6023794691199997`, 0.862608896398}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.32380455010000003`, 0.1669756224422, 2.89456890324}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.39198778564, -0.0292540923156, -2.8892020813999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0548176680399997`, 2.8180350002399996`, -1.5115294664419998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.37522591602, 0.382482432126, 0.520636520534}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.39198778564, 0.029186062179599997`, 2.88905090332}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.05489325708, -2.81797830846, 1.5115067897299999`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.37520701876, -0.382571249248, -0.520455106838}, 0.1]}, Text3DBox["1", {0.13802304066999993`, -0.530425301214, -1.115758481084}, { 1, 0}], Text3DBox["2", {-1.3379380029999999`, 0.530476323816, 1.115832180398}, {1, 0}], Text3DBox["3", {2.71346446566, 0.746001463842, -1.2584271249060002`}, {1, 0}], Text3DBox["4", {-3.91346446566, -0.7460694939779999, 1.25828350573}, {1, 0}], Text3DBox["5", {0.3965980287019999, -2.60232277734, -0.862533307358}, {1, 0}], Text3DBox[ "6", {-0.9238820288659999, -0.1669149622376, -2.8945878005}, {1, 0}], Text3DBox["7", {-1.5965148807579999`, 2.6023794691199997`, 0.862608896398}, {1, 0}], Text3DBox["8", {-0.27619544989999995`, 0.1669756224422, 2.89456890324}, {1, 0}], Text3DBox["9", { 3.7919877856399995`, -0.0292540923156, -2.8892020813999997`}, {1, 0}], Text3DBox["10", {2.4548176680399996`, 2.8180350002399996`, -1.5115294664419998`}, {1, 0}], Text3DBox["11", {3.7752259160199997`, 0.382482432126, 0.520636520534}, {1, 0}], Text3DBox["12", {-4.991987785639999, 0.029186062179599997`, 2.88905090332}, {1, 0}], Text3DBox["13", {-3.65489325708, -2.81797830846, 1.5115067897299999`}, {1, 0}], Text3DBox["14", {-4.97520701876, -0.382571249248, -0.520455106838}, { 1, 0}], TubeBox[{{-0.7379380029999999, 0.530476323816, 1.115832180398}, { 0.7380230406699999, -0.530425301214, -1.115758481084}}, 0.15], TubeBox[{{3.31346446566, 0.746001463842, -1.2584271249060002`}, { 0.7380230406699999, -0.530425301214, -1.115758481084}}, 0.15], TubeBox[{{-3.31346446566, -0.7460694939779999, 1.25828350573}, {-0.7379380029999999, 0.530476323816, 1.115832180398}}, 0.15], TubeBox[{{0.9965980287019999, -2.60232277734, -0.862533307358}, { 0.7380230406699999, -0.530425301214, -1.115758481084}}, 0.15], TubeBox[{{-0.323882028866, -0.1669149622376, -2.8945878005}, { 0.7380230406699999, -0.530425301214, -1.115758481084}}, 0.15], TubeBox[{{-0.996514880758, 2.6023794691199997`, 0.862608896398}, {-0.7379380029999999, 0.530476323816, 1.115832180398}}, 0.15], TubeBox[{{0.32380455010000003`, 0.1669756224422, 2.89456890324}, {-0.7379380029999999, 0.530476323816, 1.115832180398}}, 0.15], TubeBox[{{4.39198778564, -0.0292540923156, -2.8892020813999997`}, { 3.31346446566, 0.746001463842, -1.2584271249060002`}}, 0.15], TubeBox[{{3.0548176680399997`, 2.8180350002399996`, -1.5115294664419998`}, {3.31346446566, 0.746001463842, -1.2584271249060002`}}, 0.15], TubeBox[{{4.37522591602, 0.382482432126, 0.520636520534}, {3.31346446566, 0.746001463842, -1.2584271249060002`}}, 0.15], TubeBox[{{-4.39198778564, 0.029186062179599997`, 2.88905090332}, {-3.31346446566, -0.7460694939779999, 1.25828350573}}, 0.15], TubeBox[{{-3.05489325708, -2.81797830846, 1.5115067897299999`}, {-3.31346446566, -0.7460694939779999, 1.25828350573}}, 0.15], TubeBox[{{-4.37520701876, -0.382571249248, -0.520455106838}, \ {-3.31346446566, -0.7460694939779999, 1.25828350573}}, 0.15]}, AspectRatio->Automatic]], "Output", CellChangeTimes->{3.5697370107331085`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{"tc", ",", "twc", ",", "twh"}], "]"}]}], ";"}], "\[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}}], Cell[BoxData["17"], "Output", CellChangeTimes->{3.5697370107487087`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.7380230406699999`", RowBox[{"-", "0.530425301214`"}], RowBox[{"-", "1.115758481084`"}]}, { RowBox[{"-", "0.7379380029999999`"}], "0.530476323816`", "1.115832180398`"}, {"3.31346446566`", "0.746001463842`", RowBox[{"-", "1.2584271249060002`"}]}, { RowBox[{"-", "3.31346446566`"}], RowBox[{"-", "0.7460694939779999`"}], "1.25828350573`"}, {"0.000042518835000060484`", "0.000025511300999925268`", "0.00003684965700001541`"}, {"2.025743753165`", "0.10778808131399986`", RowBox[{"-", "1.187092802995`"}]}, { RowBox[{"-", "2.02570123433`"}], RowBox[{"-", "0.10779658508099998`"}], "1.187057843064`"}, {"0.9266085522607905`", RowBox[{"-", "2.041514399477962`"}], RowBox[{"-", "0.9310747291935246`"}]}, { RowBox[{"-", "0.036461000572916236`"}], RowBox[{"-", "0.2653046567791443`"}], RowBox[{"-", "2.4131201375121645`"}]}, { RowBox[{"-", "0.9265250788149128`"}], "2.04157104710478`", "0.9311496245876449`"}, {"0.03640537054492843`", "0.26537028792631356`", "2.413089213745894`"}, {"4.100057051125661`", "0.18058923675549277`", RowBox[{"-", "2.4477899004508563`"}]}, {"3.12482231861387`", "2.2572239442841044`", RowBox[{"-", "1.4430254635249113`"}]}, {"4.08786113648082`", "0.4808685304081948`", "0.03913454842463815`"}, { RowBox[{"-", "4.100056237636661`"}], RowBox[{"-", "0.1806578516371864`"}], "2.447639538361611`"}, { RowBox[{"-", "3.1248813618885904`"}], RowBox[{"-", "2.2571696551758347`"}], "1.442966220817107`"}, { RowBox[{"-", "4.087807999581173`"}], RowBox[{"-", "0.48096519484583455`"}], RowBox[{"-", "0.03897517449944621`"}]} }, 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.5697370107487087`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}]}]}], "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}], Cell[BoxData[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], "*)"}], " ", RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}]}]}], "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}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "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}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.7380230406699999`", RowBox[{"-", "0.530425301214`"}], RowBox[{"-", "1.115758481084`"}]}, { RowBox[{"-", "0.7379380029999999`"}], "0.530476323816`", "1.115832180398`"}, {"3.31346446566`", "0.746001463842`", RowBox[{"-", "1.2584271249060002`"}]}, { RowBox[{"-", "3.31346446566`"}], RowBox[{"-", "0.7460694939779999`"}], "1.25828350573`"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0.9965980287019999`", RowBox[{"-", "2.60232277734`"}], RowBox[{"-", "0.862533307358`"}]}, { RowBox[{"-", "0.323882028866`"}], RowBox[{"-", "0.1669149622376`"}], RowBox[{"-", "2.8945878005`"}]}, { RowBox[{"-", "0.996514880758`"}], "2.6023794691199997`", "0.862608896398`"}, {"0.32380455010000003`", "0.1669756224422`", "2.89456890324`"}, {"4.39198778564`", RowBox[{"-", "0.0292540923156`"}], RowBox[{"-", "2.8892020813999997`"}]}, {"3.0548176680399997`", "2.8180350002399996`", RowBox[{"-", "1.5115294664419998`"}]}, {"4.37522591602`", "0.382482432126`", "0.520636520534`"}, { RowBox[{"-", "4.39198778564`"}], "0.029186062179599997`", "2.88905090332`"}, { RowBox[{"-", "3.05489325708`"}], RowBox[{"-", "2.81797830846`"}], "1.5115067897299999`"}, { RowBox[{"-", "4.37520701876`"}], RowBox[{"-", "0.382571249248`"}], RowBox[{"-", "0.520455106838`"}]} }, 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.569737010779909*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], ",", StyleBox[ RowBox[{ RowBox[{"-", "2"}], "/", "sq"}], FontColor->RGBColor[1, 0, 0]], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", " ", "j"}], ",", RowBox[{ RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0.0"}], ",", RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}]}]}], "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}], Cell[CellGroupData[{ Cell[BoxData[ 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"}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, {3.5692132215357027`*^9, 3.5692134269568634`*^9}, { 3.569213527889041*^9, 3.569213567871911*^9}, {3.5692136024727716`*^9, 3.5692136035959735`*^9}, {3.5692136633596783`*^9, 3.5692136641240797`*^9}, {3.5692137511410327`*^9, 3.569213751343833*^9}, { 3.569213815132345*^9, 3.569213856659618*^9}, {3.5692138980308905`*^9, 3.5692139153313212`*^9}, {3.5692139536293883`*^9, 3.5692140116146903`*^9}, {3.569214080816412*^9, 3.5692141084596605`*^9}, { 3.569233762887478*^9, 3.5692337633554783`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.5697370108111086`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "0.0"}], ";", " ", RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"4", "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}}], Cell[BoxData["162.00119985323832`"], "Output", CellChangeTimes->{3.569737010826709*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.24"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sw", "=", "0.24"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}}], Cell[BoxData["180.74905569917678`"], "Output", CellChangeTimes->{3.569737010842309*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"all", " ", "nuclei", " ", "with", " ", "all", " ", "clouds"}], ",", " ", RowBox[{ RowBox[{"except", " ", "i"}], " ", "=", " ", "j"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Vne", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"cnv", ".", "dcw"}]}], "]"}]}]}]], "Input", CellChangeTimes->{3.569233528637466*^9, 3.5692342309507*^9}], Cell[BoxData[ RowBox[{"-", "319.024053908845`"}]], "Output", CellChangeTimes->{3.5697370108579087`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "core", " ", "nuclei", " ", "in", " ", "their", " ", "cloud", " ", "centers"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526609667845`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vne", "=", RowBox[{"Vne", "-", RowBox[{"3", "*", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vne"}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526649915915`*^9}, 3.569170044088443*^9}], Cell[BoxData[ RowBox[{"-", "601.3769950853156`"}]], "Output", CellChangeTimes->{3.5697370108735085`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "protons", " ", "in", " ", "their", " ", "bonding", " ", "cloud"}], ",", " ", RowBox[{"distance", " ", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], " ", "to", " ", "cloud", " ", "center"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"cw", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vne", "=", RowBox[{"Vne", "-", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], ")"}], "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vne"}]}]], "Input", CellChangeTimes->{{3.5692316245917215`*^9, 3.5692316336397376`*^9}}], Cell[BoxData[ RowBox[{"-", "623.2839583583299`"}]], "Output", CellChangeTimes->{3.5697370108891087`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", "nucleus"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", RowBox[{"Vnn", "=", RowBox[{"Vnn", "+", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vnn"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526609667845`*^9}, 3.5691527650033674`*^9, { 3.5691528050174375`*^9, 3.5691528220994673`*^9}, {3.5691528694611506`*^9, 3.5691529180864363`*^9}, {3.5691531888249116`*^9, 3.569153192974519*^9}, 3.569153245359411*^9, {3.5691532970111017`*^9, 3.5691533046239147`*^9}, { 3.5691708905147295`*^9, 3.56917090235515*^9}, {3.5691714357512875`*^9, 3.569171449775712*^9}, 3.56917197825784*^9}], Cell[BoxData["131.0556584272107`"], "Output", CellChangeTimes->{3.569737010904709*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102484819775`*^9}, {3.568910416821873*^9, 3.568910421314681*^9}, { 3.5689104658527594`*^9, 3.568910491858005*^9}, {3.5689105421368933`*^9, 3.5689105444144974`*^9}, {3.568912692943871*^9, 3.56891270358309*^9}, { 3.569081202041748*^9, 3.5690812220097833`*^9}, {3.569081528363121*^9, 3.5690815341975317`*^9}, {3.5690815797964115`*^9, 3.5690815808572135`*^9}, {3.569087876950272*^9, 3.569087906793124*^9}, { 3.5691451539721675`*^9, 3.5691451954526405`*^9}, 3.56914526334396*^9, { 3.5691715700987234`*^9, 3.5691716005343766`*^9}, 3.5692316175093093`*^9}], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{ "Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", "Ttot", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}}], Cell[BoxData["180.74905569917678`"], "Output", CellChangeTimes->{3.5697370109359093`*^9}], Cell[BoxData["131.0556584272107`"], "Output", CellChangeTimes->{3.5697370109359093`*^9}], Cell[BoxData[ RowBox[{"-", "623.2839583583299`"}]], "Output", CellChangeTimes->{3.5697370109359093`*^9}], Cell[BoxData[ RowBox[{"-", "311.4792442319424`"}]], "Output", CellChangeTimes->{3.5697370109359093`*^9}], Cell[BoxData["156.97780241279594`"], "Output", CellChangeTimes->{3.5697370109359093`*^9}], Cell[BoxData["1.984224772193348`"], "Output", CellChangeTimes->{3.5697370109359093`*^9}], Cell[BoxData[ RowBox[{"-", "154.50144181914646`"}]], "Output", CellChangeTimes->{3.5697370109359093`*^9}] }, Open ]] }, WindowSize->{1294, 939}, WindowMargins->{{Automatic, 52}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, Magnification->0.8999999761581421, 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, 1188, 23, 50, "Input"], Cell[CellGroupData[{ Cell[1770, 47, 894, 13, 29, "Input"], Cell[2667, 62, 2250, 42, 161, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4954, 109, 1843, 28, 50, "Input"], Cell[6800, 139, 2016, 54, 232, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8853, 198, 1313, 19, 29, "Input"], Cell[10169, 219, 359, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10565, 230, 251, 5, 29, "Input"], Cell[10819, 237, 73, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10929, 243, 1560, 29, 29, "Input"], Cell[12492, 274, 359, 6, 28, "Output"] }, Open ]], Cell[12866, 283, 1390, 22, 29, "Input"], Cell[14259, 307, 1566, 28, 29, "Input"], Cell[CellGroupData[{ Cell[15850, 339, 1234, 18, 29, "Input"], Cell[17087, 359, 1038, 31, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18162, 395, 697, 14, 29, "Input"], Cell[18862, 411, 250, 6, 28, "Output"] }, Open ]], Cell[19127, 420, 908, 24, 29, "Input"], Cell[CellGroupData[{ Cell[20060, 448, 4677, 109, 50, "Input"], Cell[24740, 559, 296, 6, 28, "Output"], Cell[25039, 567, 296, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25372, 578, 519, 12, 29, "Input"], Cell[25894, 592, 359, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26290, 603, 1401, 38, 29, "Input"], Cell[27694, 643, 274, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28005, 654, 827, 23, 90, "Input"], Cell[28835, 679, 70, 1, 28, "Output"], Cell[28908, 682, 71, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29016, 688, 1945, 39, 110, "Input"], Cell[30964, 729, 91, 1, 28, "Output"] }, Open ]], Cell[31070, 733, 935, 19, 29, "Input"], Cell[32008, 754, 4271, 83, 70, "Input"], Cell[36282, 839, 3240, 56, 29, "Input"], Cell[CellGroupData[{ Cell[39547, 899, 1159, 17, 29, "Input"], Cell[40709, 918, 9095, 221, 79, "Output"] }, Open ]], Cell[49819, 1142, 1254, 35, 70, "Input"], Cell[CellGroupData[{ Cell[51098, 1181, 4724, 93, 90, "Input"], Cell[55825, 1276, 2021, 43, 232, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57883, 1324, 3292, 75, 110, "Input"], Cell[61178, 1401, 331, 7, 28, "Output"] }, Open ]], Cell[61524, 1411, 1808, 44, 90, "Input"], Cell[63335, 1457, 561, 12, 50, "Input"], Cell[63899, 1471, 2148, 49, 90, "Input"], Cell[66050, 1522, 2230, 52, 70, "Input"], Cell[68283, 1576, 1525, 36, 50, "Input"], Cell[CellGroupData[{ Cell[69833, 1616, 923, 20, 29, "Input"], Cell[70759, 1638, 88, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70884, 1644, 711, 18, 29, "Input"], Cell[71598, 1664, 89, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71724, 1670, 507, 10, 29, "Input"], Cell[72234, 1682, 90, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72361, 1688, 823, 23, 29, "Input"], Cell[73187, 1713, 90, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73314, 1719, 204, 4, 29, "Input"], Cell[73521, 1725, 89, 1, 28, "Output"] }, Open ]], Cell[73625, 1729, 1971, 35, 90, "Input"], Cell[75599, 1766, 1686, 24, 29, "Input"], Cell[77288, 1792, 1655, 24, 29, "Input"], Cell[78946, 1818, 2877, 57, 70, "Input"], Cell[81826, 1877, 2696, 53, 90, "Input"], Cell[CellGroupData[{ Cell[84547, 1934, 939, 17, 70, "Input"], Cell[85489, 1953, 1234, 30, 48, "Output"], Cell[86726, 1985, 73, 1, 28, "Output"], Cell[86802, 1988, 72, 1, 28, "Output"] }, Open ]], Cell[86889, 1992, 10201, 233, 70, "Input"], Cell[97093, 2227, 6103, 99, 29, "Input"], Cell[103199, 2328, 10215, 234, 70, "Input"], Cell[113417, 2564, 6035, 97, 29, "Input"], Cell[CellGroupData[{ Cell[119477, 2665, 7400, 133, 90, "Input"], Cell[126880, 2800, 79260, 1313, 337, 5737, 106, "CachedBoxData", "BoxData", \ "Output"], Cell[206143, 4115, 5077, 82, 306, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[211257, 4202, 3719, 87, 150, "Input"], Cell[214979, 4291, 73, 1, 28, "Output"], Cell[215055, 4294, 2395, 60, 277, "Output"] }, Open ]], Cell[217465, 4357, 2957, 66, 70, "Input"], Cell[220425, 4425, 2879, 65, 70, "Input"], Cell[CellGroupData[{ Cell[223329, 4494, 3365, 73, 110, "Input"], Cell[226697, 4569, 2082, 57, 277, "Output"] }, Open ]], Cell[228794, 4629, 4847, 108, 90, "Input"], Cell[CellGroupData[{ Cell[233666, 4741, 2891, 52, 29, "Input"], Cell[236560, 4795, 312, 6, 28, "Output"] }, Open ]], Cell[236887, 4804, 1863, 27, 29, "Input"], Cell[CellGroupData[{ Cell[238775, 4835, 2435, 46, 110, "Input"], Cell[241213, 4883, 88, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[241338, 4889, 1844, 47, 110, "Input"], Cell[243185, 4938, 88, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[243310, 4944, 455, 13, 50, "Input"], Cell[243768, 4959, 105, 2, 28, "Output"] }, Open ]], Cell[243888, 4964, 1381, 21, 29, "Input"], Cell[CellGroupData[{ Cell[245294, 4989, 1709, 32, 50, "Input"], Cell[247006, 5023, 106, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[247149, 5030, 1415, 43, 70, "Input"], Cell[248567, 5075, 106, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[248710, 5082, 2550, 50, 90, "Input"], Cell[251263, 5134, 87, 1, 28, "Output"] }, Open ]], Cell[251365, 5138, 1499, 20, 29, "Input"], Cell[CellGroupData[{ Cell[252889, 5162, 669, 13, 170, "Input"], Cell[253561, 5177, 90, 1, 28, "Output"], Cell[253654, 5180, 89, 1, 28, "Output"], Cell[253746, 5183, 106, 2, 28, "Output"], Cell[253855, 5187, 106, 2, 28, "Output"], Cell[253964, 5191, 90, 1, 28, "Output"], Cell[254057, 5194, 89, 1, 28, "Output"], Cell[254149, 5197, 107, 2, 60, "Output"] }, Open ]] } ] *) (* End of internal cache information *)