(* 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[ 297040, 6184] NotebookOptionsPosition[ 290856, 5985] NotebookOutlinePosition[ 291356, 6005] CellTagsIndexPosition[ 291313, 6002] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "27", " ", "February", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.570856547809803*^9, 3.5708565502590075`*^9}, 3.5708567094884872`*^9, 3.5709425310070767`*^9, {3.571043490110433*^9, 3.5710434917172356`*^9}, 3.571043529531702*^9, 3.5710448378904*^9, 3.5710449557330074`*^9, 3.5710450687240057`*^9, 3.571045145959741*^9, 3.5710452246306796`*^9}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtUntI01EUHtOkTKJMpdTKVGJmEmk6yHRHZ0snpXuw+ZimS91W021lhhZR man9kYqYlfSwUhPsQYSPHHFMeyhlNoLMlSE9xCzCt9mD7v3dDlx+9/A75/vu 952zXmuSZ/N5PJ4vOQ7kWPOrVzk2SiF39FfzxLVonFd8bKjbnghB9y79aAqL wUnbLu3yQX8sHNuwZbGLFAM0FY9mBvRwa0GT+zjSAx/EufADm0QQ4fzmunmN DsujMj4P2OKQphFfw3BWQBqCzGChBZAMbrd3jhRNpwNBEWhMFqQ0T5aG4UgR +VOViZdJGt8mBH3V96OiQ9vgxXMSW7VA09C/EgihUZ2J958VPLwyqYKxtjsO oy6rscU7JStcJMMbZkJkz0AlkdEDYvbeSjU8jReWR5XJMZYSfTCB/eexfdZ3 agws9XjbXysBrs5sgJdzxIDOCOB0Jcjw4gUSyfvRusjVTeTkDkIqsHI306PX Iae7Zi++93c6UdPt+L/eAFS+85wOKKzAqmHvHjeBHyVuSYRvsva1JX5G5kdZ AXD6u9LAazNBmlBDyTgpyLQgcdPX3qFkOJuykHSNyzAPc2jMynEdLUw3Mp8b DiM3N4kU5bTwlQYlrVN/XoMYPlH8enfsJbZ5KlKATLPF2xYLy2hDuApV9FKr gI3NKwdikoRsfkNi5FOD0tWIffU7WjvF3GdqJgZO0dvZBPaeJCOc7lV23YQ4 dKRAoWLmp48B/Dt+l04HCuBcnmsx9gUjpzvcgDbeMH9JsJDN3yuE+SXW4VVP YoBzCjbW9fjcPRmA3WRNKoaMwM0tXgsc32Aay1eYQUrGVDqrhCPUyP5s5lvq QcZ/PBXOU94DqcDp0VvwC1lzW24kUJj2YS3zTWdGuuZJhbHIozGfg3Q9K87k YzHV2RjN/FjYg/8AKzOLtw== "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[7, 24.], SphereBox[8, 24.], SphereBox[9, 24.], SphereBox[10, 24.], SphereBox[11, 24.], SphereBox[12, 24.], SphereBox[13, 24.], SphereBox[14, 24.], SphereBox[15, 24.], SphereBox[16, 24.], SphereBox[17, 24.], SphereBox[18, 24.], SphereBox[19, 24.], SphereBox[20, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[1, 34.], SphereBox[2, 34.], SphereBox[3, 34.], SphereBox[4, 34.], SphereBox[5, 34.], SphereBox[6, 34.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{21, 7}, 15.], CylinderBox[{22, 8}, 15.], CylinderBox[{23, 9}, 15.], CylinderBox[{24, 10}, 15.], CylinderBox[{25, 11}, 15.], CylinderBox[{26, 12}, 15.], CylinderBox[{27, 13}, 15.], CylinderBox[{28, 14}, 15.], CylinderBox[{29, 15}, 15.], CylinderBox[{30, 16}, 15.], CylinderBox[{31, 17}, 15.], CylinderBox[{32, 18}, 15.], CylinderBox[{33, 19}, 15.], CylinderBox[{34, 20}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{1, 2}, 15.], CylinderBox[{1, 3}, 15.], CylinderBox[{1, 21}, 15.], CylinderBox[{1, 22}, 15.], CylinderBox[{2, 4}, 15.], CylinderBox[{2, 23}, 15.], CylinderBox[{2, 24}, 15.], CylinderBox[{3, 5}, 15.], CylinderBox[{3, 25}, 15.], CylinderBox[{3, 26}, 15.], CylinderBox[{4, 6}, 15.], CylinderBox[{4, 27}, 15.], CylinderBox[{4, 28}, 15.], CylinderBox[{5, 29}, 15.], CylinderBox[{5, 30}, 15.], CylinderBox[{5, 31}, 15.], CylinderBox[{6, 32}, 15.], CylinderBox[{6, 33}, 15.], CylinderBox[{6, 34}, 15.]}}]}, Boxed->False, ImageSize->252.00732607098317`, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.5710452382807035`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t1", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}], ";"}], "\n", RowBox[{"MatrixForm", "[", "t1", "]"}]}], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, {3.5705590525489826`*^9, 3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}, 3.570855059411189*^9, 3.570856566545436*^9, 3.5709425310226765`*^9, 3.5710435245240936`*^9, 3.571044837906*^9, 3.571044955748607*^9, 3.5710450687240057`*^9, 3.571045145975341*^9, 3.5710452246462793`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.00716726622`", RowBox[{"-", "0.70435757198`"}], "1.2273203452199999`"}, { RowBox[{"-", "0.7639595300199999`"}], RowBox[{"-", "0.19694724372`"}], RowBox[{"-", "0.98443386244`"}]}, {"3.7516730278`", RowBox[{"-", "0.105093332038`"}], "0.5981549707799999`"}, { RowBox[{"-", "3.4944813191999997`"}], RowBox[{"-", "0.9759867872199999`"}], RowBox[{"-", "0.43303071289999995`"}]}, {"4.8917447236000005`", "1.9088122326`", "2.3398587332`"}, { RowBox[{"-", "5.2715796496`"}], RowBox[{"-", "0.41660899395999995`"}], RowBox[{"-", "2.6558209203999996`"}]}, {"0.44816741816`", "0.49998370507999995`", "2.752385919`"}, {"0.8690093983599999`", RowBox[{"-", "2.6569547559999998`"}], "1.73459839266`"}, { RowBox[{"-", "0.11834598047599999`"}], RowBox[{"-", "1.30368417288`"}], RowBox[{"-", "2.5486734562`"}]}, { RowBox[{"-", "0.72765789356`"}], "1.7813502139`", RowBox[{"-", "1.40083498654`"}]}, {"4.8186123274`", RowBox[{"-", "1.80372456974`"}], "0.85389159036`"}, {"3.8461593277999997`", "0.56187223158`", RowBox[{"-", "1.3083895906199998`"}]}, { RowBox[{"-", "4.134720488`"}], "0.09932588828599999`", "1.1552272983199998`"}, { RowBox[{"-", "3.5388898802`"}], RowBox[{"-", "2.9606337241999996`"}], RowBox[{"-", "0.049047838329999996`"}]}, {"3.832364328`", "3.6229826872`", "2.1720510643999997`"}, {"4.825415340999999`", "1.26033385844`", "4.2539621986`"}, {"6.813029147799999`", "2.2491518852`", "1.80971500116`"}, { RowBox[{"-", "5.2547610881999995`"}], "1.56665844304`", RowBox[{"-", "3.0496398188`"}]}, { RowBox[{"-", "4.648914932599999`"}], RowBox[{"-", "1.433357171`"}], RowBox[{"-", "4.2889221295999995`"}]}, { RowBox[{"-", "7.1499672936`"}], RowBox[{"-", "0.99308880752`"}], RowBox[{"-", "2.1784761327999997`"}]} }, 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.571045238311904*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, 3.5705592408949137`*^9, {3.5705593512807074`*^9, 3.5705593890483737`*^9}, { 3.570559442712468*^9, 3.5705594826641383`*^9}, 3.5708550837628317`*^9, 3.570856587480673*^9, 3.5709425310226765`*^9, 3.5710435245552936`*^9, 3.5710448379216003`*^9, 3.571044955764207*^9, 3.571045068739606*^9, 3.571045145975341*^9, 3.5710452246462793`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5710452383275037`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", RowBox[{"Length", "[", "t1", "]"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822123693834*^9}, 3.568873215924739*^9, 3.5689108676002645`*^9, 3.5689997098237543`*^9, 3.5689998170115423`*^9, 3.568999886915265*^9, 3.5691460425981283`*^9, { 3.5692371678918586`*^9, 3.569237204489523*^9}, 3.569237465805582*^9, 3.56923802261736*^9, 3.5693403424025126`*^9, 3.5693404501675014`*^9, 3.569340737988007*^9, 3.569340852819809*^9, 3.569341165475558*^9, 3.56934149694494*^9, 3.569342614390503*^9, 3.569343567162176*^9, 3.569343662712344*^9, 3.569343763597721*^9, 3.5693440703198595`*^9, 3.569344266209404*^9, 3.5702973471714044`*^9, 3.5702974395391665`*^9, { 3.570297637207114*^9, 3.570297637987115*^9}, 3.570297920051211*^9}], Cell[BoxData["20"], "Output", CellChangeTimes->{3.5710452383431034`*^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\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5710452383587036`*^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[{"\<\"C\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "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"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "20"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.571045238374304*^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", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output", CellChangeTimes->{3.5710452383899035`*^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.2557", ",", 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}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "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`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{3.5710452384055033`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.5710452384055033`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5679472243083935`*^9, 3.567947394894693*^9}, { 3.567947453425996*^9, 3.567947471241227*^9}, {3.5679475415037503`*^9, 3.5679475448733563`*^9}, {3.5679488138107853`*^9, 3.567948820877598*^9}, { 3.568820296244224*^9, 3.5688203477867146`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5710452384211035`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "6.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "1.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "8.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "17.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.5710452384367037`*^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["6"], "Output", CellChangeTimes->{3.5710452384367037`*^9}], Cell[BoxData["14"], "Output", CellChangeTimes->{3.5710452384367037`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5708566311295495`*^9, 3.5708566338907547`*^9}, 3.5709425310382767`*^9, 3.5710435245552936`*^9, 3.5710448379216003`*^9, 3.571044955764207*^9, 3.571045068739606*^9, 3.571045145990941*^9, 3.5710452246462793`*^9}], Cell[BoxData["\<\"CH3(CH2)4CH3\"\>"], "Output", CellChangeTimes->{3.571045238452304*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[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, {3.570559203182847*^9, 3.5705592101248593`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.570856658569998*^9, 3.5708566598024*^9}, 3.5709425310382767`*^9, 3.5710435245708933`*^9, 3.5710448379216003`*^9, 3.571044955764207*^9, 3.5710450687552056`*^9, 3.571045145990941*^9, 3.5710452246462793`*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {373.21, -25.}], LineBox[{{390.96220778220885`, -14.750457400572234`}, {416.51, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {459.80999999999995`, 25.}], LineBox[{{416.51, 0.}, {442.0577922177911, 14.750457400572223`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {373.21, -25.}], LineBox[{{355.45727978468074`, -14.751344985960479`}, {329.905, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {286.6, 25.}], LineBox[{{329.905, 0.}, {304.35272021531927`, 14.751344985960468`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {373.21, -25.}], LineBox[{{360.0315671220799, -40.701048102669986`}, {353.28, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {333.34999999999997`, -72.49}], LineBox[{{353.28, -48.745}, { 346.52843287792007`, -56.78895189733001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {373.21, -25.}], LineBox[{{386.3864928791234, -40.702676206513715`}, {393.135, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {413.06, -72.49}], LineBox[{{393.135, -48.745}, { 399.8835071208766, -56.78732379348628}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {459.80999999999995`, 25.}], LineBox[{{477.5622077822088, 14.750457400572234`}, {503.10999999999996`, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {546.41, -25.}], LineBox[{{503.10999999999996`, 0.}, { 528.6577922177911, -14.750457400572234`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {459.80999999999995`, 25.}], LineBox[{{472.9864928791234, 40.702676206513715`}, {479.73499999999996`, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {499.65999999999997`, 72.49}], LineBox[{{479.73499999999996`, 48.745}, {486.48350712087654`, 56.78732379348628}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {459.80999999999995`, 25.}], LineBox[{{446.63156712207984`, 40.701048102669986`}, { 439.87999999999994`, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {419.94999999999993`, 72.49}], LineBox[{{439.87999999999994`, 48.745}, {433.12843287792003`, 56.78895189733001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {286.6, 25.}], LineBox[{{268.84779221779115`, 14.750457400572234`}, {243.3, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {200., -25.}], LineBox[{{243.3, 0.}, {217.7522077822089, -14.750457400572234`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {286.6, 25.}], LineBox[{{273.4235071208766, 40.702676206513715`}, {266.675, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {246.74999999999997`, 72.49}], LineBox[{{266.675, 48.745}, {259.92649287912343`, 56.78732379348629}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {286.6, 25.}], LineBox[{{299.7784328779201, 40.701048102669986`}, {306.53000000000003`, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {326.46000000000004`, 72.49}], LineBox[{{306.53000000000003`, 48.745}, {313.28156712207993`, 56.78895189733001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {546.41, -25.}], LineBox[{{564.1622077822088, -14.750457400572241`}, {589.71, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {633.01, 25.}], LineBox[{{589.71, 0.}, {615.2577922177911, 14.750457400572223`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {546.41, -25.}], LineBox[{{559.5864928791234, -40.7026762065137}, {566.335, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {586.26, -72.49}], LineBox[{{566.335, -48.745}, { 573.0835071208766, -56.787323793486266`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {546.41, -25.}], LineBox[{{533.2335071208765, -40.70267620651373}, {526.485, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {506.56, -72.49}], LineBox[{{526.485, -48.745}, { 519.7364928791235, -56.78732379348628}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {200., -25.}], LineBox[{{189.7501710553752, -7.247957547196599}, {184.5, 1.8449999999999989`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {169., 28.689999999999998`}], LineBox[{{184.5, 1.8449999999999989`}, {179.2498289446248, 10.937957547196596`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {200., -25.}], LineBox[{{182.2479575471966, -35.249828944624795`}, {173.155, -40.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {146.31, -56.00000000000001}], LineBox[{{173.155, -40.5}, { 164.0620424528034, -45.750171055375205`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {200., -25.}], LineBox[{{210.2498289446248, -42.7520424528034}, {215.5, -51.845}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {231., -78.69}], LineBox[{{215.5, -51.845}, { 220.7501710553752, -60.937957547196596`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {633.01, 25.}], LineBox[{{643.2598289446248, 7.247957547196599}, { 648.51, -1.8449999999999989`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {664.01, -28.689999999999998`}], LineBox[{{648.51, -1.8449999999999989`}, { 653.7601710553752, -10.937957547196596`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {633.01, 25.}], LineBox[{{650.7628689612881, 35.248397351954026`}, {659.8599999999999, 40.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {686.7099999999999, 56.00000000000001}], LineBox[{{659.8599999999999, 40.5}, {668.9571310387119, 45.75160264804601}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {633.01, 25.}], LineBox[{{622.7601710553752, 42.7520424528034}, {617.51, 51.845}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05411307561841082], FontWeight->Plain], {602.01, 78.69}], LineBox[{{617.51, 51.845}, {612.2598289446248, 60.937957547196596`}}]}}}, {}, {}}, ImageSize->{{0., 219.83267368130538`}, {0., 81.21541324356534}}, PlotRange->{{130.098, 702.9219999999999}, {-109.68726842804054`, 101.93795132103041`}}]], "Output", CellChangeTimes->{3.571045238530304*^9}] }, Open ]], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", 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"}], "}"}]}], "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}}], 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[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{"j", "\[Equal]", "10"}], " ", "&&", " ", RowBox[{"i", "\[Equal]", " ", "17"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "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}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"2.878578128987643`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"2.8787633756551276`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.8925243793002107`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.8963962247717725`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.9003065869078024`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.022064228972595`", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"2.022141037838111`", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "2.022011125688422`", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.0219714478169992`", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.022154487006908`", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.022049180545291`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.0220699922540013`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.021939275229903`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "2.022084712298986`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.0220573347473567`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.0219340479913552`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "2.022059819938348`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "2.022005876549659`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "2.0220106732712693`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.571045238561504*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\n", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708947833985987`*^9}}], Cell[BoxData["6"], "Output", CellChangeTimes->{3.571045238577104*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.570894821930666*^9}, 3.5709437180911617`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "2", ",", "3", ",", "3"}], "}"}]], "Output", CellChangeTimes->{3.571045238592704*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], " ", "||", " ", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "4"}]}], ")"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.254"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2557"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2567"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2577"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708948169698577`*^9}, {3.570894956839703*^9, 3.5708949736409326`*^9}, {3.5708961320833673`*^9, 3.570896139696181*^9}, 3.570896314088887*^9, {3.5708963602181683`*^9, 3.5708963666609793`*^9}, { 3.570896482038782*^9, 3.570896483645585*^9}, {3.5708965159376416`*^9, 3.570896521194851*^9}, {3.5709435995777535`*^9, 3.5709436285158043`*^9}, { 3.5709436695594764`*^9, 3.5709437026783347`*^9}, {3.57094471360691*^9, 3.5709447144805117`*^9}, {3.5710437875405555`*^9, 3.5710438014245796`*^9}, 3.5710438399722476`*^9, {3.5710439678924723`*^9, 3.5710439893581095`*^9}, { 3.5710441470743866`*^9, 3.5710441826580496`*^9}, 3.571044214450905*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5693"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.254`", ",", "0.254`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`"}], "}"}]], "Output", CellChangeTimes->{3.571045238608304*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Gij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, { 3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.569341165522358*^9, 3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}, { 3.57059671735485*^9, 3.570596744467697*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Hij", "=", RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Hij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679601758938704`*^9, 3.5679601965327067`*^9}, { 3.567960427147912*^9, 3.567960432217921*^9}, {3.5679605764089737`*^9, 3.5679605968294096`*^9}, {3.5679607389456596`*^9, 3.5679607643581038`*^9}, 3.5681142501278777`*^9, 3.5681218877140923`*^9, 3.569341165537958*^9, 3.5693418217531104`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Kij", "=", RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Kij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679602339571724`*^9, 3.567960257419614*^9}, { 3.567960343406965*^9, 3.567960353500182*^9}, {3.5679604155258913`*^9, 3.567960421422702*^9}, {3.567960854323462*^9, 3.567960874197897*^9}, { 3.5679611596939983`*^9, 3.567961170270817*^9}, {3.5679614000124207`*^9, 3.567961407016833*^9}, {3.5679615066074076`*^9, 3.567961509649413*^9}, 3.5679616124379935`*^9, 3.5679616766477065`*^9, {3.5679617424486217`*^9, 3.5679617456310277`*^9}, 3.567961801276325*^9, {3.5679618582788253`*^9, 3.5679618970760937`*^9}, {3.5679620279135237`*^9, 3.567962030113127*^9}, 3.567962107894864*^9, {3.567962149468937*^9, 3.5679621572533503`*^9}, 3.5679623389156694`*^9, {3.567962645815009*^9, 3.567962648888214*^9}, { 3.567962691647889*^9, 3.567962693020692*^9}, {3.568048161486014*^9, 3.568048162827616*^9}, 3.5680482096900983`*^9, 3.5681142588638926`*^9, 3.568121899632513*^9, 3.5681219958534822`*^9, {3.568277844675576*^9, 3.5682778463603787`*^9}, {3.569341165537958*^9, 3.569341165537958*^9}, { 3.5693418217531104`*^9, 3.5693418217531104`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.5683793122399254`*^9, 3.568379313019926*^9}, { 3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, { 3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 3.5705968020785985`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}, { 3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 3.5705968602823005`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tval", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.567963992456174*^9, 3.567964003890994*^9}, { 3.5679640974287586`*^9, 3.5679642038209453`*^9}, {3.56796433180357*^9, 3.567964353487608*^9}, {3.567964403641696*^9, 3.567964453046983*^9}, { 3.5679646160984693`*^9, 3.5679646168316708`*^9}, {3.567964688747797*^9, 3.567964762255126*^9}, {3.568277859480002*^9, 3.568277863598409*^9}, { 3.568379511358675*^9, 3.5683795129030776`*^9}, 3.5688214977895346`*^9, { 3.56882774467134*^9, 3.56882781892747*^9}}], Cell[BoxData["29.910780830977924`"], "Output", CellChangeTimes->{3.571045238623904*^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["207.4016728083559`"], "Output", CellChangeTimes->{3.571045238639504*^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["237.31245363933382`"], "Output", CellChangeTimes->{3.5710452386551037`*^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["21.9566310818561`"], "Output", CellChangeTimes->{3.571045238670704*^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["7.954149749121825`"], "Output", CellChangeTimes->{3.571045238686304*^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[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "Pij", "]"}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, { 3.5681087021497335`*^9, 3.5681087223049684`*^9}, 3.568114284401138*^9, 3.5681220092695055`*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.570340755052903*^9, 3.5703407609185133`*^9}, 3.570342272888769*^9, { 3.5703428806034365`*^9, 3.5703428850182447`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\<\" \"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\ \"\>", "\<\"C\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>"}, {"\<\"C\"\>", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.1835890644938214`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "1.1836816878275638`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "1.1905621896501053`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "1.1933481123858862`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "1.1953032934539012`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "1.1970642289725948`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "1.1971410378381107`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"H\"\>", "0", "1.1970111256884217`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "1.196971447816999`", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "1.197154487006908`", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "1.197049180545291`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "1.1970699922540011`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "1.1969392752299028`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "1.1987847122989859`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "1.1987573347473566`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "1.198634047991355`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "1.1987598199383478`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "1.198705876549659`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "1.1987106732712691`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5710452387019043`*^9}] }, Open ]], 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[{"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[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], " ", "&&", " ", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "||", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}]}], " ", ")"}]}], ")"}], " ", ",", RowBox[{"Print", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", RowBox[{"i", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"j", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}}], 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.1835890644938214`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "1.1836816878275638`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "1.1905621896501053`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "1.1933481123858862`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "1.1953032934539012`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1", ",", "1.1970642289725948`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1", ",", "1.1971410378381107`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "2", ",", "1.1970111256884217`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "2", ",", "1.196971447816999`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "3", ",", "1.197154487006908`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "3", ",", "1.197049180545291`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "4", ",", "1.1970699922540011`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "4", ",", "1.1969392752299028`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "5", ",", "1.1987847122989859`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "5", ",", "1.1987573347473566`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "5", ",", "1.198634047991355`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "6", ",", "1.1987598199383478`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "6", ",", "1.198705876549659`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "6", ",", "1.1987106732712691`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5710452387331047`*^9}], Cell[BoxData["19"], "Output", CellChangeTimes->{3.5710452387331047`*^9}], Cell[BoxData["5"], "Output", CellChangeTimes->{3.5710452387331047`*^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[{"Lighter", "[", RowBox[{"Brown", ",", "0.6"}], "]"}], ",", RowBox[{"Opacity", "[", "0.6", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"(*", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Red", ",", "0.8"}], "]"}], ","}], "*)"}], RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1", ",", "Plot2", ",", "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[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, 3.5710436291378775`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.00716726622, -0.70435757198, 1.2273203452199999`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.7639595300199999, -0.19694724372, -0.98443386244}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.7516730278, -0.105093332038, 0.5981549707799999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.4944813191999997`, -0.9759867872199999, \ -0.43303071289999995`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.8917447236000005`, 1.9088122326, 2.3398587332}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.2715796496, -0.41660899395999995`, -2.6558209203999996`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.44816741816, 0.49998370507999995`, 2.752385919}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.8690093983599999, -2.6569547559999998`, 1.73459839266}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.11834598047599999`, -1.30368417288, -2.5486734562}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.72765789356, 1.7813502139, -1.40083498654}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.8186123274, -1.80372456974, 0.85389159036}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.8461593277999997`, 0.56187223158, -1.3083895906199998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.134720488, 0.09932588828599999, 1.1552272983199998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.5388898802, -2.9606337241999996`, -0.049047838329999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.832364328, 3.6229826872, 2.1720510643999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.825415340999999, 1.26033385844, 4.2539621986}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.813029147799999, 2.2491518852, 1.80971500116}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.2547610881999995`, 1.56665844304, -3.0496398188}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.648914932599999, -1.433357171, -4.2889221295999995`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.1499672936, -0.99308880752, -2.1784761327999997`}, 0.1]}, Text3DBox["1", {0.40716726622, -0.70435757198, 1.2273203452199999`}, {1, 0}], Text3DBox[ "2", {-1.3639595300199998`, -0.19694724372, -0.98443386244}, {1, 0}], Text3DBox["3", {3.1516730278, -0.105093332038, 0.5981549707799999}, {1, 0}], Text3DBox[ "4", {-4.0944813192, -0.9759867872199999, -0.43303071289999995`}, {1, 0}], Text3DBox["5", {4.291744723600001, 1.9088122326, 2.3398587332}, {1, 0}], Text3DBox[ "6", {-5.871579649599999, -0.41660899395999995`, -2.6558209203999996`}, { 1, 0}], Text3DBox["7", {-0.15183258183999998`, 0.49998370507999995`, 2.752385919}, {1, 0}], Text3DBox["8", {0.26900939835999993`, -2.6569547559999998`, 1.73459839266}, {1, 0}], Text3DBox["9", {-0.718345980476, -1.30368417288, -2.5486734562}, {1, 0}], Text3DBox["10", {-1.32765789356, 1.7813502139, -1.40083498654}, {1, 0}], Text3DBox["11", {4.218612327400001, -1.80372456974, 0.85389159036}, {1, 0}], Text3DBox["12", {3.2461593277999996`, 0.56187223158, -1.3083895906199998`}, {1, 0}], Text3DBox["13", {-4.734720488, 0.09932588828599999, 1.1552272983199998`}, { 1, 0}], Text3DBox[ "14", {-4.1388898802, -2.9606337241999996`, -0.049047838329999996`}, {1, 0}], Text3DBox["15", {3.232364328, 3.6229826872, 2.1720510643999997`}, {1, 0}], Text3DBox["16", {4.225415341, 1.26033385844, 4.2539621986}, {1, 0}], Text3DBox["17", {6.2130291477999995`, 2.2491518852, 1.80971500116}, {1, 0}], Text3DBox["18", {-5.854761088199999, 1.56665844304, -3.0496398188}, { 1, 0}], Text3DBox[ "19", {-5.248914932599999, -1.433357171, -4.2889221295999995`}, {1, 0}], Text3DBox[ "20", {-7.749967293599999, -0.99308880752, -2.1784761327999997`}, {1, 0}], {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{0.12160386810000001`, -0.45065240785, 0.12144324138999996`}, 1.1835890644938214`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{2.37942014701, -0.404725452009, 0.912737658}, 1.1836816878275638`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-2.1292204246099997`, -0.5864670154699999, -0.70873228767}, 1.1905621896501053`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{4.322043450415, 0.9024504673922991, 1.4695179865458992`}, 1.1933481123858862`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-4.38355130298782, -0.6961339523613943, -1.5450772552547678`}, 1.1953032934539012`]}, {Opacity[0.5], SphereBox[{0.6055504572053294, 0.1609086751148907, 2.32301289577309}, 1.1970642289725948`]}, {Opacity[0.5], SphereBox[{0.9079054361244018, -2.1072336653034665`, 1.5917827398426556`}, 1.1971410378381107`]}, {Opacity[0.5], SphereBox[{-0.30011935901280823`, -0.9920808756645736, \ -2.1082596575744468`}, 1.1970111256884217`]}, {Opacity[0.5], SphereBox[{-0.7378788695579501, 1.2243469269154064`, -1.2835943795046898`}, 1.196971447816999]}, {Opacity[0.5], SphereBox[{4.51823540409117, -1.3255065256502532`, 0.7818936997624372}, 1.197154487006908]}, {Opacity[0.5], SphereBox[{3.8195570813721984`, 0.3740906983606488, -0.7716094621998203}, 1.197049180545291]}, {Opacity[0.5], SphereBox[{-3.9544655214587356`, -0.2034210534670764, 0.708064099592324}, 1.1970699922540011`]}, {Opacity[0.5], SphereBox[{-3.526386144757982, -2.4018338061884936`, -0.1571625839955666}, 1.1969392752299028`]}, {Opacity[0.5], SphereBox[{4.130623473893738, 3.1403732129934183`, 2.219295823863724}, 1.1987847122989859`]}, {Opacity[0.5], SphereBox[{4.8440900426839155`, 1.4429096598602968`, 3.71505606368154}, 1.1987573347473566`]}, {Opacity[0.5], SphereBox[{6.272068267407457, 2.1533251373307203`, 1.9589833845428304`}, 1.198634047991355]}, {Opacity[0.5], SphereBox[{-5.259496263149132, 1.0082802285327135`, -2.9387622390922163`}, 1.1987598199383478`]}, {Opacity[0.5], SphereBox[{-4.824227491034789, -1.1470895869628097`, \ -3.8291190552469034`}, 1.198705876549659]}, {Opacity[0.5], SphereBox[{-6.62110456311839, -0.8307800906581089, -2.3128732411698736`}, 1.1987106732712691`]}, TubeBox[{{-0.7639595300199999, -0.19694724372, -0.98443386244}, { 1.00716726622, -0.70435757198, 1.2273203452199999`}}, 0.1], TubeBox[{{3.7516730278, -0.105093332038, 0.5981549707799999}, { 1.00716726622, -0.70435757198, 1.2273203452199999`}}, 0.1], TubeBox[{{-3.4944813191999997`, -0.9759867872199999, \ -0.43303071289999995`}, {-0.7639595300199999, -0.19694724372, \ -0.98443386244}}, 0.1], TubeBox[{{4.8917447236000005`, 1.9088122326, 2.3398587332}, { 3.7516730278, -0.105093332038, 0.5981549707799999}}, 0.1], TubeBox[{{-5.2715796496, -0.41660899395999995`, -2.6558209203999996`}, \ {-3.4944813191999997`, -0.9759867872199999, -0.43303071289999995`}}, 0.1], TubeBox[{{0.44816741816, 0.49998370507999995`, 2.752385919}, { 1.00716726622, -0.70435757198, 1.2273203452199999`}}, 0.1], TubeBox[{{0.8690093983599999, -2.6569547559999998`, 1.73459839266}, { 1.00716726622, -0.70435757198, 1.2273203452199999`}}, 0.1], TubeBox[{{-0.11834598047599999`, -1.30368417288, -2.5486734562}, \ {-0.7639595300199999, -0.19694724372, -0.98443386244}}, 0.1], TubeBox[{{-0.72765789356, 1.7813502139, -1.40083498654}, {-0.7639595300199999, -0.19694724372, \ -0.98443386244}}, 0.1], TubeBox[{{4.8186123274, -1.80372456974, 0.85389159036}, { 3.7516730278, -0.105093332038, 0.5981549707799999}}, 0.1], TubeBox[{{3.8461593277999997`, 0.56187223158, -1.3083895906199998`}, { 3.7516730278, -0.105093332038, 0.5981549707799999}}, 0.1], TubeBox[{{-4.134720488, 0.09932588828599999, 1.1552272983199998`}, {-3.4944813191999997`, -0.9759867872199999, \ -0.43303071289999995`}}, 0.1], TubeBox[{{-3.5388898802, -2.9606337241999996`, -0.049047838329999996`}, \ {-3.4944813191999997`, -0.9759867872199999, -0.43303071289999995`}}, 0.1], TubeBox[{{3.832364328, 3.6229826872, 2.1720510643999997`}, { 4.8917447236000005`, 1.9088122326, 2.3398587332}}, 0.1], TubeBox[{{4.825415340999999, 1.26033385844, 4.2539621986}, { 4.8917447236000005`, 1.9088122326, 2.3398587332}}, 0.1], TubeBox[{{6.813029147799999, 2.2491518852, 1.80971500116}, { 4.8917447236000005`, 1.9088122326, 2.3398587332}}, 0.1], TubeBox[{{-5.2547610881999995`, 1.56665844304, -3.0496398188}, {-5.2715796496, -0.41660899395999995`, \ -2.6558209203999996`}}, 0.1], TubeBox[{{-4.648914932599999, -1.433357171, -4.2889221295999995`}, \ {-5.2715796496, -0.41660899395999995`, -2.6558209203999996`}}, 0.1], TubeBox[{{-7.1499672936, -0.99308880752, -2.1784761327999997`}, \ {-5.2715796496, -0.41660899395999995`, -2.6558209203999996`}}, 0.1]}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5710452387799044`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvPd3o2l6HXhd43BkpbVlyatgeTQKlrRa+3h3j71rS5ZmJY1Ws5Nnejrn UFVkVbESWcw5JwAEATADIEAiEZkACDCABBFJMOecM1kssnJP6L0A2XN69A/s L+rTlx8Akh/e7733Ps99QKC++f79ax/ffP/+9Q/f//Lf3X3/9rXrH9778teS 7vKhL/0T4J9ci+HLiN3+DPj8y2f8/7PrsS+xR/7x9j/e/sfb/3j7H2///3n7 vfjhX6K0zApBuR21ZXbUEY2ldjQV29FcxGO+HQ25dkgzrP8t/uP/HEXFVpQX 2SDgtwUFdgjzeDvb2ndx0rfjh/8JlZUWiKptkFXb0UKoiPYqO/SVdnRU2GHk E5r4RCY+kbHQDgOfSJdjhybTDmWK5X+Pn+ZXUF5hRTV/TUzU81eb+asK/qqK 61Tz19v46238dTV/Xc11tmbx+6lWz8Vi3owf/g2E1SaIhTY0iPhdop0wEGah HTaBHU4uzsVncPMZPDy7h2f3lNjRxTM7CTvPbOXCzKl2aO+a/1P8tP8aQoEN tTxFHdFMtPJU7YSOp+vg6cw8nYWns3KhNp7Oyh2zcMdMebxmLtSYzv1IsXVd LPb1+OGXIajUQiKyQFZjQ4uYl0cYCCvhqOGiiB4uvo/P2M9n8/HZvoRBPte/ wCCfbYCL9/LZevhMbj5TF5/FnmLDn12ev0Zo5vltqON5WggVoSU6eE7LP9yQ iosNuYLu0tj5PdxuNzfExfM6yZaDV9HJc5vvmuG8uIzX4odfhUSg51OY0VRL QgmdhBtCdPK2m+jl5fQTg3zqIJ86zGOEGKqJPd0wv/4Chvh4hEsKc0kBLsfH pfRzCX3kw5NmgyXBgD+OP99voqZazy2zoI7nbLh8znaig7DwsU6e0cXzeXi+ Xp7PW325fTxvbPN8FRfn93H7+nmxfdzCXl5qD5+rO4PbeM8Cx8Ulvho//CvI BDo0ik2Q11qh5qXppWSJcEk70S1xoF/ihL/WhZC0C0NElBiVdWG8rgsTdS5M 1Dt5qRP1Dl7qeJ0dYzI7RiQXWxCKXTKXNEjNeLOtcCQZ8EeX3pIK9WgQW+Jb K+fPqyQX22si7HzMRXTzkvt4ngFesl/YiQARIsIi+5cQEcV29/OdDXIn/JUX V+7j7vaT3N50CzoTdbBfXPEP44ffRb1Ag2axkc9qQZvUBgOv1Cp1ootX1iv1 wCftRlDSy6vtw0hdH8bqvZhs9GKqyYuZlj7MymPoxZy8h+jGbIsbM80uTDc5 MdHQyd2xY5irj3BZoRgZeRa4bmv/IP70v4Z6XniT2IwWiQ2t3Oh26cWmWwgH N9zNDe/lhg+Iu+AXuxGsdSMi8WCYiHJ5ozIPN9lNdHHjR2Uu7sKI1MFN78Qw N4ybgxB3I8SND7DE+bLN8NzRwnaxC6/ED/8e9dUqOkdPiZmg5lN3SF2w8tQu WQ96ZV74ZP0I1fswXD+IsQY/JpoCmJYHMKcIYF4ZwKIqgCW1H0ttg1hu8xED vO/l471YUHXz57grLdRHoyO+I1EuLVJpRaDAhN+Pr+HLaBBq0FJrhEJihfJy KwwyB7fCBYfUDQ+Z8Ep64CMbgdo+boMXw1zXSF0/xuv7udv9mGzqJzNEsxfT zX1EL+93kzE3xhuo1TonotyaaMyW3JYIG4U/1wj3nTbrF3fky5CLNGjlamJK 1PLZLbJe7sYAd2MQg7IAQrIQhhvCGGuKYEo+hFnlMOZVw9yBYSxrhrGqHcaa bgjrugjW9WEixNtBPubn93xYavdiQU3NKN2Y5M6MUytjtTZEqywI5Bt+L76M 30N9VSvkYgNaJWaopFa0yZzQk2sLyXGQHI/UC690AINSH0J1gxiqC2CkPoCx xiAmm4OYbglhRhHELDGnJFpJWKufGOT9AT5OGVPC0y3dJIc6qndhlBs0ynI6 XG5GKN+Ay535fuzwpdjsw+1RU6+f/+eQ+dHD7Rioi1Akw4g2jmCsZRRTyjHM qcex0D6BZe0EVvUTUPxtKkLvpuMsvwhbpjFsm0axbR7h7WFiCBvGMNYMASzr BrGg6ccst2hK0RUXzjiFEa0ywper+XJ8SV+BokYLFVlS07ltFL+W22IiUw7q wkOm+qQBbk2IbIUxVB/BaOMwJpqHyVgUM8ooqv4mB+1/8REW26JkJIYYe0NE hLdDfDyIRep6TjWAaSVd39JDLXE51OV4jRUjFUZukcbyhR2inpsqW+Ib01Zr gVbiZk3ph00ajD/mlY0gUD+GocYJbtIUplqnMdc2g0XtLFb0s1jrmMOGaQ69 t6M4bRzHY10ndm0z2LNPE1PYtU9gxzaObesoNizUmYkr7QhiXufDdBtXqPTQ BZ2YoJOHK3X0dmxNX4JcqIJKrEMb69yV+Er+PTq4SzaS5yZ5fSTPVzdMEUWp 61GMNo9hQj7Oq57ArGoCFV8rQuvfZ2Mvlzq9mhQnc00/TrLGiFHeH+H6uXvU /KI2hPn2AGZUPq6nj27kmuq4JnaW0QodBvNb8X/E1/WLKCm3oZJ1UchSLSak bFR1LNn1bFQNl1GtIYupK82C21/c5n8GZbUyfiEa1kc9i4GJW3yhz99BqGkG UfkcJlrnMdO+gEXdIlYMS1gzLmHTsoxt2zL6UyZxppjBU2MXDpyLOHQu8DiP fecs9pwz2HFMYauTl2kbxQq3esEUxiy1Od3OAkPbTjVaMS7Ws6yrfze+pF9n 8mhnizZCw9Ktk/awfvniC3LKIuiWRtEvGyX74xhqmMRI8xQmFNOYVs1QAbOU +yyqvt6OnvuTOGycxqnGSSXMkq0N0wxTzqZ5mrcmsW7ikoxjWO4YwYJ+CHPa MJkPUEkD1KcHU/U27nQHRqra8J8v+3pVlQ03brUgKUmB+7cUSCOybiqQl6hA YYICRdcUKP5EgZIPifd4+205il5viWdXTaoNyntG3LzY/e/FD3/ITC2DWtB+ yUAvOiT+y0sdR2/9dPx2pGURo63LmGpfwZxulUtew5p5HZvWdWzbN7Dr2IA/ cw6P2xbwzOLBkXsNx55VYgWHnmXsuxex657HdtcsNpzTWCUbS2RjzjyEaTIx xSI6pXDyknm54jb8u8+VIVCgrUbHddlowG52VN+lMn6XJWECg/VTCDdSIS1z GFfOY0q9gNn2RSxol7CkX4LgW0Z40+ZwLF/AmcGDLesSDbdI1SzSfAvYstGk Vq7JwjWZJ7FkGsc86Zih+Kc0QUypqJCWLq7LQiNqEa5Q/MdLhdxOasS9e3Ik 3yMLRDZReFeBsjsKVJIdAZmpuaFALVmRXFdASlakH/H2+8Q7fPxN4tUWCL7X AHMyLy+pA4lfZOaPoKxoQrvQFL9erXiQeTESv90lm0Ff/UL89pByDWNtG5jW bWKhY4tXsY0N2w62O3eo/V1I32hlYVvGE/0qnnf24mHPNh72buGkdxNHves4 7F3DXs8KdrrpJ/cC1sjQMv0ybx/DDOv4lN7PXWXtbqEY69vhr275ncvlqVmJ NKwE2touktMfX45JOgI7iYlXyPpZBBrnMRQTj3IZk+oVzGhWsaBbY6VbZ8Vb h/B7nRjIWsZD1SrOTb3Y7VynmNaIVewRO45lWpdL6+TS7HNYts5gwTKJWfpm 2sD6r4n5JVaZYuIxYLRWeTFM/M8cf8xITZYjLUWBTCKXKCbKkxUQ3ufmkywZ yWq4rUAzyWohWXKSpaCFlCRLQQspSFbLu3z8LeJVOZq/3wLpN+vQecec8PNc qSrV0DAaXnAVIlcj8dvuugX0N63Ebw+rtzCh28Fsxx4WzfusRwfYdBxg13VI hxxC9rYFkZINPDVt4oWrH6fefTzq38dp/y5O+ndw1L+Nfe8mdvrWsNW7gnVy tkJXLZCvWbppinVtSkvFqlzky8BQpfjt+PL+GMrKRkpJA02Ng3z1kq9AfEkW yTgz2Uz8dn/DEoLNKximpMbV65jWbNLsW1js2MaKaRvr1h2IfuiBP38Dj7Sb eGztx55rB/tdXFbXFrGJ3a4N7HStYdO1inXnMlY6F7FI3uZosGlyNsU6N9U+ yLLbzSVaMdmgRn953Z9ejg8ZyU3IeiBHdqoCOWk0FI/lhOAB+SJ39eSumdwp yJ2KvLXRaBqWPy3Lny5BcQV6kvcL0F3lQ/Sa5gMeSZ+W9GlIn+o7jehOMcOW oMW1L/L3z9FWafhZDtLWDJO/CXTK5q5cFpuQahtRzS4mDAeYNR+xeB1j3XGC ra6H2HM/xEHPQ8jedyNauYtn9l28dA/gke8EZ75jnA4e4WTwAEe+fRz4drFL GrdI4zqtt0IKF7vmMOuYxLQ1iqkO6llDu6msGGtu/Zw+dWUTNEIjV+amunyk MHJJ3wyckotKMNC8hpBiE9GYyjQ7mNHvYsG4h+WY0qwH2LAfoOZ1LwLFOzjr 2MUTxyD2PQc48OzjsHsPB8R+9w52PFyeh8vrokW7VrHkXMKcnd3XypBjpMp0 VFmsc6poObkeUVnjn8SX+e+Q86AJeaQtP12BAqKEqOJ9MVFHGptIo4IUtpFC DeulnvYzkkYTaTQTVtrQRjqtMdCOVtJqYe00k1XzxwTtaGZH63ilEcq/E8OT pMHVCx6/Gz/8B8iLJGivNENb3QOtMAidaBRG8Qw6pYvoblzDgGILobY9jOgO MWk8wZz1FMudj7DuOsO255y18ByHfeeo+8iHMdERnjsP8Wn3IM78ZzgPPMKj wCkeBh7iOHCMA/8h9gb3sT2wgw0vay8JXfQsYs41g+nOcUyZuVMG7pTGgQll O377UmvtVSqujeOIqI9sBokR6GunrlxG8t7GdfjkWwi37mKkfR+TOmqu45Al 4wgrMd3ZT1g2TlDzNqeX8kOcWQ7xtCuIw54T4phl/Zhl/Qj7vSwtvVxezx42 SOwqSV2iN+dJ6Aw9OWWZIKHDFyVeQz+qzczULf/hssFJBVrkpzahKJ0RIkOB UqKcqCZqSWw9SZWTVNUDJTQpShjut8J0rxWWeyrY76rRSTjvquAiuu7F0MoI 1HVXSYM67yjhIPEOEu4gyQ4atvPDFtjebIDhWzXovdeOT75I7B9DUcRmyOFX W+WFVhCBXjgBk3gejvoV9LRswqfaRVh7gJGOE0xaTinZcyw7n2Dd/QQ7Pc+w 3/eMBfQZ6q5FMCE5xfPuE3za68d58CnOQ09wFnqMh6EzHAcf4ZAE75Hgbbp2 g45dpVuXWHDnPPOYdk5iysZdM7GKGbow2a7nVF37W5fLbK/UcnkcYEQDdGuE GIdBPAurdAlddWvobd7CoHIP4TYuVXuESQM1aHqIJepwlTrccJ6xqJxB/N4Q ItUPcU6yn3rCOOo7w5H3EY77H/EyTnHgPcGel0vsO8QGSV7r2cUyCV6gY2eY gac5ZkxZ6FZjiMtkutLaMalq+6PLeateqEVRWgNKMlpQmilHeSadSogICQlu TFdCkaaCOrUNugftMKZoYUnWoTNZD2eKHl0PDPAQ3URvqgF9aXpCR2gJDR9r 4/fU8KS0wnNPCQ/J7r4hh/tqE1zv1cH8fRF676s+/nmOW4sopXIntJUscdVR GERTMEsW4WhYQ49iGz71PsK6Y4wYTzFpPcO84wmWu55R3c+x0/sS+/2f4tj3 KeoS2WkazvG87xE+9QbwOPwC55EXOIs8w2nkKY7DT3BIrveCp9gOHGGTJl4d 2MYSG+t8zyJmurh5nSPkmdXYTGfojOyMst+ML/NPIC+sgaaS1bi6mz72k+so 9Fxqh2iB4+Equho20SffxaDqABHNMUb1XK7xEZvgOZbsj7HKZW90PcW2+ynE H3KIqDnHOevP054hcsvlDTzBycBjHA2c42CAyxx4hO3+h9gk32t9B1ju2cGC ZwOzXUzkDhrZRiNb2FjNHNM62Ps1OnxOdElqHcoymkmwHBU/I1kJaaYKjRnt UKZr0U7y9KkdMD0wwvbADEeKBV2pVnSnWdGbboM304b+rNhrTjYM5sRgIcyE iTBiIFuP/kwSn94ObyobOsu793YL+hIa4PlACtMPqv4h0YVqaMsYGyu4e1Wj 3L0ZEr0ER+MGepS78LUfImx4iBHzGSa5Y3POZ1h2P8d6z0vseD/F/sCPcDz4 Y9TdmsV0yzM8953jhdePx5Ef4fHQpzgbeonToec4JuGHkcfYC59hJ8iyGTjE 2uAulvo3MN+7jBnPLKZcrNSddImtl26xINRad0H0v4WquJ5L5OxfxcQkCJHs MeiEM2woS5y319HVtI0+xQH86iNEtA8x2nFGErhc21MsOZ5jzfWCofoFtrtf ovaTGQxLWWs8T/DMG2UpPPa9YOQ5GeQyB7nMwafY8z3Gju8RNgceYq3/CMt9 e1jo2cKsexXTrgWSTV3ao5e65ISo7/jD+FL/ACUPalGR3oDKzGZUZZHnLCWE WWpIMjVozNRDkdGB9nQzDOTUnGaHLb0TzgwnPOku9GR2wZvdBV+uG4N5bgY8 N4IFboQKuxAqciFcGIOD9zv5uA2BfHKfZ8QgeR/M0GAwVYXBu80YuFGH3o9q MFSk/ugf8J3fBk0Js0sZu10lN1EwB7N0BY7mTXS37sHHShjqIN8W8t35hB30 OZa5aeu9n2Kn/0eMTT/CkZ98317ErOolngee4Hn/IB4P/xjnwz/C2fCnOB1+ iRNyfjjEjYycYyd8is3gEdb8e1jybWG+j5Wxm25x0y2uCDlnVbRYEVJf8v2n ULHHaMs5i1X2k3MW7+oJSnMOJskKbPWb6GreRV/rIfztJ4joH2HU+BhT1qeY 63zOmPQSa+5Psdn9I2z3/gji6wuINrzEee8zPOsfIcc/won/U+Iljv0vcOh/ hj3/U+wMnmOTnK8NnGDZe4CFPg4I3UzfXUtc5gymnCziDo6iNqZCowkBuej3 L2eO2ItmlWkyduQmCOhvQZaKaIc4S4/6TCPkGRa0ZdihT3eQ8y7Y0zzkvBue zF70ZfehP9eLwXwmwsJ+hIr7ES7px1CpF8NlMfQhWtaLaHkPhsu7ed+NSCl1 UNzJn7cikGdCKFuHIJtE4H4TBm9J0Hu1mt+Xf/hF7n8Dytx2aIo80JaS+/Ix mogbKltFJztht2ofA9pjhFgdR6yPMengZrKgL/XQ6300zgCL+uBLHAVY1O8t Y679JZ6FH+Osr/cKzqOf0j9n/Hoa5Z5GuafD3NMhUh+hh0InWAsckPptzHvX MNNL/3Szd3tYKJ1e9g8rM0Ptz6gvaOYKO2l39u3KIVI/ScsvwFi7BlvDFrrk ++hTHcOvOUXEcI5R0xNM2p5hzvECy65Pseb5ETZ7fsx+/GOIE1cx0kxl9nO1 vlHS/WOcBGJg1Qq8ZLx4wXjxDDtU8ebgGSvSQ6wMHGHRu4vZnk1Md69wmTGl sjK5mCEdHHAtFoTV4q9cxtwWgQqVqWIIMuogzGxhSVdDlKVFTZYRskwrmjM7 ocpwQZfhgTG9B7aMPjgz++HJ9qE3dxAD+X74iwIIFgdIaxBD5UHOLkGMVAUx Wh3EWHUAYwI/j4PEAB/38vt9GK7oQZhSCBU7WBKsCOfqEM5oRTC5Hv47IvRc L8U/4F/OTtNeQP6LY/yPM5HPoaNuFfaWbXjY0Pt1JwiaThG1nWHC+ZjF7gn5 f4o17zNs+57TJPR08AVkyauY13NHhx9zWnZeIfMv8Ks4G3lB/l+Qf9bQYVqf 396OnGGD/K/G+B/cxlw//eQl/30cYdhkp9z9GLdb8VuXDb01j+NVCSfjMuaO iigFMEXyF9EhWYetcRtdrPG96mMMah8h3PGYbekp29JztqWXTNQkv/tThjD6 3kvf31rDqJLkU7ZP/fR9jPQgvR/8FEdBkk/sBZlXgiSfQ8Wan+T7jrDQv4fZ vi1M965yjfPUKsuUh2XKRfK51t+/LKWxVyYFaRKIMhpRk9lK6FCbaWZD72Sh 72Kh72ah70NHxgCsmYNwZPnJehC9eWEMFEbgLxlCqHQYkfIoolVRjAiiGBNG MU5MMMhMcvidFHOPxBHeDmOihmoQ+TEq9CFCFYTjCmAhKKIg88g+A0UoVQr/ vUp+v/GDL47Vv4H2XEbhwgB3lsQL59FB49tIvJvEe3VHCJhOMGw7xThj74z7 HIu9jEfeJ9jyPYlXxwOmc+mDdQ6y3M3Rcxb5Z3gUfUbyR57hV/BwhGlp5AkO ovzx4XNsDzFBh0l8MEb8DuZ8a5geIPH9JL6XF+XxYqzT/FuXf5htySTvRTR9 CXkvI+8V05TnIgzSdVibduBSHKK37QSDujOEWetHLOS98xlmnaz37OurPS+w 0fcSWzS6+PY6RtU/xhn5feIfinN9FHoZ6/OhF1zqYYhSDtH0oaeMIY/JOwfP wWMsDOxj1rtNfZL3vphGWaN6yLubNarT+pVLiSqqOXmlCCBiva/JkBM0O41e m+lEXaYHzTS4ipTr0v0wZYTQmRVBV84wevJH0F80isHSMQ6L46RoAlHBBOmc xHjNJHs4n6Z2EtPSCczEMY4Z2RjBtiOlJCRDGKsNI0oZRCiBcFUfwuWkv4T0 52sQzm5CKEME790i/Bz3vw51Vhc0rDPaEhZ9NvwY99YWllLVHvo4fvtNxxiy PcSY8xTT7kdY6D3DSv8ZSyIrOHdojxOZJJ0jjZU7On6GhyT5Szgl3THiGY+J g+g5doc5ug+dkvhjrJD4RT+JHyTxg9zNAbrISyV392K40/Dbl68NagpIehFJ LxmOk64VLUEv3YCFpDuVh+hpewgfG3zIeI4o+9IE+9Ks6ymn+2ck/RnWvc9J +nPU3N3AqOYnHCw4YARCcZKPQs+v4Cj8LM456xGxwyvZDJ6zH8U4P8GCj5xz 3pgaWKM06XUvOe+jPLv7+FTmr1z+qadNqILoQQ1q0hovX/X+EqQZPT97neri BYNfoc2jcOaOortgHN4iclo2jWDFDOfHWUTZbUdr5jBROwdvbgDRPD/mywOY rZ+7grmGWf76XMMMMYWZ+glM1o1jnNSPSIcxRNrDNYMIC+j4CicpN7Lmq+h6 GYKZZf/A6cp0J9pzBrmtI2yes9zOFVgY75ycy3u0+/AZGeltRxh1HlPbHHp7 HzLvnGKd2Wcr8Ai7wTNIs7aw0PkpzqfOcEJmT0bOr5DqMy7yhF+Poo+wT+yS 7K2hh1iPE76PxcA2ZgOMyH5upW8ck/0hjHd3I2jTfU54e64V2gKmumISXj7F WsTqTpebm3bhUB6gu/0YA/qHbESPWI/OMd55jhnXY45ZnDB7nrAZPcXGwFOI 7m9iTP8TPBrmNBnw44DsHoafXuGXmCwPwrFZgw0oxFAXZKgL8CL9NPngAWbY iKYoyynf57JkZ+/pw5jD+JXLEKIRsYszyNekKVGTfvGCZE16N6TpA5zIL/7u 2J4RjR/t2ZPoyp9GT9Es+kvn4K9cQKh6EUOU8qh4GeMSDoeyFVR9IwMTRUNY Eg5hvmkFC83LxBIWmxcx37yA2aY5TDfOYqJxGqP14xiWRRGWkHmx75J5O+u9 nuzLES4QcsBLe/+LzP8bNN03MGbSTAXc20pWUA5yxqYNdLaywWt3MGDcQ9B6 gKjjEBPuI0acY0YdFmnfCTbY/baDDyHL40jLGHU284jmiZ6ysR/z69HIKev7 QxxGH2J/+AQ7Q8fYjDDThw+xHOJwFOJwFGRaCjAtDY5hot+PaLcTv3NJuzrL Ak1eH1sQE13pRVPXs6mb6PNOxT48bUfo15+wDT3EkPWUveERg/cZ5j2c1HvP seI9xzoncWHKFsY6foLT0Rd4GBjAPg19EHp8hYSfx2k/w26YQ3qI7Sd4ytxx giX/Eeb9+5ihOKf8rO2X4pyiOCd7PIjY9RfvDfhfoK5qhuBeBWoesKWnaki/ 9YL6tH7I0gJoTBuCMm3s4g8s2dPozJuDu2gBfaVL8FWuIChYRUS0hmjtOsZY xSbrN1D8zQL4E/pwwuy+IpvAomITS4oNYp1Y4/1VzClWMCNfwmTLPEabOJ42 TiBST/qlQdLPeUDYhXA163xlGyUgY+bPx/tf/NPtr6P1QT+9NQRN+SR04gUY GhiXlRvoat+C17ANv2UXQ517GOvaZ6w94BB2iCVG3dXBI2wEjiEr2GVRZYKf PcX+0EmcZO5q9Bi/jIPhYzb1I9r9iPX9EBuRA6yG97EU3sV8eBMzISo8OIOJ wShG+/sRdHdeEv9voUjVQ5PdAy1Tj7ZkghVpAVrJGoyNW7Ar9tDVdsAedAS/ 8RgR6wlGHQ8x6XqIWc8p+9AjVqZHWB14BEHqNkbNP8HDcUb2AQ92yfAVWvxR 7MspfokPPMQWo+ZG8Jip4whLgUPMBfcwE9zi4i6V6R+j4wMY73V/Xtrbq5nZ 74tQk6L4WWmvSfVDmjp0ee/iL/uOwmV0l66iv2Id/upN1uMtDNdyTbIdTNTv YqpxF6K352C9q8VYsQazFRIscaBeZtVdVu1gRbWNJRWHX9UGZlvXMKlcxpic k2kL20PTOML1QwjL/AjX9pLy2Huw6HRBM8Kl5T9P9W+g+a4H6owI2rmdGkY5 Q90SLPJVONvW0aPfgM+8hbB9GyMuLs2zy4GL/uzfx7KPtPkPUFccezGDA/D8 Q/r4kLQSw4dX+OUAv8i7+8zt+7T3Hgv7LlYirAgR2ju8jqnwAiaCkxgbjCDS 14fP/0rfxqyrZbbVFjFhVM1BV7tCBW7BKmd2U++hVxfrOwcIWY4Q7TzCuOsY 0x72np4TViCW5oGHqErfwaj1JzieZEtnJbpCFz+8wpZ9QgnusMNsh47jryOs Bw8v4gXrzlxoF9OhTUxdSnCKQX9iwIdh1p4Liv8pNNVKiO5JUZPcRpqtF836 D2nyMFkeRVP6VPwRXfbSxZ/bizfQU76FgeodBES7iNTuIyo7wFj9ISYbjzDd fISam/vssQ74xHaskclllq+VOA6xSkUvt3GL23Ywq6b4VOsYb11GVLmASMsU wk2jCDewrtcNEG6a3EzWW2lw0edM/+DzN+MkB6HOH0c7t1Rbu4COpiXYeSq3 dhVeI4Vo3cCQYxOj7i0Gq23M9O1gvn+XiXsXsrKYyTnqLJxgM7wXp3MrhqHY 7V1ih0FthxV8mxRvYSmyidkIu2JkBWOhWYwGRzHkC8DX7fndz5NFiotdz88s yWTBWKOtWYaeJc7ELOmgvru1u+jv2EPAso8h+wETxgEm3YeY6TnCXF9srD5G VdYuRjp/gqOp5/G6Q7tewWbo6ArNe0gbb5LYdUaJNVp3meQucImzYU5jMfWF FokpTDDVx+qMz2n9nGNtdTszYANq7uvIc+cFx38EcUoUsgcTPwtq+ty1+NFV toOeqj0MCA8QFB9hSHqMkfoTjDc+xFTLKQRvuzjBn8Hacc62do7l9kdY0bAS adhTtA+xpj3hfV6R5gBzmj1Ms8rG/lIbVS0hopxDWD6JcDMLeFOAYO9uYO+u Y0gXSzHcLHjv598Zp0gfgbp0Bm2ieWjrF2CSL8LRtoRu/QoGzKsI2Ncw5OJU 49nARA/rrXcLcwNbkFUeIjPVjOI8E0oyO1CZ0QFBegdHEyKVSDGg+p4BFbf1 dPA6ZodWMRlZxihdHOU+RvxRDHp9X76kV/3AR1EPQxPrz8IF6DgmmJrWqbjN eBvpYxsZNO0gZNvFsOOilUx2s7H2cBO8B6jK2cOI4yc4mHkWrzOxF33WggdX 4nz+Er/u8e4ui/MOmd3GIlmdo+imubKpCPtyeB4ToXGM+cOIePu+cvnOE3Wp hCWFrN7hrHXPSIZdl3n7S6hNHoUseRot6QuXj/0erCW7cFXso1dwhIGaEwQl pxiqe4SRxjOMtzzGlOIxBO9OoLbyKdzOZ1gZYrDUPsGKjuFSx3FQx/FAzwGI IXRRd4w53QGmKexxzRZG2lYxpFpAWDmNsII2VoRINftzC0N5Ewu2rAFjKtnl u+bx9/HDL6Ck1IqqMjtEl+/GkpVcvCOrrtAOSZ4d4iwbL+ZCC41JAShyJ6Gq nEMbLa9rXICldQFOzSJ6OpYwYFlGoHMFEdcqRjxryOX4WZilR9pdEwQ5VtQV mVCfY0BTtgHyLAMUmQYoMwzIf1uIgjeJ10XI/aEQddRE7Q0dIuFZhAIT8A1E 4HS5v3wZJeV3eqBOZ48pZI+poixrmdcaV2BmWnGwz3TrNtBv3GSsYK/p3EaU vWbMvUM9sB737qIyfx/Drp9gb/ZZrBpdYfjml5XADoWwzCC2zK68xMy4EN6g CNYxw8ozzsozEVnEWHgmXn0iviD63K4LIfyvUJdImWo7UJPETH7XTLgvwtm9 IUiSx1H3YJbD90UNNxRtw1q2B1fVEXqFHCFrOULKzjHc8ASjzU8xLn+G6dbn EHy8jfqGl/D1v2SyOaAIXmBV/xxrhmfEE6x3PMaK4QyLhoeYM7Bn6ffjbxwZ 0bDwti0jrKbXVRMEu7eKOV3Jei7ndNbYjAlN0+dC+Fr88B9RVWWFsJoCENjR TLTydluVHbpKO/SM94ZyOzooEAPFoac4NBSHOtsOedrFu4sb70chL5yBkiFK JaM4ODaY1RSHdgHdxgX0WxaRl9GOomwdKnL0EObqUZJsQlO+ldtnhJr3yz8W ovojEUQfiiD+QITa90SQvFMDyVu8/QYff1WE6h+IUPEdEUr/XyGSv3H3Ny+z 0sfvZCAhhrcy8M8vhaK4H4A6ZwxtZbNoZ/3SyDjPcbKxtq7ApVlFj2GNNWwd AdsGwmxVwy62K88W69gWKgoPMOT+CXbmnmLeRzH4tq5wQtuiRhb8m1gIbGA+ uI658Bo702q8M43HyldkCSOR+YsSFojC1zfw+5caaSuWsTOZUHNLhZrbVhaN iyG95m6UGplEfeo8mjNXL3pB8S6s5YdwCU7QW/MIPuk5QvVPMNz0DKMtzzGu fIFp1UsI7j6GSvNjDIV+zNrPHm94idWOF1iLwUidGFk8jOdYjP1h0XiCacMB JvTscrpNDGnoVM08wu3sB+3DBBNemwfhVvZ8uRyTevnnGvmb+OF/g0hggURo Q6PIDmUNNSC6+NhF/HMohIOacVIzXdSMm3rpol66qBdnkR32fP5cDn8+ww5t ig0NqeNoLp6HnNW8tY56YeA0US9ZD5QoyNSgmDqpztWhNk+HBqLmgQkV10UQ JlAb10SQXRWh4RMRmj+ugfxDgnpRvC+C8h0eqRc59dJEvdS9IoL020KIvy5A 5V9XIfOrt//15SdJbnyYgaSPspD8UTbSP8pBNpH3YS4KPshF0fu5KH6PeCcH hW8Tb2Yj97VMlvLLvpgahapwmmPZRS3UNizAyN5oUy/BpVtmPVyh5Ffht60h 5GCP7FpnTVxHWdEBwp6fYnP+Kaa965juZ4EZIHxrmPGvYTr2EkVoBZPhZRYc TuksOtHIAoaJeD0MTmBgIPwHl9miragO2jIzRDfUFJb98+ZTc2cUtfdnUJe6 dNl8vgJ96T6slcdwCU/RIz6DT/YYoYZnGGp+jhHFC0y0vkTlRx4I8n8Mg+0z TI5+hiXDp1jpIIwvsWaipkysP6anWDE/xqLpLP6mhGlORxMd+xjRb2NIt4aI jk1IxyakH+GRGUPLjNHOAVGpwKRReSmp/zt++K+oqTZAKrKigWlVQWhiH3nh 0UY4CfcXPy1EeQ1UfeEjL7FPC1FiXkqshyWpixJzUl62NDtyftCLxpIFNIkW oGRuyXnQisKMC1lV5eggobQaKavWfMqMkpIk1qCRaKbElJRXe6IYmuti6K+K YYiBZcnAsmSgzHSUmfZdEdreFKH1VSEU3xei+RtCyP62GmV/fQcF/yMJ6lQb FRa7xv+MO59k4P7VLKReo8auUl9X81DySR7KieqP8yH8KJ8lL58lj3gvD+J3 ibfzIHwrB4LXs1H1ahbS/qIF8sxxKEtm0SpgiZUuQNNEzTG529oWqLlFltkl eNmDB23LCDpifXgFJSWHCHb/FGsLTzDexybmJfoJ3zLeeluA92mXT94WsW4S rwtx4zUhEl8R4tp3q3Hn28lI/l4yMl/PxEWd/T9xg365Tb/cp1dSP8xBBpFN v+TQK3nv0j/0S95b2ch7IwsFr6VAW2qBKIHDzQ07J5M+ijTE6jcKcUydaUto zlmnj3aozgNYq07gFFGdknP4WO2CjVSnnOpktRtXv0TF1TkIRJ+hs+czLEz+ FEuscsvGF1ihKlfNVKaF4c4SU+cTLJrPMWc+xbSJ6jTG3vGzgyED6zxzSrhj hmBE6ggibKA6tVZ2SwXGjIpLdX718kUXqbAD9WJr/JNKsc+GGAgr4SS6+Vgf FTpA+GOfeBJffAhsiEqNffBrOHYUXHwWKEzlBi8/ohRXK5unO92Opm/WM3HN Iye5Fflp7SjN1KGSChVToY1UaPUNAcQ3hJAmstDdqIGKaE+ogY7K7EgQw0yV Wm+IYaOCr8DO7/wy7NdrYKOCLSyOFqrWSLXq3xFCQ3bVVKr861UQ/+1dVH81 CXn/JQG6+1bmwNj1/hfcu5qO5GtU2/VsZF/PQcH1XJRdz0PVNSr0WgFqrxZA 9kkB6j8uQONHBWj6sADNHxDvEe/ko+mdPDS8lYu6N3IgezUblf/1Hhmegrxs AQo6sZXBoJ3BoIOp0drOcMBa4WE46LUsYMC2gEHHIopKj+Dv+SmWqdisdA0+ /kiIBF5H0sci3P9QyEotRk4MDAd5VG8+lVvAYp//Gu+z2Od+V4jsbwqQ9bV7 yKAbS17J+LX45f133KYR79KI967m4AGNmEkD5hFFH+ehlCYspwkracKq92lM GlHAy6l+OxdVb+ag4i0hSl6Xofj1VtQkeinoMIU8BnHyLGTpy2jK2UBr0S50 ZYewVFPIbNvdbNsDFHKg6SkiiqeItj7DmPoZKhL2IW75DD2Bz7A2yVLKVr1k eoZlM8VLAa9anhCPsWxh67bE3hNEIZs5ApooZCOFbKKQTYx45llijGDWN/ZS zCyzbQpEjYrPW/dfxQ//CfUi5u5aCxQSW/yzVkaik3ATvVSzjwjUdiJSG/so WSdGeByTdGJCGoMdkzI7Johx3h7jz45S/bEPOcY+gOdnPBwoufhYY+ktKfKT 1ShK06CcahZl6VBHNQtuCiG5WYOGm2K0JErRflMG/W0ZOm5KYblVD1tSPRx3 6uBKksGdJIX7thSe2xJ03xbHPr15S4RfhPuGCE4q3X41pmwhjO8KoWe9Un+7 EvVfvwPJ3yah6v9KhD3FfpkBfxX3PknBg2vpSE3IQnoC61JCDkoS8lBJCK/n Q3K9AHVUdhMhp7qVnxSi9aNCqKnsK2ijxv8E7bzdRmmoKYtW1mYF80DLG9lo +mEm0r5tQnP5AlpqqHDGmDaqW8+abGZNtlPdrg7GXzMVTnUXlB4jN9uKm3Rn 0lUhpShE2rUa5FwTo5A9ppSo/FgMAdVdTXULqe4aqlsUj75CCH8gRBXVXfUt IcoZZ4r+pgLFf3UHeX9+k1cau94//5mDU+jedLo36xolThTTweW8viq6V0j3 inlltbwuKd1b9z7xXj7qKPe6t+j2N6tR9XYTyl9Toew1A0pfZ1pNupC6hFJv zN28kDoTqplSd9ScUuqP0N9wDn/zY46ejzGs4jTT/gTlyU/QZPgM/hGmCeM+ Fkyx2vwYS5fyXrFynLU+wjKxaD2l1E8wZTnCuPkAUfMuIhZK3UqpWyl1K6Vu Zc02s2Z3WBDUyC9flPrL+OEvGUx1aKk1sVZboaVSTbEPVso64ZE64ZW64Jd2 ISx1Y1jmwWidBxN13Zhq8GCm0YPZJg/mmtyYa+4iXLzvJBz8HtVfT+XHPslI 1YdZ1yvv1UJwvx6Ce43xz5FWp3NizeqAkOqWUtFNN+ugvNmAthtN6LjVAuud ZthuN8N5pwXuuy3ovt+C3uQW9KU0w5vSBF9KA1GPwZQ6+JKl6L9fi767NehO EqGLzum8JoSdtc/8VjV03yuH/Dt30Pj3SRD9RSK6OYBZb3RcTun/ioXtAet3 OjKo+OzEbBQk5qAsMReCRKaKBLKcQLVT9XKi9Voh2q4WQsOj9noh9DwaiCvo oB/+FB1UjOFqPvQsktqPc9H+QQ7a3s1G6xuZyPi+CQ1l89xzpizW9VamEa2C tZ3Kt3DosxsWkJvRhuT7Jtyha1OYrtKuC5HDLlXI3lVOCNjHaqh+CZVfR+XX M101UPlNVH4L01Uza3ozQ3wjE0nd9wgGeenXGea/JoDgq3dQyaQl+OaDX4pf +p/hwfWMuNFTafKMhFzk0uTFNHk5Uc0L+mILa6AJmmiCZpqghSaQvx9DPhQ0 guD1SgjeakLlq62opAEq3rSh/O0uhpZZSGmABhpAWbQHTfkBTIJjdIpP4JE9 hLfhEQabOc4rzzCkPkNxQifKi36CNtdniE59hlnjGeYZmxfMj2J1/Ur8Db2/ Su3H3tp7ggXrMWatR5iyHmDcsoeodRsRO/Vvp/47qf9O6t9O/Vupf6MZkx77 56/K/o/44YdoEmogF3dAKTFDEzOAzIVOWRe6KfgBWQ8Csj4Mybzxj9HGPkI7 1TSA2eYBzMsHsKgYwJKyH8utXqIPy6peHnuw1OrBotLNn6Epmh2YoiEE94Wc yGSoTW2E5EEL6pOVMMvcqGUJb7jTiMabTVAmtaD9thz6JBWssfd5sy247qvR ndKG3gdt6E9rgz9djWCGGqFMFcKZrYQSkcwWhDOaEcpoQCCNhngghTe5Fj13 RGwBQjg/EcD2biUM3y+B+ge3If/mLdT+1XV4s6zovGWI70TatRQqIA1ZiRnI vZGFwhs5KL9BE9zIY9TPQ30iWU8ohDKhCOrEYmgSSqAnOhJLYLpRAgthvVkM 660i2G4VXuGdAvwOH86Hib/ewcpqYJrXfZgFzbsZyHhFD2n5PGT0Qh27QAu9 oGIX0NILeZntKGSmu0sPPGB+y2YXzOexlNmtmhDTBzL6oJE+aKYPFB/VQPkB s957oi+hnUb4l9CwCbTTDmo2u9ZXLgYOOa3Q/P8IIPtqOWoZ5ar/W+IvfF4B rqUiLSGD/S4LGXR/Jt2fTyuU0P1VhJDOr433vUI00P3N7Hnyj7kZhIq31R/H el87zfFn/Mqff60cojcbOIcoUUU7VL1hRdU7Xaj6oBdVH/XH7SAv2kF7xT46 BIec3Y7QJTtGb+MJfC0PEVA+RFh1iqIbEyir/QzGAU6Xcz/FjPEUs5wg5ywP MU/9L8ZxjEXbEXFIPxxg1raPSesexmw7iHZuIsJZOuxkhncywzuY4R2cMO0e hMxGTHjsl3b4i/ghBY3VKihqdOwHJtbpTqaeLtqhh2b1ol82QDsMYqjej9HG ACabgphpCWFeGcKSKoRldQir7SGsa0LY0ASxoQ0QfqxrfXysH2saL1baaA+V B9V3KyBJq2UQrENdhhz16SrIU9shTJSh/o4cirtKtN1Rw3CvHR1JbbDe1sGT cvGO+F7Cl2GAP9OAULYBkVwDhvMMiObrMcLpdDRfS7TzthrRvFZ+X45wVhNt U4+BVCn67ovRc1sI9/VqdL5XDv33Wc9fS4Ly2zcQKrPF/w2CW9+5iqyEVPaD DOTRDkU3suN2EFLPkhtUAS3QkliK1oQyzhc8R2IFjDcrYSasSZWw365E551K OHmdzrvlcN0rI0rgvFfM+4X8Xj7sSblMcjn0RzaMVzOh/yAd6tcfQFg2ixqm oxr6Ij1ZHn8RMDlBgFRaOZVzTS79UHKrBhVMdwLOMhJ6ooGeaKEnlEx6as4x 7cz/eqKDMH0ougLzh7FAaGa7MHO8MbJlGBgGdW9djDkaekT1bQHkXytH498l oZZt8l9cvoaVRnNk0BxZiWyP3IZcVoYCWrqMqErMRw3bo5RooEGaaRAF0Xq1 CG2fFEHDo5aG0V29aJMG9pMO/lz1K8WoeUOGmjfVELzGsEuDCN51ofqjXgiv DdDig2gp2kZb+S4Mgn1YxQdwyg7Q3XAIb8sRBpVHCKqOUXhrG5XKz+CIfIb5 +aeYMh7HB9gZBqJZYt56iHnbAbF/hV/28EuYoS8m7NsYpTeGnevx197DrkVi mojSJ4P0hxt+E1XlMv+cPx5wJmuDqrYDbfF//cMNG33hpie8sgC9Ebr8FP0Q plqGMauIYkE1guW2EWp/BOu6EWzqR7BliGK7Yxg7MRiHeDtMBPl4AOt6H1a1 /ZCmMflnsjVktaAxi97gZFCV2EDttaDlbhvUd7XQ3TNAc7MNpiQN9UR/3Nej 74EBvrQOBHNsiOTZMFxgw2iRDWPFNkyUWDFZaiHYCUuNhIGP0S9FGv6cmj+v RDCb2Yo+6X8gQd8dITwJFXC8V0LBJEH3xk20ficBt7//Me6/ch05iWn0Rsal Nzj80RcStoGGG6WQ3yiHil7Q3KyG4aaAaxTCQs/Z74rguCeCK1mIrhSe/4EQ 3Q8E6E6tIiqJcj5WCndKMX+mgH7J47Vls6VkwUIRGj9KQ9sbyXE2ZAItctgS HyRWIZ3eyOTsn0NPlNIb1Uk1HDhFkNEvTcxPSs746uu10LFndFythZmwXquF /ZoEnXzccT02NTn5U7/I2zVwXLuYmqwfM0N+cDE5dbzB6ekHVWj7ehkU37iJ +q8m4J/FV/JXyLj2gPUinQbJ5Bqy2a9yUMx6UXbj0iRsnzK2zga2zJbrpVBe K+N6LmqHjjAQRu6Z6UYZzDHcZEu9ddFOa16TovYNJYQ/1ED4hhnC95ycSGiU hH7U3hyELCkAVdkWdNU7MIt3OaXuwd2wh97mfQwo9uFXHaAg5RxiIwfoic+w ODIff4VnksPxtHkf05Z9zLBjzFh3maYIOmTGto0p+ybGHRsYca7RCSuIdLGL uOcR7pokhumUAQTtLkx4ey/ftfbn8UMx5NVKqGr0aK+1QSdxwyzth1MaQK8s Al89f7NhBCNNY5iUj2O2dQILbZNY1kzSIVPYNExh2ziFXdMk9syEZQL71nFi jBjl/Sh2LXSNOcwgJUBjpgxNWc1oyVZDka2HKssC8Q0F6m+0QX5LC00yO9lN HbtIB9VnYhexwJtmZfewIZRjj7tkpNiNsdIuTJS5MVXRhZlKBrcqTjNVnGaq OgkbpissmKgwYqxMj2iJBpFCNQJ5CgxmNbKr1MJ7txrdCaUMWvlUzC26JRFJ 33gbqa8lIvXVmyigIkrYPapuFKGWDNffqKRLqqCicjWc1g1JYpg5u1vv1qLz vgSuFAnc7FbdaRL0ZEjQm8EJJ1MMbxwiQkBUoS+jAr3ppfCkFdFR+XDez+HU lAH7jTSYPn6APEb3FvHFvxuTS0fn0pGFdGQx05XoFqeIpFo6thbyRCnUCXWc aurRkdBAtzXCltgIR2ITXDcb4b7VyOkqhgb0JNWzg9YRMt6XwHOrlkGTruE5 O+ma2ORlfZeuf60Sum+VQvWtG2j866sXA9dXaZZkZDNr5ty4yJp5NEwRt6eM 21PNIlLD5ipjc21kc5WzALVer0Tb9SpoE1hMblSz0QpgviVgo63mkFgN+x02 8rtsuGy2jnuMXq/UovZ1BSRv6CB6w4SyVwwoY4cpf9eB2tsB1N0ZRMPdQWiq NmGs2YJNsg1nwzY8TTvok+/A17qL/OIfo7HrMwzOfYYRwy5GO3YxbtrFhHkH k5Ydjtw0iDWGLUzZNjHJsWOCUWuM7STatYyIexERD83i4RjiGUfIHUbI1Q+f rRMjfd2fv6v3v8cPv4P60jqohG1oF5vjn/zvkPTDKg2iSzrM3jKGQP0Ehpum MC6fxnTrDObbZrGsm8OaYR6bxnnsmOfpinns2+ZxaJ/DIaefI0cMMzh0TOGg cxL7nePYsY+iIaP24k8cCZDncPLJsTJWc7dutKPphgGtt0zQpzigvW2B5Z6d QnRQYC4MZnchlOfGcKEHoyVujJd7MVnpxUy1F3OCPswL+7Ag6sFCTQ/mazyY F3VhTuTElKATE9VWjFaaMFxuQJjmCRQoeT6O8Gxz3jsVcHOysF+7gzvfehP3 vv0OMt64hYzXbyP9tfuMOSUs5eWoo1maaZZWxp92Ck5/WwLTXRls9+vgSKmD K7UennSKM7MefVn18GYz7uXEIIMvV4rBPAmPYqKGjwnQn13FCaiMP19M8+Sz 5eTAdTcDnTdTUX6zND4R5t9mS7lZFTdMEVVYeV0Q/1taPVuH/KoEbTSHPrEF poTYR6uVnKZa4UpqheeOCj13Vei714r+ZCJFiQHClyInmjGQ3IT++w3w3qOJ 7tBANH8XW5XrKqe1D6jqN8vR8Z1CtH83AQ1/+9GVyy6Tk0A/s+vm0zj5NE0B u0spDVN1g3GKXVeayPiWwLqSWI1WblU7oaMvDdwyE2uL5Y6YNVDM+iKG434N OyyRctGJu1Kqiar4v54heV2L8u9qUP6qERVv2VHxoRPVn3Sh7r4fTckDUFeu Qidag1myDnvdBqSpDjSkO5CZNIxcyU+hGvwMkaWfYki/heGOLYwYtzBq2sSY mR3FskGsY9y2RqxizLGCUecyTUPDuBdoljmEumeIKYQ8owi6Qxh09mF8MPDh Fz3za1BUtqBNyAwkdsJQ2weTJIBOyTBH9zEM1PG3m2YRlc9jUrWI2fYlLOmW sdaxjE3TCnasK9izr9AXKzhyrrD3n7iW4cAJe9wJV3LcNY+jrjkcdM1AklwZ t4s8Rw15bkf8tjq3C6LEdtTdNKDllhXqOw7o7jo4r7hgS/HAk9FDkfUhWODF QIaH84eH3cNLMwQwIwzQIH4siv1YkgximViSDGCRnl+U0EiSHszWejBV48K4 iOWC5olUGhEs1cBfSONQ1L5UAfNZCWfeB7j/nbeR8t33kfKdj5HzRgpyX0/n nFJJQ7M7kn0FzdKWJIWOFdt0twHWZFb1VFb19GZ4MpvRy4zZl9OC/txmzj7N GCxogp8IFDYS9UQdgoVSmlbM74n4MzRPTjl/r4SdqQCe1GzmrRIIblcgl/mm iF2m4KYIhTRLObNUzXUJ6q/XQX69kWW8mXmHhrnVxkyngfO2Fm5m2Z77OvQl 65g7dSwKevjTdQhkaBHM1CCU2U60cX5TIZCu5Pfk7LiN8CbXo/eelN1IjO5E Abo+qoTj7RJ0fDcXmu9e/AsGOdeT6ZhUOiWduHBMER1TzqIiZFGRsKjU83db 2LlaOUe1sRNqb0qYFqQw3ZHBek8G+30ZHMkyuB7I2JFlLBYXXbk7vZbXz1ky g530B02QvKqB5G0zKl8zofIdGyo/cqHqOnVyy4XGZC9aUr1oFyzDIF6BRbYK 8QM7WtIcyLizjnwOMfrhzzC69AL9VXaE9esY6mDuMq4hamJLMa9ixLKCEesy RjqXEHUuYpgaDbvnEPTMINA9jWD3JI8TxAh8XQGMBaKI9A/g52wzBFWVChqh DVrWaYN4EJbaIYazMfTUTWOwgaeM/cMyqhVMta9hXreGlY51bJg3sM0ut8eh 6dC5iSPXJk7cm3jo2cBp9zoeEafdqzjpWcFx9zIOuxfRmF4Tt4oixwBF7sW/ h1Z5XQXRdQ3DDwPJrU5o7rphTOmBMbkXnele9OQMwFcwiO4MjlTZXgTzvRgp 7MeMIIR5rnNJOoRl2RBW6iJYrQ9jpT6E5fog4cdCvQ9zHMempb2YlHgwJnZh OPbvTFYZESiLWUfOsCaldTiuX0vDg++9h9TvfUwkIu9NjjFvZKPs9TyujaP0 DSlUtxiGbjeg414TLKzZnaktcGXI4clScJ0KeDkuDeTTjrSkv0iBYLECoWI5 wqUt7HGxN/s28liPUImM35MgUFxD+9A6eZXw5pTQMoz2d8sgZnIpSKxgjxEh 77oQpbSL4HoDxwWGWvYVdYIK+gQ1xwJa5mY7exRD7H0TelPM6E+1cFyzMMxa OLpZEM6xIJJrxlAee22ekejgbT0f0/J7bQhkqjCYoaDFmmifOpaQWvQyUXV/ Ugbn24UwvnENt7/xOvITUrimNBTGX/rI4yhTyEZTynRWyXAtYC+O/XlVDOUN 9kDulTapDh136mGOlRf2NXtKI5y0aFcag2NGI3tsI3ozG1gy2Juz68itjOCI mS2G+AftkLxphPBdG6re60TVJw7mERcESS7UJ/egKbUHzWk90IgWUX2P4T7Z Qdt0IS3lFCUcaaxTn2FiahWDbAP9IiuChmWEiLBxCREzm4qFsC8g4pjjgD+H juYedLR0Qy/vhkFB/cm7CBeMLQ7CAl2Dlvkj89I1F/8I7ttoLuGVVrPZCF10 Tj86xGHYakfRJZlCX/08/M3LX/hXo7awYNzGKrPipm0Xu45dHLj2cOTew4ln D6c9u3jUu4uzvh2c923jUd8WTr10VN86jvrW0MwBPPafMtcKcZI6fltwtQ2S 6yY03XSg9a4Hugd9MGcMwJEbhiOLo1V+CCXfYizPGaEqIwgUBTBcGuBIE8Ci NIqVhjGsNo5hrXEUG00jWGvmY810UnMES010V2MAs40+TNV7MS7rQbTWhYjI hkCVAf5SNfz5jUxsHIaT0pFG16R/PxEZ30tC0Vu5KH2zAFVvFrHZSKG8VY/2 O0xF91tgZtqxpSnhzGyFO5uJKFcNb74aAxydBos5PpWoEeK5w2VqRMpVGCpX EgoMVch5bMY/jV/5X2KwSICBggo6pQySe5Uo5JhVlFCF4sRaprI6VpVm1F5X ojFRzSKuYeTRwcTGbL/dAeddI7pTOtHHiDKQ4WAFcCKY40Q4z4mhfCeihU6M FDkwWtSJsWJ7/MWSkSILYeL36J58PYK57fBz/QMZscbTgP57YvQxFfZ8UgzH uzm4z9Sa/v8x9ubBjaf5ed9TYyVxbEWJ7ThKJalUkqpUyoltqWKpFEupJI5X trSSIu3O7mpmd3bO7un7vkh28yZBggQJggBx3/d93wdxXwTvm0323T1Xz0zP TM/s7Era7TwAueux8k+66kuAAJsE3t/7+T7PA7x4fz84idEzt0jLAGNemxYh nesUJKRFTmHRnJmD8awCVnYVx3k1PBe18F/VUowPO0u824Bkp7sYkO3TI0dB zlOQX2K/0OLvoDhItzxENzuoOPoYw/8EybsJ2jJas7MJzFxKQn4tDXVXGrqe NCzT25i4FMHMtQR0t9JwDGdhMz1EQpxFTpZBUZFEUR5BybWHMkNExbeDaoAV 2oZXTUK0VAcdCelQku6Q4jWSFJaXtHj0Ud7f3nXTDOFr/Zj4EfPbK70Q/oCZ 7rtdeOOb+PwmTOM62KeCcM5k4ZRU4JldJD5rSCl2kNfuo2qk1lnpDp1PsPWr jbw+wqPYR3g/8RQfpZ7ik8xTfJp7Slye4vP8R/ii8CGeFz/81Sc9nhYeUVym vvEhPhusN/OYOe2F4lwUemJjuZ6Hu4ei11tHrK+BxEATvX9Is/3qLB6NRbFB M18TrnD6tRhYFig8C8RmHffUq3ig38ADwzoeGNdw37iKu8ZlHLRf4zMsYEdf x6a2gjV1EUvKLBZknGaSIKoiF/FhOLgxwcZIX3LmOm5+7yJuvXwV/d+9jskf 0Ye8Nk4PqYaFU8J5xUBBNCHUbUH0lhXJPhsyg3bMDztQGHWgPOZElT6wPuFA c9KBBZEdLdbitA2LFPbFaTPLxOuHe2wuiA5bSU3IRntZAPnVSU5JerRTkxhv v6fIhD9+0kDBsVJwnNCf8cB2zg/jO244jnsROOlD+noE85xSxd4MKv0Z1Iey aHI6tUazWBrLYmU8i1VhBmsTaaxPpFhJXo/zthjvC2NxjKI0Sv86TF9HlIq9 bQGih70qQeH8BDxv3YLxL6/hxl+8SaT7MXZm9Ff4TJ+ZgYz4qM7IKcoqmM5p YOc4uS/p4btqoDAbEWm3mJtmJNlmMn1mtkAz5gcZuoYOBbo0YqRIU/xH9Cwd xZqtjL5W/BcOzP7o8ENhkrOpDkbiiwlIr6SguJGE+noIiktpjF2IYOp6Eqq+ DKyCHHwimpXZHNLyLFt/ihVFzrmFefcW8r5NuBQUFxWxaQuNgfOdwuI1peEm Om5TeyNiD6/9PfhMbZSisKlckL4xBOnrg5C+xiJK0lf6IP1BL2a/d/P1b5JU hoXN0jEVhVOcJ00NkrSCiHwLaeVtFHR3UTM/xKLjCdbcH2Db/7TzPum92Cd4 nHiGD9LP8DT7DJ/OP8Nn+Wf4osgqfYrnrC/Ln+CLysed0WhdNWPu3UEYOMqW rsBh4hkqwTFah+RcCMoLSeivzHc+ZODqqSHY10R8cBFZwSpGvm/jTGfj5Gz9 wFvHhzM2tKa2sCRew7pkBbvSFTw07OCRcROPzNt4aNnCfcsm7lk2cGBew20z f8a0iC1DE+u69jtNBbSUadTnoqjN0MqJ+PtvMSJ3CeC51IXe711ldWHouz0U IYrEayIoXp+C7bIRbkZvf7cVYaaHeJ8d6UEnciNO5AVMGeMkU+hGfdLDdOXG wpQbLbGLj9OJ5Zl22bEssfHSgqUZE8twSNSUGrHj5yE/PQD1eSEEp4QYI0nC s1qIzpoxc97HLuRm4vHDdIY2mzbXfDwGx8kI/GcjiF2IosB0WBksoD5c5DiV sDhewrKwhNXJItZFRWxMFbE5Xei8tLI5Pc/vs1ifYoIUJbE8GUdrgrZ2nN1l 1IvykAOlvjZRChIlRvBkH9xvd6P7O8dJ0ghrnJRPYeoMUwoFU04R0pAk4zkt rBd1cF42wNt+M/q6mWJtQeymFYleG9K0i7kBGzuPDQVWccTWEe2ygClszMwu ZEJtzMDrehYT45ga4pcP0/HsiTSk57JMPyHMMh2rrtCy9SRhGchg+HwE46RJ xuv6sRznMo2MNIcYu2ZKnUJCHUHSsQ6rNAW7nKVMQaeOwaSNwabjOJImt5Gl b28b7yRJ/wk8pMtFUbJpAlC9NQz1m8PQvDkEDYnSkCj1jwag+WE/NBQo9fdu QfGdbrz2Taz+a1g5HZwcXud0GW5xC96ZdUTmdpFW30HR8AB162Msuj7Auu8p dojUfvTZ4e52qS/wQfY5Pp5/Tg/3HJ8Vn+OL8nM8L3+B6AU25cte7A8fbnP7 1P0QOgbW/6DznQCS0zGilIXhahHWrhrct5oIDSwiMbKCnHCT7vsTesAUdgpf 4P3yZ/g4exvPXBk84FRek21jabLCKVLGgaSMR9Y9orSDB/Y93LPv4I5tC/u2 DexaV7BlXsS6sYEVfRktzTwa1P6aNIQqp3p4YJZ4TDKB9XYw6n35FoZeZqD/ sRiyN2agensG9msWeLps9JsORPucSDBRZEY8mBd4UBznFJxgcxf50Jj2oSn2 YZGYLkq8WJJ4sCx1M4m5WA6WHc7j3UwbN9A80dcZBdX5EeivTsPYpSJGEoyf UbPxmyE+64DkQhjSU0GozxChcwm42IytpyjgZ+fhv5BBhIKeuZ5hoqPgjtWw KKxjZbKOtak6NqYpyDN1bM3UsC2pYme2wipjS0K0JHmsz8xjVZyhUKaIP8V6 IoSKgM9l2I4yvVeJAT98fhiBU7foc0+h+y/OUTBFmDw9g+nTMkhPK5iC1NB1 1m0YYLtkgott03fDglCPjeLNpNbnQIrJK8O2M8+2Uxh1oihwUsSZRiniVaGd f9fW3iGZZWaZWMZD7/JPIfhTO6Ze8WP2zThkpzOQX8lBRT+jH8zDRB2ya/Yw RHs31Z+GgjpsYpdwSrPwU39C6gRK8gQMkjhMtPJmXlcqo1Cr6YM0jBAkyUaS 7LoIXCwrQ5CTFDkMKVg0IeiPjcDw9jBMpMlEmsykyfzm4Wo+Ey2v6cesH/bC 9Oot6F/uxty3r/3wm0CVYBvzwTmZIVSc2NPL8Ek2EVXcRkZ7D0XzI9Tt72PJ 8xHW/Z9gJ/wZDuKf437yOZ5kvsKH81/h48JP8Kz0NYJn2KPPx7Az3MIjxQE+ dtEBpr7sjNFna5/T3GoOJ1L/4SeIzP0NTL7LUWOEVF6ah/FGFfabC/D0LiI0 tIKkYB25yR2UxYyE0gPY3T/Bcukn+GDhazxrPMXz7Cq+Mvk6O7iszTaxN9fA XUUdjx138cixj3vOfdxx7mLfsYU9+zq2rcvYsCxgxVjFoq6IJpW/Jo8iOKJB eFhObeQk6hlAH/tO38sD1MdBiN+YxdxbUqiPSeG4YYO3x0FH6kKMYCWHvdRR H/LjfpQm/KiIAqhPB9CcCaAlCWBxNkCo/FiR+bAy54Pr2AByx/vRZI/f6FZj X2DD/dnD7Y31XVMw3mIo6zdx8soJlwHCUzZMn/JglmCpziWpBTzi53NwX8nT pRbhudBA8EoV0etlxvcC5m8VUO0v0g1zPMRL2JihNtO9b0sXsStrcXza1cQu x2lnjsDJqtiQlbEm5f+RzGNBTO2eiqMyGeLE9xAwAnJtBmGGufCFfrhP3iBg lyA8LSZcUrp1BWe7GuqzOrpiA8wEy37VAjfHyc9xCt1y0rm7kBxwIc1wlhtx U8/ZiNq/e9zT0fTqZFvXXWiInGhMOVg2NOmOmyIzYm9f74zN6qUZzHw/Atmx ecjPlyG/XoKirwjlcAHKsXnMdIVw61IMQwxP03S6Cro+/WyWgSeNqG4HZhGp mmQgJ11SWRhziiiUdIJa0mWgVpk0EVi0kZdgYXr6BzDr0zBQ2kwEy3K8vWRo BPbjw51FQ452HR/i5SAc7wzA/k4/HG/1wfFGLxw/vgnrK93Q/cW1oxPGHBH2 38AmCMApnCdlDUrWCvzSHUSVB8joH6BoeYK68wMseT8+3Lcz+jkOEs9xP/0V nuR+wjbMGXaK3n1gHfuyR5zdX+Bp4q/wrPozPFv5KT7a+bozSs8aX0DPGG++ efRR6yTMAwuYOklhP5eG6nIRxu4G7ITLO7iC8Mg6kuObmJ9iqpQcoCm7i2Xl fcxM/wzF/F/hwcpf4Yv1r/GT1kP8LFnGp2IvtpRLuK1p4W7bFLZfa/TcwR07 AXPtYo+2etu+hg3rElbNDSway2hqc6ip4gjReARHRAgNjiPQO4z+l/sx+PIQ Rr43gpk35yA/Jof2hALObgd8t9xUVg9iQz6kBH5kxwMoTARRbp9kYzqE+kwI zdkQWlTFpbkQ3G8JkHlnko1HjdVeB3apDnfkhw3msSuLR8HD67peCTR9Ogje ncHYSQ3LggmaP/HJIKQnY5zEOapDAY7LFca6OqI3m0j1tzA/tIRY9xJSvU0m /RqTfQ2NkRrWxcvYkq5he24Nu/I17ClWcVuxgn3lCm5znHaVBE+5gE1FA+vy GpbnqOjSPBqSDJ9HjJAFOhEx3FavG2JEro4heKEbvd+9SvBnMXlKTsDUkJ/R 0bwaYLhohvWqFc7rdni7nQjcciHS50acY5Uc8iLD2DbPZlQY96Ek9KEy0Tbg VPspL6HyUPFpnsVu+N7qRf6dEbTOz2GTEWyfP9P+98gS5rFIcK4UIblahuhi BqJrKUx1JzB5I4TJ0RWIJ1bQR5czNp6GaCqJSc6d2XFKnSgL3XQcepEfYgI2 OxchZBHKWAQaVaRjCPWGNPQkS6fNdG63nBiD7d0xOHjpOjnG5sKQwPKeGums O/KdGoLn1GBnKaLnBOvdXniO3YLnzR44X+uC+eWrr/wtyEZCcIwzak004Zpa 72yOG1XdQcbwEEXb+6i7PsISJWw99Bl2YoTlxwFEjxc7+/avST7EvuVrPIz+ Au8VWYu/wKONn+P29s/x5cJP8XzhCLLml9DRgpu7jz6P9n+xY7cgOhGle+ZA XCnD2NOCvX8F3qF1hAWbSE5sY168j/LsXTTl97GseogN7SPsGJ7AG/s5tld+ js93f46fbX+Bv17YxS8CUWzrV7Fn2sOBaQcP/Q9w33en8x7ynnsb284NbDhW sGpdwKKpiqZ+HnVtEqEJI4JjEoSGRQj0CzDw8iAGvzuK0R+MQfKOAop3VdCd UsF10wV/vwdhAhYfDSDFdJIjNAVRGOXpwxM+zf5IyHYmROKtOZQuMhX2h5h2 MthV0MKaK7jrKeNeuMg+VTgchj/E3AWGrKsSqK9pydgcxk4YWA5MnOScOBmF 7BQF7HwRpstVuK41EOhuIda7RMe1iv4/0UD+rQFk+tmPhlZRHF1iUGmhJWxh baLFP7uN26od7Ku2cKDexB31BvY169jTrGJHQ9esXsK6isKurGNRzr4jy6M6 m0aFT6c86aVrViHcI0OkS4TwlX4y1kXG5siYikFLC8U5I7TnzTBetsF2zQ5X lxO+m24KvQfRAR8SQ36kRtmLxgKYZz8qTpDdSYa6qQBqFPy6OECrNYzYW2Mo n1JiuduObWH46OWu38KDcIKmKYZWMIzapBxjx1IU+AzG6YrHGLDGuylE+j1Y zHsQTi5DNLOCmbkVTIzFMTKSw9REDrJpciOOU9x8mJKRLyUTiTpOm8jbyJRC Q9upSsN8YhLWk5OwnxTBdUoED52w98wkA+0kgucmWEIEz48jdL69bGkUgXM0 PecGETjTh+CpXgRP3IT/WDc8b9yA+QeXj06ohf+1ffFrh6/X8drhUf9N2IbD cAgKcI43aR/JnGwPUfVdpI2PDplzP8XV71H8Xq8gef02n/3HzDY/w7b/BW5n X+Cg/gK7Ky+wvPoCzxs/w/Pmz/Bli7Xws6MXBv8Yz1pfMYuZYepitujJH75T 1beEyRMxQjcP5dUqDDeXYB9Yg4fQhca3kZzcRW7mDsqy+2goH2JZ8wgb+sfY Nj3Bbct7UE9+hUbrBT7Yf4G/vvdz/GL3Q7yoLuC5Pogdyx5/Zgf3gw9w4N3H nmcbW4y5G85VrNgWsWipoWksokYDHhJZEByXITQqhn9QQGUbwTCBE7wihOSY Cgoqje6MBi7OJD9nUng4gLgghDRnR24yAvH3RTC/MoPgWwZkL9FCDqTRElWw pmwyCzax42lgO9zAZryOhVgV6xo/1tU+rKo9WFU5aZsF0FydOxqrVzH2rpnl wcSJENUjgTnOMu2FCixXGpzViwjeWqFirCE7sgHDyyWE3lKgfE6MrQsmlMa2 mXM20JhcRWO4iFVBkcTt4q6ONlrXvtzBgY4k6rawq9vAtpZqr13mY2lhScUx UZRQk+VQkSTYSIII9+uoUEpEbklI3ij6vsu8+oqAjkRDS2sgdWZoL1phuuqA 7YYT7h4PfL1eqr8P0aEAEqNBpMfYnMZDyLNBFdu2dCoM2Y8EcLM5pd9RoXrV ieWRGLNiHvv6Iu66Crgb4vV4DivRLJoSZrUZA225ltZWSTWUMv9OY5hWeuRK CkM34pAznKmNezAwl5sdexgdTWBMmIBQlETfaA5jkySQ9EmocGLayJcwrczg v4RYmcW0IotRuhLLKTHsp2bgPDPDzDsD37kZ+M+334OZQegiLfQlKvzl9tqn qaP1TxOsMUQujSJ88XCBcfRcLyKnexA+0QX/W9eOwPsXR/txtP91bvjG5eFi k93OdccIlU+wACeVz0sKI5p7SJseo2D/ADXPxxg59jGKir9Cw/ECSzESV3yB xcYL5FkfV36CT2tf47PG1/ii+XVH7Z63viaJ/H7xa3y+yPtZmksWmK6Twm7G 2p4GpW+ZMy3O9J8nhTXoKX22wQ24hzcQEu4gQX+Qpbcszd0jhfexpH2IdcMj zuzH2LM+xoH9CbasdxGaZycgiT95/AK/ePgTvNg+wItsElu2PezY2Pf9d7Dn u41tzxYpXMGKfQmL1kZn64eaiRF62orghILkS+EbGiOFoxj6/jgEr05C8q4G itNapn8dXH1e+DmzLn97EsI/E0HzHXrONx2IXIxRewooTTbRUCyhZVzCkot/ I7iIRqSFlG8Ba9oo1rURVpgVZPmxqvViVeOG6uJk5xior1khOKbtXBce92Pi eAwzJxn5z8xDd7EOy7UWZ/kKQv3rSAxv4dK3ZLB0P0O0ixoicOCxZwEfKPzY PGdDkSG6OkY9m6hhY6qGe/oD3DfdxV3jAe4Yb2OfM3bXSDtg2GRnW8Wqjo9Z 08SCqoqaIo+KjPpHKQ8PmUjUNEJ9EyRxAp4r1zHC7jR9UsfgbYTighW6y3Ye V9fhPui3fLQHfnr1AGJ0VElBGOlxdquJMIQ/EEL/qhD+15XInHOh2pvAkqj9 TmQNO9Yqdn1VbEcrWI7R68550JK5sCB1MLxb0ZgliRI9aVSz5KiJZ+iDJ1AU DTG8RTEt34OYJEr5vG70xdEznECvIIl+YRIDkylcI4l9E/MYptccZaAbEQQx LMlCQ/IMpyQwn5bAdkYK1xkZPOdk8F2QIXiR3voSdf9Ke6GmDLFrUsQ7C6kk nYVUievTrEneJkTsanvJ/zASlwYQv9CL+NluRE9eR/DYlcM9FX4d4+0hYNMW saYnDveVkY5HIB+LQDHKGqblHWT1s26G/7dDTn/naDuDX4J7BO9LR1sedtgd +nfsemS3ESa7KSpVnuxWPU9x8s0MVIIasvkXCLDuzX+BR4XneL/8HB9Vv8Qn 9S8Z/77CZwtf4Yt2UTGfL/KS9RmrvXGo8pwBxqsRmG+QXeZA08AKxsnuDDOP 4mqd7C7CSmVwURmCwi3Ep3fI7j5K8juoq+4dWpkR7NoeYd/5CL/898D3GItb L/DJe0T3w5/jxcOneLG6iK/cIWzat7Dj38e2bwfr7nWsOBbRsjdRt5VRsxDb GWIrUncE1D1MgXh5DIM/mMDoD0WQcHoqzupx6l9NoP8PRZj5Mx10r/vgOJ+h iNWQEC4jJ1tGQb9Co7GCgneFmK5gUZXEsjqJFU0CK9oEsYhjTRdlRbCmD/Ey yNt8vM8D9cXpQ2yv2jH2zuF7BsJjjDrHEpCcylGgijQeC7DeWIbnFo3FwBZF icMyfht9p+IMHGnsFL7E49Ln+CD3AE+DC3im9mLptBML04zBkgVsSxewT/t6 13wPd8x3sG/exy5t3rZpGxumDawZVrCkb2FBW++cl7Iiz6IyF0d41EonL+Xf pHD0T8Hf1YORVycgPm2A9KwZiot26Ch+5htu2Ht8cPf6aTACNBghxEbDSHJO il+ehOkv5QgcdyJ9naI8Sms8u4BlPduZq4nVYAMLkQZa8hBtc5DlZ/lYHizI XWjO2dGQWlCXGoivlqVAbXYW1RkRStMjyE50v3S0E/ux8yG8eyOBUzcTONef xIWhFC6OssbSONafx+n+LOR/OQvLd25i9rffhuG0lMQerUg5p4DnggL+i0oE Lyvp0FWIXlMh3l4pekOJZJcCqW450kzKabr4TM8sr8+wppGio091PoQwivTV QaQu3ULyfBfiZ67C/+7F3+g8vH+IqakgZsQkdobFSymrffZjzVQEOtHhaYvN pNnCUbOSZBtJtpJkC0m23WL1hGG5HvzdQ3h/92hfnv+vFP8Xnev2/nk4Rg8N cVuKQ5r7SJgeYd7+PiqeD7EQfEpz8gk2k59iL/MMd+fbZzz4DO+VP8eH1S/w cf0LfNr8As8WnuOz1nPK7/P2Zu/P8W18tvScNH+Bp4ufw3A5DNO1thLX6YdX YB7dgPh8AXLSrCXNZhLuHKUnn9hAdGoLGckeCvJ91NR3sKg73Ixn03IfO/YH nesH7oe46314iLX/IcLtT/BTkb/+lE3r46/x4t5dvKilsWbfwLp1BWteKr0w AFf7rTlHCVV7FiGJFWGxHsFJGQdwEL0vj6P/Lyfxxu8KcPn3ZzD0RyaIfxiE +tQ8py496cgyAuIVhFWriJhWEbKtwW5dQ1WeQl2ZQlOVQkudonNIYZkhd0WX xGr79KuGOFYNMV4eYr2qD/A+H9QXJNBcNhza4T/D2NseCN9hx343BcnpPBTn y6SGja57FZ6+TYSGaFIEtyludzij71Gg7sPh+ymaxZ/iQfOn+JhH4FnlAb6I N/Fc68OyjDFAsYwdNSOCeodEH2DfSnNiZZez7HbWe6+Z1rFkWMICKatrKqio KMbKJMLjdoQEyg7VkSHGhZt9GH51ikQbIT1npZV3QHfNTXPlhf2mH+7+ICNF GH1/KoL0z2Uw/8hOWxlHoreMvGiRv5PmxLyEhmcRVRqVpjzOYshURNFSRrCo INUKUq0k1UovFhRu3u9EY87GMrEoxnMqWnYZqtIplCQCZEU9+CXSg6euYuT0 DYwefW6ovbhs7OwoS4jJMyIc/7Yegu8boX9FAfd3+2BqL5k5e7hkxn1RA99l DYJXtQhf0yJ6Q4tElxbJbi1SN7XIdBaaqZHtVSHXq0TulpyXMn4/i8wtMe8X IdszgSxjQ/b6ILJXbiJ18Tpi5y7/+hFoEmZu2Sxz8FG1T5mtkhye7NtIvK1H JzV3UazdR/t7+donNCfefuLtG+Btfbwk3v5uXl4Pw3M58C/+/yFuvZWHo721 6sQa3NI9BJh548aHyNHRlj3voxn4EMvRj7CRfIrdzMe4M/8J7hc+xZPyM7xf fYaP6p/h48Zn+KT5GfMta/GzlyjVn6HUvopPWO1NgHUXwjBeycJ0owZj71IH 8elzBcgYeTU9CxTxZRr/VfiE64gQ8ZRkB3kaqap6n/PvoPNQ1y13sWU/3H/x tvs+I+39zvX26SvvB+/jQfAeWgcv8PQZFfyLX+DF04/xYm8ZX0cDiLA3JicD SE+6kZmyIjmhQ8UWpnLrYB6S4PV/0ofTvy3GlX9lYrwLQfh2HrOXmlD1LcJA hTZLV2BRr8KgX0NyKoHsTBJ5aYqBgOZUkUaNQaqpTlP90lhkLenSWNGnsGIg 5keIrxqi/D7MClK5iPh56aFqX3ZD8ObhkjvhO1FMnWBEO12E/EKVHC3DenOd DG0jNLKHxPgBcqK7KM08QH32IRXvMVaUTxBJ/TU2Fv4GH639Db5Ye46vmvfx 01QdX9Hcb2jItLa9R/QuDmxknLVtu40N6w5WLZtYYrtaMLRQ19VQ1RRR0aQR nnQyhGjIuZyck/Hefky8q8f0aTOk521QXHZCe93Dlu3DmW9NYujfSjD7HQsM 7FHuq0Wq9yKSM3Q2mmXkbcvIulcQZOCpypKdM5U3FAnG7DgWlORcSc5V5FwV 5mWQ5SfjHt7vQkNuR11Bw61k9FWoUZPPoTo3jZJ0DBnxzcP11u9eIN/XMHq6 C4IztyA44ru9nudwFcIMfvDP5bjwp1aIf2CH7VXy/PIg+daSbx18V9jmrxkQ vm5ggDEg3tNeFmdE+pYBmV4Dcn3tteo6lhb5AQ1LxVIg3y/nbVLeP0PmpzDP UJLvHsX8DXJ+rQepK1cROX/+73Ue5H8GxWwYShnZZrUvNdII9NLDPdqs5L19 HjkPefeR9QCna4isRyjlUUp5bDTyEmKE/T9ClLhHe1nEPdbD6uL1S+ywZ9xH 55Y9fIkL/+HfNur/vmH/zzs3mbrmYe8j/kJKbPv8OKo7iBofIEN3XHQ/QT3w HhYjH2A98SG20x9hP/e0cz6jR+WP8aT6CT6ofYKPGp/iafPTl/BJi18+XfwU v0n2P8XHi7yv9QnUZwIwXMx2dvoz3mpvQLgO0dkcZq9UoOpuwjBAHRtegoeP ITS1gcTsFnLync7C8LrududxrlgPsG6/gy3XnaOXiP4lDnx3cSdwl/yzgndw lxVoMoB/xAD+FZ/2lz/Fi/cp9ctp5DjAhTk/inIHS0eGbew1BoYVBXr+xI/e V7MYOlHB6LU6JgcWIJ5YhJjzV9g+6RsbbWA8xh5CzZpO0n6kkJOm+fsyKJP7 mipDfST/2gxaugwW9eTfkMaykfwbKfXGOFZMUX4fxjLZX9L7oWKwa/9TXfJA 8Iatc33s7Tj1PQfJmRLkDNm6GytHjfscEhN3kZ26/6u00lI8wbLqPYb59yFV /QKFygvc2XyBz/de4Kfbz/FXy/fw80wFX2qC2DTcZrjexZ6D3NsPsGHbw6p1 C0uWNSyYllAzNFAxlFDWZxCecnPi6cm+CpExKXx9A5g4YSBD7f0Q7fjL3x/H hf9DhMF/o4P4lUDH/li7F+AZW0aIPTKio/2xrsJN+5PnOBXZI8uy1KENUiQ7 y0CaqgTDfZyck3012VeTe3WI3wd4u4/304apHBxXC8vA0rDkKCtmOOZjSM8c cj988hKZvw7B6W6MnRnorDwaPyP81cqjmdMyyE7L8ePfMaHrz91Q/MgD7+t6 xF8ZhveKEYFrJoRvmBHtNh+t5bMg3WdBpt+C3IC5s9g+31nPZ0BxWM/SsTQs FQpD5H9Qxj4gQYGpptA7gcLNUeR7+pHr6kLy6kX83SPpnRN7oCHw2rn26qH2 19/ofG9o71fW3k2PDcDD+elnAwixAUTYAGJsAAkKfooNIE3BzxzunvcSMp0m kB7izbT1aTaDLBtBhrqfuRZE4oIHv/2Nl9s6qPydf/c69z/u3Ke7koHlZgN2 wSqc4m14lAcI6+8iZb2PvOshqv5HaIWfYDX+HrbS72Mv9wHuFD7E/dJHeFT5 CE9qT/FB/Sk+bD7FRwtP+aSetp7iTwj8U3zMax+1PsKH7T3Bmx9CezZNf1+G 4eYCDMOrME9sQnKpBEVXDbq+JiwjLTjHF9nxVhGTbCAzt4li+3TDup3OI16y cLLaD5vAtnsfO97DDVr3/Qc4COzjINiu29gP3MZeYA/1+y/wEeH/xU9pAD7/ GHka1pI2gorew99pRs2aR0DqgFWkoTGcR//VEm711tA10sTJvhYk7Xco+wKw DoXgEkThFzLCihKIiZM0JSlkCX5enkFRyXirzqKmyaKhy6Kpz6JlIPxGwk/w l0xJVgLLphi/p7gZOMENfijPyCj8lqMmdgNjrwcw9lYCk+/OQ3K2DPnlRWi7 1mDpPTyVb1BwgPjkoekpzj5Cbe5x5/qyug3/e9gwvI8t0/vQeF+gtfIC79EA /Yxj8PODz/GL9QO8mC/gmTKEDSNNvXELGxzLVdsOlqwbaJqXUTM1UTaVWTnm HTfC0zY2AB0i41J4Bwbxx781jB/+jgDnfl+O3m+7MPHjFGTna9C2TRyNkV22 Aod2FSbDGuIijtE0x2gmjfnZNIqyTMcgVeU0SDRJdWagBqupTmJBwyagibGi rDAriKbGh4bawzF1smwsI0tLU6JAWTXDcR9D4gj+kZOXITh1HWOn+zB+ug3+ OC+nfrVWSnJGAflZFTRntXjnD9wY+H4A+jeDiBwzI/PjUQS7rIj02BC/ZUOy s/TQjuygDbmho+WHI1YURy0ojZpRbpfAyNLzey1LzfsUbARzKNE8lgZoSPqF KPYNsxH00vBfRfjy6aPtzf4O1LM+6ObC0MvbDcDAr/8pjGwDJpaNTcDFJuBj EwiyCUTYBOJsAkk2gTSbQJZNYL69ISGrQEdQELZ/R4Et4e+iMHa4UWGeAlVg XyiyIxT7wij0BJC74vmtb35A/h/DeL29F/wKs8QWXHO3EdDuI26+g5zjHsre 9gZeD7Ece4T15GNsZ5/g9vx7pP593C+/j4fVD0j9B3iv8QHeJ9UfLHxIwj9s n+Ch9QHl/oMF3rfwPp4034f6ZJJ2vwx9VxP6wWUYx9cxdaGAuesVaEiaabgJ m6AF7+Qyn+0qkoyi88oNUno44xcsnJ22w/cCNly/3JfbhV3/Xofw2wFKGWs3 sIOdwDa2/FtwL7zAHtP9Vv0x8qSwZI6javWjZrGibGSsU9rQdTmF81fy6P7u GLqY5Efe1UJ4Ro8pEq8j8WYS7yDxXhIfJPFREp+QpJGW0T6Q+AKlvkTiq1pS T+LrJL7Jv9Wi1LdMtP0kfpHEt4yUNRLfMobQNPo72wapzpmhuuCF8mIUgjbx bycgPDEP8bkK5q4sQdu9BnPfdueZBsYOEDsiviB9QMt7+CLlkuYxVvVPsG58 wnj+BDuWJ51TBLgzL7C5+wKfPmLXe8Ku9+BTvNjcJflpvC8JYdW0ycyYhH8s irAghIjAB7/AgbI1x/hD4sV2RKb1cA1K8c4/m8T5PzBSLsMYfLOIyYsLmGUE UkwsQUV5lyvbdihGO5RgREgiNpVCUpymJSLxUo5Rm3iOVUWRQbW9KE1F6tWk XkPZJ/FNLaM9iW+yIze0IZYfdS07s9bJ7mxjmVhalLVylDS01coxREn84PFz GCXxY6dukvIhCE+PsUSsGYhIe3sBl/S0mt1VC91ZA0znjTj1rTDGXyNhJyij p6wovC2gcXYg0efsrJDMDrmQG3Yi/8tVkmPtjzrYWbbDTx+NW1gmlgGVMR1v 17ADKNkNZCgPz6A8NIXy4BjpH0S+rxvJ7rNHW3P8I2hnvTDMhWAi6yZFpHNp ZllZ9vY2LqTeT+pDpD5K6hMzUaTFMeSmY5ifjqNAq1majKPMy5dQEcVfQlUU w3/Mr9HOTo5lVoWtoMpGUB0NozYcRKXPh+INF/75N7nnYyF75t7lzgkCHLO7 8KpuI2LcR5pWsOC5i2qAsTlyHyuJB9hIP8RO7hFu5x/jTvEx7pWf4EH1CR7V 3sPjxnt8LE+a771EYX+Cf8CrT/C4+RgPG49xv/GIPr/ATNiAtn8JOsEaJs5m 6fELUPawGQzWYJ9owSVsITC9hBgnU1qx9quN+GvmTTRt9KSOraPb3NjwbmPT t43tdvnbtUXYN7Hp38C6fx1+SQ5RVQFpQwE5Sw4FewJlRwAVhx3zZiWCBg2u /dse3PjjIXT9hQD9byox+K6GnlGPuR4v1ITeSOhthN5F6P2EPiROIUbpSnIi ZzqftcihqM6hrMmhQuhrhL5O6BuU+Wa7CP0CoW9S5psmTmpCXzf5ITsxy8lo hvKcD8rzhP61IARvtaHPY+psBTJCr+5eh+kIev/YPqKiO53reel9VOSHL2W2 tA+xon+INeMjbJgfdc4HsmN/RC/Pg+R8hHiDeYdy/+WHzDtP/wYvnjzFi+0N wh/FriiIOHNLShhGRuTn5OKknzLDOeFmQ3DAzwke4KTu+U4CfW9XMMzMIehd gHC8hXHxMvS9IZgHw7APx+AWcHyEHB9RCtFpjg8lPj2boR3KID+X7WxbV2pb IkJfVRN8DcHXEHwtPb+2fXKDGCtC2ENsnn5U9V6WC2UDYTOYmD10KOnlyGvE SCsFh/7+3fMYO3kd46f6ITw1StgnOys2hWyoolMKSE6pMHdKCxWB1583wXzR AvsVG87/WQIz7yThPZdA/oId1XcFSA66aZo99NAeyqUHBYEbxXE3yqyK0IXK BBvQBDPHBH9+0spLM7838j6CL1SzAShRFcjI2gwqoxMoj4wyA/Qi03f5145U XitxUtGD5Ly9XsaiaNt8G3lvb3HpJvN+WQxhaRzx2QSSEsbImRRZp0uaYs+c Zs+c5vRi1cXZl9CYyeLX0ZQwVXKkm/zRRqcSvJujOcUWOknTJKTEjAbQGPSi 3O34Z9/cN+ofQndtgWK7Cev0LhzyPfh1e4hZbiPj2kfRd4B6+A5asbtYSd7D RuY+tnMPsFd4gIPSQ9ytPMS96iPcrz1qn12l/aXxkCbiAb/erz/A3cZ9HDTv Ye5YBspLNahvtqAeXoZuYhlTF3OQdRWgI/OWsQZsY3V4phYQkiwiLl9GRr2C PHNiybiGqmX96B1FF1a95Lpdvnats9aw6lvFin8FHmkWQW0eUXMBKfs8si4e W3cQOacdMbMCIbUCl/91F3kfwLX/ZwR9b8jRf0yNwZNazHZ7oOzz8/FwPo9G 4RiPw0PWA7SqEbIeJ+spilZW2eY9iwIFvkTWK2S9auBBMTLf09I3mOXrZL1O 1utkvWZmzzX7ITk2TpE3QnHGA8X5CEZfa1v6JIS09FPn6pCSdRUF3ti32Xmm vvE9RESHMWZeepe59lDsF7T3saRnIzY9wLrlATZtD7Blf4AdxwPsOnlsXPdx 230PxfUXePjBC3z9jMx/+jO8eO99vNhZZt7neHBi5SkuJYWPv9dKw1JAeJai L/XSXhowcL6Evp4quocbOD/cwuw1PuYeP+08xWqg/X5RjLEnDp8wSRPE8eEE jc9wfGazyMiyyJH1PFlvx58SOa+wqmS9pk2xOD66BC/jZJzjow+RcT/55uw0 Onm8bSwjSgYtCmQ9pxUjoRztzNbR4xcwdqIbwpMU91PjrKnO4lHhKfnh4rbT WsjPGKA5Z4LhghWWK3Y4rjng6XLhyg8yUJzOInyVj+eaE40zY8iM+JAT+JEf oyYK2wtJvWScNUmzIXKjJnKhPsWYMWXndUYNEXkXGcm+HlXyXhPKUWMEqo5P oTo2jpJgkNHgOn4Ju3nOTzGndijadrz99b+FVdGGPQrPHHvlXBJhWQpx6eHY ZalV+Zl5FMV5VMQFVCVFNGaLaM6WsCAtoSUrYpG1NNeuAivPmuftObT4O1qc p4ukf2k6iiX29UU+r9Zwe+GC5Z9+c3PRfwT9TYax8R1YZvfgUu0hYNxD3L6H rPs2SgzMtcg+FuIHpP4O1jN3sTl/FzuFe9gr3cN++R4OKvdwp3qfdY/P7E7t HvvJnfpd7Dfu4nbzDnabB9hc2IfsdAny6wtQUO2VgkVoJmkVrxeg6qPaj1Rh nahT8evwipsISRcQVy4irVnCvH4ZRdPhKfBqttVDlXOtYpG15F7FsmcFS+3y LmPRt4SFwCIckgScuhz81nmEnTnEPQkk3AGEHVY4DAb4VHKOvBiXvtWHm9+X 4OZrc7j5tgpCzpLpLjfmbvmhGQzCwKBkpSI6aa1800l2JKoZA32C9Kc4ozO0 9/MM9Hlths+9pM9ghAqV5gxOoUr6K6Y4K4qyOcyIEUTR4kPe6sLcCQPkp1wM nCHILyQheDOBseM5iM7W6YBaUHSvQt93eJYwD49NSLTXuZ6V7qOgOHx3o669 iwXDXSyZ72LVcg/rtnvYtN/DlvMedpx3setqnzSZ4+8+wI57H/X9F3jCyPOz L9kFPv8aLz54iLwyxxjFx6mnIzS4sRBcQYThOqxywyPT4/yNMikzYvysFaJL TkhIv5z0a0i/of0u8UgMjjF2xwnGBVEaIdIfJf0JzuA06c/Kc8iR/jzHqkil L2kydEYcH9Jf0SVp4xMkPsa/T3dqCJH6AEomL483LbaJodpkYmkwb5hDWjuN kHz4iP4rGD/RS/pHMXFykjXDkmHypBKidgenY5OfNUFz3grjJRusV51w0ul6 ejzw3/Ki6/U89JcKSPbk0Oxxo3VegPmxAMMy/35niWug85mW6hQj4bQP9Wkv GtNuXrILiB28pOLTGdWmDOwCWtQmVaw51gxdwCQdwAiDdg8ivSdeOmoAFpmH 6h6AXRHmVHEQ/f+O12OwyxNwy5PwzaXZALI0uvNsAAU2gBLykjJKkgoqs1XU Je0zM9YIeB2Lc3Usy+tYUdQ7K39X26WqsaqsCm8rYVlZxLIij+W5HFalKaxJ YliZDmJ1woNFAVNLn+5/+eY22/8zdAObMHKiWdonPvnVSaDYCLx7KDJHV9v7 U8RvYym1j9XMPtZzB9jKH2C7wAlWPMBuiVVmVVhV3lbfx3ZjH5vN21hr7mGZ NfnjFCQXapB2tyAdbMGp4G2XcpD2sBEMlmEYq8AkKMMuqsIjqSM010RMtYCk dgFZQwt50+IvX82v2ZdQdy6i0S43y9NCw7uAmn+BEaXB3lVHPliDyZyBw5GG y0mOHV64bS641So4lDIYZVO4+keM99+ZQferMgyfMWH0kh0T112Q3PRCPhCA djgME6OwbSION3uAj74qyB4Q4QFLcG6nVId9IMceMK9jpNWnWSkUDUkUjQlW nPM5ioI5hLwlgJzVi4zVidljOvYBJx1pALLzcYy+HqN6lTB5poqZywudMwX+ Mu24xrYQmNxGTLx7dNuvoaTaJz/7aBgO0DIdHL7w/3vYcPCouHhU2kXst9nG t9172HDt8lfMY4mp/8PnL5BRcX7pC2xLNC1WGhSrDzWLCQF9EAGxCqYRIduS CgK2qvEzVgiJ/xTxl3b7oewNcrZwWIi/TZBgGOKwUPyDTPYR4h+jACU5l9sf Ps9wiHIcojyHqED8i6ySNo0y8S/rGcCIf9lAA8IgVGAQKpi9yJuZss1WlgE5 k5qBTYa4durojajvQnDsGsbfpcl/dwwTJ6ZYsyw5RCfUmDqhx+wpExTnLNBe tMN4xQnrdTecNHWemz4EaOzCPKz9x8uw3qhgvp/i2e/B0iUhCpMhlEQhVKba n7gJoioOoMaqz/hppdkCZjwstoAZtoAZtgAxW8B0e42thqVgSdkSptg6xthK epEYOtd5xGaJnSneR1Md5IwPs6KsOL9PsjLwktGgrICYrISktIIsec9z9pck DVSkTdRlC1iQtdCSL2JJsYgV1SJW1UusRaxpFrGubVcLG6RkQ9vk9QZvZ0/Q tPtBGWvsA+tzGazPRrHO57MqcmJJaP5b/M9dWIBmaAf6qT2YaP+d7XN9sQfE 2uf68uwhzx5QDu+hHt/DQnIPS+k9rGT3sDa/h/V8+0zre4dnOK6wqu3Tdu5h tcGfY7VYdValvgfhOwVMXW5gsrsBi3QPDvUeRFfzkPYWoRwpQS8swzhehm26 vQVHFYG5GgWpzhnQQErfOJz/30bB2kTR1kTJwXKRdw/LW0fBV8O8n+3DVoDL WoCBrshnLCFkYw/QWnDluApWpQL6OQlmRaOo1TZx5U9EuEYfMHjSiOELNgjo CkWcMFJOFiUTv07QXiXFZi2KwyXmZJ/lZJdxssvpdpWc7NS2FHUtw4md1aWR 06WQ4+SeN8QxT/Zz1P+sJUjufUhZ3UhYHZj4sYI9wA7pcT+kZ6MYe7Od9gtM rxVMX2xCdmMR6lvLMA6uwiHYgG9yE2HxFhLSbWTkO8irdlHW7lG3b6Nhuo2W 5eidTzvbreM21p232y+HvtQhv4df20sRtxEQ5eGfKSGmrCCt5/y3lFBiQKq6 aMZdDNp2M3IOO1udHMOvzGL0DRXlVo/RMxaMkadJ9oCZLh/m2APU7AGG4Sgs DAAO9gC3iENDCxBkD4jQAsTYA5Ly9sbc7AO0ALmOXcowtLNF0gIU2AOKHKaC IYaCMcLuHsQ8A1LOwuBtcbBVWpBlD0ib1UgYpAiqJzpzdeCN4xC8cwPjxwfZ A4SYeFfMkrEo/ye0mOZhlLZfTOGh1F52wnjNBVuXF84eH7y9AQT6aQV5WGMj YQhoudy9dQb0EtaHvVi9Osl0TTsiDqM6Q1s0E6L2Bmm+GZtn2Qdm2Qdm2Qdm nbzdzj5g4c8Yeanj9yo0JLQBM2L2DiGKogEkBRc7j9kuc8HBHuCUt09iQSmi 7js5fVy0SG4aeP9cGRFZlYe3jgyZn6cFLkoXyT9lbm4ZC4oVLCppd1VrWNGs YU3LwKtbx4Z+DZusLQPLuPoSv6zg72PTsIQNA9uCfoE/1sC6poINVQEbijQ2 ZFFs8GmstXe9mNAR/W+cVOYyJJcWoBrZg2Z6D8b2CanYB3zsAxF6gSSVJOvf QyHEXhDl5EvsoZFiP8iQ8dweFtkHloq8LLPYAxbYAxqsGrkvsXK8nqnsIFFY g/LaCsV1Bwb2G+Mc/w49h+hGHpK+IhSjJWgnGAyEJViny3DOVtglKwgoqzSo VcR01c5kT5lqSFuryNiryDqr8DPu+6xF+Ai/l+VmOVk62Tzc+jw8xhhyF89R ZGn2aRaHj81h6oILg6dsCKdL6P2hCv3HDBik4R267MD4DTemb/kgpWKoOFt0 4xGYJtkIptkIGK98s0n2JwYDBYOBkvGtvTmEJoUUTXWK0TatjyNtjCJtCiNF A5C0BhCnAYgxBIStNoSsZky/aYXkbS9mTnFmTGxyVs9j8lwVk/RJs9eaUN5s UW2XYB1dgXtiDYHpdUQlm0jObSGr2qaqbjN67DBw7KBhPnwXdNG2+xKWHTv4 Haw6d1jbWHVtsTax4t7o7A7jpdiEtRUkTBUOXxl5dx5lL7OAN4B5hwlpu41P U945+9LwawqMvKPDCIV1lFAJr7owRaCktwJQDISgHYrCKIgxKyXgYBNwswn4 Z9gIZtkIZDQEc1l6pXZmytB4sNTskWwCOQ7TvO6oT3KYchymLHNShjkpzSFK W+0sM1IWPR+nCiG95HB/3n9D/rsxfmwYwuO0/8clLDn5p/6f1EN82sSWaiX/ dmivuGC8Tu/dTfYY67z99DeDIYR5NGNs6wlau6krCwgOL6BB5dkeYw+4Rg2f iTJ0R1HrnAQsTO8dYgXRlLEHSNkDpIwDUifvt6HeXuHfXiosVXdOuFuTSlCd nUBJPIiU8AqsEgscMnqQOX/n1T2nPM7Kkv082S9xZlcpJw36pgV6/0XkZpdR kK6gIlsj++toKjbQUm1iWcNDqN3Gmm6bcG8TdZZpG9vmbex0ausl7Fg2yf+2 eR1bZrYG0yo2jEvsA01sEJoNDXuAkj2ANmRD7sLarPGX/P/fR9tgyUd3oST7 WjJp0Ryd+Mi+hyjZT5L9DNmfJ/tFsl+mB6jQA1TpAarU/wr1v0z2i/QAefKf 5WWSFSvtIji/duTgpjqnSFaP8m9MH3qN9jYRwhsFzPSXMDdShlpYgabtA6bo 0piAnDJ6AUUFfjVHik8jZKoibKnCbSDjJpalCLc5D5dlHk6WjWU1z0M5k4VF le6cbkF5QU1XqIT05BwMVAQNlWGOs8RxM4KTvzeCW6/r0HfCjIHzdgxxgo93 ezFNAyAdCkIpIPvCKEyiKKxiHj1JAh5povOyTUCRpD9JIMKKahLsTXHEDVHE qGgxUwhRcwARTuiQ1YMAjb/fYoPHzFD9Qz1Er7thH1hkiN7onKheeLoE4Zky xJdrkNEfqftaMA4vwT6+DM/UCpV1jaq6jhRnRFa9gbxuEyXDJqqmw/dCm9Yt LNi20LJvYtGxiSXHBpac61hyraHlXsWCdxmuuTx8esJvLSHuKiLjnce8L4Gc l9C524/T1DlKfd+ZxuCrdAFvaTB80oSRc1aMcswmbnggvumHrC8E1RDHZZTj QvBtE1S0qRQ8BN8vSR+FJMJPh9s2SQkehxTBT7E/Zgh+hr0xY2j3xggVPkTI /TRGHpaLZWOfNCFm1iFkVMCpmjo6FdL3MPb2TYy/MwrhMREmjtH5H1ewtFR+ I8SnLJCes0HJtKK96oaRTcrWE4CTbsVLtxIYipB8HpuxGBLj7M2Tcch6lhAT LmFxuoq99ubp16je0hgpJv3tU0PJSP8c6Z+jA6CC15nk61TzuozqP2dlGdGQ U/3lCtTmZvl/6SBmh5GavAYHu4OTP+/k/3XOUfU5Hk6qvYta5mWS99PZh6nw ydkVuv415Gc3UJZtoibfJvU7aKl3sUQ2VnU0dTR6G8Z9Yt1ecr2PHes+dll7 NhZN3x4Z3bPvYte2g20bO4N1E5uWNWyYaQVMTAY6WgBNnpXEhjrINmDFkkT5 Tw7p/9dH7/rPjO5ANrMHOZO5nspvo/K7qfwBJoAwE0CcCSAZ20OaCSBD+rOk P0P6M6Q/ReWPsyKsIL/3ze/Allw+ehH0BGa7VqAQ7ELNma476i4CUi/qK0FC 6uWkXj5egkZUgZ7UmzlKNvpUh7YKszoPi64Aq6EIm6kIqzHPmofZNA8jS8/r On0O0xMxZE4GsTnshOGCCu4eF1xd9F609MmRCOKDnAG9EYR6Ijj7v0/h5psG 9FL9ey86MUSdGOfMnqY/lA6HoByL0IVQ2qZisIip+pIYXNI4e3YcXkUMflUM AU2MHSmKIDNs0MgZRg/rp4f1Msd6LOz5ZjscZgsftx56jRymK3Q0t1qd81zb RTsQHM9h4jxj/8UyJNerUNyqU06bMAtacEwuwiteJkkrpGiVMWMVGXq/ed0a isb1DvEVHuGadQ0NG8u+hqZjFU3nCpruZdS9S6j5Wqj4F2DV5RiH6P1d84h4 KMueKJLeKMION4qZ9FFn/h/Q/z0pBn+sxuBxA4ZOWzB00YExdstJ6qeE3nmO 2qkmQXoSZBLGYROR+ukkqU/RDaURYCwKtV/LotGMUWgOHVESCcp8kj4/QZlP sCvG2RVjjEMxxqEou2LUakXEakTQpIFbJ/21I9gFb97C+NuE/W3G/HekBF7J 0lHqTZg+Y4X0vAOKyy5or3th7PZzaBmx2Zg8PMz+kfYChhhiBD3B5pTmQ81O JaAaWEV6ehVr0hoOxF5U2/sgzrUrRogJvJzA06bX5Yz+cgIv9xBISr3ChprS hLqSsCtV/F6KilxEqR5BbPIKTar9EHY2DCeHoA26k5beJWsS9kUEeBij0jWk pBvISbdQlO3w/zMYK29jQXOAJe0BVvR3sGa8S2jvYctyj5DfI9D3CfY97Dnu 4Xa7nHex36k7vH6AXaa9bcdu51NnG5wGG5Y28NR7Y5k2IceKEX4P/b/2CPY/ PDqn1NTUDmYI+hxB15kPPwRsJ+hugu4l6H6CHqTMB2nxA7T4fsLuZblYtswu DLGNo1WL/xWkBFsu3oOSz8hAsG1Gwt1fxORoGTMTFcyJK5DRyiulFajlLEUe WnUBWi3tua59mYdGNw+1fh4qloLX5zRZTMz4MPR7WpROBbE37HgJwVsuzlNf twNlYQQlOvICfdz8cKSzyjFJNZf+n704/6dK9Jy24xYnx+ANL8ZoVUW0qhL6 Pjk9n4pc60QxGMm1ZTYGmywGRzuXkWmXJgq3lqUPw2UIwWUKwGHys+94YDE5 2XNsMOgNUKgUh9j8jzBdb8AysHZ4VnLxLkZP0cRfLkFE3Ge7K1D016EbacDc 3i5gagFeSYuWbxFRxRIRWUZau4ysfvlwEY9pGSXzMsrWZVRsS6g4GANdLM8C HXoTJX+DIl1GwFaCU1mmUNaQddFGWto7zNFeGoMQ9YaOkP7v0f0nQvS9okD/ WzoMnDRj8LwNw1ecGKOQi9juJLTEcgq5msOoGyfWFEUrOXGIk3BJUvBKUxSq 9hlSGHTan+dRJ5gc4ohSwKMU8Ahde4QCHqaAhxhuQkQ6aHWwLAyOBjgNyqOF Lt/C6Bs3MfamAMK3psk0I/vbqkOeaTCmztowyzYsv+KB5oYPRgq3hc/DMRCB hwnDPxpDaIx/U5hAYjKJNM1GVpzC5NsZpo915KXr2FTWcJf2vEqLXePhrCui LFp4BXlWBFl+cutBVelCVUWe1WaWnqXm93MoK6eQnxvG4GunD3mW0rKzPzgZ INsm1EmWnRRsr3SV6WYDsdltWvZdxvXbKM0d8PfeQVN9F4va+1g2PMCq8QFZ fohN6yOK8iPs2h9jz8lyPca+69FLOHA/wm/gwPOQ9QC3PUTdfQc77varuLvY cLRXYLb3Flpk1Yl2kUX7TpXZ0FuOcP6jzsXfh1C5BzGxk1n3oHLRXXup4UTZ QMduiPA6XbuGpQzvHp3G+g8godbPsgUotbyfTt9KFzEiKGFssgwRkRXzSYtn mcrZzGYVBUhVBcgYIiSqecywpllTyhzG6YYt17WwXtVg7F+yQZ4L4a7AgXCf s3PS5JaYNR1Bc7q923kEtfaipDa7oxHk2Kwz5PbCn6vQdcaO7ktu9HECjJDZ CTIrJrNSarF88v/l6j2AI8uuK8ETrZ2NWEk7mo2NCWk0o50daWQoTcxoJM2E pNCOWWolBUcSRYqkaJvdbLLZvrrLAigPFEzBI+GBdEjvvU+kQ3p4IAEkEgnv Paqqq6s5bJG952dmNZtUxK2fhRZRP98999xz3n//PRe1gxviTjekVGhyJlgx 4IJyyCVsY0V9YIdSasOIzAKZzASJjI1BSjUolqNZJPrkME3x22MYuTkNRf0i VOzBqu4CGt9iwV6Loe16DKJbcfTfT0LSkIKiOUMbnIWxK8veRrXWPw730ERl Gv6PSk8lQiMTCCvHEVEztFlE9Fkq/gQVdhx2zRgjBpsmCs1ADG66liCL1UdH YFZxzPj9FeQuOcdAdocFWONA9d924vY3hnDnu3LceUONu1SztdeMaKQjaWUP 7rpvo0tyYJBjIrgSeasHynYq8NK+314YmAtTnxfmAQ8dE0NMnSJ1wSoT9Imd +sQKM4vVrDTBRLVtVGronhTQyMTlJaj/CfXfYp1+uwFNL7FOX+phrQ7RaktZ pwq0sE4739Wj76oRQ1Uc6ps21qkDGn4FQ50b5gZh4yuaoWYfPK3+0hJfYfFK iFzS/naGkmEBiYEFLA+nscnemuz3sq+yXpnK1AChMWBnWFmPJiSGWafDGqTE SoYMSfEQf9aDMRqCcN8DcpScZkzHr82e201x3U1O7E4zJvmzOZhEC7B35eHp Wqm8G/FrrPUtZMXl1z1nRvYwp9xnfe5jSXOAvPaAtXmIFcMhisZDrJoOsWY6 wJr5AMpXBzH62jBm3rVjqboRedM6Fg1FLAiFqmOhUnrltBMM+mxNmL2YfZcS cHa4G79TrtTvVCq1taeAdjbJHlbrkJqVx2q99TCG+60RPOiMokEURWMPr6y6 F9DQF8XP4wE/V7MCZKwyxbVhKK4Mwn7XiLY/k2PykgPbzVrM9bh+DnO9Tn7L WVqXmW4npiqnl6eFSc1mNkwCLnLXgUt/14OrzOS1K3rU0Cbdu2NFPYHVTKvb /tCBrlYnejpc6Be5MNDDhkllNDTgwPAQBaCwh6nYwsIyok+sQ/ewGh39ksoC 5v8Pw+9lCOb5T861V1Hs119igd1ggVHwd90eQ39tAuLGJOQtKag7UtCL0jD1 ZminM7TTGbjEGXgkGQrGDHyKNPzqNAX2GGwKISKw0eJbVQx1GBZ1CKr+GByK JHzaKFwjVIPDtNssEEvltUcT0alngelJNG/8WStu0u7felWB229pcOc9PcU/ RQK7YesdG7pq7aUCG6BQENNQSCkURgSh0EXBSwOgESZwBigUhtwVocBgcRlY XDqKBZ3CTNFvZOgoGpRQyCSVowq/jLpvVqPhWw1ofFGorN5KZclKldX6tgYd rKzeqyYMVlkhZWUp7giV5YL+AU0Hq8r2kB24xf/JUtoA7faoSFhOG6CBmIGh a6l0qkxRlsbOoIEdiZVFUZMcdDIcSA5ZWUFmJMQGJCRaJKVKBitLMoS4uAfR 4TYEWVm6UmWZWEX8riJ2P1GSMcEQ3vxaoIJZZmUV4RGtI9izWTYjQ7vIiPcw IT0o/X1WeYR59TGV6THyuhMs60/Y4k5RNJ1i1cywnEJDVgl/X4fZ61Gst+Vw MLKNtW4FPk5GsWhex4KpiJwxj5whx5hmZBhsg3o/K83CVjj8vLq+V1nSUte3 iEZZAVfpJ2+0JVHdmcRNUQo1jKouCiZ6t9Hnh0f3+ujw/ZigYJ/qC2CWIfrv Wsxe82GP0vMFLNHB/Br/9GFp2ItFpnxh0EX37CwdoV46Ml04wUPYQIx6NE7o jFJvXnpTjveuaHCl2oCaOybcrbOgrsGKxmY7mtvs7K3sayJGjw2dvVbKcPrO ARN7qQEt/Ro09spRPvr1sxi+OgnpvUXImguQs18r+sqz5c1VMXTQO3cyeuvG MNQYh7SFvpl9WyNK0Hgk6VOTP5k1kydhpNQ2yaIwysIw0jebFLyylIwsJYMq BAP7lFx4HiFPwMnS0g+paJ6oq9mrfRSIJQ/NcnIJPvpO2Ud3/OlNvP25PtR8 X4mat3W4fdmIe+zf9TfZv4WTuyguRSzDvibSSAv7N3u4lF5azh6uYA9XspSU HFcVS0ld2uiVfZwiVkHNraDmVlBzy2UqiCWyit34Mu5/9Rrqv/kAjd9qQ9OL PWxULKNXZGh6XYkWllE7S7r7mhkD1VaIb9ohFzY0uE99L5RRgxfWShm52gLw soz8XUEERcHSuQMRYqH7zgKpaBkTI3msK1PYHdYhwTJKMPeJYQdLxYq4xIwx qRFxGb0I7y8ukzGG+LMeRMRt8PbV0RsroeukKWXz03XFGBnGFGMe+s48TJ1F 2FlC3u4tYrL8rk5y+AAZ6REm5ceYVp6U32zQnGFRd05leIGC8QIrpgv0vqSE /hUlIq95MHt7CqvdG9jXnOLMd4bz1CnmlTYsW3exaN1EzkJTaV5hsFGZqSgt bFSWBHKmUZaXg79/5HkZvVrxDVIRrU6PGco+W+k8dCPLxsZe7Xl+9HTfKHV2 CNm+MCb7IpgZiGCe8nCBrq7vLyxYuBnGYa8DK7III4yiXIhRfg6iIPVjWeor nce+wNTPsZymhFJipxJWqiYfWBGq0lc8zC/gzWsqXLqlw9V7BlQ/MOJWE0uq hV2rzYT7HUbc79TjXqcOdzpVFWn73zFwfRri2jwkLBupiGVDmauhzG2qiqJN mHKqizPGCMs4hih3pSybEZaNiu5UM0itL+aVUlfLklHTjarpSjX8DhqWjKY0 yRyCWs3/pqJzZcPWimOUo1Ys3q5FuLnyCo7wKg67UFiQuSydIMvGTyj6WDre Kidtai9e/ZIKVe/oUE09dbvKjDpKvCbK3lZ2oE7+b7tpVXvb2IUpewdZMsO9 tK70NdJBYZ9kByRiOySUvWKpBcOUvcNSPQYlKvQMSvDzlXmUB1+vQ8M3Wlku 3ew8g2j6rhSN7DgPWSptlw3oumZCH0tl+JYdMt6fstYNTb0HhkYfzM1+2FoD pbWd7o4gvCyVALXWKEsl1Bssvd7WW1+Ak2M7o85jU5PCnkSDMdroMbGD5WDD mMyMmMyAMbkWY+yIYyMyxOSDiMh6MMpSkd15i76YfquDOq5jlCUTZ4wzZqHv WICBKsLcsQZH1ya8PTsY7d8vl4rkBFn5KSYV55hRXZRLRfcYS4YnWDY9Qee3 NDC+ZETkzTima5exMnCMHeP7OAo+wXH2CfbnHmPdcYyi4xDLwrmith0s2Fgu 1lXkbNR1dnYdO7uOnebLFmHJUNMZND/VcH4DUqJO0W2gzjFTGzigZ5UIB6e7 hQff/WFEKeCSfWPI9scxRWQJC7VywmE2khSWZSkM/40L+XsJnNBZr9MgrKsS jDg2VGO8xrCmLB/eXhxh5cj8WJR4Mc+qmaGznabynWi1IVVngveaEr9auqf/ gt4bMxisWyayaQS7aACJfhWbhp6N8eFd6jAiv4vI72pi82iLE11xDPfES49K ZQNRjLCKR4h8BZuFjMiXs4Ll8hBGlPy5Kgq9IQWdLoWetlHYv+PE4j0LCvcb kKC5S9LcpVrL12Rz+c0TwezFhIkaVkGYVRC67UT/X93F218axLV3tbh2jY2y pqxDH9Ta0NRgRwt1aHuro7SDTTd1bA/1bA/Ht486tG+QGo06tJdapoc6tJsE 3Tmo+MUK4O//w/3StkENXxcR9INofKUM+CYCvoW9oYOA7yHgBwl4KQE/QuOi rqd/IuCNBPynlzN6ukbh6xaWNLJHEPCh/iDCAwH0txQpT1cwp8tjW5/EPqVU VOpAVGZDRG5GdMTA0CJKbxVVSBEZGUSIgPcOt0Ld2ANdK41LG3tSO+VVO4ez g6alnX2hfQmGtiIBvwGHaBve3j2EBg/LS2ClZ8iOnGNS+YjF9rj0swXD+xB9 XQfjix6E3p3GROM28uInWLd8iN0wY/wZijPPsOl8hE3XOdZdlGDOYyw7D0sH 6S7Yt5FzsD842R+c7A8uGhnXOD9TZtm9BL3+ZwCvEGmg7jFC02uHtk+YDR+F s3TM9BjpIIFEn7ArYhpTA1nan3EsiCeQl06gQKe8qqSa+fsgig1ZnMlGsa2b YIwzshzFDK/p0rHsm9o41tQxrJJeC4pRLBH4ObGXrcKF2W4bJoU9fut0+Fel e/q/KNiX0d9awACpfniggBHSkWakAAP9lUVXIJjG0NEeh0gUR29XGP09EQz0 RzHEljVEmh+WRiEm2CUj/MxQEdxKhoJ0JlXEUPP7A3C85EDhrhVrdQ8x3lGa 1Xih1LN+tTTBIfxImOBIV2pAwHy8XnjR0oEItfx3/roZ776rwnvX2cluGlF9 14Q7FIb3G4n5ZhsaKQwfUhg2i2xo6baipdeClj4zmvuNDB1FofKXSt/271H3 Dw9R/9UuaqB+NHxHjIbXRtBIO9dEbLcR2yIa835ie5jYlpHMlSRzLbFtILbN xLaN2HYQ2y6Suae0Xo+kTiIXGvsoIzToxyDlfVBF+W3KY9cYx55MWI9nRZj2 KqTQI6wQXpxS8LMUo8S2X9YN+2ATNA190LUYiG/hiWCUQc3TRs1Dea9vX6bm WYWFRO7o3oWv/wChoeMytuXnyCoelT7f+nvqt38wlD4HrhWQaTnBvOx/omD/ IdaiP8TK+A+RzfwQG+6n2HC9j033Y8YjrLnPUXSfYtl1hCXnARacO8QyCd1N QvfQRnjmGdQ+njh/TkTZjM91z3crc7nyjhGoqX20PeWHdgbqHGtfDO6+JCVa BrH+LNIDE5gYnMKMmL1BOoO8fBYrilmsquewoZmD4msxrLfM4ILsvWecxZ5p hjHNmMKuqXy2+o4xiy1DGusEe1E7hmUCfXGEckxKdqdbm+22YJLDGKtVVkD+ f6CjNgdRWwE9PQUyIJldSqArClBrCtAZCjCaC+gliw8MJDDIDjMkTUEsZyhS kFDGSlQpYU8BdYpFLObnQTrmuMiLZLcPt/9wGM5XfFit9WDjoQgzPT7MlsKL mV4hPPyZG9PdrtKswnPbkyHTp4V3Cx/YMXbHgsB7utLdvvaeDG9VqfHOHaL9 vh436o2oaaJ2a2a0Ueu063GrQ4ebHWqUdxr8Q9z/UiPqvtKJB9/sQ/3LYtS/ Kke9AOt3dWi5Kiw9s6Dnlq2006Ck1oWRetoGumIdYW1s9X+y/MxBWLsIa+Fd HZ+wWp+QDjCChPUordxQ3ypCulUsWghtcwy7cgkCChNGlTqMqtQMBYJKCfyE tUvaVV7CVd8L3UM64hYfg1K+VdjpjG64dZGxAkP7OmG9DUfPPrwDhz95V3Hk EW583gDRF52VOahfoV75iPT6j1iM/iNmMj/CmvNDrLmeYd39jJD+ABuep9j0 vM/rY6x5LlD0nGHZfYwl9yEWPHvIeQlp3xpyfmoUPyHtn+TfqSo8Af5e088g WkV9ou0Wnky5oGcDM1GLlE9uHke4bwrx/hlkB+cwPTyPeWkOSyMLWFEtYlWz hA3dElG6BM2309jsXMBjovXAuohD6wIObULkSuef71uJcus0ti2T2DCNY43I XuH/75ImhgWFgGoPUW3DrEg4y0hNwhbu7Z+ipXkR7d0FdBDNPUTzoLIAibaA xvYYWrsTaGfVdVIvdQ2nIKJe6qZeEslTL/CPNP4FOqXp0r4BCfbntCiE8e4Q 7v2RFK5XQlhvYHdpH6ZXD9Ozh5EbDPE6SsMR5DWA+QE/5ijVZtnBpjg0k6Ly PPU4DUiWlJwkPfsvKyq3+psEZzvqhGXi3x7Cg+/J8OBNJR5c0qLpqgFtFO5d pPi+Ow4M3acwf+DGCIGpfiiAheBsIzjpM630mA4C09VDMV1aQh6Aj/fhH/TB P+xFQOKBZHgVEWMRefsidq1hbNFTajrFjAGGcMZjF1wj/TAOtlQM0u9RtxCY D+kxm8cYFM7Ns/x3lxhFAnMDltIZ4gTm4DEF9ylufM6Azs+PQvndRThuHSHU 9QOkVD/ChPPHmIh+jFj8YxQcP6BO+AFWXQSn+8MyOD0M7wfY9JJ3vU+w5n2E ovccy54TLHqPsODbL70VnAtSTwQLyI1SQAenGASnnzBwm5/z7SuVbcUUbVJo urREqJ0IDcBYWg6ZgrN3AoHeaarneSQHFzAuXsKMNI+FkWVyZQGr2hVs6Few xaHaNReh/+4kdsiLT8zjOHKsvIBjZwG/VDpq/NC5xFjEviOHHfsctmwzVEdT KBKoeX0KCwRpThFETiLM7JhIcRraNjH+78qaqPruJTwU1ifKC6hujpO6ErjX lURtD4OFVNefQu1AGrXUPP4+4bW3EFEZoeiPIsPWMdE7hum+OGr/eASuV8ew RS2y162k/U0wg3lJnKY1L2ULkMZ4jfInYf43onU4yKLxY5YonWYrEsT+VJuN Cs+M5D19BZmfxe2/e4j7X+lGLZVu3SsS1L2uQN07GtRf1uPhDRM6aizovm1D P4X3cJ0LsgYPFA+JToHKhDU7RKa5U0AnVW9P+eUGF22+e4BBVHrFwpN+PdRt Wshkq4iZV5B3cixtQaxJ+6HtEpDZA1V7J6TNTRDz35HQ4g7X0M6R9nWNRCaN hq6JyHw4xygjU9+xCbNoF1//bxpc/3MjWv8mCcn3V2G6cwGP6EcIq36MMefH iIY/pgp9hkXbM+Qdz1BwPsMK6XKVVLnq+QDrpMv1EiLf53hu+J5wPNd8RKbv Asu+Uyz6j4lAInOUaiBEZIaIzPACg8gMEZlB5t5j/Wlk/ja/joxfzVx6qKLr jsDYkywdRezum6FQyiE2sIT08DImpUXMKVaxJOyIqFsn921gy7SBHcsG9ukm TW/MY29wDU9tUzhxb+DUvY5TzxpjFceeIo48KzhwL2PXRa51LmDdPo8iuXSZ SF6kz8pposiNCPLXRtLSIiuS49efq5UuNVSCFO+zUIo7Si8W6Jg6M02Ksy9E jo9itDeGWG8cSd5/hpU1UXp5KIO5wQzq/0wJ12tpbFOkHQwYUZBnsTKSpdfM MNIoKoRI8mcJyndClBJ5kX5wQTxKDyoQqAdz3Q7MtFOtCOfa1D7n9i/gzhc6 ce9r/bj/khj3vy8vLautKy0oMZQWlHTcsqLnngMDtYRKA2HZRFg2e0uLSrTt FKudfpi6fLBQndhKy2zLS+1Gmg1QtOihJByV7Roo2N9GFEXEbAUs0bxsWt3I D3VD2dkNeWsbDNTg+jondPec0BKWou/0Q/SKGh2vWAjNCQYh2ZRnF1/F1/5E hcv/jwMNn59A/+vbUN19yn//H+EmFL32H8Ph/xjTxqeYNT/FvPUpIfmUJuop zdRTrFCMFtm1hVNs1kiO6z4hHmPd/4hxgTXGip+dPECyHCUkQweEICEZ2UAu SvMVJSSjVJQRQnKUDcpj+VlIavh1hZ3fdCLhYVccpm7hdclpeHtylU3QVpCR rGFqRHglcBN57TaKhm1smHewbd3Fnn0XB85dWN/J40C6jQ/cczj17uDMt4Nz v3Bi9hZOfBs49q/jgAJjz1vEtqdAjb2EVbJngcy5SNbM6RPIqUOEZXlxyfTA TyCpEpHMCUnt87Xu7HGGvjBshKKbLBjsTSLSm0aiN0s4jmOifwLTg8K7LFOE 1TQa/psarjcpkDuncSRx0DFOY03FUE9hXT2Jdc0kP08wsnSHhCmF7bIiQfFM qSGNsExYzYOEZQ/lRocRk81a/OvSvf0dbn+pB3e/NVxa5X33DSXuX9Kg9ooe DTeMaLlpRucdG3po1wYeOCFucEP2kJCsLIjQdHhLKz9Lz1cpiMUNRkiaDGQ8 PWGmg4y5kVPMygU4dimgYJO6elWHmqvCM1wpbr7eh2vflePqyzI4CEcHWdJG Idv9Ujd6vqNikKW/48Hf/cdhvPyHMlz9Ey/qvjCHjtf3MXznGU3JRzAqfwSj 5UeQEYpp7WOM6x9jyvgEM+YnmLM+oZd/gkXnE/qfJyi4n2CFArLofYxVsqHA iAIE1/3nvJ5hLXCKleAJ8oTiYviQsCNDRgnHGOE4RjiOEY4xMmSUuQ6PYsZt +qnnmL+DkSbyPqW8Tnjy3BUhKtMwCcfmiubh611CeHAFCfEasvJNTKv4m7V7 WDbsY9V0wCI9ZC8+xL7zEEfuI9ivkAgV+3jmW8R54BAXwQPGPs6DezgN7uI4 uIPDwBb2/BvY9q9RgaxQMi9RpcxjicS6YMogp2MfV5MoFVbMSZT/plI0yk4F 1QUdnbAAu5cauE8AZIQ6OA6HoIN7M2zZ4xjrm0Sqv/yyxfTgLObEwssV/PXy HJr+XAPnO7PY6c7hmFy8oc1hUyfEPDb189jSz/E6S708TUc3hTXtBFYI0Lwq jUUlB1BODpcIwHRhvseC2U4dsi2KCjD/Fje/0o/b35bgzqsK3Hn+TPKaEQ3k yZbbVnTetaO71lHab32oyQVJs5ugKy9MVHd50EuHNVBvwFCjHsMPGS06DLeb IOkw4NplCa6XYhjV7w3j1jUdAa9F23Ul2t8bwht/exeX//ouqj53F9V/dRfN L8px54t96HtJgS/8vgiv/74ENX8SQMMXcuh47Qh9tz+AuPMHkMo/gtjwjwhI TxFWnGFMdY6U9gIZ/SNMmB5h2vIIs9ZHmHc8ohF/RPfyiC7mAgU6mhUvXY2P Zp1gXCUYV/2nWCUvrgaPUQgdIU9ALkbJj7FdApGCMs62HScoEwRlnG5njBwZ CX3m04D8DFQP2bGFM5w7guU55K5xUuQMnD0LFGYFRIbWkJRuYlyxgxnNHhb0 h1g2HWPNeoIt+yl2nac48Jzi2HsGZ9UmTrTHeDa6jIvRUzwKneBx6BgXvLtT 3t0x2fswtIc9ioqdwCY2/atk/QK7wCI7wiwWrBPIGZl5PWlS48S8QotEX39F VP4KNa/gygzUvKTJXn9pYbaxN0Htm4GL2tffO4VIzwxpcg7ZgRymhhYwK16k k1qiQ8ujoMyj+a80cFxawE7fMk7VUTq1ZWwbhci/gB3TEnXQtmmBYoRANc5j 3TCLop7CQjdJY5ZFTsXbGxGASds4KLwSYMBst6pyi/8cNV8dxM2X5bj1mgq3 3tHhzmVD6UF5A/VkC/VkB5lSRKbsY/MefOjGMAEpJSA77+ohqjOgp8GAXgKy jwwpgLDqqpT6rOaaBL+Fm1fFuHt1GHVXhlB7SYmH1zToveLE1S/cxa3P30U9 Qdn6N3fRwWsnr3c/14ravxxE/V/JUfdXSnS9doC+mkcYaH2K3uEP0ar4Iaz9 +3ANH8EvPUZIcYqo6gwJ7RnShjOMm84xZTnHjO0cc45z2uRzLLrOCEo2ZKa7 4CUb+k5fYIc+oS8tCruXBo9QDB2iEDlAPrqPhTFiMU4aS2whl1wrveaYS9J9 J8p4nA8HfwaP6iYVVYWrPMUrrHLomIK5a554zCMwsIqoeANJ+Q4mVHuY1RHx RqLfckoFeI5t5wX2WDFHtFgn/sfw3CYRGs7xYaSIR+FHeBy5YJzjInqGs8gp TiLHOCQu94nJndFtbAY3SPOrrLQ88q55tgYqC0saORMTbvAQk0aMSwYqDPTL 9GESql31p9a8hYjJOMzEo613Em5iMdg7j2jvApJUvuPDeUyLC5iXrZQWpS+r +G9pVtHy12o43qOaHVzFGdXrjlnYg3XXsop/hj1LEXvWFdraArYty9iy5ClN FtkQKC2Ms1jSk8i1BKZaACYtu8SL3LCVpkyNCZGkjMu/xo2vD6H6FTmqX1ej 5pIOt64IT5wtpSfOD+/Y0Uai7CQmux+60EdMPrytRyv9UludHh31enQSkwIK b16XovqdPty61It7l3qIQxEaiMlmYrL18gBuv2hCzd8Te1+sRdPfPUDXF+sx 8KV6iL9SD9lX6iDlf+v6khrdXzGi5ytmXs1o/nstbvU8Q/+b49B378DSvwfn 8CG80iMER44RUR1jTHuClOEEGdMJJiwnmLKdYNZ+QlyeIOeiOHSfYMl7jDxj 2UdI+I9QYE8sBIXdNRkR9tHoLpbGdrAQJzkmNglEdu3UKiPPICiTBGU8iYmA +2dB2agtbWmhay3PzRraZ+j+Fkk6KwgMriMq3UJKsYcJzSFmDdQGZlYGq2ad FL7tfox9Stsj/xOcBN+H9/4hzixP8OHYOh5Fn+BxTIjHuIhd4Cx2jpPYKQ6j x9iPsNuH97AZ2sJacJ1FRgfpWWRbmEXOTj1pG0POzM6tt2BiRFwB5WeodwUL JizwcpYXePXEoO9Jw9wzSac6C29vDqN9SxjrLyBN7TshXsWsbA0LinXasQ0C chOruk20fl4O2+VV7Axv4dw8SQBSSdi2sG/fZNCmOTaojdexa1/Ftr2ITVqJ NWseK5ZF5E2UAQbqIC0Vhor3KUzSylwEJ9lyQIqyzPgcrny1F9e/J8eNN9W4 wfZddc2E22TKujtWNNy3o7negbYmJ+5Xa/DgNlvwPR2aaqkPr4hx+7oEt29I cOPtXlS900O27cb9d0RkRSLx6hA6iEbZFTnufvku7n/pAZq+2IiuLz/E0Feb MfL1Zmi+1Qz9t5pg+EY9LJcpEV4yYvDbZoi/MILhv1ag/3MyDL2TxdC7kzAR kbahfbil+/CPHCCkOkRUe4i4/ggp4xGyliNM2o4wbT/CrOMIc64j5EoTjyQo 7yGWfAdY8u8jH2CM7rFV75Ied4jGbaJxCwslJLJdp4nGNFt2mohME5GpKcyN JX73Z9DIHqErzZKNEZHjROMcLF1LcPUVERzeRJT0mFIdYELHuzHSy1vPsWKn oXI9xjaN1r7/KY6CT3ES+gD++jOcOz7AD5KbeBR7iidjT/E4/j4u4o9xFieN jp3jcOwU+7Fj7JDQN2m+1kKbWAkUkfflseDmXbrYtp2kHxuzbLZhUi35FBrl lBWW8oSAiHq3O8kan6BBpMToXoCve5kubAVxmv2MeB2Tsk3MjWxhUbWNZc0O e+8u1oysAtMerFc3sCPZxwXN/r5jj65sr+TMDoVw7WDftY1d1xZ2nBvYdK5h jags2peRtyzQgbFqDKxvXYpUSTpX+ohKK+YlI/iN0r3+Ii5/T4IrNNxXLutw le6mmu7mzj0rautsuHFNhZpqNW7f0uDuHS178fDPVfbVuPpWN0HYjfrrw3h4 XQDfIKTCwY9XFdBcUaD+y7Vo+FIT2r/cgoGvt0H+zXZov90B80vtsL3SBvt3 m2Gkxx75mhgjX5VB8RU5Rr6kwAiBKP0bOYaEDWuvTsIyuAOnZBde+R6Cyj2E qcZi+n0kjPtIm/eRFXYSt+1jyrGPGec+5tz79MPCzDdVm38Pi/5deugdGpdt 6kTG2CbBR9ObXMe8QIPpInIZgi/DHp0pA3AuOYHxSBg/g0BNvYn2P0AUJojC SSIwB6twhmb/GgLiLcRG9pBSH2JSf4w58xktP+Wrk7be8wTbPiIw8AGORj/A SfgZgs3kPvcP8IPMNh7Fn+Fx4gPGU1wk3icCyZlE4WH8DPtjJ9iJHWIzuoe1 8BZWRteQ9xew6MvxK5Jr3Mysi8LRasekVlqZUvk9yBt7oG1nk+50UNySD0XC 29EZxjQsohxRmKdwXEF4YA0JVk+WHn9qZBfzlQWuBf0BVo2HWDcf0YEdwXxt G9vyYzxy5XHAOj90C0FH5hHigGJ4H3sc9h3PDjbdW+wB6yg62OzteVYi79U0 QySyYetYMVpWjNpJ96WlYO3Fv60sB337DSkuXVbjUpUOV24bceOeCW+Ty967 ocDVGiXRN4Tb18S4c51xQ8xOXj4u+wHh13RtEOIqwueGEmraFd01JUxXqBa/ XI+WL7Wi+2sdEL/YBfUrIpheFcH+Whfcb3bC82YbvG8r4H6LsP2mFNpvyqH9 Bm3g15TQ/MMIVF+UYfj6OCQ3srAxxy75NnzKbYyySiO6HYwZdpE07yJt2UXW tosJ+y6mnDQNrMxZjsWcdxvzfkZwC/NkkPnIZsk3z9OmzCXZg1JFzJH75gX4 ZSmSssJ1GbOE4VQii9/7GRKsM0HbwHQ2JaFrnoK+bYGkUoBrYB0ByTaiNMYp zREmDKeYtVxgkQS4QosvTHxu+z/A/ugzHIWeUQN+iNE2ws3/ET6c2MOjxId4 nHzG6we4EA7MShKCSUIwcY79+Cl2xo6xGdvHWmQbK6ENLAVXsBCgwwpQK/qo FT3UYA4H/13ZJxBUPeynbCBpU+jrOqlru3jPXRMMEnc3ZURPAYG+NUQGN5GQ 7ND872FaeYB53v+S7hgrxhOsUVJsWM/Yas9gvL6HrZEzPPauEW5nOKQYP6IY P/YJcYJD3xH2fJQP3n1scejXPVsoutax7KDutC+xROZI1CRDE0vGGKGE8Ja0 7bR0oDJ79k/wte/34cW3h/Cd98SovtxPyA1Sk95ic/0TQo/wuzpQgtwA4Sip VkJRpYLmhgqG6yqWiBr2q3T/jI5/6ETvt3pQ9wevwfNHryHxegdcl/rge68b vssdGL2iQvCyEsaXpQw5jN+QwfQtBUwvKmEgBHVfkWC4mvJleB126QbcIxvw qTYxqt1ExLCFMeMWEmbKL8qTrH0L444tTLo2MeXZxLR3EzOBDcyMrmMmzIiu YXZsFTOJIqZTK5gm3IQNV2YJNWHDpVkBbtk8plIz+HefhtsvQ3WfjPeAcGtg 6pqmmU4BbitwDW7QzO8gynSlaH0njGclA7/oeEJb+35pjn078JRw+4BW4wMc R58h1EV4jf4jPpwS4PaMw/qIgPtnOE99gLPUUxwTcodJWpnEGXbihNvYAdao FgphYQtJknSIlnaULBKkuvIRbi4nMgbJc7Spm8SUBWY6KD8RF2NkoO+chqGT JN21DHf3KgL9G4gOb9PZ79HZH2JaTcGiO0Wetq9ousC69QKbrJhtx2MYbpB0 VY/xOLBFZD2mkH2EYyECFwyiL0B5QO+34z/Elm+fX5ltm6O/7F7FknOZLorV YeXtWkl6FkG0BkqidVYpwW9XVh5KKRM0PQZo+2iTa4bQdkuK9ltyxghDga5b SvTeVJYQJ6lRE20aaG/oYLyhh+W6EY5rRrivmuC7RkvxtV70v8zf8Z/fQeRP 38bOd9+Fm2TpuzGEWLWRYUC0So/IDS0s3xuB5VUFrC+PwPY9JawMy7elMHxt COKbCVgkq3DI1+BWrsGvWcOobp2oW0fMtI64ZR0p2zrSjnVkWV3jnjVM+BjB VUyGGHSdk7EVTMZXSlt7TKYYwvY+la29pseFz8uYSC8iMZb9WcQp75ihrSXi HpQRp29fhKlnBU4izi/bpSs6QFJ3gnEibobpWnA8QoFeY833BFvBJ9gLvY+D yPs4oqoL97KvRkhwM7slUiPiiDMBce/jNPUEx4yD1CMijiY6cYINIm41tkvX RMTxa+QiJI0wUzhKxAXClBZ2xLSDnyCuUUoZYGNR8HaFzUfaaeTaZ2HkLVu7 VuDuXUdwcAtRqpek/ADjNHQzmlOi4AzLRFvRQnFqe4xNFs22631oq3gL6g/w ZHQfh/73iTLeYlCwT49xPHqBwyC5OHiKXaJuK3CAdaqbom8bBQ8tjLtIi8Tb dZDjHBSm9ufC1I45rbyCuP8VapGmNOXeUt2P9ptidBBtnbcUL/AP5fOjHCQ1 eiiIGE21CcYqC6w3bHBct8Nz3QH/dSdGb7gQrnLhwR9fwcCfXkH2s1ewf6kK jqoRJG87kbzjYNiRoJ2J37Jg7KaJQ29/XYNfhfM1FZxvKGF/QwHby2KYvtkH w3ABFukK7CMcM1URPg0Fva6IsLGIqLlY2l0yQVGbchWR9q4gQ0uYGWWEC8hG C8iMMRLlDWQyaf4sU/g5jBNqP4cMBV08MVP68j8FtN+BvMYI7T0/tHUEWqNA bYswktocBJqPQAsTaAlaiSyt9ww70IJTeHhdfjazGXyE3RANbuQxDmliIwMf 0kZ8hGdzOzgnjV0QWBfpxzhnnDKOCLKD1AV2k2cVoB1idYxAi21SjxJoMVJb lEALs5OOhikcbP+6AjJNA5vBQ2q4lhDpjbfaNkmQzcPUmYdVVIS7bwPBITIx PVpScYRxNW9Xd84Gd4Fl82Os2tj87e9jy/WU2uwp1NWnWNP+AE8ibJjUo8eC Ixp9n0Gw8SsdEmj7o+fYHT1lPR1hPXiAIiV0wceaYKkvuJepOann3NSeLjZS J5nY5sK8QVkB2X+FtluL5utd6KgZROdNKWlsBCJSmeiWGqKb2hLMxDUmjFRb oKmywVDlIMjccN7wwFPlhb/ah1C1H5GaAGK3gmj4syoo/0sV5v6mCoc195G5 H0C2llHnZ/iQqfUgfd+F1D0HEndtcL5loJ7Tw/2Ohk1XBddrEthfGYTxRREM 4gLMsgLsCoomdQFeLUWIvrx7YdhaQNRRwJi7gLi3gMTzXUsivMYYcQaBlkiV dyhLkdZS2fI1yYglc883SX+lQmfq2wGijHahforpW4CJCLMTYV7ZDu30PuK6 AyLsGNPWEw4lOxF1TdF/hg3W+nboHHuRCxzELhAVU58lPsIHuW1qsws2zAvW 1Fn6Av8UJ+lzHDH2U2dE2Am2EsdYTxyiGN/FcpwIixNhcSIsRq0WTWF+NIhJ j/kThNVTLTe5KCcp0VrSjOnSCjxTZwG2bjaB/i366z1EZYdIKo8xriHz6sm8 psdYtj7BKtG17nyKLfcHlF4fkDrOUdR9hCe87cOS3CTKQoLvJqWF2eOFwgmx GEJn2Bo9wfoobzWwh2Wq5EXfOhZ8VMA+Nk8fb9dL5nVTqjndpDI1fqt0zz8P TecIPbUOHdU96KoZJrJkFYRp0X3TwDBRolnLjPbvoSeozFV+OG4E4bkRIsDC CNVEEL0VRfxOjGzkQNN/vQ3z/3sHy1+7jeOGh5isj2GyIYrJxggjzM8hjFN5 Z+v9SD/wIFnrhPuSGd5LBnjeUcPzlhzuN4bg+H4vVIPlbfFMcg6hsgAHgeYm yHwEWYAgGyXIQgRZhF81QpBFQwyCLEqQRQiyiLAtTqrwAmJpgcVixFaUn0aZ xP/w0495FSwTzR3iq26SicvBQHzZ6AU8tHOjyl2M6eiSjQeYtB5izkld7T4u zVuvBU+wGaKuj5xCVBVmcslg6Y/wdHGTuv8MJ8TSaZqRorZOn+IwdUJ80Yom KcwSR1hL7GMluYN8km46+fxpCykhlsBcyE+uNuI5wNR1BFgjPUBThFSWKQOs lWzbwXvtWYd7cBtBCQE2QoCp2Nq155gxPGLCCTDb+7SRT7Hu+gCbnmfY8T2D rJqeRv9jPIm/TzB9iCPa6WPGiSA02foPI0+wH36EnfA5tsIEWOgIxeA+lgM7 WKQuzgVYD0HWQ4CM66c688UIMjfmLKoKwP4U2k4F2q53oIt9UsQ+KbqpKFGX 6KaR4LKgt0ZYtOIhhfmgrQ7CVBWCvToCd3WM6Ipj9FYCkTtJjN1NIXk/Ddc7 ETR/thaev6jDxiu1OOkSYbo5jZnmFCOJmZYEI46pZqLuYQTjTSFkGgJEmhue yxZ43zMQaSoiTQr32/2w0U8ohwrQSAswkMrMRJiNCHMQYW4izFvZfsVPhAWI sAARFiTCAkRYgP0yQIQFk0TYaEpAGD/CwyYkfPn/8NMMJr3qgaomAa2wDWvz PPTU0paBVbgkmwgo6Di1O0gZ9zBh3ces44AN4hDLdGHCMxFh5LcixyzRBLP7 AzzKfoT3lzZwRJY6Sh2TwY755//OP4/YH49KR8FsJw+wkdzHamoPhdQ2llKk hNTz5ycTmIuNYWrUV3n0RJd5n1RQT/pireoaia6mGSJsEQYBXb10ToM7tCr7 /PePkFSfYlx3gRnjY2ryJ1i2P0XR+QHW3MJCtWfYJrrERNey4WO6YcG6PCuh 6ygiIOsDHEWf4iD6Pln5MSuHOiB8hvWwcHrdAZZHhXkmoqtkVajEQrPs5URX gOjyeqghlBV0/RndMLX9DRFE1QMQ1UgZKgZpq8ZOZLkxwKqWVI9Cxco0VMVg rYrDWZOE92YawZtZhO+MY+zeBJKs+nT9JDxXsmj5y0ZEPteIvXeaMNs6hbk2 ISYx3z7BGMdcexYz7WlMtyUxSaRlmyPINAWJMiLsiplBHqMj9VwegutdEYbJ YXJymGqkAC3RZSC6zESXleiyE10OostJdLmILjebpItqzBUVtvBikMM88fLV NVb4g08hqjx9+H9C21Tel+b5//locMMamlrDNrKWHUzbdzHv3sMSzXwhQDiM UvCGD6gnMoiqfoDziY/weHkd+0lhAe1B8pB/pA7wi8TQPnaJnS3GemoXxfQO ljNbWEyvlSeYU3OYT3AsYjGkAu7nMJJTCGtrCaMHhFE9YdQ4WyIpfWcRlt5N uIYEGB0gojgmjM6QZQecNpGkLI+Rt9P1Ot/HqrAQ18dO6H+KwZpzLBoJo/Qz HISfkpToSYSICsEuGH2MPcZOlDCKnGFNgFGYpRMmjIQ5oshq2X9ECKMwYTRK GPndLDMlfrN0z38MTcsQ2q88JJS6CaUhBnUWxbuoxsbPbvSRmIYIIVnVGNRV CZJUGvaqLDw1EwjcmkTo7jRi92eReDCLdMMc3Fci8NXMo+dzLUh9vhXHVR2Y 76DW65zHQpcQc1gQkTRF05jrmsRMxzimaLPH2xLItEaRaQ4QUi5k6s20nlq4 r8t47aWuE6GfIl/MdihXFaCk5lIb2SIthJW9AKOLrZJ6y+xnBBkkK1OY5GSJ CuRkjgo7yeRLX/oPPr1g+ZdLyFHeHIe6fg6atjwMdIrWofIRCKNqGlb9BtLm TUzatzDj2kbOs4MlQc0Gd7Ea2kXdFRW1jhdnUz/EksmAncQedhl7yT3hUWRy F7/AlrdDMO1gI72NNQKpkNlEPruOXEaYOF7EfGoGswmOQiRSWdn0K5R8VOy1 1FN1ApIqhEQkmYkk59AunexhCUkJ2sEs7eAU7eC89RGWBDfromr3PC4tCNuk BeyvPkPO9DHJ80Oc+nx0t49fKMHnl+g96CsYewTRdvScQKK4J9+uRA6RjxJI MWGykUCKEUhRAilKIIWimPc7P+l0Aoi6rrZCdKOHSoCdrkpD8Fh4daO7Koj+ qgiGyT/yG2k61HHqqEk4aqbhvT2L4L15RO4vIP5gEanGJWQe5uG7Ponm/9EJ 6d92YvqrnTit6yNolrHYvYylnjxjCUu9i1jsWcB89xxmu2cwLZrERFcG2Q4C qZ281OonmBz8fQYCagSuqiF4bvegfaCALnJSHzlpkJwkJifJyEkj5CQFOUlJ TlISSErykiog7D3EK0PmXfpPnwZO+Yhi2dUMFPfmoGrOQyMcYDRQ3j3fp6T3 1K4iblxDxrqOSccGZtwcSe8WlgJbZPptluo2hocTCDuT2BzbxmZ8G1vx7Rco vrdJQlvJLWymNrGe3sRqZgNF4iWfJQFli6UZ3tnMAmZS05iIp4Vdtcqw+Rd0 C3bo7tHo1VKGNxA2zVRJFdg4CBsfCShMkxfXHCOjP8Wk6QxzVhKN4xx51wVW BH/qu8BG4AK91SeYFWAzTrM3FqdXpZOICq7hIHZO13AQo1tgbMdOSyevrkaP 6EcPkKcvXaRryJVcA3EzRtzEKMMjYcwFnGXY/GciWoKuK20QXe8jdMg7N4yE jJNXP7pvRNB/PVE6tElxg8K0ehrWm3Nw3czBf2cRoft5xB7QQzWuIP2wiPHW VYqmJbT8bQ90X+jB4ss9OGsTY7F3DUt9q8j3C1FkFLDUv4yFviXM9XEEe2cx 0TOJbHcGma44Mp0UTe1ehhWZNg0hNIScRFW644bePJqEd+HJQe3koC5dAd3k oB5yUK+NkCIP9TkKf/JpmJQPkBE+yWqE0+OXXqjsDGLmL3LxFwXUK4joi0iY V5Gxr2LSuYYZzzrmaWMEpZkPbaAQZvojGxzfDazFGGMbWI/zGl/HWnKdOmcN xcwaCtlVLBEeC+PlbfBnhBnZdA7jySnEo/HK47rPQEFy194eJU6SpJfp0law us4VmKh17EPb8Er3EFIcYExzhLT+GBOl+Qu6S8cpllynKFQc5nrgjHV+hGnz x7iY/J94ks5gN3pGLmHEhEefp7wKD5+OscVYjx1hdewQhTibcmIHC6WlBMRI gko6waYwRmdJjEz5HRVu+XfoeKcOoivtEF2jRbtOXrluZXgZIXRfi2PgWgZS 8oXy+iw9Wg62m0tw31lG4P4Kwg9WMda4htTDdWRbNzHRTr15dxOtXxyA7csD WH1zEOf9SiwNbGN5kFU5uInC0AavLLXBVSwMrmB+II+ZgQVM9s8i2zeJTG8a mW7hhBTqHpGTQX7pkCGnMGBO3P/ZTyf/1z9J/tClDGR3FyB/WN40VzdQPvPI Rd0dYCuLEEZxC6FsX8GEq4hpTxFzPrJuYJWKkNANrWKZ7bwQZZCNC2OMRJHq tojl0uEHK1ioPPqZyVZmRzN5ZFLziI9lf/M5OdQEob3FpNeyoppy0HWwc/as wcYv75HuIqjYQ0yzj5T+AOOmQ0xbjzDnOMKC6xh5zzEKvpPSwrnO6kNMMOnn 7HmPJ6fZOIRn3MckA0GQ7zLNv1h+4jhGxRXfR5H9cJmdcDG5TSHOvpei3UvR 7hGYuXgKc5HQb1fy3Snk+zJ17VU5w8C8kxCuBfg5ynyn0H9tEpJrs1DdWICh Jg/b7RV47q0iWLeOaMMm4g+3kW7dQbadXHdrCf7aPbR9WQz/V8XYvibGhcKI 5SE6uWGKQvEeVoZ3eGX+xZtYHF7D/PAKZobymBzKITswg0z/OCOJTB97Sh+J oc+CTI8SOY2wH4j0p/L9bz7JtxCDV6cgqV2CrHKiirD5vEXGnJM6AqSOMHM+ RupIkTaylC+TngKm2XVm2XXmhddZKGEW6LcW6LcWqYIXhM3u6WLmaePnMuU8 TzKyWWHD+2UkU4uIxqcrlUNfTxrVCK7rnrDqfJ4iheKme5XOi1JUso3AyA4i 6l0kdHvImPYxadnHjP0A864DLHrKDmzFf4j2auEp+cc4nf4hHs3M0Y0dYisq xAETf8DK3mfsYSO+S0+/S0+/jXxqCwtsXLmSYl5m5EqLhObjSUyFR/E8211v P4DoPdI/XYOIDkJ0xcMQzt+Oo/tqltmehvTGPKVnHsabK7DfXYO3dhOj9XSN Tbz3Ft5bO8HaeQh3zRaCzcdo+6oc0W/IcXB3BPnhYyxL2JUYK5IDFCX7WCHQ C1K6QgmdloRsK1nBpHgJ4+J5ZIamGWwFQ2MMStEhKogBLXIGB3Jq5Wc/5UJK RP7CT/zIv4RE2GG4sru4MD/oZKJ9TPQoEx1lohNMdKp0skkBE0z0JBM9Tdsz wyTPMMkzTPI0kzwlPO5gkseZ5IxwkgEjLswNpvIIxedh8kQqA/hbpL04NLfH oaV61baWycXUvwa7eANe+SZCqi2M6baRNLIkLLuYoieade6VfNGidw95/z5a a3bYfn6Mk+mPcD6/iPUIkylElCGctBjbYRXvMLkULVQlBSZ2KS2o17WKgn2+ 5IF6ngmOep3P8yt6qxGiS7QV75G536OluOxnRBkp9FyexMCVObL3ItTVJKJb vO17m/A+2MZoI4mo+QCJtkO2ZHYg0Qnc947R/FUl+r6hRObbKpw0aZCXnDGX p1iRnaIoo/2RHzEOUJCzw8go1mUbmJWxq0o5nNJFZCSzDFa0lCpRylYvEc7+ MyBndiOn11by+3rp8qvoqZ7HQEN5e3oZE6tmYk3CxC8T6yZr+5nY0Ke2qE9S N6aY1AyTmhWeLMR+8mQhneR/Z2LjTGyEEebnUf7MN7bwmeev11yOQFlDJ1I7 C01zeZdlY2+RbmQVLtka/Mp1+tsNjBk2kTJvIWvbxpRju+RK5ulKFn07uHfV CTXBm7COYcxqosjcwWpkm9KBERMO0GOw7a4kKSuYwzxzuJhZrahKYQkLdVF6 DjPJCWSjY5WH2izUNx5C9A6l/SUdRO+Skt8NMlik72bR+940Bi7nmMg8O0wR xjsbcNRuw1e/i9DDA8Raj5DsOGGrPIX3/io8jY/R/A0NpC9qMf19Lc5EJuSl FyjIzrEip7QYYTJHThgs3JEDLCl2SbX8nvT3kyPUesLu83IW68gUMooUr6Tm EVKzzISczctkGiqJfLPi8XqbltHfyUT2UeQziTp5ebrLQfHvpvj3U70FWZkh VmaEDjJG+o0xgWO0jTEmMcrKDCfKe4wHkuV9xoXJCVt4obK64jcgv5qG8s4M VI2LJR9Zyt7ACmySIjwjbFDqNUR0a4ib1pGybGDcvoEp4WxT2oK50iu2bEAB VlZwk/aAEdosCb9C6QC0dYqmdfbQNVLraumsI2HB0XzlvKO50uP3JUwzc9l4 Fp/5CS19hmlz/9Q0Se97s+xNi5BWEdGsOdO9LdjrduFtPECo+QixNprKzlN2 uXN46/bgb3+ClhcN0L5kwOK7BpyJHViWM10jdAuKcxQVTJmS6VKSa5WHWFLu I6fcwYySplm5inHFMrLKHDIqcqua3KqmelL7kFFakXMKr8WbKltC463KWvDO pjxEXVTTlEkSyiQlZZKOBWdiwVlZcA4aNTcLzsOC87HgfCw4H/Pli5R3hXYx 7MLO0AxzZBkq7/NlCb9ROgpWXjUFRe0ClM3lPAlHUJqICweL2yscQ6ktImIo Ik5RnrKuImtfw6RrDdPuNcx6KRKE16EDa1gIsnpGGREGZdlSnHKNsmxR0DeV FTnPz6OaGReuy5hkhWWSM4iG4+U88c60jeUH9KI3TaRMtsC3whC9nWLqJks/ H7y2xHQVae42YLq/A0f9HrxNBxhtPUaMlZUUnVGYnsPz4BTBnqdoeckM6ytm FKvNONP4kR95hIKC6VJeME1MmYoVpj7BsvoIS2q2fMqAGfUWJlXrGKchyWhI lVpSpS7LYCvUshVqbMi5AzQBlkq23qlsFNDauVyy1cIr1cPKAuTMlIqZ0tJS 6x3luRnzp+Zmnm/rq2No+Pdh51xlxvhfYfhSGrJb85A3lA+fLZ3aw99tJgoc tOxeVm1QEE8GVqd5BUkb79axgnEnm7h7BdPeImb8K5gNsjJCjAiDKJhjtc6x cmdJuzPp8klBFE8vYKL0kDfLFpZO5RCNjVdW7DEp9ZWkvM6kvMGkvBFhYtJM zFQ5KVfzkFavQk26M9YyKQ378D48xCjrJ8r6SXSfId13gYmBRwgNMimv2OB9 1YbNWhvObBHkFY9ZL0yMiolRk/rUZ1jRnGKZznxRc4h5zR5mtNuY1G4gqyvS rRM4hjlkjOxfRlpVQxBpHZPiCyLnep6U90qXX0DjYAFtpDkRB6yfNDdkLkDM hEiYELGzvDnrIKPHtoQ/rPS70hqRu2SGpvIR5yM95SOTTNLyw063uqxcQxz8 KH9fnLSZEo5pclVEDRM8yYROsRSnSJ1T7H1TifLxLBOpTwTNC0iXBl145hlP LSE0NlVhUQ56naI86N83Mjjor3HQ3+Cgv1ke9IFry5DWrEJFG2ckadkb9+Eh aQU56JGuU8RJWqn+C2QHH1HUsc98z4Hwaw7stjiwqHhEcnqEZQ54Qc3QcNC1 HHTtKfI6DrqOg04xPKPbwaR+E1kjLbmJvcbMQTdPMCgahD3MgglW/6jwFm9l 0G0/4dt/DklnWQZqOHJGaflwO+Exsa9yuFX404qBo5biqKU5asJahAxHLS0o BsI19SnF8ALGMqXHeIJ6SC3DH5utENo/geaevPQvd32XQ/Y9Dtmrkcp+EL+J 7vdy6LvOrNesQckhM9TtwMYhc7ccIkDiCLMlj/WeITlwhuzQORq+6+CwO5B4 04HDHmoicvui6owkcUZcCtg8QYFDtaw7Ql5/iAUaxTnDHqYNO5gwcciEWQwr h8zK9myjW7bROVk5VGHhLVPi1Gt7zvX2yjRa93WqhzqC8SFByaGTkYtVHDo9 h85CNrFrCDzhPBACLkjAhQjeMIctWunTY6Fynx5jlcc4bFECLiw8lgqVHksJ D6f8/JEzMovyIcT/Eopb4vKIvUx/+YqbESmD7q3p0oj1csTEN9eg4IjpH+zC 2rQPV+sh/B1HCHUfIdrLDjlwgvTQCRo4WkNvODB+xYEjYTcVdsIFFcGkPsaS 9kh45Z6w+iWOFoWMYR8Lxj3MUYxPU8BNUAZkbcK8zzJJjCPm4Ig5CK7oJHIR XkNBSgPr8xFzVtRMz4Nl9NFU9nf/ZPch9fPdh1jqdioaF0fKw5HyeSoP8DhS wecP8ITzEwgyH0fLKyiZRPkxiyO2XObh8qTVb6PrO2xDr6Y+UQ5915cxdHMV IxwXLVW6+eEuHK1sRZ0HCHYfINJ3iLHBQySHjlDz7QEMvarG6C01DjUBzFIZ zKsP6ZvpLrUM3T6W9DQhhl0scjzmTduY5ZhM2TYwwXabJalnnESSi+PimkBa WCY/Nll6Oiy8IPrn5TFxVXpQ2/15dFGmi4TNaogeMTu5nOhRsxfpWHRGFp2F RWdj0dnZixxEj4Nj4uCY2MPlMyRegLX8sIBjpA2Un2T+funP36VQMpeGoPOb DnR9e7QMn9cnqYHLz6AGbxYhu7sO9QPyUhMFVesO3J278Iv2EOrbQ3RgD/Gh fdS8bIH0dgDRniCmZVbMCC9jqQkJ7S65hzpXv8OgcTFuIceCmiNEZmzrmLRT SDmLpYmCjJuNwDOHtLC3UGIeuTivYwnMh0cro+KtrMsv7f3L0ejhaAzStEhI QXKOhpKNQM3R0PK3aYkQLRGiCbBmhNnunyvNe0vci596WvK7UFTpyzNXd2Ic hEB5AF6bQNeluTIx1/B/c3cVygfr0DdtwtK6CWfHVmmzyUDvNsL924gNbSMh 3oHa8jGciiQmFDQwqm1MqynutVuY1W2RTfiljRuYo0yes1BusT6mHUVMuFaQ dfPLe9ipvQuMGbJnFrnkXOmZrvD60Vw4WBmAQOnyv6GBoq6FpdHJ0uhmafSy NPr45ftspana0pTtH1dWc5WE4M0odLcy5VS/mkXX2+XTgHurlzF8ZwXyuiI0 jaswtqzB1rEOV9c6fD0bCPZvIDJIa0bbnZDSnsk3aE0o8lVEs2YdU1qGngLS wDDxG5mLmLau0L6xOzqXMe4m0r1LSPsWkPLNIyksXEkvMeYq8yaJ8kEK+Kh0 KfcadVUE2pp05W+/ji6aMFFVHv23lyG5zzQ3rEDXvAJzWxG2zmJp/aqvj1Zk cBXh4VXEpKtIyFeRVKwirSIPqQkwSt8JfRGTxhVMkHInOFoTDt4hazFL4KW9 i7zDHJJ+3qV/pvLOw1JpAmBemACIjf3Unf52WcZdC0F9IwXNnYnS39uJnA6W Ttf1BfTcXMTgvSXIHuShovLQty7D3MGyFJGW2Ed9pLjg8ArCkhVEZSsYYz9N EMxJ5jSlXUZazxDatIXIsPMOnYtIuzmOnhwSHMuEf45RudNs+Q2Ned7tbHIc f1G+1R9+MqFTOUBGeTUB1c0JqO/PlX/8q2i7wtutmkfvnRyG6B3k9HkqunRh Bz1z1xLsvXm4+vPwDuURkOQRkuURHskjqlxCTL2EMe0S4oZFJMwM6wLijhwl AMMzjzHvHGL+WcbMC6U53P+lZBvms3mK1Vlkx1KVG/1R6fJvIX0nAsX1LA3n LFTC1vI0Ms2XptF6fRadN+fQe28ew/WU0Q9zULfmoO/MwdS9AFvfApyDC3CL F+CTLiAwsoBR5QJC6hzCuhwiRoZlHhE7g7I84p5ls2X4ZjDKmMmW13zPjgvz j8uYziwKTxf+snx3Py5dfg3Sd5OQ10xj5P4CFLRyirZlPHyPd1c1g05a5N7a WQw1zkLWMgtl+xy0ojkYe+dgGZiDfXgOTukc3PI5eFVz8GkZhln4TbMIWBn2 GQScDPcM/J6Z0kTZZEkbTZVE5US2POst3Enltj6uyFvxlXHIbs8TaEuQN7Nv EmQKMmRzzQw67s6g+8EMBppmIGmdwUjnDP7/9s5lp20oCMNDsmLTSn0qoGLT Rd+hD1AhVqCiFtFyadqQkASSQEIuJtziNCWgxFyUBULtbCoub8M3PlblJ2Dl xbFGUTTzeyzP/5/j0Tn7WZVWXuWgoMw/VI53VU7rKt2miu8xDlV6xwwg9YDU 7ak1kKacxr113aNcx7zIhmAqBmciwlT6+Ee2F/7JzhfK5zcGs949E4/I99XF v5L5TLpWVIrrKuUMuDZV6uBpgKdVVfFq4GuodNpg7DCONDwZzXoMb8amr8P1 w1TYXJgOlxKv0I+/gzuZjsFJRR+dt+YItfggpWWkxdoTId3BjPsmyOxwRmrp Ce+eD5HkfqoUtlS2S0CrqFT3VEbQasC0LoBSA8g0uHbdaAgy1412GXaj2QLY kJ8s6EwMRjrShNl5lfynR8mjCQs8pSJPqUwZqNk+i0xqvLrbZ/EELvNh9l+U 8T5cdgazD4BwDoTBKFI66MLBTSgCU+HiTVoGY7d8Y8HexsK7k0PeyA8qUZYq lKUCbebJBCxSgUJrCIomgqKNHO0cRoICkXXad4LCjwRFFwHRvSScf23heqat sDrDe5mNhXPbtL+WDUJtoOW+c4c5klwkyWWK2y6EVYewGpTgFkTRhv487tAj lEcob2jeD0Z2bV48/v/wEI8xGU0HVzIUCPyv4T9DAc013LkdJfzv4L+M/woZ rPTNW/Xs6V3MyatoprEEsGWAfbUtLsnBKul/H/vfh8RO7MRO7MR+SVsmngFM 0E2h\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.00716726622, -0.70435757198, 1.2273203452199999`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.7639595300199999, -0.19694724372, -0.98443386244}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.7516730278, -0.105093332038, 0.5981549707799999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.4944813191999997`, -0.9759867872199999, \ -0.43303071289999995`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.8917447236000005`, 1.9088122326, 2.3398587332}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.2715796496, -0.41660899395999995`, -2.6558209203999996`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.44816741816, 0.49998370507999995`, 2.752385919}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.8690093983599999, -2.6569547559999998`, 1.73459839266}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.11834598047599999`, -1.30368417288, -2.5486734562}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.72765789356, 1.7813502139, -1.40083498654}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.8186123274, -1.80372456974, 0.85389159036}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.8461593277999997`, 0.56187223158, -1.3083895906199998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.134720488, 0.09932588828599999, 1.1552272983199998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.5388898802, -2.9606337241999996`, -0.049047838329999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.832364328, 3.6229826872, 2.1720510643999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.825415340999999, 1.26033385844, 4.2539621986}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.813029147799999, 2.2491518852, 1.80971500116}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.2547610881999995`, 1.56665844304, -3.0496398188}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.648914932599999, -1.433357171, -4.2889221295999995`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.1499672936, -0.99308880752, -2.1784761327999997`}, 0.1]}, Text3DBox["1", {0.40716726622, -0.70435757198, 1.2273203452199999`}, {1, 0}], Text3DBox[ "2", {-1.3639595300199998`, -0.19694724372, -0.98443386244}, {1, 0}], Text3DBox["3", {3.1516730278, -0.105093332038, 0.5981549707799999}, {1, 0}], Text3DBox[ "4", {-4.0944813192, -0.9759867872199999, -0.43303071289999995`}, {1, 0}], Text3DBox["5", {4.291744723600001, 1.9088122326, 2.3398587332}, {1, 0}], Text3DBox[ "6", {-5.871579649599999, -0.41660899395999995`, -2.6558209203999996`}, { 1, 0}], Text3DBox["7", {-0.15183258183999998`, 0.49998370507999995`, 2.752385919}, {1, 0}], Text3DBox["8", {0.26900939835999993`, -2.6569547559999998`, 1.73459839266}, {1, 0}], Text3DBox["9", {-0.718345980476, -1.30368417288, -2.5486734562}, {1, 0}], Text3DBox["10", {-1.32765789356, 1.7813502139, -1.40083498654}, {1, 0}], Text3DBox["11", {4.218612327400001, -1.80372456974, 0.85389159036}, {1, 0}], Text3DBox["12", {3.2461593277999996`, 0.56187223158, -1.3083895906199998`}, {1, 0}], Text3DBox["13", {-4.734720488, 0.09932588828599999, 1.1552272983199998`}, { 1, 0}], Text3DBox[ "14", {-4.1388898802, -2.9606337241999996`, -0.049047838329999996`}, {1, 0}], Text3DBox["15", {3.232364328, 3.6229826872, 2.1720510643999997`}, {1, 0}], Text3DBox["16", {4.225415341, 1.26033385844, 4.2539621986}, {1, 0}], Text3DBox["17", {6.2130291477999995`, 2.2491518852, 1.80971500116}, {1, 0}], Text3DBox["18", {-5.854761088199999, 1.56665844304, -3.0496398188}, { 1, 0}], Text3DBox[ "19", {-5.248914932599999, -1.433357171, -4.2889221295999995`}, {1, 0}], Text3DBox[ "20", {-7.749967293599999, -0.99308880752, -2.1784761327999997`}, {1, 0}], TubeBox[{{-0.7639595300199999, -0.19694724372, -0.98443386244}, { 1.00716726622, -0.70435757198, 1.2273203452199999`}}, 0.1], TubeBox[{{3.7516730278, -0.105093332038, 0.5981549707799999}, { 1.00716726622, -0.70435757198, 1.2273203452199999`}}, 0.1], TubeBox[{{-3.4944813191999997`, -0.9759867872199999, \ -0.43303071289999995`}, {-0.7639595300199999, -0.19694724372, \ -0.98443386244}}, 0.1], TubeBox[{{4.8917447236000005`, 1.9088122326, 2.3398587332}, { 3.7516730278, -0.105093332038, 0.5981549707799999}}, 0.1], TubeBox[{{-5.2715796496, -0.41660899395999995`, -2.6558209203999996`}, \ {-3.4944813191999997`, -0.9759867872199999, -0.43303071289999995`}}, 0.1], TubeBox[{{0.44816741816, 0.49998370507999995`, 2.752385919}, { 1.00716726622, -0.70435757198, 1.2273203452199999`}}, 0.1], TubeBox[{{0.8690093983599999, -2.6569547559999998`, 1.73459839266}, { 1.00716726622, -0.70435757198, 1.2273203452199999`}}, 0.1], TubeBox[{{-0.11834598047599999`, -1.30368417288, -2.5486734562}, \ {-0.7639595300199999, -0.19694724372, -0.98443386244}}, 0.1], TubeBox[{{-0.72765789356, 1.7813502139, -1.40083498654}, {-0.7639595300199999, -0.19694724372, \ -0.98443386244}}, 0.1], TubeBox[{{4.8186123274, -1.80372456974, 0.85389159036}, { 3.7516730278, -0.105093332038, 0.5981549707799999}}, 0.1], TubeBox[{{3.8461593277999997`, 0.56187223158, -1.3083895906199998`}, { 3.7516730278, -0.105093332038, 0.5981549707799999}}, 0.1], TubeBox[{{-4.134720488, 0.09932588828599999, 1.1552272983199998`}, {-3.4944813191999997`, -0.9759867872199999, \ -0.43303071289999995`}}, 0.1], TubeBox[{{-3.5388898802, -2.9606337241999996`, -0.049047838329999996`}, \ {-3.4944813191999997`, -0.9759867872199999, -0.43303071289999995`}}, 0.1], TubeBox[{{3.832364328, 3.6229826872, 2.1720510643999997`}, { 4.8917447236000005`, 1.9088122326, 2.3398587332}}, 0.1], TubeBox[{{4.825415340999999, 1.26033385844, 4.2539621986}, { 4.8917447236000005`, 1.9088122326, 2.3398587332}}, 0.1], TubeBox[{{6.813029147799999, 2.2491518852, 1.80971500116}, { 4.8917447236000005`, 1.9088122326, 2.3398587332}}, 0.1], TubeBox[{{-5.2547610881999995`, 1.56665844304, -3.0496398188}, {-5.2715796496, -0.41660899395999995`, \ -2.6558209203999996`}}, 0.1], TubeBox[{{-4.648914932599999, -1.433357171, -4.2889221295999995`}, \ {-5.2715796496, -0.41660899395999995`, -2.6558209203999996`}}, 0.1], TubeBox[{{-7.1499672936, -0.99308880752, -2.1784761327999997`}, \ {-5.2715796496, -0.41660899395999995`, -2.6558209203999996`}}, 0.1]}, AspectRatio->Automatic, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.5710452387955046`*^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}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}}], Cell[BoxData["25"], "Output", CellChangeTimes->{3.5710452388111043`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.00716726622`", RowBox[{"-", "0.70435757198`"}], "1.2273203452199999`"}, { RowBox[{"-", "0.7639595300199999`"}], RowBox[{"-", "0.19694724372`"}], RowBox[{"-", "0.98443386244`"}]}, {"3.7516730278`", RowBox[{"-", "0.105093332038`"}], "0.5981549707799999`"}, { RowBox[{"-", "3.4944813191999997`"}], RowBox[{"-", "0.9759867872199999`"}], RowBox[{"-", "0.43303071289999995`"}]}, {"4.8917447236000005`", "1.9088122326`", "2.3398587332`"}, { RowBox[{"-", "5.2715796496`"}], RowBox[{"-", "0.41660899395999995`"}], RowBox[{"-", "2.6558209203999996`"}]}, {"0.12160386810000001`", RowBox[{"-", "0.45065240785`"}], "0.12144324138999996`"}, {"2.37942014701`", RowBox[{"-", "0.404725452009`"}], "0.912737658`"}, { RowBox[{"-", "2.1292204246099997`"}], RowBox[{"-", "0.5864670154699999`"}], RowBox[{"-", "0.70873228767`"}]}, {"4.322043450415`", "0.9024504673922991`", "1.4695179865458992`"}, { RowBox[{"-", "4.38355130298782`"}], RowBox[{"-", "0.6961339523613943`"}], RowBox[{"-", "1.5450772552547678`"}]}, {"0.6055504572053294`", "0.1609086751148907`", "2.32301289577309`"}, {"0.9079054361244018`", RowBox[{"-", "2.1072336653034665`"}], "1.5917827398426556`"}, { RowBox[{"-", "0.30011935901280823`"}], RowBox[{"-", "0.9920808756645736`"}], RowBox[{"-", "2.1082596575744468`"}]}, { RowBox[{"-", "0.7378788695579501`"}], "1.2243469269154064`", RowBox[{"-", "1.2835943795046898`"}]}, {"4.51823540409117`", RowBox[{"-", "1.3255065256502532`"}], "0.7818936997624372`"}, {"3.8195570813721984`", "0.3740906983606488`", RowBox[{"-", "0.7716094621998203`"}]}, { RowBox[{"-", "3.9544655214587356`"}], RowBox[{"-", "0.2034210534670764`"}], "0.708064099592324`"}, { RowBox[{"-", "3.526386144757982`"}], RowBox[{"-", "2.4018338061884936`"}], RowBox[{"-", "0.1571625839955666`"}]}, {"4.130623473893738`", "3.1403732129934183`", "2.219295823863724`"}, {"4.8440900426839155`", "1.4429096598602968`", "3.71505606368154`"}, {"6.272068267407457`", "2.1533251373307203`", "1.9589833845428304`"}, { RowBox[{"-", "5.259496263149132`"}], "1.0082802285327135`", RowBox[{"-", "2.9387622390922163`"}]}, { RowBox[{"-", "4.824227491034789`"}], RowBox[{"-", "1.1470895869628097`"}], RowBox[{"-", "3.8291190552469034`"}]}, { RowBox[{"-", "6.62110456311839`"}], RowBox[{"-", "0.8307800906581089`"}], RowBox[{"-", "2.3128732411698736`"}]} }, 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.5710452388111043`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", 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", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", 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}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.00716726622`", RowBox[{"-", "0.70435757198`"}], "1.2273203452199999`"}, { RowBox[{"-", "0.7639595300199999`"}], RowBox[{"-", "0.19694724372`"}], RowBox[{"-", "0.98443386244`"}]}, {"3.7516730278`", RowBox[{"-", "0.105093332038`"}], "0.5981549707799999`"}, { RowBox[{"-", "3.4944813191999997`"}], RowBox[{"-", "0.9759867872199999`"}], RowBox[{"-", "0.43303071289999995`"}]}, {"4.8917447236000005`", "1.9088122326`", "2.3398587332`"}, { RowBox[{"-", "5.2715796496`"}], RowBox[{"-", "0.41660899395999995`"}], RowBox[{"-", "2.6558209203999996`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0.44816741816`", "0.49998370507999995`", "2.752385919`"}, {"0.8690093983599999`", RowBox[{"-", "2.6569547559999998`"}], "1.73459839266`"}, { RowBox[{"-", "0.11834598047599999`"}], RowBox[{"-", "1.30368417288`"}], RowBox[{"-", "2.5486734562`"}]}, { RowBox[{"-", "0.72765789356`"}], "1.7813502139`", RowBox[{"-", "1.40083498654`"}]}, {"4.8186123274`", RowBox[{"-", "1.80372456974`"}], "0.85389159036`"}, {"3.8461593277999997`", "0.56187223158`", RowBox[{"-", "1.3083895906199998`"}]}, { RowBox[{"-", "4.134720488`"}], "0.09932588828599999`", "1.1552272983199998`"}, { RowBox[{"-", "3.5388898802`"}], RowBox[{"-", "2.9606337241999996`"}], RowBox[{"-", "0.049047838329999996`"}]}, {"3.832364328`", "3.6229826872`", "2.1720510643999997`"}, {"4.825415340999999`", "1.26033385844`", "4.2539621986`"}, {"6.813029147799999`", "2.2491518852`", "1.80971500116`"}, { RowBox[{"-", "5.2547610881999995`"}], "1.56665844304`", RowBox[{"-", "3.0496398188`"}]}, { RowBox[{"-", "4.648914932599999`"}], RowBox[{"-", "1.433357171`"}], RowBox[{"-", "4.2889221295999995`"}]}, { RowBox[{"-", "7.1499672936`"}], RowBox[{"-", "0.99308880752`"}], RowBox[{"-", "2.1784761327999997`"}]} }, 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.571045238842304*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], "]"}]}], RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 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[{"1", "/", "sq"}], FontColor->RGBColor[1, 0, 0]], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 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", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}]}], "}"}]], "Output", CellChangeTimes->{3.571045238842304*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.5710452388579044`*^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[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}, { 3.570457123841494*^9, 3.5704571330923104`*^9}, {3.570457176959587*^9, 3.570457191296013*^9}, {3.570463789649801*^9, 3.570463797637015*^9}, { 3.5704639300032473`*^9, 3.5704639472412777`*^9}, {3.570464099403945*^9, 3.5704641196371803`*^9}, {3.570464183737693*^9, 3.5704641855628963`*^9}, { 3.570855532092019*^9, 3.5708555433240385`*^9}}], Cell[BoxData["297.26409881659987`"], "Output", CellChangeTimes->{3.5710452388735046`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"sc", "=", "0.4118"}], ";", " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sw", "=", "0.4246"}], ";", " ", 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}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.5710442384281473`*^9, 3.571044290017438*^9}, { 3.571044322761895*^9, 3.5710446121424036`*^9}, {3.5710446451208615`*^9, 3.571044670751707*^9}}], Cell[BoxData["346.5614839418233`"], "Output", CellChangeTimes->{3.5710452388891044`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"all", " ", "nuclei", " ", "with", " ", "all", " ", "clouds"}], ",", " ", RowBox[{ RowBox[{"except", " ", "i"}], " ", "=", " ", "j"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Vne", "=", RowBox[{"cnv", ".", RowBox[{"(", RowBox[{"ow", ".", "dcw"}], ")"}]}]}]}]], "Input", CellChangeTimes->{ 3.569233528637466*^9, 3.5692342309507*^9, {3.5704557844231415`*^9, 3.570455793127957*^9}}], Cell[BoxData[ RowBox[{"-", "612.5880764218134`"}]], "Output", CellChangeTimes->{3.5710452389047046`*^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[{"-", "1035.9003364213825`"}]], "Output", CellChangeTimes->{3.5710452389203043`*^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[{"-", "1068.3250278186622`"}]], "Output", CellChangeTimes->{3.5710452389359045`*^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["247.45391968715683`"], "Output", CellChangeTimes->{3.5710452389359045`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{ "Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", "Ttot", "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}}], Cell[BoxData["346.5614839418233`"], "Output", CellChangeTimes->{3.5710452389515047`*^9}], Cell[BoxData["247.45391968715683`"], "Output", CellChangeTimes->{3.571045238967105*^9}], Cell[BoxData[ RowBox[{"-", "1068.3250278186622`"}]], "Output", CellChangeTimes->{3.571045238967105*^9}], Cell[BoxData[ RowBox[{"-", "474.30962418968204`"}]], "Output", CellChangeTimes->{3.571045238967105*^9}], Cell[BoxData["237.31245363933382`"], "Output", CellChangeTimes->{3.571045238967105*^9}], Cell[BoxData["1.998671443136883`"], "Output", CellChangeTimes->{3.571045238967105*^9}], Cell[BoxData[ RowBox[{"-", "236.99717055034822`"}]], "Output", CellChangeTimes->{3.571045238967105*^9}] }, Open ]] }, WindowSize->{1409, 939}, WindowMargins->{{Automatic, 60}, {Automatic, 15}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 1480, 27, 52, "Input"], Cell[CellGroupData[{ Cell[2062, 51, 476, 9, 52, "Input"], Cell[2541, 62, 2835, 51, 240, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5413, 118, 821, 16, 52, "Input"], Cell[6237, 136, 2616, 68, 326, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8890, 209, 753, 12, 31, "Input"], Cell[9646, 223, 476, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10159, 236, 955, 14, 31, "Input"], Cell[11117, 252, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11227, 258, 1560, 29, 31, "Input"], Cell[12790, 289, 476, 8, 31, "Output"] }, Open ]], Cell[13281, 300, 1390, 22, 31, "Input"], Cell[14674, 324, 1566, 28, 31, "Input"], Cell[CellGroupData[{ Cell[16265, 356, 1234, 18, 31, "Input"], Cell[17502, 376, 1446, 43, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18985, 424, 697, 14, 31, "Input"], Cell[19685, 440, 319, 6, 31, "Output"] }, Open ]], Cell[20019, 449, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[20952, 477, 5635, 122, 52, "Input"], Cell[26590, 601, 384, 7, 31, "Output"], Cell[26977, 610, 390, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27404, 622, 519, 12, 31, "Input"], Cell[27926, 636, 476, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28439, 649, 1401, 38, 31, "Input"], Cell[29843, 689, 352, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30232, 701, 827, 23, 92, "Input"], Cell[31062, 726, 72, 1, 31, "Output"], Cell[31137, 729, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31247, 735, 428, 8, 52, "Input"], Cell[31678, 745, 89, 1, 31, "Output"] }, Open ]], Cell[31782, 749, 1824, 35, 72, "Input"], Cell[33609, 786, 935, 19, 31, "Input"], Cell[34547, 807, 4271, 83, 92, "Input"], Cell[38821, 892, 3292, 57, 31, "Input"], Cell[CellGroupData[{ Cell[42138, 953, 421, 8, 52, "Input"], Cell[42562, 963, 13312, 331, 96, "Output"] }, Open ]], Cell[55889, 1297, 2567, 59, 52, "Input"], Cell[58459, 1358, 1254, 35, 72, "Input"], Cell[CellGroupData[{ Cell[59738, 1397, 4783, 85, 72, "Input"], Cell[64524, 1484, 4827, 82, 326, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[69388, 1571, 2506, 53, 112, "Input"], Cell[71897, 1626, 70, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72004, 1632, 2272, 46, 72, "Input"], Cell[74279, 1680, 158, 4, 31, "Output"] }, Open ]], Cell[74452, 1687, 6123, 156, 152, "Input"], Cell[CellGroupData[{ Cell[80600, 1847, 3596, 80, 112, "Input"], Cell[84199, 1929, 432, 8, 31, "Output"] }, Open ]], Cell[84646, 1940, 2072, 49, 112, "Input"], Cell[86721, 1991, 561, 12, 52, "Input"], Cell[87285, 2005, 2148, 49, 92, "Input"], Cell[89436, 2056, 2452, 56, 92, "Input"], Cell[91891, 2114, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[93675, 2159, 923, 20, 31, "Input"], Cell[94601, 2181, 88, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[94726, 2187, 711, 18, 31, "Input"], Cell[95440, 2207, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[95564, 2213, 507, 10, 31, "Input"], Cell[96074, 2225, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[96201, 2231, 823, 23, 31, "Input"], Cell[97027, 2256, 86, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[97150, 2262, 204, 4, 31, "Input"], Cell[97357, 2268, 87, 1, 31, "Output"] }, Open ]], Cell[97459, 2272, 1971, 35, 92, "Input"], Cell[CellGroupData[{ Cell[99455, 2311, 1770, 24, 31, "Input"], Cell[101228, 2337, 5382, 92, 341, "Output"] }, Open ]], Cell[106625, 2432, 1655, 24, 31, "Input"], Cell[108283, 2458, 3760, 76, 72, "Input"], Cell[112046, 2536, 2696, 53, 92, "Input"], Cell[CellGroupData[{ Cell[114767, 2593, 939, 17, 72, "Input"], Cell[115709, 2612, 1759, 42, 72, "Output"], Cell[117471, 2656, 73, 1, 31, "Output"], Cell[117547, 2659, 72, 1, 31, "Output"] }, Open ]], Cell[117634, 2663, 10201, 233, 72, "Input"], Cell[127838, 2898, 6352, 102, 31, "Input"], Cell[134193, 3002, 10215, 234, 72, "Input"], Cell[144411, 3238, 5925, 93, 31, "Input"], Cell[CellGroupData[{ Cell[150361, 3335, 8525, 151, 112, "Input"], Cell[158889, 3488, 80482, 1338, 375, 9797, 177, "CachedBoxData", "BoxData", \ "Output"], Cell[239374, 4828, 7263, 121, 375, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[246674, 4954, 3879, 89, 152, "Input"], Cell[250556, 5045, 73, 1, 31, "Output"], Cell[250632, 5048, 3285, 81, 401, "Output"] }, Open ]], Cell[253932, 5132, 3049, 67, 72, "Input"], Cell[256984, 5201, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[258850, 5234, 3517, 75, 112, "Input"], Cell[262370, 5311, 2726, 73, 401, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[265133, 5389, 6437, 145, 132, "Input"], Cell[271573, 5536, 870, 28, 31, "Output"], Cell[272446, 5566, 416, 8, 31, "Output"] }, Open ]], Cell[272877, 5577, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[274765, 5608, 2963, 56, 112, "Input"], Cell[277731, 5666, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[277858, 5672, 2687, 57, 112, "Input"], Cell[280548, 5731, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[280674, 5737, 499, 15, 52, "Input"], Cell[281176, 5754, 106, 2, 31, "Output"] }, Open ]], Cell[281297, 5759, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[282703, 5784, 1709, 32, 52, "Input"], Cell[284415, 5818, 107, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[284559, 5825, 1415, 43, 72, "Input"], Cell[285977, 5870, 107, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[286121, 5877, 2550, 50, 92, "Input"], Cell[288674, 5929, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[288801, 5935, 1351, 23, 172, "Input"], Cell[290155, 5960, 89, 1, 31, "Output"], Cell[290247, 5963, 88, 1, 31, "Output"], Cell[290338, 5966, 105, 2, 31, "Output"], Cell[290446, 5970, 105, 2, 31, "Output"], Cell[290554, 5974, 88, 1, 31, "Output"], Cell[290645, 5977, 87, 1, 31, "Output"], Cell[290735, 5980, 105, 2, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)