(* 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[ 109759, 3622] NotebookOptionsPosition[ 108736, 3590] NotebookOutlinePosition[ 109221, 3608] CellTagsIndexPosition[ 109178, 3605] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"SiCl4", " ", "computation"}], ";", " ", RowBox[{"coordinates", " ", "and", " ", "radii", " ", "from", " ", RowBox[{"SiCl4001", ".", "exe"}]}]}], ",", " ", RowBox[{"25.01", ".2012"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "0.59641"}], "}"}], ",", RowBox[{"{", RowBox[{"1.16706", ",", "1.16706", ",", "1.16706", ",", "1.42500"}], "}"}], ",", RowBox[{"{", RowBox[{"2.25087", ",", "2.25087", ",", "2.25087", ",", "0.45220"}], "}"}], ",", RowBox[{"{", RowBox[{"2.10248", ",", "3.47410", ",", "2.10248", ",", "0.78000"}], "}"}], ",", RowBox[{"{", RowBox[{"2.10248", ",", "2.10248", ",", "3.47410", ",", "0.78000"}], "}"}], ",", RowBox[{"{", RowBox[{"3.47410", ",", "2.10248", ",", "2.10248", ",", "0.78000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.16706"}], ",", RowBox[{"-", "1.16706"}], ",", "1.16706", ",", "1.42500"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.25087"}], ",", RowBox[{"-", "2.25087"}], ",", "2.25087", ",", "0.45220"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.10248"}], ",", RowBox[{"-", "2.10248"}], ",", "3.47410", ",", "0.78000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.47410"}], ",", RowBox[{"-", "2.10248"}], ",", "2.10248", ",", "0.78000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.10248"}], ",", RowBox[{"-", "3.47410"}], ",", "2.10248", ",", "0.78000"}], "}"}], ",", RowBox[{"{", RowBox[{"1.16706", ",", RowBox[{"-", "1.16706"}], ",", RowBox[{"-", "1.16706"}], ",", "1.42500"}], "}"}], ",", RowBox[{"{", RowBox[{"2.25087", ",", RowBox[{"-", "2.25087"}], ",", RowBox[{"-", "2.25087"}], ",", "0.45220"}], "}"}], ",", RowBox[{"{", RowBox[{"3.47410", ",", RowBox[{"-", "2.10248"}], ",", RowBox[{"-", "2.10248"}], ",", "0.78000"}], "}"}], ",", RowBox[{"{", RowBox[{"2.10248", ",", RowBox[{"-", "3.47410"}], ",", RowBox[{"-", "2.10248"}], ",", "0.78000"}], "}"}], ",", RowBox[{"{", RowBox[{"2.10248", ",", RowBox[{"-", "2.10248"}], ",", RowBox[{"-", "3.47410"}], ",", "0.78000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.16706"}], ",", "1.16706", ",", RowBox[{"-", "1.16706"}], ",", "1.42500"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.25087"}], ",", "2.25087", ",", RowBox[{"-", "2.25087"}], ",", "0.45220"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.10248"}], ",", "3.47410", ",", RowBox[{"-", "2.10248"}], ",", "0.78000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.10248"}], ",", "2.10248", ",", RowBox[{"-", "3.47410"}], ",", "0.78000"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.47410"}], ",", "2.10248", ",", RowBox[{"-", "2.10248"}], ",", "0.78000"}], "}"}]}], "}"}]}], ";"}]}]], "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[{ RowBox[{"sq", "=", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "/", "2"}]}], ";"}], "\[IndentingNewLine]"}]}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"xy", " ", "plane"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"plot2", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "9", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "10", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "10", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "10", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "11", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "11", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "11", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "12", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "13", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "13", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "13", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "14", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "14", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "14", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "15", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "15", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "15", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "16", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "16", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "16", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "17", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "17", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "17", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "18", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "19", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "19", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "19", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "20", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "20", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "20", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "21", "]"}], "]"}]}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "13", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "13", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"y", "[", 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[{"x", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "13", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "13", "]"}], "]"}]}], "}"}]}], "}"}], "]"}]}], " ", "}"}]}], "}"}], " ", "]"}]}], "\[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[{"-", "4.75"}], ",", "4.75"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.75"}], ",", "4.75"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], RowBox[{"(*", " ", RowBox[{"xz", " ", "plane"}], " ", "*)"}], "\[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[{"{", 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[{"Show", "[", RowBox[{"plot3", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"Axes", " ", "->", " ", "True"}], ",", RowBox[{"GridLines", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[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]", 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[{ RowBox[{"w", "*", RowBox[{"(", RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"v", "*", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "v"}], "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{ RowBox[{"v", "*", 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[{"-", "4.75"}], ",", "4.75"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.75"}], ",", "4.75"}], "}"}]}], "}"}]}], ",", " ", 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.105263 0.5 0.105263 [ [.07895 -0.0125 -6 -9 ] [.07895 -0.0125 6 0 ] [.28947 -0.0125 -6 -9 ] [.28947 -0.0125 6 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.71053 -0.0125 -3 -9 ] [.71053 -0.0125 3 0 ] [.92105 -0.0125 -3 -9 ] [.92105 -0.0125 3 0 ] [ 0 0 -0.125 0 ] [-0.0125 .07895 -12 -4.5 ] [-0.0125 .07895 0 4.5 ] [-0.0125 .28947 -12 -4.5 ] [-0.0125 .28947 0 4.5 ] [-0.0125 .5 -6 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .71053 -6 -4.5 ] [-0.0125 .71053 0 4.5 ] [-0.0125 .92105 -6 -4.5 ] [-0.0125 .92105 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 .07895 0 m .07895 1 L s .28947 0 m .28947 1 L s .5 0 m .5 1 L s .71053 0 m .71053 1 L s .92105 0 m .92105 1 L s 0 .07895 m 1 .07895 L s 0 .28947 m 1 .28947 L s 0 .5 m 1 .5 L s 0 .71053 m 1 .71053 L s 0 .92105 m 1 .92105 L s 0 g .07895 0 m .07895 .00625 L s [(-4)] .07895 -0.0125 0 1 Mshowa .28947 0 m .28947 .00625 L s [(-2)] .28947 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .71053 0 m .71053 .00625 L s [(2)] .71053 -0.0125 0 1 Mshowa .92105 0 m .92105 .00625 L s [(4)] .92105 -0.0125 0 1 Mshowa .125 Mabswid .13158 0 m .13158 .00375 L s .18421 0 m .18421 .00375 L s .23684 0 m .23684 .00375 L s .34211 0 m .34211 .00375 L s .39474 0 m .39474 .00375 L s .44737 0 m .44737 .00375 L s .55263 0 m .55263 .00375 L s .60526 0 m .60526 .00375 L s .65789 0 m .65789 .00375 L s .76316 0 m .76316 .00375 L s .81579 0 m .81579 .00375 L s .86842 0 m .86842 .00375 L s .02632 0 m .02632 .00375 L s .97368 0 m .97368 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .07895 m .00625 .07895 L s [(-4)] -0.0125 .07895 1 0 Mshowa 0 .28947 m .00625 .28947 L s [(-2)] -0.0125 .28947 1 0 Mshowa 0 .5 m .00625 .5 L s [(0)] -0.0125 .5 1 0 Mshowa 0 .71053 m .00625 .71053 L s [(2)] -0.0125 .71053 1 0 Mshowa 0 .92105 m .00625 .92105 L s [(4)] -0.0125 .92105 1 0 Mshowa .125 Mabswid 0 .13158 m .00375 .13158 L s 0 .18421 m .00375 .18421 L s 0 .23684 m .00375 .23684 L s 0 .34211 m .00375 .34211 L s 0 .39474 m .00375 .39474 L s 0 .44737 m .00375 .44737 L s 0 .55263 m .00375 .55263 L s 0 .60526 m .00375 .60526 L s 0 .65789 m .00375 .65789 L s 0 .76316 m .00375 .76316 L s 0 .81579 m .00375 .81579 L s 0 .86842 m .00375 .86842 L s 0 .02632 m .00375 .02632 L s 0 .97368 m .00375 .97368 L s .25 Mabswid 0 0 m 0 1 L s .07895 .99375 m .07895 1 L s .28947 .99375 m .28947 1 L s .5 .99375 m .5 1 L s .71053 .99375 m .71053 1 L s .92105 .99375 m .92105 1 L s .125 Mabswid .13158 .99625 m .13158 1 L s .18421 .99625 m .18421 1 L s .23684 .99625 m .23684 1 L s .34211 .99625 m .34211 1 L s .39474 .99625 m .39474 1 L s .44737 .99625 m .44737 1 L s .55263 .99625 m .55263 1 L s .60526 .99625 m .60526 1 L s .65789 .99625 m .65789 1 L s .76316 .99625 m .76316 1 L s .81579 .99625 m .81579 1 L s .86842 .99625 m .86842 1 L s .02632 .99625 m .02632 1 L s .97368 .99625 m .97368 1 L s .25 Mabswid 0 1 m 1 1 L s .99375 .07895 m 1 .07895 L s .99375 .28947 m 1 .28947 L s .99375 .5 m 1 .5 L s .99375 .71053 m 1 .71053 L s .99375 .92105 m 1 .92105 L s .125 Mabswid .99625 .13158 m 1 .13158 L s .99625 .18421 m 1 .18421 L s .99625 .23684 m 1 .23684 L s .99625 .34211 m 1 .34211 L s .99625 .39474 m 1 .39474 L s .99625 .44737 m 1 .44737 L s .99625 .55263 m 1 .55263 L s .99625 .60526 m 1 .60526 L s .99625 .65789 m 1 .65789 L s .99625 .76316 m 1 .76316 L s .99625 .81579 m 1 .81579 L s .99625 .86842 m 1 .86842 L s .99625 .02632 m 1 .02632 L s .99625 .97368 m 1 .97368 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 .06278 0 365.73 arc s newpath .62285 .62285 .15 0 365.73 arc s newpath .27869 .27869 .08211 0 365.73 arc s newpath .73693 .73693 .0476 0 365.73 arc s newpath .13431 .27869 .08211 0 365.73 arc s newpath .72131 .86569 .08211 0 365.73 arc s newpath .27869 .13431 .08211 0 365.73 arc s newpath .72131 .72131 .08211 0 365.73 arc s newpath .62285 .37715 .15 0 365.73 arc s newpath .86569 .72131 .08211 0 365.73 arc s newpath .73693 .26307 .0476 0 365.73 arc s newpath .37715 .37715 .15 0 365.73 arc s newpath .86569 .27869 .08211 0 365.73 arc s newpath .26307 .26307 .0476 0 365.73 arc s newpath .72131 .13431 .08211 0 365.73 arc s newpath .72131 .27869 .08211 0 365.73 arc s newpath .37715 .62285 .15 0 365.73 arc s newpath .26307 .73693 .0476 0 365.73 arc s newpath .27869 .86569 .08211 0 365.73 arc s newpath .27869 .72131 .08211 0 365.73 arc s newpath .13431 .72131 .08211 0 365.73 arc s .73693 .73693 m .73693 .73693 .00842 0 365.73 arc F .26307 .26307 m .26307 .26307 .00842 0 365.73 arc F .73693 .26307 m .73693 .26307 .00842 0 365.73 arc F .26307 .73693 m .26307 .73693 .00842 0 365.73 arc F .5 .5 m .5 .5 .00842 0 365.73 arc F .006 w .26307 .26307 m .73693 .73693 L s .26307 .73693 m .73693 .26307 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{481, 481}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnel2HEWygAu1LO+7jXdLxjYYGAbmYhsMNpJZZfAGw74YOHPuOTM/7rn3 zNV/vYjeRa8wb8C58yK6ruzuiKrsL1JR1dXqanXXQbLIyoyKJZfIyIjIR7+v /f0//+v3tX/87felz/75+//8/R9/+9+lT//7n8+LOi9k2Qv/l/8sZfnfW1nW /7X1/L+tf+e/8hL++93wz3z2x8Zq1n1Ws40/tn4KxQvZ1uZaVn7Wss2trR8G Wj1vt/HHL+lWv/C3rnYxuRP+6YTGz2GF//u5V9ZtEIBkXdT2ZBtrG+Gv/Gdj tfvuF6j/G8DtffJ2H9+tzayMcUDsl0LLAG9zK/uh2GRVMdhcC02eQZOf01/p 4fJW1DJ/5sLvhQCl+5EuxB4p3zqa6M9mtrm5tQ36v/YhdmsXZDAff/xaF+13 em+7xD0HshHeCs1/bGSr8p28SqH/PJfhavhs8VW2TdOf+YPXit25023c7ZTZ YLcL5T/2AfWq9sT1jGs/A8DX0kOrqb+P5/+EEf2v/NcLhdLnCHVHeldU+6Hs RSg77SybtfW3Dbx/YSag1rZ1CeglKHvmLPvVWe9KNUTWARiVESLptjNEZojM ENlliARYO/H5pfz3XGv5MENkhsgMkRkiM0TGgMjX+e+Dea3frM8fyEu+a/Kj T/Lfe/JaBwpv+09o/xOACraIBamj8PbKiy+bRPNR/jusm0fhbUfe/gDwvoey eYByWKA8aRL1B/nv+bzWcXi7R95+A/C+lrd7oW1gRWjwsEmEV6HeSahH+/Kv rLLA14MA5YS8/bxJIj4VsC/C2wPylhD+EsoI9VMCZbVJ1D8WsGfh7SF5+xTg PZG3R6AtWQI+aRL1j6AeEXEE6j2yygI5xwDKGXnbKBH3BewFa9CFt4TwF/L2 BLQ9By0+bBL1FahHRBC8z51lRNh5qHffQ9i+8M/A6cYeJ73LUO8i1DsB9R44 y2jquwD1VqDeAL39ObN4ruIl9gOodwnqnYR6NKd7ib0I9Zah3gCxC+Ef8wxH l77fA5xO7+V6+LkFZZ9B2SqU3YSyX/Pf8wXsskrHRgtOId2FeotQ7xTU+8xZ dhrgXYZ69zxC2tsbgdHRUNP0knH5U2cZreCLUO8u1DNmnPKZlJfY96HeEtRL r7PpsjMAbwnqvQ/1aq8b70G9K0MQ9jGUkR7QGsLOOInwEnYF6r3XJGF3nPXO Qj3S0qjsHMCjs547TRL2LtS7OgRhH0LZ+TYTllYSqxN2Feq92yRh70C9a1Av rSSmy0iJvQb13mmSsNtQ7/o0EZZWc6sTdh3q3W6SsFtQ7+UhCKMy2l+0hrC0 rj4FhFEZbZJ2LWEvQ71bTRJ2E+q9Mk2EXYJ6tDfftYRR2WWA9wrUuzkjrEHC 0rv+FhL2NtS7MSNsRtiMMB9hod0kkrOU/67j+TQuwm5Avbeh3pR1wBlhM8Jm hI2dsF2rIU69Tt80YRO3vVyGslbvmyfO0rFrbVMza6KTiBUoa7X9d+Is9rv2 jGXXHvd5CfMe0HoJG/kB7a49ed61vgK71rtj1/rjTKYHVWg3iZ5uoV4da+LE +Ss2TVhrHE+9hJG1gva5XsLIFfoUwEtvVxsg7APpw0ROa7y4m4498Prie2MP avviewkLoSdH8lqk0IRQlqN5iTeo4gsoOyrfIChX5C0xoDZhIZQouMQfkb9o Ag7RUqHoEEAJLw476XxogQ8fnwPw++XtIWh7GUigyKfaPNonYF8ULtCUp8EM ZoCixvGFQf8YoFBI0YJ8dwEgH5a3+6DtBcCeItlqs2ev9dFAIk2hc/KWZill zzy0JZY9LrcIf+0HyMegHuF3IQmlNqP2CFhVXS7KX90OIkBoOepiMy91eg/F Kj4VqacDLqOvXgQUKey0Ng80TJf28ucFayJfx6EZsRneHoC2Ab8Q43whiQEF Bdcmdg7qXZfPn4XeSHP7AtRLx31qvX0AT6MXKeqMdl3Xy5CbY8/z5zWBTer2 ggiVZvQ5eUsTXzqYNLTolLkQLYs6pSp+inO2pwS5O4rWu/pBFW70nz9DPZ2w Dkv/jaek/NEqjqjUw8I1GfxdSLrM0lKuuLwhf0UAXqpGu5a9KRCPwttIOTgs AyW0IBWDVK6AyyHpxDpTmN9VrFxCLdoX+hz5D6h3EMr2Ckoa292Bftn0jiD6 5AEnun+J+q+QX4dHdD5PeQV0HoTlqwuKphDa/23Hnv6jHyKEiFtFzvRHp4sz sdKdA6DDR5rpKHZRExOQfab6ppggEy5UpqOgIlMWtZNK2XMgdGBEPKCyomGm /3gNPcS1Iof69GlSAtKNCau3hdD1AqHdTrEdk7pbEV6N6ASKVn3VGGKTsNWD QosTecmb8DYsESfzEqL2pDV+yZZNAGhjcFPYoCzsE7Do4aO5U4nmTOp9HSeS 51jOcQfMn9DrwwQURPsaQLshbwNHFxQU9wY6jqPeQNTQGT3ptxc9rCZDFC13 t01iuGOdB/b2u9oxYdZF+YsOSq+W6y1IW0fXOCdfW0hgTudfxPILHlaS6Yu0 9NvCmuJUilwkix2JWvUy6uqL8pYOXsLMForI2jQvb8ngQz2FuvY8k0yHWX72 hzpepsfHyflDA468EwglWlxpiSEdmyxWl6W/kllTDTGk/RC9ab4oD0gE5nS5 3RFPelbTD9BJMX3UK4w90h1IRX5J3poWplBERgg1tqYXvzTjqaPR1EP1zmHf x8XMWq2jUWAaHMiXisSiRkPKHKUmCmIFdRFi/BGBYgo8wtRcyQIUOl7eGXYP KBP1GJ8/gRJC6GXppqS3BaUxTL7kVntM3pJ5Ma0fpOeR2vwlIgg5YyWlHkOH eqpq0+bqVXlLSrduvV6Ht7pbJbQv9bhTbKEiHoRGflVt5y31EdrckTJNphUq Mzk/aJinCSMlBiKT/PZoVTjbpBhuVUTystC/XqxvzqR0/vu6tCCumy0c9eYA l3XAfdsuN0ZZAEWDOC+BGDJedYnHf4Iy2vkQNdSWZME6+foSE+QVAunAZzxC oNMOOjMx9/yhWxWdvPqPafeIytSYTqzWsxo6HiB4esiI/bw8N1LPoI0+7Tte bJK/ZOnUhZI2kF7+knWKjjdIqfTynLrfBLM7jNtg99AdoGPAmdzXU6forR48 /MUJrzhB9ssXBF21K46c06SdkbOAg9N7FeGBeZE23sQX4p/3MOctKCPVNF6c 8mdBCLAn+5ZKgbpImG735SXzvTrFtz2ZoDWEhEKHf9R2v/QHOgrziCL/UQVn nyUPIpniGwnJ0+OQxzHpXqQJkAXWOzERp73HWcNJqTswon5lDqEJFlmmrkX5 Q5shkhZxkjhObamMEPdKi3pd+0VF3CJ1KYgqTBZEu1c2xF/vYSyp1V7ZzAv2 pho8ScJQ50yy6VELMmwQQ4kVVEZnxZWEEaqlz74bFQExgHz/KokgTM00V3lF QGwkRYjKKPyw0lw1LyJw0NsuYZhGz/B/dOjhlQhxlWZ2KqNDo0prfahG9lWC MiFSIihKLBnZvKIidhPzqIwCJm1RDRgro26WVh8nRFBEvk7VpD/TwkCD8k6v drEsEGMwkYRjOvwOzGwZ7+jT7nmUqGvM8jC7Ureo7AyV9l7TsvekP2tZxjsm ilD1SKHbWzJe048LebRZateoKJTlD31DHcNJx4kq01Ibx812mbd9PUu+ahpS 67LR5WMv5saFIte5bJYvc8m6d8x7Z4+6inL+kJk87TBBQrornTbTbWr+L4Wa mlIJRWRTO8JjslGVuA+se21S4D9+YHgBDNBBxnINmaCBQqdd90QGy06pdeQb pjnZWJMa5bzcH9MbBfkdQRqpcjoA7PTGxXr4WYGyrqvqfKks8Hawah7ysN5T rgbfnoWye/nvHm8H356Bsjn5BmFwSFAuIrve462P4NxbuMr1S/qzmW1ubnnX w2rWK+4u5HZ4pDcionm434Z8jDS8m3o4jQlaeKivk3GfFplG7SAy++f3Jq1u iHDWhp/9veZFPctPr3+qt3Qs4ej041gCzsnwjrQ0Chwi1EYunP62Rq/Ry6xL vIY+vHKU0YTLYdGNiScU0aaGlis92jTjIaKydp3UOrqSaZ4vbH5770IlcjCM U4qUWWzXExrNoH4aOIQxdWBvgEJrxKNbQFso5WlL7Smm+jqol3klo8ZmnU8j ykjNNilrq3i8oToa5Esc1A2u2k5oCjWEQh+kvd9pAa4+PER8eglsNe+JuweF bOVzBErZTgaALi/9zorE+1PyBd3x6FjMssK8mRWLae9HRDbqtDa852C5THdu 6v9u2gZDPbIrkm1pLiEaSvt7Qr5gGGnnylgeScCnUIeRs9zwXyZzwFYvnY95 shG+RgfN1IG9RnJaDY7J12gcdwTTSA87XJH5I/eUTTK/3NzMOxOq0dpHjCMG e2eco/I10rzJUHyQyWs0BmKYGBPappppXEI1UgGJV97DOmp7RL5GhmLic7z3 Hy+TzYgnM0FQxxIGdWFv4DLN7pp3inIMmaxtPjJqmAhAsvQQaykBWrrneXfK 1PYgfG0d8EvT0Wi03zAxr4QcJZJUssm+Rf3Xy2RqS6MlzeRY3csfbyzr+SaZ bCx1Xj5H6Y2iFmRg8docqDPrhE9JnEiljxOd9cgbLnI7qtREDgLqpZT5VWdK 0kCpb3otIcRv1R7J4GbzeweyFXiZ7t26mLvYCJ5qAcRYEoDXhZEEoBul2LJj CYDo8O4ja2fh8CY88Rq50oePCk9VX+9M7RWGqeGEouOAC9lxiA7brDJExhlN v0Bs97otprP4KTzd5lGPoUnfy/Z7ZTrCS8pkSMz2UnSz1+2K8DJnhqSlqCyH 4c2tlfb6UFzCd8OKteKkkrrZBwKFdqi2d8j2kGNvqPwZeco2GjXEPLX7LDvJ MZkXikiBN/0JHHTUTmBWLScgL8B0+8RJIZXMaF6G3RMopCQSw0wDblRWO0Gg JzvkgF5IHCoYk+eFlb2H5jriD80H7wvPsrI5jAYsszCrl24y1K6UObRjMcfM ZxWKaBX1suc9gaLh0bQUxJyRehjsnLd8Sd5u230GVgnNLUDKF92poTZm1aZJ 1fPy5Y5AoaWA9HSyepJNRTOGkBJRYdCxsZ2uwNVMuHSBDJme1LZKjsDEMJqG 3xEoemBHrNPjzReTdAzJsHJDWkuuyufNmYCWw4PSTA0iZLvy8u22QFHIZPI4 Lf2gNL1ST1TKyNBWm4kaGk0LgbkiRUNb4Wlore4AKRzEy8lbAoVMsqaF2UyE otFSRG+jrFUXBN122FnzymU0gxPLdGdHUVBeJt8UKJpz2szpbjpVaO44pZfO t4a7FsL8KFk69Fw/neddtTuyg3jZ+LZA0T6YzgdPkKmLKJUkltoM1fzjehxP WQs1WXY6KbwuA979iqn7d8rw0injySp4AWgj035t5oX5XFMXhL8ob0pYATTl RPhLsxFWSllAOr+qnBEupBUslnEJ9Wg9r82U08L1V6GFJtclReCykEPJNbz5 wN8UKEvwjZ6/+GCzlwU10g9q8+M+1KP9waJgTclBvLT/WaDQLXjpmyZ3kNgl QZNyBXmJfUOgEC6tIfaKoEm7Ri+xfxIo1e8Q3UFiNQfrG0MQ+7pAqX4T7A4S e1XQpFxsXmJfEyh0UXFriL0maFISQC+xrwoUum66NcReFzQpb6WX2BsChe6v bw2xmlSWlmwvsa8IlBvwjdYQS2hWJ5ZY1kJiqQNWJ5YGQwuJpamlOrE0zbWQ WFo0qhNLC1gLiSV1oDqxpJrsILF0yznZcknRq04sKZ1NERvaDUMiKe7VN79K 4ptDkBi2Ir4zjnrE0pasOrG6Y3oLvtGazqt7byLWa0ZbFCjx3V6tIvYtQXMJ WniJVaNHfOSd/9BBwEfjIFZNTYtDEHtJoFCqmNYQqwZIMoZ6k1YqsRRhPHJi P4J6dO6qRmvyTvMSe1GgUOhba4jVgw46LfASq9Zb8g5sDbF6dEbEes/RzwsU up+iNcTqiSt5dHuJ1ah2csKl09CPx0GsHsvTYZHXGUmJJTfvkRP7MdQj2/u7 giYt/V5izwoUCoRpDbHqtZKOwUuXnREo78M3yKnxk3EQq65L3msoTYfnUHQX vjFyYj+xUIrqqRubN1toOmntPfhGa4i9K2h6PZDNfJWh6AP4RvoO2R0kVp06 ve7C5vXBoWh5HMTS7bvk36Muv+YdtQ4GKLErbSZ2WdAklLyRcErsffgGRb19 BvVqE5u+Q1nrrQiaZhJTR5l60tCmvDXE3hc0OWo2K7qNkEKbvhd+Byn5UNAM jhzhWhZTWKFIrXik4oycMLr1nFy5PxI0NYjZTFAWlXV6JBfL+tA0NJCWxtaQ /7GgSQZeLyPMJGjqTBZe0vRKmTAeNMmKB1CP/PQ+ETQ1h5g3fo/KzDviQxHN R8OxIrQjBnwOYClm7lOBou66qQAWb5SNzgnUxUmMn0O9JcGpovy95H8maJrJ dHxJoA4IphqjSGKkaI0vmuz5X0A9ilwNYgmkGYE4xJAwwYWOQdJqDW0PRAQx ShZh6lFOCFOEz8MmCXsI9ch58oEITb2ps3Lo0lGpQpSQp/ujcVBCa5WqGkSY iogESLPMyIl9BPXIjZkULg3RUorV5Z6mGCKRPHEfN0niY6hH4SZEos6EUZav UEZ6Bi2QlAfjyThIpK2dZgc4LCSqFkib8bGQ+ATqkcc6kajqiwYcRUNTlT3S nUgBpDjTp01S/BTqUWYjssRojpNYs8kfU+0LRaRR02aA6n05DgaEtsFbnwz+ tmQtVkTdJXp7Tr5G/rcjZ8qXFolRPQ16CGTvz/+ib2hIn5Fc30zJpXMGLZb7 5dMBiYuAIindXzXJqwDMDAwK9oJgEQgi3WMJXCdDjSFO3/9IS6QZoLenjAEd BdCU9NcmGfU11KOUhrphU1dAQk6XyGiaJdsLp9PLOCpdp6ngAWbmpqBd7NdQ rzbLvoF6lDVPVaPX5C8z5tpccueFWMJvvvyN6C1tL+gb30C9kbNHw9TUF4wG kvY8Mz96KDrR+//i2/47da0jdZ7gftskS76FehS5p3ng1CHjpMjfHEE6FMLL t6WMlkyC8l2TxH4nXdK8aDW81SNdHSg6aZrTrNlPdOZJR/YrLvSN75tkxQ8W EY4xeQe6c8arrm5V5hJjgASvSjFx9F15S9yjFj9Avdrc+7E3TiJiQh0NUaZc 51sDaz9tegrpWIp8UtAas+9NREo9PgD4uUnG/IRdY13XAjNvonl1WijbJ0Sb ZEXwojI9y49TRebPMw8PKlweQqz5WagkKSwDFBW36nhhWCzIX9FbM+PTQO6T fo0KlO/JNtY2pNLGavc2LRIAkf9MBEBBBLo1DGtviHdWFZcEvyJvf/OQINfy 5FfxrCoZm2ur2cYf3Wt5Ql/4V8VG1SQ/kHVnxerxqXljb1n+3gOT5Z4Yi2X9 vvBrpX6wGujPCvcaufuBMUNoH6ZkXXr+ZboYmTNEenRoWr44xWb+VJoXwo1P WfdZ46u4qq4l3kScfAe7wccDFi9MHd+NwUD3/sXDwMZWXZrzK6y/8a2vrKyQ TDTVkrkcF3ovZ8NsdB32qnc6sIhZGSt1XlWY3qbOQM08vTut3jn2CQGI+rkW TlcGMumZm6NuEZzGzJeB0+UHOqs1Srl3O6jHstF20Bwi8W5Y3+bPLYFH5vOR 74KbNgxoZkEzdWsoIvzC/2lYFp17tcZQovYhDVwm5LRXe9aYLlczvmNEzQr6 SfJAGDmPvOZJzduq8aykp6i6a7tHWWvu4CpFll1Vsq8IE8k/beRmyrQJPDhu hi1OMDuHtYJO8qLLdCuZwNOX5B6U7yoGFNQxchO491wlBNDkF9ai25MeNtHO wuCaTlLE+2PywUuAzsjPUGankEMwwCbHYoDNsrExYJiT96hr08m7HkDSZDiW k/dh3ClU+doVHiPV/X5IBx8LiV7XJtOPSx3U0ncVjMWrqa6XWpeIbDv3uw68 IGfQ1njjqcPkcYswleJY/AorubUqJY5FQyVGPq0jd/2s7qmcwU68gvuusfsf i7NydS91tSd0p0C/l7p5vWsoomloOPJDu2ZiE6LzNNw3MCPU+J6OQhi5Q76X aI1NIVJpszxMaIaqmGOJUqker6T6XjNhOgqPtOPWMCCKRDOViaoBW6pbjiVe rWZIYUFTHCAr2CPUlNPq+MIVQZOCN8NBGU3k6TjQ1lC3LGhOcITvVMVujy4q n8o0BcFym4nVfAuUXMKbgmBC8i3sRCaN1hBbPUcKlWlCmLHkSKme/SZ9Y3da X5yQ7Dc7kdeoNcTuioxVo8tFRmWaeK3Vuch2Istca4hV/wRKlugldkLyB05V ZsjqOT/J9KHEjiXn54dQb+qzuU5Vnt6pysA8Vbm125Q1vaIt3Uti9dz3VKaO UcPkvg+9YpSJ4XfFrQYUfTH191VM1U0kU3XHzFTdHjRV90JN1Y1fU3WX21Td 0kfqQHViJ+T+RdVlp+BmTd2lTMGdqYuC5hTchrsT1x6PnFjNNESaUYAS4oyz vlvcekS79x5sol0tPIsRavkTfK7oDP66YEUHb7VZcURYsSB/0ZY9uMYF5PZK PTWDN3OB+nnAhbxAlwAXctyszZQgtuAHo24vi9B2n9QjV231BNTT25sAxcuo twFenNEh/zkoWFH3uwi0Efa1macBwefkLzLJqwciuWeqP5n65twGKF4jYRSr GQXF63fNHFc0N0ZUUhRKbTZqpMYlkRhNjJ0yYREU9UZUL7d3AIqXjXp+pnGN FKN7TN6So85ZoI2EUZt56tJL5qruBMrB8TS5asSvxt29C3C9TNQTV4q5oF50 SjAgd8QXk9TSFFGbsfT56/J59WWgQyuNONKMWumkUOmyKEpcI3ui78ZuBYKp SUfDLMuKuebIV4e4RQufzgmU5sjLN/Vb0SmYls8zZZwL+ew4D8XVOhzKH9oQ adAIaaEa56ThXZSaw3vGrX5LNF0Rc84KBuQd+rq8jVTIl5BHoXGRM31YtHuK VyiLR2aAPeWh8jJKvdloJqCFvDvSBmJJCLtiP+iDuCKcdHWqSM2Oyg4zLsS9 oByFmpSUx8uuuwKF3HnPmIOJc20SSa5pqXjg2EeAtjC60NEwIE8p1SGXnWwy 83R10mwqt6DeR9E4xRPhfrmLZUtRWQ6AlHeSupd5x6V3DM08M++q13fa3JlF c7WLeYs4ztaJf2aqJgf/NH4wK8evETu9/pg0O4b/o9Air7M2fSh2Q3Fz93Lv M8Wyfhe9BfXNPCwOFqevDyBeeZ18qa3umGkl8V7OR7TdlB6p8LKe9Wk7ftPm dQ7wo+5NQ828FpI0wFDNmwvNy3tqq4oUqTvEe6KDeskt6a8Kr9/hFz0CIFfN OGWdfmj7hYLmbBJA+tYF6sDe2AUz3VcoonBq2jZ4b5Uiv02qd7FJYdwWqQ8q N2SXIgHodttUrhwC8I4etZXQLpIEsD9BI7lB0+i44GE6eWbTJjU27eQP2Rgo 3krjNkk85pThYDb1djUBkPGRmE0ZW8ixnrA672Ey+fpTArjA5Lky6mnWahYi 0lG9rDVz+5Ie3CmLXnGhswUN6aawjJEzlGxp1Gtpc0D9KM2eYVirE5JppXPQ QVMDjZtzHianY4+o15JliVirqY+ohTcXqzdJt2o7lOWL7z1N9dqdYWg0H1Ef NNPMRcpWuufZSfC2b6tKPJnqTdY65traTE7fFx9rEQMWG+qQQUbmgYRqV5SB gLjmTUVIbXVnSjn69diQVOhUmliaOUi/PNukDG4lEKKLHreKJz/hL5r01ZZN HdArECqjtmqnIgrnAWeCnMoPM0bRbM+SQ0KWTpqktOsmkDQwmrZTmWLIcqqn uTSnRigerchvM752O36TiZFGrpffakjNIJcXHQwo52mr/X6CEd45SePli8Ox /+g5BGks3l3lWARADNiXYNgJkYEynb5Pd5hU4Dc5aUQrRIUE7bZhBdYWwqQp CQxj5SIilBHaGfuMo2nQkAr1UFJR9Yi62KJPIJ+Z9eVCvJ04uaTvk4htf90O n3EgfMzfKnIIop3vwe82Xo8woE0jqeQ7KAyam0nb9ArDO3Bii2CX0xmH7Ou9 HtHiQxZL9eGL5OB1hPKSVVsOchPN5lpWfsLtK9Q3hhGTNwka4V4UU/8xR08l McWbUukAEUVm7nPzVNc+LSlDpgPC07Gs+h2ke01U93ac9HFHXQHx0k66S/qS b1pi9NqoZbMFJ3+jQUOruZlBrylB9Htnf9CsbRY3yKcDQF368p9lKFsIv+dL ZVm++x6seij/3dN2Bt+ehbJ7+e8elwffnoGyjnzjsIVBr18ost2BuBfqr0DZ ifz3fIGPfWbn1z1tbtqC8nZocpQ27vmloZzO1Uh9WWcZ6sukXKhSbN48YIw+ Gum1e7BM+/nVUnIBmVy6ZaY/M0efRwjlCZZUEbU3R0DTTh+RMuSd9m3/grLC nPGmIe5C+UPr1pDzvetewKaFQ+qZmlUjZSbt7mDv4/LHa2JK+4JEeltaexiR tIhlQ4vF9IFUAx85S3gn0fekt2+7CSfzFJFHhqdQg7qt+qFOiCjoEEpjBMjo 5xXFnV7tYlm/n9LsR77dtjzKvjlbCdOJ2m/MKJl2ieQ09OFBAtfLLR2Y0Lmp 10hOwqGuQ1ZnddMyc+luM4G3dOxQpIB5F55XShRu4z3NIwl7pWTes5eeE9sq IJqgolm7umwoosw0aISeMIxE0ubmkYtg+D1KuSyoxyGlNhHrFQFZ9L32Pmpb SRghnpYCAidJBOVQ5SzioAIl6ohbZHTxek9T20oT1sB3s4R22QZReW2IKqq0 Y0F1eVFn8QYPNC2vQCB5WEycvMJuzLwwgLY0xF/quiQvb+weta2ktg18Y7fI S8fXfK9O8W1A4zlUQpdk5E3woJGnw0mmj/Zkjh9Vj04IEWqm0nrP4XgFQNlF yMRFDrUUJ+cRRf4sJKXQ6MHWSE57VQph6dwrZTUnqzcFAPk2qqsOyYvgFXne L9dsH6qKUX8fC6dNj5OAJqVyJV3JZG1URkymgwAKmU6zW8vilNGtZ3e8cJUZ r1ZwL+PfEPGRhZ/O8Cg/mamV0nAjntNk0qhT1fBehAN21yUpXi8WU/ch/lBS O5IBlZEM7Dl6YOFZYoJIuRujEPwufpdBElsDrp1pVmmaAhKWmr69rJ8DDOIx UFsCI3emNXzNbeaXm8f18ocMHq8Kk+itmU0C2T9f+lrGhspLFXvWJDJfTWvE wBvCclqG9Iowyqaqpw2Edoq3tN+i+0LGEqlCiw/dZ8+zKY5+SqlM/Na8MpR9 z7wGmShLB6MqtY3GrgwT1kb92cv2Pl9IQXlZ3hJ2mqKMZHQk0YepzxPTqTsN F+bWsYhJh2TSRHURWpihaqGIdpWah5gYoLfkUA4uTShIDKAzQDPit1KYpgp+ RMHFRI6X3eqtQbsKzZe7CG81FSfl/tFgLzI3VGK3YyKpHR/rZbyxNlJXvwDN zVw5AaK5ws5b3E1LRo8daS9LeiENcmPZIfbXDqpvIpOBnh17OX9UeKs3EtHN C9ekXoxn/mjeTFPdttm6AwkLvDlTvPE85uQ2wPGs5wITLNtqFKZbAYL6sSCc DPVOmxxaL+T8HCb4oHbmjVTeHzrITi81pKKvS2cwndmO5SVkYA0WqeN5iW1a HNiUey/OJLRvCjuUt330Fz38XGScKqVQCr2BGJi+klXL6OpntYJGXcd7XW7T GZCWorIchjcZWuRdY258iRF0l/spgKff8HiE5U/zafNIuVFjPEkzfa24lj1I jielqfQtGoSEZzHHW7+8NnPoEICcyDUi5Yj8RasD7TKJGx4O9X6ir1KPJYyJ sooZYbWMDP9k5A+d+WReQl3lc2dZYOIpa3DQd4v49dnHiUtNYtUoTycVusfX tPIHoK2pRn5hlSnQBYGg8td08SRjxSrGOYdRIbvtwCSrdlaa+XSqoMRfetak Z82PAcoja5w5NhiHy9/AkVQuUyMmjdsKI4MHKBmGSCUJHw8ruJlD3kxCTkx8 LBhoIggzS3xH6qlp0cR+SDZtr5Zflc+rmpqVLWhm/qRBO/KX8IWnwhJKfnTC +irtQxRZsubU5osKg6ZdNdFQji4N7PkK2n4pkCmnlia1uJjEoFFi1chxQQSj n9dtOOUt1bY6vTyF7z6RtzrS6NRWN7XmjjHClKDUZoXOjDoIF6FtOt+59h6a N2l+fVRuEW0NFbKZrii0uAzYUy+rzR419mheokX5lL491GNDNCN3pFaoT4yI 1l7tWREmagclC+slwJNSMdZmROimYQdLfhv6lo6fvepWGsqSvKUFqzZhy1CP zLDDK9RleGTBXGmSMEohROclw++lyvDINrjcJGEU7UkHm+S3VmmrHMELzIvi gRsgh1J8LEK9YcwitGrTLH+3zYRRGaW+HY6w0I7IocDVJahHyvYnzjLKIx5b kMq4RPX81z1oQwr+pIv0vIR9DGV0TYuXsNodkAL1qB7ZBomIj6CMLOm0QtKx 48gJIw8SIsJLGCnmdK5UmzA696fbOr2E0R3t5nWqbSAsfX9jdcKuQj06rapN GIVo0mWytJW97yyj80FyFSAPodqE0bEQXQm8awlLK6jVCbsO9chfrjZhdPpE N1Z7CaMy2hm0hrC05j0FhFEZbXl2LWHkDUEH6bUJo6PLV6aJMPLOoJ32riWM ymj3Te6SFHU3I6wuYXFgTP5DtpHWEEZxnjdmhM0ImxE2I6ythNGJNCXKqmhN bLuclvLfdayJbSds4jrgjLAZYdOiIU69Tt80YRO3vVyGslbvmyfO0rFrbVMz a6KTiBUoa7X9d+Is9rv2jGXXHvd5CfMe0HoJG/kB7a49ed61vgK71rvD62jk 9cfxOhqN3B9n4jyoul7axcsnVrONP/BmkEl0hRugV+6i2VzLL9kI/+clduLc GOX6l3DlS/FRIQdX8d8CnE7v5Xr4uQ1lnznLqO2z/HfxWqD+vSf57Ur51Uo9 kVCYcOucf6N6H0C9AWn06e1K47kENirRqxdqEZWt8d2WS7PyK4eycJMNRn4T iaTwkqrk9cA3IzkjeCP3wCcdkDQKgkdEUOgmxUKkle8GCCNViTQKCuMgIh5C GYUZpXXUBggjVYkWXo2C9saTUnxqWoFrgBzSI2hdpTjhdIwnkaNJBT5tkohP BCyhrsFVZtxllILXu2I3gHpYcEI1WlL2ydu/Aryv5C3d9REwCMvqgyYR/lz4 ZYY+hrffArxv5K0Z5hgFwTWA8EPhA0W7aeTl9wDvO+EwBZdqNN6TJhF+KmDj SOD8CQz6GUD9KJRk5evZ9suLr5pEM/TI/KrI7Fdo8Sz/fajcERr46LNkmbb9 1dl2hsgMkRkiM0RmiOwMIgHWTnw+2IHqOCdNmUBmiMwQmSHSGCJZ8qNpRNL1 XIhQgimysNO2lspmbf1t988E1O62LKCwq/5XoTRU/nf37+yF/wenYo+d\ \>"],ImageRangeCache->{{{0, 480}, {480, 0}} -> {-5.11551, -5.08596, \ 0.0205586, 0.0205586}}], 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.1 0.5 0.1 [ [.1 -0.0125 -6 -9 ] [.1 -0.0125 6 0 ] [.3 -0.0125 -6 -9 ] [.3 -0.0125 6 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.7 -0.0125 -3 -9 ] [.7 -0.0125 3 0 ] [.9 -0.0125 -3 -9 ] [.9 -0.0125 3 0 ] [ 0 0 -0.125 0 ] [-0.0125 .1 -12 -4.5 ] [-0.0125 .1 0 4.5 ] [-0.0125 .3 -12 -4.5 ] [-0.0125 .3 0 4.5 ] [-0.0125 .5 -6 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .7 -6 -4.5 ] [-0.0125 .7 0 4.5 ] [-0.0125 .9 -6 -4.5 ] [-0.0125 .9 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 .1 0 m .1 1 L s .3 0 m .3 1 L s .5 0 m .5 1 L s .7 0 m .7 1 L s .9 0 m .9 1 L s 0 .1 m 1 .1 L s 0 .3 m 1 .3 L s 0 .5 m 1 .5 L s 0 .7 m 1 .7 L s 0 .9 m 1 .9 L s 0 g .1 0 m .1 .00625 L s [(-4)] .1 -0.0125 0 1 Mshowa .3 0 m .3 .00625 L s [(-2)] .3 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .7 0 m .7 .00625 L s [(2)] .7 -0.0125 0 1 Mshowa .9 0 m .9 .00625 L s [(4)] .9 -0.0125 0 1 Mshowa .125 Mabswid .15 0 m .15 .00375 L s .2 0 m .2 .00375 L s .25 0 m .25 .00375 L s .35 0 m .35 .00375 L s .4 0 m .4 .00375 L s .45 0 m .45 .00375 L s .55 0 m .55 .00375 L s .6 0 m .6 .00375 L s .65 0 m .65 .00375 L s .75 0 m .75 .00375 L s .8 0 m .8 .00375 L s .85 0 m .85 .00375 L s .05 0 m .05 .00375 L s .95 0 m .95 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .1 m .00625 .1 L s [(-4)] -0.0125 .1 1 0 Mshowa 0 .3 m .00625 .3 L s [(-2)] -0.0125 .3 1 0 Mshowa 0 .5 m .00625 .5 L s [(0)] -0.0125 .5 1 0 Mshowa 0 .7 m .00625 .7 L s [(2)] -0.0125 .7 1 0 Mshowa 0 .9 m .00625 .9 L s [(4)] -0.0125 .9 1 0 Mshowa .125 Mabswid 0 .15 m .00375 .15 L s 0 .2 m .00375 .2 L s 0 .25 m .00375 .25 L s 0 .35 m .00375 .35 L s 0 .4 m .00375 .4 L s 0 .45 m .00375 .45 L s 0 .55 m .00375 .55 L s 0 .6 m .00375 .6 L s 0 .65 m .00375 .65 L s 0 .75 m .00375 .75 L s 0 .8 m .00375 .8 L s 0 .85 m .00375 .85 L s 0 .05 m .00375 .05 L s 0 .95 m .00375 .95 L s .25 Mabswid 0 0 m 0 1 L s .1 .99375 m .1 1 L s .3 .99375 m .3 1 L s .5 .99375 m .5 1 L s .7 .99375 m .7 1 L s .9 .99375 m .9 1 L s .125 Mabswid .15 .99625 m .15 1 L s .2 .99625 m .2 1 L s .25 .99625 m .25 1 L s .35 .99625 m .35 1 L s .4 .99625 m .4 1 L s .45 .99625 m .45 1 L s .55 .99625 m .55 1 L s .6 .99625 m .6 1 L s .65 .99625 m .65 1 L s .75 .99625 m .75 1 L s .8 .99625 m .8 1 L s .85 .99625 m .85 1 L s .05 .99625 m .05 1 L s .95 .99625 m .95 1 L s .25 Mabswid 0 1 m 1 1 L s .99375 .1 m 1 .1 L s .99375 .3 m 1 .3 L s .99375 .5 m 1 .5 L s .99375 .7 m 1 .7 L s .99375 .9 m 1 .9 L s .125 Mabswid .99625 .15 m 1 .15 L s .99625 .2 m 1 .2 L s .99625 .25 m 1 .25 L s .99625 .35 m 1 .35 L s .99625 .4 m 1 .4 L s .99625 .45 m 1 .45 L s .99625 .55 m 1 .55 L s .99625 .6 m 1 .6 L s .99625 .65 m 1 .65 L s .99625 .75 m 1 .75 L s .99625 .8 m 1 .8 L s .99625 .85 m 1 .85 L s .99625 .05 m 1 .05 L s .99625 .95 m 1 .95 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 .05964 0 365.73 arc s newpath .5 .61671 .1425 0 365.73 arc s newpath .5 .72509 .04522 0 365.73 arc s newpath .40301 .71025 .078 0 365.73 arc s newpath .5 .84741 .078 0 365.73 arc s newpath .59699 .71025 .078 0 365.73 arc s newpath .5 .61671 .1425 0 365.73 arc s newpath .5 .72509 .04522 0 365.73 arc s newpath .5 .84741 .078 0 365.73 arc s newpath .40301 .71025 .078 0 365.73 arc s newpath .59699 .71025 .078 0 365.73 arc s newpath .66505 .38329 .1425 0 365.73 arc s newpath .81832 .27491 .04522 0 365.73 arc s newpath .89432 .28975 .078 0 365.73 arc s newpath .89432 .28975 .078 0 365.73 arc s newpath .79734 .15259 .078 0 365.73 arc s newpath .33495 .38329 .1425 0 365.73 arc s newpath .18168 .27491 .04522 0 365.73 arc s newpath .10568 .28975 .078 0 365.73 arc s newpath .20266 .15259 .078 0 365.73 arc s newpath .10568 .28975 .078 0 365.73 arc s .5 .72509 m .5 .72509 .008 0 365.73 arc F .5 .72509 m .5 .72509 .008 0 365.73 arc F .81832 .27491 m .81832 .27491 .008 0 365.73 arc F .18168 .27491 m .18168 .27491 .008 0 365.73 arc F .5 .5 m .5 .5 .008 0 365.73 arc F .006 w .5 .72509 m .5 .5 L s .81832 .27491 m .5 .5 L s .18168 .27491 m .5 .5 L s .5 .72509 m .5 .5 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{481, 481}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnVtzFFeSxwt0R0ICzB1MNzDcbIzBeMBcJcA2MgbPzTsYz5NjYiPsiJmY jVm98xU2Yl/1XfS6++ZvQOx8Ea0qqzuzu/Q7pey6qKpFdVjt5lSdPPnPc8/M k+fVT2s///vff1r75a8/dZ//86f/+PmXv/5n9+t//HMraWJfFO37v/ivG8W/ N6Oo/7W59d/mv+KvOIV/P5H/TUbv1lej5LMarb/bfC3J09Hmxlo0/FmLNjY3 v9+Wayvf+rsfsnP9wGV9knDyVP43IZm3aMm/fuilJRmESPRnSZuK1tfW5Vf8 t76aPKP3/wJ0e0Uu9/nd3IiGORbG3gzkFHobm9H3g1lWjYONtWCW19ml9Hi5 l8oZf/bL97RQSQpJKPag/NGRxf42oo2NzR3Y/7FPMXlb/vW6V2upwm8kbK/0 nibgtoisrw21hHfr0aqWE78y0H626nBVih18ZOLirK+5wBuDzXkiyZw0yugN N9Z/6xPqvdqrrsDbb4DwjeyuVdbvw/H/pEf/Gn/tG0jdYijp6UlVHXWmHSuQ t660seB5X1tBjeAldwV9DGk/QtqbAu99PBojb6GAt05G6L23LSMtIy0jLSMt Iy0jLSMtIy0jY8aI0NqN4j+Kv/c3Vg4tIy0jLSMtI+8TIzIkz8RvXSvA0pX4 ezp+63qZzF2Kv6fit2b0128KsHlBqUwrw5fLZPh8/D0Zv2UT6/kCDJ8DehfL ZPickj2pRX1YgOEzQK9TJsNn4+/9w2Qtx+kCrJ/KpHy2TBBn4L2uFl8ExMlM yqWCMHldghwnCoA4nkn5VJkgSF6XtfgiIEh9bZRLBWHyInXz0QIgPsikfLxM ECSv65D2QQE4R5xlHPMAm5X/bbM+TznxkknhBqQdgbxevCR7KoOayDa8c72X Bu3eRcB+CmmHIa8X7CF476azAW0DK+uDsI1dcMvktiJ0JnoP38rfrfhbes3f 4enfIO0zSHsUf08O8BSNZMyfdlYN9YnPIW2xQNUsOsug6t9WNTO9fpcy2Hvx Up+4A2kHS8b7W0g7BHkD48ywp4AXLPWJuyWDPegsY8kD1jtbLMF79yBtoQCw BWcZ1DNaYJ4+8QDS5gsAm4f37lcNjNr/I0g7UADYAXjvIaRRP84NjJrJ45KB zcF7JLw9AYzKoH5cKrBlSJsrGRiVQf04NzDq2CslA5t1llE5sCeQNlsyMCqD mntuYDRiPS0Z2IyzjBZYXmDPIG2mZGBUBvXjRgOjBfmXLbCcwGiOoUL3BLCv IG26BfaeA6MyaEp5z4BJvnGEk9v1penA3rMG2AJrgbXA3ttpuV3Tt8BqANaY ffOe1XS0wJoMbM+qSfesxv69srG0wAoAq9zct2cNtHvWpL5nnSDGE5jkG0f3 otxKt7FzEvMCGztvPy+wD+C9W1r9RfxKqc9+BmnkqJsbzq45zIp4bkEOl5ts EefuT5wyLOLcTWW4nJ0J2NX4+2CcQk2CHOSL+KpTg6YyZLhfjFOueUDI8Snx Kp6AQmf0Kc0i1yCtyOkCauRUhiyuJIm2Qfv16WWPAM7r66SQmdentKLbjZMh c1AFltcczy94wHaULC1uF4cLpZaSSit8qsdRBu3DaToinjseoZwLNbHg+Dir raKrv4qc0joB9Oa0NBrTD+hTF0Q7hkcrlCP6dFbJfhiikhPi6UzKM8oBDZEL +vSsB6wdRKOlEvW2Gc1hec8VAHsW6FHzpMGS5pJTHth0dI0EQP1O6l0Owi7p r24BAZwDejSA0sEq2kSc9AjgBKRR36H3pAUcjVMuQQ4vbDmKe0w7UioHHY8L 4tgJLNUirZaoVcgMKZOGze83IK8X9idAbyIEjMYem0J3gk29l4aM5DzlpL7X +yxpaXQu3Yv3Y6Ui9ILDf0VhHFMohRE7mPlRAWDXlMphlh8dUw1WyU4oaUVL A8IJ5Wo/5AiuzHPK4IqWlnSnqaEcfVmUKgjaqdBgcUxZo3OWRPkKUJE+KhsE MoU+06e0tr7s5J4qihAFR7GdRJY9/md3QbIKH1bRssi2PrLmlBARpAV/pE/l vZnh5mqk6AQ7SXBSGSK5Bae6neQWnFwdciNLH7Eui3hJsmUnqaFFCTk5/J63 gREvNA8EF0VlCYoGMZr86T1b7NPySR58Adnu6NPzvaYS5x34XHCWT3x61xAs RHknuIKlqT/1Hi0SifWzWhqpLSzsCukZb2ve3wzIr/+0/4x2hcQJcUyrzlPw nm24M1oiqU9ptUF5yVpDIE4pbHKQuqRPSTFoWlUaOic1LwU5oSZAPHsFuoSt MqdAaQgg60NwHSNJNI1eVZGRDveG5qUQTLZVpkmABEo808bwNLy3WLVAKS+B sAUuqcHMsEMa3uv6lFb9pkqhBVwRgVKLP+gRKBVAypciArUVDynTTGSkYzZx 07ZxQZ9SuZRGMwbZ7xot0Oy8VgYFXLkKaaT5JnETfyTQIoI/C+8teARPZgOK OkWMkECD3TGoKf1Un5KQbbd3y8mVdwbYE6KlMkjItgagBfwlfXob8ppanUTr 7WmNEa13g2/6fdLs3NanZBK5qE9/C3lNpUZLqeBc4Bi6SHU/7xEoMUJhBYOd RrQwwY1gcJ9M/hPnIY12TCTao1oaqfOzOa1FoDQ5SPcRVQVRJu0IiZbcX7pO cd8BeqQKIl6WMrkfEyGT/o7UV+TY1HEK/i7Qoy0D8TImQhY2Z0JsTkIaqXBI x0K7fxL8F0DPK+TFTO5JyEFL9U5CJiUFGThHb8lk5yFlD3kcUpshiPeAHumk qMLHScjCJi1uSJ1OG2xyxKVFEAn+PtAz+xKJVpZrs40SbXCtK2wmLLFBh4Yc UlrTFpRE/ADonckoX4SZ2NsmNDH+BDfSjREwmy/6mAaMiD1YRJd840kfZW4k j4HKWS5wQWVLo9XYydYc3OYZbweI0wEH0qBSGok6PYQoO5LktU/Sro2m2bk6 5DyhzSa92I8/XaBMhkGaqChtOdTkUl6AJNps1c4uipYmr+DSzDxGtjdhku4y EKK11kjSTdWqObDQ3mPs5DwdbDbxh24iWAEqtDUjwa8AvY42YXNVzbY7liBa jdbM90RTFypb8taQzJJ/AejRiVKyQ1AdPAF6XS3Nhi/CRjjIhuGSd98aP3gt NlnoyxayjYq0QqbmTSeTvZfNPgV6ae1GIviI/eW9MnetNDQM9MBN4Nbd54Tg RK/Vh4OKH4K0A/G3rFJ/gadHnWk/x9+9ZeD2p0tO/maUii/ouf3JBeM0iHsb oalRqd7MJ5kuoKFYDGQkoKb3DOjZIYVsswJ1lxHblY6dfD16kbGTJEA6f0mT Bkgjple2lPYl0OtoaUFzT1BN75Jof4mTuvGd2qZXGUbthkYcM8VGsKukAZJ8 Ar1m3K+Ant1YREN0kOdgPxlR9kU0jqML2abcDtArW7RntTRbYlB38gq0chUu TaqU18532ZqRxhMK8OR1Fv0a6J3R0qYzBWqmO9LZ5xaj1+po1/uQ8GivaueV qFq+BirZSxVLew70Tmtp6YV+/CGUtCGoRbQnVbTEkp2OGhhNVebmyZoi+hxI eY3yJF+7SS2ZeLd56dN8bC2aFMeVW8pNb0fTnjFHCjqTLrHulS6lrQK9E1oa YQvaficUAsGvXL42F6SapmlaSIVvmlEyjK1CDq+3EYn2mJZGVOxUEukq5F80 CeQWrdcnTHbUYpqhMcH09jRgeSVIad8AvaNaGg0WU8oprZtzC8rr3kmW/qDq QZLIr+AbyEFV5RXZERWZ19m4C1Ryex56hdd1MndY4dASzis8SnsB9Ki07Mol 4VXuWEzCC54kEDh0VuQF5KDx1ys8aufZldupQ3gdJ3M2epNuoWzhLWpppGn2 Ci/3GQHvGRYSHrU8W1WQws8rPEr7FujZpEQCIOHRzJpbeN6zU7SDJ+ZOKRyy y37rpOIV3ryWRoM+UaFNVe6DZ96TjbQXIuZOKxwK/eAVHqW9BHoHtDRablDn p9Vs7uON3pO0XuHZMTM6dVK28Oa0NBpWvOvV3MLznscOLiRpTEkZoKoTnhnc aDXgFV7uA8neI/vBhSTNZinnA6PyEnLQtOMVnhmOyBOa+KOVRO4D8N6oDsG1 UCrNzn9STCev8CjtFdCzLTb56hN/pUYPGC0kxs7MXVQ4dBa0bOGZypxOxtMy zHtc3RVpo0gYFWLOjspOAZVXkIOUSV7hmSfYFchBy7A8IVgm9FHKFzF7zqHi L2tt07Ftr3go7TugJwXRMTpizRudx7TvO4WgCjaXVKe3AC6pHFdUWhRJokxp JTUSDUaPyV6R0rrAguuc9nQ9UwmTZKhHk4yuqYxSBL6Dl0mBFxSPEL0OT62/ kBSC2+6d5JG9rKLuSiP/x8r67wsI4JVSCUbMTLVa4y+41NpJAB8qWYLtnfos GFWRFvCtUqET+jRr0L5+XhGd8wigE39LEq35bFNPk9ENfUrjQtCaFYSdKpwO LR9XdqkDp2Ik7oT9gr5Oqw6zCFMvSZ+Kjj8idVqseEXxQoukwZfkYWoKCrBu q8SLHnnIQmIaakLWFeKu0nGIIil560MqJq8oVpV1mrVJFB8qk+najD9C6opH CjKaydkNWlrfUHjGTZ9TwksuiYT3uVKZdOK9oHxed8NKkaXT6Z/Ce7ZgJuOS F+JXSoW6W3aIgrfDOKoEa52GzLxesF8qFdoONgas1IS8Rh4ZXrDPlApNIo0B a+qa7It8s8E+USqkYmoM2FllM/sisGywK0qF5pfGgDUVMPm2e8E+Viqktm4M WDMWrBQA+0ipjB4wZhfBSk3Ia8sFwD5QsLRkbgxYM0DS0Tkv2PtKhYymjQG7 pGzSQUwv2HvaPmhf2Biw5tRA56W9YO8qFVLzNwasub/QCXwv2DtKhVQejQFr 7lEUOMML9nOlQtrSysF6436ZPwaFYvGCva1USK9eDKzkKwLR7kWgOJ7e7etn SoWMVl6Iue+O8oI1t166TcgL9qZSIfNmYxqv6UoopKgX7KdKhbwIGgPWzhWQ MtGrkryuVMhZh/S0FD60crDmiUzy94I1NXanDrBkBvkE3rNAzcSSF+xHSoVO ZDUGbEfrhHJ4TU9XlQo5KTcGbFfZpIbvBWsWvItNBntB2SQ7stdCbVeJ0R0q ZEmjuyoqB3sR2MwGRmlG5TKUUTlYispLwY0vQQMcHaz509D82Riw5l1AXkxe /ygb5qgvNgas1IS81nUCC/r9SpKXl+B7ecCSNIOLj9TaZ3SwtjQhgTYG7EfK ZvC8Yyot2++XBkEaLINCqRKsrWrJuc/rBG97J1ILVA6WJnIaFMw3gRyEvGDt LMHNJoOVmpDXyF/BC9acDD6DMmhtRs29crC27Q6e9RFzOEG0U0kUHrtyiLRN o5nvlrIZvBwoCW04fAB1vz4I3h8kRD+HIhuD3bRkwbuaJCl4uFmSgpF2U1q8 1CSfykGb7twCIIUErfFMJ0q+k3b4ObgxCp7uNjsLBSxujADs0qXg2eVgSIYk bae4nxTllrZjNMONqH+9CWTp8h6zcQTPwgcDjgQv7LPj/BRylu4PCE5zedSx pG+kLdwXymY6ykKv6sj9e1HFbh5rDwugzN2svSjNPmn+esHYHyJuc9x4BPRo S003a+QGRrpxUjeYldmCS3ivPjCvI4p8WjnE2/AeBRkzrwEbf8lF+rA+Nd+x FaBHLna06KocmPl+0PjhDZmUckHZRZxkrCL934riDJ7hSTkNvQV6loOWj7lB 0NUZwQCWwWWhre8o9BqpaWgdWDmIp8pmsANN1QaCzLue2JZJj48yDrgH+5gn 1OWwfEvASTb7LryX9Onh+XgzY3VqK0wKgRMMopp6j5bnuaHSlRMdeG8F3rPd hkzFR+Jftsew2Y7qsAP0aNmdGxg5mZC5chneE9bjwKVoOBOws/pUIFLdkYKQ bumoHOJjZVMYDm7/ZaU4rfVZHzDyhqLQBml/OO1ZthZJueQaPfOEtWY8pbBp VUI6UNoq5YZNtzyQO8HDXu8bfC/iPe1gHN5AS7Y198DO2Ij3PuFLDoZJ0k4q t0DIBZCcSR6AQPrIzC+WtD4W1jH7aobwJRo7v5cbPrl7ei9bkX/Z1ErqIOsp tqci7Nn3sVDDyI2Yri0I3+EznW6k/d+y1rMevU00/adHuK3TOsR780+p4lhW KZMQTCdCtXY49ZR7B62UKUovwaej1svwXm745LXvuQAuVPFS3bOALniGdT+I LopwsiNtO80i26QxQlBmEtJTbSMkGtOWEj2pfVnnUF3aXj4aVqTTAtRO4tIe MQB6KlpfW9eX1leTeP1UdYScjuuQu7fdsk6rOal2CVVI3XlK8xJo2qK54Gto 8zic+aqJYGNtNVp/l4Q2F3n/OmImh9joSBcdCbilNUqaZGls0yGxmaI9eM9q KgdFQQ63mlVBHA1Eg3e3mufKGoG2O3pJnZwN2hStpIQjJS3F1A2ODxIGvzc+ rPGFAoSXAjEGz/akbuG2HGbpDcZxkyRSHRM9Csqae554Aazb0+vKHFWBRRMJ hvSRpOzrxb8tE85LJZt9wXxqVB4d3VKvZfXTep/sq+kp+ktuqN+pfOmI6BV9 SiuyYOgUN97en7xEttYZffq7MkH/QZmkQ8B2RTXpiLLjwBDobCsp2dpsF/zH MmH/SaVJZ9kt6oL3WrFs2GZqsCmcNPwWuOj7MsH+WclqL00edvUBbUdpQZGN k3IY4kHlbP8jpF6XCfZN/C1apVP6i9QNtNkwdDSx0Jp8Zrg06c5/KRPOj/K9 LZiDzPsHh38FNycpCCMBXNAy5NeMNSIQe7mgYfyL70zC/kdbBgNLC6RgPMiF OIXOzVcOkczfxPrRTGCURjbuyuGQRTg4aqTuDcnOQZbtyuGQfZS0bgaHeiCp KWkqqAUOMZcdV4vU0LXAIcMvMZcNh4wJZKKuHA5ZTzuQZisLms+6kEZ23srh kJGU0kz3S0sJEgpZfGuBQ8wtjQccaibBmK2mrZBfNGd1mwLCti/GutUJOVEW Y11oeRmm7nxVmVsYZj31HnkAd5ys53YR9IIIHoNMAaOzEF4QpTYdGvVNUWPW SNM7kHssGbtrYd3UhtPDv4IHy2thnWZn8TdbjFPIu4es7rWw+YXKlYzCtbBJ S7d748Ym2ZjJ56ByNmldf79lsxI2ycxOfhWVs0k7zQctm5WwuQxPyZukZXOs 2CSt4kNlcwWeki9Jy+ZYsUkKx0ctmy2bZbIptMphjjy5KMpb5Zvn6tjcxapu 2WzZrI9Nshg9btls2WzZ3GM9vWWzZVP+xNflQJxyWRm+qmneq/FqYd1OvB3Q X+cVhNgDp4ef0mGxxsCxMzsWYdpuq+rEvyTDMf1FfsKN2b7QwRXSu9gNbQb2 jP4iR8kaIW5zMLV7t8yNT36Rat4AktNrI2D1PheU05OALW1q1yrbbe5JpUOm 9mxHvYvD7a6WhY1kvaKMGMPm5m0u07u49z8OzT7icLVHgPvEKYCDEtWiJAif BBtOs6owWOQTRF4PRI9uNKi8ZRHDNCxTbWY721AOoky3VlQOmximeYQ8K8yz xQubKNNRtcphkyMvOdxnwyYqBJvWHnRpb+WwKW/2AarU4ldgm6sc+dGQPz8d MascLJ34oJOPBNZchWhVT7CJMl2nVDlsYjgY0D8Im1y/CDZRbjRsAjE/Mmza HNGdq5XDJobnRwERPORJgVaJMp01rBw2MUxp1MgNNgV/Idj0XqNhB3vqSLCz S9tF2MTwSONyEDblIMp0ArVy2NTbaFLLhk1UqLbHDjaBkMWMnBSjZQgJiig3 BjbRIxCyi+rfEi6c9D6mJ6ONFklwj8gjGoxiZZFUKbw0reLngaHKEdOignZW 1xWYxSezSY0qlajUcs7QC9EuYLKBLL2aiz9U+bSTbwzYsF5km94ojXzbC7S4 aQx4WnvTqcTkFA9rvbIlsDmkNxumSqqr3GLQgDMba9HwR0KueCOuFJESHWgl HZKNeUSZchDlUqXXn4iTsE5JkBqanIuIjOzddCyT9E/ZIqMcRJkqLbfI+rqE foNb2xiMYPjfknmi1wTfyt9JSDsPaVOhtJ4AfDmIMnHwX/H35ACwvoTjgEUb GwPyL7EtkH2tC2mk90otGRw56DxmMBJUocEnDnuk0a403lPZ0iObT6cU6VGf J8rEQW7pFQwq55Ua2WrpfBzJYHJkqRFl4iC31IrM+wSC7LuURnmzxeMtjc4B NUY8dM6PGC5HPESZRNZo8WQ39z0rHoJI4skeQ4uIhwRPHDRGPDRYBh2kRprQ ggtRyUFLjsYIheZdWkMHR5xgIGnvhqbR4ulqLRLrwY4UvFMtGG/VsZhsjFAo ZgipboLiEf9CWnmReEiPQeJpjG6DNoWkWQzuy2dGEY852pALV2OEQsxRGcHB d6Q2Q5QbI57g/dwW1aYSoZA+P/ua7ZqFQmF9yDZFA60pSbzDMFEmDhojHnO2 8wrFKwp6z5x+yK+pFqGQXYhUwGTu9XYar/aHLOTESy3mJBIU1SK9V7agzMOG POoaY18091lqPaRr824MKK95ZJAZqzFCMXMjjUekIA/eOesQipk0yVZbi1CC /jLBraFXKCTQ4PVFUhpdFFuLUGjos9j5NAYQMBKAVyimvKDAYsUclYRWEVHc VOamek198KkUFLHfHcEn5w0LXk43sHrd00o9MEDOiLdUnHT/TkAG8xkys0jl dKtnLW55tBKz21aiYZccEpKFuqbgc7U4lhImYS772jx5Spcp1uIUTJufO9ri pSXJPUg0XttTu0v8XlOAUd7PuX/JvGOXOAaP1NHNrLX47VNeuqg4+4p3r/8D Ua7lbAYpi2hkt2kveJWh+YbRYJxKq+X8jUUqJ5ayQZhWnqZKio9ay8kqUvDa UtquWUxNDzLieP3xazkpRzpx2tVJrzyscIIbHbqvrZYIGaZaEdYnkurY/p5p mWjgMSr1HVKW4kmNNTcMkWbwlDspUakFGFkeySZhtxVRL1rQpzR6WkSE+qKV mvXQtpd27C64NKTRswtPawFmh/nP6q/sk2OptGAOE1mnDmAdbU7HhxtW8Fis WW7s5mXLe74OEHbn1CH9ZQMAzWNknZvTvHbdbi33cYh141Cck3YpBIfSZHxc ilOu1gFiBfLSxEtpT5rMME28K3UwvOxkjpxFlutgmOIrE3Pk/EPXMTeGYZrZ HxViWGh52aRg5STDImyWqmajkPrEHLmyPXQyXGpDGDuGHziZI8fAB3UwfN/J HLnq3a+DYdKkEXNjxzD5G96rg2FSwhJzHUiji90rZ/iuk7mW4ZbhVBptdO/W wTCZb4i5luGqGSZn0Tstw3uRYbJcEXMtwy3DLcNjz7DQahKbpW7u24bQMjzu E3LLcFMYHrtle2MYHrut557d3DeG4bHTqHkZbozOcuyUrGOnxh47Q8HYmWLG ztg1dgzvhsF2G8OJI+BgJKHVaP1dofhLtdjHNQTXxlocCUn+tRsgSvVK0KBY Eghr8GOVIg5I/yt0JnoPk6hkJ0JpsoX/n/jXYMyyfgipOBZbHIitJ7giIaRW IG/lzj19HInMtuS0XhjHE8jr9a96WqwjTiQB0SIJ57XDHQbZIJ5CXvJvKxVE keHvGeQlT0MC8awOhr+EvHTawVwjv66Dza+0eGKOKNfC5vP4W7KS8++iPv2m DuZeqAyDztfy9GUdzL2EvMEDqMLmd3Ww+Sr+lhkoGKVBkn5fB3N/iL+PxDn/ VEfxbyBv9nstIy0jLSMtIy0ju82I0NqN4ku1v+7hCmkZaRlpGWkZaRlpGWkZ aRlpGdmJESogcjKS/Z6LEdLgelXT3rx1pY0Fz20FNYMXfwVJIJ1fB1Ll5X8l v6N9/w8E9x55\ \>"],ImageRangeCache->{{{0, 480}, {480, 0}} -> {-5.38474, -5.35363, \ 0.0216406, 0.0216406}}], 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.105263 0.5 0.105263 [ [.07895 -0.0125 -6 -9 ] [.07895 -0.0125 6 0 ] [.28947 -0.0125 -6 -9 ] [.28947 -0.0125 6 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.71053 -0.0125 -3 -9 ] [.71053 -0.0125 3 0 ] [.92105 -0.0125 -3 -9 ] [.92105 -0.0125 3 0 ] [ 0 0 -0.125 0 ] [-0.0125 .07895 -12 -4.5 ] [-0.0125 .07895 0 4.5 ] [-0.0125 .28947 -12 -4.5 ] [-0.0125 .28947 0 4.5 ] [-0.0125 .5 -6 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .71053 -6 -4.5 ] [-0.0125 .71053 0 4.5 ] [-0.0125 .92105 -6 -4.5 ] [-0.0125 .92105 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 .07895 0 m .07895 1 L s .28947 0 m .28947 1 L s .5 0 m .5 1 L s .71053 0 m .71053 1 L s .92105 0 m .92105 1 L s 0 .07895 m 1 .07895 L s 0 .28947 m 1 .28947 L s 0 .5 m 1 .5 L s 0 .71053 m 1 .71053 L s 0 .92105 m 1 .92105 L s 0 g .07895 0 m .07895 .00625 L s [(-4)] .07895 -0.0125 0 1 Mshowa .28947 0 m .28947 .00625 L s [(-2)] .28947 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .71053 0 m .71053 .00625 L s [(2)] .71053 -0.0125 0 1 Mshowa .92105 0 m .92105 .00625 L s [(4)] .92105 -0.0125 0 1 Mshowa .125 Mabswid .13158 0 m .13158 .00375 L s .18421 0 m .18421 .00375 L s .23684 0 m .23684 .00375 L s .34211 0 m .34211 .00375 L s .39474 0 m .39474 .00375 L s .44737 0 m .44737 .00375 L s .55263 0 m .55263 .00375 L s .60526 0 m .60526 .00375 L s .65789 0 m .65789 .00375 L s .76316 0 m .76316 .00375 L s .81579 0 m .81579 .00375 L s .86842 0 m .86842 .00375 L s .02632 0 m .02632 .00375 L s .97368 0 m .97368 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .07895 m .00625 .07895 L s [(-4)] -0.0125 .07895 1 0 Mshowa 0 .28947 m .00625 .28947 L s [(-2)] -0.0125 .28947 1 0 Mshowa 0 .5 m .00625 .5 L s [(0)] -0.0125 .5 1 0 Mshowa 0 .71053 m .00625 .71053 L s [(2)] -0.0125 .71053 1 0 Mshowa 0 .92105 m .00625 .92105 L s [(4)] -0.0125 .92105 1 0 Mshowa .125 Mabswid 0 .13158 m .00375 .13158 L s 0 .18421 m .00375 .18421 L s 0 .23684 m .00375 .23684 L s 0 .34211 m .00375 .34211 L s 0 .39474 m .00375 .39474 L s 0 .44737 m .00375 .44737 L s 0 .55263 m .00375 .55263 L s 0 .60526 m .00375 .60526 L s 0 .65789 m .00375 .65789 L s 0 .76316 m .00375 .76316 L s 0 .81579 m .00375 .81579 L s 0 .86842 m .00375 .86842 L s 0 .02632 m .00375 .02632 L s 0 .97368 m .00375 .97368 L s .25 Mabswid 0 0 m 0 1 L s .07895 .99375 m .07895 1 L s .28947 .99375 m .28947 1 L s .5 .99375 m .5 1 L s .71053 .99375 m .71053 1 L s .92105 .99375 m .92105 1 L s .125 Mabswid .13158 .99625 m .13158 1 L s .18421 .99625 m .18421 1 L s .23684 .99625 m .23684 1 L s .34211 .99625 m .34211 1 L s .39474 .99625 m .39474 1 L s .44737 .99625 m .44737 1 L s .55263 .99625 m .55263 1 L s .60526 .99625 m .60526 1 L s .65789 .99625 m .65789 1 L s .76316 .99625 m .76316 1 L s .81579 .99625 m .81579 1 L s .86842 .99625 m .86842 1 L s .02632 .99625 m .02632 1 L s .97368 .99625 m .97368 1 L s .25 Mabswid 0 1 m 1 1 L s .99375 .07895 m 1 .07895 L s .99375 .28947 m 1 .28947 L s .99375 .5 m 1 .5 L s .99375 .71053 m 1 .71053 L s .99375 .92105 m 1 .92105 L s .125 Mabswid .99625 .13158 m 1 .13158 L s .99625 .18421 m 1 .18421 L s .99625 .23684 m 1 .23684 L s .99625 .34211 m 1 .34211 L s .99625 .39474 m 1 .39474 L s .99625 .44737 m 1 .44737 L s .99625 .55263 m 1 .55263 L s .99625 .60526 m 1 .60526 L s .99625 .65789 m 1 .65789 L s .99625 .76316 m 1 .76316 L s .99625 .81579 m 1 .81579 L s .99625 .86842 m 1 .86842 L s .99625 .02632 m 1 .02632 L s .99625 .97368 m 1 .97368 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 .06278 0 365.73 arc s newpath .63679 .60031 .15 0 365.73 arc s newpath .5 .44334 .0476 0 365.73 arc s newpath .39791 .53043 .08211 0 365.73 arc s newpath .5 .32919 .08211 0 365.73 arc s newpath .60209 .44707 .08211 0 365.73 arc s newpath .5 .32877 .15 0 365.73 arc s newpath .5 .16975 .0476 0 365.73 arc s newpath .5 .07364 .08211 0 365.73 arc s newpath .39791 .19152 .08211 0 365.73 arc s newpath .60209 .10816 .08211 0 365.73 arc s newpath .67373 .52938 .15 0 365.73 arc s newpath .83507 .55666 .0476 0 365.73 arc s newpath .91508 .55293 .08211 0 365.73 arc s newpath .91508 .46957 .08211 0 365.73 arc s newpath .81298 .67081 .08211 0 365.73 arc s newpath .32627 .67123 .15 0 365.73 arc s newpath .16493 .83025 .0476 0 365.73 arc s newpath .08492 .89184 .08211 0 365.73 arc s newpath .18702 .92636 .08211 0 365.73 arc s newpath .08492 .80848 .08211 0 365.73 arc s .5 .44334 m .5 .44334 .00842 0 365.73 arc F .5 .16975 m .5 .16975 .00842 0 365.73 arc F .83507 .55666 m .83507 .55666 .00842 0 365.73 arc F .16493 .83025 m .16493 .83025 .00842 0 365.73 arc F .5 .5 m .5 .5 .00842 0 365.73 arc F .006 w .5 .16975 m .5 .5 L s .83507 .55666 m .5 .5 L s .16493 .83025 m .5 .5 L s .5 .44334 m .5 .5 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{481, 481}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnVuPHMd1x1u7s1ctLyIpkRQvM5RIi9RdsmRRsizqrpVs+R4nciTZghFA eggSOPvOj5AvsAjyRYL9Cn4MAgSCk6cAQZ7yvmafnqn/TO2vas/MdE/3rnYg Us3qru76/+t26pxTpz79aufrv/v7r3a++cNXg4/++NU/fv3NH/5p8OE//PFB 0vJDRfHQn8s/g6K83i+K0V/7D/7b/6/yrzKFr+/a/3rFt7vbRfXbLna/3f9b S14t9vd2isnfTrG3v//ZgVwP8u1++0U+1xf8rSerkrxu/1u2zA/eZf/6fJhW ZbCXFFXRVordnV27Kv/sblf3voDnfw/vHX7yB6Py7u8VkyW2gn0xltPet7df fDaeZVsl2NuxLF9Cls/zXxmW5cUoZ/lbsr9X7S3VR6o3DqH8xpFFf/aKvb39 Q4r/u9Ebq6fH6qAXf/xmVezXhncrcA9esmt3A+Zvd4vt8J3ykbH286AOt+2z 47eKQ7J+zh+8Od6cl6vMVaMsDjY7S//t6EXDR4fV9SU//SW8+Ga+a6Wu/7/8 32b53v+uEv6v/N9qmbAZrv6zuvW/5f+sTh8bFqDq2VXV/Ef10P+U/7M7l8ur Xnn179WtR8r/2Wjwp/Kvh8ZSo3dtQBp981Fn2iLyLgV2CNFZSFvuOCJKs5p5 6FhU38pE2rBlFufh+UdC1R7bKnsC0r6EtO1AxQW4S+R97HzzjemKeR9eprQP QzGJuQvh7sfO99VauA+cFUxpH7ZR4Pch70Vn2gddLvAlSHu/jQK/5yzcZUh7 r40Cv+ss3OOQ9m4bBX7HWbgrkPZOGwV+21m4+gts7/IW8x58/qozba38+3SZ 8ozza4Py76WaGH4L8l5zppm0Z8Lt6XD1VBvNxAvieijmY4HDW20U+EepwhEI K+aVqRtlKwW+Egq8lL07aAPEm5C3D2k0JJLQS935WhvAfgh5B5B2KfC/mm1s nQahrrueqk/1mK6CkPS9CXdvpOquq3BozfOwE9jFNoC94SzcOUjbyn6Xli5H BNgpJ7BHuwyMvnEa0kzLaz2wFTivZ/MqjXRmZyDtFqSd6zIwAkHfJWCPdBkY NTbqbUcOGA0PNPB/L9uMOwiMBnTS7B1bYE9B2pk2gN2FvE9CGskWpPY9tsBu Q9rpLgMjMZd0u3cg7dSswKoFwgH79spxxTuyOY1b1o8t2GoJm7TiG27T9fyb vWd5ePO+/XkS0jYg7SKk3YG0fy7/7o2VrpjKcYCW43VXEhkkyR7wNKRtOcty oJLWhj0wcg6YB6938iPtAJkTasU7+ui4V0KXwD4DaQ87y9KKCHNsga1BGhmP jgUwqrHnIG2zDWBezcIJsBNgHQZGc/nzXQHmVSR/p4CRiPzCCbCGgVnTsay0 2O4fB4im9lgrc5rZcj1czQiWNBAvQlorYG2tY0uvc6Fmh2hHrzsWOO1lto68 HK68HZKUfi91BRiBkKcAeRkcOYhXQxvthyvyWSJgpGJ/uSvACEQlsPQm0vbH PVHNn56gkpnk+12BSl4hlZ6FnajPhZqmoTd5g4r4Slc4oAXqrQwHZ0LFU3X3 wt1ovPZy0Mo6+GIo9Z1MQ384XJHezVRClkT23Ve7ApWEHFKXadvH2iQB0XPr 4S5Zf+uHbe/ygqXJ/1lIo05LaUkCxlrM8Ed2uh/MwcYg8FxDI6CJlZZfxAE5 AaZ54TGEjAtEzsw623nIocmZJEYiwiqIvAU2MmyQPvS1rrBB8zeJKhovaPij AZP46zmpmNnCNA8V3imMgFGboF6wNKQhaidGLGmSWiGCavgHoZjDShzdLHhm IPDxcFP+yMG3M6DvBtBU5zQFJGEvpcC24gJANWbGAhvBqDHHU0BFSvmblANJ B9UtiDPOd5IOaRCjN7fitUJ1R4VbDrVNY7dNWctQvYSdrNmtYCdvNxpUk2KP jcvkfdHL3qUmRLNaK45nRAo1CAJmaVupRkKwScprxUOSBmdqCwSbBvHTw6fH 00YdgzpAp0GTewPV8JkMaKrpVryXabCmWYjUGUaE9euqBJOC2YMfLXDPOwvW OEqqWlpsGMoVoZycxUnEvXDUIFo3XgsQbZ4mNWQrGwdoPKEWSsBs5jFrEK3U XghgW9lr5AVGY0sv1Ni5AIKscUcdWNTbyG/hclcg0vok2SjNJHB++O/xuw9+ pIQ7cig1ORDKUZu9Ha6udhmggTlVppjYVjrOHrJYvRmurrcBjLoWbWm2AlsS ifUrAYTNLjYJ0hpG2v3r4WowF2x7Rf1gC94ILJxnw8eLyaXbZnjk8XD1pLN8 g5CjoZp9M/Q1uit05wO6rXB1IVy1EhiACvx6KBItkpICDAYoqmpy1IJt1F0P V7e7gvi1UH5qniR7R5VKU0yUZmswk4Wed5a0cdivhIqmSp0e9kp4XyvhcQhi 3pqfX1QKLEmvG+HuO10B+1IoEulNpodIa5q3ugKWrF6kP0yqhjThyEJsV52B +Hy2dmiQWZmEE93V6vLNNiBSv3smFInM4XmhiCCeD3ff6ArEO6FIl4YAxu/a J4tizFXh1OTzdnW3K2BoH+jlYXMcT5tARJo98m561VmwxlHSNl4FRBIwGiAp SM8rXQFGO8qvBzhyptHkNoAc3+8KnJvZYtoNDRfaoEm7FV9uAxO1H9rixOj2 h+YN6pMvdQUO7SZJ7jCxetKs1xkQxD+B0MhA0kkrcj+NveTinNwLGdWE7j7X ZThUOxvdg0NyOk0gVDuCQy5Pz7YBh+RvbR64CXel16GVmjdCZeMgaBNfHg4Z pp5uAw5JyeRnS+GBBIdMiXfmgmPvqhsE1Yl8X8jq69VB1apEJHctcnulOhEc 8tJoJRwq5fVGoNoKcMgR4XttwKGi0/uosZ06GnCoARKc0wEOed20orEmxSMN 2QTHGpsdvEHDcytwqNuTVEBwTKNnmnQZvlZCGtmjb7YBkTQ7JGUTRC3fJO5Q XrLZtgKWZiXS7SkcpLTmGtqtodpalcJxeA1fDW1DIjgkoKpRahiRvpViM7UC jPaYkdL4Rih6D+DQKEtqpKl239a6lVCNLXoLrW5J8yqw0rKS7uFGGxCvDutt PK+99MGPak4QaHgiSaUVWIqRXUwaxKW1oyoVOkWvJt3foA1M/VAkWrmTWUPR q70LsX4bwAiO/cvGThvOyQj3aEBHQxEpKzuEbgRMnhvJg6jkvuGYPDoD0RST Z8sUkjs0K9LOdALWij8SHU5Bhbt0dOGQxk+6J1KqUY7OwKFJWdO4N0dn4PQh LR9zg+C0ck4ENR0qnOAQWMoxs89lCEXKx6zOE4KV0BKeqwEtIUvmmAXtyBFp /ExXck6aByK1wGuLgxjCeI6dGisP3n+1zMvDKq4CwPYh7Vr5txX4Bty9Dmn/ Uv49RRhZ/bHjYeeJNEoTDNWCBF0ar5Pjylzdig+enadbEdrkOGlo85NtDWhH oXKjc27nqVMS7qjMC0RZdwSe7xQcWntQq+0MnKRclIRDBDx+NODQupdynMA5 gROlkaIhuagyOKQRI0HqBM4JnBM4h8OhHK1sMiQ4SRekEzgncE7gnMA5gdMN ON/5abR+OPauowNCC45jXCczwqFFW9IQ1P1F2zFbg57AOV5wjpx27ZjpPo+w ZrqD1pG64eRNW/n9PeRb2Eq8nnpsdrZz0SJh6Ip2d3YGYj/VPAVxJdRT0s2r FTgz2rqTrlrkF9oZYFRP8lPQ4KG0TsMZQJqcTKzGlgMwXS266NO7+8Rgyx+N gK24+0zvjKWrYtJHtxr8Dpy+YH4EZ8qrja4AzDvPySuQAkLFKId/bEQ8E656 ztI17s9JUAVQjqo0NGioJyIuhLu/bwMY9SC5p3rDq1wLILQj/1Ko4fvF2O+L NlCSWK5Ko91UhFLBPMjdPH1UW2+ifKN3/KK8Ol1e9euET4MowZf/OMGnlqoR i6BSMDCKqavNFD8ur6IAePcnS2Cvu9o0PbSk1uYB2jpI9FwKBSYqSFSlqMqK yvhhKAEdDqEtbo8jPfYKLyk0UxEp2iBCi4skKVEaufqTlzyF1o7ip1kGCry/ FtqW2nkNrYemgeQO2E3VHcdRVYsh+LSfk0KsU943oaLyOc7X2cmIpluhSNq8 3Zu86qnz8JYszbhEDu3nJcIURvP18D4aqVTOxsmhPX+aSVfDlWKr8KEMRTE2 eVP4A0qjMxoU147CHxBb2q35SJ1skXzy1CQLETMKP7EEfa/g3WDUdmi7O3FF 8BRU8SLkoDefbpo12zq7MsnQVkhTs6HvUhoNu1Fc82h7WkSZNvnWBZvknKcD xKiJ9CYLl6/3fPwAlYBkKdqMTaTQNx6ukx6aqWgrrvbnaYDWvoK4Vw1/mmcJ h5c/vYVOcCQjADG+2TRrNF5b89oKXB0cd6ikJEfRootEQDpxnrbrkjabvrFR J2tk4qU0hT6pgnRlTql1NCkvdd4NwaTVo1gN63VSR3VII5tmXIpvthTuJiOe RmkEzEte3u6Vb7Nr7ZJH0jCt74lk6tIEkc65pKnHq8+kKlitk0Ya4EhwlZzo jY9NzxGNBJFolFaCyncdcjROHs2ptMSenjxaOmtRTuYAOoyXnsvr4/OtdqVO 8ijCC6n0FFeEyCMNlffYei+Nebs+VX3UamnQqYtGEp+owNPTSO2SaKSvEY15 b488jUT3cp00kuxOH9WCJnm2JHUaxzjopbEPz9FIdwPyNk4jBdqiOq6HRmqN RM8mlJTGaZrRW6Exf5KWl0ZKI3MH0Uj0EI00F5NwTshp/F2qk0Y6F566yvQ0 kgqcaCR6iEaSB+l9FAKtcRopVCB1FRO1Hy5TqJXljpHPt5jmqLuWKVNDxCUj AFpUxqVwJd1MNQkc0DIQZ7QAIs7ouXwM04VxRqHRCaq05nZlhxLKphb32RRh ySjNUanouXyUVOW9zvVXA1dSPhM2kt8sbT1wdWDUKMYN+97Qd0QYPUf6icUS RlHEk4fnSFhW43JMA6RSoPGIFBjEJD2Xj2g7FZP2kqkWG6b6TNqFpadaDa3J IYNQmqZlWit6uSILIsXy7Qc26tKK2hipsxnPcGUoNF7yOFIZuZI2efvMucC9 gyvS/FDeJFfR8FqXWUcQY6e58hfXZvnLi28yaJydfE5OuXJoOpq8DUITIulC njcRtcSWRn+a3nRIztVwRT2XeCNlGalkF8ibHNGlXEyeoDrVmmEt1IjsHork fDOQR4rOeYgahK/V5XVsLyPVzdIksKh28q1sddiaxnOM/i+jdS8Q9nS48ras /PFWDRGW3B2wHDpKzl9hds5k8daRwaRDsH+tQclpgqVCNE6h3IpJgozlrYCY JM0kk9RekzKJWLUrWp5E4fVJZopy0EzfOLXy/LgNwKanscetmF5EDX70ajpt aRWK1UFGaba1wvXG2tToJq0VZJxMnlcetVPNwBp/aVVjfCwPi3GYoptEn8bJ o9WljVlJD/rp2VqafJ/lpbOKaHr1EvXEONPVhyuQ2jdeA1tkMaARXojzRsfl 8JxmWToxaNwCMfp5mbHpcC0QY2oHyRQ1kELLatL5xjJd1SCKceGMlGwjXiQT E0NbIacKliCJ5EgFfydjjypHE2MNxNEKkohbGf49nja6Jlc7LflpwxP1PLlN q3Sj7CSU5CPkJz3EI4/ZBVKY1LNZ1V6omuLB5rkGzI/ukacu+e/QTEyrV6+F ktjVurJW/3vKS9r0UZTaqIHKo1s+4NFRr9GLaA4lTqWPISapso01K2HSRX85 3K2LP1q8E38bzJ+OGlL5kielz8gkcZU8xookgWSLvT/5HPrGLZhnmoIlWEdX xaTKy7sHjQRpcr2lvMnDtZIVGQ2/0TdI1U+quxqqgD5Fq7TEDB/ZPHTVG5IQ PW//pur00k8rFbLHEf2kZ3wMvkHNMs5bE/3UFYkKErElhEo8l91Ti8BIjiD2 qcaT81USap59aabyWx06yLQ1OhPF4xF/+KOWRQMZ7Yuh+iBOaSCj+kjumVgi AEMQNRBMgxsRTM+th6a8WT/B3pPTqdHSaE/bK9IW5BTVDZwQQCTR8dXJGlgN LWRM0Xp4iyPBPbmjMHpu4KwI4oV2bJBSacVRESvF7s5uuLu7XZ2EMs+pFN7a oIHJ0I4NOLHok6i/GeuF2kPfWS+U5t0Okq+XcGBIeUjItupmb2e72P22OjDE nv/TlJlmrE8aRkhaJ4nKvmvnnHldhckVlDbC09fI3sQbYXN59Q1y+lsavnU8 bVgfBzrWtnFfjJ32MlfHmrsipFRLuttR+UgnRcsmEh/JPTkxP5DL7KUM2wf8 4Uczi520U1S/nfnOEyLK6ZRnGst6gXIqgbnDENtkpqC1Eoks5NM5Bduxr3Ao Yl0uoSTykXqP6JSJkrovqRwnIBjfxq1iK0SlI90c2WY3yn8Q5OhE3EWzRp5C ++NWZIdgnZxiT5UptOAkJknDbo3LCicvh1a85KejMy5IwZoVL5exmD/8Y+xS 7/VuBJeSuphc9a7TjaoXFQVuHuxsBYRS07Dp9Q6UZtKaoQ0LCuZDEhzptJWD Kj4h39GjtKa6HIrYyjAiz0Kv7yrxHO0+3gpXkWeQykdLSWlHqCwJnql5UD+a SriYh3lay5BN8PRk25yH+ajbPBLqgMjx1gYJeFQv3sFQbiStVo+97NEyJ8le p0Kl5EIPEQ252E6PhgoZQIlo0UjTkZf85OyfDEFDG3WWM/jnrIaqThPN03i0 z5Jzlw0qh4aGStdPSsq8FGqIxuhkMISk35NXAiMGSP6fXrHgrZzPA6M0ZSge cXKrVZU0KYckTK400FG9RO7Y0vRrAne0YFrOeevKqwSisjRXV58FvpfgLmF7 LOQYwN11eN+ha0mqRNICGv1nQyVa1ZGtq+6qk0nIW2HTq7W9FfabQDB5fSbt GpZEyhQtppLII1mANKZUWy+FOlqHklId0XDBJuzZ65J0gXVbeX4d3kfIqaTy T6NFnFz4PdsEUnVEPeBuqCPq/qS/9L45vXg9/DmqI1KuxO+boap+lYWYr7Ro HwfNzVFHpSGF3kxE3QtVlQww4+iURLe3+siRiHiO3zdDtfys/DvpnkiUDQLd Sa27JSW3pzraOVXLB6FaqIXOUy25gGVe9XkNPgGfhpbqdWxIRsM+MDwXfrsO 1Qd9fHvY+SLPTqshEgxpRKXnqIYksNNdshg25KD0E3jOW1s3A4i4jipgBc8m 89fRZNGkTaMWMU8tkRqQZhjVprRGU9bDJyEjjZU0fChssYmMdjO5eSgZT44o +zgF0UguJldXaac7Hn+Mv17gioAuh+dmYfJjeM7LKbnIatN5cpNbkl1q6p9A Wc4HdtPD+TTCj5oreedIMa+TBqYkeTv7+TzJ2swlfW9BS3ZoxxG6ZIREe/2n UKDLgWmv7BIr4avSFrwVVtHCFRF8Smo/ypYhTy1pEeVQLqVnWqV9OL+0NCKm OVhdwUFoR6wlD7yIdrzfD0XU5u4DZNtriOIPwuOkgCRiyRFhI5Sadv/lV1k5 396fJ8nMaKS3wtftITLUWbc3C/LMG73eh+eIwqm2p40dtJHQ77C7/8HkX07J nH3UtEIkgZMYNJiVuXdDRtLpEl/PTvZWDTljwi8TYw/8Cj5zjTMZ0M2F0PAO POclhHzrtDrTrpXENl91119PSc2BRrsIpt6G58j7kpgiN93lFJylwMsycLA/ Ht0rykndLcHjaX71Yqi8B8+RuT3p8SztP82Z66F1OfiJHQUz5BjvNJDXSs5b 8Bz5ZtCa6fnQ+9L2WR55ierp6AKh7xBxuHbqfgTPkUGbqHsutCseYuqi7kBP 9GoyvOz1oYam5PFNeK4Pz1HFPxOaoHfllOOWyPmFn1v6HK2PacSjhVoN3P4Q nhs4uVUQG2og3vWuV298tHl+A54jH0Pq7bcDz96w9HXzTAR4Sc6fylMrya87 n6PZ6HuBZNI1UprXE2oekr2dyEtyPZEo5+H5VuA5GWbMwb13MKe1cp858EaR px5K+sN6qL4Lz1HgX3rfk4FqakbUV71bm44l1eT3SDFIada4EahOum45hu35 qWaxxTui0SRPWtsaIybPQ/ogkE4Fn8ceTZX4MyjVABrefkaHSv0rfzpPI6RT vBUKvkgy/vVA+tlMgQiUxyO4/PPTJNGHV5y3p3lJrzUUPbm0U1QyufDr0Pu4 /Zc/71AzN8l2eHsygECURh6hrdBIjgHyWJP9MLmlqyYay9+YKT8zRFue9FED h/Nc6wYZ2k34FDxH/nYXAxw15rp5tpFI9pWIcTlfa/c8bQirlTLa83obniNH Ilnpq4HIpZlJBrmM0pIGuKSPiWxWijJNU1pnOKXjZM4HTtXdk1uvHNTSguYn UBYiIEmyJZErCWlVaDtKrUdyUTyEO6mPyiFFJFNBHNPGPHQrlGDaFZ6FNNqR ZP8i/X+tJ8hRHJan4TmaOrUbSzHWvB5SyXMJorQfQ1m0ldPjgBG+pr12qylq az3Z0EvttVA47aSSgxY10roJJRHFS632jufkCjIJ+sm2Z+ahuB/eshGuzoSr ZNQbB8W0ICTXKckfVKE0OpGPicJ50QBMEpDmzylbLwX+egaes7wyaC+HTpa0 RtZNLQ33XpJpGwuVhYLB1XqOMdnCn4XnbIWxGtrRmKA2G8lEHjlWJs9GcXyD 2iWJIZ0h2eS60+VTNEZ5j97xUkul9you0gF4Uu38PqRFM0uT1D4VWi2FxvTq 2KnFk881DT9er2oSZzX+EqES7reaplFmIjqayWsSohbwEXzN49Sf+oaWdzT+ khqdhpqZCSVvrOfgOdmDyLnaSyiNVh9ORSiLTxSU0LsjQ+vmM7OSSAHxn4fn bgYS6egYL4k0XXwAXyMFDfkoFcXYAVjz7GNpnD9ZyshD2mtNpznhffga9eDE WWq3OJl6rzaZnGuaricCXd5DAYguWk6/B1+jKTmeX8qfZrhkXHKj50LT9MgY SCEDvfTQNPiukx7SJinCWHJjDU32sxBFsF+A5waBqPRBAzwuk1aEyCFJWeOy ldM6F+31V2CHi00T0Q9EkBySI4I23r8DX0gSkZR5xtdvBZ9TppAkV5pmSGZH Wh/nGKLQm287e4CaCrtM7w+3B1yfFT6Nny/CczIEJk+XSsDvw/P34Auk2qJR loig0xBuNE3J1UAJWQhyURcHoVa9RChkWDG5EY0aI+37apyNK4ENMtslAoRQ mJw34eVpXxEmmNpoK6w8Hlgho3GCFdpk/kN4ObHiXZylz3NYMEMyiJNTyAlD Q6neHiNfpXhtVf5IwfIGvNkb7oboyZ+TsEB6ZOknr1CyzGtjOpFCi1XJ7mQI IYslSSszU0FrwpfgOcWvIm9vooJUHq/Bm/NHOcezXkfpkYMDbTogerQT3EuK tq7TXRIUWqHiQqCC9rboyB6t2V6Ft9BKUnlJjpmPAMs3D2y5Y9DWKBoORcD3 4X3JbepJex8JR0SARMSGWoCcJmiDHVFBKyUakImUyAw/IymNdwsFULznJOW5 AMxLhdfHmgTGDfhG46Ro4/LbkEMD3ovhinRSuSUi6XNJGmwFvnxd3oUcgv9y eI6M5dLlEFgS7FoBKz+U9yBH3AHKH/Vd8o7TsEhl7gwBCmBAoSQqAg4sR14J lUtuwAoBUEyu3cnSQNttWiFCgRo+gBwJIu6GTONbhEa/pC2QukRniJC3xYeQ IxdY2YRwu/V4uPKuSGkt0wp8uU1R3J8cfJtCLYCCAVydrP38JNlpSuQqT1Gm vJ4MNsDa4RYk6nijK9JCrxVSFGyX4pt5SfntHFRQ+2hFipRT9SeQw+uf9ZmT CjKsUKtohQqF9/0x5CAqaH74m1R7SzZ8pdFSvxUq5CRJIS2/U1TIbPcp5CAq SK/0104q6H2k9aiVCq/2UsLhT51FpzHgN04qKI2oWJAi90Ao2yQRyciWDiK8 JLZIRNw9Hvx+Bg97Axb8lZMF6lWkGFs4C+UvCjWYZ0HLcC92aaRIq7HQDjD2 +4UTL6kWKcaSV+66B2mLMZha0i/hLsH2RjJJBGskBY4LZThCdm+nmPzZ0aXe k0uJhBeyJFA9e0mgIwQovKHLeWI0zFQnU1cHttLQ43WxeS7ApmMKvDvmKQ6F zpQnsORndQDsqNeMqntnb1yB93PLvDxsAPftz7Pl35b0a7i7CWnlyu++FfPz kPcdeO6F8u/eWOFG/aI8OndvLz2Qe2tCAcqKkXqqyuBtj97tvgmdEQ2/FMct 3SnLM23Duc7hPGEvJ+RUeSdwsgQ5aFLyurfR7lGvezRNzS6m5jxXnhhSSLBl yOFlyLtN0XuYG61wKJ7azNMYUSG3X9Jueanw7nnznrVFKgDyu62VCm1OoROc SKSlUd27fYpaAPUlUgzVSgU5D2tHxCrk8FKhzaNEgDYlUYsimwo5ps8Mmzwx 5Zkfx0KfBrbC/tOmJO2YjrKRzZDCR7kQm3vnuTKFNlrJxZ6OVKIlLBVYMfjH t7mMfjR/kLmN4ga5INrnowAmeoXiUZOb5iAQQOpmLwH5PQZRd43cMHSXtuS5 CKANR1SfVPR+Ks2SSJlEyi4yfVHwjnuBgOilNFhSx6Qtti6OHg1fpkWxHJMH kFde45TXy4c2ElauKrEIeZ8239H0RCcBuDjQ/k5aLMlJn9qEHKNpqZk/3khp 2n4gGytJXrSxk5adFDXHRQXJKUSKAoPQDhH5RVNeLyk3wjdeCVc0klH7uANp FFrBRYpaAEmbtGeZBj65QtMq1UuKthIq+rn3lEpyB6XTD1ykaGggqUPDCg13 cuqlBQ7ZkvIhdbVcoYFI07BcgynEvAu2TnL3Hr1L+xDlq0otiuyKVBatYyWX UdtSd+xPXs1CAMmiRIVYJwLkoUqiupcAU3ishG8kj/VSJJ4r4YpEXhcB3qCE NAZQ+5CrJnWk/HFiSjNDnJ2uY0OkHadCpeoHonQSGgVErZWK5BhAvXw5FC56 S/7Qr2htvJpq5E+GNrMRrsijzUVA8pjp6GW0nzR51L0lUZfyEvA7yHs7tA+K kuACS9YGkrlIIkieGr+caqj5c8jyYL+cFSLpF0iWok2fBFFudtQqyOOMJLxa IZKyjSQjL0Q50FFbWAxEexepyUi66TuByQ+MWgC5TdJbvMBsfXXYjgBSiVEE NoKYDCJmSdQC8qetNdQ8vRBpPUr8y0WJ2kIrEMkdjIIW3nBCjLbJR28hT2+K JFIrRLJvJEVu5P9APE17iGgihRKJnK0AJN1a3MDKX3JRQlZOkiy7hc5qj86i ehtykHTYGTiPBTh9yHEPcpCsNyecTJwBkm5JalquWlmuuHpL/lC22mAdMBbf cCLSRj/vdJE/K22xiKwhmWu4tqOQVEYTVv6sssXiuBK6RtJqqZ2idlN+XITt jXCXOuIiEF2eLDMtDqITUUkbQnJw/kijBsa9SRqVkaZ+Aps8qseSFAyMwOYP FWoZbDLucmV+6YUXDn+keaTFef6kmQWClnWV7FpakZIWidQur4b3kf64cTi0 WiRg+bC5pFrLH0CxQIhUYLKUaSAtJrcayoBFOF8Od8mDv3F0+ZM8ab3tDbpL xoN85PAFws4f/hjNKpZEs6hqlsC+EO6SPbQzEDVdkpgjWwhZUJ8Nd8ns3ThE Wk5QmtQMSS1pFDRC38i7zDcE1hYPm5Os5yFqhxPJBrTiJh+hO4EKcvWoFaLJ mGYHIDfPlXDXe3Sr9Cwk9cm8SzZq2Sop8EOtsGV4I7uwYh15Q/NL6qOWYsvH XopkHSJAMuF8sO1dGjyoZ8UWBlYq0VTbD3flCkZrLy+EQaA9U3N5PxTZhmgu tH8lvSiGrxr97AkblEyzcK/pJun1KqHyY1CJqr0VLJ3Tys4a+8XyKVL51go2 7y3CEA+mnQ49h8Zigvhl08DyHh8ETLuwbNhZTbWFVuDQIsILjKaM9S5APKDm oKmKVnmEkqQ1S1vrGspkeGkHSrL5rnayLr3HNCZXV9SK20bJum2qFDKhE1Si yYRX+xRNnq1CpV5GWjWC6j3pjpQoCx90yz801eXPOsgT4D1xuWME+A9TI9Bb mXeQ9bpFoAfGMDI3TYvRBofNVN/pOloSWeOVVfmzV+pEMLsiT73GsUmKI6Np 8igmimcuUyQpW1pGkvR2tWrNrSD7RwNMUn9Mo2Mv+/oudSgSXtY4O00NyeyR +3qHJwmCIPtr7m1keiD5iebjTgsLrCOZjmp6h/RnC6JkPqGRDxst2HGCuKXh nRRmtA7p3GpBu1JoAe+NXem1CHdpSSjkhJLYyKtH8sqE+pH3pgGbbPTRtEdr 4vz2lrymaB7Yg1BB9Wg6aOzShvK8EwS5TdC2moXpr5L7rZL2ikiWJrxU+2TF Ii3uYnStjirwik77Q+1HMtSGJZGPH9mdG4d/JtQ6gT7LAOW4Zc515FtMu+Ma B6Pd7cSl2+ZR/rnVFUw0vJD5nk4KpLwUhIEsRI0DU0gOgqNo8TQnkPMQvaVx EDophqI3yOuUdhN0BoS2dFK0mfVwN5rUCROdWks7hRvHZAPs2UlMJMsojTay k6m78aKTwiYZ3OU4giAvMuperYDI+yGfgFgcCBI1SaA+FiDIdY28jk5AnIBw dGzyYiUnwkUsPMmMlNeMnuCoBccokKjCWW4Xu98OA34efXghwOveThml0/41 JzbqShS0sHFsIWarxWkd/6kKTQ1hAXWHXy2vyj8XIe15SPsa0v5c/j0eRndk /ylD/JbxfYds544pGzjZJtkwfWh4g2yPMFZsP2B4dycV99W7A7bTeEPc5jIi cGExbt1H8B05sPPsY87ryZVGe2VaAeaNiPCdAkYaJgK2IMFi8mXefddHDpg3 igwBI8UmHY985ICRmYW277QCzBvQiBYh9L7OAPMGoyJgZKMmYAtfIk5+lGTY PDAyl9BG3laAecPBETCy+NFesVaAeQP90XPeUN6tAPNGs/QeWeI917hxYPnI +3oZEUBgvUf4Ng7Mu22HgFH/9J5E2zgwr8mfatZ7LkIrwPLGfKpP+Z56DzVs HETeiE8g5G3jPXqucRBeq30Fh9Ukb3UFjA3TpvNJbv3tpQq8cIN2+cdkN0si cVLxS4pJg/a9rpRf8Z4oNL1O0KKVBnWBxfh32Lv65dVWeeU9ObVur5pB+fdh 8T3JdkKSPJ3+s3A3oFSB6TmaZBfuWJYqMK1uSY5buCNgqsA0jNMaaEE+m4cX WE5VtAat25V25mKS8peizizG5dlRYK8NdUHe6YcX2Gu5XtBuglSBSZGkNPJm oqaTL3D+uRrUDcRmJJ0mB7iorZPzvPdD3ueOS96NpmtO+/6ovqrB1L83uEvU davKjLM/jaV+FoiniMX29zdDrh/6C+bE9v0=\ \>"],ImageRangeCache->{{{0, 480}, {480, 0}} -> {-5.11551, -5.08596, \ 0.0205586, 0.0205586}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"] }, Open ]] }, WindowSize->{846, 824}, WindowMargins->{{158, Automatic}, {Automatic, 15}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 3535, 97, 272, "Input"], Cell[4095, 119, 1285, 46, 132, "Input"], Cell[CellGroupData[{ Cell[5405, 169, 49674, 1406, 1732, "Input"], Cell[55082, 1577, 134, 4, 31, "Output"], Cell[55219, 1583, 19101, 673, 489, 5265, 444, "GraphicsData", "PostScript", \ "Graphics"], Cell[74323, 2258, 134, 4, 31, "Output"], Cell[74460, 2264, 134, 4, 31, "Output"], Cell[74597, 2270, 14758, 620, 489, 4565, 450, "GraphicsData", "PostScript", \ "Graphics"], Cell[89358, 2892, 134, 4, 31, "Output"], Cell[89495, 2898, 134, 4, 31, "Output"], Cell[89632, 2904, 18951, 677, 489, 5257, 450, "GraphicsData", "PostScript", \ "Graphics"], Cell[108586, 3583, 134, 4, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)