(* 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[ 31109, 1786] NotebookOptionsPosition[ 29846, 1745] NotebookOutlinePosition[ 30382, 1765] CellTagsIndexPosition[ 30339, 1762] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ (* B2H6 with spherical bananas, but not TSM 28.06.2012 *) Clear[z,sig1,sig2,sig4,k1,k2,k4,nc,R1,R2,R3,R4,w,p,vee,vne,vnn, a1,a2,a3,b1,b2,b3,c1,c2,c3,cs,ss,d1,d2,d3,d4,d5,pi,pb,i,j,d,t]; z=5.0; sig1=0.3; sig2=0.3; sig4=0.3; nc=8; pi=0.0; k1=1.0; k2=1.31; k4=1.66; bohr=0.529177; rad=57.29578; (* C He shell, i=j each *) Ekin = 2*(2.25*k1/R1^2); vee=2*(3.0*sig1/R1); vne=-2*(3.0*z/R1); R4=R2; (* bonding pairs *) Ekin = Ekin + 2.25*(4*k2/R2^2+2*k4/R4^2); vee=vee+3.0*(4*sig2/R2+2*sig4/R4); (* Cloud charges, nuclei charges, cloud radii *) c1={-2,-2,-2,-2,-2,-2,-2,-2}; c2={z,z,1,1,1,1,1,1}; c3={R1,R1,R2,R2,R2,R2,R4,R4}; cs=Cos[w]; ss=Sin[w]; d1=R1+R3; d2=d1+(R1+R2+p)*cs; d3=(R1+R2+p)*ss; d4=d1+(R1+R2)*cs; d5=(R1+R2)*ss; d6=R4+pb; (* Nuclear positions; 1,2,3 = x,y,z *) b1={-d1,d1,-d2,-d2,d2,d2,0,0}; b2={0,0,d3,-d3,-d3,d3,0,0}; b3={0,0,0,0,0,0,d6,-d6}; (* Cloud positions *) a1={-d1,d1,-d4,-d4,d4,d4,0,0}; a2={0,0,d5,-d5,-d5,d5,0,0}; a3={0,0,0,0,0,0,pi+R4,-pi-R4}; w=Table vne=vne-4*(3-(p/R2)^2)/R2; vne=vne-2*(3-(pb/R4)^2)/R4; vnn = 0.0; (*ww*) For[i = 1, i < nc, i++, For[j = i+1, j < nc+1, j++, vee = vee + \ c1[[i]]*c1[[j]]/Sqrt[(a1[[i]]-a1[[j]])^2+(a2[[i]]-a2[[j]])^2+(a3[[i]]-a3[[j]])\ ^2]]] (*nn*) For[i = 1, i < nc, i++, For[j = i+1, j < nc+1, j++, vnn = vnn + \ c2[[i]]*c2[[j]]/Sqrt[(b1[[i]]-b1[[j]])^2+(b2[[i]]-b2[[j]])^2+(b3[[i]]-b3[[j]])\ ^2]]] (*nw*) For[i = 1, i < nc+1, i++, For[j = 1, j < nc+1, j++, If[i != j, vne = vne + \ c1[[i]]*c2[[j]]/Sqrt[(a1[[i]]-b1[[j]])^2+(a2[[i]]-b2[[j]])^2+(a3[[i]]-b3[[j]])\ ^2]]]] Epot=vne+vee+vnn; func=Ekin+Epot; t = FindMinimum[func,{R1,0.315},{R2,1.49},{R3,0.85},{p,0.6},{pb,0.8},{w,1.15},\ {Method -> Automatic}, {MaxIterations -> 500}] vne /. t[[2]] vee /. t[[2]] vnn /. t[[2]] -Epot/Ekin /. t[[2]] 2*d1*bohr /. t[[2]] (R1+R2+p)*bohr /. t[[2]] Sqrt[d1^2+(R4+pb)^2]*bohr /. t[[2]] 2*w*rad /. t[[2]] 2*ArcTan[(R4+pb)/d1]*rad /. t[[2]]\ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{{3.5793386253714504`*^9, 3.5793386509182944`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "53.47626875177604`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R1", "\[Rule]", "0.3148643470976337`"}], ",", RowBox[{"R2", "\[Rule]", "1.54329912692246`"}], ",", RowBox[{"R3", "\[Rule]", "0.7714605080600206`"}], ",", RowBox[{"p", "\[Rule]", "0.6014830648893087`"}], ",", RowBox[{"pb", "\[Rule]", "0.7933432009365214`"}], ",", RowBox[{"w", "\[Rule]", "1.1457614320314073`"}]}], "}"}]}], "}"}]], "Output"], Cell[BoxData[ RowBox[{"-", "194.15794224291787`"}]], "Output"], Cell[BoxData["51.13669059219984`"], "Output"], Cell[BoxData["36.06800736773506`"], "Output"], Cell[BoxData["1.9999867834815992`"], "Output"], Cell[BoxData["1.149716255755524`"], "Output"], Cell[BoxData["1.301588376520461`"], "Output"], Cell[BoxData["1.3635936457886166`"], "Output"], Cell[BoxData["131.29458988431293`"], "Output"], Cell[BoxData["130.13176812819395`"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ plot1=Graphics[{Circle[{a1[[1]],a2[[1]]},R1], \ Circle[{a1[[2]],a2[[2]]},R1],Circle[{a1[[3]],a2[[3]]},R2],Circle[{a1[[4]],a2[[\ 4]]},R2],Circle[{a1[[5]],a2[[5]]},R2],Circle[{a1[[6]],a2[[6]]},R2],Circle[{a1[\ [7]],a2[[7]]},R4],Circle[{a1[[8]],a2[[8]]},R4],Disk[{b1[[1]],b2[[1]]},0.08], \ Disk[{b1[[2]],b2[[2]]},0.08], Disk[{b1[[3]],b2[[3]]},0.08], \ Disk[{b1[[4]],b2[[4]]},0.08],Disk[{b1[[5]],b2[[5]]},0.08],Disk[{b1[[6]],b2[[6]\ ]},0.08]} ] /. t[[2]] Show[plot1,{AspectRatio \[Rule] Automatic,Axes -> True,GridLines -> \ Automatic, PlotRange \[Rule] {{-4,4},{-4,4}}, Frame -> True}] plot2=Graphics[{Circle[{a1[[1]],a2[[1]]},R1], \ Circle[{a1[[2]],a3[[2]]},R1],Circle[{a1[[3]],a3[[3]]},R2],Circle[{a1[[4]],a3[[\ 4]]},R2],Circle[{a1[[5]],a3[[5]]},R2],Circle[{a1[[6]],a3[[6]]},R2],Circle[{a1[\ [7]],a3[[7]]},R4],Circle[{a1[[8]],a3[[8]]},R4],Disk[{b1[[1]],b3[[1]]},0.08], \ Disk[{b1[[2]],b3[[2]]},0.08], Disk[{b1[[3]],b3[[3]]},0.08], \ Disk[{b1[[4]],b3[[4]]},0.08],Disk[{b1[[5]],b3[[5]]},0.08],Disk[{b1[[6]],b3[[6]\ ]},0.08],Disk[{b1[[7]],b3[[7]]},0.08],Disk[{b1[[8]],b3[[8]]},0.08]} ] /. t[[2]] Show[plot2,{AspectRatio \[Rule] Automatic,Axes -> True,GridLines -> \ Automatic, PlotRange \[Rule] {{-4,4},{-4,4}}, Frame -> True}] \ \>", "Input", PageWidth->WindowWidth], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.125 0.5 0.125 [ [.125 -0.0125 -6 -9 ] [.125 -0.0125 6 0 ] [.25 -0.0125 -6 -9 ] [.25 -0.0125 6 0 ] [.375 -0.0125 -6 -9 ] [.375 -0.0125 6 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.625 -0.0125 -3 -9 ] [.625 -0.0125 3 0 ] [.75 -0.0125 -3 -9 ] [.75 -0.0125 3 0 ] [.875 -0.0125 -3 -9 ] [.875 -0.0125 3 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [ 0 0 -0.125 0 ] [-0.0125 .125 -12 -4.5 ] [-0.0125 .125 0 4.5 ] [-0.0125 .25 -12 -4.5 ] [-0.0125 .25 0 4.5 ] [-0.0125 .375 -12 -4.5 ] [-0.0125 .375 0 4.5 ] [-0.0125 .5 -6 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .625 -6 -4.5 ] [-0.0125 .625 0 4.5 ] [-0.0125 .75 -6 -4.5 ] [-0.0125 .75 0 4.5 ] [-0.0125 .875 -6 -4.5 ] [-0.0125 .875 0 4.5 ] [-0.0125 1 -6 -4.5 ] [-0.0125 1 0 4.5 ] [ 0 0 -0.125 0 ] [ 0 1 .125 0 ] [ 1 0 .125 0 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 .5 r .25 Mabswid [ ] 0 setdash .125 0 m .125 1 L s .25 0 m .25 1 L s .375 0 m .375 1 L s .5 0 m .5 1 L s .625 0 m .625 1 L s .75 0 m .75 1 L s .875 0 m .875 1 L s 0 .125 m 1 .125 L s 0 .25 m 1 .25 L s 0 .375 m 1 .375 L s 0 .5 m 1 .5 L s 0 .625 m 1 .625 L s 0 .75 m 1 .75 L s 0 .875 m 1 .875 L s 0 g .125 0 m .125 .00625 L s [(-3)] .125 -0.0125 0 1 Mshowa .25 0 m .25 .00625 L s [(-2)] .25 -0.0125 0 1 Mshowa .375 0 m .375 .00625 L s [(-1)] .375 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .625 0 m .625 .00625 L s [(1)] .625 -0.0125 0 1 Mshowa .75 0 m .75 .00625 L s [(2)] .75 -0.0125 0 1 Mshowa .875 0 m .875 .00625 L s [(3)] .875 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(4)] 1 -0.0125 0 1 Mshowa .125 Mabswid .025 0 m .025 .00375 L s .05 0 m .05 .00375 L s .075 0 m .075 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .175 0 m .175 .00375 L s .2 0 m .2 .00375 L s .225 0 m .225 .00375 L s .275 0 m .275 .00375 L s .3 0 m .3 .00375 L s .325 0 m .325 .00375 L s .35 0 m .35 .00375 L s .4 0 m .4 .00375 L s .425 0 m .425 .00375 L s .45 0 m .45 .00375 L s .475 0 m .475 .00375 L s .525 0 m .525 .00375 L s .55 0 m .55 .00375 L s .575 0 m .575 .00375 L s .6 0 m .6 .00375 L s .65 0 m .65 .00375 L s .675 0 m .675 .00375 L s .7 0 m .7 .00375 L s .725 0 m .725 .00375 L s .775 0 m .775 .00375 L s .8 0 m .8 .00375 L s .825 0 m .825 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .925 0 m .925 .00375 L s .95 0 m .95 .00375 L s .975 0 m .975 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .125 m .00625 .125 L s [(-3)] -0.0125 .125 1 0 Mshowa 0 .25 m .00625 .25 L s [(-2)] -0.0125 .25 1 0 Mshowa 0 .375 m .00625 .375 L s [(-1)] -0.0125 .375 1 0 Mshowa 0 .5 m .00625 .5 L s [(0)] -0.0125 .5 1 0 Mshowa 0 .625 m .00625 .625 L s [(1)] -0.0125 .625 1 0 Mshowa 0 .75 m .00625 .75 L s [(2)] -0.0125 .75 1 0 Mshowa 0 .875 m .00625 .875 L s [(3)] -0.0125 .875 1 0 Mshowa 0 1 m .00625 1 L s [(4)] -0.0125 1 1 0 Mshowa .125 Mabswid 0 .025 m .00375 .025 L s 0 .05 m .00375 .05 L s 0 .075 m .00375 .075 L s 0 .1 m .00375 .1 L s 0 .15 m .00375 .15 L s 0 .175 m .00375 .175 L s 0 .2 m .00375 .2 L s 0 .225 m .00375 .225 L s 0 .275 m .00375 .275 L s 0 .3 m .00375 .3 L s 0 .325 m .00375 .325 L s 0 .35 m .00375 .35 L s 0 .4 m .00375 .4 L s 0 .425 m .00375 .425 L s 0 .45 m .00375 .45 L s 0 .475 m .00375 .475 L s 0 .525 m .00375 .525 L s 0 .55 m .00375 .55 L s 0 .575 m .00375 .575 L s 0 .6 m .00375 .6 L s 0 .65 m .00375 .65 L s 0 .675 m .00375 .675 L s 0 .7 m .00375 .7 L s 0 .725 m .00375 .725 L s 0 .775 m .00375 .775 L s 0 .8 m .00375 .8 L s 0 .825 m .00375 .825 L s 0 .85 m .00375 .85 L s 0 .9 m .00375 .9 L s 0 .925 m .00375 .925 L s 0 .95 m .00375 .95 L s 0 .975 m .00375 .975 L s .25 Mabswid 0 0 m 0 1 L s 0 .99375 m 0 1 L s .125 .99375 m .125 1 L s .25 .99375 m .25 1 L s .375 .99375 m .375 1 L s .5 .99375 m .5 1 L s .625 .99375 m .625 1 L s .75 .99375 m .75 1 L s .875 .99375 m .875 1 L s .125 Mabswid .025 .99625 m .025 1 L s .05 .99625 m .05 1 L s .075 .99625 m .075 1 L s .1 .99625 m .1 1 L s .15 .99625 m .15 1 L s .175 .99625 m .175 1 L s .2 .99625 m .2 1 L s .225 .99625 m .225 1 L s .275 .99625 m .275 1 L s .3 .99625 m .3 1 L s .325 .99625 m .325 1 L s .35 .99625 m .35 1 L s .4 .99625 m .4 1 L s .425 .99625 m .425 1 L s .45 .99625 m .45 1 L s .475 .99625 m .475 1 L s .525 .99625 m .525 1 L s .55 .99625 m .55 1 L s .575 .99625 m .575 1 L s .6 .99625 m .6 1 L s .65 .99625 m .65 1 L s .675 .99625 m .675 1 L s .7 .99625 m .7 1 L s .725 .99625 m .725 1 L s .775 .99625 m .775 1 L s .8 .99625 m .8 1 L s .825 .99625 m .825 1 L s .85 .99625 m .85 1 L s .9 .99625 m .9 1 L s .925 .99625 m .925 1 L s .95 .99625 m .95 1 L s .975 .99625 m .975 1 L s .25 Mabswid 0 1 m 1 1 L s .99375 0 m 1 0 L s .99375 .125 m 1 .125 L s .99375 .25 m 1 .25 L s .99375 .375 m 1 .375 L s .99375 .5 m 1 .5 L s .99375 .625 m 1 .625 L s .99375 .75 m 1 .75 L s .99375 .875 m 1 .875 L s .125 Mabswid .99625 .025 m 1 .025 L s .99625 .05 m 1 .05 L s .99625 .075 m 1 .075 L s .99625 .1 m 1 .1 L s .99625 .15 m 1 .15 L s .99625 .175 m 1 .175 L s .99625 .2 m 1 .2 L s .99625 .225 m 1 .225 L s .99625 .275 m 1 .275 L s .99625 .3 m 1 .3 L s .99625 .325 m 1 .325 L s .99625 .35 m 1 .35 L s .99625 .4 m 1 .4 L s .99625 .425 m 1 .425 L s .99625 .45 m 1 .45 L s .99625 .475 m 1 .475 L s .99625 .525 m 1 .525 L s .99625 .55 m 1 .55 L s .99625 .575 m 1 .575 L s .99625 .6 m 1 .6 L s .99625 .65 m 1 .65 L s .99625 .675 m 1 .675 L s .99625 .7 m 1 .7 L s .99625 .725 m 1 .725 L s .99625 .775 m 1 .775 L s .99625 .8 m 1 .8 L s .99625 .825 m 1 .825 L s .99625 .85 m 1 .85 L s .99625 .9 m 1 .9 L s .99625 .925 m 1 .925 L s .99625 .95 m 1 .95 L s .99625 .975 m 1 .975 L s .25 Mabswid 1 0 m 1 1 L s 0 .5 m 1 .5 L s .5 0 m .5 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .5 Mabswid newpath .36421 .5 .03936 0 365.73 arc s newpath .63579 .5 .03936 0 365.73 arc s newpath .26843 .7116 .19291 0 365.73 arc s newpath .26843 .2884 .19291 0 365.73 arc s newpath .73157 .2884 .19291 0 365.73 arc s newpath .73157 .7116 .19291 0 365.73 arc s newpath .5 .5 .19291 0 365.73 arc s newpath .5 .5 .19291 0 365.73 arc s .36421 .5 m .36421 .5 .01 0 365.73 arc F .63579 .5 m .63579 .5 .01 0 365.73 arc F .23743 .7801 m .23743 .7801 .01 0 365.73 arc F .23743 .2199 m .23743 .2199 .01 0 365.73 arc F .76257 .2199 m .76257 .2199 .01 0 365.73 arc F .76257 .7801 m .76257 .7801 .01 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXdty28gRhURRd1mWLMnWnX710yb7CalK9JKP8LpStfuQSmrDd/0I/4Wf 4k9hhCZmBpczjR5MgwTFQZk01QPMdB/Mffryz+/T3//17+/TP358n/zjz+// /f2PH/+b/P0/f76RRjtZtjPJP5Ms/73IMvO1ePu3+Jp/5RT3+y/03172c/aS 2Ws6fyTyfraYT7PqNc3mi8WDSV7Ms+oNL9ns5+IWZPoy+/nIP3XPl/mIOX1u kCmznaV4v5g8f86yl5cZ/bUsnu5a5jnKls9SMdmkoOVsvDFNf93R9zibTU0W i7dnlvc/gftRvk88K88gm0KIvxZJBpfpfJGVb0c0k8VtGfMXx/18SqUi5p+Y rMsstLzOgvlvtdzya5e+9ykXw5CF42X2OfCR+Xzhf2RcfaSQ8y4cFovussQG zWRj6mnOCRW9zGO3ViHdmy9+VxtWo5KU2sBoWfcK3u5N3Xxp5Jah+x/5Ih54 Bo10NnlWls70JpS3baIFnI3+oF7RnDSeHKq3srk2crCvqiDnOew2+8OY3+f5 f9TdnudfoxL17Y/8MtVsD9BGwvu0n028JF7WyQui7fibzpOlvVras5D2BPLj 75OWkVhPrCuwTlMWKXOrYJiGe8qOGc02CeHEemI9sT541lNHmCpHYj2xvvWs p44wVY7E+iazbq6D/OtLBP/X+fdxftfXDlx7OxLaCt/PU4/sr8sINj/m32Ob Xw0Fev4BPNa5X7m25Y1B6ln+vZenfoiQ6cSWgXIZ2dTPIFWhOn2yL/AYpF5Y 5E4iRDy0uXzypRIH1/2IeGELOAWpVzb1KELEfZvLDUg9tgCg2q8g4gdbAKpE NzZ1P0LEPSsi6mnObOrHMBEPisxrZ69o6xZJfmrLvQCptzZ1D6T6Jd+r3GfQ uwN5uA4QIc/IvW/qDT6zRdveSP5jWz5qW/c2dbej/MX1CB7n2xUj+mGRVD7x 3bMof6NsRkXBr/T5FdAmQho9u2tzLo8DWdDZsbRKHoL7rlrgN3SEGqJ5R6va fQcdKyU+oZVWStcbeket2pzB5fdoUwVzrBt7c6CgptepneRKX/EY3McP0K41 oVb3YFudo709MwFZfgGPo85NYVRBaKC+H/WZWbnPcI8bjYIyrRA2Q9LegjxG XhaipN21deleKGPz/qzKuGDkcbQ7+4SagOM6u1n1vfgrahVn9Pp5mlRoT8X/ CrL0rDga1U66FkO1+7OQhpYDqNx6E8jTiJfQ1YiTt10w1DndCGn8BJEXrO2l MSIaulTEfZAfGv6kQyISEQ3Pk64i8lNrRDsAz14JaYesOHynEtjRlCtCEyVe RDRR+gRoOiKiWiYS8aFGq9Z1HRERjV+P+sut9hW9i3gE8rsU0tCeg19Epqtn honWIYYX7xiUcSGk8ZsmreIR520jhdEfLtNCX+EJyPcjoMXL2DYjEdVWNClE 61tpVysVH9HQ0lc6A9kF+d0B2gqhOAX5oXIR7SwCCjTXRLIxUKBpKD+T1oHi A0tbCxRoysqvEXnaGciPF1sHCn4ByvT54YtknoYECwdFBwC3m8uMCmhujxYt 2gAg2jnITwoAv9EiagzaUKAyUF8xQCjQcgit+LShQDR0TDBAKGg8Xk4ezabx MhEtctAEAU0uuuKx5CLDp5xoTYzqPgMKWmih5XIvoCAaOtMZKig0Ro+FoKCZ NFppdAHFXF5Q0NYCag+NYVW6nRJUP/qEorV+IChoLd42wKIFO9qT6AUKROP1 KgRQ8MdWoqYiBUU6vvSNh6/cDYYC7cagk+ENhgJtJCGxtaHg82tAYc9Ssc05 WuZtKVKmEy6btKMpHi9OODw83IOBx7BUNpp36hKXlPWoqFpLlYcfgHYIaEeA 9hugXeTf5RExkytOzPGp+rreZbhyRj+dAraQR53Ce0GKH6Q9nULDBP8916VA hNBYy08TwqHgFz8JioFCQR2y9MBtEwGgTYXyiJRqQGoMCYoERYIiQREBRRo4 t70GrAEKehNkfYd2Pd4ZAFR8vhnh9/ZE5ozIGGyFYmuvKandGbMGKrXIGG0g 1NtBftV6pncBCh2Rlzqj9t4A0ZzifsyZ8gDhObGCoWNMKTxuqzBGQStwn8sN plLNVikoRzZnKQCIdWehFKa/2A6KM5llBljtmrJvC0XVWAqKs8TtqnrctaYI bo85B3Gmq0jzQnoi4kwtpSYEGwKP60CRmpcUHmeJK7WOGSw8WEsZlSU9gkXA 8ia5PJ+DOJZtKKwjVR/pef0HW302HpclzVwxSgyVWeOq8AhS9eFRkC4jHK1N F9+UI+3bOiv4SNW+UKHIdIzfVOABQOBJa0AXZS9FKJChIIKii0agoUuhUFAG jNGg9RgiSdGQKI3mV09oVF0DlC+vv4oYsDhD8XjEGFt1VdDKqhvG2b9Xp79G k+qoI4shNITG663jaRHSJUR8Bipte6Gju28oa9fD5p+/Ado1oJ0C2hmgXYWU UR5OMnmwCKmttrQySA1ftO05eF8BPM+BVj5OW8wFnpDWLakNkNTmX9swag0w lsNeIBhjzOqkMGqb2vGuHXieFczvYowypU4ZtA01+Y5o0JBJlyraZr68Ewqe ZwXT31DDb6kXBW1j8DCYuhmIhxr6S7HQNv7nnXrUsejmEEDqy0G6Ma/t34F3 idGKQZvPh57R0HbowaPr70Ty6xk8q+CqRedF8tsHqLF1gcLcGwiF1DGPTrsO h4LvdxAUSI5AKHg3TDrdPU9Do7YUClV3TaiNuaKkEwRtR1z8yOzu6+KcK9Sj mhQDbS9rMRiQeG3DZ6jnPOkEW9ubnhSIjh72WppG/uHnsOEIofzQukDqE5Jf Irn7uK1GBZj41ZEEprZ9N34JgZZRUmik+UWMOc06zm99+GGKdkDKbzm4rFfo lJS6QK/T7baWZS6vy9mqQtprTWIehc82A35Pv3W8aZ9KoeWidJsNyY7mClKx pYN156ADUiXYti1ccy96E4jG72W+Vnnxagkp1Hmn4SUV2ynK1eqyX/a9SgPJ sGYQEv/SloVmvwrin9iKg6a56C0RYMjzCP/qa55C0IQCDdNOJwGlKgDgNEHQ kIQAOLCQOU0vNPd/sqnuJAmtOpFgTlcVcaUgNo8rEpuEoJldeeFkrqBOf2yz Qus3xJBrcz3FtLi0gKPNB4THblO6ZeJhAVfk/OAA5W9rkwAzFwjFv+nXYci8 tqloLwEjlWVwvo2QMpkjN+fSCWIJuv0KdObBDLcrPpJA5zGWMtuvguBSj20q mrujUU976eJVc6eKeYpfEqWhlYVCYySkz32QIPFRo9VeA6O+G5XxMf9D6gBb IZQYmksgjNAMQoqRdMNEihEfw2XQkGnvMaEtR8SLAmQBXi60kaSuFXkmkypT tMFpLq+xRq+YjrPZdGaTSFnEU/MTsEJgKyqALw7c+dSpABYjuZNd8lB6IZE1 /aURqinV9HhgO4eH0h7g0pyAZXNIU80VQsbPyYe0dEHthhjvCRl6qeNlx9FM PbapiK+hLO+qT1ACOlxrQ4vfNKDn0Km7O1Gxy3NfRTu0DLrHzSMxZ1QHNRaK D9rfQfu0Yyuf6s4BHy+3DlvxGQGeA/akpIjVt+6WDcDz2rz7U+sLxevd4yRS fW8rv9AeZ+sOHt0u3eZcc+heBAmxfpJTUPHU5E6rgPEidg7dKxWRj9HrPdFQ i9uL1vMIiM6xfKVA8MF60cmWeyIygK/0eIuP+N15tOF7FiS5qzRSob0W7OGn mJ2Hh/dyeq1Q2XlTuVqrY1qnoSMokJaXVItDulhSgMKdSoYp/jBhuGvjnbeL kJ7qf7G59IRBUoMSwZSU6jwwbb1GZtLQ9TQbh0s3ALTVtKUa6yuMobwFyvuP to0g8x6pTYvTU0Ai9mK+4dVWUrBq0jblGaBV09DN3cKgiDV3u7e5eMaWcECk NpADsf97n6agePZDb7ttuEx2wl5oktX5SgNOb6lvg+RBg4Wsg2Op5NqFde2y Cq9TW+BoaIM9UCW/Y3zvz/gdk7qXSs7tpB6kttdnYnKm2RsUm+5itWbfyC+1 UKHPNhep2L04GO49gLZX9loTjnGzvOSv0ctMhOwMwum0vjNuzwC1wagsGCUB qSd3py3Dq6ZsADhVGq/NyoPijQdQo8VAphAZQDvshk5cCTQcrTmEQi/xSWpG 86jW8kA581lUzzcukg0KtxIOyjuLZOP0LWNiHjm3KauOedQzPGj0CYdn14KM tlg2OGIWlUHTFm8cJEpdcxy1XoIKkmBo/U2tl8zZ0ab3pouNqvaJD4p3Fktx k+Jqpsiq214DEhQJigRFgkICRRottr0GJChWBQW/kThoKLTXjxsChVWZmVcV ZrKl7w+0k7ulSLnTfIsOXBiuCx5+iykcnsAtq7KeCAE0L6u4XFLWo6JqLVVN fgDaIaAdAdpvgHaRf5fHQSNBrg42ny/sX+mNETy26eeeaaw7Jev2ByGlfVDE Iz8YpAJcq20pQqs4VZQey2tDMcAD1hgNhZgN6xVCQTqByCHYZA14LLnIsKZg Z50dqd5/L1C0KXGpQaEaIpuUv5F/8lVDYS7VWiG4HWk7BtUPpMvTVd8xuH6s MGx2AgUUJR1fpIrWXfHwlRuoYI3YjNFDj4FCanWwwVBoG2D0CUUt0I27SWrc EwOA1JBHCoDX3qJtWI2xbkI0bUumGAAYcxtt0zlE0zaTk0Kx5gjJMVBIjSw3 GAptE10pFGsIAh0jvtSQ2y/+aoI7Ixm1rff9MvYbtBnJpu2xIkC2noIxIym1 XZRIGml+PYeJKA2yHCOi1GyoTUTzfKCI0uDJiKYdKFka1KWziLxfJUTT9qGE RFxhsGNE0/aY5fVu7u0rmJGitaviZdN2hyaVjXhpGyZCXeEhAbXd3iEB1x90 GEmu7QsR8beKYMJUzeVCZ4yTzJp7cF62W/sEvxztLB2/Z+CXs9q+6/MNkV1n +K5DQ0p04JhN59KgIVJ/uWXhzb1S37hIcgU/uP5D6aAYP875ntdQQRDaE8nI R0hkJDO3G0WbqoLEN8rGDcP551dAmwhp9Oyuzbk8GpTVIkwYJSmu0gO01uZS n08x/olfQUn8skNSv1ydylqUHsIj697aVL4/9INQfGrBMl1a58i5keGI+IC6 fBxv6WTfDUzIqfOag+de2eL5NQQvoosogrqnNcfD5cNSS0V0JqlIR6/P8LU1 67Va1Rn73qxUMBfzx+tUilJVY8XQDOvQCnboqxxSIc5tLtRSD/JfvBekzpUN 1/8MTzul/Luou1n76W5PQiCalP/wMhLriXUF1r1d57oY7twlDhXhxHpiPbE+ eNZTR5gqR2I9sb71rKeOMFWOd8a6CYjrjk+CDg8GKJHdsy954UbioH1c6X3a zyZeEi/r5AXRAgJF0EkUhZYvhiFzdJIf4OWHd0VbpIxvqrfY06VZ4xZrJ10c wFBrLqXT76/N39nO/wHXi+JD\ \>"],ImageRangeCache->{{{0, 287}, {287, 0}} -> {-4.4574, -4.39039, 0.0297797, \ 0.0297797}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.125 0.5 0.125 [ [.125 -0.0125 -6 -9 ] [.125 -0.0125 6 0 ] [.25 -0.0125 -6 -9 ] [.25 -0.0125 6 0 ] [.375 -0.0125 -6 -9 ] [.375 -0.0125 6 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.625 -0.0125 -3 -9 ] [.625 -0.0125 3 0 ] [.75 -0.0125 -3 -9 ] [.75 -0.0125 3 0 ] [.875 -0.0125 -3 -9 ] [.875 -0.0125 3 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [ 0 0 -0.125 0 ] [-0.0125 .125 -12 -4.5 ] [-0.0125 .125 0 4.5 ] [-0.0125 .25 -12 -4.5 ] [-0.0125 .25 0 4.5 ] [-0.0125 .375 -12 -4.5 ] [-0.0125 .375 0 4.5 ] [-0.0125 .5 -6 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .625 -6 -4.5 ] [-0.0125 .625 0 4.5 ] [-0.0125 .75 -6 -4.5 ] [-0.0125 .75 0 4.5 ] [-0.0125 .875 -6 -4.5 ] [-0.0125 .875 0 4.5 ] [-0.0125 1 -6 -4.5 ] [-0.0125 1 0 4.5 ] [ 0 0 -0.125 0 ] [ 0 1 .125 0 ] [ 1 0 .125 0 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 .5 r .25 Mabswid [ ] 0 setdash .125 0 m .125 1 L s .25 0 m .25 1 L s .375 0 m .375 1 L s .5 0 m .5 1 L s .625 0 m .625 1 L s .75 0 m .75 1 L s .875 0 m .875 1 L s 0 .125 m 1 .125 L s 0 .25 m 1 .25 L s 0 .375 m 1 .375 L s 0 .5 m 1 .5 L s 0 .625 m 1 .625 L s 0 .75 m 1 .75 L s 0 .875 m 1 .875 L s 0 g .125 0 m .125 .00625 L s [(-3)] .125 -0.0125 0 1 Mshowa .25 0 m .25 .00625 L s [(-2)] .25 -0.0125 0 1 Mshowa .375 0 m .375 .00625 L s [(-1)] .375 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .625 0 m .625 .00625 L s [(1)] .625 -0.0125 0 1 Mshowa .75 0 m .75 .00625 L s [(2)] .75 -0.0125 0 1 Mshowa .875 0 m .875 .00625 L s [(3)] .875 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(4)] 1 -0.0125 0 1 Mshowa .125 Mabswid .025 0 m .025 .00375 L s .05 0 m .05 .00375 L s .075 0 m .075 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .175 0 m .175 .00375 L s .2 0 m .2 .00375 L s .225 0 m .225 .00375 L s .275 0 m .275 .00375 L s .3 0 m .3 .00375 L s .325 0 m .325 .00375 L s .35 0 m .35 .00375 L s .4 0 m .4 .00375 L s .425 0 m .425 .00375 L s .45 0 m .45 .00375 L s .475 0 m .475 .00375 L s .525 0 m .525 .00375 L s .55 0 m .55 .00375 L s .575 0 m .575 .00375 L s .6 0 m .6 .00375 L s .65 0 m .65 .00375 L s .675 0 m .675 .00375 L s .7 0 m .7 .00375 L s .725 0 m .725 .00375 L s .775 0 m .775 .00375 L s .8 0 m .8 .00375 L s .825 0 m .825 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .925 0 m .925 .00375 L s .95 0 m .95 .00375 L s .975 0 m .975 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .125 m .00625 .125 L s [(-3)] -0.0125 .125 1 0 Mshowa 0 .25 m .00625 .25 L s [(-2)] -0.0125 .25 1 0 Mshowa 0 .375 m .00625 .375 L s [(-1)] -0.0125 .375 1 0 Mshowa 0 .5 m .00625 .5 L s [(0)] -0.0125 .5 1 0 Mshowa 0 .625 m .00625 .625 L s [(1)] -0.0125 .625 1 0 Mshowa 0 .75 m .00625 .75 L s [(2)] -0.0125 .75 1 0 Mshowa 0 .875 m .00625 .875 L s [(3)] -0.0125 .875 1 0 Mshowa 0 1 m .00625 1 L s [(4)] -0.0125 1 1 0 Mshowa .125 Mabswid 0 .025 m .00375 .025 L s 0 .05 m .00375 .05 L s 0 .075 m .00375 .075 L s 0 .1 m .00375 .1 L s 0 .15 m .00375 .15 L s 0 .175 m .00375 .175 L s 0 .2 m .00375 .2 L s 0 .225 m .00375 .225 L s 0 .275 m .00375 .275 L s 0 .3 m .00375 .3 L s 0 .325 m .00375 .325 L s 0 .35 m .00375 .35 L s 0 .4 m .00375 .4 L s 0 .425 m .00375 .425 L s 0 .45 m .00375 .45 L s 0 .475 m .00375 .475 L s 0 .525 m .00375 .525 L s 0 .55 m .00375 .55 L s 0 .575 m .00375 .575 L s 0 .6 m .00375 .6 L s 0 .65 m .00375 .65 L s 0 .675 m .00375 .675 L s 0 .7 m .00375 .7 L s 0 .725 m .00375 .725 L s 0 .775 m .00375 .775 L s 0 .8 m .00375 .8 L s 0 .825 m .00375 .825 L s 0 .85 m .00375 .85 L s 0 .9 m .00375 .9 L s 0 .925 m .00375 .925 L s 0 .95 m .00375 .95 L s 0 .975 m .00375 .975 L s .25 Mabswid 0 0 m 0 1 L s 0 .99375 m 0 1 L s .125 .99375 m .125 1 L s .25 .99375 m .25 1 L s .375 .99375 m .375 1 L s .5 .99375 m .5 1 L s .625 .99375 m .625 1 L s .75 .99375 m .75 1 L s .875 .99375 m .875 1 L s .125 Mabswid .025 .99625 m .025 1 L s .05 .99625 m .05 1 L s .075 .99625 m .075 1 L s .1 .99625 m .1 1 L s .15 .99625 m .15 1 L s .175 .99625 m .175 1 L s .2 .99625 m .2 1 L s .225 .99625 m .225 1 L s .275 .99625 m .275 1 L s .3 .99625 m .3 1 L s .325 .99625 m .325 1 L s .35 .99625 m .35 1 L s .4 .99625 m .4 1 L s .425 .99625 m .425 1 L s .45 .99625 m .45 1 L s .475 .99625 m .475 1 L s .525 .99625 m .525 1 L s .55 .99625 m .55 1 L s .575 .99625 m .575 1 L s .6 .99625 m .6 1 L s .65 .99625 m .65 1 L s .675 .99625 m .675 1 L s .7 .99625 m .7 1 L s .725 .99625 m .725 1 L s .775 .99625 m .775 1 L s .8 .99625 m .8 1 L s .825 .99625 m .825 1 L s .85 .99625 m .85 1 L s .9 .99625 m .9 1 L s .925 .99625 m .925 1 L s .95 .99625 m .95 1 L s .975 .99625 m .975 1 L s .25 Mabswid 0 1 m 1 1 L s .99375 0 m 1 0 L s .99375 .125 m 1 .125 L s .99375 .25 m 1 .25 L s .99375 .375 m 1 .375 L s .99375 .5 m 1 .5 L s .99375 .625 m 1 .625 L s .99375 .75 m 1 .75 L s .99375 .875 m 1 .875 L s .125 Mabswid .99625 .025 m 1 .025 L s .99625 .05 m 1 .05 L s .99625 .075 m 1 .075 L s .99625 .1 m 1 .1 L s .99625 .15 m 1 .15 L s .99625 .175 m 1 .175 L s .99625 .2 m 1 .2 L s .99625 .225 m 1 .225 L s .99625 .275 m 1 .275 L s .99625 .3 m 1 .3 L s .99625 .325 m 1 .325 L s .99625 .35 m 1 .35 L s .99625 .4 m 1 .4 L s .99625 .425 m 1 .425 L s .99625 .45 m 1 .45 L s .99625 .475 m 1 .475 L s .99625 .525 m 1 .525 L s .99625 .55 m 1 .55 L s .99625 .575 m 1 .575 L s .99625 .6 m 1 .6 L s .99625 .65 m 1 .65 L s .99625 .675 m 1 .675 L s .99625 .7 m 1 .7 L s .99625 .725 m 1 .725 L s .99625 .775 m 1 .775 L s .99625 .8 m 1 .8 L s .99625 .825 m 1 .825 L s .99625 .85 m 1 .85 L s .99625 .9 m 1 .9 L s .99625 .925 m 1 .925 L s .99625 .95 m 1 .95 L s .99625 .975 m 1 .975 L s .25 Mabswid 1 0 m 1 1 L s 0 .5 m 1 .5 L s .5 0 m .5 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .5 Mabswid newpath .36421 .5 .03936 0 365.73 arc s newpath .63579 .5 .03936 0 365.73 arc s newpath .26843 .5 .19291 0 365.73 arc s newpath .26843 .5 .19291 0 365.73 arc s newpath .73157 .5 .19291 0 365.73 arc s newpath .73157 .5 .19291 0 365.73 arc s newpath .5 .69291 .19291 0 365.73 arc s newpath .5 .30709 .19291 0 365.73 arc s .36421 .5 m .36421 .5 .01 0 365.73 arc F .63579 .5 m .63579 .5 .01 0 365.73 arc F .23743 .5 m .23743 .5 .01 0 365.73 arc F .23743 .5 m .23743 .5 .01 0 365.73 arc F .76257 .5 m .76257 .5 .01 0 365.73 arc F .76257 .5 m .76257 .5 .01 0 365.73 arc F .5 .79208 m .5 .79208 .01 0 365.73 arc F .5 .20792 m .5 .20792 .01 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXdty2zgSpS1Ldpw4zs3JxLcor/Mws7MfsauXrZqaP0hNbdXMw9ZuZfTu H9G/6FP8KVqjKVxIHjQbBChSFlSxYoNgo/ug0bh0A/jXt+Uf//7Pt+Wfv3+b //P7t//98efvf83/8d/vT0mTo6I4mqufeaF+3xSF/to8/dt8VV8qxf7+C/13 UjyuFoX5LNd3lDwrNutlUf0si/Vmc6sfb9ZFNcOiWD1uPgOii9XjHf/WDV/m Heb0SyOZiB2V4v1N03xcFYvFiv4qi6dcJc1JUb5LxRTzbZpi44lp+uuavqfF aqlJbJ7eKfPfg/yI7j3PyhdAZivE37ePNC7L9aZws6M0TeKzi/nCcr9eUqmI +XuGtMtCS3Vumf+xRk19jul7RlQ0QwaOxepT4Cvr9cb/yrT6ylbO63BYDLpl iY00TUbrqeKEii5pHNcU0tb89vdqw2ooidMGJqXubXm70bq5aFArUP47vohb nkEtnXm8cqXT1oRomya6hbNhD+qKZqXxUKhmZak2KJiq2iYrCsdNexjz+6X6 j8ztpfqaOKlPf6iPVrMTkDYR5kv9buYl8zIkLyjtyN907k3ag0n7Iky7B/T4 fNIyMuuZ9QSs05BFytwuGKbunsgxvdk+IZxZz6xn1kfPejaEWTky65n1g2c9 G8KsHJn1zHoa1rM1ycqRWWfTyDN0rqjd9sPwKf3X8GOiZdAYOa7U91RR8y7Y 0tNP/Ug5o/+83k60YBwj7RsjzwtA+cw8fdePtGfbR657lGCn3N8VGfrtNRGc bCv9gX4u1DcZ5r9Mvq0xLILcpqk16KX6pjLfAsqXRryLnjUIOyJTa9ALI+17 QPmdefqyH2m1Vah5LVPX6czU2hWg/MFI+aIfKVMb6xPD8A+A8kfz9HQ/xEE6 jQRDaSeA3ghFPAb0PgvTJoDeaEbGROAWlHJtyMfw3+tAWX3QkO3WsG56pIcg UHagWPp9xL+bNhLW7w2kc0AFFTpwI76rvaue8ayjOhmE9bI1nlTefXrexn2z RQzCvY7rct9tr4CTCo2nz10iKYIM5DUgdgzy+eeJ00o+XSVoSta7tQzvivhJ L98FDqJr4QMKXkR+IDOIiJ/Au9MsIkcPTT7QcsEORfwI3p1FiDgF+T4KeUlq MdF0jJ+18ILNQL4rIS9JrecH8O4ZyEemnfrqeWJxelJFqWDUj898unAKqHwY VjC0/oHWA6jGpj7BzgCV93skmFcV0QIjWlbcoWDvwLvnIJ/UeByAiOcg31sh L20iBhl+tLbKrzH2J1hSw/8GvPtqpDU2EhFfgnxvhLz0JCJ6l1/wP3gRX4F8 l0JeGBGNPwRvj4zxh+wJAnqs5O6qRAP4ocS+APlex4utR1LufkzrXPyNyEy2 qlC6FH8CaT+DtF/Vt2vvC7nDcR3nnHotxGpg7P1u7OhGtycIoHCFxerxAOo+ pk9BLCELKBURQYZMVRYRihg0Ih+TYElH5GMSLCvlWEREvKBJTBYxixgkIpoF oKneGEQM6iDGJFjSDmJMgiVWSv05VV9o0phaTqoOiiP+2o905Gw8U7lemN9i hLio0qvhRuv81/1IcmV0GHm8kFJSc42ZMtjYVuSNRzo6NUzyLtDOKLw3LKF1 bYyCZilmwfjMUEFzOgTFmeGUd8F1huKtKQAVj6CYmjf4yFUeipmhgtxyiJdz Ax7vHwnsdV4bskjJ0djBBvbGuMNtPC1yASEALswbyPZ07p1eGbJoiR8BYOO3 wwJXqgFTzQbFi2+rkV9w6NwUzk0ByHmKgECmLQyI7QcRR3OftwC1pBjw9sbL pg5cFYlPmaULwnycfAKJkfmRys6XgdM0TSkA0jCcBFCgyA8UodM2odLpCAoU 44p8ewgKadBVAiisdUbhgn4AGi27Lq/6uTHEkdmQroP8YKh0wcDbH6J1doSB f2W5LZ7U5pfGrkpXnaX0OveVaASLRurSZffUWzSkQHEBz18BjdbWg+scBURL oUm9QUcKjSeSvRMqjQhxpFPSjoAPEeXTkIWQAoIsNoNGdS+h+xHvRlUfZJqk SPGRpnwa6lp7Qsp1NuuTb9t8fTo9Bh4+wJNPk64atK2v6vR5B3gmZUtSJCwx 9fMLSPsE0j4I09C7qIw79e12J4X8dGSkq3csUOEVzseH2jRpmG2XwKKm4jYq 3Mac2BOUETz1kUS1mT0AlgRrLAJ4pDGtXeOu1EcAj3su8y7g4SNU+TS0vBYG D9OFijriG0PF051b4tLwUD46kk8Lp5caEH2+vpvGqYlUCr5a+0albfwpggaN stH0AXW+abSfTwtvnTzP/GyGmTdK51moUKkV5UcVfBrqBGOAQoNWGma7nT5i BE1O0LxtF0BJJ14xu0n4xQNRI0TTFzSfQ8VLBzD8gD4cspidRWjEj9SGgQzN Y/g1oXDI+FUpPg1NBmJ2mQ0MmXRexLvkdwsZGiiiltYTZNKZdmrIYvacJoAM aQq/dv/AFoXgRgMF3qXGD7tjdiLzDgRmQBHu5BgeqJhd6QgossRtAwpkrpHt QYVKV0qlQKE0NEJPDVSbRiWETLrujiY1aAIjhSzm3Areodk7ZNK5QTxkceeW JIAJjdDR2AkVz3lgEF0EDUorpzSdj6ZBg3+kDT2h4nG+xANii1EfaZBmFzSo P5OOqlGhyIsgBQBNct25m06PAYAAbeunYpQA+Qn4ybAUgAKUwfMipddTe/gC 3kUrTVIo3Hd1OXy5SaHgWRf0K6VlsAfktbc1Ho96J6RoUhnSXmRgUGwMiA1Y MfCUH0ReCs+lj6gtjY9THg1Q9fNJp0Z9bNXjw3cRViit5HhWoeeoFRrISqdV A2PnX++YVfI5kqMphBTI+kqT1b4qWzYOWYojPzxgunPpUiwq1G+eGuGwNBpE SxtS6Gwor9Ney2xNxk5NZukiEsKParptNMCP9flCpdgfG0wrA+paaDuazwjs IiWhSRkCNmYBvYuKJgRb6sVCU/pjAzcSQgq31Ur+AlPeOkodOwPDLfWFeu98 pSQErRRua0TRcidaRjsAuJHm2f0qCCgp3HYbEXoDwR1zFFMg3AHHT0hrAQ7a fWzMfJkR4nYrFTLL8voosLlyq0J/KDOiUq+PUoICzyI6Vcq0WC1X5hEFSG2w WRi+ZqhFTX06PjNPvXvLxgB7JYp1YaFfL20UK5XoXj8veWnPqmtqnqJx6Wiq y7SSRePykpG2EruHrqv9MmDvgf0SXbYy1EiKWKQkxFVQ1+6F+JmNpGLmCXbI GTNwtcNftLLyzOYJYXNgAIV3n3H4tAwZs2c2C45ccqAXkdsyaMmhdo3NuMDu cVUMe3WtdY1ZH+OPokBe6pjIvs7LZf0s1laB1c+9m7GlmF4YiZDRjYlZS2AF ol0GaIjnIKmfqU+088B7cVVMFNvAvgNamqejeYrqirQULa9b6pVKkcbEDIyC m6Y/vFuYB8Ae2lIrKLu1TTlt9RADRXSMx9hDHOw5Iz3FeIw9yCXHPA2EBn+F ozRocJyRcfsRiTp4WOUuYpx7CdgNCogZGKjUUfNjDQbf2+0FqfdhiLYXxGxY Sb3HRwrUwHt88raonUIm3Xw3pv2KCSDbxa5YKWTSXbEDb/HMG4mDIcvb1du3 q+cDENz21TagyEdqtB+pAbPnA1rAo3yYT+3R4Z711OGYwQM9N0x6zOCBnjq3 x8cM5gMk2QMkpecJHujxo9LzBA/3KNt83HEYKiFD4XCE9vGsbP6Uda+/QLoo RQS8B6t7vWhSyT8bKkjDOh+izi+HhaGgPmiU6FFr6U0D0lbGjCvypQvdruKo OWwEWktvoHHAvXkqFfbKvMH7qzuL2Ba7wAlbT1P5kdiuvdHp0ksl+JuxEgAg CVfwAVCOExuN2o9B53t2pPPbBIDQtIayBV2/5Bhe/yDZh8b2x7s3Gs1235g3 +EtZAztC24JRB4fEt1Yi5vot2wEjjfRevzXxcdq5N+Rx9W6SoyRkpKQAWCrS C9hs9HSXC9gEUNiThaTX8tlajL6Wz7u5wbv0Q9l470xnKKgjmlZZqkEx8+mM VOxzQ8U7ISEOerqE8doUgMCd+vQs6KJQkg7dsUnv8zFNnQUjEi9VLjTP3bvL TxEj+3R7bb5veGyC9aSUB3DPdxYxWETpzCeLCEUMsp5jEiyp9RyTYFkps4hB LMVc3i5dKg4U0Xjv11XffVGe2SG5JHDPEbDOSSO1yDm552K7LmsSfO16238j MpOtKpRe759A2s8g7Vf17dp7Pe1TESLr9cb81RVhqXNTirDU6921aakDV8wh ROY4nANAIOAcs2cmeUzPIY16korYNZopizgmEWOOH2wTMWhqIY2/3IVgSacW UlfTGGpsJCLGBGj3JKI0xpOWnMmDOX9eglGUzMzXomM2afQkmDTslGps6hMs ZsPOGATzqmLM5q02wYIMvzSIVGo8YgRLavil4Z9BDt1aPummzp5UURo7JBUx Zk/0nogYsz++JxGlwXB7LKI0ZlQqYsz9bUmtp3Sjol+wuONAklpMLhJ37hWg 84kvPemaJzTVL4B9XX2kxfTEPQolbWNdpw/MOto+gopCaQOzTmm1hm+p3Jmn XomH49qrvpZea4vYocFstRm2DJk52qF9RLxr+W8AXT6+f2TKU/7VpBezSWaE ItrjmpEQ4aPN0QhmL1BBEx97OhEf09pZHOQUKJbrGKcASrOhpGga/s485Zcu O0vpd/54d0XHSHtuag0tz/KRzQmk1aqinchVZ+J3RWYbWa4I2o5f/Vyob5vP NcGu41Bf45EaOWpd1HWg9VppBGy8nljdKBI5CVEatYUzRQ1NjOgBmsYnbPaC 6ydiBOQXCUdojaUT2cx6l+Fjvwz3MGbMypFZz6xn1lnWsyHMypFZz6wfPOvZ EGblyKxn1g+e9WwIs3I8M9bLNWXXT9DLyvkOJTLL2c4pkUgctCYqzZf63cxL 5mVIXlBawMHDFDLg3gyv3RDKU6W8VNu2SIQ/VrMYl8yqkcVsnts6M6g1O8/p 96/N34uj/wOHTyLT\ \>"],ImageRangeCache->{{{0, 287}, {287, 0}} -> {-4.4574, -4.39039, 0.0297797, \ 0.0297797}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{879, 843}, WindowMargins->{{5, Automatic}, {Automatic, 3}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, CellLabelAutoDelete->True, 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, 2045, 70, 1102, "Input"], Cell[2627, 94, 503, 12, 52, "Output"], Cell[3133, 108, 63, 1, 31, "Output"], Cell[3199, 111, 45, 0, 31, "Output"], Cell[3247, 113, 45, 0, 31, "Output"], Cell[3295, 115, 46, 0, 31, "Output"], Cell[3344, 117, 45, 0, 31, "Output"], Cell[3392, 119, 45, 0, 31, "Output"], Cell[3440, 121, 46, 0, 31, "Output"], Cell[3489, 123, 46, 0, 31, "Output"], Cell[3538, 125, 46, 0, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3621, 130, 1288, 25, 405, "Input"], Cell[4912, 157, 134, 4, 31, "Output"], Cell[5049, 163, 12374, 780, 296, 6623, 683, "GraphicsData", "PostScript", \ "Graphics"], Cell[17426, 945, 134, 4, 31, "Output"], Cell[17563, 951, 134, 4, 31, "Output"], Cell[17700, 957, 11993, 779, 296, 6677, 689, "GraphicsData", "PostScript", \ "Graphics"], Cell[29696, 1738, 134, 4, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)