(* 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[ 241800, 4860] NotebookOptionsPosition[ 237836, 4739] NotebookOutlinePosition[ 238371, 4760] CellTagsIndexPosition[ 238328, 4757] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "experimental", " ", "molecule", " ", "data", " ", "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}}], 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.570439772634504*^9, 3.5704398253157964`*^9, 3.5704399334863863`*^9, 3.57044002671215*^9, 3.570440146957161*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"1.889726", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.862000"}], ",", "2.453000", ",", RowBox[{"-", "0.010000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.657000"}], ",", "1.789000", ",", RowBox[{"-", "0.004000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.615000"}], ",", "0.378000", ",", "0.001000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.822000"}], ",", RowBox[{"-", "0.343000"}], ",", "0.001000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.049000"}], ",", "0.354000", ",", RowBox[{"-", "0.004000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.067000"}], ",", "1.731000", ",", RowBox[{"-", "0.010000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.641000", ",", RowBox[{"-", "0.340000"}], ",", "0.006000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.796000"}], ",", RowBox[{"-", "1.779000"}], ",", "0.006000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.987000"}], ",", RowBox[{"-", "0.214000"}], ",", RowBox[{"-", "0.003000"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.019000"}], ",", "2.272000", ",", RowBox[{"-", "0.014000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.878000", ",", "0.339000", ",", "0.009000"}], "}"}], ",", RowBox[{"{", RowBox[{"0.631000", ",", RowBox[{"-", "1.746000"}], ",", "0.009000"}], "}"}], ",", RowBox[{"{", RowBox[{"1.854000", ",", RowBox[{"-", "2.450000"}], ",", "0.011000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.620000"}], ",", RowBox[{"-", "2.451000"}], ",", "0.009000"}], "}"}], ",", RowBox[{"{", RowBox[{"1.869000", ",", "1.440000", ",", "0.008000"}], "}"}], ",", RowBox[{"{", RowBox[{"3.061000", ",", RowBox[{"-", "0.363000"}], ",", "0.012000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.597000"}], ",", RowBox[{"-", "3.547000"}], ",", "0.012000"}], "}"}], ",", RowBox[{"{", RowBox[{"3.050000", ",", RowBox[{"-", "1.768000"}], ",", "0.013000"}], "}"}], ",", RowBox[{"{", RowBox[{"4.019000", ",", "0.169000", ",", "0.015000"}], "}"}], ",", RowBox[{"{", RowBox[{"1.840000", ",", RowBox[{"-", "3.546000"}], ",", "0.011000"}], "}"}], ",", RowBox[{"{", RowBox[{"3.999000", ",", RowBox[{"-", "2.314000"}], ",", "0.015000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.752000"}], ",", RowBox[{"-", "2.314000"}], ",", "0.007000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.889000"}], ",", "3.547000", ",", RowBox[{"-", "0.015000"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.297000", ",", "2.339000", ",", RowBox[{"-", "0.004000"}]}], "}"}]}], "}"}]}]}], "\n"}]], "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, { 3.570428958937888*^9, 3.570428967814304*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3.518669812`"}], ",", "4.635497878`", ",", RowBox[{"-", "0.01889726`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.241549982`"}], ",", "3.380719814`", ",", RowBox[{"-", "0.007558904`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.16218149`"}], ",", "0.7143164280000001`", ",", "0.001889726`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.443080772`"}], ",", RowBox[{"-", "0.648176018`"}], ",", "0.001889726`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.7617745739999995`"}], ",", "0.668963004`", ",", RowBox[{"-", "0.007558904`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.795789642000001`"}], ",", "3.2711157060000002`", ",", RowBox[{"-", "0.01889726`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.211314366`", ",", RowBox[{"-", "0.64250684`"}], ",", "0.011338356`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.3939478960000002`"}], ",", RowBox[{"-", "3.3618225539999997`"}], ",", "0.011338356`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.534337562`"}], ",", RowBox[{"-", "0.404401364`"}], ",", RowBox[{"-", "0.005669178`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.594808794`"}], ",", "4.293457472`", ",", RowBox[{"-", "0.026456164`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "3.548905428`", ",", "0.6406171140000001`", ",", "0.017007533999999998`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.192417106`", ",", RowBox[{"-", "3.299461596`"}], ",", "0.017007533999999998`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5035520040000003`", ",", RowBox[{"-", "4.6298287`"}], ",", "0.020786986`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.17163012`"}], ",", RowBox[{"-", "4.631718426`"}], ",", "0.017007533999999998`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.531897894`", ",", "2.72120544`", ",", "0.015117808`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.784451286`", ",", RowBox[{"-", "0.685970538`"}], ",", "0.022676712`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.128166422`"}], ",", RowBox[{"-", "6.702858122`"}], ",", "0.022676712`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.763664299999999`", ",", RowBox[{"-", "3.341035568`"}], ",", "0.024566438`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.594808794`", ",", "0.31936369400000003`", ",", "0.02834589`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.47709584`", ",", RowBox[{"-", "6.7009683959999995`"}], ",", "0.020786986`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.557014274`", ",", RowBox[{"-", "4.3728259640000005`"}], ",", "0.02834589`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.200525952`"}], ",", RowBox[{"-", "4.3728259640000005`"}], ",", "0.013228082`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.569692414`"}], ",", "6.702858122`", ",", RowBox[{"-", "0.02834589`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.561248622`", ",", "4.420069114`", ",", RowBox[{"-", "0.007558904`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570439772665704*^9, 3.5704398253625965`*^9, 3.570439933548786*^9, 3.5704400267745504`*^9, 3.570440147003961*^9}] }, Open ]], Cell[BoxData[""], "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, 3.5704289728375125`*^9}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"bc", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bh", "=", "10"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.568619649566018*^9, 3.5686197006249075`*^9}, { 3.5686315613096266`*^9, 3.5686315730408473`*^9}, {3.570439326972921*^9, 3.5704393501233616`*^9}, {3.5704400196141376`*^9, 3.570440021626541*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"u", "=", RowBox[{"{", 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, {3.570428892668972*^9, 3.5704289250390286`*^9}, 3.5704290058627706`*^9}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5704289316690407`*^9, 3.5704289317158403`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"Length", "[", "u", "]"}]}]}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9}], Cell[BoxData["24"], "Output", CellChangeTimes->{3.570439772696904*^9, 3.5704398253937964`*^9, 3.5704399335799866`*^9, 3.57044002680575*^9, 3.5704401470351615`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"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}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.1`", ",", "0.1`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.1`", ",", "0.2556`", ",", "0.1`", ",", "0.2556`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{3.570439772728104*^9, 3.570439825409396*^9, 3.5704399336111865`*^9, 3.5704400268369503`*^9, 3.570440147050761*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.564`", ",", "0.564`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.564`", ",", "0.2556`", ",", "0.564`", ",", "0.2556`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`"}], "}"}]], "Output", CellChangeTimes->{3.570439772728104*^9, 3.570439825409396*^9, 3.5704399336111865`*^9, 3.5704400268369503`*^9, 3.570440147050761*^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.570439772743704*^9, 3.5704398254405966`*^9, 3.570439933626786*^9, 3.5704400268525505`*^9, 3.5704401470663614`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"v", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, 3.568284752733806*^9, 3.568284795899082*^9, 3.568566526852699*^9, 3.5686155305347834`*^9, 3.5686282041389246`*^9, 3.5686314326406007`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.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[{-3.518669812, 4.635497878, -0.01889726}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.241549982, 3.380719814, -0.007558904}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.16218149, 0.7143164280000001, 0.001889726}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.443080772, -0.648176018, 0.001889726}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.7617745739999995`, 0.668963004, -0.007558904}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.795789642000001, 3.2711157060000002`, -0.01889726}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.211314366, -0.64250684, 0.011338356}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.3939478960000002`, -3.3618225539999997`, 0.011338356}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.534337562, -0.404401364, -0.005669178}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.594808794, 4.293457472, -0.026456164}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.548905428, 0.6406171140000001, 0.017007533999999998`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.192417106, -3.299461596, 0.017007533999999998`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.5035520040000003`, -4.6298287, 0.020786986}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.17163012, -4.631718426, 0.017007533999999998`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.531897894, 2.72120544, 0.015117808}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.784451286, -0.685970538, 0.022676712}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.128166422, -6.702858122, 0.022676712}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.763664299999999, -3.341035568, 0.024566438}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.594808794, 0.31936369400000003`, 0.02834589}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.47709584, -6.7009683959999995`, 0.020786986}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.557014274, -4.3728259640000005`, 0.02834589}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.200525952, -4.3728259640000005`, 0.013228082}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.569692414, 6.702858122, -0.02834589}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.561248622, 4.420069114, -0.007558904}, 0.1]}, Text3DBox["1", {-4.018669812000001, 4.635497878, -0.01889726}, {1, 0}], Text3DBox["2", {-1.741549982, 3.380719814, -0.007558904}, {1, 0}], Text3DBox["3", {-1.66218149, 0.7143164280000001, 0.001889726}, {1, 0}], Text3DBox["4", {-3.943080772, -0.648176018, 0.001889726}, {1, 0}], Text3DBox["5", {-6.2617745739999995`, 0.668963004, -0.007558904}, {1, 0}], Text3DBox["6", {-6.295789642000001, 3.2711157060000002`, -0.01889726}, {1, 0}], Text3DBox["7", {0.7113143660000001, -0.64250684, 0.011338356}, {1, 0}], Text3DBox["8", {-3.8939478960000002`, -3.3618225539999997`, 0.011338356}, {1, 0}], Text3DBox["9", {-8.034337562000001, -0.404401364, -0.005669178}, {1, 0}], Text3DBox["10", {-8.094808794, 4.293457472, -0.026456164}, {1, 0}], Text3DBox["11", {3.048905428, 0.6406171140000001, 0.017007533999999998`}, { 1, 0}], Text3DBox["12", {0.692417106, -3.299461596, 0.017007533999999998`}, {1, 0}], Text3DBox["13", {3.0035520040000003`, -4.6298287, 0.020786986}, {1, 0}], Text3DBox["14", {-1.67163012, -4.631718426, 0.017007533999999998`}, {1, 0}], Text3DBox["15", {3.031897894, 2.72120544, 0.015117808}, {1, 0}], Text3DBox["16", {5.284451286, -0.685970538, 0.022676712}, {1, 0}], Text3DBox["17", {-1.628166422, -6.702858122, 0.022676712}, {1, 0}], Text3DBox["18", {5.263664299999999, -3.341035568, 0.024566438}, {1, 0}], Text3DBox["19", {7.094808794, 0.31936369400000003`, 0.02834589}, {1, 0}], Text3DBox["20", {2.97709584, -6.7009683959999995`, 0.020786986}, {1, 0}], Text3DBox["21", {7.057014274, -4.3728259640000005`, 0.02834589}, {1, 0}], Text3DBox["22", {-5.700525952, -4.3728259640000005`, 0.013228082}, {1, 0}], Text3DBox["23", {-4.069692414, 6.702858122, -0.02834589}, {1, 0}], Text3DBox["24", {0.06124862200000003, 4.420069114, -0.007558904}, {1, 0}]}, AspectRatio->Automatic]], "Output", CellChangeTimes->{3.5704397727749043`*^9, 3.5704398254717965`*^9, 3.5704399336579866`*^9, 3.57044002689935*^9, 3.5704401471131616`*^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.5704397728529043`*^9, 3.570439825534197*^9, 3.5704399337359867`*^9, 3.5704400269617505`*^9, 3.570440147175562*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", " ", RowBox[{"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}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.5999752438036023`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.667601104176465`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.6568566389692876`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.6666993507550125`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"2.654583476075045`", "0", "0", "0", "2.6023997132826713`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "2.73396072313489`", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.7141077426030282`", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.072219627352247`", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "2.06922926057034`", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "2.6666029314560644`", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "2.657028005393568`", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.666689976809498`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "2.559563236731498`", "0", "0", "0", "2.713600476827778`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0806586960779025`", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.599525383842025`", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.071603454566053`", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.601751258648332`", "0", "0", "2.6551470737758054`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.070778444059672`", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0713086609582274`", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0689876352412213`", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "2.070230841842697`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>"}, {"2.0680113541746983`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>"}, {"0", "2.080944442793906`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.570439772899704*^9, 3.570439825565397*^9, 3.570439933751587*^9, 3.57044002697735*^9, 3.5704401472067614`*^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["598.7209754576379`"], "Output", CellChangeTimes->{3.5704397729309044`*^9, 3.5704398255965967`*^9, 3.5704399337983866`*^9, 3.5704400270085506`*^9, 3.570440147237962*^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\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"H\"\>", "\<\"C\"\>", \ "\<\"H\"\>", "\<\"C\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>"}, {"\<\"C\"\>", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.0443876219018013`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "1.0782005520882327`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "1.072828319484644`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "1.0777496753775064`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.0716917380375226`", "0", "0", "0", "1.0455998566413358`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "1.1113803615674451`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "1.1014538713015143`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "1.252619627352247`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "1.2496292605703399`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "1.0777014657280324`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "1.0729140026967843`", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0777449884047492`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "1.0241816183657493`", "0", "0", "0", "1.1012002384138893`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2610586960779024`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0441626919210127`", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2520034545660528`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.045275629324166`", "0", "0", "1.0719735368879029`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2511784440596718`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2517086609582273`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2493876352412212`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "1.2506308418426968`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "1.2484113541746982`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"\<\"H\"\>", "0", "1.261344442793906`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5704397729621043`*^9, 3.570439825612197*^9, 3.570439933813987*^9, 3.570440027024151*^9, 3.570440147253562*^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.0443876219018013`"}], SequenceForm["C", 2, " ", "C", 1, " ", 1.0443876219018013`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.5704401472691617`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0782005520882327`"}], SequenceForm["C", 3, " ", "C", 2, " ", 1.0782005520882327`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.5704401472691617`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.072828319484644`"}], SequenceForm["C", 4, " ", "C", 3, " ", 1.072828319484644], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.5704401472691617`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0777496753775064`"}], SequenceForm["C", 5, " ", "C", 4, " ", 1.0777496753775064`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.5704401472691617`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0716917380375226`"}], SequenceForm["C", 6, " ", "C", 1, " ", 1.0716917380375226`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.5704401472691617`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0455998566413358`"}], SequenceForm["C", 6, " ", "C", 5, " ", 1.0455998566413358`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.570440147284762*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1113803615674451`"}], SequenceForm["C", 7, " ", "C", 3, " ", 1.1113803615674451`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.570440147284762*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1014538713015143`"}], SequenceForm["C", 8, " ", "C", 4, " ", 1.1014538713015143`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.570440147284762*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.252619627352247`"}], SequenceForm["H", 9, " ", "C", 5, " ", 1.252619627352247], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.570440147284762*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2496292605703399`"}], SequenceForm["H", 10, " ", "C", 6, " ", 1.2496292605703399`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.570440147284762*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0777014657280324`"}], SequenceForm["C", 11, " ", "C", 7, " ", 1.0777014657280324`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.570440147284762*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0729140026967843`"}], SequenceForm["C", 12, " ", "C", 7, " ", 1.0729140026967843`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.570440147284762*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0777449884047492`"}], SequenceForm["C", 13, " ", "C", 12, " ", 1.0777449884047492`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.570440147284762*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0241816183657493`"}], SequenceForm["C", 14, " ", "C", 8, " ", 1.0241816183657493`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.570440147284762*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1012002384138893`"}], SequenceForm["C", 14, " ", "C", 12, " ", 1.1012002384138893`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.5704401473003616`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2610586960779024`"}], SequenceForm["H", 15, " ", "C", 11, " ", 1.2610586960779024`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.5704401473003616`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0441626919210127`"}], SequenceForm["C", 16, " ", "C", 11, " ", 1.0441626919210127`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.5704401473003616`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2520034545660528`"}], SequenceForm["H", 17, " ", "C", 14, " ", 1.2520034545660528`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.5704401473003616`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.045275629324166`"}], SequenceForm["C", 18, " ", "C", 13, " ", 1.045275629324166], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.5704401473003616`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0719735368879029`"}], SequenceForm["C", 18, " ", "C", 16, " ", 1.0719735368879029`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.5704401473003616`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2511784440596718`"}], SequenceForm["H", 19, " ", "C", 16, " ", 1.2511784440596718`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.5704401473003616`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2517086609582273`"}], SequenceForm["H", 20, " ", "C", 13, " ", 1.2517086609582273`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.5704401473003616`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2493876352412212`"}], SequenceForm["H", 21, " ", "C", 18, " ", 1.2493876352412212`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.5704401473003616`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "22", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2506308418426968`"}], SequenceForm["H", 22, " ", "C", 8, " ", 1.2506308418426968`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.570440147315962*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "23", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2484113541746982`"}], SequenceForm["H", 23, " ", "C", 1, " ", 1.2484113541746982`], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.570440147315962*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "24", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.261344442793906`"}], SequenceForm["H", 24, " ", "C", 2, " ", 1.261344442793906], Editable->False]], "Print", CellChangeTimes->{3.570439772977704*^9, 3.570439825643397*^9, 3.570439933829587*^9, 3.5704400270553503`*^9, 3.570440147315962*^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", "]"}]}], "\[IndentingNewLine]", RowBox[{"cw", "=", RowBox[{"nb", "-", "bh"}]}]}], "Input", CellChangeTimes->{{3.5681343270045934`*^9, 3.568134331481801*^9}, 3.5681343823222904`*^9, {3.5681345934218616`*^9, 3.5681345986322703`*^9}, { 3.568134635479535*^9, 3.5681346521559644`*^9}, {3.5681351451792307`*^9, 3.568135145428831*^9}, {3.5681351781888885`*^9, 3.5681352349417877`*^9}, { 3.568135340163973*^9, 3.568135340335573*^9}, {3.568135523495495*^9, 3.5681355244314966`*^9}, {3.5681357674799232`*^9, 3.5681357771675406`*^9}, {3.568136284433632*^9, 3.5681362987700567`*^9}, { 3.568136395053426*^9, 3.5681363965510283`*^9}, {3.568389047208571*^9, 3.5683890542753835`*^9}, {3.5683902124526176`*^9, 3.5683902131078186`*^9}, {3.5704391524398146`*^9, 3.570439160380228*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1.0443876219018013`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.0782005520882327`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1.072828319484644`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "1.0777496753775064`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "1.0716917380375226`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1.0455998566413358`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "3", ",", "1.1113803615674451`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "4", ",", "1.1014538713015143`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "5", ",", "1.252619627352247`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "6", ",", "1.2496292605703399`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "7", ",", "1.0777014657280324`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "7", ",", "1.0729140026967843`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "12", ",", "1.0777449884047492`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "8", ",", "1.0241816183657493`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "12", ",", "1.1012002384138893`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "11", ",", "1.2610586960779024`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "11", ",", "1.0441626919210127`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "14", ",", "1.2520034545660528`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "13", ",", "1.045275629324166`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "16", ",", "1.0719735368879029`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "16", ",", "1.2511784440596718`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "13", ",", "1.2517086609582273`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "18", ",", "1.2493876352412212`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "8", ",", "1.2506308418426968`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "1", ",", "1.2484113541746982`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "2", ",", "1.261344442793906`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570439773055704*^9, 3.5704398257369967`*^9, 3.5704399339231873`*^9, 3.570440027133351*^9, 3.570440147331562*^9}], Cell[BoxData["26"], "Output", CellChangeTimes->{3.570439773055704*^9, 3.5704398257369967`*^9, 3.5704399339231873`*^9, 3.570440027133351*^9, 3.5704401473471622`*^9}], Cell[BoxData["16"], "Output", CellChangeTimes->{3.570439773055704*^9, 3.5704398257369967`*^9, 3.5704399339231873`*^9, 3.570440027133351*^9, 3.5704401473471622`*^9}] }, Open ]], Cell[BoxData[" "], "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}], 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, { 3.5704392111271176`*^9, 3.570439227070346*^9}, {3.570439604949809*^9, 3.570439620830637*^9}, {3.5704397104215946`*^9, 3.57043972488282*^9}, { 3.570439819434586*^9, 3.5704398430530276`*^9}, 3.5704399149223537`*^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[{"cw", "+", "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[{"cw", "+", "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[{"cw", "+", "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}, {3.5704392344959583`*^9, 3.570439250220786*^9}, { 3.5704396260254464`*^9, 3.5704396564142995`*^9}, {3.570439735256838*^9, 3.570439741278449*^9}, 3.570439928260377*^9, {3.5704401152423058`*^9, 3.570440134211939*^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[{-3.518669812, 4.635497878, -0.01889726}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.241549982, 3.380719814, -0.007558904}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.16218149, 0.7143164280000001, 0.001889726}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.443080772, -0.648176018, 0.001889726}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.7617745739999995`, 0.668963004, -0.007558904}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.795789642000001, 3.2711157060000002`, -0.01889726}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.211314366, -0.64250684, 0.011338356}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.3939478960000002`, -3.3618225539999997`, 0.011338356}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.534337562, -0.404401364, -0.005669178}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.594808794, 4.293457472, -0.026456164}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.548905428, 0.6406171140000001, 0.017007533999999998`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.192417106, -3.299461596, 0.017007533999999998`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.5035520040000003`, -4.6298287, 0.020786986}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.17163012, -4.631718426, 0.017007533999999998`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.531897894, 2.72120544, 0.015117808}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.784451286, -0.685970538, 0.022676712}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.128166422, -6.702858122, 0.022676712}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.763664299999999, -3.341035568, 0.024566438}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.594808794, 0.31936369400000003`, 0.02834589}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.47709584, -6.7009683959999995`, 0.020786986}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.557014274, -4.3728259640000005`, 0.02834589}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.200525952, -4.3728259640000005`, 0.013228082}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.569692414, 6.702858122, -0.02834589}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.561248622, 4.420069114, -0.007558904}, 0.1]}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-2.3801098970000005`, 4.008108846, -0.013228082}, 1.0443876219018013`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-1.201865736, 2.0475181210000004`, -0.0028345890000000006`}, 1.0782005520882327`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-2.302631131, 0.03307020500000013, 0.001889726}, 1.072828319484644]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-4.602427672999999, 0.01039349299999981, -0.0028345889999999993`}, 1.0777496753775064`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-4.657229727000001, 3.9533067920000002`, -0.01889726}, 1.0716917380375226`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-5.778782108, 1.970039355, -0.013228081999999999`}, 1.0455998566413358`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{0.024566437999999913`, 0.03590479400000013, 0.006614040999999999}, 1.1113803615674451`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-3.418514334, -2.0049992859999994`, 0.006614040999999999}, 1.1014538713015143`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-6.565847819176286, 0.18206150798706794`, -0.0067016830563152606`}, 1.252619627352247]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-6.611713626305946, 3.7347867937200805`, -0.02232551203489893}, 1.2496292605703399`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{2.3801098969999996`, -0.0009448630000000735, 0.014172945}, 1.0777014657280324`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{1.201865736, -1.970984218, 0.014172945}, 1.0729140026967843`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{2.347984555, -3.964645148, 0.01889726}, 1.0777449884047492`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-2.2827890080000004`, -3.99677049, 0.014172945}, 1.0241816183657493`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{0.010393493000000253`, -3.9655900109999997`, 0.017007533999999998`}, 1.1012002384138893`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{3.541186455593629, 1.5849047383793813`, 0.016149870399292113`}, 1.2610586960779024`]}}, {Opacity[0.4], SphereBox[{5.41707361629451, -0.4679662065264123, 0.021745069557805183`}, 1.0443876219018013`]}, {Opacity[0.4], SphereBox[{-1.1399995388148854`, -6.138984381603728, 0.021133261980667138`}, 1.0782005520882327`]}, {Opacity[0.4], SphereBox[{5.392515088297639, -3.552677509790142, 0.023945787144310435`}, 1.072828319484644]}, {Opacity[0.4], SphereBox[{5.767020314674199, -2.9123809664318014`, 0.024261345756890963`}, 1.0777496753775064`]}, {Opacity[0.4], SphereBox[{7.101737390132047, 0.04554951147625119, 0.026801825060956304`}, 1.0716917380375226`]}, {Opacity[0.4], SphereBox[{3.4842996318718966`, -6.137014403742948, 0.020786986}, 1.0455998566413358`]}, {Opacity[0.4], SphereBox[{7.068152297201344, -4.091562908855568, 0.027315622398738342`}, 1.1113803615674451`]}, {Opacity[0.4], SphereBox[{-4.708353773424458, -4.097394880801344, 0.012713257545423073`}, 1.1014538713015143`]}, {Opacity[0.4], SphereBox[{-3.555777235309173, 6.139035696527233, -0.025769005057254265`}, 1.252619627352247]}, {Opacity[0.4], SphereBox[{0.07263470624794932, 4.138373460264542, -0.007558904}, 1.2496292605703399`]}, TubeBox[{{-1.241549982, 3.380719814, -0.007558904}, {-3.518669812, 4.635497878, -0.01889726}}, 0.15], TubeBox[{{-1.16218149, 0.7143164280000001, 0.001889726}, {-1.241549982, 3.380719814, -0.007558904}}, 0.15], TubeBox[{{-3.443080772, -0.648176018, 0.001889726}, {-1.16218149, 0.7143164280000001, 0.001889726}}, 0.15], TubeBox[{{-5.7617745739999995`, 0.668963004, -0.007558904}, {-3.443080772, -0.648176018, 0.001889726}}, 0.15], TubeBox[{{-5.795789642000001, 3.2711157060000002`, -0.01889726}, {-3.518669812, 4.635497878, -0.01889726}}, 0.15], TubeBox[{{-5.795789642000001, 3.2711157060000002`, -0.01889726}, {-5.7617745739999995`, 0.668963004, -0.007558904}}, 0.15], TubeBox[{{1.211314366, -0.64250684, 0.011338356}, {-1.16218149, 0.7143164280000001, 0.001889726}}, 0.15], TubeBox[{{-3.3939478960000002`, -3.3618225539999997`, 0.011338356}, {-3.443080772, -0.648176018, 0.001889726}}, 0.15], TubeBox[{{-7.534337562, -0.404401364, -0.005669178}, {-5.7617745739999995`, 0.668963004, -0.007558904}}, 0.15], TubeBox[{{-7.594808794, 4.293457472, -0.026456164}, {-5.795789642000001, 3.2711157060000002`, -0.01889726}}, 0.15], TubeBox[{{3.548905428, 0.6406171140000001, 0.017007533999999998`}, { 1.211314366, -0.64250684, 0.011338356}}, 0.15], TubeBox[{{1.192417106, -3.299461596, 0.017007533999999998`}, { 1.211314366, -0.64250684, 0.011338356}}, 0.15], TubeBox[{{3.5035520040000003`, -4.6298287, 0.020786986}, { 1.192417106, -3.299461596, 0.017007533999999998`}}, 0.15], TubeBox[{{-1.17163012, -4.631718426, 0.017007533999999998`}, {-3.3939478960000002`, -3.3618225539999997`, 0.011338356}}, 0.15], TubeBox[{{-1.17163012, -4.631718426, 0.017007533999999998`}, { 1.192417106, -3.299461596, 0.017007533999999998`}}, 0.15], TubeBox[{{3.531897894, 2.72120544, 0.015117808}, {3.548905428, 0.6406171140000001, 0.017007533999999998`}}, 0.15], TubeBox[{{5.784451286, -0.685970538, 0.022676712}, {3.548905428, 0.6406171140000001, 0.017007533999999998`}}, 0.15], TubeBox[{{-1.128166422, -6.702858122, 0.022676712}, {-1.17163012, -4.631718426, 0.017007533999999998`}}, 0.15], TubeBox[{{5.763664299999999, -3.341035568, 0.024566438}, { 3.5035520040000003`, -4.6298287, 0.020786986}}, 0.15], TubeBox[{{5.763664299999999, -3.341035568, 0.024566438}, { 5.784451286, -0.685970538, 0.022676712}}, 0.15], TubeBox[{{7.594808794, 0.31936369400000003`, 0.02834589}, { 5.784451286, -0.685970538, 0.022676712}}, 0.15], TubeBox[{{3.47709584, -6.7009683959999995`, 0.020786986}, { 3.5035520040000003`, -4.6298287, 0.020786986}}, 0.15], TubeBox[{{7.557014274, -4.3728259640000005`, 0.02834589}, { 5.763664299999999, -3.341035568, 0.024566438}}, 0.15], TubeBox[{{-5.200525952, -4.3728259640000005`, 0.013228082}, {-3.3939478960000002`, -3.3618225539999997`, 0.011338356}}, 0.15], TubeBox[{{-3.569692414, 6.702858122, -0.02834589}, {-3.518669812, 4.635497878, -0.01889726}}, 0.15], TubeBox[{{0.561248622, 4.420069114, -0.007558904}, {-1.241549982, 3.380719814, -0.007558904}}, 0.15]}, AspectRatio->Automatic, AutomaticImageSize->True, Boxed->False, ImageSize->{360., 360.}, SphericalRegion->True, ViewPoint->{0.5988324697381548, -0.4151958788831569, 3.3043928421641615`}, ViewVertical->{-0.507759200868445, 0.46458963890028876`, 4.710312880108301}]], "Output", CellChangeTimes->{3.5704397731025047`*^9, 3.5704398257837973`*^9, 3.570439933969987*^9, 3.5704400271957507`*^9, 3.570440147393962*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvGd4XOl5JXiGsixLcpJlez07lqUZ26Nx2mlZliz3zKxtWZYsW5Ylua3Q bsmtVndL6sRMkMg5MweQIJFzDoXKOecAFAqFKhRiIUcikCAJkjXnVl20mu3d v/trn4cvbgFVrPvd86Zzvu+79x9/eOonr739w1M//dEPP/WVEz889pOf/ujk p7589AT/9IH/APyHLwn2KQivE8DhjwT/Jf5W+CH85f9//f/F677k4edxu1qP hlsGNN80orXKiLarerRd0l5MfaorefglVNeqUV/PdxtM6K43oZ82WGuCtMYE 2W3aLVqVCfKrtItGyCp0qEx9RUfy8DHU1inQ1KRHe7MJvTQJTd5kgrrRBB2/ Vl9ngpFfaeBXGvmVhmr+jV9puMYjv1JbpkV56ivbk4dfR0uzBh2tRnS3cTQ0 BU3TaoahxQxTsxnWJgvsNEejBU4enTw6Gmj1Zth5KjtPYb9hhPWiDuocaWnq 29uSh9/kN2vQ1WZEbwevk6bqsEDfboO5zQ57mxPOdhc8bW54293wdwjmQoDm 73DC326Ht9UGN0fhIVae20a4rutgLpGVpM7Smjz8Frpb1TyDHgOdRLDTCk2n AwZ+i7XDyzP44ekIwN85jOGeYQR7RzDaN4JQ/zBCfYIFMNrrw0iPB8NdPDvP OtxiQYBQ+qo0sFdIi1Nna0ke/k/0tiox0KHDYKcZUp5J0+WBsdMPG8/g6grC 1x3CcO8Ygv1hhAbGEZaMo+lLmfB9LRMRaZg2hshQiH8PYmxAGJEPo11uBNts CDYYEKhWwVzWV5Q6a3Py8J/o7iEMdqgxxLPK+Wl1lx/GrhFYu0I8axi+ngiG +ycQGowhPDSJiGwS+X9bD+PrGqyXa3CvqgGTyhhtAjFFhO+HMc5RhDiC0R4v Qh12jDbqMHxLjmdO/duQtCl4oQxInlbZNQw9L9DaNQ5n1wRPO4mRgWmEhmYQ ls1iQjGHmCqOsm95YKmIY6svjn19EDPaWdoMpjTTfJ/DU0T5+XGEJKN0gY+n tyHUqOHFDxamzt6UPHwCg82DkLXrIO90QsGza3mxJp7Z0TUJb+8MhgfnEJLO Y1y+gKhqEZPaJUzrlnHt5TC815exo1zGA0cEceMibQGzhnlM6+cwwdGE1ZMY k0c5CgJBN4TaLRhtkuOZIfwOZK1yKBi5CnpZzdPrumIEYAau3jj8AwsISpcQ Vqwgql7l6dcwbVhH/tfvoO4dDq1+A/eN63joCmHRuoYFyyri5hXMmJYQMywg opvDmJoAJocRRKjHRTD0GGnsK0iNojF5+CQkDT1QtOqgZGQrO0eh6oxB3zkL W/c8PP1LGB5aQUixhoh6AzHdJkexhVnzXRR8S4aOc2uY6NjGvmMbj5xeLNm3 aJuYt21glqOa5IiixiWM6eYRSo6GsTsYIChWgiLF+4YibxrkUMxQMrmUHeNQ d04zBRZg71uBR7KGEfkGwqotTOi2MWnY4cXuYs66h8J/cWCwmK8l97DvvYcH Jj1WXLtYdu5ggUOb47CmOaQJ8xrCHE5IF0dIFaN/GSWDBKZX/exQPgVFkxLK VgeUbUEOJQZNxxzzYgX2gQ14pVsYUW4jrN0l1vcwZbrPq93HvP0Bil4cg/rS PpZVD7E/ch+rngc0/u6+j0XXPcQ5rGkOKWbbxDh9FqKvQloioyQyMobKoBHD HR357x3Nr3E0GihbPBzNGG2ao1mAsXcNdskWvPJdjKjvIazfR8z0ENOWR5iz HWDecYDSV+Zgvv0YG6bH2B+7fwSr3gP8Ila8j7DoeYg4BzbDQcU4oIh1AyHT MkKM4ZCaQaOkm2QWlpF+cTANycN/hqS6EUoWFGWzjxCNc0Az9NQSjP0bsA9t w6u4jxHNQ4QNjxAzPybyTxB3PMW86ykuvb0GV/NT3HU+xX5kB2v+BFb9T7Dq e4IlHwfNkc249zHp3EOEXhsTIDIyeHT0loZhrGQ5kQzhfUMautUCJWu5sinA YUU5rFmo6C1j/ybs0l14VfsY0T2i858gZklwSAnMORPI/X4rqtN3EOhJYJdD 2Y+ucTgJrAUSWKEtcWjzvseY9T7AJIGKEqgxxnXIRK8ZpggWE1zjZCBJ3z+k wRtNULLYKxuGOSxhSHGouldhGNiCTbYHj+oBhnWPMWZ6ggnrU0zbn2LOlUDO y3o0FT3AmJRDGuWQIjNYHSZKw085pKdYDjzBgv8gNSQGVZQxPmZbR8iyyGFx SEYOScchKWR4XxQp2b6V9RxOwwSjKQ4lh6MfvAsrh+NWczj6R/yKA0StdJrj CYfzBNmv+NB1iajpEtiJJrAX9DOKhp8IUTR8wNEccDSPUqPxECAnAbIzkqzM MgvD2szRGJwYUQw9M5iPQ1nNCKqhu+qj4mBWoCM2FvkeXOp9+PUPOJiHjMtH mHQwKlwHyHo1isHqp5ixJrA99QTLHIEwiiP8+QgfxVLgAUezj1nffY5mL4WN g6OxExsbsbFwNEYH/IrBZ7H5JBQ3tVDeZkDXRDicOTakFWg5HLNsB07VHnz6 ewia9jHOPI85HmDa9QA5b/BzTQnMexK4O3uApeGHHNIDHmmBfSwG7mPef4/g 7NFVOxwOA9rJ6HEwehyTHBID2mT9d1XwmgLKm+yJt8P8+hkW5SWomVtGlh27 ivml28GIcQ9hK/G232Ng3kfhyTXouxiwjJSt+B4WePqFYZac4XschvD7HgOZ FdPLyuneQsS1iTEXc8vFSuhge7cF+J3Gw6EcdijldRuHMsqImWJRXoCyj6eR bMCq3IRbexcB4zZB3cG4fRcTzl1U5mzDOpTAcjiBjfgG4sJpA7tEYQdx2px/ m2iwGHs2EXOtI+Jew5ibznHNIuQcx6jNC69BJ47ibPLwAdy8qUPNDR3qruvx 35J/+1XILzOWr7NN1DKWW+mH7mVoB1dglq/ByU7l029ixES8rXdx8nUlrpfd px85sglm92z8CGb92/zh28KHCQq7mmedQK4h6l5B2MMy6JnHqGsKQcco/Fbn Yes+lTx8FDV1OjSTdHc1pAi3hJk+9B7CLSU7HiLhllw04PdExjFQpoDiMv1a zSLeREA75+nXRfp1GTblCgFdg58tPWjewPHXXbhz9QBeUwKL0yxGsVFMEbQp 7wZtna85XII34WKDdS9zyIsY5ZBH3GQurij8jgCcJsvhsE8kD7+ChgYNWpvJ m1s4RJqSRF9Lom8g0TfyMkw0M9m36Q5/F0j+db7Py1BX6vG7ImM8++oQst4y If+0C4WZfhTnBVBRNIxLZcO4UTEMD0mS37iCd348hobbTxCwJxCfe8qQI7ou YcirmCDKUdcyIs4ljLvofzfZjmcOfs8M/G4SMOconFbPIWM8JtaM+jopWlt0 6KGYGKIpaXqamZzBRmHhpLkEWs+jRzg2meHmpTl5WXZ6x3qTn71ihK5EwzxL eaWuQY8WQtBFO/+aDJeP6XHtrAUX8v24XOznJQVw+/ww6i4No+nyMN5+Ywat TU8xwqSfjR+wtpDeOEjUHIusfDQhuZ1xBF1zGKY3vO5puN0xuFzjcNhHoNdb Di/raPLwG/w6OdWMLqlm5DQtOaGpwwo7NYOrwwEfVUuANHWEFuxyktU7aHYE O23kClb4W03wcvhues5JrWip1JBepzK4qUmHNnq6m58ZpMn5uuoH1aj/cStu njKhOsOK6jwrakvsqLnoR8OVAFqvBVB+1Ms2ZMFQRxR6WQhdLQEqlAAGaINt AZJ3P4ZafBhodMHtisHumoDNGYXFHoLO6BK1zTvJw/+B9kYJnaah0jCScFug 67TD0umCs9PDq/NRIflJNAIYo2oap3KIkCNGBv2I0iIDXoz3uzHWK1y9DYE2 C/y8Wu9tAxwX1VROqSttJ4ftYjD0tTMFaRq+NrSZU8HRbEH7TzrQc6wXNTk2 1Bbb0FRpw5UCHW6VanHptB6dFRYMVlmgvKNnfvgxIFxhuw9Smuzw2OrFULMH /XVO6G1hqIzekvde6W+hr03JqzTwKh3k8x7yeT911DD83UEE+0JUZlRpkjAm qNgmyYanFGFMK8ZoIUzJR/m3Eb7Hq5d4iYYr6eMgfRao0fFq5b8lXmy3GC4D NAWlm45hYKLUsrU54KIA9ojCt/foIAbPSFFzrAsNZ7pwLVeN/Le6cDXDjJ7L VkirrVDXUaqXqzFYy9/rrZA1WsnELZBRrg4ROAml+QBDq/3aoQx/W5Ss/S1S SDp0yYvV8ELNvEhX1xj8PeOUqVRikglEZRSHiknMUJ3NaiYRp81pY4hrJ2hR zGnGMa0a42dGKWGHCRBFYzcDvJVE+I4alvN9vyly8l5GUD8jSMILVhIXPfPB 0umGgxHk6fAntfhIN3UntXiIWrz21XY0vN2DlhM96DzbjRuvNuF6rhPNFxwY uuOAqlaF9vM6dF/QYKDBDmVlP5Tn+6C40Af5+V5IKzvgYtlw3jLCflknevot sQ72NfaxCKl58XZyzQDVwRjFY4Q6PYarn8+nWp6hbJ3FlGqOFx5HnKJj3hDH gjGOReMcloyzPM5ggTwyro9hmmDEVGGE5dTvjPskCC16BG7LWCOEc/6uGF06 qnUrRauTEeaFhed2UrF7u0cx3DOG0b4w//84xiXjkBT3Q14ugaZSgs63mtF/ vBU132+C5PgglGf6YMvrg6awGQPnejCU0YmhzG7ILsohvSTD0OUh5qUzOXPh b2GVaTDDV2OE+5oGxsLBwyL2lqjmh5qlkLebGY0+preg5GN45TMluP3FHrjf GET0nRtU6YuY1S1h3riMRWqNJfMyVizLWCVbXLEu0hawZCFM5lnMGqcxqaei V0cwxuQIJSGhbGxSwX2r7+PJ0/4eQ3CINUoNaRIRD7TdAZi7gvTEGLz0xnBv FKMDqbmLqGwK0lIp/ayA5qIKxssa2K9q4b6qQ8MLHZCf0UCTqYKtVAEZk0V1 rh3a9Fbo0hvRl93BihRkdRpBeCCQnFwI9rgRZH0eITrDdXr4q1QiKG+KzaW/ rhPyVmq3dhd1dZARyypJbf3qF8xoOTqHwKU4Jis8mMvqhPvbl7DI1r9MIbZC Cr1G4rruWKet8fUqVhwrWLQtUfAuYNo0hwn9NMY0pG6sGqF+D0KdBqr7QaSQ +X3GpoKxaUqioiYiQnzaiYiHjgn0TWF0cAbj0tTUiqRMzshXQ3vZAOM11svr VniqWGtv2tH6fQU8uTaMsz7OVuthr2RGVBrgZZfxl0sxXNLLqhVBTDaOmDAP JcxBDY6wevmT808hYf6pXkd0ZId05BCeoYb+lN5nqVVR7xup9+09C3jtSzFU l6xBfX0DI7e2EL8RxXKFGtPHbmCVEmzNtY112qab5rmLDTLaVfcGlkiu44Rp hjDFzHGME6KQKkJ5JkzI2TDaoaAMEs79aUiaBxivOsarMO0xwlSKMJXYp7um 4e+bpcqMIyxbwIRyCf0lMhYFHbRXLDBcd8Ja5YG72sfUZEzeCaDnxwyACj9i 1+jKBgtcV93wXqXOuGrFyGU9Ri8pEGRhmVFPsdZNJifLooQsPDTGesdiJUyU sa2N1qvhreo/ZOFvisVe3kBB0JKai1C3xwhTHI5+sizpBt48dhdV57ehur2L YAOJfv0SNqpcWCuow4bnPja997DlE2wPm75drFEALBOyBQqAWUbWpJUszEQR oKMeEdJMQo/1auFqaPuYiJScVV7ZbiVK9FJnmEE8BSuD2N07j+FBMh4Zv0K5 iknNGmTn9VBfsUJ/wwvzrRE4bodYNFiUasOo+d55DPzgAsLX2fJqQ5hvtcN7 KwhfNcv2LS9GbzowVmXE+HU5C2Icc7o5FsUZxIjaOBEbE+b1BoWpLAY7u8No g/T9SCkaqOKaSbFbw9C0T8HUvQDnIGm1/C51+h6O/3QbVy7t83MPEGx/iKWO bWw3hbF7ZQBb/oe4GxDsATYpn9ap3JaJ2oKXuoUBNmVfpzIm2TPMIKTmUOSp 2ZpAZ8+vJk//B+yg7YxnDqGNMdUhTKVNwCBMpfUswjOwghHpGsLKDUxoKDj0 d6G8bIP2hh/GW6yXdyJw1TI166dw48XraPu3GqjeqIfjTD3sx+/Al1YFf90E AnURphMdVUuqVOtEtMaABdbSeeMSZg0LrJlxRDWzGFNR78oY+0J8sZWE2DwD dd2HuvcQMWU9ZXgTdVRLBOqOWZh6l+Ec2oBfucOYuI+o8SGmrQcov/yYfO8J 6+kTLA08wl53HA9qjVjOasD2yGNsUYavU/+uCLqX8TZH1Kadm4jaVjDGahVi dwupORSZlTxo4BAxWUMvTy0weUrv9jCHMA1jhzDjtwovhxFUbGFcvY2YbhdD F8xQXWN3uTlGgRKDrXYWnvp5BJsWUPVvbeh+swe6c33QnmHHye1GsKQNodIa ludpjDazBTSTejUPY6KJqNWpsGBZx5x5lcV0GRNELqzlMJVMA+kYCyozsseE 0TbJv0MsOakTIGoTLFpzMPavwEFp7lfvIqTfR9T8KDnlNe98ioKLCfLRBPzU xIvyBO4PreOAbOXepUZsBZ9incgJUxeL/geYY6xNu+9iglk5ZplHyMChaBnu KjtGBiWHiMnrhxjilOWtw0RtgmE+y9K+nJqYlG0jqNrFuPYeJg37kF9xQV0V gv72JEy1c7j0gwG0vayE4m0Xbr4+hJ40FXTFWujz1XCfVyF0TYrwDSJHD4QY DOPtbJodYcTaWdsoHhbtdxG3Ub5bNhAzrbK+Urox1kJKOneIzh2wEzXFv0Os hiW+fkREbJ6IrcIhuwuf5h5GDQ8QsRxg2v4YcfcTLHuJWnkC7Z0JuInYvJao MXOfkM08ruvDRvAJVojaIrM0zjib9mwnEQtbOGQTEdOzG2qImFR6iJiynuWT Ple2hIjaJEsoh9Cz+u7kaVC9zyt5iEnTI8ivDyPrO924/KIEDT8wkz+z5ObM wn5xAzffocDItZI62KE5b4PjhgUjzL61ljGsVxO9HorZnjlEeycR6w1hstvJ jrTHjrTLjsQYZmOPmFY4RGEyXCi3jDMpa9mgThQxH0FNvRGNVKttDLIucu4e CvE+CvE+Ktc+ivGBy0b0ndf94H1l7zYBrmU8NMaSswqGgTXYWfK8BDjIOIhY H7B8PSLADDXvAVb9j1F8bh31BNmmpo41JbDHq0+oZ/C0S4OZnCYsMpnjLIHT bBgTznWEbfS1hTXFRIB1DgRkYkj+IU+t4qlZdZsJMJNN1bEIY9+aOBnMIWge YNxwgLxvNeLityWoecWJ9hMRDOQuQXX+LizsXZ72+xge2kdTiRsylkQ5E91c wzbbZMfS4F1s9U9jh0xifGAJE4OzmByMYqrfhyX3A8y77rOX7WKS4RlhUo8l p/jFKq1klZYaMdLT9ZviJEh9gwZNzcSY1kXrp5gcaqQ0FiaQibuKlF99m0bM 1cRcfZVi8gL/Xq7DS+8D/iar5+1AakaVka1nZNsY2R7NbmqKznIfk459zHKU C16hOj7CGvN9PfgIVawLBkb3pC2BXUcCT80rSMgc2LnZROD3UpEtAG9nZFsJ vJnA6+3wSHsPgVfUqBndHoIfJvipmUJD/zrs0m28+pU6FH2tBTUv6ND3zhga T0bQmbeEgQtbkN/agbb5Hkx9+7DKH8CifYQaAt95cxjdVSOQ1/lYTw4QVTzC ivo+dlWLuD/ow2q1EpOySUwx15c9B1hwP8SsS7jEHbbGTRZ6RreBVVTHeqAh 51Ky2A/0/oY4/9zGpt1BVS6sCQ/QpCwpQvHX0Al6YQaqwQQzHWCpNcPCwDfT CSYGv7mKdo12UQ99sfLFZ0mk/Dob7i1faiK5PQ4tW4dFtgm3+i6GDTuspbuY sO9hxn2PPtjHkn+fNXcfayMP6IcHuNCcgIJ+GHcmSCYTeOy8i4RuBI9a2+iD LURJKpOTOnamrIUq3mDBxw4dwLRX1tIB9T+bqn39L++g8Et9uPU9AnpyBvKy bZhqnqDj/DJ6qzYxUL8NSfseJP376Bl4gJGh+yQFD0ifDjChOoCv9wDD7LBd rU/pnCeI6pmw5oe4Z1rDQ/Uo7rXLybXpAO9jLHgekZvsY4plJvrucgnZnCFG J7Agq8m9h/o/Lk40tTUpk8vm3R2m5OyBhKZsN0HbZoah1QJzsxW2JiscNGeT DS4e3TTh6GywJhfnnYIgplOc1/SwVarwvWe9IaGuUl5nLSDhU7bNQk0+YSLt carIKfRbGDVvI2InN3CRVXnJrhjpS4E9euQeVkfuYS14D5duPUafJoFhVwKr gQQe+vaRsMTwdECKqGsVY05h0pohZvUjYDD8zBs3WejvuPGt5y7jnT+rRu5f KXHlpSAaT6+gr+IRx/SUdSkBqy6B1tpVFoAtNLXu8tLXYem+C/fALoZl90md HpBwPMKE+hF8/Q8RGHzIfvIAXe1PYVHTI9ZHWHXu4z4V2oFpDPv9EjJFpoOX 3vDQGy56w3E3tVIkdHKhLxnZyXU2jMgGUgrkF9HRLE9uL+ijSBO2GEg7xY0M HcJGBgdsrS44W93wtHrga/Megb/diw8j0OHlKzfNxT874W22w9dogY/twndT B9dFJb77Xm3+y1BcoXioHmWyTUFJSmyQkC+QsXt16yxTGwgzd2POLabINmnI Np2yw/q/cwTLIzvCQg9/roxso0mZgNPNnjycwL3hx0i45vFUqcfa1Rr6I4wR qwcurfrQHT96LhPnnruD0i9qcfWlMKpPraO5/AA9NQlIe5h07DxKawJD/MpL d9ZYzWagaViCvnUNpp4tOCU7JO73GMQkVfoHcLFaeQf2EWCbGJaxrSj20Nv2 CEbdAZP3AVZJB/Y963hC5vu0XYEFH0kVJdBUcuGOyWGjO6x0h4XuMNMdeis5 ZveviTN3qb0XTIouM6RdVqg7HZQ6bliIt4MC1d0+DF/HCPl+ECPCbF7PKEZp oV5+lbD7Q9gF0h3ASJcPw/TPCBXbCFvKcLWGYlD6nWdnj4YqLVDcEDoHqxap lrZ/nlVrES7NMmOaWWxZY56sY9K5kVwtmfNusitsYSGwRdcItokFwQIbqCK7 NDBXYiMJ3A0m8MS7hic6O3bqb8JrtrHlCef8Y3znuddR/Nw7aPxftyH/oQFV LwdRc3wNjcX30HzrAK0dT9EhS6DNkECtMcFKt4NxVs/Bm6OQ35mCumGBpWIV xt5Nkif2duUegqSa44Z7JOz34B7cg0+6hwBJ1TD1w4iGdJQhpqWGGPPcY+Xd wo79CZ6aFpGQmCnpmzDJOhBl3x6z85rtdI6NlcvCymWw/Jo4yzjYrsJQp55O MUPWJUy2eegYPyydw3B0jsLTOQZ/VxjDPeMY7YtgTJh5JD0Yl0QRkUR4jPA4 jvCAwOsFp/Hr6aQgVdoo207wtgqeawPffu/c5q9AesELxR0WsRYyxp4ZGCVx 5swCvNpF5swyS+0KHbSCmGsNU541zBD0Wd8a5vxrOMIsWmOqzvpW6LxlXCbP krLNB+mg5dEnuO/bwL7BhfWm6/il5Pn+L5x67seoeq4Efd/sh+HEMLyXNsjB H6OpeAHNl++iseE+anof44o0gezux7Ap1kkzNtniGNnmu+i/MQwpVZGiPk6G uwxd7wYsQ3fhUm4joKWYM+zC2r+TzCpBJ/gU25QslC3aTYww4EaNC1DSkX5h dZCtcIut8AkLXELtxV5tMyJ8PeZkf3fMpVYMrQEGiPFjYokZbJVB1qmBnE5S dFH+EmBd1wjMnSHYO8N0UhT+7gmM9DH5BqYQlkwjIp0+ggnZND6KCfk0YrQJ sosJaQyRIep9+mysn0qXiRVisRttpuavleEZR/02+opskF4PUtNHoRB2avRN wyydYceZg083jxFhrd6yiHH7Ens52aNrGZPuZTpNsCW+XkSMNuFeQMQdx4Ub W2hl9Dt8TzBJNbviXEaizY2npRdg+8Lrv5A87WfwEpOp7LnjaP6rOihfNcNR MIuRukeIMIFiTMZoNIE6VrSqhi2UNt0nP5smKEwgEliLbAUu1Rr8TI4g62/3 VS8k1RFI60gh2hah6VljjWaSKbfo4y365y5F0xZsVCxOgdooN8nt1+HTryFA sjtCgR00RXGhIYFBNrcgK6qws+KADTZhDuOgqwtjvOzkMquDpNjGFqLXio3z tyFrU0DRaRQdF4C6KwRj5zhsnRNwd07C3zONYD//r2QO49I4ovJ5xBQLmGQ+ TKkWMC2Yep7HOKaUc5hQzGBcNoUxqbBxLEwPBhjLDoSatRiu7fuX9y6Z/Db6 y7wYujUOaVMUcp5ROxCDmf/boZqBRzfLK5zDiIUt3xYnGY5j3EEjBYgIR0Zj 2DnHq5vBiHs6uXjockVxVXEAqXWPJSqBdeVTPO2JIHG1EUs/eP2DydP+KdKe +wluPVeJ/heGYDw9Ct8VJlL3E0zQ97FR8sG5BHyrCahpxdTlsvN2VmyKrPoJ kdnEWRQWYVcswZ2s2isYJUfruxmCpGYS8ta4uCq9BrN8HU46zKlah65vHabB dVhlVEgqKmEtg8GwBC95m880DY8xjLj3Li5WPUAHWZCXibjIwvEg8BAJxzSe DsnpSOoBZ4gd15ny4ccgbRlkI6Ee6LTTAqySY9Ay6cz0n7NzBl4q02E2mRCH HJYxFRTLiKlWMKVmjdKsYka7yro1q1uhCp3VLvN3poaGKUGfjinoe2ZlSKig wn62TjNCrdJ/ee8y5h+gtzKAweooJM1R1uooNANRGBkBVlWMFz8Jr34KfuM0 AuZp+pMRZeVRMPsUhh2MMmcMbucE7E6OmvTOYA3iG3kJXGlLwCRPYEGVwKOB BXzzE88h/Xc+h6o//jO0fu45VD53Bm1faoLqxzY4i+cRbGAWKuhEAheNMRuW qHLXE+iIJ/BzYk+RXvRRNY9B0TwJVec0dP1zLBpxOBjRHlb4AB3SeW0Y/cxK SdM043IeSmauXroMC1GzKFeg7F2hc5dhkJHiqpZg1i7ASm3vMEzDYYyy8m8c wQwJyYcx7V5DLUPRwiHNsEPvBp8gwdrzRGXA4qWb8JitYjL+GhStQ0lSriTv SO3Hm4COQ7R2zMFN8hboX0JQsoIxxk9EuY6YegNTbAQzuk3MkmHPsSHEDZtH +GND8CVrRPcrFxF+4yrW08sRSvqSeTlA2tLnQqhbA39j2wvPrrR3V46gj77s Z05KGEWKvih0Q1H6IUp/0keaCbh0rA4GmpFmoVkn4LRFYbPzczStLQIVResR ccvGN356gLz6BGSkK5P05U8+9XVceP4FdP7jC9B+7x9hPhuG//o2wr1MQjP9 F0ogTJ9518gTVxMfEtc1BoR6fy1IkRphjrHhdU9CN8iaL5tlwSRGWuaRPo6u qhD66iYgaZuBlLmqlCxAx6LV174ASc8C5IMLUMnmoWGA6zRzMOjY5PX8Lu0o C/gqmQmbO2v/BHtG1LWIaxLWAhb2cfpvnU18n/1jX2PC1k9/LPrud6BsVdJ3 TMAO1okOXn7HDAwd87B2sUb0rSAgIQWVkXCzsEepTye125jW72CWzXnOtIs4 bZ52699uQPbKHdjflGK00IW1uhASCjupMBNYwdyXsqhKmIgDJlKZ/hfeu8vj V3nlUXRTDfe10XnddB4TUUPn6eg8o4rO0dL0NAap0cy/W6JQ0WRsIYP60Q+K +uStGwl88RPfxfHnX8eNf34Tg6+9CeuJ1+BL+y5iPubWZAIjywmYmVtN04mP iGv9faUeSKrGMMQRDHEE8h6W9MEYVeAkbMpploJpNF3yo7M6jN6mGDn3NIbY XBTSObSzrnb3zKJ/YBaD7OFDSupnNZsiy4dcNcZQGrcvcmgR/hynJg8LStDF 5ueewQWSrF7KCW/gKWYDD7Bim0WiUYeH6ad/RdxZJavvJJ8T5+fbqYfaY+RK cbpoGTb2XM/ABoaldwnxDiLqXUyQ3E7p72HGeB9z5n3EaQ3fvwPFy31wnbEj XBnBTP0KFge3sWLcRiK6RZG3RDeJc6JyMk0p3dYvheijk8nDL6Hpygha66Jo a6GvWCz7mWASElapjIjxv8o0fE0/SXT0I61LM45UBnwYz3/iq/irP3oDx76W huuvZWHgbCashWnwlb8BN5NFuiwwspQ3esp86K8axwDPNUhvSBkPKsaDngTL JI8li3Mjx9JWE0FXSww9zKb+wUnUNU+hqXMKbX1T6JRMoZs0rU8xiV75GEbM cQTZkI9g1DpHbwTtMyzgLOzsSl5XDC73BMpv3UMthZnGsUM9ncAOhVySRZVU /PLhlrv6brIiI5PGR4+EUxtbmZyGrlXY+sh8KDGG5Xv87/cQ0ewjRg04TSlR 8p1aNL/YAuVrBjizxzB2dRnTbftYUjzEqp2OD+5jYeIetpZ2yXrJWLXifKuK Yk3BijekOvTGmeThQ6ipD6O2NYp6otNETzRTPjQxY+qHIiSnqc88/7lTeP27 Bag4Xoa2wlKoL+XDfO0U2rK/Lub/76P7+jh6a6PopVcHWTZlvUSb36WTEnFF FLVXR9FET7SwbrX1xHC9IYZbbTHUdBFxMuNGUh+XdhpuHXkA24iP7dJnmoKP ktVnm4THwffZHpM7bcQ2qbcM45VLCTRQUgt0Z0PJ3kIplLhSh8lvvi62vA+i qlqPO9VG1N40of66EfWXdfiA6Apl3QCUTRa6I5BcCRL2z6rblmDoXoetfxse qrphxT7G1A8RpVcrv9WAlm9LoXjbB3sRie+tHUxQlMxpnmDRRRvj68kDhKYe YdK6iwgFSsjI2qcnFycNCGlZvzQeukN76IrU1pKfx/N/egLf/NdinD1zAdfL LqD1WjHarp76uEgWW6+G0F4TRQcbU3c786aHVYbxLCPCCiJ881oIt+mBGsZy OeVQJRG+RLQvM8AMsgkysYlUA9PS9DQ2Lzubl81KRNm8jGxcOrF5KU0jR0S2 /0JBAlfbWetEHnIwEEeiug933/wx6huMaKaO7GgwoUe4AafORAJowtBtHgm2 5DrtCu2CAcpasrQGG8EeIdgkks1zULWvwNCzCdvgDjyy+zj61Tpc+Mc2NH+X 33EyAlPZOry1B9RC7ImU5tPeBKbCCUTIbWxjT5MbvWcZ95M25ol1G2MmKkdh Ctw4w/gn29d5Gfu6Z4H+IL7x3GWUvrWHccbM0bxipBWdQ2qK/D+irmqEgjOK RiLcwpxop6TuZHXqYnXqIsqlt6LIvjKBbnqhv4Me6El1GTVzRsv3dewyelYv vYGv2VW05lSHkdOk/L1P4xfj8jl840QChRQuCgrbKUK7L92E6tRtaL9/DAMt JsiahX3dJmgIr47Q6gmt/g6N0OqqUvsTe35yDZd+2EtoR1Jz8c3s94RV37uJ 41+sReVXJKj7gQ99aXFozu/BVv8U/kFSQ3L9EOEMjiXgGqdrXY+x6DzAgvMR 5p0PMevYx6RdhNVCWM0UUWYWdxNhNbL/anUiqgXiAs6xE1k4eTIbp0/k4Awt 7UQu/uZ3T+PoN5pxJ6MNvVdb0V16+pOibG66FEDrnShaGxnSBLubQPYTSAmB HCKQUgI5pEm1gX5aD61DHUp1gv+Ob3x7DSdvJVCSZUJjgQmKPA1sZ5vhZlfQ t5pgInaWRjNsDWbY683v3l1lEzZDMjyl71xB/ZtduP6qEld+oMW3P3sDx/6i HsVf1uLWD8NoT18jVT6AvjEBK/mPk3i5yGFt1CNDxC0u4OR6hAX3o+RiwLxL WI3Zx4zzHnHbS+Em3FhgJW5W4mYhbiaGo+7dvM8T51tOnsrC6VPZSDuVg3On cpFOy6BlnszDl383F+e+04Lm3DYMXG9G5lG+904O0t/Oxtk3MsW9nL+A2tox 1LL01nf+rIy3EMlGFofaofGPiJt3u1o1yenvF39qQmGGCa35jKZ8M/wZPQi9 eR72r7CPNtvhabGzx/n487/A12qDr9kKb5MVypMXoUmrRe7zlah4vhalf2fG 1VdiqEu/i66LTzBEtFQDCWj1CWicRIqITVrZvJikM44HmHM+QNwl2D7m3bTk fSF7fE9Yw9pO3fhgX09uLQ3ZiZqN1dLiwahOLYKWIxbLk6cycPo0QTtN0E4T FFrm6dwjyD6VxxTP4c+//3QZCoTV8aI20rIGXlDO8VwW/uxjOch6JxuZb2Ux kFLby3rb1BjoNCanQWVdBOiHFhSn2dGR54S5wI2xLC0mT9Qh8uJJjHT6ERS2 bXYJt5l5efTgyt8eRe9XTqLna5dw5xv9aHjJgOY3fWg8/wjtdU/Q00eKpk6g 25TAbYIzZmBqme5hwnovWb2mHfeSoTNLO4I5QvJR/tzl7zt87y5i9s3UPJSD rcS5iBBJR8gRYmg54dPID0MqO3n4dYZTJs4QnbO09BQyyDqdh5zT+cil5Z3K Rz7tm//9Cip+3Ib+ijZIb93h3/L4Xi7yTuYi93gOco5lI+edrD9Jfu1/RV+r PLnrcYgIDXVZqLQdMHS68cq3fSg+GUBX3gjsJUFMlLgxn9uHys9+D01feBFD X/wear9yFtKvlsP+/UYETw5Bf2wIlnQtOtP86CoMov3CGGqoj6pYlO0yciAl OZBmB6OGHYRNZKWWXcRsQpgItxHtEC2aiwLCuU2t6dxiEkwRoJhjHePCZF1y 0of0x0X64wiSr9lF0Z4l8sMzjKC001lst8ToDEPiTC5yzgj4FCDvdCHyzxSi 4HQRCtOK8NL/uI1rxzowdKkDsuoqFKUVoJCfLSCm+cQr/2QO8o5nI/edLKT/ OB1/JO7RE/bnyTr1kCcnb93QdQmTtyNwdobwxpesKDg5jq7iCBwXo8j63Buo /svjGPynE7C8dAy+V36KsWwbpi+HsNAQxnL/KOxXrLBW2dByZRxVVyOozXRD 378Gq3QdLsUm/MK0KJVwyLiFsHmLVeguJuxC+Gxh0rF1hBBtslRPEaRJWsyx iiiFXji5EZ1guRlVrggBC8BvtoiAZYrLBGmn0hlQWThHwDIIVhYByDlDsAhU PoEqOFNMsEoITglz79v48VcaUX22G/LrtOrLKD5XhOKzhSg6S/DSCB6/o4A1 L5+NI+9o5h8e7t5rlUHeqYWii2SB6aXpGoGpKwRH5zg8nRMIkD2O9k8xlqfx Nplp0V/moOGfi6D8UTHcx4oQPpuNeMc0luRTWDJOspNRA95xwlaiQGe2E/XZ w6jP96K+wA6TZIXBtgq3MCWpXceIYR2jpnWMmRlF1nVEbevEb50pOWEXprUn 7CuIOpYZYUsEbQGj7jhGPSQbnkkEXWEE7L7DSdoMcb4l7dQ5opZB1BgaAmoM nZy0QqJWxBATETtbSmTKiFAZ/uEPTuD4NzvQkNNL1HqhqCpBaXopStKLaUVJ FJMInslj+OWgIIlexh+InEKRnNAkn+30MuJGoSdq1uRk5hT8PTMIDswhLIkj IlvA0eeLUPpPl9D8oxtQnayCJ/c6IqUXMFGWhwlXnOxwDjHqUHPxEKzlalgv MF2LiFxhAA0lTkbeAizSRTgUy3Crl+HTrTD6VhAUFsPNK8mFgjD7X9hGxGxE 7PAmAX530D2LYc80bRLD7gj8wn0PFscz4P0nVvZ0WlYy3DIZbtnMxVyCln+m BAVppQRCAK2cwFSgNKMCX/vDfKS/2Iu24n4oavowdP4MyjLLUZZRyvdL+LmS dwEsSstDIetjwYkM5B49i0+LCMqa+8mghLtCnUQxCHVnhEVuEvYOYSoxjhFe dUiyhIh8BRPKVRz768so/Nc7qD/aCHluM5yVDRi7dhuhq5WIU4TN6pcwqV2g rI7DVK6F5aIe1qs61BUHUV/uoRmhp1csstQyi1u9AK9uAX7DAoaNC8lZ/FGz YPOsYkTONocRh3CzS2rS1+uO0aLwCLdZ2ALialu6qBrOnjpLBDOS/TGDCGYx WXOIYF4SwTIUni1H0bkKIlOJ0sxKonUeX/uTi8h/dQA9lQJl70V5ViWtgkYk M8toAppCOBYybAUkc1FELxWcSP+0SM8ULUNUtWaCSIXbIexum4SxYw72bl5c 3zKCklWEZUww5QYmWbSOf+ka0l9pRlVaF/pKumG42glXdSMWTVtYIKufM65j ysBqpVvGmIZAnjfCTPrbXu5FXYUPdRfYjXqnoB+chkk2A5tiFk71LNzaOYI5 C59+loDOwG+iWSkt7QTOMQm3awIOmpMAOlj5rPbRwyXkdHFd/xwTOINxknE6 hV420cs9U4r8JHoVKCJyJRkCeueJzAWUZV3AN/7sFirekmDwioQMvhsV2edp 5EzZFe9B8hBFoSzmo4g9qJA9Ke94GlttamlM2awijML+V7L79tSWN1MHM653 Fb5B1irpFlUM67uaNEG3m5xNO//KLMfVjTtlvegijEvWPdouFq07mLPcxTQh nTASft1icrrGeJlsmWqi9bwbNRfs7FlUEb2x5MyVQRqj8BNmrxj/6kk4tTRD DE4TzUKzUUM6REUuqnKjLSzujDgnzg2ePXGapDZT5GgFZCJFjMES5BHBgmT8 VaI443wSwdIkghdRnn0R3/tfjbhySgrpDSmRaENFzgVU0ipyiGbOIZrl/D8s j+/GYx6RZCyeOvv7IojSmlb+dyZ06+FtxJPQts2zqazA2b8B/9A2RuWU6uo9 TOruY9qwj5wXGlF1lE2h6SF2bQ+xPzyLZZLYZfs+Fm33EbftYdqyjZhpE+HD mRbVJHRUu4abOtw570JvcxSDlIgyykglZaRGItxQNAGjcgImDQW5noAZozBR IhopwvW2QwEuSMbwi+8F8eM4dzKNqoCslWGYSQCzTx+GYQUKmcDFDMESgpcE MDsFYEXOJfzo7zpwM0MO5R0ZVM0NqMy9yHZWmXuB7awyNwVkeU4FQS8TgSxC ybkCsl+G45l0pFD8E8hrOxnKxtS9zy3jRHMamrZFmHrW4Bzcgl+6i1HlfUS0 1OP6h5gxHiDnOxo0ZOwh1PMYe97H2PdHsOJ4TDvAkuMh4kRzhkjGGJbjJmGS hCGpZTvVsGJckkNbJUcXNWInNWJPWxQDRHKISMqpbJTUiCpqRDXFtppIqoik ggJbZk4J7X5dEP/6bBymn0wnhDnIPCXEYDEhLEFuWjkKCF9h+vlkDCYhZPyV ZV8iLJfwtefewlvf6kddvgLKOgVUDbdQmXcJ5/Mu8ngxCWRFEkbGYjazOosQ ZoqxeI51MS0zheAfQX6nh+XU8rNbtVtmWReXYerdgFOyndzxMap6gIjuAJOG x5gxP0X2i150FB9gQvoUuyM0mxUrrqdYdj7GEiVonKJqhjI9RrkZIWlJzn4Y KJz0ZHE6P2PSiMbLAbTciaCFKLZSaXdQaXdTafcSxX45TSVMS/B3ItlFa1eN 4fvPBl8Ge2SmIEkF5E4RuTNlyDsrIFfJ+ncBxZkXn0GtPPcyvvaZPJx+SYaW MiUvmXbnPM7nX2bwnc+7xAjMu0DK/mz0laSiL50pfC6LTf707x3uNqwmdHWW 1C3l4iyHupPQ9W3AMbQDn+I+RtUPEdETOuMTzFieIPulcQxcfooZbQK74SdY dgn2mMbgo3KPOwVNep+iQhAXm+R8VAzCfm0GT8gQYBAaDycQq5vHUc1MvkPk 7jD+7lBd//C9CH2UCGUmBXvmqcJkXOUkEaogQudRlCEiRHTKsgUEBHw+iK/9 6SVkvapEp7BzrFWBrooTAjrE6KP8eSkVX3mp+CrPZW/OYa1LxhdBymDHSCdI aWk4REla1QFlDVGqG07tCWyeI0riswCGdpOPJwiqHyS3/MZMjzBtfYScH81C cfsp5i1EaeIRltyCPUzuLl0SlfqMgylqF1CisrCy2FmJkoUomYiSzvjG+2Ml C5kniMTJIsaKgEQ5kahEATOsiNlVnHUphUTOZbr+CsrzruAfP38bRW+r0Xdd Tbog59VfxfmCKyIaH0FlfirbKpht7yKRXYaSLGZaJhlIBmXE2bTfF1u2stqU usO+NgWCiiAY+gQQduBR3MOIJvXQiAnjPiYtD1Dw5gr0zQksuxPYmdzDonuf ALDSu+/zeDhFsUMQtjEu3ONPQhsiDQvZmGUWZplBj2dQ+BgyjmemUDhBFE6X kvIThXMpFApFFEoYC6VEoSyXKpwofPN/tqDylBaSai1RkOADSQw+msSgUogH olCRd4gAGW92aRKB4iwikEkEzqXhXQiq2PCq/cy6CLNvlt+3DD0hsLLQuBU7 lNa7GNPvIWoSyu89VKRtwdKdSD5wYXt6HQvCnlH3Hm0X88KORec2pqmyhYmI sDAJ4WChIQsN2ccZD14E9ZpnIfgkMo4xEI6LEJwqfTcQ8lkwCjMuouh9EJTn XcWLX+7G1UwtpLUUgJ29qCxIBcL5AgGC/xcYcghDtgADUyKTIvzcmXdhkF9l alW5obwVZuGYJgyL0PauwyzZhEsu3LpwF0HdNsLGHZx5RYqreffgkiawFk5g a2oOc7z0uHubdpdRsIVZ52ZSPSc33ruEaQbhFv7DuRgX3BrFszCw6xwl+xZh yCQM2YyEXHacJAyZ/08wXMGr35TgVoEe8kY9FB2tIgxXeelX+DoFQwVhKBdg yCP3JAwlOdRCOcUoyqY4zMr+tCihlFfsRCDIojDJIjMPdfcyjIPCbQjr8Cop ebWbjN9NnPqRHbcrHsKnYRBMJLAeHsYMr3ZGuF1K2IrnXMe0cNuUM3UD+xjl b4giLuSKIeQcwYjVLm6FxdfE1bqqGi1q64xoqTOho9aErhoTum/zeMuEzusm tF02vlu7zr1DlI6ywxwrJEolZNrlyEkGy3kUsH7+DKUrSZT+/nMZePtFBWrL iFILUWq5Q1QOEWI+MVgqRJTKiFIpg6UktxzFuVSNOVSA2fkoyMo6REl2gVrl qpguzbOsGAuUt4uwSpfhUqwwTlYxol/DiVeDaLj+FCMsl8vTT5PTTZNEZUpA xrGCSWFfnCO1bB5OTg6wSlDmjlKcDQtPJjAYD1H6e3EivLFJn9yQLzx+bEh8 /JiqMTXrryVyWqKmIWqqm3zvGj9ziQgWq/+LuGlCmA3OOFbAcltCiVyGbDad XIKWnyGGV7YIHEH76ufP4/SPtGi+aICsQ09mTOJCwCoKrhxJIvZhlBMzAa+y PHLx3AoRsxJiVoiCnDzkZWaIT6L4j5BfcEORfEZGLPkoHG3PHEyD87DLFuFW LcKnXcKx1yfRVvuUIZLAwtwBItZlRG2CUUHbFhFxLCS3NCXXsj0z784HBFxj 8Ni84q5R/J1YVpuaUg9X620zQUZTC7e6twrPQTDBRvDsBM8hPvfAUZt69oGl WuDkJuivCI9zMOI/i/Pu594mckfz2bCYmCzRWUzMHJboPCZmAZErZMgVE7kS JuZXP38LmW/q0X7NCGmXsHxYTtw+wp+XRcjEMCNsxXkUhXkUh4StMLcA+dk5 fyD6eqDYAtmVYVLBcfo5xhI3BW3fDEySWdjlc3Cp4jj+9gK6WxMI+xOIx/cR Ms8fwZglTraU7DmOWQRZcYYp/X2C9PdMJOW/yzGS2heIr4gLMu0tGrJmY3Kv u4pmoFlpTupyD81HC7Saj2C41cwvHyaEwy0m+Aih8HQ4hwAdYRP0obJA86nD KZm381jOUkmaSQGXfS4Vb3mMt4KsFGpFROzv/0cTCk4a0V1NxLrVRIeJm8cS R8TK8lKIlb6LGAVgXjkK80pRkFuE/Jx85GZl4w/FqdqBEg+Gro+xK5Dbt5D/ dwmbHSdhlEzBKp/GqdPr6OtJbVCZiQsPZ5lBwESMLNMI2Cbhp9L3sU65XdGk 0nfyaHOMQWtwiJsp8eXk4TffffKdsCVdSzN3WuDotMLbaUOgU3jyhB2hLjvC 3XaM0yI9NozTwt1WjHWZMUqAA0TSwyAU7qC3M2B0xepPirOBZ9/MxbmjhYy5 YsrhUiIoxhylR35mCkEhY7/+110oS2ec1xox1C1DCZErJWqluTQiV0IVVyIi V8R4K2S8FeQVIz+3EHk5eX8spktvmR8DN8YxKOyBaEltTlP3TeDlVzqRnr2D QQnjjK0uNrsEl44AGWnU9S7qeqddAClKDiYo+w/AZGdpNHiS3yyC9rfizPDh A/zknbzYLiusXQ64ulzwd3oQ7PJirNuHSJ8PEwN+TA76MCXxYVri5dGDqUEX JgecmOgnoD0WgmtOAuhlCLqq9DAUKz4p1puzbxXg3LEipDP0MljqsqhActIr kfse8L77D4O4lGfEQIOwn72PQDGJaQJgxTnkXeTSRQStkKAVELT8vBLkMeRy c6hssnLwJ2JZ7Sj1o+d6JLWngWJNQvr/0g8NyCneh1SRQDBC5CYo4HVRWAw8 UnaayIkNgoi3pUS82hJJ7SrDl8Qr6G2WYrBdnYougmTp8hAoPwLisxvG+4KY GBzF1FAIM7IQ5uQhxBWjmFcGaSN8Pcy/+TEjFcBzI5q87dCGYDujrsEId5UW v5481wdw/Hg2TtBO0o7g5NHsD4m7m86+U4hzx0sIYyky0gQYK5jFlcjJqMSX Pv8TvPwvClwrMWGA9XSwo/UICnMuHGFOn8eHWM9IYdkW8gldHrM1lzUuh+00 KzsPz4l1tf36ODpqqNqboviXH/iQV3kAKVmFL5qAw6GFilpTTdhUhpRilxK6 IR4H9GM4nsLrb8Ri09PQB0mbPPmkS02nE2Zi5ewKwt9DutUXxvhABJPSCGYo Y+eUE5hXT2BRM4ElythlbQTLunG+DmNBE+J7QX5mGFMyH6LJe72ZzR0WDDfo 4b6hFO8V+HkcP1zHPpWDNGresyeZsidzjyD9RC5F27njuUg/JmRxDpHkx97M FBf0fwNp7xTh7IkSnDtVhnQSmEwB2fQKfPFzBfjJ97W4xe7TJ9wC1lzNrkBi Q8unAs4nfcsnqnlstjm5rKlENYuoZpCkfFYUmI1sGd/4XgT5l55ikJLWNv4E PVIGp4JGBd9NVDtobapxcauViOJvpx742CYwSSf0nQHYhSdEdEdw8rO56P1C Hgx/k48ZxTTi6hksamewrJ/BimEGa0bBprFmmuJxkn8jsvoI4kR0Rj2KGKNx fMhLT9gxyggcrlXDdmXwFw+XaE9m4tSpny3RpicnEAhk1qk8Mo1squXsE6KR H2cR1CyBAQqE5i3+t59miLt0Po4zBDaNIZtGYM+dLmfYVuCvPncZR1/To+ay 8DRUA9qrmMVZrAbZgrEpEdQc6sRs8uJMSoQMcuNzmfn4nCjq//nzXnRdeIot XwJK3z1cbQ+Jz93CF0X10FfXyX6jgqLdBnWHD6bOEJydE3j9sxWo/nsVfKeM mM7uRuS1MizqF7BiXCBYC9iw0KwL2LTO0+J8PYd1C4E1T2PBFMMcQZzSjCHK tA4NUT/22hBq1cJfI31309XpU1niEm7Ou0u42ckl3Dymc+6pvA8i76Sw1J1L 7ISF7Wxil/V2NjLezBJx+whOvV2I08TtzMkyflE5/u8/u4PTb+lRf92A7k4t spjyWZkVdElWBaM4M5vQUlanZ5fgbFbRnye/5efw4l+z5VYnsD+WQGJz7dyz IEmER1m0GMkA3dB2BGHpjMLdPY2f/LketccW4b26hOmr41goV2P+9BWsWVax YVvFln0VdwUjbb7rXMYWafO6nSDa4li0ziLOBj5tiGFCM46wgkANMme7TAg2 K/AR8frOnM5keGUzJnLEJcncJEDJNW5a/mlhjTb/CH8UsI7xtw8Jv6PgVGrd Nu+EuM59NBtZb2WJifyLOMkuc5KE+i+/0IhzJ3RovKlHR4cc59LLcS6Dlkk8 aWmZpTidUfwXIlBvfGMB5pYEDmIEan3qGaB+B7LkwyxsULUFoGsPw0ry5+mL Y0SyRI65hoGr6/Df3kD8Thxr1x3YKKgnKFsEZws7VGE7bsE2cNe9hk3XKtao wpbsi5i3zWPGPIuYYRLjBCskCyTvRx/t1MDb2PsLIolKO53xnuXbn613550h RT1Ndn+mEIW0ojTBilBME14XpxUk17uLzgiWWvMuENe8c4X9AW9n4oNi0L7y lSkYGhNouKlGS2svjqeV4MTZEhzjd31IzLtj7Efv9ibifuKdw20Yws4sFr2X N+HrJ4BztCWPqKPx1+KsQu+tRvFhFy7q2SD0bROwdc/CO7CIoGwVEfUmO9M2 +m9uw9+0g4WWDWzVjWL3Uh9ib1Rh17uLPe8Oj9vY9t7FpncTa54NLLvWsOBY xizzdtI0i4huIrVvMtkqDAi0DYiX8BFCmVoJTyeUmYQxOy3vZyvhZ4oII2V4 WvERFPPafwkl/FlyrgSl54p5FKyIfxMXw9Py+fFcoiogmo2841lE9LDyfRBf +sRzOPGJL+DKHz2Ptr/4PMNqgqU19d57O9UZsVMdYbwKbSqdFUFoVedYFc6y op5lZfjjd1FuRNk795P73xJLCTwe73k/ygPVnZR1wvYzL1QtYRjap2DvjcMr WUZQuYGI5i6mDLvsVPfRU7MPX8c+Frv3sMvP7d/WYD37Nu7572PPfw87/j1s +XexTsRXPFtYcK1jjkhPsjJG2VaE2f7UA2DNCHYPiZf34eTK+Tlx5TwjiTJV QVpBcuW8IIlwCQSIS5l5JellKBWtLKPsSHLF99dIoUtoxfyzgPrhaqWw7pvD GM5G/vFMop1a6Xv+E8/jXz/xdRR+/tto+ofvQvW9f4b15b+D6rufSTnjV3Hi ZEayo53hfz9Lh51L7tQSJn3zkk0tiwU567CdHba0d1i73062tD8Uy8Q3npPh ZuYTVjjiv/Y0/Vnoh6r7UnPdjQGomyOUbTOw9y/AJ11DULXJwNzBlOke4tZ9 5GQ+REf9Aby9B1iSHOB+/zIetThw/3w99oYfYmf4AbYC97FOF6z4trEo3E/J 0jFlW0DUNIMxXQQhcqKQjByyXy5C/8vJdfd0cd09uc1D3LBQcIaSVlx3Lzkn wF2O0gxhfb0CZZkVVMWZ5YS9nKWxnKWxLKMkucRZmty3IELP0lNwMovQZ+DY c68T9hfwoz99DRVffwudr7wD4/E34Et/Ga4z/3BEDITDVvjevV7CbqZkOyTs bIbMF3ZD9sUTqZaYK7bEnFRLfCNTnLQg+J+xo6X0Kasnwd94+PMiW37naBaO Hk3tDTr+rEMkNwegrLUmHyCrbpqAoYtifWAJXtk6gsyDiH4XU+b7iNsfYtn5 COvuAzQ3PoFb8gSLyid4IL+LJyT3j6s7sDPyCFvC7fd0ygpzYpEVaM4tzKwt IWqZxRgpVkgzknzab1CixOEdCcIyfvppYQk1J7mMn81Kc7gR4tAhxXRGieCI jMojhL+S+S6s3FckrUK0cloZKt7roPTUgt93//TrOPGZbyH/z9+A7GU9nv/k a3j5S2dQ9m9ZaGeF0RdkwFN5HPbSlzD8N6+/23vP0qHpyf0ZhwQltcdM2F+W f5q95VSB0H7Fvpvsx6l9ZsIes/f23zczPi06/Dv/cxSD1xPYGxEIx92UU06w VbDlnKSdPiEUujMnyCXT6OafQxoTLY3OPkNCfubtrLff58Drg1DettGJweTW Y33XHOyDy/DKN+jAbUQMe5iy7CcX05ZcD9kO6CTfAe6wk9mlCczrEnig28dT eQxPW6SInm3A+vA+VgJ7WGRWpRy4TAfGMUZ6F9IHk89GDsoOHfhLLBXp4i6C vPftwRCcV07nVSSdd7gHozzrPC9R2DfwCVTyZyXlVyWZbaW4iyDlTXoxqxQ/ /ew/I/tzr6Hyy5m48b0LqHmzBg3nWjFhSOCFf6JX3ixDDaXF0MVi6G9kJPfI N/3bO6j6639IsoHU7jehhaWYk8AGBMpUSMrEpP9okg4UCdQgSQ9SW98KBRqQ 3P6Ww1xm4zrGxvVWBn5V7JHCduATbE6nTqT8RW8lnXWG7hZcdZquOvVW1qFY eOWrM9DVJ/AwIrh8gWWWHxHEgiDBPsr4z0M6q2s68ztDsOOCsRTQ8cK0cbq4 J/YcSdyb72tlVyRQ3GL61ggbz2NJ79vofQ+9P6LZwbhxF5OWe2xJ95OLPmve B9j0P8A26+dVjsikSD0m5p7lERLaOBJ9eqyfb6D372HRL3h/A1PCpDhJ/pg5 Jj7vwIlhhULkk79MUXiGjeLZHRC5p0vEPST0vrAD5909JIL3L9DLF34uud3h EzgvOD9XCIJKvPhn38Hp/83We8dHfZ3p4s9HOHFPcrfc5O6us77rbH6bbJwQ 28lmbceJW1wAGwzYphkwxRSB6mh61WhmpFEFAQIECFRGXajOjGZGFQlU6Igi EE10sDF2yv6SOLrvKd/vjEj+OBohQN+Z8z7nLec8z3ueWwTXL9OwcbYXxSuL UZpWCV9GLSrzq1G+tRInbkzghXds+GR9NtzOXBQXZHIdYWGaD7uTNqN0uR67 pr8Ds8xbbGRXu8Lgi4msbvI8LkpcWALj0onkhSUtIoxKDhpLBZMV+xseV4o/ CpOpSl6SKkKlgXloZr2vR+3HbWcTtltrfli6u5lTU5Ay7xbV+hMozfahbGMO +RubCLoEOgPBwRgNunE86j40uZSUsddMyDDFsxhgXj05Hw+wlqfbj/LmTBEC RV/jDQwFPsXR8F2c6r6Hc/u+4M11rg7+FrcO/g6fUj5zl5b9vWN/QN72CYTb RQub3w58hYl9NzHhP4DfFZfiKgMFZZRjVNScoWLmZN852XWB9d9ue0AmE/oU nSR0UAJBK86qYR7BwxkxnNBhiHKKGB4EoSOPQJBHgMiLQ44tjxzLe8/Ox+rn 5sHyX+uR81YGij4qQkliJSpsTajKaURVUQMqSupRUl6LgtIqWq9aqUv8BmbS up054yLMOycIoj7kaX3YlbIL5asz4JuzhHAhOIrRsM95inEs9sexXCuOUxMf oszWzbNaF89qBTB4jsUCfaLxUbmplsqY7ppo/mTgwTyaP7EtAavcEuCvicye YltAsaNhtVFRg82cuhmOVV8gK4UQku9DeY5N5gd2PqvsVwpC+BRY6Vez5ICN KeyrYIM/wMtmlidY1rEQZF51X822sRfBosOUjJ1BuPoSeinuD1KVcSR0h5+a nd13Fxf33yOMfEG5Levq/yU+o7Bw99hv8fnx36Ig9w9oJZycPjCBuwcn8BXV chMdR/FHnw+XFIwcIMfRT3F/31Ec7+rDgL/xAem7DMl6yVhxCNYU+Qx7GmNN Cd6ZYE1FGVOM8OO15RM0GEMlH/OeXYiU55Yj41cWbJizEdtXlWOPvhE+dyuq CltQtasZZRVN2F7ZiPQd9YJ6obOQwXXSdz3Kc8E3F/uQmFiFrLQa7NBUoiq+ ADUL12PrL97jwGDEVTelHwwPbCPBw9MQL7J4bpjF0vFMgolIN1wSKlEKpjPF RP5D/7C0a5omuvXxt/M9B9sCSaG63p7CSnq2EWJnxk2yidxPtadJprSP4vmn 0rB0RhnydQSWDT4KfAIo4hc7RNqSykY62O9Np4/hoN/OniBf4/iDvq7uGrDq 10aZizXeBNMq3crJ+yJNuT0IFB6iXP402isvoJty+AOt13EodBMnOm9zus75 /Z9hnCBxncqiW4c+J/jcw6dH7xF8aBwXr7VUpR0bFDcz/OnQ78jVnMZXDXtx buAaTvET+DOyH1CPzDb+VfB1UgRfx5Lqog/HiGKC6ZRhUFhOgiimYGb6Txdh 5TOLYPx5KrLezsbmxbuwM6kBZfYAfHl+VG7zo6K0DSVVrdhQ0Up4o1LLTAaV bBSXnta7Vi8r129SNaqlBW7kWc8v59ZgVXwd3Jp67EhrQHXidtQtM6P8rbmc u8vZpxT/MtmgDEjkr4/GcCWzeFHBebwG9yQAceYpFWYPKWUj5aVM96CXealx Ul5K5SM3MMtxHmU5jsxN5UiN5qb2ZMnpTxCJjRrL6XnPP2XDmrnl2Gwhr1NY xnNfM/1+C/0OKw1VQ5DKRgbTEUwRCRV7ykMiN2Z7UClR7QALoLb1RphX61bE 7t9+E235w5S9iBZ+nfWX0NcyjuHgNRzruEGB6iYV0rdx8cBtXKE89PrBT6mw +IzQQuPoZ2SNO0cZ5b+E8tihQdlPgTKbiYELFLACuJZbjJEDJ3G8bxhDnZEo gGLoTKluigSZcPDAlI0MTpMThK8sSz7en/oREn66GvZfpiN3ThG2rKrGLn0b yjztqNgUpOgTxB5fEEVVAViKWyTr0CsBRAZldDljOgU8K/1+gwQQOR6qeYys COWrNB0vvtGAJav20sQ1YpuuEdWacjRQalv3/hIyKKVNU3jW/HiUbcsqH0s2 R1CWeTJv2a1zcIpjBqHFkaxTK19G1delmdW82ESRzMIqYG5VmSZNSpVopGXE 8Rz5IZklS3EIGTg9xRqbHcXFPOXp7/wQr3znR5j3T0+jON2His17KAtX8JPB n+TggwIwDafGNYU/cgp/KMvMmTSF5ejp9PZ5ecXycflERxLXBUyC0r+gKWsQ /qITCJSOIlQ9RvHsIsWbyzjM5PVd1zDaex3n+2/gEiW0V4ZuUn16C9cP3caN w7cp4b2NW0fE683Dt7ClYQK9A5QcH6fk+PifMTF8BX8Jd+CzbVtwcN8BhFua VDglKZwwAScrh5NXwikXrz/9EZb++CNKbLVwvpmH/EWl2JrQjF22EPbkhlC2 jV73hFBcGUJuRTtyHRTfHJQH2XORbSdr2xiNkPyEhSwsOWEuo41+v7KT9g2K owZePjMCrVnj5ARaFkvfX95Ef27GFmMzqgx1aEzeiKYlCdj0s3ksprIiLI8W v0I+FoVYThyvwh6MYXJnxPCPKYJq9NIbs+KFqRhMHFN6wpxRaxeWlmk3VzOw FCuNpd0s+f5nnny75WApOEu/eXalVQBm5+IZmWHBuo7JTAwcVc9+5+d454lf YvmPXobm5y/D/uIvkf7iMxJVUj2hEc9j0Zs900Pv1qWmeG45XBDAfpDvDDOg 8bJPPjc9icL2egOWxx5y/hOaC47Bv5NJqUfRWXcO/S3ncTB4EccilOd0j1OZ fBVj+6/iIgWwy0PXceXgdVxl41D09crBaxgfvoaNZV8huH8CZ8ht3T3xZ/yR fv6HSBduFud+XcVWDNOOYYtqKgfFuZk//AirfrQWhhfIMrO2oWBFLbZqg9jp CqNkI42dYRSXh7GxMoyUzS2EqQLkphdw5iXDluAcMvalV1BUFWyZyQImG9IN RplIfxP6ZA2v7xhHlmFL5Goy5hLOpy9upUqI4qa5FT5LC5p1O9G62ozKafMJ n9ksm2fYeoSjS1DbsyWdOIYXqyeXpSOXpTUq20Jse9TAt0cJ1yqqyMoxGhkn zQffHpKJO74ds1vqEdoinr4LgImtfpG+O8nIc1/+DV54ahoB6xf4xT/9BrN/ NAOrn58Fw+uz4KYaMvud1/hGhoOVLrSc4vgDH6DfIx+r50M8egp99Qg860WJ 6SJsiRMHgS1nqpWng+lJBnJfOiyLxdbjqHOyFhun0Lp7FO1Vo+jaexb7287h YPt5HO24wJXfp/ddxtn+yxg7MI4LA+P00EtD47QMLw7Snwcv4/wQ/f0w/bvh C6jtncChw19hnOq6TykPn9gdxB9NGrl0vwVDgkkl773w/QWY9x8fYd1P9DC9 lg/P/DJsiG9BkZmA5I1gx5YItpdEsKk8AteeCIFoQxwnLz4ucaUMwez1Sr/F uaycwkizYqHJNxO2jAa1eYw+WRL/U6PsYh6OCVtOXTbP537zgR/rU/zItfgp X/OjyexDW5IHjfMWMa5/Pr0FXhLYBGFdROAcybwWpHURGNPJQDayGy1sTap0 nY9LCYyJw8xI2DBxGQyTYkm7s20MejsuvpUh5FiiFPi2LAWy5CDMGVmpIPRs LiWNo9+55KczMP8/XsG8H8yC/jUXfvHv72H2f83HqtcXwTDzI7g/mI/s+bOQ /5PZHGfseeScdN44vnvyNXrjXv5IVoewwQAex6H+cBR1hLcMtoGhdfCHZqSy 4sNIaNMrSHtdhos67zHR04ndYFZDSGscRX/bKIbaz+Fw5ByOd4/hZO95nO67 gNH+Czi7/yIN1tbtwAWastEB+iumPR1ifLazODg4iq3tf0bHgd9hNDSBP/i/ xISvD39xu7D/+ZWY88RUtSzXE+imPfUhln5vNRJ/Rt5k+jZ4ltQiPzmITY4w ivIiKNoWQSGBzFvaQUgqIERtmMLJj4I0TNhTyPYEt4fpb3I54FTytCSLCsBR xmDUy8ezolNHgdrCi05TakYUcDxg56gFxBuv1WF5UpB+VxC7nUE02hvg1xXC vzye3k5BFHH2WNTF+DUz82vOKN9fmyYR9xgVDnK7lKMtnaONS4Y0Am0ZrABm m2bc6NlxrHqYwkuHf2AHEVQseKXwjyHOgznPzMa6Z+bC9uxq5L5lQ8JrK7D6 jfXwJlThpz9agBm/WoblM1Yi7cOVcCz+GM7FH6L2YwNKXp3LQUYOzUW5CqtT 3ELvxR8Zx+H9GK912TmI25gpxZrMw8nNMu5QaVGlmglrBkrMtB/Hcs5+iZqc ETRsH0Vj2SgCBLVOgtq+1lEMBEdxMHwWhzvP4lg3QY7tLbMdRrahxLpFHqCf DZzFkUGBL0Zr2yfbh81zT2BP7QSOUvV4L/g/mKg9gvgnnkHO957F7meegX3q Wqz5YRK0L2XD/t5uuFc2IUfbjg0ZIWzcEMaG4giyyZmZdnRIZnIBgUfw1Bll VOHZ5vDvC1RWsiBn50XBZqNZsdHqY5xbK+PcUmmu10bBRivPRJWWKUUqS1I9 BDYWNbO5Jodlh+4Ydcm8+HbYLe0odrWjIaMVQfMOBNcZqJL8iO94CLBJXU6M i5ukmzBSeqxLk+/hcSGtIvdmUrNDCXoZwZmr4Ro1joAcsnSOKDge4AXHP6oC ycXPvg/tc0vgfkmPjXNysWPVTmjf10L/kRYJH6UhJ7sGTz+9CK+88gnmzSID LFiD1CUrsE1L1UxqKepXZ6Bq5od864+5rpw4/qxvEb7EvnB0ZHOYM8x5YjDn lhJr5t9caaK6SU/VfRxLDP17VOacRC25tnpyba3VjBFImGkh7PhHcYAwNxge xXAnYa9rFId66bWP/txPrm//qFD7HWAcN9bibETO4bcxM20Chb4JHAhM4IMn 3oRj6izsfv09+Oe8g54Fr2Io+xay1jYj10BRyhNEzsYQMreHYdsRoWhHdib7 ck2EVShDGFWUMeEZ3uI44h4XmJO87kkMeNv9XGUqjaxUCpnNap8fFWfJ5E9T mPYrk2u/HPpsqf0inDFlillRphTg3RUh6M0hbHGHUOsJIZhegXbKnxvnLeYa sFj9l8gQs1RNhtskcaZi/ZsUxcmxUkFrkgUt06CxLJHv6DEZH4vm5GAZxtz0 fhQ1Kdv9jSO3mYvvsFMBzHpmHtY+uwDW5xKR87YbRYu3oSSpGuX2RlTl7oVh jQG6BANWrdZjwQod313+8c8X4tfTVmLG7GX4cEUTrbMmFBmo4tFVY29CHhrm r2DPjGPbiXH8yewwlz1fIC6OY+4RjjrmWHkYN0ZRx04Q3ZSBurQWQp1eIu4t mcP4CG1Ve0bRQClba53sDEXBtIvQ1huWLMpueu0ZRTdjUe5j7Ekh5mvqPCG2 Xv4BM+fcwvNPvEul4lJ4316N6sVr0LV+JQ6mLcQ5qkRzM1uQtcEPe1EQ6wtD MVILIbrhILPmcZB5bAVxHGVTOInbK4fgwT/CSd1ZdoYv+vxMO2D3wmWnwMNJ 3YILbzOZFHjpE/T8PMOUnB4DL68KrwwjPdXMJGAFAl7kTr3kTmfMjyDRGEGB O4LKrDD87nqEjAUIrPhEQkyBV3YUXpYMVeti16epaYORgosp9X4XlqkWIQxa LgktD7lUvmlslgXu/8GCZxYg5ZkVcL5kRT7fK67AHn0LfJ5WVG1qQWWJ2CtO TDbhwzdnUciciekvvas+ykqPsvO8lGqvpc1U9bag0ET1jmkvGlO3oPnjZI4i eiB78rfYs8XBhjpoqsmTZprZMagIphxiekHe4Fs2ov6h8lUjBXjTZMbAmjZV xPQRaiF4tQVG4Q/RiND3BLHmTqWl3KkHJWXz+SeWYunLKchaZEQVfbIuuw4H M9dj0LUAwZsT0K9zkGEzaHJdXF5hpRTXTu7ZYcpR5RUuJrGwMYmFiJOEKDvT 8AkMCRwp4gC3pLpnMKq73YV0WzrFM5vcXWQ6GAYkMmISASnZHaMdy5EKujzh p6SCLlMq6LwyNq/QRpBFYCrLjqA1qxVh+3aE12uw/VeLuZ/MtDK1kKw4yE+6 LAQks0Xg+Cf0MScLPa0sHGuEUYXYU7pKFpJN9BbMTCK7ECt++hH0z6bC86YX hYt2ojixAaU2v9g43u5HeVkbdla2UrraggXT38PC6bMx7805mPHye5j+q1lS jiueZU/zCndIz3trYStSUtpQYG5DhbUNzfoStKwxo/SNBRw/ysEH+567SPYl h/mpGCB5TAxIbq60536KShwXlTjpaVoJonfkqeXWilHsJADt3kujmXXBo6y9 8eQj0v88/+QqzJ1uhW21GyWUQbflZKCn0ID2XLEFoltj5+x+g2T3C0WJVwWM YPczH8QDXRyn8z/Oif1cEmHL4+R+j43plWKxwsj9bknud8BitsgClRZ9AiXq TP5DjzTR5Ck6Q0Vd5jJLvChYsXGsxHGwPI55SR1wZHRgZ04HGnNCCLtKEaGc m+2pCm0drUOrTN8IKk41pP5E7BHLopRtvHD7UermYGJPXicI2aubcDL7x4sQ P/UTWJ63wztrCzatqMIObQCl7iDKC2nsohrCF8TmygD5OvJ3FpG2LZwxm8Zc zHt7LmFlNqb/+j3xLI5L+qgMlyxVZM/T5+I3c/2IT/Yj20K/2x7ghXBrogd1 cxfxvWqvFCjHcdQ8xl0fC6yZ0vd4WFJlypzUUoDVJy6qT5w6nYTLYkmke2G6 DWvWZcPrzENJQRZ8m0xydh4WYoUkF9XOQqxg0UksULKTzpwHD+oMDVN4THLZ hKojjn+lktVKq8x2v8KDQEBOw05AsFrsctP6cRjWW7iSyZQkJIZMPGdj4jma FUVpyZyUR5UZchEyIeAbvHhkIW/mqk7o0ztRREioowKzPasWEZqRtuVL6L1l 3pdYycD3S6H2ZbS3FJZXMcNQ4KMFzEFAAHjtPxdh0dOLkfwTDeyv5yBn/m5s iW/EDnM7dmeHULo1hN17Qtjma0dmaTvfrGBbrRwEPOh5OQAWvvM+geADvPPy XEwnIDAAsIjDAaelZ+nooxIAuNaaPvIbbzVheWKQgmUQJemiOG1LK0DLkpX0 +ws4CNjJVxZNvQIC5jkyLQQC1W9IELAilZ1wGSi30esV6fdCSXpNZMykZCa0 sGLeS6cR3jmB/2E0lrufymX6beiYMiBJKAOM9JaZ5sJq8MJmlJ6BDXoLThoZ bDCpijWXqy4yaBoybFHJip0PCrg2CrzWdMlK/QbnvhjX23m4EhJKFq6E90k3 ThabMk2bCFcbOBDiZMiaNbcV662dyCcUVOVHEMhpQtixCe3r1vHUJ4PCVbrV BqtROaf5h+jmvtyA5bkPQeCtHyzCsv9cCc3P7EifvgW5S6uxOZVKt/QQdhWE UVIcRnFZGAUVYYFCnhORV/TaeHogUcARQNZf+M6H+HAaIeCV9wkBcyQCsgTa tMLlOAlxGQZaTEb6NczvPIgF62TBmEEFo7MFfuM2BFan8AQ/jkPgMU6riD6O igkOAlY0UuBgu6+scKSE3m2k7MNgkPafJzOPZCrsOSt0MtUFc36+GTnxPtRn +9CwaROFdiu06yzKuboQi3jovwhImLRRGY6Qg9Ews6DBsu90duSQTkj4uqoU sdGqtFJpbbG5YLY6H1aq2Xg7F4QamSBUo+iNmayRwYxgICVmbh6EBAziuEt4 TAj0eCQSAr2l+k54vB3YUxBBC4XykHsHQlTFlM5YQJNqFR/lp2ILXtkl/d58 vPf9RfjkB8nQvUR+a04Jcj9pxGZ9O7Z5yOKbwti+K4LCsgicuyPRTQUFAXZx HM1AkMXk/ixhIQgseOcDLHyXIDD9Q8x45QOCwFyhKmcQYJk2OQAVAuQAXGR9 t4mQbi7gfm/2qhCMVMxtdYVQ525HwLYHwUQLSt9czJ8Xx13BIxwHmVaJAXou xwDbqTITBijrdpkIA0YFAx/IAkdhtihqDU5ZYIyWVEFZWPqrYmxK8qEpj0Zh jhBrJAhmsH6teYp0JUznkpYkMGEgXDOdi5lsZ+EbAlYjy2xshAs7YcLOdC40 OXaronXJJBh4YLK6YbA4lZaPurX0hPXpIolN9XDNpvAKQiOczr0CzZeFxx4C xRSKEVJpaON/Iks8xGPR3OQOWD0RbKfV25AfQntmKYIUHavnva8oJ4wJJrz6 FJnqe0sR/7QZ+tcLkbHAh5x1AWy0UC2dHUZREZm/JALvnkgcS0riOAie5jks c0NeObJsrJMIJXncJELlzmCw4N15+GD6PILB+xIGFF65J8gWnSYoDjjJCygw cJmjMMi0bMD0j8PQmMIodIVRnRlGwFmFdq0HDR8uFd1LrPKZqivwktPM5Dv0 rPhym9Ppd1optBqUWPC+ZDgx6ooiSBFNFxVBCmusaMebT81D/Fu7KffxoXmj Dy0F6YK5kiwYy5LlJPDwv5DC9TseVb9jIDwYyXgmwgTT7lioJjdTkLbQOzRb 2CA/YmUCHg/0Fhe0xnQ8pgLBIdST5Bdik1MuFjfF+gaRkjAPShPxTzwTYbJJ l01kIjNXRJDiDGNjbgi+/CCas3yY2NmGT56YCveTP8X2H0yFZuoqLP/eaiT/ F8WEaduRsaQe3qQA8u3t2JgXwoatYeSQFzAVR5RWGHFc2/+46IEQMzgSJBpY hpzJdnsIDW5Cw/x3P6Axj4A7nVzCk5gWiwatQIOD0JDO0ZAv0GCajAaWFc/4 MIJ1+ghyqXLyZUXg9zTwMty/fDn9vYJAgQa3RfRacFslGigtZmhIV53CXBkY 0yQTRekuaWH8Whp2oUrieqS3vpeEtPfKUWalRHULASJbI89YGXkgypC2rDM/ IB18MhcnecjfZEJLRtQRIPRkSL3RCwMNPaUuevJaOhppFL00lL58UwHBOifP Srn2U0pohYJbBh0zk9HmqtlpLn7BcxGRh+SIPMTG8pAsqQF1YwVFV4/Xj7Oh Ccx54hVYfjgNO381HS3vvImOOS+i33EJnhWNyEltQ64zgJz8dngp7XNQ/Oda e1qmSm7C9fZKmwfZ6kFsPd8PAmkQej8uioXz3hFAYDCYRsNEpbOJAYG1kSAg 2Cg6KEBwEhAyFLfAcWcpmMKL6W9heVoHMl0dKKXyuSWrDSH7NoTiEzkIPJYo 8FQAsBLayktodoYiASC6sT4k+j6qOiErJ1jb0xxw8AN8pzhbfwxvf58W/8Iq VGdUwb+9AiXa9+HWpqunVE5NlCVkXW9WhVQaN5LJbTGBVbKeDZcU/z4kkouk qBJVaHy9XC5Ndo7jK36Kml8wIapIL/6Jy3vtNGxkXhulF1YuRnViSd4EXnhi Opb+YCEyX1uOynkr0Ln6YwwnfYCzPRPIdTUjO98P55YgUja1k+sjaJG/sulj mlGY5G4Jm3aWfPyLyEJ5TSLTDlYEs6HUP8zCbOPN7sE8iv/TyOm//fIHouBl tQ57DIXKyRYWj8qQjp8jipY6oWoKh9WDmJ/ciXQqfHdld6Apux2hjN0Ip5pQ /OoSHgbZiaKLH5K5aTj52YXTYoHc2JzNX76jUjtUC5PJ7GS6dKkCc2ldqvxr xn9SSb+iFnuza+HfUc6ZkB59Bg22t6WwIW1cmGSnssq63vikNKfQv3om6V+V vMDKjgls3JxKWmC3snSBJQUPkPlofmwsNSC3b3HGSd/0whNL8PFLicj6UIuq dXp0mTU4lLEWx29OwFLYCAPPIp0yi6T/Tk9k/Vhi0wbe6oGm1iWtGceN+UOe PvAGBbaoCZUS1knl6we0WN8mM5oS0iltdInWJdKM/BlkRgd3DPmEmuhiVZyD 27phsoMg+Ly3thNGKl+3UuFSn9eBUGYlwjTB9R8u4Q6C9X3hJayN2ZJ8q9ki TfmepK1oU3RS96SI+pgpnWpbW5fWzc+R2VlLpiET7z27BXnr6imE1yO4aw+y jB4abmRSxZhpYGZlK9gu1H1Sa2ZZp39SpnqadRk8tGsnhfZsbtY4FtzjKKqz dN/C4jqZ0mQlu1uFOFdvdk6RGcfz31+L+dPNSP8kA3vI2we9DvRt1CKQJepT /VqqRmiieccJlv+xvQi5LLnHF8aM4+73Cb415VL2NNn3fLt8cgIgtiLE/uXc Ge/jLarGjOvl9kOKcLxmsqWFOV72GINcltKWbFnG2nMK35T4hnQF+Zj5cSdS bJ0ozOlETX4HfaR6hOk9tC5fSvbz0HDxQpRtRdjN5vvsyMgKXLvGBNOsnzMX ZUYb7XLdmjGTExKYXG3Rr0qwWbMXgS17ESzZoeqjvDSZwp6yISLr0allukFG Vjb8m7RjCnnZVLKhiMZeEY0NIhLHwWBia1BvFhFZa6ZUzpTxNbnb+PyTy/Cb WQ4kJ2RjgzMXvg2ZqN9sVMTbetnuQk9TapC9Qlh3H6VHjUN0XIljWZvYSfq2 uncgYnWO3DMQsTq21YU+3ir2ChJFLxITR0ZWdJnzJZinxma21OO44R7gflvZ Q+CrnuHkUZ4szpzdjDXmTuRmd6KioAP+3GaEnZsRjF9DbyVDtMOx2hSuxSzJ SmTyGEOqUdLz7IIYx3QH3GRSaihlhuxk30tp76q3K7HDzIRdTWgvKUI2LZNs Rd5G85xlEqbzGNKjpDx6hjVBK3pOTUFSKgXNNA9SdIwpksr5Sam0ulPIb4gQ Kzd4YhTL8bOuoN83gXW0Eo0eq6oY13xiVRtr6Ck5MxAcmMHM0mCsR0m0qs+N 41nW/6GQQsHXmsNDL++rwYLvpN4aTrGzvJZiDOu8kyArOZ7ER90yX2Z6iQmj WGrcPdN4gC/mx7mBXNa8SUt6ia4TrqwO7KYCv5kX+MUIpaTyYwnWgec+QwnN SvQE08rZhB44lT7MXAeazdnbXgpGM378CZLm1KPU2UI+shntO3KRQx81h/xZ DjOYJVOo2ExuyaBkrFybYOWm6EQzlgeQnGJGihCEsV2WOK50/jpeoTpz8cs7 sIEK63oqrOsL3GyD5WsKEVzmQDpanQYlaCq9TiiM2fgxvp0M8jCPnKwjh90q oqeN7GC9rxuHSmxnPXyoojawYipZ5tLSFux3C5cnOiI5aO2IUKmuIW4LZhG2 YvmQ69Upc+v3qcq2qFV2O4JbK+HfkKTQLBVbqN1MOe9c6Mk4NUbph60oCZl6 kNzCjJ9YYfioGZVZrQjuaUFgswO59NgcWza3STbFF6+FDYpvagdTWjhazmb9 T7nTkaJqeGxU6crdLinHYhvBrz8Vj7Vv78F2qnAbN/iw15MG03objOvo8fFy 9+vvxE5HYkz4o3hhkuGPZTUWMo6V3r2VDGOllMZK79BiZZGQ1pTa0SND1cey 4jZB1DbcX/L6Jku1CbO34jMd7ISbGeUB2bBKlDtOdnjkpAl5iKxAK5J1upGe c+aaCDQZYWzfFkJbU2BFrCH+jtaiJH6mpk8ScWUYhKgvRtDHxVszpubCvrIN dZQst5e3INeeR4MenmtjD88hCGTTJ/VamLpT6isM4ujTqTX8UJI4FJEMt4Em VssS3XV64ykj0maXo9TiQ/OmctEqJFG2CmHa6HihjVa2n1J5TkIVIxlFS0bR 0+wZaMUYeU5ios/yIEyUlJjM9DMLG2Q4ept6SknSjNGdaN06ijAJFLl4Lxzh DFVr6LJF0yaDcIhilbAcRDrFKbwaUZxiHHeJXyOHmMUdo40c4zsr/UgtDkIK bmbKo1NdYkr0OCJViKUcjACriOkYicYsbWEVNKF3f7YVWesDaNoUQLuvCXnM Fg5uDxpicWRzg1CyIBeGh2kVJEvSmpryH0rJJe+SUHUn6p0bXHsSxy/deBRv /buLir0KVDup2C8qJTdn57IiUejTILtY11tgXmNSJVis4k8mVKfQPGooqKQR urT0qXSEMB3FRa2JDVHtP6psL1Olr0twkQf08CqQlw18kQkbqF7QIL1gHHeC D09yg7wO5EO4QlYLWsgVfnLfzCdoaOYpbU5xwJyizHym7EstGntn8hUgJYxU 5815oRT5ae1o3RZEe2Ud8hz5cubF7OfYmeY1W848U4rQzJvIJRkZW9BE7i71 /1MOV2RXE32aVd4UYJOaDdYFJp2r0IXCx4kZT+fDs6ISDVmV9OgdVHCl830Y LmNNnaz6scQrqqIpWE/pyHqNU4YA9vV/I42WizbBLSqzFDHF6q6tnGILTa81 xpfZ2JD+zEqrnPk0C82u2abs3rpW3T+5aRTyaXKTHZxawmiQDkUjquj/2AkW O8miiWWT+9EbNdhiCSGwK0STWyknV06wQ06uXUA7yyp1XOYMuEx23lXYptV8 X2ah0bsryFdQ+mvWymtS0oTEiV+RomECGCp5H8e8/96KgvU1aMmvhn/7FtlF RnSOEVdWyEs/mOKJK6sMlLOLmlQT74SG5jMtpizS03zy0ojmku16MickuhaJ nU+zJZvvfJpiKiQjzaPBkrH6PjfN5jDJIek5HqrtYuRMnF2YJ08FCzh9ddWs JhQ7wxQrw+Qadov5S8+P45P4kJSeKFPImDnijMBlppLPaP6+3MHVaZQNAppC rWDpW/5Kci0uTXHxi1M+xPLX92BrWh3a2MUpW/m2POfJR9mk9qj+g13/kWik fEBsDqbQkk9N9lCqRO6A5k8tSQgtBlmWsKLESMNAblxvZmWK3sJyXx2hgP0W Nlbfl2wkkPWTWJfRmObfBmXycunTy8ljjb+fS0LSggD2ZEUQrGCdeoo4AV4R 7bD5y3Eowh1KGMlkHrbNYiGo0Oylm2TL9JjbK9IE+Zypscx89u4TJjMNKqvt dOwClSQkvFuFEou4QMW/0S5qdrUDT4bcbnFwXq4zld0BQjVdguEJ5USPsgjF 36aSH9PQp02jtCrNQBNK/jaND/q5yYNUo2vdfUkyO41PdKitn230vx009Wyu XCYxV5m8SXo+pv2MvPPyMHxULAWqIvAXZ/Fex1yEki6FKIwDRkjLknPlVrak LDFz9XcxJH1Bm1YVRmqbkEwuynDxgiqL926Z9kNKm+bVoyKD6t+dDUyvK7S6 DyPTECu1VCjzgsbMrkyhOgqbYj84JcbKATT/4G7JRfFKfmcuFY15fG+Iffhp P98MW3wHajd3IlATVvueZ3OQSOKbopAg/+ixib24DCpenRby00aD7B38d/x+ CaNG3NLBDl0UwriNVScaqYDRSmmCVAmwUpLfc7KsEbXZTQjsro/jteUjfFNA FZvKBikuvTIDVpoBE9JTdJtitx2+MakvqkVp/s55h2R15cMzme3zu+FO7ULD 9i74a4NxnNH6iOBO25XG1oJz6JHcabbf4bTyRrKqsfltEEbxcaWgjeeesgjg aowoP14Ka3Mw87ltyIpv5k0xgqXVcVwj+YjaGyZL3u7C+ibxj60Te1iseHZq DJM+Mmtmaoee7xG6+Emzwo1T7M2OFPmuwK+rkWPsRtOubvjrWjknjh/z2gV/ N1P5vHZ6w3yrl3EsMwTH0mz+d8mxNFLxaUqNpc/KJhpcgZLFafqxFG2ed9OY 9yt5jUgRFT6lZbydSuyFLLEf/K/koWlGys40KLxv23edIPcYGc2CptumZ0s8 m9M4xCfPxfxpjdjo6EZLaTfaauv5ebrCBOTHF+wci7NKo2xAB2MDWu3fVysL xui0SPm/kCxyUrrSAoCR0mPIwoywO/3HC7Hi7RpsM/sRKPYjuHu7EJc9Kj94 9N4ULsJQOgCp0h9a3hrt5A/8ONJW2ykREXtRotaVzFpjtmQz5WDZXD+KPN1o ruhGa3UFUwDxW0bclMq7+S6+l28fRulsSttVi7zw5u8l/1Be0cFy+FSm+VDE TlK8riQ9JsH7mz5Vh/VzGlHiDCBQEuAXTbA6S9HU8etiuJ5Oqp1i7cy5XRQA tDr5id+Qew5btvdg67YebN/ag82bux9Wcr616VRosD0eUdKIDTlG68rG6z9P w5pFYRTnsMapPTQRxeSzxMGZi5N42N5pFt8/dZDF7UrzVLO0+JM0xylSex0j 3k8VFHFVMKtyeJXGD4yDSRXbYj8qvEEEygL0yfN5fcP1N/ddmZNpvk9XKKlN Tr1ezsGrMg7u2t2FPaU9qGTtyem1cU8PWnb3oLWExk76gDRHjUU9qCukf5PX 8/WYPI5360yJPXxizWWzkbyiEyUbevhliw07vLzWc7LNL3UDTCG2yBaoZsd/ yFSKz4sUETOqmaDOC76hqksyyutbzPliXp6hMLMqiNqCdgQq/BBquMe4NonN jzdmbjJjdUmS8eMyWmPm5WW5B1Ja1oHKCvrcPpoDGgH6Pkyjs7wH3TRPPTRH vTRHPTRH3TRHHTRH7Zt70FZAH9zb/TW5vFMIS5pEt6wdRN3wys+LoI3vQulm mp+aDl4vcKYHZ3t4Zc0gagXW0VRnsv9A8Y8qD0uZn0ye5Krzo/J2o/Pz7i9K 4EkKoXELFQuVTTQnBXyGFBmNl8toclUqnpgfKXFgNAgTzY9Br7iLX8vis6qi E3VsBdAI0uik0VvZg36arAGaqCEC1DBN1EECVBzvNv41DLBu2TRZvVtowjbS hNEq+rqsrVMSxSY725R4+Re7CQJdKN/WjbqaIKsE7u9fqqdKXWvO+E9lYpSL KJIkRzFG+5FuiN7PwiZHucHm/VeqkK+LoKU4QhNTKyoru6iuxMTkSX2RmBh2 G4knhh/CRHXp0Yl5SboPX2kAdZUd/J5Rv9pivAcHaAzRJB2u7MVRGsd9vThB Y4QQNUITdqKcNT7twZE9ojP2AZqofTRR3Xnd2Gtt/7os1hIpJr3yoo8yrw6U F7OepU08YRWbBGyDgO1uO8W+6j/CmEDeNtEmJ0YysDmXyjt5YmII50tnNGKL jTLV3TQxvjIhPhTMPT4pcRwzD4mJkQzi+8jm5CyVFfVL6WmqSlvRUBmmeemm dJAAQ6OvphdD1ftwuLoPx6r6MEKvp2mMVvdNwdnaPnYfY+0+nKF/dpqmboSw dZSm6BCbHnLcfRu6EbQF5C7+1/DCE1OxbtZVDNZQhXORNf87L6v7B0SjshQr 0lJssq1cMrsplvcro/nRrLfKWwPuu6gi2TXpZhPOP4udMxpvP2fE2g/82OHu gL+cxp7NCtNRct2Ua20EOT8zhl0gRHN2xrreNHm+Gn1BtFR3oL2mG101+9Bf 04+hmgM4Wj2AkZohnK4dwtm6YYw1DOPC3uE4XGwcInxcahqkMYALjftxfm8f ztbT3LGu9TR3h1nf/+Ju7N/Y8YDcD3yepmzOE7+G9QdvYddLb6Nl+uuIvPc8 an4zVb1cXb29WCPYj6zLcxzfDX5IdBBJFj0x2QJk3doMCTbBhFxr/lfFsbOO zwkKh10yFnVeSV+WnF7GYycIvvVcDlKXRlCa24k2WkhZcirjeDn1COeLZSnk EMYZo5ii0pfVs19lOl+UmWxjRRtaq0K8gX0nTWUfTeFQzUEcrTmMk7VHMFp3 lKbyGC42HcPl5mMYbz2Gq200/EdpHKHvD+NK20GMtwzhUvMAzjeymwH6cLKK 3anQi0M7umheQ1PUeX0bH/9gAbJf+xg185aha9ViDCfMRd/aX6t7sff3yTIp +7u8qZWVz69NNrVivbKsSaJfFmMVGtfZ2F77d5VigR/2OdTyhBODaZkLnYDU sUitwFs/2wrTGnbRRRclcRFOyZA8vDjOzXiYJ6/iOhXBvcngsiiX5AZzWZRS Gb7AX55BQ+letPooIa3qQrh6P3ppbgdrjuJI7XGM1I1gtOEkzdkpXGo5hfG2 07gaOI0bwdO4GWLjFG6FTtLrCG62H8f1IM154DAu0XyPNQ/iDOs+Thg+Xt6F w8VhzJu6Es6pidj94laa6MVY8VICcuenoW69Fj3mFBzKWI0Bu+BoafgdwBbZ L0j0ClL2bDlljzc4tPN+PemprI80zfiDYs+W95uS++nrxV66frWyEfMvVByZ hXhIFkjGWGDLS204uGnS336+FM7kLtRtZbeLBHmBzAtlzsHMkzMusmi3crsI K5LsGUJAZLVtjp3wH6OlrJm8M7tGqh+d1QfRX30cwzWncKzmDE41jGKs6Swu tY7RRI7hevsYbobP43ZkDHc6xvBpxzl82nmWxihud5zBrcgpXKfJH6fJv0hg P9dyEJs/XIeaD1Yj8r4Bde/UozPxMIbz7uD5f1uDRdPNcK/KQAXlCCGvHf0b 0jCxpx2733tf3aoVrXXYNq1NpcQ5RKNuxxRkUHX3MN+WzeAtIQQdzpESbdht YXss6mzLUpQpbzi3zR3DcpDEZ05AysXMVyiUGyi14vdqNPHy1GMVZSpXXFgV xhGbZXkjCc10Os00FWdbxCw/L2e5saSafDpl3BSpQ1XD6K46RpH8FA7XnMWJ hvM403QRF9ouYTx4mWbwMs3kOG53juPTrnHc7b6Muz1sXKJxAZ+yJvtdY7hB s341cho7FxngX2TBgRWFOKEvx7msJlwqiuBM2wTODU3g7NgEXp/pQGpCNgoz clEpyAP4vf9LlK7NQNm8pch+ZhpVaox3RjNHs+xgXYnS0uN4m6IHeC8ZF33n 1rJBP2abiw/Sjyiv47SzaKNvST3DE7Ie1MVwE3g9KLUG0fnOwYIZzSigArip lN1BU8XafbAjNhc/YuP3cMh6KF3ySWKkLZMmeioVHQ0IlHci6BtApPIIeqtO YrDqLI7UX8DJpnGcbb2Ki8FruBq+jpsd13Gn6wY+67mBu73XcW/fdXzRx8ZV 3KNxd984Ni92oW6JE93LN+OQphZnssK4tH0Q16oP46Z/CDc7KdW4MoHhOxNo uCZ2RF9blo61lP7q3TbspBzCrfFhm6YUZetzUPFRPLb9egZB2SHvDXfy/XBX GqN/uagS5l/0LqZMY5QvHRuC9qVsrKk9qZNZHzDTN+UpdhKlJqznbSqhX5Mi +6iyfqqUm2gSbLyP6gNyA06QECTzL0WcSgtZgbDMaz/TY/kHQWyhKr2Rssrm smLOQMjg9D9Whj0o2J38ho8ow9NG3t1KlXpRrFW+SylgG4JlvQhWHETEdxx9 Ptb5/zyONo7jVMs1nAvcxKXwbVzrvI1b3XfwWe8dfL7vDu7138EX++/gt/tv 47cHbmH3khwEl27GQHwdRtK7cH7LEVypPIsb/nO4te8Mbh4awZVjR3Dm2ACO VjQqrbqef7kUS1b7yHdUokhbhYqkLahapkfZ27PV1lyctKVjG78evqOZqfdQ pkDfPMr3uLIMLt4fPFOl4TkkZ0uxhYlsYZAc6gfV5t9RqYfsRZrCgrKJN582 xiQ6unX0bykQKBJdzSoy3noXPzHiHH+N0H2w06JXf5aN+CUdKM6llL6qG75C G+dmOpjywxGj/BDHcTHUzK2TzRIoCSFYeoBMcwSdFafQXzWGg/WXcbzpKk77 b2AsdBuXI5/hetdd3O79HJ/13cO9/ffwxYF7yF9YiNrFheheUY0j+i6M5h3H 5T3kvZpv4lbPddw6eAXXT17ChdExDJ84gxFKeEb2Um1S06J0OtamaDmPjrVu e395NSWBNdisrYUvuQS1n6SjevZCmmexV+/RZ3IuHdmENW33GjPJMIJ85aE/ SQIWI9OxvRp9dDOSkbBYB/FHlGwpNXoarvubLUAf4i1AlUyJZ0sJSrbEu7NH 7xpxqSdQvCpP8+LlnxUhZVUXSjZS6Kju5HRLcZKXwzUYamWunuRxsiW2Ccv8 tyxEG4t8COwiN7Z7EO2lx9FZPor9NRdwcO84jrdex5ngbZwPf4pxssz1nnu4 3fcl7u7/LYrmb0XTonLsWxvB8fRjOF80jqs1n1FK9DluD9zFzRP0f87dxqmx G+ImCIrepyhlGvEfwkhzH8UipQx6QnbVM6mt0N5eVEf+oh6F2gb4aCXVr8tF w8LV2PLzubx9Z5bRS5aQDadNWchmg/GsTJmSKie4Vlm8z7tiJZuwUgq7zlon y6xHo+oIpWW4zGmVdIs1cmen5KzfZhzPsh7keZY9SfT2VHOtdbwPLJQG8alk MsalFLwFL98iMCR2o6yIbRG088PCOH5c+DUhk7iPTlkca6Yn0VRUiwAlCMGS YYT2jKCr4iz2q1dM3MSZ9js433EX4933YJ1TjJ0f7kDLkjb0aQ7iePYljJV8 jqtNfyCfR+PQ73HtzG9x/vyXGDh9D9cHbmF8/zVc3HcZ57rHcIqSq5H2I2Qq ymKb29G1p1RpNGlIVY40FLJVBl6dsxdJCY0o0DWiQl+PvSlb0LRcg7LffMBZ cV5zdhyZJ5s1fLJkc45VjlkYLFsS47xGhRjH+D0OeXs7O9LQQ7ki6n4ug7gr 5K/uVaHUjJ2ey6tVHqI/OkS2RpZzUIyyMz4DvyLEDNNqo1LaJFN4SiHv99ov q6gO6UT59i7UVDdxAUMc9CYvP4vM4gIGrdmNnZPN07iJkoHtPQjuPITQ7pPo 8o1hP/m3Q83XcTxwm98AkjFzJ0pm16FleT96zedwZMOnGK34Iy4F/oxr/X/G 9WN/wvjon3Dy3P+Pe4e+xGcHabUN06obvI3xA9dxsW8c5ygrO8UuSAgfJRMd wEhbGPur9yj9BPWyp7dJ5WA5xYkThZxX39iLNeuakWNoRpm5GU1Mth5vR917 C+L4Nvw3hHms2SodjvEXcyxRMyn8RUE9FTQsp8ag7PT87WN5O89AuL5ElRiw LyzLe5indyK5c4jzeH4WH03wbOuVG3Ae4qV/wuxrWDDXhbIdEfgqfEimIJpC I1nvVq4gSaD/JuiRViQlWpGQYMHm+5xe4V4EtlKWUHwI7btPoVO5SqTlBnRv l2DnnDAa40+gK/06hor+QLXcX3A29BecH6Bx4i84PTqB3uNf4XeH/4AvD/8O nx/+LT49+AVuMXMN3cH4wE1c7L+Ks71krm4yV+cx3n1/JBCWn+bvyVaSt8gb TYulFNt9nx2TLV3bCo+xFXtsrWgyV6I12YuWRR+TcXKRa82VryxRYiZ7RBot i/O0vIRSQQ1yxrbpI2eWpraNTY0SAYycCDD5+h2nhvXYd/GUkasGtNHUkWzH MkaZp0v7SbFAiswYExR3+HVuuxlPPAvdd1/Alqkvoval/0LjK1OVTsisNXsK mV2yKaGj1aojL6unoWNXxvDLFGz8MoWNsanFtxDY0iNuFeZ2HEN/wxVux7wl lxB038O+4q8o1ZjA8Y4JjAxO4NjxCRwYmcCXB3/HbBfH74N5DF/Q17vMjIe+ wM2Dn+Pa0KfcjBe4GS/iJLuCu5vM2DmA4+2hB+Q+Ee+GLRuTmVOpTkiV7FOV 9ZjNWY8ffOKnAsSPXQ5/tCnZygTseGkBGMsul94C49px9qO6/LLkfQrMkpI2 LElejjSt0gkvLVkbQ0iQQgFOSEiPvflH5p0eMhtrr8myz39guae8kIaGXmo/ dCLpVDousqQznfIalnSyJz7/xMtY/K+z4PnvD+F7Zx4ii+Zg//K30Dbvpwod VdkoEqmPneekyqU0sRtw7EIaU4JdvS5BH2/Bd+Qy3rS9Wz3w2ra1Bxs3dSM1 1vTfRFshmb7oIAXFk+igJdxHS3i4+QYybRPoaZjAfjL5AJm898gEavr+jE+H vsDnw1/gHi3VKWT8L7ndvyC7f4E7h+5Ju9/BZWb3/Vcx2kd2p2R/pJe8bdd+ HA0FFa6oIdkQ0yNMHAqyI1BnDMnSI0mW7ywJwGgIYJszyOXeAdkfrObdhcL0 j3LT59gkt8+apRIt1QUs+9Gla3Uq51eQK4zS5lEKj0MjLsXh9J3YpJbgmGmg 7Cma3DJ9yD9PMr7awZqi7HtTp+OTH0/DxqlmMvo8rPz5J8idtR61KxLQm7oW h81L0K99U+5aTU52DUqyG0P9tPKKhG0OPihviGNbVXZB/VRb6ZtpdgWwd+ym 7La0B3vKelDGjvx296CmpAe1u3pQv4MGoaOOkFG3uQfVG3vgy+tG4mTn0JzP Gp4PU1weQaRiDL11lzHUfA2rNH/CLj8V0gcmcIlKwKv9n+Lmgc9wZ/AuPiUn /vnBuxSDP48jeHxOILl3+C4+O0SlCf34xvCnuEogucSvVr6CM/svYKSf3Th+ BCe6+zDc3qq2yqdVIxp8pXMOomjeJjiI94OE8RCnzw4gVd+OTc521LqDCDrK 0U7WbF6wWHAQCStRlHg5NVplgJpYQwhGlaPVqtOpfTJFxmaWyl9GQFQaRsdc m6QT1JtMg5fn1nE8u/42ZW8ivxYjej0PK0/nPDMLK5+ZCf0zH8L1wnrkz7Ci 3zSK57+3Gsve1MH7sRXVFE+6XCYM5SaiI+N9ZDw9TU3h4ngS9yAHiXKHIM+1 NdH+9kq+7Ui2y5yb5W6yl77ko35TOuLSsi5UVPSgykdgYOegNPaWi+ur2/YQ Cgg4QQJOkIATJOAEiujnm3rQukFcX93o7cb6ye6lPqsL/gJyL8UnECo/i56a ixhoGsdh/1WMhK5htPMGLvTcxHjfLVw/cBu3Bu/gzvAdygTu0Fu/e+hTQs7n 9PXuIfoZjdv08+tDt3Fl8BZvNHxuYBynDozxXucjfYdwtLtHaU5tSDRO6t1l nYScbME3YLxhi0BOtmSwrtGEkJ8RQlVmCAFXLUKGXARXrJDs1VyVOyyQI0iW rHmwm5EsjYQcvS7a8lPl81illUQyyfk8acqFW1mCuiT5PFns4JMl/U9yFk92 7B1PBKAlz8xF2rMfIuP5BORPT8fWRRtRsq4EZUYfyt0+nDs6gbnvEUjXZ2Fn uhfNBS6ENusxUX8CpYvXYMOL01RGbey9ig55txO/y4nl/6l/I/+3id1a9ZIE MyxrjY9LfkA1waaminwLjQYaTfIy7yA7RicIdZD/6ST/000w6t7Zgx6CUPdW eYk3haEwwSic24NQVjea08PxsVvf/4Lm7GH4t7IW52fQWU2lwV4qsFsvUSIx jtMdVzHWfQ2X9l3Hlf4bhKQbuDl4k1L/m4QmGgdpHBKvt2ncHL5BQeoGLg9e w4VBClKDl3By8Cyh6DiO9w9iuKtLQZE+QaIoSUGRm5++R69cyIleuRDDg2ZM hMWJYWRlhFHuDaMtsxlhWxHC65Kw67WPuA9iPGivwkBXeaZKBzgFRY/BcJ88 xxLDkOISHZ2UhnAE5cRxetT/5UqdbHVkYx65mSRCjv2/1iP3zXQULSjErvhS lBtrUempR+XGOlQU16BkdxU6b1GS8o4VyxOz4czIxSZC0T5y9pu1FShN2oiy Zcko/s20mPulFNqwoA5n8LSXtbF30ddHeKUibpqkoXGo/cZ5W3vJGbbEG8S+ z7dRUxFBPYNRNXkgGuxcvVWSDiLybvge8kx9BKl+gtR+dji8S9wNz87Q91PC 079VnKX3ErR6CghqOd2IkDXWxuLqm6hzHUBL4Qn4d51BqGKUwts5DDaP4Yj/ Ak6GL5GHuozzPeOErSu4QgnNtQNXqZy8hhtD1+jT3Ry+RqnHzSH2Z/o7wtKV oSu8MfXY0EWcGTqPE4OncfzAURzqG0BXe0Dt8CUOnK2iy5fKXc6UwMoWlFKV v6ze50Flir2A3vacNRHY0yMoyQ7T0vAj7NyFCJWtdXM+4rcwMFwpDFy3xQmX hTJRwpVNbVz5+GQemky8o514BdNQYopDymti3QO8hPZv4r2fzseaZ+bD9Ow6 ZL3mwKYPCrFjdRlKdXvhczWjakMTKosbUVa2F9sqGmAvrpOlk0bVP8xd7qMk 0IeNWh/2JG9FxUoTyt6ZzS9kcKgcdHYRA28qrnXHUZ3kJjTJIopeRed8lT0t KyfJnlZa59T5wpyYxFDUVEOxSrI0wgqFhRDVT4g6UN6LwdJeDNGIw8HdvfSo gyW9OLSrFwcJXcOErsHiHgwwhJHT2k+xrz+/Cz2e8JrJB88N2UfRsvUM/KWj 6KgeRd/esxhqPYejwTGcjFzAma6LOEcV0cW+S7i0/zLGD1zG1QEag9HXK/Q6 To7pIgFpbJj+z/AYTgyN4ujgSRw6cBj9PX3q7RbxBp77GyWWOD1Z9st3yvuE 3NJJcYqygiXmqb7BG+zOWhSB3h7BtuwI9uaGEPH4EKEcpWXJUsGDv5+hbJbd bb4rb6WZTO7jVEZevwnyZpS4mYtpP1mIZVMXIu2nq5HxKxsKZm/E1hVlKNE0 ojy9Db58GttbUV7aih2+FmTtaZYqQsll1LPaTaNu2PALIIyYttiH1KQq5Gur sSd1N6pWu1BFqyFKxffwqxBk/TaFl2+PSP64W1Ti/CYGoWrI0DAOuSBF2xP0 D0p30eALorm6Ey2Eo1aGJRqM2cIYP91VvdhX2YsDvn0YqqA0tqwPh0v7cIRe j5b1E6aO0XeP4Dh9Zd8dK92HI3t6ObVlmPA1RLgaKurGwMYO9HmDq2O5Id9B w4ZTaNoxCj+7f6GWMNU4iqG2URxpp8AVOYfTXWM42zOGsX3ncaHvPC72X8BF SqwvHmCDfjZAfzdI/2boHE4Nn8Px4VEcHjqD4YET6N83/JAynWzbPMEh2N7y Tg9Bes6mwKTcMZSnYklqU6ZwGtVjhKU8JJg7UOiNoDY/gnZvHSLWXLSvWS4a RjNGgSR7q/3mvhslR1ItaEmJwRCrBRnhmULtGz9aiPk/XoiEn6yE9XkzvDMK sGnJHhQnNWK3LYjynAAqigIo2+3Hzgo/8sr9fPtNvSPGpPR8E2qYdK1W6Utu 5AcbJt7r4dfzapCwvhZ5aXUo1VSiZl0e6hZQ4jR1tqgD2YULVAw+wI84BKOe E6v10Ruw+OGfxipZ9Qa5AfsvaKmKoK2mG35CDBshjpxe9FT3ob+qHwOV+zHs G8Ch8kEcrRjCMRonfEMYoXGycginKtnrII0BnKR/d6JiP46X9+MoQxL5q8M7 u3FoaycOFobRn922KhZB30a5dRj1m0axdxehyMdu8SAUNY1ikFB0uH0Ux8Kj GGFnDN1ncabnLEb3ncXZPhr99P0B+tkA/R2lScwLHaExRGNg4DT29R/Fw3J9 6OKt5IoUUopQlQilBCUSjEBuiipLMq0itGVJ4l0cp44/JgnzefhY14EcwpGv IIJAbjMizs0IJSWg+PVFcLKm41Yr61gXbVjHiKQ2TpRUb8dKE01yZ/5wIT75 0VJon9PD+UYu8haUYMvavdhhDGB3ZjtKN7Vjz6527CgPoqAiSOlZbhy/teMh XiWK3vYeySF1yjbQZFu9Vk31U7UcRkqqzxK1l96tx5q1DcjWNGCPtg71yVvQ sEyDklfmElxYys/u1jV644RCI0vcpmZwqz1EVKI+u02N6ghHsla5wqK1KkhB rIOcj6DWBWr2IVzTj+7qA+irGsRA1TAO+g7icMUhgtFhgtERgs1RnKo+ijM1 R+MwWnOUYvBZRoOqPYwztYdwuuYgTlUR2ghdxwlZzD8dK+nG0e1hHNoUgITT r+R812weRR1BqZWgFCYo9ZBD2t9KsAiM4lCIIBIhSHWN4kQPjX00+kcpE6Kf DRDcBkcxTGO/2tv+xKMyWjN2DdNgG2UgYxe/CLlJdlR1YRb8Dt7EiSOHYegx 0V2OSy0E8+6DxA44MyNcB9+ST1mSZwdCWj0q58Q0uvtfMY3uBGHyte8vwEf/ QZ7mx6kw/5qC35wdKFhZh6K0AHY4Q9iVT2N7CNtLQygoD/FkX1zc+ChDjrzU U7kOK4Z+zMpEmeBHO4h/S3YQN6kbDEqZ+OtX6rBidSMytU3YbWzCXu0uNK6x ovrdD0WpSIMqxQf4LsPDfI8hy6hcp6Z4I0XxYGYt46F85JaKVgSqqMIlCAUJ QsGaPoSqKUWtHsK+6oMEn8MEn6M44juGY5XHMVI1glM1I4STkxitO4lz9Sfp 7Y81nKRZH2sYoXEC5xqO08+PcVrdKcLUCP2e48xLUaw7UdKBY9vbcbio5ZNY UvHfoWLLKKpLRqlcHEWA4lrHXoJSyyj6CUYHCEaDHQSpboJLL40++jPB6ABB po9GN29ZT/+v58RjyhkXa9a7PqZZr+qABIQyJISYlsPD7oFiOJoiWoHZxIjj Io6HOBvuvWURGDMi2J4fRkNBEO1ZpQhSALm7ZpVyBMB647301AeY+715WPn9 9dD8IgP2GVuRtbgaGxLbsMUaorSK0LI5jK27wsgvDUO3NaxmX/xSR+V6A3mn hjXmTg2VguxUq0ObPi1OwW6qXiTx3OcoYhI3V0gx+cxHnzRTMt+CXeYWNBgq 0Jzowd55H8mEPodXiZP0QvyajayYe6RdoruyTnaBTzMofdsDvjaqyEIIVnfR 2I92wk64+hDlQUexv+o4hipHcLjyJOHnFE5Wn8Hp2jOEjVHCyVmMUUZ8vvEs LjSdxcVmGk2jcfSHM/Quzjedor8+ibMEqVN1xzBSQ1CioDdStg8ju8M4vrMV A5vrpEz8ZRl4SsgblRKMaioJSvQQPwW2EAW2SJC8CwW27k4aBKNuglEneaMw QSlAr63kncQG2I+g5fQnl0p/UhrN2w1R95NB88Ww42ZDUss8TAqjvN5HM0uw h7Ehtx1VBQG0ZJVjYlcz4p+YCu+TU1H8Q9ZSbyWWPbUMiVPNML62AekflCFr dTPyde0odIWwuSCETeSAc0vCvK1eVM/KW6qyrhOCwB5FkDf28gKZu3uUrmYW e0y351hljkNN3tU9Vn73jxfvr2glD9yGHbY27LXWoZU13F26KrrBYBGvAkYP S+WVoshxS/6Agwb5IZ0RttRU6fr+Hq1UHwZ8fsIR+SHKgoKEoSDhp4Pw00s+ Z8B3CgcrzxCGKMutpsy1dgyj9edxbu8FAsoFXGim7LblIi61XKDfebn1ArmA y63naYzRz8/hPGHrHMHqTONJnKwnP8b8EsU3zr4vDeLorr0SSK/JI9idlF9X kB+qoXDWQOGskfxQM/mhJgJRI/miOhrV4VFlh1277r4WwFpvtDm4IqOSuGGE LBcnZbl4TzaXzcvZchmSLefgbDk3lhja4c7yYyw0gYVPvIqMp99C6ctvw//O awgspsJ/1ja4l9YhO9GPXGsAed4gcjeFkFUcgomwohD8ZZ4+hQPmAVVGLpUg 91P6lRur+AVCVoVTbVIspU9KpfRcpOnm+3Rc6WlCx6Xo9KYv9cOk92Obw496 RxP8hq28O2/xSwt50xJxWv6IvM4xKlvjDkcp9Qyy1NNq4mSoCJQ1IkgFWJBv BQ3QOIxQ1Ql0Vp7mLLVB3zlyOOdxvOYCeY5LONNwGWcbxwko47jQcgWXWq/g ctuVOIz7r5DprvjHcSUwTn+6TD+mSrvtAsYIN2cIMycbT2GkgZxP3UHCXT9h JkKYaVKaUyyVvj8thvXFGEXC+tmcgy3acMkm0GR9J9dEcV1UHOfi/TOXRSnt L6y83286v+LnxSfexeofL0L+m8tQv3AZetd8hINJs3G2cwK5zlZk5/rh2hyE oahdqhREH3+n1CKLOynyuexF0STHRbswP8ITJFXnQm/FI+9YUcszqw12U4zt 0yg5irYEt6RE9Wvp8sIybnup4Xt7fhAaXRCbHUHUZvgRsJYgmGCmxGURt/0k /Z5Z6I9U/Z4xnZdoLirRHDoZ5/4NwbImITv39dMYpnEMYXIOXb6z6K+4QMHm Eo5UX6YFfgWnG66S3a9hrPk6LrRex6W2G2TkG2TsG7gapNHOXq/T63UUzs9C xcJMnFjswZj/EkbJeZyi9GOk6SQB4AgBgCJPbQ+BwI8jpZWySczHkqKkWe9G WnImtKmy1402m7P+rHrRH8LG71hhHTgeUlv48c6+shHRX7Xw+9948f8uw9pX k7BxkRZ7k7TosybjsOsTHLkxAdPGFqqulK6/TJHskZR/mdxwSYWwv5Blq1WW SJEf4YmOEKVE1chMScHUuRk20csr3WoT8eFV6FkPEKlAMyfHWj5Lvc1h0u0j NKZNb0FCWjs2OttR425HMN2H9jQXmhYsFqpFy18rN93yCkZ2iuLiF+yk8XfQ stNHpqc8o4Jy1Apa8hVH0F4xgjB56e6K89jvu4Thqis4WnsNI/U3yM/fxLnm W2T227jkv43xwB1cCd4hU9/BtRCN8B1snp+PhoUb0P1ROQ6lBPFFYQcmKqsw 6r+IU21jGGk5TeanWNFIa39vH/3eME5U10LafpnM2lPWZ/CeDGlke53sZ8F7 WRiiXXxZrz/W5+hvdPtTjsGf/1ECls2yIjs+A1W0/DpybejbmIpym2gVoo9X GvwyGY2Q3wu1gZRki4Q2jhmcZ7MimX1YbaTqZncoSTWyU9VgO3gjMOWIU7de mjmmChKyMVE/TzazEKjGcanhc/gkNUROKYTKzBD8rjqEjHkILF8uRZgxZlYF hkxLR0WtyUwfRMPfgX9XFYIUjoOU4wXLKQUoP0bjNCLl59BTfhH7K6/gYM01 HKu7iZN7b2O0+Q656s9wwX8Xl4J3Md7+Oa6EPkfm+4XY/eEmtM0vxf41QRy3 DeN84TlcKb+J34duY+LoOZwNjuNU4AJGKDscaaVV3kqrvPkAmbyTTN0orbxC 1hNJSS7OatMQ4LU0Ezp9tBGgQe22obLalC6uM953UhqZgy2eXFQVulFZqFHP c5QSRenYq15Ao/8rqwpuvZt/4UZVU0ybV71ExMmVDC5+kYjNaofSPcuYECOQ THarl7DFKmtdct16WLNBZs9v8mRhUWIEHmcEZfLoKmTbgvb49dFlyy8tYr2z XerxQoZZYUQ/hcDOGgQpVw+WkrcuO0TjBA0q1srOo7f8Mg5UXcPBuhs41nAb p5o+xdmWuzjfdg8XA/dgmbkFG2YXofL9ErQv8eNA2jBOeMdwfsdtXK3/Ajcj X+DW4D1cO3EXv7tM/zd0BafaL2EkeA4jflq6fgrb/iGyK3ntphZl2a6WlklM cyNZl6nS3pL0bii95ZL/Bitfv+gOjjROYDV91Imbh9ULw7VMMp5AxUKy6IRl lrJxm2pFUTAwDX1M8sdzvzie9n1NlUnwHo5kQaab/7pk9BrWm6QiMX2yIpHf 2SOtZ4q5Rs8s4n2WlLrOWRuBg58QRdCSHUA4YyciyTrsfnOxev+L6HXsVKsC 1Xw76hGkij24mzzuniM0TiK05ywipRfR6xvHQPV1HKy/heN7P8Wp5s9wlkxn nb4VW2fuQO3cZoTXDmDAdg7HC2/jXPnvKbv6A6710jj8e1w6+TscOflbXO5k dNubOBu+hlOhyzjZfh4j7bQk20/QIM8boHKv1a+YL0l6KsbV18gmdTqFp0/j 1aeWYOWbu1Gk9aFhA41sEwUv+nfrrNLL/SPSyMVqE6OtA7mIIkbe4pCdHHm2 pmZs2fe1cVRSNqHyf1DdtiJzsYZ4k8wl9s7FdWG5k2499PDG/Mxg35D1XB5m Lu+A0d6BYjJZU24IYU8ZIjob6j9YLDvdssw8nTI0vnmuWmt7A4I7qQYvIWuV HKVxGu17xhApu4TeyqsYqL2BQ7TQ4l/bCtebxSieXoe6xfsQ1pzG/sxbOFr8 B5yu+xPGwn/ChQF6PfZHHB/5I252f4Hr3fdwtZucbOenON95C2cj13EqfAUj EXKgEbJWZAQj4UMYCVGcDAQUayVIzqKGt7MTckd9lMAvuPsP4/WnUpA8qxwl Zh8aC33Yo/sI5gRGaBP8ff1ai1opauKjrQUNGgqlaV6ZasV0nZOXKCjNzhyy 2Vm056OHwrBL7lb/MwzrbOphh9LhxSavWlJUvxnqdUtynVmjh7Ls+1lz2pBi 7cAW1qI4P4KwtxoRCnWtHy/hCZVoaWuTICRrbSVr7SBr7RykQWFuJ1mrhKxF bnH+C1uQ/KutyHy1HDtmdaB21XEEzdewr+D3GC79M441fYWTXV9hZOgrHD72 FVnnd7jR/Xvc6KHXni9xvecLXOn+HJe6yVpdFCY7buBU51WMdF6kQe6xi8Jd J1XAHVTRtKvWWi+nOMoPtwkif1oMsUhedfDGU/TzeT74HD40b94TJfJzUpEg 8jMWmrI/lRLvVEn8Oo3MkpSOkGQyi9INkt13YFG6QXr5fQe8G6TFJeUg/0xw iB4uRLeHRfnDXS6/SS1X3qYmU2CLMJeSCnvYvh8F0TWmThRkd6C6gGqK3AaE HZS1rF4uetlarKq52jbXIbiNzLWdzLWDzLXjDBY8V4jU/96GzJdbsW3eMKoS LqLVeQ8dm/+Ift9XGGz7C4Z7JnBgaALBwQlc7fodrpGpmLmu9/wW13vZ+BLX yFzj3Fx3McbM1XUTp7rIXN0UzditsD1UhHaTubpocYVVc62TZG6dNJdB0nks ks7P5a1SdYlH8fb3KcP/2Id6jw+tW3eqwstJdP4EC8zrlG2hh5BMXjKFtz8W vcZEn7FsynqyYWQEJaOZ0fkNlAawJmOsxdjjMobqlQspkmUjHeW+Ii5LFtlN HDNTHDsImsI30uS9WFaR1yzWdiDLG0H5hgja8ij5yNiEQMIaKPuOjQWULBZ1 YM7ULKyZWgDjM5XwvNGFzYtPYo/mFuoz/wD/9j8jUvMXdAYm0EmmaOufwPnw l7gU+ZIiz5e40vUl+TVugjiyxRf09q/1kqvruYfxnru42PMZxrrJIj2Ub/aS RfaRRfaRRfbRAuoli3T34UTUIvHyhE0nL26/n77PbwdQ6PuadK6EnfNMIXLX VKI5txJt24qiFH5FG8vYVslWVWmhti0m0CdrM5FKGaNGT8NAw0h/NnqoKBHM Cu1qWzTDjNnMjNpBaDmdwhZmlpXQGvwe351ie1OxfW3mssvkMiPYVRBCU34L 2jK2YCInD4lPTEXWd6ei8MmpSJ66EmlT8+F8oQF57w5gy7Lz2Kn/HOXZ/4Pa HX9CY+1X/6+97/5r+8zSfS6ekro7N5udycxuZmY3mU3Gk0ycPulxiRtgcLcB 17jEnSoJSaiAChLFFWMbG5vejOkg0YsBg3vBRWAbY+OS6rl39zN7N7vre97y lQSZ/+DeH14kO7HQ9zlvOe85z3kOqskURxmDvP47XHV9R37bQzLJQwy3/plM Qri3/5k2L2aDh2SL7zDa9V0A/fiWnud25zdkkq8x1Pklrh0nk3TTCdRDJukZ pDHAqX8Dnd240OI1iaD5/HKMUp+eTGJQm0Q1hUqoR1p4TaeF85QYn2TFx4ew N6YUdXtK0XBgp6Byq1kX1ERePstqOpPoREuMNsAcmUCmUcqVnxIuIe//5IsH GriUs/AxEnlMME2JCQZwJ2MSeYap3M1QajS9+rTrW6CxNmFvugvfNH6Ptc9/ DOcrU1Hw8RTUz34ftWFuZEScwMHNw8jRfYO81P+N/EN/QV7pf+BIzX8hrfIR TtJl6VzNV7hU9zVder6Bp/EbDDV/S57Xtxhu+xa32r/FSMe3HOE7NEYJ5Ttd X+N211cYIbRvdtF9+jjdq3voft1zGwO9dJKcINR7yUvrIS+t67gMiW2Um/RY cT8DJxn6ALfAwgpoZSVEssaO2S8vxsbZBcjWHUUDK9HKFFRqR7x/Ma1ZFtOy 6jMhjZiwOV4C/ypUmyxCsjOaqaI6vaE4wzj/QHHumDxRojGN+wfe6ktCnTXH YNWXQfOPwZ7zCNOeD0H0a2HInLEc1WHL0L1+EQYKv0eeZQj5Ox4g98BDHCz4 N6SW/h80km/cRt5W99G76K8gj6uarjd1D+gq8iWuNtJW0ky+cMtX5EV9hWHa 7ANo2/+KnD+G8m1GgaUx0skq/e7hRvddDPaM4kovIX5iBAN912lc4wTFgd7T uNjVNQ51L5M9ziDLuhjigsnOEBdMdlG9wCoWAn8fi9gFZchPPAbXwWOoSYtD itZXmemIt/BWB6KKgZWSJYi6v0itrBb/kAtCqSJFAEwT4xRemQyAGeJ9Aqne kkrZ2kopqeTBLxMLfln5J77//BzMfGkNVJ9tQ9ayGNRHRqMvYTPOJi7DhfuP sPvIfbh2nII78yI/ht25N9BSOIKu0tvoPTaKU1WjOFd7Fxcb7tFl8B6uNt0n 1O9jiLyg6233ySMidDtodN6jVxqdd2l+jxLaoxiiue0hpC/30fzuJ9+2nxDv p+O3jy6TvafQ19q8zv8e+Qw9MeP2aiUz3MgTt4K5ptSLyFoRWQzL6gaC/mCB YXklyhyVcB0pZ4ReRhRPZlF4nSi2dGgl8LKCwBLHKSS/kTt7bKRPx5kHnQhr nQw66QnvhIQ0r4BqAJdPnSDFU4UIqHDLXuLFCFPfJe97kRF7tyah2pyI4+k6 9O4QM6oquQ11qSfh2nMBrgNX6NsOobHgJtpLhtFdfgt9VSM4XXMb5+pv46Lr Dt3eRnG1eRSellEMthKe5HVeJ1fmRvsdOkhv43oXDVYcSbu258QwrvVJjE/S oXryGsf6EmF9rqdfkSHeoASfOdB6L7PCyLmmjH4viF02pZWAVhZn6AjoV3bC tr4alTuqaZqUeSslA5CqZySLFL0PbW8pHlNDJIOaozW/lbGC6JhkxNLZqaK9 RAn+BPCCxh/xgkYmsyoCP8k/kTee9z+Kx+qVzOxpyEtJRfXeJBxyfh4gb/XV 9hOo23Ee9fsuoyHbA1feEJqLhtBRxsqubqK/ehin64ZxruEW4UonXOMI3bdG cLVlhLx5Gm23MNhOGHYOY/D4MDw9N3Gt9wausB2Cc3NonKJ7GY2LJ6/gfN95 hbexQSa4dDHxUnDR5C1ATYxTSHKSkB7P+Sgp5MAzKvr8dw4iPbIGdRlMX7IQ aQlKVaOsbPRWC1u92T5RLawnM2nIjRZ4bo21IVKdjChNMo+/sNjLj6TfGMX6 bcYYye00IZbc0jgaoZPakGv9T6xjh2hysvSB/hHVzrOo3XMZtQc8qDtCKBZ4 0FriQWf5EKE4hL7q64TidZxtuIHz7hu4yGILzTdwuYVG63VcYSW6XTS6r+Ny 7xA/0S72e3Ce0DtPyF04xd5fw9n+yzjRfeqLsStf5EwNvAqd8WZNrGBN1oLY 4h287FDUgXB6BidfL5ucj72aOnIpmFrlEVYnGsDreB8fVx5qE1W8fhl3iyoe E8dFP7hMP/16FgHhagXky09/mUBaUYRiWxEePXxInogR6s1KjPcXKEnoRkXa RZqR1ziRsDaHgCv0oKXUg45jgqR6okYQVU/XD+KsewjnmwbJqSJw6PJ4sZNe j9OfewigXg/OSR7PmZMeWhRnCLIJOE1/PtF7gf9GidoXkuKniVI0EEW22Rhr pQulqIPwNprgEq6+RhMsq/xF8FEcMjXAfbgBjTmZvLwvnZX3KYXQCnz6ccWa 8bR5arSKzKASiVDJ6qp42klYNEKpqUsgBOe9sRvOL4pQ4SxCVcZuEYZgMR1C UbNBCY/9PYqN/XTVv4KKTA8qCMnqXIFkMyHZXu5BV6UHPTWERJ0H/S4PTjV6 cLqFkGqn0UnjOA1C8fQJD04Siv39DMH+kwzBPsaI6h3gv2mDP4LP0q0qTirh C6KkMcZPGVbyte0KXzshjTO1gybFIXpxDfLsLtoIaRxIRhpHME1UvD4mAOR1 kqwMSiZgmRi+1ghrvO6lMcEBIw2TEFWS5Wk8QMDL0xIx/YXFWPlxFvZEFqFm B42dVrq/iPI0AwHJKvz1G5Vr5jMo23kVR/d5cJR2wso8D+qLPGgsoylJ07G9 ioAkALsJwN4mGgRgHwHYRwD2EYAnCMAexgPq8wSgu59hd5ywbO+5wj98oz92 v5Fy62PzWArX3Yud0tVBny6wez0ZulUulKS54S50e2vHRIHpuCJTVgmkl20d 9ASejnY/rZ78sGj8Tk4bf0F7rRS0T/Cr3TJLnYQZL27Fltm5OKQpQm1GEa/g EvVbSu297CWwSenx8CwKd11FMe2GJbQblufTlKTdsJ6moptQbK6l3bGBoKFp 2EEodhKKnYRi53FGvPOgjZBsowXdxthU9FrXfnHzuLW7VS2F1seix/VbZR+G sT0xtiPojQwkbWzCsd1NcBfXC/RYsbVSgcebk6SOqaNKTpBtOPWEnk5qYP/C VxVPuyFTW/fVLiXK2qUkJMYm8bqlmS/SWl1YiEJzMer2F8LKi5fYEMVL7Ept lsVLxs06efz8DLlZHuTROi6mKXiUpmBVhQc1tIbr62ltuwnIZpqarfRK4LkJ vIYuwR9qoFHb6dnqf0T8bEzqhYFl+gFY/u0T0hHy7hGkxDSjZn8z3CXVnEwY wLmEj8t2CUqpEAFlIO/C26+ULkU6ndTMFrddXorOAxCieR3rT+nrmWAhlGRZ Oo3A39N1c1Upyh2lqD+Y56vT8dboyFp0WjrmbToYNsV7kyUH6fw4TGjlHfWg iHa8MppmR2malRNaxwit8ha2q5W3eqLGYqPdSt9vm0xL0dFpUiWPLanSyZKq hHTezn3xlBLs0rWgPpsJn5X9gGjJyZYpnGypVLwkc6YTk+ukr69X4KFfze+l CXKYRPmSLF3iNb/eihNRsT//zUykbipH9Q7W2+9QAI8Q/FQqbCWNK+/WI5Eu R2bxsOvkrrmNvJoomnJMSWH6+yGY8cE8rh2nlxWJZiXBqpRp6MWDs5Al0+Tc n9iKhrxWuIvyuMqt78lFcpVTTP2e3KZ0rjTQNKcnf2Hc/VDPbiu8cal4cnFj sfEqCSudJTZyAu3kx7Bb+arJOdgbdwwNe+mOmLXTK7UvRAusPCwiSiXopI0R THdzpAYmf47ECyKp5mvzRH4LDSZOwHyWP4XQmI/p7y3E9A+XYObHSzH9kwhv 5YpVp1QcpGP2W9uwaUkDsh1taChsg4tLbgq6W6rkszBdeS/tTfYGtJlEn8ck guRFCQdnTcbpx7C1RVmvTZT10rCqWMGIg5P+Z0+MwuY5xcg2VKIhqxI12+Nl 4b9fBwKNhIQTtunsjOGC8gocK2X8TnRaMno7LbHifq10RAK4K/KPnGcz4935 mPneIsz6cDFmEyxBn4ZhzuRwBE1ZLgvEBJN+9tt2xK5uRv72NtSXtKF8j0HS e0Tnc6dpLM1HkZ73ttozGF6QPhJX3I/Vikkibwde/RPmqtGEtaoIEbWT3xJY OXzgH5KgWVqBQls1XRKreFm8k3YHRkR2+pdGsGYDLJQjgwkW2qkkMiv4y+94 8ftfSRb9oP8RK4IPfjsIszg6Szg6wZ+EIYTQCZ2yDHOnLkPw1BUcoVnv7CWP ox0lGe2oL2vxtvzlPeGNUptVQUYRqef6i7QuCJ0XlWxsjIpso/OThUkS9XJ+ sNjUshGB9P+D/rgLiWtqUJ5eS/e8CqG3pHNK/SUHlw5w8F4MAh7h8At1+qRY FYwCnmUyJq+iOzBXtVQZuCOmuBDSfQjgKZr/yb2IRKm2xMasdxci8IMlCPyI UPo0nFCKwFxCad60CMz/bBlCp63EzHdyaKp2oPxAB+rK3UzbgvPzkr1yq4xG 4vR2bLX4tBNhNJgUkLxS/rEKRVBcjsyx5GipZLcGDWtfkCoKC2mEvn0IKVvr ULOHLkb5JVLuSPKQdX4tG2TvAkEkNdHn0OpSqRWQImRcQ0U2Gp8XSVAUKRXp T3awKc2YmWsQI+qbLTSvZr+/GIF8tYXTaotA6NQIQmoZR2oBjZDJpTStO1B1 mClN1sDOs/qpMmieIiidUgw+SdI5WXdGI21ASpcHXTRtPlzwRNwfDXQTMsUw yrZDdjxwSiYlgymN+/PLphZij6aBNh+6CeUdZjcjH91WMrZ1CmNbIVAyEXxa aRqNglK4DAGoaZFreAfj8bkKqSjJEUrkBeBMt5Pe2WjS/5z7BfM/DOWbUfCU CIQweAiW+TOW01iGxYHV2GHu4JLyNaWl3iy6lYe3xzeZTuYShAajxdsnwCsJ IjpOcdcpVnZG+Cu9IGa/FoMNIRU4aBI9AlxZqZxd6GMjP8a5pd5J5C0BS+Qs M2u8ViITJpFRxYjotSLCpCcnaqzWpkSGeUkTCBWhvWSnEcB+BvAj4FmeLljw 0TwETaZdm0AKJZDmTl+OeTPYPLIjQ2o1VhceFu2aDTIabfRpAfp1KXxJ8Suj JECsa1S0P0CCjifqLdM4QA4dHQ6TbIgNr0e+oxGufHcAdzaf5PgI7q3gX4oS OYfAh9c3MQ6m0IAfA9DTspeu4kaxYLPSAFsIkYr0lsip2GVOhbYT+vkLODQ+ jUwH+VDsNZngmv8pAUUgzWHb0fRlmPzGWoQFOaD+Ig0VxbQtHZRdtsZ02PJ1 DIxPsOBlBaFIWlzkbPGeUFFWrgxvYq0mFMKiZiyTbTZdUwzrGlG6swmuIvcE jtATPo6iZCcne0t4rLyEh7WGt+jiJThLZXSW5T60cVqpKZPgdb9Nsjs4Szjx ZBMHhWVAfsSFoBw0nDznYQvgb57h6Q9nvAjEOxhOdHbOnzofQdMj8OmbW7Fs bgriN7OcdwpCZ0VA59fAzy8tO1HCEr+N/L9IwxhYeCeBv8rjTEfwuzmwRzaj MrMZDSXV/rA4E3ycvjH6+AYBS9I4WJ7yS04k0GHuBwnr3qYalxJiZd7MpZpA j59Me62d5yUC+M+/5TJ3PE+h9cHDoGF5inmTrOQdbUT8VidM9P8EzQpDnE5k R+No9Yur3gRExRjJKTXxSGMAjzVOQCzdq2O2CYfkn5T7+hb62tsIs22J/LKi 500GkmX3BcG4Fhw6thulY8nUUuzQtqDuUAsaikv45YWTIA3pvF2nk8fkWVuB H0vtfL9O8waD4g4tkaj5Egx6mWBQ7nG+tI6QFeNiqAHcIZWo0RMz1U2uvUnX Bnr4p3ieIZXBp7MRhASf1oKZv3sNq373BtSvvAnr25OQ+v4rML05EaZIjUIN ZV1amb/KSVexpjEhR100vbIRZeb6YhqmL7bFiN9Kh1LL9JxlP2L9GAai4LBZ JHoz34jEmtBqZCa1oj6X3XgOcPScvFaAYfcY4Uanoew8ILhrNnnboZPbYBwD 3t/IlrbsviOaRxl4qCBJACc1BRhwyTxDI1p/O7VSrPTHhJODZwqUkaYXuQNW MZ6qFxhOf+lNzHvpU2x5/TMkfjIdO2dNxf6Qj5AZ8jrLIQQoJ4rsquofdEyQ GqbMozUQjoZoRokiEH/E6U8s5qglGDWbpNg7Pc/mBNEpODLJ29lZdAJJ8Wt4 QUi+acPW8EYcdrahrrCNTTe24bMGmQ6DGNyhY+0I/Dn/8o6UOH4aPsPTBYog ovDEfbdGnn5RjxV9dWqd3MvliqL6FC5gk6ZPCeBJg99y3co02kznv7EQa2io 3wzDjJc/w+LXQhE9eQHsIQuxd+k8ZK8IpjGZFy2qFD13GX7UjgucKQKjTPTI TCdjoldcVPCSROiRnEEFTzrGNpvHMekl80uppGAF529lQLOuFYW7mGh+KzvG GM86mU9HUfOloCjcYquZICEkk4xmGQZYzF8mQhMVJ+U2aAdUmsqS62eOtYk8 Fu90J+6aDikjxa8LDEAFRD5SkU4LYe7rS7DyjcWIJfSS3ovC9tkW7IvI4Hou Cz+IQFTwKtjCVyFj7XIc2rQEWZuCURcWjJkffvYDoXajzy0OYD7xBOYIC038 H0sopWYUizluVtTCfwn1BiPityRJdrpdNHmQOCbyvhmpmPWnXJgj21G2j/zl Mje/sdppMjK/2e7vM5sc3GcW+vc2fv8ysyIUfxyf5oUoPP1CW3iCVH00xSr5 K6VjoMhh+Ulx6Vm1FUvDpNGvZSPs9aWIfGMpjO9EInWmlWbcXmRvLEBefCWK 7DUo3l1NR8nn2LhoA4xrNiJ963pkxKxEo+UwLIvCkTt/MUwvBXK5R5/Yvc9p pn2YBR6Zu8wcZ+E+/5T+zkzDRACbJPXKyKlXhs2KCtdPEC11HGOZliPZQEVD zfYHJg0+gYuDx5AhxFEm4qPqjYmijRdtsdqYZDKEw9uUgJHKQycfpcNByOPX lFbCSnhYCQ12cWGeuZWMYBmj2m4Xqu2sO52/Af5ABlD7sji03Az8imcV+S8l YCLbEDr4fVfmwOguvnBSODbR0NNu75hmwe7Fe5H1RSFy1FUosNahaCeNg3XI y6/FgcIaLr+5aNFGbF23hfa9jXBaKqBZpYF5eRS0c1egIOxz7P5TIAdfka5l zCpbnBDA/xE5oEwgldN3yN2wx5klu4qclBgfhYc1hH1Kos9kF70JNim7qI0l 9JkW+E/4gceUwLWRZqEETjuLWhGZZgRj1p3XDg3jhMc6OEeVEYCmvrUR4XNq sZNfjTpQXZTLr0aCizKWYJwoCcZCod2KJH8DvEIG0IgkEFc6SIQxRiYgVX5i dIqkGIEf8scIrHstAupJW2H9NAnbF+zFvrWFOBxXjbykBhRsp3GgAbm5DQR6 PUwH62VGiE4+P8Fa1h555kwdVofHY8PSOMQujkHhth0oXhmJw9NCBLVHqj4J v5/5crYJ3Ld9XLr+wt33UqnilDadIrj8hDxxlFSdetypqfeemjTv2NwjYxj8 VL9Zuk4veqSwdJ1CHFb5E4clOWjKW4lYu7QRmY4OVBZ1oigjiROHzZIY5N8l 2chIQbS7G1i/Rn9j/Ip2vni/rJKQLjH5y5fSTX7mHyKw8pUIRL+6GaYPE5ES koE9qwqQFV2DIyY38tJo7HMj54gbBwpcsBx2+XKcRp7fDODW+Jsxcpbhc0IR FhyCkFA11i5WY5+6DEVRB1C2NgHFcxaIHgXMweH+tIbxM5lX7RwzBMuK+9Bk E7sMXPrJ3kiN7yfGUINFSxVfbI63wiabmFgrFXYGP+Yn723mCUD/dio6xTSP i87kZBpVjJOTgz99axe2ft6Kgzs6cKyknbOHAvjV7yeijEppFy8F2XVGm3Xc 8mD3HG+mSlqE9qbJL4djye8jsGniBmj/ZIItcDe2L8tH5tZqHExg/lIjcjIa kZ3diH35jbDnNHqzVdwaJsUibDiFwigXlk3mPazD5swlk8yjMZfu/MGYERhP nnE5MtXlKI7NQ/nGZFQs+Ry7Ji0gawgOljPeQfcqLfMpmW/ulJ0LnJx+lSSJ byYp/qFn4fWfStw0dCXgmUS1bEoucxkGvwY3AbzFzZO00yXyszwp2ux9TRyn BKl0Jp8gPz8mKpnOHwc+eTublk87IdOBo2XN0An6L79sBvCr5o/IBqxbfDL/ lzQCcPAI6/CWTT8PZ3ci51AnjmTR+32dyMroTPA3189o/xRXLLanfvDiUoT+ LgxrXlqLmDf1ME3fAcfSXOzaUIVMjRtZtkYc2tWErKwmZOQ0wXakKYDb6Cf0 czvPinBrSR3YdBNjWBgZhcUnByuMFR5ChgqZj8WBzFghCPokCFMXVSB2WwV2 MQEzTRkqo3ajalUkcqcuIhs5+VWKLUTey4BfC3TJ0mzCZL5GEyYvlchEp6XS QMFf2ltJYo51v4T4IktWct8hloWU2LvHuR8h/s4kEpnRsqV5pJD3TtiohaJl xGSi33qVSSq3Iu+AaBanosNARaexinxylZ51OBZssLyCzgAUFHbSIxUVdKI0 vxPleZ04ltOJSrJfFdmvkmxXyRRiM4VCbPH2Tmj9jfgM1HRPfv+FxVjxwkps eUUNzad0ms0/jNQ1BGeMC5mJtKbSm7BvXxN2HybDHW7m+XV2L06VyptkR5Hv nCATxOk8xS44Cj/mCT6vFQ20qxls9N/CQxbQNw+aQlacEkrbD11KaPOdMrkU m7dUY7u2GoX6GlSrD6FmQwKOzl1Cn8686afk5cR3v+MEJp1iyKRxoXi1wlFS e7mtCVIz2OgLgMlEdACnFE/gQTBbnJUTiwMUT0Qlpdq9PZCMst23SLGato6V +57G5Nqffxs7Xn5XNLf78qJSNlpc2IHS4k6U0SincYxOMRZQrCU7NpAd3bmd aCQbNpENm2gNNh2gP9MabJCCrTVkxwpnh2bstTn4d3YYgw/AtryMR+V36N3Y 7WjE7j1N2E7rznKoySu5y+6UItmfLnqy/p6vxjSZ51dMKHL9aTyF7VXcZc3p 6Q4fxnZMuvCFhyxCMJkxePJceSXyeZOrN9WSA1KLXGMdqnQFqKO9qSZiJfST lvLrkLgW+XPRHF56XzI3J51sGlqTajrVVIoCztOymYliS6MfocBPuZ3ZL445 NCI4xQKZNnIpWDiTBzLV/vLtkqPMvcsE3sfEvE3R+/4Ai58PhPn1eciZPh/u RaHoXjkddUsmSXs/yxtrHisVmpcVsslmAxnWXSS7kJJR25UupIdpkFG7aHF2 klE79ormms07RYNNl7NTPdawQdOqYI+uRzq5fGnpbjgzG2E60MRJCUl+Wsp2 2t2FYbkybgALYAnrvsSTrEruOdWrXyqJCUZhVZaDDqNlGRa6kF4X08JcQFvs PG+ejHlFNumeLlxXjyRdPQ6b61FlKkeDehdca7ciZ3KYX5sLxbpj+yckczFA 0eXXoo73FTLzPihK0IxOtXGxHyFOavN3j2hGMP9oomCd82is1Y/2b5b8ZwPm vRaEtX8MRNqkWLLoAqz442okz9qAkuWb0L5tPc7EL0ePSoh5K6qlTG+yhqmX lkr1UrJoO1m0iyzaTRbtJYueIIv2kUX7mL5kltCXZK0ue8mqx/eQdcmy7bRc 25wdqDc3xvlb9mnWcREbjfUwZLikaJ+N9iMpJqqRlBNu2TTvsg3gkbWJYgc2 Kulzn2VTTDKVbkrxptMdpmTYTXYsZdYlyy4KXohAsq6RPCx/PWNhXaFlPDui Qci2J7mEbLv+INxbtSifG+G1MJPo451nvNaVHD6uAcFzND4hbo0kMRhkftrs J8Ztk1l7+ziZfkc8k2kXHaLs5A0wN5hrtZOJ578eijU0VK8vgOXdL5BGN5zO 2PN4/zdrsXxyLOwRehTT9aQtUYtTqZFosy3CkU/W0acy4cefo55+usm0TaXj uuEWiG64rBPuaTLvGTLvWTbIxGdonKbFe4rM3E9mPkELuGcv62xK/z61DU2J 7lj/+PnfijZ4W5OgjbIKUT16ThPd9RI1YvEK8og0cUKaJJCkcyNP4IZ9Xrb8 lbJSCkvCxFgSDinMaMcS2oqXkmmZWWdPWSgJhn9NEDZV6EfR74pSu5FhceOo zQ1XYgGayA51y5Zx8wZw4/7U5yh700tm0YJZq5ML9wk/DTRFKluGGWP97ZrM Gmc48EtOPXBqfYOFbVO0gnIwj4y5ikbsG4uQ9O5mpM8wInPpdmRvOIRcTQHy LUUYPP0Ic4NpCpFfnk2zu3a7DS1cJnsA7k02lAUxIzONxifRzLQ9aXSTgU8U daG/sAunC7pwNq8L53O7cIFeL+Ycx6Xc4/Rv2LvH6Cf9PR2/58jop7OFtmc/ GbpvTzt60pvHGPgpqDaYePN5rTeSZudr2KRhIq5OnuSx6qSRWeaXWXkCtzGL 6DIywwT+80VO9RhrW1qSTNvDbMPiOQvJxsy+CzHz0wVeZpo/CTJ5HIGUpVPX xdDpb21EMcsicoWHHWhcvwEZHyzjFuaCT9y3ZhQ+oXHHW0jrtIrWcLxCLZH0 AANnAFt+cNqLSLKglrAFmyKE9F9A6KTFiHh9MaLIqKa3NyP1MxP2LtmJ7C+O II/89SLrMRTvLEdhllCwbmUK1rP1WL2V1oclHXt32tHZ8AhlSXQ8GirgjtyO mkXr/Ix7HH3F3ThV1I0zhT04X9CLi/m9GMg/gYGCE7hCr1fp764U9tIXu1LQ Q0a+TD8v5R3HRVrlZ49I+c0D7TiV0Yq+7e4Y/8ypIhhgRXyUnZzzZNq9HELc 0LuKpZHpCGbVeCxMmsyNzVQDHEb+I5WgSPbyVRgjI9kXMzVbsYjMO2vywnHE w7/OceXOW4I4AZZsIb/c0oS8lCbUOWrRbN6Plsg4lMxZzj02h9QoF8RDJdGn ld7Lr7l99VJLLIHFZ3iA28fw5vwYr21TmGUFP57GoteWYjN5c/o3tsAx1Yzd C3cha30uclXHUGSpRvEOGllVyM+rxP6CY/Q5BqElHRen6MfWFtZj3dZOuqJ3 oogs3GCqQ1PsfjQvjyLL9pJlT5Bl+3GWiarmn8Kl/NNkvdO4WnQa14pPw0Nj kI0SNk7BU3KS/r6f/nsftziTMDxPy/s8l8NsxZm9TejbWRftT6t4B+rNVmgi 7VwSQk/XZ4PKyRtvC2EPsU9buAahYmW2nGmw1BZPb6XKnELKOIEPYWSlk2Zo 4CIfg9Lb2kBIcPk3xXAoRjaIdcwMHbqiBYbEZmSnMOFwN1qsuWihK2t1+HLu kvuE4kRT70RlDf8a2mg12VjwzxO4UK8FphhZ+8DpPbIPRrzoZhDyahjW/TEM 6kmbuNDz9nm7sW9NHo7EVCI/sQ5F22nsr0N+bi2yimrEye+vFRevp61JNUEm E13FLjprmxG2vpOQ60JuUjcazO3oVBehd40FZe9G41zhWVwoPIeBwvNktwtk wwtkz4sYKr2I62UXabreOHqB/WCKtdfLzmKo7AwZ+xSuFp8Uarr5tJyZVuXB JpzdV48xFv4ZYr8wezW/4mMc5I046eKQ4u27bOZV6EKIi6u+KYqBXDUw1U/8 41k/8Y9kHuxlAiBGowXxW5SkKVPztvqU4bkOj3Tm/PjDooGFcNVZn0U6BqIN LchMbUHF9mY0O0rQQhu0e91KmTMV0m4Wg1IaQpaN0gh9LxbHlBLMgpGULCxL Vp01MRwrXglH1KsbYXrfiJQ5u5CxMg8HI6uQY2xAfmoDCjIbkJvTgIO0HLX7 asZ0PFHKCuw6E9f2StJI7dzfor6gGm5mXS4m2YHQZScIyZPITTxN3tAp9Gnr cGbjHnTM0mCgaICMdZmMdoWMdwXXj17BzfIrGD5Go+IKbvFxmd4P0LiEG8fI +uXn4Sk7hytk6IEi2s/zu3DpSAsuZjfQfl0V5U8hewoxXySSje1kY1HWqItL 4TZmxaRepRBZQJ2kVPFO8IqFsCH03Z7xxvKFvpsdBqMIV6o26XgGUmRzfULb idJft0o2cLJeHgHMxk/zEz7Fb6yNb8H2lBaU7GiGO60SLUl70Lx1Cw5Oi8Dc oPkICQz1FghwE7PAaLRQeDJEs1C1HZNfCsOS34dj48T1iH8nAdZZO7A9PAeZ mxV1ZDdyM9w4ku3GgXw3rIfdtJfwdoQpvJBOHv06X+0Dt7C/OvLfwVVYI5X7 2mh00+jHvFk90Ksu0FZwCW2Wyzhr6MRAVB7OLjGQtQYxdHSQrDdEVhzCrcoh jFQN4TaNANyuHqSJPlLlwUj1NQxXXcWNyisYJEtfLae1X8qs3EOndgcG8hrJ DauW6jFYLp3NuG12qBTzMtk2lU+2jdUKm4SWSACnZj3O5US4lIh/VmAsQcsb fvO1rJaSIoqKlr8Wv97PtMyBe1LwQ4wySU+/hikX2xwtyCPT1u2oQ7M9C81x ahQvCCMA1GTEv6MJSptRpAkzP5iNz/40h8e8P3hhCUJeDMPqf/kc0ZO0ME4l F3HRYez8ogL71C4cJDcue1cjDmU1Yl9uI+xHGsmSiiLjkzxJmiJvZVyVUT+2 MoMJd9n03LZeZRZ3ATNuI40u3srZXXQGzUUX0Fl4mZyda8gzDaLDNoRLVtpr 9VXwrLeTYYfJsMO4VXWLzHkLd2po1N6izxytHSYYR2tv4nbNDdyqYRqxHgxV XcE1Ws4D5UxXuB8DNIkGipgmYy3OHCmN9GcSP44Ysm9stMNPmi2VS7MlkH0V 0RGRV3iM5xV8pDImPuIjlmkN1h/LKaOR2rDMPffKUmuEa64w1W1syjC37dfi GsYJF+JYXzhvBRaEROCzmTasWJWMGMLA9AVh+rkK1qUrkDs9EMHPTUQEjUU0 3vyHdxH4wiIse2EZNk2Mg+ojJxJDDyJldTl2Rjdgr6kR+9No7GvCHh5TbWJH PW/PIRQWXxO6rIzlN15lM0EEUO0GYU8m3GWSensNOUfhzq+Du5AWKrnB7sJT aKLDtLVwAF0FV9GXP4SYLTeRl3QLnWkjuJJ+DTftrRiJy0TjTAfZbJTsOIrR ulHcpXGvnl4b7uBu/W2Msp7pdUyv9TqGajxck3Wg4iLZ9AwGjtK2XEYLttSF i4VHlSZkqyT3OTqaFeI6oSJjajRMjySV65HoFD0SPeuQyhISE6DlCQkhSqJ0 PlUpGXLue9Oqpc8y+nlmQjxRembso5hb9jzmz12JBXOWccuxsZCN0HAsXW7H tvW0wNcnoSx6L+Y89wrW/upVxL34KgwT/wDVy2uw9OVVWP7mVljDi+HcXIsd Ojd2J7uxZ3cjdhyUoVTJY3UoRzlfiXSYT+BMu8eF6QwpY4Wg6RBXRLt8mmv/ DDczHdfQ66QlScuw4Cwa82lvzb+C4/mD6C+4gbNFw9iycRRH7HfRufseru0l s+zox31zIS6vSCMz3ce9Bhou9noP91336D2Z03WHy6QON9zEUN0QrtVew+Xq AQxUnqdxkswoZRLLKqXlhErij7GV1ks0HW2xaiZXksJTEbSB6Zil1HR4qGmD YSmJJyXBQJFyiKflq4sd611xotM4z2pu8DLMC16O+XRRmR/CTCXNRWZaGLIU IUvJg4oqwkfPvYvw5z9C1CufIPGdj5H28XvYvSQT66ZpsSHYhA0LE5GW5kZK ptsXGGX+dLzcsxWPy89UwkpPeMl9nBUpVXR95D6h15WUkOA11BG6fuYycTw6 CPNO0jiPprwBtOd50J13HSfJSGdLbhOYdxD5+Zc45PwKnfu/xuChr/Fg/2V8 k1aDO1G7yDBf4b6bjS/xwP0A9xvv4a77Lm67b2PYNYLrDTdwrW4Ql2uvYKCG 1lkNrbPqXiF0WFEjDRUvl4iir6WJZmlyoa9lkGeivzhaaNByhAYvD8BcQvxX mEd4z+eDLZEwhEwL5SUIf3ruPUz71WdY9UogNB8EwzE9CHvmzES2uQiRYRqs X2HGqtVJCPxgMYI/okOLke4/jhDnpB+xUjbYCuCgP81hF3D79leHHytQENqs UsTWDHOC3rdAssnNzGGqdr00TtO4iOacq2jPGURPPpOQHcG50ju0H9HCqLiP 69VfIjPtIdqyH2Iw78/4KmcYf97bjm9NGXjQSLZoYoPwb3qAu033cLvxLoYJ ++uuW7jWcB2X669hoJ4WST05JfV9GKij/a26QeKulZzhGJYDJ19ETb4Ib0zO ziqmoKEVChpBgcsxhzCfQ5M8ACEE+ssIJcDnEuDzQsIxhwDnfH26db//3BR8 9tJcrH5vMTQzl8A5bwkywuYjY9ksXt0w/71gBL2/EEEfEugfE+ifLkUoqyv6 xA94cZCJsitvNZoINAkaoR/iLLjE64nsXq0zr3gsAX6oFu7DTJjuBI2zNC6h +cg1dORcR0/BLZxkwq1lQrjVU/klbtR8heG6b7Aj7V/RkvuvdHP7N3xb8gD/ mnMK/5aWhwfN39D4Gvebv8Ld5ge4TaAPN45iqHEE11w3cdk9iAE3TXY37Upu 2pVcXQS8WwKu5y//gmie3KadhyZ4PK1wLaOpzYrAbAI6KHAZgmhHCaZNP5he 58yJQNDUeQq3i1O7LDI5+9GrS7BsygrEzl0FS8RKpK8Jh311MGz0/85/P0gA /REB/QkBPTkMoVPCMG8KK8BZJrrpaFNlUI/PchHUe5J+imCAnQcDGLnQydlx XvlWXp2URN6Lcn8joLPoxD7UQTOctv3sc7xXZ/Nh8rpyb6C3cASnSkdx/ug9 XK54AE/1V7he+zWG67/FSMO3SE75dzoy/h3Xjv07vqv8X/gLXay+31+F4ags 3G/5GndbvsRI830MN93FUNNtXGsaxuWmIQw0X6XBmjKfkup/CtBGeeVg2/60 GeHk84RjOgE8Y3YEZgaSDzRlHmbQMMX5eFtK2YDC3Zr9L3oETluNtQvXIXbl GqhWhwVwEtdTPHm68MMQ2jUYtksxZ8pSju3cqeGYPy2c1w7yySzO9AAeanmS B1tEpU6KH+vQKVmHyZz0xiJoZmOizBH+M1z7anmnSy7+dvA8YXwZTQzXvJvo LbpNuN7F+fL7uEyT11PNJGm/oSPyO4y4vsMd90NYLd+jtuh7XKn5Ht/V/we+ J2/3v/Ja8J0lG6OtX2Gk5QFuNt/DUPMdXGu5xbUpBlhv8jbarVtPY6CFcG1q lLiapL89tsJAlGCI+ialhbuUtYq1ejPQjJI1+yW6Ya4sQ7mjDA2H8uGQpRkW PCd4WSozFn0cyidsMAEaQoDOJUDnfSaA9VdwUwIcXN1U0ggtkkaYNC6wYTJZ fqwAupcA3UcT9QABeoAAPXiFAB0iQIfRwwAtE4AOVH6Fa2M0fh9yjd/Rpoc0 IR+ivPi/cLHhv/FN83/jP10P8OhoH/6y+whGWr/EzZZ7XILmShsB2n4DA6x7 eAcB2nFaKOm1NI6ZqE8j3ps01MmkodFXlO9NB1tEOpglDlUiFWwnR3/upD1I 2ViOmh3lBGo2nBpJqtJYvXUbjPC2aLJSDEQ7AIE5l0CdNz0CRh5V8DtiE/wl qpg8lbhzjtEdNVl/IgGt201nGp1J7kwCdB8BmnUZjUcG0Z5PgBbfxkkC9Nyx BxioEoAO0aq/4fqWzimapU00S5u/w2jLd7jb+h0Kih7hXOMjfNXxCP/Z+mc8 qruAR+XluNFG23M7Ado5goFOmqFdrJ8zAdp1mquuDbSOB1TrX23sBXN8bl1m YVUiCxvAeVHPIvyDQ9gTXYG6jAq4Du3lTLWUeJuPrSZBZTN20ZT5tD2HI3ga q7CiQbvN3BkRQn1K3OMDuPzUT4UAlZEJULG7u6K+LuRAH5NlH67ddOnZQ2dV Jm2hBwhIWupt5Bh0F/mAvFj1Ja7SOeWpo23U9TVuur/GLXIERuhcukPb5Wgr bZk0DhY+Qn/zI9zvfoTve/6CR4OsR+koPF13cJmpCXYTkN0EZDcB2c2E1Lpx sbVJufgYJKNUiB8pxcrjaxnG9ki0y9ptlvZ0aBwInLgQ62YUIEtXiYYDlbSb OTndTNTSPCuYS5z/N5a9FEjTM2g6eRYzIxBCe7fQl0pDAtOX0kuNKVrzCQSn 3itqnvyEEs3b3g7XLnKx9pwhFAfoMPKgjTbM40Uj6C8bxZljd3Ghkg6jmvvk nt7HYMMDXCf39Sa5UbfYqU6b4u3WB7hDY7T1PnYdeYSulkd4OEJIPvwPDBGC 17pvY6BnmAYdRL10EPXSQdRDB9Hx7ih/AGkqyioaoXikVNEkSbaQXzGIKlmC 5xA5YwIo6JUYRM07itzEariyq3DUvpUTwBiIjPolBNNsHEgmmqYUIikUsNkz whA4MwwqIR3FlKNSpXKUxicb/pSMLVentKIh/QRcOwm3fZcIt2vkBd1AV9Et nCilQ7z8Ns5X3sGl6lFcpqv1tQY6kMndv05u583muwG41XKX6cm10g2Atr/b baMY6biD4c7buHF8BIPdt3CFQXbihlDwYy2TFT25cbCxvjBqgkwve8P45+sk 2V4WyNvVvCMeB8wpc7JBr1qgW1aNEkcNXDlVvHBGUueelrQ5XxGXT2hOMq7U CbCotDDHCJ7DNrKJ6LXyG9Sm9KJh+xk6RS7CRSdHY84Q2ulW21NyE/1Hh3Gm 4hbOV4/gUu0IrtSTq+K6zdXer5PbcoPGzRa6GLHRSjfZdhqdtwiaYQz13ISn 9wYus07SfUNcSEuIvxE8J06jt6UZY/D5uazhlVUxnJOcNC6fKTpOio6BTr98 NasL3wnL+joc20GHYd4xTklL44Q0p9AnE3zQFK8inOCkKUQmJf2VGKd6Vsbv K2zHUZt6BnV7LqH+wFXUH/agOW8QnUVD6C27jv5j13Gm6iYu1NzEpTpylBuG cdU9DE8jPTz5c9ebabTcxPU2Gp03eQ/JIdqgBnuHcJXNFQ6IBwMn2biKS/0X ca7nZLQ/Jv8sqne9+SHG0aZlFmPlKXxRI+8rcklWCjRkHnDe2weRuq0etRn1 5I0WC0z8mV16hdklgOEahUwqz8sDEr2FktSqv+df5x9RYT1Fp/Il1GZeRd0h D125PWgt8KCrxIPe8kGcrBjCmeohnK8dwqV6ph0/hCuu67jaOARPM43WIQx2 0GvXEO03BETvIK6c8HAgLp2UYJxi76/ifN+FmHELiHVFjTZwnj4nIkfLZJmS EFXLxs0apf23qFZhCdHwyaLYu54Xex8hN59B8RQPuXPmopRc86rYKYQorZmG TJxp1D/nX+UfUOG8gKrdV1F9wINamhlu1pW2iIAo86Cn3IP+Sg9OVw/ibO0g LjQM4iK7RjUN4nILjXYanfTgxz243EMPTABc7GNdaD24cFIqpZ0SSmk9x09i DAq/gC5KJ+uVBR3byLIOPGWYLFEQigDJnHmQwktG2HQImhSBtUHlyGKF3Ydd tBfu5mQ/XsMju6IH8InxOGeXcCQkNUzp8ckKmG1aPQ9V/0KWLB1Nu8xbYFZk Cf0z3pOg2INOBsUxD06wpqo1BAdrien24FwzPWIrjQ4aXfSo3TR66b8RDGek 9tlZgoCpn52i9z10DsWO2ykidbIgWTLSZeLFlzWVmflx5Jqg1+MRubgGuXY3 XHluVGzX8IhuWkKaUI9jGDwhqVMyzcYFqGzeFpV2LqPEg/XPyWlZsv0qyjI9 KD/oQU2OUM5roQXRflTKltUSCA00JxoJCHr402006OFPk/1Pk/1P0cP3k/37 /CTLTtD7zh4hWRY7dkvQsvbpkfLhoyx+Dy8VITSKIsS4h3/DifjVLpSkN8JV 6PK2GGOsIjYHUg1iDqQYFBq+kqawebss2hOMvMdIolb9S3kjLdzlQfF+D0pp FVSS6evI9G568hZ68jZ68k568uP05N305L305D2d9EpP3kNP3t0rWlV209Mz ubGuEx712CUvWnor9cJJZG2b7JDlR6HSpEhdB/GwDv6wmUjc1IRje5rgKq6T 6gXskZ8WDyrzMZw5KxupiBi+dUzhtTVBz/t7/0rSxo7Qms8jOxfSxneU1nsV PWkdPamLJngjTfBmetJWetI2etI2snEbTfDWbtFRMYArgU1AM72XzH6o/B/3 nxC/hR6XdZ1mTIRIC9cj8H9c1j6O6xHI1vRKoDv0vVykxLag5kALXCUVPIbq n6oQj5oiUhZevStf3NtuoO3eYKSrp16WIj6BLFrPh8mg+TSVS2lLO1ZNj1tH U9xF67yJHruVyZp5Ali7P/rR5dH6P8szUG/Sis7HSt6daSvE+ugzSh9ihUKT LBkWS6aVYZe+BXWH6VmKi0RA+CmuqzAmdM+ZsT5yBQ/fS5WmpAT9b2WWY0+h B1lkpMNkpDyajgU0HQtpFyqiJyhs9CT4X7LoasBa7bKS4G1JXBFflPTbRVMu lkhm31k7Vm/s85Bq7GdF1nmiyDqFC0EIJp8oT3dyTUqH0feledtvkxLJNtM1 3wiTXocC/6/zdwShQfQq2iaJijGSqKjyQajInzEKw+y39NgS5uaVyvVFbajI MAvWcYL4GqwhpUMG1JUuhnZvubLSV4F3AS70j4/8WqRgt1gEmy7aLjs7yJbo nGzl9JKtZr2dDtWaVhTsbEddSZukT6aKKCfrTGZIEcXSRkGnsymiUmb6Fmar LPcl3zghYcy3+BlUXxhF0nA85UslEoeJfrSvme9kwbClHaWZ9C3KGhkLO4AH Ap+k2e77Ar5a4/HhQFYsa0aR+AZmSZhRbRBy5PGMkkS/XRfroG/gFB2keN24 CJQFflBI158OVBxkNbq1XmqSjU8IFit7zBst89e2EWWiLGKWVCx+c6JcTjyJ wykUyT9M5MiGKPOnH6OzrAOVR1hRapnokUO/VYkmWY10YbLwNjmJPwgoWVEi fmOSf/ZimyBtxLOsfqwkbajpyq9JxbLQOuyxdqCqgH5bwaEAHmN5nEdZkmSj kL/a4YUmW6n4TRaFHrLFJmrWmOo1/RZF9Xrq2wlYF9aE/SmipLBsn52VFAaw msIARh0I4LyBCZw1YJSRhzLx2TaJWwxvlOGEmj4znpUpvr0bWz9vQ/ZOsk5p h7dZhoEN/3o4pSaOKT0bbEfFpybLzTE6xoFY+kSmYrw6rgMZ2R0ore4YU82l Yx6FVuZPCUKDKBAqF5/klHn1bbGs94ATMWRDJZkn6op8tUVV4p/wI+Oz///+ /+X3+B//F04fI1Q=\ \>"]] }, Open ]] }, WindowSize->{1245, 910}, WindowMargins->{{Automatic, 188}, {Automatic, 1}}, 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, 963, 21, 70, "Input"], Cell[1545, 45, 3022, 53, 272, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4604, 103, 3979, 98, 150, "Input"], Cell[8586, 203, 3491, 93, 124, "Output"] }, Open ]], Cell[12092, 299, 721, 10, 29, "Input"], Cell[12816, 311, 415, 9, 70, "Input"], Cell[13234, 322, 1404, 23, 29, "Input"], Cell[14641, 347, 96, 1, 29, "Input"], Cell[CellGroupData[{ Cell[14762, 352, 213, 5, 50, "Input"], Cell[14978, 359, 167, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15182, 366, 3094, 85, 110, "Input"], Cell[18279, 453, 566, 10, 28, "Output"], Cell[18848, 465, 587, 10, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19472, 480, 305, 6, 29, "Input"], Cell[19780, 488, 180, 2, 28, "Output"] }, Open ]], Cell[19975, 493, 820, 14, 29, "Input"], Cell[20798, 509, 4522, 93, 70, "Input"], Cell[CellGroupData[{ Cell[25345, 606, 2568, 36, 29, "Input"], Cell[27916, 644, 5234, 81, 207, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33187, 730, 776, 12, 29, "Input"], Cell[33966, 744, 19989, 477, 169, "Output"] }, Open ]], Cell[53970, 1224, 1254, 35, 70, "Input"], Cell[CellGroupData[{ Cell[55249, 1263, 4981, 113, 90, "Input"], Cell[60233, 1378, 6750, 111, 382, "Output"] }, Open ]], Cell[66998, 1492, 1985, 50, 50, "Input"], Cell[68986, 1544, 1890, 45, 90, "Input"], Cell[70879, 1591, 511, 11, 50, "Input"], Cell[71393, 1604, 2123, 48, 90, "Input"], Cell[73519, 1654, 1935, 47, 50, "Input"], Cell[75457, 1703, 1261, 33, 50, "Input"], Cell[CellGroupData[{ Cell[76743, 1740, 1762, 40, 50, "Input"], Cell[78508, 1782, 186, 2, 28, "Output"] }, Open ]], Cell[78709, 1787, 1995, 35, 90, "Input"], Cell[CellGroupData[{ Cell[80729, 1826, 1642, 22, 29, "Input"], Cell[82374, 1850, 7403, 121, 397, "Output"] }, Open ]], Cell[89792, 1974, 1655, 24, 29, "Input"], Cell[CellGroupData[{ Cell[91472, 2002, 2749, 55, 70, "Input"], Cell[CellGroupData[{ Cell[94246, 2061, 500, 9, 21, "Print"], Cell[94749, 2072, 500, 9, 21, "Print"], Cell[95252, 2083, 497, 9, 21, "Print"], Cell[95752, 2094, 500, 9, 21, "Print"], Cell[96255, 2105, 500, 9, 21, "Print"], Cell[96758, 2116, 498, 9, 21, "Print"], Cell[97259, 2127, 498, 9, 21, "Print"], Cell[97760, 2138, 498, 9, 21, "Print"], Cell[98261, 2149, 495, 9, 21, "Print"], Cell[98759, 2160, 500, 9, 21, "Print"], Cell[99262, 2171, 500, 9, 21, "Print"], Cell[99765, 2182, 500, 9, 21, "Print"], Cell[100268, 2193, 502, 9, 21, "Print"], Cell[100773, 2204, 500, 9, 21, "Print"], Cell[101276, 2215, 504, 9, 21, "Print"], Cell[101783, 2226, 504, 9, 21, "Print"], Cell[102290, 2237, 504, 9, 21, "Print"], Cell[102797, 2248, 504, 9, 21, "Print"], Cell[103304, 2259, 501, 9, 21, "Print"], Cell[103808, 2270, 504, 9, 21, "Print"], Cell[104315, 2281, 504, 9, 21, "Print"], Cell[104822, 2292, 504, 9, 21, "Print"], Cell[105329, 2303, 504, 9, 21, "Print"], Cell[105836, 2314, 500, 9, 21, "Print"], Cell[106339, 2325, 500, 9, 21, "Print"], Cell[106842, 2336, 497, 9, 21, "Print"] }, Open ]] }, Open ]], Cell[107366, 2349, 2696, 53, 90, "Input"], Cell[CellGroupData[{ Cell[110087, 2406, 995, 18, 70, "Input"], Cell[111085, 2426, 2478, 57, 86, "Output"], Cell[113566, 2485, 168, 2, 28, "Output"], Cell[113737, 2489, 168, 2, 28, "Output"] }, Open ]], Cell[113920, 2494, 4130, 55, 29, "Input"], Cell[118053, 2551, 11044, 257, 110, "Input"], Cell[129100, 2810, 11118, 260, 110, "Input"], Cell[140221, 3072, 8495, 167, 70, "Input"], Cell[CellGroupData[{ Cell[148741, 3243, 4836, 69, 29, "Input"], Cell[153580, 3314, 84240, 1422, 369, 11313, 225, "CachedBoxData", "BoxData", \ "Output"] }, Open ]] } ] *) (* End of internal cache information *)