(* 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[ 33513, 1776] NotebookOptionsPosition[ 32636, 1746] NotebookOutlinePosition[ 33071, 1763] CellTagsIndexPosition[ 33028, 1760] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["(* Al atom Kimball, Ne-tbp core 15.09.2012 *)", "Input", PageWidth->WindowWidth, CellChangeTimes->{3.564575267659327*^9}], Cell["", "PageBreak", PageBreakBelow->True], Cell[CellGroupData[{ Cell["\<\ Clear[k1,k2,k3,k4, sig1,sig2,c,z,R1,R2,R3,R4,a,b,f,g,d]; c = {k1 -> 1.0, k2 -> 1.0, k3 -> 1.0, k4 -> 1.0, sig1 -> 0.28, sig2 -> 0.3, \ sig3 -> 0.3}; z=13.0; ad = Sqrt[3]/2; T = 2.25*k1/R1^2+6.75*k2/R2^2+3.375*k3/R3^2+2.25*k4/R4^2 /. c; b = (R1+R2)/2+Sqrt[(R2+R3)^2-3*(R1+R2)^2/4]; a = (R1+R2)*Sqrt[3];d = b*Sqrt[3]; f = Sqrt[(R1+R4)^2+(R1+R2)^2];g=Sqrt[b^2+(R1+R4)^2];Vee=3.0*sig1/R1+3.0*3.0*\ sig2/R2 /. c; Vee = Vee + \ 12/(R1+R2)+6/b+12/a+4/(R1+R4)+12/f+3/d+12/(R2+R3)+6/(b+R1+R2)+6/g+0.5/(R1+R4); Vne=-3.0*z/R1-6*z/(R1+R2)-2*z/(R1+R4)-3*z/b; func = T + Vee + Vne /. c; t = FindMinimum[func, {R1,0.109}, {R2,0.4198}, \ {R3,1.668},{R4,0.416},{MaxIterations -> 500}] -(Vne+Vee)/T /. t[[2]] plot1=Graphics[{{GrayLevel[0.6],Disk[{R1+R2,0},R2],Disk[{-(R1+R2)/2,ad*(R1+R2)\ },R2],Disk[{-(R1+R2)/2,-ad*(R1+R2)},R2]},Circle[{R1+R2,0},R2],Circle[{-(R1+R2)\ /2,ad*(R1+R2)},R2],Circle[{-(R1+R2)/2,-ad*(R1+R2)},R2],Circle[{0,0},R1],Disk[{\ 0,0},0.06],Circle[{0,0},R4],Circle[{-b,0},R3],Circle[{b/2,ad*b},R3], \ Circle[{b/2,-ad*b},R3]}] /. t[[2]] Show[plot1,{AspectRatio -> Automatic, Axes -> True, GridLines -> Automatic, \ PlotRange -> {{-4,4},{-4,4}}, Frame -> True}] plot2=Graphics[{{GrayLevel[0.6],Disk[{R1+R2,0},R2],Disk[{-(R1+R2)/2,0},R2],\ Disk[{-(R1+R2)/2,0},R2]},Circle[{R1+R2,0},R2],Circle[{-(R1+R2)/2,0},R2],\ Circle[{-(R1+R2)/2,0},R2],Circle[{0,0},R1],Disk[{0,0},0.06],Circle[{0,R1+R4},\ R4],Circle[{0,-(R1+R4)},R4],Circle[{-b,0},R3],Circle[{b/2,0},R3], \ Circle[{b/2,0},R3]}] /. t[[2]] Show[plot2,{AspectRatio -> Automatic,Axes -> True,GridLines -> Automatic, \ PlotRange -> {{-4,4},{-4,4}}, Frame -> True}] \ \>", "Input", PageWidth->WindowWidth, CellChangeTimes->{3.564575267659327*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "241.5006007012432`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R1", "\[Rule]", "0.10911301761258965`"}], ",", RowBox[{"R2", "\[Rule]", "0.41981709436181563`"}], ",", RowBox[{"R3", "\[Rule]", "1.6681668749641956`"}], ",", RowBox[{"R4", "\[Rule]", "0.41597181371433956`"}]}], "}"}]}], "}"}]], "Output"], Cell[BoxData["1.9999995989778385`"], "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 .6 g .56612 .5 m .56612 .5 .05248 0 365.73 arc F .46694 .55726 m .46694 .55726 .05248 0 365.73 arc F .46694 .44274 m .46694 .44274 .05248 0 365.73 arc F 0 g .5 Mabswid newpath .56612 .5 .05248 0 365.73 arc s newpath .46694 .55726 .05248 0 365.73 arc s newpath .46694 .44274 .05248 0 365.73 arc s newpath .5 .5 .01364 0 365.73 arc s .5 .5 m .5 .5 .0075 0 365.73 arc F newpath .5 .5 .052 0 365.73 arc s newpath .2123 .5 .20852 0 365.73 arc s newpath .64385 .74915 .20852 0 365.73 arc s newpath .64385 .25085 .20852 0 365.73 arc s % End of Graphics MathPictureEnd \ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.564575332836925*^9}, ImageSize->{459.1953125, 459.1953125}, ImageMargins->{{43, 0}, {0, 0}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXbtvHEl67yVnqBe1K5F6rh6kVlppV9JSq13dBoYdjAP7zsZ5/gEmi4OJ u+BwxPkSRgJoO5jIYHKgonHCaCJGBGwsYDMi4KUDJUwmIAwwYcBgkgkmKHd9 3VXVM/PrYtVM93Q1pwRwNFPP7/fr6qqvXt/36x//9Nt//P2Pf/rdb35c/ts/ /rj+29/95p+W/+YPfwyDZj8Jgk/+h/8tB/w7CwLxQf9+5h9B8Cv6bzb86LHO 2RnrdHtBMw7rdTv8N/36d5DuL6Iifkn/VcOYI7YW1UF/683D4C3FzbFue0eG 09/KFjtjTEQz1mE7ayuJJOvsY5e9oegKO9nfklFb+yfn5DKqE4v7fVxhu7UR ha/uhHWwmQjoX9N/82HOLjs9PU38nTGiqXfGjj4eM2LsdC/MUWdHPfbyvGwc xmpYWb0ZytdlRwdH4Sd7JVDibDPxA+kcNFht84B+vZHEnLFGKP7Ocfj1hLPQ 4Mi/A1m+S3I5LISkGkP7VkR3j9n+3h7b29tljbCUWmOfJ+3jLaz3UD7GYIY+ L7HGwRlL/uu0W2HMKi88eJmaby6Rr8N2N8I2UNvmT+p1apZqX1WdQ6IgUAAO WT1YY20C2A4bRp0ddBRjh4ox0UYGav6FSJoAIErvHbdIms3tJtuo85a4yY7F Iwz+Ls551FylVPWddlzJLFWyvRKwtd3j4B0QRj7xzj6rRe2b8mzV6mz/DMr/ TlN0UgT5noRPcnetxpohN+3tVdY47FLuMOHfx9m6R016u0IaFKNhtrOzbkT3 MW+DJJ0A1vu4BZrtMVsPauyA5+odslr4PrdVs01m+U5fyzsg2Fvx3EKq6rVN ttNY5U0ihvLL5HuwVmeN1k+stVkLe4AWb8nJdlLjT1JG76jXpELi7G+ts3rI 60rjIMnF7loYtNFkzY0w11qi0KFc35vUlSqpYKvdWqNHGUIUj+tXcX3dk49s Z6vBGtu77Lgb5wiDT49Ya7vBtpp77KSrnlTnhB3+1GK7ByeKw5DkvW1ewl6y Y0kmfacrdUgG1d5P2W5zh7U7TEhNj/bn8b/fjBpJyAnvvgiECA2rkuNi+Ouy Q2GXHJKljGGev+z5i8ct9Oq8A2HfG6abRF4j0d+DIt5r0+mrN82L6vWie9G9 6F50L7qx6BTjksCkHtMsVKN0uiTwBW4cXnQvuhd92kWnlZd7POiLcghMS6Fz PGgW5FiQsQ/LAedL/lnlQVdAjnsy9m5GcHJRCajpVHjQdZDjoYy9ZVhHIWrC kqTnJsixrI11sGE9lAIj1p/K2E/LAee+FBi9Cc9l7LVywCEQ1MI/Bzm+lrGo U3AQzm0pMOp2X8nYS9rynIGzKAV+DHJ8I2Or5YBzUwq8DHK8kbFoQHUQzmdS YKSyvJWxER4RGfwCJC4YyXUp67O0kin2B/dEnwdhCESyvDitO3rLVf5JDL9I zVGRYTxn+IcqLERhuQLC0nFUk2ECT/AdSF9wy6Ixgrh8aVjKjMzxrXtw5kCY KbAKyPuNexCrIOyVYXko72uQrmCINJRQE1sxLGVO5nAQzgwIMwWG9ka/dgFi NVleFBH+e2tYBupNv3IBVqUPVkqfjbJfBeKg8aHAthikjKco77WBvPzX8xHg ZKNJzKSVgsKQsvQlSOf09sh1kDdVbZ1McyK+qDik3KMctNqh17gnKPrAm2AK 4jMgC5oKTRCOOA430FWZIroBxHlSLKJIlcRjiiksJBOagk8Q1pvUqkbrFRZA 3qViISpFZkB/GxHiIsiL1oUmCFFNAlR5aLJgWt4tkPeRHUSxtJe8FoGOzI0D W2nS+smHaXm3QV60gKmBPSeEAHco0NRvHPhqTqWfXpqWdwfkfWAH3/4OCD0v Gij+l1cSF8ur47/mQNg/g7A6/6SgWFMK7C9VoJYzzuNRs/qBxYwRH89dkBft Fmgej5irJW8zZN0q1dxPlYfmiKbl3QN579vBFnO55KWHrJ+2mhvqV+RMy7sP 8t4D6c7ti1LvQ0wBA9HrNnSnIusmr2bRA2vJIyL/HORF25wT1DDUzFqVh2bg puU9AHnvgHQeYpYQ1SKDfufGtLyHIO9tkG6CENU8XpWHlipMy3sE8t4C6TzE 8VfSnoIKPgVhpuU9BnkXQbrc19mKAjbBRqkWnFR5aGHKtLwlkHcBpPMQs4So FtlUeWgxzrS8ZZAXHZjzELOEqBfJHqKeMg8xH4hLoDy0vJpN9+Uh5gNRP1Tb Q9SrEuYQx1bWigKWu7Lm6hPLEKJe47eHqJ+ReIj5QNTPvu0h6lcHPEQPcUSI +pUwe4j6lToP0UO8YBDHVtb0Owr2wPQ7Hipd7spaUcAm2Cg9xIsAUb+baQ9R v9vqIXqIHqKHeJEh6g8G2UPUH1wyhzi2slYUsNyVNVefmIfoIXqIHqKH6CF6 iARRnB1OcRWR9dlhBxmw90uhrjL8J68kLpZXx3/dB2F/BmF/yT8pKNbCAis/ D1mfbVaWidDiqNXzSLVgpHkK4qElfTJkDdHBxqeO7kMvDlPw+kkGsK+HKWBA Xl7o9xMxBa1/CsZXD9FD9BAdgkgxZQTmV+08RA8xDc4F2/PwED3EQiHScgBf yghMrcOWGCylI+vx9+W3C3Z8hY4w05oVshhFEciIpquIU7W4KxInshFXkbHI OGPpDs/NSSqQZdHLMhaZaXT1yRrAnpXAkFHUazIWtQBXT35C2JVkEfxfqrFb vX27EoIOArkXgexe0pU9yo3MxZUELyWnh4YMyy3K2KXyQky1yo5kUN4EkA2y ktyf0JvVR8KhnZfSwdY7R0DC3Zc5kJWnksDWW6bTE2BqN6YkN9xIBaHnqV8e UGEPZY4ywaaYr6Toeh1HhT2WOW6B2KLAGqme9qqdClsGeZHVhJJcxrUfJlWY qemBklBBTYyajr4wFfaFzIFgL4E6HLQRYM+mCjN9K0tChX2xKsx0PNb3H/ZU 5GT/g8Skpq037KPCnsscJYa9BMJMCTBd3ysJFfamulSY6R5LSUwa2duZU2F6 Y7qlo8LecKIK05t9VulcNVdGMfbGMVWY6eSqKAKMlGd7G68qTG/uXaUridlB e0O/Kkxv3F+l06tY9lTkZBbU3ti1CtO7cigdFfbmzlVYurOO93DW6qANXHtj /CoMe195XxLk9l4YVNiwG533UKF00K4zWtbR+9zAVcXhELaDRsnRCobemwoS 03RRqhDY/Xb4V+KnxP/W2ccuPMpu70YHo4jzu2ibnxOC79eIQatz0GC1zQPJ Xt4kOei5IkB3f6p9bkw6h8RSNBuiPv8GdXuqN+C//g2EvQBhl0HYv4KwX/NP Cop1XEFULE7qQ7N37TVIcv/udxDA5+aIo5Xexy0tG/au2wZFx358ESUFuwaK quetpcf2t9ZZfSVgK40D9KDyYgUtIhTsL0rA73VO2OFPLbZ7cALbLpq2qemd CSX9YcjHGxokKiDMtA57jcZIY7B3PKkXE/mCQ1Q46DPOUyGjTH2qmoqJGr4Y 0D98+CCH5KvRKJ0m62gc5eRF0d5lrl5M1HfeitlLcMT/5nkApQzEgZ9gbJpy 8qc5CZrEE042pQXJ0Tik5OQ71d57tF7MVN0wPvgRUjEDmgsqCoVl5ROXYiaB XQzwokGE/4eTBcGClT9jAzXBaIna3gW6Xjik14huOwn7AX3Oit9WdeTklXoS VIhuJ0nFI0CFqb93+xHRiAo0I0YHyU2pQOUJupNULAEq3hrWkZWv+AKoEGFJ Kp7IfsGUACKUcujlM4KNGi+6aGAKG71cootMwn4qYaOj7qaElowA0dw5Ac8k AW8MS7aX1IgANICpbWl7AtAAKxTwZAv4MtEHRNIFiR1AfR32MjtHRbItPKfP SpIK/ofuL6VOb6gpIf4sOUAKLhLElAPUXQuVONkcXtAn2uYL4DMwnfKWjJJk s/hqoFnE/1K7ft2FIjS4GOnL+YCfG3rOcVt4OdArsJTHikb8lCXl1L3F83Rm tGyAbqOZQp+X8ino9JqnQCb50oFGYWLCqb/DbNTOC8RblXhTFXyK/aHUKNEI jqbzaOc7A+T23aMe+eD8LEiBTZobPT4E9lsZiw64ZNCs84Qd91oQ9lUJbAmU siJjKyA2A9gzsgKkYVuBnU1r0POyDrQX8FrGoiONWUEcCEPatClYdcMWgVWx aLdMfzXKfbD0TQ376ADACxmLbga5D3Gg5EUJBx10eiZj0e2NkcBi5RYtAVkB DMAy03zUn6a8sdd5EDrt+kSCRqflRwFNMUH/uq9eF9XXl1wLFnryfbnWrnYm lIUACqPhGd1beSzTocOvSIIU1TH7h4ug3k28qgLqJSkQbTpUJfyB8ujYAxGB Trg50qIR6NsS9CJo0eoedvpuQ/QrZSCit5+QoIMhI/EypA3qD/oZUDIT9VP9 y6b8F6akX76AsA0vuRJBV6KXRHxbcpeDgY5u0ZCNWZAXbUugcZv6UbQ5UDwl yb1BAf8moORWagOpJCnh/z8ErKCLOaYbd8UTcgMQEr1FqSsQsyALenlMdVpH iInv5KbRkd6BiHSmvKDbO67z8hnAdkezIHnpHC5EUtOp3Zi6MxdJX4S+qpuS iOuWRFwxJMLUwJwLRCTgBEJ/HPGdOa+d9A3EOdFDMeOTMrQ7cTWNlwHDOCrW tLGYrgNZaOdZN5GhfiiVDYNWch4vopWMw8vEXyLcX1weg6ZrqTThy2FoxdQJ as6HWjXU49BbdkFpUjO8SpreP2CaSsWiUS2iZOheXUnYEIpFck4zA1DShGAu rUO+eLyQUi5m/0lybsoGIuY+Ax04eg0vHj/KXuinHMesGigvof5ayoEU5PyY kDduuh3WiZw0DZ3NyIOd5Nkdof7Rrzn+k5BGbCVzzcnWkzqVSDIVD+YZMSX8 ypzsy4tlbGv/ZNJkibBZSQg6NnApJlQQaNKwsqVL3d48Y40weuc4/HrCXTE1 pCum/9M/xf7WsaNeoD4vR/VgjbWp4bbZWlBnB52o8GyUceV8K25yTHV6SXLn 0giPd7E+DK6UUj3GB5RNiO7ss1rkZo7xK7NbtTrbPxu6Jjup9omOVLvUKo/Z elBjB9xHWI+7yloPm09hZM0PDosiotAeL+lNbXctYCsbTdbcqLFgrRWGTI4s ClL7TRUZphTVyQ6aYijgfdvedoM1tvf4azeJoUBcBxUKV/yndK5I+XRJxZiE sqUONSHV/IZsOwOdz8BZmIusjqKtGbTOvCD1r0qilIvLCzogi9YE0HYXYui8 NQHRRccsubsmkLprg1Zap27FpF9coaOWcc0tGz058f7HZOS5TDucVy9igcvX /eWhh6zb9ElvFNkR4Xe/iiTi0zFeEzROod2MiqFUzu0T07e7QL8Qqapgiu1P C+BXo2SnBZAOb8xQNZlODs8PQfqStZYBBkxPIQ3qYmlslOcIklqJuyXf/NT2 QEGfy3SE8h7/hmwbuH48cyBsQTNqIhX8TqI7TUxGBnaulBwLMhbZaHKYLHU8 dWFgBAmi6b9aNKAmRBiRyXQ6oF+NhqJsGJhVT0ekyfyo9j3+SUFq/0ktp1EY YUJn7ulJVyJmzCSY2FFtdA6ferJKNPaLb4kkPMO8RDQnkSOD5MuSIRQ7ptao ovrDsrl48UQ24iroB6mJXE57pE8lbOR8w2nY6L6JesnQG/tcxqKz++6DVT5f ZqJxbTjH1zIWdWjuQxwo+bqMRWPQKxlrqr6U5FrjNQkMWXrT+4hzHHZUK4at tluXQSl6j4Alhq0uFyGt9K2MDc7fQi7PPe3puI2OqkZ4k9UIzWVk/TIfvHjh O9WWBD08ZPTtnWTvvWCO/yFhjCxIFGs55PzBMZ0DbHRXryMbNXi3KAmwW21U kel9eiMWXLE0FEloZ2nI6u0tARv9gyCCg+qwb8dGVBRqjoyCrGxwzaS1Hodh JyfpU2WGLqnLfRjF6OBAeXqjmUawJ2mAMtncl8FoYNoC7C3IOkNFUnRBxWNA RcG2OCdprDZJBdp8mLSFVoqZmJHieK3mg6VpYlPLvEZK8iTAIvsBd+WQZ2WR WT8vNG/kE7NMrjYTKDIo1gh3ASzQ2jIFqU2HKGEyGYWatoScDLNPwvGBWHwW rwKHHR9RENsUszGVSXZsGcrJnv8kGBLmvZIMxbs0abL2h5lWnpNrCO9JREZ5 VzsTpQI57CvYKROiYuo8dVn5K8zBqxty1lUwMdLH3aBjQiu3e1+BsEsg7F9A 2D/wTwqqDIh0jts9+6E1nc20Zluwr0RTKqbAt6ap+0H7ERSJrh/WCqbCwu2g /SCKJYjDXfTAa+pucEp9MOfgdHt6kZfE3XhefubVioR+lmUK/xHIi07AWcK3 H3hV2BuQF13geQbSOUiF/WijwlZAXnSs5ylIh2ZZplQ8BnkXQTqjJWT7AUaF fQPyVkC6oggwWla271xV2GuQF51n+wKkQ5NLUwKWQF5kp9vyZbDvbVXYK5AX XU8pCRXU3cT3MswI0J9aVRNj/QTaFPYyyIsOfVvCXgJhejZVmH4iUDoq7ItV YUgNQr4Q9HXYU6GndmQq7ItVYUglQifXS0IFdV/qDLsBAc9kDnQ7YQnUgRYr TGHru9eRYeu1OT0B+tG/dFR8CcLUFEdPhalIegXHngrTR2BJBb3b1LRNCViW OdCo4ipsijEd3pBwSyCvSwQYKcp6BQeJpFei9DM6e7D2fZRRI9df0EHCPZA5 0ESqJLD1F3SQcPdlDrSWoJ9b2MO274aNYOvdrSHh7skcaAWpJLD1zvWQcHdk DrRGXBLY1O9REDqusihj0f6Ift3AHqKpomwJcXD3KvyDIimjLmgPt4RgVfIA H19WRhjQ8YZSI2Zxu0Vn9OdlLDoPVWLYynAuuhOirAegE8L6VVB72KYLAEaa Z+qp7VQ4c1oqigJrpGWmHh+vqjd1yHV1Na2xu/pcDUDfkMAeyW9IzBJDJI2A vMldk9+C8y8I6/ds7BHbz+xGRkyKxDWezNQ1aonBZnPiw0P0ED3ESUHUHw2w h6g/M+ghJiCm6nquAxtZr3MdmG+UHqKH6CF6iB5iFhDFJZtum/xBqb/I8xG6 ZHNBGaBrRqsh8nozRN5lRwdH4ec0MKDc73TY7sYKC2rb4TemrhT9By8ptgoe DF0G+rOM/Sv+jSJjrUsIwkveXgnY2u4xvABywQhNOno6O+tGkcf8BZu6l6rL fYEFbLP1E2tt1liwujNlL1X39Ii1thtsq7nHTrpDPq0uIPIpGDU9RA/RQ/QQ JwmRYsoIzK/FeYgGIk3BToaH6CF6iG5ALPEZFQ/ReYhjK2ulOxBnKkiJT3N6 iB7ihYJYkisRHuK0QyzJBTUPsZQQx1bWnL4jW0ZgE2yUS6A8B6/4e4jadMug PAdNdXiI0w6xJJaGPERtupJYDLuIEMdW1py2/DcOML06bA8sJ/OWHqI2nX72 bQ8xJ3O1HqI2nX6xzx5iTuaWx4Go31Gwh5iBWfEpgCgMPvGjxZ2zM9bp9qDl 9HFgO2s+vxqiPmJrgbqmsN48zPxAuYM+JeRx6t4ZO/p4HD778N/pXhhTZ0e9 zI9TO8iAaH+ddiv8tcpRR9ZV6ILCIS8mzsgLDLLwZXLUXKWE9Z125m1Mb5rY nuEMvMoIhrtHTbr902HYAdI4sPXGqe1hZ+Bkqd/LUJ015E2FFn/NsmZAb5/c ngG0fm7pcUveVDj5yHa2GqyxvcuOs7+poDdNb48crUNn4HbNQ9Sm0/tasIeY kx/BcSCme9Mo3IXkOLCwe5Si3YaOg2jYw485nKx8wlLMOCAonZUHY1NviLkv OKkw+/fe3tFn7s3pneRLD1aFZeU4O8dnwt8J07w5uUTPuomlWs9EBZBWSzn0 DukLQjIchkwGovLQfMxBiEj9+UabV4WhdY2XIF3BEJH6/lqbV4UhJRvZxywY Is2C6C0yBVaROVCDLhgOaljo3UHloQbtIETqHlL7vSjHkM3S1J41dy0IQUAr rWg4QmBSRr1CVKJrstJ06aOweFXzHAkKaU/XJYhULY1if3BPdKTqo5kLchjq IByaiKVaRddbzXewYS1IgZdADr3vAwfh3JICo1W41zIW+aFzEI5yqYBWk1/K WHR32EE4tBFBQWj/6YWMNbWEXDCcB1JgtN39TMaiQ9EOwnksBUYHg57IWHSE bxQ4uWgtSsxUL1oUi44IpS5yTVploaZDS4XohtLnMhYdQXCwYdGGdjWt270t Y5G3HAfh0PyZLNPPy29L5RAd5Z3nKZDLiJLIb7pa6EX3onvRSy96LlrDOAI7 vc8zZY3Di+5F96J70QsQHVWvTzeJvLHo0fpQhbVbGxTN7QB38Ok6tLFZVBja KHJJPtfDPH/Z8zdkYfuY7e/tsb29XdZYDVitsS/PrfJ0AT8lLjRDkal33KIy N7ebbKPOrf1vsuNelOW/kkl5MT22u1ZjzXaPtbdXWeOwG8ny31E6aTy+s8/q tU220wjTHJwlkwhk7dYa1RpGByiesVO229xh7Q7ri6fvP8dwPvl/bLyXCg== \ \>"],ImageRangeCache->{{{0, 458}, {458, 0}} -> {-4.31946, -4.27832, \ 0.0182846, 0.0182846}}], 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 .6 g .56612 .5 m .56612 .5 .05248 0 365.73 arc F .46694 .5 m .46694 .5 .05248 0 365.73 arc F .46694 .5 m .46694 .5 .05248 0 365.73 arc F 0 g .5 Mabswid newpath .56612 .5 .05248 0 365.73 arc s newpath .46694 .5 .05248 0 365.73 arc s newpath .46694 .5 .05248 0 365.73 arc s newpath .5 .5 .01364 0 365.73 arc s .5 .5 m .5 .5 .0075 0 365.73 arc F newpath .5 .56564 .052 0 365.73 arc s newpath .5 .43436 .052 0 365.73 arc s newpath .2123 .5 .20852 0 365.73 arc s newpath .64385 .5 .20852 0 365.73 arc s newpath .64385 .5 .20852 0 365.73 arc s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{462.41015625, 462.41015625}, ImageMargins->{{43, 0}, {0, 0}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXb1vG8kV3zMpyZa/bfn7Q7qzz9+WbdmXJhVTJJcECf8BNcYhxF0RRLhc o8qAigDsok6umBQsAlasGBzgRknBRjlADa9gwUaNChZsWLB42ZndnVmSb0dv tPzYpZ4B0eSbeTO/99v53jczf3j/w7d/+vP7H7775v3Kb75/v/Htd9/8deXX f/neFWU+c5zP/if+VhzxHRwn+JD/fhIfjvNb+V/G/ehBp92GTrfn/MOX9bod 8Vv++icS75deEl/L/+bckAYUvDzk30Zpz1mTYfPQbZaVXP6tbkMb4I0fDNCB cmE1FGUD9rvwSgZn4WB3WwVt7x6smbXeUPLE4b7zM2xWNj35etnNA055hv5K /nfO1ezC4eFh6K8NkqZeGxr7LZCMHdZcjTw0evD8KDVhxrqbWb7k4utCo95w P321+Si1U/4D6dSLkNuqy1+vFDFtKLrwyy3364FgoSgsf4uo9HE5DEI9INw0 FdxtwW6tBrVaFYpuKrnirojax5ub7556jM4p+bkAxXobwv86zYobsi4Sd55H 6s2H9DpQ3XTLQG5HPKkXkSpzfVl19iQFzmtlwB7knQI0pYFNt2Dkod7RjO1p xt76ZWQg56+CqCEDAnp6rYpEs7VTgs28KIlb0AoeofM7X7NRWpex8uWmXxAz MpOdVQcK1ZaShcGoJ97ZhZxXvqXOdi4Pu20UvynpMIS1oJ64T7JayEHJ5aa5 sw7Fva7UdiP+3lfrNkqydrk0OLpK96Dd7np0t0QZ3A6Xwd7+NlJsW7Dh5KAu tHp7kHPrcxNXWTPn8g4BthY8N5eqfG4LysV1USR8U74O14NCHoqVT1DZyrkt QEWUZF3QBSz3Sargsq4mWQlnd3sD8i6vq8X66xDKasEVbZagtOlqFUKJDmm9 peQViTRgq1kpyEfpmhg8rt/6+XUP9qG8XYTiThVaXQgKdPewAZWdImyXanDQ 1bR3DmDvUwWq9QNHI25DbUekUOt7qKGo70ypDmHQhfIQqqUyNDsQoJaP9qf4 3y97hcTl5EfxkQ1J3axUv+j+Os0ylrEsUub3W1jVeZdw2axD/xBDNr70GDpD Z+gMfTLQZUiSAMsxr5yFGgadSQI8w4WDoTN0hs7QGfpsQedOfxzpzUjhYOgM naEzdIY+W9C50x9HejNSOBg6Q2foDJ2hzxZ07vTHkd6MFA6GztAZepKhL/hB YUfyBSR6SsyZl//h3uTz6TXL3st9LsXG2rumS2uzIuLPIhc/XZGf+NUQn5nQ iCDwogv7V6e4dJzxg8Lu1Sl+/t6TiPSoTrFlXsM65G2d4qKX4p6PoTN0hp4O 6DIkSYB5kYGhM3SGztAZOkPnTj+dDDN0hs7QGTpDZ+gJgc6d/jjSm5HCwdAZ OkNn6Ax9tqBzpz+O9GakcDB0hs7QGfpYoAe+RhGH06bY18j+hNs0G2t1Kq18 6PbeguETWlPssqXd69CzWlNcCpRl+EmtKbZMOQ72n96a4lKY4j6DoTN0hp4O 6DIkSYB5ZYGhM3SGztBHCf22+FwCxwlNzOwzfatSeTg56FfF54KItqS+/YKY 1Qul4WQ8iafgZS4D7k3Okgvic05E+zwUGszJpf4bYs6PVVKnEY0bKvTmiKyL HCYsik+5VPAICc2o0JfETB8ojfOIxl0VukQ07NjDiQVl9jPrUMywFaVxGdEw h46pPGZVptjTWVShj4nZ31Ma2NN5oEIvTM5EGV0+/tdI6HkV+iUx+ztK4wai 8UiFnpuMiWotbw1J+6L4lPpfEHO+qTRuIRpPVOgZY3rxrJPmfIUkdkWFrhCz uq407iIaz1XogjG9Y5uzpjIgpL2kIt8n5mzWeKlC54zpHdu61yqDU8QMzI8D y978yF+p0Mx4TFxVGWSJGdxUGreJ2V9SGlglfaNCB8YvWAWxtO6FSps6JLyt NMzDCp3HBaWBDRh130wdzxnMeY7IqIbdRXSvESGdR2RHjY79uMcfiT1VzFGb 4ntKg2rYWaUR3f9nwz2R+HuLRCUNwZ4gMqpty4juFaKVi4gs2t65sCywG+18 LUuv/chhRWlQTT2tNMxjVi0zj54sTfwSkVGN/QLRvUiEhB3WQyUgi+hSZzIG KuRQWPJqNuKDtYbOY05pmAF/sNYgmWj/xLTMvqToePZPTMvsSwqJis8R2SUi pEeI7lkipAwiWyXmi12j9zQ+FSuIjDrhfYzoLhp1ByH1y14R8z2D6D4x6pKo WEZk5pZcy+w6y7lwPC/gyE5Ly+w6SLL51PGIllHGPFmVh2E8giVOGeyQbbMf TmqZ1TA2cq6MpWw/UDUMQO8gka4TgbxAdM2TVPtl9AuI7gMkHmlsehuRYcs/ GJCXiC42m6TOhbRM96ZYr4vpkgrvLURGXUVeRXSxufnaQDzHwuxLA7ri1+dG XZLZNxEZtgiGQXqF6GKLIt7ifjYcz+aBmzvUY1t+A5GZVy+0zJsWYB3MB3Uf O9b5UE3WHSLWcR7b5OuITLdoZkj4Q/ygX9yYRx3UBuwqoktdGTRYfg2RmVfj tGy41n4IzQvN406q2UuIrvkNHZsdbbZ9slr2NqTry9H2HZtwUc22fyxDZvef hbnqwxV/G7DfRV1a7auWGYl5PGPPin3rNMSKIAT3bQ/apE69CLmtumJvMCH7 lheX+fpHjGvtSbLvtYZJwnzi5/qO0e3sSZa8lQHZ5l+S9V9XC/Hr74jsCSJb QGR/Q2R/FJ9S5A9Kg9m4DyeSPPsRQrRMkPEMSS/O2df2g6yhhxZQ0dvfNlJh P0wclGXDMpEONuvG1kmobNiPtCNaP1FKerC7vQH5VQdWi3XsGdlPFwZl+OI3 tkKFLZlQWbGfbA2xEpjf6xzA3qcKVOsHaLGlThKp0LHxHrYOKp/aohCZ3X20 zH66TRofTIsAGS+rGzhkIEVwGho7Pcd5tWeSYSNEr3nun06Av8iCldl5Fap7 VHOucV5uGsg5h8jMXjRmGVYS7iMy2U1ji5Ky0ZGh5oVqLbuHpLJk1E0YM0PL nWeRqIuKF/Oq9dh5wcBhToNUXrAx9mBhFz0UVo3jPCOsVF416iaLHlkWsKY/ Tns3KlIyUdXbvC5vlmEDRO3Mgo2M4vSMy4gu9maHtPZs//bJLMP6FO21hI2a 4wwcVxBd8/s+UlWZGCkEKuJMNMZEj/3LW7MMSw9bpMCoiDMltX9xzvTEpyeO vwz1/Tm2MIlhibMKFcdniOlJMj1yXCH7K2wpN87y7phIwcYf1OkbJsPGR1hZ wGRx6HmA6Jo3cySGHpmvLDNY5YrzomRMpGDDd/2mwZ4UbHqB9UhY+YhDz0NE F9vaRZoYnDRSSFMEbH2AunKGybC5sXbkx97ZxaEijrOnofowKUwKjZQ4brKY LHK5KWMkhbD3S8viuAUngYqQzBlDSWF6pkFPHCdrTIatwXlDuyEXulEzFN/X nBlihmaNIZm1fG9NWbRwZDyHflTDqAiTIU6wX1bGIb9ox2TYqu9phCFQby8+ fvwov2ET26tIPOoWGOq+j4hpQ7yNIFbUZP1n4FooA93/3e4usBfrSC8ptYsq HvWgCPvNoxFVbYIM+RvXBTGZgCL564L4HNhYP7Aa5YcO615UuuYpdmqp0+4P c1HmZ7wyZKL4iqLJPOwZA01DjSp1hxImw5YqwnM8v/a5rA1zcDkkC3TPDeh6 MYZ1lxBd7BwiDPPTUB403WkxmQll41suvi8QyQyvQprIvI7oUk8kSQ+ZXm5z fWQGxRNj9IqxiOl4WUT3BqJLPQoiyYziTSzGAFbhMUbDAxQTo7cQXeq5Mklm dChJrFehFs/BljeKzDtG3QmR2T9Op7KGybD0MLPPHNFuChmoZrd/6IildxfR pdJodmyfHo2nosrgIrHTCQ8ZTZ3OfUSXeorSqMiTIaMqeaYKdzaSPFL9XzHy PBqujnzRM8paauLqnBoahxny6xcE42kZ4cEEeJlgBdQncWG9p56VXVLfTqlv j2QcfB8sttc1deZroyURslQ8mXWjryhTT6tvz9JvdHheHQzBMfPlxOR0f0F/ jjabH2bRcr81Hq7sJ4ODa5HTimxY9+QQsjRgvP+XUcUkM3ku1G7Ibgc63s1V Q4vOk+VnsMAENWcK5AR3Ah3sqk2+sL17kBR+vHhT5EdvnW9D0Q0ut9yvB+Ke q6K65+rfEmYmXNtDbeI19W0gyjwi808edEX/8qpMP4juHuSdAjRlIW5CwclD vTO0f3+aD2tBW6/K0/QeWmcXct4dfCDOPtjO5WG3nSi+ElK4W7Dh5KAu7nHr iWvPNtzSlRiept5Ihi+7qxYcWN0sQWkzB06h4kqmy5N+f6O/ZafXj4h2srZT hOJOTVS7afUjPDDj0TpeKBaRXjfd5pvn55dVg7Covj1N//zcbHTYO8L9Ji19 POtGn1fV+ZJ60rqKPwx1EbTcUreEjS/LqmQmvSw7meXqyLch2IJ+eFlWgxuO txzqLUZLCr8sGid5xz7a19zaONpPUJl/SnUpBhI/xnhdGcCglkDqdQ/84txM 4YBuUrwQ2K9j1IxiubHv0egYZde4EZIpmzApOurNKxjGNVdDPdeEGZqM6++C Mj/S9TckEwiCVMJdM+Y1jdV3Kokp85+eRddzGeJMYr/HvJL5Y9CgaGnisoiy RqlJot6Fk54tHwMNJfi7ObTrRORumIF4o94NYzEv00H9sgltsJJl+HR/G66V lhCZjEy9W2T2dqTxnj1m6IQwxJvPk0FPxlhm+BSHxJcUbIR24g9BYVLEfzKE z5hCFE8aKZbVh+lJ+AF/+sjIZWIeKT7rMMVHQfLxoVMiBas0KTlydhLnOcsR y8Bt66MhhQ+5ngY9kzhBXt5a5PvsjJaUFUSXj9UfOT0yZGJ3UUR2pmaiqFcx LCO6x76V4mRc0GFZffgCl2mSEpK5/6fl0h++K2raV68NQnLw0w31i3PqyHtM 965Nj5mAgMhr6WQoddljTPRM60pDfWkhRqi+8JC6ED/OGx99p3kbUvovQ+1L Q36T1UO+jKb6Fuju3fLOU8ysE3S56TEuvD4Zd+GqS5IHb7bme5vFr4Tc23wU FSfg3nHqFdYn4J56i/ur47zWeBvS9eWhjlinh42eqWxg7zTvGnWH2KDeW22f lZatDeiKdus1kh42iqFSYf+oSJ28fXnTMs8fdGgbrHYTHURwPMvtqyxbbrTc vrnVMq9Y47ti1yLDHHTHLJa+fVdFMtm+s9WyV4gutvcTLxRky+3HKyTL7QeB WoY159gexeH2j262/TgaN1uG2E8FtOwloptF4um1XKqJ1IkUaZXYfg6rZebB CqZr32bZrxWQirFeo6Ua+0xpRO6/kVlQDTun0jMvtZLMsV/51DK7LUbH3mll v8hMsnwZkZnfE2iZ3eaEeNs07N/GkMzHVgGpezPiO0H3y6i+4PavMElU2L+F 1rI4bqxxXHntPQBIVMjeYOCyeDMQvUpIdRDKKg2qsdT1Z5KJDxEZdVNbHL+o OL5h9h6IJCrsPWu1LI67TxyXJ2wWb/ZlJlEh67EsYlQCVpQG9e2y/Vsm/Vrm tVHDMBK130enZcuILtVYu24LX6DHukjS2JR6pIaW3VMa1NdUZ5VGtFl6Zd1x CMeakErqc5UvdbP8HaVBfRtxXmlEvq6WoV/FN+elSox6NMUtpUFdpdZ7m7EJ wJoKJWRuaR11yj7qdXnqHD5i/cg8oSRZLhusgd3mZnuvKw3qyuoVpYHZ9kqF Uo8zsjTRquAsqcjUhTOzhn29sbTOPDHVHQx1aei60sAWN5+pUGqrdhxzhrrX iE7G3GBgOZsbpScqlHryxEisA59SbH6ltzuaPZIGFnykCFv5+FKFUgdQIzBx TmWKjYbPqFDqJPG+0sDWQL5QodTzHUgjtMjpnQzFJnX6nkTzBGJgiitF2Lxu WYVSF0BIo7DIxZxsVLGjetIMzOayUcXujgqlnqIwgkIpC8ecahrnohoZLKsn SgNrBq+rUOorgxGYI7uhBVU4Foj9HZbzy6gELqqAOK/ALQ2TheNK3C7nnUrF 3rPz2NDtZeNLj6EzdIaeKuiRw45pAT72cCKpDDN0hs7QGTpDnxnogWt+t1mW werPu6cpjq9tQiyTmw7WXYvyJdeiLjTqDffTs0xOon8WKfppiLTFr4b4zIS6 bn2hTgeqm6vg5Hbcb0MX6qSIn+Bdu7BoZ9WBQrUVy8s8MY+7B+121wtsiUI9 MwW5K64Cc2Cr8gkqWzlw1suqIKfTsqBSdQ8bUNkpwnapBgfdNFeqFPcEDJ2h nyjoMiRJgHm9gKEzdIbO0Bk6Q+dOP50MM3SGztAZOkNn6AmBzp3+ONKbkcLB 0Bk6Q2foDH22oHOnP470ZqRwMHSGztAZ+ligBxtvhCtSp92GTrcX6yjTKZvj uePMudY0oOBoF8GN0t5MOIz12tDYb7nPyv13WHND8tDo2foHBicydJoV99e6 SCHWQaVTJidwDmyU1mVwvtxM87MOnk63UZKerR1I9dPpP087D0XlEVgRxTjF limPwIN9KG8XobhThRZ7BDJ0hs7Qxw5dhiQJMC8ZMHSGztAZOkNn6Nzpp5Nh hs7QGTpDZ+gMPSHQudMfR3ozUjgYOkNn6Aydoc8WdO70x5HejBQOhs7QGXp6 oSdTln7onidYFpqVTRksTh3r4D5G2O1tLGMZyzzZ0Hl+Ldit1aBWq0Jx3YFc cVd574l4zo+gR4aBUq9VkWlu7ZRgMy/O6dyCVs9T+U84qkimB9VCDkrNHjR3 1qG41/Ww/NeLp4607OxCPrcF5aIbp94ORwmsaFYKMlc32MHCAQ6hWipDswN9 4fL7T745n/0fTPz1Lg==\ \>"],ImageRangeCache->{{{0, 461}, {461, 0}} -> {-4.31798, -4.27712, \ 0.0181616, 0.0181616}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"] }, Open ]] }, WindowSize->{1010, 740}, WindowMargins->{{59, Automatic}, {Automatic, 0}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 20, \ 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 129, 2, 29, "Input"], Cell[689, 24, 44, 1, 4, "PageBreak", PageBreakBelow->True], Cell[CellGroupData[{ Cell[758, 29, 1714, 42, 509, "Input"], Cell[2475, 73, 388, 10, 28, "Output"], Cell[2866, 85, 46, 0, 28, "Output"], Cell[2915, 87, 134, 4, 28, "Output"], Cell[3052, 93, 15461, 829, 468, 6546, 679, "GraphicsData", "PostScript", \ "Graphics"], Cell[18516, 924, 134, 4, 28, "Output"], Cell[18653, 930, 134, 4, 28, "Output"], Cell[18790, 936, 13693, 801, 471, 6556, 682, "GraphicsData", "PostScript", \ "Graphics"], Cell[32486, 1739, 134, 4, 28, "Output"] }, Open ]] } ] *) (* End of internal cache information *)