(* 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[ 70611, 2674] NotebookOptionsPosition[ 69763, 2646] NotebookOutlinePosition[ 70249, 2664] CellTagsIndexPosition[ 70206, 2661] 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[{"FeCN6m05", ".", "exe"}]}]}], ",", " ", RowBox[{"05.02", ".2012"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "1.30213"}], "}"}], ",", RowBox[{"{", RowBox[{"2.63723", ",", "0.00000", ",", "0.00000", ",", "1.33510"}], "}"}], ",", RowBox[{"{", RowBox[{"4.21928", ",", "0.00000", ",", "0.00000", ",", "0.24695"}], "}"}], ",", RowBox[{"{", RowBox[{"5.30754", ",", "0.00000", ",", "0.00000", ",", "0.84130"}], "}"}], ",", RowBox[{"{", RowBox[{"5.30754", ",", "2.12189", ",", "0.00000", ",", "1.95189"}], "}"}], ",", RowBox[{"{", RowBox[{"5.30754", ",", "0.00000", ",", "2.12189", ",", "1.95189"}], "}"}], ",", RowBox[{"{", RowBox[{"5.30754", ",", RowBox[{"-", "2.12189"}], ",", "0.00000", ",", "1.95189"}], "}"}], ",", RowBox[{"{", RowBox[{"5.30754", ",", "0.00000", ",", RowBox[{"-", "2.12189"}], ",", "1.95189"}], "}"}], ",", RowBox[{"{", RowBox[{"6.36474", ",", "0.00000", ",", "0.00000", ",", "0.21590"}], "}"}], ",", RowBox[{"{", RowBox[{"7.64366", ",", "0.00000", ",", "0.00000", ",", "1.06302"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "2.63723", ",", "0.00000", ",", "1.33510"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "4.21928", ",", "0.00000", ",", "0.24695"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "5.30754", ",", "0.00000", ",", "0.84130"}], "}"}], ",", RowBox[{"{", RowBox[{"2.12189", ",", "5.30754", ",", "0.00000", ",", "1.95189"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "5.30754", ",", "2.12189", ",", "1.95189"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.12189"}], ",", "5.30754", ",", "0.00000", ",", "1.95189"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "5.30754", ",", RowBox[{"-", "2.12189"}], ",", "1.95189"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "6.36474", ",", "0.00000", ",", "0.21590"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "7.64366", ",", "0.00000", ",", "1.06302"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.63723"}], ",", "0.00000", ",", "0.00000", ",", "1.33510"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.21928"}], ",", "0.00000", ",", "0.00000", ",", "0.24695"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.30754"}], ",", "0.00000", ",", "0.00000", ",", "0.84130"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.30754"}], ",", RowBox[{"-", "2.12189"}], ",", "0.00000", ",", "1.95189"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.30754"}], ",", "0.00000", ",", RowBox[{"-", "2.12189"}], ",", "1.95189"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.30754"}], ",", "2.12189", ",", "0.00000", ",", "1.95189"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.30754"}], ",", "0.00000", ",", "2.12189", ",", "1.95189"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.36474"}], ",", "0.00000", ",", "0.00000", ",", "0.21590"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.64366"}], ",", "0.00000", ",", "0.00000", ",", "1.06302"}], "}"}]}], "}"}]}], ";"}]}]], "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 .06511 0 365.73 arc s newpath .63186 .3 .06675 0 365.73 arc s newpath .81824 .3 .0108 0 365.73 arc s newpath .71096 .3 .01235 0 365.73 arc s newpath .88218 .3 .05315 0 365.73 arc s newpath .76538 .3 .04207 0 365.73 arc s newpath .5 .43186 .06675 0 365.73 arc s newpath .76538 .40609 .09759 0 365.73 arc s newpath .5 .51096 .01235 0 365.73 arc s newpath .76538 .3 .09759 0 365.73 arc s newpath .5 .56538 .04207 0 365.73 arc s newpath .76538 .19391 .09759 0 365.73 arc s newpath .60609 .56538 .09759 0 365.73 arc s newpath .76538 .3 .09759 0 365.73 arc s newpath .5 .56538 .09759 0 365.73 arc s newpath .39391 .56538 .09759 0 365.73 arc s newpath .5 .56538 .09759 0 365.73 arc s newpath .5 .61824 .0108 0 365.73 arc s newpath .5 .68218 .05315 0 365.73 arc s newpath .36814 .3 .06675 0 365.73 arc s newpath .28904 .3 .01235 0 365.73 arc s newpath .23462 .3 .04207 0 365.73 arc s newpath .23462 .19391 .09759 0 365.73 arc s newpath .23462 .3 .09759 0 365.73 arc s newpath .23462 .40609 .09759 0 365.73 arc s newpath .23462 .3 .09759 0 365.73 arc s newpath .18176 .3 .0108 0 365.73 arc s newpath .11782 .3 .05315 0 365.73 arc s .71096 .3 m .71096 .3 .004 0 365.73 arc F .81824 .3 m .81824 .3 .004 0 365.73 arc F .5 .51096 m .5 .51096 .004 0 365.73 arc F .5 .61824 m .5 .61824 .004 0 365.73 arc F .28904 .3 m .28904 .3 .004 0 365.73 arc F .18176 .3 m .18176 .3 .004 0 365.73 arc F .5 .3 m .5 .3 .004 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{590, 471.938}, ImageMargins->{{36, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnUuPHEdyx0vT8+BbJEVRFCmxRyJFig+R4kMkhw9ptauV57LGAoZ9sS/C wsAuFsYu1nMfwIC/xdwMf47+GD7yY9i38VR0VUZ1zS9zorqyqqtnsiG2evIZ +c/IzMjIyMjf/bLzx3/9t192/vSHXzb/7m+//PWPf/rDv2/+/Je/HQSNPsiy lb/Psg/+ZzPLf+9nWfm1f/Df9Ov3+VeW/aP8b5S939vOdiYSk60UYfv7k2wn z7a9J3/tZ6uSrvxs771/x8FvJPhMtj/ZyWY/O9lkWn+1dE/hr7ss/C0Hf98O j1cSfEqTamS2935a3EGWFQka5TkKcvezD2Y7RErYmchfG/K9nu2/38u2Dyov s+xtS6lvLNGjbErpFKNT4Sxb8sdatrdTjZpmnaO41+Hod82bvFVmOeCBEsSV ANHTuOyfimyTHWWVMy5Mu+h7CHtTqVJafsAdZyHdy5LyvDUVyos0b43FvAuG hcl/VZJQQceNiu29FchScN/vatTlnymzrrvh4P5NSz9VjISZ0bgzeeEtaeRK yqPKsKzo+PzfsyZUHLRpMtn3ULEV7owq502Kgje4pLcc/AMwoqcENwoa98o/ FJwtg8HhNG3RKSP7vsUBlc9SwksbXo5fK8dcNXnGQzpYnJ+j7S177Safg2oK HEcBMleqABbUzkzLFWoPddg7DvasHB4OLBexatUHPNysEA/zvZ2rWdW5s6jW LWc1KqfB2SGpYSgBH00DskK8eZF/bVSi8nkljyxG2tkFhZ0bEC0Jg2GFDQmX tTR0hhiWMBg+LoGh8xsI+ylyujZ5TaTvQrG7xnTh8prXkUhPpCfSE+mJ9ET6 oEmXmCER/KOjKrBLHhLBx5g5EumJ9ER6Ij2RnkhPpJ9g0pOUmJgjkZ5IT6Qn 0hPpifREeiL9MOlJSkzMkUhPpCfSE+mJ9ET6gEkvjZjVtlkMszeMFDzPvy9K sm6aVX4u5F8vmrXtdBF12N7/aBoe5d/reaqL+a+1/NePLdr0gyvloiv522bN WZf/FfcjsupHu0xq+GteotzBuJH/ksL+U2oZFRl25d9/uNgbLofklVIKSbHA r/zUr3bkUfK7esHkaDju5d+S7BrESoOlprcQa4X8tStlA2KvOgoeNOuG0lJ/ 2g0H0O81avldR9UNiN1wVG1BrLXlL10ppyH2Uxf79TxzxchdPMjHlLXZt12l n0PsGQfKyxbN/s6Vcg5iP3Oxd5o12zq7f+kq2ITYcw6A5y2a+NSVcgFibzoK bnfTxE1XwZcQ+6GLfdqiid+6Ui41piBCE8MYXoJSHrdo7GNIR80O81aEZn8O 6QiAy5DuUQsAHkG6y5DuNqSjmSQCFDcc1nch9iMX26bZD10pH0PsVy62oyZe h3TU2I8hHS2X1mY/gHQEwF1Idx3SRYDiU0hH6+JVSHe/BRT3Id1VSPc1pPsU 0kWA4hqkuwfpPjGms0JxD9J9YkxH4mMEKKiJ1NsEGXGPFQrqbWoicQ9BFgEK GZ8yGX3jGz4S26bZd1wpJBQ/cLHzNFFiqNIrkJGaeAPSfdWisV9BOmr2N5Du CqSbW7lP6WhR+wzSkWxgBYDW8s8gHckGH0G6CExOYg3JdSQm3WoBxS1IR2s+ yYkkJkWAgkRc0lTchHQkk1uh+BLS3YR030I6EpkjQHER0j2BdGNI90ULKL6A dGNI9wTSXYR0CYqYUHwI6WjDuwnpaPdmhcJa3lNI9yGkiwDFBUj3DNJZe9EK hZXLBgiFdZqLDcUzSEc6pAhQnId0pPSKDYV1RXoO6c5DughQ0LX37yCdVQ6w QmGVU76DdKQ8jQAF3cSnA53YUFil1wFCYRWUY0PxAtKdhXRLDIV1UxcLCokh Qs5ARjoEse4aFwXA3LtQKwB3IB3pBK0AkA6UToZeQrozkC7CYDgN6V71AAXp QEkd/ArS0QljBCjoXJGORElTTOrR2FBsQbpTkC5BERMKst54DemsalQrFFY1 72tIR8YHCYoExUKhsB65WKGwHgklKBYBxTqkewPpEhQLh+INpFuHdAmKmFCs QToyPbQe2luhsBoVvIV0a5Bu7l3ocQFg7l3ocQEgDYYERSdQrEK6d5AuNhRW E7QBQmG1dosNxTtItwrpEhQJigRFgiJBkaCIDoW7rcYvf1nv4Z0ApEooqo90 0UnQCYXH3TqrPMIlYXJLcVuKGRWsNb3X+GcI+xcI+2dj3p/z7wZ3IvVf5bmr 1JfVSSH8EtU8SMm+4+M85GEP+IRrm2sC8LwvNR8ack4nQXWDacewpNaLDZOS kQ8ZqX2a4bKLIDI6WnVpNy+mcjK2aZO64mLJKin2Dl9pIQCuBGnpUQEyzr8N N5g3e4DspqstfNOZaOkRss8dZOHbz2TBGBsyvQcdviVNtPQImd7CHEMOsqsk i6bY4FEdBCOBR3l7BJTsnQja8w74PgDV+2Nklz02tqNHGOX0SoLCV+DJOKDN qRmB94mrzXtVfuSjpcdDxSuOTDIwvORivU2cEzI6aFRa6CbZrSAtPUJGeQk8 SkdhsWEM17sLNIfzdgQtbSjofhvZfdL1ULomGBtaqoOufZIRKLWtR/MauiRm dStApMeGluqwuh+gts0DrcRYAaWrZlbnBERwbECpDqsTA2obATr3kT4BqsIN aTh0PSXiYpsKKi1kpXsvSEuPg5pEbQKPzIUpb2wYqQ4ClNRmlLdHaOnyy0PI SyIvXZtoY+1N0BJ9dM+AdGBEX48G8qRAtzp3oLyxDempDqsTCMrbEbRUFXGy 1W0EdZXMb+LfkQj+lYul1ZvKs7qSoHZ0dJuFYCSx3+pygvLKXLaah0yH3upM KftVt4IX3C8JG/nGlJRGF5upfqvbCsrbEew0B5G23OregvQBqryj29SrLva5 g5v4btXFPnc5aE90zsXS0kX0WV1oEC4dXXOjbhlBmNW/BOU95QAlLxDrjrsf 1kYNTBG1dDTTXnC1Wds2hlLIh8UKhHV6FXdtJp0UkLHPys1A+tOOT0krQCCp X1SacM66WDovIj5VtdLpAJ2kw3saSN+Rm4Cm0Nf9aWgzZ+si8BVK0iAQ+OTP 4bYrhSBRJ4kbc4G/OpM+47k1Au71STT/kHsGwnvDtZF2vLq5U9edJMBcgHSk CSeVSX26zz+3IG/d9UeHgGqzCUZtonp4pu0g7Xj1CI1oIUUEreAE7VVX8rr7 5YXR20ENwZOr1Bdmx4/GWr2lrDiSaFt20cWSKE5UXZrNIb/IzRhtFmmVs3pf kbnrwzyELv0cUp99537RUigR9dnwaJaklZZQ9eqAvecGhDQhSEhP944bM+nK 9pT/t455PZon+wKVmF64XwGNm44GmkpGrohp5x2a0P2z7NoMzeX/aXdBZNE8 SX2i50Dh4w2tra6E8fGM3w/VIRB0FiSlky7U5IMjMLc8cRm9su9IqW8q8K3W 03vtGugEJXw4Fe4zyksnI2o6QHPSprd/GAkqg7rrvMOVXG0Fuot2Y9Rxp10F tFezbpZ0yaAuo+ETPvQKh1lPXG64trXfLCmDFh/aHujaSAUFeuuRy+jd2aiE 4+1pzUFSSn1a8fWW9diHFhsKI7mLhNsbNZwLGqnrrOqHkQOOzGnCXudN/UaK VMve1NeXMs2fnW22lkJKu9B0SzpLGk9h4xxSNNOGjvqUzhhCFNOYFDjIU1ed M3z9bO24QD/TWQQtEiGtgNeET2VOYX7L2PWFkWhJPW61dKP+o7x0BEx8Q4OZ 2lHl3PIjCK35EBoFkCd5XkW1hqxw32WkRtPRATWawq67kquGV+WHuoego2Wc zploqiYVGu3yiC3oWI+24cQWRLOXvXX/6J2yrIiT1jV8S9rEIlbfFsQsBAWR rpvDj4p81ZKzDHEmTGlais0vbc5DrfwSBimbvSlg3TBQoVQ5MVLYI4mJkay+ pejwh07EqDk6EX5ckFM74ZPUVnCoVussQMOBRB7rEbCVi5sjRcKZVW9gRY12 g2HfYJ2zFIVRc0iwpv2Z7hppUx/eIjdnL8pLkgSxF+UlWcvKXjSHEGrEaMqG bVDriL2s7iKt7EVAWe0DrXkpnZXRSBKiDidGs9pgWIV6qzgRxkDrsBrUhiWr MMuF3YF2znJWyGi/SxIdCVOUl+oggYjqIGGKyhsbWc57T8rAckSzFT+6XkPC N+mPwjJY5yxndZUcNgarNad27h2ed2ieUNW+td7Y7OXfmPuW2ObspccbhBWZ N30ym6NmBhWujRgo7OObGUhirN7WvZ1rGLnWbZWVRdqwEklSYU18v6zUHIPw LGI1yKRtMzEuDcVbjpsCx6ixGU1NGGiSpZkvPBmHwwgeK3uRhmPTyF6Ulw5I rOxlxYCUB1650tsL3n4zMBXxS2D5sz6b4TUoJlC807KVvXRhIAayMtXnRVnV dAJElqGxzDiQfgzlE/N4bzV4F3Mry6hgQXVYWSb8wouJZci7BI0tWtJonafx RuOXZj1vXgGKQCGmpR3n5wXo1XQZu9ZoyjckGRNZaiMb3mOEJwSCkmCjriG5 foAcpIfqzfjmKBPeTrmmvpTln00o0sotIRNhOjW7EUhP5S8Jf4SNw8naQLhH MlBea8/XpZC+uv2co97rrWXk42prl4YfizN1qfUpP2uX6mUmGt5qqkgaB2r2 kLqULotoKZ+6lhMuVu3MULvUYz1I2941BxNtJq1T2KI63joe5S/ataoqhKQD En0GyBtWnbZafxE3SSnreQgZbMkSR7sRERY2fAxEaNHJ101HGq1yVhYhBT1R sOKaStBJmLR3Beq45PJaz7EoLKzD9Q8iH1t0ykU8m+gOgTr+jAPxrAOMhlNl R3dI4CMebs48X7jYdiyTVW+uePcD2lBpPE2gClxWGmFklb+OHsdLwCjFZ507 VsaQ16qzzib5h+xFI7JHLWw8J6P4KD3vYNDySgToALEyRx/Cjk7Fh8oQlYuh s4AQwLq/IAawdvbY2I7W3e6llG5q1oWB/FNX2XXYuQ1c31pxMfS5d86lSVG1 D8Psae+ukXray/ed9u9atrez56L2tqc+zklb2rqTaUWTIMpBU4Z3XZQg1Vy3 YYZNV55f3zifMFC/d9eELTSv6qI7YgvnBzz3/b2trDHZ2c723k/9gAtfyteL /GvDnrMPnlp1iLXhqVVfT1l3J17ukpL9pyAtuGvVN5r8fnAPieneMqxCJbWb +rk+DW0Ll2QVn/PdTEM0oI7f5KPqieFPOaWkIU8PZNPPDj/OEKf36RjP2ufH T+bQFh3vbUItXZvdYb9d2mjD0LcY2bUOMv/QrseiDji0DyZchqkROM0NaKIU 8CG3pIyQ/6utTKRQq+kQKwo1PnANq+fiqKLn1SYe6v6Qy6Zz3obXJcUSQ2+r l0p/GBTJiBBBht7eCR9XeFX/QzmuOCTKb/go1lObbPZG32WHj/eWkhfbAZ5O tDz/lERkN67SfnizpWHLcf7JZzZ0BHrV4bPER6Dzskfx8T6xJCmX1vxBqPc+ 2TQE84dOjJQkKPwEFHXp0I2U9LJG+Ekpq3PJAXZpTLtEEDeX2SgxfOxcK5lN WLOltklMVs8NWObYWj0P+KqFAahlu3ThvW9YC1u66xfDvBCmpbRhnqW4BubF iljJ671iIZe/JCZdXc3/Ohw2hrChX121enJayNXV2FfridGsrsoazYZzMtrQ r9s3xyDMaG0mg1iX8WtRnTgQ8W67rW5DmvsqWFpnIV6svC5CNIcXoSXxQJOc HiWnR3Ow3JDcuFnzJoduVQzCLNcGvwF6DmzkYhHDDhkOeB/GOJFuKWthdJNL n09qg1pHzNWHy1yVHIilsuQydxYk4iHrqw0L9pvbnY9ugVaCLtVKzj/JR3eR t7zuVy2UpCirj/genXd36upfD6Uko/9Bh6PDjpWr/9HRuPTm4D/2mx6b+fe5 6Xg4XMrJfNND4KADwh7f9KCnXuixtPT6Ti37YF7feewqoH5LL1tVcyzqZav0 bFxJVZ/PxukNjIbPxqUHGLM+HmAczYLFXaOJ5JdeDNHC9j3n576+SA+Tljka PkwqL+vKW7IkE8d5WZcmfxK2lvON3VpU63eevfO25tADIr3AEPudZ5pn9FCr 8xefY78/riY5BChtETYhjAAlQZTy0rrzsaOqrpIMglxL19Hr5CEfmjQxEOyk kiJp4pwD4rb7RWCfh3TUfJKK1gLtoWnBswoOBO3NQHq1zCKsdd9HumyrbfUd V4p3E1Sx6mqK+lHOaKNCT5pHWjusWyuvMLs6y9a7s7GS4YFLRzrNUy72gctB RsB0ayRM3xhK8W+tZsNIS9VRt9CO16qpoNWV6iAuU9H3qQPea0A8cum8wrL3 goSBZquagrCiLXCErrIaWD2GvFbDCX1IlvhNL5m+zH9ddL+8gvJpV174vZUM KN2FFoXz0ijtCHg6p34Eea3nuhccoFsOMuJL9dGz5XLQGk51kPaXlGZh68io 0BKZBPc3kLfNIecrx7XeUSVBryGv9fEWsmwjLXP49Y+ocFPP0hL4EPLSZpJm U4L7ueNa7/0biX0Bea12oLQppuM473sZ/cBNADwwchnlpRNYXRbD4j2JvAQ3 1Uvd/MCYlxbrjuCmZec+5KVmW59TIxHOuoklcbcNLXReTXnn6QKJsQKvSmSC Ww1FSG9F2gM9rvEqYWonDLtQXq0zJAfB+HVwBBF4PzqEAopAK3hU6V3Ia7U3 JUBp5Seaw0dtYZCtJ1Jkv2oFvqOJg0i/A3lJCRI+xNO8JA14j5qEG63AEwWk pqDLDtTyjoAnIT58A3E3mC58Jqd5SS6gsURhtFiHz4soTPPS5TjKS3dkOuoC PQgj4MO8FQaeJAQ6BgqbYoWBD49IzXvLtZJq6whu7+mDV+MvC5VkCNsBaI57 rjwSIsMWkrUlmrpFguoGjPk/dfcVtkjuHFC1IqSD17BxE5m3kAqXoA2bMoeh VZrpYGccpJluOnUErVokjCGH1VyQQCYZgPacbUAmWvw+go/O2yPw4UsDmlcP HqgRbYAPXzwKA6/nymF3PGGVcucgS/Wj2WGmOfTEZ9MILYlXVvNZEjYJWj2d 9r7dNfLR3CO0MhPLiRMBpZ4GyfKBcpDYZL0KQVINQbvpqCLd9hXXIr/Tp+jQ 0nnDXdfHJF8Ka9AVCNqIkWcQ63Wl21AeCdB3HcN6n4wa+Wimfgig6lzzT3ay 2Y84Wqd9nxV0kUav5iEk0xK2xCXWS64kGBK29xxVtMVpiF4Jz/QhlKlrelJW WyF7B+mGBB7t7N5BuoYwlsrlkgl3JsVSInPHthQzKthyV/79GcLeQNhNY9hr Yx0/598VN6iut/PHCSaTaavaDJo2HBB+OSLMFWQD0SMHuGkod/TvXghx7z0s ClHy3U1SwgARbfBI05CQJH6lLWqPSLYRPNpARvCEncknyIyQUbpNKC9BliBL kEWAjOao2M+iJMiOK2R0ZE8aj0VB9tYLRXTISHH0FtJZISPJlXaSVsisx1In ADLrYwMJssFDJjEJqBY2PCcNqI7sDt5AOqtvp9iQWY/J6eZij6YaCbITAdlr SNejMRyZwSfIEmTdQ2b1GxkbMquVSYIsQXasIKMjlC1IZ3VbHXsLbrVC2oJ0 HV3ziQ3ZGNK1UfQMEDIyI3gF6awPOiwKsleQrqOrknRv7eWAILPasL2EdPPc mJaYNkBZX6WxArUZDNuFOjKgpTlQc2st6BYl3cC0AkUAtDk5shqZvYB0HblL sEJmfXntBEBGNuHkUIiEAnIGEBsyq8UYOVwjY+YBQhbbPGWAkNEdV6tjNZLM Y9tGWdORm7SOPPKQP65nkM4KWWwDPSs3kpPKjvxHWSGzykyLguwppOvInxxd en8K6azTtdUQ2AqZtd4eIaObz1a3WNTbsW2nrdwd9oswaMjErw5VLidpEuu9 di2xdLVhgLjRXW+rqy8ZJWItLsTJPRmaIC+6dF5nXhJL94rPuZK1FOt6RO66 6NpqBBiJdKsbLr1zRjyjjjLOz/4auV+18s64WOoMfR6d9JuSlmZEq1cuumcd Ad+wB35NR9sffTqDTrKvObS8jmpGjv1ILpMg73PQEkTal5GjiqYkq6cuuu81 t96E7s1b/W6pS3lSS+ulYa/7PYNnF+8Lml637eookAae1T8X+c2YW+dCRndW b1vXAcba3CIZptPsIe/2Eud9c0CCRhCrztBordIOCD8jpDnCvjeiThs6eRLE 11zsdddE2p1uznKgpKODG/UzXOBYRiqDkwCq8/X1WYJq6fRZKpq5I6BFbaJT YhJ8FEuSidX59qprrNc1haZTF8S18nQppGHidYlBNMeHkRpm9U8QfoNF86pf 5hqrkedYqkh51fOMB2nuaStHFDd3oRG1A4gnrM6zqDkken/l8NPB7X1Soham Sz9RZX2ux+pGi6aSCCCTEGB1j6XDnOSXW7Os6fXZ7/VVVptAtBQ6ZNGnD2jc Wl1mkSgRAWT1i0HQXg6STtDSzsn6tCNtcaxPG1MdtBSqnzNdT6gLdPqjfV8E 4NWnBi0/1GwaokQ66QC8b7XWHuKorQnekUHlWa9Mhr340ZJOyrIIXUC7UGqE QqEelEgCoPKs78HSwkeb6/AjpRnQEhYHdKL0utsylByhM6Sqka+3m4tjY0jn 9URfEytryiF82MNX3hhoaS7Ojl0saUcjwB2e33TDQIuw1WyN1B1CpuFdBKtf Y6vJmzop8nqHklhawANwl/tgdRKwne29N7tbuAM4ayxpHsKiLaWjWUQflwo/ fkAMTuWRZoQkBtLS1HJIBtrMBHrB+RCZ7OQuGuQvaxeQJ8Pd2QpGs8MkLPiS joIEbgHg4ixDhnOQxo5mQ2VmUpTphE8XMQMgOw8j4lWk+lGWF+X5X/ISC6Yu f30htYyKDFNXMK8g7DKEXci/qw82l5HF7GkrZQvCbgKlQn3VQU3pByR3rZP7 1SmYzOoH5JHD5ZL7RadlNAFQ79JuRzXuo6LHqrHSiow1+VQacTUtA19Ay+hg J8BTJbZTnjrgo71G2Mq5+KUKZ5QRVtsomqNISrK+vkO6Ecrr9c5pmEyq24Xy Iw/ckfnOkUvXaOoxKBPfNrgaEPA/QZjVUsj6MDBN4NY33qkdJIRZ11ASwgiD CIIZFdvG1p9YnGRZ6yad8oYd1e4CzeFNeo/QWg/MiXtoeiZ49E0j2kp7XeB6 +XcXKA3vYHsElDbB1s0oTXdrBXdWw/aL1YZ4luCkckmDbKW9RzitPUyKFhpu 3hl01QcohdEceQIApbxeMcA74CkHlWz1AkfT1QABJVGT+MOq3aV0FEZ1kNrU usj2CK11vSRoiVNIVLKKVAQt1XHMoKU6qDl+buTNGMkJVK73+Mo7Iy8ETqvQ TCcN1BzVyo6Kv6uxHvyooCXBz3qphvCjza7gJ8/U0zaKcpBZnXUbPQ9QErM4 eDKfsJOxiVIfkM1t8UWFWa8Aeh+hqrz6DLwlQWRxQcdI1tt9PQ64NvDcdgB4 X/as2V4sHTzWm7akp76tI8mFebAi8bhmR3GioKOViYQxWv0Yy/1DRgYZULAL lGbQoqUDVN+LsloxUDpaKUj2XRJArZ4H6EDcalxihTFsSJIBLbtAs6Yjje6S QEsbVZLerNBSXqrjmEFL59PUbO/Jdy2MpEFay8YJ2hA8VhUO5aU66PrtMYOW OMprwmSANmyutHTQWj1bEbRWcyXrIS8ZM1mhtXoGWxJoSRVEpgdWaMNWXwna YwitxFgBtXqeJKCs9nJWQKkOApTcbVg9d3auOUqAdjb4hwRt8wkmQZugbQot ae5p82uFlvJSHScUWtKBrRTEVsOE8Ixv/iQ4E5wJzgRngjPBmeBMcCY4E5xH Ndsv0i8XnBKzjFvORe2Ljq3mKe3hE7TLB23SlyZobcWmc6gE7cmClppN5/bW GzFtzvwHaE6RLFUGCe0mhCX7qsbQ0v6IOMpqFUhwU16q45hZBZ5QW9YN90fV H474wjE7H0rW2XPD7tzxSPQkm0zawd76lsGccHpNjmve3zKgYBcozaBFc4Nd 9/lUOtfK3Z0dgK8+n/5bShwVg8DvcenL/Lvwnno4dh3C1iBsBcJuGSn4r/yb /Dvtbe9k286L214bVzitb0+R32X/ysQq1gVfoSrHYu4u6wBO+Ytkjz4u7Kkr Ze+FPQmiUdQjZIedCWZulC0ANXVO6F25BdMlvgXa/l4xO6ah7aI3Ygi3sReG H5C07mO5JQYq+Uc4ue46ltj7idWxTAw4l9iZzDjYnDCctIv1KncliHYWFEYl W/3FjyHdAAFt7aTL6++DAKWSj5mTrmZu5Oxe+ShsiZ3IWUmyOjlcZzi9w53m zyV2chjbCScJj9YDM4J2CO44JcYKaGyHsX5AeX2n85s+nMRGtUayisFWh8ak ewiZHNL54hI7Mbbuyqw+udXpua7kdFIey9f2AiCzakysfuJFwfShj7fa+IIn nVKPQFnV30Q6bblVJeh1gOZ9a5TKo05bYhitBtWqIyR+C4Pc5gUM0rX3CKP1 5MtqoUZHRAToaQc3rddt3m2h88ceAbUaIlm9eugADr9fTbJgm0eIyFKpRxit VohjSEcznR5Tep+uJuANJY+BKqstaI+A6nu5bZ6Do50JAXrB1UYTQptH4O4v FkZ6rrn1w4a1MDrgIpApb5vHDumRpR6hpcfGl/vZzkcQ2yOgjyAvnUHdcgT7 deO+bglDSwc+ZV0kP1IZCwbxsSOYoJNGSME0z9EuhWgZuVK8TyALBU8WC8UT RwiZ9SgXqSdXGjIEypUAn4QfLNaF5lkkcCTGCskzVz3ZoPpnqkNnoCQxECrZ Ued7Wru+B0qvbXWukvoO8p6FdJuOTH1D0vvCdy0dNZt2G1YAOho4Lxyu9JSk vq58ptbhxYfEIF1kslnTK91YkUSlj2m+WiwkW7O9WYu94cg8B2OgjKP6L7pY mntOu1jaTao39DeLBeeNI3MNYvVhZ+8GXIK8G53KCJ+N1RmDlEC6Sr1bLDzf 599rBe8fkrzWfW0/5bJ5n/P1xp53JVcPUcuPpP3VYkH5jaPwrGsJCfkXXKx3 O7LmQ/CjWYyktt8OoNnEqGfz0kg/JKvqOR8811xeGnrNqeq8saTAIz2jVVWW mpiauNAmWpXkA2winUnQ0UlqYvQmSswyNizqnmtIDUtMmZqYmpiamJqYmpia uJAmngCRe4Abp/KS7kRv2ueXkdtc0l2Slq+7PybZzs7ERe/t7OGZ/zFrvrud vbNXRAkMqln8PylpVPDE9I73dQi7BmH/m3/TXfCO2YzsmcLm0Rnk7Y7NtitY b8dnswE2v+z42tXr2C0nCyxqpdXWaYCLxwlo4n1jc6ymVgNs4gNjc05AE61W XQNsIhnWUXPIfOShsY4FN5EM3KwmQt8Y61hwE8nkzGosRoZeA2ziY2NzyKzw sbGOBTfxW2Nz6Iz4W2MdC27iE2NzyHMZmeEN5hzjqbERZDvytEXDOj/HUFM7 ak7Y2G2ADEjmcXRf44xr2MvlaJgau3nNbKQ5W8vRnC3XHO/1OrFOI5OxATbn bf4thjsrRQOqJZdN/WE5GvNr15hfLwfBPxnLS6Qn0hPpifThky4xQyK4czk0 MUciPZGeSE+kJ9IT6Yn0RHqSEhePcCI9kZ5IT6Qn0k8I6ZmRpObp2uRdftLl mKf6Slb+mb6Ulce/39suvS6UDwzl/+guNR1/9RFGp4iLoiVhMKywIeFSDLjS sXX++FI5pEpXw2pJvS9vXk322b9zgjNhMLSwIeEyM9TWZ4ba9J8Yz5cjcbKj 650sbOJdSL5e5F8bc5e2Py3t4N90BS699MjYnhYzKgje2y6z5YvxdOhr9p9m su8XdyBc9oPg93tZaR6/M9nXnFN/JZWifl8U9cH/A/03IfM=\ \>"],ImageRangeCache->{{{0, 589}, {470.938, 0}} -> {-10.6935, -6.5698, \ 0.0355243, 0.0355243}}], 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 .06511 0 365.73 arc s newpath .63186 .25 .06675 0 365.73 arc s newpath .71096 .25 .01235 0 365.73 arc s newpath .76538 .25 .04207 0 365.73 arc s newpath .76538 .25 .09759 0 365.73 arc s newpath .76538 .35609 .09759 0 365.73 arc s newpath .76538 .25 .09759 0 365.73 arc s newpath .76538 .14391 .09759 0 365.73 arc s newpath .81824 .25 .0108 0 365.73 arc s newpath .88218 .25 .05315 0 365.73 arc s newpath .5 .25 .06675 0 365.73 arc s newpath .5 .25 .01235 0 365.73 arc s newpath .5 .25 .04207 0 365.73 arc s newpath .60609 .25 .09759 0 365.73 arc s newpath .5 .35609 .09759 0 365.73 arc s newpath .39391 .25 .09759 0 365.73 arc s newpath .5 .14391 .09759 0 365.73 arc s newpath .5 .25 .0108 0 365.73 arc s newpath .5 .25 .05315 0 365.73 arc s newpath .36814 .25 .06675 0 365.73 arc s newpath .28904 .25 .01235 0 365.73 arc s newpath .23462 .25 .04207 0 365.73 arc s newpath .23462 .25 .09759 0 365.73 arc s newpath .23462 .14391 .09759 0 365.73 arc s newpath .23462 .25 .09759 0 365.73 arc s newpath .23462 .35609 .09759 0 365.73 arc s newpath .18176 .25 .0108 0 365.73 arc s newpath .11782 .25 .05315 0 365.73 arc s .71096 .25 m .71096 .25 .004 0 365.73 arc F .81824 .25 m .81824 .25 .004 0 365.73 arc F .28904 .25 m .28904 .25 .004 0 365.73 arc F .18176 .25 m .18176 .25 .004 0 365.73 arc F .5 .25 m .5 .25 .004 0 365.73 arc F % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{594, 297}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztndtyHEdyhlsYnMEDSIASVxIJkBQpHiSK57McK2lDxo0v7HCEw75TbDhi d8MOOdbwNV8E74JH4aPA6Orpyp6aL3OyZ7p7BmR3CBDYdeisP7OqsrKysv7p t8O//Od//3b41z//tv+Pf//tf/7y1z//7/6vv//99NXgsyxb+pcs++zefpb/ fZJl5a+T0/+KX/+a/8qyfw//G2Qfjg6yw+OQki0N352cHGeHebGDo/Cvk2w5 5Cufg6MP7/j12/B6Mzs5PsxGn8PsuPh+tXal8tdtVq5Q/m42PF6F1+uSVRKz ow9FdadFlsKrQV5iSO5JtjLKkFDD4XH411r4vZqdfDjKDk4/XhY5Ogi1vrGT 3w5rLCgtMFq3i7waUnR0WE0qik5RnZPAGk1+XRY5lYESxCWD6NUC3P8YFjs+ FFHZjO+ERT/Cu7eVT4aWn0rHFuR7UVKet6ZC+TDPO2c1FgmTyH9VklBBJ/aK g6MlKDKUvn9OqMufQlhXY3eIP0Xt68OeMNIbD4+fqzUNYk15UvkuGzI+/3la h4rTNh0fnyhURCSYGSXIw0oqkjdW0zt+/WOF1BJqpYbYC2pz5d/Kf+SdIeJU tGjdKTvvsEPlo1SQpTUo8qbsUAflu5g94y5tVqdLtL9lb+Lgc/qZIY4Dg8zV KoBDakeG5Qq1XpYrM4cigeUkVv30qQzXq0Sh5M1UzaqOncPPxuksobKoIRvT GhblxRfFi2yo3jzJf21VkvJxJU8c9rSt/l3/bsHebS4QLRt91+nfnZ13fdfp 3/XvPuau88uc3v3szOci/f0M7+rX97Ozvp70nvSe9J70nvSPl/SQskgE/xSp Mqw0i0TwRywcPek96T3pPek96T3p8yf9XPhfdT8sbOatOSkI+7wrea5VJ31/ zH+v5iW8LRrEb7yp17bzZfGxPeLJDXuU/17Pc63Ev/6kARBSB1BzSHgLxX6C 6p/Ua11hShpusWfVRzi4nP/z97zGgPiV/K+A5P/Fv7bC9wbDou/DzzrkuxJr CfUtF2UDJcsVnMsndRvIk8LfVeeFyWy4m/8Odf0BUsOHQyXvIPVxLLsNXzsf U59B2dex5jVI/TyWvV+PZ1uR7Jxnp3w6qoXG7UjVV5C6FqmifvIwlr0MX7sY Ux9D2Zex5k1IvRrLflsPjXOl3Aw3v/M+6oXiViTpOqRuRJJeQup3sewV+Nrl mPoDlH0Waz4HqV/FsrfrQeGdQW7ED+xD6rmY+hxS78dU+tpuTP0eyj6JqRch 9VpMvdVOs/chHwFwAfLRsErDipSQ7v0Ayj6GEgTKnpPmBuC5buJ/MaYSFN/C NwiUq/DuLtT3Q/zaZUjdN+W3ASi+NnvgpZj6CFJvx9SvNVBCKjX7+5i6C6k3 YyqNVg00+yvIRwDsQD7q799APgLF+93vIB8BRd+lua4ByL6EfHcg3y7k+w7y CY+p59ty+QBKXIF8tyHfl5CvAXiuRoLvQeqVmEpQSC+/AV+zR6t7MfUqpN6J qS01m/IRAN58JAsEineGuwv5CCjK9wXkawCyzyEf6cXeGeQ65LvphHEP6rNn uETySBVoHjLSO0nXoImYlOxrkO8WvCMYaUa6A/mow92HfDRuTb1h4h18vYM5 zWE05xB416A+GpBpvqIBnua/qTdqvBO7d8K289ngfQ31efORorAD+RrohLQO flhbZrwyaMNIMuOVwe8hH+neDUB2CfLRKtkej7zjW33IvOPbQ8h3CfI1ABnZ nmjxYc969SHzDuHeWfQHyLcN+RqA7CLkI7OUFzJb8bBhJEXBq6s9gnxkKWgA Mq/hYw/y3YB8tnprw0jqqBcyMq5cgHwNQHYe8j2dgXRbDbZhJM3cy6oFhMw7 pthqsA0jaebeAeEJ5DsP+RqA7Bzkow0H78zVNGTemfop5CML+AJCZq8hbBhp MbOAkJF7N20BeFXKpiHzqtDPIN8W5GsAMvLEfzEDZPYCzIaRVoLehdoCQuZd 63kho3e0JvRC9hzy0cbm1FaLDShIG5FeoOyVan2gvNYSL1BTWy28QHnXf/b6 1AaPlsxeoF5Avg3I10An7CGrDRn5FLyCfN4ls72kt2EkK4PXyvsS8q1Dvh6y eUBGnmWvIZ8XMtsKUh8y7/bLAkLmNcx4ISPJI1uWF7JXkI/8xnrI5gHZKuQj DzmvLcu2tdkwkvnPu5X8GvLZXrc9ZD1kCwzZCuQjZ2mvxbRpyLyODW8g3wrk 6yGbB2TLkI/cxb2Q2UbwxYcspCwSUCRvtIHhBeot5FuGfFNbLT41oDrshN5t C3uPwIaRdnq8Dlk9ZD1kPWQ9ZD1ktSCjs5E/Qr4eso8OsneQbwD5esgWGTLv Rn/TkHn9v3vI5gFZPILON0J4z9r3iCYHxEcveaAd3374850sr1z2EPawQtiC g1DNYCiqRciDv8G72/DuGbx76ixL3/g1/103mIL8VO5g6AVkmpHLvkZhEqK0 FAgUb4dXBVFlARq+CNZQljB7FGum1k5Cr3wu5L/IU6imIlvGssCbFKaDLmyN h2gjYWsxRBuh/ZKdmFqGr6mmlnWQx8qDmEqdYTPWS2DeianbsRairsNlZ3BO DK9IkMLNJmHsIJ8DOQtP0kR9ezV+jURZDu6SCFB/D5nJCfCbWBUZuHciGeTj 1CH6EozDDk5DLqQXYio1kdDfiF8ju/KdWB95aTL6ZQlyzrkRU+0AONS2Dllw PZJpR8ShEwkSLYXcW4gFW/Fr1KGkM5JBn1iwEimgfbi9mGpH3dmfLwsksoEd iYfc5jdBaqWsCmP4GjnPSo8kvxbaK1mLFBDDv4LU96OpScvnwoIvIyH7UELk nByk12MqSSixQOLJ0AkMkVryLCUWbIKcSwkJu2JHHqIjBh2yQMJl0IGjCzGV HBdXzSYSC2Tups4voNDkSiygoVBKfAEslbLCcHL9bYkF5AchMUnoaMl2TKVv LJtNpNFZwoRR55ehgYwHxGYREfIkkraRP/8Ns20duqJQY4kZdKCBypKS7mUQ 1UcDIEmtl2mkORHNVB8xkrQpKtshS0XOyb96B+RSysoChE44EdNEzolVMshS i4hBtMihttHy6RuzbR26EZKUETNo0bo9ZGz1XSBIaTQxhWgnP1/K52XUjkEn jRZEOynlhN00rAspXoaR8klO0OSoU5QdtWiMCLzNKy9f6NNUlni1yySSvkdk k2s6IUZsmtpniyx6pFl5Y32dZwzIk5faRlATS6hLU1lyxb/CJNrkSHEybRFi HR50oCWaN9JYWjZ/vAciSGknztBUTWWJWyn384c6uDdyGWHVIatkUUdRqGRR JyYV7xkoWeza0XtJgSDdUVY3sgqiQ7j3R2lOau7wHB6984b6orLe83pUH03N NA94mUG9hWj2hg6z8WudVdQzvCHGxCoQdKPN/C+Cm8qeiyVoCKES27GEqPTU Im8AMmp5S8DT/jitZLyBysQWEEAJE2j1ZHL5qHZGwjfgcXm0KrvE+fjxbHQf USL7i02DtFBv4DPCqsPD62RN8wZIW0re5U/AbRD/SmpZiuDRKE7iEMBfy98Q UEtmKtW3ESmgVfwmUC9tI6z2oBY6E0xlO2Qzrb/1oG5rI/nK5pf/3xztAUkN sk1JdFyLDCNr81pM3dNSk5rlu9Jh0+/mD7V/H2qhg7apmEdBaZ51RbW8Dqcg THtDyKv5K80mDlDUCNncpElHrKlDKa486lZpoIk6oEystKlD2ks6meUP8eSj 4efkpsrWJXng0dhK42Ohei6PfC3jSVWU8zgdZiIcjm8Rs2W1sJbgVP3/LSj5 2MC1oyBf+UNBvvY1pIRnZJYRgEmZCCWWoVJSMIn9oSyp96JuqbamClVjsqIz Z8zy0VKIv5n5QjOz195H0wqZEugbqouDQ8siEwvR4j3xOvBzNz0G2RBrQ9yT i/kbbwDCPRYzEWjVpKHuSOzGbkadcBBJpNTlWJYMI7IXQ/OvGEGWuVG0q00+ ihuRRDqvPGZRt69TCgSRMkXdq1AcVU2EJjHiTzH/88C+G6klolT1RQSCWE7K xe4kIhKi/1C/7XtQDfUs0XnJTVD0thcxn2GZt6+REo+0FRZCYvs1zkpjFtku LhtIi3awNfoXKZTS9EEsq9RLGlM6M5K05I8eAXgMApnuaSdFSKUof8Y46Y1r sBI/sGRgQeNqqrTnj+p5lpS19hHFXEJTtmrVDcCKPbvujqrYq9M25A8tGSzd kkYQYq/4l1LUAIO99v1d67FaYgit58UZSYZBPUovNzpVfPJHRh4a3WjduQ7d pKxDartg0EFKmaxNqbvWWxGOqT9kZqA7zFycta8oEwRo8UQGudRoKRiMDUU0 8l4xgKbNunWTQK/1ncQ2VaaEAqaOdkvTlewwL8kEzbxksBvEBlM8X2/wXEMg vKGISdkhHgRlPVxlS15/4iesqJgkJJ9zVttfkWgL39zQKKd3JBVkMqThR50H rFE9uTsu0YsCruTzTCJGAuON6W0IjPcA5rrRVNVMvhLZORBMYrWp9HDlJEJf sAip1t8JYhAro5FEFlkkFWr1Fednbhdt+pMthb5K7wjwfcinDOckXt6LCQzx 8p47pD5PrSRdSbQx0QbJSFyrvoS+q4yad4qSiU5dTA40CV41y6pGCZIlaq26 iC7NWmP7ISrA3upp09h71Yoha97YXAQjkU7vxKhS9fUtH8GNyqrHPFDWeNSw hYE2s/RxafKgqKzZaZFWS9zk2EQysEp9YlMjZ24vu0jSvKJjSJo34CcNBTRZ qmZDdTdGTP64DNU+pE86/pmdBEVEy17M2tShbVCrYGCQTQJK1m11918cyBN4 pT5Zs5GEEAz0NXLf895t1pKA6mCPviPHJRbVk7E1arq6nExBPXWJxcLrVTSb DJ/UXMZ4FTx9qqj/DeJG/kOCLs5jdon6gu6999AQdG9MdGKf15ZAjpOkw9on mwR4j72ijsgrGn2tZbSDHC+n9TmDzdkOMSfOp7v7lWqx+5ATCIm7fuJmOtha EnzvlRNEkroGSd7ZB4fem2WVMy+2kmZPVqoiGF6pvbm+TWnKoV92RyiVghkQ Yy1DC8m1HDJVozo42ErtJsxoX8J7SbIhzd6bjYgVqgNqcgLeFq6V0RIVXdYw lUwpr+ObAl5RnEWMJXKGquGpwksKdV3hFYOo98gRfWHLbIW9eJCavVehjzk3 eAWVQPR60FEjvDqNbs327cqMwm4DZltG6Z3tr2zno5lDV+iN8VNdMJOQ0/hp WXW9LSTDBCnz3tUw8Z180elUws0o3Yabh/deQ6/g24Ys0mRogpcxzWJ7PSHn 3WRlg8vLC69E62VZlVJtLvrOm1+YZU4kHtFGth0KhWqxB0VbcEkmDSVjFhFW j16qUxGJsO1JZq1ovCJMMEn/UOd39u6dXmRFcuQvddNqRim12eCVUmEDtccr pfY90i4ppewEE7GHFCuaQYgVpMV4y64NKaq+y1jPqyW04oVHgkfVe7egqD+J r6IMWbMIbRlNM0HFCyqdHqElhddXiuAiA8gCyrDV/alehjgb79v547VyfJ0Q Uf2/Yt8i1swutX7bgAxq2ejxhL3ZRFg8J+sJrn9uOyPCSrIjxz3JJ1KgU7D1 iuO1+Bkafcs0OnbllTY5daurAmOWjH0glUyqdBRWXMDo7IcEbrRjcdoCQ0eO KeahITCUnVjtFZhzsWGkjcrRcAqMrLCYtidEYPQdvjF2zjJabZkfFKeXeiLD joPi0E26XqiHoLdNoYsvNWOcydixTLRwXYPvSLCGP4NRhtWXLvFy8zqDNCtx ip1A9W1SSaW1xRmRS3V2UX26Qy1BDUi9kosSSrFQaXCX9apUqqAmWyUOkVGp KiIawMHPFa0zqBNpoIoOAuliOapMlX+vaWIWPr06CqF85lJtsr3jFIntHuSj cN6G2FL2PfiUd2/ypKrQqiOlRCHYioCRHjcqZ1OPrHYMavvdRuwyFQkt/jX+ rtKQ6b5G0HvUvvzHQurcKMyrGp3CtrHWavw/c2I6fJS1ZujBW6NNlvrpdJzE cfd6uMgA6nUSC204F+nzDrkzSZdx5EpeU8jsLY3OynTmCpE5Z2EiWMU1ntCg WmSnVVa07QkKnQekjY+y3lriFEp4lT71ZKJDguj8XGr0zx/ynaRuW1Noatzf 06AsqegmEpRg0LIsDUSC7MhT3oDfzUiS2H9IfsicRcEEWpWflezo8CgmHR0U V9aRyjyzENEsXmHc5FUJ6QLiypIewR3C1+0oJo0SwpqROTukPVFAt9Ok0sdL daGkJdmL17flV7YdiPwdHx5kRx+K69tCc8KvJ/mvLX/JLgR3OfJ4FsEt4F+J zKvILU565HLfoOAuSz+aPHw3KcK8vE2CLEoGijWjyLN61NNu0uyj6kGQx6xy KWE7o6osX+uPpeLsIkPWHCbu9gZN70R9JgbNUuELd15mxXPIt4c2I1VksbVl ab6qH/Nl0VU+OS7cktx8kqtLSyy6WFMONHzUlaSK6AKKhWd/IH/EXSsbtZwH 7tc3YHU2tMzXlDVsHwU8UiQIrVlSx+i7BbRieTecRNuxNzjFijzRbG/7f3m3 m2a23m9ECtIorfmjRjzvzGZf9BzDqSeBXN2yFu4R3h2a65veDE3DH0IjwpZG enFc5K86OBWBIXmZWGvjvsH90GR3MalqjpuiqwWe44VWImG0KSo3ltc/MdXh Vmg7niU8Mtq3Ys/JuQT6nLpYqeVeoh4Vmod7SShr39xNpJ5h9xJVOAM29u3g iXKpOFu2I4X5syScnE4A5UKM9r3nxrdM1evJQ845u9I17bEra1H7uvOGPXa1 YWtmn13V+6otn93BqLBLLRJJlUDq0Ge3lRMJqsbqP0uTtX0mAT6YDI3eKwj8 x2gUVBbtNAKQfYaPIvRnv/qzXyrjOpThT/qUrQhPZ6ds1Yb2521ZXkNKH87g hOdianDbAQ2GTx/QwBWJow9BQ4umPgRN+YWzGIKmZiSPpsOFebsKRfmib+g3 rn0swcS8IQTbDyvmtXnWCjA25RDZVKixJKmVWI+qqUmN8CglKiMuM4XGggZD OqqsrS/IMpmrYR5V8W0spKPKCxIomg/Om63oMJBjH493fFgefsfuiWpUdQcg ZygKL11vL184I7F3Fym6uqds/lC+sxxnfZayix5xnfKRPHjHggXsBrVuwcB3 yyPfODHubLC/2uqVGA4h8967cmLYHOZ4P4bKQ6n5srNEfSFu4KaMLi4NEqGs im7lkatwvG6kzd4bJKnZqDVQzRxeeS0DrV4jdBWwk/pE3/DWTO9aukaoi8vR RLTkwpoFuxxNrN6q4qBuFKRyPUYErdFmuRpN4kkllUq0NDJw1XI7S2pu4Gq0 tm55DE1dicwZHULeS5bKjDy3Wx4LEjLDoa/WCKiKpOonOfPtjsmt1fuqnHV1 u2PTt82G/Y9NYcJoLQtw2+ymJj+LdtvsmHYcKKetUXJebOmu2f626hOf7UIo +Lhvq+4vptfpONsX0z+GdxfhA2JgtwxKzzRej03v41+lVcaO8S1ZMdCRQ9od CrxO5uZt4wvq2I52C42zj40v2MYxqUOOpT6ZwF7JlOxVSGVp4Mexoei5ysWJ gbPzh4bwywYIYnbYGv1LXX5IwFqrXtKbU9WOmJA/dJjpMUMg6x7inOgvTyPR hs/Is5iJvLRDAp0KJY5dH0pTQq7GuSjcNLIoCO9GaklxVLU2ORPhuak9fsgi Atlcq+0016adLX/k6mZSfeUMwssJHTVJCtkvjjI+EYvkU3ssjjKhEjcnDneD 2EbSMS6OinnCUlqWkTYqNiHSJshWqPhk3ITiTzXcA+1v6nHlF/gAzTbU//Y1 SGjyIyVCLgykEsItSiUh8ji7DB/vTck0vaSW/bHKb0Eh6mkUW/4XIKJr/tGi glQF25ebeF8dO8fzUX1FY+y4ed572Sk2AdkearBVmTJb4qzlbKePoOosIdYj 4q59v2GYgAIl5C0iZ+7J6UjGUuLIjvpdTW7qKqWkeTTGHRp+tBWJm1Oy4Cdl QDVHJ+++ilxRD5KFVDrlZjsmJtoUKkZ1uKcvFoHm5jlJ62gaUIiTBF5yEDwk XoKygWnLBF7+E5Ydatzp9Zi6p4lDqJkW13ZQIG/EjgVkGpFO9juVaQkUcuab RnjxFyQGqXtdYXJTN87XNBZQfaKd01JNDnKTUdHLZrLP2Z7erbOZBqcfoCxB JpPRdgQvldD8CQl0QpU22QL6u/kb6shUQiSL4n/Imozc1qQWMjE+dALWEr+8 1uiHUFaFVtZWahgsKrsVS9AESCUk1JYYcdSxOaGeTNDUctppbQl4evc9lCWt zXucjNwkqT7yIyNGUlmaPGlT0+59Upa2j2z8GmUVSQUpdd9BWVr8iF2fnA5I YSeQaVuFmEYUEIPI7kGtJJr17eC5MUjWR8QWcQYSdwzaiidmiKcMOVzI+oiY tg3fEEvKeSgr+e6N0qwOXX5oQ4oXUProPShLTFNiytD2JCFOoknYk7WAyhIX rjCJNjlSnLwJvWz6KfLCsMwTm0jHIILvQlnCj+47yniHkVQtgpqaQp+msmTd 22USaWYisslz2XuepoGBihhGE/K3UFY/8+DfPbTDxdTnJL0jrln7qDRnEe10 wIiwa4l1pJMT6XegLG1C8PVB4+/SiI8aG6lTkc7lHUuJjdZuJ7WRdkDpSCNh 0SEbZcom5snKgnqg2I68jNqNJWhFYysXxBRZctIyfweol7K3zLbRoeyWWHAl EvKN2UT6hpgISK0lFghLybIkzjP2vSnJN9RVv7SNROSG2baWWECSQgMDuSHY R4GpA8s72lAgLYkGVmIVWYyorPe7RDO1jRTIfSemdJCrJZbKYEKMlIh8tEQU mxbZUgm8bfhawr5k091mkBjjaSl5NaZSj5SvqTtc3bBALiO3L3knSU6vgJ/M AlnMkgfvPkBms0A2tmhDXwZK+xp21a7bDQtEFtRr00MB6sDi6UWmC9XLIbwi hfUW9CpaMCazpVriekxV7zRXjwB0yAKRPPvScZJamlxtFoh9jc5Z3YFeZbNA HBZpvSETuH2lNwUi7ZAFInm0uJKwhqSfy9YL+ZwRC+TsH5kG70KvmsSCjCcO aRapSjtms2qiH6+POz7MRp9wRRfZzLzMCTIZ1lVyvzZZlHZiKlnUyjTaUnoQ U2mnXK5eoHWAUEd6r0psTXjL3lhcSVrcekYTvxfT0OJLQLXnNGX+bOe/yJ3v UayZNgPV41KhBO061QSq7G+lHB4eV13LD0I1g6Fkvg8/f4N3t+HdM3j31FmW vvFr/rty/Ujs2vnNdsfHlQnYwWOS2x8hn/ewrO3nKu9IAmiIso/JSb53kI+G Vc9IlN/mFi+yjJcF9ojWRrTGhcizIOk9Xts0kvaZvEaR9OooPWQ9ZIsD2Scw xPWQ9ZBNgOwt5OtwifoO8vWQ9ZD1kPWQ9ZCdHchCyixAeWOtkUWcQKFD67Td YQdQqg/U1I5dnxpQHXbCpiHzBrDwQkYnhDt0xHgL+byQkasFSVQP2acEGflU vIF83iixTUNmx2eUfK8hX4duoj1kPWTNQkbbBK8hnzdUPzmVEDx0EJUcquyg vZLvFeSb5jRED9k8IfPeXeKFjM7Beo89EWQUT6fDo4GvIJ8XMvJaIYnyQmaH hO8hOxuQkW/FS8jnvUOLnPgJHvJOoThM9iUzku+FCkU9yEJKD9QMVgsvUN47 Ncnfi0AhnxpytfcC9RzytRQVgw7YvoB8Xsi8sVa9AZntS8kWGjLyJaU4AF7I vLvqXsjIokt+3g1ARo6uFHLMC5k3xLMXMvumx7lA5o2CSF69eiTh5iCzLzSW fGSybCnAVtOQeePOe7dVFhAy28gs+ehAzV4HkNGZKwp6SZaRloLseSHbh3z7 kM97aYbXorsH+fRovqP5aKulAchsW1Z90r032nhtbV5WdQiZbWWo30G8F1B5 DUdeyGjNSubJBiCzl8z1IfNePOdd0nvHUFqKka2tAcjslWD9mcsLmXel6p2p aVFGVpAGILPXhJLPq1J6r7L1QuZVoWmFQYv7qa0W9rLmPTTCXq54r6f2rlS9 +UhJpsX91FYLr9ey13rgvbbeKyleySM9j5b0DXRCr0OR1+ppj280TdjjkXdK ID2PFlsNQObdmPduR9izKOlv9qznVTxIz6OVQwOQebdMvfn2IB/B49WtvOot 5aOVQwOQeaXHK42h2Y6QDqSMeBdMJHkEYwPwyHl4AkUC89A8eTOmkhzJlXM0 d96PqQTA7ZhKw3oDzfZO8V6VwZ66aZayv+s1RtN3W4LM5ifddpXw0wGFV6Gw b8MTuaSZsAEo7F5+MaaSRUFiLRAAEoSThmv7zjcZmWhobqDZ3lnAa1y5Gwkm rUguLSE9yutkRCNTS/B49Qq5f4o2HGw7JClltsJpXzxGOhPZtwx4Cjtw9Zzw QXb0wX3iOnTWgdZZJd4P7Zo+iGUJjcsxlVbDz2LNdqQeWiEbaMTj/MeH+Wnp 8C8vFDLr2VF5yFfoYSxLU5bEoSKL3YtYsx0xh9YpBhTxSH44hl99REBCJIT/ ymsMVdzI/wrf+j2+2w7fGwyLFlEUzsfU32OJG/FdqK8aY6E8yp5Hh8hDQwyZ 4z3KHrpkiOmRzjb5ExL+AYo9jcXU2y9CKu3UBgfqcDcGxdOQiCi0Knec6S9Y csqGo1pAhPlno2j06V/r+V9/gnyvYiodAw0J5CH+Uyy2Ej9E8jpxMBoUYSCy ELAAHaGoda8iqrZ3qbz7Y+QSparHYsM3yBO3gUmo/rv69f3ck96T3pPek96T 3pN+dkkPKYtE8NT7NYuKcE96T3pPek96T3pP+qKT3u27n535DNLJqNS/69/N 8x0dRJkXLX3X6d+doXeL2nXCJkf49ST/NVyZZp/9P0dqvtg=\ \>"],ImageRangeCache->{{{0, 593}, {296, 0}} -> {-10.8215, -5.57148, \ 0.0357146, 0.0357146}}], 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, 19348, 901, 480, 7099, 698, "GraphicsData", "PostScript", \ "Graphics"], Cell[51871, 1839, 134, 4, 31, "Output"], Cell[52008, 1845, 134, 4, 31, "Output"], Cell[52145, 1851, 17465, 786, 305, 6199, 599, "GraphicsData", "PostScript", \ "Graphics"], Cell[69613, 2639, 134, 4, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)