(* 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[ 207385, 4337] NotebookOptionsPosition[ 203259, 4208] NotebookOutlinePosition[ 203795, 4229] CellTagsIndexPosition[ 203752, 4226] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "ChemData", " ", "source"}], ",", " ", RowBox[{"ES", " ", "end", " ", "january", " ", "2013"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", "Plot9", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, 3.568284752749406*^9, 3.5682847957898817`*^9, {3.5682872948362713`*^9, 3.568287369232802*^9}, { 3.5683911898567343`*^9, 3.568391205612762*^9}, 3.5685665220166903`*^9, 3.568615530503583*^9, 3.568628204107724*^9, {3.568631404950552*^9, 3.568631407742957*^9}, {3.570508403062002*^9, 3.570508416821226*^9}}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJw1Um1Ik1EUXhbLguxDhYa5NZNQqMzEJGLzpM2JkvmdNSf7dLIP926OpW4J ISM0JCVC8k8/LCgI64epP6wOUzOjCDQxlCL7I2YGEUYzou69hw5cXu655zzP c573qC3eSnucTCZLY2crO3Wnhl8Gn1Xg/ReleV3qQry0qyt05Ao+b+QhPwfO 8cDN/ZOZ2LZ6ODu+vhQWBiXNzhUD7uGNJwtAFVmrGNMa8S5LL8yZQeS1NQCJ 5om5NRUutycN6dWnMYeHwQRjStaAdlRsq004OltH93Ir4fY3IEMZlHQ2FPdr Jpw6+NjftLcEfmbU34jqDCB4DlUjL9Ms2ij/1INNfevh/NzjMHCbxYwdJzbY w6IEmex545cBuEzlk7PUv92PQ3qmLMGKen9s9+poErKqjPo7HmBsfesHSpB0 uUDo9wTwG0NvcFaRPo8RvzK4yFILXL1VeN09qgNxt1ohJetDulxdhoK32EH9 uRK+ec0ibCP+HDf5dsyOQv+UCYXfIw7SpTWD4BsohkouxGdFDpcx6SSfHkno Wfn94PtmBeGUSejjwoYDxKdwQJq7tf3ewxT6L3lB+ia6cSnW4RyvLgDBI/eR L/MXUfimaIEk/hBup3k3a0lfso3mjrWBmhuUWk59qU1QNPLjz7v3OtI9awVR l+wifX4T8UQdVK+xEE/EgkqRsOGn8z39zdELwGFaZ6rIn04j7ctbB83f48Vp tp5n4ovI5xwX4Uz7IcQFd1tgy8e4Hd352dSvCpD/vQ5M7//b2xHKoj2Z90Lz vk585atC0WeSgNu1HLhM856oob1qNKPw4UsQPvOCWMn/vYV/O76E4A== "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[15, 24.], SphereBox[16, 24.], SphereBox[17, 24.], SphereBox[18, 24.], SphereBox[19, 24.], SphereBox[20, 24.], SphereBox[21, 24.], SphereBox[22, 24.], SphereBox[23, 24.], SphereBox[24, 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.], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.], SphereBox[10, 34.], SphereBox[11, 34.], SphereBox[12, 34.], SphereBox[13, 34.], SphereBox[14, 34.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{25, 15}, 15.], CylinderBox[{26, 16}, 15.], CylinderBox[{27, 17}, 15.], CylinderBox[{28, 18}, 15.], CylinderBox[{29, 19}, 15.], CylinderBox[{30, 20}, 15.], CylinderBox[{31, 21}, 15.], CylinderBox[{32, 22}, 15.], CylinderBox[{33, 23}, 15.], CylinderBox[{34, 24}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{1, 2}, 15.], CylinderBox[{1, 3}, 15.], CylinderBox[{1, 7}, 15.], CylinderBox[{2, 4}, 15.], CylinderBox[{2, 8}, 15.], CylinderBox[{3, 5}, 15.], CylinderBox[{3, 9}, 15.], CylinderBox[{4, 6}, 15.], CylinderBox[{4, 10}, 15.], CylinderBox[{5, 6}, 15.], CylinderBox[{5, 25}, 15.], CylinderBox[{6, 26}, 15.], CylinderBox[{7, 11}, 15.], CylinderBox[{7, 27}, 15.], CylinderBox[{8, 12}, 15.], CylinderBox[{8, 28}, 15.], CylinderBox[{9, 13}, 15.], CylinderBox[{9, 29}, 15.], CylinderBox[{10, 14}, 15.], CylinderBox[{10, 30}, 15.], CylinderBox[{11, 13}, 15.], CylinderBox[{11, 31}, 15.], CylinderBox[{12, 14}, 15.], CylinderBox[{12, 32}, 15.], CylinderBox[{13, 33}, 15.], CylinderBox[{14, 34}, 15.]}}]}, Boxed->False, ImageSize->308.91253439573023`, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.570508574506303*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"t", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}], ";"}], " "}]], "Input", CellChangeTimes->{{3.567862912170579*^9, 3.567862949329844*^9}, { 3.5678630095303497`*^9, 3.5678630107471523`*^9}, {3.5679573013548217`*^9, 3.5679573132576427`*^9}, 3.568114367533684*^9, {3.5682782383334675`*^9, 3.5682782435438766`*^9}, 3.5682847420789876`*^9, 3.568284795821082*^9, { 3.568287382898426*^9, 3.5682873928356433`*^9}, 3.568566526821499*^9, 3.568615530503583*^9, {3.568623871740513*^9, 3.5686239073709755`*^9}, { 3.5686239374634285`*^9, 3.5686239652158775`*^9}, {3.5686240254007826`*^9, 3.5686240291135893`*^9}, {3.568624068550459*^9, 3.5686241298273664`*^9}, 3.5686241856286645`*^9, 3.568628204107724*^9, 3.568631432625001*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bt", "=", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, 3.567869231084096*^9, 3.5678693210962543`*^9, { 3.567869354027912*^9, 3.5678693684423375`*^9}, {3.5682782542610955`*^9, 3.5682782564138994`*^9}, 3.568284752702606*^9, 3.568284795821082*^9, 3.568566526821499*^9, 3.568615530519183*^9, {3.5686196140291557`*^9, 3.568619615745158*^9}, 3.568628204107724*^9, 3.568631432625001*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>"}], "}"}], ",", "2"}], "}"}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>"}], "}"}], ",", "1"}], "}"}], ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"H\"\>"}], "}"}], ",", "1"}], "}"}], ",", "10"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570508574568703*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "1"}], "}"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "1"}], "}"}], ",", "10"}], "}"}]}], "}"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bc", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bh", "=", "10"}], ";"}]}], "Input", CellChangeTimes->{{3.568619649566018*^9, 3.5686197006249075`*^9}, { 3.5686315613096266`*^9, 3.5686315730408473`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>"}], "}"}], ",", "1"}], "}"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"H\"\>"}], "}"}], ",", "1"}], "}"}], ",", "10"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570508574584303*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, {3.567943087867528*^9, 3.567943093733138*^9}, 3.567943185211699*^9, 3.5679432253505697`*^9, 3.5679433277647495`*^9, { 3.5679434430645523`*^9, 3.5679434440941534`*^9}, {3.568278260766307*^9, 3.5682782624355097`*^9}, 3.568284752702606*^9, 3.568284795852282*^9, 3.568566526837099*^9, 3.568615530519183*^9, 3.5686282041233244`*^9, 3.568631432625001*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.570508574599903*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", RowBox[{"Length", "[", "u", "]"}]}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, 3.5705084593313007`*^9}], Cell[BoxData["24"], "Output", CellChangeTimes->{3.5705085746155033`*^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"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 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[{"t", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}], "\[IndentingNewLine]", RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.2556", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.1", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.213", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0", ",", "178"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.2556", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.564", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.213", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0", ",", "178"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5686154384478216`*^9, 3.568615482112298*^9}, { 3.5686157311667356`*^9, 3.568615736252344*^9}, {3.56861579063404*^9, 3.568615829727709*^9}, {3.56861597290476*^9, 3.568615973981162*^9}, { 3.56861739044805*^9, 3.5686174033960724`*^9}, {3.5686241445225925`*^9, 3.568624159108618*^9}, {3.568624862622655*^9, 3.568624863137456*^9}, { 3.5686270815141525`*^9, 3.5686273366682005`*^9}, {3.5686274562268105`*^9, 3.5686274982844844`*^9}, {3.5686278155110416`*^9, 3.568627853465908*^9}, 3.568628035393428*^9, {3.570507898120315*^9, 3.570507899914318*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.5705085746311035`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{3.5705085746467032`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`"}], "}"}]], "Output", CellChangeTimes->{3.5705085746467032`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.568284795883482*^9, 3.568284795883482*^9}, 3.568566526837099*^9, 3.568615530519183*^9, 3.5686282041233244`*^9, 3.5686314326406007`*^9}], Cell[BoxData["\<\"C14H10\"\>"], "Output", CellChangeTimes->{3.570508574662303*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.5"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 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[{"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.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.568615628331355*^9, { 3.568628116965971*^9, 3.5686281181983733`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", RowBox[{"{", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], "}"}]}], "]"}]], "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.568120119762987*^9, 3.5681201279374013`*^9}, {3.5681212588145876`*^9, 3.5681212809978266`*^9}, 3.568121331261115*^9, {3.5682660696812944`*^9, 3.5682660793689113`*^9}, {3.5682661730782757`*^9, 3.5682661751998796`*^9}, 3.568266213092346*^9, {3.568266308392914*^9, 3.5682663102025166`*^9}, { 3.568266350887388*^9, 3.5682663517297897`*^9}, 3.568266419574309*^9, { 3.5683892670285573`*^9, 3.5683892701017623`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.34125192576, -0.72304696212, -0.0024343450331999997`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.096985943, -0.24345340057999998`, 1.03403916994}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.1091231886, 0.6883893872799999, -2.2106014748}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6951272212, 1.6059080520599998`, -0.15080580397799997`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.5126826637999999, 2.472706471, -3.2883122125999997`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.87619556184, 2.9198156425999997`, -2.3122687336}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0645686541999995`, -2.4985957171999997`, 0.98522754736}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.0615020934, -1.5223632656, 3.1524409131999995`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.4962250718, 0.30628679008, -3.293792418}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.0958351316, 2.1144144214, 0.7826300228999999}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.4516705374, -2.8806983144, -0.09788024789599999}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.4782726747999995`, -0.9869283007599999, 4.1292402826}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.1761914857999995`, -1.46759900612, -2.2243964746}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.0040374472, 0.8207646935799999, 2.9311539986}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.13871109308, 3.5201815927999998`, -4.9006264358}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.097260914, 4.2635998012, -3.2023296796}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.5356343468, -3.5848102219999998`, 2.6066880444}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.9298585755600001, -2.9396577656, 4.0464702838}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.044434584399999, 1.35910983646, -4.9306730792}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.2604732654, 3.4920246753999997`, -0.13074258303599998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.7177869573999995`, -4.2447025412, 0.69281134612}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.1472356787999995`, -1.9526538757999998`, 5.775002656}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.0082808428, -1.7368849611200001`, -3.0364117368}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.853512283399999, 1.21815517412, 3.6454704265999998`}, 0.1]}, Text3DBox["1", {-1.84125192576, -0.72304696212, -0.0024343450331999997`}, { 1, 0}], Text3DBox["2", {0.596985943, -0.24345340057999998`, 1.03403916994}, {1, 0}], Text3DBox["3", {-2.6091231886, 0.6883893872799999, -2.2106014748}, {1, 0}], Text3DBox["4", {2.1951272212, 1.6059080520599998`, -0.15080580397799997`}, {1, 0}], Text3DBox["5", {-1.0126826638, 2.472706471, -3.2883122125999997`}, {1, 0}], Text3DBox["6", {1.37619556184, 2.9198156425999997`, -2.3122687336}, {1, 0}], Text3DBox["7", {-3.5645686541999995`, -2.4985957171999997`, 0.98522754736}, {1, 0}], Text3DBox["8", {1.5615020934000001`, -1.5223632656, 3.1524409131999995`}, { 1, 0}], Text3DBox["9", {-4.9962250718, 0.30628679008, -3.293792418}, {1, 0}], Text3DBox["10", {4.5958351316, 2.1144144214, 0.7826300228999999}, {1, 0}], Text3DBox[ "11", {-5.9516705374, -2.8806983144, -0.09788024789599999}, {1, 0}], Text3DBox["12", {3.9782726747999995`, -0.9869283007599999, 4.1292402826}, { 1, 0}], Text3DBox[ "13", {-6.6761914857999995`, -1.46759900612, -2.2243964746}, {1, 0}], Text3DBox["14", {5.5040374472, 0.8207646935799999, 2.9311539986}, {1, 0}], Text3DBox["15", {-1.63871109308, 3.5201815927999998`, -4.9006264358}, {1, 0}], Text3DBox["16", {2.597260914, 4.2635998012, -3.2023296796}, {1, 0}], Text3DBox["17", {-3.0356343468, -3.5848102219999998`, 2.6066880444}, {1, 0}], Text3DBox["18", {0.42985857556000007`, -2.9396577656, 4.0464702838}, {1, 0}], Text3DBox["19", {-5.544434584399999, 1.35910983646, -4.9306730792}, {1, 0}], Text3DBox["20", {5.7604732654, 3.4920246753999997`, -0.13074258303599998`}, {1, 0}], Text3DBox["21", {-7.2177869573999995`, -4.2447025412, 0.69281134612}, {1, 0}], Text3DBox["22", {4.6472356787999995`, -1.9526538757999998`, 5.775002656}, {1, 0}], Text3DBox["23", {-8.5082808428, -1.7368849611200001`, -3.0364117368}, {1, 0}], Text3DBox["24", {7.353512283399999, 1.21815517412, 3.6454704265999998`}, {1, 0}]}, AspectRatio->Automatic]], "Output", CellChangeTimes->{3.5705085746935034`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.568284752733806*^9, 3.568284795914682*^9, 3.568566526852699*^9, 3.5686155305347834`*^9, 3.5686282041389246`*^9, 3.5686314326406007`*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {380., -26.729999999999997`}], LineBox[{{397.7521058060765, -16.48051627824684}, { 423.3, -1.7299999999999986`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {466.6, 23.27}], LineBox[{{423.3, -1.7299999999999986`}, {448.84789419392354`, 13.020516278246843`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {380., -26.729999999999997`}], LineBox[{{380., -47.2285164612617}, {380., -76.73}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {380., -126.73}], LineBox[{{380., -76.73}, {380., -106.2314835387383}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {380., -26.729999999999997`}], LineBox[{{{359.73494442873806`, -20.67684112993203}, { 332.6315, -4.464499999999997}}, {{ 365.08194442873804`, -11.737841129932027`}, {337.9785, 4.474500000000002}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {290.61, 26.740000000000002`}], LineBox[{{{332.6315, -4.464499999999997}, {305.528055571262, 11.747841129932032`}}, {{337.9785, 4.474500000000002}, { 310.87505557126195`, 20.686841129932034`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {466.6, 23.27}], LineBox[{{484.35261823624325`, 13.021403858536425`}, { 509.90500000000003`, -1.7299999999999986`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {553.21, -26.729999999999997`}], LineBox[{{509.90500000000003`, -1.7299999999999986`}, { 535.4573817637569, -16.481403858536424`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {466.6, 23.27}], LineBox[{{{461.0776295552653, 43.686098011954606`}, {460.5925000000001, 75.265}}, {{471.49262955526524`, 43.8460980119546}, { 471.00750000000005`, 75.425}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {465.00000000000006`, 127.42}], LineBox[{{{460.5925000000001, 75.265}, {460.10737044473484`, 106.8439019880454}}, {{471.00750000000005`, 75.425}, { 470.5223704447348, 107.0039019880454}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {380., -126.73}], LineBox[{{397.7521058060765, -136.97948372175316`}, { 423.3, -151.73000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {466.6, -176.73000000000002`}], LineBox[{{423.3, -151.73000000000002`}, { 448.84789419392354`, -166.48051627824685`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {380., -126.73}], LineBox[{{{365.08194442873804`, -141.72215887006797`}, { 337.9785, -157.9345}}, {{359.73494442873806`, -132.78315887006798`}, { 332.6315, -148.9955}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {290.61, -180.20000000000002`}], LineBox[{{{337.9785, -157.9345}, { 310.87505557126195`, -174.14684112993206`}}, {{332.6315, -148.9955}, { 305.528055571262, -165.20784112993204`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {553.21, -26.729999999999997`}], LineBox[{{553.21, -47.2285164612617}, {553.21, -76.73}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {553.21, -126.73}], LineBox[{{553.21, -76.73}, {553.21, -106.2314835387383}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {553.21, -26.729999999999997`}], LineBox[{{{568.5845207228475, -12.206331535891108`}, {596.176, 3.160000000000001}}, {{573.6525207228475, -21.30633153589111}, { 601.244, -5.939999999999999}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {644.21, 23.95}], LineBox[{{{596.176, 3.160000000000001}, {623.7674792771526, 18.52633153589111}}, {{601.244, -5.939999999999999}, { 628.8354792771526, 9.42633153589111}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {466.6, -176.73000000000002`}], LineBox[{{{481.85261823624325`, -162.15090385853645`}, { 507.40500000000003`, -147.39950000000002`}}, {{ 486.85261823624325`, -170.81190385853645`}, { 512.4050000000001, -156.06050000000002`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {553.21, -126.73}], LineBox[{{{507.40500000000003`, -147.39950000000002`}, { 532.9573817637569, -132.64809614146358`}}, {{ 512.4050000000001, -156.06050000000002`}, { 537.9573817637569, -141.30909614146358`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {466.6, -176.73000000000002`}], LineBox[{{466.6, -197.22851646126173`}, {466.6, -207.73000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {466.6, -238.73000000000002`}], LineBox[{{466.6, -207.73000000000002`}, {466.6, -218.2314835387383}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {553.21, -126.73}], LineBox[{{570.9619404776207, -136.9797700653053}, { 580.0550000000001, -142.23}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {606.9, -157.73}], LineBox[{{580.0550000000001, -142.23}, { 589.1480595223793, -147.48022993469465`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {290.61, 26.740000000000002`}], LineBox[{{272.77957912762804`, 16.627370835104337`}, {245.305, 1.0450000000000017`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {200., -24.65}], LineBox[{{245.305, 1.0450000000000017`}, { 217.83042087237197`, -14.537370835104333`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {290.61, 26.740000000000002`}], LineBox[{{290.84476354533473`, 47.237172077884274`}, { 290.96500000000003`, 57.735}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {291.32, 88.73}], LineBox[{{290.96500000000003`, 57.735}, {291.08523645466533`, 68.23282792211573}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {465.00000000000006`, 127.42}], LineBox[{{482.67211519377645`, 137.8067955448499}, {509.9, 153.81}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {554.8, 180.20000000000002`}], LineBox[{{509.9, 153.81}, {537.1278848062235, 169.81320445515013`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {465.00000000000006`, 127.42}], LineBox[{{447.1307286269153, 137.46381987630554`}, {437.975, 142.61}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {410.95, 157.8}], LineBox[{{437.975, 142.61}, {428.81927137308475`, 147.75618012369446`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {290.61, -180.20000000000002`}], LineBox[{{272.77957912762804`, -170.08737083510434`}, { 245.305, -154.505}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {200., -128.81}], LineBox[{{245.305, -154.505}, { 217.83042087237197`, -138.92262916489565`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {290.61, -180.20000000000002`}], LineBox[{{290.84476354533473`, -200.6971720778843}, { 290.96500000000003`, -211.195}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {291.32, -242.19}], LineBox[{{290.96500000000003`, -211.195}, { 291.08523645466533`, -221.69282792211573`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {644.21, 23.95}], LineBox[{{644.3674340390536, 44.44791188477412}, {644.61, 76.02999999999999}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {645.01, 128.10999999999999`}], LineBox[{{644.61, 76.02999999999999}, {644.8525659609464, 107.61208811522586`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {644.21, 23.95}], LineBox[{{661.8436795896923, 13.498085283514463`}, {670.875, 8.145}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {697.54, -7.66}], LineBox[{{670.875, 8.145}, {679.9063204103077, 2.791914716485536}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {200., -24.65}], LineBox[{{{205.208, -45.1485164612617}, {205.208, -76.73}}, {{ 194.792, -45.1485164612617}, {194.792, -76.73}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {200., -128.81}], LineBox[{{{205.208, -76.73}, {205.208, -108.3114835387383}}, {{ 194.792, -76.73}, {194.792, -108.3114835387383}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {200., -24.65}], LineBox[{{182.2881804986417, -14.331054944233848`}, { 173.215, -9.044999999999998}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {146.43, 6.5600000000000005`}], LineBox[{{173.215, -9.044999999999998}, { 164.1418195013583, -3.7589450557661497`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {554.8, 180.20000000000002`}], LineBox[{{{575.1561197155006, 174.46017441547028`}, {602.5095, 158.6655}}, {{569.9471197155005, 165.43917441547026`}, { 597.3004999999999, 149.6445}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {645.01, 128.10999999999999`}], LineBox[{{{602.5095, 158.6655}, {629.8628802844994, 142.87082558452974`}}, {{597.3004999999999, 149.6445}, { 624.6538802844993, 133.84982558452973`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {554.8, 180.20000000000002`}], LineBox[{{554.7206514985132, 200.6983628840922}, {554.6800000000001, 211.20000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {554.5600000000001, 242.20000000000002`}], LineBox[{{554.6800000000001, 211.20000000000002`}, {554.6393485014869, 221.70163711590783`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {200., -128.81}], LineBox[{{182.2881804986417, -139.12894505576617`}, { 173.215, -144.41500000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {146.43, -160.02}], LineBox[{{173.215, -144.41500000000002`}, { 164.14181950135833`, -149.70105494423387`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {645.01, 128.10999999999999`}], LineBox[{{662.8003673424339, 138.29292722815393`}, {671.915, 143.51}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.052938112364765866`], FontWeight->Plain], {698.82, 158.91}], LineBox[{{671.915, 143.51}, {681.0296326575661, 148.72707277184608`}}]}}}, {}, {}}, ImageSize->{{0., 188.89982194861412`}, {0., 173.76979563196423`}}, PlotRange->{{129.8583, 715.3917}, {-273.1870329225234, 265.44777469189256`}}]], "Output", CellChangeTimes->{3.5705085747559032`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "matrix", " ", "Bohr"}], " ", "*)"}], "Text"]], "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.568286391407484*^9, 3.568286398053096*^9}, { 3.56856731902209*^9, 3.568567323936099*^9}, {3.5686259672509956`*^9, 3.568625969107399*^9}, {3.568626068916374*^9, 3.5686260698991756`*^9}, { 3.570507791072927*^9, 3.5705077982645397`*^9}, 3.5705079472448015`*^9, 3.570508070110617*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vnn", "=", "0"}], ";"}], "\[IndentingNewLine]", 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.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.568286391407484*^9, 3.568286398053096*^9}, { 3.56856731902209*^9, 3.568567323936099*^9}, {3.5686259672509956`*^9, 3.568625969107399*^9}, {3.568626068916374*^9, 3.5686260698991756`*^9}, { 3.570507791072927*^9, 3.5705077982645397`*^9}, 3.5705079472448015`*^9, 3.570508070110617*^9, 3.5705081683595896`*^9, {3.570508250899335*^9, 3.57050828269219*^9}}], Cell[BoxData["776.9001733293758`"], "Output", CellChangeTimes->{3.5705085747871037`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ";", " ", RowBox[{"sq", "<", "3.0"}]}], ",", "sq", ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", " ", RowBox[{"sq", "<", "3.0"}]}], ",", "sq", ",", "\"\< \>\""}], "]"}], ",", 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.568286391407484*^9, 3.568286398053096*^9}, { 3.56856731902209*^9, 3.568567323936099*^9}, {3.5686259672509956`*^9, 3.568625969107399*^9}, {3.568626068916374*^9, 3.5686260698991756`*^9}, { 3.570507791072927*^9, 3.5705077982645397`*^9}, 3.5705079472448015`*^9, 3.570508070110617*^9, {3.5705083125194426`*^9, 3.570508319633055*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.692450786210739`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.7308937946550835`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.716256788268776`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.6256180679695524`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.6587448571291814`", "2.6190278083984095`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"2.6641827906269864`", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.6558478482539085`", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.6490678388811557`", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.625505597330903`", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "2.649033841178381`", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "2.661129018434458`", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.666939379492624`", "0", "2.654025531559044`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.667305070386156`", "0", "2.651626453026834`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.0220467055411273`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "2.022118924975569`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "2.0220701262428635`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "2.0220359212177645`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.0219664526654593`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219894935190466`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220661503940573`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022046284511372`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219879138211168`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220594261968423`", "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.570508574802704*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", " ", RowBox[{"sq", "<", "3.0"}]}], ",", RowBox[{"0.529177", "*", "sq"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Eij", "]"}], ";"}], "*)"}]], "Input", CellChangeTimes->{{3.5679574512554846`*^9, 3.5679574566530943`*^9}, { 3.5679575983637433`*^9, 3.5679576252893906`*^9}, {3.5679577071427345`*^9, 3.5679577424611964`*^9}, 3.567958973147358*^9, {3.5679591782097178`*^9, 3.56795917902092*^9}, {3.567959225290601*^9, 3.567959254322252*^9}, { 3.5682778318055534`*^9, 3.568277834176758*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"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.5685673432021327`*^9, 3.5685673517353477`*^9}, {3.568625843839179*^9, 3.568625849782789*^9}, { 3.568626005627063*^9, 3.568626007389866*^9}, {3.568626080553994*^9, 3.5686260810375953`*^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}], 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[{"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.568567050623619*^9, 3.56856705698843*^9}, { 3.568625871295227*^9, 3.568625877160837*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", 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.568285867917365*^9, 3.568285868634966*^9}, { 3.5685662802006655`*^9, 3.5685663279991493`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ 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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Total", " ", "kinetic", " ", "energy", " ", "in", " ", "Eh"}], ",", " ", RowBox[{"=", " ", RowBox[{"|", "Etot", "|"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Tsigma", "=", RowBox[{ 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"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"2.25", "/", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "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.568286113290196*^9, 3.5682861137113967`*^9}, {3.5682870401502237`*^9, 3.5682870902263117`*^9}, 3.568566812692001*^9, {3.56856697153148*^9, 3.568566972342681*^9}, {3.5686252771057835`*^9, 3.5686252869962006`*^9}, { 3.5686253620323324`*^9, 3.568625362874734*^9}, {3.5686254979241714`*^9, 3.568625499718174*^9}, {3.5686260279195023`*^9, 3.568626034424713*^9}, { 3.568626091162013*^9, 3.5686260974956245`*^9}}], Cell[BoxData["599.6062156845509`"], "Output", CellChangeTimes->{3.5705085748495035`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, 3.5685663358303633`*^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.568567024103572*^9, 3.5685670312327847`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\<\" \"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\ \"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", \ "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>"}, {"\<\"C\"\>", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.0906253931053698`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.109846897327542`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "1.1025283941343882`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "1.0572090339847764`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "1.0737724285645909`", "1.053913904199205`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "1.0764913953134934`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "1.0723239241269544`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "1.068933919440578`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "1.0571527986654516`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "1.0689169205891906`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "1.074964509217229`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.0778696897463123`", "0", "1.0714127657795223`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.078052535193078`", "0", "1.0702132265134172`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "1.2024467055411272`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "1.2025189249755688`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "1.2024701262428634`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "1.2024359212177644`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.2023664526654592`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2023894935190464`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2024661503940572`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2024462845113717`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2023879138211166`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2024594261968422`", "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.5705085748651037`*^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[CellGroupData[{ 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[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Print", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", RowBox[{"i", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"j", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0906253931053698`"}], SequenceForm["C", 2, " ", "C", 1, " ", 1.0906253931053698`], Editable->False]], "Print", CellChangeTimes->{3.570508574880704*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.109846897327542`"}], SequenceForm["C", 3, " ", "C", 1, " ", 1.109846897327542], Editable->False]], "Print", CellChangeTimes->{3.570508574880704*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1025283941343882`"}], SequenceForm["C", 4, " ", "C", 2, " ", 1.1025283941343882`], Editable->False]], "Print", CellChangeTimes->{3.570508574880704*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0572090339847764`"}], SequenceForm["C", 5, " ", "C", 3, " ", 1.0572090339847764`], Editable->False]], "Print", CellChangeTimes->{3.570508574880704*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0737724285645909`"}], SequenceForm["C", 6, " ", "C", 4, " ", 1.0737724285645909`], Editable->False]], "Print", CellChangeTimes->{3.570508574880704*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.053913904199205`"}], SequenceForm["C", 6, " ", "C", 5, " ", 1.053913904199205], Editable->False]], "Print", CellChangeTimes->{3.570508574880704*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0764913953134934`"}], SequenceForm["C", 7, " ", "C", 1, " ", 1.0764913953134934`], Editable->False]], "Print", CellChangeTimes->{3.5705085748963037`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0723239241269544`"}], SequenceForm["C", 8, " ", "C", 2, " ", 1.0723239241269544`], Editable->False]], "Print", CellChangeTimes->{3.5705085748963037`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.068933919440578`"}], SequenceForm["C", 9, " ", "C", 3, " ", 1.068933919440578], Editable->False]], "Print", CellChangeTimes->{3.5705085748963037`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0571527986654516`"}], SequenceForm["C", 10, " ", "C", 4, " ", 1.0571527986654516`], Editable->False]], "Print", CellChangeTimes->{3.5705085748963037`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0689169205891906`"}], SequenceForm["C", 11, " ", "C", 7, " ", 1.0689169205891906`], Editable->False]], "Print", CellChangeTimes->{3.5705085748963037`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.074964509217229`"}], SequenceForm["C", 12, " ", "C", 8, " ", 1.074964509217229], Editable->False]], "Print", CellChangeTimes->{3.5705085748963037`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0778696897463123`"}], SequenceForm["C", 13, " ", "C", 9, " ", 1.0778696897463123`], Editable->False]], "Print", CellChangeTimes->{3.5705085748963037`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0714127657795223`"}], SequenceForm["C", 13, " ", "C", 11, " ", 1.0714127657795223`], Editable->False]], "Print", CellChangeTimes->{3.5705085749119034`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.078052535193078`"}], SequenceForm["C", 14, " ", "C", 10, " ", 1.078052535193078], Editable->False]], "Print", CellChangeTimes->{3.5705085749119034`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0702132265134172`"}], SequenceForm["C", 14, " ", "C", 12, " ", 1.0702132265134172`], Editable->False]], "Print", CellChangeTimes->{3.5705085749119034`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2024467055411272`"}], SequenceForm["H", 15, " ", "C", 5, " ", 1.2024467055411272`], Editable->False]], "Print", CellChangeTimes->{3.5705085749119034`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2025189249755688`"}], SequenceForm["H", 16, " ", "C", 6, " ", 1.2025189249755688`], Editable->False]], "Print", CellChangeTimes->{3.5705085749119034`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2024701262428634`"}], SequenceForm["H", 17, " ", "C", 7, " ", 1.2024701262428634`], Editable->False]], "Print", CellChangeTimes->{3.5705085749119034`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2024359212177644`"}], SequenceForm["H", 18, " ", "C", 8, " ", 1.2024359212177644`], Editable->False]], "Print", CellChangeTimes->{3.5705085749119034`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2023664526654592`"}], SequenceForm["H", 19, " ", "C", 9, " ", 1.2023664526654592`], Editable->False]], "Print", CellChangeTimes->{3.5705085749275036`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2023894935190464`"}], SequenceForm["H", 20, " ", "C", 10, " ", 1.2023894935190464`], Editable->False]], "Print", CellChangeTimes->{3.5705085749275036`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2024661503940572`"}], SequenceForm["H", 21, " ", "C", 11, " ", 1.2024661503940572`], Editable->False]], "Print", CellChangeTimes->{3.5705085749275036`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "22", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2024462845113717`"}], SequenceForm["H", 22, " ", "C", 12, " ", 1.2024462845113717`], Editable->False]], "Print", CellChangeTimes->{3.5705085749275036`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "23", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2023879138211166`"}], SequenceForm["H", 23, " ", "C", 13, " ", 1.2023879138211166`], Editable->False]], "Print", CellChangeTimes->{3.5705085749275036`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "24", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2024594261968422`"}], SequenceForm["H", 24, " ", "C", 14, " ", 1.2024594261968422`], Editable->False]], "Print", CellChangeTimes->{3.5705085749275036`*^9}] }, Open ]] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"nb", "=", RowBox[{"Length", "[", "a", "]"}]}]}], "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.568389047208571*^9, 3.5683890542753835`*^9}, {3.5683902124526176`*^9, 3.5683902131078186`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1.0906253931053698`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "1.109846897327542`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "1.1025283941343882`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "1.0572090339847764`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "1.0737724285645909`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1.053913904199205`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1", ",", "1.0764913953134934`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "2", ",", "1.0723239241269544`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "3", ",", "1.068933919440578`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "4", ",", "1.0571527986654516`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "7", ",", "1.0689169205891906`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "8", ",", "1.074964509217229`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "9", ",", "1.0778696897463123`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "11", ",", "1.0714127657795223`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "10", ",", "1.078052535193078`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "12", ",", "1.0702132265134172`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "5", ",", "1.2024467055411272`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "6", ",", "1.2025189249755688`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "7", ",", "1.2024701262428634`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "8", ",", "1.2024359212177644`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "9", ",", "1.2023664526654592`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "10", ",", "1.2023894935190464`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "11", ",", "1.2024661503940572`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "12", ",", "1.2024462845113717`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "13", ",", "1.2023879138211166`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "14", ",", "1.2024594261968422`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570508574958704*^9}], Cell[BoxData["26"], "Output", CellChangeTimes->{3.570508574958704*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"wx", "=", 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", ",", "bc"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"wy", "=", 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", ",", "bc"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"wz", "=", 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", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Gray", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wx", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wy", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[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.5682852978767633`*^9, 3.568285382460112*^9}, { 3.568285675366227*^9, 3.568285707861084*^9}, {3.568285985822372*^9, 3.568285991485182*^9}, {3.568286358600627*^9, 3.568286369505046*^9}, { 3.5682869898869357`*^9, 3.568287001134555*^9}, {3.56838891559114*^9, 3.568388937930379*^9}, {3.568391616907484*^9, 3.568391624754298*^9}, { 3.568391667342373*^9, 3.5683916742531853`*^9}, {3.568391794825797*^9, 3.5683917959489985`*^9}, {3.5683918276482544`*^9, 3.56839185905111*^9}, { 3.5683919288612328`*^9, 3.5683919590316854`*^9}, {3.568524054858098*^9, 3.5685240555756993`*^9}, {3.5685666362556906`*^9, 3.568566666394944*^9}, { 3.5685667055978127`*^9, 3.5685667164398317`*^9}, {3.5686174374353323`*^9, 3.568617488572222*^9}, {3.568618796213319*^9, 3.568618805526535*^9}, { 3.568619728205756*^9, 3.5686197473469896`*^9}, 3.5704273874727287`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"wx", "=", 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[{"bc", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wy", "=", 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[{"bc", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wz", "=", 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[{"bc", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wx", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wy", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], "\[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.5682852978767633`*^9, 3.568285382460112*^9}, { 3.568285675366227*^9, 3.568285707861084*^9}, {3.568285985822372*^9, 3.568285991485182*^9}, {3.568286358600627*^9, 3.568286369505046*^9}, { 3.5682869898869357`*^9, 3.568287001134555*^9}, {3.56838891559114*^9, 3.5683889530312057`*^9}, {3.5683893397246847`*^9, 3.568389482371335*^9}, { 3.568389512432588*^9, 3.568389840313964*^9}, {3.568390052801937*^9, 3.568390055422742*^9}, 3.568390114578046*^9, 3.568390152064912*^9, { 3.568390244027073*^9, 3.568390244635474*^9}, 3.5683904737686768`*^9, { 3.56852316213093*^9, 3.5685231796497607`*^9}, {3.568524015343229*^9, 3.5685240160296297`*^9}, 3.568524093889367*^9, 3.568524191046337*^9, { 3.5685666461617084`*^9, 3.568566671137352*^9}, {3.568566721712641*^9, 3.568566754238698*^9}, {3.5686174565765657`*^9, 3.5686174617401752`*^9}, { 3.5686174951554337`*^9, 3.568617503891449*^9}, {3.5686185965173683`*^9, 3.5686185984517717`*^9}, {3.5686188095825424`*^9, 3.5686188240749683`*^9}, {3.5686197519957976`*^9, 3.5686197778606434`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"PLot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"(*", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Red", ",", "0.8"}], "]"}], ","}], "*)"}], RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}]}]], "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.5682852978767633`*^9, 3.568285382460112*^9}, { 3.568285675366227*^9, 3.568285707861084*^9}, {3.568285985822372*^9, 3.568285991485182*^9}, {3.568286358600627*^9, 3.568286369505046*^9}, { 3.5682869898869357`*^9, 3.568287001134555*^9}, {3.56838891559114*^9, 3.5683889530312057`*^9}, {3.5683893397246847`*^9, 3.568389482371335*^9}, { 3.568389512432588*^9, 3.568389840313964*^9}, {3.568390052801937*^9, 3.568390055422742*^9}, 3.568390114578046*^9, 3.568390152064912*^9, { 3.568390244027073*^9, 3.568390244635474*^9}, 3.5683904737686768`*^9, { 3.568390648613784*^9, 3.568390694009864*^9}, {3.5683907253191185`*^9, 3.5683908630517607`*^9}, {3.5683910922941628`*^9, 3.5683911307638307`*^9}, {3.5683913309433823`*^9, 3.568391333236586*^9}, { 3.56839141488713*^9, 3.568391447397587*^9}, {3.568391486709656*^9, 3.568391491342864*^9}, {3.57042733695984*^9, 3.570427363058686*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot7", ",", "Plot8", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5682852978767633`*^9, 3.568285382460112*^9}, { 3.568285675366227*^9, 3.568285707861084*^9}, {3.568285985822372*^9, 3.568285991485182*^9}, {3.568286358600627*^9, 3.568286369505046*^9}, { 3.5682869898869357`*^9, 3.568287001134555*^9}, {3.56838891559114*^9, 3.568388924030755*^9}, {3.568390166448137*^9, 3.568390171252945*^9}, { 3.5683908961862183`*^9, 3.5683909036430316`*^9}, 3.5683909701615486`*^9, 3.5683913684302483`*^9, {3.5683915370821447`*^9, 3.5683915698422017`*^9}, { 3.5685232430326724`*^9, 3.5685232511134863`*^9}, {3.568524281323696*^9, 3.5685242837417*^9}, 3.5685243967170987`*^9, {3.570427281033742*^9, 3.570427292109761*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.34125192576, -0.72304696212, -0.0024343450331999997`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.096985943, -0.24345340057999998`, 1.03403916994}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.1091231886, 0.6883893872799999, -2.2106014748}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6951272212, 1.6059080520599998`, -0.15080580397799997`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.5126826637999999, 2.472706471, -3.2883122125999997`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.87619556184, 2.9198156425999997`, -2.3122687336}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0645686541999995`, -2.4985957171999997`, 0.98522754736}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.0615020934, -1.5223632656, 3.1524409131999995`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.4962250718, 0.30628679008, -3.293792418}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.0958351316, 2.1144144214, 0.7826300228999999}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.4516705374, -2.8806983144, -0.09788024789599999}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.4782726747999995`, -0.9869283007599999, 4.1292402826}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.1761914857999995`, -1.46759900612, -2.2243964746}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.0040374472, 0.8207646935799999, 2.9311539986}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.13871109308, 3.5201815927999998`, -4.9006264358}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.097260914, 4.2635998012, -3.2023296796}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.5356343468, -3.5848102219999998`, 2.6066880444}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.9298585755600001, -2.9396577656, 4.0464702838}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.044434584399999, 1.35910983646, -4.9306730792}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.2604732654, 3.4920246753999997`, -0.13074258303599998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.7177869573999995`, -4.2447025412, 0.69281134612}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.1472356787999995`, -1.9526538757999998`, 5.775002656}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.0082808428, -1.7368849611200001`, -3.0364117368}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.853512283399999, 1.21815517412, 3.6454704265999998`}, 0.1]}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-0.12213299138000022`, -0.48325018135000003`, 0.5158024124533999}, 1.0906253931053698`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-1.72518755718, -0.017328787420000102`, -1.1065179099165996`}, 1.109846897327542]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{1.8960565820999997`, 0.6812273257399997, 0.44161668298100015`}, 1.1025283941343882`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-1.3109029262000003`, 1.5805479291399998`, -2.7494568436999995`}, 1.0572090339847764`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{2.28566139152, 2.2628618473299995`, -1.2315372687889996`}, 1.0737724285645909`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{0.6817564490199999, 2.6962610568, -2.8002904730999996`}, 1.053913904199205]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-2.2029102899799993`, -1.6108213396599997`, 0.4913966011633999}, 1.0764913953134934`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{1.5792440181999998`, -0.8829083330899998, 2.0932400415699997`}, 1.0723239241269544`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-3.3026741302, 0.49733808867999996`, -2.7521969464}, 1.068933919440578]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{3.8954811763999997`, 1.8601612367299998`, 0.3159121094609999}, 1.0571527986654516`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-4.258119595799999, -2.6896470158, 0.44367364973200013`}, 1.0689169205891906`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{3.2698873840999996`, -1.25464578318, 3.6408405978999996`}, 1.074964509217229]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-5.336208278799999, -0.5806561080199998, \ -2.7590944463000002`}, 1.0778696897463123`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-5.813931011599999, -2.17414866026, -1.1611383612479997`}, 1.0714127657795223`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{5.5499362894, 1.46758955749, 1.8568920107499998`}, 1.078052535193078]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{5.241155061, -0.08308180359000006, 3.5301971406}, 1.0702132265134172`]}}, {Opacity[0.4], SphereBox[{-0.9640959206676343, 3.2280142718987253`, -4.4509111946075635`}, 1.0906253931053698`]}, {Opacity[0.4], SphereBox[{2.7566870485798143`, 3.8887977773973907`, -2.9540780227148518`}, 1.109846897327542]}, {Opacity[0.4], SphereBox[{-2.6831658025600906`, -3.2818410159589133`, 2.1544269143521677`}, 1.1025283941343882`]}, {Opacity[0.4], SphereBox[{1.24550427570037, -2.544336352358938, 3.7971015363275376`}, 1.0572090339847764`]}, {Opacity[0.4], SphereBox[{-4.891519008229678, 1.065439188573853, -4.474087515329844}, 1.0737724285645909`]}, {Opacity[0.4], SphereBox[{5.935617023778281, 3.1077634387583757`, 0.12402736082328114`}, 1.053913904199205]}, {Opacity[0.4], SphereBox[{-6.364638441096099, -3.8642509007997687`, 0.4722695706008769}, 1.0764913953134934`]}, {Opacity[0.4], SphereBox[{4.960644928060991, -1.6832885163150761`, 5.315957783631066}, 1.0723239241269544`]}, {Opacity[0.4], SphereBox[{-7.497249896331438, -1.6617721092667044`, \ -2.8099135442290444`}, 1.068933919440578]}, {Opacity[0.4], SphereBox[{7.337650190474914, 1.107313609267424, 3.446230750370632}, 1.0571527986654516`]}, TubeBox[{{1.096985943, -0.24345340057999998`, 1.03403916994}, {-1.34125192576, -0.72304696212, \ -0.0024343450331999997`}}, 0.15], TubeBox[{{-2.1091231886, 0.6883893872799999, -2.2106014748}, {-1.34125192576, -0.72304696212, \ -0.0024343450331999997`}}, 0.15], TubeBox[{{2.6951272212, 1.6059080520599998`, -0.15080580397799997`}, { 1.096985943, -0.24345340057999998`, 1.03403916994}}, 0.15], TubeBox[{{-0.5126826637999999, 2.472706471, -3.2883122125999997`}, {-2.1091231886, 0.6883893872799999, -2.2106014748}}, 0.15], TubeBox[{{1.87619556184, 2.9198156425999997`, -2.3122687336}, { 2.6951272212, 1.6059080520599998`, -0.15080580397799997`}}, 0.15], TubeBox[{{1.87619556184, 2.9198156425999997`, -2.3122687336}, {-0.5126826637999999, 2.472706471, -3.2883122125999997`}}, 0.15], TubeBox[{{-3.0645686541999995`, -2.4985957171999997`, 0.98522754736}, {-1.34125192576, -0.72304696212, \ -0.0024343450331999997`}}, 0.15], TubeBox[{{2.0615020934, -1.5223632656, 3.1524409131999995`}, { 1.096985943, -0.24345340057999998`, 1.03403916994}}, 0.15], TubeBox[{{-4.4962250718, 0.30628679008, -3.293792418}, {-2.1091231886, 0.6883893872799999, -2.2106014748}}, 0.15], TubeBox[{{5.0958351316, 2.1144144214, 0.7826300228999999}, {2.6951272212, 1.6059080520599998`, -0.15080580397799997`}}, 0.15], TubeBox[{{-5.4516705374, -2.8806983144, -0.09788024789599999}, \ {-3.0645686541999995`, -2.4985957171999997`, 0.98522754736}}, 0.15], TubeBox[{{4.4782726747999995`, -0.9869283007599999, 4.1292402826}, { 2.0615020934, -1.5223632656, 3.1524409131999995`}}, 0.15], TubeBox[{{-6.1761914857999995`, -1.46759900612, -2.2243964746}, \ {-4.4962250718, 0.30628679008, -3.293792418}}, 0.15], TubeBox[{{-6.1761914857999995`, -1.46759900612, -2.2243964746}, \ {-5.4516705374, -2.8806983144, -0.09788024789599999}}, 0.15], TubeBox[{{6.0040374472, 0.8207646935799999, 2.9311539986}, {5.0958351316, 2.1144144214, 0.7826300228999999}}, 0.15], TubeBox[{{6.0040374472, 0.8207646935799999, 2.9311539986}, { 4.4782726747999995`, -0.9869283007599999, 4.1292402826}}, 0.15], TubeBox[{{-1.13871109308, 3.5201815927999998`, -4.9006264358}, {-0.5126826637999999, 2.472706471, -3.2883122125999997`}}, 0.15], TubeBox[{{3.097260914, 4.2635998012, -3.2023296796}, {1.87619556184, 2.9198156425999997`, -2.3122687336}}, 0.15], TubeBox[{{-2.5356343468, -3.5848102219999998`, 2.6066880444}, {-3.0645686541999995`, -2.4985957171999997`, 0.98522754736}}, 0.15], TubeBox[{{0.9298585755600001, -2.9396577656, 4.0464702838}, { 2.0615020934, -1.5223632656, 3.1524409131999995`}}, 0.15], TubeBox[{{-5.044434584399999, 1.35910983646, -4.9306730792}, {-4.4962250718, 0.30628679008, -3.293792418}}, 0.15], TubeBox[{{6.2604732654, 3.4920246753999997`, -0.13074258303599998`}, { 5.0958351316, 2.1144144214, 0.7826300228999999}}, 0.15], TubeBox[{{-6.7177869573999995`, -4.2447025412, 0.69281134612}, {-5.4516705374, -2.8806983144, -0.09788024789599999}}, 0.15], TubeBox[{{5.1472356787999995`, -1.9526538757999998`, 5.775002656}, {4.4782726747999995`, -0.9869283007599999, 4.1292402826}}, 0.15], TubeBox[{{-8.0082808428, -1.7368849611200001`, -3.0364117368}, \ {-6.1761914857999995`, -1.46759900612, -2.2243964746}}, 0.15], TubeBox[{{7.853512283399999, 1.21815517412, 3.6454704265999998`}, { 6.0040374472, 0.8207646935799999, 2.9311539986}}, 0.15]}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5705085750055037`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvIdXXNmdLbwfHj/bM/Mm+M0376039ow9HaVWzpFMkYuiCiioRM4Zqoqc c1DOOSCByDlnhAJCWUIIJJRDq6XuVqex3Z5u3r63qtv29/0F31qzlnadS4m6 5/zO2fsXbp2De6A+IjQ2UB8ZHPgbx6TAhIjI4OTfSOKT+NZP/hvw3+wF/AbC 9Tzww8s8/807CC/CO/91/V/X/3X9X9f/df3/p+sksfkr7D80iqMHx3Bs/xiO 7B69avrfOLH5Gxw5PoCTVWOoPTWGFrYdJ8fQfXwMPUeJw2PoOjCG9j1jaN0x hsXiZ/4ah44O4hh/7zRRf2IMTfz9Vv5+6yHeg7007x5D47bR3aaeYsXm71BT PYqGGt6N6CWGqscwyl7H2es53uX8MbZHxnCWYx3ZN4bBnfy9ytEF5o+frBpE NT9Sx4+2sO08PYY+fnyQgxjmAIY5gBEOYIgD6OeA+7fTgIrRnaZBRIvNP6Lm VB8azoyiuZb/SwwT48RF3nWSd73Ku15je513vsaBXeXdL/PuFzmwcxzU2LYx fGC+V231MBr42Saiixg4wxHwPmd5j/P87EVigoZN0LAJju4Cp3Ocxp3dY7pP X0EftpuGFyU2/4T60z0c2jA66/jf9fy1urO4WHcOV2rP43rtBdyqu4CpuouY rr+Au8R0/TlM141jqvYsbnLYVzjcSXZzYc8o+rK73hVv+z/RdGYIzbxlO9FD DNX9YPU4JmvO4Wr1OVw/fQ432N44PU6cFWdAvB1Hf4nzenH3KEZL+rDNNOJI sfl/UF/VjrbaAXTUjWKAoxmrv4iJ+ku4Wn8Ztxqu4k7jNcw0X8O9lmuYa72G B21XiSuYa5vkexOYaaJF9ULXnPDjo5jcO4R3zPduOdPPIY+io16YjbMYqTuP 87R+snYCV89M4kbtZdyuu4I79Vc4E1dwt+EyphsmiQm+fwE3adq1qrO4dmwU V/YNYbysC1v/fPj/TDL2cLJH0MvJHOXHJ+qv4Vr9TdxuvM1hT+Fe2x086JjG 465pPOm+g6c9AqZ4fYvv3cDDDprWyi4buTi147h5YhiX9/T+1nz71upu3n4I XbSgt+ECRjgz5zniybpruF53A7fqb/Gjt9jVbd7mNu4Tc223cL/tJq9vYJaz Nt1EK+sncIvW3Dwximv7+//VLMQjx0dEIZ4iy86QpQ1cqyYytYksayRbmyjE hm2jYSabg8TmJ0hIzEaigPhs/iS893/QdqoN3bWD6OO0DdVfx/n627jSMI1b jTO423IP9zvu41H3HJ72zuF5/xxeDMzh5eB94h6vZ/Gs/y6e9E7hAedllnNy p3lSJOUtuhe1S5Cpz/hs08D/Fzpre0lEcpR2DdZfxbn6G5hkl9cb7nDq77LL GU79LOY67uFh5z086rqHx92zxAyv7+JB5x3cb7/F37uBqcYrmDpzHrdODHJu umBhNjM+MetHM//Z7EROnRoVnUgt0Ui0keRdlGkPJ7Cfk9fPyRvg5PVx8no4 eb2UaXf5aIhpAq3N036UqyD4vgaihZ9s59R3UuAdlEkr3U8jP1mzdeSfxF// KZKTs6DX58Coz0UqkZacy0GmJ+VyWOmJuUhP4PtxOdC4B9MnjWOg7ipG66bI xXu43jiHO60Pca/zMR71PsHT/qd4MfgUHw8/xauRp3g9KuAxXo0+wsuRB3g2 xHUamLFAiF8cfoEwZQwivCIRIQtDGjsUOhW6TBO6jM9BSmw23YMwzN8iKTkb +mQOk8NLIVL5u2n8Xa0sFDpZBBGNflJDGNrFurtU+D3caprD3dYHuNf+CA+6 OMSex3jS9xhPiWf9Ah5yyA/wuO8+HvbMYrZzGnfabmOq6QqCFOEIkYciUBpo mhpxWoRR/pXYb1q8aVpSYrL/0exx6+ld6+m3Gol2etse/jzAZRzmMo5xMca5 GOeEMHLI7Gm5GKOC12YoGd06iv7CfrMKYPkjI4ZRJzCBt+phO2iOSmNVptuN c13P0qOO8HaDdNw9jIOtZSP/IH7850jWZ8FgyEaKIQfphlxkEln6PGQLSM6z QE5SHv4FOYl5CJIGIdgjgm0MAl3jcLbuHiYbHuJmy1Pc7XiOB70v8XTgY7wY esXlfIVPxl7hzfgrfDr+MT4795LXL/Dq7DO8GHuCKF0SorSEJgkxqnjEcp3j vCIQyT5Mff4U2ewzi+ucxXnMiOXworPx9+Kw3yMdszlszi2Hm8a5z+BwM4ms ZIKfDvYMQ4hnNNt4hMgSESol3BJwo+kx6fgU9zqe4UHPc67rC67vSzwffMlx v8TLoRd4Ofyc18/wlDR9NPAI9/vmMN01izAyMkwZiwifSEQqQv4/fVogiyP+ K3G8meKYs5ERnfU/zKHxzKkeRtpRMY61EV1EvxDBhYjLRbvAqDtBZz954iwu E1eElsKcPG6Kvhe5iBfJhwu7RnC2tC/QRINNZmadrupFbc0IWnjHXnNecO6M KS+4LARWITyZc4JrZNoV3vUS73qetBil3Acrx0gm4V7/CqMhixObjTROsMCH bEMecohcIo8G5xMF5jafxkdwssM52WGc7DCPRES4J+Fy8zPcav8YMz2v8XDg DZ4Nf4qPxz7D6/HPUe6zC11+O/Egcic+v/gpPr3wGrEBegu+GEjJOH8D4rV6 xKuTkOAXj0SfaMR7hYjdsXsL5CUL05zLKc+hzLLpBrJisv9WHPz7MOgzaICJ 0GkcfAYHnWUwETqHyOWHQz2DES6PQrgiji0HLE9GpEyPaJkBMVI92fwx5no+ waO+12TBGzwffkPnRANG3+DVGDH6Gi9HP8Gz0Y/xePgFIsnkCAGaRESRzTG+ ZLNP+I995ghCEjr+7+KocxMF5CInQRh9Nkef9TfmeFt/qgutdcNoZ7wVsoYe YpA51FjtOZyruYCJ6ou4cnqCKd4lXK+eZIZwiXH1EtsJZiAXmQSdx9Wqc+Ly Xj08isvMRi5UdAeYyLLRnE7VClQ8M8ych+6HOEtMEFfZ041aIRsbxx1mZUJm dpfv3eX/3SGhbpNMN06ZEsoLgnvaPoq/NceUFEMmUjnvGUYuh5HGGblahnzk G/NRYCxAoYEwFligiD/8kq/5iKbgo7ziEOmVSEElI1quR4ynAbe73mC273M8 GvoCz8e+wqvxr/Dm/NfYrtqPUe1+PE/bhy8ufYmEoBQLvqSSM4l8TQpIQZK/ EUnkTjK5o6dek5XhQs8W7DofP+MlB0MyFNBV5xG5iTnIictCeng6g42JQEYS SGB/Kg1JpyGZRpMCcvlZ0SAaUqAvQKQ8jKOPRZR3AluO3tuAWC8j3VgKEohE hREPaMXjwbfIle1BoddetCj3Yi5xL1XwBT4595aWfY4XZz9FjD8tJ+2jBXD4 sepExKniSP8o9lvAfmlCvr6QlhaYuy/Q55sUIZiRlIPchGzBlL82JygdzIU6 60fFxK2H6ekg86Kxuku4wJRz8sxVXK29hhtnmMAxiZtivnin4QbTTqLxOttr fO8KbtdOisS6WXUeN46O4Nq+flzY0gZ/E5s2/JhBdzLTHaBDG2HqNc5c6Dxz IXKxboK3mcTdRmbKzAHnWibxgKnmw7ZLxASz6Qu433wOMw1nyTiTe7p8RHBw w/hrM6tSDRlciCyyijJJEVglMIrWGwtJoSIUpRShOKXIAiWpxVy7ktQiohCx dBmxPgmI8Ukm9BQjXYqPsC5G3Bv8Eo9Hv8GL8d/hk/O/R7HqMA7qDuNS4GF8 UnYYSaRScnAakoLT2RJBGTAEpcMQkAa9LgUGrQFGbSKM6mh2XYxisU9hGIVE AYeVR54J3jEHeUnZyI3P+rk5STXq02lRFtJoTbqoE/olo0CrAtKqkFYVkagC iimOaA49URx+rNJIc1IR75uGRCLJNx16ZSr03ql4OvwNcr0Oosj3IOrVBzET ddCCavmG3vzV+a8QF0BGUhixAiiOOJ3JuSYy8Cap45CkDDN3W/zDhFqIF/9d UKtJMHqTMfnMR/PiMkzG/G90sPLoZmnQw8Kmh9VHP5d6lJnfhVqmwrW3cK12 Cjfr72CKWfh0013MtNzFbOtdlgkCpok7fO827jbdYgp8nWwj4+i+bh8fxo0D XX9Bsn9metNDdzXCEu08CTaJy+TnzYbruNN0g2XYTZZkrGc6b+FJ1y0867lJ 3MDznut42n2V711mnWMi3HQjaxy6MaGkurhrwGTM3zKtTWf6k8lVEXhGj82F zDOaVqRIXOQSLjKRVoLS9BILlKWX4NcoyyhBvDKeSEacrxHxfuQYkaRKQbIv eUTOPR77HV6c+wM+ufgtinXHUR14AjfDjyPBwwf6EC5kSCb0oZkwhGTBGJwN YxCjb2AmjAHpRCpSAvRI1cWh1NQ10wzh6md8NXG9yMy5Aga8/CQuUXwG/1cw 6xcMgBk0if6N0skUzDKazMrnaheklPCzwv0E435JjcQhTkmt+KYQ6bQlE4mq TLpSjo8wqukXVRwTiZenPIoi9TGc8j+GWyHH8Ia2vZn4PW38D5NH/hniA9MQ T8nE+5OzlE2y1gg946NeFcUui1JKGcKLU0tRnFZqnt1iC1FLPxUtKhQsIukK RIvSSUeThJpPNLLG6EMvQ1Ivi69+Fl/D9GHnmNRP1k7jWt0My/Z75MV9zLTO sQh7wELrAQuuByzEhHaOuC8WZvfaWRuSiVNNt0V/N1V9DlMn+nH9cIvOxL71 Zq63nm5nyTfIXi/gLHu8xLL3RuMUppunefe7vPMMmTaD532zeNk/g1eDAu4S 0/h4YIrv3WLleZ3l3xX+/gT1wHKvhoX90SGonYMtkMQ6bzmSmAwIHf6AlORU 8xJmMwz9sHxFXDqKlXMmzF1pehnJSGSUoyyzHOWZZajIINgm+CYSAi1TkaBO R5KG7ozQa9JgUKfi0dk/4MX5b/F6gtQMrEJrSBVmEqroFPxgCKXbCyUdQ5ll h7CSERBMBPFnUjSNLjEtKAXpgYmmvtlnOUFpZJRiLcdULFK0OJX0TBFcYjYc rKRwsJRCz3hlYJ1kYBJkSOA17bbb5E4FZon5Q2ZKPv1ioWhrvrEEhWRLkcCV 1DIqsIz3LaPkEukPjZSbQFVWyups2pYDvZb30zH/02UhVZuBNNqapz6NIt1J HAmqwpXQk3hz6Y+k67d09ZRqEPlJF59AySUEkPL+GUgmZ/X+qTAwLBu1sZzn cvZbzn6J9HJBgpzxD/heKUHvkFb0owwFOwuSMuj2OeckbxJtTSb0ZnvVrEY1 snAiinS6xsB8m27zLi7W3sOVujncbHyIO82PMdP2hFXKU8x1PsPD7mesTJ/h ca+Ap8QTsVK93/2QFSkLbBJ5qkUg8WVM0blNneqAmcHrzNVH0/EGdFb3sjY4 hyF66fPs9moDP9Ys6GCOXTzEs76HeMmC59XQI7weeYQ3ow/x6egDfDo2xxr9 Hj4ZmWFhNI0n/bctWA3FMPaHK6PN9Xk40pmJZPx5jW6ufx02uDML58oKpQQZ nCuuarFpRbmSJZzRUjKoPKOC7K3AT1CRVYHVqMwuZ7RLRhLZmyiyl85IR0cp Ip0rnAqjJgXPLzCQ0/lIfr0MvRFViHHwgYEB3BiaZWJvaB7Zm4+0kAJCaPMI Vgd0vOkhaUgPTqJaKsRexVZQURbZnFkqOngne08428vhYieHm60n3Gw8aWse MgQwnc9gOu9iKYMr4bKZv7vRk5FdsLOYDC4le8toa5nIIoE5FQxnZbQ1QSnU N2kEWafOoX25TDDyYPTPo9PnmAM4j/6cN9qapk1BEdm7N7QK52nj60vfkq3M c4W8l+xNpCITg7LpSAKy6feTSWRDIH11oBFGxo4SdlqaXslprmTXlWL3FqJs f8r3SOL0EpHIRakmElvAydaDrDGwtE4RnvgwBRBMTqe5gaz2gljtBXrGIVCW gCCW1sFuiSwgHuF6w1Pcbn6O6bYXJOZLzHW/wsPeVyyzX5E1ryzwdOAVs7qn Ay/xuP8F0+PnmO15wur6AaboRqeEp2ENFzFV148bJ2u1f07hf0FHVSt6qkdZ NF/GaO1tTDTM4nrTQ0y3P2FHT/GkT6jbn5OmL0jZF/hs/Dk+P/ccb88/I57i s3OPmXg/RJQ2HlE6JodM4mI0CYhloh1LHscpWI5IQ4VqzfwM4u/E5x5um6Vw 28T15bo6r5PRCxchL8XslQTPkF4uTmh5ZiU5RGRv+QnJW4lfoTKnkskal0mV ZqZvFh1LNnNJUpNrlEpHk8qMbAOpq/31CpS8swYnV62EetESUjhdpHBKKOc/ 1Ezf0EKkCwjjz+GkRzjpEcbUJSSZXW+xELv9axOTswUWl8PVQUF4wZ3w4LXM XgFPslhmI7MQTf0b0VSplSc8rOSQWiog3UxsVMB9vZyhpgyFqeUkbwUNrRRZ U4l/E41NZNaTSPebqCL5SN5kXT4tKyDrChgiOMIgjjCQJSEtzfBPgT2tNPzr cuxZsBynVy5DcqCBBE5jlp1JElMA/P2kQN6H1/oghp5gZhzBKex3C1m6hT0T mVs4hnK+LhDHIDgMIewJLC6lWJ0pVhcHipWCdeN1OjPxP39QE8zSP1QeiVCy N5Slf4gsCaEeekQQUSz9bzR/jKm2TzDT+Zru9VM87PuUVP0MTwc/x7PBz/B8 iBj+lO2neDr0Gg8HX+F+/0tM0yVPdd8njZnxtjKXaB4ljZvxFxz+CN1VTF1Y pw/W3MDZ2hlMNjzAzdZnuNtNNfS/4i0/EZ8uvBl/jc/Ov8YXF17jy4uv8dXE J/hi4mN8PvGS6XwSoWd2pUcCI1SCjn6EmVUi690knygkKMJ+fERTkGx6RONp LYMnl1gmLO8mYr0nl5a+ifwtFpyD4BQ4qRVZW8khImcrp3kLX3+FLblbebXF RGT6q2SByCSxPoCRlstrZOSMWOWBnJVuCP/QGoZFXjgs8UW3Lxm3wA5+78jg 9Y5czCAE/5seWkACFxEkcjivI7hEkcxwIlgdhSZZiJ2vFbusJNwkcrg7ekFK eDh6w5OQk8wKASSzF8n8w1MpoVXQPStsFJDbeNFsworYTJDRRWYWl5qZVJ65 lSLZSibrGWYymLeThdo8mldA0wrJ4kImPdRdMH1fcA7NlCHoIwc4/fsaVKxT oF6qwIjaFdIFtvB+xwPONFNksshi3oefM4QwGWF+nxqSwn63sl9hatmrhTjb CwTh8kdSOctEZVca7Cah/KhWKeFBKnvYy0yP4YQnWKz8wzxDEC5n7FXEE0m8 1iNSbkSUPAUxnkzgBUgNuNf9ll72Czwa+BJPhr7Cs+Gv8HzkK7Rp92EyYC8e xOzF66zD+GZrNT4r34HpgeeY6n2EqS6mBp30xh3n6ZU7f6DxWrH5FVoP1aDn 5DB6T1/GQM0dZt9zuNz8BLfo8xNsd6DCcSeej36GV+NvSeO3eHvxLb689BZf TX6Ory9/jq8uf8pwxSo0yMD5MnKuWBzQG+j9CW0ya45EGPxiWeSGC8+LLMTH RX8nhiYvO09CAYWtF+RcXjkZ7bnJvLRmFgtLWpG9jfTZRhptI5Fzt1GCW/O2 YqtA5twtSFzti5I1vti7TokTtr6ol2nQpg5Fd2gsBuIMKFBokSmJRVVAIgKt rCFfEoSA91MR8C4j3rvhCH5Xi9D3/RD6oR9CFvoh8CMV0iNNRM6ISBO7rmSv Qs+CjNwduZhOXpA5eRM+kDv6QEF4Sbzh4+ANpQCyudBQKD4q+8FMbzsvtgK8 yXRvMpstGa2gjy4xs6ksaxtNppmCzb9i4cks30zkxFV+KKape9b64qStEvUe WrSrQ9BLM/vj9Cjw0mCnIhbtkbGYSAlD8MJUBL+fTPNiEPROKFsdQt/zRegH vgihqUELVdAtUrFbsUuUZ2/7idCt0PdW/D1/rqRQFaJYRcFKKDwKVU4eK8hj 8WGWvlB8lhUlDxcf/0V5JSHSy0BRRHulMDeK8U5FPJHgzaDpxfyGXD7ocRCd ikO4pDuMewkn8XF+I77e1YtvT45jvuUq5vvvYP7CHOavTuLu4EtM9dMd99Id 9zIr7pkgj/v+gsL/E+2HmtB7Yhx9p65jsHoG5+of4Urbc0TbHMAeSTcOuTbh uOw0TnkdRo3yAGrVB1CvO4C6wP345upXlDaDF4OTPiSVIxfyTQndRRozN2al DHZGrR4p9Mopqmjx8VCp+dFUCVMsJWdEWHAfe28usLCwXGByWUEel5K/ZeQv ZxYVJJHbMg2SV2hQQuxZo8EJBx3q5GFoZwbTG5mGweR8DNFrDBfuwHDlPgzv OoKhAycweOQ0CuJSkeKXg2PJBQh0cIa7VRZ87c9AbX0Kuo1HEbRuP0JX70Dk ijJEL8lD7GLO/JI4xC8NRsIyLRLYZ9xKDaJXaSCVMEEwE1hOAiuclPB28oWP oy+UhC89vp+DEn4SH9MTE8JHtNPHgi9KKMhvJeFDswma7UOzvSlfgb9uSzXs UoPC5RrsWqvBMTstaj1D6ajimNSnYoBFxRBj/FDhNpq5l2YeppnHMXj0NArj UrCN2VBLZi6kNsnQutRC51iNANsqBFkeRcjGAwhfvxtRa7YiZmUJ4pbmImEJ i4ol8UhaFo7k5f5IoqmJNDWepsas1ohSkjrS8QokFswWI49Jt1400ZvLl2dg IUMID4miFdGkLxNKb4NI4BifdCaV6fBaooF2mRqhK9WIXadG4iYdkq0C8GLX ebw+eQNvm+/jazrd31/4FH+88TW+n/k95h/9Ad+/+B2+fvwQM8OvcGfwGaYG mSIPMrcYYInXM/iXDvm36DjUgd7jF9B38haGqu/hfOMTXOn4GNGOs9ge+Rr7 Il/gaMRjnAqfQW34TTSFXEJb8Ci6Qnqg3ayGv5UfAmyob1s1QgTYaRBsq2EK l4FUFhKpASlIY66RposXH325LdgEb0Ko8v04JX6OSqrAlxOzUGS2w/t2kL5r C8/fWGP7Ki0O2QXiNIuGJq0RnRE56EkqRW/mDvQXHUD/Fi7j7moMHmrA0PFW jr8Tw3UdGG5sx1BLG3pbW9Da0oQUYwZCg8qwNXsL1M5S2LrmwFHTBje/dngq O6H06oJG3oUAWSdC3FsQ4VJP+08hzu4IEqz2IHljJfRrmZ6uToPTYkcLOC9x wF/BdamE7HOE+1Jn+DqqLWiLmtWnysmP8IXLB5uhJPw+JCR+/F8V7STYShY6 McORwPtDB6gW2tEz2sF/iT3qVcloC8tCZ0IxetK3ordgL/orjqB/1ykMHKzD 4PEWWknr6row3NSJwZZ29LW1oq21GakpGchLrsTJskr4uzrDNbAJHv6tkGva 4aPqgMq3EzplF4K8uxCm6ESUZytipQ2Id6tBkvMJ6CWHkGK3G6lWW5C2kVnW ukw4LXKEyxJHrpDLUge8+6PJbkud+L4TdaqE9bubIX9vM3QLNiNk8Wb4LPZE 2BJP+C/TIWR1AKI2hSDeLhKJTjHQu8fD4JmEFK9kpPro8fLs7/D68nd4e3se X90jHs/j9dN5PHz8PcanvsOj8a9w/+znmBl5jTsjzDBGHhLTmBoimfuH/sm8 0WvfkTEcPDSGwwfGcGTvmMOfU/w0OvZ3offoBJ32FIZq5nC+6RmudL7C7b7P kFf4LcqL/4idJf+JgyXf4TjbmuJv0VD0NdoKP6M3YBQngohQSTzCHWIRZU/F OoQjVhKMOEcdtEs9qVQ57BZaQrbQGgGLbRG50gZxazYjcrkMqkXO/B1nBKx0 QdBaNwRvkCKUZWHoJjlaU3ehLe8wOspOoXNHHbr3t6DnKMd7qo/lKtFItPSi q7UXzW09qG7pxoGGLhSe6GQVlM5qJxV6BhR9cAI2KHMQzrTcTeKOeNaGCawR k1hBJQdnwzq0Gw7hPXAL64UirA9+IX3QBfUj2L8f4ZpeRPn1Is6nHRIGCqc1 ajivVsOFnke6wg+yZUrIlzHYLJXDe7kUPsvdYP2hJZw/tIHfR/YIXWGP2LW2 iFljCeMaT9rpjpC1MoRtlCPcyhvhtj4It/dFBB19OIUQzOvOfU3oPtKBnqoe 9J7pR19DH/qa+9BNO1uI6pYe2tlNO7uYA2cxvac7CUuF5QY3BCRVILe0nF7W AQlavWhnfEAG4gOzYBneDUlkD9yje+EV1Qu/qD74R/YhOJx2hvUjOqQfcYF9 2LwuFFZrQmC9KgjLPrCDKz2sG6OHO+2WrlJDRrvltFu9yB+b3rOG63tOUC91 RfhaV8RvdkbCZhsUe0aghKVTvHsKEuSsAZRZzD9zYRAexQTm0QXmIDUok/lp Kq7dmUf/lXm8OPd7zncmBRWhycAvEKGma2JpdP/sW9wde4OpsReYOss0euwu pkZZDQ4O4h/MXzUcPzmCk6fGRNRUmTcgHhtDyxHTBkRhA07zHv68g+9XDNv8 uQoWoGNvN3oOTaAktw3bC7qwv7gHx0r7cKp0ADWlg6grHUJt8TCLvjHkJYxh 9/F5HCaUTKLUigzoFDkIkOcjRJ6HcFkeImU5iJFlIc4jHfHSFASsoVJWxcDx I2f4kSWqlQok2bojhemDwd4GFapYRDr5Y8NyO2xaKYHlKkdYrXKCzUpihSO0 nE0LaOUR+Df4eYbDRxaGow0D2EF2pB/qx9b87QRz4vytiOdMJ2iyEacTHr2m IzFQeBybzKogDjcG53B7ZA5R7C9Wk4w4barIDuFBV1JoNiw3ecBmsyfsLOWw Zy7ssMkTay0jsI7YsEkYw7IFDgiBvVUoJFYRcLaMgtumaHhsjIJ8QyQUG8Lh TfZo1+phs8ARskVSuC33QhhhcJAiReKEchbWkS7BiHQP5TyFI5K2RSoiEekd iQivMGxc7YhNhNIrAkrvCHix9eDvSNwiYLvSk/MhQ6J/3p+eaVDBBlaCxlDh 4aSR14m4M/oI02TK9PgjxLLyidWxcONcxJJxcawcE8JykBBOMJwUZ25HSdYO ODn4YIVNONbY0lZis00ErK0jsGqxI9YsdsKaRcRCF6xd4Iw17zvCY3MMS6Qo qKzyYPm+O6RLFXBe4I3Yhd5IWeuFFBcpyuKKUMagHK8pphJLOM8lSAgpRkxw EcIDCpCqy0KaNgO2690QoctApH8WoolYIp7/F68lh7QcM5UQrUqnJ0pFBKvq qXN09efo6sfp6ocHxP07FjhTM4b/IW6mba4eQzuV0E0l9Aqb2I6OYeDwGAYP st03hr5dfI9K6K8cRXfRAKxMclgjNu/iyLEelGXXYFd+Mw4UtdPxd+FMWQ+F 04+2igF0ET0Vg+grG0IvpdFTNIz2/GG0Zg8zZzfSKWVA6ZcHlaoQOnURgtQl CCMiiChNCWL5nsa5nAGkDM6cNo+lPkhd5oODa32QIfNCuocbnG08YbXOBTbr XSxgt94V78CeP9qvdYHtaid4ekbC0SUSXvZ+rOL8WLjSJ9n4Qmblgy0FVAOx RVAEq9PKvC3MGjMRoyZ06eK3tvGBZH9gLC72zuLywKz4yD1KlYQYjREx9JlW G6VUggy2lp6wZzYtsfSCIxXh6aBi2aWiEhT2KvwrNi+xxebFVC2TlFULnGDL GChxiIOLfTzc7RMgs0+EnPB1roDtQk+4LWK2u9gH2Ut8cIIpXrpMjgpDBaJ8 E7i6CYhUMY6q4rBxnRPhjA1rnbFutTM2r7CFjPHBk0kSx2DBm/rRGchpumSl nPCEA4WREJhNkmUiKYTVKmuo5FA9EkPicG3oPq6P3MeN8XuIZv0UrTUgimZG BZJYFFBsaA5iQ7JQmLFNFIKzRAlX1h/ujn5M1hnmhG4lJtM3L7OF5VJ7TsHa xa54D+v4uu4jV6xf4IL1HzjBy6McVhSC0wIlnBcqEbhIiS2LlTDKvVGYvgWZ aZUI1JYhUVuAZF0BDP75MAbks8bLZUacDYeNMkg2ehBSipYiIBIpiCQBFEUS BZPIACF89xarSiW4ZMokRPvEURSXcGt4AKbtYb9Efc2IuC2w0bwhW9ge2C1s Dzw9hmGKY5TiOHvMtJ9v/M+2B47tZUuRnN3G3ykdNG0LZP5q+tq85vSAuOmw jXc8XtCI6uI2NJR2URs96KnsxWBlP0YqBzC2ZQDjWwdxbssgxiuGMEq9bNOS kL47UCTbgTTOenpoHjJDC5AZXmiBrIhC/BOCg0sRRngqt8DLZws9iy80y3xR vNwXp5x9kR+ohMM6KzhJvGDFmG9F72G7WgI7wn6lA4lALLeHPRfKV+CKkqv2 LywS/eBNmXjZ+kJhzTXJN0mkkkGjghIpz6tAJIurCHUanZGR/EhGpC4Gwx2z GOuZxThlEuabiHC1kfJwhzXTNDvKw4HycKQ85KSnF+HN3n7C7FeFX8NmqR1h D2sWBVaLHWC90AGWH9rBzzkAKpdAqF0D4eKaDDfvLbAjR9wWs/Zd4os8mnzK zRcpSj+kky8qrq+rNAFatwBsWGXPIOGAzYTlKt6TJtustIfNclv2L0hTGMEv xRF4Ux8CnFcp4LRKDidqRLKcKWBwOh0xU5MQuoGgGEwMzmJiZBaXztIVCBLU 6BGuS6OTzmA2wuj4WxSw5HCmNFwpDTdKQirIguWKnFAQQtdCxzbLOJRlHNJS ARLYLJHAejFbmm/DjNB6gS2nwg9OC1kGLeLweJ23xA9x3r5IpJdK9GNcUueb 5CE8MRWf/eczFnvQNAl90t/Dia/Om6SM7xmmLNafmZR/BvSMIQZCrxW+2Euj TBjf6dHi1cmIZzYW5xOJH3ZOCgcKWuvGRAgnADpJ5r4zpp2TY5THuaqzuEBM HB/HJWJSxFlx57+4c5JymWBNMbF7BBe29G82SWSVOR+rrx5AS+2IeGRhkKil TJqL2pjLd6KPMhmhTMa39eLijn5c2tX/E1zePUB/NrlzAIfCt2FvyA7s0u3C FsVOk0LCCpAVXigKJCuyENlEVlQekcOf0yFdpkLcChV2rVKhXu0H+w22sFtn DStyxEaQxRoJHNY4QsLEwnGVBE7kjBM547TCDiounlB/WohXPxXrUaWDH3zs lfC2prvepOD/CQr5JcpyK1CaW4binGKEUAfB2kTU18+irWUWnZ2z6GE42bTW EZYMWNZCCKFG7DfTPxMKQRuEj0RlIRa7G9iVCnakrb2g1uUOBFW8TAJbcsdW 4MtCe0okCBr3IGilAgKhkwbAbQmHTJOLlqtQLVfR9flB6xpAeQRiw0pb5k/2 2LyG8qDZ1jRf9A6Uiugd+P9KyZ/KbXoI/mwyWcnqw2W1JyscT8rFg9PjzlzF yBCRhEG6gGG6gJEhYnQWQco4BPvpEaxJQRCjapaxHLmplXBx8GLo8GHoUFIj jMiOfhaiQH4Kb77SesqDq2M22YKvjowidny1X+Yomm9H2diz4hee3NlspodY rBJNNixT47iLGok+jAC+OUikTJLMMtFTJhLOtiM9kpPwfTFbF8rElbIRdx9Q KoJEDISREjH6p/M6jZ9jlBT3OBr4e0mUXTwSVJHIicnE35jJ3Go+ySLsHe0k usVNxuMYOXMO4zUXcOH0RVyquoTLxNVTkxa4fnoSP+frJWIC105dxJWq87hC BQnbR6/uG8Lkth7TJmOsNG85b6zuZUdD4gGI4fqzOF8/jub8VuZnXegv78OI EEh2DOHSnmHeYQTXDwzj5qEhC9w6NIif4ebBflTFb8Ox2J04GLET+wN2Y4fX dsaVApgCy99RNUVUDJUUTeVEZyMzKh3yFRpkr9TgqLUaKhsbyJzoyZ19YEv6 iIpZ42TBqtcZNnDmqwtzLxeKyIXC0jiroeFyiK2zCmpnP/EBjx9rWeGppPAk Us4KoiyvkqIpRzGFU5RbhMKcfORnZYl2H6yexbHGWXj7xlI4zHPWuVM8UuZO 3pAJzzcdfCkagTZq4TmS+BhJ5SRAQybbwZGMlrBikqzkUFkpOZBGDqSQPRVk R2+rkQZTNYRHEHQegXAjhbTLNShdoUaNUhg/VcMgtHGVDQOKPRXDQEWzrQk7 wn61yWlIVgmOQ6Crn6OG0UDFV5U4FsF5mG1mZBCewjqvpXLWuHNsLggJSkQz A2gr1dPWz5aBppkK0vokIyOhEBnJJcg0lDOyKBhZvOEu8aFqlIJqxMjixT68 CSX78yUEyTgIdq5wYpCVrHSmdCSsEh1E++nk+P/e1l7wYq7qskQjPuiOpL17 Vmt+lE2SOg+JTLyS/AXJSJnXyuBkaZKMK+FGSPlekhBR/E1bQ4xsU/yF/XOU TiClE5RGpIrfLyUzl04KiEeMXxir4yzkxmaY9/3+b7TW9KCrbhjd9aw0BOnU n8NA3QWM1l6idC5jovoqLldfw7WaG7hB3DxzE7fqbmKqlqi7gdt1wh7Ga3z/ Cm4IW7OrLuAmI5BA9yu7Okx7r7FCbCzRdLoT7bX9Zg2dx/mGCVyp56car6C/ aJBRZ5QaGsOlveO4dnAcNw+P4/bRcUxTmdMnzuLu8VHcOT6COuMuVCfvxIn4 nTgStRuHgndip9cWyqhADD9Z0QKYtMUwNMVkQ7pCi+CVWlSs0kK5xhqeooi8 4eWiZOgRRORMRriQGa5wXUMILSsZN1Y0bgwXWlcdoYWOEFqti0lRwqNS4SGw knmHj40CpUzRSvKoorwSFOYWIj8nD9mZmRbmU5vG5FRxb2+aMQuurJ/c7bzg QULKKSIvUUQmEvk5aUlktbOOFNK46ODE8OBEYVPoLDV+RtfvRLITgrBIKgnT GbtFttB4BAuPISilf2RZr0Ugza6g2bVarfiVnCAkS4rIiiKyZuixEUXkxClw pohc4Mi7O4lwpGla9q521nLcamcNoYZacB402ZfhQ8nk1sdezoxVBs/NbqKF u+rvmo+m/SPSopk7xxUgI6lY3J4g7MZwo4AE8Xj8KB4NfAilo5b31HEqdRQK 7VnlLIrTgiNyxa84HldeuYhjE+wWvk5R2nlDacME+9+taasOuhU6lK3UIU6R TiGxyhJEpGVaxkxYwhjzQ8xxtpRTRAq4Ex4UYZLOlJ6ZNqcQQVwuYQ/GL2Bg kWYIYQhiIpoczEKNGirQ56IgKRsFCZnIi0vHz83RoVtgdb1wInFc3BfcWzeJ 4dorOHfmBi7W3MKV6ilcq72Dm7XTuM1putNwF9ONMxa423SXN7nbJGwXvoM7 jbfFjem3zlzFbUatqRMjuHW42yyj5eb9FA0nmsWNyF1M4IQt7ufqr+By/XXc 5Cenm25hqJCV0tYLuLiH8jo4gRtHJiibS7hbNYHZUxO4xzvfO30eM6fG0Zi5 H/Xp+1Bj3IuTSbtxPGYXDgdtQ0ZEPuMP148yyogRkIv0mCxIOcf6VTrIF1lB bWkjxiKFC6sCF6YqlIXTGje4rHWHKwOF2zop19B9vTv54M5CyH29M/xZIejc /KFz9+c1181NkJTg6CknZyV54M2URwFv6qMorxQFecXIzy1AbnaumVvrqaE/ 7Vt2tZFDauvDQt5XLPl9HEx88nPS8X7+ULv4Q+Pqzz78GSAZHEWZu7B15c8u YtAUtCVwXghWjsx7BB1pZEGoyNkON/IqhDZvoc11wWzztrOqYYmwxl7UkDXv act72PNeEt7TkXAihH5c+L5aHEMA7TONQ0NXoqELUbsyQNFmPxaMvnRFPhLa 7CBDPomVE5vGbMxErLSYfDjZSuEiaMhe0BDTNgYzodpXUDveEi01pOO8+dNm Vm0E9SO4CrefiGHuV7TRDU5rXUUXJ36bw8DtywBu+74drN6xhGKlP7JW+aMm yB/xXllI8M1FgiZPrPAdN5u1IwQsasbNkhomZJu9RO3oWfUbArPEDdzGYAag EOpH2Eb7C+hD0wnhTIERRSmF4mmUQuqnMDkLBYnpyI1LMZv5D4hjXPKWBcPH M5TaOUtMoL/uCmORsGXoNjU0jctnZqihe6T5fUw1zpHqDzDT8gCzrQ8txC3P v8D9tjnca73Pt2cx3TyD2w3UU901TFVTSycHcetYq3lzvVlMC9B+uh3dZ4bY m3BW5Com6m/jWiOl2CTs3J8RD7Ke33YZl/YxCh6+hlvHr2G66ipmGRnv11zB /TOXiUncO3MRrblH0Zh9BLUZh1Cdsh9VSXtwImo7DgZUIC0qn06RYExKjcmB 28oA+K4KQP7qAChXWkPjYAcFyeDNuKKks1XR9WpctBSSUFe6rffgXLlv8ICU iyKlU5NudIM/6w0LvgbQSftLKSgpBeVOQbnRWbsw23PxgcqvADoiQMmaNWYv EiL3mIX0S6TqUymkDPGgSYYxlzVCPjxsfCG3o3O2p3MmuXyd/M1CIonNNYyO cKGIXNe5CUK3gAsvfsVXV/Ft57VOLFEcGaeoJ9YS5dRRRc4OmuyPcJq8bY0/ 6iL9GQc8GYoVLIEcxFhkS37aUzsS8tVxjZScdTf7EqEbV05HIIcQKMYxrVsA Qx0dyc+hoQtRu1FOroILYjRmdC805KAgOZNySjdtol8EZxspXIXdrGS+OxUg ZUHlSW+hoJHeEn9+jAtCiM8+nANNEYf6ceZInNdKxbTReZ0AqpHeTYiQfk5q c3qphJ+gqA+s4U4LE7moh2wDUJG7A3HeOZCsdxOfmTmyAnJirelM9bhSRe6b mU4Sss3eTPmyWOlkQU8lGYKzBBVl0dnrw/hWGIUWloEkKqo4rQTFqcWiooQN QkWGXBTR0oKkVNFQ4UBwsj6HyIUhORfGpFxoFWHQKSKhk8dA5xkHf494ciWe 0WkWk2fmcLXuIW42PMJU0xNMtzzFbNtT3Gt/hrmOZ+JW7AddRKewLVvYnv0I d9sfYKplhioU5CUc5B6nxHp+kNYy84w3H69Hl7D9mnXYkBAM624xTt3Fzab7 uEu9znU+xNPex3jR/xiX91F2R2/j1snbmD59G7NnbmGOieZ9JphzDdcwy25a C06hKa8KdTknUJ15FFUpB1CVuAPHIitgjMqDkfIysnYSNpaGEgWE9LeLoFpv S2kpRWn5MJfxY2alctGJ/th1nYxxSQbpBpkFpFyeIKYFHvDYZFKXP2uSACZU AR4BPyosLKgYkSHFiAsuRnJQEcvUAhiZapQk7kHnkTF0HBxDm/kcf7pmh7gN XDxhbCxAjrjBvxhyGzUVRtdN4gmk++Fhm9YtCFp3KowQKC+GUdZbroSppRxI Jpf1riaZrREeltA8KxllRomRfI40e8faANQmBMDTUW7Kdpm22TJ9sqO0HEhq iSAvgdgktAt9i+n+7pySIOpJGINpHFp3Kp52a2i3mp5FRc/i5+r34wGHIkM2 CpMyWFekmo+i/4l1EmuW+1aeWMPUdLWAhbYUnZqi0zLd9aft9HxOgQx/gfCj /Sr2LWbhouA8LMR9x7/h8GTiEIVIruaqCTmpUF4KpZ2KurNbaINN/7YIETS7 +N+WYSvbitztkNBrSOgwHTfKqTsvOG/yhutmJTVH7Vsqxa8iEhi9EgOzGaIo mhAilAjjz+FsiaSwrL849pBabDrxZjRZLgRm4UC2wSDsGKdfJ4Rd4/6ewQhU hCNIEYMgeTyCPBMRLEtCiDQZYe7JiCCuNzzD7abnmG59iZn2j3G/8xXmul7h obB7vOcVHon4mNcvcb/7OWaovTsd1B1j0pR4euwSphqGcbu63nxix6y7HnSc aEFP9Qj6aiYxUnsLF6i5qwyYt1sfY1Y4WdH7HM8GXuDV8Eu8GX3JsDaLmydn cKd6BrO1d3Gvfhr3G+7gvvDnNBpuorWoFk2FZ1BXUI2a3JOoovZOMl88EV+J /WFFSIwyaU73680o/cgOpy1t4b9iBbESCtYM3tScL1fNz8UURsQQQnK5b2Ah u8mTYpNTdGxZ1Hpsdqfogim4YFF4/szDYsJKER9eCj2RFl6C7LBi5IYWoSCI SUVAPsZOjGGMRefYEdOJ/y2hO1AeuBOlut0o8N2FbEOheC6hwFginsHyttcx ZzKRT+USZHqE5xZMsgdzXMFivHETBeEBtw0ygi29t+sGxiPmsS4sC1VOSrLP i7mqJzbT9kii8p3lOLFsGXw+XEThKcw7xhhKGSXsV7tTeMyn1jACCFGErHb9 4d68r9rcv/gwxPwoUSPAg3NG8anc1SRiMUrSTaeLhKMKznYyOLNNEf9ERR7S zQcWhNrSzZo1jpUCGxbZY+NHDthAbFxgj/Uf2sHbMZApRhCDZRDXJJiiDqa4 g8UI50LNuazzpOIIro/glISwr6avVDN3VTMlMdWCvrB8dyWc/n0FChc4oMrS Hl0um6Bdtkh0OhLeR7Lei1HPG06blHDZ5Evl+VJ5vvCwViIuIBvxQTlICMlB YigRxpwznGAbH5aDMmGLe0aFeEamNKPsx8MaJakFFkyEPfFblpU03ZD3F7vd gxWhCFFEIVQRh1CqLtSTipPpEe5hQKTMiBgPQmpAjLtw4P0N7nV9irnuz/Cg 5zM86v0cj/s+E3e+79XuRL//dtxgKTTb8wJ3up5gqmMOU213CCaUrYx4jR1/ qbyF6D7Rgx5WVv011zBacwcX6+dwrfkxP/oc9yjmRwOv8Hz4NT4Ze43Pxt/g 7fk3uHH8AWu9B5iuncMsU9uZxnuYaZphestSsWkKjSUNqCuuR3VBDY6wHB0I SsblgBj0qDNxzS4Sc8o4JCxVYz+V1aFleNpsCd07cmjfUUDzjhfU7/rA6z0f MjxQdOv+0iALUVr/yNRDOPtA8VkyCIrCC6HgghETylwxogxJUWXMW8uQE1WK wkguQEQxyii+ypBCHE3aiaMJO5h/Xqb8/h6TR8ewP2oH9oXvwq7Q3djhvwdb /faKh4EKxMNA5eKJHFOqZSaeKwsttxDhoYU0BB9CR9GbBCEzYaPMfAiFkY85 r5qFovAUM3iVFBpGE/mvJchdIsMJirDHyx0h61bC6x2pGO3kFJ0XUzRvFoJC Duu41nSQRSC1KyHcW7iv2j2EQgsRn0SKhR9nRsOor2bEV1F4wtHCMvG0UDHz XHb0N8wg5XAnBYW/spAp/KUFEs/dhr6LtaiHjRdk1gK8YbnIgam25UcS/DUs qT0fak5Js/1oskoAuzZllILe5NRWoIXgjCzEtfqtqDvjai9UrFbgIKNYylpn eCywxA5JIJrVARiPoG9Z4IggrnbAOzJx1dVccd93vOHBVXe19KMPIKx9ERWQ g5igXMQE5yI2JI9LTITlmbdS/3AwoFLUnaC5EmrOlfUoSw8HOf6dGTOnzF4m ii3zx78ukY8wppZhimiEM8yFy4U9+QZEeJr35MtTEatIRTyRyOtEWQru93yJ B71f4ajXPvT57sf1gH14HH8Qn+edwLc7GvHd8S7M19fgDmPUVPdD0578rhuY 6mQF19Zr1ttSsZGh+eBpam4Ivacuoa/6FsZqZ3Cp8RFutD3DdDeDav9rPB76 FC/GPsfrc2/x2YUv8MXFL/DVpbf4evItbtc+we166rPxITrDtuFi+FZMRVXg YWIZPs4qw+elW/AfO3bh2wN7MX9sP747sY+jG8Z81yT0kkQcCjBAZ2UHz5VR 0C0rhf/CPAS9l4bQ9xIQ9n44Ij7UIGKhHyI/UiF8kQrBS1QI8AxCICFlyqaR hkJL0SWEF0BPkaVGlyGTyCdK+XMFsTWiBCdT9uCUcTeqDbuIHbh1eoyBf0xs TyTuxPGE3TgSuwcHovZiX8g+7NHsFQ8w/Xj0I9O0wqLHdzUxTy0NJdHY+b+a A5EM2tW+SCPK1yixd40Pjlv74IyrL5q8A9CuC0d3aAz+c8cZlDlHos4/CmPx YfD6yAfB70Yg+J0ABL7jSzJ6I4jkC3xPCe0HvnBiIHHeIGcAoO6IH4ivloaQ 7Ox+E1/pCii5imzhHFmF+QSXzHQexNF0JkQ8xUUmyuz+dCbEk3HO03zoRW7j TfhAziErCOslpq92bRZJxG+1fag7Jbv2FcDundbK6EoCxT9z5bVSBeMqFSpW +eEg41QNs8tWZTB6Q2IxEJ+CobQcDOUzdwiIhHqDDdoSjbiYk4DQTVsRtq4C YStLELY0D2ELMxHxPgPNe3GIej8M0R/6I3qBCtFc/SiufvhiNQKXqi3EgwQ/ N59g2GqGsAHeJD83Sk3qqGA5Qvv/HR4SwXpPs+ryaXk+cvUFiJBHIoJhTvgj IpEKA6IUKUQqYrzSWXOmI57wWOIHLRG2xBcxy3wwHX8Sz3Ob8PmOPnxzfBx/ aLyK/+ydxvy5h5i/9gLz04xD/S8x1Ws+SdDHAq93kgoc/AvlJaLtYCN6jo+i t+oK+k/dwVlGr8nmp7jRIRwLe425wc/wZPQtXo5/idfnv8Yx3wPoVh/AJf8D uBu6H8+SD+GzvGP4essZ/GF/M74/Kei+H/MdI5jvH8f82AXMX7yE+cuTmL96 Cd9fPY/5j+cx/+k8Yn1ysTuxCFoHFki22fBxbWYF3giNbQ0CrU4iZNNhhK/b jehVlYhZXoC4JemMkAlIXBaKxOVaJK7QIGGlBqmaLKQFFCCNasuOKUMhURZT juOZh3Aq4xBqiNr0Q6hPO4iG9APEPsw2XGCUPocZojZ1N2pSduOUfg9OJO3F 0bh9OBK5HwcC96CYqivJ2ELlbRVPNghb6z2Wsd/lGuSz/23s/+BGDU4xRNXT h7bpEtAdloKBBHItpRjDOZUYLt6Jocp9GNpxCAN7jyIvPAGl2kzUJmdhtCAN 8k3JtPcQAjfuRfCa7QhdXoaIxfnkXDpiFiQidmE44j7yR9wiNWKXqBHNLCF8 mRpK5nrCUR3x0JmFeN7s78VDlG4Unekgi8J0BkA8yKKAgsJTMOD98JdgFLYK 0/ENO6YWdkoGOW9bltfwEV75njeFKHw1723pJXLda6kGehpfSuP3b9CgihVv kzIC3SHJ6IvPwiCTu8HCbRjaQmP3HMXw4VMYPlmHoZomFOuzoLJ1RkNeEUa2 ZUOtrIPWq5F5ShMC3RsR7FyPUEkNIuxPItrmCOKs9iNh004kra+Afk0hDCuy YFyuR8ryGKSsCEHKSh3FzvEI37it0SBmjVpUnslmxY+tzGx7Nu3NYQFh9e4G OL2zEZHyaMosEVFeBkR7pRLpkC/SQrNYi2CSK3KtDvGWgdDbsy+ncKS6RiJV Go1PmUF+MfoJvpn8En+Y+j2+u/8tvnvyB/zhxe8xyxA1zdRw6sczD9OYGrhC +Q3jL3RXgI6Dbeg9Oo7eE9cxePouztY9xGTrc9xg6XjQ8QB6PA7igvYIbsee xMOMRrwq7cIXu4fw+2MX8MfaK/i+/TbmB2YxP07FTz7F/M2XmL/7Cebn3mD+ MdvnL/H9i6f47uUD/O75NN4+vob+0zU49/k8fDQlyEvdytrJg3WSArb+bXDS tsNd3Qkvvy74+XRD59XFcrcT4dIWRLnUIdaxCvF2h5BktQv6jeVIVxcjz78c hUHMM4LLsDW4ArtCtmB/8FYcCt6G2swTaMg6iabsk2jJOYHW3GPY71+AatZ5 jQF5eNg6iaasg2jMPIh6avJM6n5Gxn2oStyP3dJi7HXIQ8EiQV9aHLTW4aRb OOqUiWgJTEMX69Se5DL0CWcwCvZhoPwoBrdXYXBfLYYON2L4RBuGqzswXNuO oYZWDDY2o7epkYWFEVmMxEdzy9G5vQjOLlnw8m2G0qsVKs92zkUrgumDwpzq EOVwCrG2RxBvtReJG7cheW0JDCuzYVxhIKJhXBkk0s9A+iWRfnGknyBAgXIe Toofj93ICYXEWzxy400ain8px1AknpzysRO+yPalfn3s/SAcL1LBl1e+Dr6w /1ACjw8d4P2+PVQLbKFjPV7rFY22wBR0xdL+1Ar0FuxCX+Vh9O8+hYHD9Ris asHgmS4MNXZhsKUTfW0daG1rQ1VTK5xYHng7uuNQ+RY07C2EtSwdTqHNcAtp hUdQO7wCO+Dr3wmtjuuu7UaYugeRqm7E+nYxArUhSd4Ig6wWKe5VSHM5ggzH vci024Ys61Jkb8pB9voUuC4RTmU4EPZwJYTzGsJpDY+P3LGOsrOl7Dzf3Qzt h5biKY2ARTLEEPpVMoStDUL05gjE2ccg0TkBydJk6BVGGH1TkapKQ7omHRna dHw6NY/P783jk4fzeEhM3Pkej0e/xsORLzE7/Bmmhz7B1PAPpzTuElcpw5G/ lF8a2ve1o+fIefQeu0H5zeIsk8fJ1hfIkYxh2HATczuv4OnRO3h5Zg5vmIS+ 7f8EX4+/xe8uf4M/3voW38/+EfMP/4jvn/6BEvs9/vDJf+Dr11/h9esv8Ojj z3Dr6WsMTL1EdUUtaspPoKZ4Nw6mZ6CQ+UERw4girhgSOykcbN3Eva4KR6HC 8WdiFwjb8B44RfRCFt4Ln7A+aEL6EBjYh1BdHyLVvYhVdrKSO4iC6KMoijqB ysiT2B1ehYOhJ3Es5BhOhR7BmdCDqIvYh8aofeiIOILDlGhjSAX6IipxNq4c 5+NLMBy1H82hO9ASsg1tTJhbI7aiJWI7WsOJ4O2oU29Ba/IOtGfuR0fhUXRW MEnfUY+efa3oPdKFvpN96K/uxUAd0diL/pYedLV2o6W1C2dIvyOsq7dVtyNh dzMrRG9sXOOI4NhKFBduZUXnRDjTdj9sCm6HQ3AHXIM6IQ/qgjKgG1r/HgRp ehCmIg19SUNv3sezibSogdH1OFLpItNsdyDDshSZG3KQuc4A58Wk2xKBenYi 9SxE8gWS9pSZRIlN722E5N1N8BYOCn2wGZr3N0MpUUOywAWeC1yhXOgC7WIX BK50RfA6KcJYsYZbKRDOCBnOaBhmr0TXzmp0H2hiytSB3po+9NULZ0Z6xTMj zcTJ5h5Unu5mNRpA+BMaQsVs2RsSBzfE5xegKHuLeCxa5uAjrr1MoiG0rHT9 YRXRDceYHnjEce0JdVwfAmL7ERrTj8iofsRG9CMhrB96csIY2IM0SjZD0wyX dSq4rVPDna10jR+kq4mVSsiWe0O1KAAb3rWB83uO8KN9oatdEbfRGfGbbFHk GYFivzjEugnHrjOQ4JODJFUe9DrzGfLgAqSwzBR2/8cHZiJFZaTcfseUkBj7 Bk/HvubPX+HByBeYHfkcd0Ze/+n8yFnKb4zyG/5/yc8bbXs60HOQ8jtyk/K7 h7MNTzDZ/hKF0d/g7NH/xNzAt3hybh4vL8/j9U0q/u483t6fx2ePqPwn83j2 dB4zj7/Hhdnv8Pn1b/DptS/x6spbvLj8Bk8mPkbD9i7Ubm1F9ZY6VFeeQHXp HuzLSEF+RiUKKMFCLoFY6dMDe9qrIRe+O2Iyo6T8/NyCoBIfIoRA60nIQ+Aa 2wNpwgC8CWPCQWQnn0SevhZFyS3YktyJPYk9OESciO9GdUIn6hM70JzQitbE JhwJ247qcEb0+MM4l3oYV7MP4mbeXlxhovZsZxdGc2swlHsG/Xln0MPrrpxq dGVUoU1/DK2H+tF+vB8dp/vReYZgZt3W2I+Gpn5UE4cb+rGdNMw43Ee6a9wD 8TMWZCbqqdy18JNq2PrBz53RxkX4Fr8oeytWws3GFTJ7Jkb2pu/OPCU6KEg/ bxfOgWsQK6sgOMXQBcX2QUloSb8g0i88vB/Rof2IC+pDEiVq0HQixbeJVZgf XEk7N9LOfZUS0hU+kC3j/Zd6Qr7UA5soO+v3rCH/wAH+FGXUagfEr7dFliWL znVyhG1WIsJGhQgHJl5chwiuQQTnP1JGeIYyWQtFBGvtUJk/2mh3LXGEtpec 7Bd22LAW/GfxyafKXXgCyvVzFx76cA5E+1W034d2eaCA617AKC219RR37Hgw 4srsNUyQtfCk/XJnf+Snkh9pW1GUvg3FGdstxFMry+CaNAB5ygD8UgfgT4Tw OtI4gA1WoVi8WIJlix2xbJEjln/kBHerCEgtI+GxKRzrqbxN77rBfbEnJO97 QfOBF0o+9ILeSYrimAKUJJQgTlWEeF0JEgJKEB9UiuigEgT7F8Ooy0OKLgdp WuH8ivCHdBgQVYliwHs89iUVKPw1wC+wrYw0qCDK+7CrrBd7mCzuLerA3vwW 7MuuR9W2kXV/LkAPNO/oRM9+kwD7KcAxCvASBRhh/A71rd/j6pV5TF6fxzmi j9cnhr/Dl1f/A19d/x2+vvE7fEN8ffN3+PLGf+DzG9/gzfWv8OrqWzw3C3Du /FPUbGnBqa11OPV/23vr/7iuPFt0PfW7d7p7pu/c2+/ynZ6bmaZpSNpOnDQE jTHKjkFgme04cYwii0ssVYlZsmwxlqhEpapSlZhKZMliRkuWzJSkKa239jll J30/7w94P/QPX52SoQ7stb6w93edHZmFHFUCfJiy+HpEwJ/lVIB3JHa9TwKy 0ti3+bC0liQD8CTL+1MErphKOAMHAuAISXhkP0sd/1hECvOIRIxXMmJ9Mvl9 Oig9eOfuDUjxaEKGZwvyvFtQpGiFhqYLnETGuQyUXilA1J5AGPYGYNwjH2NR uRiOuI47ZcNoiTOhMc6Iulg9DDFa6CIrUKMqQmVADsvGNCQXmBCRa4LX9Trp GqykqziCyIBYqY1Etmhpit1h90kZfCSgvfUxmgONKd2egziwY7fsfBj/g0jD vYwrot1lHx3QR5L/P4GDvH8bElCUdoKESp9oqBQxCFPESuuCe+iA9rmacPgz NU6cK8LpT4rw8Rk1tn5wEts3nsGO989i13ufYA+Rt/fts9j/27M48jt3vPvj Ldj2092wXb8PB4g+j5/LSjGXLVuh+tiTZDsnVUTnxCsNbC/jM7tLOGd/AZ/Y n8dpu89w/NAnsOVY2G/+SLqOD4V4ZastdjJV/e3r2/E7Yetp64R9iN8x/v7m 1S2SA5Lvn+nvLmv4k4B+LImF87VmTLUmAa0tBNz74TH4uUUggOQTKoBgr2gE C9WYrByzglIhiKjyFSIyW+zYZied/q11G7Gep3193Q5s+NVOvPmrXXjz1V14 65e0X+zEr37wNt792UFs+QlD8L/ZYNfPbOD4cxu47DuEQPcIeNNOOihx+XAA HB0C4XKUoY/h76ow8Tar434MsyTgcS+aG9yPOWGu+THtEa5Fm2hGpNJuRNci PcqArAg9csJrkKusQm6wBrn+xahMaEZVLC2i6a1vrjTsgS6hDfrrt2DMnUBT yTw6K5fRp2cOW3cfk00PMd/6CEvmJ7jb9RQPe57i8c1neNr/HM9uPScRaQPP ScLnJOEzkvApViQSPsA8STjVsYjRtinkRBWShBnIVMXC82o47zgcPiSirycH g2TcwxLfehM94VbZCx5kFLDZfRq2JKHd3tOwFwO/77TUBSEIEOYSjGiPeJIw HfHeeUj2KUGaohw5imqoA2pQFqxHRlAn8pRdKFJ1oSysC9kXiqC0VuL6R0q0 HVTi9sVQjKeUYTgpH4t1s6hPbYH+WiMqkupRGGtEUWAe1IoMFLknocA5kqMe IwFPXMO3pKs4I9EwQpBQqGv8xStLIploigh+goA7zus/RhPzJHa0g9K9Cufj T+fjTyJabzxIEtoxCjhICZi49wMk4EES8BCdUIh3NIEXQxLGwMU5BW5XU/n8 UuFHC3JJRYhzKpSOqXAmci7YqnD+UDijVQSjVwS2s47Ztfkin+tFRl6VJF3c /iuh1rLBTqLvwi9skPCmDdys9yKM4/GpvSM+oWv/mHaCn20PXpH7zCzrdEe2 28Nhmw3J9oGkGBPSmD3bmOTR9jGJfu/1HXhv/Q68TxK+Tza8SxK+y0j7HhPi d365ic/hEBS8Z1+fCCiYeez6wBq7Nx3CHt7/ns0O8HZWwsc1DL4koD8jYKBH tKRSEwQMYZ0tgmAo+bfzQzLoQ6Fas5evgfa79ZvwzvotVjzpVvwn+bS0d5mP i6WT936xBRte2YS3fkAf9DNbSZFz5Bd2CPmlHUtLLxpzSzt/EjAQjkcEAYPE S0mOB+K/vXyVnBCseZzwgucJloMnnJFGiKTTZ6fRMuNqkRtrQD6tMFqPoig9 iiO0KA2rRFmoBnUpzahLaobRosY0RTajNqTeoqGxMNEa1bHtDIl9LGvG0VA8 i46K27ipu4Mh0ypT23uYbb2P2+aHWOl6iPs9j/CITHvc94RspN2iDTzBEx4f 9j/Gvf5HWOl9iNvd9zDXeQdT5gWMdkxiuG0QQ80dSA0Nh6uzCu5ko6dbuKTV 8/HkqDAf2r2RT1W4RLrDj3acwAGGlEMMBTZko1LBcOAbLXdiibDDEYv2SEGM ZzbivYqQ4l2ODLIw14+PIbAWmlATqsPqGNLqYYyuR11MHRri6hC2PxLqQ5Ho t43APbrj4XQdelKKURtdA12UFtWR1SiPqESpSoOi0CKyOhdqn+tQu8cg80rI SyaG+9MtCzK+IRExIiCGv4lLi+JfC4tk2kUi7j4GG6ajh6wP8zbscHD3AckB KUhGX2EE5m5WWns2MnVkNmDNdHQfyShufz8JLeSMwV5RcHdJpPNKZdRn9UtT 8nMkLYaEjHdNRQIJ6UcE+R0Ogq9dMHxsQuD1USg894TCfUcItm67jO3br+D9 n+7HtjcdiERGMCLxOJEY8podnPcfwKGDziKl3HXSSupv+EdJC3dEmOj43HlE Ev68/cZmGlH/xkapC/qjD5nC8HhAlPJk4wHm1RvJSCtsJB//HTaSje8zJL7/ 2mZSYiN2/k5onTx9wrEJHoowsvEAzRbejiEvmaggLvzIRDkcRkvhMISeaIck /BHiOLuXAjlZO2qPd8nE99ZvoRfgudZt4zk/xAfCXnshkNuKX//LJvyWefjv /nkjtv+CLP7lYVx57TAuH2T5RypeIRWvWKjoxBjoIonjhHaUsfAkqXiSsZCl oMdJd/hciUF2Qi2y44WRgrSiOD1KmEppYmtQQTxVRRJP4ZWoVmrQltqMVtKx Jfn/0H6G1b/xTTbuRkU4k7fEPhgyR1GnnkZb+Tx6ahYxYFzGWMMKZlpWsdh+ F8ud93C3+z7u997Hw74HeER7fOshjcf+B6wM7zMxvY/l3ntY7L6L2a5lTHTO YcQ8jqH2ftxqbkVLTYWl5S4ULq4qXHULg7tHOLa/cxA737ejH3fAbsYHa0Jy H2NjECEb7B1FnxgtM9KPsYlsiHKJQbRbGmKYYMZ5luKaVzUyfPXICzCiOKQB 5apGMqtJ2tfEREfUwKygMbERETZx0pYCEydj8TguBh1ptTDF1KKWTk7HY3WM HpVRjKtkZJGqFOqQAqj9GRt9EpHvFiJio5V0Af+3IKTkGCwm9HTRJGcYCRnm J8uDQv1UOLjHAQdYFx5gXbRv9354MAJ5eobDi/Wxl3eELFF5n75oE/HB+nAP fZEv8ehP0orUTOGWDH/PVATQQmlRtDhaEkl5zS0VN0jINEZIFXOpsCPBUB0J gdIuFCE2SgQdUCJwnxL+O5S4+oEv7HcdxcZfH8OOX9pj56v22P+aPdx/xWi3 Q3Rbn/q6lU3qrBE7bAhevio1jQoBniTCE5KiDcT9hk0SFw8ILvJ4yCIWtZF0 hnaS1nDz6x9i03rygRzZuG4zObIRe94jp97eDxcvpTxBeNEHXpf8JemQtyQd UsGH9+/LXNGffAygMxLRcde2g+QgnxP5uId8lMWq9pIvEDrdD8hH6Tw83yby 0Yo/P8TPsVko8MhLoQ8Wq5wH+Kzf/VdGbIbJna8x2v/KAcHrHKTQ+IKPV17y MQAu5KIrw+LVk77kpA/cT3nB3zEG/k40x0jkJehRQCumlcWTh3E1jG/07dEs +yKFNLQKNcpSdKe3SBtpvNiiQ+yL0JksxKZN6Igyvf7NFuv/ieroPuhujKA2 fwrNpdPorJ5Dv2EBI/W3MdW0hLm2ZUbIFSx3r2C1ZxV3b67ift9dcvCudLzf t4p7/LOV3hXmqCuYJxenu29jvGsGQ50jGGzvRU9Tk/z+71c5CAHwdAyGl0sI FFdVdIZhBFwEgpi+hbCGCiX1lAyEwec9Sb0ERF/NJP2KEOdRjmveNcj0rUV+ UD2KlU0MZi3QRrfBwCBfF9+OhqQ2KG2TkHQ4Cc1HkrDgmIhH+Yl4bH6Ehwzy xrh66Gla1oYVMQaUMSgWR5SjUATDoGwGxGso8FFJ55dSU4sLIA/JvPUS7cIk i6J7iCTxhKIoDCH+Slmb5xeIvYyCjq5KOLup4Mp7c/UIw1VPmpeKBDzEWo4B wSmEwUBJwsmqT3+mw4Ge15iSpSKMFkNL8iLpSL40ki+D5Msh+XJpMSeDEHsi mBaCmGOhiDqqRCQLnTA72iElQq1D4b/ZT3qv445Xz0nA203gnSfw4jY4iAml XaK76EVLndzWJveUvvtC+frmVkn8+wF/3/jmJol4kvzUIkEVCliheLXiJzt8 mz9tZJUVg9jBLQekPSwsmz9Acd7LyvJ+O88LfvC6HAgvxkMvF6UkelUwM/Vl 6e9P/yPeC7v7w0Mvebd3u93XvLOIxAXvBM+tsHn9diF/3cHCYQvDsdD1iXVO K+nnT6RVzvd/tAnv/ysdwbojuLz+KNJ2HGVO6icVhVeO0I4FwInEc5aI9+LV oT4IIOGCnGNpMQh0YlKVoCPpdNCQeJUMhlrmpnq6cWOMEaZoYQb0ZXeiP6cT fcKyO3CT1pPZhl6Ssfe6vFlaT6xh/TfJ9x+YyXajOnkEuuwJ1BdNor1iCr26 GQwa5zDWuICplkXMtd/GonkJS11LuNOzjJWeZSus9i7ju+TcMv+If9W9hIXu Rcz2LGCiew5DXZMY6BxEb1sXGgyGv7M0wLl95g+Py0HwJP68iT9f4tOfIVFM oAr+Bb/g3wV/RDmlkH85zMKKEe9WhWs+emT61yE/uBElYS2oiGqDNqYDhvhO mJLMaEjphPIwMXo0FT0nUrEakIqnXZ/jSdczPGSZWxvfBH08Q2V8HR2XEWUx OhRFVqJQVQJ1KMvCkOsoJKdCxZsblcyGvydFYJVf9Nf2knYRpF04aadCkH8o Akm9QN8A+Pn4Wl7K/324Swq3AGItWJKJ+tDXB7jFI9gzGaHe1xBOiyXNkmk3 vK4jw/MGcjzSkOeZjkL3dCScDkbSx0orJH+sIluSz6iQeEaJhFNKMk+J6GM0 eyXSTicjySZa6hbZ9StZMXps/REEvX6EPDstseyIxDK5j+40PeB7L5WyQugn JPZbLW+g2CKpVW2EYlWIDWlCL2svKXcPw57Fop0k8LOFLWlyaNsBBIhdY5x8 GR4U8L/sA98LXtIDELfvcTFQ8rSevH0vEepINxHq/DzEG2zlECfrzG0tNHvx PoYj0nUIUTlJhi2vC7Hf1td3WmHbGzvxCmxZWYtVTfFODCF6t91si40/3Y6N P2Fc/NFGOLx+DIFvHMNlGz9csg/AZVLtsnjz5zEaaeYs7KSQGRFypFmIC82Z ubBzFGlWi7IEIyoSTNDG10uQMcY1STtX1sU1YqCg3wqDBf34DgYL+/jpJgby eyXNeH9uJ25liX1hmnDrmhE3GSLXfVPi+j1oogdRnTYOfd4EGksn0FE1iZuG KQyapjHaOIvJljnMtM1jrmMei50LWOxaoHu53b1AJ7fQxT8nt6Z7ZjHRM4Ph 7kn0dY2ix9yPtub271g45n4hEB50cJ50cN6MbxLHGN8CvSKldcIQBUF8PghR V64hyjkPMa5liHevJr8MyAysR15oM2NSK8qjO1AdZ4YhsQt1yaRxSheUR9NR cSIdI2fS8SA+Dc96vsDj7s/xsPsZ7nU9gY6Jd3VCAyriTSiNFTVzNQojylAQ xtRSlYbCID5kIjVEcCyUHPt7ckmE2ygeSX1BP3IrhNwKZlgLeqnwC4K/r79F Tvm6pHrzuBIsuZGAq/xKj0QoySuZU9fJqTRyKhNZnlnkUzYKPXNR5JWLEu9c XPskAtfPReH6ZzG4Qbt+Llr6PfXTCCSfjUACiRZ/QoWcCynI/DhBJta6Y5KK dD9xJRpE0kXNJhFLbg4VIey9N2XV31+rZ2UJ+laS62sl61GSibbjqBV/HMFm 2O8kv3YIsR/5tcNW2g1K3mTGD4HO8n4fAZe9yC0PC7eEFw2Gh1OoNMpeljRy 19b9Eq/2kJtfv79BcMrBIgaUNVtbXhfRaie2vrGbhNqDbRt43LCHEZSc38pL E0eh2BfvmNgqGgdssenftmDTTzdh04/fx6UNx5G66Tgu2vrjIiPZxSP+uHTM D1eO+9LoBy4xG3HkcJJaoc5xpFY8QpziSa16lDMFrIpvQU0csyZmTKaEDtTR htTDGC4aIc9HikcYWEaLh2lDGCka5N8JyWs/BvN7MJTDf5vRiMFUPW4mlf/q m29h+Ado4sdQlTEBfeEEmjSkV/UEeg0TGKibxHDjFMabpzHZOo3p9hnMdMxY YdY8Q1TNmKcx1TXNyDWF0Z5JDPbwv3VNoNM8jNbWnr+3aAHdLr145ip4uwlf Fi4xS1r+Y/QS/c+Rl1IReSUfkc6CVVqkKGqREdSAPGUzo00bNDFmRqAu6JK6 YEzuRtDRLOSfyMbA2WzMuGThYX4Wnvb+Hk/IrIc9z3Gv+ylWuh6TVY0opzsq ZeRXR1ejIEqDgsgCFIQzXIQyW2DhKKKnlcTv7yKElArxjZSNlApmphhESgUy ZAUwZPmTVn6+gd+1CCzdL5FhTiqEuMVC6ZGEMFF9eaUj0SsL171ykOmZh1yv AhR6F6LYR40yRRHK/YqQdj4OGRcTrZB5KQm/5M9EZFxKQPrFeFy/EIdrn0Wj wD0NBc6pyL+YiOyPY7Br/VXsfv04rN84jnNEUsybQjpwRur0FoR6d8NGkmgz SfRCQiukf0KGTtRKUvTtJJLo2j4myXgluZZFsnV4l7Cj/MyoJSTHO+zEVliW jUgCyCo/BLmIzUgk7Z+cF/4abnSZ7ldC4O6khAcHVygnJDKJPQLEKx2YZO4V czHbHKSWioNiXZeXYMPTb3lBJBLoww3W+PBNaxJHVqvbC9WtdDz6dSAVL435 +W5s+dkWbPm3jdjy4/cQ8NYJnD/giwt2Abhw2B8XSKiLR31xiWQKusL03ila JpFzEpTOKQh1vIaSeLroOLpopj+6BIIpoRumxF4MF09ipGQSo2KzH5oVJjST DFbjpMO4ZlzadmpY7MgqXtNQwH+f247hrHqSqtqyjGeZwfzPKEmagCZLZlMD /3sb2dSln0CfkYxqmMBQ4wRGm2mtExhro3Xws3kCw6TOIK2vm/+exzbzGBpb b33P8lKJq5dC4OashKdrGGkUDoW0ZiAv4AV/HIyI86TQJVLIUYNY9xokK4xI J4VyVS1QR7ajLNaMKt6xjoHJwMAUcqIB7b5jeJw9gt+X11tJ/PlHPO79Eg97 P8e9nmcSg253PqR/qENJbC0KWbDmx5SjILqQLEpHviqaLI6UWCxipJW0lP8d BJE9Qb7MTcmeQFoAGeRPBvmRQb5M+rx8/PCCQlfPBTCBYGLIJE/FmincMxOx njlI8cxHuqcauZ7FpE8pihVlKPPToDxAg6qgclSHaJDteN0KOU438M/8eR3Z TqnIcrqGjCvJKPXNR5FPDtQe6VC7pKDwUhwyPwmXBMLWG07gyJsnJPwc3nla WrEWgoX3GYtk+sjK2Y1vCWnfTosKfaekXbUVbUE7jkt6VvudJ6zImxNMUA7v Pk6TWSTiktjcS9rOxz1Y1pS6WTSlLrKyL+CKu2Vz3k24eiEIbpdD4UZHslNQ SOw3sVXIae1gvfUw9m47Iq9Ikh4HSY1DNJvtJ0ifXRJ9tr0p6LOX9OGlfcjL EtpioX6UJLfi8zGLtM9BetnTll9sw3v/uh4f/MuruCRkff+8Dik/Xodzdv74 9LAfzpFC/sx0gq5wBB1jOTrJtBsIdeKIkzolsV0oj+1BVdxNUqgf+sR+UmOW FJkjVeYxUTGPSWGV85imTVXO8fMsxsuZrJFUw6Wj0usYhgt7MJzfiuG8Wgxm lrz2zdfNfR9qsqg0cwJassjElK+pcgLtNQwutQwypgncJJP6yaJ+sqi/nawh i3rJos7OCbTSGvm7sWVQ3uV1PVwtD9jdJQxe0qpbhIVBkQj/lHXF+XxEOJYh isEnkcHnBpmTTeYUMPiUxLQzANNnJLZjteM5Qi89RGf+Gp53/gW/H7uHJ6TL k5ufkzqf40Hvc9wlde50P2Em+oAZ6V0UkTr5sVrkxWp4LER+dBpywyJfrviJ FbAA0ieA5AkgbfyFkTZ+fgyWfioo/Fhz+4bgxb6k1bkVHAzWU1eToHLPQIRH HuI81LjmUcKIo0GedwWKFFUo9a9GeaAWVcFaaJVa1Ki0yHXJRJ4rgyct72o2 cq9mIudqBiqDSa/AYpT4q6FWMO9jTVXkkogCgmD3hlOSEtGW5iVksP+yDnGv rMO7b7xPzmyW+MJwY0XC7GQhJ6thhdh8t/TiBosalWmbmMY/vPuk4Muek3Jb zO6j0pZjSsmUDKIh5I0Q473gjC854818zsOir38TruTL9g/2YOcm8fKGA9i9 xZZcsZdUsHvFounWYzhALhwkFw7x3DY7TmLrBsEVa3JlL0MJOSLx5KQkSReC Bfl4QpLDSlFxx1E4kC9bX92L93/0Jnb98E0E/fxDZL33IWp2b4TB+nV8bKfA 2SOs4y4GM8+kp3NMJF9u0LIQ4piD3OheqGP7WDHfYuU8iIHiBWJ/kRy4jfGK JXJiGVNVy5iuXqYvmNGKiYEZ7RLtNiarFzBWNYuRcvJFI3Y+FHtrdjHXa2T4 qXjtm68u/Y/IIVcKGHE05IqWXDGSKw3kSjO50lpH3jDitJMrbeRKKyNOI/li 4lHP38vrbv0nSwnkfDkEruTIVUYYD3LEy11eC1N+nIywz3IRfqUUUW5aJJAf qUH1yFA2Ii+SCVpMC2abH2Ox9QnudDxlmvAU1bVrmJtew/Ki4MUzPLop7Cnu 94resCdY7n4k8WOW/JhsX0JeXDVy48po+ciLvoEMVdjLdThpYco7Qlot9VVE WEHhK7b28vFVwcuXAVERYnm/339kgVgFQ2E9DOoOhF3NQaRbEeLdypDqUYFM L+Z/ihoU++uhCTKgMrQWWlUtasJroY+oRYFbnhXTrnz8AIUeBcjjJ62qGlXK KpSHVqCEDCkKUJNZ2WRHKopEBbXrFLb+4DdwemUz4jdsQ8mWzTDs+S0c1r2K DwQzWMV88OYOEmMXkzFmL2/twdZfM+ORbPfXetFdYib98O5TvK3DUsfUSWlz JCtpJ7ON/CnviqcSFJE0m7JeNcTNHyGCIq4MKc5XkZnTjCxaHs39cizOOQTi /OEgXLAPxkWbEGZLoTi/T4nPdocynBxnVnYSB0mDQ4S/1OxD6thJ9CAlJHqc krW8Fj2vgxDU75RpcmXDQYRuOICU3+yHGyPl3p+LGYR3UGJ3Es2fHEHSOh8k rHNE7LpP4LruLJzWXcTldc44t84d/lfEjhKFaMqfRUf+PHoKF9FftITB0jsY 0axgrGIVE1V3MaW9h2nabM09Pos53T1SZFZ3l7aCqZpljGsXMUKaDFcKmrAU 0tyktZEu+te+uVvSPyCD5U1OwQSKyyZQQXpoSQ8d6aFnKNHX8zMpUkXT0NTG kf9i2ZDW0TEEzkxtXa+GwY10CDrJVJI1h+piMcKvViHGW4+kACNuhNZhsPYe xuvvY6bpARZaH2K54xFWOh/hbtcj3O9+jAc9j5lZPeaNPOx9xDxRLFuv9vDf dfPfd/Imzbxp823mgryhjjHkxOUgOzoFV3lud7Ek5PFiWYjmHS4tWHr6kKoK hjWfUHnL7TdQmaEmDXQwFLSSCj0wqgcR6VKKBLdKXPeoQZa3AQV+tSgJMkHD y65S1UMbXi+tSuuj64n9IqiZdKm9ilEbIVOjJsKAqnA9ysO0KFVWoii4FFWn PNF5yhV1x4PRdNINc/aXoPjNUWTsPQH98WMwf3YIB5mtn/yhNY7/cB8cfrgf tj88QB7skXnwFt2xhQs2xJfU6bhbNFqdlro+7feclLfnspIklP/8cn8uQYSv d5oTW6EEkAhie+44Wqy0hX0prTy3mb44DqFXEqBidRV2IRHudixXbJgKHFDC lUS4uodju0NsCRmBEA/WojS7FyQQBNh+ykrKEV+Bzev2cHvDDhEb7HDjHTsU sliqtD+D2rOXUefkgXofcvHYpzj69jZoLrqi1fsKUuwHcG2/GXHH4+D9Tgq8 f30NXq8nw2t9PDzXRcNrXTh8X1ciaAOrld/Q074TBeUHMRitfIDxqoeY1D7C dM0jzOofWUlK6n/AvNBTG4Su+j6m9asY11l01FXT8sZ3VYwUVZ0YrqjDUHHh qzIN5Hdd/TskZI0gtWQC6eUTyKzikbXJD6S/+0dowuugi+2G4fogDDmTaCia Q5tmET2MTAOGOxitI+kaVzHXcg+L7fewbL7PCuE+VolfK9YLDyRM3+cn2Va6 72Gp6y7mO1cx3UmydpKsnbxK8zCG2nvQ39QonfmKayic3FRwcad50DyFKeHo ESy/6H4ddFnFMOTWSfudGQr6YSwYQWPBFDrU80j11CNTYUJ+QD1KQpqgUTYR q83QRragJroF+phm6GObYCS+TZENMEY1IOVEFAynItBzJgwTZ5VYcgnBQxYo X0RG4quUBKxlJmM4LAlrlXUIsHZEzhkXmFydkGLbh7NvBePsej+c/aUnzv7E CWd/9Bk+/dEpmgM+/YktPv2pHc7+mx1O/dxebh7cfdpKEgQfeLlHmNAlhksW IW/X9X8gW7ySQOGWCD+PBPi5JyDQLQ5VBfJLnGuJ7EinOEQT1bFEdfzFRMR/ lkRLRvzZZMSdTkGssOM0+xREHIgnU6Lo2o9LWc/xdQ7wpkW/4YC09xygtj6F qqMXYPjMDXWs9ev8w1EfnoD6hBuov5GN+mw1Qp0VOLJpDwuqIDRE+EIVtIZI xV8Qc0VNRnXA/VAnPPZ1wWtPJ7x3tMN3ayuCNzcifJMRMZtqkLipAqlbi5C+ nR5tN5PfvSnIP5CCAhsWZrzG/CMpWDA+xbzxsfSegGl60gnDCkb0SxiuEVuI 0b3r6N51LLy1TcS2BhZgH7OAtzqClW3yAAyZ4zAVTqOFxUhX1QL69YsYNi1h vGEZM813MNe6QvCuYonO9k7XKgG8ypi72i32krzTtYJl2mLXMua6ljDVRWfc Nc/CfBJD5gEMtHfBXG/679IpN0CXWUGeNMKQR87kD3JkxtFUOAtz0W3cLLuD QWnvvweY0T+S7mypjulRwxOsNj5Bkl0StA5J6DyaiIkzCbjjHI/H/qn4Mjob f7lRhLWCCqxV6LBWW4e15iasmVux1svAlleJtbu/h88xf6S7BEEX7I+9W1xw fJ8aJ3ercWp7Hs5sycLH79/Ap28n4fxvonFxgwqX1/vD8VUPOP3iCpx/+Qmc XjtBc4CjWNZe74DPXnf4lrSH3L9/uYecyufFdogqBHgksrb3TMQ2BHvSm3rE McNqRh3xGOMcg0TiMckxASmXEnHtUhJSLyTj+nnaZylI/TQF186lIOXja0g5 xUJrUwhif+ePqA1HkLbxOAo/OovK406oOa+AwV2J2sA4UjUVpqRs1KUXoS6v HPViCx9NNUwVVaiqqICbmy8r3f24oYyEJiEEZzPWcDFtjTgvwbmL/bhwfhSX Pp3GlY8X4HJqCR4nVuB7chWhp1YRdXoZCWcWkXpmFplnJpB3ehjq030oPdmJ ihN0G8cZ8k5UovaUGqYzvIZPrsN47ho6eT+jvDdJxFtLL1bLrLyW6YaBFay2 8q/g+B9QFtKG6rgB6NLGUJs7icbiabRXzKKXaB6oXcBI3SLGGxcx3SIW6pew 0L6MRfOyFZboKP+eKFyWlg1vdy4xS75NNC5ipnsB490kQ/cMBrtGMWDuR2+r Gf9DOuV26DO0MGQz5ufc5ClHYMqdQnPBPMwly7ipWcVQNWOK7hFUO5ORb52C 2v3X0O1wDRMXrmPZKwePVaX4Y3INvsqpx1pZO9YMNwm9Iax1jWNtYAZr4wtY m7mNtQXa0iz+vMTCu9KI2d+v8WGHIYbVqzo6DJv3uGL3qRJ8dEKDg0crYHe4 Eg62VThxqBpnDlTh048qcN66FJd3FcBxexZctl6H68YEuL0bAfffBsHjTW94 vuEErw2fwnPDSf5+hPnlEbi+5YArv3aQcBlMKIZ6J0PpzQrYKxERXgmIISgb CcoWgjKJoEx1iscNlmTpl5ORcTnZCpmXUxgHIw+EIIWW9lEosg6GIs9GBbV9 BIrso1B4MApa90jUBCUxHcqAPqkQhnQNjHk1MBbpYdTooScrS2nXS2rgsJup sHhP2p7D+OC9/dizfT98QsPg7HcZgb7y3Ff4FX9EOPMSWXjvc5qHnfMyjrms 4pOrD3DZ7THcPZ/C3/s5VIovEOP7eyT7/QHp/n9Ajv/vofb/AmV+T1Dldx96 32WYFHNo8KaX8RxAs3sXbif2YK2cFaFJKFyZNdYx/tf183d6Cn31Cx953NIx Uh7eh+qUMdSwVDSKqf6yKZiZNoiF6wEji836OYw3zWOqZR4zbQuYbV/AXMcC 5mkLZh5pc+Z5zHbNYap7FuM9pEHPFAa6iYSuEfR23ESDqUEG5GE+OSahme0w ZPURmKNk8gyameh30je6fpCEkp3paD+ehsHLBZjxrcBKpBH3r7Xhcf5NPKsY wZfGGfyR3Piq9y7Whh9jbeoZ1uY/x9ryM/xp9Qme332I1RXm3Isr0PcvQB2e BbUyEZk+ntjzMXMKRQRCI0Jhzci1b6vQHdtKCq+3T1dh81ktdtH2n9XB7mMd jp3R4/QpPT45acD5YwZcOqKHk70WrjblzBWL4LE3F167b8BneyIUW1iOvh8E 37e94fdbJwSdCkHIGeajZ8QxBKozwVCdDkYiPaXC1gvhNt64ftAH+TYKlNor kOUQhzSbSOTakTBHolB2Sij+4lF5PhGVl1JQcSUVFY5ptExUXM5A6bnrqMk1 QKdmIl5aiwpNLfLKahFbYBDvfZDrxp/xpyx0EEqjw9YOPNoxhz7wclYpgGAU s0rhF/0JykSEO2bRCPDMSdo86nKXODx3YS5+QH/xBOfD/wD3mD8hIOHPCE/6 CvHJf8H1a2vIphWmrqGMVkXTp34FU8ofUZ/8JVZNf8Da2BOL5pO+qnGcxoS0 oZ3OsuYFIE9YprQ10UOovM5iLIeALJpAs2YCZmakPfop9BunMFQvlnenCcoZ TLbMYqp1FtNts9I61FTHNCaZTU50TWG0W1586pcWoMbRZR5CS3Pn/7T0Euuv E4jpHbzLWwTjGO90Fs3q2zj+nhrRB/rRohjHeEofZnPHsKiZxx3DKu63PMLj ni/wbPBP+HL8K/xx9iv8YeHPeLb0J6zc/iNG536P0s7nKI9rREmMCeooPQqi KlEQXYzCyGyCMQmZft6yxFQhT4dbb9rNYC12YbUlIEWHvzyxe2D7MRzYcRyB HhEI9ojC1osGWF+uhc2VWhy5bMSpS0Z8csGI858ZcflTI5zPGnH1tB7uktyw HD52agSfT4Hy/HWEnU9FGMNtxCdJiPk4ETdIMF87XwTZBCHZVoX8oxGoPB3B kBaGunPBGPLKR82VTOhcc6D3yIfem9WjbzF0/iVW0AaU4tvQ+hehWpEPjXsW ci6nwj/dCLsdZ2C/k7b7Yyvp5SPfld53Zb9HrtvsBQ7F+7X2CsGNHeysD8DP VxKbWMGXIPzfUJ7zRjjzhfBLmTCkDdEIw6x5hq1lDs49hq2H6C1/goHKZ4yv n2NM/wVzwi8xZfwCM6YvMFv/OcIK1pBUvIb00jXkl62hWLMGDW16+C/4w8M/ Y7iJMGwW2kfCsIUwbCIMTboXMDxp2dmkLG4M5WkTqM6dQG0x/SKLo3axaKOb wM3aCdyqm8BgwwSRPIERy8LNaDs/i0WbTnnRpp8+sJfWyc8d5lE0td78X5aX Nuuv6WG40SGpu6T0NHcOzUVLOL5xBDFuf0Br1p8wbvqSLvcrLPas4c4gbWwN CxNrmJhcQ/foGuurB+Yv8U+4Z/4C+jgztPHtqIxv4aU3oTimDgWxhF9sFa0Y BTE5KIhIklRdX08ry07AerOAn50ktdu7VVb67CP8AtwiJPjJUrsoBtdoBtcY Fi4+MfihJHiydjXB1s2EY7TTV00452LERScjFI6pCCZ6lK75ULmoEeZchAjH IsRdLmLIbUCgbRgibOKRcSwFyUdvQHMsDc2uqWh3Z+pLd18bUA1jiA4mlQGm cAOMEQYYInSs4bQoDq1Cmo8GaudrKGSxk/epWKoVEqzvEYKnYbfrjGzSO2hk kZYd8WdnfQJ2e4/Cnviz22sLW+JP6Cys4MOw/H34+IXRlAj7jIlsKtP3VAsA 6QeNBGCT+i46Sh+ip/wx+queYkj7jMXIc4zXPsek6Tmm655hpv6ZFWYbnrIm n2NWP9f4GLONLNcbHtJf3SNQVjHcSvy1EX9txF8b43JLG24ZtRb4nbKsFxbH T6CU8Ksi/Az0gvX0gi2szTtqJtBtkFc7+uoJsSZaC62N1kFoEn7dhF9Hl7zi 0czfTc23/smyj6cusYb3RdhdvyXBrjZvDk2EXYfmLjyUX6G8+i/o6l5DCyGn Na9hqfk5lls/x0r757jb8Tnu0e6bhT0n7J5jxfwMVXFt9HgtKGU9rY6tQ36c HvnxVbQSFMRl0/uxaCXs/Ag7P4VYEBTysu9hz6YD9H4WOcFWB1hvOwJf1zD4 C9gJhadFUiBgJwRmQuMjxjn2W5K44RXLy26F1CIaHu7pUHjmwt9LjUDPMoR4 ViDMo5pcqkGa9yBCbJMRczQTCccz4fIbH8S/rYDxPQW6ArMwXcJnFN0IY0wT dDGNqIhsRLlfGTR+pSil2yvyUUPtlQe1WwaKnJOhvhyD3PNKGXN/DxtizpZ4 sxV6LKECodkSa7Z7j8N231HaYdgQb4eshaLASxHOS/f0VcFTIXcyGxJrYUju hCGFruC6jDfh8BqJt/aSB+guf4S+qkcY0D5mAvcEo7VPMGF6gsm6x5iupzU8 IuSEPcRMI0vLxvuYItjGW1Yx0nYHw+2sdjvk6cPh9j4CsN0yD3rasqyWnzAB NcFWSrBVE2y1ZQQcwdZMsLXR17XT15np5zro5zro59rp51oJtiZanVhSI/g0 pt4fWL6uOk4LfXIbgUaQpY+TPHNolEC2it6qexjUPcSY8RGmWPvOs+5dbH6K pdanuNP+FKsdNPNT3DU/teKPJ/gBMcYyueMh5tsfoCS2EQXxdVL3dF5iJa2I OMtCblQcfLwi4ONNY53qQ157k9XS+xk3yV3yUqOuiwoKsT2LJGIUGIuSMBbi 9TXGlAoZZzHfkhD2ioSvMNcQRHlG0xIR5X2Dlo1Y73wkeBVC6WlCbNAYlLZZ iD1dBMff+MP1nQCEfBAIzeZAdIUX03nMoiJAi4rAalTSqgL5OagK5YGV0t4m xcSbWlGEIuKsyD0NRa4JUDuFiYsR1xJNh6JUROGQRfd20PokDhFfh/YeI7aO woYYO7jXBvutP4KbjwpXvZXyytgPoIsl5ROYcSf1w3BtHIaMOZaCt9FYuILW krvoLL+P3sr76Nc+wKD+AUYMDzg6LAtNDzBZ/wBTDfcJMWH3MN24SmitYLL1 DkbbljHSQWixABgWM3idrH3NfRhqbYMFXx9bCt+c9AkU5E+gjHG0inFUxzha qydujMQPnVhdo3BS/DM6Mh2tmp8rGsdesdyBnjHNkMx6QdTNObNoYJrWprmD nqq7uKW7j5Ha+ySDAD9B0vwIi62PsNz2CHfEXLv5EfEk7CE/P+SfPcBix32W MPcw1b6K8Y5l5CTV0MpphchNSEdmlOgS9/AKx/8DD+9wePiEwZ0Pdft7++B1 yRfelwMJpmB4uygtYGIS7S5iZaRFkBf9V8JEIYoVruJbUh/6f5bwFHlVhSiP GEmWEeWVRctHnFcR64NSXPfUIMuT1+OlQdS5Cji9EwK3D0JZYyiRvU2J7o+U xJABlUEGVAcbrFAdYmCuVcWfFYyZmmAtSggrtT8h5UvX5Z2DIp6myD0KuY4B 35IEMd9GqC9dKx1xCGki9qMJYegL8QtGsF8gE1M/uc34f0Efy4cf18sBGOEA zMCYvYC6gmW0FK+Q0CvorlzFTe0qB+Iuhgx3ORh3MWa6i/G6VUzUr2KygXBp pDUtY6JlCeNti4QNIWNmCOyalubRhrtk6Fh6Zj6RDt/BjewJZNAd5TP2FdEd ldAdlTL2lRI2xYx/hbQfSv/2FWijm5kD8TJTh1lXTqO+cAGtZUvoqryD/poV Fhoc67q7RPM9zNI5LrTcx2LbfSy138cy8SDmrZfN94iPe3Q2q8TIKmY7eNnm ZYxKc9R0oJ10oOZ+ZMZfh6ObEk7uKjh5iDnp0G9ZelI9L/rC67Lcqext6VT2 lVRi9DeMZ0KZ8xIihEao5GuEx/mR1Cetspj4HCVBJIEQSUekZx6PzJ8Y2pI8 KnDDswpZXloMltzGqGYJzh+kwn0Lfd6HEUjaGYn6PZGoCq5DdWgdtKH10Crr UaPi7yoTKpVGaJQGlITUQB1UQZyUEif5spbXm27HI0hu3A6lw/m2pfNNdL1Z 9i3yD32pjwhQ+L7AiTaiEfrobugTB1lbTUIv0vb8RTQU3ZYGwly+jO7qZdys WcYt/TIGa5cxbKQLMfEB1y1hjNXhWCPvpkUooomPjjkMmmcxxFJOdOcOd09I OBkw977ASbx0+CdoeGM6ceoUJmyZdCv5c9LbEswVi4TmEgbEW2VNdwhHsVax gtmWFcy1rmKhjePctoLb7WL6l8eOOxz3ZfqGJcx03mYVuYCRLgHTKenUg+ab 6Gtp/buX+0Uo5K50sXmRU6jkDl60ZQsVlhjvIKFCsrgDabx9xNsqONz/VWKh 0ldu2I26GoEotxREemTRCmiliOMwJ7trkealQ5aPHkNlKxgtv4tJRlCPD2Pg s4texToWlR/FYdIxjkPczCFutoIurJlORhvehMqwepRzxEuUeqhDqjnazJoD 6BECWIv6p3DEwySZjmhzDOYwB/t+3dwo+oVFP36QfzAC/QLljuj/AW1YJ3Rx t6BLGYMuYwo6ls2mQsb34nm0avjMKxc4zHzuukVpmn2gdhGDpgUM1XFIG+al ymuIFfsgq/UB8xQG+GwHObRDrNJFtX6ra/hFn3eC5TlXqXjK+AHo0xi8cqeI qBm6fzGTP48+3YJ0CrGF/TgRJDROYvp0tnXJSppD/a6kuJhjCjTLWDXduYBJ juhYN9ncPS2BapBn7O/o/Y5l5yCxaYSnkFWItm9npaQrU7hZRpUjKrHYMqpW UgP2j0ULtqQ0FIQRzzLsigKRrjGIdLtBy0WkexGPGsR6VCHFU4cb3rXoK13F EEPvmGVFz2NnIhTWiQj8KBG5B5PQeziJw9kOXXg7aiLaoItoJceaUUmelYfX ozSsFkVKMjiEnj5EKA6ZoAZf59hGSW+QsZJG9O+kdrsgP7lZNVDqAQ9FAOnr p/C3bE31X1AW0IDqyD5UJ45Ae2Mc2izyN38KpqJpNJVOo7V8Fh1Vs+jSzqJH N4ubhln01c6iv34GtxqncatlCrfapvgYJ9HHoqOPxYeVNPHyLfR1j8PcflM6 k4W3iRYsVUXegvbaGGrI2dqCSTSWTKGtYhpd1TyFfpYDS+7VzWGUuBlvnMdk 8wKmmucx1TqP6dY5xu85+udZ8nQaoxzNoZ5JDAgM8ZR9nUMwt3ZabvF7cDsn ayjkVvfQryVLL954wtgtdy1Gyf2/3tIjJDl+wZ/ydI2YtY10iWPspkO+mk8r QfTVSsS5aZHsaUAXQ2K/5h6GK1jtVT/GlO4JZvXPoPjoGgIOXkOKXSoaDqei JszM4eyALpIW1Q5tZCsqI5uhiWhASbgJ6jA9ClXVNAZw0e2vTOfwxlpejRPx chZZdFAGSD3Iyhc9yJaN+v4bh9SMiqhBVCaPoVLUkYylOqZgJsbTBqb3LeWT aKuahFk7iS79JLoZU3uYivWwnuxhit/NFL9L1JIcym6ypKdbPnaYhyx6J8sw /nfmGl2oiBtB1Y0JaHma2kJZj9FWwa/WTnEoiQ7jtKTLGLZM3o010VpoRM1Y xxTD6yQ9/YQ0a9zHIbwpTdqNoaO9X76j38DtswC4Xw6Gu2OoRExPV7lzXIyg n4ele9wz8mXvqTSSHLkXTy2CrjrSKQERzhmIcCmkldHvViHWTYckjl536V30 lz/AMEutCe0TTOueYZalveJgGgLs0hB+OB2Vx9IxcSWNo0eXFMlRjOpANUew IqoFGlaNJRH1UIcbUBCuRUFEOU1Ny+RIxkszLnITn6WRj6Pn93X/64t9eosC ulEWM4KyFObLzJsrciZQUzABA3PnOg5cYwUHT8v6i/lzOxOgjoav67K2dtEg TOucsEJ7l6BfU/uo9MXykrk0bkmWGa7i4D5oEsdR8WKaQU1ocNxaK1nt8Qzd lpmufp7lFqExQGgMMjsfYLU3wKqvn0y/aYFHl2WWq61jWL6Rb+Pq+UC4XQrh eCnh7qySW5SvhsPHTWqytIIfB+uXf/W2jxez0mEXAiyz0ZkId1bTyuhPRTGv R1sRc86ye+gnyYarn2Bc9xRT+ueYNX4BhW02Ag5nIuRoFjQnstBzOos+k0MV 1QltlBlV0e2S1K00SggI6lEQaURBlA4F0RW0In7O4nAlSLMUvrwOMSmpoH3d b2lpPuAwxY6h+Brz0AwOEx9eJUFfw4dn4PCY+PDqX+wRyuFp5PA0cngaODwN fHCNHKIGmr55yCKpT7bM+hSE3kJJIjNcMfD8Vp3a0ufKb21l0dTBIekkU7sF U1k09XA4ujkcXfxWM7+xXfS5chhaOsXZRv7RsijtyqG4KnpdHVUcijB4uIbL /a4cCuklD56Wlzx8Y5ZGzNEoz/kj/FISxyKTMU1N0yDMuQoN+SzA6Oy6ylg2 Vj6yjMNzTBk+x6zpS8zXf4mAoznIPGHEoKINz66ZsNz8BR1dJ+liRiVpo4kW 49ACdVQD8qNNyI/RIT+uEvmxrOhjs5AflSBV8WJuzlsywkdq7Av+vmV5Pydu GHnXJ5BHp6MmRUpL+NRYXlbxSWn5/HXGr9u4ajgGula5u7GGT03uKMY1y3Rs QRK/Il2eAamii9SXfd0w2UQOtNTR+DWt/JoWfkWTZSjF7IeJn3XNI/i+pWwR XcVSx6QLy0Y+aQ/m/57MHrzooLylOQoxByZmKX78cp4i7HwCwi5mQnVRLC7S h2bPoT5/Ca3Fq9JT7hNPWfsUYwwnk4bnmDE9x1z9cwSc6EKRgsV5wef4vOUh /mA2Y7nlGZ/2U1SIJxzdiuLoFhTGNCAvzoi8eB2tEnkJYt4kE3kx8XLLmEJu GfPwCWXwEPfxXaTzsWYS1nkEYAEBWERYF/OxFovyi8+jpF46/lp+kqmWbC0j YQTZDOj5DDYlHJByDkg1B0TH/6nn/zTwfxkaxRPjINGqW0StP/Ffpf/+Czg7 Kb/ureODEy958PAMl6pxuRbnn1nqceUnsTCkdLLmG2RpyoeWNcfSdIml6So6 NeKhPcQgU6tR/WNM1D7BlOkpZuufwv/UrLRgNdyyhucza1hqeUJ7jNti7qD5 IeaaH0AdLR5YPXITapGTaJkfSBTzAxnIjomDq7cKDvKdp1kcXiqxk07s5LBc LWC5qiZ21CxXC4ifAuOEPAX77192NjmzenT2oHkKC5Ub//83k2sjDIkdltlA ZrxZs6gj35rp98xld6WpmgEtw5SYRKtl7mh6hJn6R9I0c1DqGqp71tA0+mfp RhZbHtDus9hl0dvC0oFFz1j7Hdbfty0zguO0WxhuM2OgwYQj8g11WkhRTdeo F9qyhD4+41HWVtMw5S2gqWgZHaxGeipW0V/Nsl93D6Oiz9F4H5P18mzRbON9 zDXdJ9Dnm+8xK1ng6edbRJ/YCmZaWYu1s+wz38bIy9mjUam2HuKlHJUvo8vS vlsT1Qp9DEv7FJb26ZMw5s6jXr2ItlKW96wqb1bfwS2W+EN6FkjGFYybVnkZ qyz1VzHdtGKF2eYVXsFs8x0+hGVmjiwTWA+M88wjnaK6m/3GJEQ/brW2//UV /BMqWD3ronrk2pb5sSF7hkBjkcmip4NFT3elKDRv45ZuCUO1Sxg1sZZlTTte v4TJRp6ONt10m8nrIpNXliDtTGjNTGzFpIKYA+me+kZ92yf3i6DbUllXKhm9 YgeguzbKkovsyZtCHTPzllLxBiTWQdVzrKrnWVUvsKrm42S5Ncpya6x+QUqb x5vmMN5Ca5/FaMeM1G439P9RdnW3dVtaVdBjKQwqw/uloqBaFAV0BwaSur54 Ci1lUzy1yNTlRoE+Pau52hmmeDOs9HhDTPGGm2mtUxhq56nMzMwtC2LfLAy6 zQPSmSyn7bUkr5qoIVQkj6OSnrCa+Y+Bzr2uWJYhtlXKy8HdZFevRUDVLxZC 6FNuWRZChOzjZqesOxSJa0+PnKWYO0csy8y4acF4afToy1RLJEE6nspULGu0 Wuj02uj0zHo56nbxNN1MgrotUbdTRN1OcS8dUq7Vah5/mWvJ7RXos4QqdQzT BZ6mhOOnyZUFLAb6VRNP0cC7aeIpWniKVp6ilado4ylaeIrmDimJM4uf9Ywz L77echf9L3r9Y+VImJ9FN807KLdMtNbwqw3MGYx0QSa6bNOLiVaGMAO/vrZd Op6Rv23A4vjTWJNlcLSzeZEFvMhiXmQZn0M5L7Lixc7NDUwxNY0TZ+X/OiId voVEJiypjJ1plWKg06onzsl/L1311r99/tvnv33+2+e/ff7/82f8X/8vAR/e XQ==\ \>"]] }, Open ]] }, WindowSize->{1245, 910}, WindowMargins->{{Automatic, 226}, {Automatic, 16}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, Magnification->0.8999999761581421, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 985, 20, 70, "Input"], Cell[1567, 44, 2928, 52, 272, "Output"] }, Open ]], Cell[4510, 99, 907, 16, 29, "Input"], Cell[CellGroupData[{ Cell[5442, 119, 833, 13, 29, "Input"], Cell[6278, 134, 669, 24, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6984, 163, 698, 22, 70, "Input"], Cell[7685, 187, 478, 17, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8200, 209, 927, 15, 29, "Input"], Cell[9130, 226, 550, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9717, 240, 200, 4, 29, "Input"], Cell[9920, 246, 73, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10030, 252, 4324, 121, 130, "Input"], Cell[14357, 375, 403, 8, 28, "Output"], Cell[14763, 385, 473, 9, 28, "Output"], Cell[15239, 396, 494, 9, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15770, 410, 305, 6, 29, "Input"], Cell[16078, 418, 83, 1, 28, "Output"] }, Open ]], Cell[16176, 422, 4522, 93, 70, "Input"], Cell[CellGroupData[{ Cell[20723, 519, 2568, 36, 29, "Input"], Cell[23294, 557, 5500, 90, 308, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28831, 652, 776, 12, 29, "Input"], Cell[29610, 666, 19894, 476, 169, "Output"] }, Open ]], Cell[49519, 1145, 1254, 35, 70, "Input"], Cell[50776, 1182, 2014, 30, 29, "Input"], Cell[CellGroupData[{ Cell[52815, 1216, 3803, 85, 110, "Input"], Cell[56621, 1303, 89, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56747, 1309, 4092, 89, 70, "Input"], Cell[60842, 1400, 6671, 111, 382, "Output"] }, Open ]], Cell[67528, 1514, 1985, 50, 50, "Input"], Cell[69516, 1566, 1890, 45, 90, "Input"], Cell[71409, 1613, 511, 11, 50, "Input"], Cell[71923, 1626, 2123, 48, 90, "Input"], Cell[74049, 1676, 1935, 47, 50, "Input"], Cell[75987, 1725, 1261, 33, 50, "Input"], Cell[CellGroupData[{ Cell[77273, 1762, 1762, 40, 50, "Input"], Cell[79038, 1804, 89, 1, 28, "Output"] }, Open ]], Cell[79142, 1808, 1995, 35, 90, "Input"], Cell[CellGroupData[{ Cell[81162, 1847, 1642, 22, 29, "Input"], Cell[82807, 1871, 7304, 119, 397, "Output"] }, Open ]], Cell[90126, 1993, 1655, 24, 29, "Input"], Cell[CellGroupData[{ Cell[91806, 2021, 2749, 55, 70, "Input"], Cell[CellGroupData[{ Cell[94580, 2080, 405, 8, 21, "Print"], Cell[94988, 2090, 402, 8, 21, "Print"], Cell[95393, 2100, 405, 8, 21, "Print"], Cell[95801, 2110, 405, 8, 21, "Print"], Cell[96209, 2120, 405, 8, 21, "Print"], Cell[96617, 2130, 402, 8, 21, "Print"], Cell[97022, 2140, 407, 8, 21, "Print"], Cell[97432, 2150, 407, 8, 21, "Print"], Cell[97842, 2160, 404, 8, 21, "Print"], Cell[98249, 2170, 409, 8, 21, "Print"], Cell[98661, 2180, 409, 8, 21, "Print"], Cell[99073, 2190, 406, 8, 21, "Print"], Cell[99482, 2200, 409, 8, 21, "Print"], Cell[99894, 2210, 411, 8, 21, "Print"], Cell[100308, 2220, 408, 8, 21, "Print"], Cell[100719, 2230, 411, 8, 21, "Print"], Cell[101133, 2240, 409, 8, 21, "Print"], Cell[101545, 2250, 409, 8, 21, "Print"], Cell[101957, 2260, 409, 8, 21, "Print"], Cell[102369, 2270, 409, 8, 21, "Print"], Cell[102781, 2280, 409, 8, 21, "Print"], Cell[103193, 2290, 411, 8, 21, "Print"], Cell[103607, 2300, 411, 8, 21, "Print"], Cell[104021, 2310, 411, 8, 21, "Print"], Cell[104435, 2320, 411, 8, 21, "Print"], Cell[104849, 2330, 411, 8, 21, "Print"] }, Open ]] }, Open ]], Cell[105287, 2342, 2696, 53, 90, "Input"], Cell[CellGroupData[{ Cell[108008, 2399, 867, 15, 50, "Input"], Cell[108878, 2416, 2380, 56, 86, "Output"], Cell[111261, 2474, 71, 1, 28, "Output"] }, Open ]], Cell[111347, 2478, 10819, 254, 110, "Input"], Cell[122169, 2734, 10888, 256, 110, "Input"], Cell[133060, 2992, 8495, 167, 70, "Input"], Cell[CellGroupData[{ Cell[141580, 3163, 4836, 69, 29, "Input"], Cell[146419, 3234, 56824, 971, 369, 11637, 228, "CachedBoxData", "BoxData", \ "Output"] }, Open ]] } ] *) (* End of internal cache information *)