(* 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[ 71345, 2687] NotebookOptionsPosition[ 70497, 2659] NotebookOutlinePosition[ 70983, 2677] CellTagsIndexPosition[ 70940, 2674] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"[", RowBox[{"Fe", RowBox[{"(", "CN", ")"}], "6"}], "]"}], "--"}], "-", " ", "computation"}], ";", " ", RowBox[{"coordinates", " ", "and", " ", "radii", " ", "from", " ", RowBox[{"FeCN6m06", ".", "exe"}]}]}], ",", " ", RowBox[{"05.02", ".2012"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "1.28759"}], "}"}], ",", RowBox[{"{", RowBox[{"2.63524", ",", "0.00000", ",", "0.00000", ",", "1.34765"}], "}"}], ",", RowBox[{"{", RowBox[{"4.22692", ",", "0.00000", ",", "0.00000", ",", "0.24403"}], "}"}], ",", RowBox[{"{", RowBox[{"5.18906", ",", "0.00000", ",", "0.00000", ",", "0.71812"}], "}"}], ",", RowBox[{"{", RowBox[{"5.35906", ",", "1.94986", ",", "0.00000", ",", "1.77986"}], "}"}], ",", RowBox[{"{", RowBox[{"5.35906", ",", "0.00000", ",", "1.94986", ",", "1.77986"}], "}"}], ",", RowBox[{"{", RowBox[{"5.35906", ",", RowBox[{"-", "1.94986"}], ",", "0.00000", ",", "1.77986"}], "}"}], ",", RowBox[{"{", RowBox[{"5.35906", ",", "0.00000", ",", RowBox[{"-", "1.94986"}], ",", "1.77986"}], "}"}], ",", RowBox[{"{", RowBox[{"6.12140", ",", "0.00000", ",", "0.00000", ",", "0.21422"}], "}"}], ",", RowBox[{"{", RowBox[{"7.41822", ",", "0.00000", ",", "0.00000", ",", "1.08261"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "2.63524", ",", "0.00000", ",", "1.34765"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "4.22692", ",", "0.00000", ",", "0.24403"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "5.18906", ",", "0.00000", ",", "0.71812"}], "}"}], ",", RowBox[{"{", RowBox[{"1.94986", ",", "5.35906", ",", "0.00000", ",", "1.77986"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "5.35906", ",", "1.94986", ",", "1.77986"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.94986"}], ",", "5.35906", ",", "0.00000", ",", "1.77986"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "5.35906", ",", RowBox[{"-", "1.94986"}], ",", "1.77986"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "6.12140", ",", "0.00000", ",", "0.21422"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "7.41822", ",", "0.00000", ",", "1.08261"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.63524"}], ",", "0.00000", ",", "0.00000", ",", "1.34765"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.22692"}], ",", "0.00000", ",", "0.00000", ",", "0.24403"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.18906"}], ",", "0.00000", ",", "0.00000", ",", "0.71812"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.35906"}], ",", RowBox[{"-", "1.94986"}], ",", "0.00000", ",", "1.77986"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.35906"}], ",", "0.00000", ",", RowBox[{"-", "1.94986"}], ",", "1.77986"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.35906"}], ",", "1.94986", ",", "0.00000", ",", "1.77986"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.35906"}], ",", "0.00000", ",", "1.94986", ",", "1.77986"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.12140"}], ",", "0.00000", ",", "0.00000", ",", "0.21422"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.41822"}], ",", "0.00000", ",", "0.00000", ",", "1.08261"}], "}"}]}], "}"}]}], ";"}]}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], ";"}], "\[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[{"[", "10", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "10", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "10", "]"}], "]"}]}], "]"}], ",", 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[{"[", "11", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "11", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "11", "]"}], "]"}]}], "]"}], ",", 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[{"[", "12", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "12", "]"}], "]"}]}], "]"}], ",", 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[{"[", "13", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "13", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "13", "]"}], "]"}]}], "]"}], ",", 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[{"[", "14", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "14", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "14", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "15", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "15", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "15", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "16", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "16", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "16", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "17", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "17", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "17", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "18", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "19", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "19", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "19", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "20", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "20", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "20", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "21", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "22", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "22", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "22", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "23", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "23", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "23", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "24", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "24", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "24", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "25", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "25", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "25", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "26", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "26", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "26", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "27", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "27", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "27", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "28", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "28", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "28", "]"}], "]"}]}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "27", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "27", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "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[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "10"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], RowBox[{"(*", " ", RowBox[{"xz", " ", "plane"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ 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[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "5", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "6", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "7", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "8", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "9", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "9", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "10", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "10", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "10", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "11", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "11", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "11", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "12", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "13", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "13", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "13", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "14", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "14", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "14", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "15", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "15", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "15", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "16", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "16", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "16", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "17", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "17", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "17", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "18", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "19", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "19", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "19", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "20", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "20", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "20", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "21", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "22", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "22", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "22", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "23", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "23", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "23", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "24", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "24", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "24", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "25", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "25", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "25", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "26", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "26", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "26", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "27", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "27", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "27", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "28", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "28", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "28", "]"}], "]"}]}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "9", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "27", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "27", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "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[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", " ", 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.05 0.3 0.05 [ [.125 -0.0125 -12 -9 ] [.125 -0.0125 12 0 ] [.25 -0.0125 -6 -9 ] [.25 -0.0125 6 0 ] [.375 -0.0125 -12 -9 ] [.375 -0.0125 12 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.625 -0.0125 -9 -9 ] [.625 -0.0125 9 0 ] [.75 -0.0125 -3 -9 ] [.75 -0.0125 3 0 ] [.875 -0.0125 -9 -9 ] [.875 -0.0125 9 0 ] [1 -0.0125 -6 -9 ] [1 -0.0125 6 0 ] [ 0 0 -0.125 0 ] [-0.0125 .1 -12 -4.5 ] [-0.0125 .1 0 4.5 ] [-0.0125 .2 -12 -4.5 ] [-0.0125 .2 0 4.5 ] [-0.0125 .3 -6 -4.5 ] [-0.0125 .3 0 4.5 ] [-0.0125 .4 -6 -4.5 ] [-0.0125 .4 0 4.5 ] [-0.0125 .5 -6 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .6 -6 -4.5 ] [-0.0125 .6 0 4.5 ] [-0.0125 .7 -6 -4.5 ] [-0.0125 .7 0 4.5 ] [-0.0125 .8 -12 -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 .125 0 m .125 .8 L s .25 0 m .25 .8 L s .375 0 m .375 .8 L s .5 0 m .5 .8 L s .625 0 m .625 .8 L s .75 0 m .75 .8 L s .875 0 m .875 .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 .125 0 m .125 .00625 L s [(-7.5)] .125 -0.0125 0 1 Mshowa .25 0 m .25 .00625 L s [(-5)] .25 -0.0125 0 1 Mshowa .375 0 m .375 .00625 L s [(-2.5)] .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 [(2.5)] .625 -0.0125 0 1 Mshowa .75 0 m .75 .00625 L s [(5)] .75 -0.0125 0 1 Mshowa .875 0 m .875 .00625 L s [(7.5)] .875 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(10)] 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 .1 m .00625 .1 L s [(-4)] -0.0125 .1 1 0 Mshowa 0 .2 m .00625 .2 L s [(-2)] -0.0125 .2 1 0 Mshowa 0 .3 m .00625 .3 L s [(0)] -0.0125 .3 1 0 Mshowa 0 .4 m .00625 .4 L s [(2)] -0.0125 .4 1 0 Mshowa 0 .5 m .00625 .5 L s [(4)] -0.0125 .5 1 0 Mshowa 0 .6 m .00625 .6 L s [(6)] -0.0125 .6 1 0 Mshowa 0 .7 m .00625 .7 L s [(8)] -0.0125 .7 1 0 Mshowa 0 .8 m .00625 .8 L s [(10)] -0.0125 .8 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 .125 m .00375 .125 L s 0 .15 m .00375 .15 L s 0 .175 m .00375 .175 L s 0 .225 m .00375 .225 L s 0 .25 m .00375 .25 L s 0 .275 m .00375 .275 L s 0 .325 m .00375 .325 L s 0 .35 m .00375 .35 L s 0 .375 m .00375 .375 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 .625 m .00375 .625 L s 0 .65 m .00375 .65 L s 0 .675 m .00375 .675 L s 0 .725 m .00375 .725 L s 0 .75 m .00375 .75 L s 0 .775 m .00375 .775 L s .25 Mabswid 0 0 m 0 .8 L s 0 .79375 m 0 .8 L s .125 .79375 m .125 .8 L s .25 .79375 m .25 .8 L s .375 .79375 m .375 .8 L s .5 .79375 m .5 .8 L s .625 .79375 m .625 .8 L s .75 .79375 m .75 .8 L s .875 .79375 m .875 .8 L s .125 Mabswid .025 .79625 m .025 .8 L s .05 .79625 m .05 .8 L s .075 .79625 m .075 .8 L s .1 .79625 m .1 .8 L s .15 .79625 m .15 .8 L s .175 .79625 m .175 .8 L s .2 .79625 m .2 .8 L s .225 .79625 m .225 .8 L s .275 .79625 m .275 .8 L s .3 .79625 m .3 .8 L s .325 .79625 m .325 .8 L s .35 .79625 m .35 .8 L s .4 .79625 m .4 .8 L s .425 .79625 m .425 .8 L s .45 .79625 m .45 .8 L s .475 .79625 m .475 .8 L s .525 .79625 m .525 .8 L s .55 .79625 m .55 .8 L s .575 .79625 m .575 .8 L s .6 .79625 m .6 .8 L s .65 .79625 m .65 .8 L s .675 .79625 m .675 .8 L s .7 .79625 m .7 .8 L s .725 .79625 m .725 .8 L s .775 .79625 m .775 .8 L s .8 .79625 m .8 .8 L s .825 .79625 m .825 .8 L s .85 .79625 m .85 .8 L s .9 .79625 m .9 .8 L s .925 .79625 m .925 .8 L s .95 .79625 m .95 .8 L s .975 .79625 m .975 .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 .025 m 1 .025 L s .99625 .05 m 1 .05 L s .99625 .075 m 1 .075 L s .99625 .125 m 1 .125 L s .99625 .15 m 1 .15 L s .99625 .175 m 1 .175 L s .99625 .225 m 1 .225 L s .99625 .25 m 1 .25 L s .99625 .275 m 1 .275 L s .99625 .325 m 1 .325 L s .99625 .35 m 1 .35 L s .99625 .375 m 1 .375 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 .625 m 1 .625 L s .99625 .65 m 1 .65 L s .99625 .675 m 1 .675 L s .99625 .725 m 1 .725 L s .99625 .75 m 1 .75 L s .99625 .775 m 1 .775 L s .25 Mabswid 1 0 m 1 .8 L s 0 .3 m 1 .3 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 .3 .06438 0 365.73 arc s newpath .63176 .3 .06738 0 365.73 arc s newpath .80607 .3 .01071 0 365.73 arc s newpath .71135 .3 .0122 0 365.73 arc s newpath .87091 .3 .05413 0 365.73 arc s newpath .75945 .3 .03591 0 365.73 arc s newpath .5 .43176 .06738 0 365.73 arc s newpath .76795 .39749 .08899 0 365.73 arc s newpath .5 .51135 .0122 0 365.73 arc s newpath .76795 .3 .08899 0 365.73 arc s newpath .5 .55945 .03591 0 365.73 arc s newpath .76795 .20251 .08899 0 365.73 arc s newpath .59749 .56795 .08899 0 365.73 arc s newpath .76795 .3 .08899 0 365.73 arc s newpath .5 .56795 .08899 0 365.73 arc s newpath .40251 .56795 .08899 0 365.73 arc s newpath .5 .56795 .08899 0 365.73 arc s newpath .5 .60607 .01071 0 365.73 arc s newpath .5 .67091 .05413 0 365.73 arc s newpath .36824 .3 .06738 0 365.73 arc s newpath .28865 .3 .0122 0 365.73 arc s newpath .24055 .3 .03591 0 365.73 arc s newpath .23205 .20251 .08899 0 365.73 arc s newpath .23205 .3 .08899 0 365.73 arc s newpath .23205 .39749 .08899 0 365.73 arc s newpath .23205 .3 .08899 0 365.73 arc s newpath .19393 .3 .01071 0 365.73 arc s newpath .12909 .3 .05413 0 365.73 arc s .71135 .3 m .71135 .3 .004 0 365.73 arc F .80607 .3 m .80607 .3 .004 0 365.73 arc F .5 .51135 m .5 .51135 .004 0 365.73 arc F .5 .60607 m .5 .60607 .004 0 365.73 arc F .28865 .3 m .28865 .3 .004 0 365.73 arc F .19393 .3 m .19393 .3 .004 0 365.73 arc F .5 .3 m .5 .3 .004 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{615, 491.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztndtyHEdyhlsYnAgeJZISdaAGoniSKK0kSjyTInRc3CgUvnLYsesIxYbX qwuHHWvc40XwGI7wJa78HHwAPwSMrunO7Gl8VchGV/d0EzUhjIZ1zPorqyor Kyvrl992/vav//7bzu9/+W3zj3//7T//9vtf/mvz5//4+2HQ5I0sW/q3LHvj /zaz/PdBlpVfB4f/zb5+z7+y7J/c/ybZq73tbGffxWRLRdjBwX62k2fb3nP/ OsiWXbrys7336mUoeCM72N/J5j872f6s/mrpnsKfd1m4h/Lv2uHxzAWva1KN zPZezYo7zLLkgiZ5joLcg+yN+Q5xJezsu3+tue/V7ODVXrZ9WHmZZW/blfoi HP2yKHFG6Qyj9XCWWTNWsr2datQs6wmKO4bAreZNfl5mOeSBEsSlANGzuOyf i2z7O8oqGxKmXbQFYS8rVbqWH3LHWUj3pKQ8b02F8iLNlrEYImHLSP6zkoQK OjIqtveWIEvBff9Qoy7/zJh1VYaD/M1KXy9Gwtxo3Nl/7C1pIiXlUWVYVnR8 /veoCRWHbdrfP/BQIUhwZ5SjvSikwnlHSnrJwd8DI3pKkFHQuFf+seBsNxgE p1mL1hvxTn1A5bOU46U1yPKiHFDbZZgkz75tXpyfKnvLXsjkc1hNgeMkQOZS FcCC2rlpuUKttcu3iuDa1O/hwHIRq1Z9yMPNCvFQ8vJEzarOnUW1spzVqJwF Z0ekhqEEXJ4FZIV482v+tVaJyueVPLIYaeeMYWdb5I1d3mnLOyRaThsGK2no jDnvkGg5bRgEhs4fIeznAaV73UnfhSJ2jem6Ky+RnkhPpCfSE+mJ9AGSvpxH UGGLIvjH/NsVF9jgjwnhRHoiPZGeSE+kJ9IT6Yn0MZKepMTEHIn0RHoiPZGe SE+kJ9IT6a8V6UnATcyRSE+kJ9IT6Yn0RHoivQvSS6t3NYZ3lvxr423RmSLq 6LWQUTZn1f0v/8Zrba5lKy5fXuINV+ykSLE7qyT/3sy/XLpCeM3Cd3zyKPe7 etNolACuFRw+A/AQtL2xt6gkvbwxknP5iJsz4tkzkZ5I74T0+/n3FZesG/rL z1v514NuGvFl/u0Wliv5L5ehDf2qgNHy7ndD+r382y2Xb0Osi/i+RUu28m+n 4FqC2KtS+efdtO6uwPc+tq7stq0WTXwhdaxC7HtSx71umnhbKvgQYteEuBct mvhM6jgDsR9I7CfdNPGmVLAJsRsS+6xFE59IKWch9kOJvXOCJnoVvB9DRmoi XQZ6bCSEGvtImnMeYjcl9hbEnlg5/JEU+zHEnodSHrVo4kNIR429AeluGOtt yMbTIK4XJLZNs7+RUi75+M3FdtTE68FxcklireuwV2JwpbwFsbcklgZShCZ+ AOmosW9BOusaTvV+BekIgDuQ7no3ULwP6e5COirvKyNJXnGrlu4ypLsL6T4w 1tsQivcgHa2GVyDdl0aSqN4vIN0VSPcJpCORKAIU70K6TyHdVUj3hZEkqvcP kO4qpPsU0r1nrLchFO/k324yIvn2bYlt0+zPpJRrEHtPYjtq4tuQjhp7DdJ9 1qLZ9yAdAfA5pHunGyiIof8A6WiAWDcHVC8x9LuQjgYIbfoiQEHTHDE5TZs0 V1ihoGmOGJ+mTZoreoSCFlPrfqoNFLSY0goSAQpKR4tfbChIDqDFr0coSDok kYikTRKxrFCQdEgiEUmbJGKdeOv7JmQk8fg6pLPuwb3qklo6Eo/vQzoSt0+8 HbYC8CGkuw3prADcgnSkOfoa0r1prLfhYLgE6b6GdAkKCZtCOtIqWKG4Cemm kO4bSEeahghQXIR030C6UwDFBUhHKpRNSHfTSBLVa9VPPoB0F431dgTFR5CO 9I6xoSC94wVjvQ2hIJXpQ0gXGwpSmX4E6QYIRRttbxsoHkE60kaPGAriMiqv Ryjo2ISU6zS2qRdjQ/EY0p0z1jsSKGhFormnRyjI2x4dpsWGYgrpaHEeIBQk EtHiFxuKJ5COjmcjQLEB6Z5AurFD4d2QWwGgTdPUSEgbAJ5Cug1Id+IN+esC QITBcAbSPYV0saGgDT5t5RIUCYqFQkFGyGR9RNpG0jBZoSBtKGnAnkE6Mt1K UCQoEhQJioFB0caGqQ0UzyHdurHeBEUdipk59KrvDbU1I8WU7jmki42U1dAv AlJlE6vPnZG0dUrhkWtglefMXJi7OvCrK2ZSsNbsJuBfI4f9kn83uFSof5WH w1JfVieF8JteCSm5zomvdyWEGqy1CYoERYIiQBLNKc4M82IeQjf3+hNLl+fS lTR9Bul7BMepn5w8cFF+9QGJ0wuvHl9vj1C4g00XRLbETjCiM5PYO1tHxpKP Xa9KLNHS4253UwghC+0lwZKOkGNDprQsQ453grT0CNl1ISR8h3faA2RKyyrk eC9IS4+QvS+EhO8E01IUGzKlJXx3mPL2CNm7Qsgm5NA7xnRjITZk16SDvHeR Jz5aOoKMtBFXhRAybjknkL0DeadGMq3nQTrBk4XZR0FaTnJG5D1GJ6AuS/Xh i790gSg2UEpL+IIw0RL1uJ2AolsRBBlZSVPe2OBRHQQjnYBS3o5OJ8mSgSAj vS9dS6CwNtDS6kj0kY09nZIQfT1CqwOYLim9JbF9wKi00MWlO0FaOoLM+rqt 9bo0GbjSmt0GRqrDeq2a8nZktEbQUpj1+jV1i0vn9tw/Qayb/i/kIbSyesur 0UI3WMMPJXcOIw10uqRL958pr5sGnNQwq+2IWsMlf5n/WpNfLv0Eal2XWGoj tYc253SHmmjv0SaZRHO6Jk7cRhLFBQGK7qMsS6yzkF9RuJfnSjkolC4PJP2a rz0ulhYzoo4uopNmi/L22CmkKbXe8acO1a0BXSldl9gvBVAqRbex6n6NJgj1 OkM3yqhtVj8C3rbF7xZaVFYgzOpvYDVIem27QDKQA1R9T1BeTUfgUVeprETt JZqtfg4ob48XcJYhzOoPgbpZoaV5XccXySfUVbUc3o00yWO02lB7rX4YqL0D 7CpyUjCBsDMCKE0rdJ3RaVNqa1ZtRXNB6haP9qCqEWnTQeQSgVoZ617fqo/g JQiz+o4ggmnupg66KDCSGty7W1ZNotdTmToHIpmL2mv1WeFlQ4fudrNucd4/ nWRUq3kibLpWlFHN5so7/NDl9Q8C6XW4UGsJb1Uh0+xETSK1N/UQLZyhtpIe +KtA+jWBdqWSs/y4Jv3YrLO+lT5ZAVpUYqrPsfmH7tbXtdPSQwbOJIUXrW/U axRGeUk8oXR1KS//TCFv3etH/tFNAilI9Mjuu2O6yhUR9qS6IYVNJB11C+km vedAtbzENiS4k36AwigvqUpoYl6VVm5CjtnUcWQn5hVOVgS95/IroJR+KoWR KHpeYovptPxY+0PbRtMCMTipErxh3tMM0q/QhKcHpxbsiw8JGrpfI4uVwGRl vdJ4UXrTOkWRtE+9QPysByQ0/RO3U9tILKejvrocln+sExMtWboxoNtQgc5Q l8A0tEhMdYmbLu8kd1J7ie9p8ac+ojDKS9oXGslLgfZ4l/xZETp15P+n0aM7 L7r3HeiwB5KRiuUOOxpGIjTNFksFt1bDMj74pUmJNjK0TlPXkTKNJPVpQ7bz StNLvhzWkUHucAI9aXUkRLtVlRPIe5xlM5R/yCMDzXTUWOpGCqO8pL3ZBPpI JUDd94WgQTmo+8JOpkzdZ/UO5lU2qK7T0H3ElzQKqfuIAqqDwkhrRAoD6j5a jilvXXHny0vaoLDjtM47UqUp0hWpcRGpm6n7aCIktQjN1W26j5QcjfSu3lZS p4V9IJo6zeqn0Xuu4Qh2VgXu3E2W7F1vP6hkT24aaO4jBQ/1HIVRXpr7qOes hxtrgoGhgI460upx1HtqqEo6VUp55XhSCNAqSGPJa6RqCLMqT2gapbxvQ3vJ cZH1BDHsl9bUkVYvut5Td900146Warox2kOXl6aqYZ6upcEW3jiGu5bYglzr TgsAq+lCXawb0trctCF9TyRaD/KtXRjocas3ba+5iup7vTvQJYmluYbmKdru bELJbfjAq/jx8ouND7wWfEvKBiCU1PTm4eWfVC1hZ+WdMwORqccktCcicZjk MxqcbRiE9hfTThjkeJqpbcoOdBBAux7FmXZqxCzh9w5MzGJ9ksBrdulltNq4 qZVH3UcMSdBaVVht2IbCqF5SP1nZhtYawoAYiHZbeuBMsXR2EoGBrM97eBnI BdG0Rzs/Grkqe1rP2YlZSKCgY9y6XNgFs4StGAhJugxFy/RbgrjV/jj8vAyz iBOJyIyOGINGQZ1/8w8JxrTPJEmE2GZRzEJhNDtQvbSYEc3UNsKAjCjDVyzC /WFloHvChoHjQWIg2jtbGGgGcsYGPV4bSAPSJDBZuch/1HE8x8yUDSy7ko9c qsu6BlN76H4zdeKFooRqWAPmoaMM4ovAAtWGjd4E6g8CBpe0yz4TKIMkqLCE Uu9R5gC/5+T4HONwcEFhGUdLpsV+I1iKdbGKwC5kkk+6VpogiKv1fIjWbQvD FB+a0qzH7FPgwUhsQkshkaU2BNZtr8p1xHaENTEbHcNQH3fEElQezacEGW3a VQy0amGi8IPp3JlYgShSi07rppbQWTBTWB+xtDKFnl9ZWaFeco9MUX+6IgpH HJ3yqOuIPYgVKIxwpzrCD6guhD0cas56mGQXt8hULk+RDHYyptgUtiS/LbH5 wGs047Wore8u8o/3wtKI+5+cOVT739NiNZ0Nb/9aM4H3WXlr1ysLE6UurCYe 1uYEF0ua5xH3OvF+lZCsEAvdr3NFj1eTlD2zPP+LJK1aGOnDY/PBujajSnEm Da4dttSE/1r7aeMQBtArdQ6LM67UOrb4aJ8SQo6WS74RQ7ySlVPIkWBSCjTn D+tzPn5OsdJLx5cOCj6lPBZLK5+E36Dvh0+WBJe67Xz+fxIe6oqM/FPfqw6J C46nlPq/rhoQmFwQKQ4W3MPEq3rCU9dW5R/ak1Ln6ol/oy41dKS1c+lk7oyX qmCXqmrFeyEjQkc2cAVMpZCBUbh/tUXUq3q4TFpI0mQuvldVgqW+pB251+VZ V/27ku3t7EnU3vbMDzx1VOtOJjnFBelK5O34RjJOG2ZQz6I0kzdiAZL2J0Lz MWxxRKZdFqT6YQ/xmZ77Sd9WFtnf2c72Xs18prt5yn3l/vDLgy1Lzj54y4sY bSf75TLHR06Cbz3REJdpy4fOZTIJbTveyCpe+U/xJKQGxa0nIRX1xzP1lJKH e64hm312+EGLOJJlWPLQVZy4YIySh0qRJA131KudbAxqIjPtljreIrTe9UXc GNTSaSkD3OtZtD5FQ+jehBuyG/kvUpF7dD20gxzmFp8sKDw9PxEkNkLwHQkm I6UB8oRXR+zuD9EV4TLOwbGe/zpXEFhLlSk6dov4QSgBQ0Sfk2YrACGY2mj/ Bnh+oLY53qchvHKzw4MEnSGdGinzk9ipN7LCT1LQseOIT43UlorUvSrl00Hb uM+KVaKnBzX0qh6tcyPucHUrRfMX2Y6ET9esbjot9ux9sUPdhKT4qzF6bfTT bOKdFXtkkNgWZ82Ni9ZkrJxOkyLVgFgNPUfCCmqPSjzutUd1ycgEdXgmh3Gs T/2u+powQARDQ6v9upVPdZKjVdBvkFwvJePLFFbz9cb8EN8kWU/RWluue5dS q+V6j4ziv+gAXRwWjcPcR3jQeWWzGw/AzbWwzQg81Oj2g6Hd1vsy5wN09nhp xnqr03/36sjIpsVjjDevKKzN/b0R3MLq/A6o/3b5EQHOeg1UfQSpMVQbllnU lc+psV5dhrxPNdRKVjfZ6vU/8/lLbM4gpjuerd0POKqvzrekltfrvt+74PfL HdTDndwep7CatzAtmbpeDQytYs2CPVSohEfyFT1IY52NWSYOdbjWEdsvBeVt 484k7KqKmDTMNjo8acPQkWOTOC6R3gPSNe9kPta7qx69IyR1KuJVrupsrL4W rX5sIjg9iuPz7Lr8Ol9weDVvGedVwXogJMXFWHyfqWjgvUagyBnmTer+CA7Q WvsurITln6k0rP5YXPEhiWdVks5J2X14NbR2f13+8HW7Ttm0yroIEmWsTg4X 3ONkQ+EG6fn8l+W1rib9SqB04nvUK/1fk7bpqavVO2EEf5RWD7Fet74uqM3D al4Hv95tobWDaI6L7db382DnduQNtjun2tYn1l4rp9qNvDJHcKXdxqV9zAfY 8k9s5/ZUL7XD6tze2pELcW7f3SsTbbqvzRMTbd4mmBZwVdOVdA76iYlHQZ49 rkOz5u+8hLVP4Z6k+cf6zkuMx0KIdpJmv5KeJJ6nHfuJH3uh5CQuNX8qKfwM FO0zSCSj+ZTCdD9HnUK7TZoSppD3vrScZDuSkxp2wRMhnYDXd6a974N512DS iZAKivQUNH7Cr4JRmJ9F8j+Vp4hFvhbgST5TLe+zZnA/k2LpJFwHEg09mqyI t6gzaKC3fqzNEBbz2bb6CMrYWl3tU18c0zfLksirsPfbIRw/KBq9KFlTjIax DM9GpKHTkvXgzot0zXkDTQzaXy+EowMnUluSiLScq9IZy8XIrOb14HydkxLo JHZ6n1ythVFr9OkCeqRV6/C/0HGEbO/cfzSpbt71CodmKpE87tnOWtQP+fd5 4Q+PCOEXl44XlnVYUneQgKMjiSim9ZpmQ5q+adSE2u1/Aff4dq8Isj816xJ6 2bvrnUn+RyOIzAv0bILMy6hD9axDNWbUPfoSqPXJ7DZPSMd647tWRGwdAOWl 63dhCuhx9RoULva2/CKBX4+srcYf1kfYww9fDKaDrNo2PfP0npK6WHfbzWUl qs5K7KeSg0DxXlY6YQf5Twt76SAinbRKbXTYBDfttHSkqeLRa8HgYgk8MuZQ gyGa3Bs9UteovZ13FW1DPoe8/sUYSPfaI6l44cQm59STeNXx/oqkq53aaHlq e0AaOO95UK0UsuejvCRid9QtVP1nkJe22yQaOHiW5/lXS1FnIe7h5nP5rycS RleIzkosiehW4YRsJK3nqBGADxtEENx6NuydkhxPV41Ty49L+zjI9rV+WJV8 SsGqjAxSDOhaRXDTulTL2w/IxPGfQF5qIpHuBvWZPIRegSeO0jtezyUvrUZU G20i6SJ8jyBbn6i6C3n9RtPzYaSIeCwc5X3kbUnYuZZ3aqyXLBvuGvP2CDct QHcgr+WNmXl4NO83wrXUWMdvLugR5CW4iWZatu8YaaYluiO4qfrbkJeWJwoj uFX28Haai30AeQluopl21vQYrtXq+Di4Hff8DBm9FnAu6BbkUOGL5mkClLQx 3ksN3qM/0h9pDgL0ZpBSgvFHaXlAX0q8GrYoo/NklZhJnUww6mG89aSGNE0E o6oMSKFwI0hpR4M/LMSHlydalKwg014tfJAVVkbQ4Zb636Id36bEUnt7hJsE I4JMZWfSvJB6lnZe1kMrUigQyEQ9gUczNuWlI8GOgHcwuiACT8+ISLtPOcJ3 0ogvrSArpQTP9SClPQJKhOzOV1CDOwwoXVOmwUp8dA/K89o8e48+iUUWAu1U CCHNl14XIWtQgpZ8RRCMNNV8CuURtFOhipzHXQvS3CO0bt2t7flregU63CFU aZ9qtTOkHTqh6tByuourQjjR1yOCbgNzNQ8hAMgGhnaYBApNaLTLJqCq+5Xy c9lHJN137gitZ5COtoBDwK0MI8VPR5CRyvw5pLNCRukIHoKCNAyUl9KNGDK3 HXVT8xRy0EpIPHMKgCL3YyOBTNzH7+9k8x/nFpyQGhKiFEZalB4RLaGYPeQx c65O+oo+YCSBYBPCBghjmbxkzJ39oggn6fzqipkUrLrr/v4KYT9A2KYxjPJS Hb/k346qQotV9nbuXn9/39+zQ+IAEr5Jj7aIqSl3TC8vW8iLBYtCtO5H0Ife ABFt8MhQH1KsFUlKZ/XVt2ApNjZkzeF5bSGj8xvajC8KMroN0eNmvA1ktEBY XKomyI6FrI17+gRZgswGD22fNqG8EUN2C9JNId0U0hE8sSF7Cuk6Ok2k3SXZ Ai0KMlJ70O4yQTZkyMg+6MmAIAuXlyAbAGResygrUHEaRkOqDfC7QLOmI+vI Exs+hW+5v35AdWQanSALQkYWXWTtapXMY0MWFoM1ndWnRoJsyJBZtQyxIQsr jnaBZk3X4z3NhwOCLKzRHTRkVnX9oiB7COk6uq4d9ka1eMjCZ1qDhoymYVrs rZBZhRYrZOR0jIzUI0AWdl23eMjCJgiDhoygIO3BoiCz+o6MAFnY06Wms5rm LAoyq7fUCJCFfbs2hywsejaHjJYJUpbHgsyrtbACZTUptAJl3UPQqQIdKlvd J59YaxF28azprOaqsYEK24buAs2aji7ORhiEYQfmms5qQm6FzLpzCFsg7wLN mo6udkeALPzIQ3PIYhsOhG8FDBoy6/WPRUFmfYslAmThl2M0nfUyUmwjqPCN nl2gWdPRq0cRIAu/7qbp6E4X+QeJbYEXvl+2CzRrOvIAEgGy8AuL4XQEbWwz UOu7e9YnQyNAFn7gNMyNNICtkFn3p+FbuGFupAEcAbLw69HhOY+WidiQhW+H h+c8WiYiQKbOYwko9YZK+4DYlxrIQ4HG3pVYkvkjQGE1XCbpvw081n1n2A/G LtAc3iZFgMxqPEQ7S9JahLfCzSGjnaDVdwptwSNApp5viWD1jkI6/fAGOBxG nKweocP+T2iPGQGKTamAJktSQRMosS9Ckv6TtOzWzfiJ1THWkxQ6EaJzx9iX bB9K9xE8+sAWde6JVS8fB5lyQ4ol4zcrANYNNfkx09ipxNJAjzB8bkljw34+ XvhiN/JYkrjfDsZelVgy13gqVIV9ehBHRQBFpYSwr46XEOvcTbiLb46PnDOC mosoF0s+djWv13eYlux+kYPM8IMF6rWDZLUI4H0qFYS9cXxfiS0/Lpu6bqCj nTMSS+aqehmSLJzOS+wV+ZWVb2/PaNwS+sJ+OWg/GQG8z+cpJHh+EBp0cqDZ e1X6weuxz/u6nTqU/lB+fS/srB1E+50IKNyf70X36ychpNZjKgCQ7YzyGw0p fTeIhqM6lZqtokeeI/2pQvtcHynZdBIZASG3NJ+dJ1xjvxPCKfYjabTOI94H FJalOZVlmB/o/cE33B2dZLkaAQiSeV4KSTQ9qkS6Lg0kle9lgWldftEiPJHY LYgN0xy12S/mG0Zif+3hFmJ678qjj9zUSiGpZlViv10sKNY7mneFsTVdllW8 hnunj6X5dDI7zZLRImu9zdMjTE+FfhLHPpHYDRkytOSck6FAqy9BYb1y0iMU KpCT8d3deQC8fv517dA3uyqskX8ID80WAYX1gqf1Zvt2tvfK7COAwLHaKNJ+ emkeWJ1aSXDx8hi90EI7cKshbUNMxY3F/k7uJcD9qw2gVnM80tp4n9p4Mw8h Ix/KQWua1T60IXjivMI5rKh+lDGdOPK/eYnFg5HlrzOulkmRYeZlJG/o7nIx tqpS2OX5bO7XI/nliq86Jyl9QORuVXKfKkXvWn1AUMdaDW1IA+T1qV55aG5+ qSrjqNNpeqLjK6tVWMNOL7GddfphR++1xtZqm0PKL5oXvBsHQxjlpeFDx9JW W6kTzfuTmY+YzHkzwYnWCrfVwofOScOu8ZvDTXlJTUCKPavFVY/ChhXaTUgX doMfhtH7WJh3xsqAll2gWdORZVaP0FothqaQjjiFRpDu/WhlpRxUMgFqNULq EVCrPZHXu3stjMQmJyN69aOUw/oAgNVEqUdArdZGdOhEBhurEBYGlHJQyXQ2 MEBArbZIdDhFljI0qB2gy74hT4DS8QcdpVstwnoE1GqpRIddZEfjfXDNEEZ5 qdMIWqvl2Eigtb4uaRWqKC/VQadhVguzHqG1GouFm2iYBk4oaFEdZCY+QGit RmUELS1jK8V3NcwRmfGCRV3hfRSiRpPVsG+AcBLpJGap2j2bV0O7ZN5nKRYM ntd4hcLI+p0GT/jlmNqgdc9OEm9RDutUQuciBM+JzVjawBN+xygT5pn4kNHz H5r2+sCtozFJBj608JFMofZKtJnWE3lSTBE8tPiTzctrAc9aEB6SjazGtj3C Y7WbJWG/rj8L8pFn0SQd3CmAbiqcRbMR7cq8m2XDTEZ7SqsV80gAJemiDbSU l+oYCbRWW29SklCzaYVtE0Z1kGrJ6lJxJNASpxA3WmGkvGFt3KChtfqSIZ0q NZv0sVYVD21GaFE6pdASPFZNmXWfZ1Xejxja8KOPzaGlvFTHSKC1ehchaGlv Yj3Z9VrbGqC1nuHRjZEE7WmCluqgZse2RxgCtI10aq8LoJuQjiydOtfCtQGU Bn9sAyWqIzagHQ1+641JMrQgPiJbLevhDkFLdVgtehK0Cdq40FIY5U3QJmgT tAnaxtBa/YEnaBO0CdoE7digJb0pyaZWaCkv1ZGgTdAmaBO0C4O2kQKxDaB0 LEJKQCuglJfqiL1RiKpATIAOcvBPIYwOV6zQUl6q4xRAS82h01arApHynlJo aZkgGwErtOrshAw1RwJomyMaAtRq9GY1oqM6RnJE0wZa4qg2V5sStEC6hnm9 EBrC9AYAUXUKAKW8jcAzzL9WaGlpG7GZxi3hrXaAHn7ICvoUIFhvdv6hydDh 5oLoZsdI7NjamAg6oFaU1Y441nEBdFOvR3DW5B9Vz0nOa1Ir91NtgCOXeYd/ a75Ru2D+KiEUH08uej/b328HYRt79dsMoZu3lgp6a3GZD16io0fj6dncsioc WjpHy53PHcK9JqPsf1yJk4KFZ368HkLYbfe9PBeWZYXv0fmkS5z0LiR9BGH/ nX+TO7C97Z1sW3zn7bXxodSGS24FOMEvRxzxZUkLYY/XbcoxlvtWOwTT/Ys2 6X3cbrrZEFFaGbIMO7VHRI/6d8xkqC0A1I+PA3Wi8B6BkhaikdxbbHMj9kYA M/UGPwmkIhkxATcHHM2O82HWW7MDvI8d88K/wsNCsHXTSuWO5Hp7bDitHGjd 5k6N0A7QsUIbzx3+O7P2RZzCqNzXzHeM1RXPagFSNSyrenwnuWII7mNOiF9s L1FOGnPvY1gvCY7E51NsT2VuHLphG1prSFc1Yp9k7T3pMUzeK9guiKa8EfvM a+/fUUEsPmTcoO990Eo9YneOrR2OuiCyDtUHg4i9+nYf2sh2qbVbW7c4kg9q fSHC67ImIihR7Y9aO0/2eqPXN1OIvk2oY4CukNu47VYAyFbjUjCW4Bmg6+02 DuN10BAF+hIR8dZInL63eb5An+KiYaFDj/zu9/gEQRt4Yr+cQbRcFqDI/rbH 1zHaAPUN5L0E6UhFSGcZxFG6whG0dD5OKyG9gtcjUPQa70VIR0po2ofQMn1V gCJo6YCNhugDSNcjUG1eI6K9Bsk9FLbgd4naQPZI+p2AuiOx+voV6ULekVjV t5C6Tqd/ek+xx2Y/EULo2WJ9MC6b90NMu4NrvsTeB9JqBSwYimeQl54tdqC4 ZKTHuCaxtMke4Dt5z6XbqLHK+MXEUPl4B8CE03sfmHTp6WXqHmH4Vhq6BrE3 hUxW8Ge8N9TFxHuToGbbplWqWebWYpHZkrbTK7Q3hMywd2mvmDvx5dUZlFZd Be97iO1c26CvNy9B7CYwU00UcUEktevOkQQQ1QnWdwEzWg4/PxrxiKpo+EkK m8ovol8fxvRqWlwQ6fP0voLiS/T1ODaq6crP+0IcNULfVqUdi8oFJFWekbz6 +ntDInvEQ4vNim3+qq/ZLrZiuQXjZcU3XvSNbi1l0oLcXpE5/L6Ul0bajasS S0vLJYmlZ5AH2FgySSIFP4WRMUFq4pCbSEcPJOWkJqYmdtJEUm1Qc1ITUxNT E09nExvt+IY0j0bdug2pYWkNXEQTT4E8mpqYmrjQJtIlCTISPAVNpDA6Gxhg E8n2nU6BKIyOwVITF9FEMrmnwywKI/vjCE2cyXHL7lZz+dnee9XmqupIWr4q /9jPdnb2JXpvZw9PENo0n+4KeI+ya2F0nBux4/PmzqIcDK7lTpedn+zsrrni JgVjzK47XzOGuQJWyq/63eiOGY7s5cnymsLIyjo2w21XUN+Oz3Bk6U7a/B6b X3Z87bZx7JaTjTrZWxEaZCo9wGXkFDSRjOrD5oVkkzvAhpFhvNfAtBY2kiaS 9TadM1IYmQ4PsIn3he2oEXRaTKa+A2wYmQSTwYReQiDzyQE2jEx4ydSBwkbS xIfSJ9SIcxJL5o4DbM7j/NsVR+Ysas/zbBzNeSYEky3musSSOeIAm+PIdHK9 19+Ni33ZYXNaH6M4C76NvBSyXRvMoQjhELu8jtgkkZ5IT6Qn0hPpifREeiI9 kd6DWBub4CTgJtIT6Yn0RHoiPZGeSE+kD4D0JCUm5kikJ9IT6Yn0RPppJz0z ktRvuvGT7g7mq09m5Z/Zs1l5/Ku97dLxVPleUf63CgWS+wmvJ44T5o1d3mnL OyRaThsGxYArvRrlrzyVQ6p8yUxN1Q/c01r7B/zy2usM0+uSd0i0nDYM5oba 6txQm/25OwnlSNzf0fXOLWzO5Zf7+jX/WjtxaQez0g7//jQro7Alc2N7Vkz5 ctXedpktX4xnQ1+z/3ku+0FxtUSyHwa/2svKWwc7+wea819mOTXg96KoN/4f omk+yw==\ \>"],ImageRangeCache->{{{0, 614}, {490.938, 0}} -> {-10.6762, -6.55641, \ 0.0340362, 0.0340362}}], 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: .5 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.05 0.25 0.05 [ [.125 -0.0125 -12 -9 ] [.125 -0.0125 12 0 ] [.25 -0.0125 -6 -9 ] [.25 -0.0125 6 0 ] [.375 -0.0125 -12 -9 ] [.375 -0.0125 12 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.625 -0.0125 -9 -9 ] [.625 -0.0125 9 0 ] [.75 -0.0125 -3 -9 ] [.75 -0.0125 3 0 ] [.875 -0.0125 -9 -9 ] [.875 -0.0125 9 0 ] [1 -0.0125 -6 -9 ] [1 -0.0125 6 0 ] [ 0 0 -0.125 0 ] [-0.0125 .05 -12 -4.5 ] [-0.0125 .05 0 4.5 ] [-0.0125 .15 -12 -4.5 ] [-0.0125 .15 0 4.5 ] [-0.0125 .25 -6 -4.5 ] [-0.0125 .25 0 4.5 ] [-0.0125 .35 -6 -4.5 ] [-0.0125 .35 0 4.5 ] [-0.0125 .45 -6 -4.5 ] [-0.0125 .45 0 4.5 ] [ 0 0 -0.125 0 ] [ 0 .5 .125 0 ] [ 1 0 .125 0 ] [ 0 0 0 0 ] [ 1 .5 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 .5 r .25 Mabswid [ ] 0 setdash .125 0 m .125 .5 L s .25 0 m .25 .5 L s .375 0 m .375 .5 L s .5 0 m .5 .5 L s .625 0 m .625 .5 L s .75 0 m .75 .5 L s .875 0 m .875 .5 L s 0 .05 m 1 .05 L s 0 .15 m 1 .15 L s 0 .25 m 1 .25 L s 0 .35 m 1 .35 L s 0 .45 m 1 .45 L s 0 g .125 0 m .125 .00625 L s [(-7.5)] .125 -0.0125 0 1 Mshowa .25 0 m .25 .00625 L s [(-5)] .25 -0.0125 0 1 Mshowa .375 0 m .375 .00625 L s [(-2.5)] .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 [(2.5)] .625 -0.0125 0 1 Mshowa .75 0 m .75 .00625 L s [(5)] .75 -0.0125 0 1 Mshowa .875 0 m .875 .00625 L s [(7.5)] .875 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(10)] 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 .05 m .00625 .05 L s [(-4)] -0.0125 .05 1 0 Mshowa 0 .15 m .00625 .15 L s [(-2)] -0.0125 .15 1 0 Mshowa 0 .25 m .00625 .25 L s [(0)] -0.0125 .25 1 0 Mshowa 0 .35 m .00625 .35 L s [(2)] -0.0125 .35 1 0 Mshowa 0 .45 m .00625 .45 L s [(4)] -0.0125 .45 1 0 Mshowa .125 Mabswid 0 .075 m .00375 .075 L s 0 .1 m .00375 .1 L s 0 .125 m .00375 .125 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 .375 m .00375 .375 L s 0 .4 m .00375 .4 L s 0 .425 m .00375 .425 L s 0 .025 m .00375 .025 L s 0 .475 m .00375 .475 L s .25 Mabswid 0 0 m 0 .5 L s 0 .49375 m 0 .5 L s .125 .49375 m .125 .5 L s .25 .49375 m .25 .5 L s .375 .49375 m .375 .5 L s .5 .49375 m .5 .5 L s .625 .49375 m .625 .5 L s .75 .49375 m .75 .5 L s .875 .49375 m .875 .5 L s .125 Mabswid .025 .49625 m .025 .5 L s .05 .49625 m .05 .5 L s .075 .49625 m .075 .5 L s .1 .49625 m .1 .5 L s .15 .49625 m .15 .5 L s .175 .49625 m .175 .5 L s .2 .49625 m .2 .5 L s .225 .49625 m .225 .5 L s .275 .49625 m .275 .5 L s .3 .49625 m .3 .5 L s .325 .49625 m .325 .5 L s .35 .49625 m .35 .5 L s .4 .49625 m .4 .5 L s .425 .49625 m .425 .5 L s .45 .49625 m .45 .5 L s .475 .49625 m .475 .5 L s .525 .49625 m .525 .5 L s .55 .49625 m .55 .5 L s .575 .49625 m .575 .5 L s .6 .49625 m .6 .5 L s .65 .49625 m .65 .5 L s .675 .49625 m .675 .5 L s .7 .49625 m .7 .5 L s .725 .49625 m .725 .5 L s .775 .49625 m .775 .5 L s .8 .49625 m .8 .5 L s .825 .49625 m .825 .5 L s .85 .49625 m .85 .5 L s .9 .49625 m .9 .5 L s .925 .49625 m .925 .5 L s .95 .49625 m .95 .5 L s .975 .49625 m .975 .5 L s .25 Mabswid 0 .5 m 1 .5 L s .99375 .05 m 1 .05 L s .99375 .15 m 1 .15 L s .99375 .25 m 1 .25 L s .99375 .35 m 1 .35 L s .99375 .45 m 1 .45 L s .125 Mabswid .99625 .075 m 1 .075 L s .99625 .1 m 1 .1 L s .99625 .125 m 1 .125 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 .375 m 1 .375 L s .99625 .4 m 1 .4 L s .99625 .425 m 1 .425 L s .99625 .025 m 1 .025 L s .99625 .475 m 1 .475 L s .25 Mabswid 1 0 m 1 .5 L s 0 .25 m 1 .25 L s .5 0 m .5 .5 L s 0 0 m 1 0 L 1 .5 L 0 .5 L closepath clip newpath .5 Mabswid newpath .5 .25 .06438 0 365.73 arc s newpath .63176 .25 .06738 0 365.73 arc s newpath .71135 .25 .0122 0 365.73 arc s newpath .75945 .25 .03591 0 365.73 arc s newpath .76795 .25 .08899 0 365.73 arc s newpath .76795 .34749 .08899 0 365.73 arc s newpath .76795 .25 .08899 0 365.73 arc s newpath .76795 .15251 .08899 0 365.73 arc s newpath .80607 .25 .01071 0 365.73 arc s newpath .87091 .25 .05413 0 365.73 arc s newpath .5 .25 .06738 0 365.73 arc s newpath .5 .25 .0122 0 365.73 arc s newpath .5 .25 .03591 0 365.73 arc s newpath .59749 .25 .08899 0 365.73 arc s newpath .5 .34749 .08899 0 365.73 arc s newpath .40251 .25 .08899 0 365.73 arc s newpath .5 .15251 .08899 0 365.73 arc s newpath .5 .25 .01071 0 365.73 arc s newpath .5 .25 .05413 0 365.73 arc s newpath .36824 .25 .06738 0 365.73 arc s newpath .28865 .25 .0122 0 365.73 arc s newpath .24055 .25 .03591 0 365.73 arc s newpath .23205 .25 .08899 0 365.73 arc s newpath .23205 .15251 .08899 0 365.73 arc s newpath .23205 .25 .08899 0 365.73 arc s newpath .23205 .34749 .08899 0 365.73 arc s newpath .19393 .25 .01071 0 365.73 arc s newpath .12909 .25 .05413 0 365.73 arc s .71135 .25 m .71135 .25 .004 0 365.73 arc F .80607 .25 m .80607 .25 .004 0 365.73 arc F .28865 .25 m .28865 .25 .004 0 365.73 arc F .19393 .25 m .19393 .25 .004 0 365.73 arc F .5 .25 m .5 .25 .004 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{610, 305}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztndl2HEdyhlto7OAuLuI2gLhJIimJlLiIi0gNJdm4GM+Nr3zsG1nyOTMX PvYZ454vgnfBo/BRYFR2dUR19heBqO6q7oZUdYYtTOVSkX9ERkZGZkb+yy97 f/uv//5l7++//rLzz//45X//9vdf/2/nn/7nH0ev+h/1ekv/2et99HinV/x9 2OsNfw6P/jf4+a346fX+Pf2n3/uwv9vbO0gpvaXy3eHhQW+vKLa7n/7fYW85 5Rs+u/sf3vDr79Przd7hwV5v9NnrHQy+X63dqPxVm5UblL+ZDo+X6fW6ZtXE 3v6HQXVHRZbSq35RoiT3sLcyypBUw95B+n9r6Xe1d/hhv7d79PFhkf3dVOtr P/n7ssYBpQOM1v0iL0uK9veqSYOiE1QXJLBGk18NixzJwBDEJYfo1QG4/1EW O9hTUdmUd8qit/Du+8onU8uPpGML8n03pLxoTYXyMs+bYDUeCceR/3JIQgUd 6RW7+0tQpJS+f82oK56BsK5Kd5B/g9rXy54w0hv3Dp6bNfWlpiJp+K5XMr74 97QOFUdtOjg4NKgQJJgZQ5DLSiqSN1bTG379tkLqEGqjBukFtbnyb8P/U3QG wWnQovWg7LzBDlVoqSRLa1Dk9bBD7Q7fSfYed2m3Olui4y17Lcrn6DMljn2H zNUqgCW1I2q5Qm2U5cbIYUjgcBCrfvpIhutVYlDyeqJmVXVn+VkZzjIqBzX0 xqyGhX1xZfCiV9o774qfrUpSoWiKxLLrbcG7U8F805SdxTcWnb7uG4tP30bX dRaRvu4bi0+f03V+ntO7n4L5QqS/n+Jd/fp+CtbXkd6R3pHekd6R3pG+gKSn lEUi+EehypklLxLBv2Ph6EjvSO9I70jvSO9Inz/pA99HdYEira6sndwWnS6T xpfqTmRzBgu/5dJmr/ooo5ZTuaLGm6nafpnj/eAjxe+14iflKy3A5QpMwydf fC2S0t/VJeATieJWKeYDFI+Q2z/pLRo6LYdLeYWon+DmnGAV2pHekd4K6c+K 380i10qQkB+kxI/BEktS4rt2GvG4+F0pcm3KXwG6XknmFfjQkqS+sajOPvlt O617KB+4KH8R9M9GScpqXpPUF1D2z8XvMuB2Xop91U7r7he/ySi4aolOSv0z pD6R1LPwtVOS+hzKJqamAsuQellSH7TT7M/kA9chdVlIfwup30jqefjaGan5 CZR9LWXXIPWqpH7RTrPvygf+BKmrQvprSP1aUj+Gr52Xmr+Bsi+k7AakXpey n7XT7NvygR1I3ZDUl5D6paRehq99LKmPoOxzST0FqTcl9e4EzU4p1NhPpdpb kLolqTQYPJDUT+DzlySVlNFTST0DqdtCM1E1sfN6Wz56B1JPS+ozSP1CUq/B 165I6kMo+62knoPUW668NSDQKjr3IJW0MQ2On0M+gkLV0n2o5RsoQaDcgXw3 24HnBuQjoM5BPlJfn0G+68F3pNIeQ77zkO8u5LsB+RqA7JrwmIYeX7vTqJIR bGr3ryX1IqTek9SWmn0V8hEANOR9HRRyAoXekQb7CvIRUNSVyaBrADIaGUgv XIR8NG7chnzbwXe3ob4vId8lyPcF5PsE8jUAGeUjw/YS5PsS8t2CfDvwLgrZ Q8h3GfLdh3xXIN8MISOjjAbsTyEfvSMYyWJ5APkICspH0DYAWRSKKLQ+FD6M n0J9JD3U4WYIWbTDRXWe3+F8GMlUJB1Fap06MOm8BiCLqvXoyOqPhD6M21Cf b9T6wwSNrA1AFjUeyPb+HPLdhHxkKvrGSH3IyBj5GPI1ANkFyEcz7Chk/oyg PmT+jEDzfQ35LkC+iWf7UaCiU5MoUCRvNJujsmTLP4J8NCWa2FNAvrrHkC86 d/QB9cEjAKKARoFqoBNGp8e+Pop2Vh9G6lxRyGi6TR6KBiCLul6ikPmjaH3I ovqNnDpnId8MIYtOmaOQRUe9qOHxLeQjT2gDkJ2BfLTaEIXMN299GMkcjZq3 M4TsNOR7Cvm2IR9NmaOQRSc9UcieQL7TkK8ByOjMHPnRo1Nmf95ZH7LovHMB IYuS7k/pfRjJGxH97lPIR0tYHWTzgIwOqdIae1Sn+F4QH0ZyzEQVwjPItwX5 OsjmARntYqE14yhkvuOoPmTbkI9G6gWELGpSRiGLLnlEIXsO+TYhXwOQbUA+ 2iE1L8iiJnRTkKWURQIqugIZBeo7yEebgiZ29PzRgJphJ4x6D3yHd33Iot6S DrJFhoyOLtCOuyhkvuv7DwVZ1BMahYwkj1Z6opC9gHzrkK+DrINsvL7okkwH 2SJDRgc0X0G+DrK5Q0bvaNU6CtlLyEfnHzrImoRMjhVzdPXogekootGFbn8h fqERHbqNqgHTaSLQwejCKOeaK4HTkwZNJ+D+mqrpl6I6ON/+G7x7BO8eT5Hv V3j3l+K37pF6/VeJZ94JyCSayw9J3iFaU3MZQco7JOdoiHSQdZA1C1ma8KRB i6YlUcN3S2rpByGjd+noOm22iGK5UvymWqj6GaKadtitF2+W5a8Joe1DVeSk fCCpCYW14q/VOlhmZWn71gwRvCWs1EAKtAhThWz4pBy0U1DDRFDr7knqMqSe ltRSxoctIB/dLekPpGXMxszQ/7Rd/AZCOdCOFj2kSctda5JK+0zvSCrNhS5I Ki18JZr7owxSmjUMxM58ob0hhPjhIrah7FUpm0kZLflsSGZaBdFz5bSf5eOS mGq/GaE462KBMBTEshnCfg0I0RIaroIUoJ7fJ8kit44GLKEtLSqptJW0iv3w 3aETXUCFwg+IQS2bIQM+EUJ2oMSG20SNFkFjFjHgDHyNZJbOJZBHty8laLeu CogfnIPaNkMWXAap1BIazoO+cVFSiWBiwTnocZqqckmmNa2prkgJ2pepImKG DDHbNsmKa0qJrubTQEgsIHVAZUndE1vM6DrEDFKYgbLEKh3kiXp6R0zT6DO0 RbL1jT5qbdCaKp2bILipZxDp0bLmCBAoS6yilhObiT46xUOGaxSDlvbSqCKi U4pnJZXI1GglpNlJklVs/FBAJNPEoE2XvnOQqmXvuGVnyAKabhEzSPKoLA3b UQbRO2qbOcoEmEYnEagd9I4YSW4qKjtDlpICpOPSJHk0zhFLydtD7CO2RNnn v/PHZsLAHxi0Ppr+0jda2ixN+8vVAqQYHhqfzoQipSY77WzxF40ZaoMm+T0j f5nG9QXJtzpa1qSetvh/7lI/Q5DpXTSAD5UdNGd55N1h6V7akrT31bRUAfU3 gl9XU8kRtyypRBvhdFZKqDP4PXyNXMU+66jva810FJD02gxPDdHno4GJqGw+ 6hRP1l20UuUcoUqS0JcSyQF4Qf5K71aCtehiAPmLUhNWRmmmOQ7JmNZCB/Ko 7Ax5TZ+PRlQySU+vyF5IJUzv3mC+sDLybigvfamXJEz9ZOoQWTK/ACBmNCnF asjSAEqqJxrvaYaMJ7NvFd5F40JRWR3mzNlCQFWo01Cd+US9Mk0ZTt6CqCbV +RSxmXRINEYVYTXDc8ZEejSWFZVV4GkwUyEg4D8R5vaGywSDhzDXqkrvduWh Gaz6dshno0YigUQrZ9GAWgTSDPlLpEcDb5Epo/ylAUyjDZt+XBrnzTmUKmrT CarGNcWzUfcvDShRvtLKtG/nTcnXsRUsYi0NYNEAYVR2XbofDVFk15DuSj1J rS2Tq9Sn875f/JfmE9SniPuXpEU0vhB90QBmVHZTvjadCLwtftcEidXir7Wy 3dV8Q5QoHtV1EaNeNe8mvyZ+q2FDXM69I8VDXNGdF5lKT00hJdHPSCwfmpPT BykO2GWuct3BlBZbHzF4q8Cud/U4/lokh9YJdeTKOVE8FCcqXzItng2mnswU cn2RqjznADI+s+9bHF+WVPrICn+EPK4kDzTLuOwwPieweLbjwqDTEHLNqC36 wzECklJeSnbyj+o+Ca2WImDRTp41pp7GPup4NPaddTpZykkDsN7rZognjTrE ZvJUXjmOzdl+FS35WFLV9qCxfUUa9yprJnZzOjZFnFVnQpSfK6MEB6Yi5I4m tuqOkGxcVgTJD7MhjF1nxvLwf+jMHQhRaq1i4bM2aw/NClR4aT+ro9D9W0/O SrVR5U0iH+U0GVDE6dw2KB/ls2nzIC5j+r+y12pMGsi8JRpJLsgBQaTm9VkS kmv28iH7km6SCcmHf1EM9Q3z5gnD0qOhlFAhlU8SQ/XRWKniQiVIXEyT4Bi1 Xzw0ppDc0FzV8yYuO2mmaUhahTzYdCVPSGr8G3dIDevwRXF+7Ymhh8rx8kN+ f+KKygrJgOldCsiPORVBo/h42SP5ueYgRa2NTje/cnsQmSF++NiQaEVvMDJd TOYFYBHHktVYgoc2tWoJmiGRE57ekSBFy+azlPKhrCQbNAGPuG2Kh6bnpnNS V7oDcuUHvw7JVfSaJ9M1nQgmh2XUIU3djk5KmSuHx6gHi82kWqaRRFJfxHqi mczC6+XXq/mG9dYVrYfCKWoNmcDRc2mOaEWPrJmLW+Y1ftElrahokagSm3T+ QzCaV6oG3tnjXMhwJGJJDmiFbcltFEmm3sBI/YCkKRqhwpGmaIiU6Bp52ia9 kV6NHnmJCFfxkHDRSTp7fK3ft0+BSAybQbqVRNLw10VmZKMipE28wWT1LaFK EKfbnvXWU3Pf2GKJEnXUbWmEelXIxCa/65SClM+Dqv+1Vf2YGUQycahHCas1 22vUTAWJJengG4EuQf1Yz2dkFa6JCO7UFrJopENHyKIR/cytfHrCxfRTpQSi da2Ut0zShv/dgbpoaFDHP8mSTpNNg9tcSDTGNtJ5trCwcz9gF+hW+iWoXNHX A1akCkhwooFYHcGJRv31N9rqMShyYJHKoUkqMVbthfpiZI5p5JqhzMY0jlwr /ldJqnLHvSVShApNxUi4tLV6cDS6cTga0L0B4aJhjsjUyT45I9ReJh1A2twX Ljppqgt69kYe9gGZ244DswjbrzmmlKIDoCqbiCtXGJI5DLQ+3ThPFi0N4y3J XDRYfvQwCJFE0hc1iM1NDrXkMPfLVv9retpNdhPt0YmfuZVm8GpUyVIFZHzS UVvqGMREbSrtzCbN6Z/kpK9pfdHLVcZW86eW0/SKSCeHGg1KupHE1C+mTN4s ZaRaYphfS2bcj+65i4qjvaQ0NmQrTVQoKoL+Dkjfxac1k7PrvHCUBDQqePel FmfbQfSaH/sA5Bi61CLyvdmu8uN1CvFt25RMczKiEwWSxshCkSUI1MVUOMhf SxqNlhN1rKZv2F4Xa+DRmsm9kVvmFoNJKKPy5ozf04sn21804SA3TNROM5XZ MTozIJlR1250iDbXFCqSyaYEXevlS2N0CZ6kxzxja+43iR4ebkAuo3fwkX13 vmRXJpfmAQPy3NDGqUNnvkOLqiSVf8rqLZ/ce1g+0eWpqGiaS1tkP/B06Vgx JZrVdeFvY9L6yPGlpia1LTqSRy/ObFU4LeOPdJEpnklcqE8aDjgav9UHGeL+ obNXmIYIc6EtIJiKir0SPNZjTNnM+iYp09PSPPLHmuFzzFV9YjWZBXOWSHPD ed8CipxK6pGnZrclkabyig6M/mBZNR4NLBSpaUTvDEszaUaagyoMpH2jchi9 uNqRQ8pOq8xROdRJM3Gf5NDfjN2EtkylTZPftDKiu9J0lDP3DaRUCgVmLJ1E JK781x8VIl/sdDyI8nMBxc7X65laoamRokBCUWOBjCRuWyjxJ5mZpoqOxSSA qsmzxpuVmuqvtjxawk4+8EtZ5eVDmj8qirQK/zm8a0AUSVGbx0IUgzRxvCR/ mXaTHomjoaIxbUfiZIY7zk8iCrFmCbN5TUicHhik5q0KYdkXLkiC7mPzz761 LnOUnXaI2TLHE11dsDN1R8Jv08KK+qJ3EsV43Yxwrkm/qMjgkOb8XeVYXDMi yW4y3tg4IlukovWM2pbbf5ZGazHrM2NuL7aslo+x9SpJ5eaohOSiOVaIbP9W pTLRcap4Q0vw7UqboJS9M3eVbBFEIrPG0EJLJ4sqXGg8FQ8N4brdQ/1bqw78 9QXG3OVXmRLFfZTmeYiZCxPFIiFb9g8oOsfb57S/RMUoakZtZSV4JhjVSToH mkiMdNJs7mrTEJA6QW5JPGrcVTX9aGbhqHMfU36orBlVL7r5qUHpyvoBta3W mGcuPtS1sPxtZXQY6wr3kWULk5YMqq2yoft7+5K0vzu4B5JErIWJQUJZ2XFy hXPUjBy2TIV0PqLpz6Bt0RzNZ1bQklzKfYnFHYm7KpsHe7u9/Q+D+xJTm9PP u+JnK16ylZFadcA0mlbLzmv0VoHVFs1IdNUIbUKXZrxodWw/0qC7Sb56lVs9 29GgmckSFTEtMV+zEL5ba+BuzDCcUBOqJ79lYzFdFdsbPHt86e7vZYoRnaku 3hSDzFJ/skFon6RZaUY6TbIjKsmCojHXWOfpOJEyNeiYvarxYZ41vtgbZBz3 wsaDAba/QJConJXjf6whXry2i1Zb1PpbBAd/0wug2fJ6WnDS+1vZGX04ZuSb seq6pVADMXObnnkHra6lmkgt4EJ8dOuKBhimjXWKoHmytW+ltrYdZEBYj+N7 Hjp2vm67MkNVtyWK/rF0ilarn7kk4jnNJpBF3QZn6jE6x6YTaeLvlJuSAtqw b3EhugtJA+zOYBucpQ1piMy3HZX/zG1XMxS7pncB617K6C7glC9hM/NdwKna 6MZLe9tv6AxGk5t+R/NlYqSVkmmkvSB60uCECJ4as9SjzAMRKRudA2lL8Pxz rk0fiFC9ZB+SbPRAhEYZiB6IsKPlnyCJJDIVexrU7BNkYIzRHvRGjo/Btyih 6QNkqoVoHK97Tsc8xWCGkonGeNLTwfZ1ClYH1pobOKwzzZnbAZnsU4heIhqN i+qHmyXxjJy5zaQ8GqlzmtO3+TulpalzuNEbgqLncFXY7dseFl5WiUxTAy7U 4fCo2pxGUOcVwCAaFiQawIAOEvXajWGQUqaPPDQ2KFHzKLAGwWovMh0vjZHw iDrlmCaSRmNxXUiiSRajcV10vdvvZ1pzdok9WQZRPTlxcJepZTBRfWm0JVnZ aCR+c7ZxjNhZdm6//DoJpa4oTyN4teJb1Yi+NXV8ocA7uiqMxE3X7aeJNHRc iKssaepAgIlgsh7MO6EDg8zga76Wi4qpGfSKeKrSah+IO15aa0UKjJJGourH CiSe0QYPXyxV5dCkYc7xKf3gpxpak4RxaTS14kOqL3gThju1jrWR2I1l9YOd kqyaIpRZj+ZkSbVTJnRanyqFq/LXDAObNhNu+WZG+spI2SFMc4u4rFM+M0pP 35WQ2IJHWxGX0VJ4X5GcG/LXDOMtTx0NPhG8PUp6AorEelFiwJv6STcl2CuA 84n0rnaSjJrvlQv9US5EI73PWYB072lapNwqW3fc7Hex7qPIUe6xWWJ7FVq4 jMJvC3WLhPMpYUUtKWrgvoDutpzutpwxtvvi0V3rFZSN7lqvcRnwZWWhbyIk qKOiRWK5KHcSlt/+w99JOO9rVKOWRvTC63lco2psG/d16mijcgB/JzepPg1+ at6XPNe6pDfr3ub224ARVu+6Zw6pE/i0fePzdB2VBoL8xvCyvKldEptr3v38 TAqacpsKnIAb5dXlF5UZY/N4xTRZ/Bvlly2RmPgSecpO7s/T8vknkJo7arXv cacgRWtGDUSTkceO/qhs28wvH++cUoAU8vpHB1ydwRC3H0triNvq0nt5DLdT ygv5ixbqsqDmS3V47IWJovGCfBAErLEZQ51ovqOTTjXaIXNH35FD/orTTDWc TD4O/IHLVcEblVPNr2rtZdZWFKzXkolWzOxF6FFooup+3YGBVLwZkTt7l98P U9ZJSnnYXHNKY27gpAmUvbl/9B15Sin8AxDmCkaWTw8fkQam6dBrqxuwuLwt fpdHEdIPaGBWw08VlRPtiL3RpWOaDUZ5cN6q1Fz4Tq9ME8U8obhsfcgU55SZ ZOSyJyPcj2jzkWEa6iEVXbB5X60wfeFtPRH5sfjdJEkW5LJ35CW57rSQlDMJ hi58k7MhH0ksbq5Le2xtOGYWkG1KgkRj82URvY2J2Mz5N6QZP9Xj58/woahZ O6n/S3DP9t9oLWRgmWez6IZnGs158/J4WfvaaxqWYNZiLrtEnTK07EJdiyyE nyFfA/ynvkOudXtxl0g63lz2twvkk6jiMbde65pxheHFQ1N2XY4iNtNcJHq9 HNm9tFpLZckd3hLD/RWUTyTVXBfTPZ9kdpp9RHfe+FGYNiEfLXatQy1KywX3 G6TTyZCtv4bRANPMpfjs3UMoa4aQyt7p3I/Ml+gmUnaJDTlnhiDX0+D5mb/D QecldlNFZC3rRrBoYB0ap2gHvx8ntHURIAAeQFka5ajsKeGReT+xeSTZXBdV rprzicMy0EYWhDDwhU0pQWc71FFFYwQxj7y8c2a8uQMwwHgyXqksb8ATTo/N JkxMiUdro1xdl79MbUDQnAHZyNRTNpv1m0cwkO/WPlw2N+6TKrgPZcly8QMP Zl33XPGG/HRE/SkpQVqWSpyXEubVdYGWk9lBJ6upLI0WLTGNgP8CyhLcBAWB TNHaSAhoPCBVUb/s+yB9Pi7kd6VQSWaU0eZZah+5G333OZS1jxiOviOFSoYs sYXYF2Uz5SMW1BdDfUc25WfBsrRS0RJL1dFEjFRDkjyVmhpl2sdSgsxmjdgZ ZdCWS5+2jZhx1y07Qxaoc/celKA+4l8e76sGUrf0jhhExg6VjZ7roK1I1A4y zu8EcZmEkSklyj4C4DaU9ZWEDwA1IlqWnFbEXCprxkTJepXfInIy6RZu0hPU 3h+FM86aYJRpelSBWKV+OVJEqsSibFFFSevIehguygL135lGjOnd23Hb1pLa M2eeiRAK1aGr3SSr2kQ6VU4w6liwDak35Gukkmj00LUvwkDXQcg/puGpqG00 r2+JBVeFTFqS0SVlOr2rTaTpqRkPpT/KcE3dlq/ZinJsWm4KiDpaaQzUY2ym U3U2DFBCaFeceqnp5HvmSw4wQL3KNHh+Kqk0y8gZUD6En3Ym6pwqc6QLZ4i9 9kJatNCIxTtQ9rqkmkGZ06t7kHpbUk1rwhwqtJPQdYiqUYnmGUK7I03ku5Z7 1WFXi1UPww0fP6QluT3uSSo5us8JaaQTzC7Rh3ZclKpuQdmW4KY2pd6cvIyb 8tfdY/BVMkeKkes3TQw3JF92K7GP4G2peUvKUqcgTdESWmnJyLxSNI7bYXka lM5OPJJUc/ghqSUdlGqhs/YzhOzVFEBFDzRFj1dGwaPNoXOGjASfxv0Osj8S ZHJ72sFeb/RJN1oRUh2iLqLDhY/B1Z+De8HI1upgdGEcTgOGgrl3UL084q+p mn4pqu/Tv9/g3SN493iKfL/Cu78Uv5U7A8QfXdwMd3Bgc7aTgJhqKu5Fk4sd 5bK9DtEJVVPoWuJZGGfRQAYLiOS87NkOstYgi8bpiUL2AvLN0AvyEvJ1kHWQ /X4hI5flXcjXQfZ7gIwWEWgdKQpZNEJkFDL7MHjjkNHs8gXki0IWDVfWQdZB Np6P1la2IV80tGIUMlqlvAP5OsjmBllKmQYoWuramQKoaDzpKFDPIR+twUy8 m4j2sX0H+eYF1Dbkoz1OUaBa2h3eQeZCRnv3n0O+KGTRAN7RyzB2IB/d4kkx mmZ4XqyDrBHIaL8WbdqLQha9kCoKGUWMm+Fp4meQLwpZ9KaQKGTR7y4gZFFu R2+bil4fGYXsCeRrKUgBHTx5CvmiI1f0ErkoZFEdOkPIaNcoRfKKGpJRyGgL Gh2jj0JGwTLpmFsDkPmxOutDFr3ylU620R7M6KSsgwy+0QNaNB9tWqPTAg1A 5scb1nxRhwudZyF46LAdxaPpIKsNWdRZTovydJZrYq+FvxNA80XXcmg7O4ES 3akQBYrc4XQbwMReC98HHwUgCihJow9AFNAoUA10wihkfueqD1lUH0U7KznB aSNCA5D5Pvj6kPn6rT5k0VGUnEm0eNcAZL4vS/P5hoLm8w0PmiX4tlUUMprm k8O7Ach8L4Pm8y14zbcN+QieqAUfnRHQNJ/ckw1ApifrCSg/dUdSCRRK1bL3 JdW8eCerjzxnDQDg+wzqy5YvC9Sl/Al61IlIM1ByAzUAWbT7RDWYr3FIcftT p6h3n7oj+TQagCyqpKPjpD+ukUXlzwOiq5Kk9KkDNwBZ1BSIWmO+wZkZl0kz kXkb3b1DNhiNjg0AdV0I9gO1kDdCj0T68QdIVh9Jqh9Ehaz6BpqtF75Gg6MQ AL4VQ0Lud+DoFVvUgVsCKjrSRP2kvhVDqtQfJshJ5wcGIdtqYk+Bb6dowA9a /iIrJhumTevpiaT6wThooWPi2b5i6IfWoA0eDyXVDMJkBs59JmX9sBc0nDfQ Be7I5/1wFq8h9WtJJXvmvNRM3qUXUtYPNkEarIFmfyYf8INIvIFUvaLDD5pC GuKVgOLHeaDxqoFmfyHE+fEbfoDUbyXVj6VNy5Rv5Lt0flxjMND0ooFmPxDi zNgKP1pdMxBvmlTCD5Lqh0Eg/ddAi5PVmkLpnpO/KN93kmrexJdS6SjLO/gG mZcNNCfJXgoCSnFbqMT3UoJkOS8xkOqjhxaMG6C//rv69f3Ukd6R3pFOpA8D VOsJ0t3e/ofwWdwFbJEc1j7YK87Cpv93gpsjh6bTQenqo4xKZ9ULVf3+Zqq2 X+YYHGdPCdeKn+qZ9uHR4eI0fnEUv4QrenR4AZEatmiA1BE6+ye9RRIyoTgw 30tHu9EYOSHNOcFqsiO9I70jvSO9I70jfZFITymLRPDETuZFRbgjvSO9I70j vSO9I33RSZ/tO7o9uSbpdGKUzvdRvmnKzuIbi05f943Fp6/rOgtJX/eNxaev 2nXSKnb6eVf8lDPT3kf/D232yXs=\ \>"],ImageRangeCache->{{{0, 609}, {304, 0}} -> {-10.8094, -5.56277, \ 0.0347461, 0.0347461}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"] }, Open ]] }, WindowSize->{755, 824}, WindowMargins->{{544, Automatic}, {Automatic, 32}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 4177, 114, 352, "Input"], Cell[4737, 136, 1341, 48, 132, "Input"], Cell[CellGroupData[{ Cell[6103, 188, 26277, 740, 1072, "Input"], Cell[32383, 930, 134, 4, 31, "Output"], Cell[32520, 936, 20102, 914, 500, 7099, 698, "GraphicsData", "PostScript", \ "Graphics"], Cell[52625, 1852, 134, 4, 31, "Output"], Cell[52762, 1858, 134, 4, 31, "Output"], Cell[52899, 1864, 17445, 786, 313, 6199, 599, "GraphicsData", "PostScript", \ "Graphics"], Cell[70347, 2652, 134, 4, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)