(* 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[ 98765, 3463] NotebookOptionsPosition[ 97747, 3431] NotebookOutlinePosition[ 98232, 3449] CellTagsIndexPosition[ 98189, 3446] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"SiCl4", " ", "computation"}], ";", " ", RowBox[{"coordinates", " ", "and", " ", "radii", " ", "from", " ", RowBox[{"SiCl4002", ".", "exe"}]}]}], ",", " ", RowBox[{"25.01", ".2012"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "0.59600"}], "}"}], ",", RowBox[{"{", RowBox[{"1.14188", ",", "1.14188", ",", "1.14188", ",", "1.38180"}], "}"}], ",", RowBox[{"{", RowBox[{"2.20325", ",", "2.20325", ",", "2.20325", ",", "0.45656"}], "}"}], ",", RowBox[{"{", RowBox[{"2.01449", ",", "3.72470", ",", "2.01449", ",", "1.07655"}], "}"}], ",", RowBox[{"{", RowBox[{"2.01449", ",", "2.01449", ",", "3.72470", ",", "1.07655"}], "}"}], ",", RowBox[{"{", RowBox[{"3.72470", ",", "2.01449", ",", "2.01449", ",", "1.07655"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.14188"}], ",", RowBox[{"-", "1.14188"}], ",", "1.14188", ",", "1.38180"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.20325"}], ",", RowBox[{"-", "2.20325"}], ",", "2.20325", ",", "0.45656"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.01449"}], ",", RowBox[{"-", "2.01449"}], ",", "3.72470", ",", "1.07655"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.72470"}], ",", RowBox[{"-", "2.01449"}], ",", "2.01449", ",", "1.07655"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.01449"}], ",", RowBox[{"-", "3.72470"}], ",", "2.01449", ",", "1.07655"}], "}"}], ",", RowBox[{"{", RowBox[{"1.14188", ",", RowBox[{"-", "1.14188"}], ",", RowBox[{"-", "1.14188"}], ",", "1.38180"}], "}"}], ",", RowBox[{"{", RowBox[{"2.20325", ",", RowBox[{"-", "2.20325"}], ",", RowBox[{"-", "2.20325"}], ",", "0.45656"}], "}"}], ",", RowBox[{"{", RowBox[{"3.72470", ",", RowBox[{"-", "2.01449"}], ",", RowBox[{"-", "2.01449"}], ",", "1.07655"}], "}"}], ",", RowBox[{"{", RowBox[{"2.01449", ",", RowBox[{"-", "3.72470"}], ",", RowBox[{"-", "2.01449"}], ",", "1.07655"}], "}"}], ",", RowBox[{"{", RowBox[{"2.01449", ",", RowBox[{"-", "2.01449"}], ",", RowBox[{"-", "3.72470"}], ",", "1.07655"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.14188"}], ",", "1.14188", ",", RowBox[{"-", "1.14188"}], ",", "1.38180"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.20325"}], ",", "2.20325", ",", RowBox[{"-", "2.20325"}], ",", "0.45656"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.01449"}], ",", "3.72470", ",", RowBox[{"-", "2.01449"}], ",", "1.07655"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.01449"}], ",", "2.01449", ",", RowBox[{"-", "3.72470"}], ",", "1.07655"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.72470"}], ",", "2.01449", ",", RowBox[{"-", "2.01449"}], ",", "1.07655"}], "}"}]}], "}"}]}], ";"}]}]], "Input"], Cell[BoxData[""], "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[{"-", "6"}], ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "6"}], "}"}]}], "}"}]}], ",", " ", 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 .06274 0 365.73 arc s newpath .6202 .6202 .14545 0 365.73 arc s newpath .28795 .28795 .11332 0 365.73 arc s newpath .73192 .73192 .04806 0 365.73 arc s newpath .10793 .28795 .11332 0 365.73 arc s newpath .71205 .89207 .11332 0 365.73 arc s newpath .28795 .10793 .11332 0 365.73 arc s newpath .71205 .71205 .11332 0 365.73 arc s newpath .6202 .3798 .14545 0 365.73 arc s newpath .89207 .71205 .11332 0 365.73 arc s newpath .73192 .26808 .04806 0 365.73 arc s newpath .3798 .3798 .14545 0 365.73 arc s newpath .89207 .28795 .11332 0 365.73 arc s newpath .26808 .26808 .04806 0 365.73 arc s newpath .71205 .10793 .11332 0 365.73 arc s newpath .71205 .28795 .11332 0 365.73 arc s newpath .3798 .6202 .14545 0 365.73 arc s newpath .26808 .73192 .04806 0 365.73 arc s newpath .28795 .89207 .11332 0 365.73 arc s newpath .28795 .71205 .11332 0 365.73 arc s newpath .10793 .71205 .11332 0 365.73 arc s .73192 .73192 m .73192 .73192 .00842 0 365.73 arc F .26808 .26808 m .26808 .26808 .00842 0 365.73 arc F .73192 .26808 m .73192 .26808 .00842 0 365.73 arc F .26808 .73192 m .26808 .73192 .00842 0 365.73 arc F .5 .5 m .5 .5 .00842 0 365.73 arc F .006 w .26808 .26808 m .73192 .73192 L s .26808 .73192 m .73192 .26808 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztndtyHLcRhkfcJSmK1MkSKdmWLcqSj7J80iH2CyS8yWWqcqtyUrEvUkk5 vN8X4bvwUfQoGw52Bj2D+RrbM5jZHVK7JZIrDA7dPzBAo9Hd+Ovb09/++e+3 p7//+vb4L3+8/e9vv//6v+M//+ePi6TJtSy7dpz/HGf593mWlb/mF//mT/Jf eQp//8L9mWbvzk6yxeckO3s3f+mSd7L5+WlW/5xm5/P5T41SF+XO3r2Kl3rN bd1fUPKl+zNxhS/qcv97VaQtCrhKirTt7Oz0zH3Lf85Oqs/q+X+Geosmn5X0 zs+zOsWOsNeVkq6+83n2U7XIiVBwfqoWeRVvpaDl06Bk/tlyv3dcLYtGFjUW rHxnKCI/59n5+XwJ+W/KGhe5K30wDRs/XJD9efF0wdxFJWentZHw7iw78e3k WSrj56IPT1yz1UfZy3jRV9zgYXU4TxaFF4Myaw47l/6yrKjIWnSXkvsNVHwY f7W073/P/xzk9f4r/3ZzMRLco9v5H/fy3s1/XaukXrS9eKnnHoAwbR/SDoz5 KM397zo82M1/TxbDrXv1KaRRmqNlaznNbnzP/UMiI4U01zPXlnTfB5D2taef qr3hnz7XyrqkG9Gy32i02Ame+bQvfbU34emBf/o11Gct+xU87Uzw577a2/D0 FtTyBaS1r+XzPpl4BvmIEKrvc0hLqe9Zn4w9hXx3IN8dIxMp9T3tk7HPIN9d yHfXDyxip30tdiZc9nuQ/YmRxXuQj8qm1HccZbZlnxxDPgLgfpSQeJq1vsd9 DrbHkO8+5DuMEhJPs9b3aZ+MfQr5DhMYs9Z3BPk+6ZOxTyDfkZEQYsJa3wPI 92gdjBEhVHY0jD2CfA8SGLPW9xDyfdwnYx9DvodGQoiJlPp6ZewjyPdhAmPW +j6Mll0hY0QI9c5oGLM2YGXMWp8VgPeHscVuuqG2m/TML9EXpzlen3XuafC7 V2SqKgytzFonMiuz1vo6M7vj/qjKSce3q/aFq2dSPJy5n58h7SNIewhpv0Da t/nvqjSftdKHkk4spZOsb9vgnbRbvIGBzvPK8lvq76rK1rEza5XhOq8bVqn2 yjJGhBATV5axlPo2jG0Y2zD2HjM2mlkxhZArwdhoxKy46n/s7HRW/Y+dscEH 4Gg2n32rTEajQtgwZiRkNEqusetbR8PYpdOQX9kzDSsh1lOo0TC2ruO10RyI XrqTXmfDeBcyO9saZ+tIFm/EE6W5WgxtZKVl34KyexZ2XOntPMUZojmBkiyC bvh82wCA0066AmT/9diYFm9j29NHfOz7sgeeFgagwuK0VsVFY3d92ZvQxnVf /AbQJxaWZL9oxWBPa7dVa2LxGA7X/CMgLts/yJiYAA0f+KdkMLqj0RXUIrSS 3eqxMW3H17Lfug2yGaXXXCxsb1lerX2fnYbzfSBYyk7807h96DaUtRqepbSx 55+SzdC0PjCWASWV7UJltBrQW9LKJLWVmWH7mmW80UJLb8aeBSjVsNuw4AnI ZDUpswGZ/D41lqWRTADsarwtA0AtaJDRXD6XRFawBgAMZWkmIRlS7chlAKhD h7YVlVeqvtLNq9NYQ5Ypn8p0p78oafVSd9ImKZggloFEExatPCTxk6VD3Nkk WGVcNuom67QcTJ6t2iDqaTfZ2XHDCsWjoiOC0eH+L2IUlRTBhl4mqzhAI4ve k1CkY4rJ3pVEnokFQuoj6ulwd+MBm3gQB5HC96JtbPunoYScf8jimSTpLQtQ 5FxFkgptmVy+XZdU3xS5DqZtFEGxpOZpreZ5sf+gymkAtcCFRyUtRTRoZEM0 9USShGDdYjuJz0387QfDrQg/PbIs8pd8I5nAamZ9CPWFc6jG8u3i3azWF3Lb eEpyVmxO3fVkHfgKZ/7pxSduxh9XFslWJXiZZIdzPUIbDX4LKHVorSpAmjVo 1TrwFM8aFLv29/NvqlJw3+dDrmc4BRMdRC+pE0OlTAiXepBJmmgrITTdUj7X /VM/EJtioUugSee+f0r17vinJAxsAXXqrGpAgCQlB/tkVGBPPSgkg8hTciIT BZeqnplqT1cBd+dTbTpH2YGxmPEiQkIZ8UFvNW3mSIUqI4dKyFOihdRvt5g9 qpw2VWuFWpWU9vwQJKj3/VOaD+76p6RwGxNcslzTQu8GnitAznyimKPXn3Ch fPd8G1OggBZg0rmZDs1veYLJcVJV1VTg4VWa3k+a82ggqWr2QH8RLFSNGaJG RoBfK43QAKg1ZMC4DXkwFRkmOdG503R333ddUyQkzKgOanVw9ETFUn01yryk XKJRZ1VfUn06nPEVKqdTXFbotW8F6ELkT8LSvWduDNCqZsXyjq+vbwTlDGTL U0rKsdXgps5KDQG5rInkNEJQ6CK0BAUqS7hNi9/lm1E8m2r4EWeq9akJP9pM 0GQrav+C9Qq5rkKZxWi1tbx2Wlo7MOvsCZKtTlb6x0/EjSzUpDUz6wjyOkCT AiFkRS04zYxzZrJ+3imLc0w3z0nxNwXpfQBq8Znhe94WbBqiBCzVG4Kt1aeG X+qCfTnZV8PZhSMmFfS4XiG+gSWgFmk7jU4s/hJZy/Au0+lloXm1M97e77AS va8pYhT2I85ZtbIa5T838t/FfNV8OoG0LUg7grTDbPEWVNPk+wV7WpF62tRI 1nXPyAE8fe6f2vx05ceFFSRIuw7h/ENjINQXZBlPtqQWPipGYLWNjPXnVJzE FForQpV1yuTMsRLDly8FZKG2dBmv1lLJSdv9B76w+lSdMmYWkTcJxVJlG4R8 FKGwHW4NDQt1/k7BBu3rSYcqCMaf0saS2p8yqZ0x7Crr80pNi41o2GqIxUfV ZPmIJMR00wKmt5V02sM2HUlrdOZeBbHKh1Z3WoIfBLUWH0LzqEAtIKD4O2Oa lX5e4Q6d3gmXJPt3GgkkMz4IRkf1L7VPgG9B+3GDr1UjRNMuGRlYd+XhSlvU aR2hll1Rk8RMJXE8wNbzxScmOkU4CoZj9aW0oksdRucK7fkxoNuX05lVX6aa mAf5SK/WFmwSGqkTd4AmknVV4XIMYNMUrxqiBfmIFnXibE4j9PJR/5EF8ahx pllANVI3MEYKI31nwwOd5OH4OUp7sIlv+1FlK5sFXWYmkb9en/UIsi3ENJ6p 66zdbh1GA0FMcFotl1WfH1UIDyFenqaePXccAtYhpVrhBIJXFXj3JMVCzOqs RADQ2KKxbbUxobK6vng58HFbHklTrc4mIdxBT6wCeHrRafGhEZ8CPHUuWWvT G0kj3gp8z1ajJrMXGlBkCkF9loI7laW+JQM5wl0xRupqnJtmimwF2uptQatg 3GIsDjQNUvLfIaDDTtJQNlt9Lx8rVgcAGj8EOwnE1C7BTt1DsFu7jFwMrcYI iR4Gy4mzuqhYx7tYdjXHhFVcIjo/jNRLC1XKuB4c4MTJOzTuyj+0MLfDtkEO SbyJ83Jn76o+HNSsc4fjeysV1I98LaRBIyC2I7T36qq2LkfKdQHbqmbDgDe5 VHZ16V1OpjrtBgc//axyLSYHwn5wr+Bk33GDlGCVMKzCWYqEQfSR0CqOUM3Z ZHB/djnpoa448k/FCs0KuxxMUMfTVs8KttpRgSl0CHHjKFGYIkzFLvGGBUlx TCS9+f06fa5oPOoHdX3cUimOGiEuRhW04zio0+y+UXinltFGpFqyIJSzLTpd i8eWIXEwfkYXh4zgltbi0QHo9Iqm4pYxbfSd3KwC3ZEnI+7hT1MjEW4FjMC2 aohlJqIZRngLQVyUKJmJRJtaVAgbCPeA94jZMkd/4phcOqwIqp4MKi3iAy4G Q9L/gXbW5D91J09RRcrbGlp0hGhlmyC752khCe2hpyXrEHWNNqJfQT56fchr m14kK++EG0XHIwG31+tJrQCoIfIMzFIalaVt1GgAeAz5rFqGuFQoabQpHxwA uimX9pvHkI8U1VYAiL7H0O5oAKC4QbTQpbg1H0O7JBR+DfkGB4DCtFl90eNq ZUl7Au2OBgC63VfdViu7O6LpM2iLzsC+gXydmaZruUlGozhk6lXoCtM01Omm 4NEwTZdW614rDf0L8Uv3Vg/OL93bTgIlxd8ji3wJWhtkpuvGR8Pdl5DPbYjU GCjuAdH/BVRPipjnkG9wPkmWEddkxWI79t6SFudLaDgNAdWC51ut3wzzd0UL xRbSEtqYhHaSMAiNbyFf56gVVn6/8Q2Iub0wlsn1mUFXU5fQPutFn4P3BeQj bZkwJQoV0TYTzuMiPZgp9+rsBE+pJ+jg57s+2fkO8pFx9dfBW1MZQTgnhm9Z NT/N94Mz+r3HnthTZ8nGGjCvxddaLtDSpEGTy/d9MvtjlLg423qULNWZ1mpR SMsEofzDOrBwi43z0CBZRvzkmuOZ/EitRqX7vlWK3z04OD+pbM0Wdez4sS7f 1NVI2I/KFdrkGSAVNE1GOVTfj5CvMz4vkY+ZhL+6578RLTLhEyDz2mLQeDap 1y9RCWbVXK7Uqz55fhXky5/RPif0CPBEtma4+IidQNVjsMLn6z7ZfF3JV6bL OdgndVoq5xHKoGavR1fuU/+tKriVnzcWphTXYOtlxG8gn5zWHfvRZvE3rf6V OuT0QQ2lHaS14Hs7Ozs985nOTjgCxXLmZz6vnLap9wzEl3/dlpvXiCfBi1Ef d3+yYFG7Iv1E8Dg/lSvSC+vjdoVaYliy5LghTZD4j8qGWs4aaRX8zKOT1Q9x TMD4QXLieMqqkQdaMaj2+5NIz8ppm7wDnousMvx5LqTmjv1TGac/25GY+gvL 88/p+dw6TdCUKK/4k4CL4rNcMuIZE92a669KVVIvc5imjZSlTsbsx/5buMOR juNOleCZj+rvQvAK9cpMTFYJiocu9QU9ugo3to7D3PkwyDLsSh4TYp0q3smP N/03eh0GEGIlvqo0HQYFr6L5sk9MrLseudJM91jqf9dz3bdKtI9mS0g6Yt2X 6HJuj3+AfBTkuJWGpLlKjFpd8r3KRz1fTAkWhNpsofoanL12Or7GfKcGcwxe /rXoL1M0ycQYddDgOuVWOv6JH23Nt4zklP4V/D2dzcSOl3i72VapPPjhTPIh XOWsSV0+xMiQ3iZaNKx8r+WQVcypO+hTgrpGffJK5+eOCXdlCcnaazkwf9/M H95LG5f30pppY8NmBOC9t2I8NjJx6exY33tL5o0tuxGAK+vN4NRM5MXiBNE8 rPRKvFicK46jhTZfH3tasq5eLC5JLveleG1i90fb/9U6M30QpSVuiPfQl5Ur NRkoV4Vs74JWxCmKw0Rl7Gm1Wr85uq2MaFFvFQgonRXjK6tcp75s73sTWgle TXHVdPnW76ApV/SqgdFksKsqjZZumWL/QKNampIhuX7n3+tGWoRmMlVq6fwb xAwIKiMy4f6TTB4EFVijZfXtfi7zFpkrhTspP6xcCQrUrcakMPnzB2mEtB4+ njd3NESs4V/6DqxgDd0Uev0XvFhjzKvxKi5ToIthgozYozutNbjFuiK7BBNV SjStsGz+GU1El7WGJ1oCVBuQiT59MKd2pNTXOWTRKoNs9R3DLGVEryzw1iYA X5OvXgPwbUJLriy05LjCp6YIg6MPn7oaqPsOCWyFmtqwhgS2Qt1z2OW0pW8V Ma+pLA0Ea8zrmOkeTSQGwF0Dm+Du/ccY5+Dum0sMIrQMeYnByoC/zBd0WMHu bFu1uXAmzrf9NpQ1gE0rF4krOthruUVpLThvrgajbZTU1zj53Vx1N/hVd31C 3PAdcgnkY0As0Lmz4r7U53WNvi9Jnhwr1A4ROcYPqqIVm6CIX6JqvkW02sHl RzwkiYcx3Lgqmm/rRfNtb1ylu0bLNvc8Heu7FjQMH1Slj16G8Bru8hMZLmK/ Eb8wOavbwuxGKItf70h7mC54DXjZNiEhbpTjuWy7wMn7lZ+fZvWP87uWI6fk u95x7m1167s6BFtNfKu6/32SLWI8sP96a0grLmnxFa8+kIh0Gnr6Ldwk1E+K MTJThyg5hHcGtJwwy0F6et5UTizYzvJoYnldQmH+cyP/XRjiNJ9OIW0L0o7U tGklzX0eGotPjOTsegYO4Olz/7QAbDFO8nF4np2f1yeo7qNP95rQJIb4WDqM vqdITFxTOPPpRILYR3UeiDslInlcBh+FQ6JUBBx0nTMlrQ5OWf1FfSRX6DLy LlZT/iWS4sZp8ZlGZ6fzZNqImEOvfwrcEpUplP5mKMPpWNt3jiS0W3BfvHcZ m192BrqrxFRPA+u+WTGSbQDQ1jkWuyJlYyggqvNbD9DpwjnMT40QZG3xo322 9ZCQyupYSvSL4pnLZD3zGQjYwH1/uw2cqnm7OpTiaaRdWjY0y/RtbUCucHMt lsuBpkeXmzUYCQoqS2mkB42PytosUQm6NwIk3cOww+tpcS7JjUAXu30JQ82y 12sGtpl4EFVz9iGhI4OAYMccH3+3oqRLuEAdq2XLuhB2O9qWSZeYfAwRQa1e Iv/QEmoVLUTPRsdC94JXsviQzpjuQad1Y834SbQH1VdFFc1oEqI0ua2TzgxG A5Ry+yxZR4URuIoPLa6y3YzfNUfAyXRD51m3mF6aRu1nha1sDGLmrmRQqISm m2joiBMZrbeO/6nG8k3/NL6lD/G0W2QNBKoe51qb0fTZ0HeSA4LmO4kcqgrf Lkk9YDcEHZ8BzXHe+rKYcU9SLMOIEHEZqYkULo975uKcqsdRd30+JTQgLTzW QWG34gpQSwFJjR/ejK9I+i7y8KamD32V1fluRmMqxeitZwtPU7ygqhFW+SEN BUH1CNLCtTyvV9ZyOknLupu7phkVyy5CxGN6d8jQnuA4hPrIvzHJjrrb7Ews ONLcJZIkPFAJNSKEu2yS6COz2o6sWv1OJLS4e+raifv206z32Jh2I9pG4Pu6 pfV+Z1+RFGccEQ/JEFMEIBIPrfCoyjlza71D1oeDGEl9qjWrqmE4NqZJeLh4 CIHrEYp7dQHr27lRdoJxd3tqlwI1UVpKG4M7Lfbjjas62dME5zJTQDc1+n+r mgdyq032H1e1ETJBU5DCp8ayg/ttCxPENgluYkBFcpGBbUNZEfCI2c7RAmRq IyXEYb155VCLHN7knEoUtfqrkFavQHMEJbbr+ZYBItMUncHJltnqja2uJ5M6 6O2n2yD2Sas26CVSA9G4bDcRvMqsxdtdUXKpfoPqsisSC5FrXdrp1VCdB9QZ Rt6TEKbFWMyqgESGlyguaGBPBE5thqE5qR85O96GGNGqymKhfuKBMqlvdxdw zIvrCkgdeNPny+on9dtaCWKRdleVmqe1mufFriNOjty3EBBmZ1/tTdUMySXR StRqHz3Varnn26BFobNangihGduqG0mpj4ICdmaMlDRkMZCi9KH6SAQjpVdn xmh3QeIHEUJMpNTXK2OkmifZ2cqYtT46maJtzuCMESHUO6NhzNqAlTFrfVYA Nox1ZYwIiRMXr886yXRmzDo7WRmz1rdhDBlTz19Tmrd6dKSw09mfd+yMDT4A +2bMKnB1Zswqgl5ZxogQq4fUlWAspb4NYxvGNoy9x4yNZlZMIeRKMDYakaq8 i088zVpdrX3p+C1V9rlX7cnZu/J/V5PZ2v3pWfUjneyqfeHqmRQPF/61P0Pa R5BGXr+/QJpzUa5uU0onx9y/OXduLrrEet/3pdML+PvNXW9c9MDZ1ebXO7AX 97nnr1vfzF46bda6FKujYezSqcKv7OGFlRDrcdNoGFvXOdrgB4TWk0o68LUe 6a7l5JOIo3t6yP3ssZFZqi/uadADY0QceYJaGUupj2xzB2eMHIaOExij+h73 yRgRR6cCVsZS6rMzph5ekMUXsU3+w1YLMmt9x5Cv8+EFGb+Sxac0YDWhjddC NyB3Hmx0YzHZb1I0AGInpb5eGXvm8aLmxTGd7li3lqX70zsT/IWvlsxFxZqT LuW1lu3hZlBJi1+NKmlicUhXv3/ln6rxzN1TunfcRHrcllXSqHnVddwlqRc0 uKT4dWM90oJpDV84NRRHPWpQprafQhM7NhQuiZL6t/yP8w/7R/7N+ZudFIRd +z/8nUpg\ \>"],ImageRangeCache->{{{0, 287}, {287, 0}} -> {-5.28873, -5.23843, \ 0.0349936, 0.0349936}}], 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 .04967 0 365.73 arc s newpath .5 .59516 .11515 0 365.73 arc s newpath .5 .6836 .03805 0 365.73 arc s newpath .39922 .66787 .08971 0 365.73 arc s newpath .5 .81039 .08971 0 365.73 arc s newpath .60078 .66787 .08971 0 365.73 arc s newpath .5 .59516 .11515 0 365.73 arc s newpath .5 .6836 .03805 0 365.73 arc s newpath .5 .81039 .08971 0 365.73 arc s newpath .39922 .66787 .08971 0 365.73 arc s newpath .60078 .66787 .08971 0 365.73 arc s newpath .63457 .40484 .11515 0 365.73 arc s newpath .75966 .3164 .03805 0 365.73 arc s newpath .83819 .33213 .08971 0 365.73 arc s newpath .83819 .33213 .08971 0 365.73 arc s newpath .73741 .18961 .08971 0 365.73 arc s newpath .36543 .40484 .11515 0 365.73 arc s newpath .24034 .3164 .03805 0 365.73 arc s newpath .16181 .33213 .08971 0 365.73 arc s newpath .26259 .18961 .08971 0 365.73 arc s newpath .16181 .33213 .08971 0 365.73 arc s .5 .6836 m .5 .6836 .00667 0 365.73 arc F .5 .6836 m .5 .6836 .00667 0 365.73 arc F .75966 .3164 m .75966 .3164 .00667 0 365.73 arc F .24034 .3164 m .24034 .3164 .00667 0 365.73 arc F .5 .5 m .5 .5 .00667 0 365.73 arc F .006 w .5 .6836 m .5 .5 L s .75966 .3164 m .5 .5 L s .24034 .3164 m .5 .5 L s .5 .6836 m .5 .5 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{433, 433}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnVmT3EZyx6HpOXjfh8RrmqJ4iNTBU1yJIjmiZHv84PCTj1fFhiN2Hxx2 rOfJ4Yj5IqNHe/3q/QLzUfhRxo1CIxOo/lVNYrqARpPo0DRbhToy/ygUsvKq v/t15w//8q+/7vzx97+O/+ZPv/77H/74+/8Y//W//WlSNPokyz75v/xvnOW/ D7Ks/DqY/Hfwl/wrL9Hf/+T+Wc3e721nxWc723t/8NYVr2cH+ztZ/bOT7R8c vJ5pNWm39/6QVj/FxlqbfO9n2s5dylYKKv/Z/TNyHU/Gcf+3NS0rOnMDZGVX ezt77lf+t7ddvVav/wv0W/aR87CzfzDtZz/b3xdy/qHks0axUP1TpVc31qTl 62qTbaVuf8c12YImW/FR3niXS/pzdCfNp6T+vddx/llx3+vCnXBaoPCDoYn+ OWAO4U4AmcKot2/VH7wszu/atkyTvVHBzT9OrxY8T/reqzSaDP9+b9JoTyjb qc7WyazYLiZV5VL2Jt50KzbgFKJpq9XqAzUqOpzeltmJ78rflO2mVac3fotr vzN2rPc+9MzP8/t8/o9bUn7Lv1YrpRPa8k957890UHZ2GLeTcalsZbj1H8O4 DW/9T1D2zlhmbUv1TCTtQrdU1rztQNJA0kDSQNJA0kDSQFJvSHLb1vigaQjZ ktEiO6I+IDKQNJA0kDSQNJA0kDSQNJDUK5IGcW0JbtJA0kBShyTdzL/P57Uu zUHchfz7Ql7rVjtkfpZ/r+a1zsuvc3MQ7NT9rtoF+XW9HdKv5t9uMfwMWpye g4nT0vOnMEZSJq5AvWsy6DxMnJRebsivq+0wcUGmzqbc9BNzkH5MehnLL3qK EpBO9b4QvI7NwcS69HIPWpxvh52zMuiX0GJtDnbWoN59KKPFIwFjZM57CGWr c7C4CvUIxrPQNgGLp6HeV1A2moPFEdR7BGVnoG0CFk9BvW9kys7D2ArU+1p6 Pgo7QaH+JDR8Mp1A1bJJm1/M1E8+T6HySah85E3ACaj3zCvL61uozj8voB4t +wkmznGo9/wIpJfl30G94+2QfgzqVYcv6/5sJP0l1KP3VALSN6De76As/pDG 2260Q/o61PveSPoW3B1quxDSdSJYSf8B6q23QzoJCT949fIPkf7WK8vr/wj1 SIhJQDq9/F8ZSS8dIqtlkza9oH61Vm/yodECDLyGqiRgtcrAWq1eeRu2oP5r qZ959XenHB4uSCVghWSsHxuyQlNnBcaiep2zdbgkRhOphyzGSf+oWIzf7eYs EjxUL8JiIeTMhGHQO6fo5bDHrTm3r6CMblQCbktptBri0UdW38j4s4suibRT 9goBJBgk4jh1Df/K9aQSTf5HZa+MZb9A2c/5tyua7qiyRoEnJLA1vS1x8YOk qfgr+Yi3ZUM6rMWN9JHDt9Mr1XqT6xHmyl1SNRIlzFlEcOoTU+GFf2BgKRiI 75k+IAZoC03boYGBgYGBgYGBdhjo7TK69C+ygYE0DFQMT72Trt8JgYfanpZu 79MlKy3vrlOw0hNFQR9ZSaDe+Qj0dYPW1Xh3PnAWl9rq8QHZpT5gG6HWyz/9 NNEusW18STwS3FRcz0vIcSW194cjeCMvoWc4QuZLIdN/TvKPWyboPTC/4019 9k/+iiVpJFNKHjJ3gZiOsOXcsVwR+YC5mekIqPJR1mjk++SIo+lyTMYgz7SZ LdYz+UVu1sfkqu8rlmUN/cxWQqCQO+QTaRHZYX0jnJIv6gm5E/N49z2TXk7B GKeFgsfNpsnXUEbO0Ce9KTv9PIaZnDV0tPxWIJa5n3n3Yxdoi/MQYfmRjEdO 7KeQo4rzamq32EeMLPnIXhAiGrJMrtnEvEZaVG5F/qEO5nZ8Vsd4uvv0KF2S yuQlHQHggTSkmIuzfM8fQEfzOLSTyKHBDTQ3CAMKUSFKI2hQoADhco5xoQCK 1LEMd6ZXqmXl7LgAfVyFPojNCCrE1qcwlL6yvBl7O/927ecOVHHVbiP9k89F aPapkaMIAHehjOKsLgqFY2hBfttW3smv/JaMdhlaUKwZ8RFh+wsouwZDXRZC NIKLXlFWZk9ILzflFz2F14w0R1i8A2UUBujF8AWDNawsnpJeNIiOHqnrRpoT sOiGX5WnyDWYJ8LyjPRyUXqm2XMD+vu8GYtU/UaIxauhhcLKmKPgSl6LYEzA Di1vN2GoKzJ16BW5IviPoa2V2Vsyhv8yKsYNzNubRrYiKNASSsHFKvqQ3mVN rlJbKwq6rpGKQWW2K9C2QyhUDCbFggZ60rNhhULXKwoYUrhJir5l5C0CxWa0 zHtIvXoECjFBr3YrPPTatY5L28sOITsH9UjuINJpDXAkuZwA30ALt0+5mJfQ domENhqX6KOXVhyDiPKFKtF6SumDKQCTmHDChZPoNUCd9pX35aq+UWm+ESgU U0mbKJpbKoVFVD3xZS4NUJeFEJou7gJt+O7K1ar8UX5o20gIEpFWBOkpjjyx Viwp2Jx0dcSOvivIcuWAcg1oz3BH2tKbRGU+AxlELgnWcZloIagGHylPGPFE AXeVhPKxYE7vdhUyrOs0xekvGNo4SYaZ4opIp74p8BA7t+CqtlWhxUoL1SPl fHxjYoI2vp+IQ0trLbFzXAAgHcVtuUovQxWN70DbDblKyyc9QR1CG99c61D0 8FsfQgJgtz6aajq8tipq34W2dNPitNB0WGJoaStGINMbjFRHcY3ZLowRpyUu m9K7xZsYBkxbugWOxUK9Xdfk0hNLWmriiZSuhHlcYRsnnGjx70PBVZbhktnr m0FqHpKTSRFCD7rbUAQzk6l66UtoqxaxDxFzN8+DLg6EOfmVkbRFiZpoC3IZ yug+0PuSaPFpzj+rS3RH3FPg3FhoDbLaCGlbTUhb0adXqmXGfGjoZ2x8JGP0 JShzu0XXy1fQyzm5GoTWuSnFN269wdKx424+zQrSm1J2NdpgX4AyAtSvl3+O C1XEL8EYNw+aYIxb8OIwah5QlbHJEEoeIQRU3IFG+9O5qn5c1F8CyCT5AJ/3 SS9eK6K07vjCaf5x/7cqLJOBwwowyb7fQH/+zM4/jlVVkRpkm4ZQlzr66uml pLdPiW/+t1qAHMOXtOc0Wa34egYzEvOp+wQgS2KDyims6tVxzXU9ms7wXff3 AsrOQlnOTpEZY0ph+flbqHwOys7k3yvSYvq2KTsdGckgcj+VXmxJO/TPHeZK O0vrJLSecziSeUB2HHKcjKsStOwJ9HdFnmXap8TPYZx/KeVzaOdZSq0nR+rT Rs4sT4y9NELZjUa8xWfGnKvozNG6NIetEhStaoSBQ9eJgSQEUM7SuOidQVtv DfUcvOM9k1UygQRlhTEu1MVVB24WkVzqu22HOrWiqmbNyvsoNIWDMqHXaYfS PskmpC10Q6nuxBMhm+NLYzyD/lRkVomObjj1R/R1CK1K3Qxofc7k/yq0NCv8 pLwhtmm7+xz6002dCjS0W1WtPS1THQKqtvTjUYI35CqtYKlh1GMZSMdGt1k3 f/RW7RBQN/yJ0COle0USZuIZqr3Z45W9gP406qXoZSaiytFJfk4dArYZ7BaA 8JRl7UF3SkYLrtxe2Sb00qHhtxieAwLOAjPNoYtnBt+ttw1qNUkpTY4OHUIX dssBabnyONV7iedobw6jauKs2uWWYLR6dVhhJMVncxhJK/MS+tuQ0Yi3HsJI 9eih8RSfXi/xtPvNYVyX0Qq9HC80Y2jZoV9RuNt6mdvEuCLyIUoNnSaHJXMS 0Ude/glgjDsRN4fxsswJ8nJLDaNqp8hOSk8IeSWOoV5Dt0wrjOH1oV52VRgj F2grjKSA+B30tyKjUUigFcZNqEdlM47UhP8mDGAFTw+Ey+qJAeInYDTHzQtc ilNlhUwdEiMu1fEpqwOQwE3381oVsmoH8fNOmkFW9m6mioKoEkQ9WMGjO0sb uBsCXjwriAEt14v1bU/wJAgpssaYWeG5KYwFc5AYyl5KLzQDaFyKKEwAjzWi kPymiMzN6ZWqaSrL8MEjXEj/6bByRTTVqQXt9xOEK1oDTJthBSsK7RCsaL2Q mWVYnakDsox1CB45RRKZ9EoNppqxgve8Cl5xS4reaeZRp6SaSxDabA1QJ4GH yCTwVGwibbwVwafSC4l6NAfp/UveAQmC4K3pDUj8JjIJRhXiyRRnhfGJ9EIb D4IxGEaWHkZrmgzaDBKZBKMaNcheTJBR2bfSSzCU5ogwJsg6Yc3BErcIEXiq yiCXBit4mtOK1C8EHmmxyJyqSSYapq2JJ/GxWiUJMj3h+Ns5IPtaeqH4IoJM U4AQUAky/VgTP6nvKblMEGSqviXHOCtkj6QXUjkTZFZ7+JFTRVF1yqNh9Ych 8NSEQD6vVvAeSi9k9iDwNJqBICNf24bgfSUDEGRWRy2CTA1WNKetkD2QXsjI RpBZHbVUBUSOjBHIqDrZoDWXDq10BJmaR+Onj8fLNByf2CbIaDHZBd7iGEQg 04yBBBQtqnGg1BxPb2Wr1HZPerGmZtDgdPKiPiNXSQia0Tyq7E2dqX8DvVUI FDVjkWRjBeUL6YVWHAJFjRf0Fj0pV58K5xHd4otoZ6tylQQ6AkWNUiQ1W0G5 I72QuxGBojp0SrSnNkDSHUQeJKeYyf2EcY9PAKjvGmkArADcll5IGCEA3DY6 90VGvWSERcpeQ/t5YvaSkEl6NSuzY+mFthLE7BjqJcgbHUwZQHKnI5iIsyo5 VVVK0jopPsnk2SHb+owRcVa2VYFOm+Iesu2WvlFoDbDaR65LL6SZ6iHbaiUi nYiVbTXPWe07C2b7OkzPuP6D2NYkimQtIMME+SUlYJteQmTf0cWIxB+r2V4d AgjaHrJ9Swi2auOIbX0N0kuyQ7ZJbx50gqg48xyNbc1SZvXFWTDbKlXRDtHK toq4xE4P2Xb1XLV5UvvpHpCCn+jVSM6+HbKtO6tgFNbxvITusWoGKPNLD5m9 KwST/k8DS9emzFevli3J7UC1SpR6hWx3NDsSAEHbSRIpVBsTcHkP5kXV9F/B gA3X2QMYNRUQlbMU4f56DUmQVP1dMHAi6Ew7EtQ8ndguDJkBaVpvS5g59NzF esN4ciCtp6pdX/zKP2TW0Igb1QY8moPFBHPayqwaAVQhE8xW48WTUd4HUubQ 452ARdIX0r5PTUPBVcgrOynMjqQthbmTGH8f6nXIrCPTOVCT8txntmAxq5re tCtyaaAFKgF3ZFkjzYValYPcOd4fLwc7j4VgimbRpFwUyEp7KVpWE7ATzyfl sUOzK57+asHcxfM1eXOPhvJMqJ6oGxR/6JGjneJDqJeA7XjeJG9BIQFX08Wd ERa9wF96DMkuRO/KBCzGcxp5Lwgv3Q5JcXoeHAkGdD9pC0xvzQTMxlPkhEHJ PxpFktWD4oPnETgoNqSt1x+9K2lbTLmPEkARz2bjPwL1aKPyt9p7ggkuvBm/ qlDO9EiMxu3RSQGhpYvspHzSWJZVXkUjRUeqHFTXwFExb2Y7onWMlAb0HCXA IJ5ixseAj4QLZshUr4bgJs+a2o/WzAj7DdKhECp6xCJhoTu+yroghB/XZus+ XOVvuumkMqH0ModyvZbt7ezJpb3tIqUWParEejxfi9bzJW9FAyaTWxKLWb3h PyO1HoL5Tr1eSTiKACM5iPK8Q9sKzv7Odrb3vshB5Aj4Lf9atTcyAPpc5lIw L11wLVWHB3pP6EpLW0ndmlKos2UWbTs+s0qyJvMsckO6auTk8LkQTvLEOWlL coK+fEjbo2eyUkCZYcFwWaqmD+sO5wAjfr+Xcck1dSxXvQUjeBaN56/mqY1m 12HSd+upQ/4h0odgYX13vJIByAPkptxGayLfOOec+jdjC5AqKH6Eqwl4fy20 UljBdblKYTa0KVIHNXrSg4l3KxnsV2sUlNfetsP+29kZXVzUzPm0VJCWMM45 tVDd+nWP8+mHKE7AtCtbk/kZTEIWTD3rubnSC5a2VTraz+0w9o4nkG5kgvmH g/nWgqySmHMMRosf5dsC+/AicZiTME4Sqh5AQ+MGfXbX6tAuhFmyrgXZbsQi eQAsmLHgpAwe8RNPdLMQxsj6RcunMkZ3h16zZOHrkDGyBZFuTHeVtKCQwpBs dx0yFj/n4XT9F9XrPztkSjgZZYxaxM+AbJ0xMl4Rs7q9UhbjZ9vMx07QTm1l QiWzE/VfwQUgg/7i425Jzw2N0NQZTQ7y9dlojZ2WphgxpmlJlB2NmtyMPjsL YYLWJPX2UhFdbUHkWNNDJpzngRNByV5JBr4OCQ6ejuKwJkV1rwkmaxsZGQeC w92SdPRQCCZjH9kzB4I/GoLJJEr23w4JDob5DgQPBC8JwU5zcD5vORYyx1JG PgcdEqdOxaSM16t6pqwGjbEvd8ah1K1vbUghTEp21ULqxof2Anw0UNmCTHat b3w8v1mvF1LzaP6Sz+QXPUDxw1IXMjM1aT95SWtsr2bNvyItSFZTV2OyxHXI GE2iuOZDY+81Uwjt5OOPwEKYtboQEztxsx+1CAZcLA4AWlZJ40WqpLgFjFpQ zytGSpMBsFYrcx1krEAnvVjclkAtzsiomTfqbvZLm4zWDWMBitXkq5wRFvQO 0hZZ3Zraqr2vKCs/NPVI26Y5X9S2QEHFVVo6Yyf+liQy4/ppakE9t/ScVbso y2mNjDNGq+Vm/xijTSsxdiLKGLWobgzK8pYY2/Lq5ddISiH8VeyL54gL73jy T0uMvXXfdQfXyXXibQxl6pdFOnpqcVEGrC29Lbl2NGDvNpTFTRBh9vgVugUE JuDxjQw5+/4kRj+HMvUpI2mdoKFdOQlLr9th+nWwi3o9Wn2IHQWA/NEIsjYB CO6c52GbmNBIXWKbgCIVKO0SyD/vyLvpH6EebQyas007cWoxD9upXDK9erQ1 bA4AqQ7IorckAFgXPN3FEwDUgsxBpKB6BfUSAEC5yMg9tzkAwbRxHw4AxI6f yeFwyMjkSm1bcsu2AkDGb2JnACAKAL38yK2hQwDiB4HsApk+APZ0JQQYsU/L 5/dQrw/sF9yXh8ZnZYWgFwv5E/WQX1KlbubfI2FXhS5XRnN7iZm9KSySAL5S B2BmN4hbcHLv6yEapEQOHxPFGXwKVPgUQlK7EDQkRjeM1LJCEz9aKw5N+Owl hoYWRj9KJTRCr8EhIMIH4tjBiZ/z0zpMEtq5v5PVPy7M0RrlaEWRJgAJH+sJ UKSXGvn0J0Cx7KKIsS4CRKnbeaCjCA6S3JtCR2s09UtxHgmgK7Uo5QTc2a9a wv/LdTOaTsld93cPyi5B2Yb7Xq2VTf6mQITq18suQtl9KPvP/FuFB1UK5iHD +/vhSTrPjCCjlCVS9rAZQXeV+qWQppRLUh6ALNHmEnmdGsXDTHZl2bGGKAbj er0yylabbEk6ct4HK3qbUI+MvSnQo343gaYeSg9jqEdxaClgon7HQFMPYaJd VjBMdkYqzewB9tTpbSCoQ4ysGxhSM5DFPoiRdcmnTj8HgnqIEakmyEbOqVgb YESdUjbeHm6EKaktmdsD0kOjqUT9UtKSHsLkgqCCvggBcCqS4OHgqLcDpQbt IST3heBgOl+vjOYJLdXUVj0KKCVSh/BYlemUDdN6QAnNGeumjcoIsh7aHyhc z3qCjxUyaktjUEayHkKmESBdAKUqccpU2EN4NGVnMDOjgW1rPVWYU3LCDk2+ VqO/I3M9BE+j2eN6ofR8HbJt9XbRDHTWRTWmzqVscqkcPIL+TFZWX8i9CWaq dVdfzsHEllDa0DvJ6pT13fQeVOuVv11SYV+IyD+09+jQ78bK20sBj6Qo9a4j aaZDt8GYr+QPQiRtNinx74KZeTud/PX5tEuCr/u/4DshuIbojNVRS+a3OmWK dC7uMT0Z4uw76Wi3SndLjsZbXr382ktg5WDm+AnN9kl34IU3Vv7p0Hn/xQxb 0yzZwae8KKqnw6wyUZZ1yMQzQZgUHHoczXO42nqomdZ74pXlH9Ls+Tv3/PNs EaRrkJGekuzdeaJfo5KrSarLITpMhZiV8v9M2lXSzZ/hql/Nst4BI7wkP5yl pegsmNbPr5x/vpQRZt+RrcbjHf4ivRuimQx6570bNq1/T/roQ2ytI+QLppTs 1he4Kqk/F8yeupjfZprJU8LdR1dESm/aGnfIEW09bnq8TT/kraGR7mP5dSwR R41SLWjQ1g2BO5jGcCT1vDio+BhH3kxRZ3rSwlX5Fcz/5tWzZnpoac7o8Ydn 5Ze3OAfdyNbqzejIgg45cW3P6h2t9xL3hfMIcb0sOK1L/DjIOGNkE+uQdLKZ kvfMEpNOd4KstR2STtZ88rYhdsgY3yHpY2i7+WGRTndiPJDeMunxsoWQTiQ1 Z2cgvRnpNIdpwSR2yGVwIH1ZSG+084gf6Z6G4KQ7DyvBhPqCz0gYSB9IH0gf SF886VS24HNWPgLUB9IH0gfSP1bSy9AbDZhqdLjpooT3CEcSg7i/k4d+uf+b h50Fb55qp9Bm1Y/eKNfwz67H0fRiEaB5G8rGUPbf+bcrmu6FSg//PDw1j02d gmmNo+shjnLAq8Nxgt1eZxxtRsvmfHRHcmRtPtnnYYfIXBK10hKT3pzMpSN9 iRXXPbR0LLF9iaSAJbHqWUnvoS11iS3Y5K5k9SCgSMsOSb9rJHOJSSdfoLuL Jf2ekUzKNXRvsaTfN5JJLmMUQtu6kYaORyTiyH/vgXGMLaEqgZGGQlSJuOAR gIubHOqxSwQHz3tbHMF0Kh453+qZNxRi2SHBGjoZ9hGuly2Y4G+hbfzQ9seL JfixEEJk6gnYTxdL5tMQcV4ZxYgsmHQNYKGsDcfkqh8s1DGZLt7JNQ0G0Lki CpvrkEwX53cub0kxkx0S8m6OtgNJA0kfMUmNBNp5CEkqqH5kN2kgaSBpIGkg aSBpIGkg6WMmaRDXluAmDSQNJA0kDSQNJA0kfYAkFY6CuRa66nDpnC0P8SPN oqTFyW1ezyNXPDXd5eL4DSKXMi2lLqNc/MO43ZRNp4XvNlx6Qud+3pNp4maG Sy3yW/7lef3ube9k2+IPvuc6/nO1yvTgmvKYkvz7f4vrs/7kblq6Kv9TVHG/ /zL7O/vk/wHJSQcC\ \>"],ImageRangeCache->{{{0, 432}, {432, 0}} -> {-6.49971, -6.43415, 0.029137, \ 0.029137}}], 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 .06274 0 365.73 arc s newpath .6339 .59814 .14545 0 365.73 arc s newpath .5 .44454 .04806 0 365.73 arc s newpath .37271 .55322 .11332 0 365.73 arc s newpath .5 .3023 .11332 0 365.73 arc s newpath .62729 .44929 .11332 0 365.73 arc s newpath .5 .33246 .14545 0 365.73 arc s newpath .5 .17674 .04806 0 365.73 arc s newpath .5 .05745 .11332 0 365.73 arc s newpath .37271 .20443 .11332 0 365.73 arc s newpath .62729 .1005 .11332 0 365.73 arc s newpath .66999 .52874 .14545 0 365.73 arc s newpath .82799 .55546 .04806 0 365.73 arc s newpath .92718 .55071 .11332 0 365.73 arc s newpath .92718 .44678 .11332 0 365.73 arc s newpath .79989 .6977 .11332 0 365.73 arc s newpath .33001 .66754 .14545 0 365.73 arc s newpath .17201 .82326 .04806 0 365.73 arc s newpath .07282 .8995 .11332 0 365.73 arc s newpath .20011 .94255 .11332 0 365.73 arc s newpath .07282 .79557 .11332 0 365.73 arc s .5 .44454 m .5 .44454 .00842 0 365.73 arc F .5 .17674 m .5 .17674 .00842 0 365.73 arc F .82799 .55546 m .82799 .55546 .00842 0 365.73 arc F .17201 .82326 m .17201 .82326 .00842 0 365.73 arc F .5 .5 m .5 .5 .00842 0 365.73 arc F .006 w .5 .17674 m .5 .5 L s .82799 .55546 m .5 .5 L s .17201 .82326 m .5 .5 L s .5 .44454 m .5 .5 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztndtuJMeRhmvYPAyHcyJnKM6ZnLM0kkaWNOPDtQGbN/YDGPAuBMOGfbGw 4eXdwtsL7NUCC+wL8FmWj6JHabOiqjKqsr7Ijuqu6moKKoCjVlZmVsafkZmR kRGRv/nu7M9//Lfvzv7yh+9Ofv337/7257/84d9PfvXXv18mTa5l2bWT/O8k y3/Psqz65/+y2Wy2lf/cyX9t57+m+a8s+9/8P5M84SD/tZH/+kfx6n/Cq6Pw 6j+KV2/kP5vZ9+enWfGcZuffz76V5O1sdnGWNZ+z7GI2exWqudkqf1nD+fdF snxSfuV/r9N1fuSW3C/a+basMC98Wb/834cyrSgglZQfaX64aMxWdn52HtLO T4v8NwMlb6C2n8NXywa9qqiZXWRNeqTZH2slpb6LWfbSbFtZzam27+JMqrkd mvcaKvyQbkPZ0mdRyfyRKi9L5rUUnytqLAl97yiifxfZxcXseWjpnTRJdwGF CpmyrlrvbsZNOyyIel2+LUi/rPhc3gZEvj/PTsO38yzSocfw7bsVd5xK8+rZ s33If5z+xAdu2GF9uE2KwsVQydqML+nU1v2q8rJ4yQj3zGa2av0pNKBs239B Le8g7W9F9im8+gLS/lpk/0949R7SNvJ/b+Up/1oU/Adk+ipKC/x5K3Dh7+eU lkwHYWL8XZFdeFfq28//uVZLjSrZhLQ9c4DPz+dN89SXP8u0ZSMAtB1+3bIw 0HwDUmSlSQuuzemqA0j7KaQ9hrSHkKaT8nV4ewhpE2cLDrqRM4XKpp3JoZ7d dRK24WzLKIQRY92AtE/k361GWjGMpkECGIyYR1CW0rwjQiW8kuuqj/1sXSih LiAefFBLWxkRxEfEbzRAbjv50j9ApB/v9dx0mrQIsoe1b1Tp9N390NIV4r8D aSStPYi+kT+DT1APoOwTSKNVkxaror7Nxjcun48/0tEvHVuQRrL1gzJ3/RsV c31YF2JIQL1/VYkhAYrkkXi4538bkO/rHwkbmDBq3CdOwgiUn/xI2BoTRpPN V+MRRrJ8hrJFr8RcL4tHKkzq9StLYyX41lWiPygCC2HGVKoKrVLtn6SeSfly Kn9P5N+tRlolPz+E/MeQ9sv837o8nXXS3RLhy0vfy3UGCVbvIV+rM3ZCXza0 qaukkRj0YZ80Vvuxukp2GQJFoX1dik4CFfOG1eBULjPRiyIn3zYUWG0r6202 6jM4cm3okLlTit6G1s/KXfQRU0Y99GhdKNsJradN+CS8PbyCtG2F1tP2SXXg 964gbdozJOmp9n+faTuCQo/XhTaSZ6nBpEq6XTY7Gp+ZhdSIRPPOnRSvpPi7 lSCU9qFPoB0rIrSlN6JNzPXAsinKaCA/hQ+vfFuTP0+hLOnMbyQIJK3Vs7EJ rPI+cxIo04/QR0OZFpr+SXRo4LXaYydhOuvGO6eC2CxD9enxEtQtrKT/WMtX pT930info9lBD5ipGSdjMOqHKF/+jgx24oOf/KEVZKNsdj1fluGZ5PN1ofeV g94wMJFeno2IN15AmwZXj30bdUpJ+OvAjtebv2jcGjRS/pdj0PiN2chpsKKr v9tETJCnU/SrrPgGGjW4qjpF9acd2ZVI30zkp7H6JuSftvL3eqrytUlcM9/b 0D/UF5RGZKVg0En9s1UR/xPIN4F80qCJ1VeUtgWjoiLv8/BuWiet12NML2Wx gV7REfnT1P3QKixDVkj8Yo0pCuwpSUa/7ADJn0eV50+vR/+xFWKTl9IUSb4b eUo82yiHrXPTW8Mly1A0qlNSpa8NJTQohLVEYNlotl+z9GC/03er5f/2wifr xarqyHRq4V3BMu2XaUf007HMlD+6TmUD2q+R5fGW2f7WdHOgzWsJTq91QNSL SLW9WhN2okEmyJTQI72yHeiSHngBXxjc4tNLlkh1gv5OgiyZk7aaZD0Lv6je UYh5E4ixJTHf3qogtUGvnH9MFKk1oDd208mfrvIm7UyNXTdtuu4HfG5AA0dB 5WVokkN667oZ3bQqV+Hqbvh1E1o3CiTPqdUWian5jfKrACzg3M1/3YFGjEL5 CbPyXoJGYnPt9j2ukLRPoxCs03LEoLdCNxGBuu1MafxPhqbSKxE9TTRSxt+N 8MvYfpKSexRSUvYEpJ2npY0OKigfHbCNQnTKVISU9kQMHT9RPjomHoXoRx2J 9lq1EtFkrbHCHdfDBKnErEQqnRATqWQq1auHhVfnojbgbaKJWYnoo0QdgzOy l1A6//ceLpJ86q3vCNrSKwBeNbCXNWlUEwBk3ZI2JB4ZAK975pUDIHUCQmxK RBPb096DrOyI6ENo58qIJlb39vRaE22cYnrppU6mE12i19xID0kvHVXTMKbh SdEm6HyP7KXSotvIxHp71kss1ef1PF2YWDIuISHL27O0ySfv0WUcFnowheq+ yqwNscE7goP4LPKtKq93I0FYkC6QsCBs9+e0z8SiGlr1iEG0cHgN/7xCJzEc mdgMDkDwXKjFJJIPSP2/lcI6uPO/25C2CWl5AJhpqdRpv33srOVfQi0+Txr9 kzBE3Zww2NyBYgIQj5BdGAVFGLxPwwDn8EbLTCa0nlIIC8KH8hG2hA/Vd9fZ ZtMjKYqrtIzDjp7UeNHYDSVozhgcg6W9KRwrGeVTLxMSEtaabBlWUpQEMmqm up2Q+LfWxKqfk21aBet8zftpPrG0Yxn87MZ0TotCMnqjmKwNEXHZgpwsQ1v9 K0WJ1ThyHrlyhNFcQkT8SNhVI4y26FSWCBOlmIRQvDk0ObRyU9NlVjfP10V7 L7M/ncjo0rmL5HQKkrUMEYfhayTJskFCVo+cqM34MtC0DW91/VQhYOQOvAdd NI/2igiyr3nX7FRaU/VrQ3IwaQ5o+dYzOJpfTAk28iXRtnwa3pKtTcr/dGQg dMzRfES1qNhOzE4+KQRJ0eaWuWUPaHiVa2bwzI0mH6fRoDQ6qnxjfY1aPxkQ CmownXqRCoNgpPrUdJmg0HDjtJ3pdc1eBgDavXs5QPkoa5o9k0+eiUJRQe8A kHKR9mmUj4ilfPU2V+0h/0tSbA3OAdSzdNzm7W0CgDQ55GhLdPQKADWEACC1 RKfx7gDgBNJI1BscAJrcyDKGAKA0qq/O2lX6cfK7AwFAJzHUYNLCeYWCeQAI ERkrIOiEfW0AIPHQBCByJNEWZBwHYhTK6RzCazRhUq7a6+KlK7oHGdEMTr6G e/ee1qoXucxzIsYfhl/m/thFWKfdLvEnwaM6TNNPNNqqRPs8HBfNLq3qICma yO81rDQBcTd8QN39zHgcWdMknWY5rSUdeldbpVtkkqb8PLEgKLR+RdtcRwQP zbfXTHMAELvQlY8dpnhANEicUaFa6bWDfWzFdGjOvWRxmtVT7j12TOoV43M/ MLDtjgODiRYUYhma7ilcxay+nKwaF9oH8LybsQOLrha0WNoYNPNRzYQzmdcP jgctnLsJBjcPfx2SNU2b3qgPtL4NDhjN/cTJKcBo9HjFMS9gXrOMwQEj3Yut t/EDRkSndT9pwLw7AfKO6BUw8xIjkmA6BMUh0S+tRk4D5h3igwNGIjpNpvMB 43c0bLwxQQmktJHvQCDJsaW5nku/iQkBRXkgALwxNE1PXhqmEmfiTp9kS9mb eUlif9LsbQYopITILpHUHJXwRtmkwUb57ofvkkuMiA5it8IHrAsCJVAI/8uy Ogm/2tKbvJuE/Bk4qDvEHUKDonoug6RqLMyDWxXzl9u8q1yoYvZuhF/57IT+ jaCzI01aI4m8iwkIk9Fpnam1vVmz7ovUT72vcNRR2cOAkZ5H6kG7JwBa/hDZ Up+Mbzqc8IpN1EGqKaMTUZp2N5DvFoRRT7AfMd/ZjMHxBKMYiwLwdngrv/as diwIYfrGSf2Gavl6hVAH4NPwi8ZoB8FC7WG2mm0WzO812dyBpFepl763T7/R 64E0NeQ4fEC1MtUdzwTYVvSu/t+UmiVta98PqDoYBjjaZpeEV034cCFMABnx m3aBMjiBZK4NHaL79Hvu3TpxeBuAiUZoCpNaWJ2tkFjnMAVIY9mQFGYDNJ+L TEllKPk/wNVqSFYJ/IkQNRrLRUpr+F0HJHcSlafvIewZhipvAcN1bFDtv3eB r4g+O0SvH4f0PYa94qD5yF6JjlPmcgfxO62bb2sNqx7bd9L/wV6P18nD1dPF +WOqXKKJl4jgIMxZKpR+S2TzOrf36utMwZpjfi4aF7qbDwPo9IEGhhmuunbl S3/QLOk+tihigahintpsDKSKVpo+CR3bB5B7wnUEU6nLzs/OQ6bz08Kp1ut0 aARGIICIVl2RtsIv2iK/hk8Tt9GFQJ0waVxFd6q4XJzpVXTyqf2OhRxYeuOp 0LRvghurKApeTMLMMqy9IvbBgqeCVFZze3Wz4DKwmfO98uRu/osmn65gxecl Rb9kmc/qIFzLV15Zlz9nfodpb7QmG6REBHpTfDDViKJ3eBW4Z1qvk1j5dmBl XY17FRqWx6e1YE3KlwRbCj7q0o0A2jMGjRhZNX3R6pNZYl+W9Su8L4NqpLOy BAK/OK4XGdIN9bT51SaoTil1S0Gv+gRv9DwNa09njvadIvFEZDBdKtjkdsww VU7zailqiWnwlLavWCnEWamGll9klhOZbpk2aUYE86MAJ2mxCE4OpD9LyJWm tntIOFUGOQi/7JBnLVyUIo89Sf48DUjWEaqaSeh6LVXsK5gGx5SnmyDVFdmP wguyzEhpXb3GTcRzLwLeUcu9pwXeA/d0KJMI6o7ayRjl8jHjdtbuUfPpv9vv AASp9TV3uJ4VO2AxVz9TKDOBXDj6tArQ0dtH4S2dTGfV3OXHzhAPyJMpfRTf Nby7cexG43/hA5ovQ7fR2ZJ5b2XCbNZAMa0HPEmW0AbtBjAz3XLOjBG9F3FC s6p+nE+/iPJZSJLPix5V89RvIGmOSCnxJPwia4b4fLn4RsZTtDow0vBVCxDp Cb9hxLvwNj23aInjUCKlaU6dCW5zZysvP4g+QbCx9LAbGEwIIZOIHpz/P+vC CFFZcjk0l+Sa+jkBpRQkYwUNKkAhAuLDr/xRUwte0Q1OnhdCwoGp3ktkLplR iRcRQpaMXrYY4FMGkClbWErtaey4AYBZfICSP6b5ma5CbR8eNehaBEXaW3vx jD2hQ+v3ItoCa+XRBjHgyByYVEFRPqq82AsdsT8GBvG9OfmfNs4rftHl3GlI 0iEnexDTiDD7Hs75jKGWU8uAEsW6WA0U5PFvXugTlX1ZklfPV0FCN0VdOXA8 VzJb4KSvM7PBtoAiQexLC6iWHFW0sl4241Wy1+0QYZA25ewuGtCNlsvjxwLV CBASDLSKEoS0dbF9d1zHzstwIV2b6jWYXBg/woA6jbZ0xw52Gwg/vYWKznpV ZKLm9KooXgY/c2eJvOvCj+j9Aj4ts8zEqkV398aZhmQ3N559YUv8RUZ4hK2p /8Cy/hNML8CqVHM4bFObBPNej40ITipLqjCK/2Bb1frhJFEqvm85/9MNmkcB XHwt62DC1jvYNLZJ+U5gk6lz6jo9Y34gdids9SRlrrnxdYuh/ePeVC4RYvtm g6bIkt2EE1pc30HLbPcmv7U0sS0t5AsH2qAJ7yABHzGZftxYsmnIfwaNsT0W XFxKs0KvUiPxDhsXTsn7VA+SOuPERkGk3DUj+Jl63V7hiI+y8/xkRqBqww67 qE9D1mk9K6k9vKfepPztFZB6KIXGwSoBEhFhQEPCzNuoOfmjE6ftKG5NNwOh QZSbQUl8aFBz6havVTrl8+JC+uiFcaEplMIhUAQdw5TZgIYkB1LSqd+cHbNi NEC0BykiS8E8nQQcorGukqqapqjQh9POxitApaKS4rJ472klwy2qr65xqr5N i483mqIJVEczCxuj1iJBY0Gvj/ccYFuccNLKN7XODzX6uFffuTD7kACi9+K2 ZQmaCqk7vUhRWTU1bchKhtkGzYlp60OlamHzCBs2EFXNwzeVbsxI0RtNfjCg Sd0UT2JV2kxPm9+PLYQXLN0q0mSgA988x5S3JDvYl1pPa4EcaCf2MLxNqwaU ilvN+vodlM183shGuvMicZlKfBJKpK9CTbeFAH0chpxpbx7VrIeeWwiouef3 wqhnWtTgO6HB1H3mPcEmL5oOwabG7lloQWaFE9CqdptVLbLZ9+Km5iuKEYkF hNGj0Li0EEJTKc0OclLTjCgz1Y8vF/GmEx4t7jFIJFCeBBhJ+Kz3dvWYiwed LO+ErhoShbQbXQSAGvnJIkPy0CxhVVRQyfP6/aEJpQWBDD7IWlw2EvtFD7Zr pr3lG4DmsszgVNKE5PVq9rrhEAO/HYleElzJq9TYNZq+CAOTLPXJZENrjjcq H1kTbppjLKsdnqa3JzQnqJauO7WRkV/0NXXupd0FYUHr/rskbekNc7psegqJ y7rnMp1QSfWvkNHaYu5donyfJwlLS342c82fceLvukFRqeE2fEqFJdr3Pwic ryVSnO81b/cCQfW17cpNIHjI0jkkbahouTV0Ju8hq+0w4Z1ae8LCdYt5ywOH IuqonaGNjZbIH1oM0l44XjgIypglEQ7zInNzF6X6TWITUsASP9CgptnPlBQd M3b8XQSALjJXk4jXUmhScsE0KxQE7bQjSHsPaduQtgNp3u9+BWn38n/r+7zd gK7cbd4Y/tV/yYmdFgZauemsiljde3se9blazrTn3m/84/6Gdbl5DIjp1O/g WTrMJNHXDBJdc8AjFHTCLZ9vQnJadNopPxtFoKmqogXedMN34GCccRNrpMMG kOWvKvg+OKlPKUWpu71XHKXsHry00gpyAmn1Lqra6qWfdpHeLifBmdiXpgza 0cZLdf5HU4EuNoxG/jT1O98meqMFSfpCxjQkpvd9lEZSKO0AvZDo3TXH4RfV 900XINJOBmkg6NYHkmroqIiWctpTUEdJWyRJdisyAKi+UYEgjiAjEzra9AKh 4Y33wy87jkbzG96gRUYcoPm9TkCRSoKA8tpU0PaaygqfiJbN9g+dljPImkKS tvbT+mhPSfJ6anCMAgQd33o3C2SV5QXCCCAXy5bF/zkwoDZ7g5R6MUgziNZH u0iahNYJA+8xNU3O5HbmxYDCLNIk6bK66BuAZeKRkJKexE4KW5pWXCQAMIOq mOoFIvs68iVq8OjAhQQPCmOb1lvpN1pW097QMd5zCDW8JQ9m2hiSkEkkkprS ZZS3WhLTN18TiaptWphE8zpPB4kiR4q/QgdeTd9xnaaSdgsuM9xlqFSTmzhO Rvl4w5DQ/ETuqaRpiCO4lw/JgC4r7WUA0b1Y19DW3mWLPE5JMZGK+q/xK1x2 /F5ApLJbodoomIfNAArXfMnlBPKRLsJ7fwQNuV5B0et4aDTqSaR5i6wpZ9Hc SZA9C29pT2FeVBLlI75zuQJ7gdJDBsJfTye9F7sQl9HVq/oNjYBEMgcBpSeq x+EXLV8Lg6JKTXJxU/uq1O0Z6fk2LcCSYbQXHJJr1arLdSWFDRMHHiTsbR92 w1EPkDKvSzsKb8lLxbyOahJGoyn2LoyFga2yPofyaleutpNRVWptTLOxef3b JPSQXoLexzjJH1qLeenJ5l3ArOGV9BeJIkTnrUCddrPr7sX0zfHEH17lvfeG xLuBlRryglxVQnsoIl/IEiNCumrPRbTi5iU6HVCLTS7bNf/MSSKlubZ/dG8F HTLZAVhaUx5d8kfd3Te9rr2gYf7mJZngWmt6U5EcvETH4zIQTZkHpzIV7tR7 AmI6hx7kKWRqNAAJhpvjEq03g4kRO5rGZetOanTFW8SY5gIkSSTD90qv9oNX f2ouHhjG2yKRroMZksQ586JFLO+IMq7U3Hyb4WDXi07J1j3sBckQa8OtKqTG hFm9mL4gcJ2nnVZxEvGJZN2irDuh3gjphtiU5poKpGn2i/5JXk4A8JpPmHHA jJ0+mRj+vE/ibRmPG0TbFWJZAXVTWaelMn/QM2Wu3UkHad1cQCSeNSmMBpe9 vXsrr70p5as7QFTpvRLmudnDIsy8V8GxHsaeHfkzOGG6HhI5Xu0opY1CjjRE kmgONHvWNJp/GIaj1nL50AFu/3T49Imm2iVKW3fyZgnVsfdWGBIpUzEyPkL+ AQiFxcs8SjBlETOUs9cjjIyFBic2fZhkCBaTJq9fEVLjA8ZtZLlZDw6PZPU0 OHl6qOz1W12bph8ENmtMc3R+NiId7dvK1Rtkzi2x604abzFyx67KyeUq0tZc gXKHpSzTY7rqutq6Mu5QKtQtRf5HDmrHkPY1pP13/m97S7Ed6Mtd53K/uRJq e7O4MMpUJblULYnydq2yHOlLdM+7kkTGu3QoODhJrf18eWNvPhg8+3mrf0Yk Zr78+YMlgtjq8RhELKq+/cEQQYLJk/UnojVRkbvSKHR087lq0UGOeGSQ8EOh Y3CJo5tXZIsOO4Tjiuno5vDaooPMbI/HoGO+43Kr7WQ4fTJe21M69FbbaUv+ fAVtb2nODbPB+6E7pnWSJBs5Kayi7S3c7TC73HBS+byADw2uB1GPb1IVe41b X47R9HT0Sfq8nrq/SfRNr/pDuguKZou0nd2nobntKSnd3HTa3OYWSGZ+M2dT qWtG7qFaaBrLWJnvTSMt8lj1LVN2E7usnMk1VSPIyrgWKMmt8P9LbK/9E6V4 T2Y=\ \>"],ImageRangeCache->{{{0, 287}, {287, 0}} -> {-5.28873, -5.23843, \ 0.0349936, 0.0349936}}], 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, 26, 0, 31, "Input"], Cell[CellGroupData[{ Cell[4146, 123, 49674, 1406, 1732, "Input"], Cell[53823, 1531, 134, 4, 31, "Output"], Cell[53960, 1537, 13632, 584, 296, 5273, 444, "GraphicsData", "PostScript", \ "Graphics"], Cell[67595, 2123, 134, 4, 31, "Output"], Cell[67732, 2129, 134, 4, 31, "Output"], Cell[67869, 2135, 15215, 673, 441, 5813, 516, "GraphicsData", "PostScript", \ "Graphics"], Cell[83087, 2810, 134, 4, 31, "Output"], Cell[83224, 2816, 134, 4, 31, "Output"], Cell[83361, 2822, 14233, 600, 296, 5268, 450, "GraphicsData", "PostScript", \ "Graphics"], Cell[97597, 3424, 134, 4, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)