(* 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[ 129423, 4280] NotebookOptionsPosition[ 128395, 4248] NotebookOutlinePosition[ 128881, 4266] CellTagsIndexPosition[ 128838, 4263] 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[{"Sime40C7", ".", "exe"}]}]}], ",", " ", RowBox[{"13.02", ".2012"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "0.59447"}], "}"}], ",", RowBox[{"{", RowBox[{"1.95992", ",", "0.00000", ",", "0.00000", ",", "1.36546"}], "}"}], ",", RowBox[{"{", RowBox[{"3.59053", ",", "0.00000", ",", "0.00000", ",", "0.26515"}], "}"}], ",", RowBox[{"{", RowBox[{"4.09237", ",", RowBox[{"-", "1.41942"}], ",", "0.00000", ",", "1.24038"}], "}"}], ",", RowBox[{"{", RowBox[{"4.09237", ",", "0.70971", ",", "1.22926", ",", "1.24038"}], "}"}], ",", RowBox[{"{", RowBox[{"4.09237", ",", "0.70971", ",", RowBox[{"-", "1.22926"}], ",", "1.24038"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.65331"}], ",", "1.84783", ",", "0.00000", ",", "1.36546"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.19684"}], ",", "3.38518", ",", "0.00000", ",", "0.26515"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.70237"}], ",", "3.38518", ",", "0.00000", ",", "1.24038"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.69500"}], ",", "4.09489", ",", "1.22926", ",", "1.24038"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.69500"}], ",", "4.09489", ",", RowBox[{"-", "1.22926"}], ",", "1.24038"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.65331"}], ",", RowBox[{"-", "0.92392"}], ",", "1.60027", ",", "1.36546"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.19684"}], ",", RowBox[{"-", "1.69259"}], ",", "2.93165", ",", "0.26515"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.70237"}], ",", RowBox[{"-", "1.69259"}], ",", "2.93165", ",", "1.24038"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.69500"}], ",", RowBox[{"-", "3.11201"}], ",", "2.93165", ",", "1.24038"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.69500"}], ",", RowBox[{"-", "0.98288"}], ",", "4.16091", ",", "1.24038"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.65331"}], ",", RowBox[{"-", "0.92392"}], ",", RowBox[{"-", "1.60027"}], ",", "1.36546"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.19684"}], ",", RowBox[{"-", "1.69259"}], ",", RowBox[{"-", "2.93165"}], ",", "0.26515"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.70237"}], ",", RowBox[{"-", "1.69259"}], ",", RowBox[{"-", "2.93165"}], ",", "1.24038"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.69500"}], ",", RowBox[{"-", "0.98288"}], ",", RowBox[{"-", "4.16091"}], ",", "1.24038"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.69500"}], ",", RowBox[{"-", "3.11201"}], ",", RowBox[{"-", "2.93165"}], ",", "1.24038"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"u", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000"}], "}"}], ",", RowBox[{"{", RowBox[{"3.59053", ",", "0.00000", ",", "0.00000"}], "}"}], ",", RowBox[{"{", RowBox[{"4.27103", ",", RowBox[{"-", "1.92476"}], ",", "0.00000"}], "}"}], ",", RowBox[{"{", RowBox[{"4.27103", ",", "0.96238", ",", "1.66689"}], "}"}], ",", RowBox[{"{", RowBox[{"4.27103", ",", "0.96238", ",", RowBox[{"-", "1.66689"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.19684"}], ",", "3.38518", ",", "0.00000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.23836"}], ",", "3.38518", ",", "0.00000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.51634"}], ",", "4.34756", ",", "1.66689"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.51634"}], ",", "4.34756", ",", RowBox[{"-", "1.66689"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.19684"}], ",", RowBox[{"-", "1.69259"}], ",", "2.93165"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.23836"}], ",", RowBox[{"-", "1.69259"}], ",", "2.93165"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.51634"}], ",", RowBox[{"-", "3.61735"}], ",", "2.93165"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.51634"}], ",", RowBox[{"-", "0.73021"}], ",", "4.59854"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.19684"}], ",", RowBox[{"-", "1.69259"}], ",", RowBox[{"-", "2.93165"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.23836"}], ",", RowBox[{"-", "1.69259"}], ",", RowBox[{"-", "2.93165"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.51634"}], ",", RowBox[{"-", "0.73021"}], ",", RowBox[{"-", "4.59854"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.51634"}], ",", RowBox[{"-", "3.61735"}], ",", RowBox[{"-", "2.93165"}]}], "}"}]}], "}"}]}], ";"}]}]}]], "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 .05404 0 365.73 arc s newpath .67817 .5 .12413 0 365.73 arc s newpath .25433 .80774 .11276 0 365.73 arc s newpath .82641 .5 .0241 0 365.73 arc s newpath .43682 .87226 .11276 0 365.73 arc s newpath .87203 .37096 .11276 0 365.73 arc s newpath .43682 .87226 .11276 0 365.73 arc s newpath .87203 .56452 .11276 0 365.73 arc s newpath .44061 .41601 .12413 0 365.73 arc s newpath .87203 .56452 .11276 0 365.73 arc s newpath .3912 .34613 .0241 0 365.73 arc s newpath .44061 .66798 .12413 0 365.73 arc s newpath .25433 .34613 .11276 0 365.73 arc s newpath .3912 .80774 .0241 0 365.73 arc s newpath .43682 .21709 .11276 0 365.73 arc s newpath .43682 .41065 .11276 0 365.73 arc s newpath .44061 .41601 .12413 0 365.73 arc s newpath .3912 .34613 .0241 0 365.73 arc s newpath .25433 .34613 .11276 0 365.73 arc s newpath .43682 .41065 .11276 0 365.73 arc s newpath .43682 .21709 .11276 0 365.73 arc s .5 .5 m .5 .5 .00727 0 365.73 arc F .82641 .5 m .82641 .5 .00727 0 365.73 arc F .88828 .32502 m .88828 .32502 .00727 0 365.73 arc F .88828 .58749 m .88828 .58749 .00727 0 365.73 arc F .88828 .58749 m .88828 .58749 .00727 0 365.73 arc F .3912 .80774 m .3912 .80774 .00727 0 365.73 arc F .2056 .80774 m .2056 .80774 .00727 0 365.73 arc F .45306 .89523 m .45306 .89523 .00727 0 365.73 arc F .45306 .89523 m .45306 .89523 .00727 0 365.73 arc F .3912 .34613 m .3912 .34613 .00727 0 365.73 arc F .2056 .34613 m .2056 .34613 .00727 0 365.73 arc F .45306 .17115 m .45306 .17115 .00727 0 365.73 arc F .45306 .43362 m .45306 .43362 .00727 0 365.73 arc F .3912 .34613 m .3912 .34613 .00727 0 365.73 arc F .2056 .34613 m .2056 .34613 .00727 0 365.73 arc F .45306 .43362 m .45306 .43362 .00727 0 365.73 arc F .45306 .17115 m .45306 .17115 .00727 0 365.73 arc F .006 w .82641 .5 m .5 .5 L s .5 .5 m .3912 .80774 L s .82641 .5 m .88828 .32502 L s .3912 .80774 m .2056 .80774 L s .3912 .80774 m .45306 .89523 L s .82641 .5 m .88828 .58749 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{548, 548}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnVlzHEdyx0fESRK8b5EUQFEQxVMURYmXRJA6IWl17eq0pFUoNuxYOcLh jTXe+eCvgUd/A/vFT/go8qM/g19gdM5M5nTNrwrV3dXHQNOxhGarq6vz/++s Kysr69NfNv76j//yy8avf/ll5cO///K3v/76l39b+eBf/76TNPNcr7fvpezf Si/7vd3rDf9s7/yv/+fl7E+WvFvCj/Kf2d5vm+u9/rXe2/xt+x8keb63vbXR y18bva3t7e/Gntp5bvO3H8JPed71YV+Sn+Q/M/LwTlny/34YpPUfkEJ6fdHm epsbm70Blp37/XuU/2cod/BKRbm91ctLLIL9OPKklLe13ftu9JF1k2Brw/vI D+G3DGT5ynkyu/bJ33kppf+SfokDKF9HPGL/tnpbW9u7iK/foJ975BvMui9f 74s9vNsHt1PI5kZOE37b7K3re7IsI/qz8w3X5bWjt+yj8KOeF66PqvNM/+G+ UoKKS/r3w4IGWQefy5P7Jyh4PbaStZRwvJ8wbB5OZH+eG7m1A6ffbPQ/9Klp 2mSkPTf9kHsjbbcP+T6k/ZQ47f1igjyDwiiNXhp+dirIVJCpIFNBpoJMBZkK MhVkKshUkEKCSFlNvP5dfVsneZgKMhVkKshUkKkgU0GmgkwFmQoyFWQqyKQJ ImVNZzNTQaaC7HlB7mZ/j2VPnu2KSLeyv/PZk8f0F5XXinDXs7/y6EX9daQr wr2iIl3WX0tdEW5VRbqa/RJvoQNdEe6yinRLxVzoinCXVLjX9ddcV4RbVpHu 6a+Zrgj3Ajz7QP7O5tJ2rp/bkO+CUva2ql0rgjyvgjzVX39uQ5Bz8OxTJy27 WlEn6iLfYXX6sQ35zsCzMsbeaS5G04Yk/tCGkKdUwT6AUvZB2ndlxVwcfBvH 63e+gvQn4VnCQU3gt2Vx7B8WOeJHXAXECXj2Q0ibhbRvyoKYV7HRF1luSzX6 bylnZnDzmfxbh7Q5SPu/7O/syFt7hdyaqcuPJfUYPPsRpM2r/n9dlsoF/To5 R+Qq0h+FZz+GtEVI+2O1+pn3bK4Cggbin0Dafkj7siyIKm3hYXj2D5BG4+Qv 2hD4EDz7aZcFpunPZ5B2ENI+77LA4XwNChxmboIFDut6gwKHK5OlhVuTBgUO t6+WFm6vpwL7Cwt3w5YW7tanAvsLo3HI/eyvjC5pphUeADYoOk0NxOohs8DT Eym6WIFpNwu9bb0N0ckiJ6IvTKToD4Osh2eQU9FjCqPZ9aPsr7eaho0PLYv+ zVRgEljKihUzbDWyNNLr2HckXXRvQuCkijBxAocNopZG7cV7U4H3hsBzuTQp oDdqvp8K+TsV0r/iMxVyKuTvTsjZXFpvdBl2Kt9Uvql8U/mm8v1OOxEpq23R Kk6+J6IT7riQ4kN5PMt1dhLEvZn9NR/oEW/ojgsuntLi5/KC/jpaUPBW5mDm Rf2i/jo0CYKvqrgG4cAkCO54X8uvRcjXaUuNeWnf0V/zkwZiBfLdhbSZSQN2 UWvEff21D/J12j58XhXrsf6aJPmfh3xPgtrVQRBhD/Vnmt7pNbIzqj/vDYQd 3h1c9Ak6I72/BeGOjlomAhO7NCyzqqUs19tlIcSq7j79PL1RSFQbYqWXZ+dG vvLwpnhByQDzXllYsergqldVTF+q6NTlHta7r5UFFiuIW+uzi1Qt1vdDPCQl 2xLcPal3b5UFFiuIOFrsqwrnExX4CNy1VulGWTixnkzkhd8rXMpHWspxuHtO 714rCyfWHY681f5UAdg65COINiJ5pSzEWJ/K1B6EH6jop+DuRb37MgKT8glO rBPuor6AvlMsKe9pKWfg7rLetZlswa8T6wS9X19F3yQWzjtayjm4ewlKuVRW 7WKBpXa+djczZv8I7ItKRWmIsR73B/RV5PMcC2xNS7kAd1/Su8tl4cRu0Tio r6LvFPvdH0M+AvayL18ZiLHbZlwqsqvKnou3Id9FyHcF8p0vCzZ2F9aSfk+C GKsVj7SUFbj7CpTyfN3ADqlItMEnVhceQj6CeBXynSsLMXYboFvbsqvKfrEH kO8S5LsG+c7WDfawfk+CGKsV9yHfi5DvOuQ7UxZiePxo+Y4oRDE2S+AYmo3H UnYP8l2GfDcg3+m6wdJIUpp28eiXofSc/ipJwJuQ7yXIdxPyFTzIwwqjXRZf QT4CJrVIki4qAdTNhLc5vwFPrEK+W5DvZCOw96lqywOLqu5LmkY1mvYjEAFk VH8Z8r0K+U6UJSBWOPe7Z5fNehb11zH9ZaQQybFxBF6HfFcg323Id7xuUtzy ssuaQylFTExn9JfNiYiA2AgRrZAS+8WoPEFsg/BZVQ0LSmWTXzLNxsYAuQP5 XoF8r0G+Y3Uzc2KgXKP5hmpj8GeUEguKZfWLVOT7SIBXIR8RdrQsEbH6S5ZT +sIzeVJoOXi44DXkMfsvxbCJ5YOq1pE2+JghdFp5nMy3NfO8agotr1CDcA3y UVd0uG4WaKHAKoPx8QZoxT79RR9/4mDTEs+QiAf6y1F7Y4MaBBo1XId8NAw7 5HKggXv4aNXYQETFKOKG0/oSLzHUnVP7TCPLG5AviqLhjGL08FeaAfhX+Hbv 7U5B7QjXkwX9RQTQjOIm5KMZypJLgEbyGTl8Vl4vav2RFDgz0Jpn8u9v8nc2 l7bzbyD4eP7bejcbWz2b8eX7d0j7J0jbn/0tECnK/sn5tLFhimK/7gn9uvSE 9X5Us+ehAelx/EqagtLc+hbkEyGkXpJ15aC32eDDdP3Nxm7OanbvOADPKf+B 7Jc5w+0PNC3EFplnCrEl0wAyvI2xNQzp5Zz961ezeJaOBViyWfp+ZSkcO5bU 09aGiTEyVL0K+QTrgk+/DriM+bvmeGqODl5MCjH8L3UoS/pxbbZHa1zU55Hi k00+ljZTtMZoOxKoR7ETOlpWknxmUfKGcKBRMdFK6zrFaaUn9tdH61g7PhNg +7jWPKk94pN0HkQhJaY0YozU6jbks/6B2shaGDvMjM0GGKPpF8lrLSNpFi2A xvJk4yLqzBfjeQrs9rHkQ0yRC8pX1Uj5aWRLVZJW+AuRJNloPpeapCUmyQbQ tMbhbRciqCGHFBonvAb5jBqycywkpuYgU0M6QCR5+6QIksgxKZYkCyfbHEn5 2kSq0DmGJBuZBaswJPt9pOu8D+89wApFdC1oQXTXOwuJII58E8kH4A7kM+LI fjhflTgZjd6D9+5n4khXbChN9TSWOBogkM9rLHFS3mwdxMlS5KKPuEV9KEcc QZ7XgmKJozkSaVxl4iQbGS3r07iFwdtHCxo8iOwVVzvyxiL2yIecnJFeh3w1 s+dt6Bb0oZzakcIUb+ho+kTEkU0qljgpb7Y24kSvHsB75wNq52VPslNbGMse tXa0La0Qe5KNTMhV2KMRyFyAM/Mzix3Gki2DtCsNP2RhnquFn7HKaC5bVagh 1aH91bHUzGjFa4Ka0Gy5OD/kNEWqU5kfyUb+Y/XwM6Y6riJkFy3vkXGBHKuI pHe6QFK8OSZkqfKYarrE2D6tdg0z5tGtgMnPeS2t5VE+YuwpiFWIMclGXqvM mOQpypNnGyQ1NmRspkY7NWe0EeCuD4qXM6u1CbWsAHu2emwufWSBIzMqMfWk EFOzLqTZYrpVmCe+R8s23iGj455EU9uGyJJM5CFfK1mx9U1G6TK1pvEw9QNE 0Vr7FFHdyuf7Dl5eQK3eh7R6+HEHOlNyvORIDtpr0wQ5sXWMyKFVHSJbWtmD Wcoq3G2GEr+PWBQlpC90OF/smrKYzcUsswBCbA9sXXTIqEtXX8Obo8t9c1qu aL4rc0EZsR4CSW1tmMKnEFvSmT5qg63YykZs0SyZNMt8kmhX/SG9S+V1ny3S LTpfMpatVeWDtuof1bs0zhpla3g1z9YwvQm2bK//WZBUOBICaEo9Omwaud5K yZV/B8VcjquhhpGcVfhZVn7Og3TmZkt1Xkb3s61TQjM3CtlBlFDjbedQvwDS ndW7tFzzuhJGu8hLU+LfltUMJeRFReTYydm0ImbkkL4UWAQoQo6lDckhVaaz aSlQKOkmBXJbBjkvQD5aGrwTrFalafJv+GyGJqs4tIHbQsx4KfFWq4mlhPIR OcuQj2R/LVjBCnix5F/v3yIesm7n89PxyQSfKvNJ1Q3aFb2id4mS28HKNLGU 0OCOyHkR8tHw7HawgpWmyb/xP7A46+SnM6tjabLN67QV9jI8QeS82jQ5vDKb kBcaHxBDL0E+GrXf0lqWlCHy//hiRH0cKwiqD50gHksTtfe0dXZV1cxLTj8p /xhNuhrjinxHKFJLLFekorTT9ApruNUxJz/ZiNjjWfLEBpL6vEFqSC1pA6rr AZddVrMieDFnzATRxD4LMOTPX44hYpz2n1pcgFyl6ov1zFupCnjI59/n1wTm xa9p5XixYHS0K+ea3r3pY4O0pMDmk/z7/M0rs+FvksqxQeURL+SJc220Hu1Z hmhIQRtK7DiK66o5FACeFpsLbKLLF+YfxDA5BIZiMqYm54aScy1IDvnFjG1l rRL4dXSCMMxLAwyaWlLg0ViiaHJDmyZc16TsekXrWe2U0SB2dDYeooyG+RR6 NpYymnqS87rrZ5NdV1TL6CCJqIgDVQJCj9oFQ5RR2leQFksZpZFb1c2Bjo/m 6w0iETfDGuUbtbnnWeOZLcVzj2WK6jctQd9ipmQSN9sIU/7A8PH7o8OnvjfJ mTw9Cw9FhUGpfkpAeCu+xOT17gon7qiRoobwDZDyVebJwiPUzpP/kAiO5rCW hB/S0DdBOtctMLte1IpH5CQNuRQ+BGRciYSchabIcXedZtcl1Zw5eCJpMDL3 fJf5nCAjv4urDDU9xAptKCvOStKQdd6jeyxwknNXbHveltlPD6vgwwiA2bWs tah2SrxHMnkpeazfizqmdJSMNbwv6IvpjJekQR4DB20NH61yRpUnYNMjkMRt FbLroqoHEZE0DqitUT7UX6OznIbZcDuQ7LqgarEATySNn7sM+WgwGcuQTL/E JZpGRJ4ta2+BYBb9LcxG0nDKK/rSu/prtL0aPk/j0s9VTNpdtT3oksi25NEW YuVNFet5rTHEStLY2uZ9ZfZa96WGO1/epyow2SMsGol357pTNd4G+cgeYTG9 6dTNpLHXbd3oqr70gJPPR8/H+gQZES3aMt2NpYfMf2fyH1KCLNFCauno+2YO sWNSXC/a7PIGZLANO85dC8NMg1nTqMcg1X29e0arj0Xo6vnOjiOfHz56QfIQ H2aEtD7fgmNZPo+ekGMukUPNS0zEtiBhTr7Tyov3YDp54Cy81/SuoD75z4yO 4s8OlSITrW0JplG/p3kmuh44WQfXMRV5Pzxkd8mwV/rIFvdQ8DGeqOrZ1IFk cW212eXa47NrzUvNbluybb8qMWVTQFqFKH1qT+iMdyJpDdKILkpze0EfXQ8D dFEgerfDyf7R3JDWNkuf7VSUODqAit5lDj+egCN+xnyjVv8X6L8gxKP5w1I3 fLEO9qhrI9c3MtUeZc6oyX8SySN1Ibat1wKTEXs2fJ9VHleqcZZPi10ZKsYf Vz1Xq4uQaPB1oNG/LE7tQShqmR7L/lv6EL1YEqkjJWA006Nu1r8eNaassZzO KXUHgiTaxO5ySta89cJJox2oZDfwB9yNX3mhcQm501Cchu3RZnfWR+YLmo/e n7RuE5mkljTHIYL9MabGVJCwUb9D3MbWJut36Chk28Jiu/KTsusVyUkjgxBZ Rf3GjXyLWYzawIEzUoR1RERirZ13vXTSBG8xQAmF8HhLyRH4+3002cTMzqZM Sk7x5V1n1lgDOXaApmmTyOQcAWdP2OnkSedqTRBGFjaavMVWTrc7zi6LMC0l L+SrnT1rp6xRI136CE+iMfbwNlqCIgsGTaDclqUIja7JYPC8DRal8Fkqsp+v xwvT8rnFqkDTwNIHhxLF3hmVk0brWUSx1xTqGa1QgKz7gzrk5Jf/T4MKG4N7 hxxiS1nx1bZUZMZGIqc1MSKTyiOC7QQqopNM7CFHqYNKJ8lOKxZJTfJEbGwc c1peiyWW0iz8FBFLYwFXKiXUWT+nQZaVnHQJKJZQEo5W6IhQ6zyoqwrTSD5K Nmi2uF/UVJFDQtJVRSKPuhEij6oFNejefQekW3uHxtgY37SZgGikBoFopFHF E5DPG2WY3iHVO9z+W8lJvQBiqSXRKRix9IjSM1BvGlsyEUouZd6VZW/4aSI0 ysmk8JlWu/McPmnay27f/S1vEfRGko4glsa/pIvFiY1yYxrGZd/c2NRMm+v9 Ywdjj2MkdskkQZRQeFAZfvxnEahRfmx6ilx2cty6wd3aWO9t/tY/RU6+qfw5 UfDJkjx5wxs6aauQJjz9V5YS23hFec2qSqwLut7ISXuVVIJ2nJjbgBegTGap 6aI0qmHUwBQ/6aIinbP9wwt7/Wsj/tRHYpJsICQzxS+wLoL4o5aMOKVekMrb r2+L5TSp13sseebwQ5SJGsoggegxux2N7GgkZk8saclUsWhkVzs99KxtpKVp uAws530aZScGED00WbInDik94S1QVl7S/ThEj8U8I12g+I22qG5OFtT8mDNG IaJG0vKUhd2PGqSMTI22angR7h5RKgSEtB80FLB8RBlN4TxH2JnzVCxrSfdi Emun87VACiEPe5sc2pqsMzy1Ua2d8ViMsEC8mVl4Ibl+1k4YmTaMOrLMm+3R liEcJNTulCUxn0Z26oOg7VZy0u3kxCBNzI8oM+RtYCEzbCLtMGj2o5Nc92iB iMwGtITsneWaTE2TaOuex/Vrkv+exbeV9JBR93R64mwB3EZopHPkQFE6vgPR ZWvt0k2Ird89wHzMr/N0gKwqrNhsxI7NsU6bWrXa+TGfD4omdTQvpnlYRzQ2 a/A2snrQDNVaTjtBlOiJDz9Ukp4VhU1e9NZ4DaYaIxd1F1VoIn06qZ+HVl5q J8f2j9Cw/Uhed5y7saHeiR46NpS06JRKQCOs2umx/SM0bD+swhHs2LDv5BQW S89p/XxET9LwZ0QPWeZoQ4YNWogA/260ckRRNbM9JTQlrJ0oC9pCgX6tgezl vU/Nkdx5gnxjyTxAlNExoKRbZ1VmssEkjZxLlN3Q19seiVxXbvo0k/+uzjCc 2gcnjbZmxdJ0TuWk4B+10ySWS7FIinBm/feS4jVuJSTleZWgFVJkInnEV3nM gzY2cifZYogeag+pPNsgSjGcaqdHYoKZM7HTf4S/LJm0aDcsUUHlXVAqtO17 5vBbEwti1Drmw24NC92lLoZm8LHMUHm2GbE0M5Inlg9ZC5RG9Zj+8m4L8Bqk zXBNil+ZDwrUSXwUONgusisSPs7nmZnROkQNhrBAPTXFGohlYVlZWIO7cykr iG2ZlnnlvA+sNSI05I0FS9XHgrXUDtainV1VhsPb0cgURvFFCoGV99JevKRg bd+3qLZYVGjcHguHOoXLCifpQR3eSawTtNYaAGrDLkEanQ0eC9YiwCU9qCVs znhVX2o2VjJxEDA6h46ArQ6UPnt25Kodpdm07MgFW4EllPcro5zJoUx/alPY tvl6HudIedlFa86xiGnJ9WXn2X6V6SU+MS5s/L6r+stOz70e1lOK9FUWtuao Hbb3IDpJogmGmWuXK7BAJV+BZ9Ofxhm7APdGkAWawNF6MEXFK8ZHLacB706J LeLe05d6PZBt71dJ+FTT6FyKMkdtlySABo339PVUi2lcRnY1CrNZmZQUJ7bv Tor5kDzQl8bsEvNRQZFZiQoqjw7ksMUv8g1JSgU9+0D1g7pz+p5ECgVDJlJI 3+jkDZsb1E4KGfEeBkmhNoVIoaDaRApN/unMjVnVFO8OhjpJserjDVjlpJEH TWpS5lQq8g9NSgqZYUxTaCJKRBEpFLGeJkzUhdPZIxarhHYSJCWFLJGPgqRQ GpFC5x0QKTa6owM2pMUROxN56CelgoxMj/RLEGx6gqggYFcGAEbzCYQcVIcI sTyRi3ZSIrz2W0ki0N6VDyftFrzNc0oTNTSLygF5Cie1iVPVfzvIgXd5w0m7 CW8rwIE53tfOAfUJb2uFIA688QYiGj23bcguGpeUUQLJUxm2JJGqE2waUcSc xJX9C+s+eTebO2tN2z4t+jQRQG8jAryntJkZhGDP+b52UtcEGiw/VnUn2LSk QbDDB/n18j6gpPO1u2V4sUsSNW2EnSznVc56pH6wdipo4rcWpILcdsycWeU4 0FYIoEnemtYDIoAMF2SbWYW3kT2XvBFoOFm715t3w68kUbNPIZIsmDsRsKJ3 Y08Nqx028f9ENSAW9jKkxR453X0qJIlKJpfiZf3G4QPJadRJk4faPalppvq0 MGxatFiGt9mxDzSo7AwBVgWoZLLoX1JgBPuc3qVGlWDXviGDOiH77tTnE+zL CuwivMMCJFN5NEXsIGxaxTJngvPwjlN6l7pLgl37LjAacz1VJY+F/bI+cQbe YfMvaiEIdu17LL2wJYlGczSHvQpP2DtsNwVNCMgGUANsDtv8XmGoN/SJY/Au 21RJPTlN9RuD+q6qZixUaXW9kRXNGknDVoJawxb0AFQpgpoX76LP6SyFbBBk q6gBzFjA//cK41iDwslGSsaHpCfjeRCZElZBROZvsiskPc4uhEiepnE/WQFo +0UsoqTnrrn9QV7lvLM3J41c3klMmvvXDsf0rQk4Sc9/88LxDiBi4VC1IO+f +FPcJM9uIIbFvKPfpAoIaq3IkYsCzlg02wrfJAdHHqXhfywc6k7IQlJbgL44 OLTh0XvsGU0JnHy1xbwc5rUhfBU4NPu4DPlqi4magyOP0uxjQuDQTKMKHJoS k22JdvMnCAVMRpEqcMiecwny0WbyBGGiHTiSRLODZUijbR12aCeBoK26CcKJ pwbxloJYhru2bFfxZKZ8vjVVpyqi076RC5CPPJfSw5EkGufHwlmDfGRiorCA pc9H+HEk3zD9SRI4TyDf85DPzIgrKUGYilUB8VSFI9HJPJAexIxWv5Ig3lUQ Z+Huit4tfR5RfaK/r8Kdhru2a2Y1pejmDlBF9A8h3wnIZ2vIV5KDkCQaqMeC WNdSjsNd29tytXuif6KlHIG7dsjM9ZSim+NUFdE/U+HCB7/cSi66JNFwLlb0 L7WU8GErr6UU/S1lvYroX6k2U2gii4d4N7nokkRixor+Tfb3bJbrniucBmre 2ujlLwlfHBu9uD7Zae3mfRfF8Iv0Y533Ay+T90DsiO2hakztog/FHH6Aja3R kBz/IQ8br9m/h9lfSVqBu8uQ9j/Z39mRlw4rXxaoemtre6gD1fgaiFQzX6qw WXBojSyu8baroLDNEbWjSBad35FeksjjInYOHiV9lcnQhIh5X3Whg2KaWey+ skmTjVbEdE/z7rzA/gPb86LbhlQSPdbenVR0GZxaQD7HjcgRXYojp9NWRH8l rwjy65CTL7s6KPqqimQg3Mi52fWmKkxnRDeuLTaIO5xV0eUuuWm3IroZIu7q r75j5tjStIVSIOljl6aTSk+jB1or2hdAJDnJvBfrPpAUkTmsmqF7cqQ3b9PH +svjVHNHtakz0pNZvG9Q5b2Ed/QDkLHbX1qNEGih6KlCeJZL7ygE82EV55He fG+0CR0+3Rts1pztlOzkFdJHMRb4Y59CkOy0fdf/MWuEQI5UlM/ZW9wtEOSS +AHkI+dkiwlLcGjZn45fSAqH3IU/hHzkWX9dvw65IqaHI2URCAK77gNhceO8 opO3z7uRopvjU8EvQRt0PoJ8cwrimqpTahCl1Ym2RHzsAzGSL7vMNZuW2v3t X41waPvoJ5DPNWLpN+kWHNqn8wfI51q1ssv2CxCc2KY9KRyKePAp5KOj6G1K SM4psY18Uji0jewzyEfx9SxaJcGJbeSTwqEN+Z974YxFUbCJLzlDdRqRuxN/ dzixHVhSOBQw4IsI2Nm1ovpGcGK7sqRwaDP8l0XgSBI5EnYajttqZNdyEE5s H50UDi3u/RHy0YF/F1XZCE5sH90KHDvx8KJ+E/Ikju2Zk4Kgxas/QT47g/BC EERsf9wKCNJ6O/uC4MT2x0nh0HLoV5CP2qSz+nXI9z629+ogHJktyFEHNKmM 7ceSAnMnMNm/r33AzFdvf/ZL0pxVKysltuFvBY7Nw+3oJmvZqCmObSmTwiFr xTc+OONjT1tWtIEBtQaxbU8r2GiI7By2agFhzWk3HLuXXpQUHZnNvo1G51E/ W3qSm3ZWgveEhAh+OwObnrUvZqdbXM1TQeTJ3e8rgZVSq0CkubedsGq/FlV5 r+fvepZUfoiEVdqAVwWgKacdG30LwAx/C9ofIxHVrpVeRHaoqPyyEx/+XLfo 1BZ8B/nIcGVVwQzGdkTF7a6CYLVfzIMxzRpZ/7U3ZBdBaBHWWO98UKXvwXGD N/J4xx+vodbwMjQ1OBYtX9rlg9mva/pd5gPfMbb5qkVsi4JjB61bjEezpfJB GHFfuzEwbmuVXdQjmlOvo2eS7YLCp5FhbMvZGOgTXBlosGMnxdNdgXxCqaGJ W0MjqHjwxwP1ir5U+ABKgXciS6HOI3YmVRH8mMsONWv0cUKnsNsJ94SCjG/W HLSFkew6rgJm10H9pjToJyt2QzPXKJQ0s7Yx/lJhbA0ZGaKwke2T7EamnfRl aN2rIctQFEoyjnqPXvR2pl1CKR7MYiWhk7yoV6TvZhHyY/E2ZMhkvL8W0b+G LMhjkopF7p8nQdLinDa0yFBQ26kOUpqdAxCLt6GVIcYrwwQ6f5Hqqveoq0J4 G1rOi2qzvSit1/UeJEy9bpew0feww48PKTYaCRK29KvKUlYyRLbftwlEBYyI UdhopEBL5fbdvP6nTlpDzg3xkzWCuqRM5WavhxUtGRkmAi01HYe0jPEpmqlx L38ABS35NuRWFI+Wqh51cPQ5D+rH9kb7m0SotqBh/QlFAmzI4y09QJummil6 MEMfuSYCMhm2qE+XJmxR66h8U284RCetdjfTWHssgaXve1IhkhPNnoB4SiFS n9JpiDQMIJU1dw6C2Ip7d6wNnfLRVzyjX5FGe3sC4lmFSFOrTkMkhSZFPaeK ShBb2VZRBaL3MErvVos9AfG8QqStS61A9K9a8QCBphLmH9sZWP71KIZFs15z wKZ9ixML6wWFRbt8W4Hl95dlWNRCrqgSEqxWtgUmg+Xd1T+xsC4pLAp9kRRW 30A2GsNqvbf5W3QELr+3K6Oldv+y6mbtaDVk2tZGFqnL+8FqheoNJpMUqoZY k7Bqo5d9YJHkcylnZnDzmfz7GtKWIG01+zuIpjR+9wyk/a8+4QRRyyLnZWHz Bp8mNoiaf9F6zIZKq0RXVPcoHFTSDzIE2v8gOx9hs3Gg3lBoNTQpM/3gfj0J iYeVh1D6163HUNLy5FVFuVI3yuo7KqMQmSNgZxD519rHEFHW6/qNlruCyL/S PYaIPudNRUSh71pB5F8RH0NEDYs5ZVOUsElEZKFvOoPIv4rPAwpqQ1/TD0UB 0VqB5V/QZlg0/npdYVFkro5FMWFYNBl9Q5WwM7D8i58MiywiFiKRomC1Asu/ 9MewyJZl0WMpqFQrsPyrXwyLTG8S6E+clsia0Qos/2rJAsIa/lfCVYonEZmx WzHW+O3pHJLtcfcg+F/KSvZEFaozEKKD+q11T/bdItgN06luS4WY89XtVuDY +SFP9Bd1It91RWA7q8WOzeoN/Wr62Uj+byGtlcU1moP03VPJe+gZDlQ6A2ZZ P8GboD2WL7wWVScIKYuKuKQC39Ff85AvvDPK0qq4FJTev2wxAGx/6GJLIEor 0aqKbuEE3VDfnQdhlsqXFI4ban17e7e9ZpbWSrQ0sWZJd3tWf9HJTZ0GcVtF X9JfpyqAaCXQmzSnmUkfjx8Mh+hpWXQqLBx1xdJaCdu2JwQO73y0tFYiye0J gcP7Ly2tleB2e0Lg8K5IS2sl8h4VFt7WaGmtRNmrInArcfSosLAgvUhgDQoc /tSW1koEvD0hcLj2W1orQfmosHD7ammthN2jwsJdbgcFDo/CLK3W0Be7FxYe jltaeGZSRmApK1bM8KzN0qrEjClt8aDCwhN+S2sows/uhVlsJhKzoehLuxfm X2xqLN7V7oX5zyxpIozY7oWd02/9jup87eHaqDA7jWtNf/3chiDk4fHISWtN ODvj8YH+ogrZyidcUZHe0F/UCrciHHlo3lYxyWTViphmMqf9q50RU4zi8qgZ xWlE24pwdk6OOYfTTK0V4eyIq4v6i4bgrQgnyzTSe1rAaiqvFeHoVOGWRfpp KshUEHxBmrQoQWhVeprWwbTph9wjaWMfUmYE8ufEyK3t/q2df/1tkzs3/h8h Ob8Y\ \>"],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 .04954 0 365.73 arc s newpath .61549 .5 .11379 0 365.73 arc s newpath .71157 .5 .0221 0 365.73 arc s newpath .82479 .5 .10337 0 365.73 arc s newpath .69933 .60244 .10337 0 365.73 arc s newpath .69933 .39756 .10337 0 365.73 arc s newpath .35262 .5 .11379 0 365.73 arc s newpath .23 .5 .0221 0 365.73 arc s newpath .14129 .5 .10337 0 365.73 arc s newpath .21775 .60244 .10337 0 365.73 arc s newpath .21775 .39756 .10337 0 365.73 arc s newpath .51595 .63336 .11379 0 365.73 arc s newpath .52921 .7443 .0221 0 365.73 arc s newpath .4405 .7443 .10337 0 365.73 arc s newpath .64242 .7443 .10337 0 365.73 arc s newpath .51696 .84674 .10337 0 365.73 arc s newpath .51595 .36664 .11379 0 365.73 arc s newpath .52921 .2557 .0221 0 365.73 arc s newpath .4405 .2557 .10337 0 365.73 arc s newpath .51696 .15326 .10337 0 365.73 arc s newpath .64242 .2557 .10337 0 365.73 arc s .71157 .5 m .71157 .5 .00667 0 365.73 arc F .23 .5 m .23 .5 .00667 0 365.73 arc F .52921 .7443 m .52921 .7443 .00667 0 365.73 arc F .52921 .2557 m .52921 .2557 .00667 0 365.73 arc F .5 .5 m .5 .5 .00667 0 365.73 arc F .86509 .5 m .86509 .5 .00667 0 365.73 arc F .69496 .63891 m .69496 .63891 .00667 0 365.73 arc F .69496 .36109 m .69496 .36109 .00667 0 365.73 arc F .1097 .5 m .1097 .5 .00667 0 365.73 arc F .21339 .63891 m .21339 .63891 .00667 0 365.73 arc F .21339 .36109 m .21339 .36109 .00667 0 365.73 arc F .40891 .7443 m .40891 .7443 .00667 0 365.73 arc F .68273 .7443 m .68273 .7443 .00667 0 365.73 arc F .5126 .88321 m .5126 .88321 .00667 0 365.73 arc F .40891 .2557 m .40891 .2557 .00667 0 365.73 arc F .5126 .11679 m .5126 .11679 .00667 0 365.73 arc F .68273 .2557 m .68273 .2557 .00667 0 365.73 arc F .006 w .23 .5 m .5 .5 L s .52921 .7443 m .5 .5 L s .52921 .2557 m .5 .5 L s .71157 .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", "\<\ eJztnelyHDeSx2vUJHVRl2XLh2x1S9bhU74kj2RrLMmWbfq2Zc/MZ8fsRszs rmM3ZvmdD7J8F37cfQs/CpeV1Z3Zhf4hiWLXRak6RKqJAlCZ/8SRSCQS3/26 +fd//e3XzX/87dfJl//89b/+/o+//ffki//8517S6A9ZduRq/jPJ8u+7WTb7 tbv3r/h1Pf+VJwcJ/yH/rWS/b29kxWcj2/599ydJXst2dzaz8mcz29nd/XGh 1F657d8f+6V+4XcVpVb3fu9kVk4eZUcKKn+T/0ZS8d575K/H07SiMnlBNqtq e3M7m/K593z+WTn/X6P1rmY5D5s7u9N6drKdHSXn32Z8lihWqn+eq1XetVfy x/kiG0bdzma0yM/+W34KHs/oz9HdKz4l9V+CivPPEfm9ptwppwUK3yYUsR8B Zh/ufpnVOIUx/+vnaWMIXj5LzqW2oc1ke1Rw8+/TpwXPe3Vvb5ba3e/be4W2 lbLN+da61yo2ikY19yj7yS/6M7+wJK5pqZX5DjUqKpyKZVZL0F1+mpWbZp0K PpL7z1DxYo/K5mS/f+/vKOGZIiGbDlNn818rc4/2uJSH01Z0voW0rt470Kyj 6iD6p49mR/R/hrRfWsiXRNIWVLGV+CrKR/UNJA0kDSQNJA0kDSQNJA0kDSQ9 ISTJkzYIEUuCmG6c1XUfEBlIapqkc3nJL7olROxdq3nJs/rtYbckfZ//HlkP KddyXp9+0i2ZYpKVjnwUarmgZH7cLZlfKSHHoZYXlYm73ZL5pRKyDrVc1Kd/ 7JbMz5WQ01DLK4r1rW7J/EzJPAu1TPTp+92S+VAJoVquQNo73RL8AMpSfa9C 2s1uSf9EsX4OarmqTzsm809Qlgi+rgS/1S3B96DsBUh7DdJe75b0j6Hs8y6Z xE4npH8EZV+AtDcg7Ua3pN/RlnsRanlTn3ZM5h+hLBH8NqRd7Zb0D6Hsy5B2 E9JerYl0eZJK8G2o7JWaCa513XkLyl6CtHcg7UoiwQ01jg+g7BjS3oW0ywPp ByT9fSg7gbT33HydkE4kXYY0YnF8OEinhnWpW9KpDdOCoIek06BHCwIaRF/p lnSaYK4+WaTTXPvy4SCd9JqL3ZJO2t+1J4t0UoRf6pb0t6Ds9cNO+kopbXdq i6ZZ9cVDw8Ja/jfNwh2z8CaUvQFpR2MieKGv9LMIesgCWSZee2JZkL5MWsPz NbEgT5YnvJxGVqZUgmtdb5MFjtKWIbihRjKQ3gXp1Jqp1ZMJ+MJA+kD6QHqf SKdNpucG0p8+0klJJ2V4IH0gPUq6KKRywI92e+9N88ynzfKv9IuZgqRs3neN qv9Yn1q+v7ZHtdgGpOhL+u0M1HdHn2YjZS///4JKZCub+9C7GmLB3EMC0l7R B6eg+g/1KXnyPTfH1lxDk/yP2+PtssI+glou6dMT8PQDfboWZbD8tpGW+KEa i8emaAUH9em9qZyPFW7yYJzo02Pw9D19Sm6FxPmalviuGuezF8wHBFiG7ZdV BET6FX26Ck9v6tOTiWwf0xJfV2N7TRnFUAPyWAa//8trnLpO5nWPptm25Oea Ph3B07f06Sl4elWfbuff5G1Ta0ZWKXwBta9Ucb0IZclHlOx/ex8y89NYRSsB yvd5NSkenVIVBCtYBhDycyJKQzU3/5DtmjxZCQ3K96gaGrORZD5ewjJQCJlR P9fX9ekb+u1cIrNntERFFpeZisjRkRgzdmgpk8oi5SPX/4aYfTaR9HBlln9o s4toIbafUfBaZNZeSjImo6JkvqLFCC2yMT6rJe63xx2JLZ3PxTRyJUsFgHxv 77l81AoFdVciiaAg/ZP8FglagoJWd3QapSEoaI1DcxeNYbReeAnSCNoeQkFT J+k1BAWpoQQjsUhQUNmPXD5qhYI0FfIrJsMFaf1+CyDIjBYSAZ2DaggK0mKp v/PO/GIaDZEkbYKCOted9qCg1RR5QBMUtDwlWggK8sOg1kjHzhqCguwMY0gj HYgWtDQjUcMnKKg1fujy8cRCQa3xtstHrVAQO+TKSx5sBGPqjETuYgMUmkaa 6i2Xj1qhoKGPvKQJChpyaUYiKMh1s2MoaEIkJ1pKI7appRAU5DtMY9QHLh+1 QkFqErWAVCiow5G+cEigoNmC/PNJU6UOR62CnOEnkI8OYNfq6tYnAGiQfg/y 1eo6R8snWmbRsEkzAwFKANAhlFQAGuoMBAXZIYjMuqEguN91+agVCrIvkAsI QUF2DaqPoBgDLR1DQVYn2iag4YsUaqqPll4ToIVGIQr50CIUtH9Ek1oqFGSb oMOZHUNBZlk62EZaX2EOXi2lCUF7H+oUdCKYdBMKTdEi+3QkkZZCHvvUEegE dw/Zp2MsZB8o2F/YhyXBHxLO6egFGYkinJPMKUICqehvu2Q3zjmdriXNP8I5 jXXX4NWtc75aSptSi8flqNnaZh4xeB3e2hMG70Ad1DqNQbKuU2CS1hksu43t ffxDGAFvQRoZzinATfdc+j7swTLtWJ5yRGV5Xr+9CS+kRSGFVmqOt3tuqzP3 MeFNxppzmkZS6J6jT6A4ReFfUT7W9Rvpk/3k8n65hSXowMKlJNGykmb77rm0 WHXk7RDlkpxmT+gDWvy3zqql5Z9HUJakROrCKYUu0/qyqZul8EuWP9+5vnF+ P4/ykcqvafrz/5M9uofsf6FdcT1gZq7tT00ea6Vnc8yuqoBpc7AuDuVJKl9f KUkn9uVrQW8NZV2kZRnuiKeyV5tVM//IymlVv42sxTGjxzT/Ecg1+y7VkFvM SIuPu22uYiqQdni9zNF5eWzjbPEXyDL/IR+PkdZMJo0WWRRjkARekJZ1UkW7 bhzuz84RraVjdkxiV7WlrkG32/s5k831Dns0CkSb/08OS72RoLFsZ0uO79c5 i8F1NWQ+0zYs1fSfb2Fxkn+bi+acNigtjMNhYy+yZhwFujdj1COV1mmH+eOa a8TM08A1UlzJ36JjVeJTJc6zgNp5mHA7Ksa0aRc91J8eKHG0+ImyMwcAq4/+ GqFjpu9D2dS130qZ/SMxqRsAtOvR/XrQt1bQfqAd/RPOpcPbMZN+ru0/UvrI TpjAZbRrvAFEdM/vXShOnNNWus3SxjlZFinqd/eck22YjN+iu4liOdJWTAcS yH7aPZd+RLxg9BGdyuynqbbw1rlkY/9tqIN2rUwRMRPr8/qtF8Z+ZvAW1EEb ksQgtexe7Mkxq+8r4WOXQVKpqHnTxmsPtx8pMGoKAAu6NGFAXgc9xID8TyYH wYD6Pjme9BADckciz6wQA16BEBAToKQuTwR5sgz7FGqGnMbS2KchcgyUpLJ/ YLumaA0yx0YNWFGdkYYyAoI0VKqZ2gS5La4rzbQL1JB/lmwzyGbumn6jVSEt t8jVlSTrQ0Y1E2Tk9bsC1JNHeUPgmZHpgn4jbYzYpmU2gWc2DaqF0qgThu7z RX0lwqmqhnAzXWmi32jNRiSRBkzTio8brbEIt4tAaVY2FzfkZG1rXbNtk8JM nBAePkbUCckFmzB6QWsJSDMLdW0YcUQni1lBHmCEEPU0almGEI3stA9LXpvP KX0joI+0jahxaknUpp+bShBp6yR40gmiB2ajgNEJD2pS5k60CvSRimrW67r0 SbvEUL6ROktAkTRpojSgMvDgSGhUZ5W0o0DaGErYsFuDPXc++6waWjWTphMN CbYMbqnHvMnhJBVBar9kjKqI5WMVjPJU1HVbHxCMRA1t09E5HHN0IzyoT5rL 0Qmghd5rZvYaMJLLhHHZsYX2RTpG2hxg1NCoI6dCR0claW6rCOKP0ezlalMv 9yBdm9oOLa6OKqDkjhg1tgVpJ4Gq1F5PRrmKgH6vTZwmKruOsRHwJInWigSA Df6ngRZ6r00wNQD1HaQRZKnx7qlzkSWO7BsGHlFKUJAKmQojvYOUiYqAfhuT cVBtamRymj5pd4rsZQYo7cbRYp7WZGeAKipL+14TKFsR0G9ijAXVpgZipiGc Dg34gBKzBApp22eBqtRAV+PlAf0a0o5BtXQt87OQz4+s6QNqEU1pP7EAhU2a 54ES2uGhvkJKW0UQv4K041CtfxzA8tE8SG2MtgbYqSbj3cuwoZUbsxFEuFEj JfNfRSw3II0UsvuQ7xnIR4e1aQAkLNkSmvGxL2lvQYRHI4NKpNgA90FQYwTv lCMEZ9lmtrOLwaG/hDRS0B5AvnOQjxRDEiwBTBYt+Su181JjJahJ2aLFhwP1 bJopwm8LvLhW+QLS1uFVDyEfTQakOxLmtFdKbpW787Ho9xmpY63Zn4z85YgD sUYHnrbmPIC0rUAeSTWjafvekp/HkHYV0s5A2k35vVpKK34Ks/uWZL8IJZ+V 3ytByb0Wvpj1MqT9lv+uEEvbfnaynZ1dMsz4h3YM/M8S89EIGT+qtbDVbC6O cWWbZ3JqbWZoJPs4BTNMGTHzCNQb2wrsZnzEJNBID04Fl6ZyUkTDcAtFq5gh GzU3JoyxNFHSmF0D3rP453ZtQRaLf56KMzX2U5DPLPpRdM00Kw8vadoySNqa nGxUtFCuqCN96oreqqWjbTQV0YxJhg/bkTAD78R9h69LpeprZFyh5XFFGGkG Jg2HZnTSmEhBIQ0h1ITKgNLeBBlSaKQi6mnYptUXjbwdA/qigkLDxZvaGmld bQPlFf1GbToVRrOsUxScGsAjfZs6COnvtEB6WQmOhv2K3sxj8/d1zUdAkVgI PNtkoFAqpMR3DN6lKQzz+XanXZWslT6ItEVGk0kqnNSOGwL2PqSRySIV2LG2 hKy8M3hD0SIUDEtruKl714SgjQ7kJd0ibmTuINPRZWXbeiTNCgbUm/qN8hEo FoWCTkEQ9RVBIfsXYU32NDJK2jlLGeyku5LuYaDIxCeHF2g4C3Wo/CNrGzIn 0/DSEB7nlTuKwRVFhkYcSbqg38i4EKBFI1104jijZU+6NNcAHlmko6vHtRgh tHlAGpjku5Cn0Oot6HXRslnZc+CkSxp10YoYUbuNXolzdFmMqKwhQ0o8dVZa yBx36WsRKGtMNN/S1l4qUHYskppQKlAnXPqoxABUD4CScZJi7fUEqCh9LQJF W7/dw5NqiqkICjkEkOGoOVBouKbN3R6CQl4X5MbSLiip1s0BlAOAIk/ILYms 1eTmRBdbkxJNMYANCrL3kv2NoEjdwkk6bvV0QFGxq3QFii28qKsMoMBTGj9I zR9AaQ8UMgrRRVnNgZI6pvQQlO9jjM3lyz/n8l/0Itp1iCOjVREUfsTL1qHI P6vKtqzJUnbDywBc07K0gSgPaIepYyi+U/qpg1gQDrLg+nhcgZr9TmMmcTIo dgzUNwpFVt42INz8bUMft4m+iMrSCGx7W7Tw6hi3DWWMXe0WS7zsNhwfvFf0 G+1QEXjrQF8n4Im0T7itf1SWsQ/jWEsEDZZmOAscdVG/0RBICJ6Zf9F+4K0o l385CGQLjoQyrpqFiID4TLsHtQkqYUOXj5U53NKQT/iZI5l4IBwtU1V4/hUt f+8TP4aFCN1RFCyshYUMp4MbxLsfc4NQIKeTSngECshD5YPW4Sv6lCxPDjy3 Y/2BXEQFMtocqwSjZPPBu6ACIppTIFNy/6RV0bhJo5ZFRaf9TgfLD9xX0TRg HN/VsqQDEJbXpoKf5Zt+aG/QXvOsvoa2y0iMtO9podfuaM00ABO6J7UEeRs5 6L6nL/Wvt7NXWbQ/Owrs+w+G6KY7mhjE5KK7DNjUlqyl+RO61XJaS9CCy4H9 pjLm3zBprzqqr/K3cFIEQGSW08iHx4RBHNEhplRhkMvWO/o2qoWEYY6oZJF3 hPGWFqRXkTCi7qJBmn93htVHcT5sOPCFYWzT5EhrKfIbsLO4b+s3GjMJeLs/ 6UE14FO3osgYdaJMcALwtHgi4GloCKeF6Y8JINpoLI0aDYmCRgSyBZF+nOqA T+4kjqBS7XMkKHMlpVrobamCikfRYUGRokjngkgAtEdLAqUANNSPSFDmwV9R PK9pQWqLJBSbuIjg6KVNQS1UloTyqiMUAodOE6cKhQa8q8otjQskCjNG0Y7j wl6ceSmSeEgAJCiK7Uedl0RBcwSJ4oojCurRdKIpVRQ0m5IZPFUoNKj+UZF3 9gdJ60kVFBFHu8ak/6QKKh60iQVFcyQdkCKjHu2WU32TRMxIUDSoUvwWZ0gj 0wD1BWKH6hsnioycBGjyJZFNHJFRXyCaqF7ikfoqRe0hLFKjWnwIaY7IaPgi iIkdmnGoRdNR3FSRUW8YOyKjmYR6BQ2z0Tk3YXglLEhkVJb8+x2R0WhMEJPI UsOA0HE7Elk0phC2chYZaWQ0WKeKLFVjJCxIZNSkKUKdIzJihxZ+NCFTb6RJ lURG2z0kMlIOXnFERvlpJKEdHVqa+xqwLzJyRKFBlXxDHZHRoEGwk8j83uiz SCKjJXdqCMyovGiyJqsSWb9JvyKmqe2SvGhSJYtZQ/Ii2aR2O5IXGZ5JBDTy yl80hKZaAUleBBj1JZIhyYvAJg9MR14kcj/eh72e+g1NwFQfyYuMUSQvqk/+ IgWwMH6w2ZyCEBEDBBw1VpIRzTnR3UqWEQ2j1GZJRtFL6Z80GdFYSA2UZESq HPkvODIi7SQaOzp4PWFFUzHloxNXZE33t0oCGZGKF6698w8FRPPVOV825IJG +kw8gFFyCEjqUyQb6mepZrdGZEMWdjvpPIZXkkSIBXolSYQ0FhoWHIn496rQ 5OhLhFb0viHU6qOOThKhBit/kXZtIexJIqTUkB3JH7xrlYh/7RHN7/b6aHjp hHfQCXaaHkkiNAVHJVJYNRbiT9EQRupXajxVwodUxqhTBIuHWgKNjPT61GDW 0Rvfgvr8g79x8eSf4NaEUDysAqTKiJgi4Agk2iOLelWky4h6JvVgmo7IIBO9 gDCoj1ZtJCMK4xeVUWpwEgqXSH01dd6jWYC2z8ik0qK8UpeWJC//RO8B5UUY kfpwSORFw62/O2WvH0M+6g/Uv+g0gBgeo87f4fyuUiJDQepGMEnJt1z5UiJt l3o4bQdUlBINrqRZkpSIHepVJCXahInGIjmdpxAAfjvptTCoF1O1qcZAv12S 9mf10SYmjVrm6B+Cp90oKzsGSw7Rhio5opEcfDdZGodrlRdpNTRK0v7IJJEd GuLIM41uYSF5mXNyqLAUksrmL7kmIlO91tik5JWljmD1kWyi7oLpjpukNbYh LzqrEr0HDjuKyotGPFrkpbqxEQs0Ffr7actJTp6QvGglRo4ZfK9bmryoPjo5 TPVZGK0Q7vwTdbkmMsgOR/henL54Pl/Gt+GSuGnEMi8vx9eIxEN2DGr+dYvn YyWYOhHVLFTJCtb8a32bmj+fNCAF0jWd4Y0sh2TAJHkUxqP0a5VpiPwTI0AC Oa3g03TiHzKJg1/ua0Q2KRY0A0S91NORJ0MlKVrkphihnvQ+OU0l2aiRi5ii 96adU5z9vVx7m8WepY5JanZD6JLRkdYUEXSJelriPFB0n1EkaVg2J2PfZ4aQ pEGHVo81IEk7cWR7IptHaL+MkU7r+QcK3jn9RltmNBhQR4iataOHQ+j6FVIl 4v4CyYCScYgMs7YESrV6PtASdmLGejgBapd/jxNFZTD61600DiM5i9GGkMGY eo/MfWjJFt9ovdxWg/os7CXZ82kIIU2cNCcymzcErZ1mJECj/shBq/ABtbsX jiugBX3sHHdD35AKoh36pgv9SBGNO28lQ0dmEXLxpFdRfQTnJ9NaA5gyBVOq sEvVzmta6uLIOjnR1BCcqREb6CiBECxH74+4pJNmHT9hBJPe8TzljL6NlDhS n8+X6Qv6gu+PbLWQsk7DTEWQaelKRzNf0BZlbcvfiakOskxSz+g7gqfUykhn PlOmtChQtjL6p44axzx+lqr8+ugNLZJEMxAp2RRqlZZdZ7VmmoEICtKpaSlh a+hADqlX/zYkh3tKF6Ef35ZeCItgGj7pQNUFQK+2a3gIdjLfnWRiT2lFN6Ci hqAO43rkr6TmXdC8WqJ59r9/3KtuvH3PFXsbUbUeID/lgLI2JAMaHGyFUBV5 68CTRLz9awIIb4vAkYpySPEc0nMUvwG1NQTww7lXzT6miIaDXf6hWdB2WEgN qAdsC/FBjsEnApoXlHLbLZdvb0EdLUA8S5McNKWzkT1CgyTR5EOzNW2e+ohb KCTSrsjd6ZSDva1Ib0JtrWIfa94xFlQGCxMTDYWp4J9WQGihb6ejVQEpXhGP qXIsxL1E7ay694BkWhaQ+2VF9GXklcGOzFVmeiCW1rTskWnuQCJW5nWoPFUI 6/oaEsLdSiQutHtJ+ACosztnxtWQr3BJZVQgsqwjg+wxbSPkarWmZXk8mm+p RfrScpG30cT/keK9Nd8bD0g2PaBeYrfgkP/dvlJbzbY3t/XR9kZxM7N/rZ+l SUM5GhOdDMbTnYD8s1oSxOw7NcUTWm9FpvR+2vxO2g1jbGdzI9v+vbifVl4r v87mv1bSS9bTmKUAdQ6jboVaQJFWbtExAJdvFRvCdjZ3uW9yq/BHWPO1iN7L ORcOk0fYqEJazwj7USUS2dR6C6hbeoSVa5enYt/ku6wrKRySjZa8nsIhqQ3r GKNpO0/T7dZCCcz+FlJb1C0eKmxb8+REQymRYh1pVMEN3sugTpPXh/qOamr1 0Rj0xktw7avV2qh6XQhh7kPFUxc2tkxoeCkpSbTVUXVhYybbFheVD/T1xGBo eoiBbevhSWNg+0YS0qvJFDWrw9w9GzKSDJbA7i2B8Vs0Q6q24oEz2eIdZCWt qR4J0LRHXhNVreBB1utQZZNbQNF5y9/4sUin9SAe3e45Um6q9o5Kmzy239Ai vpW2NW1A7fu2plE60zTnke54WzN1v142KcW+1s/9+nNl+oKpv8X9+kPgYyLf ntVvvfYxoVfRsTLaEkmNw0j+x/ehFVX1gKIjEanB8IhvUlEbgtjOV9KUTS+w AMCpcNqeWSUPvSBUrQ+jubm1CF5r/qJS4LSCF/UXjR796rW/aJ/8mE8qKBTN odfeyxQuYnCs3w/JDg+A3Fd+n6oDIK0fbKJ1DyH+hB1tauOQH3VUksMyh/zI cEaNfsnjftQrSDIHOe4nTw7tmVgaCUUypnP4/dFf0PTpEGzdZ8qpf5A8Us+U B6p0MLjIX12dKSfth+qrIRrAYYzeYC4n4a6LSu6Jjd6wTHSUVHnVHR3FLqsL O1T+KVSKFf17WkqSuw+Q0pDIaJbrU3Qh09+EMTEwEs2HOM7Q4QnNZUfb5rrJ 9POURudKFdRTGfMutSUekhiFQ0zJ9uU1xGlNYKrFOK1DqGNfPB2HOh5igye1 sBZjgw/x85NYaDF+/tNx20QliXR8x8RTckdL0qTSw+tZlhHPcM1RgoxquOZo DGmpV1ENV4ctgOPLizSqileHURXD1Xy78fGu46v5Du/tlyAvMmQ8YVdf0rQ3 XDBrNJHG55tSSVu0+mq4YHa4xtkXWerKL/VO4BqucR4uS/d5JPOJNMuoz1FD V6T72xR+u6PZmIYeEhSdRiCrNQF62RGUfx7N77MkKKqP+iphRr4fpHrTLvWC Q5F5uaSKxz+D4vfLVPHQEEWOkrvOSXEabkhrIQ2K+iXN8NRUSTw001nIGse/ yD8VUH3KpX5JcxkJKnV39VVHUKlzSqqgaM6jSYIaLQkqGtYmfegz+2SqoOz8 HM0p9A4SD222kHiuOuIhimloSRUPaZE24qQK5YKWoKOPjihooZnqAmVO/GRe oI6fKhQyal9zhEIw0YBCYJNNmYRHDY8GVRIPzcMVBfWWgp3q7kQdn2x1JCg6 Jhr1ixaqoo5PJqDo6Q2ilMRi4Wfe1m/xkGvlshaD8H414O0UMLUeAt58EMkC RW2V4E61rvnAp3rkUqOiHUkaLt9RfmnkiJ4ulRIPY9Qz6e9qQVIjSRh22s0c qaqJgI3Q0U16SSKFgbS9VNhpQHxf30YNk2C3MDKfVYPdXuX7S9qrLHoM6QY0 bsYFsBC3ILoDL0n+CZJUxG1ku+O2OcJ5XUt8UQ1nC5CZlc/RkElW8ln45lRM r+o7oluCkmQqBVFKPZ0cKEwniTYfQtBOWG9UQ1CEtar0y7eHygkJP4oRzQNR tGhaI1UxBTelWagn88OKPv2mGjx3gw41/bEDQEFgQ3vlZwoijTYE4hUFJ7px Jkkvas2VALP+JTTPe/jNPsLnjwdBqJwmesfJPIWcaj5XTshkQsiMtUTQzX2g Luo3f54NWuDsRQs0E6XC5V+Wh4zmhA0VGw0DBNTLSj+ViO6ZS9IlfVs8/hak RePREGQ0dP3SDHhfx9pMNLpIdMoi3CykoDVOf7oL1HdJIiNwx7h9B03Inj6v T2lU84G6AjXTMjAYRyQpOo50B9T3Qb5Cntm0UhljadjxMbqmZWlslwd05qFn UChPwSR9TuGpBEpoSdCqyJerD90nyEcdiUy/NJvFUYh1GgLlkVv2wKDQcV0y fDUHCu1L05A7gDKAktZ9yJljAKVBUORJV1BYsNvU4XUZKH7Of++3P0cxjmm/ 91vIR/ok7XOTndWgSB0/CAoylNGKvGJXGUBZAhSyeZBTXrugfJqYryIotE1E +4jNgZK6RdhDUMRQJIsY/3BuV/CccOlrGyhZjpETbk+AitLXIlBS9mh/gTru 0tdJi/LP7VYHynb0aLiu3qLoHbSUqAgURemlTe16gJJ8F/IU2vQyyKIHC56T JLgZrEmMwjj4+Q9txtk4ToSQMY0UZulhFlI1urdlaNFGo/VT8sW3CNXrLs10 tLUh8L46IGT5R3ZQXlJOSBeKo6UV0L7IfJ+cfSQH9Zsa0LoPabRhSfuNdNL9 srJtG6q00RB0PflG25A0RtnClsx1RH1DoHwJ+Sikxlhbf1bepLDL68m1yjAy z0BydaGyNAqZnxD5ZFMfqYjbg8Q2morbpSkM8/lm8NEkR144BmJqDBL/Ciqj jmAnfbWHwFo0Vv+cvA+o+WPSSJYKo4VxbAg88qUiQsgphXZh/F1EC/sQjaBo w2PUccC/l26rTJ/UQmYv0qs6Bs8u1SC2zZszGCgtJv5lzRK9KjSBXNvTJv+V GnBLXeHTPhYFDoxe+xKkmVumXQUycd8RqHAJowztWdJwTOufijCmmtTINEvb galximin0rapx/CUjMg0AhCg5HhJsxVZ/RxA9f7Pnc2s/JHLL6mvpOJN+cgU bk6HpCO/o4gatnbozHfA9hE1T1o6e0JbDg6Os2G+uAu4uDiUJv/U/YFU8Mhb lppZMYQtxOywuYYONBWosW4VXY8HNzYeGNEZerOWubkzHeKFiUdSzWjaVrfk 5zGkXYW0M5B2U36vltJm6yu5U1GyX4SSz8rvlaBk9jZkvQxpv+W/V4rXCN+z ETu/gnZnJz5l0WxKswLNzjTLUFeiQSceDYcPmPhxO2y5Sw2KhmIaWMnHN2XQ y++V1UuP9cZfQpu0ZtJdSAsn5YKQpcmNTp3QACd/0bkdP3KBrzzQGVSKvrjv uJh0STqZD2hhct+FzldBaLgkiNnLMuO7LMwLl9owlaDBlu5hqagJkbmKDDBk /iLbBU0kZCMlBMNlYf6J3pEajhH5hxopNWYaXyjMUUUsv4Y0Mv2RzY1IJ92G oCC7qQxIK+UGFgLAszRJNXWUoHheFUGknVUyy9POCPUlWpFQ/yIQbXmYGhGF 7Gg0c6bMcPnPGMpWBJScGmjnjPwBUo+iU1vwAaVRlcMrLaalhoggoU2gbEVA yYuIvETIK4mWWrRQpPZBm0kGaGrozeiF5wFVceW+nEY3J1YElByAyS2LzPK0 QiADBrUPH1BSbkm7IdWPbARUllS6K1C2IqA/5L8DO6xVZnEeSDEj8KgtRGM6 RW+hi8a/CBbyRguFwTIT2zUoURGon6ZdYj5NMu9VSXegEGC0ZCfCoxGViiS4 wTih8dHYEd/yKOejmbEGTB/L74Wbvin4C+mvy8BpFyr7l4X7GJD6O4Z8hD3d N10RP3PzDOr5QB+QVkDLowmkkQEwer0zzfXUDK1TpoJnHf91KFERsj9rZe/r N5qX4kGWlsCImkF0rA/2d3yMbGP1TShxEIzmqsg/tLmTihu5fJBR1HBL3WNO vVCY5jZq8bQwbwBQzfGGcnwVssQj4MRGklQsaQSghmh3Z9PBS+oP8tdNyFwL ZLNGbvu+NyAf4UYmY0oz3Gg5Qa2b2qDtMWZlxy27G+s9ILwGjMzkPtFvNGxS S6d25GNEtRD6hNFLZUplLn4fKK0BFCE4iD3wFuQjdmigok7og0JpKWa6or4S 4f6B61pxsztIyWcu6JgJEyPhZgEl/LPn/vqMTHIrQL1/mLhW8CTfep7rQ3hK ozKtkyg6oQ8Z1UyQkQHuuNJMWvFBgJInBM8vkEak08qbFAoDpRiA2GJJfW4M lPhxRixf0kGrZdgn0xjNu2ns+1feVGe/hm6SCgTtApAKFwKRdK8uabI0873t MtA4BrQ5Ooa0fTHwb6bqEIPVUtqs2dpSLYVbexpj9VV4f09YpTjgNGgZ07b0 8+/w6x2rFD87euVcwOrz+o0WAK0zuFJK2/uQCSt6/eGcf0b5Ke3H9ZNfsoBS czRNPDPTSP6xqG7E9GtACa1WSKlvjml/kyFYNZrv/Ei5F8HT1hOt2Lrn9yPl g7i0Qzx2EMdu9CarzBu95NLfLfaXJgHnIl87eERdsnV+LS3/fOJ2uwQWyVXa oizSiqFjjh+4TZK0LjOphKr1/P8ntF5aIZMVoSHDIjH9qRJHW5UHZ5qW0z1k /5GyfyZgZvajzNjgvKg1E052EuwWENMx36LnChtjJXPdQcA2xSohkM3rO1tz D2a10TqtbRiEYzsbeHw/GFaNX4ZBqvkISBhp8XG3fMuKTk4J20nINYfvI0p4 oJytTH/P0qaFRkHW/P8oIEIH7c62CIiIX87gS8c8lX+T4W3dGCnXfBdqPqK1 dMyOyfe6fgskdw7SRtay92e2N7K7oo1TVjtzu6Npnbica/ZdaPkYSKi/E8uT VG6/0hLeQFXMZpFReiE4N4k3dYKqzc6Zf77UyrzJKJG56Y9UR7NQx1Pw50rc aYfXs8Gz+f9t9Xi7f+z5B458FfOUw7T5fHwAlLTO9MIi0SKXp54Rs0VRtr9T yLtASfcr4/vKgu9jYWniFCRJ5vbTT978QwvBuihIs6Uf+TL2YtW/wK9/sCCw XdlEZE2+PxaNBd4+VvqiZ5btePyatueo+1T3HPn+4dTfqDeSfMmy2pP9AbIp k+HxGRUeHYvohb2cGaRNAjKaG4Mkc/Ij7eHeJYXWoB2Rc9oDSmofcU4eyD3k nOK90T5XhHNq8r3Y1dufc4qvRZuZEc6pL9DWbQ+9FchdlhwsC855UUCCPyTs U/AKsh947JP0yUehY/ZJ1ydflTGk+ded+VM9uayQs1hD3m2pUJD/0mQJKKhT TICWjqEg9Yvc+8iVi06W+7e7USszWvwQ5Y1DQSsmOpFDUETvakmAgvwbewgF +ckSmXVD4Qd1TYdCnqQCQATT6op6L51zozMhBAC5B6cCUKuLZ58AoGG4IQf8 VChIh6X53T+L5y8w6CQhTc5keGwICjqOQ2ynQkEmRWoVPYSCGjQNh9RS6Agi wUNQ0HFd0lhpl78hKKhB06BFUFALoBmEoKBwR7R2oe2IAYqmoSB2qM/SrEIw pt7QTneQ0VqeDrsMUDQNRerp6+ix2yCNaKGlF0FBti3amW0IChrxSToEBU3E ZDUnKCi8COkfd1w+aoWCNEaSDkFB6hnZ18k2QVBQRyKPhIagSB3xaTlGyzZq AQQFRfGhsuQ31RAUZF8gkggKskOkBqgiKAgycsdpCAoa8Yl0sleQdYrGGXKs 7iEU5MdApBMUZAIm5ZmGUoKCRHDP5aNWKKhs/JQGW69pzUL+BMS+vEssDvfb Y9q2wONHNRZcyiyEPOETvaZJSjxsjzdqx9T1LXI+jX3UQ4hFytcis9R5UuOl E9v+GOmPpZ9WY/vYtJVZONeNbPt3jJibigaNqqQL2I0TdOCc8CMMKN9nLqUL GGiA5p3NPJSt/LUMADSzk14Yij7/0OYNgUdQUL5HLs0LUGggZQmePP+xZiFD 0v/mNUoV61L3aJptS36u6dMj8PRNfXoKnl7Vp/+Tf5uPpD2LPZwHEM+jh08F RkuIVFnZpSi0tLXYMaSQ2rULtACicKfmCPW1S9+CXGacF3LZk8X20pyLtiBF o8HJok/f1ae0qCfOzantW5e+yAA1KkJ7ZxJrGklKZduuEiHFeuw2B4vxRhQQ 23ZC84dqbC8zHb2qWGdlv9dX9AE12Nv6NH4wuuwmN8v/U3u8WRgq67k0BdyJ YXAh4GP6oXc1xIIs/eUwi8zf4g1JCoysRFbL+f7SMplBWWkYZ/MUmuTvKbQl 5fxsuUltJVLSODOkdaTGrR5If8JJJ7Wc1PeB9IH0SqSnBnIfSB9IH0ivnXSy pVJa6vUAA+mHhXR5kkpwqqVuGYJr9XKLE7ygj0sCRQLruJFUYEFWRXS8hbZB W2SBlNsbzIIs5+icSm9ZKKcd7Sn9ZEC97oiADsyQi0U/WViNSaG3LJTT/KB9 nZBOJ0nIye0Qk043wZM3ZoukU5xV8r09xKTTlEvuwD0k/RakkX97i6TTeTdy 4e8h6XRSkZwXSMGhcyUtkk6zJXkFH2LSaTYdd0s6kTR5skgn6Uy6JZ3a8BjS Uu/paZF0GvTIO4wGUTrw2/h6m+ZGcqamCYsOaDe+3iY9hFwRlyG4ocZBiiu5 KJM2SVEQWiSd4pOQLywtPyh0RYuk39XWRwSTG1wnZJLJlvZ6yXrXMem0KUSe eWTHo+jfLZJOoaHIg9K8HygYUosEU+wu8kel1WfHpN9XDIlg8/ii0AUtkmnh 7qgWWi50TPBnUJY8cybKGJ18bpHgMEQ1qEvy9Fa3ZH6R/5ai0WNWQiYdfWuR zK+UkOhRaEmis1gtkvmNEkIufBf0KR0DaZHM75WQaFQ5wfqTbskUx7/ARe1B tyRJPonB/EUPCAnK+vkGkuolSZ60QUitK8unTEgDSQNJA0kDSQNJA0kDSQNJ A0kHJIle1Vy+0rnE/HDk/HlROSuKR2jpoHvdaQRTG+8daF5oFnpQVx7vZDs7 Q7N4GmmOnC6fHbbPgw/sNRN5LCcy5dfcuUE9/7y9sZltaKSC7d2ixN7Pxfl8 xVH+vecFAZqp2KCFmAfSSi1fsUM3V/B6JCH7w/8DsTfusA==\ \>"],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 .04954 0 365.73 arc s newpath .5943 .5 .11379 0 365.73 arc s newpath .71157 .5 .0221 0 365.73 arc s newpath .82479 .5 .10337 0 365.73 arc s newpath .69933 .58364 .10337 0 365.73 arc s newpath .69933 .41636 .10337 0 365.73 arc s newpath .35262 .5 .11379 0 365.73 arc s newpath .23 .5 .0221 0 365.73 arc s newpath .14129 .5 .10337 0 365.73 arc s newpath .21775 .58364 .10337 0 365.73 arc s newpath .21775 .41636 .10337 0 365.73 arc s newpath .51595 .60888 .11379 0 365.73 arc s newpath .52921 .69947 .0221 0 365.73 arc s newpath .4405 .69947 .10337 0 365.73 arc s newpath .64242 .69947 .10337 0 365.73 arc s newpath .51696 .78311 .10337 0 365.73 arc s newpath .51595 .39112 .11379 0 365.73 arc s newpath .52921 .30053 .0221 0 365.73 arc s newpath .4405 .30053 .10337 0 365.73 arc s newpath .51696 .21689 .10337 0 365.73 arc s newpath .64242 .30053 .10337 0 365.73 arc s .71157 .5 m .71157 .5 .00667 0 365.73 arc F .23 .5 m .23 .5 .00667 0 365.73 arc F .52921 .69947 m .52921 .69947 .00667 0 365.73 arc F .52921 .30053 m .52921 .30053 .00667 0 365.73 arc F .5 .5 m .5 .5 .00667 0 365.73 arc F .006 w .23 .5 m .5 .5 L s .52921 .69947 m .5 .5 L s .52921 .30053 m .5 .5 L s .71157 .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", "\<\ eJztnemSHEWSx3PUh06EDiQhhFQN6AAGBEIIBBJI3M05CAn2Mza7ZjO7O7Zr s202H/tF+l3q6zzEmOlRejujstwzo37h5dmVlVmlzjK6VERmZLr/PQ4PD3eP H3/f+st//O33rb/++feNb/7++//+5a9//r+Nr//n73tFK3/IskNX87+NLP+9 m2Xjr929/0Zf1/OvvDgq+O/wz2r2dGczG302s52nu49C8Xq2O9zKqp+tbLi7 +/NErb16O09/sWs94XeNaq3tfQ8zrRcuZYdGVP4t/LMSHrz3nvB/vxRlo4eF F2TjR+1s7WQFn3vXy9eq9/9b8rlrWc7D1nC3eM4wGw6FnP8c81mhWKh+XHpq eNdezZ/LVTaVuuFWsspj+y2Postj+nN096oXpP579OD8cyh8rwt3wukIhR8c VfQvADOFuyfjJxYw5v/3uGgM0cvHxbnUNqWZ7KyMuPmv4uqI571n72xV2t3T nb1KO0LZVrm17rWKzVGjKl3KHtlVH/MLK+Iqaq2WO9TK6IGFWMZPibrLo3G9 4tZC8Im7f4UHT/aorCT76b2/o4Izo4KsGKZO5V+rpUt7XIaLRSs620JZV+/t aZZRtRf9waPZEP2vUPakhftcJG3DI7adr6L76Hk9ST1JPUk9ST1JPUk9ST1J PUnPCEnhShuEBEtCMN0Yq+tFQKQnqSepJ6knqSepJ6knqSepJ6knqSepHZLC lX410pPUk9ST1JPUk9ST1JO05CQFBWMtL/m+W+JC2ZG85pr8+qJbkn7Kv9dD 1cKrrnjIGQHt024pDA6IQVE8DE85n3+HonvdkvmtEHIUnnJRmPioWzK/EUJO wFMuydUPGyIzXPES95W8/iQ89rJcveMkrtE1xpdQl8gcyEtvdyvqz4WQ0/CU V6Ds3W4JfigEk8PYq3K1YzIfQF0i+CqUvd0t6Z9C3Reg7Jpg3THB94WQC/CU G3L1j92SeQ/qEsFvQNnr3ZL+MdR9EcreTOHfHekfQd2LUPZHKLveLel3oe5L UPYWlF3rlvQPoe4lKHsbyq52S/oHUPdlKLsJZa91S/odqHt5OUh/H+pegbJ3 oOzVbkm/DXUHUPYulL3SLenvQd0NKLtl3tcJ6UQSqavE4mA5SKeGdaVb0qkN v9oe6UfCPxPhoOszcEQDymtQRgPU5dk5GtsByuGkS8zOujCAAajh8mr+v/8K T1wpLm6Hv6tQdgfK/pl/h6cUK/asVrAqWYi88NLMSUs4molfhufVhPdw0f6j 2NJZOCIN7BqUkVp0aXaOjozbfylEtQ12SEF9aXZ2Zhlbl5h0WoFchzJa0Vzs Sd8n6bRkvfFskU6r9xd70vdJOplnXocyMvdc6EnfJ+lkz6OynvSe9GS7pvZP BuXzi0d6UPHC7jGZ0YiJUCNsKx9dRHayYp0TftHOCPOUlXf0s/FG+uhlv7XH 03UB97z8eh6ed1fEdk7uS/orNE9mWFWFldwheIruQT8HVz+QqyvJLrJaedv4 /l/aYzBYfELVVXjKZbl6DK7elqtrSQarb1uRGn9qj8WB4EpLug25egSu3pKr 5CpxDt62LjV+3AeL4YqXscsmcboJTZacd+TqcSdjR6QGuSY16r+g/Yqa3bXo VdWrb5t9khg7JjW+ba9R0g4aMTvS6dcqZeHlex8yA3mZJpear9tj/0VTSq/L 1azq6fVHuXDKyedzUqNF7mg/nfh8U4ij5ZyXRZo2yVVvTsyeh7rkbEQskmZD HkDENsHzeXtsvyCyI4IDs6HoutxHOhoxdlpqtMgOeQUlGQtqi5btfcj67OX3 rPD7sD1+qS6Vjfjl8Ze2nM6ZZdvmfZ+0xz6JluRFCz7ShGmTnAYGgoLuu98e FPYwa0NBij0tL2lCICjoPnIWnhMUNJOQdAgK0sVIySGHrQWEgmYwIomgoNUQ sU1ltGqi+z42+WgUCtJcvG53tPSgFkW+cAQF3Udu6nOCgrRmIomgoMUnDbnU aQgKuu+uyUejUNCykUgiKGilTbSQrx5BQfdRVMCcoKB1G5FEUNDKnWYkmlUI CrrvA5OPRqEgdogkLxQ0I9kTrNJCPocUjtEiFEQSbQdQi6IZyQsFqWfvm3w0 CgX1dyKJoKBxhoZhgnYBoUiaIKMyWhkT29RSiEWCYgD3USBQD4UbinDFCwAp R+SBSQCQUubtZrT/T8C/B/c1auclAGhRTY4NXQEwp85AawbymPRCQZ2LGjlB QW3wlsnH3KEg+xL5R9EkSa2MWgU5I1FrpJi+OUFBi2pyxiMoSHUiaA8oFPQ8 goJ8GqljvmPy0SgUZHWicYHgobUFPW9JoCBbJE2XXii8tk3yOV5AKEihpqF0 ZA5mKzdNjMQ+PfemSftSsE+TJvnQLz37E3s6xDkFZ1DfoljsFjkn8wJ1z2Xj fK1SNm6i5AdAs3W86ZNilUKkFoRVCiwidTW869CBYJCmpwG8tXUGq75tex+K OAzd6kIoUlePOmyRvvdW52wFVWlFuapeVVeqoIUG90ayX20AEd3zS7GsmtuI VlvqExdsNGGipW0TikPunl+KIlVjD5l5V4XfE/JLXR9pc5mCx7vn/H2o/nyV t+gqtfZwnwZKhovkf0Cx/61joGX5h8INjwsTZGxIAkDubNovaIW6gHhQ0J8O ZiRU0s5G9ipVt8v/6tOoeVFSDlr5Uo6dxky3+YeC2daEdHKmqguEeqXSCEOJ VbxANGbCzT8fRQ+rPuVsxOD4T5v8hO5NOB2Vl9DsQvlxmmoU+0TlXsRb8Tlv wKHRJof8wBwXYGyb0GIBEwh+cRoWo0yPa5WOMf6dHGVD0ZtATMd8f8wyvdA0 CDo5EXMdg0CxqNSqXzBQCfsah2uicsx44AI2FppcVKW00NlXm9Epl7YHFnAQ 0cAqnRjOTEPFGloJFdpAU31tAVGhZB/kPPG8gVTAc0UhcU1Cigq9bp4q2z6R omWNxolY+BwRfOKukgJH+y2tFkjF7xgcWu2eErZP1ACH9VrVkmm5QOvgFgEJ +uqx/K7YfTD/kOFDw0DI/YRaxJoLpkNyF/mIkqHkmNBOy485ARa6zbqwH37d Khp+ZEygpF0XhEsabmlYVhOCNqSsajksqZfVuhvAwCowQCvPOS2ydWrSMOi3 GD+yDF8SNGj1RWVqhgr4hQGevAgH0P5Xq3SSyOYEk04xG/LrTYaJNkMGJs3a 1aKGFPgdQI0rQA7pTnNCQ2V4VX7dYDSSmU1PC7srwkd0n9qwo/drzDiNb40x zbHxGjN5rSbLUVnQdapZEEYf2m65IG9dAfZUDI3t+CpbxeemUDBSGnj7iIIs aeNHFT3tWrRlqNPbGnB2TZ7S1EZSeNV78uuVFlnVHbXDKVYnmMl4nV2T8/Lt 48eQjnrFQIN2vMlYTGjQzjg5x/hxmSyj1OEGTJLBcVjN35hlW9lwF1Nt/iL8 SH8eveqOXKB9XyKWgCMtVMFck05bWS5ROzsp5BwDcgjPFalRE8WxwEZ5SgNy 6CP7s7yARjddbpPfC+FHTJBX1lT8qGWqzfMEkEOvVk2RTMUGfpIWsmiFefrO gGkg9KfwGO22+d+nUHYFyq5B2etQdjT/LhDK/3+1cjXLMFvpUSi7DWVHoOwf +XeNrKb6N8yGw13Sr36CslUQhDdVHbU4muDJ/UnXqOtF0yhfLVodNjvqN88B dUlVIyqjla5nQMwzlG7uCOZb6QHxRyijWdybe2z+uNPTiLOTQB3VpSU5LZ2n DqHlXM9ZKtftDyb1+jZvwjRa/tKEkoywLI2sMKEkcaHWomXPA6XUX2gRTQvw mrrS91BGesl9uI/CzL1QkLZZH2QSH913CiglkCnyYzA7yN+lmI0e+wnc9wLc R4YIWnHaIHtNHAQyjV2ngVKqS74ZpEnWBPlbKKNEg3QQ0lm4zxvbQamGFWRq jekwrQmFjaRPmNLygjxsa2K6CWWkZT+A+87AfV1gqmX5h8aspD9oVEbqek1A v4Gy4/DYh87+RWyT5yMBetgElPSzAFTQWGl+JRjJdE7BDjVh/BrKaPXymdlV bBjJiku2sKZhpIGcXBwpeqgmjF9BGengn8N9pLc0A2PSY2nKjJcCdAB1KfUM BenVBNQ+KFIf+4XzPlKLvQdu2YCmg7sn5iAvpnZKnn1jSlhR4/NiSj2SnKdp 40Mxzaqep6Q4UssnUZDyYQeRdoIvtW0aLKirUtNI4hsaICk01PK9gNKkSM+j hXpNQGm0pEmHRl+axOYHKOUXoknMC6g3qU5NQGkWJ2WItAJSrmjsoyRatEOs Zx0RpSQW0nlJNybwaBggDbYHtFtASV0nkkj9p/WUnUPaAWgoIk8XEgupbUQ9 jZekrdKitWNAyXpG8NiA2slIo1HX0b9o/KVVVAOAPoAyGta9gJLCQ4s9G1Bq jfQU0tkIUFKRktvw7QBKJhQyS5E7I3n0kduXuh7Ruoao9wJK4y/tDBDnNQG1 DyjXx5Kdj4ypZGYkJYgAjc2g+SfpBkcPJZ2N8CV50W45jX2uACwyKdOE50WV mCWkCdVYtRRUaRyk/kB6RtOouqK5vKiS4Z92VzRFeRrL6rp8fL862+khDwQd aRS0KDknT6FtMAK7ZjenjSRaI3iho+mCZnsCMSuH0NKChhocPZyQ1DTsZHxt EUna4qN9VNKHqNnEXTv/qBM2adg0GnphJM7J3EV1OwaUVEOCQg/FUc1oAPfR pO2FkVQJMhgsIIykJCbPFiLNKBTRQoX0dC+gNBGSsrtggOaf09LUkuc0vSO4 qckz9Owz+S87ybISpK55FOrRADLk+kEWPEImPDbEJ5yRX8n4Euw5E5OJdt+L 8kivK4MGTngdGGgJ1jHOwWWn5O0GahlFmCR9/ZOh2Dpta6aUE2aNY/Ty/F+a idUnkjJWkHV8ng036UQdWtlaimP17Cd8FUH1SVc1NIPtjRW5JSJDo0Yp0rYB tMijjnY+NoXMZOhgVONl6XVvSF2aFaJMK+HXOfkVK9wjCioX9JU6SFAjoBoN oBVeGoLZaFH3lZCUbClRjaCehI6u5zGRsqy4nZRftIZOZijR9Q0ZnjUalKwH a8L0b6kn10EwK6dbIsfuL4QamlIJxlfkeRvCJ6GwWr0a3pHcDQtFNEWr3/bR 4qllWsY1H0Jjnji1dfwJTeDneujeFabPSe/7bHoriqCLHaaKf9WvPrmcVjB1 TqDFn+qOZCBPxrNPhho9FIZpLFyVq0kthXG8I/TRaMee3hn3lHqgQ9eNJnTd cQzSpcWHxsrRy0keGtsZzU46/6hO91DKaGqkUVafQrYwQw63pSJ5T5JXiXZT TfdD2pxfBLvlmf5U/otsYIq55qgYpOA5VeVIKbgvT6HZgqDVLCq0o2hAG62M HdDqGKdhSnaOZhtaEik55Cu0urCirRyyzcVpq8Z/OW335Wk0opP/hS66yGPD APtmtXU4wD4sr7LXHfVhp5ZFEU9R+HV01SuAk4Woy2V7FH4kDyczGGF/SgAh JxADe13t0KsIe2oOZNBJjr0OKWhTtrH3eo0T9pr/MCJI+2+6z1RraMRprMNM QZ/85L1yUB2CrJL0NkKfghFIw0iGM66MAJy8Sk/27jVS0KxXGGRNpm0TQyy0 A2GfGLddvS+5j0GbBl6x0OBIW6IqFm+gly2WbSmnlDKk6JJYdH+npjD0DGl6 FYlAJyKK9aX24RUBjX10n+pZ3qjaaSII8GRZSTEhrAh4NX7Rsn9i31aX1dQx CW6abgkU2pXwAk+qelIhHRVVVXXvcTsjVF05W7wCIN+QDwVlY7OX2olXKHQf aSW0x+EVCs1U9I4glKDkkAKblgInSKDZjoZVEgXt91MqXGM4ovGT7iOh0H0D KEsuoRxCscM1qafQPJUWSpUCGt5IyDTokoDItkSWcENABAq1DxIQ3UcWAbIk JvPJOAREjcAWED2FfKG8RwzR4EwCIt9WSlhoCMj2i7MFRPdRm6Ex1ysgavvk XNCMgLzHYdFATQKi5krqtCEgGsOpfZCA7Pu0zI4AsAVEutLlAsxy2W4x68wi Hu9xfjRkk3ioIZFabYiHRnP7KO5t8z4infoUicerytKwEWTjXQGTQ6b32E0a rUk2NAqTfammbAhfMpLTfdSdSDZkLiXZ0BLqUtR1in/DTeRBRro4iaf+yZXU hvR5hC253hji8b6exEP3kb7ATd0nnmSsVORyOYtYyIxAkwaN2iQW6nHkhGuI ZZagQ7rPjqG3xeI9dtIrFjIZkMcuiYVotl2W9XmkZdEq1hALtQp6PYmF7rNz RdQXCz3vYvGEclkT4qH7iEcanEk8pEOQFd0QD7UOej2JxybT7pmziOdF6TVq pUzm3EjqOLZYaEQgrLzJp8jgYIiFoPWeaU91vcsRyghGKz0SS6wWVgWUDPJ3 CIhmJVJ0SEDktNCAgKjbeo+XJzJpKeEVEG1vkYBiPTD/6LyTDMB2CIiUbVol eAVEag31cENA1IEHTgF5gynoebMIaKRp8TELSRnRAoaY8kblEvMkIxqtaSFW U0akoFOT80Zq0H3kp08GR5LR2WkyIv2IDAAkI9ugYMuIHKVp6CZDRosyokmZ +tEsMrKOf7EFRYY0Un0WUFC0tLQ3a/T1JADvypsERaSToKyjtpsRFCk+tK1F TZUERUM5NcsWBUUTAPVQEhQN2LRQDWUn8xLSk2h/gAyHCygMUiNp1esVhteR axZh6BGqHJ5T6TzpUaRaRgnZSF7UjQmIOcmLtEpS52n5TZ3Cm4yUAlhIIyV5 qW8udZRkXLn6r71RNK1ytfGtlNYx6anm6GcUIkMyIlkaciNNk7T8NuRGQxjB owLwhMGJ3EjDuV4QXS7LMkxyavtC2Z2uKeGFKyQyUvrJPpz04HCIjGJ8aOFD rVxDamhWTCbGoIWD+jBRet/kuOyQEvlAJE/smObfQ1IibZL2Jb1SIiYoCwxJ iYCid9SSl7qt2lKiyYrWwTQQEmAkJQLbGAjJ+YC6I71+pJjwPECyJBmRMn3S eG7yRHuSC/WA12pLyGtqIYhIh6JBq6aEaBClbpxIhE3CobxUaeFMPDIZIkdy ofnjFX4uTUleIVE3otlhuYVE+5IxwPmHEEpKiCazQVGlXDautCRiIpsIDaIk pnh3K/+QvkChtbSlr071NAVoFjLvDiPNYpQd3CsWegepw7TsSB+85RYLSZv0 SR3PqcOQMMj9RXMUEBSaVpPAs3fhtYyWtGRuoKG0Y2HQY5PHgOjZk0mFVGuQ n1gMwHSxEIy0JeYNfKTneX1MyDQzJ7HYK0d9PVkkiHRyIHtfRFpfLF5zI0FL 1lOvWKhH0v6G9zTOFsXi3dQnB/L4yObxHwmvKijigkxbdvZspY6Q8qbfp+c1 ICgqS+u31ddrYhMNDqf+Q3UpFIPsbjR9J9MiJIWm6WdIx6Y+EHA5LLw5miMJ iJbaySAyv4Bs3VZfr0ej2wdHUy+kNDsERX0B0aKAuCRlO+l3olyupJohzWhz ElBSsY1er0exJ8/9zg+GxAGBFI3RcYwTayYyjCbzjYQislfRNGM7sChhmnls tXh7uUZBptyTVTN9EPekNc5JmEnFOHq95g6h+UDT+tBUTyp8nCFof5Kk+Yqs ffbyfVsoWE0xmMxrl2SalmEdy1A3E2iiOB51r+LfJM4k1XvyhmZkSaNk/SnQ e9xZkow5ydKbMYAsQOrVSO39eNFAI1mGf3Vf1m5f+i5NoUJSpTJbqmoFoa3v U1I3IiOZ1wvLpnl0eM+nm5OcNTnHMel322VyNfEOGueEGSJDa4RfNGfdl7fq 8zLeHa4vYN0beQnIofgrrZFMHuhV16K3DdqTKan94+N689eXPnbMvS3iKP2a Q0FJJkygVJX1R2nNhZX0tgtF5JeaNCbsswnY4LTYGGiJobm10mHK7NZJCCW7 C60jqAmsmk9RmdMoTTIaQJmyTHvqs0g/OasnOdoACsgckEzI4Zc+HR0/6a2x je0gMLGmone1CDKJEUJkDqC2oavNZEbTc1WpRu8NRdSP7EM+HW2jBE2dJ9v3 0SnsNdtGjZPZqcl8XOBeLisEXuJWqaOmGPApJeJ2NZ2jxotpJZpsLqROEx27 xcL/eZEmO6Vl48RHTBstcZImz2R2chpajhhvvQpv3VdDWct2tnbk0s7mVjbc 5dGPWss96WOkTlHbCCIqLCY1sDgqL7oGL6rJ+boIZJhtbSr3w63NbOfp7rqQ GL5KCTRdNd2dLKatbg/bHRGWQDEIJPIRovtehVfutyVtBhRG6GT1WpJ3qiLL po7HK0UDKl9N8D2XqWpyKZNcGtrzVhBXMh2dY95KDkHGSLd/kBqct3af7mTj mWtruOudt5ZA0VVyqFNoPnnvYZkb5jsOlKKbXvOOXj/+2JnNtOMmz6pIOmp4 F7yqldqrHVrhap7eAVzV9S+FVDQtehuNAVAwpxUubUdT2w930F6K1+ChRjuy 7pLbGB34k5yH69u3NJqCNhw1WXfS0rXP5lAfHPJ3nadFk4CaaA5j8DwO7Ok2 kbELEHnkxs0h/xC+9VuC+pBRkGolNfPoxdvIZerl/kaQQIN8NOe0C0VeXbRz oZaFGrtQjr31SNzJ8wTq2zeJTtJrzpiceXehkqzOaXdi5l3hpNt9PNTln3Bz rU3icFuD24mHUvhq6oNtITfBWTp6ZGIZ0vHesNdZI8jqSArqVbm6hM4aE1tr JTYNc1uS3Ra9M7y+UKHuifyuIKnufaGSopvFF+polctQoWNfKK834UvSop49 b8LTVd6Ss5aWzcmbsPfLXRK/3N6vfWn82r1RIPQq8gY4uPEgcxJQHzM1TRgt xkz1cYULGVfoFUvXUbnhzWQVGxT3lMvGT1uSMNw+pH1JhdREZgga2+pJaqEz Q7QooQOZa4Umtau1Jdd21pVwZWkzGE0ZBE156f7YDVNKC53BaNFTg9lODc9y arDo0jLm49ONE8+2vwjvmcrHN0veS6/cms57qXv7WTVqIjkWqrvGIqXB7Fh8 RGYbOWRDL1D31+CFTF12ibPJLm8OZug8dgLmAyqlg5XS3HvO0pLknu/PB2hH RtT4+3M2HDKa0zkb/WE10wTU8WE1z8pxT80IaAGPe1qkY9JIQKRvH4Bj0vrD BW3xdHy4YH8k50IeyTmLWBb9ANtZxNLxAbYDUwS2WPpjn23xbMB9NY99pkf0 J6Ybzb/FE9Pp9dT8STb2ffYATbIhtYZkcznqOsXfSko89tpf30+2BJrLqf2R eGi2IKdBQzw0Z5G3A4mH7qNuQiLzise7XNKph4wkXgGRQY6o8gqIpi3KZGcI iNoHzeokIK/9iYYDr4C8+9LNCIhM26Q+2uFq+jwahSlg0xAQgWJb47bN+wg8 am8kIGosBC1NmLaAqB+SqwFt3AW7UlAQvWKhUYSiCQyx0DxMmxteF2d7F6K+ WGhKTzq2hKmIzNxpsaxVKAgwZXxEpJ2CQJ9BsyzF4Ez4+qiriVcAtMwgEElB 8AqA9N1k4odRUXVrm4w9aXlUo+0y3myw0x9qdZpRPxSUDYceMvGSBkRCoUUG 9TJSC7xCoTViMtopFNGA49XBYweO/ENLD2q2JBaaRymNkDFsvSFS9IrlOalB AwR1bq8waCGejMxY0Q4yvcY0YYzL3xPevCI4LzU410USeO+yi0Sg0R+0sKa3 eUVAi21q3WpGJhHQk20R2Ooq1SVh0PBcUyxvCbReYdC4TtMeMUtioTlB/c1o QFVh0HqCnpf0QhsnySgTpCmSvXI4KzUe1EP/plS0dxj0VerARwMpzetezGnx bKPvPfCZYOQ4iO2PhD1Sqwn701Ljs3rYvysVaRAg7DWDiAZ0zoI4tV6aYxRx 7RdenJ8rKC+XFViXcjlS6yOwT0qNL+qB/Z5UJKYJbE3XQzO8nejEhl0j4YNA Q7bH5AIwFNFETUaSk/I8MixrehhqcAS3htd9XQ/uO0I6qW9kRQ93KIV2zvtp +I7fuyY9JPxKTtTaBu1cZ6NmXF0laDV95UN5KM3WZCTXbKOb9ZC+Ky89L78+ E5JorkzDyHsJL8kvWiAofqokkQlKx65k2hOagyczyD8UNsnfYFWufl8PR0qQ uiZsRVl09X1fCNPURwnqV4TCDalLo4mm+tBemNyjSE7ha9FVPm4hnrnyz2q1 /agMwoWfm0B37/t4FTol7Sth347A0RoDAfaq1E22/1CkaZHYgp2xUqrLIQpT 1g7xaerlgenfZkeQxtFN4SmZQzGqoQe+6do02ZhDkZ5Ucr6KZdSEIh1WX6lq BK0WqMaTemhRHkxy4PpO6KeglpekRdEs9sb0FhqKzsqvoCpqrHO07tX36skR lKOIhr05wfODEEwN54LAQwDowi7ZEKMmdMKscUxoIbO0Tj5kRm4RsuS0sy6k J1OyE4w3C7jKZVlWSjZ1UR7JuegT2K+ncCZfZZqfaJuY6tbEmQYE8ogjnGPf 8VH/yljfJTUkNtlK3VAUNO4z+S+aaYl3WhDZy+aFwE3qJtWKaO0aLqo6Q7MH KfTEto6MSwIU2cAIslvCmPbdAdw3C3hk8iK/wQWEkTYVSPmKHbvyj64tvJEn XkCJc7I1LiCgtDFAbI8AnZhg7EyDpFd7MVVj5ZyQ/ATKyA/xO7iP1EDPmWWK JMeJ6arAG9RBjZ/AofGHjHikaE4DNlxpGk49249sl0nHzZGlfFUQLT7qnErW CWqnBITOdl7oHksNYzeWVoDk1vct3EeLYmLRC2IyUJs2NemhNI4SMmTKJBce UuNr9vQHUEZeRWRTo8Qu3j0zwlcTWREARD3N9AQoCYg2XYnzOQH6jdnX9D4a JmliIl8JVZPIDYee4gWUrD22n+S+AX3obPheQGmmINXJBpTmDCqzj8JRqshz iDaIFhBQb8ioDSiJgFotLTqJejL0bswHUNq1JBnTDhDZP+cHKI2rZPPwAjow KV0YQEmHobaVBLRWGl8voKTG0uqrAUA/hzLShL+C+yjtrp1AWsuScbShyJt2 l2xsNKXSMotApjVhTUBp75xMpF/CfbRNPDOgyRyt1G3JckqAUmskAZEVd06A 0n2020GKDCktdgvNqhvVpItRA5sFX28oY018qSESbl58vWngyUCh+BJQ6SyZ ExYWbyIibxxiTUxptKTOTaMvtW1Sbah51ceUhpdYGaoDKOkR5AFUE1Caz2n6 If2AprNmAPWesRnU9SiGQ2kh3ZOUOkrhVhNGUtxJLaKFAKlZBCPNteTZ2zSM tCaihSylHK8JI5k8aP3zAO4jfY/0QpoBklkukjCSgOLVeP4hTZIAtTMV7BtQ stGRDYlsft5Y0XkDOjEH0fqRLCF2co59Y0omY7J7kgmaSPdmMKVYAMU0eYDy lEaqzE4flaiunZZ03yDThhHZ5WkDivqcfRqzF2SvswIB5XVboLAIO2fvvkH+ AcpoV47cSGim8EJBoZz1QSbxUV3S++qHpLpAlnPvh1tZ9RNOeacx7keTC30r udLRIpD6MtndactIZbBe0FG+GjjM+Lh14sybwolWH3RQuoH7eGTY2RSsUdH5 CcrISYyc52n1Mn+wvRFwtAgiSmhZ8irUNcAev37cyLeGZYPIT+ExK0Wz3w5/ n0LZFSi7BmWvQ1meCXi7GCvy/1+tXA1NNFEpKrsNZUeg7B/5d8mlUGDc3R1m w2G6D6Q9jqtwU8QyLUu8caUUgqTe+mtFwy9fTbQ1MozTwoaIIECuQl3PgPp0 J9vc3CkuD/e6eHJAfZR/R8eH67s0TI00QYKXdoEpyHoqvDQTapisF1TNUH4D akwdI1ezp6NBMnw2d56SVelxVJa/gTxURxByTH/ydIckbOpfTQ0xmZffgRlp DzXRI/XpiRCskW0bBiSkWxK5BAk1Hg3iSwMxkS4oSm6/b+Z/LT1i/Hk3Ircd GNQ1i3TXGIbi8xbcOgMC2tLG6IZfV+XlekvGLmQ0WQexRufQJjN+hKJkfpxw 9SZcbYTpMXGaU+NGTc5PC5er2o1gPhyHHo+eN3q2HgtF4/ecJK3umxvy6w1m mjY8Bvl3UPloAMbsHvkngDOAGpeBHFr+zwkNDTTUgL63GA3a8b1k0pw8dEVn 2+QZ2oOIWAFR6SQBzAmm5+SlJ+TXLYaJvLU0QS/RbEesaExd1KSS7nS09l0F BmjdPCf89OT0D6Kr+YeCO14QAGjlk4xnQT2u+OhwR5sJtHLVo9DtHB+NYvUk KkshdEbYIUF6ENKVa/lfVVRps4BgIq26RXAoR6EGdlgHG8a2KwZE/YRIl6VF eMeAqFary5RTBgyqsK1EPae4gxqT6nbJEx8XCxVaCGl+EevYFZ0kD/nxIWPP YXnddSC6Y3w04xdNUlPxCSF+RT+K4MEZLhn0GyXCWRh8kqm3SlMK4xPwPFwT H830QFcXEJ+PuW9caLrh6OFwxFzHINwTqb3YNN8asLyofJfquiRvDalJyU/e SkaRhegLzPp549rzzGHS9yt5tiVZyZrCJFzxInFXyNSFzAsGAvHef4p9nbl1 Up2FaVeEVa2plOb+UES+vMRinMyq/K/ODslTmxerR5D2pWkUkrl+kmMgARbl WnGopGTYntMS+ElBYmQuSCZEDEV2YipCMqu64aq5hVrdYkJC6zkdeDyH0Qsk K9JUwi9a99P6rXsMaMGv1mLaPiMPijBHhAGEXKVpKd8955SIQZOCJT3QQpHu ZpNJcXn4DUbhoyLpkMGJvEg3FoEj3iwiazFtgQSBrkvHjg6x1/sG8H7afHo7 SWfnrKrBbgBXyfduQRikfZDkvmakuy0sq9UyUidoJ5x2uEdsTyjtxDn5Liwg 5+T2RPucB51zXsIQ++QSTs+d005vm+xvwP0UYrCA7JP3lffcOnoeTWQEBY0q 75h8NAqF7WZTHwp6nh0fuTBQ0EqC2PYeMknPO6BQeENQKDiOtI13TT4ahYJI p+GLoCBTBK3flhgKaqje42zqn/+otJCSfcvko1EoPKFkdaDw5l0nKGjSfc/k g6EIV2YBgGRC02pXADRm5001XiKEACDTXjqeu1pG8SPUaW6bfDTaGXooajdj UrbJmk/wkDWIoKD3vm/y0SgUZKwl0gkKagHeo28JCnrvHZOPhYGC6pKK5YWC 7osd8+YIBUmWEmKQAcZOhmxDQaGPHUNB/Z3SxiQjL6MyooWgJSjovg9NPhqF goY52rYgKGj2oaReBC1BQffdNfloFApSjsjTl6Agpcw+vdyGgu77yOSjUSho xKeUKgQFrVXs/DY2FHTfxyYfjUJBIz5JlqCgxTw1cmKRwvJJBPdMPhqFgkZ8 2twlKMg6ZU+cCw0F7evT0EdQeG2W1MoICrrvvslHo1BQ3bTjPluvaQFvJzDd Nu/7xKS9UfbJXZ9ax4j9iV0bMmhRQyLONZTvYXv8EnE0MMRxi/mHLHWEHzFr J4qdO9vnBOsks+pCnYzjIMY0V/oX7bFDwyfpP28KcRSHak8I9hzaIrM0vZLe Gy8C8w+lZiJ2iG3Sor40aW6U7YsiO2L2hlyl+UgbtJdZdRL8pj0WL8lLaXV7 Ta6SIva2XKWGTyyq8++3+2AxXPEyRjYKWnnSJgAxS94yBBmxTYt/AqBRI+8V gSxp40xefVeuEunEojqz/WDS12jj1TyCyU26ZNO+LVftlae+TaN8/tQei68J rjTIaBwzDVB6viytHc4XTJXfNr7/UXsMBo0miuSmEZOOcKXnzYlMsv9Hccmk 11F8iR6YWj0pd/Sy37rmabcIHSYDCiVm0xNKKR2GTcvc2aHVoze7XIukk/Gc yrxJ2XrSn3HSqV1T++9Jb5J0WsGRl4Q3nV9PepOk0zHA5InUIum09iUTTk96 k6RT0ifyAPQmQTw4pI8WyOWcfZvZzlNMe9g0RxRoST7HNTmSxJnDrTz7YPi/ WdihmBKyQN+BMnKmr8mO5KcMOSnLHxVUsJD/Kzxxpbi4Hf4oS+kdKPtn/l3O PjpO5ZgnYM2zrxZgkuXAiyOZU8gU8z6UUUxGTRzHHI1w3MNuZ9k5kiy5eebS LKTaRNOOlx3KB0abTBT1SoFSLQ6iFJpI/p1LTDrF2Q66JZ1I2oAyYnGjW9Kp IQygjPoERee2SDqNJrQVTqMThZC3SDpNkWS1pymXMgC0SDopK+SLsYCkk+bo PdWL8nO0SDotNcgZiJYu17olnZbVZGCltS7lXGuRdLLDeJ36KLNNi6STpZf2 7cnoR5nKWiSdzpkhNyXdhKakOC0S/IkQQmTqRjIFSrdI5gOoS34mtKbrmPSH giERTEsNCktukeDPhWBy59LNW4p9a5FM+9zMSCMMBFNQzn4IDle8ZNpHUdra n5fgRh0QvhYWaXP6ZXkVhS20KP5vhRByE7goTJAffYtkfi+E0KpecyyRC2+L ZIYTj0oJEqtPOS1XP+2WzNDQw0kH6/KL/OlaJOlXqKtZhr5fPOLs+3qSepJ6 knqSepJ6knqSFpCkcKUNQhpdVBwwIfUk9ST1JPUk9ST1JPUk9ST1JPUkPZMk hSv9aqQnqSepJ6knqSepJ6knqSepJ+mZJIleNb/7KjEvebh+OXYoxA1hSBR5 mTVdRjC18d6e5olmIcFd4fIwGw77ZnEQaU5EGo6DJ/PQ0L1mEi6HfCbh61T+ FUUL7mxuZZsSR7qzO6qx93epfN8oNHPv+ogAuWkUTgERqaGV6n2jAIBSxeuJ guwP/w/y1JwF\ \>"],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, 18893, 727, 556, 6208, 516, "GraphicsData", "PostScript", \ "Graphics"], Cell[84818, 2637, 134, 4, 31, "Output"], Cell[84955, 2643, 134, 4, 31, "Output"], Cell[85092, 2649, 21990, 810, 556, 6393, 552, "GraphicsData", "PostScript", \ "Graphics"], Cell[107085, 3461, 134, 4, 31, "Output"], Cell[107222, 3467, 134, 4, 31, "Output"], Cell[107359, 3473, 20883, 766, 556, 5810, 516, "GraphicsData", "PostScript", \ "Graphics"], Cell[128245, 4241, 134, 4, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)