(* 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[ 62690, 2773] NotebookOptionsPosition[ 61642, 2739] NotebookOutlinePosition[ 62126, 2757] CellTagsIndexPosition[ 62083, 2754] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"F2", " ", "computation"}], ";", " ", RowBox[{"coordinates", " ", "and", " ", "radii", " ", "from", " ", RowBox[{"F2_F2", ".", "exe"}], " ", "06.01", ".2012"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "1.16390"}], "}"}], ",", RowBox[{"{", RowBox[{"1.31538", ",", "0.00000", ",", "0.00000", ",", "0.15148"}], "}"}], ",", RowBox[{"{", RowBox[{"1.49928", ",", RowBox[{"-", "0.92203"}], ",", "0.00000", ",", "0.78871"}], "}"}], ",", RowBox[{"{", RowBox[{"1.49928", ",", "0.46101", ",", RowBox[{"-", "0.79850"}], ",", "0.78871"}], "}"}], ",", RowBox[{"{", RowBox[{"1.49928", ",", "0.46101", ",", "0.79850", ",", "0.78871"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.31538"}], ",", "0.00000", ",", "0.00000", ",", "0.15148"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.49928"}], ",", "0.92203", ",", "0.00000", ",", "0.78871"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.49928"}], ",", RowBox[{"-", "0.46101"}], ",", RowBox[{"-", "0.79850"}], ",", "0.78871"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.49928"}], ",", RowBox[{"-", "0.46101"}], ",", "0.79850", ",", "0.78871"}], "}"}]}], "}"}]}], ";"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"r", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], RowBox[{"(*", " ", RowBox[{"yz", " ", "plane"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot1", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "9", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}]}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "0"}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "6", "]"}], "]"}], ",", "0"}], "}"}], ",", "0.08"}], "]"}]}], "}"}], " ", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"plot1", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"Axes", " ", "->", " ", "True"}], ",", RowBox[{"GridLines", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .8 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.2 0.4 0.2 [ [.1 -0.0125 -6 -9 ] [.1 -0.0125 6 0 ] [.3 -0.0125 -6 -9 ] [.3 -0.0125 6 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.7 -0.0125 -3 -9 ] [.7 -0.0125 3 0 ] [.9 -0.0125 -3 -9 ] [.9 -0.0125 3 0 ] [ 0 0 -0.125 0 ] [-0.0125 .1 -24 -4.5 ] [-0.0125 .1 0 4.5 ] [-0.0125 .2 -12 -4.5 ] [-0.0125 .2 0 4.5 ] [-0.0125 .3 -24 -4.5 ] [-0.0125 .3 0 4.5 ] [-0.0125 .4 -6 -4.5 ] [-0.0125 .4 0 4.5 ] [-0.0125 .5 -18 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .6 -6 -4.5 ] [-0.0125 .6 0 4.5 ] [-0.0125 .7 -18 -4.5 ] [-0.0125 .7 0 4.5 ] [-0.0125 .8 -6 -4.5 ] [-0.0125 .8 0 4.5 ] [ 0 0 -0.125 0 ] [ 0 .8 .125 0 ] [ 1 0 .125 0 ] [ 0 0 0 0 ] [ 1 .8 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 .5 r .25 Mabswid [ ] 0 setdash .1 0 m .1 .8 L s .3 0 m .3 .8 L s .5 0 m .5 .8 L s .7 0 m .7 .8 L s .9 0 m .9 .8 L s 0 .1 m 1 .1 L s 0 .2 m 1 .2 L s 0 .3 m 1 .3 L s 0 .4 m 1 .4 L s 0 .5 m 1 .5 L s 0 .6 m 1 .6 L s 0 .7 m 1 .7 L s 0 g .1 0 m .1 .00625 L s [(-2)] .1 -0.0125 0 1 Mshowa .3 0 m .3 .00625 L s [(-1)] .3 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .7 0 m .7 .00625 L s [(1)] .7 -0.0125 0 1 Mshowa .9 0 m .9 .00625 L s [(2)] .9 -0.0125 0 1 Mshowa .125 Mabswid .14 0 m .14 .00375 L s .18 0 m .18 .00375 L s .22 0 m .22 .00375 L s .26 0 m .26 .00375 L s .34 0 m .34 .00375 L s .38 0 m .38 .00375 L s .42 0 m .42 .00375 L s .46 0 m .46 .00375 L s .54 0 m .54 .00375 L s .58 0 m .58 .00375 L s .62 0 m .62 .00375 L s .66 0 m .66 .00375 L s .74 0 m .74 .00375 L s .78 0 m .78 .00375 L s .82 0 m .82 .00375 L s .86 0 m .86 .00375 L s .06 0 m .06 .00375 L s .02 0 m .02 .00375 L s .94 0 m .94 .00375 L s .98 0 m .98 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .1 m .00625 .1 L s [(-1.5)] -0.0125 .1 1 0 Mshowa 0 .2 m .00625 .2 L s [(-1)] -0.0125 .2 1 0 Mshowa 0 .3 m .00625 .3 L s [(-0.5)] -0.0125 .3 1 0 Mshowa 0 .4 m .00625 .4 L s [(0)] -0.0125 .4 1 0 Mshowa 0 .5 m .00625 .5 L s [(0.5)] -0.0125 .5 1 0 Mshowa 0 .6 m .00625 .6 L s [(1)] -0.0125 .6 1 0 Mshowa 0 .7 m .00625 .7 L s [(1.5)] -0.0125 .7 1 0 Mshowa 0 .8 m .00625 .8 L s [(2)] -0.0125 .8 1 0 Mshowa .125 Mabswid 0 .02 m .00375 .02 L s 0 .04 m .00375 .04 L s 0 .06 m .00375 .06 L s 0 .08 m .00375 .08 L s 0 .12 m .00375 .12 L s 0 .14 m .00375 .14 L s 0 .16 m .00375 .16 L s 0 .18 m .00375 .18 L s 0 .22 m .00375 .22 L s 0 .24 m .00375 .24 L s 0 .26 m .00375 .26 L s 0 .28 m .00375 .28 L s 0 .32 m .00375 .32 L s 0 .34 m .00375 .34 L s 0 .36 m .00375 .36 L s 0 .38 m .00375 .38 L s 0 .42 m .00375 .42 L s 0 .44 m .00375 .44 L s 0 .46 m .00375 .46 L s 0 .48 m .00375 .48 L s 0 .52 m .00375 .52 L s 0 .54 m .00375 .54 L s 0 .56 m .00375 .56 L s 0 .58 m .00375 .58 L s 0 .62 m .00375 .62 L s 0 .64 m .00375 .64 L s 0 .66 m .00375 .66 L s 0 .68 m .00375 .68 L s 0 .72 m .00375 .72 L s 0 .74 m .00375 .74 L s 0 .76 m .00375 .76 L s 0 .78 m .00375 .78 L s .25 Mabswid 0 0 m 0 .8 L s .1 .79375 m .1 .8 L s .3 .79375 m .3 .8 L s .5 .79375 m .5 .8 L s .7 .79375 m .7 .8 L s .9 .79375 m .9 .8 L s .125 Mabswid .14 .79625 m .14 .8 L s .18 .79625 m .18 .8 L s .22 .79625 m .22 .8 L s .26 .79625 m .26 .8 L s .34 .79625 m .34 .8 L s .38 .79625 m .38 .8 L s .42 .79625 m .42 .8 L s .46 .79625 m .46 .8 L s .54 .79625 m .54 .8 L s .58 .79625 m .58 .8 L s .62 .79625 m .62 .8 L s .66 .79625 m .66 .8 L s .74 .79625 m .74 .8 L s .78 .79625 m .78 .8 L s .82 .79625 m .82 .8 L s .86 .79625 m .86 .8 L s .06 .79625 m .06 .8 L s .02 .79625 m .02 .8 L s .94 .79625 m .94 .8 L s .98 .79625 m .98 .8 L s .25 Mabswid 0 .8 m 1 .8 L s .99375 0 m 1 0 L s .99375 .1 m 1 .1 L s .99375 .2 m 1 .2 L s .99375 .3 m 1 .3 L s .99375 .4 m 1 .4 L s .99375 .5 m 1 .5 L s .99375 .6 m 1 .6 L s .99375 .7 m 1 .7 L s .125 Mabswid .99625 .02 m 1 .02 L s .99625 .04 m 1 .04 L s .99625 .06 m 1 .06 L s .99625 .08 m 1 .08 L s .99625 .12 m 1 .12 L s .99625 .14 m 1 .14 L s .99625 .16 m 1 .16 L s .99625 .18 m 1 .18 L s .99625 .22 m 1 .22 L s .99625 .24 m 1 .24 L s .99625 .26 m 1 .26 L s .99625 .28 m 1 .28 L s .99625 .32 m 1 .32 L s .99625 .34 m 1 .34 L s .99625 .36 m 1 .36 L s .99625 .38 m 1 .38 L s .99625 .42 m 1 .42 L s .99625 .44 m 1 .44 L s .99625 .46 m 1 .46 L s .99625 .48 m 1 .48 L s .99625 .52 m 1 .52 L s .99625 .54 m 1 .54 L s .99625 .56 m 1 .56 L s .99625 .58 m 1 .58 L s .99625 .62 m 1 .62 L s .99625 .64 m 1 .64 L s .99625 .66 m 1 .66 L s .99625 .68 m 1 .68 L s .99625 .72 m 1 .72 L s .99625 .74 m 1 .74 L s .99625 .76 m 1 .76 L s .99625 .78 m 1 .78 L s .25 Mabswid 1 0 m 1 .8 L s 0 .4 m 1 .4 L s .5 0 m .5 .8 L s 0 0 m 1 0 L 1 .8 L 0 .8 L closepath clip newpath .5 Mabswid newpath .5 .4 .23278 0 365.73 arc s newpath .5 .4 .0303 0 365.73 arc s newpath .6597 .3078 .15774 0 365.73 arc s newpath .5 .21559 .15774 0 365.73 arc s newpath .3403 .4922 .15774 0 365.73 arc s newpath .6597 .4922 .15774 0 365.73 arc s newpath .5 .4 .0303 0 365.73 arc s newpath .5 .58441 .15774 0 365.73 arc s newpath .3403 .3078 .15774 0 365.73 arc s .5 .4 m .5 .4 .016 0 365.73 arc F .5 .4 m .5 .4 .016 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{378.875, 303.125}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnelyHEUSx9saXbZ8Sj7kA2YsYWSwsQHjBQNrG3sPEcQ+w4aD3Qj4sLEb rD8tH/yF4Cn0LnoUP8qsuro7s7vnV6XsUy15JtAwruqqyvzXlZWZlf23V69/ +ue/Xr3++cdXk7/+8uo/P/38438nf/n3LwdJo1NRdOp/B38PJ1H8expF2df0 4L/pr/FXnHL472fuf8vRdP91VPy8jvan0+dZ9nQ/Kj6wG+29nT512YvR271d zdh7e0ip5+E2byeUJU+NoqRqlxP9KU2LSx604/6VcLAU7b3ec7/iv73d5Pnv 4PkXUO920mT+cZe5P41eQhVP8/ztarP7rx1/1OpLqHorafVJKSv+LLjvZfdY Vnvytx/t70+/8RZZKhZJKXhWnWCBOmnR/et2acy83Yt2pba4qx2aWW2uE9Ia n2edtOsazD+e62h9/kW4icIQmRl+L0roKAGLSYXZaNuflns8fvQl17pln1SW 37fi/7k5+/ekiVspKck0nmb0zqStzdMw7cyAaGmS5vr8lH9MTCDtpTHthfG5 iZmGN1APpREN4bJzGgZMg9tsbvfQ8lhaGxD3cxrmNAyNhvmMnNMwp6EhDe5g dyYu+bxuy5Xm4Vfx93JcYgmoXpDcr431tTU3H8XfS3FJklBXJfdxz/3zafzt il6EWs5J7uc90/VAcN+AWi5K7qc903VPELkCtaxL7ic90/WRILIJtVyR3Hs9 03UXyhKF1yDtbl1aK60YO9DydSPVO8Y22lpF7kg9VMt1ybXS1VYvb0vL70Mt NyX3Ts90bUFZovA9SNvqmdYJjNwS1S63Dl3LLiXW56D6OC2T5u3ujVzCjL6O dlQrd2MoS3ySLmZcg+PVND+vgF1x32UV6DRToZJq0MoeDSoafN6ubYG9TLBI VdDZE+mG9Lura5T25hv3tw1pW5D2W/ydJdl15KfTYVQwSrzebzKMaIJ9AGnb kHbL2EYe55U0P69JPw04Lzfg6SaUvWPk82YDnvIa+g666gaU/dDI6o0abDVZ e2m/J7mA6L/eM60kh5CURfRv9kwrSXUfdU1rJenPSiEhfM3YxlioaobmVSj7 sZH+q8Y22up5Oh3dM9J/ZaC0Utrlnmm9DGXvH3NaKW2jZ1pJy/BJ17RWWqnW oeUHRqrXjW20tVL1QWtbPX8Jyj400n9pTmuunsVC2sHflbgc9bFb9a/GKQs9 UZX7XIDiek6iDWlHckkgPq+Tphs+nsXfTjtM82pZckmS3pLcVch1elSnD39u odW7Xn0rAC1CLgF+Vuqjo9pEcs9D7gVoYyQlnkJunXXtaymzYuRJB0JYg0Oa duJpSUp829JIegLPEXeE+iWhZgy5Oj5ojBJ3K1KCbDF1uPtSajxj5Il2fUfr jTiFVlsqcR5aOw3PfdkSn4+Fz7NGPp0kNhJk4iUxse2UntPcM1KCTh3E8Rmh qi0+H0mN1B7RvyklloR+6sXzwueilCB9xTloV1custXV4fNzH4UGjh3Vbn0n aXtd+CRaiDtdwx5ZuPPuCJ/5ZpaBp2vCE53Oy3zGH0cGKXGIRVp+yYxYZ9N4 KGVIjCVm1TRHsgV1Ki1Buv2ReoiWibAo2WxAk/hpxWNDOCGBhXj3CkWuFlq+ CI/wkaUZHveFGlJtnPXx5Eqsya+wIVyfozFDHCvSbfFJSgcrx7okk2gVFplK 890rhhAKYeUP47EuYwzNaVZDEh01SE9HcNHUCUtetLeUAB754CfgwtpIBi4b mnmzldXGQFpN0sASWjo5wtJMGN/LUgvlEkZh7XJFjFw1P7hyo3S4Jea5HUg7 HX+n2+Js7jlIOwtp16SWNWO738ffadLZHCfZJ2QvtBrRwh4b4ZFAmwpJft5R ZChLbdDoCFudeHRkm0DeINkHbiuQRtuC9R4JlSXc1oC+sGUxjFve6GnFjax+ ZKEk3KgNchYgjOgMSWWpb9rCzbr1k+6JjNM0PlTPQS4ThAKNlInUYsUjbHhv hgcZ68kBgfBQYZ5qseKxJbXQDkt4hJ0rjg6PBUij8UYo0FigstRGqxh5T8qk /3wPnktWl8XCcwcfMkxbgUgm/1IhLa0WT87kJrcNz42FYfsACbvq+RfZ+EOC NPFLi/FdhrUJ+3XmRyX2HbRkiSQGafaXAfNxHHZra8Yx6cjHhg6P/+igSbzT SYxwI+lsDM/R/K3D+8T4nJ5bSKVCPevluHRuqU5Ll3yWpZ9WOC7VR33cJe/W 8ZO53uWfO/iQWZdYHUHaJ1wl7WfWWWjfz6x8r6Y9mn8u66vmzHO9ZBeyIlBn U7Oun7RZkURCc4IwsJal58geWHuUtIiRdX238tkE32Wgz7qDd4kRrY+U1jZG 1A9LQF+XGFmlM6KVxtbDlIt8WvwXf2hMEC7hMfsG6AyfAbrEhXiidakNXKje EdDUJS7WkxzNATpghXChOmiP6xwX767dBA3SSDyoiAaNEqqX/MWsuoU6O7gf l6XCcxlvdFppAwv1rmiCQJ154teSFf39IjaLJMN8uZCW/Y7y93c1mzUdb0h9 TSrGdpnU5+IPGcceVOewDFRiTTk69rL0E84eWZEflAZb+iG28uhkzZNtoB+2 NK0hW1Tcqs63bzBkfMi3kj1LfikeZmgHpeJWZursD1a2yDZfPqab2NLRbDVL 1Rl6xFZ5k4mf91+bONZskQuNY8slWdyb4k/fnGyXgE+5OTpmVlKCSvfIMwkm d+M8anjlvAIc5PBzX+Cg2wobUlFB2rFeXJ1FhEOrJofFxtfTCYqttNl8WjbW ySPG6de9eucW8RCeOYxqpq/jK+1/dNXqOhv/0fX1TUi7F38vJD1uK0E1fxN/ Z0nk6DJKHV0S7haAneUUzJo3r6m3SVtHpwaaCR9Lz5OdhJz56ARDFJinBgS0 zc7Fda7cN0GI5oZG2iErFPnvtYvQTMTd1aMbQe3gQ1qjCaR1uXdSe6R58cYp chyTIZp8FE8Ox+SVSTf3h8DxGNJIG+uN9HR0HFc6Vln5JP9DJ+a5JKu3IMkl RAHxORbemvUs2UfI/uA9rbkkq4jbhOO2xrKVY9IhfCAcW0/GtJcQBUPgmNrY SvstS0s/VrXpcWKfzD23mX2rFWEI7BNbZIV1q+7F+CnyJJwwEF63U1cRodw3 JDSNqWwekuzjntCb3iQ3jxkXEgMXpSJX5ZI08QaICBPbTKFohcQR7JI0DqG/ +2Yw8IpJC1LlyAerlek626CV/QWpmwR4pV95oqmmsR0X5OFR8eH8HIzYFFx7 ENTEg9Lcv0gaKnGn3eu3fdyEIkSb5qawZHUQ1J0D4pLIy2ciuXRi3QxjQYu2 +5fXT6U0ftpHgJ7blJZPQwmNY5rrqPhzLSU7X1WWT2Bd8VVE9wtWhCYCsS07 Lj13Vci0eoLd8TF2pSJCG76K6AYU+8dFfNu5S8BCXJJz4Y6Py42KcF3yVUTX Ca3uhKQANKHn3ZRpOpONKOxUo/Ul3M14sq4H0KON5wJXQ/d8ybVH91CypdAW WGdHJ+y020lkIcRUgZvucrnPhYqwOUeMEQy6+9AwAafRNcj+2ZYnFwneGseC JgMBdx/GyDQVcMOeSOE0jc9EEFuRJPGS7i136XFK7j1WdMmuplIAcVcS1ErS d0mIiaChMKBUlhjsElDrBWUC1OtWGd/8Tgbimm/oUryHcLthmtvCaAzPWS/G EkbkcqBXakpr2qLgVgqtFEF9YdyIPuJjDPW1hZuVBsKNvISoPuuVDCpLEXcI S2v/m7CsdGmlOjVaH4U/0pg0Xjdfl0TtfgZthK/Lh1c67yiqKLNM4DlazIku wo1CYZVHmQ9BFTYol15gQ+OIKLWamuvMXa+OzbDuEoKP4DnVPzhO3EpXlicp rVhfGDeij/ho6wol6WxJ/KI9nXD7Ip0r+ecyXLL/O35W5deC/CrV/4URM6KN eGjrym3bmD3G+jJQzhSBooYogh4BlUi6fHA57PZ95q1U07OMvcjQaZYg+kOp ePohgKKibpCiKPqxmSHwsEAWmQKCPNGsrmZlA1L8IQdcAkaDdS4JFhoI5AmU IObLDusWzgvRu2Z9zhzz+ddIW57vDSzX2lp/YMkwAa8sK+d+78PG82gkcBzt PJpxyrIuL90syTNaDDVSnC6CReJ6H6tyE/GIaK62zQPeiobb4HV2tb3BE/Vt CUV9CJMl0WepiBaJykMVIfs4vCgyx+TIcqRHZEKBVlI90BAeQz0sE4JzNc3A VYVxqMxjpQzsTdF81Tf/hqpe9to0vOGmrZYMN5vcTkjrrtVSpLXQmjdUwwaZ LTUsNeFBqOqNI1WE+mMBssy5JiV1f7Cipvs0nUi6xIoso7Q6e429Hmm/lrHX eyagyM6EoyJPZv9mMSradi7QWwyzpvJLFdE7L2MvKpqVrMB5fWQMEI6Vkebe LV5lHUH4obZcZPtyAD+qfN1XEb0EPLsIVarcFafrKl16BF0jwn1w3QHCoywo uR2sy1yN33NqRm9CVz+6DBhyQ1AKu935vZTCmnnyA3MVev3tcv6d/cEQ9r+8 XYQh91ITr9fldShCwZ36cbi0+uCWHJq0gveFTGXH7IO7IIWJtsH44N6CyTud 8bstLTpeTVS5tvRDoq5CSuKMyk3e+VARn3Y8992q6BbIZcHA1TxmznUv1JsK V6WioXrp01UWR/qakO4/TZvubaxIRWuCCw23Vi9vGBBqctnHpTntPx1wJgwO adzXpCLatYdw/+kdv/41v/xnYv/du+05wBu9/d7Vdq3RSwCGelfbyvEAb+HX 5JjaO9mRFqzxQ05ONI3jHVHmaAJ0HfM4Rf2G8GoHLDJeqKpOa4n/4g8JSe9Q TK9DWMmmT4uRlwYbqa3P8FzDjdzXR/CtwYVxPMKgoSeUraHGQh165NpKKsWB hUoeCwODiwA9rMDW4XDkD08mWycgynpG8glmL/7z3g5NeAzbKcnpca00olNm aaR2acg+srdaeKTd2vzP33HSQuAJMiK38Sac4/SGoPmbk5rhYn3Tlv9tZIwV 7RbWN23N39Lma3dYGFnf9uf1xq2J0RDe9jeG52g/a/utkf63aR7eRqtvjZy/ W7TFUeJ5v6z19boN3y87MXJTZ55Y6z6Jbxe2jqw+3iBtHYld8tnkLeGEApXt +y3h79474StxXKKVrMW0QxIed9ORn0/zsG8Vfu2bmlVUJz1BVi8pRqyXgzSk J631tKhbMaizrVkPuv7LQcU0qo8O3YQMlbViZFU21JkmVpUzYUT00wgMX5wM l7ViZFW51cHIamOgjUN9xWlBsl4znUgt4Uvlw8dDL8eRSGPFQwNshy9jvwH6 IuCD8ShEa4nyn0ouGNa3nxBctJRQN9H0JDCpbJcQZpbm+HVmu3tvdQh0jNuq DBCaCFSCENQrMYQlyXDkW0l3qUwYuWp+cOVG6cBL/Ep2IC2OevQmDWQ9m3sO 0s5C2lWphXKp3e/j71Hz3iafRPLQo75TqZX8Oii2LTn5axhxKkG9TT6HFEQ7 39uZad/5eaU4WR1cSC4lnz7CiHiimFFkcrOWteJG3kd0uZVwy16MWAU39Wyy onVBSugv8l6g5wgZQuGylKCb5XU2Zr/f0uEca3hwyiXeiU99tzy5sBAKfleX 5nhYXH7iP1oN9BYxCSBENWGk90NpZSI8qBaKglEHj4cwlsMouDHqzokk7ZAf mfcWvauFVkxCgcYWRUmZQcF7NCZz+QV4jlDYlJqj4oVPWsjKN6rTD0lPpBTQ dYRiNo2VEnOvfy5lrPw6KWbJN2o3pDdJtiKeNDIKRTurM5Ip9hqNI+JOr9mr lOVd23Xs5+5QH84xraFt8f5YqCGOaQ+mXnQS8nKxltKhy+WS5BuWspQW3Q0o cmId3jV6JdlIiPd16WO3pmzKL5dGKxhxoucJipBZh5MnQgPZu4gTjYRDR+f3 JDcs1WkbOvq/aYmnb4szi1Y2mrMuidQjY8klPIgnVbc8tfDk3S2eSsvkQUOc 6FgnldqW5HqlzRlODj7PIaPOFvCdlilmkLfnsvBOJ3C9A0p6g4u5xrPPy5ZG l6vHrUnJisvvV6Ez0o7ketWJrt4/t0kpjcxLcUmyGt+XXJo5rSJYSdIiGZRO AHNaq8nxdNYJn1FMtHrXs6OisM5iRfWET4mleUTyao89TzIF0XWcaCUb9uWe aSWpk+iiHYBucXZJa1jDpWmk9SQd1YmjtdJKFdazahrFLiAdcpcrlZVWkq3o Dn6XPU9xEQjDIdAatqxoGhknyWrUJa1hS5mmWS+PHkZrogePTyBoqEzLyAX8 hvfviRrr7TJygyB3g8M4zs4eeUtTco5ufGOemg57YGgaeTCQx0kd9jIDJV92 /93VNUp7MzHNbUMaXVP/Lf4e+VtueDGZmA17fmka+eyRF9dhgGY6lrzV7TQA arUohXcQry6j0q5H9OetX5k3bovdEnaRpC6grupnkQ07+GkaeZiRk2GXtGpU UqJQ406Sh06XdIW9v2hTouW9Iq2VJoEGpiK61DBDsX27FPM0tBAJJvoydDJr d9mjGp+FBFE1OdPLgrukiw6VVvNh37RqKAyi5qLkkkGyS7rcZTWnxiR1uIb3 JMNhl3Q9FkTIiWpVcskI1P6K8VX87V4o8bWxRFtrwkso+6LnvpjTMKehMxoq zcMmLc9n5JyGOQ0GGuYzck5DgIYo2F6YhvBzeRrknsR+UfkYJTH9SPFGaSQ8 ztP4HseQ6LOmLeaGjHrByzAxx2kYEk9DSjuJ4yR/o8SNlP3Uby3/Vu3MuBub OPb3k0rc94/up65PBcOAxBzNP+p5w7t75B/JI+73r+Hf0an/A2S+Ca8=\ \>"],ImageRangeCache->{{{77.5, 379.563}, {636.563, 395.063}} -> {-4.29383, \ 4.84779, 0.0143231, 0.0143231}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"xy", " ", "plane"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"plot2", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "9", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}]}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "0"}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "6", "]"}], "]"}], ",", "0"}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.006", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "6", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "0"}], "}"}]}], "}"}], "]"}]}], " ", "}"}]}], "}"}], " ", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"plot2", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"Axes", " ", "->", " ", "True"}], ",", RowBox[{"GridLines", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], RowBox[{"(*", " ", RowBox[{"xz", " ", "plane"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"plot3", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "9", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}]}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "6", "]"}], "]"}], ",", "0"}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "0"}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.006", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "6", "]"}], "]"}], ",", "0"}], "}"}]}], "}"}], "]"}]}], " ", "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"plot3", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"Axes", " ", "->", " ", "True"}], ",", RowBox[{"GridLines", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .8 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.2 0.4 0.2 [ [.1 -0.0125 -6 -9 ] [.1 -0.0125 6 0 ] [.3 -0.0125 -6 -9 ] [.3 -0.0125 6 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.7 -0.0125 -3 -9 ] [.7 -0.0125 3 0 ] [.9 -0.0125 -3 -9 ] [.9 -0.0125 3 0 ] [ 0 0 -0.125 0 ] [-0.0125 .1 -24 -4.5 ] [-0.0125 .1 0 4.5 ] [-0.0125 .2 -12 -4.5 ] [-0.0125 .2 0 4.5 ] [-0.0125 .3 -24 -4.5 ] [-0.0125 .3 0 4.5 ] [-0.0125 .4 -6 -4.5 ] [-0.0125 .4 0 4.5 ] [-0.0125 .5 -18 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .6 -6 -4.5 ] [-0.0125 .6 0 4.5 ] [-0.0125 .7 -18 -4.5 ] [-0.0125 .7 0 4.5 ] [-0.0125 .8 -6 -4.5 ] [-0.0125 .8 0 4.5 ] [ 0 0 -0.125 0 ] [ 0 .8 .125 0 ] [ 1 0 .125 0 ] [ 0 0 0 0 ] [ 1 .8 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 .5 r .25 Mabswid [ ] 0 setdash .1 0 m .1 .8 L s .3 0 m .3 .8 L s .5 0 m .5 .8 L s .7 0 m .7 .8 L s .9 0 m .9 .8 L s 0 .1 m 1 .1 L s 0 .2 m 1 .2 L s 0 .3 m 1 .3 L s 0 .4 m 1 .4 L s 0 .5 m 1 .5 L s 0 .6 m 1 .6 L s 0 .7 m 1 .7 L s 0 g .1 0 m .1 .00625 L s [(-2)] .1 -0.0125 0 1 Mshowa .3 0 m .3 .00625 L s [(-1)] .3 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .7 0 m .7 .00625 L s [(1)] .7 -0.0125 0 1 Mshowa .9 0 m .9 .00625 L s [(2)] .9 -0.0125 0 1 Mshowa .125 Mabswid .14 0 m .14 .00375 L s .18 0 m .18 .00375 L s .22 0 m .22 .00375 L s .26 0 m .26 .00375 L s .34 0 m .34 .00375 L s .38 0 m .38 .00375 L s .42 0 m .42 .00375 L s .46 0 m .46 .00375 L s .54 0 m .54 .00375 L s .58 0 m .58 .00375 L s .62 0 m .62 .00375 L s .66 0 m .66 .00375 L s .74 0 m .74 .00375 L s .78 0 m .78 .00375 L s .82 0 m .82 .00375 L s .86 0 m .86 .00375 L s .06 0 m .06 .00375 L s .02 0 m .02 .00375 L s .94 0 m .94 .00375 L s .98 0 m .98 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .1 m .00625 .1 L s [(-1.5)] -0.0125 .1 1 0 Mshowa 0 .2 m .00625 .2 L s [(-1)] -0.0125 .2 1 0 Mshowa 0 .3 m .00625 .3 L s [(-0.5)] -0.0125 .3 1 0 Mshowa 0 .4 m .00625 .4 L s [(0)] -0.0125 .4 1 0 Mshowa 0 .5 m .00625 .5 L s [(0.5)] -0.0125 .5 1 0 Mshowa 0 .6 m .00625 .6 L s [(1)] -0.0125 .6 1 0 Mshowa 0 .7 m .00625 .7 L s [(1.5)] -0.0125 .7 1 0 Mshowa 0 .8 m .00625 .8 L s [(2)] -0.0125 .8 1 0 Mshowa .125 Mabswid 0 .02 m .00375 .02 L s 0 .04 m .00375 .04 L s 0 .06 m .00375 .06 L s 0 .08 m .00375 .08 L s 0 .12 m .00375 .12 L s 0 .14 m .00375 .14 L s 0 .16 m .00375 .16 L s 0 .18 m .00375 .18 L s 0 .22 m .00375 .22 L s 0 .24 m .00375 .24 L s 0 .26 m .00375 .26 L s 0 .28 m .00375 .28 L s 0 .32 m .00375 .32 L s 0 .34 m .00375 .34 L s 0 .36 m .00375 .36 L s 0 .38 m .00375 .38 L s 0 .42 m .00375 .42 L s 0 .44 m .00375 .44 L s 0 .46 m .00375 .46 L s 0 .48 m .00375 .48 L s 0 .52 m .00375 .52 L s 0 .54 m .00375 .54 L s 0 .56 m .00375 .56 L s 0 .58 m .00375 .58 L s 0 .62 m .00375 .62 L s 0 .64 m .00375 .64 L s 0 .66 m .00375 .66 L s 0 .68 m .00375 .68 L s 0 .72 m .00375 .72 L s 0 .74 m .00375 .74 L s 0 .76 m .00375 .76 L s 0 .78 m .00375 .78 L s .25 Mabswid 0 0 m 0 .8 L s .1 .79375 m .1 .8 L s .3 .79375 m .3 .8 L s .5 .79375 m .5 .8 L s .7 .79375 m .7 .8 L s .9 .79375 m .9 .8 L s .125 Mabswid .14 .79625 m .14 .8 L s .18 .79625 m .18 .8 L s .22 .79625 m .22 .8 L s .26 .79625 m .26 .8 L s .34 .79625 m .34 .8 L s .38 .79625 m .38 .8 L s .42 .79625 m .42 .8 L s .46 .79625 m .46 .8 L s .54 .79625 m .54 .8 L s .58 .79625 m .58 .8 L s .62 .79625 m .62 .8 L s .66 .79625 m .66 .8 L s .74 .79625 m .74 .8 L s .78 .79625 m .78 .8 L s .82 .79625 m .82 .8 L s .86 .79625 m .86 .8 L s .06 .79625 m .06 .8 L s .02 .79625 m .02 .8 L s .94 .79625 m .94 .8 L s .98 .79625 m .98 .8 L s .25 Mabswid 0 .8 m 1 .8 L s .99375 0 m 1 0 L s .99375 .1 m 1 .1 L s .99375 .2 m 1 .2 L s .99375 .3 m 1 .3 L s .99375 .4 m 1 .4 L s .99375 .5 m 1 .5 L s .99375 .6 m 1 .6 L s .99375 .7 m 1 .7 L s .125 Mabswid .99625 .02 m 1 .02 L s .99625 .04 m 1 .04 L s .99625 .06 m 1 .06 L s .99625 .08 m 1 .08 L s .99625 .12 m 1 .12 L s .99625 .14 m 1 .14 L s .99625 .16 m 1 .16 L s .99625 .18 m 1 .18 L s .99625 .22 m 1 .22 L s .99625 .24 m 1 .24 L s .99625 .26 m 1 .26 L s .99625 .28 m 1 .28 L s .99625 .32 m 1 .32 L s .99625 .34 m 1 .34 L s .99625 .36 m 1 .36 L s .99625 .38 m 1 .38 L s .99625 .42 m 1 .42 L s .99625 .44 m 1 .44 L s .99625 .46 m 1 .46 L s .99625 .48 m 1 .48 L s .99625 .52 m 1 .52 L s .99625 .54 m 1 .54 L s .99625 .56 m 1 .56 L s .99625 .58 m 1 .58 L s .99625 .62 m 1 .62 L s .99625 .64 m 1 .64 L s .99625 .66 m 1 .66 L s .99625 .68 m 1 .68 L s .99625 .72 m 1 .72 L s .99625 .74 m 1 .74 L s .99625 .76 m 1 .76 L s .99625 .78 m 1 .78 L s .25 Mabswid 1 0 m 1 .8 L s 0 .4 m 1 .4 L s .5 0 m .5 .8 L s 0 0 m 1 0 L 1 .8 L 0 .8 L closepath clip newpath .5 Mabswid newpath .5 .4 .23278 0 365.73 arc s newpath .76308 .4 .0303 0 365.73 arc s newpath .20014 .3078 .15774 0 365.73 arc s newpath .79986 .21559 .15774 0 365.73 arc s newpath .79986 .4922 .15774 0 365.73 arc s newpath .79986 .4922 .15774 0 365.73 arc s newpath .23692 .4 .0303 0 365.73 arc s newpath .20014 .58441 .15774 0 365.73 arc s newpath .20014 .3078 .15774 0 365.73 arc s .76308 .4 m .76308 .4 .016 0 365.73 arc F .23692 .4 m .23692 .4 .016 0 365.73 arc F .006 w .23692 .4 m .76308 .4 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{528.813, 423}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnVuT3USSx4Xdbrt9v7Tvhm6DjS/4jrHBC2Mz3DwzMMDMAAMYd9uOjYCI nd2JWT/sW3+OifD7foz+KHwI9mX3pddKSVk6Or8q5ZFKOmpzFPRBzroo/1n3 rKyszx49/fFf//bo6U9PHi1/8o9Hf//xpyf/ufzxf/zjOWnrS0myZX+SvPTf y0n6vpEkxc/G8/+yn4PpT0qemPC5/G8+2Vh/mow+T5P1jY2HRfDGejIa4X7y 7OeN7yV4Lvn52X0X8OznlXCqH8LfvJZx9oX8b2uSZS0hyeOclqZ8/h351wP5 3ZY8e/osybE9T5PFX4X4K5DvjeyTX5aiS+D6RvIIsvi+jO++++z6U8FHX12F rK9nX/1dJSh9tsjvvEQrcs/+1pP19Y1vvUm2jSbJOXgwOcOKO/ui/Otapc78 /Cy5r7mlRS3SdAJ+/s88xx+KQrovHyxHTyj+SvgTI1VkrPpVZe0YmMsyLGrb +gZFXeVcrzduY50QXskIz59fMhZfyaFkXUNWYNuBdgBo+43xhk6b4cjL/KVZ nZjhsNeJK0B7BLTVFvGumnlYg7zXjDxQvLUZDzMeNg8Pkk0fX76sXxsQ+hkP Mx5mPMx48PEw6x1nPMx4mPHwq+PhbPq7mMY6Z+Gmk35yKf2dT2Mt6ttpiNd3 33ky/Z1LYy3r28sDKLNjKofzytfxAfC1qNxcVQ6PDIAv0W2KIvuWvi0OgK/9 ys0dfTs4AL72aOn9Rkt07wD42qVS+ghS7BoAhwvK4X19GwJf25WbT/VtwcJX J/39PMT7o/K1HVL03fPPKTd/hhRzAyjRLcrh1/o2Hb62jcRL/9LnOw1LKmFr 2Q5lpzzNjcR7/jxQclJmpXtOXLz0eViJ1480sngFfUXrS5dfXtWvPK7wkD7l Wpn1BjsTz7Z+nmMedv/Z1rwkK/uotP/Uhv8VKKnHXLeulMDsyJOV97wz1qq7 zhvFrjX1hm04f8hV/XGgsV6uQVAMYfnGfp7TRj41+B/JM++dpZDXkh+A9iPQ zqe/cznJbnmwkGMcMfV4uh67EjwA2pZg2jWI59JeLMm54LVsn7AAct4RGdP3 QNtqxLQV0l4ATGW7h56K6jug0XhIsOYg7fkSrNh947dA22bkdRukPdchr38F 2ryRV+rZXh8or1Qfz3bI6zdAo5kv8UpdwpkOef0q/ZXueKeRwwXI5bUOOfwL 0KLyKsHT4nAnpF1WruJLk9Y8tIolXndB2tMdlvyfgLb7BeR1N6Rd7pDXL4G2 x8jrHki7NFBe90LaVzrk9QugkW6NeN0HaV/ukNfPgbbvBeSVbOBOdcjrH4G2 PyavrUerNhySpeBx5Sq+ND8D2oEWvJ7ssOQ/BRpp/Dc7rwch7YkOef0D0A71 zKvMwI+lsc72wPUhSHu8AdcST3Zcj+nbkpH/3wON9tW65F9KShRIZ/TtZA/8 L0LaYw34lzSytrrky7FjJIch7dEqEu+IUtnzlTfa8yWufwe0wy24Pqyc2uVP 9fAtLZOwDLtDMiZ/A5J9Kv87+hYes11+94EWLsX4/O9Rqf8WUoTn83GQHPGl nRBJZZ9a3oh/0QGJ7c29AXBNWoZPlH9a/8sscSENJR3KDg293QLdUV/LmhDd DkUS3gGXlizbljQvOKCh1321vkdM84qEVpWk+fw4/ZVoxMMRDaWTO32jI033 l4qY0EkrkhnMCUh7XEPPDwDdVkUS3r//jYYuQ85LGvp6C0zHIO1iFVOpXozu gBYchHb839McXoVvnQ6GhudAYRQHNedQyYzt6P6goLJy0vB3NL+zkNsZDV2K jGOsNGpqWPqsVOKlYbeVQ2oD5xT2y1Pkv6CXR/ci/5vK4RuQywVFR+3fyv9x SHuohv/LytcTfbuhb5chxSUNpR6FrDlj8VpdZ6T5PYH6c1U5vOorMQml+V+X /L+hbdbRnuf5hJsyyZ7wXAMazQCmhowtN1yVvwEZXtdQr1IuApRMTF6/HLQL fFEhjY8V1bqY/pExxRmtgW9BqOspSBMdC3qxPhw394GeqUIjQxLSd5HRBY2T JIVbQKOdpM7lIZX6nOTlevT079+BtpT+Stm9DaG3NXQ3hP4TaPvS39zIaHeJ w+IJWRrRXvs5oNHcjUqTZrWntK7egdB3NJRWWSfgG1RyNCIeLJVcoQcpmyMR dppnku2K1e6X+CIp/AvQwvnFkUfZlInkQfNAWptY5eH0ge9B6Lsa2iV2GpvO AI3sVbzW55W0hxXJXQh1qx6yzeoS52tA2wF5E06nYyDtMOG8l7efMi39S59T HaKk8YO0Id4zDpW0NL24B7T35bc6wxksVFKJ0XTifaBVlZhd4zwNNDIw8h6s oWmCVOYPIfQDDe0S0zLQSBFpxbRTuf4YQgWnkKJ2MBK85JOwAQlN2Ggo8mIa b3DW+R4B3K+guNCIRtpv78kzwyj/iRcq96XWtX+TSkq6ErLoseKlGSLtalCz pHWSdR+qb+xkeUVrHdpbI+yU1roH2gT7KaCRxZEVO5Ud7esSdpolWS0J+sa+ L+e4nPb5Q2Y8BJWah9UspQnUk0CjbdXwAV8yqKJDrITOaszUBB2loe950VXS UikSTurUrQZmTVRrbXBWZ3yTlCctfaxmiX3jzDqlsYZphUpTEqtlqwlqZWo2 OUAabanXJbssQkwrIavdMSE+oCi5cCkNdX3WSSSNmFbstDSy2rI3qdhtsNNS gDpaGm3DngbCy5JY2GlHjUZ36xKWOl8rdqpH1nMsTbDT7hjN6qyaCuqlaIZJ iynCTqqEIWAnnCQPK3bqO0kvRtib7Ai3wU6DLrUDK3aarVvP6g0BO/VXtKKk VTWVe5fYyZqNVrBWfTq1WSt2KnfredImdkJtsNN4RvwTTqKRmtN6RtmEXYLJ doAsA70+WgxcWxHTcsZ6gpwQH1KUXNptsNPMjfgnnFT7SW5tsNfV9DbYacZO +w9W7CQ3q0OEJra3sbGTlQqNYoSd5GZ1cNEEO+2LkZViyLMQya8PvE3s3PvE S7OZA5pvUsl3bcQvT38Yxwy0qBpZ4R3ULJMytOkgc7T0obkPrado3VVt0TFL i8670O4IeY7qA1OTc1XTwlT+bvEdr1/MOkwSPDkSF49WmKRAD586dDTqAyne UeU+Vun0i6nJ+U8rptVSvIJOGkzCVHf+tqDHwmS1dl2pxEvDaJMkNqYm55/7 wGQ5f54+fWPy+IH7lcPyezYYm5ms9IysuM2uHG/Syuh3g8GTy4fAR52Lie25 uCoeGIt5dMlXYzKBs8YYUqJt6Q86klKdg5PteX50gWSmRJrII6RVPFaXhTQK kais/mpoZfo9xKsTm4qG75Qs1LjsifKAfMoNt+nffwFtCWgfAO0LoB0C2r8B 7WT6G/JsuTW3N89wbgFg83nrMbhOtFYPq/dHa/Wwul6yVo86d0zaquDGz0Iu dd4zpyUrq/svUu59B/GchWbZaVnRO1euJN0x/LoUWz5N3LtZsVvdjVqxW13u kdL7W4i3mbBbXSNasdNW36sz7K2xW93WWrF/BTTaTqetrb9CvCZOR6eF/Wug 0Xa6FXsTl7BW7Fa3ulbsVte3UbFL8LQQW/Ojif83vngy8p9VbP2UsVUhZ20v VsRN3F5bsVvroxW7dYygudfXEK+Je/JpYbfOCa3Y6zzODwm7deltxV53g0Ab 7Nbxx4o9pJWhOclXGn+tEn/0Noo2yvfYGD2ax2nBs06frPBWKjRf0QnPe1LK RRXIWhnhlYECXE1/K87MXKhspu5IKaK/2J6+vVb6WvHUXagUG511g5I2N71H daUSn9K3JYjHV4FZ0VnXNbHR7VFMzh1oeZZWfPuKImq39d8lzrw5YSNcUP4v Kc6qOUCaR90VT7FxkjEYWXOwcVOS4GTe3V73JoS6Q1Y02NY112EJYDweTXy3 apHf0rfw2ZbNKQ/nIy+TwujQW4Q5XxELlfiTIbfa5fWBfJsiKXbQyimS3EWq 1xFIl/Ctmkqy6yKTTL8ROxf3R4Ewmt1tJtzCv0CTFJKAqtZmwuQ676TwpZg9 H/sCTBeTetGRFFw+1j2GNoipRbqujPRDLpTWnzwTi42Y6gyZ0IavS61iTx8J eFerNo3wpB6pu/PVekqmDwG421gJnQt9W9+ct+smt7bGxk6jPhnchuyUaZrq KobzxxeySa6brk4Xt1vp5g+tI+e12ro1xqKC164uy+daDV7ryc9u8GZpC7r3 9KO06tf17biCrStNK7q76e8On8AJJy1TyYKXbE4J5y7lQBaT86OInIzq2q31 FPO7WnWcTzFa7rbBvlqiFem9pzwdLzvTNxmmxLf7mQoH6RNLCncUu+staXAl gxNShJKV8EqFlubhPftGvIiiKPMyO7EmzOrM4B2IR0yStryNcDwaT++nS/37 aOjtXIZN9KFWIb0djEer4rCQKC3ZL4dU3yQp6xmuW5PITJJaJUX3MRzyokjQ YYlVOtZNkT2B79NU9y3IgyR7XqXTrnaRJ93D2DxQXFZfOd9pM6I1/B7+II2j NyG5a6N120hWp0fkc/hIfKlYd5Orw1f60GBDwmmyw2x1g3UT4skQKoNHdeLs kxZ1JmTObt3LJ2kteLlK/96EXJpc8txGblJOu1JKdanlkxvZlJIFeBu5SWnu VAka5Nbkwmmruz1Sk4vc9qjcKq7RJ5eWdffcTZckdLdPRjcgbROrpjYykuXq PuXVKyOaJpOhvHUHujKl3Eu1O6aMrC46wzKiL1MuVmlZd0Qr0nLlZZBWnY3g oRyj4cDKEtBoPRZHiLQqJeN76+6E1/PoROKsMzctZpX+QzCjaZeBRgppr0z3 +7gnmZI2gTQpVjU5yTTMVROZjly3MX5CRsQqg9Iv9vj0OUNL9BZDfrJ/AtR1 Butak+DgRycQDMMAdSbU/qzauThtsu6m+KKLqxwQoeytzvD7EKL1pFEcIbox piy6NhcjeOdke+tl5EJp1mU9oleZibnvGuRRdy6LJGO9GoMkI/F2E4c+GYUt iVtLa49PWjS3rzvkSNKyXqxCayLBLqsP65rIKi3/SVmftBa8vMSUlvUKHu/K W1T4O/N05VCPwMKHEcILctKceBffJcZGcyGlRd1RbRId3fxHJtqk23F7Abvs ogufXYojul0VxupF1+Qkv1V0pCxczKtRmVZwT1ILn3J0NIufBie1sQKjHVXS rZrEJcHWu85iaKHDx4qbCqmdFtp71d5Wf8UK3YdHt2FNtq9R59TAxa/zzzKa L3xfhgDagbwFuTRpgp47Eul6sMl2yALuP+LIx+qv8jbk18SfD93zKdKTqQxx 4w6U00SnumJJn1WIF/bFtAb50fSQuLoDuVBdO14jGXdbq0zeRd0tJSY7/G6M 8+64S1qyHaB9drJPIexuku+Mu9+NhJju15V40pCkzcluvtf2IacVfMTGvqAc 3IUUTXzC0Y3IJxSxOxwQ9mfuWs7jyIi/jIpzrPM6rAAvBavztKA2cV2YQeXB 7KA2njf1jToxt/cRdvvpUpB5FNlZdo8cpj7OIEUS3NZSp3HOnRoOu/adHHtY kTohdgkmxM6Y0Bn6O+P/xBkRK1jvCByGTVafZD7dBvZhhWovci8mEYA7EuBs lcKe2rtD3MQ3MCF2Y6Kr7h/pG1XyzY7YVW3hUBpz+H6N7jA18exNmFynW2mk Ex0BIMRkkk+nlfpGXOlqneE/SYEWbuFrBiYXACmU/gzxYgmA1GXzWqGdeSs1 YdfUpyWFJhdXkBScwZXTj74N6Kg7tw5WdKSMTuR2j310ElrgcJdaXdfyJ83w fF5vyrSslfCMdKi4k1xTJODdSjO84ktGjwXQ8moqeMfmYsUjC05RVctGqxQb KTPKJR0DXXi30MVrcr3aFaAtaZ11i0daphFf1FrpzDf552iDs+5aqctQJrIg PpH+m+pFeTgu6ENFR2ov2qip7mOnTxtM1Kd9FQmTR+lpgZX+SRdD6t4hYAup vu0Ax+PRNsAQ8Fq3R6z2ldZ9Iit2q3eiJtit+2dW7NadxSFgt+5Yx/GONzl2 qye2JrcMW20b4vjJczTyAnRi4vwmxC7BVtuXzYh4v6JsZxFlPdURbpWTY7f6 lWxS060Wc1bs4ZHoxcZutQwcAnaruanVN2R4FTc5dqv/4CbYTwONVJYz7PXY rSbpVuxWX+lNsC+lv067VcnR6gnUerChb8Td3HJiPXnzYkgv2u0nVrFNdtp4 NB4ZBlvFZr3eok5srW4/OSWfyidmSXYLyd+AdhBodNPJh0Cjm1PohpXU2L64 /aQGVNHQDDdTWM/2WauB9axj39Ugxi0n1jO2IfcFZKBHVrp++djvU7L2x83v NbEeat8sEmlzcN/j2YPsDMl21q9UMN2i1gSZ1VHDSiVe1uO1heW+kT6r8N0m OqE2mMgMkMxTh4pptRSvoFM5NcFU0IeAicqJTGT7xmR1wkS7dVYXU2FMjtYY kwRb3YiRU7M2SMrfLb5DzgGb7EW2wWR18kZ7rkdbYKqrcVbnfeQDuw2mqmlW mi9dPd3EAmCGaWzApyZlhcUelfBC9+6R8UyN4JHhHdkk+Y83xSs9q1/YrjDS GB62tXa0JtZnk+EdpdF6jWb4hJNolJa0NrGwW/08e52rV9LScdIZ9vp2QJZP Yfu9CbFLcBvEpAMnxNQpx0ZMLXZRUba7lsDrTN/AvxU7aY1o/8qKvc5MvA12 UqYS/1bspDgNW+k6WpOTL22wh90AhbHThIX2ZsLHDaaHPexWKryuofUP7cXS 3m4s7NZ7hgh72FHy5NhJluEDCo7W5EhfG+y0d0r11oqd2lD4OMr0sBNOkocV O/Wd5PaLsDc5pBsbO9FIL03aKBozo2KX4DaILQd3J0HsPRBvQExrnmOKMn5p U09OvR5hJ32q1SW2FXudawLrLZWEnWYv1EP7sbN7D9olIbxNnFa0wUszVeqV CW91jyN9wnrr6eGk1Qj1wITT6jloCDjpe9TbestTLG5IU0/omjiIaoOO0lLP 6m+dYx6KrBW2b6jUgRNUuvDpD3mxl2k5XDPeJm7T2uCl6RwpUggvTa8oLRlz DAE7LWFo0CTstJSkBm8dcE2uGCW4DeIjgRpKE2hSFljvaiGUNMV5WZHFL2FZ kNLpbOqp3Ll1mnFaZ411jlpjQ3QXM1EBfqihxJcVU50b39iYTijXVE7UHKli WVc2U0FXmb8Rpt8CjbpI68q9zgV1Nzj5ktNKlu8DjUZ+K9Q6h/DdQOV+lbDd M37fqpCaDl4YOaXR3oVQ59LHnaO3oqu7DGHEF3pSfrymx7HBOw8P70HouxpK aa2a9rq7RYqp3Mb609RQ3Zum9WhTSUvfIPeW5M2xjTzq7qjxykO6pAOSVz7v SDL75n8CLfUeuJY7KhwPfUdDX4HQvwPtTPo7N90S26n1ka5Xu62hdA7Guh9I i6bzpdIpFlpyfiDHTw09NnaaB5FTZPL2S+fBrLvhtDC6APLYyG2e+5KH82FD UnAXvNJpX6sFCC2q6i4ra6NJJZz7FAl5pr+hodlJ/pA1T7MLD2PjcbaG1yD0 qoZeyltjOTQpjK+GAcVdpEvOWpy3nSpQVyQT39HZBgLZb5G9xxs+WsWjZdlG rHjqLluNzf8x5Ya4vgi0mxWuN0bafqUm9ojkhNZ88ktxTkOrDpnT56FKofIh vqy9zVY+se40IeRo4IyGksdk4drdM0k9c93V623gUP0/rdzQGfJXNTSbMXNX RKfKCVtdLYuNTRCJpyw6vXZKQ+9iUY2nIM8HQ8B5QesMzdSdA/yPID/nJ+8v +kYWVXWY2ljIESYZEWWAp5wXNfQ+5OecsNJ53L7Rkd3ZDa17pCvaq6GfQX60 9vhUEZNlUN/oZL0iLsVp9bdNQ8k3nnNY+nt9I4VS35hEQST3Nj2AFMKhTN8+ 0NZGets6rttYVFNasqK17uw7ZRCdXa1D0vR0hq/saJPDu2cvXDt9Dm3r8WSh DdfWMyXenWmpPzf1jc4c1c0OpsX/YZX1dWMN7rL+tEFyVCV8UUuCZrp1/Dc5 RRaDf+cr81V9O9Uz/9aTfZRWeJGx74i+LTfgf/IzlnH4lwWAXL/5es9ck86J rO0oLemD6ni1nszd7LyS1RBZ8g2BV9qOo9P2jXmVbKyeDvrgsG5EbMMrzc3J 3i1WyVv9hmx2Xq2+X2LxavVdMwRere6WrLbJ5FppCLxavWfF4nUJaLRCGwKv Mt+p2AOFObT6rovFodX3nvWcDPkYbDdGWb1C9sFh3RjVhlerp85YJW/1NDoE Xq3ecL0nGL33fsfi0Oqr2Hq+tEterZ6kh8Cr1eO39cwy+YqOxavVM7v1bDnt xjThNSuztC9Eg608jbrinMATZxvEVp/7TRAX/di4pc9EHjOt1wxY3WKQQ9JY 8IqJA7u1vJDmJZ3gT/r2UPLPR7MkM5f6Jf2d839lAk+BdIfIkwqw9FmNJJSC h7KF0wIIhax86DaXqp3AKA9xeC1bHy3YRUt2G4+AFovduqu6SDxFXsRXXB6c NUr+VG9pSYPp9qu4bPCOujT5ie5K7aKACpozGv5G36x3pHXJF41+NE8fAq80 q6AVWue8SjbWK04/1/K2Xu4Za00UvpKUNFuxOWxSyu76cNl5negK0S75clen u6swwwf++uFrr3JzD1IMgcP9ymF4P7lvvg5qTXtLaxrtz/XNV2UnWN7Itqlv vo6qlC6q5Mgiu2++Tipf4f3afsaApfQ3PUyR1S95W47MTZOeX9bzqfP80tpx emUWznvGw4yHGQ8vLA/evjP2l5v0k7+KEpjxMONhxsMweZj1jjMeZjxsCh4o 78TIQzhemQd1+7A+uoeYZHdqkdKR9i7ICJNMCSne0GkzHHmZjzkd0GqC22+z ejIs/vquJ2XHHFJT1vNw2UP7JYtUnD1JLRXW17NM5Pd/5dX1TyP7+3rnXzlq Vi/HLBwkyv9lUTayz2+kyiojIXnp/wFdL1xW\ \>"],ImageRangeCache->{{{77.5, 499.5}, {748.313, 410.938}} -> {-3.77819, \ 2.99157, 0.0100572, 0.0100572}}], 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: .8 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.2 0.4 0.2 [ [.1 -0.0125 -6 -9 ] [.1 -0.0125 6 0 ] [.3 -0.0125 -6 -9 ] [.3 -0.0125 6 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.7 -0.0125 -3 -9 ] [.7 -0.0125 3 0 ] [.9 -0.0125 -3 -9 ] [.9 -0.0125 3 0 ] [ 0 0 -0.125 0 ] [-0.0125 .1 -24 -4.5 ] [-0.0125 .1 0 4.5 ] [-0.0125 .2 -12 -4.5 ] [-0.0125 .2 0 4.5 ] [-0.0125 .3 -24 -4.5 ] [-0.0125 .3 0 4.5 ] [-0.0125 .4 -6 -4.5 ] [-0.0125 .4 0 4.5 ] [-0.0125 .5 -18 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .6 -6 -4.5 ] [-0.0125 .6 0 4.5 ] [-0.0125 .7 -18 -4.5 ] [-0.0125 .7 0 4.5 ] [-0.0125 .8 -6 -4.5 ] [-0.0125 .8 0 4.5 ] [ 0 0 -0.125 0 ] [ 0 .8 .125 0 ] [ 1 0 .125 0 ] [ 0 0 0 0 ] [ 1 .8 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 .5 r .25 Mabswid [ ] 0 setdash .1 0 m .1 .8 L s .3 0 m .3 .8 L s .5 0 m .5 .8 L s .7 0 m .7 .8 L s .9 0 m .9 .8 L s 0 .1 m 1 .1 L s 0 .2 m 1 .2 L s 0 .3 m 1 .3 L s 0 .4 m 1 .4 L s 0 .5 m 1 .5 L s 0 .6 m 1 .6 L s 0 .7 m 1 .7 L s 0 g .1 0 m .1 .00625 L s [(-2)] .1 -0.0125 0 1 Mshowa .3 0 m .3 .00625 L s [(-1)] .3 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .7 0 m .7 .00625 L s [(1)] .7 -0.0125 0 1 Mshowa .9 0 m .9 .00625 L s [(2)] .9 -0.0125 0 1 Mshowa .125 Mabswid .14 0 m .14 .00375 L s .18 0 m .18 .00375 L s .22 0 m .22 .00375 L s .26 0 m .26 .00375 L s .34 0 m .34 .00375 L s .38 0 m .38 .00375 L s .42 0 m .42 .00375 L s .46 0 m .46 .00375 L s .54 0 m .54 .00375 L s .58 0 m .58 .00375 L s .62 0 m .62 .00375 L s .66 0 m .66 .00375 L s .74 0 m .74 .00375 L s .78 0 m .78 .00375 L s .82 0 m .82 .00375 L s .86 0 m .86 .00375 L s .06 0 m .06 .00375 L s .02 0 m .02 .00375 L s .94 0 m .94 .00375 L s .98 0 m .98 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .1 m .00625 .1 L s [(-1.5)] -0.0125 .1 1 0 Mshowa 0 .2 m .00625 .2 L s [(-1)] -0.0125 .2 1 0 Mshowa 0 .3 m .00625 .3 L s [(-0.5)] -0.0125 .3 1 0 Mshowa 0 .4 m .00625 .4 L s [(0)] -0.0125 .4 1 0 Mshowa 0 .5 m .00625 .5 L s [(0.5)] -0.0125 .5 1 0 Mshowa 0 .6 m .00625 .6 L s [(1)] -0.0125 .6 1 0 Mshowa 0 .7 m .00625 .7 L s [(1.5)] -0.0125 .7 1 0 Mshowa 0 .8 m .00625 .8 L s [(2)] -0.0125 .8 1 0 Mshowa .125 Mabswid 0 .02 m .00375 .02 L s 0 .04 m .00375 .04 L s 0 .06 m .00375 .06 L s 0 .08 m .00375 .08 L s 0 .12 m .00375 .12 L s 0 .14 m .00375 .14 L s 0 .16 m .00375 .16 L s 0 .18 m .00375 .18 L s 0 .22 m .00375 .22 L s 0 .24 m .00375 .24 L s 0 .26 m .00375 .26 L s 0 .28 m .00375 .28 L s 0 .32 m .00375 .32 L s 0 .34 m .00375 .34 L s 0 .36 m .00375 .36 L s 0 .38 m .00375 .38 L s 0 .42 m .00375 .42 L s 0 .44 m .00375 .44 L s 0 .46 m .00375 .46 L s 0 .48 m .00375 .48 L s 0 .52 m .00375 .52 L s 0 .54 m .00375 .54 L s 0 .56 m .00375 .56 L s 0 .58 m .00375 .58 L s 0 .62 m .00375 .62 L s 0 .64 m .00375 .64 L s 0 .66 m .00375 .66 L s 0 .68 m .00375 .68 L s 0 .72 m .00375 .72 L s 0 .74 m .00375 .74 L s 0 .76 m .00375 .76 L s 0 .78 m .00375 .78 L s .25 Mabswid 0 0 m 0 .8 L s .1 .79375 m .1 .8 L s .3 .79375 m .3 .8 L s .5 .79375 m .5 .8 L s .7 .79375 m .7 .8 L s .9 .79375 m .9 .8 L s .125 Mabswid .14 .79625 m .14 .8 L s .18 .79625 m .18 .8 L s .22 .79625 m .22 .8 L s .26 .79625 m .26 .8 L s .34 .79625 m .34 .8 L s .38 .79625 m .38 .8 L s .42 .79625 m .42 .8 L s .46 .79625 m .46 .8 L s .54 .79625 m .54 .8 L s .58 .79625 m .58 .8 L s .62 .79625 m .62 .8 L s .66 .79625 m .66 .8 L s .74 .79625 m .74 .8 L s .78 .79625 m .78 .8 L s .82 .79625 m .82 .8 L s .86 .79625 m .86 .8 L s .06 .79625 m .06 .8 L s .02 .79625 m .02 .8 L s .94 .79625 m .94 .8 L s .98 .79625 m .98 .8 L s .25 Mabswid 0 .8 m 1 .8 L s .99375 0 m 1 0 L s .99375 .1 m 1 .1 L s .99375 .2 m 1 .2 L s .99375 .3 m 1 .3 L s .99375 .4 m 1 .4 L s .99375 .5 m 1 .5 L s .99375 .6 m 1 .6 L s .99375 .7 m 1 .7 L s .125 Mabswid .99625 .02 m 1 .02 L s .99625 .04 m 1 .04 L s .99625 .06 m 1 .06 L s .99625 .08 m 1 .08 L s .99625 .12 m 1 .12 L s .99625 .14 m 1 .14 L s .99625 .16 m 1 .16 L s .99625 .18 m 1 .18 L s .99625 .22 m 1 .22 L s .99625 .24 m 1 .24 L s .99625 .26 m 1 .26 L s .99625 .28 m 1 .28 L s .99625 .32 m 1 .32 L s .99625 .34 m 1 .34 L s .99625 .36 m 1 .36 L s .99625 .38 m 1 .38 L s .99625 .42 m 1 .42 L s .99625 .44 m 1 .44 L s .99625 .46 m 1 .46 L s .99625 .48 m 1 .48 L s .99625 .52 m 1 .52 L s .99625 .54 m 1 .54 L s .99625 .56 m 1 .56 L s .99625 .58 m 1 .58 L s .99625 .62 m 1 .62 L s .99625 .64 m 1 .64 L s .99625 .66 m 1 .66 L s .99625 .68 m 1 .68 L s .99625 .72 m 1 .72 L s .99625 .74 m 1 .74 L s .99625 .76 m 1 .76 L s .99625 .78 m 1 .78 L s .25 Mabswid 1 0 m 1 .8 L s 0 .4 m 1 .4 L s .5 0 m .5 .8 L s 0 0 m 1 0 L 1 .8 L 0 .8 L closepath clip newpath .5 Mabswid newpath .5 .4 .23278 0 365.73 arc s newpath .76308 .4 .0303 0 365.73 arc s newpath .20014 .5597 .15774 0 365.73 arc s newpath .79986 .4 .15774 0 365.73 arc s newpath .79986 .2403 .15774 0 365.73 arc s newpath .79986 .5597 .15774 0 365.73 arc s newpath .23692 .4 .0303 0 365.73 arc s newpath .20014 .4 .15774 0 365.73 arc s newpath .20014 .2403 .15774 0 365.73 arc s .23692 .4 m .23692 .4 .016 0 365.73 arc F .76308 .4 m .76308 .4 .016 0 365.73 arc F .006 w .76308 .4 m .23692 .4 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{528.813, 423}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztndl6FEeWx9NIAolVCwixCyEQCIvFu7G7TdvGxh7jtqc3N7aRBN/MdF/0 dH893Oslpu+4n8fQo/ghfDVzo1FGZZ7IivpF5MmMzKqiyfqschHb+f9PREbG cuLEo+3nf/q3v2w///Oz7eXP/779tz/9+dl/LX/217/vB028liQHZpPktf9Z TtLfe0mSf+3t/9f7mk+/0uDKAb82/zuY7O0+T/o/z5Pdvb0nefTebtKf4GHy 4qe97030ZPLTi4c24sVPm+FcP4Zl3ukh+8b8byLpFW1ikqdZWJpzX4751w/m eyp58fxFknHbz9NLvwXpN6HcN3oivy0kN5G7e8k2FPF9kd9DK3b3ueFHUreg 6Ls9qV84UenngPk+aJLlpff+dpPd3b0/erNM9WfJEPxQHbDw7kk0/7rjtJmf XiQPpbS0qo02rYL3/5mV+GNeSQ+NwGLyhNJvhkX0NZGB5ufq2gKY7BWYt7bd PUq6xaXerf2MtRJwsRew//m5B/FiRqXXNfQq7BCEzUHYrDLduId1PLI6f61r Ex0PfZu4BWHbELYVke62GsMOlL2jxEDpdjoMHYaXB4MpZhiSN0TaGLHvMHQY OgwdBh+GrnfsMHQYOgwdBsLQ9Y4dhg5Dh6HDQBjGundcS7/n0lQ3ItCYUmZ9 pdSpleX0+1CayqwsHkx/XYlAeCn9nk5TzQbLq4P1fPo9KTlM2RcisJ5TllcH 65KUfV1ay9kIrEtSynUp+UxDWBfTb7PBeFt+LUVgpfJON4R1QfTwpujhZATW eSnlTSmZyquDdU7Y35Nf8xFYZ5XlFbEeNCGHE89mfZYni3v4YsIEDOyO0q4S MT4huH4pv2YjGB9XlldkPJ3FF7e7e/jdDee9fMP6oJLeMQHxMeQ4FkH0GKS7 L9KO16B8JAvLjADMv6aksd9LyzLiHqS/jJS/mfKz99r+r/TvL+n3pKRzYu9J 7P5Hb68wkzWyPgOR57vaRjYtevlS+MxE6P6QsryixnOsRauGGdD4tJLTQcHw DeQ4GMGO2vbXIu2QkmfRgiKy+qYg3bcQNhVBelII/quy5Dr9+ySk+w2ETUYw mYiQUYcTyfudaDOGyYHKJevwT/blyct7nNV0MX36l6Z96kU85ZaVlJV1twbG /c+PAjTTeB5P++3bThnZ5wdfGXcq1Hv+KdZiORabN/3XpgDRacNXog0LtylK Z9HwvHAD+D2F3CQ5rBtbJ2XzwtedsDTvMyiHMGxC3qfctm6VVMJNyZYUsu24 SHrP7P7nCZRh2+8ByLYVeJg2StCtBx42hjhYxvcQ9gOE+bGXy1gv4XFDKU/b 6T9W8pxQciIZN0o4XVfK876Snbx/hDDiGX7thGVcL+G0ppRHnGgo852SZ3h4 E5axVsLpmlKedrz4ByXP8Dg1LONaCaerSnmj4kTD36slnFYhjEbk3lmLk/f3 Sp4kgzjR7GXV5WSir0DKaSUTkvI7X5h55xyOwL8imLlOViCMZoPEZAby/lYZ puVEMq6UtLMYTochL01AYjiRjJUSTpeV8mI4UdiRMeV0BPLS5DeGE8m4XMLp UvptnlpaHyMmR6EUWiAgdkeVTEjGcgkTCmuaE4WF1xV3IJ2j/ZY4kTxavYrh dNyHOcDpAoTRCmoMJwojGbU5mejzkPKEkglJ+bUyjGQQkxOQ95yg59qJ4UTy vm6YEx3EOF/S4s5BGG1TxHCisPDWyug4kbxHDXOigzDnSjidhbC5CE6fpt8n 05AHypLHgQnJMxuKM2kIjS+nJfbDl4jnPOR9K/02i0sUOyex70BseOs2LPds Cc8zSnlanmYh1gSdhthFiX0DYhfGlOcC5DWrcMZwg1rKGYl1l16r8CS5Z0p4 LinlaXmaVSwzil6G2EsSS6uOYfOIijxNdAy7k5B3VUqmmepliaV1LS07kmuf A65FenZInpanZUKrWVYLtJoSw3OppLU2zdO2FFoxXpPWSvNdLc9TPh5D5Hle mNyE2BuiBZqRnAIZ48CT5J0RnhsQ+7rE0pixTZ6LSnleIzUqzxquObG3JJb6 v0WQQTy9cgM8STckT8uTyiPGdyKwjCt3M9rwjn3suMn7vlDwpOfvVIFnb8Tj 9aBD2xVNq8HaEr4NsW9JLA3ayZazjhpyFQ9a6jXHnTDQ0ghpgSYBlLd1fZi9 +gVTVjZaSXoGeP+AsKPpt6m79yD2XYk9DrH/DWHz6Xdm5He0gDD/hCz9aAOG HizSoLY2D0tbvQex70ssLcFqa446/JOFmssHv0VzwGFwp8k6aeEDCCN8Yavv 6voomg02rQ/CYM0ofwGxH0psm9zpJUZTK5Kn5WntGz+CWGsrTW+Sl4knGakQ 4/vKvFrutEyxMGTuZHREPH9lvslgqjggHy++Z7JWXMy7//kEivyYk441M5P1 UyjlE4kdV/wmnek7PoNSHkhs+CxTRfwmmpYT6YST5t0YxO+kIxlaJnOCnmsi htMiN3w/rYGkbfZ2Mcx643nusfz0OL12BDdsjjSyoR6degnaTKK82qUyWhqf b5E79T/0NibuFEZmndrF+2Fzp7xkwkmvOuJOebUbUcPmTmsFNALVcqe82s3G YXOn7WFay9Byp7zarfFhcycTBpphablTXq35xrC503oQzcq13Cmv1rBIxT16 rEUmUmTsqGVMebXmYcR4VljG1bbZ0jFGDxsQS6tJZB6p1QLlJWNGi+p1iG2z 9ZvtSeMpwrRR4+PhKqQLM6mumbCmrdwrgmpGkBK+NnVk/Ugsya9LkC7c5qvr KPxMWrkXlPja1JEp28xVVuUXzYbDPWF1HYV76p1+zAp8bepoUSSbp3xCasxJ F35TVtdR+E3u4JsQfAYpzcTa1JGZ/Zi1iDflF+0KhUdS1XUUHul58Tk5aO7W prZoTva2ICQ0pDdqH9pZnFZv84LqnSC+NrV1Qlr1PflFo2+aoXgNRZ0wmuVT XjqAdlyJr00dVXeGQnNZmjNqtUV56Zhjdecqza9aHhF5dg2VdERrHSRDqyPK S8dbHXyK8Vab66E0PvpcEBIaWl+iPq9pvc0IqodBfG2u41uHOF/JLxrZhNcQ q+sovM7nvEkU+NrUUXUHO01rK7wiHH6nhB32tKk3r7eewv4yO3oge4WmdWX3 wbU+cdrU1YSg+b38mgxoiOyySBsU5t9D2SloxcXRpi6q++GhJ4xsvYg/7ROd EhxJUQ69Gr4LwCIr1qbUkvS5/pkUmVkc2QFo2bv7hVmxRpLXVRA1gTIjjzKj nfyzCYCSBEXGcNz/bBWStsfMhrnyfFVHFCjstFQPuaZSGeKY6LDNqtXNU5Gn Rf25r2QHta19Ktna3ur173YIqYxnA2H8utEyGZSR+Jwrec2pK5owLzgtOaPW kzrVV1s5IhKtZXiyUG5BnPl3yPUZQW+QruvTK4VA3TWNxokmhfVEH+wLK9Af Bvt50H4OgVRAk0Ca7BLdh8q87nAq/Ww5Yf3pwtVRphdqvdZdLA1PnnCbmZJM MSqxot0VA58iJoJyy44xEH1aka6gCFqgo6UOok9hBGdKRPf1RZuAkmYKBKfO 4SXaA6KVnvwi2mK6/KGitXIql1TzhTJvaD70BPDSXM9rp97nknXARXP+nBac OScVvDmT1mknj2bKVbVO5ZKG29I68SdMg1rne6gP5ij03qW9BxmcMJruaz0Z Ek2SQWr+MgJf2COjTUdNg2QUq0FUzVdd59nZ6fVi0htf9D690y0zEPYfEHZM mfcLCPtSmZdk/Lsy76n0O+SKeyI7oNPT2wFQ1MGst1D4dabBPVUn7R1qnVZ6 HVHUbL6UV7tKSs1Xi694+Fp6EbgoPddzmftw0j3VEXHT6p4eQ+rGSM8UFu6K dgCLTfc4Al/RfUH+3nTuiJ/Wt3paUqBRDzEbhub/RYlPu3/SlOa1jl1o2kO6 1LqIpXc6ySC9faXMS7oMu7qtjq/MqQrpkuqTsMbokmSQ3iiM8pK9W4wuSUYd h0P0RiCsWl3SGJZkkN7IjZYWn1aXWnw6XfK5DbLn1bpJPpaxKabb/5DXt0cV IYQ9OjsQHP/nesW4Owzph8w3WlCI63LNJ1qriOMs+kJDGtB6ZLYXBdH2btOk 7eJRnN/GZthpvR2GvWATu/PCKODL0XspU4PsvDKqcyrzHqptmVq/2i08m2HX 39HPZtVuuwVNVO22X1KNxA8EmlfRsUC5Oj3VG5yQ73paPojRWcxANOylvjq+ OgNRuwURo8FRTYu0GmxqWhQzXaf7B2hBhabDJIN0GTNd1+pSi6+OLundSzqK 0WXM0gflpboO39pQHV8d36DaxVOtLke1eKrVZZ3FUzu+1rpCIg1q76kIM66u QS0+rQa1+Or4ONXu9Gh1OaqdqPA9H2Fdlu1EaXWp3UTV6pJ6nHY2VOvpss7m atNmADG6bMckoJ4u65gHNG18otWl1vwj3hqlni6bMk/x2jE5YbS5o9UljXZJ RiVjJ0Vda3WpxVfHtysdgSNdau8xovkdydDqUosvfB9TdXx1dKmx+6uiS5rH tm2XWEWXTdkqem04vTee6jWYsJl2JWtWLwy/oto1cHUZpbKos3OXLdJPs4bb O/ji6F1BVc+Ye8JXZWRZT+2gSDoPjyFNculN9m1BbkjZC8Iy7lRE+D62cF7t SQmaO4fvVrM6r+PQVHPWxce9+DDmdRBz+GUJ5GrvlWvWmevAVeQk0h1MpFlo UbMO/Vw00bcbRk7n2KwOuEOlHSx7PJe67JgjX3QI0bkg1SZ+FITR5rnIAyLZ +KE2Pnq802LvcQCtoiiMzpjTYME7eTWY34fYYevSnu003jFMBtvAaAGIJj7a 06Da87qkX7tZQVqdBvTWHwlN9Fo/He6kuytorLEHpZsEnu1pdSqIZQow0zUX w9av9QBAV4qEp8/hsGHonNqvF5/3hNCGxNKyb5v+aa2PCrq+xz8J698nz8ug BYumNW77BNKzdpq3XhlzAz5enHR0IZv/RGIiiGmDt2kt25szkokiALXri7XK cJtyEHNUJNMNYzRFreTrJ0arFhqpkaacdBmcVqFN9RHWCIvQDJ67Nx+yM2la ncekxVDJVwQ2YWnT/ZVZozMaWYYc5pVhXFDaC3ychyymLVIYeeR3lwV6KJJs 8GDw0VThomAmd8utO/Vz0tHteWYAc0SUiq+KKq1C6/xPr+S9YidwOP1Fg3Nr QUn31rWp6VNSxyTF6PeEtJRKT1i0Lu3w9phPb2aQaYKG7XbSugelrnxS9GaH vCPQW3q3l//CJafWh6O3CyLZ61rthA81OcprWYO2Dp28tt+/qERV1GDuB0Nx IlurWHOJqunKj2SFF3Ps/82PXK3UuaTX2eHo3iA16y0rSnyDCg6d066n5evS KAzmWV/zGJVOJwWV+WU6gPUa+uu7mnLwgLVRoXnF/axPX1Pl10TWemIbS/4x rXotpoXAGdwYuGYYaCZ13voZ1YuBnj/TVrzGRIbHZSU+6uCcU7YxHZwZI03a wsdcsd43x5zwuKDE19S7d0kk096bQX18RBq0C6cWgZPXjlS97uRb0pv1cEY+ Ae0I1X2MRqTBYz4NnpV0wx4t271lKsXozcyNDkgdu4smw9flRD8Wg4+GT/Z0 3LDdk88J1suQw7QA04HbhV9aiqKhyjAWIGyDNSBpAWJZgNNdV617fjeSVyGH 3bU6Io1kuItgR/p/OXlXBP2wvcFbfaxBjt4DMjAzMYlimqFWf1ZrWp+zVyvj i9s7oKdg3SfFczzP7rNrPZDH6NTtXBgTLZJcr4yzqW0Du690yyfFCaP2YvWs 9WIevfvoWEUQFhoc36yMtHl/63chh3bHlxiTQX3TOvfu8yvCiNst0cY4+G8n i4CjgNDh6VgdtKd9kkb1T+jprp3R+YG3N9iY52+i/0l0OA3X8smxRHCGjw7m d4L4Wrcdc9K9l36bO/DI/o/abzuGd2wCSG/yGUF8T4muWZ1WNFb0+PKMt97U a8zv3oBx1DfkHbAKJ2NWO9hJyh3oV9PJgDEtDey/riK/KQf+WqPmGNf3WqPm b0QBTdW+XdzxnlRo0EU+LRcWj7Dknzhn/3QeYlTnMPyMVecwyk4lVPAy79eA Ckk1H/sD0v16GInLffIgcCQAJ/qwkqcTH5VaQr74/bopH5S8Kufgmj5T+Kqc z+zODTd3brg7zz4e1y10fhbKddn5/2jO/0fnl0bpl8ZED8PPlF1Qj9EblbID cm2OGJ9SZR6RYhzsx/jnIhlNO9iP0aXXJX7nNy6oy6b8xsX4M9T6hnxV/BnG uMwflZ/Npj2Vtnn9QOf1dTgu819VT8PnstZaDItUUWVH3SrpLXumbtpbeTN+ 9Jv3yv7P4lH/1b4voOl7L8bm1of6vVNrV3yopLd8y0dbF8AcDZQ79FtgRuAr fxgXDQ3j0qbWfeUrRvOjukxsGBdgDdtr/jB0OYxL7trUpXb1Y1QXBmpXP4Zx VWOzVxwP4+LMUa3raWujzrpew1cfxyxLa68+/me8O7bxq48PQxhdN3w0/c7M 9QdjK114nDnh0cktu+a4RCF5J6K42DVm307bJGP27ahJavFpm2TUpegR1xnH 7D9XvXi+nT1n/cXzdfaZ468tjrGWCGk47P4grOFqFhJ6DY+Dl/8nmTaL6fbj qfLbMc4ZsGrcBJTj4MN/00mXxlENtm0Pln62AN84+OYnHVHdtW1/6NNR6z73 Pb3P00L6HI8WSzX7VXLUaAy2twXeYOfUshXv04JmnIe9ARvmKVdc0gZdrQH7 s4Gwpo3Vk6w1tXFBgBnyPpNfzZwmsI0/fHJgXvDFubffKqTLw2NOfZyG8rYh XbMu+wdO2jxxWnsxOuZ42GKg3CdSiU5H2paL/kxwbyTX35cVcMXT7X9oqSt+ LMj6INQ50FP1qNv3To0UNaB1CaBVxymmSYOJ7wKwyOVM8x75/yC/JgPqo35Q ewL1VIAjDWTIJGR0XvbJlDSkKXoxac9CU89FzCf60Y2Nx3x78waZFmidSmu1 RUhpkmF94tPBztF5wne3pyVWMQkhaU3rjab3Xwn60fmw/1J+aRfCY7TldVbq yJ1W4huO1/kHgkG7pUjSmtaR9Tf/WRBf647jzbv5vpRInrhpGYKmyVodUV6v acNEOb42n7VZqZ0P5Rc5Aqd3AC2PaB2IkY5oSfuEEl+b/q7sdYDvya8FSOd1 IeyEaV3XUV56a8wp8bXuzN0kuytPHbk5p6V6WorU6ojy0vtqQVDdFaTDdsN+ WjCsCwbv+88pjxbMtTqivLSjeVpQrQtSGte0qaNzInlFfp2HdGRqQIv/Wh1R Xnqnn1Xia1NHl9JvM7tflF/LkI5GC7QFpdUR5SXTm4tKfG3qyPj0S3fCe66l x0Qzq0FUKn1UGi9uQ1gYa3XuYV1auVtKxrPCMq4FEPfwU16de7gXqs69qdZP 3MNvgercw2+p8eIeHiVU5x4exYwX9/Aosjr38Ch3vLiHZxnVuVNemo2MA3fK SzNdLXfKSx6bx4F7eN2r+myVVlFohjUO3MMry2GetJoRXssdL+7+/YcEt28e BNKT+3zi2PwqHzFzb+XLUPpJDSSlmZyWT1MrcsTMzjq9ZEwQlVe7PrzPsg0j fRF+I8+sudDT86nEnhtn/IW86Yf6Bvc9Mf6cBh4BetV9zEnHlRnt3VMPfR/C fmW+ubd7mfjSm/wjpQ4ob0zPOGzudreaGP9SYsOnMcI8y6xT+u4BS4of70GQ MuOjqmqwTrR/AbF2q8B70KIBNeSc9nafp8eQzL9ochTDnUwMaOJNrqY/gLCR 6CO7zystKxtDJL0THv+AMHNSxdTdPYh9X2KPKsubS78nR1tj1sHwexD7rsTS Eo12GEpyi+aLeUdkTnNl/Kk1kDXUIsjTcidOb0PYO8q8TetjLztV0YY+yJTK briSFt6SWBpSk9w63LUGyTE87aYpXdPwhsR6jWkVPEluHX+itBGo5Wk3Pu9A 7G2J9WIdQ57UFpakxug6nQ2JpUGSlifJreM7kpYntDxpyeKmL8x6QlFoehwY 09Nm7yUnnnQx1cvO2C7JXIfYNYldVsqtzdNEN83uspR8FWJXJfZKBDtvrz3h r0UaP9IiqpbnqrRbYmKvx7sGsTE8iwe1m+ZJ00XTHs0m+gWIPS+x1Ja1PElu HR+VtCGg5bkh7Yf64DMSe1up36Z4Ehra9NFuwhgDJLMKQ33ESYmlcZN2w4Xk 1vHtqOVJG23vSsuk7dfjEktzIi1PklvHg1AMT7MCYS58opWPKYn9SCl3HHh6 T+Gam5vD50qbZ0LHY2jLWcvkEYSRib52W3vYnOh5IvwxnEhv511OJlrr0TCG idaPoZbJWUHPtUNvWjJu0RraEH7yY6g1oCG9lXmhi+FEhlOEP4YT6a3M+yKF kQFWDCc6SqQ18qrD6RKEkUGd1riP8NN1b1qjPdLbpRJONJMiA8lRcSIZyyWc 6D52MhkmTuEbiWyY9mYl4kQyLrfIKXzTRTOcSMZKCacVCCPz9xhO2ltImuJE M1469kCcwncZ2DDtnQzEiWRccTmZ6BgmYY/tNkzreZ6YkIwVQc+1swphdHCH OIWdiNswrZdvLafVkhZHa0l0YIs4hb1L2zCtz2viRHq7WsKJVobooN6oOJGM ayWc1iCMDmgSp7AvZBum9d1MnEjGWgknWtmiY8zEyR6gJ7+ejyVWi9+Wt16C +gaE0RF/Qh325GfDtB4JiQnJKOO0ntVhMSz9S8t9JnE7TlzRf5vNF/I39zRQ 1kYJxptZmy+G7ZfzTIJ3isVtQgker24xoF53wqzCbKWkny3I60K0Chpgc8uF MSHgsgLyDK5bof5WYoVvQV63xYqMwDuRdg3JDRBhCKez+G+XVMKtEs6D/AhD WF86DB73RFTHfhh9Dxe5GdJhCXjRMYWG+xM/tPTPFPA4WFSVSrPF5iW6Pm3q whxMp/VNUwe/xudMPSZafzF1UFf3A6NFXd1vSxF/D1c6jUJ7xCyP+BGv4Eac tFDdq4tWC9W9sBS1kMcPGrdVctlNlLUOWbREtQ5UyujlqwbsB/sDU5bt2dO/ B+m3kfdXiP1Pif1MfplSJv0YKjjnJdVa08BP5Fd4wTSsWqc8JwcthxWVnKMu GgnOgJJpAkns7KU99yFHDE9aWLXWz7Q1QDyLxn8zcRU5K+3uPfkV3hMLEzyh LK9OR05WDW+K8sKWPGHUC1LKW8Hy6qA+JXrYkF9ha9AwVlOeSXZLflF5dbCe EYTXpOzwEYsw1qX+8syvsw1hvSAlXuz/VRPreWV5dbCa9elDaSrzfEynv1Yi sC5LKceD5dXBalYtTqSp1iMQmlKO+0oZwGXbs5OSytZioNUD/XyvPQx1aqXD 0GHoMLyiGLrescPQYegwdBgIQ9c7dhg6DB2GDgNh6HrHDkOH4aXAQGUnSgzh dEUM4gZlt3/TMendikmba7SZQIdH6MgCpRv3sI5HVucDTjikmeBeWtdOxgvf sNtJ0VGNaSm7Wbyxzfm5lyjfV0tNG3Z3e4WY7/81P23/1Lf5L7f2FpPmNw86 JhEmyf/1kuz1xO//zWsDktf+H2wYnl4=\ \>"],ImageRangeCache->{{{77.5, 499.5}, {443.625, 106.25}} -> {-3.77819, \ -0.838813, 0.0100572, 0.0100572}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"] }, Open ]] }, WindowSize->{831, 824}, WindowMargins->{{254, Automatic}, {Automatic, 3}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 1647, 45, 152, "Input"], Cell[CellGroupData[{ Cell[2229, 69, 5601, 173, 332, "Input"], Cell[7833, 244, 134, 4, 31, "Output"], Cell[7970, 250, 12506, 688, 312, 5356, 569, "GraphicsData", "PostScript", \ "Graphics"], Cell[20479, 940, 134, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20650, 949, 10333, 293, 512, "Input"], Cell[30986, 1244, 134, 4, 31, "Output"], Cell[31123, 1250, 14745, 728, 431, 5425, 573, "GraphicsData", "PostScript", \ "Graphics"], Cell[45871, 1980, 134, 4, 31, "Output"], Cell[46008, 1986, 134, 4, 31, "Output"], Cell[46145, 1992, 15344, 738, 431, 5417, 573, "GraphicsData", "PostScript", \ "Graphics"], Cell[61492, 2732, 134, 4, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)