(* 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[ 127388, 4246] NotebookOptionsPosition[ 126360, 4214] NotebookOutlinePosition[ 126846, 4232] CellTagsIndexPosition[ 126803, 4229] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Si", RowBox[{"(", "CH3", ")"}], "4", " ", "computation"}], ";", " ", RowBox[{"coordinates", " ", "and", " ", "radii", " ", "from", " ", RowBox[{"Sime40D7", ".", "exe"}]}]}], ",", " ", RowBox[{"12.02", ".2012"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "0.59670"}], "}"}], ",", RowBox[{"{", RowBox[{"1.93276", ",", "0.00000", ",", "0.00000", ",", "1.33606"}], "}"}], ",", RowBox[{"{", RowBox[{"3.54930", ",", "0.00000", ",", "0.00000", ",", "0.28048"}], "}"}], ",", RowBox[{"{", RowBox[{"4.02033", ",", RowBox[{"-", "1.33227"}], ",", "0.00000", ",", "1.13260"}], "}"}], ",", RowBox[{"{", RowBox[{"4.02033", ",", "0.66614", ",", "1.15378", ",", "1.13260"}], "}"}], ",", RowBox[{"{", RowBox[{"4.02033", ",", "0.66614", ",", RowBox[{"-", "1.15378"}], ",", "1.13260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.64425"}], ",", "1.82222", ",", "0.00000", ",", "1.33606"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.18310"}], ",", "3.34631", ",", "0.00000", ",", "0.28048"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.59619"}], ",", "3.34631", ",", "0.00000", ",", "1.13260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.71207"}], ",", "4.01245", ",", "1.15378", ",", "1.13260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.71207"}], ",", "4.01245", ",", RowBox[{"-", "1.15378"}], ",", "1.13260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.64425"}], ",", RowBox[{"-", "0.91111"}], ",", "1.57809", ",", "1.33606"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.18310"}], ",", RowBox[{"-", "1.67316"}], ",", "2.89799", ",", "0.28048"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.59619"}], ",", RowBox[{"-", "1.67316"}], ",", "2.89799", ",", "1.13260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.71207"}], ",", RowBox[{"-", "3.00543"}], ",", "2.89799", ",", "1.13260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.71207"}], ",", RowBox[{"-", "1.00702"}], ",", "4.05177", ",", "1.13260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.64425"}], ",", RowBox[{"-", "0.91111"}], ",", RowBox[{"-", "1.57809"}], ",", "1.33606"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.18310"}], ",", RowBox[{"-", "1.67316"}], ",", RowBox[{"-", "2.89799"}], ",", "0.28048"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.59619"}], ",", RowBox[{"-", "1.67316"}], ",", RowBox[{"-", "2.89799"}], ",", "1.13260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.71207"}], ",", RowBox[{"-", "1.00702"}], ",", RowBox[{"-", "4.05177"}], ",", "1.13260"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.71207"}], ",", RowBox[{"-", "3.00543"}], ",", RowBox[{"-", "2.89799"}], ",", "1.13260"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"u", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000"}], "}"}], ",", RowBox[{"{", RowBox[{"3.54930", ",", "0.00000", ",", "0.00000"}], "}"}], ",", RowBox[{"{", RowBox[{"4.20661", ",", RowBox[{"-", "1.85915"}], ",", "0.00000"}], "}"}], ",", RowBox[{"{", RowBox[{"4.20661", ",", "0.92957", ",", "1.61007"}], "}"}], ",", RowBox[{"{", RowBox[{"4.20661", ",", "0.92957", ",", RowBox[{"-", "1.61007"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.18310"}], ",", "3.34631", ",", "0.00000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.15502"}], ",", "3.34631", ",", "0.00000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.52579"}], ",", "4.27589", ",", "1.61007"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.52579"}], ",", "4.27589", ",", RowBox[{"-", "1.61007"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.18310"}], ",", RowBox[{"-", "1.67316"}], ",", "2.89799"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.15502"}], ",", RowBox[{"-", "1.67316"}], ",", "2.89799"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.52579"}], ",", RowBox[{"-", "3.53230"}], ",", "2.89799"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.52579"}], ",", RowBox[{"-", "0.74358"}], ",", "4.50806"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.18310"}], ",", RowBox[{"-", "1.67316"}], ",", RowBox[{"-", "2.89799"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.15502"}], ",", RowBox[{"-", "1.67316"}], ",", RowBox[{"-", "2.89799"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.52579"}], ",", RowBox[{"-", "0.74358"}], ",", RowBox[{"-", "4.50806"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.52579"}], ",", RowBox[{"-", "3.53230"}], ",", RowBox[{"-", "2.89799"}]}], "}"}]}], "}"}]}], ";"}]}]}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sq", "=", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "/", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "17"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "17"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "17"}], "}"}]}], "]"}]}], ";"}], "\[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[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "10", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "10", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "11", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "11", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "13", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "13", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "14", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "14", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "15", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "15", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "16", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "16", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "17", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "17", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Thickness", "[", "0.006", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}]}], "}"}], "]"}]}], " ", "}"}], " ", "]"}]}], "\[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[{"-", "5.5"}], ",", "5.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.5"}], ",", "5.5"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], RowBox[{"(*", " ", RowBox[{ RowBox[{ "xz", " ", "plane", " ", "turned", " ", "into", " ", "one", " ", "of", " ", "the", " ", "sigma"}], "-", RowBox[{"d", " ", "planes"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"plot3", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "4", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "5", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "5", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "6", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "6", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "7", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "7", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "8", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "9", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "9", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "9", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "10", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "10", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "10", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "10", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "11", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "11", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "11", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "11", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "12", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "13", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "13", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "13", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "13", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "14", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "14", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "14", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "14", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "15", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "15", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "15", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "15", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "16", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "16", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "16", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "16", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "17", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "17", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "17", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "17", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "18", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "19", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "19", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "19", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "19", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "20", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "20", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "20", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "20", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "21", "]"}], "]"}]}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "8", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "13", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "13", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "13", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"(", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"k", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"l", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"(", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "4", "]"}], "]"}], "-", RowBox[{"k", "[", RowBox[{"[", "4", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"l", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"(", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "5", "]"}], "]"}], "-", RowBox[{"k", "[", RowBox[{"[", "5", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"l", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"(", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "7", "]"}], "]"}], "-", RowBox[{"k", "[", RowBox[{"[", "7", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"l", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"(", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "8", "]"}], "]"}], "-", RowBox[{"k", "[", RowBox[{"[", "8", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"l", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"(", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "9", "]"}], "]"}], "-", RowBox[{"k", "[", RowBox[{"[", "9", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"l", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"(", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "11", "]"}], "]"}], "-", RowBox[{"k", "[", RowBox[{"[", "11", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"l", "[", RowBox[{"[", "11", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"(", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "12", "]"}], "]"}], "-", RowBox[{"k", "[", RowBox[{"[", "12", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"l", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"(", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "13", "]"}], "]"}], "-", RowBox[{"k", "[", RowBox[{"[", "13", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"l", "[", RowBox[{"[", "13", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"(", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "15", "]"}], "]"}], "-", RowBox[{"k", "[", RowBox[{"[", "15", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"l", "[", RowBox[{"[", "15", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"(", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "16", "]"}], "]"}], "-", RowBox[{"k", "[", RowBox[{"[", "16", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"l", "[", RowBox[{"[", "16", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sq", "*", RowBox[{"(", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "17", "]"}], "]"}], "-", RowBox[{"k", "[", RowBox[{"[", "17", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"l", "[", RowBox[{"[", "17", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.006", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "8", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "13", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "13", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "13", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"plot3", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"Axes", " ", "->", " ", "True"}], ",", RowBox[{"GridLines", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "6"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{"Sqrt", "[", RowBox[{"2", "/", "3"}], "]"}]}], ";", " ", RowBox[{"v", "=", RowBox[{"Sqrt", "[", RowBox[{"1", "/", "3"}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"w", " ", "=", " ", RowBox[{"cos", " ", RowBox[{"(", RowBox[{"90", "-", RowBox[{"t", "/", "2"}]}], ")"}]}]}], ";", " ", RowBox[{"v", " ", "=", " ", "sin"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"plot4", "=", 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[{"w", "*", RowBox[{"(", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "4", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "5", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "5", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "5", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "6", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "6", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "6", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "7", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "7", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "7", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "8", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "8", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "9", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "9", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "9", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "9", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "10", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "10", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "10", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "10", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "11", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "11", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "11", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "11", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "12", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "13", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "13", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "13", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "13", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "14", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "14", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "14", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "14", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "15", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "15", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "15", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "15", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "16", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "16", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "16", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "16", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "17", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "17", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "17", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "17", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "18", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "19", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "19", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "19", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "19", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "20", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "20", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "20", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "20", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "21", "]"}], "]"}]}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "8", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "8", "]"}], "]"}]}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "13", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "13", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "13", "]"}], "]"}]}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.006", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "8", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "8", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "13", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "13", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "13", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{"w", "*", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"plot4", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"Axes", " ", "->", " ", "True"}], ",", RowBox[{"GridLines", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "6"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.0909091 0.5 0.0909091 [ [.13636 -0.0125 -6 -9 ] [.13636 -0.0125 6 0 ] [.31818 -0.0125 -6 -9 ] [.31818 -0.0125 6 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.68182 -0.0125 -3 -9 ] [.68182 -0.0125 3 0 ] [.86364 -0.0125 -3 -9 ] [.86364 -0.0125 3 0 ] [ 0 0 -0.125 0 ] [-0.0125 .13636 -12 -4.5 ] [-0.0125 .13636 0 4.5 ] [-0.0125 .31818 -12 -4.5 ] [-0.0125 .31818 0 4.5 ] [-0.0125 .5 -6 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .68182 -6 -4.5 ] [-0.0125 .68182 0 4.5 ] [-0.0125 .86364 -6 -4.5 ] [-0.0125 .86364 0 4.5 ] [ 0 0 -0.125 0 ] [ 0 1 .125 0 ] [ 1 0 .125 0 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 .5 r .25 Mabswid [ ] 0 setdash .13636 0 m .13636 1 L s .31818 0 m .31818 1 L s .5 0 m .5 1 L s .68182 0 m .68182 1 L s .86364 0 m .86364 1 L s 0 .13636 m 1 .13636 L s 0 .31818 m 1 .31818 L s 0 .5 m 1 .5 L s 0 .68182 m 1 .68182 L s 0 .86364 m 1 .86364 L s 0 g .13636 0 m .13636 .00625 L s [(-4)] .13636 -0.0125 0 1 Mshowa .31818 0 m .31818 .00625 L s [(-2)] .31818 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .68182 0 m .68182 .00625 L s [(2)] .68182 -0.0125 0 1 Mshowa .86364 0 m .86364 .00625 L s [(4)] .86364 -0.0125 0 1 Mshowa .125 Mabswid .18182 0 m .18182 .00375 L s .22727 0 m .22727 .00375 L s .27273 0 m .27273 .00375 L s .36364 0 m .36364 .00375 L s .40909 0 m .40909 .00375 L s .45455 0 m .45455 .00375 L s .54545 0 m .54545 .00375 L s .59091 0 m .59091 .00375 L s .63636 0 m .63636 .00375 L s .72727 0 m .72727 .00375 L s .77273 0 m .77273 .00375 L s .81818 0 m .81818 .00375 L s .09091 0 m .09091 .00375 L s .04545 0 m .04545 .00375 L s .90909 0 m .90909 .00375 L s .95455 0 m .95455 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .13636 m .00625 .13636 L s [(-4)] -0.0125 .13636 1 0 Mshowa 0 .31818 m .00625 .31818 L s [(-2)] -0.0125 .31818 1 0 Mshowa 0 .5 m .00625 .5 L s [(0)] -0.0125 .5 1 0 Mshowa 0 .68182 m .00625 .68182 L s [(2)] -0.0125 .68182 1 0 Mshowa 0 .86364 m .00625 .86364 L s [(4)] -0.0125 .86364 1 0 Mshowa .125 Mabswid 0 .18182 m .00375 .18182 L s 0 .22727 m .00375 .22727 L s 0 .27273 m .00375 .27273 L s 0 .36364 m .00375 .36364 L s 0 .40909 m .00375 .40909 L s 0 .45455 m .00375 .45455 L s 0 .54545 m .00375 .54545 L s 0 .59091 m .00375 .59091 L s 0 .63636 m .00375 .63636 L s 0 .72727 m .00375 .72727 L s 0 .77273 m .00375 .77273 L s 0 .81818 m .00375 .81818 L s 0 .09091 m .00375 .09091 L s 0 .04545 m .00375 .04545 L s 0 .90909 m .00375 .90909 L s 0 .95455 m .00375 .95455 L s .25 Mabswid 0 0 m 0 1 L s .13636 .99375 m .13636 1 L s .31818 .99375 m .31818 1 L s .5 .99375 m .5 1 L s .68182 .99375 m .68182 1 L s .86364 .99375 m .86364 1 L s .125 Mabswid .18182 .99625 m .18182 1 L s .22727 .99625 m .22727 1 L s .27273 .99625 m .27273 1 L s .36364 .99625 m .36364 1 L s .40909 .99625 m .40909 1 L s .45455 .99625 m .45455 1 L s .54545 .99625 m .54545 1 L s .59091 .99625 m .59091 1 L s .63636 .99625 m .63636 1 L s .72727 .99625 m .72727 1 L s .77273 .99625 m .77273 1 L s .81818 .99625 m .81818 1 L s .09091 .99625 m .09091 1 L s .04545 .99625 m .04545 1 L s .90909 .99625 m .90909 1 L s .95455 .99625 m .95455 1 L s .25 Mabswid 0 1 m 1 1 L s .99375 .13636 m 1 .13636 L s .99375 .31818 m 1 .31818 L s .99375 .5 m 1 .5 L s .99375 .68182 m 1 .68182 L s .99375 .86364 m 1 .86364 L s .125 Mabswid .99625 .18182 m 1 .18182 L s .99625 .22727 m 1 .22727 L s .99625 .27273 m 1 .27273 L s .99625 .36364 m 1 .36364 L s .99625 .40909 m 1 .40909 L s .99625 .45455 m 1 .45455 L s .99625 .54545 m 1 .54545 L s .99625 .59091 m 1 .59091 L s .99625 .63636 m 1 .63636 L s .99625 .72727 m 1 .72727 L s .99625 .77273 m 1 .77273 L s .99625 .81818 m 1 .81818 L s .99625 .09091 m 1 .09091 L s .99625 .04545 m 1 .04545 L s .99625 .90909 m 1 .90909 L s .99625 .95455 m 1 .95455 L s .25 Mabswid 1 0 m 1 1 L s 0 .5 m 1 .5 L s .5 0 m .5 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .5 Mabswid newpath .5 .5 .05425 0 365.73 arc s newpath .67571 .5 .12146 0 365.73 arc s newpath .26398 .80421 .10296 0 365.73 arc s newpath .82266 .5 .0255 0 365.73 arc s newpath .43527 .86477 .10296 0 365.73 arc s newpath .86548 .37888 .10296 0 365.73 arc s newpath .43527 .86477 .10296 0 365.73 arc s newpath .86548 .56056 .10296 0 365.73 arc s newpath .44143 .41717 .12146 0 365.73 arc s newpath .86548 .56056 .10296 0 365.73 arc s newpath .39245 .34789 .0255 0 365.73 arc s newpath .44143 .66566 .12146 0 365.73 arc s newpath .26398 .34789 .10296 0 365.73 arc s newpath .39245 .80421 .0255 0 365.73 arc s newpath .43527 .22678 .10296 0 365.73 arc s newpath .43527 .40845 .10296 0 365.73 arc s newpath .44143 .41717 .12146 0 365.73 arc s newpath .39245 .34789 .0255 0 365.73 arc s newpath .26398 .34789 .10296 0 365.73 arc s newpath .43527 .40845 .10296 0 365.73 arc s newpath .43527 .22678 .10296 0 365.73 arc s .5 .5 m .5 .5 .00727 0 365.73 arc F .82266 .5 m .82266 .5 .00727 0 365.73 arc F .88242 .33099 m .88242 .33099 .00727 0 365.73 arc F .88242 .58451 m .88242 .58451 .00727 0 365.73 arc F .88242 .58451 m .88242 .58451 .00727 0 365.73 arc F .39245 .80421 m .39245 .80421 .00727 0 365.73 arc F .21318 .80421 m .21318 .80421 .00727 0 365.73 arc F .4522 .88872 m .4522 .88872 .00727 0 365.73 arc F .4522 .88872 m .4522 .88872 .00727 0 365.73 arc F .39245 .34789 m .39245 .34789 .00727 0 365.73 arc F .21318 .34789 m .21318 .34789 .00727 0 365.73 arc F .4522 .17888 m .4522 .17888 .00727 0 365.73 arc F .4522 .4324 m .4522 .4324 .00727 0 365.73 arc F .39245 .34789 m .39245 .34789 .00727 0 365.73 arc F .21318 .34789 m .21318 .34789 .00727 0 365.73 arc F .4522 .4324 m .4522 .4324 .00727 0 365.73 arc F .4522 .17888 m .4522 .17888 .00727 0 365.73 arc F .006 w .82266 .5 m .5 .5 L s .5 .5 m .39245 .80421 L s .82266 .5 m .88242 .33099 L s .39245 .80421 m .21318 .80421 L s .39245 .80421 m .4522 .88872 L s .82266 .5 m .88242 .58451 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{548, 548}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnVeSHEeShpPoagGtteiCaGhJgFAcAiAo0ORQzlAOyKHRxrg287C2a7P9 jgPsFfp5D7AX6Mc9BmwvsFfo7fSqcs/K+iLbU1Vmg1nGLhQjIyLd//BQHh7u n/+68vff/vXXlX/87df+i3/++u9//8ff/qP/8b/9cyNp5q0o2nYh/utH8e/1 KBp9rW/8N/i6GH/FyZsl/CT/9KLXq8vR4LMcrb5e/4skz0XrayvR+GclWltf /2Gi1Ea51dcvs0sF3vViQMnP8s+MFN6oS/7v5TBtUEAqiQakzUarK6vRkJeN 54NnlP8XqHf4SuVyfS0ap1gI+ylRUupbW49+SBZZNgrWVoJFXma/ZUjLN6mS 8WebfM9JLYOXDGocsvKto4j9rUVra+ubkK9tMMidaINe+uXLA7JHTwfMbVSy ujImCa9Xo2V9T5wlIT8bbbgsr00+skbhooEXLifFeWZQeCCUIOKS/uOoomHW YXMFcv8MFS97O1lDCQcGCaPh4WD89Vbi0QY7g2Fj0NCHu7StkfZW15BvRtpm DfkRpP1ccdpH+Qh5BZVRGr00u2xHSEdIR0hHSEdIR0hHSEdIR0hHSC5CpK5p vP4DfVsrcegI6QjpCOkI6QjpCOkI6QjpCOkI6QjZaoRIXd1upiOkI6QjpCOk I6QjpCOkIyQnIffi791xyVNtIelm/D0Xl9wd/1qIfx1qC3HX42+xITypv6i+ Roi7En9L0UX9tbctxF1SvJb01+4qiVuQfyasZ+dK0HxBYTRod1RJ8/ZhpqTt bRmCzym0t/TXQpUEzymJaKsrj3vx//5PXI+8/67+mpO6Z4YFXg3eFH/LS3uJ 10S57HznSyC2CGXfUex6VWI3PxTQlGVuGepPK6WP5f9nx2oZQBmphXfBLjVu 1FuGXBsz39NfcfVDOuN//1qU1jJj0wko+1QpLAxfGZKOQ9n3q5TGMsQdg7LP Fa9GmvAolP0glRZ/GsHrCJT9UL57Y2mRGehPlT4ywB2U5QHlZRNEHlQBW4Za tunTH5sgjsoSmTShfNcEwfuh7CdvAsGzkPZtEwTvg7KfvgkE0wL1myYIpr3N HyGNlix/boLgPVD2M0ijJfufmiCYNmifbzWC78TfMpHRImE7pH3dBOm7oOzb 8bfoQmgJQVvRr5ogfSeUvRt/z8cptLqgEl+2hXRBfaH1pFPz38tEnUTsi1Kk S13tJLjSc1saJURNEOyc1WNdIelfQ1r2WN8RHK4se/aztOzpvyM4XFn2Cm4L E5y9hO0IDleWvQuxtOxdTUdwR3BHsJvgbF3FFiY4W7vUEdwR3BHcEdwRvPUI lrraRGaleolOEDqCO4I7gjuCp0fwo/h7X5zrUAnSG9kiibZdjsL26a+9kK/V G1M5z5NsJ/TXrq3GhNln9vXXjq3GxHXF3yxl57caE1cVf/s1W4KJRjSklxT/ m/prG+RrtZp3SfG/p7+2Ev0XIN99SGv18ct5yPcgkW+U3momzqr8DOyie/p0 +CE5ag31fchn9t2Wb8QPMdOaA9NFyPcu5NsG+cj4sDWMnYF8f4B8MyqLXnYa MR04Dfneg3y0vqW2+2oqjEldxA5dZ3sC+ea0X1m+Ub+iAaGM9U9hzc9JyPcU 8s1nMEOC5mVGjNKl2g+Litdx7QXP4elCBuEkSF7LN1mfiSVXNLpm8sokVh78 oShHwUsQqXwDc5YJQ/8ybH2p7bE99EKxS7pflLfs2xSvUgRP8PYlFPfaWX6m nWQPPN2rYnSvKG/hyxjj+dKdI8SY1/b1UyV9Pzzdr2zfmQ5jE432RQnelpW3 g/D0kD69VZS38A2V8Xy7mDeyWfZahX+s1B+Gp0f06Y2ivNHl5o8h327mjQzI vSb6Hyr1R+HpMX16rW7e0uvsEGPZ2rXUVJvKRyzSzb/LRZk9CPleBJmdaEi6 uuDl931tqhPw1O5dFuYt+4JTaoCe5I3ukXivFj2DfMQlrWCXivLr1SzvHTZT Mt9IgOU29v74Fw3NM5D2PbzhiTbeaXhKu5ALdTO9L4NpkTVZfUhtYtpN2hja M/wA7/qDsr8ITxf1ae1M789gWtpXhF7aQyrblZGfLlC+C3QQy2ch39mizHs1 rgQSteA+ZX9JIRk5Zkjmi/im62Oosg/5zoXy1YkB1UcY7FaZNG8h6Qk5/tAW 8VGocVP5SEu3WBQAr7KU6qNRbIeyLVDIUZnd3u3pL7oo/hDqOwf5SNd6pigA Xi0fTfAEwLyyaHsxO3Dbp09JekgqHkC+85BvCfKdbgIUmtoFqBkFJeVExwaO X+AdpEW/APkuQr5TRQHwahVpjWtCHpl/C+Vd8i7qr/TCfvih7vEOvGsJ8l2C fCebAGJWuVxQSOycxyRhG2NAk4QXg8uQ70QaA3VowyE5vc54SstKYKHQU/jM A5HJVlZJWmLcg7dfhHxXIN/xNHKj/XMylijpC8rARdt+GjRnWHrskD0a9zIT VGIHPUjchRKXIN9VyHcsDZ361UlEQRU4hYNvpMKZIQ+v5O83+Z4dSxudxolb pd6A39EvcrXUg7T/hLRvIe2w1uzz0GR/EijV6zTIe0BwmNubeqs167XxfhM8 kvHuue9AviuQ7xrkO5oWCR2HOKqrdxzKBaCtTOWXdBHRiZs1R5Zinjo7KZlu Q76rkO865DuSxmnkRCsVfrYeAYNBxpCSX/OKVF/TdoVGHZsBy8B0A/LljJZp lXlPgNLzljE3vq8bMSj1yrr3sP7aN/409VY6C/BCIj1WhJT2RbWDcxCAiHh1 L+yTjmzEwE79RWcw3gOiW5DvGuST4W8+BNyhuoEb1DefBmJMyoJaBhq1d8Yp p8Z7ooMOL1w2QjYCl3Ugm8AIHnpvehIKwUOD4U3Idx3yNSxNpMawkZqAoq3r tSErybQAVrRipdH5BuQzrEiTcbAoVt4Bgjb3g/F8Ls356F/SYV8ddr1kWpZ0 kf4gF2JCHak5GkEsvWkd/qUO1GjuovUpUUKA0TrpJuSzrTfthA/UDRjt8XhK nEwj8GhTSst3WpaSNtMLo7yj1xiM1I3CW+BiMNKOh2AkrTjtbm5BvpQmo04Y ZaSSkeIelKDphMCjNAHF1mmppyQfBC2ZwtCJU35oaYDZXzm0Mm3ddZYgGIPd VhqNaiFoaU9M0NIxtRdaob43FWhlm7JQB7Tz2mjTgJaAug357DyARuJ905Na YoygDY6SuaSWNBVEARmOtBXa4FhLjNHkRfKWH1qasogCMkDyQivU96YHrUw2 70AJYpagJXnLP41NDVrJRhvOvVVCSwutXIDKgp18tBN4BBSlBW+ntR88kjIC z1SgZD5NK0OigMAjS1eqb6C1743lWx92adID7akbuuChBTGdCzrq3AQdWXbn gE4ykaq2duhoRqaZO810/AmrM94QEL1qM++Fnu3D3Mm0EZh0XEJg0maWwKR7 FGEwx/P18iEpecrgF7R1yYEfmQXQFmUa+EkOOtvcpXDVJImEJEkiDQ/eYwJa tZVBleb7t/OgWnv/9uo2gjvMxJnV+FPS3JLWj7B8Hyj1YBl/tiaWNM6apSQN WNPAUl7+NmQujKX3VIlw8/Z2Wm7aujzIjgPLZ2WxJEOh3XVj6VUIE5ayJN8e p5B5WJ24jT7two3SaHz4CNIILcL8aS60emNoBRqqMFZeW7yqsaIZhSQrF1a9 KcLDzhhomK8aEukrh+IUOmgXICSJLGWnBgSt5giIjyGNVm4EhKxAZElNDqBm VSIWf98wXVEg6OrxdgWRbkPe0bJvPEwXVSLopu8efUrHquaUjO4qFIYpfAlj XIMQ8cBDc88LSPMidF65PAbEinClbkoTQiRIhZebLUPIPA+dBGLtFhSZHt3O 7GqFEQpf75pAiHoZIUShDQkhKntGMaD7rGaYTFcOb2f2ssIIeW4A5hEggofY IQEy68VFoPSoPiWab7UPnmxbh/zwnFAA6FqkeZmhYeGm9q9K4fFcIA7Bk21l kx8ec9lA9wPtuh1tkMxzYKpYcF+4ldAKnrDSFJeimTwLEPrTQdDjiiGEIClO yO+EF0Ga6Olipg36wWV87/eEGyn86Q5jH/LRgeGNpOQNGHkVRLDwafBmDk5G 6YQgUU0eXrwIHlCJugyUkpMEosA82NaJ22ZecLJwozRyZ+TFjfIRguRigWiR Y6pR320lgrSoJWdXXgRpOUT3/s6rhAZxkyTy00sqbDYukjxFXGZNEzLagtBF LrLsJx1jfvBs916xV7UsGEkFTy7kvDCaZxG6IHFxSEeyhLAaDY3VeiHA6Cyt sG3rZr4DswDzOhL1AkbLXILuUgZ0JmszULJS6DZzKTkOHZNL3rC9cJFCja5E DOaLiTtSV1XIakeKTO+Sx6DjSE1QSn7bvSBRGpmOX+FXp/w4pArRMXDhuxGk zn3m6Inxxxttw2ueRzaLaQuhKcOzmVfdNsJzWbsYwUP2i4Uvxm3mQXkMHpmU voMSXlBoa0/WSXSP1YIfzEKJSkHZzEt2SGbivzIyQ/tPMjNKmzfFHzvWqB2e zXyij9LtgoJ4vQved6elNk1StLWjqx43VFbNPR2BQjbUhe8vL0K+pAf8Ufq2 oeQk843aUBzjBWPNe2EiqaRrGzcVJvMEMhfKVxVMfciXjHqQTI8/tEcR73Fy 0Yd2P03BVKnHDtJsDLwGTgS5ID7EldxCWYQIe7qkYg6Yzml/qx2hc/rSR4mn ow8NFdWIDe327gN9tIjpqwBR/CSXZ5wqo9QUA4p2+d7ryw+AUtoxLGYC5XK1 VFE4onEaUpwEh2rCyCtMQYzsuLA3FWQu6Utv66+0XiEEjzdaE4FCgvMQ6CMF 0GkVnAUo4XLb5oXH9jBX9Vd6uT5OiNXnDULk7VdBeKTRzFtx7aCYL9yL+mvk zCtlhVAmOFOW12UKO3RXiTml/YewcLlE9GJh54Q27luYkE2xEE2szOFkReXt OI+AsLQRbvw5mSJxvITLyaYXFxnMpO3s7qtFdBjDJXgUnOhtE45ZZFSmeS1L aiimk00I2ehU6ob1/jgm8suckr+aIJxE54WSm21CTwu8QiClhOm4djKCq1L3 vdLbd6kw5QDpI4UhqL4h936BsA4URCtt3xV/jmnTUBxQOhkp7Nr55wxAqGM9 V5Zp2tmpTwPBH8IITGQ9mgmC3+m35KmC9fchLQhCqkVzC0TG5cpeCBOyALe1 TgWxmL3+GixOhX85F408EEyARLHa7meAdGhccCQTbZX75frM5tDQgPKuQuPV 9wWdD+VBCtYARoQdBmbHRzOLw/NNQEcRIbwg0iSWFe+PkCTX+6lbkbKqyA7E RiqESuEMRiEIbgcsjd5LZxTU6QPna0+dSAYNaoN3OiwAHK19CweBKYMpMUaW UjS9UNpMhoh6gaW2stVdYuESf1Izu9VsQelIHpbqBpvAIct4Mg7yOqwhF44b n2dAIvUdwtmcs9oxx26oz8LiUS0Xq0TX6yeRbLYIXeoGOzLEllqXRluC2MTW ZjBzbUnAWky+IeOJz5W6YSUhI30UKVDDW9MJAS2DqMUgsRtyhKMtxgvH/yPU vJbdXtSovkCsxDKo0fJrfaKjU9BSW5vS+wuH5PNim21vYGmkrqb69ijbJP8E J0W1MrMB6dY7QuCZna8NBJVC5vV1SIeddGZNoGQFzCPvDQQYe0eJooT3+2DE XClFW7BK53Cva0M67SMkqbeYD3R6SssjwtJmktRSyJwO0nrIPODQFrfSxad3 /ULnOmRGSPut9D4q/lA+P6qBChYUtxTcKYVsSpREpu3KZO340h4yeAYS6M05 YkEQrI8zxVuI7oWeSpoE2yPDv8IhIgk9kkRCj05NjjFCtGOybkqul8w4ZLIZ dqrEZa82rLZKQ0p6MaMhmc4M0uauIcBMM0GAPdKnQT87M+Mdklb8Vl+lQSgJ Mq+NMp0b2FXQYIDCIFAPU5KV/HeX9kGa7mgsqzRUpRcm0lHTGQIZUhMt2YA9 GDKfLJEAzeZNGnYJsxqOO8bTSIwIM2o8u2RLomULW0Lq/hDNZIn1pEZLKqOx guwUKz0wI5gIEotvReCkF3Lxhyig3vMMKCCFj80L1hu9kFV6JEuQkV7SLu7Q NCOb2mCgbOoy+YEyXXS2bzqrz3WyXzIcG+FHVh2Utghptljcpvx6vegRpqQP Cy7M5vOIYY4Qm7PR6sqqZlpdHoTa9EYE9EJMokfm3AeGLZ5M2/j77zzMuwyL NCJiHAVx2QBYW1mOVl8PIiLK8DJcPuYrWRA5Osgxtzd0o8S6/nxunFxGeyok y8JdlIgaWUpI6JTNztZpj2kryO3aH7xrE+p9pKQKurPP1ftyhZqUkJzR4LPi j2VKmJoyy/zckNrN3KSL+MyGkKSxrQySdvbmRbJSy22CjI4fJC14sGpDv4xz MlTRcs96Ji3UgpBZs+TaBdQOFKnGj2t7WlzJQ0q6WTKZVo2goCtCJqEGMo02 tV8bISioS8nuQczBjinBtLQqCEVqxWugBAPyTBsUM+Sgld1hlQ8SaJviCBQi nVzumyq6NaDQ9pf2noeV9GjzSOI2yhNaNBAMxvYJnZhJUVCr6pDPwrf5CDBS LRJgduaVAsxUVOkBK/7QYUgYMNb97VFR3gm11Y4QLQKDMT7HHacMHlJbH2IB IbhobeM1MTNFDR1/VHr7mqAz33dBwGasN0yEfz9aPUhBt6OpVcUUQTJXWqR/ tRW67f2zzisIHNp2BO9JSpKtwMlEtXZI+soqqVf2UUeLP8drwkXQEONJix1K 9oGVesQgXOwmZD+Ey2wKl/hf71ksHfV7MbIJtRFkLigyi1CLLVSIbVpoey0h vBGGjqjg0Czv9w5VEB5zGUBeIGxP2hQ8RxUeWjXWDo9d8KPlkJ3STpqfERC0 w6VlZRnA7HJJI4CZmz3SG1n8WhsvCSg6bQneRHAARRO+XVCinSsFqSjs046A ktWpTKRSy5y2mFQX3GwEdwaWRrdOvKCcUFBIBVQ7KHJmdkCKjk9UpnAkZLw+ cwkZbzi9k0CB1VKp+1JChpzfzkNjpbq1gzG60OcNz2g3aclJUe2giF9W07jP jHfmlIym0kg1XQaK0woFuUSrHQoxZNijUATHXYKHDolI31wGnjMKD7kl9MMj ebygyGxn+uG58dfbqyzUb9AuO3ini66aEyg0HvWVIy8ohSPzETzmJd2GfbNv Dp4aBO0hCArSQJJ89JUCHfkHlVQaIIFQMF+GYjg3H+Ldhhha95bh/WyS96mO Gpe1Pc3dXPb4QWrUx6GaHV3A4oxMm3dzTnE1ScNA9gYfOUSgfVFpjgVpus5V OH4MsWjg2rLcOjiNhGGfU5szS2tRc75WabAcYtbisdi4NqfMkpqRPKYQY9Qj zBNh7YwtKmMWFIUEizRipVmsPh4UsXhaWbQgVHZ3ibSf5CGJGKMJ3YJkVRo/ LnhEYFEPpRIOahvxLfbSfA7Ljj7VR2D0nh1tBsB6hgKTnKsRCrQPSnsfnx4K NFfeVdnzHkKQI9Kq8ZAcpBuqFA87l76vsuD1ykgokB9CQoFQvQZlc8YTL4gC mSxk40F9m/Agz5WEB+lyrysCVnZEU+2Q0IL6vnYUgsTsc6YEhFBCJ8qVAkEK 4gfaDt7o5XQuTT5yrwx7WzKfsDDGquW3bTJZa1QKBG0vH2YCQcMpAUG+lAMO 3MlV94xiQMYKlWJAZR/q6z2uiUIYkLvttM4i/lA+2wrWDgCpWx7p60lDRaAQ ANSyAkAqqniKbVEgkSq9UrZJcfs4N9u0bQ0HL9hcPgQAUY5QiUoBIHXtYxX8 4K0LBwDBEBepBWGqv8sJP00glR5+kBr2XW1372UJEvdwZI/x/h4U/PmpABDU OQcBIEkhAMKRYCYG/YYxCB5L9EIY0HBh28684YOyxz5iP2ewqlxMSxI1MjFN K8Eyoadokqg04JT3tqK1P0FBsyRBkT9wGQFQu70OrePeU4Sp3eltBIA39h1t t2jmrB0KWts/yYSCls2mW/OGTyRlYGsAeE87AwFAGyi627YEb+tDvmz3MFa2 dsNHUq6bLNAYQFAsQlp2ENdg+OD2A0BahUVljNg2q+RgUOlUidptzKkvPtEu QGyTfqmvjJ2Dd1ikbaqPVhDNsS1JVDOxTVax9g673E9d5TqUqJ1tmnqeZrJN Frw2q5+Bd5jPPIKM2K79bg4tPp6qkHvZXlLGTsE7zAcjqeVJHVw726SXfqat TXM52VTaOfYJeAfV4gWg9ouM1QBgG/hj8A670ObdH9TONqmdn6m4e1vMTJMP wzvs2irN+cR2paGHcrEtSTQGE9tCpuxd98E7FvQpHfjTFqjScDnVsE2np7K+ Snn1sHfYRWjSTtK6v3a2aUdtQu5lW06B9sYptMAkxioNZZOLsVRfTGljaHpL 1UwH0pcgXyMs2nxchkUyuLgI+SoNwpMVCeK5thythrxskYEMbTErjaFTnK3N Ar7mZasGT0vM1vsqhGXYIost2g7W4HMrgy2pgta1XrbInPA85KvB49pE0Kbn lXBEzplpA1tZtJgJPkzgyvBBLlTPQr4aIrwwR1Ka1tKbRT0epVGwDtpj1+pr c1zQyrBjYVuICdOeVBbJY1y2ypD+nhJHm/1FqKV6JqQoLda9TDyFfCchH6ly K3MWXB07z7RNiAnTMl6qknRbXBPpm8XrHqU9h3y0raaVUfXsSFHaF3jZ+QDy HYV85kP2ahVMjPI+1TYpw8SHCsUReGpWldcrJ31mXIbzk/5CiTsET811zM32 kf6J1rIfnprnnztVkm6q/TKkf6akZ8cJuFs56VKUlkVe0r9UXLPd8t9vH+lf x98OP/ePqiTdjkPLkP59/C0O5Z9UTpwUpZnTSxxpKD76HZJpZiDtJ1OKEkkd mfnIfFcbvf1kStHFuslUn79rK9H4RzzhFnGE2wAXowPugTftgQ9fMnHwLpfN PrZ20kdkjhpgZS3piuK/pPDMsEleyd/D+FuS+vD0DKT9b/zdS7x0ZIgT+zxe W1sfyUBhvB4pwf268VKBjb0Lq5Nqdd1cmgspSnZc3u1qDoGtzP/7lKkvsxO1 OxftJ1OKktKtQTInVJAPtgyldgmNKPWqf6dGqZQmJXKDlPKJxzvtI1fGdwlO eDSD8HsqEa0hXEiSKyo79NfezViQauncpBEW7ihJJ/QX7f/pYPpOJjveE9xK 2RE7QTtO2KZt42DntgpYa9gx5yEX9Bc5FwyyI0l07Eha0Wd1s3NV28R+kU83 Mty51T52zBPJTf1F7qSIHfOUQuzQOQJ5y62UHbPivKe/vJxIUjBE3LQ5of5L pgdkBXldG4bYofNCckBfKTubeWEZpQfZkSQyFWmEHXMX9HhIdnIxHbFf0mvt 44O2rxYvc3L2p85jLtCILbJ8+KButhYhH/lY26asWr4Rq9ZaZHfVCFtexYLF TqBJ9XImY2Qa9WEpxqQuYse7V0sb+Mcf88JUNRMfKM05W8e79k2rbJSJGWUs VQvZTHqtMQsLm3exmAq3HmSCjHY/rpsJ75oqrYiKPxdVxIgdMrR/UTc73pUI hRpa0tYhC2CiYLludrxTngWgaiET3pnAvJ+aD0digm7RfVI3E94Bc6cycU5b gi4D0O3aT+tmwjtM0q3UfvvY8Q6Y5PjCHCYTO+QI4I9tYYcuz5oZK90zohKf 1c2Od/zfoz3mtLYJMUGt+HndTHgHzL3KxCltCbroRj3ri7qZ8A6YaamPPycz 2SF3Gl+2hZ3BmDQR3MqiFobjoY2nfdUujng3dlQbyhNFMP77um62vJPC/gy2 jmSyZUvrb9rCzIEMZixiKDFDJ9W1s+Wd6ag+cypr21hZWO+Mf9FuL71Rjf++ rZtF7+xHExapc/YqizL8LWjLpvKRhuu7NjNLBNtFZ3N6lS0LP9bNonch4G0T C0N4RsXYDvgme/HLNjM4q+1ge8LJ6Fmmnd09hGVUx/DzU5t5tFHfvGWa81Tz ym8byr+WYkcqK8ME7bssuNmsvuOSEmws/uIkvbBWrhomLOCYOfo0LWs0Hm6q XHM4ePIus4knMrmy0W2bwpyK+ZAqQey0hkUbJIT07fEvjNKhvG8l7mbGubMD 6NnxPmYoTFs8vdumI8PWSuYbEWq8icDKKmRRubTB3zt+TImZCYeg1rUsIoWl JVpm8H9RcqdDi9faRTMfv5ZPGcseQ0mYj8YpdiWqXfIZPEaz9qSdTVrtFn9a 1nYTsrrLwdFEodqXUl6VxWCstNEk+a+tgWn6u5oqmeCu/tWwl72D48Jol9yk KBn/0+ECCfIPbWExuPGiHY0kkd6HDutoCfP9VmN7hwqxl+1GtujEtgw4crmR gmuQfpBazNxz0TsIgEYUMkEAxAc4uYkn5Ru13YLCSO/whvBpBAAZnf8lD+mN 6AuDbfdbHtJpkvnz1iCdJpI/NUa6dHYK1ES7ekI9f49pDQA0VXjZthnSy3Yj Jyhetmm7LO1kOr7gKsgbYrj2UzDvS2kRb/tdU1hTu3vDkdd+iFma2UTaONs0 o9FKt3q2pa4y2y4CZcDsxK7KokJ4+S1z9F5YuVqec951Gfu0DiSTlkYsD7zs 0+AaDGNJcjwe2nrwsDX2F1WjYKq/Xco7+U5vxGKmamape+9Q6W8N217BohmY 2A6GSJe1WjBAYCqtdiOvqtmWfNu1L2dHAmwrs8EFZyrtsIpxa1j09h0vi2a+ QyZ9jZhZ1sJiuyxJvSySBoFYNJM5Wlg1YvtbNYvHVVDfWBbt7jftghph0TvG EYvBiLTBS09vBItmX9waFr1jXHApl0ozMyy6L9kIi96X5mIxeAG5kRsuZVik xXxfWVxqC4vel3pZPKuC+kawSIt0s6aj+/ZbjkVa1F1QQaU7+I2w6L124mVx SVkkR0uVsjgQoqQjs+Vo9bXbDZv31hBxTu8w9x21c64+9NZWYtdtQZKIbe/d L2Kb0ix6FTlVq5Rt9b8nPveSH2t4Eb2XUs/M8OEr+fsC0nqQdjX+HvoTnHy6 H9L+T0ukPOzFbhVjn4rDZvJ62PPenaTWCPq6CHqUrLSF5pWIuIU2WmU1F+fe q6/EOWmnb6hs1s65+tKMfUNG4lERx0di23ttmdgmPbX5NiIvFY1MM97r5bPD 72Q+eVE0jGgedJvcCFteJwCzw36RzBclHbi1hiOvl4a0LMYfc11IN7IaYcfr OSPITtCFfyPseP2amMG5+Tyllm2EiaK+ZuI/843aGnZyeQKSbOL+SMY4Gvkb 0TrQ/JjXS5M4q5JDI5rHG2GrD/myfGrR8klETuwFaWHWCFu00h6EJptwJ0ud SJy9LbSKIwvw/SjxdPShvU0Lm8XrJ3CLsLOkbRJ04EgrXJGu4DDQyCmV3cS6 rb/Is2a2sWjDTNhG2y7Q9Uow0cip73XF36KdkwfabNPPhpkwF6V9/bV9qzFx R/G3MHbkqTnbGtXSGrGFEQv+BSVdflGkrFYzIeusXXEuigrnJb16ezOpiwim KrKtTKshs7BtZFMEFxYJqizb3C1y5usIDleW3dSW1ojNOlWWPVxZWiM3CsoQ 3MjND6ose2puIcHZS1NLa+ReFFWWvbXJ3jTVfgetDMG08679vh9Vlq0VayHB 2WfSltbInVqqLPso2dIauftMlWUfAltaI3fUqbLwmWhDvgKosvDx5fRdNVBl 2eeMkYJXu3MMqix4QjgdRyRUWfbpXpRZtnbi6PzjqeL1SxMkmd++J6laGiPp tJL0WH814maKKluEsu8omTS7lSNT6vIS14fX34W0MmRWuqE3E0mzf6BVbiNN fUGb9Zr+om1kI8RdVLyW9BfthRshzpz8mSvJRrxxUWUWmMa8V9NyuxHiRE0t KtFs77GNECfnYkHvvY2Q9HNHSEdIR0hHSEdIR8ibQwi9oJo0FyGkuenSWpjW NeQbkjbRkKJ/ka+DiUfrg0cbf4OLoRsP/h9KtG5s\ \>"],ImageRangeCache->{{{0, 547}, {547, 0}} -> {-5.88743, -5.8575, 0.0208228, \ 0.0208228}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.0833333 0.5 0.0833333 [ [.16667 -0.0125 -6 -9 ] [.16667 -0.0125 6 0 ] [.33333 -0.0125 -6 -9 ] [.33333 -0.0125 6 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.66667 -0.0125 -3 -9 ] [.66667 -0.0125 3 0 ] [.83333 -0.0125 -3 -9 ] [.83333 -0.0125 3 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [ 0 0 -0.125 0 ] [-0.0125 .16667 -12 -4.5 ] [-0.0125 .16667 0 4.5 ] [-0.0125 .33333 -12 -4.5 ] [-0.0125 .33333 0 4.5 ] [-0.0125 .5 -6 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .66667 -6 -4.5 ] [-0.0125 .66667 0 4.5 ] [-0.0125 .83333 -6 -4.5 ] [-0.0125 .83333 0 4.5 ] [-0.0125 1 -6 -4.5 ] [-0.0125 1 0 4.5 ] [ 0 0 -0.125 0 ] [ 0 1 .125 0 ] [ 1 0 .125 0 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 .5 r .25 Mabswid [ ] 0 setdash .16667 0 m .16667 1 L s .33333 0 m .33333 1 L s .5 0 m .5 1 L s .66667 0 m .66667 1 L s .83333 0 m .83333 1 L s 0 .16667 m 1 .16667 L s 0 .33333 m 1 .33333 L s 0 .5 m 1 .5 L s 0 .66667 m 1 .66667 L s 0 .83333 m 1 .83333 L s 0 g .16667 0 m .16667 .00625 L s [(-4)] .16667 -0.0125 0 1 Mshowa .33333 0 m .33333 .00625 L s [(-2)] .33333 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .66667 0 m .66667 .00625 L s [(2)] .66667 -0.0125 0 1 Mshowa .83333 0 m .83333 .00625 L s [(4)] .83333 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(6)] 1 -0.0125 0 1 Mshowa .125 Mabswid .04167 0 m .04167 .00375 L s .08333 0 m .08333 .00375 L s .125 0 m .125 .00375 L s .20833 0 m .20833 .00375 L s .25 0 m .25 .00375 L s .29167 0 m .29167 .00375 L s .375 0 m .375 .00375 L s .41667 0 m .41667 .00375 L s .45833 0 m .45833 .00375 L s .54167 0 m .54167 .00375 L s .58333 0 m .58333 .00375 L s .625 0 m .625 .00375 L s .70833 0 m .70833 .00375 L s .75 0 m .75 .00375 L s .79167 0 m .79167 .00375 L s .875 0 m .875 .00375 L s .91667 0 m .91667 .00375 L s .95833 0 m .95833 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .16667 m .00625 .16667 L s [(-4)] -0.0125 .16667 1 0 Mshowa 0 .33333 m .00625 .33333 L s [(-2)] -0.0125 .33333 1 0 Mshowa 0 .5 m .00625 .5 L s [(0)] -0.0125 .5 1 0 Mshowa 0 .66667 m .00625 .66667 L s [(2)] -0.0125 .66667 1 0 Mshowa 0 .83333 m .00625 .83333 L s [(4)] -0.0125 .83333 1 0 Mshowa 0 1 m .00625 1 L s [(6)] -0.0125 1 1 0 Mshowa .125 Mabswid 0 .04167 m .00375 .04167 L s 0 .08333 m .00375 .08333 L s 0 .125 m .00375 .125 L s 0 .20833 m .00375 .20833 L s 0 .25 m .00375 .25 L s 0 .29167 m .00375 .29167 L s 0 .375 m .00375 .375 L s 0 .41667 m .00375 .41667 L s 0 .45833 m .00375 .45833 L s 0 .54167 m .00375 .54167 L s 0 .58333 m .00375 .58333 L s 0 .625 m .00375 .625 L s 0 .70833 m .00375 .70833 L s 0 .75 m .00375 .75 L s 0 .79167 m .00375 .79167 L s 0 .875 m .00375 .875 L s 0 .91667 m .00375 .91667 L s 0 .95833 m .00375 .95833 L s .25 Mabswid 0 0 m 0 1 L s 0 .99375 m 0 1 L s .16667 .99375 m .16667 1 L s .33333 .99375 m .33333 1 L s .5 .99375 m .5 1 L s .66667 .99375 m .66667 1 L s .83333 .99375 m .83333 1 L s .125 Mabswid .04167 .99625 m .04167 1 L s .08333 .99625 m .08333 1 L s .125 .99625 m .125 1 L s .20833 .99625 m .20833 1 L s .25 .99625 m .25 1 L s .29167 .99625 m .29167 1 L s .375 .99625 m .375 1 L s .41667 .99625 m .41667 1 L s .45833 .99625 m .45833 1 L s .54167 .99625 m .54167 1 L s .58333 .99625 m .58333 1 L s .625 .99625 m .625 1 L s .70833 .99625 m .70833 1 L s .75 .99625 m .75 1 L s .79167 .99625 m .79167 1 L s .875 .99625 m .875 1 L s .91667 .99625 m .91667 1 L s .95833 .99625 m .95833 1 L s .25 Mabswid 0 1 m 1 1 L s .99375 0 m 1 0 L s .99375 .16667 m 1 .16667 L s .99375 .33333 m 1 .33333 L s .99375 .5 m 1 .5 L s .99375 .66667 m 1 .66667 L s .99375 .83333 m 1 .83333 L s .125 Mabswid .99625 .04167 m 1 .04167 L s .99625 .08333 m 1 .08333 L s .99625 .125 m 1 .125 L s .99625 .20833 m 1 .20833 L s .99625 .25 m 1 .25 L s .99625 .29167 m 1 .29167 L s .99625 .375 m 1 .375 L s .99625 .41667 m 1 .41667 L s .99625 .45833 m 1 .45833 L s .99625 .54167 m 1 .54167 L s .99625 .58333 m 1 .58333 L s .99625 .625 m 1 .625 L s .99625 .70833 m 1 .70833 L s .99625 .75 m 1 .75 L s .99625 .79167 m 1 .79167 L s .99625 .875 m 1 .875 L s .99625 .91667 m 1 .91667 L s .99625 .95833 m 1 .95833 L s .25 Mabswid 1 0 m 1 1 L s 0 .5 m 1 .5 L s .5 0 m .5 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .5 Mabswid newpath .5 .5 .04973 0 365.73 arc s newpath .61389 .5 .11134 0 365.73 arc s newpath .70914 .5 .02337 0 365.73 arc s newpath .8154 .5 .09438 0 365.73 arc s newpath .69765 .59615 .09438 0 365.73 arc s newpath .69765 .40385 .09438 0 365.73 arc s newpath .35466 .5 .11134 0 365.73 arc s newpath .2331 .5 .02337 0 365.73 arc s newpath .14983 .5 .09438 0 365.73 arc s newpath .2216 .59615 .09438 0 365.73 arc s newpath .2216 .40385 .09438 0 365.73 arc s newpath .51572 .63151 .11134 0 365.73 arc s newpath .52888 .7415 .02337 0 365.73 arc s newpath .44561 .7415 .09438 0 365.73 arc s newpath .63514 .7415 .09438 0 365.73 arc s newpath .51738 .83765 .09438 0 365.73 arc s newpath .51572 .36849 .11134 0 365.73 arc s newpath .52888 .2585 .02337 0 365.73 arc s newpath .44561 .2585 .09438 0 365.73 arc s newpath .51738 .16235 .09438 0 365.73 arc s newpath .63514 .2585 .09438 0 365.73 arc s .70914 .5 m .70914 .5 .00667 0 365.73 arc F .2331 .5 m .2331 .5 .00667 0 365.73 arc F .52888 .7415 m .52888 .7415 .00667 0 365.73 arc F .52888 .2585 m .52888 .2585 .00667 0 365.73 arc F .5 .5 m .5 .5 .00667 0 365.73 arc F .85743 .5 m .85743 .5 .00667 0 365.73 arc F .6931 .63417 m .6931 .63417 .00667 0 365.73 arc F .6931 .36583 m .6931 .36583 .00667 0 365.73 arc F .11691 .5 m .11691 .5 .00667 0 365.73 arc F .21706 .63417 m .21706 .63417 .00667 0 365.73 arc F .21706 .36583 m .21706 .36583 .00667 0 365.73 arc F .41268 .7415 m .41268 .7415 .00667 0 365.73 arc F .67716 .7415 m .67716 .7415 .00667 0 365.73 arc F .51283 .87567 m .51283 .87567 .00667 0 365.73 arc F .41268 .2585 m .41268 .2585 .00667 0 365.73 arc F .51283 .12433 m .51283 .12433 .00667 0 365.73 arc F .67716 .2585 m .67716 .2585 .00667 0 365.73 arc F .006 w .2331 .5 m .5 .5 L s .52888 .7415 m .5 .5 L s .52888 .2585 m .5 .5 L s .70914 .5 m .5 .5 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{548, 548}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztndl2HEdyhmuwESApbqI2imKDq0YrJS6iSIkESEoitO/ja52xz5mxPcc+ Y1zYV3gRvIP9BniPudGjwKio6ojuxJeBLHR1VTVYfQiwkZWZFfFHrpERkd/+ tvmXf/nbb5t//fNvq8/+/tt//uWvf/6v1S/+4+97SfN/yLK5a/nPapZ/382y 4a/dvX/Frxv5rzw5SPh3+W8h+317Iys+G9n277s/SvJStruzmY1/NrOd3d0f 9pXaK7f9+09+qV/4XUWpxb3fO5mVk0fZXEHl3+S/eal47z3y109lWlGZvCAb VrW9uZ2VfO49H302nv+fovUuZjkPmzu7ZT072c6OkvOvQz7HKFaqfx6pVd61 V/KH0SIbRt3OZrTIz/5bfgweD+nP0d0rXpL6z0HF+WdOfi8pd8ppgcI3CUXs R4A5gLtfhjWWMOZ//Vw2huDlw+RcahvaTLbnC27+rXxa8LxX9/bmWLv7fXuv 0LZStjnaWvdaxUbRqEYeZT/6RX/mF46Jqyy1MNqh5osKS7EMawm6y4/DcmXW UvCR3L9Cxft7VDYi+4N7f0sJ54qErBymzuS/FkYe7XEpD8tW9GIDaW29t6dZ R9Ve9M8fzY7of4W0XxrIl0TSFlSxlfgqykf19ST1JPUk9ST1JPUk9ST1JPUk HRGS5EkThIgmQVQ3zu66C4j0JPUk9ST1JPUk9ST1JO1/1Yt5yc/aJUROUZby klLLYv5trV2Svst/y/pmEWp5SZ8+bJfMb5SQY1DLK/r0k3bJ/DL/LUVXoJbX 9OnH7ZL5TPE6CbVc1KcftUvm50rIKajlkj690y6ZT5WQM1DLqj69VROZ8iSV uCdQGZF5BdJuJhJc6x7pMZQ9C2lXIe39dhvCmuJwHmq5pk9bJvMRlCWCb0Da O+2S/hDKvgRpb0La2+2S/imUfRnS/ghpb7VL+idQ9hWXTGKnFdIfQNlX3cZB jagV0u9D2dcg7R1Iu9Eu6R9D2QuQ9i6kXW+X9HtQ9vXZIP0jKHsR0t6DtGvt kn4Xyr4Bae9D2tXZIP0mpF1pl/Q7UPbS0SL9A0i73C7pt6HsYDZIvwVlVyHt Qzdfp0mnfIN2SSc0i4awMJa2W2qUaGqaHRaWYixcqokFeZJKOHVC2iofm5Tq WvfQcaoZbloRvJFI+JRaDM05V48sC9JvKf/FrrIwnkaLoJ7055B0WqBfO1qk 0zbr9XZJp8Hv+tEinfblF3rSe9J70nvSjyrptKGgU5me9CNE+rL8t8/Fe6kB jkhv/9rkHA1tIUZdxOtmR7ybT+UpdB5IjM1piZXJWVxSptDRXB7Lru8feY2y Y81fvSUbvzPylvmywJb83IN8/5d/k1pKHUFWySmdLGdSIZfzMSkqp2dRo4yP 9OmrWiIrPc/L6v5UDdljZXcI3McnYeaGSmMOahHCF8fbhT39UJ8qW5n1fKn0 UP193Cl9Eu7MzoBqueg+valPqX/S4CaZf67G8SSDM+2DiRM6DFiANNr1pfO+ P98PzUFxWYV1HGoZQNo8pNHyiAAlAOaVggbZHuhLyXhtVZ8Ss++4kBGLi1ri u+ZYfENfSmPsFX0aDEFvu8gQd8e0xDfNcfe6vpQM0Wz4estFgdhZ0RJfNccO GTYQY9eVOLJOegHSSDVzAvI9a45ZMkCh+kLFWf6hTRdJltimBv1Fc2ybgTGt LklLKJlthCYLRuLzBS3RIHdkhkZpNPfSHEjmD9QjSOFLDYKs9jsIBU04ZDpE bYGgOA35njYHBbV0svojKGillTp0EBTUep64fNQKBVnHkhUhQUFuFQQjhXsh KKj1PHb5qBUKIpMkmwoFdS56B53lEh/rzUFBZam/k70AbTGow6VCQfnWmoPC H9J8KGizQexQJ5wRKGhCvAxpy5BG9REUZGhC+R65fNQKBY3atC9PhYLqo05D UFA+8mmbEhQ0lw8SoSA1FNVH0h4ALTTkfurywVDIk1QAaF1HzK5CGu3Vab9E AKwCLakA1GqTFd3JJ7QK2vRRGgFAJqO0/iDPySl1BpId7aForCC2qX1Qfz9i UNCemMYKahVkvk0r2gcuH7VCQezQIRVNplSWZhBqFUcMCmpRtMSiVkGuFLS4 v+/yUSsU1N/JRY5WmwQFLbwJCnKI6SAU5HJHexCafWg7RotncmsipSc5tTcI BbnwEZlHDAqa/OiAnBovrSJJi0VQkIshtbx7Lh9Th4KOt2h0T4WC6CNH0Zah oHUAHXWmQkFqXqKP3H07CAVZWNNKsNhxLo6lCUEZ+/gT+zQzUWCNKbFPyyAx YpCNTVWmz2lJigTQQVbJ244kJ2PHiE0Is0/KGAKCFmZ3XS6mDsQdSKNxfVkl LJteeUgDIU2j7wItHYTirrJIACzp0xUF4LSmUUyUDrJItomkPltQxk6Ufw+f lh9aQ3cQA9rhUACF1Gk+ggZtzD4AcjqIxgOVdOr8XjBrA+Ho/2ZpcRveT9qK Oy7tU2df9HvzJkMe30No8g9BM6+1kVQ7yP6ayuu4wz6NEMS+VER7nLo4lyeT 8PtY+V0+DL+SRAqfVAZrVR0TgxZ0rNBojLuUZrxUkUyk3exgi5Vdg4jtun4r 9+kBp8VgtKh9VbikQf2+gmCvHpakjVDLCIhiQUzA31YypTUvZ8bhsABZXJBu aqmjzIp6QrzoZT19LibDuFztHUWv6CafJtTryjENsdKrT+Qpsy5Z41g07fOF dIY9cawnL2vWUMwFTPubPY3RnQZCerHZBa44QCzGpD+nxWksl2Kk7WuZ/Ycq /XBxXTJ9XDNEmaYWMc11SN3rb0k6VQf7mjZLq9CPteGeZQxsx00aecLA7PNn ZCNCO/OzJSujacM2vjzeLKKuDaQFoK1pByExfQxp5qJSx76Sf6iEbVhnBJTb SjCZq1ALMH3dQtCeRv8/pfVSGNoOqrIodhRBQqOm7dMXyjyjUGQzrdClIE+k zo+OpIaLfCNdKMXM7SAUdJxDC0BT7RoA8+NpNDLL0xmBgg75aDEoZVcUgOAp tQU65ewgAO+qxOg0yhYY4Rg5/Mk/NLzQeXfL5110sklWEIcHgsYTsoHoIBBk GUPNNQ0IGk3IRKhlIMgCgrwNab1jQKTqXXzHKKOqLgMAeTIJFGRDN6gFCuoo ZFiYCkWt+mOCgpwxV10oaHqkNRd1FbK87aAJGTktRS3yo6DQgotAWQWqOggK GalTmoGSjevooureaE/ccvM1aHIZjTCQ0HCieNCqhfgkN5YO4kEDKJmwmyIj wINmb+oH5OzVsqE2WUfQIoNG2ygeNFyT3J9nPKh9kLdsy3j44Q38hYngIQoL QpUAoIACDfq3vKoE04xVDxRUC/WNaAwJqYVmpCmBIiYGcmC7oN9IA0lGOcQY reat51At1FKikW6OjVM6JQ9Jk8R5/Ua2g8QO9WhyCDFQyMqDoGVQsv1Kwvwj f01p5rWVw0X9RldAEWPU36vDQ21mNBDg8EP+VKZRnNLG14IWWSQkUk6RbpcI Jk3BMWWCqCJ4XtYStC02q9opHSvYOdgN/UaamnpASY0CcV5pmQNaqJYTWuIW lKgBKNP3WrgsUlpQfb6K3NIs3CMdaBFQpmdeAFrovRYpiKaTQwG1zzLKjoks nBGRFrWlJnDC7XHROjIeTKL+KUGQwqCBy1PTGb0H+SZEqPzc0rcN4B3EEc1p dIUbH2dlPLwQTCeVtGUgLRpLIercMUHfG6bfhXy0aicWaeVHuM2roCxt2A5o cqQ0UoMQiNXXJzXAaWmp4fwJTtpTkNugb3dCzNLbaAtHUXf9QH+0Ck4CVKPz 7ozH5s2yzWxnF0MrmwI2eM09fZC63SKlSQE1nzWYcQPNFASvrYhOAk3RnVd0 5eRAOdw6FcGpBT5UaP0E3XDvFXSV6KtAwavAUYjevsP8JQXughYnuEjeBJyN oAMoQasrBzgN81u2wTwws4ApbPwg1cyXjGzJzyNIuwNpy5D2Xv67DPO7900e vgH5zkPaAqS9DmmrkPbf+e8KIartZyfb2dmljfkPUUzHsaem9TLkI6UDvZc8 h62F0QkarYB81zmjikZI0rLTUjVl5MuDS29sK9ab8ZHve5cLeytdaPwS5PMj Tr+jiNqOdKAlCFGakU7De23LRSolOpw7cNgbDcqfxaKQf6vvpeXpQ31KWFGr isYxjpgNS046tQptLsvPOaCD+HpTKa+IHS1nvoE0gmsN8hHB1mQIrmIbcpB9 JXW3M1rveXirbbpT71ycEkzrUXGP5zPD82xcx26xlmnfYcPeVc3nI2O7bLLN opOtish8DWnHoNpUZIyxN5VZGh0Niuv6jdbSL2pns3cM30AWjTVA8hWk0a7l MeQ7A/mugdTprM4g+aPmO67fXgqAKD/kjk4HWhUx+BLSaKNRCYMgnzlYyDfa LNoS/h3NR5bK5/QpmYXT1nhKeDyBfDSp0kH3kjJxWr+ResFA+UDz0WR+XJ/S ssO/oP3QQG3ECAmqfQr5aD1HQElLOW2dIgZPGLMi/8hFNdSbp4THsxj9QbWf Qb4XIB/hQVODoXArSvDBywG674eOdyqC8gWk0cZxeqDQ1OGHKeoMKJ8n5msW FAoSQVdeVQSFmKUWMD1QyD2A1nYdBEVGx+hV5jQKNQvPiksfqbOmCZS4u5Im vCNARemrASgaaGk2li3KsRghkwBlp90EFJmCElDLLn0NAmUtipo2LYjqAYq2 WrRNW3HpewVKVASK1ne0EG4CKHpKmplOAyUqWFE6kWsS7UXqAYpaFHW94y59 pECuCBRtrWirSTuQeuAhxqgdETyk5T0MKPIkFQratdLep1koHkI+UuIm+W48 H1BU7CqklaHBjTRdpPxrFpRHkI90ozMCivlOp85DzxUo1FLoILwHpQelc6Cs J76eTlno/EnCddGLiHdDRs7lgrJW6RqUfRHyNci7TBSLSnD0ElOfbQtoRxvp 4VHzaNqwJC2wOwETk0tmGtJ6ZWNCJg8+cBZAjPoPpZnAaEvWBegEuUV4ekGZ pbnWB2qg33xTxmCnEbytM0B9CXK3p3ZbMqlbCCgzYLykZclKjoA6qWXJUrtl oJ4pO9GYgkEJaylUwgfvdf1GYyCBdxro6wx4nytxURuIoIT5n2Tj5hQ+bq9p MbJviq6syRq1ZcjCKLQHQ2bXe9OiyTDyb1yOXmgkJYj6BkGhrX0qPHZJuN+E yKyVgPLvGd3SRttgO5LscpxNY8C6AhA1NQlK3FBQovbrkmTtIxoa6gCgivqy DNUf8y5bh8FNli2n9NsjpZ/m9Cgy+16aZeiWY0DZYEOm9+lADWsRw9ylcWYq 4vFoXIrBq+TBAyiWClRhA8/2geQIZ1iROx2h5l99bJTQzGMeB9EG+VM1OO+r HFINKqR1y1KVfHjIRj+OM5E5nsYNd9dZbJBRdyrmlO9DRSiY2an9zWnmb6vJ wSSbqk4zTw8yj/EvvPPlQAYT18s2GfSLqBQo+lWqFGhcMddDekrzk+FD23dH FBaDlOad6OF2dCVD2wkSBflmkyiuOaIgNzSKukGDC50ERu30A29CXxSGD51h 7DsbIoPQVFGY0zAtAQieVFEQZFcdUZDYB4kiJlEQ2DQjpQqFZsRw34P9g+7R IgUOiYeGJQKbhhQSFAFAgrriCIpoWo220/E0ssegpkrDLOUjQdGUSmZBzpBm t7xRqyQduMUGJtJJPKQsotUlieeyIx5iv8jPqzSyeKXmadtP//7soPFKiYrw 39SCBBzBby4VZHZOS81U+GkSXnXgj8eBS4ffBmVTk/i3tltZ0xORmYkDOu2a U+Gn+mhIoHwkCDLlIkEMHEFQG6b5J8vQW4DwJh+zVLlQG1yvJiFyq6RqSUKk Lkt1xEyVEK00LzkSogE9DG9WRTy0cKPxm8RDeK9VE4+t8yh0CQnF9CpEOtVC oqCFG4mC3hGVww0gLZjtghLmOE5tkjC3ACgVkaZxmlR4ZBVE+UjtQOjTEUrU 1zlIow2e/EXrT1pDUC9IjaIRDVmSAA6ZsTmyoRUmqVxJNqnxWYjMVNlEL0wj 2VBmWn6TbAhzYtAPK+WDQ477jmyI9Pg1xuOvp3ypqnSyxUw1F6O+KX9RJzMv SnIK9cclXyKkdyFISJfqSIQ6un/dvL0+tWe0L5FgPqcZhTCntQiBSLIhcMg3 x5ENqVKJd5INyZDYIdmQuUWqHSG9V/6i1XMhm32rYRIP4UMio3yknCE6ycmu onhoICdfDRKj3+t98aT6ZUTFQ5t8Gq1Jp0KOiNTWaEJKlRcBRu6zjrwocDEt ipqQF7k9krxoFInKK/VogORF0xAtskmuU5IXKVL8DbC9nvohrVVJXuRSRic2 JC+akeUvkgPJi4ZJct8kecVjWcQalQ8Yxahz5EXWtYNEefn9sLq8SOVN0Iby yj9RMyIa8P1B1giiedZXY3ZaXrSVJ70vyYt8pOkEyT99DORF/Yvk5a9ZqsvL j6brN3A6jnfkRTGOKFYU4UvyInb8GIhbLunUZczVMtVWgHRB1AH8havfoUhA hBC1SkdAJAwSGgFKExux48cDtfpoLCABnVIBZePGEpJGMxRRRQKKhtJOEBCt UAghGuYdAa1CGq0yaEapW0BmP0JisfCV4YBV9KVhh5K9Ew3kNBjTOo06vG8m 1oqUaO1O62qav6jR+VGKrb74jh1GLTRBUXkF/cuirBG//tqnuviok9HBH+EX D+aD4qMq/NP06uLzg3NbfYUyjM89TWThRBgTGS1ILBgvYUFqVNrSRafOKYlM nkwiKGqzqcMGKXc/KWEYzZdlIyZh4d4mJqNUpUfd0qIORkp5Au4D5dIx4qGB 1bcmmp60PmVp2SXn0hcXQDwW2JWAJRDp3I4ESqMy1UfKRcKHNDTOqEfioVNC Oj+ldWPqiECnumLiPm/gwzhJsqHVjJ2QkrzI+ClVNr49gA8OaTsrysY3H6gu G2pqUcdYGrhEkDJTkRrHzIto408v6qAcaIvl2w7Y62kflXr7NTXTde0jFseT Fl1mQkbUE/AXyjYymi9jV6gBFCdGo+5W6TjTSTR5rk4F57C9558zCjvpZS0G LY3NNOhFYKd+uQrFa4CdVDzRiCUJr0/trTRDGuy2z5DmvaDY07pB8tF2klYB oYo/BjddPTQluGlAokC0V8v2P5rPY4FWhmvAvgUVt2vy6JgouPGLZugEsKkx UHx3EmjURTEdbLNRrgqxeamR4uhR2UtGS2bZyA1mK4rtOcg6zGVh0aN4zo0T Q7eCTAm728jj1qpyFnZ+43a8IgKQXBxpMBFEl1SANjRIGnFJmstzWpb2xzS4 E86khqM5qyLOoQY3f+Ub2kQsdlSwGPOvnayO9AuK6olxzBOGQFJG2nLQ9lzR tX4z6EcPpGzVavoxyWaG4rRRToVWoBDfXdq/mCE/wWg+Ezb7BS3BstBFYFPC 7d7Iq4bprwSc7LsLhLYNBCyZU1LbOaOCoqUrbY9J9WCKbPtG6+yW0B3iFz9X thls9H86OyPNQnWwiRICmxQJRJXFPDGnDroisCGwiyoyXmZZE4mGQAn2BFYp WaLSRt1H+pa+g/ClEcY2iMHIYbpLusKSDjTid/hNCPeQEFqKvhC08uFP/jHE aVlJiEeXAFHE7+g7aDtKp8GnStkO08qPEXsTKqoBbzJpotvSbUqmgY7S5gKO yp/Anaxu5D/SpxT1Io48j4i2z/wQamsQfrvShobDKPyC/g2orx6w7ys8h2zh QxJvA4kNohs/6CTCyx/JRDN8KrantBZSQz9waQrXwEMRjNiwTB1JGaoXx+kP pu1oTEG7omdu/FuQb5K2exLoC/ANFkwLk5JL7fiYliDttSOHClf8RcUjmzIy kZAVgwT4X9Jv2cEnw7TPqiSPgKC4PAre9xNJOgRafN6C+kw3QC3iQFEsZtub 2/poe6O4bJbOHEkeF5QFkoddzzY2yJRKIuCxCt+GXkW+9bbO/IbODeN9Z3Mj 2/69uK1TSJFfZ6z7JJWspxEv61t3C0xabyQbwmI2cq1pciPxx1TTvxIzNtDY 3E+D2cR9OHlMLWqJkEtjaiUZTTKmyvWzWfHZ5Gt+Ky0eJBsZ9dDSTCQz5ZVD WfPwE4192fIaggC1PWbqWteW6XR5eHVUaX66r09pw0xY2hb1DlDVIKB2MEPq tPjeLUzL+DShnr2EmY7Sxi3efnnjZtjT8NGgnsKaJqnfSR6M/bAWum67HgFY wDE6y626czZ9wQdQ21QFwHfc0rmir5qzbkOHvfWo5m7rO8g+pJJqzlQEjavm 9l2mG/cY5NZilhEDoL1GfXMQMM7e0XEt8zCdZqbjKgMDNOv00QnhnJDWynGK pdFaiwzj6XySbJzrOQwk6xAybqbmYN2OaKa11DRPtEmR+Jo2umX9RmaD1VGt dHptZ33B2xIOW+1EuEFAI6YYYgO5AkTSIUqNVhjy8KympVph2P6+ZTsAgrhY WNIZ01ZJhmMnFNRFyo2IxZC1swMthoIJi5ad9rrAdigoQQc207TAijax8PWM MS32yNNoLciXf+ym2RMKMHUPs7Mh/5KUeAsxsGmNPyWwU20LU005Uz1Q1rW1 VTflpP5ct3XhNA2Wo8v9VDNlM+7zoR0Z4xXVVOPkYCQIUd03LJlPRYNw1m1n n+rvsA4tK8HiPqE/dtP2vglfk1Q/IBmybdaLOpeYsiPVuaTAmScUoq5Bx57e 6WoMt1jZVmQzib9iSjSQ/Kdef0XS5dFbZ8lzUZ4MIFMXnX+D4nasFwjKTkJI 1T9z3r6TiIfKTsuJ3paaoRYq/xxtJ/rgEcm662ErTHzhPBQT35ENW0HsdDM2 jFAgSX5smP167iMWKGZm4y2hUVz+EZUfuQTOcNClroctowlJ1sloQ5f/TBK2 jAREZRsMW0ajAo2GqQKaiTiA1ClSw8y1HAew7jibpBKgDpUaZ5NmhUryooXu DMfZrDuOLS2yUuV12Di2Kq/UuMMzHMe27jjRqfcwkLxmNk50qq96DXGi+zjs jrzqjsM+pbj5/bUGfvtLFU8Nt070N4I4cmj5RpD+/px9JVq+P6e/bWofgz4Q Dd421d/SthsO1X5Da/CWNjoTp8GVjlp9pb4vm67fX5ggETpXJFbjBogokXeV 4FQ52Dn1IFGas3KR50XlLFUAZmi0Xg32/tbbA6XR8q23tEegEZUkRK8nhfiM XxAd1EYaYBIOtfPH1YRjp+mpIjEjc9qIHoWL0q8qh6mCMNv8z6rBf8t9FZmO mVMWLZ0JfjKVo7IE/xUHfhpCaPQkVQupsvxVgH9oYLWYo90XB4hCntCBCRFC orBOTCsg6k8kCtogkChoEhhyQcshWlOQlpLUILRY9o3PfKGQ8D5X9Bw7Hjra oZeSeKhr0zaCwEsVFAF6zREUNQpaFlMDIEHRjpNWIZSPBEWYPTugHwWPLCwW vZQEZVY0pK6nYYbEk6qVv+6Ih4ZP2lH6R6pbQGfQBIMQeb5QDJ+vqonCgmYR wSQKCwJHAyPNUamiiBsCsChoRUeb1FRRUL4P9G3U30gU5rHzTTVRiOpFzFPO K9NW7W5p00InNzR2xkHnlQ+N3XMu1LSZToWawLyjPL7E/Esr+L4aqOta6Wn9 9lBbcCpwtIyVCmiNaqjZjpWw8k27tsbrk1o+URbMe+bnQ+BB2U9L0tASsXg7 bRRoak2BLP9EXfznrdXHJrQU3BbDFpOpuOmtZ4DlXyeHkwbNxyrDVPyuKy5R 79B57StSczWs9kVJeARZaXz7ZToIPVU+iGZC6JqWiDoQzSsugYOav+w5ryWI +gZB+RzyRaNXBWWvKBPZuH1x1FFTkl7TYr52kfDIlICWcftC2YlGOQ5KrCrb VMKHzGzraZqMBguaH5NNJ3D7UumiA5Ygqn8ljKws7aUIo5PwNqNlrV2gvs5/ Bzcy2NMLSjr1FwLK4hIM9BstTgioFXhbt4CKBAMg1+5XlBnaZ/rQXYHW60Nn Lk1kudIJ6IBZ2SP4/qY+UNe1LHXkYVTCQGTyVjIo7iBMNMKfU9QqYSUr/KDs 1HmnhTcp2mmzT4MA2TPTosnYJlBStWq0kiSVeA9KD8oRBSXV6LEHpV1QnkAa 2Sp96Tby6qBYuJ5UGz8ChTQbpEE6CBR58nxAIeqyg46UUqHYgHxkx9ksFGQm RjrYil3lKaSRgfL0QKGnpCzqICjSFGXFTdo82nzUAw+1GRr0V1z66FixIlBk 9EDeIgKUbDVIWVwPUKkeJFGgovQ1CJRMfse6C9SyS18NQJFulPz7rEXRqTd5 hFUHig6laWtNI9OKSx9ZwcwcUHYkSi1q5oCSeWMhRgipSJoF6rhLH7mIVgSK zKaIbQK0Hniow0WDEwZvI4egBkGhAZ5aWbOgkIMhOTtWBIUMg2gkmR4o8Rg1 rYFCK2SasGlxSUuBaMwZCdNNh54GTxhdIP+8kP+iJTvZnpDFbEU8aEdJr6dt GS22CQ+7o8fCw5ApVzACR+9WswUznU61DBSpemj/GjFDtBuV5BGZdBlM72q+ cHrKP2e1PupL5J1QERLSVpE24rCQlJ/Lyi9Z/tplF38cz7cvLO7wQ0ar5MRU EQ06CyHd3Trko0W8mViYlTVtKQ0Ay+eHmNgaYSfjUZrcUyviQRZ4dDa0Bvlo Qrisjf0t5ZNM3gwPQ9CcIkhvaSflNJ01CEWqGdBA2aElxlvuU4PHjFTOuvDY 7Te0mxxMDs+3kEZH+6nwkEMVQVGs0DmuvuSkOF6hmUn+ISJSnY1Xq+Gntynu bGbjH7lekDQE30EaTZykxqX2QAbx1BHDDdA4tqtQ4mxZ12jasGTUMj2og8xF 6dYmB+Oh6IrbVotrG+lVZA5LdhWk/yT9uNky0dveHX8qDy9pGhlw0tqJ1mw2 XVJsIIri7oA3JH3YQDd3yr5QWhDvVVNa9w2/3ZWq58tmvCU/y5D2npbIVVtb 8vANyHce0ua1LJVY1af/k38bWVHpkiO/wnNnJxy6jfufcCzZIpd+0pZQBBIy wglH4PxjIzr5QlDDIAZou0yrTxpc6a6VlDEsv3pTb4TVK1KJutDSOn8ThbIg XYLZoNKyiO2is9HbP8wsk8x8aaCnbbZ5BtYAYYUboX/R936s32jx74cCPQiw SJokUSyGaKDIwDfA6IvGFJASdCNYxWXIryNVDNNpr5AKHhFMSsH5UpajaUPo qMH5wfD8rVhqqIya4ZRMGXst0dbLj93tw0maWvkrNR4NjXq0kYuGE4leDzgh gkX2LBvxCqfVY2rIoBRn+/wTNd8n8MzVmiCLxv6SEnRbZS2Q7Y7uX6JX06QG v6qEmx/oNtCHBHvaLZcM29PehBI14Gb3R1jYKrr9i+ojtsnLTeb6hRhQ0ftB 5gt802RoLucfQokagAq21PLtBuTzY0P5QB3Tmq2/kL/ly/o0YVSwjcRtILcG ZGxGt53KW5CPhlKa5mgDHVwHSSsE6n9CC00Jpu74CCitARSZqxe1zcs3mi2q z9WpoNAAFJ6t5J+RKwXHhzZ5QBeM1wCPuVce1290czTBQ4yRt7PBQ7VQm6Gj pwWg9CHkqwEUGSaO57nuwlNaadLgEI0UHoWCAKXDlBWlj5Zfn0CJGkD5BdIm hkKaNu17qFUQFDRuNQgAkU4aO1L1GAC0BiYAaC806wAUSQffY0Z9gzYzNGY/ cJmpFQ8S5QDSKI57FA86iaP2MSN4rEIanWSbu1+ABylsqX3QYRLlu+8yUyse 8XhpB6dF8UgNMj0AgjqIB7UFOhwyPEgjRock1BloU0+da0oLMAKFxj8aQKkj +aDQeoFAoTOcukCRJ5NAQasJGmMNCjqP9MN/UU80qmiNcw/yJflgPB9QTKmr 0NRIWzQ6BTBQCunwUSgNkHRTOB0HTWlPmwqE2SYcnn07zyElS8tM+ye3RFwa 06SpmBH2yZ8qet4pu485BwhSmL0JlNCSn/bODQJB1kU01UnZgvvxe9tppWXq wLeBjA6iQNb10fBJFhVmpIdYvvxDKt8ZgYKMxqmjmybe3F4WyiejUGQcBYeU iy2jQfuD28olYUArggPRsDOS94GIDmJwVwlONegxM4Vw+hj9385ASJVKc/Ed l4upA0FW3J55mGkqrLNQk/FHpE5DYuYbaUDQdjPagqReOgXqIBAPlMVC27vP gvN40CcOxsCmGBoAOoiBxdE8eRgMQpuT8kOb5w4yLzs8af4D5XKFYTBfERoN TOwPtLi9enfUHaNbCIjmQ/wx7ch5iRFY1qwhAvmHghSSMnapo0DIRkJcna/r t+ggdzLWHUL1YgFnNzk20cu67lysbVMaqVFnhE/picdcGR8JjoXPN5X3aAxN 846Ljm7Eu2Sm3XfLvIsT6oj9075hjDY28ten8Ia65ix5MglbT5QtiuwXYSsI On1I3mrV9BJva4pQZO71lqk2887ImiNccDFboQ1FrAvPa22knOsg+58owWRh QSyGMI3+b1cmEFsdZN+uaiB7Khp8TzjsH9fabsH7O6ioot04AWF77xPl36Ns Z2xYQ+arHcSArlmn0ZvcV3wjqw7qpgiAOypc0k2Zj5fpE2hYMDeYGWE7jNKQ /xAA0uJxn5X/+N4LnQaA/MPj98we5L1pz0hJ38Ejy5vaYON3yjLTdoHojLBK J3XENDVmP66LpZFnUcsn9qk3kaVC4cf9sTQ6tuwgFOTwRzvIVCjowI6OsluG guzAyPWHjJBojUzqeIKCPEFbtv4iKMhJhST2HEDh3yEfLH0SVou0uiDHq5YN JcmQlqy/aElDUERvAwrSyNRphqGgsrQMoyUXmb+1bF5NkiXTctrkExS0TqFW ccSgoHGGJmdqFWQq27JTBs0CZFA+SISC0qhVTBMKeTIJAGRBvpood/+CeKrP aCHzGtKi16pBptUhSTtqVh+kUX0EwABoSQVgSp2BNGc0BhAUNDNEAxFE37Hl 5puSDyNBQQo0miRToaD6qFUQFJTvkcvH1KGgVSQNmwddDeixSC5aVHatOSio LO0tCAr/Zlcfng5CQa/37f/9bRYNfalQEB/rzUFBjZdWeKlQ0DqAoCAfV+qs j10+aoWCGjSxQ1CQ/Qu1KKKPoKDZ54nLR61QUIOmNIKCtFM0zvhDs9FCa5Kn Lh+dgYLUtzQRk7QJClrvfubyUSsU1BniahVW39Oag9inIAAtsy/DYvSoLhJn +aoWSuXSrMqfNccbKQCJ4OtKHEUAof0TsUgbzQaZpdGIRhnyxU1lm0Kb0JZz w6W5VrYvquyIWWmokvS25ktlzCxPvm6OnUsumZf1KQ3CxiI1RWLRHKe+bY7F VZfM1ehLx9PoqIm2edFoPELB9y7NtbJNOxAieABptPqgY8eoqWhAC9XXIBQ2 fRAA0qMliTZo77tPL5TyHX3b8F0/VWNwuazK4qZuZNu/Y8jZVL7tQmdq0bKy lqmWlFgf6tNoWamZ3utwqUGLdzbzqLDy1yQsvq3ieVW/0Uh2V59aiLVs6FtQ VPenapxoqGAJDzz6MbkJfv/IaxSsTuu3M/KW+bLAlvzcy38vjef73/zbaNDn oa1uHsI6j19d4kgdMRXCaNTcnAzcz9GlHVaCgrv6tOzDdshlge0enttT4ZLO wYg3Ct1ckSONPZ4Hls4kIjKOnnWzQ+aRNEJXZGeS0bgnvQ3SafqmpXlPek96 T3pPek86pJGhPalmGiSdDGPJkqMnvU7SKV4O6a7vQhrppHvSn1vS992uIQkU imh2WJC9K3VvOrttkAVC9QqzIBtxmhfqYkGeTE74eFr0ZnWyKqGX12pYRUGk LjtwT0L4lFpMBRYWYywM2mWBnKRWIY3yzQjpJKXVdkkn37wBpFHPJtPQBkm/ A2XJCHCGSae5jMy0GySdFi1k5jDDpNOKgFwmGiSd9hZk2kgrAXJ8aZB0/zZx S6MpidyXGiSdlOxkPNFB0u9DWbJRo/vfyJWwQdLpVkqyUiRXQnIIbZB0uqyU DKnI9Y/cehskna7YJdM3ctWjC6kaJJ2uXabzQDLnIb/yBkmnC7nJ4IxObyj4 QYOkr0FZ3wWVBsxWSF/Pf8vukQg2MwyKqzL1PfQTqIys82hfnUpwrdvnp1CW jM7IGpQCxzbYECxmWtS5KhrWtUEyv9BGRP6dZhh0t10yv1S8yPjRbhomZ/MG yfxaCSEzKzP8JT/XBsn8VgmJOuRIErndNUim2MeFofbz/6VS0T6ttUuhpC3n JRf1G/kUNEjSr1DW7kIku9qWifPz9ST1JPUk9ST1JPUkNUySPGmCkFq3TM+Z kHqSepJ6knqSepJ6knqSepJ6kg5JEr1qevnGvNxy3dmoB6F4D6Jqks5U6k4j mJp4b0/zvmahLp7yeCfb2embxfNIc8TfeOg9nfuL7zUTeSyHBPIrdzAOfYa3 NzazDXUu394tSuz9vD6ar/DN3nteEKCZCqsocFOXVmr5CjuekYI3IgnZH/4f V2qP4Q==\ \>"],ImageRangeCache->{{{0, 547}, {547, 0}} -> {-6.42413, -6.37274, \ 0.0228386, 0.0228386}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.0833333 0.5 0.0833333 [ [.16667 -0.0125 -6 -9 ] [.16667 -0.0125 6 0 ] [.33333 -0.0125 -6 -9 ] [.33333 -0.0125 6 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.66667 -0.0125 -3 -9 ] [.66667 -0.0125 3 0 ] [.83333 -0.0125 -3 -9 ] [.83333 -0.0125 3 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [ 0 0 -0.125 0 ] [-0.0125 .16667 -12 -4.5 ] [-0.0125 .16667 0 4.5 ] [-0.0125 .33333 -12 -4.5 ] [-0.0125 .33333 0 4.5 ] [-0.0125 .5 -6 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .66667 -6 -4.5 ] [-0.0125 .66667 0 4.5 ] [-0.0125 .83333 -6 -4.5 ] [-0.0125 .83333 0 4.5 ] [-0.0125 1 -6 -4.5 ] [-0.0125 1 0 4.5 ] [ 0 0 -0.125 0 ] [ 0 1 .125 0 ] [ 1 0 .125 0 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 .5 r .25 Mabswid [ ] 0 setdash .16667 0 m .16667 1 L s .33333 0 m .33333 1 L s .5 0 m .5 1 L s .66667 0 m .66667 1 L s .83333 0 m .83333 1 L s 0 .16667 m 1 .16667 L s 0 .33333 m 1 .33333 L s 0 .5 m 1 .5 L s 0 .66667 m 1 .66667 L s 0 .83333 m 1 .83333 L s 0 g .16667 0 m .16667 .00625 L s [(-4)] .16667 -0.0125 0 1 Mshowa .33333 0 m .33333 .00625 L s [(-2)] .33333 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .66667 0 m .66667 .00625 L s [(2)] .66667 -0.0125 0 1 Mshowa .83333 0 m .83333 .00625 L s [(4)] .83333 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(6)] 1 -0.0125 0 1 Mshowa .125 Mabswid .04167 0 m .04167 .00375 L s .08333 0 m .08333 .00375 L s .125 0 m .125 .00375 L s .20833 0 m .20833 .00375 L s .25 0 m .25 .00375 L s .29167 0 m .29167 .00375 L s .375 0 m .375 .00375 L s .41667 0 m .41667 .00375 L s .45833 0 m .45833 .00375 L s .54167 0 m .54167 .00375 L s .58333 0 m .58333 .00375 L s .625 0 m .625 .00375 L s .70833 0 m .70833 .00375 L s .75 0 m .75 .00375 L s .79167 0 m .79167 .00375 L s .875 0 m .875 .00375 L s .91667 0 m .91667 .00375 L s .95833 0 m .95833 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .16667 m .00625 .16667 L s [(-4)] -0.0125 .16667 1 0 Mshowa 0 .33333 m .00625 .33333 L s [(-2)] -0.0125 .33333 1 0 Mshowa 0 .5 m .00625 .5 L s [(0)] -0.0125 .5 1 0 Mshowa 0 .66667 m .00625 .66667 L s [(2)] -0.0125 .66667 1 0 Mshowa 0 .83333 m .00625 .83333 L s [(4)] -0.0125 .83333 1 0 Mshowa 0 1 m .00625 1 L s [(6)] -0.0125 1 1 0 Mshowa .125 Mabswid 0 .04167 m .00375 .04167 L s 0 .08333 m .00375 .08333 L s 0 .125 m .00375 .125 L s 0 .20833 m .00375 .20833 L s 0 .25 m .00375 .25 L s 0 .29167 m .00375 .29167 L s 0 .375 m .00375 .375 L s 0 .41667 m .00375 .41667 L s 0 .45833 m .00375 .45833 L s 0 .54167 m .00375 .54167 L s 0 .58333 m .00375 .58333 L s 0 .625 m .00375 .625 L s 0 .70833 m .00375 .70833 L s 0 .75 m .00375 .75 L s 0 .79167 m .00375 .79167 L s 0 .875 m .00375 .875 L s 0 .91667 m .00375 .91667 L s 0 .95833 m .00375 .95833 L s .25 Mabswid 0 0 m 0 1 L s 0 .99375 m 0 1 L s .16667 .99375 m .16667 1 L s .33333 .99375 m .33333 1 L s .5 .99375 m .5 1 L s .66667 .99375 m .66667 1 L s .83333 .99375 m .83333 1 L s .125 Mabswid .04167 .99625 m .04167 1 L s .08333 .99625 m .08333 1 L s .125 .99625 m .125 1 L s .20833 .99625 m .20833 1 L s .25 .99625 m .25 1 L s .29167 .99625 m .29167 1 L s .375 .99625 m .375 1 L s .41667 .99625 m .41667 1 L s .45833 .99625 m .45833 1 L s .54167 .99625 m .54167 1 L s .58333 .99625 m .58333 1 L s .625 .99625 m .625 1 L s .70833 .99625 m .70833 1 L s .75 .99625 m .75 1 L s .79167 .99625 m .79167 1 L s .875 .99625 m .875 1 L s .91667 .99625 m .91667 1 L s .95833 .99625 m .95833 1 L s .25 Mabswid 0 1 m 1 1 L s .99375 0 m 1 0 L s .99375 .16667 m 1 .16667 L s .99375 .33333 m 1 .33333 L s .99375 .5 m 1 .5 L s .99375 .66667 m 1 .66667 L s .99375 .83333 m 1 .83333 L s .125 Mabswid .99625 .04167 m 1 .04167 L s .99625 .08333 m 1 .08333 L s .99625 .125 m 1 .125 L s .99625 .20833 m 1 .20833 L s .99625 .25 m 1 .25 L s .99625 .29167 m 1 .29167 L s .99625 .375 m 1 .375 L s .99625 .41667 m 1 .41667 L s .99625 .45833 m 1 .45833 L s .99625 .54167 m 1 .54167 L s .99625 .58333 m 1 .58333 L s .99625 .625 m 1 .625 L s .99625 .70833 m 1 .70833 L s .99625 .75 m 1 .75 L s .99625 .79167 m 1 .79167 L s .99625 .875 m 1 .875 L s .99625 .91667 m 1 .91667 L s .99625 .95833 m 1 .95833 L s .25 Mabswid 1 0 m 1 1 L s 0 .5 m 1 .5 L s .5 0 m .5 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .5 Mabswid newpath .5 .5 .04973 0 365.73 arc s newpath .59299 .5 .11134 0 365.73 arc s newpath .70914 .5 .02337 0 365.73 arc s newpath .8154 .5 .09438 0 365.73 arc s newpath .69765 .5785 .09438 0 365.73 arc s newpath .69765 .4215 .09438 0 365.73 arc s newpath .35466 .5 .11134 0 365.73 arc s newpath .2331 .5 .02337 0 365.73 arc s newpath .14983 .5 .09438 0 365.73 arc s newpath .2216 .5785 .09438 0 365.73 arc s newpath .2216 .4215 .09438 0 365.73 arc s newpath .51572 .60738 .11134 0 365.73 arc s newpath .52888 .69718 .02337 0 365.73 arc s newpath .44561 .69718 .09438 0 365.73 arc s newpath .63514 .69718 .09438 0 365.73 arc s newpath .51738 .77569 .09438 0 365.73 arc s newpath .51572 .39262 .11134 0 365.73 arc s newpath .52888 .30282 .02337 0 365.73 arc s newpath .44561 .30282 .09438 0 365.73 arc s newpath .51738 .22431 .09438 0 365.73 arc s newpath .63514 .30282 .09438 0 365.73 arc s .70914 .5 m .70914 .5 .00667 0 365.73 arc F .2331 .5 m .2331 .5 .00667 0 365.73 arc F .52888 .69718 m .52888 .69718 .00667 0 365.73 arc F .52888 .30282 m .52888 .30282 .00667 0 365.73 arc F .5 .5 m .5 .5 .00667 0 365.73 arc F .006 w .2331 .5 m .5 .5 L s .52888 .69718 m .5 .5 L s .52888 .30282 m .5 .5 L s .70914 .5 m .5 .5 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{548, 548}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztneuW1EaSx2Wqr2AuhgYMGKoNBnzHHm7GmJsxuPH4wsXMfJo9x2d2z5nZ 3Tm7Z7a/98fdh+h3qWeYJ+DTPEdvKaXKkFS/yA61VJIKVIduqlNSKuIfeYmM iIz86bfNv/zb337b/Ouff1v//u+//fdf/vrn/1l//F9/HxcN3oqifR/EP+tR /H0niia/dsb/kl+X4l9xcaHgP91/C9Gr7Y0o+WxE2692nrnipWhntBnlP5vR aGfn6dRT4+e2Xz0PP/Urvyt5anH8exTJc+5StC+h8m/uv4GrePwe99fztCyp zL0gmlS1vbkdpXyOr2ev5e//o1rvYhTzsDnaSesZRaORJ+ffJ3zmKPZUv8jU 6t41fvJp9pENoW60qT7yIvyWZ4XLE/pjdMePp6T+a6Hi+LPP/V7y3HlOExR+ NDwiPw6YXbj7dVJjCmP814u0MRRePimOpbbhm8n2IOHmP9KrCc/jurc3c+3u 1fb4oW1P2Wa2tY5bxUbSqDKXomfhR1/wC3PiSp9ayHaoQVJhKpZJLYXu8mzy XHprKnjl7pdQ8XSPijKy3733t1RwNCmI0mHqSPxrIXNpzKW7mLaiYw2UtfXe nmY/qvaif/NoDoj+JZT92sB9JpK2oIot46voPqqvJ6knqSepJ6knqSepJ6kn qSfpNSHJXWmCEGdJcKabwOq6C4j0JPUk9ST1JPUk9ST1JPUk9ST1JPUkNUOS u9KvRnqSepJ6knqSepJ6knqSepJ6knqSXneS3JVe9X8jSIo/h+Jfj9uly8Xq LsZPHo6/LcTfvm2XpKe+dQ6gFukp99ol82dP5iLUctxfvdMumT94sS5DLSf9 1Vvtkrnh8ToAtZzxV2+2S+b38CwRfBbKrrVL+iOP4SGo5Zy/2jKZDz0hR6CW dX/1d+2S+cATQrWc91e/aJfM+/As1fcBlH3WLun34FmKY74IZZ+2S/odL/4T UMslKPukXYK/gWeJ9MtQ9nG7pN+GZ09C2YdeJi0T/DU8+y6UfaQx0X3SP4ay y9VJX3H/TW1YXKrA0S149hSUfQJll6pztJpeym54rMLOV/DsaSj7FMouVmdn yTOAWyTdZads/tPVOEgvbrmfM1D2KZT9I/7takkXr1Gp7ZSkBVvhvQHPvgdl n0HZB1BfSXiX0/Zf2P1YhaPr8Czprp9D2YW6enR+E2UT7FyBsvPV2akytl6D Z8+9XqR/AWXvt0v6VXh2OB+k/w6eXYeyL4P3tUI6kfQ+lBGLw/kgnRrWuXZJ pzZ8/vUinUaisz3peySdppoLUEaz7ns96T3pc0Q6KbhkFJtj0mn1cqYnfY+k 0xqPTJE3oex0T7q7UoVgt/hfjUvIAkWkL/knDhiZqNVPXmQiqTZKjUDOBUvm 7Zspt9myyf3y5JKRoxm1qI/zLLhv5GW6AfdFaTKptLo/NEe1mITJ0XzSX30b rl7zVz39kXQQd+GPzXFyyb+UfNGnfIdbhatf+quEQra/Tz4NNqwPPGNkFj3r r5LR6ErwWRrI3M0vmuPufQ/9CtQyDAr1M3+VnmXuJm972hyLwgS5yd8P9sBP /NX9RhYX/RM/N8eitMKDUMsFf7UwUHwcfOwUvGjZP/Fjc9yRfZsIvuiJI++P lUUaoJ40x+wZeJbmMXLhkm+U2KZ2S+17ozm2T3nZvaMx64pExhSbQYwd8E80 yA4phCpjBdVq/KEVq5VfEvij5jgnx7ceM7GYK0u5R2smoUfsU1/5rjn2KWRh TWUfXu9aqozn9CyxfRjue9gc28fhWSojthegjBzgViioo1A86YygIDKpVRAU pGVRhyJoCQrqNA+ag4L6PbFjhYJgpDKCgvi43xwU9CxNEgQFrR2oBVihILHc aw4KapTU3wkKWmRZW9mcQEHBMmSQpDUX1UdQkOGSxq27zUFBozbpwlYoqD7q cAQFdS6Koa/VwkgzOK18CABas1B91BbIdUAjyTdwX63WSTUmvFBGyjGtXkgR phZQBYAZdYYqUJCRg8poyCUoqM3cDvJRKxQkxWEFKMJ2nNcWCjIg06hhhYI6 0tdBPmqFgthZrwBF2IApZRQO0UEoaAFNER/UokjFskJBYwrt6ppjKIhFCk1q GQoa+qgzEDw0+9ByjFoFQUH3fRXkY+6gIGkPgZaWoaDJj5ZZNJQSFFbTzTrQ 0kEoyKZOEyyp1uQ9skJB6xzaZTojKEgPIFeCFYp9RigoermDUHwIZaSMJytO tmgTW8Q+LfhuBGmfC/apr9OOgZbZJy2QXIm0n6MO9qne60HaO8O+e9ZFNqmB LOoU3GkAaNudG8zW4hL3Uue+owGONlx1kEXaiudMYANNnqQCOSv1clwSNvF3 GgoK83vHQ0GGeFKBirpFAuP4E3aJdQaZcCjTYf+NpgtqLgfSBpLFI/O/uP3d N9phTBPOtSA3MweEdlXs902FFh2kFxWXrPGH7nN/0Rp1lmi5K1Uwoq1KS77m ZEXBU6Y0MupgEkdGanwVSGq1aBMktKFskO8FCiTk0aCmIhFo9P6PgM4O9i7a AeZ4Sjx2UxEz5PmioWgp2K4oL0MHwZHI3+OMhhuYFzQuCZcV/wTlXOkgBleZ 87UAIK5bEfNUtuox/hwo6iAgNLDQ8PAOI+QawFIZhFa4ojlpPzQ1LXiZKyC5 ipbLgFQYb9w3yrTTQYRE4yM971BdzUhdS7hXz8l0JaHw5IM4GMBq0bcNA1Z0 HwmH8sJ0EDVaeDqsBoLkFGqiY+uoTe1VUtVnWn11ECmyQsiKaT8jteo5pz5G c4MagE2WjA7CRNaqNQ+TMmEZYHJFFCBFRqwO4kKJvJyVJqMS8aJjJd/bVPsO mTM7CAQZsyXYOspvj1FnK8HDfaOeRBiRwb+DGJHrZz3+fSLyfPuLEfs21rvH Kpn7yOFHbmB1psnMQ9J/sv9bwemgLZQcwxQ5ER41HThuzCUWh/MBBcVcUgiB 6K2ZbpJ+RP8vDDPULyiMooO4EAZqgK7qHSLGKLqoQQCcrc15eCh7LkFBPYN6 kGgbxWFj8hN/hvAkQeL63rH4LuqFJcHxuRNH+cyJUbQZjXbMSS4P+YYuqhfZ UGjhQoPv3lFchycpmFFGq2OeYprUS7qiJ5NrkivUYYhNh0AUg9W7/huthQlE YptmOhuIJJJs0Pzksy9PbEmsfBrGtO3F6TIdfm7q+Je4GveC8/7bVVf1IH37 lvtZh7JLUBYPRVuuaABX90HZEMpO+VrOur8XclcndP5f/K1EslD5GUWj0Y41 F6VY/SUTAy1uyWFCMxBpgdJgrMYdGsdOQB8T+khhEv8IpVy3jGhxcs+NbY/r ZrkRTd4vO+Zp5UfY0qRFqxBZaFkNP4StjLgLQB/FoYjKQjPdrqNbNhVyFE4F u5CreSc7M7hvtDwiNyoFCZVHlOZLQlSsLJTghhBdyfNWh3KShy7XD8I6o3qS RaGMDASCH82F1Hdo4qEAQUKS4mdk6z5l06+o5sWfa3AfqVlk1CXRl4eRugs1 Q4q+XQZKCUaye5IusRdAnXRu+G9W8IhMMt6VB4/aoLSj/UAf0SI6bA1AZW+f VBNOky6vItmRbYkMxAJelF9x0jxFjY7uIwTLZbuohOWLQllcFZ0JQJldGsOS 2iAp/pQEjrAkIEi3K4nlM9/ISRG75a/WjeWyhiXNVoSl6CyHgDQig2z35NMo ieBT9fZ8tXRCyAm4j0Z5ihkkx5mKqnWvHOmYVnyJSNKQS+L7C5QNoFo6POY4 3FcZX7eOI5WGhk9SOw8DVbTZ2OpjKQnoz1BGK4U7cN8a3EdQUF8LN1iaK2hN SjrAEaCKAKVxlVYcJQH9CcoWodq7cN8xuI+C/Oi9FKgcBnSYCjtbFkVIRDi9 DI0ie8bvRyij5cG9+Pc+jWDil8rCqBF9xWYYf6gjUKN/z9NcA1C/10gvVHs/ CEXdkFH+FPGn0hBMT1g9ICUh+wHKVqDaB3AfDSv0DhoAKaW0RD1T55KWYoWM 5htafJWE7AmUrUK1VsiIdJqECTI3jC5okBWtGBp4xCWZtMkvMCPwvoX7SC+g MYX07jB44axQYfBoQCCfHyXRKQneBpTRWvMh3Eda6nHfpayQiZV32nkrmZiT xdDUNEroyR4G8r7UgFn4KFip9ju47yDcR02F1mSE3j7AZScd8sjCcjxtpoX7 1aZIowb5KMiI0jKspMuT3+5KABKJNiJFbK1DYLorj+Gmt6GyR8b7SHsni8oV aIVRlInaIuM3tQH13O8CYWHbqpSRDcW016huJKkvqtHfhSlCYCSvlnULDsFI NgqyBxOMJXs3AUW91gqoZNs3ZIB3F+Wga1rtkRmGINvvayEVvUGgqIXScEl+ O2JWPIKyzlgP0lIePBp+aVZ7F54tCSPNEqSwWGGkrkfdjA77EEBJBaapntyk BKg+GLcGKE3jpFGe86CQfUlOAFD3Wrqi8/6+KjBKfbQB8iQ8URI8Up9p7WEF T86PEKCoEwpjcp4GtRlyKxNQoqzTwUwNAkXrFlr0HY1vkGCCyx4P4rgw0R7V 0EoI58AKOleafA4N4uKGH6elHvVkHvYsyDAVRZkzK2ioFm34lK/ybf+EaxsL GraytW8r+0Kri6YkXLTWJ0MJ2Q4kwpx8Sk7nXxKEeOklugYNS4LjCf/tmP+2 4LGN8h4lyYhBZm1acDSKWhShCf50sMsJs2v+m6phFICSqEfpuG9Pg5eQMiPI yCJHdt8nnkIyhYrtVt1quOz5XIm/ES2CkQx4tPBy7BzwDXw5LxuhirxRDUL2 vWei0A8IwaHnnTqNaxC0ghfIDvlvpOnRGqPQVoUWamrkvJgRbo88bqSfkvNC lCh1e7Z0LnffEO6jmVLCY0mnbhmoh5440hMJqAseClKyZeKQyCdS+AkoOeGJ tJiWgaJ5oRRk06Yh1RLsiii6x4okKS40us0I0/va7YfiEtIo7oPow6QTppM6 yOUvwEqQrDWhv9g7VP8wvU3ldi9wyqmS7ttdTxIpVzpgQKZ6bJlARkO/FTwZ MCnaw4G3lOetJDx3PZnUdN0FCtOrght1fDJiC4Kk91mPU9CTVW1lOg5pJe7C 83Jw3vJyIKuDuiB2PZHOhyb7qhVnQo0cWoUNsbLMNaBbXAWmyN72MBSUKWpk +/zNFJQTAPumJ5e6GIEtkyQF4tOygcCmpkdg0wY4AZt0K4Ldcl5MTJ3EfRIt FH0jaFCQSgD46/5BahOq3dY9QXoPubWswFtHV9krSMCr+1BU3iJPmUTR0xME vKBBC+EppxztdrACT1sxit13b8Bb9xUL8DQkqjsvVBiljHCxioAmMFn3BPx6 ZN8lbdPqdKSWR+4lq1ioYdAeZxFLYYhWo+gDqE4+BA4RRBKhqY5cWYFx6Usv QEKaJCL7RWjoJc+oVQ7WFYhkIiZ3oA781NayLzwrhCQhftA/URLnQk5ZA85H /BOEFb3DirN174G0d1o50iwiwRlCwaSjSN4wmrsIbAkqIkt8AGwi1wo71Ufg 0OhKAiCNhgQwrFEAoCwa5hCrWKiL3y8nIOq34XDwLSBJ7qOoWgoptAqIhgM1 Sn8mAqI5jpowCYgQv1dOQOLhJLhJLLIdm2y5FNZKwqDFFgkjeQf7gUhdDp8r Ku8nRVfO4SakSACSWqMk7GQVsQrAupOBIh+toiAdgWNdKsqBXDKkKVslQuDQ TqqAbGjIpDGGZGPdpUPhk1bZ0PB9ptBN0v8rdxOyR5GmRm2XxEP4kJc6IB4a MEnqJB6C3SoyEg8pxiQeiaeTiYRy7VNvIIc9iY/0Cmq2JBbChUybAbEQFAQt iYXgJpHOo1hImyDeSCzEL4XABMRCAwhJm8RCYbXU0YlM8laRWEjVoe0IIfGE T+fZAprCkxqJh9Q5wodyIJQUTzjzgLye5nzrOeQkHhpYqde863uNGGyriIXW 8RRZYRUL4XITygJioaUCwdiEWKwrONnOI4MZRRzQIoQiWMk2RTTTID8jsZCN Iwy3vJ5aFA0+VJ9VLFRfsdXmBZS4WnY7YS0sFKt+SUIhVCj4NCCU8N65sFBo 9FUnaoNQaFllyY9AQpmKqqDNbWTJtCqUHZQHreiteaIocIzkoRs3phCfqUjC KT/CbZTc0QGRkI9BP29xd5FYM6CRSMiFQV2E+FgWUeT7Dm00JjlYlXqSAwFB Xq6AHGjlqh/7mX893UcsUtegqDOSA3UNJ5vkmLl8lvKdNDCgqHpp8qBGY9Xm abFDgPAJV6o81o1lFItftzzIBUz9ohCSr8zdBceu+0aWYxrAaMC1KpAdFNQQ 7rOq/CQocimQoCSQQD1tb0oDiKJMHi4xjVszAFaREsGkH3+FUqIqaOqhjWVW KVF3oj1UVilJnA0ZT1QpEWmJeWFKR6CxkMzbuiVC0xuqCc9dqSIy6oAEInUs EhmNTwSUhJ2TFFSR6Wc6tSIyQk/CBAJBLjScks5dRWTUyyjGn0z7BNQ+z5jl eFsvMglPvphKPvvY5FaSFnV1IoykRcYIAk43bpjlRgYF2nRiPT+Fulo5uTHE pLupUqOZSY1yUuUxO1kSmGQ/bFmW1AcpVwKRrhzzpm5XJDESxNQNyMxaRYyk /1N9NYiRlnThwAB5PbVogsIqRhpN6CDrUjIkzKntkpuVug5NeEQQdUWSIYFI Y1PLMgwnAJf6SOWSIF8aF+UkJ4pKItMPTddVREXdjSy/NYjKesgAzVjWCYS6 G4lKDRUOp5tQRRU2f4VVQRIVmRKoGTYoKvI4kB5/IYUre597UcQ7lklRtYSP 7y4o63o4bLItLyjqU2RpIbVdzwNnFhRZvcmSERIU9SOyrpAlOhmiTNqHyIqY IxM5jaJqokAVhHB76KCsznmgaIFL0iIjMrlyLNap+IeiF5Y8VWTJJWs7aXwk vuIYG3/cX2FVhcCWSklFJ0NRSRmGd2XI612zcrfJrvsov8GDWiMJUrbXzU58 FLwVzk1eEJ/QpyYsoB5O1s4aJEdTj5qIufD6U54JOa7LGo+RBEwFMlCWElQ4 EJQokTIK8ZLMGGIJLbRJkhFlkp6RjNTMz4XXS/xJMtFMpT+yhp0VAw/jTzgh QoEwV0SDn/QKa8CoeHvUPu2u0gjYQRk5tvcLoHy+rzU88bZnv7x4yCNvPclC 3US73/ejQvOhtw2bEw8p/5TNyQHgnOyFIcDxtKI1Q2ts/G2PfqlxT5WXdA7r WLxPY5AIKsXvOryNovjIzVtSmuEIYRo7CNqDHtoCFEQGTfEcNh/ZTwaUxJkk XFmMk8pFOpHKKr08c6r07uzTmSY1CJe0djIh0ek8ooeQlYFGMvcXqQWkfut7 IqaWdYR4WLS0DCMzXna9OfnQs6p8C6PwPg2B85kXzVi+V327I6nKhE6LZZKq hHfIjmEyB5JAw2lwwjKUkfl9/14ZUqzpWslSMM0PHcs2I/Fcxza+tZzn0dTb 8hWln7C1KCwuyYMYHk1Jz5V8SGQbl8RRlNTJmlJWD6AwwdCglItmkPiVElWg Jt5w2qp+SjOn7KKuRa4QVeLWKVaSbco3SgE0IYzMuQICKRRqQ1jMPxGeMnYC wRs1tIESRyjvtiNgQoVEL5Dl39XsAiRJV1RRUY03ZNG3N45pvKM0tCk+nz15 aNWXTd+qIqtmiVPnjiWtpVKZzGOECR1yuqd2sRhtb277S9sb7shycwjMVwXM 0o+aIiMNIi8Bg3TAgloqfrI9I+APbo8Pa98QFEabG9H2qx2heCdp6l4WpifN 8MFwRjrZsifnrTIAykQXzuFVvR1tON4TTKJy7UiyUhVokZ5Gk5Ck+taPs+ex VpoVuTbqnnok62Fo6ikQRvaI8hNOaCaWJV9tzWBMwqvtaDLRbI52rNOMomfS IbwWPRPkFN6pVUXTFNWfrI5hTVO01NlomkYgGtQ1r6WIFlqke7UcgG1d7smS jfygFFxA8hWfzB4Xfu5Z8ohKtEvdolWZpiOnZ2mcUdVjCfjXc53yyCR+AasE ZaIo6AmEX1igsvgbAkHhrMW7yS1X1YwEVcVEKs2V2ufBlLNJ2eSTfp9LQ2n8 KW8oHUBLI6VtRobSKj4NJ8QVoL9Gn0bmvvhTo3dDncCl7LX1c9TrVLTmgqnb qShmTKv/udOuxFLeeBqpppfP1kbdOb+8EtRh3QDeoH/eGudCoihqAPGn8dgX VXRVYl8OFtpjSpnocQ1GVVSJKzvlEZIFhTUisOuBZIb4JJLSjGLIqkRwumdX gX5rzN+cBW+uCKe7KzENRmv20dFK9+tgdHS/5WBOthz023g6uY2n3xw3N5vj Xqu9qE5oBPJrtvm06/vAiwpbUGiF+2ayCZxkaDV0zWgTeJ+XwTAfvwF5GahZ 09BUXZbATvncKCR69YinFqRJcO6WMcVdGRqbaedSEhneq0pTbE4tZpEi9Ewp iaqIjJ5tIvGX+LHJNvI6J/4yTOdUViW3Xt3CE5+1HgUJwqs7t14483FnpNRW qko3RbkiW6pKCR2a41SVc5vjVT0Z1wVAFLWZ+DMnWV67nv2YJDJ9iGxULvsx EUl+mAazH5N2at3b1ycGn66vhsTgdefOJ/WG6rPmzu+KSBpMn1/3GRP6aV27 i6Q/YyK9VPd5LGTPrnLwxxt6Hkt/elH9pxfN6FCp/syvsNJjFU8NR7L1J+V1 8qS8/lzJTp4r2Z/GKu/v4Gms/UHGgS7W8kHGZOyg+6yysao1c3Xed6HMGrtM Q9CdcuJxZlz1uHESihw3bh2USRTENomC5mOZZshETMoWKVG05LnsebOK4Kh/ 4n454Il00klJBFbfAI2BVmGQ7ZAEPjthWNe4JBYSX0kBUUcPn1EXfj1ZoNWk EQYBkdmKGkFdAhp/yDNHcxtJhKwdD8pJRNzQVjkc9k/Q0E9SIvTJGkfokxbk 2FnQwKN1exG8+COcW+E+5J/4rhzIsr2ZhmMCWTa3UY8luVtBJmuTGqyUFOV3 VYQ3zzCCk3IBIuzOEhYk1+LjXTB3V8hzQhwT5hIzS35YNXmVAXOCRw0pckXW sTsMvJRZYvA1EZCoHnmsAtEr5DOhl5IwaCwoFYFiEAuN03RfwZFeuErmhTCX kaeMrOVEFYmFEPp+lz5SuHTDM0YvJbFIfAhZvGkgtQqD9H2aosW4G85DFBbG tBt4KzHGqoFLJAJB44dywN/yD9LKn4CXCBvqyjStEPA06BDwNLML8OFEYuGB lxLnjSn8Olg5YS+pdH4sh72zg7jQizVPi1S7k8ZrkMOEBkIryiRnaqyCMj1B HULPicK5ce54Ho8z/044v5QD9b6v9LD/dsc32SrASewSWaQELukgaiJO6jRq 0pl7no8j/tuLPYBCtx92RRO1Knkn6e3h3D5h3EiDCCNo1VLovvDehwKqROkR gORlObgJQXJQPvByV5M0mfCNeP0hgErssRXGVSBNyLgLT9C68tfZ4PbQExdO DlHAzd1GC38BSjRvWu4RULJnncLzWgbqkVrt7pCd94yRgiXH28jgNTRCRvN8 B8F77FmM8utOijZb9ygUblZ9Za5IFvJkCqVRgdLDdQayJ544wuisv0oKs2sB x+ISWjYKZEf8N3IWDHwtND2R+ZxM+SXh+RbKKMTxCRIccWbM055P6i+Sj/OY /0YrUMHtmP/m/JNO7yz04sVc+91SW1TrkE06DSXYP+l5In1UtmKd9d/Ujcmu 6IT/tuafUBOVvOMvkH5RA24PoYw2BGzAfUte7ke9tIl3mf9UGAWeU/mqXJnk JqOOnh04Jh9yO1L0QINo0Yx0NL7hHc/npXyDUDFyY7t71mp0cpVSGEODoJAJ h3b0SEv52ONBepmsky8GcaPhjjGa1EfGK4rUKgkU2dZpf5sVqKFnW10ShZNG uqIL/j6yu1mtOJKVmaw4DYJHxnTaayvDNdllxNFdGJDpEBMa86y4ychPWjEF 1ZbEjVR22stsxY0jUabLPveMSS7S9SAt4frUtIf03vZgpPtIsSZdk9qMmrPU FQ2DnaI8oDQCkMuIdoOXBJTaGwFlBVTO26Q58YqHTMCTEYDoo0GzvG9tL0C5 K3XDQzGEKlDTO2FE96D+XwU/6v/kDyQkX3jsA746mk1pYKMJhno4RV7SQJQg GUhk6W6n4EGKigon2xXqqPeTNZ520ZTswXUDSzGTZH3Vc49xDB7tDzgeEA6t qhqEldYOpP2R2k0KURVY+biUiNOcngQZKHBSyAF5gGgDXkk4acFPSzEyINAq Rhbt1CYIRDGtnPDPFqd/DShJM9wyPGSxI/sK2dqsQEmePUsorwaZdYc9bYEu CR75xslQaQWP3kFdRc2oPdDAe8+3I4KMhDaEMkp8URKy30MZeQvuw31kIaao PCojf5ZARjOuqIdWyMjkTrmfS0JGUQBkjL4H91nDTa2QyVrOkksrD21hDFXb VivgkVnaGphK7w2DR3AXO5wGnnWbwxCeLQneT1BGrgUreOEM3uElZxi8cylt 2bIJiNZtRKQnrlcH8ef4t3pe2Tf+KllircfLq4CpWTVpeBdfBo20at6JQhzA noF6qt6er5a2e80EvKQob/8jW986lJHFhbTzcOYOKasB32dqH9lCfwkZbWm1 TixQKLWKKa1GCFMy5FtX6DTM0OlSJTF9ngo7WzaujpooGSHrgZNsA2SRIEzJ YWK1H4XTXuwZ02IsWlwVua7IIlQFUDkJo9A+ySpK4ydhTgaRBrF0t7sBWmKA aeFDwxrNhxRnJ7hZj5Gghkgp2LeCtMh2HTrptiRQLzNVTD7X/AtIEbXmklI3 N5SCjNqbbKWhFbuaZL0QcloRsnyQbTSdbiz+IfysOdHK40fzBDU568YXQpLM /hWRXMxVkaKJ8V5DeCXBaT12QeC0ni9IzZH0cjUQyTB0lgTWnzg92ozyH3fS MjWKl/AGUYLFB3we7qNJgdaw5fEm1ZHwlq3VVpTF2XwFnghgOxmRtjc8nug9 IkDl5NgP/TfSvAhQsqiQ2X01CCiVEaDHfS207KCxSXj7Ep4IADoBb9JYN0fZ Bduf4moGScubfLvqqh6kTXrL/Qyh7BKUrfpaBnCVys5B2an4dzodxn8v5K5O 3vC/8Td3KfXJrXoZjKLRSB+hqe1I1Pg5/+0j7T7DiK/u5RkIwWxEIAvyGU+T RKLeAOosg1Z8JvjGdnrZHw9vxckN/o7wNf/tE7iPcCLO1N04u+JEqBcVzqSO HLFfAbG7jkcL0avtyUHqUbSx/YoUJ4LLGfHW4ru+gKs0sNE+4r2DRIMP2dYX PJ00J5RsartpvdNVhCGhnR/qFmF3iB2NwzRlEhR03/Ug9TMHgJglUOhIVgla WNAaBOnMc4wCnWGX7yt5hOYYEhoYaAAR7UHiQRYKMKUf4nII5LSMBg3ApK8V 55z4cyj+Vcz6nv2fFLB1IIKUxmtBBmaOAS0CnKgWhen8VQlTi8QYFX+SoNTF HDqT77RQpfPVO4gQrfKdnWyBmkWWaVlMub7jtgmQyY8WcR0EgixsbmGSiW/f DQj1hAv1wGpyL3QQHDLbyvaJRLvlw5lVXAa+kZH9ghaqHcRFPV4jE58+hcv+ fMchXKbnazXyiYzVHUTqszwqGXa43agDtFqm5gW4BCR2ECGKOCctR0HN3bpU BjX1JCx1ud9B1CTnFl3l3CDJreq+NipTTwiTI4q6j5V6jlEmGL+GdiXWTnIS zAlWVxmNNS4uD5JY2D4HijoIiDjlJMnLNAZu2NanNRjdBnOEwVWPQZT3VCsH nZBmQ31iBR7fCbi5OgiNOrYMBIg94yOLMhqHZzlTuStVcKHdhRL/qmdVmhyk zdcEEPLekFveCohpa0/lCbtQJjEIbweYLrqN44+y/0RNwlkFmqa1mkKZbMsP 50M4mLaxLEyZ/wfStvI1XAbaOggNqcmSSkRNsUEtrtCW3F8Ur0YLiA6aPyn0 ec0jY10BuMblOhQZc2i12UEo5MxQ544/HX8jIx2ZGTrIDtmmiMywy4fkSfan OQYgNGdSYAbZJltmnwZ3MtLOin2KXWrQ40nskxVfP6eV2ScnBpno55h9Cqsj bdrqrSDIbgb5qBUK0mwpjmRohIKGRIoInhMoyNm5DmXWtBTWXTg0jpSMIqkC BRl4ye1N0TUEBalABMUQaHkDoCAWKRqgZSgoJpzYpmgAWibSwoNaBUFB990K 8jF3UJC0KXiog1DQEEmdhp4lzdQKBc00Xwf5qBUKkixNnFYoSE8hKGjPyxxD QUMuTc5WKGhJdjvIR61Q0CxAmqUVCiqjMeA1g4JaALUyavgEBe34/SbIB0Ph rlgBIJWZFkPWE4CoPpJxFQBqNVaTTZT0futxPFQftQBKJkOhQneCfNTaGcgv Q0OaFQqqj9oCQUEG2btBPmYOBQ1ptBwLH/oShoISWtGz95qDgp6lBk1QhM/e lDLq+R2EwipFgoKWWcS2FYrwOSEzh4L6J5FuhcKamIGgoM76IMhHrVAQmVRG UFhNMgQ3QUGzz7dBPmqFgloAka6ex2WYiKkTEhSkiTwM8lErFNSgifSLaTvI lu1kT+Rw36xMkz77XZDiWpmmeYF65yVgOuLTbahFE+ekeT8Kkl0r59RpifSi KTv+UG+g1kts0yr9cZDmWtk+7Vuoyqy7Kmc3WxmT4JAnzbFDKx9qWJIBn1yU 9ARlT6H1U4PMkiuRmlNR3Y8/tDMgnNRE3ktLhR+CNNfKtlveu0fJbiHHJoWT /NOz1IwlZOun5liUXPnqTm1DKv6wsU/eJgHRT5tjUY5RoOWWbBCnFcjnwasJ i1OHGbp3PW+OQRliVCJVKX0ZlHCRwfRDRMyIt8teAKp3Vu1kEoyrOrld0R+a Y8eNCoV0ADQHXIf7ovxxTQ1SXYwbS4iZoO6Io+rpPFN3837/GCX1CVPFjLkr e2Un+Wv8+0BcQto4czL+vT/f9sJM1GqMJCZIOyTSaWjeC+pvHumU35lsnHRO Edkue9LrJJ0OfyfvQYOkUzAyrV170nvS55102pNAQSTXoIwiInrS6yT9KpRR dFKDpNPWJ4pEmmPSadfbsF3SiaR1KCMW19slnRrCEMqoT1DUboOk08hB4SNz TDpNXbSBoEHSaZYkY+aMSJ9s25VseBvR9itz8sAqHJHOTHt5SnLkc0aONuO8 fu6vKuzQaoNM67RmpL1ZJdnxWR5dZsfsRwTlfE//dDUO0otb7ucMlH0KZf+I f2cTb06SJMYpRuP8oimY1iSJhONX8CwF5FA+GtqyVxLHCUcJjmPstitzdAue JdcZ+RdoP+aeuu4gyf8ZuSSWaD+2skN58skHSl4i2njb4CBqJZ02odF26gZJ p+MeyMDXQdLDB6UTmcROK6TfgWcpzIUSEFL6+wZJd4GDajI28bR81i6Z9+FZ qo+sZC2TTkfuUeAHGT0oC0yDpH/rxU8EiyuVUo43SOZ3nhD1fCl39Wq7ZIYP Ug4vNVom/XuPIREsRzrSvuAGyXziCVG3oMgJNO2R6U6edPqxGgTsnIW0BahB Mn+Jf7tHyRUtZz7ca5fM5x6vw/4bhbg2SNLLwrPxxyUVpvCzFuna/b65Jsld aYKQWh3db5iQepJ6knqSepJ6knqSepJ6knqSepKqk+Su9Kp/T1JPUk9ST1JP Uk9ST1JPUk9ST1JPUr8aaR2RnqSepJ6knqSepJ6knqSepJ6k14cketXs7stt yIhzVGQ3trhNLRhlR1nj6i4jmJp4b0/zVLPwO4/c5VE0GvXN4k2kWdkGN9nZ F+9bHDcTd9mFbbpfR+Jfha1s2xub0Ybf5Li9kzwx/jmTvS/ZNzi+nhDgb0p2 /MF2SddK5b5kR1vmwUtKQfTW/wMI9USb\ \>"],ImageRangeCache->{{{0, 547}, {547, 0}} -> {-6.42413, -6.37274, \ 0.0228386, 0.0228386}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"] }, Open ]] }, WindowSize->{784, 785}, WindowMargins->{{174, Automatic}, {Automatic, 35}}, 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, 6169, 172, 432, "Input"], Cell[6729, 194, 2127, 76, 192, "Input"], Cell[CellGroupData[{ Cell[8881, 274, 56901, 1626, 2232, "Input"], Cell[65785, 1902, 134, 4, 31, "Output"], Cell[65922, 1908, 18504, 720, 556, 6210, 516, "GraphicsData", "PostScript", \ "Graphics"], Cell[84429, 2630, 134, 4, 31, "Output"], Cell[84566, 2636, 134, 4, 31, "Output"], Cell[84703, 2642, 21231, 798, 556, 6406, 552, "GraphicsData", "PostScript", \ "Graphics"], Cell[105937, 3442, 134, 4, 31, "Output"], Cell[106074, 3448, 134, 4, 31, "Output"], Cell[106211, 3454, 19996, 751, 556, 5818, 516, "GraphicsData", "PostScript", \ "Graphics"], Cell[126210, 4207, 134, 4, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)