(* 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[ 52769, 2217] NotebookOptionsPosition[ 51926, 2189] NotebookOutlinePosition[ 52411, 2207] CellTagsIndexPosition[ 52368, 2204] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"[", " ", RowBox[{ RowBox[{ RowBox[{"HCN", " ", "computation"}], ";", " ", RowBox[{"coordinates", " ", "and", " ", "radii", " ", "from", " ", RowBox[{"HCN001", ".", "exe"}]}]}], ",", " ", RowBox[{"05.02", ".2012"}]}], " "}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "0.25138"}], "}"}], ",", RowBox[{"{", RowBox[{"2.14352", ",", "0.00000", ",", "0.00000", ",", "0.21330"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.39619"}], ",", "0.00000", ",", "0.00000", ",", "1.14481"}], "}"}], ",", RowBox[{"{", RowBox[{"1.09080", ",", "0.00000", ",", "0.00000", ",", "0.83942"}], "}"}], ",", RowBox[{"{", RowBox[{"1.09080", ",", "1.88383", ",", "0.00000", ",", "1.88383"}], "}"}], ",", RowBox[{"{", RowBox[{"1.09080", ",", "0.00000", ",", "1.88383", ",", "1.88383"}], "}"}], ",", RowBox[{"{", RowBox[{"1.09080", ",", RowBox[{"-", "1.88383"}], ",", "0.00000", ",", "1.88383"}], "}"}], ",", RowBox[{"{", RowBox[{"1.09080", ",", "0.00000", ",", RowBox[{"-", "1.88383"}], ",", "1.88383"}], "}"}], ",", RowBox[{"{", RowBox[{"3.31204", ",", "0.00000", ",", "0.00000", ",", "0.95522"}], "}"}]}], "}"}]}], ";"}]}]], "Input"], 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[{"r", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sq", "=", "1.0"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "/", "2"}], ";"}], "*)"}], "\[IndentingNewLine]"}]}], "Input"], 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[{"[", "1", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.975"}], ",", "0"}], "}"}], ",", "0.08"}], "]"}]}], "}"}], " ", "]"}]}], "\[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[{"-", "3"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], RowBox[{"(*", " ", RowBox[{"yz", " ", "plane"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot3", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "5", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "6", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "7", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "9", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "9", "]"}], "]"}]}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]"}], "\[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[{"-", "4"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]}]], "Input"], 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.375 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 -3 -9 ] [.375 -0.0125 3 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 [(-2)] .125 -0.0125 0 1 Mshowa .25 0 m .25 .00625 L s [(-1)] .25 -0.0125 0 1 Mshowa .375 0 m .375 .00625 L s [(0)] .375 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(1)] .5 -0.0125 0 1 Mshowa .625 0 m .625 .00625 L s [(2)] .625 -0.0125 0 1 Mshowa .75 0 m .75 .00625 L s [(3)] .75 -0.0125 0 1 Mshowa .875 0 m .875 .00625 L s [(4)] .875 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(5)] 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 .375 0 m .375 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .5 Mabswid newpath .375 .5 .03142 0 365.73 arc s newpath .64294 .5 .02666 0 365.73 arc s newpath .78901 .5 .1194 0 365.73 arc s newpath .20048 .5 .1431 0 365.73 arc s newpath .51135 .5 .10493 0 365.73 arc s newpath .51135 .73548 .23548 0 365.73 arc s newpath .51135 .5 .23548 0 365.73 arc s newpath .51135 .26452 .23548 0 365.73 arc s newpath .51135 .5 .23548 0 365.73 arc s .375 .5 m .375 .5 .01 0 365.73 arc F .64294 .5 m .64294 .5 .01 0 365.73 arc F .12812 .5 m .12812 .5 .01 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{559.688, 559.688}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztncluXEl2hq84qSSqSlKVqtiipMosjVWa56FKEqVetGkYhle214WGge6F YaPNfQH9BA30zuYDNGBv+gm46ffgo9C6J/OeyLz8InguI+6UvIlWNisiY/j/ mE/EOecff9753b/9+887v//tz+O/+8PP//m73//2v8a/+Y8/fApaPpVlS4/y f+Ms//sgy4qvg0//m3w9yb/y4FLAP8v/rWUHezvZ/Gcn2zs4eFdEH+xl8z/Y znb3D95K9Eq2v7vtInb334dTvQuX+R4yzXb2PhwKlszo15+qsDSB9y/yf8vZ JFKyzz5Ow/LiP/1S/mtSpdVsd2c3mxL0Kc3k91vw+y3Id6uAtb+bbW8X+eQM SEU/eIstJ8mLliSnJiD+dSblhIuDjHJ7O0v7TG57O5Ib4fgQyLponTzsiBYV Sk/lBZ2aqfc/lTLPP0vyvSaZFvUriNrbO3jtTbI6n2SK4V11yNr8kxLnaZjJ puhYeU2k6EkeWzPBM71zqTScDvWBma69POla0zq9L7repM1nf57R7/3dDEbs oSwLVBq9O4NqueBN6dAhdGiAzVI7DVLKpGpKzQH99PBozmbZLeWg7TMNdjz4 GuLoma+ZgC8nAdl0Rr6afy3PRH36D4mc9tt1CDtrDLOmTf27oS5DXZoq49Qw dIa6LF5dWh46H4xhHyPSxoQtetV/CYaFqx5OWz1sqPpQ9aHqQ9WHqp+EqktM lyr8XmsVOCV3qcINdo43+fdmHvK4HxV+ln+v5SGnIcWF/Pt0HvtDP+A8UDif Q4oNjb3RDzjf59+rechXkOJa/r2Sx476AedW/i1Bv4IU32ns1X7AGWvrXIEU N7WzfdMPONeU/zGkuJt/i5z/Uj/gXNEK02C/r7Ff9gPOZa3wLUjxUGMv9APO hlb4DqR4rF2RpvEOwrmkFaaF8pnGnq0RTvRG8aLmch9SvNRY2il0ZvN4XjvW I0jxRmNX+9GxPtcKP4EUP2nscj/grGuFn0GKycXoylyKT/G/7h6OM4rjha+T S2z3W+QzCCNMHxTTx+6BWNPKvfbmsqJh089W93CsKI4fDTim/+T377oHZkkr 99aYyzLk4ieiQWCrc2mLPvTemMcKlP+mC7DKM615SKxq03YCh0ubf6xpT0O5 LzsAp9Ik+5mmaLnqbn2wLtd0A0q7gtr3wnPLddGL5ntXOAO6331apfBUG+Li jSTNVtZmOadsWCHU1KPc5pYmUGsuX2gu1SWySeH8CGljgF2AtA/ahfgG0q5G 5HcR0tLRtEGIr7Q70cbZmgvV4F67wF5C2gWD+ALSnonI7ytIe3exIF7S7t4y sOeQljYQ1vy+gbQkiWwQ4jNISzsLa34bkPZ2uxCfQtpzEfn9CtKSeLxBiI91 xJyPyOUypL2ZCJjEWCvyCDKLAbYJaa2XsUm3yg8hLW2prPmFr5sa7IAPIC1t pKz5XYO043Yh3oe0Mfl9C2lHA8SaId6DtLSlsuY3grTfGtPWBPEupL0Ukd8Y 0l4zpq0J4g+Q9uuI/L6DtNXfgySF+D2kpf2jNb/rkJZekDQI8Q6kpf1jjyHe hrS0f7TmdwPSbhrTBiBOpNKHVKtJWN0W8puQ9rIxbQC5XOL5lbPXImp8K1jj NPnRk7aKDBTyllm1bml4kej+RbJZnnaJX+TfJoT9L4T9T/4t1z2FhNuu872z vRvT+2icXInIj3rzhjGtpfexUnZM76PJ8GpEfjUxUMw8JcXumLZPjZyWqeqv K5MuK7RfoSNTzGbja2PankCkLWP1R6VJIY4hLR2ZBogaRmcbeqXeIMQRpKUw a350Qq3+XDgpRGoxallrfiRnuGhMWxNEmlpoChogahjJ/Ko/BE8KkZZ52g4M EDWMRNLnjWmPgigx1orQ9py28U0ASyr0Tw2Mbke+aLdT0gULHdgHiBr2GNJW 1ztJCpGEEyR06DFEkkDRydaa3xNIe86YticQ6fp83Zh2gHjcKpEcnAQR1vzo nUd1vbABYrUq0YUNyVoGiBpGb67OGNPWBJFuFknW0gWIEtMWMHoI+JkxbdIt N113k+ioCWA1dcrUEOkpbnWd2wFitSrR0xMSAFrzewVp14xpB4gDRG8YpSUZ pzW/15C2unb8AHGAWAqjV6ckxrXmR+pFK8a0A8QBYmMQSdWvuoEOhigx1orQ g3YSxjcBLOmpokvAauqUpGVBwvgB4gBxoSD+BGmXBog1Q/wC0tKt0QDxJEGc WO4hgxK/HGFQYoB1YmF9DmnpdrYtWBLTFzBJt82pwRzLYF+n+9qAaEB0dA3I ZgG9XBgQDYgGRM0hel9K2/DGZ4BTNxzV0mO/xDFaeh1EW9yIz7owjrHJ1UGI BZxZ78ZO5fVPks3ytIknqqxPIexvEPbH/PuYKq97cWqPHeTZr1wdPXDIRhW9 jmt84BxyXRzTph1EGTO3D3AGON2E83keQsaMewJCHiiuS9B8BvI6+GweTjZM e4JOxJOyNtOrfHkmKD6PyNBgTyDeVRCkX7ipseP+QpS3/RJE1hMEmOycyPBS TyDeUBBkmuamxpLZllQQJSY1sLHmTJa/5L3/kq9lrcCSCp2tu2GD/zGJJSMD PTkpbyoIMhL5QGNp4ukJxA0FQUtA2LFXTyAanH3JCKQVsicQv1QQtFd5obGk K9MTiBcUxEPIxdl5J7WEnkAM+z54o92Ynl/2BGLYW8VbjaV3Gf2Rf59VHM8h F2qqrd5gI/P0hHJLOegPttNa51dH5Fx82u+T1tva6j6g5Mc/pQMoMalhxTjr WoK0r+14W3nqkcZL26sOd9sEzttmhnA3MbpaTT9bxiyd58TnXrK68XhMKlnd LdrTbsCip36PtJIxLtMedRfgAwWYpXOs9rC7eO97q1bR/RrmC/O2Ib8G4ZOe LS2JlaaC0iG0MwSQSgAZbKDVMnUZHaSC7I6k9nZHZXSQCjKkk9orHpXRQSrE hJmM6NSu5cg4Wgf1oshMXQwVZO6AyuiM9inZx0zjoC4Gdu26qWTcNbX7Oiqj 5SFAVIwhLLWbOyqjg1SMICy1Ozwqo2UqaAGTm2YZx6nd5pGt5Q7aGyDTtKkd 7ZHB4g5SQVWPds1noLtlKigtdegYKqgHUBkdNI5Dk1tqv4ZURgepoCUvpgxy KkBltEwFbXbJbmJqJ4JURgfNnJGNvtTOBim/DlJh7SldpUJirJWjitDEGOOy kM4W1GhWG461mxhNTQCdW6mMlo1YUienXWSMb0dymEBltGyVlaggqXVqT4h0 gdWg1WRZyy/mvyIfNzQE6MSZ2jkildEgKdLdTysp8hcZ6yZ6SDZBJ5QYeqiM Bo2Jy3IpV8gj/YuWMpo1SIoVQw85D6AyGqTnvJJyR/8i4TrRQ7LN1N4vW6bH XdOVTWLlv6K+QHp4qd1CklS9QUcSwr/87Kn2GVppTgAV7i0GaXVJBM27pJKa 2rEmldGgzxj3+OY1xNLVOW116Vo1te9Kuq9MQNS8093ZTyWXz8s62H70xcoA pHZJzR5Zxac3AAm8L83qzm/v7st/+VWcV+ayLTreOyjSvVqlEw51y1EEYdZX I3USJk92PuTZCOx/kAyXp11xYk7gCwhbgrARhP1Vvlfnwib/suzP+V9HmilY nTdTMK3/UTfHRbh3gZLMz2v3cLl8+sR4MrzPWSbw1+hMYuxkewEathQePbxy WgPl01r+ifEIWH6plH8SOBstYBc9wwfbqrVBB+F1JSWGAPfmj2BLnS/lsTeD +ZmW1LB2h3cnLynoxNWEe1JZbmRgyFIuc8IoWIaJihhTpHSfVO5bTQ0LYeaa MrMZzN7ETIzBZL+Ar4nZ0h07b2u3JW3lioTE2N93aoG0NatnZ8DPad2hU9fN SULZvUp5XweLMXEV1gKkOrv3SLSxbGvv5I5g1PXvaWzYf7uJshjPTt/wQKC+ 1sQW3R3P6OIzvNBVZC3Gq1lZ7FSdskNHAxlzdJayng2XgwPHKT6EvUCbqItx 4UcSGavcQZbcM9o7Psv/Ih1UP2XzHb2ghOruFGDCpyATYTGeK38F7Rqm6U1w EMk+VBI8glgS2ZzWFCTCCivfH0XU8nwblrbGx+hPPqJIwidVX/MNGZljZFje hdgYqZ916jFd2cY4Yd6AQZHxS3GSoIfHyDda+zsQS1J1JwXJ5pWXiMTqq55p qMa47Z7Qybsn4pQE9eGJ+rLG3oJY4nQtUCfqJtW975lojfFpT6Jqt9rR4kHE hjcPVzSWzMTQBaJ1O07z/Guo/bGpJSdM4UU+TC1tLmhnTRfWpDVGdNOyNTYS b60frerVj6amJrCKIqgJ6NEELWAEkTZT7jR2CUr7Vnse0U2PK5w2NtWKSK4u GekMydS3vJ7ahZQNKG2ssd9CLAl1qHFpxaBdgs29hYli6/AliumejK7iiWKa hmgxI7KvK9lkOo+EROHJIkz2Oy0tmxeCfIQMAkyTGOFLKK8JpmmSJakXzQ5k 6Y84p8M+CYRpB7c187tj0k3yh7Dk5Rf4XbjqRDfNO1Yarc0SVkKjQ0H1DXPF qZoO4LQaWemmqhPdNDJouiUht3W+GcPviG667znqsXLx24p006E9LIqtTjdt dyktDf4rUC6dn8l+5shINz2HtbwNzz8N0k35hXsKrQ+lTbN3q2Gt6TXNhcqt k1qJsfaFGEJpt0eXTeEN8g8aSzSSjImmKSrXr+gzLyrOpg9IJHVALJSaU+oE xCldbVpPe9ZNEcmiiGfC4ed5dS6s6MDl6/1yBy5FWVcRop26BYXRGCXaqTt+ B+Vad/1hBc7wsmDVYyMJCp0nA01g3TfFNAH1fBoh1iawnm1JsEVNQPtO640z ra4kN2mwCcJ6T+GJn3rtdSjX2gRh3d3ONIH1lBHTBCShIF0caxNYJZlhnWFa 76o3QdgoZe1NQPM5nW7cMwMinqYLkm9bpfNhDWUa67RpDyOn/F5DWIPE01Am gQtphdB0QQ/xrPdOVok9lWttAtpg0L1QoAmsp24qnhZSgk10U7NQb6TrM2sT uAdHNAEuGPFWBTSigtKSiwLrFTZtLGkbQNOetQkoP7pqDjSBVQQS0wTu5TAR T6OFLuGtDy+si/+CEU8Th1UUaW0C69Mg2pNRE9CJw/osmfKjtyqBJiBhNN3L xDQB7XSsh6DvoVxrE9DWgNabE9AEdNCiQ4u1CawvCql+1AQkcbI2Qdg7AjeB xMQQT4TSbEq/s2otkuscK/Hu8TdNgKnpfqqcBiSc42BF0tA96W/8eor6Nr0U tL72I2LpnpEeFVvJpp0bTX+B6SU17V4rfPQQkLo1cW59HEj8UjuMvP2Alb0S 8DwKNn0ani8qz9bObCWWCKB1u2fEEgRa7p3WDp1Z7kHO1neXTuBDa+G4Ip3U /+lQ0AU6Z8LyT/hVTXVirSL9BaCYluvJ+SKgP+yCyT+dlWXnwsi/dTX5e6FZ muQIAVppIR1BUalpLRjw+7OYL4ukn3SfRmcgOjZeX1CW58PcC/Gwf4/qPDv/ TbQdORnsunFM+/cHUJqd3Yy3IzfsxBIyku7WRKx/Bwk7TdFiI8EvhRGxR2kX Fx8SIy4ep9IdJWgFsM3FeR88WVl2UwwJ/RePW6efZVVQcAyRdIi8wL7hVqMn 1+G7z5v10i8x1odNVtLHEOa6qveNt9P1pDMzqXkSy5rwkG6yqEguKWo6g0Wy /VAzDwh8mmCbuinx7h0A0gIW37+O5eknfKVTflLjO254vd7Zp5ImeA5ryrkw N8ZXlT+aNl5r7OyeosiJSKFLmxNKMoVRWmkH2jm/1FaiZNbn2rSA9L5FArZU sBX4967zkxD/mcYeZQGlSGW1Mld+zloj/danktXoP7TEec1wedTg5Zf0aOGx xk6m67Vy8oKwrwLtWn6g3zt+Z6vOIkkPuetKHz1Ie6Cx62FyL3HuVl6pwvQK sYO8ltNq55Ygmrjuamy5O+UfukIqC697RC2JXcsXtFWodVclJHm9o9SWZ9a+ UStDaasKoU6WuaJ/uasPCaMHaDeVMveejt4KrWouboPcMlGj/FvkNmTL1Wrn 8Kzm4mxjbigpXtXDFY31UrasOZ/pCmUyaM7mIeTz3krZGc3F9QXpW7K6kqrQ VaXMWfggypY0Z3fiqImywpzh/u52Vny2d/etRovqY1K69Zp2yFLO32jsCPKj Kc5xSido69byWOyuZrs7uxollmsPWKJaH8XSkdaV4lKsTH9nfN3xnNaAVGmW pj2oJKZZb5jqOVPi247uvR1nSlwWNvm66rCaUrY1FGiJk7mUnjlc0Fh6d92R dtIhsS3sTljP2hgSNOtIzjJDe1V9VvV3NoLdnNPEPH6wv5sVM/nO3oF1HpdZ 9Ewso7SJuKyckYmLa8o3PXijebyD2wnZCYlPoZgdmPxOljT3vNHZiPba2pDY rzUFzd8rmrMz+t7j3f3nCtvt7uWgIwno9d9tLc0dnLxErcz33y4QVSqqc4d3 L6FdPVe2QKhBxITvQ/JPn47sNVPrEeC5tYCko86M5USs3WEBXj1y/xjBs7tn J10JZ3WVBM8Fvd0RPHfjXsW3zSmFCa/08Dl8x0JXXPR0suU7li5dOtIBqExj /glfOk5+O//gofz4Kf+vE3PfCITOTMPzsfTOwD1i8L4bcdfxhx8x0ABs+qa9 tCmtj10CRsc/CnMO1LyPRWYWhulneVps6bwrce7hGzVrH9/njHxUep+guTdQ rhvTfOR/eMbLile6Ked3r3hvoR7/0XwdfvK3Mv+XuQ18y3Lpx6RhvXi0O6+m tMeQ/6JpiMIqPR4Wxkn1tz/PWql4yk9+J7to536G5tBqj68PLY3UX/tNplVZ wHUomiqrqWKwT02/4ddFV8Rw0yPlEqPmQvON3+rG4vHMWwE6SCye0hatRA1p HBL4GL1OtyeknL/zNnVvtDkHhdmkFFt156ureFt15zun4j2GsNQmH0RaJkEn yBRBamK9Jky8J2HquzFGTNy9fkco7qNRHivZ7ta6C3ZiJCY13aRYaTU+ldoG UlvGp0zWkE6a4TU6oDdt9auFJhjMD7ZuAdK96BlMb2pUH83OWpugJ2ZnY5rA avU6tcllq+VfWsqJspaNLzdheLwtq9dUF6JswZqAep5Vh7oJ2+9E2YKZ37f6 O6RD0OABoXITWL1/UBPQ9vSEev9ozAeOV1J4Qj3fNOGCK7X/J6sLLprOrI4w rU2QwAVXTBP0wvmc13RYEy7nJKYJ/34E0OszsRQ2gnKtXnipyay30VXJfquM BoRrXfL4OdL+RxRbPe9SkxHFka4qt47oygl5tjqypXkjRppnrTMxTtuMBh3Z NuGmuUt+g4nuBt00p6abzjtEd1tesYluukII050Fw2ry+W499Q8+3zVK9k+l 9xDVSfbauPQOeRdmJe+G1pQmGJqIiFoafUTt7BJYhH+sRq31gGYlmYTmRLJX kF56HFzqlxJLzxho0rEa3KT773daWrF5a55fGu1W67gkyfheMdGqRtMsMU3z DTFNPYGYfjvtI7O/Kwj/NeQRINsq5rGSTSueVSJnXSLCTuGJbPfkmToDvS6g I3b45tREt1WwSXSHJWhhuklYJEuEBHlNNQllJKSiyZ3KpfoR3SRUCgtoTXRb RflWumnQEmwSDD1UQr3SPElAVxJEN420sLany++11sW62wuQbL01JJI3phTO ppWCPEOVhKjO9Cc1rbPNRvf+tKFeC9SJcFlf6B5Fq8RYb8H9ZLL+eilLkoQ6 nWrqMpc0lh5t0TnQqe/ofiDz4rE+H32v1QgIiGJILC9MVRh0hpdp1XYmWkhD gRh0T4+p3z3XWGqvioPY+vLIS5l3dSXxocw/zo59KT8BK+OPlJ5JwlMYf5pt NA8vT4OcVmTN2gQ0HVmfzEmPv5iHPIf8SIpBK9ISlOtyeayx4c2IiRTrUPYv uoemMFrrSIJHWVIYsebdSnnXyfCKXpG16quIC6ONuNX0ewyNtGGnMtzFKN16 hfehFWm0KnoRHDqcExyidhRB471pLWfTTjv+jB0umil/0NiwXN5E3VGei0IQ SCDqNETnxjJJdKxM3ecsnQ0uWlQlInzfaeKn+hnFhTmza+VpP/+QJKYaJfP5 SWnSn5yZufB7ExMBPykIK2yvj+6lWNjOXhhdzDvvOFf0r7Amj4kAg4TL5e06 JYl9Y0aBVUAmA1B2Wef1r3E8C1szYSEC6HLBTWf1Nb7s9M/nsfTMOAB2zg5u Nvvx2sH9oDUhBpz6FZn4r2XUG9IGGCgmp4O9ndwItvwX7enL2eYfKsqN9Un/ bGIxsIqKj0PD6qSlP2UjoP5eMnQjIf93HsKWIGwEYX+V79W5sMm/LPtz/peA XY5rq/yfOw2QtVt3cKfh39Ym0iq3C7RrQY9YIJ/SRscwytaJkH8MxtJOiI4W TRxfElKW97L8U4Wy8Ptx6o20A6dc6JwcQx6dmK0izIqrJ2UhJMvYflGKzT+l 66f6mPFLVubDrKK0BMy4FfSZ/kV3GVYJnZUKrzSuPSpkMMvPnDum0k/ohtiq FhjDDN0QWwViCZi5oMPnlv5FJxSih6pOlwxWeuhCIaygUjs9Mqmu6ciRv0ge R1OMVYnDSg9dZFEZDdIjcMR4/br+ZVX3oZMdTU8x9FAZdIVaEz0iQRAfGfQ4 jiSP9IaPrvutpNCFPp0tGySFwtqigsogGX+DVNA2jkRBNCFby6DTMz3WTUWF xMQQQG+3aU6xlkFH57ByTDg/081qDAGUHw0aaxn06tKrltXeYKADIdFDYdYy xsb8rBdKDVJBPYB+Zy1jZCyjg1TQbBBTBokYwufIVqigtLQyxJRBx+Kw5mpn qKBq0jxvLYMOf2Fd0s5QQdWkfYW1DDrohXU6W6GCWpuqTtsfaxkEm3qK9UK4 QSqomrQptpZBvYzmjw5SQdWko5K1DJp7wppzrVBBc8Ao/xZ5YQwBtA7RZst6 Id4gAbQ9JkmUtQzaOYQVnzpDhdf55THLoP1kWFEpjgqJsVaOVgE6LMcQYNVh tBKQ9OxJBJDgxHqNRWG0fQ9r+bQyGIgKkTHKxBhDgNXGSgcJoBsMugCMWYip DKvhxQapoBs/ukiOmXypjJapoN2h9RlCDN109dxBKsj2Cr15tZbhDCOTYZ0O EnBfKxwDmy5uJk/37Ca3GwTtnIqFK+LCnOnVx92F5VQb6IUe5eK0bp52AxYd YMpKd/nHmh89lug81EPv/LaMWTodjhddx8gqAO+N+dLC/RK5Qz81R6FdrtLF LF02/xd+iEg505r8yo4y6UnDijL8dvCD1t6Fzf8+SfvVjNE9Gn3tzfmQE7a3 rcOjRZrUR8PW0EtlLLlh2wds7pU2IXqvsaWId70BWHpFWMrlrcbSVrQ/KN02 +wnkYjVo0R+8zpWOxTcydOq57VOjWwArxLDKuHO57dWU7z7EsF2BsE2CnkAM m6B4orH06rAnEC8rCDJq/0hjybRQTyA6S7NksTysktYTiNd0tI0hl7saS0aZ UkGUGCswejpMliwEjpyuyMbcLY0lI19WYElPFlZgt7RQsv92XWMJdsud0gpR 5MeyH6EHyNe07cijZE8g3lcQND9eVgJo4ukJRFnlPstDaK9yUWNphewJRNlx XslDaD/aExDW/AY4A5wBTmtw1FTB3ryhgizbyfYO/KYKEm4WG0Tr9LYVYdTj hQ5CnNXmF5B7syYH/iTZLE+beGIU4CmE/Q3C/ph/zxoOKB7+5GYu9vYOip60 SGzq8Njfzba3d6fRuVWPxR0eK9n+ZHzIZ3t332oMoicomzgAD3AWAU5/RNgD ovYQWS82B0QDohOBSGJ6gKOVJxzW/GyuGXrXzToCy/vAb4B1AmBV98kxQIyH SA/ZyY3JAHGAuFAQY+w9DxCPWyVSISInVQPERiBKTB+BJT0lkIofWeG25hdj ar+mTjlAXASIlJaU7qz5xbjTGCAOEL1hpEBPeqfW/GLc5wwQB4jeMDJ1Qbri 1vxivGMNELsC8QWkbcXSKJmiITMDTQBLuuVODew5pG3ZYjBZVCJrGQNEDYtx U1kTRDIRRuZfBohdhkiW7siWvzU/rxrqALFHEGNcW9cEkaxTkuGtAaKGxXiB rwkimVsl+3EDRA2je46wt+LaIZIR3hivfnVClJi2gNElAKm6UdqkpwqyFdyE K84GOyXZACY7rQNEDSPZagJvmjEQycryeLEgjiAthVnzI8Hjl8a0A8TjVok6 ZWp3oGRvoMcQSYxFuu0NQqTZM7UrybCL+toh0jKf2hEi2Y+oCJGUubKdvRhl rp4g9yvthd1vG0qlvWtqL48bxrQBBgpBe6HUO68E+hfJZnnaJSbKnZsQ9n8Q 9t/5t08JdGdKdgzDdLJL7SiSTJwct4+5fpUlUgylGqf2BZmAgWJ+kVGm08tB zPxCoyG1l8PLxrQ1LR405aX2XrhpTFsTRFqyU/snJDNEDUKkjVdqD4RXjWlr gkjb59SeBa8Z0w4Qj1slOueldopI9rIahEgCiWiZ0FKe8rt2gZG8LLW/vpYh kjg3tR++68a0NUEkUXxq/3pkzu04ECXGWhG6KUrtLe+mMW1S0X6XgNXUKemu NrV7P7Lf2iBEeVQg03hqt3232wVGj7NSu+Mj44kNQqS3g9Fe5qQv3G0XGD1o Te09rmWIr5Tr1F7h7rULjJR0Unt7I+PsDUIkNbnUXtweGNPWBJHUjVN7Z3to TFsTxLeQNo3XNXIH0SCwiWkX9m1kdTVG5qdSwZIYK5g5bygFivz/rd7FyJjo 0yqFL8+UHdMsHxRJJX9vpdLIoUqDfeujgqju3e1lB6o+k7ZKL7Q4W2oFRP5P 6lXJaZmk8LvGahHJQQLvZB0ERruDN8b8aE36yZi2QYjO7Z8dWIV+2yASupo7 au4qPpUWg2bghCfgLY21rkoNVt05PH0OKd5prG4Nfill1Rkk57SutPc4vv2w VsCIlE+CvI7AJLa6bQY7nEqbSAJxUVuEjlrueF5dkdaFJd0/EoivtJp06n+h sdW1ElvpWF9rhb2+ySS2utZTK3A2tPlJFvpYY6srjrQCZ1Mr7HXIJbHVH6u3 AifG+VYH4Yy1wnSXfkdjqz8cbAXODa0wPdO5qbHV3ym1AkcmAFng6VXuSGOr v2ZpBY6sNvK8kXQaNhVO9XvzVuDINuZ0HkJa0XItspbHVr/SagWO7PPPStD8 j2UbsJ6HV5egt4JEfncuD3nVowpHV9NedYnpUoVr3/I2zfBQ9aHqQ9WHqg9V PyFVD4eFq15f2JzG0qy2mldXiy4+6UaRwqxpU/9uqMtQl6bKmI4oVczb28md +Ml/DcNpqMsi1aXB4TSv8Dn7cQuVvL2Qr6v51/SgWChK5sq4uSLudEAeTFJ8 +nd7/neqUrrLv1MPr1PFSxnc5R+5gCeegOzU/wNpZO/D\ \>"],ImageRangeCache->{{{0, 558.688}, {558.688, 0}} -> {-3.27882, -4.2453, \ 0.0148984, 0.0148984}}], 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 .5 .5 .03142 0 365.73 arc s newpath .5 .5 .02666 0 365.73 arc s newpath .5 .5 .1431 0 365.73 arc s newpath .5 .5 .10493 0 365.73 arc s newpath .73548 .5 .23548 0 365.73 arc s newpath .5 .73548 .23548 0 365.73 arc s newpath .26452 .5 .23548 0 365.73 arc s newpath .5 .26452 .23548 0 365.73 arc s newpath .5 .5 .1194 0 365.73 arc s .5 .5 m .5 .5 .01 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{557.688, 557.688}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztndlyHEd2hltsgPsuLhqQFCBSEilS1L5TJERF2ANfOHxl+1qjcMTMhcOO McKOmLng7cw74GLmSfAoeBQYld11srv6y4O/Oqu6q4GqkFpQVm7/n1m5nMxz zj//svv7//jPX3b/8OsvW7/94y///fs//Po/W//4X388Chq+NRiceV78uzUo /j4cDMqfw6N/Rj+fFj9FcCXg38J/1gYHezsDe3b3X4Xgs4PD/d3B9LM72D88 fFm+PtwfTEfYGewdHL6ATHf2Dl75qX70y3zFNf1pJjhk9tYI3r+WeR7sDXZ2 9gYj8EXxIdYoz+FglDYUM3g9DiuqcVTp8H+jqq0P9nbLLA6P0ozib0N8ynfb r8pPkM0YxL+PX5W87O4fDiajU1iZxYtJzndi7fd3Q6lU+W0n68kqHNOc48r/ SyW34jkTfs+GXMoKGR07e9/VTLK/f5hOsj6dZIzzx/q0GLujEmfCymzKflrU JBQ9yuNMpUPGlh//Pf1hzXSSiW9gOOp747q9LPvmzkxuA4r/yi/ipV/BEp29 3ptEV44mIW/7RMd0zowH1Y4W0SRymI7q5jqTgzXVOLjI4UxiUFxSwM1RwGA8 em8UP8OJV0f/E16O++olCLsohi0ibV+/vn7LTPtW/+n09evr1/Cn89MCwrYz 0p70qr/JCPPz287Ir696X/W+6n3V+6qf3KqHN12q8CurlbNL7lKFF9g5vix+ gwThm9Wo8LPi93yR2xXI+aK9/WQ14DwufteK3G5DzqG09SLko9WA89Aq/BvI +a6B/WA14DwwOO9CzveK3xD0cDXgbFiFH0HOAeLZIuT+asC5a3A+hJzft7e/ WQ04t6zCH0HOYaA4U4TcXQ04N63CH0POH9nb26sB57pV+BPI+Zm9fXs14Fy1 Cn8GOT+3rni9RTjZC8VLlssXUNRnBvFqBojWF48XrJpfQ85f2NvLq9GxzlmF v4Wcv7K3F1cDzrpV+HvI+Rt7e3414Aytwi8g5+/s7dnVgHMG8iNgPxiwtVUB dvS8gkzLGyaTYaEGR4lfdwdH+VBRL60xyiF1nEn9ghqt/7bV62fIJb5dMs3V XlG8owpXm6MDPb28tDGZ9uh9uvZrlnz8vFougBfWCYZioaOw9al4JZ6XywXz vYFZrwUGhuDKjJIHp9ay8DvILAfOmsH5XqxBowtEWjPRXKzCOQvxSNC3wG73 tTF8IQPYOYj39XKBfQVpcyCeh3hfiXVpCeKXkJYW8irEuPdZMjDaP17KAEYX KD5fLkR/O6wCuwzxPlsusE8hbQ5EOlf4VKxLSxBJ5HQtA+JViEcHJguE+BzS kvBJhXgN4j0X69ISRJKD3siAeB3ifSzWZUUg3oB4z5YL8RmkvSkWT/lRXZ4u F+JTSEtybRXi2xCPDjTngRjeqMDoYOVWBrBbEO+JWJdG9w3+6ZAKh46gHy+3 K9LJXg7EOxDvQ7EuLUH8ANK+kwHxLsSj8/YFQnwf0tKprArxHYj3vliXliDS ifpGBkS6P/FIrEsPcV6IDyHtvQyIGxCPLossEOJ7kJYufKgQ70G898S6tARx C9I+yIB4H+JtiXVpCeImpH1XLJ7yewDxNsW6OBBHYroZZWyS3p0w5CPJa1KN mwSzKgN0F82vsV8G5eczKjFQyi8ndcFDw4fTy7+HbIbjLvEm/PsrhP0Owv5W /IZjpPIAsZbeeE7vo6HAH+38Mmio8kfjer2PtbNzel/TDNB85E+5tUaeinp3 TtvTTOdP5ktBnjOtNA2R1lP+krF1iLQk81edfhm0Kvb3Nq1DpIW1vz3yy6Dt m79DbR0i7QD9Te6ph0hyBl+U0jpEElX40phTD5EEYnfEurQEkWRqvtjw1EN8 DPHoIvw8EMMbFRiJfH0JdnvAGpWIk2jeP3Pwy3gC8fyjg9Y75SmASCdH/uGY XwYdAPknWysHkQ7v/PPJ1iFSWv8U99RDpFNm/yC9dYh0Fu9fNzj1EOk6hH+p pXWIdGnEvxdz6iHS1ST/9lUPMR8iXeDy76j5ZdAdOv+aYA9xAmJ4owKj+4X+ Fcr2gDW6q2gaGN1dvSLWpaVOSddf/Ru+PcTuQaR72v4FdL8M0hInjeQeYg+x FkTSlPhCLJ7y+xzi+ZocPcQeopAt2T/9Uiye8iOVI1+Xqod4uiCGNyqwC5CZ r1TnAyNVP1+bMYY1uuTuErCWOmUPsYc4G4/0icnMzAIhkkqyr3V96iGSUadz Yl16iD3EZBjdZPRNO/QQe4g9xFWA+A3E883A6BDDGxUYXRT/dknAGt1VdAlY S52yh9hDPJUQyYiWbxOsh9hDFLJdh7TficX3EHuItSCaCh+7Oc5R4VsRBspV 9aR3ZNrYnzDYJcRJv8pRb/avIZvhuCuM9GH/DGF/grC/FL9z6s3u5+lOrgj3 aa3tzn10ZPmUrFvP9dHNeEvuUtu3hLxLc0oPsYfYQzy++GBzOrgvy7k3+8xy 8U1yz13NcFoZ3JLRHEVtEh2Z5SiLPrJc6MojtdPQUqjHJTWpCHcl16ar5FMR cg5rnxwzE5tWLqk8EhWXrFz1bmhNKp5aAaT2QlREB2o55ow2rFwyFEBUXLdy VW2YmlR8YFUiRV+iIliqCN7Ksi0eJh28ERW3rFz1w5SE7w/tLVkAIQLesxQ5 FixjrciOBRFATuTi27mF9JuWkEwPEQHRwVuOhdlrlgupnRMBDyzFVjsfw30r gAY8ouKxpci27R2ikSYwzVxblkIdj2pSETpb2JaS/RKi4qml8C82++VetFxI S5GoeGQpVHuBNal4xwqggYeo+NhS5NjoP2+5kJIYUfGBpVBtfNak4o4VQKYK iIpPLIV/vcgv96zlQhofREV9u7w1qXjbvkDSGScqoh+AHMciQyuXrmoTFb7H xwaouAEd1afiC0vhb1mq5a5NxTuccWHhE+H7imyAiGvQTX0iolu+M2KVqkSM HzpdJA6eW4Hq3F2TgytWAOnLEAfRl58KP0RWHRB9ailUxw01EV+yAug+e/J0 LqR4DW9fpfhQRa+fWwa+LtzciNW7/OmTyZn+uw1RE17LqOFpRP3SaFAdytSk IU7QdOUoDZ6dkpHTQd/tmXqjgO5tqbNxTUriRE2yLfWkOro2+xFS+O7TVFJ8 D6JzbyejG7MfMgigXGj4oNt3KgG+z9G5t5NDiJdDhR+vMotUwnLoIeJV34M1 PxrfmWp9ynxPwOpooBJV3zVjbXoG7H9Svfzp64dUprDkhKHyUcPXpkhE+RA5 KgdxX03I/RWDeu83uXCZuxP4HUPFftnqRUqDpJqdw0JcodLizoG9PRFWZvga ClBh+yYz/DCSZs17/Xu660pUJD0VEx+qyolv9CWG+VukeixMb1gHvM51iPC8 Tv8Mpapc+GaMYpjqVqweK/oC2KGG3I37m+j6NJFkI6ZQHZLl6E34S2GHnvrr l/r0+BYU/TASweRoJa5B2u8hzKHMXxHnEOUbDI1hT6wGdBqXQ49//UCip76L 5Bimquj6VnFjGFm7bZoydecxsy9UtyI5RPl2kWOY6sYthyhakHxlbDj7x/qC ifpE+WbAY5jqDC5H/90fLqSPsL6v6/qU+fbvY5jqXC6HMnXvtmTKfMcPi6XM l85KlNV3N64WH+P57kD8MPJkkmMQxreiJFFG0VXDSSplvpOYGBZuL4RlBN0O yCHKt4smEUXRVVNoKlG+q6QYtgVhTVPm2zyUKFOPsNQOHeORDzYiZRPC6LpQ jvkwVV7hEFXfXXt9ynwncEQPxWuGMlWk4VBW3/17fcpUevze2AxlquTDoay+ r3V1AI3x/JEphqlO4XIMUPrG2SXK6vtur08ZDfBEj+pqLYcylYOesizKwhtV ulR/co7xfPfEtDClBWzML8dwMUndnhgbznabJE6qmxmVKH+1Tpse2hw1Q5Qq dXM+QpI9qV6VVJPl/p4whqlu6XIoU+VvDmWqaC6HMl9YE8NUH3A5Zu5VSVxL lKmuDIiyUJfLRQh9Kh0kSpVm5hBFZQTRS1DOIqFwVN2iBTF5q8uhURVoOjSq ss766+cYj1o2HEKEIPrQA3lrKZLpwnmO8xRVyOnQqArzcmikwTdwRIvyqFJD V4rIQ10Og6rMc8kMPrZuRZPbTXtL1/hzfCyp8k2HHlX0WX/TFuNFZS7qMzQv 0PozMEgTRo6vsSUz6G9IYrywN6gcG/tsMYNe7ZshVJUfO4T6G6FmCN0yQun4 hXKhsHgVmWjM8WSoSperpk2COZPJZ2ewd4CmTfx9uV871a3lu8YPSQto+KCw C5YLSZ1yWFZF02C8Z2fvIPwfHUxTFr4OZX1qqeoqyTStxQuMm1BajmvVpkge a3IXWQ/HnXtk+ej/IOwfit8wY1yHt2rY1eJ3OPqMtHLvW7meFab1aStMY6R0 dL8JYXQoQsSrLoRpmUqjHXUb2vHctK5E02COI2L1XGTGxtjuYL8lklUf21Gt lfaoRCOFUZPS5jSHZJ+NJMllL0+RrJ5V5ZBM8YjuUOcbRQjVlFKQqCTHHXpN kulzzCFUdXlP/a06XBTP2RSXYeUR3tLSn+QMxGAO0/5kLDGtnhnmME3zfrQI Q2PBZXtLu2T62kmEo8oAG6BRPUek4lUpa7xNHVKEBKQuRmcNo+XTtFZNmcdd y5eIJaGOKjNUz8daIlaV+NPkf9tIoQ1GmuLpsKiISI1M+84l062eVObQfdVI iQsH2qkSoSQhPgf5EbUkLVPFtuoBZkvUqsd91C9p4UAXwYhaCotbVhr/SQyf Q7x6IOoQrx4qU/FqWuqr0cQJNQtRS80SjRvRgoUOJokyVSq8InQTeXFrVpUL FM/t4ofWadHoCC1T6PZFDr/qYbXDrzoWUPHqGEQdMS4/4t0Raofz9pYIJZkN 3T2jAVeVPM9DcnizCGpppksKss6kei3lUg0bpYXvIVUkXcmlNYUqsKa1zB0j 27lpo64kqFB1wUgMxrEgTGNBKkcHC5SWdogB4prlFz+eZH6xfrQpUWXY6v0O Z5TJaQJ1T0mU0W6Qpk9Kq4bFBSOdo9NugLSqNiGeKgn3L2J0poHoACC5XQ+E JicEISy5B0gOYqQVuORmUTfzVLwq9aIdKTVLtKxF/Zwal8JCLiGIvkM/Zx+b Kof273e13izUo1Rbr3Hcjz2ZBhi1MSr5CY1BKsb0/VNHa6kxVLkhFU/TIn3e NG0TPdGwC9WUmoC+Pn815deArHDRIoYG6A42kHr2Tg1EAwzRSBsLahYKI7xq U5G1TVr3qwJK/3q01FTq8VFOU6lCZl8yRI1BQ+Yty4UWE9QsZJdjhZtFvSNE +8JkswhfuNpAUcoaB09afpA1GRLwqELQBppFvTZAxadFY2yPhyihpqCFPNFO AyYJLFRROjUP5afK7nz1mNabJy30mTEipbYMsaG2DHX0dMuwhSrKQxVHLbk1 lCvyxeNvtn061aagqYDKuGK9JYYd1ZV6gbrRbqAV1EtzVPxx+h5lOH0QUUji exihaZiW5j73dD59VEMaG9Vtm6/XyNyHNzmMH6eKVIarG/Ic7iltmvsYVtST 9svqDoCIv2HsOmLf9oj3F0hE/GYG8ZT2OOJLLDlbr3l6fOWVesdcXZ9NDnZl XFWcuyXSTetg2tpQM1MT5Kzdfa3z1psg+qpQiSdSiDyVeNq8HEe811fVBceS iffVSmITEGyih2hUm4A2KrS3o7oQB+oQ3EATqFpXVLyvbBabIHmFqBJGG4oR 3bRaZzdcSXl6ZTkQD3tJBU9FS+y1RDYpPlbXNEV8lWzaL3hk03RP+U4eaZfh tNpdEdpJ8bk6qqdopyGA+qxHO03xRHv1QLt4aMnrOz/tDO1kEmJE8cyOhUTJ xDx1YI952klSvsQ8zftkFqKDzEenXxeT5LxB+T1JBz5yCKbZlbo7kV69HlA8 NLv6/lj90ZUkJQ7pqno3FU/m+s459JNci2jy6KeFDO1nqFlH9M+I+ahXkBWn DrYAGRAl5CTDpfGY0j4z1iYHMLkhqIHPcUNER09k+7WD9JPJW9r8E/3qOWQN +n1XnvSNxuqU3xdVoc3WCG9y2uBr6zQ5zCfdi87PfLqBmXmqgu+jPIYl13sh yBGlqdZ6qNDoZW12mKYTcAJIYc/HVFV4L/9LWP2PKVbBWzmRJzWVa6LRGXNy WK96E5juOo2zTUta/wOqsr02VdWj53sR6ZKJ9v3fdYXeUEHyYtZBRn+wCtPw QMN30tVxmlGyjUmMUhVWjtHvK1/YmAO66KLS++n4zeRHW/63HrfnBjTNlf9V GfbdZkkMq+YO0wwftxeZl+aZsZFMLqcZnnHvSmsTdbjtBNGwegvfYyUybcKT vsBnWaaNa/KWQHJtucLE+sAymTxbiTr+l9qRSlfXYUumNe0X+2z1qyz/ph33 53m8DvRRaOV5Za/0RGooK1gKpfE0msdU58mVpy61zKGp5eNpeobWx8JftOBZ s7fquk4l1HcaukRCeQsfiaUJ6tk07X4DJMZPmuBpAKAhnHwYN0V6eJNDddrr HVMdZ7DB0AKNZWLoosUNyaosjx9ViNQ0wVF7ypHWqNbhmyA49lGSQB5OLh8q f1HfjxdOqMd3oQcvkepz1vZ0kEQjRhwLwl+PUx+DehZw2sgmij+Abj6YPJQ4 b7nObgU/cN55R2JUmxNKfNKkewh6j9mPqkIXOMJDyyG9k2Hq6Soh+fdeKepn ztSSmokh6AGTGvV1LnKEdy2H9Cliz/p01AvG2cacrN+zHNIXGU4c62kvvxLr 0SzSHSY1Kr/zTZ0JI3ppVc+e9emo0UPC20wq3XpJjPDRwh5dEOr5J/7jnuya 0+vXnF5/3SKkreg3z7rvtLTrrN821llNacK/TaKvR3umpFjTs06sB92v9fiW V/AX7a9EhBBKKoAdYb0Ed7C3Myifnb0DYmSJjREWlKOz2bUy3lTvv0i9f/zf 4sAQlaLWK/HH9C+c/fXB3u6evQom1Q/5fG6JTRDUOi4UIWF3dcnaIoTRTe7l 0zvlu2MnUry/G313BMDhZ8PAaSm70zZbxW+YACqDUggjhZzlt411/Z3A6Ijp QSe7fjBKsmYd3psKyAhiSDR2sTGbecfmgcODvUE5E+zuH3ZsHrhrVCbm3LgU qu5l7W1IQwr9HWmJjq2DbhrlbKBgRPTZSPlMhCsWgWwP9KwrO93pfnzR2iSx zYq2n/vNrUr5sSKdGsKFUyncWZwgM9HrNyyHUyTIzGQ92lnJEtpPnGSdctb1 U6p1I24zSdLsURXH2rJY6Wvep74R+Iy2JO6hQ288rU0M+I8sQt3zwlN0VFuF WjwTZ+TOMfeZ6b/outL77tu+BSpkxpsz8QuIA1LMY7ZBQsphjAXfU6WWS7k1 tkha49VP75LdcPqvof1VKSkSvKx7NtKtsUVey4vUJdUkI7Fh+x/vjZEJgeSF si503wZ5Vm6TT/J86ExipIYbO3LkOxmPbpLRVekTyfd0vPQUBZyH/jxx7jF+ 6FZ4HMGbvjK9InfQQwya0IPmQxiXFS2d2FFPDYPlQ12TJvramjswAttg8Cb5 Bawwu3FIVLV6szk9dDaBK8JkUmFv6vN8syhOJ0eBMpwWDiultdfrnUpEZyul Tyyhc2g9UVrT7dlOaEjTnzDSiuJEaPr3Zj8WRPS3ldqPEXSa68UbtAlvFmu2 iZhV1ScHTZhtIub95Y8BnbMVJBNOXTJg1oIZra4bMGuwNVbamt9xcuwVaYPe puWyW2BxplyJd9V+bgdNuXbMcvETh3namJOl40VYLl4y8zTvJ7zcqNa6H9dk XrVI37S17iUzn2Obvi0j6ZRv1d168aywbXoqvgqniE+jKdHThEsAyjfpf6FB 3EumfVXcXhBu1eNKA7T3Dl+W7vAlpwloKT2ZXxl3WW6PjmuCsn45fha74G+q kpbgqE2wldEEK+zyK9vxXdhWkWqx7xE+hm1CWI67O8XlV4GiaT+DrTt4VF1q dt3BY9OeNVt38Kh6lO2sL9McP7INeHZsx7fyNPdd8uZ7Qh0rp72Qz8gK1dZo 2s112rcytwa16Io4HVdb43A8/NDgRHTl+IR/x0q74JbbQf/vOcswWoHfg3i0 dKTJOmqc0BpFPSSLRo5IvErl0m0V+soeQjzihaRRxHNLzUKr8vsQjyZcoofO ZaiXqQ1EaakM+oKoqWgwew/itdRUOe6jtyDtA4hHgw5t8KLiotpAFEYo1W+J bgjdh3hbEK+DDbQJad+FeNRARE80kUeCs6SFyUpY9F1L8iUqly680OJ6E+IR L6rvd6dZaIxXt0Nqs9Dwc9XIoy9I3UQmjYTUypluw6xws9BWj6pOfZpG+/i1 5DQLfSPqd3MOak8oqfO11EC0UFU3tdS3aCROmucgGkMD0VkHLbOTYUP7boTh 0R8JaAYlNnzBUuuNQdMirVuIsmvTX0Z4WYtuGohifuEvwlu9qzHdgfz1ZlNN EN4sgnhalMapNzYBzTKUloiP2oSReBIzVS8MTNc5xqP9F3FAsr07VhdHoEj7 VVWQQyt12lQReTeniQ9XgJODTnhLwhh/adsMtb7oThpWaPepCgVUkmlFTz2v SmPxBElrUnUoyJxo06+2yCWoLgkbNiBeB1tETRuXO7emO3slbRhvLhchNE9X xpHK8ukN1IBI8RGlhXAyoWo3peLVMYiW4dTFaTVIY0syLLnlJuKpN1aPVTpK vDrr0lI62mejkUdtgrhWJCnANahLDt2+hFOiW11s5NBNg0S0oJ2zJ4r+yGhV dh3qQguLuxCvg3SrW1+axqL1OxKr0kBEdEddOhribkBdcuj2BcUS3eqGMofu G0bKhv1VrlDHSWm8CZyvGZeVIfoNFFlZCXefQVWySXNeICWs1JI2HsNb+v6a ppF2kMSLQ6MqesqhMa7K6OsM3260wzNrECm8o70ifQi3oXwSHlG8DlKsnmdR U1DaS0YoDa3xCJAm+hwaNyEt8ULG2AeTT9Kkul+CXzv1XP2u8UMpaHqjFQaN KsQ3HeHQCEKI/D43w3cpYTnc3y08OoT/Uy89qlJDlWR/BvfpToaFRiNBRA7J /hSkkzy2915kPRx38zfh3/+FsN8WvwHOdXh7A8Io3lXL5Z/Ech8Uv2FsHtbr M+qxOjGs3sK7b21MKxrqPRRGEzr1bv82t4/IX2fP9JmS0ODoY0w0iUPVKyVU JfVWNY0ptCVVb27HOz+0blsCyUVPLp5lkhwG6fCZUQ1UatctF5JQ+AohPg5f CiKth3xZjF+8qn4UbezSwpGGFQqjLSnJy04BoWG/PIo2vYWkVSb5IQj/R7sD XyvMr70vIZbIUy4Mp4pXdczDIiN8jrQIumFvaUDIoceX90r0KHfZc+mhjcUZ I4VyiYe3dIGINkikaUtST8LhixM7TWPYKU14/5h+G8/8aOHWQRqPU2nxilct MlEZYWV4pwih9SWNaqRTT4caVFNfwCcR5d+XaYYov09TAxGcZijzRVESZf6N Sb941cyieqCqHmDkUOaLliTK/Hv0zVCmntypZ5tkZuSKWGdfhMGUhTc5RKnG 6btO1GNjw7kl42uPNUOUelqmXj/IIcoXcEgfoa/U6xdPEg+y0aSe16hn5GSP 9LJYZ5UDhzLfIEMzlG1BPBIYqgevOZT5mzyJMt9QTjOUbUI8EjqpR385lPmL boky36ilXzyt1r+AeKqcXz2DIiPMdKus/rpRosy3GdwMZarU3qexGcr8RZBE me/FoqcMXvnuPv3iSeD9JcRTRdD+NBHzI6OQdAG3/sJIooyKV1tMpUyVhAYa g2y3aaL8iUoiigyoqsWrRKlST1UunEOZP4RIlJEFYLq2T8XTjXcy8xo1zUmQ osqAqXFr1TTU4GvIxaGHopM6SQ49qsRJFWPmEEXnXsdRFt6kffo2R5QqZ1IF lTlEkcz2K2PD2WSnPao1R5QqXVIFlTlE0XUh4sD5CIMh+/D1Nk2UKlN6YjUg emgMVQcJ35WSRM8PEEYmB+p/7zGeKipRRUg5lNGpEzkjcih7AWFk5ySHsngD mLauquCIBl91XI0Xs3+sR8+P4645GRYiH2X+cwYl6r5eFRHVI4ct1L+qR81L 47Qc5Md5vs7gRd28P7fC89mYMQO1XY+IyegeBzRRkttqdWupSinm/XCK5ydI 61BB0dU1A1ERFdRpMa/KHGoREEp7DSkk2NGcYQ5sdTejShBUAvyeXIOKGbdo 21Cayoa/H60wFJovh4PqKDg90tfg4LhBtj4R/lqu/k6Wdiq0rnxpbTqYwPJm LlZgXk6uSN5ArWjpXGEydAFaWKtbWJWXF1aav8icm57ogziHlOhhl9aG39jb HCp8N3fHURHeJPcElarXJ4BoVPdUKgHfWi7JQWUYe4rcA6hD1yfA/8wq+6dQ GtkBU6moLwCZ+wNRd7c6UQNeB3v7ANqkEi9fGbu+VHNuNqL5uHk4KB+qSHKt rzq59ufmBrDTStHHHgc+msi27S0NmgQxemvyjwrnhhgtQ9B1kqS3N3+Lll7E Fg/NooT9EyvIP4yfG3vUnqIrgCQ6+tJSqJMzL1AGLCknFj62Iv2LL3OzEI3o 0N14YoF2DXl8lDXwXfTFFE8thX/TbG5SolovqWQl/WsLUlS/3OgrnbZhREX9 63dzkxJtQdGt4KRr1hDkSx/9cs9aLiS1IVI+tBT+Deq5qfiNFUDXC4mKp5bC P1sW1iYhmu/MM6Z4ZCl8tZm5qbhvBdDVLqIi3pZUJ7Xk5Byi0dkLUbFlKXy9 3rmp2LQCVMOj71sK/46eX+41y4XO5mjZ/cBSbM1BRXhDFXlob0l3kAgIKWqN 5Mk5LESjewFEwD0rl669zr21iqpkdHRMBISeEsQgvg6DX2607LMFKYiAu1au byJx7o/hiVWJNA2Iig2rkjpUUbnvWLl0tYuoeNvK9R0OzE1FGKvDPo9WskTF HauSb+fBL/eelUtKF0TFNSvXd3c4NxVhmRTUsmi/SlSEKp0rQnyLZH65W1Yu 1ZSoOG/l+p5956Yi7BUvFbGS3qUv1umUVMaHbhmTsMsnGFDxfdvPjZh2g1eK H7oJpkIMrXOtiEVnpw3X2uuoKmmUH4k8qFP69esh9hBXE6IZRdqfNok0GOwO 9g/RKNIJYyBaQzHUeMHhhMGetLQTgO9PGg76a8hmOO4KI2M9f4awP0HYX4rf SaM+pVy/MLy1v39Y9rjOMKzKRef9tA72Bjs7e+PXhe2xzn1aLTFwbtxZD0bf Vnh29g5oRXTCkHdp5ugh9hB7iPNBVI+ae4gWpl4s6CH2EHuIqwsxvFlFYHOf MVCYetuzCy3WEYg5qh89xB5iMkxVS+kh9hBPFMQcrcMe4rwQ1evKPcTTBDFH p/w4iOHNKgJrdMndJWAtdUrVaIsKMccYSw+xh5gMU419qRBzjHj1EHuIyTDV XKQKMccMZA+xh5gMUw0OqxBzDAn3EOeFqBoi7wLE8GZZwHKMzTe6q1AdFCwC WEud8hRAVN2aqBBzXJP0ELsCMcfdUUsQVRdZKsQcb2EtQfRt6vcQIV6Of8KW IKreMnuIFkaa4aq/kZYgqn5ye4gWluPE9ziI4Y0KTHXXvQhgjS65mwaW40u8 pU6perPvIVoYadKrXuZagqg6m1MhksVz1eNgSxBV53A9RAsjA/+q+82WIKpu 2FYYoupATYVIditUV709xHkhqj7dVIjk0kX1Vu1AJAW2we5+jgJb08jJ/4/q P95BnlZe3BnsHWQpL6rO6VQGtiDefbEuDgPlvaRSMXpaQfbvIZvhuEuMFF9/ hbDfQdjfit+UguzumOwchlVfdirDmxDPt+RUr4/FfjVoSEFWdU2nMkD5+QZi ao0v4Suz4eUwZ3yhtsoxZUN9yWey9cmDPnjVsJg6IPmfS+sQfd+o9SHSrOOP uT3EfIi+U+D6EGlh6K8dWoeouoNTIdIOxl/7tg5RdeSmQqR9qL9Jax2i6oJN hUgCE3+r3TpE1XmaCpHEXr5MqHWIqtszFSLJZ33JXg9xAmJ4owIjobwv2PWB 0WmIL1uPYY0K+cMRzJkiZQ4cOqLzD3da74qqpzMVItXFP4VsHWJ9l/Z+GdHu u3+bo3Vg9R3P+2XQzaolQ6zvKN4vgy7++ZfHWodY37G7XwbdS/XvNrYOsb4b CsqFrk37F25bB0a6LDn22UmFwb8Z3jrE+l67/TKis2df2611YPV9a/tlkK7w kiF+bVznACM5nq8E3Tqw+m6a/TKSvngagBjeqMBU30UqsOgQhJyVUYpGl83k p8i3+umXMYR4KrCWuqLvn0wFRt7QflguMM3NcDVf9jD5crlQajiL/MmivrHa D9hF5gIBvLJOpvavM3VGnZZqHStCvr2SmLY7UGvPW2zMMtGvXncBgO5P23cZ 2onWgMEyVJg8p/tuPzsIJ87RP0DOvhPPDsI5axWmxYy/JO0gnPNWYTJqFz36 0bavKTi1lpAURl44Y1Gf21tSxlRBNLpwpLBmHK93sItdNeZIFhSd4JFsr4Nw bliFSfIaHdmRpkUH4dyyCpO6SHRGRwc4HYRz1ypMZ4nRoRydDXcQzoZVmM7w o3s4upPRQTjkWC/mHJ290V2oDsLZMjh0ASs6bKPrHx2EE7pY0iFadLpGJ+gd hBNOUpNOzaLjNDq/6yCccI4jOEQjgXoH4YR9THBM9mI1KkxFUbymqh7edKnC ra+AF81wX/W+6n3V+6r3VT8lVW8vbDsj7ZQq06QaW1KJi+5RkB1TCltE2r5+ ff2WmXb8RZnG3v5u4dEw/F//OfX16+s31+c0rQk6+cSJKhzDhp+N4me8USw1 KAst3UJDd/xBHo5SHP37/nQ80zXd43jmFneskRk+7mqkGPBpImDw1v8DBp1l GQ==\ \>"],ImageRangeCache->{{{0, 556.688}, {556.688, 0}} -> {-4.27948, -4.24584, \ 0.0149534, 0.0149534}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"] }, Open ]] }, WindowSize->{839, 824}, WindowMargins->{{Automatic, 529}, {Automatic, 32}}, 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, 1582, 43, 152, "Input"], Cell[2142, 65, 1337, 48, 132, "Input"], Cell[CellGroupData[{ Cell[3504, 117, 9919, 278, 492, "Input"], Cell[13426, 397, 134, 4, 31, "Output"], Cell[13563, 403, 18282, 872, 568, 6517, 677, "GraphicsData", "PostScript", \ "Graphics"], Cell[31848, 1277, 134, 4, 31, "Output"], Cell[31985, 1283, 134, 4, 31, "Output"], Cell[32122, 1289, 19651, 891, 566, 6400, 671, "GraphicsData", "PostScript", \ "Graphics"], Cell[51776, 2182, 134, 4, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)