(* 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[ 69878, 2662] NotebookOptionsPosition[ 69030, 2634] NotebookOutlinePosition[ 69516, 2652] CellTagsIndexPosition[ 69473, 2649] 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[{"FeCN6m04", ".", "exe"}]}]}], ",", " ", RowBox[{"05.02", ".2012"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "1.28529"}], "}"}], ",", RowBox[{"{", RowBox[{"2.63291", ",", "0.00000", ",", "0.00000", ",", "1.34761"}], "}"}], ",", RowBox[{"{", RowBox[{"4.22413", ",", "0.00000", ",", "0.00000", ",", "0.24361"}], "}"}], ",", RowBox[{"{", RowBox[{"5.17561", ",", "0.00000", ",", "0.00000", ",", "0.70788"}], "}"}], ",", RowBox[{"{", RowBox[{"5.17561", ",", "1.70505", ",", "0.00000", ",", "1.70505"}], "}"}], ",", RowBox[{"{", RowBox[{"5.17561", ",", "0.00000", ",", "1.70505", ",", "1.70505"}], "}"}], ",", RowBox[{"{", RowBox[{"5.17561", ",", RowBox[{"-", "1.70505"}], ",", "0.00000", ",", "1.70505"}], "}"}], ",", RowBox[{"{", RowBox[{"5.17561", ",", "0.00000", ",", RowBox[{"-", "1.70505"}], ",", "1.70505"}], "}"}], ",", RowBox[{"{", RowBox[{"6.09730", ",", "0.00000", ",", "0.00000", ",", "0.21381"}], "}"}], ",", RowBox[{"{", RowBox[{"7.41576", ",", "0.00000", ",", "0.00000", ",", "1.10466"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "2.63291", ",", "0.00000", ",", "1.34761"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "4.22413", ",", "0.00000", ",", "0.24361"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "5.17561", ",", "0.00000", ",", "0.70788"}], "}"}], ",", RowBox[{"{", RowBox[{"1.70505", ",", "5.17561", ",", "0.00000", ",", "1.70505"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "5.17561", ",", "1.70505", ",", "1.70505"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.70505"}], ",", "5.17561", ",", "0.00000", ",", "1.70505"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "5.17561", ",", RowBox[{"-", "1.70505"}], ",", "1.70505"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "6.09730", ",", "0.00000", ",", "0.21381"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "7.41576", ",", "0.00000", ",", "1.10466"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.63291"}], ",", "0.00000", ",", "0.00000", ",", "1.34761"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.22413"}], ",", "0.00000", ",", "0.00000", ",", "0.24361"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.17561"}], ",", "0.00000", ",", "0.00000", ",", "0.70788"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.17561"}], ",", RowBox[{"-", "1.70505"}], ",", "0.00000", ",", "1.70505"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.17561"}], ",", "0.00000", ",", RowBox[{"-", "1.70505"}], ",", "1.70505"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.17561"}], ",", "1.70505", ",", "0.00000", ",", "1.70505"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.17561"}], ",", "0.00000", ",", "1.70505", ",", "1.70505"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.09730"}], ",", "0.00000", ",", "0.00000", ",", "0.21381"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.41576"}], ",", "0.00000", ",", "0.00000", ",", "1.10466"}], "}"}]}], "}"}]}], ";"}]}]], "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 .06426 0 365.73 arc s newpath .63165 .3 .06738 0 365.73 arc s newpath .80487 .3 .01069 0 365.73 arc s newpath .71121 .3 .01218 0 365.73 arc s newpath .87079 .3 .05523 0 365.73 arc s newpath .75878 .3 .03539 0 365.73 arc s newpath .5 .43165 .06738 0 365.73 arc s newpath .75878 .38525 .08525 0 365.73 arc s newpath .5 .51121 .01218 0 365.73 arc s newpath .75878 .3 .08525 0 365.73 arc s newpath .5 .55878 .03539 0 365.73 arc s newpath .75878 .21475 .08525 0 365.73 arc s newpath .58525 .55878 .08525 0 365.73 arc s newpath .75878 .3 .08525 0 365.73 arc s newpath .5 .55878 .08525 0 365.73 arc s newpath .41475 .55878 .08525 0 365.73 arc s newpath .5 .55878 .08525 0 365.73 arc s newpath .5 .60487 .01069 0 365.73 arc s newpath .5 .67079 .05523 0 365.73 arc s newpath .36835 .3 .06738 0 365.73 arc s newpath .28879 .3 .01218 0 365.73 arc s newpath .24122 .3 .03539 0 365.73 arc s newpath .24122 .21475 .08525 0 365.73 arc s newpath .24122 .3 .08525 0 365.73 arc s newpath .24122 .38525 .08525 0 365.73 arc s newpath .24122 .3 .08525 0 365.73 arc s newpath .19514 .3 .01069 0 365.73 arc s newpath .12921 .3 .05523 0 365.73 arc s .71121 .3 m .71121 .3 .004 0 365.73 arc F .80487 .3 m .80487 .3 .004 0 365.73 arc F .5 .51121 m .5 .51121 .004 0 365.73 arc F .5 .60487 m .5 .60487 .004 0 365.73 arc F .28879 .3 m .28879 .3 .004 0 365.73 arc F .19514 .3 m .19514 .3 .004 0 365.73 arc F .5 .3 m .5 .3 .004 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{610.875, 488.688}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnclyHseRx5v4sBFcJUqydkCiRMkUTVmyrI3iZss2IhwTMReP7JNDY0+E fZiYCQ/ufBG8CyLmMjFPweu8BQad3V3ZX+NXxWxU9fIB1SFCQK2Z/8rasiqz /unHg7/927//ePD3v/y497t//Piff/v7X/5r77f/8Y+ToMWlolj716K49H97 Rfn7cVE0P45P/qt+/LX8URR/lP8tiueH+8XBkcQUa3XY8fFRcVBm2z+Uv46L dUnXfPuHzx9z8CMJ3imOjw6K5e+gOKrqb5fuKfy7IQv3UP4kDo8HErytSTWy OHxeFXeSZa0MuVRmuFQGXVpuC8l8cCR/bcnPzeL4+WGxf1Jv3XrF4b4U+DAc /agusSKygmc7nKXiYKM4PGhHVVnPUNwLCHzcn+XvmiwnzX8CYKuFmOga3D/V 2Y4OVEp2XJi2zhMIe9SqUjg/EYwrkO6bhvKSmxbldZrHxmKIhMdG8h80JLTQ cR1i/3CtEreTHJfKLDU2/9whrPxERE8KajqB+1cVvF3L/1IfPDj62lvSwpVU RjVhRd3m5b8v+1Bxws7R0bGHCgcCt0ODb11IS+hOlfSYg5+CDHpKcB2gT4P8 Sy3P0gUcRBUz270kptuNymFJJGgLsjxsutF+E+aSF9yRg8X5qbJz9tANOSfV 1BAuAmQuAVhTuzQOt6i1trZnqvAIXzNrtas+Ed9+hXgoeXQmttojZl2tm786 VFYDaXFqmTCXgFtVQFGvZ35f/thsRZVDShlZd7KrEHbFmC4m70WrY0605Drs 6dZz15m6jjnRkutI0nV+O/Ow8076s4iw4crLpGfSM+mZ9Ex6Jn2GpEvMnAj+ 3lEV2ODPieBzLByZ9Ex6Jj2TnknPpGfSLzDpeZWYhSOTnknPpGfSM+mZ9Ex6 Jv1ckS4xcyI4L3Az6Zn0THomPZOeSc+kK+nN1XG9US7X4bdWl6PLddRps4qV ZKdasJU/0RhMONuQfGWJe1Lsok7xrKqk/Plu+UPS1SvAImwjU0bJ721LnZUE cMv9UQJ4AtrhqnPUkN6YXZRSvsLsrPDomUnPpGfSM+mZ9Ex6Jj0J6RIzJ4Kz 7nSlSBfnAbfKVN9HEPwrV8q3w5Apfgpk03UdYteczD2NYOKJq2MdYq+6Or4a hsXPyp+y5bwJsRvlz/Uy9mEEiw9cHZsQe8PV8YthWPzUIfwqxF52CFuFiOr4 xtVxBWJ1zPz5MCzecxX8xCdEQtzXESx+6eq4BrGvuTruD8PiXVfBmxB73cV+ GcHiF64U6gyvu9h7w7D4savgbYi96WK/iGDxc1fKyxD7pou9OwyLH0E6YvZl SPdZBNufQToC4G1I95Gx3p5Q3IF070A6Ks86jFC9P4d0tyDdO5DujrHenlB8 4MRuD2JfcbExbN93pbwGse+62IFYvA3piNnXIN3PItj+GaQjAPYg3W1jvT2h eB/SvQfpfgLprCOvd5LspKPp8j1I976xXtMmac8J2wcQ23+a6T9dvu9iibEz b6Z2IR2x+Cak+2kEsz+FdMT2B5Bu11hvTyF/F9J9COnegnQfR0DxMaR7C9J9 COneNdbbEwrrRBIz98asNawT8YhQxMy9MVBY0yWAQoRShiDq+dbuYwXgQ1cb 9Xdrp0nAtnXosw6lVgCsQ591KE0AxRuQjrYdMUuTmKXYXUj3hrHenlC8Duk+ GQEK61JshlDErNJioPgE0r1urLcnFNYFsJV0KxRWaK0L6gxFSiisO0TrMGeF wjr2WHecGQozFBJDhLwKGUn/GrPxidno3Yd0pIQ/847zFUj36QgAWNenVgAS dAYrFDE7vxgoPoV0rxjr7QmFVWWaGgrrtm2GUMRsgmOgsGqjE0BhPVNIDYVV rzFDKGL0ATFQWI9rMhRTQBGjLomB4nNI91KGYmAoXoJ0n0O61FBYNeMZigzF IFBUW5FN3+tTVnOlm5CObjrFaF5jNM2/gHR0/SWAVANF+7Woy0YyLwA8zhSo 9RqUhMmduB+kmEUtWpU12J8h7C/GMMr7h/JnD8My/dd6fCm3ZXtQCD+OlJFy Jn34DFI6hGKOJmIQ+gLS3eiHkHWuzVBAsQVUPxwU1rPKDEWGYnZQyDGEzP5r kGMqUIQg0oSOiIyo+rbKkA33G+1YUuNhrXdEKN5zQuK1dZFYOktLDY/S4rWJ 8dIyImS75U9ZOpOadsvF0iFyasiUlsuQ46UgLSNC9o4jJGyLQ4dKqSFTWsI2 O0TLiCu9NxwhYdseUh2mXv0pLWEbIKLlLJBJjBWon7jqwxZCXsYSAqW0hC2J KC8BdeYDcgLqVWinTo61ZXkbbvOptITtkYiWnhvSGMhuOULofPhlF0sXMlJD prTQmfHbQVpGhIyOUAg8urdAeVPDSHUQoDT8U94RoSXl+y7kJQmgvKmhpTpo vt815h0R2huu+9A1P53hiEzJe6MM+Q3E/trFevNKyXSZdC9Y70DwUFXXIIyA olu8lFfCJOhKTWK7lOPaMPwp5HzsYhdQ/2UXe91ICcFOt0kp74hnbPRALV09 pAWv9xFcr4uDDRcrBu7Xy9++dmFbkIPgsT60S4sw2uJR3hGbgNixWrlR3i0n q9SRt1wP+dyl24RSNpbTyW+0FbzuSqETOqLPaklHeUe8nkHsWC3udnyAepdZ Oy72ngOUStl2sfdcjqs+jiSWDkiIN6tVH1E1YrMQO3cgr65bidkNCKNm0e0w nZx5XxCXHOp+gYZCtUKn3kdcem0NvVyOeK+LDirpohHd46S8C8cYaSl0862G eKQeosmahhpqIDIGWBipp+uddOGP8iZoNFkaXi1DSEJJ3ujKC21UNuuq22FN A9B0S0vi8OKzs2DupNOSVSNCjUI80maRlOSUd8chSkvxQFM8KX8ulsl8tlyV xNKoug5hVtvOKu9Gt6HkbxrpVaNLpVFDUZiqQEmD/UaAJgJ9F8qgYZhw2nbI Ns6uOxsBiftVv8Z86DJuAmmqbfYOaJ0wq3XqAnpdwdo2Ilu1Xl7diFfLSu34 JpNDc+oeZKcDQkJHV6CkT193sY9f0IgS88BxSYtYnbSJiTUIs1rTrjFWNEFQ 4+goR9MR5aCNGjVid9laftSRrOa7BNLCwU8TrB5oPej0K5TisEs0XRGERj4y 5nsPWuj41FGNpiclGIVRg6l2mhpW6+j2xPKjLuI3KGb+dVVFU+rl5Qaxj4tf uYx0jKMHAJ7OQBaG73eS1h+NJwQ0UUkqfwqjvNRI73T4Ws5hser1NSs1jipW vunXOF9CGDWTzgNNaUoltdBtl56kMKZRSNlHqw3aGajjrRrZJoPXntbbgrQQ v+ZyfAU5Aq0QdgXYHcjLj2wtw5gTloQb4UvThvdQlNafuhsjkE/3ZNLfh+9d mXC2XjTtjthnk3I9ePWetNNarBNGu1RSHwvOkozUgyrM1EbhO58maK0mEK86 Mv0D+zLwBC2BR8pgApRUclYFcRjksGPUsBGLCWSreR4t/aTxvUsc7zhHixyr rpmQpjCrHph0DkI4Dd+fBNkidV7YDM/UQFar2qp6+zJUtSK0IrC2EakRaFtH YValcK82uhtki9rICnqCNqK8RKa0jWh/3guyQ61EvYG0u6QYjWklKm/NUd9e nTbf5RczSO0V9hNhai+r/wJve+lNGoncqSts8tafrg1pl09bcmqAsL43HEZ5 SYtDeTuMyoLqynKYlzf/ABXVblZvJDTs6nGYeu67Vsd0VHWST89zSFVobbyw XjgcFiM0Xc3KMt+kGtam1XREPTVt2I2PqWmtroaoaTcdwbo+pkuIOhx1F3vl F9NXSJG1O0Izd/MuY7ABpdCSVnVDNFHQajDsuGqcBu+wTSSREKw7ZsNsp256 CqO8/Zr+lG6LYCA5UP0l7eKt54QJ5MDqec57CNzrrmh4RFNpiln1TCUR1CsI FzpLCt8Ztl7BCHs5ZHGQmGgh6LBNgkYEk5x3N9U+AFKLwx6EWbfPfnE4NUAQ NHQRznsE2zkS6S8Rd12zB05frG5Kicxu5y0/SkcjGk0FNxhJq1Dw/tUmADFC 4d8JnmKF0NmGIqn/dZWofcQj7CzXNH/EC8opNMLWAGFZqXSrrIbpJzBcht8V KKcnVadfMLgMwsMqHV1dc/lZ778mkA6rcTCxqLv6JUj0CmTYDrBTmu6vvNdH DKKxyxJLUkHnzB6BIM0e8aAbKOXfa3vo5Z/GL+sKY2KRoHGN2KHmJEEhtgl4 0o1RXlJxjycyRBFRThzuQB2kMfKKpaGlaEMQtvafRKCslz6tAkXCSGPQYAK1 PPrTRQWrNFmHTqs0UV6Cf0RpsnpMImmiiVXVuFYZImY3gqVYJWfPlUKXolML S5hmmrdot6ylkKKOECfBCLsimkQwiB3qX1YRkbzrPqCsB7JhEQm/+9VrTuq8 59pfMAircyYi6jWFmCVt7dWaxHa64/a613vUN5WAXKkbrkNx4QTZSzGZQZFC dC3YMVZEPK5BwzZtWoUuX3/z+vo4BU6hrvY6hdM9JVpYDSMSp8hRS8YOr15f IsRruBfQ8QydYsxCGpanajUDJfWLPgTeHZGnb+llWnYcpV4rrfVlcfDa4U/X aF7jNLTdKz/v3fAdx7Fu+sdoL68FOCqgHQs0KsvSf8Nx7r1ASY0Wdth8qtF6 eA21upYOt6VHSyXckgZlw8VaZ2HrTcbwW1MaZn3NKCwAnpWGcEbnGTeCfJNa gYQ8mYRsFIcHhy7qcL9yOk0blWgxoeWIBNGibtPBRB1JIkiW+69xrBL0niOX hpBeckPbgIWPZgWCnE7uuFg6UWmwIIAHkirn17n05byvknV0sF8cPq/8Osso KT9+X/7YtOdMLpLcb72aL3EwKX10e3wJ3HMlDyKBXknxcz65tLkxbF9kpGh5 EB9oDLOzrIaatI3SLR3t/XVs1HTWtc7AoqObB++QpbF0xUMN3T1G9dMI0Xrl ir6ovgN21p9m2as+T1QpGvZ8qunmtPa9CvSFvaZqOlrgDdS+g+xfOkv+7nhY /z98Mkv6CtoSTd/SXU1Emz3vwSuxt+2yzXCz2kPfpKuysDNZYn+C1rXqHLwb 8rCb2g6Xnhtf1Jdm2OJeBfQ2sGpRLzoQ9X44nRRbl4bDyEFaLWP5bWtW6lIr KQfagjEnVNL6W75S5nRCpXIfplRLphMqva5Da6oVOXggMlWHTov4XgeWXnjS nGmnEQcV/+gDS28pKyIO3oYkyAyCQXDTDpb2WytwYYbIDt/g0DrowozV05RV mvL1q+GlKel9vgtwAyteoPj+A7FAVsfe65HeBZDVWmk80fFeYvUiQQJDrdNR 4hhElk7BEohJvOEBXzqhfSlpqQhi7x7K0OsiBWYvwFI/I4QXk09skgKMmo3O DYtRbRLOrcXKixtub1DBGcp65RTcI5o3xVhGqk9SirXaQ6o7vSKsMh1OOF6c 12oU2b1pVn9hu9Jwl7zpUB5SLCQmja00LcOIzDnZSpMc0PwfYysd3u+EhUCd GcbYSpssY2McJ/Q3mKcNpHoVPUeOE6yW8nqMSlc8rY4TzmIpn1AOVKEUfugt fO1bu8558Z2iaFDT08pcD2NG9J2Sxg+Suummi640uqprGWuDz90nkmKwDqV4 31nyYkANnsA7krXBww7L1IEw3e2TXOr1KgZpawsP57KMfCVrXr3ibZGTZWC1 lDk4oiOQJai9HW6+mEVUjFvB1M2s51rCkT4GtdaHy4GaNMYXpNev904ZomdJ Mb4gabWe2mOnt9E6Yd3tffltv5jVgbx4ztgVrtXN6vl2hWt1CP1KXVCTrv5S e4cmlaHVP7H10sm7zMokrqLHdXUe4497hZ2ej+a3X2JJKgj48+Ktfz5vU9Bw SHrB8/g2Rfj5lpc6ElETTlTdg+z5IZdOXppqejYYvQBD57WqG6uIi34UScra hfQxjyJ5H0ryhmm9gz6UZJhb9fT72xc04cKXiA5KtStv9Gw42m11pbr8aKXr fYCsV+OE89JS9C0Qth7taH2NTLep1JJ6I/9b11wBrX/4PbmdThHLeeOfAlxu S9IPEM20aqA2j3lWbqS3AVWz5H1mXDI8grwveuCxY7RIIkIbb1JT9Xutsyuu BT/VSUsV2tMQg7qQIp0ArSrGfLRzw8FPs5m2+dN+rSrJby4Xq7Exz+FaX4uk jY2e4++638J+kotlWiQHNdnrgSYjHaH1YVzi9rLD9tf9GmWqh6V1FqBGoT0N GZLSZovCVN1Ec44eVnntjTthEz8snfqRdmuj6VV5Wr/rakl2tDKAkHpB0knQ HV+sYVlrvXFL2vMVbiqr/tn6/Iz6n6WrNqQk1Rz6qBQ1mvrJJ2itTUUiQvzS Fm+gpqLqSYdDi4GwGYv3PqvE3ne9iihQP1P3XQ4ygVHrZyrFepTxoZG3gZqF JmOVS2qMN0BWO9Io4JHlnz4PL3o1r+c/9Qv4hctBVyqvudoIss6LQ528t4N8 jAg3VU86GtLUUd6rwNizZYIlVpQuN9xv3lsppN+hMO9lhk555LJpxCYI26eH d+akAKCJWcLEEFRmDzly/MrJqtf8a92l217OG3agQAqKZ8BHmOYR4aYw2jyT Io3yqvu1otFDV4WIYEtamn8vu9hvO5WXnzSGlQJaxe0Z89JCeiDgafjZhby0 TKS8dMwrRyBeRyY6OH0NeelcjeolzemuMe+IcKtygkDWZR3ppwhaOrvrdGqJ /RLyErRKHwH6TpC+EWF8xRFCu0VdhlFnJRg/dzloUapqjC8gL8Go9NGy860g fWeBUWKs4OmW3OsPq6M8CIMXvsQSDvsMyiNAlWavaZ2XZgL0e4daQAFuBVTv Z9J9irDTFwrTvJ+6kmn81eHCCmP4sUoCjyilvAk6Oi1faJ/ndQIujNEmnqAN 32/thEnJdOuB4Alfvnm2zIeX5hFBluplsUSjle7fSD1M0IbNBGhtqmF0vk4g K810OPVykOYRoVXlqNcxrmSgHRBBGzbHol2Whn0C5RG0SrPXqa2X5hGhve0k wOs2ljQphKoq22jQDBtuh7FUIsMuXYnSEbGUoxDZ+Fs9EYQdqoTD6MiQwAtT NSI8tOyzAhX2Q5oGKJJGuqZ2ziALO4e8UJDRqYv1ij0dNc4QsvBN1/6Q0emH 1ZSETo+sHfgCQEaLLjo4WGHIrA7FaGK3Wh7GQGa9OR+AzHlpPzoolj/xuk06 6zkhugthdL9+REQbyKqHOirf5XQqOAaM5DqQINuDMLrMPSKMzblfI5gHR/Uu VZbSP0gxi1pUn8m/P0PYEwjbM4ZRXqrjD+XP1rNvrrVL7/VHRxVXU3Wk8KMo nf1gJ8zqIHDooan04+4ekHAPAqRG1PqWAO2IvQ+MJETUaqX2wqHJ9IiQ9RT7 c0g3FZLWrUICJGMO/mMgs76FtMKQWU8QUkMWhlHLs+6uLgBk1he3Vhiy8J5b 04VXUMNBZjUuz5DNGbLwnnt6yKzOJxJAFna4MBxk4a3SM6ijAFrOBWS7kI7g WWHIwg5ZNF1YDzEcZFZNkdXRT4YsOWQSEwOUlbGpgLI6BzvzNZuwA7PpgQqX 1x+oBJ0w7ORP01kXAKkhC8+2z4BmTUdXfhJAZr2AMhVk1q36DCGzbpmngszq 1zgBZNa7OFbSU0NmbSqrE/kRIbOOKVNBZj1YTQCZ9cR+KsisY+iIkFnV62Eo hoPMms564JMAMqtS2LqQTA2ZdYdhVXcmgMyqSLFuhVNDZt36W3V3CSCzQjEV ZFYoZgiZVRrD08RwkFmlMQFk1jHKOuZZIbPOhNYxyjrmJYBMWtZgB95/rdYf np+62sK23LQuO7MCx7pGT7OA7Q+KdY1uXcCeWYFjrcC6n0x97mjd/1kbPEHn Cots2A4p9Ul22OlseBhIAIV1SLPqU1PfjbAqiq1TTALIrBOn9UQo9Q0c6wmO dSGTALKPnBiHrYjpSlhqeD5ztYUthml/mgAKKVaS0cZRbYJ/CbGp7xH+wtHi fW3Vu8hIAMU9VwFNnFcdcV9BrBWK8LSv5ZHnBI19zdFCev4EUKi3I9Imk2NY jU19v/hrVxuZ+6nBPY1lCaD4ucPaayMr1X8XAQWFkZ5Jvbd6bV+FFrpNmAAK 6Z9eh07ibkWuPD+C2NSX98PeTK85Wsi2KgEUX7kK2t48m0/y/xqypbajeerI ILmUiG8gWwIARNyvlKn2I/jsNedf8clWAnasYbec2NEV8jcd6qRtue5iw1cL rGE9d7DWMHGPJK6mpNitZSHXSl92seQVdmuZT43Ydtk23G/knMxK7pk3qtaw Tddst9xv5AhSxxyvJ0GJJbcg61AHOblLJSQJ4VEncu+4lvC+lm7wBeV9Vrzz 1trmasCjpOs7U9xfmlivP6fFslRorPylzhvWI8gdFZmidlZLz4asO46970m3 3hA49QTHHZfdlVvV/LsZACFZ9f1dFZGwr581l0NfxKLJd0R2vm8336m9lJTp fWRBgtpXu5pvYln9FfRTjf2kzXFL4PAW1iu+xLRtk3TfT8s7OZ8nFLxPGXh9 xOnmhOZOuq9Ao+RTIx8DwfPEx3YnHZ3L61u4Xkf4Xr/OpPuhOfaJkY+B4Hnk mKDJWZVu6myTTOHUz5B6aSYAdOExMdsPIS8BQJuiK45ZcgyiTt3JKS5tlDYh 3UMjHwPB8x3kJf9SpCHosl1+8hf5cNWHaTprCVpw0m6auh6pdXqCt13/oRa2 +8Xhc7OtMoU9gLy0XyAFFAmaLi1ofSlCta64vrg80thQyQ8gXU90nWH90UFp t+xtyNTQksaXhjMh86UyhPom5SAlKG0pSfnaE7xN176lCX37UxGVzej/liXW atay7EWdrPJ2cMvFXi5/W3f9VBd1l12SV4NF/U/5s+04obFPL10+lP4e6na2 2qdT2NeQl7z607kFLdF1al/UxLZjj0/NiRpHi0Y6laXhjpwm92z+LfdH2fwn TX4YjS299kd6e9L+01bB+0DWGcOojj2gL/ySYeRcsKj8VxTiaQEHRivc1kdG dyEdXRymRbcVWspLdewCfbS+IdfVI65brNCSrr66mMSvVNH+Z73+2Q4r+B0z ug1BCxw6sB0RvV9CXjrKJBbfZjTUaWoXwvIL+9aaNVZWL2eWE5TyE5I6Z2Ma S0MBXYOweiocESirAyE6fRG2VT+q8HQuXnXF8FyDQrPwmld6yn8EFF3DtHpY GhEoqycRuvZLbK9DmCrBaH9AQFm9Ac0QKDKjIbatCwjKS7eSrB40Vgky70uJ 5wwoq6MVWjh+6ICyLj+tfsCtdyNXCajqCL4ipP6a3ysSTz4yzlgRfKzXSulC vmhOr5YhpJMdGwCJsbJtvYBMbN92tRXLCtKq6/B2RU8nqTPRTUnr3WzvgaJk 3YwXEStWpBPQ0/r1F4HTawmQGrCBelcMdHsOgEa/1I71oGZda5JVgtVnyIrg twthPZDcdPCvMH5W9ymEH2kCLtdC1oS1/0/KVWoDugp9zqAjDcNOADrSkhL8 KwKd1Z0Kqe0JuisB6EjjSWVcUOj0QmBnrUIiZ8XN6ilphrhRk7/tMNI7E95n vi4ePKTHUaBIQUVAWYdOsl3NQM0PKKv9rxUofSOUNHmUIwOVgWrCrK8ch19c ng4yiZk7UCRb1s2YFaikiovzDNTEnZB0LcR2asisfkFWBDLvE+KGMO+72Rmy DFmGLEOWIZs7ZHnGnCVkK7wuy0vZDNk0kGVdRQZqeKDmr0+VmIurbk6qwIk+ 1emEqf+HC3q+Q6QT23KqSseGdNx6QXG7yMet+XJEhm61oCO2K4vBzaWwFnzq amkPMq/IDbDoG3QCQGN730HKe2+uE3ZB8VNfUpt2/C7oDU5SU+nl4UUNTTu2 xrDwGItLURfg6jABJ34jWp4mNrvgNH+r87DVBCnaeqEVVn7ir3Fia46tWtaX nUmII4kojxzRljAStNYRqOarf58Jds7LhUQfFUdH02H3getoZJ4e6oQj2qJt 1s3aCF3jAqZ0tnMCpHow+W8pcVG3euVs5D6E3YawBYSVzD+r7WJOx34KYUfl T3Jtcrh/UOw730CHMf4gom1cvS7ayOSOfOGPaOPadIzSJcwJbvIXOcqxghdt Sa2dZeF+62UMPJDV9GkPVIXrHBNgtdsJKz8Rr3WHWid2hc3z4507nFp9d7E6 laAL8HL5s4Yr3m9IYLEdwmyF/YfEe6pZDqPdnd8xEONtdV2zwo5/qJfROipk QGq1+Lf6URrIbVUMnKk9gnlUEoQarWMmdgAWg2Rqv3WyLJAdES05J/ZNFwPU N5B3B9LR+pWUBfq0yRoI33HAXQ7BTiDSAwvhlzsGB/FbyEvPzhCIVK9gREtO 9etFfZiKosejBvKQGYNgvCvRU37tqbNtO/yK5bM72nKP6Fx0DOi8Dm4liBYX 6nGZdqUjOq6d1KeyWo32ih3Ra3L/OykPHekExR0Xe8X95nU/3klHj/6q77jH RvqS3jB5DHnp4Q96S5hajKDQy100QhAotJy1wjNQV3kCeXv57O+EWW+GU94V 8eP/1LU7AXV3OdbwcImmu1eT2C6viaP30kZkWqpvZtF2hNAsE7H3iQ+Jvd/h rf5+My1bv13GPs3LJRIxh5d0WmHld9c1wdLWUF1Y0eL+ViATDXn03E1/ogfA YrlbFc20xX50DcO/vklCw7pEfIQ1PJv4VSKC47jewL3rfqOBV99hIzWfrI1a 2xjeBlINM5OU5bBN186iZVoog8t16LUi0o3o6xu0R9E9nj7juyIP3OlTmjdd G9N2/apL593kSiytq7eWY089LDpjeKRT3CxLo92WrIxulCE09F51sXQiMkNm 6d0rUs2SGU74Ae/ZsEjrYGJnbBYlZgzG6ESE9jrWepNu+yiMtnjERGrGRhRK K4t02vxRRL0jskgXkIidzGJmcVIW70B50W97ZxYzi5nFzGJmMbOYWUzKosSs ImODb5zm2mKZxcxiZjF0x3c5bEU2Thdgb5hZdGEXQNuWWZwzi3NV5J9vFtvP lTdf5JPaFGY9iKKwuxH1BjivFum1+e/BkYs+PDiMeuKawj6B8shUekT2nTHn wWEdJTDo6bHcjNiQ4ha1YFR2oa8bw6SARVNK14h0YIEL+0MLt0J/r539BW6/ hfp+eoGzsp/GQVsvgesYdabmPOxpKhzW39nTJNOIlcU0XkomYTHsgehcsCge Pby3UdP4AJmEsbAPh06YANDftn4SxsLOCsJhK8Ji2Ew+HNbf8H8SFr9wYkdM XHex/a16J2HnS0cwXQFVP4n9TRwnYUfIlOLoWqZe6exv7zUJOw8cwWSSsu1i +xsg2dmRmBgmxFDJazKqxqaPIuoY/PBEjESulKX1N9yYRHSoqtTlZdIz6Zn0 THomPZOeSc+krzrpEjMnggdf1mbhyKRn0jPpmfRMeiY9k55Jz6vE6RHOpGfS M+mZ9Ex6Jn3upM8zbPVJl9Pt9ss65Ve9rlPGPz/cbzyTNW+glP82oUBy30S3 AyhdTN6LVsecaMl12NPVHa7xAFg+L9N0qSpso3XL+1ie7zk6Zreqc2f1vNQx J1pyHWfsaptLXa36J9f5m554dKDznUxs4s9Sfvy+/LF55tKOq9JO/v1QlVFT Jn27KqZ57eRwv8lWTsZV19fsf1zKflxbZbjsJ8HPD4vmwv7B0bHm/FOVUwP+ Whd16f8BrxqNIg==\ \>"],ImageRangeCache->{{{77.5, 565.188}, {452.188, 62.25}} -> {-14.0009, \ -3.89059, 0.0342887, 0.0342887}}], 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 .06426 0 365.73 arc s newpath .63165 .25 .06738 0 365.73 arc s newpath .71121 .25 .01218 0 365.73 arc s newpath .75878 .25 .03539 0 365.73 arc s newpath .75878 .25 .08525 0 365.73 arc s newpath .75878 .33525 .08525 0 365.73 arc s newpath .75878 .25 .08525 0 365.73 arc s newpath .75878 .16475 .08525 0 365.73 arc s newpath .80487 .25 .01069 0 365.73 arc s newpath .87079 .25 .05523 0 365.73 arc s newpath .5 .25 .06738 0 365.73 arc s newpath .5 .25 .01218 0 365.73 arc s newpath .5 .25 .03539 0 365.73 arc s newpath .58525 .25 .08525 0 365.73 arc s newpath .5 .33525 .08525 0 365.73 arc s newpath .41475 .25 .08525 0 365.73 arc s newpath .5 .16475 .08525 0 365.73 arc s newpath .5 .25 .01069 0 365.73 arc s newpath .5 .25 .05523 0 365.73 arc s newpath .36835 .25 .06738 0 365.73 arc s newpath .28879 .25 .01218 0 365.73 arc s newpath .24122 .25 .03539 0 365.73 arc s newpath .24122 .25 .08525 0 365.73 arc s newpath .24122 .16475 .08525 0 365.73 arc s newpath .24122 .25 .08525 0 365.73 arc s newpath .24122 .33525 .08525 0 365.73 arc s newpath .19514 .25 .01069 0 365.73 arc s newpath .12921 .25 .05523 0 365.73 arc s .71121 .25 m .71121 .25 .004 0 365.73 arc F .80487 .25 m .80487 .25 .004 0 365.73 arc F .28879 .25 m .28879 .25 .004 0 365.73 arc F .19514 .25 m .19514 .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", "\<\ eJztndtyHMeRhluYAQiC54MoijQFSDxIJEVSpA6USIqSRcmLm71ahyM2dsMR sr0R9sXGbnhxjxfBu+BR+ChYdHV3ZXfNl4nsme7GQOwOewTWMSvzr6qsqsyq f/115+//9d+/7vzjr79u/cs/f/3fv//jr/+39Yf/+edh0OS9LFv5S5a993Qr y/8+yLLq5+Dwf8XP3/KfLPuP8J9J9nZvO9vZDzHZShl2cLCf7eTZtvfCvw6y aUhXfdt7b19z8PcheCM72N/Jmt9Otl/UXy9dKfxln4UrlL9ejB8vQvC6JJXI bO9tUdxhlpUQNMlzlOQeZKtNgYQSdvbDv06F37Xs4O1etn1YeZVlbzuU+sqO /r4ssaC04NG6neVFSdHeTj2qyDpHcU4CWzT5ZZXlEAMVE1cMotcK5v5nmW1/ R6CyEcNERD9A2Pe1KkPLD9FxBtJ9W1Get6ZGeZnmtbMYi4SjyH9RkVDjTuwV 23srkKVE378l1OVfAda12B3i/4vS18ue0OiNO/vP1ZImsaQ8qgrLSsHn//+6 DRWHbdrfP1CoiJxgYVRMLgupIW+mpNcc/EON1IrVSgmxF7SWyr9X/8g7Q+RT 0aJ1J3ZeY4fKR6mApVOQ5VXVobarsJg84y5tFqcj2t+yV3HwOaym5OPEIHOt zsCS2sawXKPWK3Jl5lAQWE1i9aoPMdyuEIWSV3M1qz52ltXG6Syhsighm9Ea ljbggyIgK/Wdn/KfM7WofKDJI8uudwbCzjrTLZJ3iDqWnb6xjuWn7/TYdZaR vrGO5afP6Dq/HFPYz850LtJ3FwhrX97PzvJG0kfSR9JH0kfSR9KXkPQQs0wE v4lUGavkZSL4NwyOkfSR9JH0kfSR9JH04ye92PuoH1CE05VTJ7dF58qo2aO6 E9mc4uC3PNrM6p8Iahry5SXeCsVOyhS7RSX57438J6QrNcBpjU3Vlx6+5lHh 7/oR8Ink4pkS5gUXDzm3d9JbVG1aVkd5OdRPcHNO8BA6kj6SPpI+kj6SPpI+ kt4J6SFmmQh+FzdQgzVaWDJMnIS8iTn+4MwREv/YD/3BNPVUniqsddbzv95A ulcx3UpScv6FiNeQ7ffN4sNf3/XTkmf572qe6jzErkSu/6BxIeQ9DbXJ8vGF xpnV2MQk9kyM/aqfZn+R/4Y16RWIXYtd8hXEfh3znofazsS8zyHvi5j3NMRe jLHP+mn2o0jc+xB7OlZPEnsW816E2s7HvF9D3ucx7xmIvRxjn/TT7IeRuOsa 2ELst06kSG0isS+dSJHY92Pso36afT9WcANiz8XYbyD2cYx9H2q7HGOfQt4v Y+xFiP0gxj7sp9mfxgp+B7EXYiwNLZ/HWKrtaowloD6NsZch9sMYe7+fZt+N FXwEsZdiLA0tD2Lsh1DbNROoT2LsVYi9GWM/7afZdyAdMYB6L0nxPqQjplyH sAdaRyIcJeluQbo7kK4Dlt2GdJuQ7iqkewzpPoN0NyCM2Eid4RGko/nqI0h3 G9J1wLKPI4w/gVgZyYk992IsyfhGjCVW2DPXZoydp9khhhq7BRmp2cQ8GtPv Qjpixe8g7B6U9wDSEXs+hnRbkG7uFdgmpCNJeMcKeyyzmXcXyrPHMkn3CaSj AaGDjnQrQpYkK5MkseeTGEuS/SjGEitspeB2jO2p2V5o34R0NHESA2y42135 HqQjRlFXpnQDssybzssyO6w9yyjdTUjXAcu86PGyzEZPe5bZE8GxsIz0lM8g nXfItacEm400N3nV208hHa36OmCZV42jmYs0WjudzUYarr3pSG2l2XFAltno 8aLRZiOhx4tGUihI8+qAZV6dycsye8xrzzLvmDcgy7z6uFcp8LLMO6x7WUb6 /QeQrgOWXYN0ny9Auj0Dt2eZV1RLyDLvmOJlmVff8rLsIaS7Buk6YBltodJW mpdlttJis5H0KO8Y+jmko42ZAVnmney9LLP3sqQ8r3JDe1m0/Tf3Zo13k87L KFtVac8or+LsZdTcmzXeDWCvAmArKDbzSM30Moo2lOkQs4NOeBnSfbEAy2wF pT3LvOvYJWSZVwHwssy7J+pl2RNIR8daI8uWmWVencnW6Ww2kprp3Yj6AtJd Glm2JCy7BOnovH9kWWuWeTXzd4BlZE1ENgpeltkrh/Ys8+4QvwMsI+TRktnL sqeQjkyGRpZ1ybLo9se3H3sdGr0c9S4UvRz1Wod499yfQboL7ThaGTXWLzQm k9iRjSYbo99h7WLj4HcYrIj/FIqZlFAt/E//DGFPIewxhD1y5qU6/pj/tnV5 lf/X7hs+GiAXIB0Zm3oBYm8YLTVA4shlXxk8crTlyKVcIjxysgdFZGTZyLLl YZl3p9XLMq+1s5dlX0I68qUYWTaybLY8rw3JMbMsbGxfyUNo9UmMCtP25TwV jXlS3jnIS0y5Z5Y3ICu28l+HOyKdZhKj1mJ5tB6TWCpvy8wr7o3kyUdM/jiW Z7s8Ei0DikDsqG3XyC2nCKaxPNVd0mHTbbtarkG9NF5Kebb7JdEyoAhuxobZ bpqqP0lwfpYcB4bj5rkYSyYNQgnRKb50hGgSgJRnO4JSywZUlcQPwXYYpe30 VADlZ3uP0hmjEEFnV+LQtwIkEu+lPNsblRo1D+9DjJfj4hVq+6pSw8SFyvZV pT1WqZeUjysx1sFfKcp2e6W8xN+5LV2IvyJe2ymW6riucYFYJj6yNAcKGXSy JbEkKom1/WupCQOOHYIZ2w+XsCqettSpid2SgxgqtKjCmB2pKKkUZDv5UqMG 5D0NlF5nYMpLzfFKRmWjo15dWqtZMrFnGuSpXK/jMeXtSYykk1DYppPtdAJP 6ejiGRI3iUKdj1V12N5ASi+HadM2r2M05R1QpHI/iO1ArZJ5IQ8hpsjAH6bJ 8/EvVbG6HNOptTlcro+ZoecgzOukTXnD4VtYzxIaiwUWryqIEaRDTmMNdFAj sWvO8i7EHNSXV7GOjFeSxBCvRznlHdCIgV6Y8vqgU97TUa7EwVNQskiOWJF2 wEJeWblkPB//mmYiySotTU1nAEVCC2FnEnNsQCzxwOsjT3kHFH1ojsOXnsg8 FWPX4l8bUMp6jKUnysSbfxphY3fuSUxHwt2A2naBZqqDwqQ82+uf2jaghSAd t3pvB6C9yVWTUSRmYRT1EVlgyw4spVuPwp1opTioJ9HbrST+UZj3RgPKu4Rw IN1G7X3JrqcNB3XEoDlSgFHtEQQOlMmoa21EnEg2Qod0eNqxIgTKYEYzgRcT ZNBMzR/QVJ2a473agUinDkrsoc4ou3FUctHK1UZYBQiqlcR4+qgy1D0NGRRo IlYHLQd3qK3eyyt6As9P+e/ZPIQ6LOlv3qstRN9vCECdIc5CubRBM4UwWfzJ aEC0T2Jr1dgVDWS0sidaCDQ0gq2btVFn9V7aQXk3YsvfQKwBkO/z39UmmbvN qoKMqQ8Qe7zXfExLACbwCf8mdtI5tRyOkLivGDWsx1ary4HVmC4BHu0wECeo 96rLqWRH1y55E0qmU3nKKwfatDii23xdMHoZG7EOxcpszmtuH4w2Id2kLKEe piCIFASaR0kKnA66Rf6ptgATgJQKGnuqofMNWlunI7Emgy0oj2xyiBZRHmmM p5uSGVIh5rtYGGmdolcQIRTmvRBmxQ8k2sKzBpsrSdHlZwOB9AFryl1n+r14 IkMOL56o/3rvuaGmyzxNXVaGy28jaIzTz+cmOC8YYiM26XflzEhl0qzThs9V gw6Z5bLmuknWPtSjaWJTR9+aqj4DoYsG6shPiXZPCTbEX/2un6M0fa9a9hzC jHntGwgjIF0sJUJEVv+lOzc+Tphbft4dYznxm632PBdtb5ERaqh/U95Vxs95 g0baQadFgWw+0YChX3c0Q4yocTSDUnclBBiA+RrCSHdNjHPUq4HlRlPqV4SJ awa/0wbmn3drzKu6efISPstw2lm3t7aTYZGONh4mPKn/l0686eZ7l/jti+3T w/38owtmROg0ENDC4gNm5tlYEEmFlukkUe+eDEn5LBNGJlwkZTmmpYtuUtfZ /KPTbtsK3SVY8swgEQc0hWR2b6ahhoak68w/mlBpTKZqvKqz8D5VPMvvNNNG ztCkh8qqkK7FSp3v84/UDds71iVb8pimTmbLNj35zT/SQEjVVqScriSjLIJU CNUkR5oyaTJJu37+KcsK2hInEacIKT+Sdzphlx+J3L5CwyVyuoqBuh+ZY6nv XGxF0RDLaQQmLHzILJflIulo1AsKIlgRoA0NZS9FWRYQBKhUarb6IIG8MkIc JG7Zl/a4sEC3MlFVjIXZsDDIq1uqm7GJ3gMWoiU9CxNBNcNIaUu7T/6pZj36 BsIMIhT9n05AdKAwXFOsRJLvmtz0SpEQYADG61ymdjJ5R2AaGRf+Iush7/EB USCeBiCpo5FyMRKWElGEZey0QImpSq/dLbVWVk1bC/CRhnyvi6EBEK9bMAGE FHCxnq7vPVSfWK+02gxSzbRn8TI1CxdzyInRhflwI7PUmBk6lOBFcCT9USyV yH5bbhmh83MS2rJiS2wp1D1W6VxiIubdTyRabrbAhYYyWZKvtkbZbFvtwUo5 DNh04syzU9IUAjnHydrdFgLhzHvFj4Ez77VUhDMxsSADDEIcDc6pu0r+qcZL DhQWHXcNcXNgjG+0B0NHMQr8vEVSXlWzIaXKezBNUzHJiUBJhIuDkdcqzntn YQfwJP1VtsDJq0Dy2qYoXosIHYq2/DU4yrbMaQB0LTedQ+vAm1l59wO7mS4j DCWDBBqxaXDzmk95b/6dOZf23gVp48122ZFSdHuWJj5IxLZxk9Rxq6Stni5B EMqR9rSOQKLXql6UMaqYwEdY8CyYNGEQBm0XThKBF3n3I7yME2wv8mgLSA7L aZomzYE0DNowIJHSDEZj8i0bLQR+qo5JyHhvncJoxKU20PrC9vuUMDIQsrfJ bInKuSE1n4DnfYXAmGy996CrEJydXdROlRRJA7t4Cnr3Wdshs7m0qP4OuWls oREgPfYqP5p+aTwt/jVNewaZR8wLxNhbSBJ09wnNbCKJrHkIS+Ck47JjBudG IqayCSQm2i4hnnoGmkVh+hGji5ayui3tTHav4Y66UOkenr7eQpaCNMYqZ9Fe H70OsOq95kzHqs+uQwOs7d1jc17pK0S+XKKUDAui4KkWuhMNipRDWboQEK8x +Tz6+rjkxd0ZQ3I01JCFoPfRpZ7AV90CmzRB1YBpwUEstG0Yu4Cc7dp2IUKO pkHxVpwuDDR7veP1cqTtRjkZ9i7XegKY93ZVYrXXUIXWJ16webew28JuIvjl Y3tif2IklnQJ5QwmmYnJ8LEF/LwnRV4ger0IvVbRSwhJz35qG0h6RdACkpsR XdZBiWpEot5cYpW2GrvBgiOi1/6YbLBpP8drtOqFpPeRyKEhWRuC5gNi6Kdh M1A1BWw7IqqmpOpcdT4SoZ7UqbrCSlcQDNWsaSR6gSdXihCxJxhucjYsHPeu W1mFz1Qbs3ShOjfsVptEUzNT3bH4VzMs/y+foGR8NDkXKNUa1o5uRVIDOzVn daeDRSboY4anso8hTsvq1azJrcySvTPEicPnuRKBCZUiVtqGljt3aWXQCazy T0yw1Qtfa17SimvPycAJLrMK9mdsZnw6Nl+OXDvDR2pYXX5S0wT+Euyqmzad oYLGQxpirmiJ5exJvRg6Kcr7zrsBE+/jbPPApIqljTXZx0ikhXZH3UCm/L8Y I9R0I/tY176bQt2KVbGVSiICq3Ycd9RNIVLapSZ1IhF1yUyDV0swtXjmaGGM qbxVNeYwClGXWYmx6o0n6tKAnAFVVCbpvI5/Qr3qmSItF5mrLVLrUA8gVGy2 4hVRJXWcNWm25UtzaGd4Xs32dvZi1N528fAgaaqLg3qmg09NoIQRai3+pU5o 9hpKjFk7BG0IC5fpJFPaqkbpnLBUjVLtluv888ugJ9jF9/fyN/e2BXr7O9vZ 3tvi/b3Az/DzU/5zxp/zGDEbwhzPzqi+ClKySL0X9AqlySKPBlqV5oURndSh bsQ5nrtR7j0ZGttxSN0OiMxq70r2NKQSGQCtwGr7KR71SLO9fjonLIVS+8wv SadS34+WqtFiPwZEPCBp9QrMafHoaVZ8O/x8bH/L6PAv+zGiZDbtbVXdJCxZ PyQDYLJSy5qbfd1uvqR1TRvsyI568ShbgvX14tt1TeGkG7/lZ7+plAiJhN4t ogSk6taMxPa/NROC7BeaEhad7P07awNBNIykyWQinZ4/5B/6cnQKIdm2T0iU Td6ka9deIeBr47qDl3HPAFFLgKOJwL5r9YScL6ing+qGhn7oxffDiV6u2zp2 gMBkziMNJCwiLxgdTV3YtMWdrWgJR2zgpBicIVrdjjnB4BM5LmIGZb+jsoCl CQNHdRkPQWRpYsNVELIg6IQPNkykcNXVTZXJCQbbb9/6jrCnaEpLZn1HQFRv N5gTkkthcQzTRBJGOy+trI+pPy8ISdX0PUHQnBbJSSn92CZ7b/1sZaXsgOeA 9sqLe2PwjEdN8HpjJBsVfQFxTh+MjYS6XjwvVNq8/hZC5TEDbHRNq3AxuqbZ kD1+17QufXxL6hf28VWszRf3PV9PSU3/25uf78ZRNVf/XRyxzLyF3X19I3lP KF34MoRkwBBbIy8waY+kE0yy17mtCqhTZe1YhVDIeku5JEnJ2FoYiTPcErZ7 oZfCVuN5VzcghJiFL31JCCa9mAhe5BKOdte/tATdHHe/UBZb9aMWeK/g0Dct ZjBoe7DZQwkJo/eLYDq88soxWKtXEIWgRS6/8lw8pF58hePLwhcPDXQFFt1C RPJYgzr6u4XoqPuv5oShfTGgWAsR+GwoCfOO4zrA9E0F1yWA3r3h9IbTnoBI VwCKRAh+6kVseH6qwa+Di/8Wuf+UxEnKAR11kgiEZYsAsbPbUbG1vd5RKeW5 Lkv1wlO9LFWd7XdNsm05LSFQiSlyW6xskkgpVZxcFT34PdBi9mk97mm/+Eaz nAKwXi+Dluu0CWNiikQmVd7LoDu4pLebm+gDy8Qlctpko0e5PpqCBW+iD7io mV3wuiUUT/r6sDfSby7Az55uDfe+caG/C9IMC7tTp7NCIGwTQNlo+NXRYut6 GlTCcB622fS3CRQczgR7365Qfb+JbWV51RcWQvIw1IDvWIyP4Ljx8Zt/BGd8 A6usfra23+obWOOTdhraZoJP3JN24zuU2jHVTPCJe4ry+J+YtaSMg+fRs+Hi r8sucnuQxwAt//RePcDbsifhLWpVbVEOysfXqIuCenqNml47J4O9CwZXaNR9 CGVsQRsPjOmDbK6uGnTQO/SZ/yTKa34se1yKzn/RoJEOh722S+oyG7HklxXx mXRywsrMifi3kTsEIxnaSALUWR5AKZuOvPnnNWT2vtupWHbYl+Xowxb3BNUI xUGgOpsgupQN06MBRkaObFh3MLMKk1LEkPXbiB7jcPsFcGi32aKQwasn3IdS CFi0M0jAIndLWnbrb6h61xp0lCuu8DRyeAFOq24dP806iO9bTvCoq7NkbpBS 5OKCV5DXmPBC8sSnR4qVruydNQhGtJXL411mGbmCsu7g2+XYhAy8oKda2+SC XrzcrYkOkhJhh/qJMvbQ7LsJRZITk3qAnXSI3WaOQPYP7eDzY/57sVmsrS58 BtXfcualPqobmYLGph7FpT6R5UcaTdVgj+VU+dHBlfp8sEPzkKnCazpB5zR0 k4F6e9KlPOT37cDxC1RKUwAR/CnkpUcA1YME9WoB0sNI5SRWyMuNyVig+54c jdaJVijxVD3rIwWABKlqm8RJOs6558xLu12/QLqWAKJxnwbwe5DXCyDvPgoN pfbOXWo8k38ken2msPPmH/nh0AGADZZF+EI7/ScYNmSzQB1ZZlEvWHQLzWaY PGgsY5uqiCbpiPp1KGXXbJsAiITmBcFdZ94BQUCNpf1qMqdSvbZVRtFaTWZz gkMQXxHU7OaqGausfbKZB/FI0/K+1KSqySolFEYnQ3eceXuCRfvDi+tmL5RX kIg9UkqIDcoiDfeh/4gFz6lC5s10BcyqiJCYFlsbsSJ6NVMQS4sEYgnJ0D76 Is22J8lR9bTFTHWoDkDTKAfUXWdMC1XDKhqNk4slk79I46NSzsccdDmkcuHI VBMYhdF2f2rAoOUdEACkzOtu1kfnDRpTWPKRXRnNC+sxB/UjynE55qAW0ZkK 7ZxvOVs0oDBk2U0iuBpjaV0o3hq0N0WLahmXaXNG7p+k/kOHz6JFqV5A4pyR 5P3IbBup4R2IgJBC1XvtNimv7cqYCFcdQrLW9VLegpbVLBl+s6ZQ7HLplID0 pGMWI7HJa25Jea9F1jVmhFAWDY1EO4mY6qK8suW2W6vbjRDaX6X1PeUdUGoy wpGsZARROd5c4e/WWAfsTAYjIkMXRUFa9dEugpRC3L9hNmYenocYL6dlb47U U/G1IIB9aJIu8xAxReolsVwFqiiv6oat0kwMfRO5Zpwcehl6PRZGih+9JpDq ONMGojJjVp5oHBIiaFyDw53dWv1aUepVsBOtPQOOGOKQpL6xFDLQYFdnexU2 i7BEORSXFpUSVbObCOubdFJPkfLsd5Fo8h1QALciIfbDRaRtk62c7ax11izv ljMveaCSCKQ8+yEheyXRuwg281/HGz6fQF4SwWrMoW51q+VtOvPS1gqJQMqz X8YhWgYUwZ1ms8NfdGJI7N6AJiZrBbW8O868tHFN0+TdmIM6skrGgJwOJhMb QKH3ur0LsQDyuJXidd+CZo4HZnkDcuZLSOdlitcH0OsRat+Jsws0v/Mssy8E HFn222KZ9zplL8u81wF4WUYOQQNqle8oy+IrZfs7WfML70DRGenIUZOj1SFx 8e5m8ZoWHZaObDTZWC1BK2Du7NdNQv8UipmUUN0N//8zhD2FsMcQ9siZl+r4 Y/4bqCo3dSrVN39PbX+/aJW3I9muku0R4L2TYwkREIem/BWw+IBifKJu5Oic Q5PrTeBFOOl9J9DLSe8FbfabE5KO3MoHPHIdWbaULPPejeplGd1XMaDd3FNI 52WZ97IwL8vsd/qWmmVkFkuWk+8Ay+xLWUaWjSwbkmVkqkxH+N4LYr3PBdCx Hhml09VVtME7smyZWUaWz2Sb5WWZd9/SyzJazJPtRwcss+9na88y7yX2XpbR qTTZhg/IMnv7RdLdhnSbkM77go93KetlGanLtDs+t72QraO3Z5T39UEvo8j6 gq7O8TJqbjsgL6PocHprAUZ5Vw6bkI6uBCSlhTZHOuiEts7UnmXeR8e9Ot0W pCN/CJpOaEk/IMvIuYDMyL0s8yooXpbRdEJqcAcssxWA9qTbCkB7lnlFNSDL vCf23jHFyzKvguJlGc3ApAZ3wDLvXrGXZbYC0J5l3jF0CVnmneLtdMRuW1Xx pqNZmdTgDljm3eH0qo82GmkctNHjRSNNMaTddcAy70aKd11nTxM0HtljlHea oPGS9LwOWOZlhTedzYr2LPPqb0vIMi8avezxKi1elhEaKV0HLPOOUd4xzx6j aAi3Z2DvworGPOrAHbBMHCNt13pSb2/HWGKKWLcTaj+Lsbb/Ok0Jc+88eKHt 1e/tgZbgbndl7x6r3W0l3dw7D95h07t2tMcK6gz2WOY98iCBUzs66Ehefca7 qWOPFaTj2GOZ10iAxjLqIx2wzKsNe3dW7Q0+0qTtVYLXqIdWCTT8d8CyMDPI Mz1JrHjg0en2/RhLTBH/VurAj2Os+hihOtR30Ox7sQLbcZfMJx/GWNVnXb1c /osYa/vYUofroNn2JCn+gl9D7KMYa3vR0kHYsxhre8LSBk4HzQ7FTpoSk1jx s3sOsU9iXvW54pCXjIy+inltn1TqIB00myS22ywsFPKdU2JS2/mY9yvI+zzm tT1B6fyvg2Y/iRXYHp6vIParGGt7ZBJSvouxtvclDaUdNPtplAn1sdVY/WuI /SbmVa8mXNGQ8jLmpeeiBSk0lHbQ7CCxU5Hr6/lfP2rSCelUz8OQ9yXkfR3z EphCxDf9tC5QQ96DlPjHmPiNRk2I/b4fWtuHtS/v5zlIDzHLRPDcq6hl5fBI +kj6SPpI+kj6SPpI+rtJevWimXiHbWd7b91+dkvYouiIub+T+7mFf53g5kSH yOAEWf9EUMEPNdyzdSsUOylTFK6qIeJG/lP3V63cAnNP29zNtmSX1y1wCTlV tajg1CF39k56i6I7dO4MmwW3Tbzw+4Q05wQPkyPpI+kj6SPpI+kj6ctEeohZ JoLHTdKR9JH0kfSR9JH0kfSBSR827GdnOoN0eluNTBko3SJ5h6hj2ekb61h+ +saus5T0jXUsP331rhPeMAo/P+U/5co0e+//ATscmGU=\ \>"],ImageRangeCache->{{{77.5, 564.5}, {746.563, 503.563}} -> {-14.183, \ 16.3266, 0.0347756, 0.0347756}}], 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, 19152, 898, 497, 7102, 698, "GraphicsData", "PostScript", \ "Graphics"], Cell[51675, 1836, 134, 4, 31, "Output"], Cell[51812, 1842, 134, 4, 31, "Output"], Cell[51949, 1848, 16928, 777, 313, 6202, 599, "GraphicsData", "PostScript", \ "Graphics"], Cell[68880, 2627, 134, 4, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)