(* 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[ 49752, 2328] NotebookOptionsPosition[ 48908, 2300] NotebookOutlinePosition[ 49393, 2318] CellTagsIndexPosition[ 49350, 2315] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"CH4", " ", "computation"}], ";", " ", RowBox[{"coordinates", " ", "and", " ", "radii", " ", "from", " ", RowBox[{"CH41301", ".", "exe"}], " ", "14.01", ".2012"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"t", ",", "u"}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "0.25488"}], "}"}], ",", RowBox[{"{", RowBox[{"0.87239", ",", "0.87239", ",", "0.87239", ",", "1.25615"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.87239"}], ",", RowBox[{"-", "0.87239"}], ",", "0.87239", ",", "1.25615"}], "}"}], ",", RowBox[{"{", RowBox[{"0.87239", ",", RowBox[{"-", "0.87239"}], ",", RowBox[{"-", "0.87239"}], ",", "1.25615"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.87239"}], ",", "0.87239", ",", RowBox[{"-", "0.87239"}], ",", "1.25615"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"u", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000"}], "}"}], ",", RowBox[{"{", RowBox[{"1.18790", ",", "1.18790", ",", "1.18790"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.18790"}], ",", RowBox[{"-", "1.18790"}], ",", "1.18790"}], "}"}], ",", RowBox[{"{", RowBox[{"1.18790", ",", RowBox[{"-", "1.18790"}], ",", RowBox[{"-", "1.18790"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.18790"}], ",", "1.18790", ",", RowBox[{"-", "1.18790"}]}], "}"}]}], "}"}]}], ";"}]}]}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"uy", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"uz", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "/", "2"}]}], ";"}], "\[IndentingNewLine]"}]}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"yz", " ", "plane", " ", "projection"}], ",", " ", RowBox[{ RowBox[{"rotated", " ", "45", "\[Degree]", " ", "around", " ", "z"}], "-", "axis"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"plot1", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", "\[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[{"[", "2", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "4", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"x", "[", RowBox[{"[", "5", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"y", "[", RowBox[{"[", "5", "]"}], "]"}]}]}], ",", RowBox[{"z", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"ux", "[", RowBox[{"[", "2", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"uy", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ",", RowBox[{"uz", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"ux", "[", RowBox[{"[", "3", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"uy", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{"uz", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"ux", "[", RowBox[{"[", "4", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"uy", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{"uz", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"ux", "[", RowBox[{"[", "5", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"uy", "[", RowBox[{"[", "5", "]"}], "]"}]}]}], ",", RowBox[{"uz", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.006", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"ux", "[", RowBox[{"[", "2", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"uy", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ",", RowBox[{"uz", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], " ", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"ux", "[", RowBox[{"[", "3", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"uy", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{"uz", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"ux", "[", RowBox[{"[", "4", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"uy", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{"uz", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"sq", "*", RowBox[{"ux", "[", RowBox[{"[", "5", "]"}], "]"}]}], "-", RowBox[{"sq", "*", RowBox[{"uy", "[", RowBox[{"[", "5", "]"}], "]"}]}]}], ",", RowBox[{"uz", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], " ", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"plot1", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"Axes", " ", "->", " ", "True"}], ",", RowBox[{"GridLines", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], RowBox[{"(*", " ", RowBox[{"xy", " ", "plane"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot2", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{"x", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "5", "]"}], "]"}]}], ",", RowBox[{"x", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{"x", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "5", "]"}], "]"}]}], ",", RowBox[{"x", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"uy", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"ux", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"uy", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{"ux", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"uy", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{"ux", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"uy", "[", RowBox[{"[", "5", "]"}], "]"}]}], ",", RowBox[{"ux", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.006", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"uy", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"ux", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], " ", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"uy", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{"ux", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"uy", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{"ux", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"uy", "[", RowBox[{"[", "5", "]"}], "]"}]}], ",", RowBox[{"ux", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], " ", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"plot2", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"Axes", " ", "->", " ", "True"}], ",", RowBox[{"GridLines", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.0"}], ",", "4.0"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[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.125 0.5 0.125 [ [.125 -0.0125 -6 -9 ] [.125 -0.0125 6 0 ] [.25 -0.0125 -6 -9 ] [.25 -0.0125 6 0 ] [.375 -0.0125 -6 -9 ] [.375 -0.0125 6 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.625 -0.0125 -3 -9 ] [.625 -0.0125 3 0 ] [.75 -0.0125 -3 -9 ] [.75 -0.0125 3 0 ] [.875 -0.0125 -3 -9 ] [.875 -0.0125 3 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [ 0 0 -0.125 0 ] [-0.0125 .125 -12 -4.5 ] [-0.0125 .125 0 4.5 ] [-0.0125 .25 -12 -4.5 ] [-0.0125 .25 0 4.5 ] [-0.0125 .375 -12 -4.5 ] [-0.0125 .375 0 4.5 ] [-0.0125 .5 -6 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .625 -6 -4.5 ] [-0.0125 .625 0 4.5 ] [-0.0125 .75 -6 -4.5 ] [-0.0125 .75 0 4.5 ] [-0.0125 .875 -6 -4.5 ] [-0.0125 .875 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 .125 0 m .125 1 L s .25 0 m .25 1 L s .375 0 m .375 1 L s .5 0 m .5 1 L s .625 0 m .625 1 L s .75 0 m .75 1 L s .875 0 m .875 1 L s 0 .125 m 1 .125 L s 0 .25 m 1 .25 L s 0 .375 m 1 .375 L s 0 .5 m 1 .5 L s 0 .625 m 1 .625 L s 0 .75 m 1 .75 L s 0 .875 m 1 .875 L s 0 g .125 0 m .125 .00625 L s [(-3)] .125 -0.0125 0 1 Mshowa .25 0 m .25 .00625 L s [(-2)] .25 -0.0125 0 1 Mshowa .375 0 m .375 .00625 L s [(-1)] .375 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .625 0 m .625 .00625 L s [(1)] .625 -0.0125 0 1 Mshowa .75 0 m .75 .00625 L s [(2)] .75 -0.0125 0 1 Mshowa .875 0 m .875 .00625 L s [(3)] .875 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(4)] 1 -0.0125 0 1 Mshowa .125 Mabswid .025 0 m .025 .00375 L s .05 0 m .05 .00375 L s .075 0 m .075 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .175 0 m .175 .00375 L s .2 0 m .2 .00375 L s .225 0 m .225 .00375 L s .275 0 m .275 .00375 L s .3 0 m .3 .00375 L s .325 0 m .325 .00375 L s .35 0 m .35 .00375 L s .4 0 m .4 .00375 L s .425 0 m .425 .00375 L s .45 0 m .45 .00375 L s .475 0 m .475 .00375 L s .525 0 m .525 .00375 L s .55 0 m .55 .00375 L s .575 0 m .575 .00375 L s .6 0 m .6 .00375 L s .65 0 m .65 .00375 L s .675 0 m .675 .00375 L s .7 0 m .7 .00375 L s .725 0 m .725 .00375 L s .775 0 m .775 .00375 L s .8 0 m .8 .00375 L s .825 0 m .825 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .925 0 m .925 .00375 L s .95 0 m .95 .00375 L s .975 0 m .975 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .125 m .00625 .125 L s [(-3)] -0.0125 .125 1 0 Mshowa 0 .25 m .00625 .25 L s [(-2)] -0.0125 .25 1 0 Mshowa 0 .375 m .00625 .375 L s [(-1)] -0.0125 .375 1 0 Mshowa 0 .5 m .00625 .5 L s [(0)] -0.0125 .5 1 0 Mshowa 0 .625 m .00625 .625 L s [(1)] -0.0125 .625 1 0 Mshowa 0 .75 m .00625 .75 L s [(2)] -0.0125 .75 1 0 Mshowa 0 .875 m .00625 .875 L s [(3)] -0.0125 .875 1 0 Mshowa 0 1 m .00625 1 L s [(4)] -0.0125 1 1 0 Mshowa .125 Mabswid 0 .025 m .00375 .025 L s 0 .05 m .00375 .05 L s 0 .075 m .00375 .075 L s 0 .1 m .00375 .1 L s 0 .15 m .00375 .15 L s 0 .175 m .00375 .175 L s 0 .2 m .00375 .2 L s 0 .225 m .00375 .225 L s 0 .275 m .00375 .275 L s 0 .3 m .00375 .3 L s 0 .325 m .00375 .325 L s 0 .35 m .00375 .35 L s 0 .4 m .00375 .4 L s 0 .425 m .00375 .425 L s 0 .45 m .00375 .45 L s 0 .475 m .00375 .475 L s 0 .525 m .00375 .525 L s 0 .55 m .00375 .55 L s 0 .575 m .00375 .575 L s 0 .6 m .00375 .6 L s 0 .65 m .00375 .65 L s 0 .675 m .00375 .675 L s 0 .7 m .00375 .7 L s 0 .725 m .00375 .725 L s 0 .775 m .00375 .775 L s 0 .8 m .00375 .8 L s 0 .825 m .00375 .825 L s 0 .85 m .00375 .85 L s 0 .9 m .00375 .9 L s 0 .925 m .00375 .925 L s 0 .95 m .00375 .95 L s 0 .975 m .00375 .975 L s .25 Mabswid 0 0 m 0 1 L s 0 .99375 m 0 1 L s .125 .99375 m .125 1 L s .25 .99375 m .25 1 L s .375 .99375 m .375 1 L s .5 .99375 m .5 1 L s .625 .99375 m .625 1 L s .75 .99375 m .75 1 L s .875 .99375 m .875 1 L s .125 Mabswid .025 .99625 m .025 1 L s .05 .99625 m .05 1 L s .075 .99625 m .075 1 L s .1 .99625 m .1 1 L s .15 .99625 m .15 1 L s .175 .99625 m .175 1 L s .2 .99625 m .2 1 L s .225 .99625 m .225 1 L s .275 .99625 m .275 1 L s .3 .99625 m .3 1 L s .325 .99625 m .325 1 L s .35 .99625 m .35 1 L s .4 .99625 m .4 1 L s .425 .99625 m .425 1 L s .45 .99625 m .45 1 L s .475 .99625 m .475 1 L s .525 .99625 m .525 1 L s .55 .99625 m .55 1 L s .575 .99625 m .575 1 L s .6 .99625 m .6 1 L s .65 .99625 m .65 1 L s .675 .99625 m .675 1 L s .7 .99625 m .7 1 L s .725 .99625 m .725 1 L s .775 .99625 m .775 1 L s .8 .99625 m .8 1 L s .825 .99625 m .825 1 L s .85 .99625 m .85 1 L s .9 .99625 m .9 1 L s .925 .99625 m .925 1 L s .95 .99625 m .95 1 L s .975 .99625 m .975 1 L s .25 Mabswid 0 1 m 1 1 L s .99375 0 m 1 0 L s .99375 .125 m 1 .125 L s .99375 .25 m 1 .25 L s .99375 .375 m 1 .375 L s .99375 .5 m 1 .5 L s .99375 .625 m 1 .625 L s .99375 .75 m 1 .75 L s .99375 .875 m 1 .875 L s .125 Mabswid .99625 .025 m 1 .025 L s .99625 .05 m 1 .05 L s .99625 .075 m 1 .075 L s .99625 .1 m 1 .1 L s .99625 .15 m 1 .15 L s .99625 .175 m 1 .175 L s .99625 .2 m 1 .2 L s .99625 .225 m 1 .225 L s .99625 .275 m 1 .275 L s .99625 .3 m 1 .3 L s .99625 .325 m 1 .325 L s .99625 .35 m 1 .35 L s .99625 .4 m 1 .4 L s .99625 .425 m 1 .425 L s .99625 .45 m 1 .45 L s .99625 .475 m 1 .475 L s .99625 .525 m 1 .525 L s .99625 .55 m 1 .55 L s .99625 .575 m 1 .575 L s .99625 .6 m 1 .6 L s .99625 .65 m 1 .65 L s .99625 .675 m 1 .675 L s .99625 .7 m 1 .7 L s .99625 .725 m 1 .725 L s .99625 .775 m 1 .775 L s .99625 .8 m 1 .8 L s .99625 .825 m 1 .825 L s .99625 .85 m 1 .85 L s .99625 .9 m 1 .9 L s .99625 .925 m 1 .925 L s .99625 .95 m 1 .95 L s .99625 .975 m 1 .975 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 .03186 0 365.73 arc s .5 .5 m .5 .5 .01 0 365.73 arc F newpath .5 .60905 .15702 0 365.73 arc s newpath .5 .60905 .15702 0 365.73 arc s newpath .65422 .39095 .15702 0 365.73 arc s newpath .34578 .39095 .15702 0 365.73 arc s newpath .5 .60905 .0125 0 365.73 arc s newpath .5 .60905 .0125 0 365.73 arc s newpath .65422 .39095 .0125 0 365.73 arc s newpath .34578 .39095 .0125 0 365.73 arc s .5 .64849 m .5 .64849 .01 0 365.73 arc F .5 .64849 m .5 .64849 .01 0 365.73 arc F .70999 .35151 m .70999 .35151 .01 0 365.73 arc F .29001 .35151 m .29001 .35151 .01 0 365.73 arc F .006 w .5 .5 m .5 .64849 L s .5 .5 m .5 .64849 L s .5 .5 m .70999 .35151 L s .5 .5 m .29001 .35151 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{387, 387}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXcly3MgRhdhkkxSloTaK2tnaRVLyzRH2ZWYiHGHz4o9QyI6YOThsjXmw wwcePH9hfsXE3PtT9Ck0UQAyAfSrZFZXgQDE7Bj1NGtJvJe1V2Ul/vzx+Ie/ /u3j8Y+fPs7+9NPHf/zw46d/zv7495/OgybXsuzaf/N/syz/fZZl1dfZ+X9n P+dfeQj//s79bzX7cnqU0ed4vu+Cp9nZ/Dhrfo6z+dnZ2yr6bJ41Exxlp1/O 3gChR6df9uVc7+Rn7mOkhwvBTti1gt63lcwvp9nR0an7q3i8S1XInGRFXveY 7LAMy2Gcg3Z/FXzXstPjSsTZeZ4i/QFIfwDkHshQ0GNLEt+XUZVejudNlFUY QvKmrvMjRj8/dk9FWZDoQwDhguIswf+uJS3/rLjvqZNSASJ1HJ2+DMwyn5+9 8GZZa2Ypeb4NV8v7Kqx4YlNVNTFVPc2RuEcXMlZaFZJLvvztagm1gYVKUoue FHWvxPauqptHC9KyfZDeXw+bCDDAih1Fn9bZVb2Jk01NtFSnpz/gQmM2HgnN pIst34UfYAlUVGVwLmFlsT9M9ftW/j/X9X7Ovya10PM/8k9V5abKsPWIvDFh fT13SFjsuf0995q/6Rwqww4i8saEqaCfiGEHYrpweXKYQTfoBn2k0N189/2A ALv5nRMnTH/GpGGDbtANukE36AC6DT9WOQy6QTfoBr0H6Db8WOUw6AbdoBv0 HqDb8GOVw6AbdIM+SujFwfOCcdnaeBkVx+tec7PV8TLbKKPqtmiuoFzqX52Y SVmEJ+7fL/n3av53ORZmQfZoX0MtwNZcI64FVYttmXmNuKxG3H0adIN+paDb cs8qh0E36AbdoPcA3YYfqxwG3aAbdIPeA3QbfqxyGHSDbtANeg/QbfixymHQ KWwn/95ttomWFBe72y/MO9RIHOBslWLLD7ql/Y4ytaTdy79XWFpvtLYJ4YMW rfKfi3sLnvCaYidA7n2KvRNPkI6BsWudmGPgm1QQj0HsKrF4BZ7xkvJOQd6H lHc7XgOVZ4G6Rx7kgUBL+zqBewpi14nYC/CMGeXdAHmfUN6b8bSrB9R9+bCt xF9yMeVoev7Lhe050ZOyehT2E89Auk/5ryVtKuZx5/RM4AWIvUGxT8AzHlMs 0u5zil1XYtE0OuxoJ6bRTaiOvAax2xT7CDzjIcXeAnlfUeyaEsuFjW7BQ09M 2a+AvEgHt0G6XRD2AIQhvbwB6VaUmDsaeVwpvQMRd4DQ+74wJ+UukFL5PKvn cJjP03zonmX1QROzuwQc0ZKnBu8oljquIlJeUCTgxOkQpx3CdQ/kuAvCELsD ktJREdUnaVU4SofaGmqTcl31V40O29p+K10ehyqH3HXItDVz8fzTEcXKy1o9 3Xk8YvkQiNwGYejRD7zom7NkTzNfeh9A6rpQejRMfqPk/dALfK0RVpXoPki/ 9P6BdlRC2n0M8t4EYUgRj4A87Wj9Rsy7dJV+DdKhdRVSBZoo3lCqB616vFM2 xcQlgSrQUmsVpEOqeArybinV80SkcwKwZABzUlW8BOnQxBap4hnIe12pHrQo 9C5lWnlfinmXVgVaiaJlN1LFHsi7qVTPM5HOCcCSAcxJVfEcpEMLPqSKGci7 AcKQevZEOicASwYwJ1WFTEdWhaxGWT0zkc5JRN6lVSFX8jSqCC/Z9KrwTpti FCD3LmkUoG1SS0+n5B4/jQLCu7lwBSRoDPI8QFaFPOjKYfLgx2HhI00vqpCn YmlUET7/WFoV8kQ5jSrCZ4ejU4W8VkmjivAJ+tKqkFeSaVQRvnzqRRXyToKs CnkxL4fJi2oOC1/B9qIK/wZOBhuFln74XkbgFGrMpJeeNslbhDJpvBMJm/tb kN17It/K69+li6rjV5e59twsgDnq19Dx1oiZLx4txNEO23Q32uG05XMsmTYf xlU9ailEPuw4AQ/KAKBeeLolqBuj0AwqiPEjEoXmzUPlPs1ToSlTOHcnCq0k U3H3TlPQsTkyM3NbTus+xofiMx5SXkRRe+679KRES1EuVJmiXIrhR9tL1+DL IJumPBOQ3QHpkAHLJgHWTvG94966r5caIG033XeTK+2Q6K1RTgrqCQdIe5sA a3tK79OcFNR8Bkj7NgH22kF7W/RdynvPF9tCINtaL5Btep+qf4J8kGl1cUfk I+uC8yKOCXRRt8StXimpNYTUKsDRdslQrKyA25QXtZ8uFeBS/8GJmZTVozA7 Psy/XZl8l/9y0L+lsN+AHN9TrGSUjF8JqrUG1xYG96BomSQXBvfhaBGboDDY HJ5fDKpVALJPRA3uAZFwaz030/eesk98qphS3tq0msoSTWMSqqf+utHU6nlI xFA34LXX8SoKSZlQEaDVWgJFaYczrVIeE2D5aEirFCRlhZ6BDgyHqpQ1n1K8 Rm5epaAtRm6iY1LKgioyvIG6rI6ae5RVerR1Nab2tUirCGhuW4Q3trbmC5me IhmVwnxtxWtKKOvI25a7VIp3sqFVBTrx5gEmvLpwP4yGLnRsr1XF0ptGWlU8 JYU6EtNmJfcrYOFy6JRkOGmzfhuFdmq7R4BXqQyp9yiSvfdWOeoVVikJsn8a IO03dbIXT+arj4tAZv8DpMj3rT80ObkwJHmAJPapnLhgDijMuxMyLBIMmA8W mBi63TVUEqjtvwMCGs2rSF3rS1qSB7gVh855HB3v5X9eHHtRj46xo+OyInum l0QbzRe6pB19FobI8vSH700zRe0N6sGcheEaXNFhbw0vCIj2mvwAz8IQ2SmR fU5kZxSG7kX0TDbGPGGdiO0R2ay5BnxKSdA9gJGYLCDum0SMp/It7rwVhc47 R8z9OhFjVyMt7o8oCTr07Jl7jCUSOwdpW2rmH7Sxs0s5kB3niI2yblIZt6X4 VMGHo1qHPCNRBR+3FN20yjTxHmXynu+0wlIZKcomGq2MWnPUW0THEdvIf/EB sdYHlZZiL7bGfFZ+gyiugAKv4rYovfc4taMSVigixtKcy3WdyqE43tJbn682 c8omCKi9teQtY4bfsZpcQ7ie59wMVI5T6yZ3KF+NStgrHbpJor2tskVS5MGg NVi1pHR0byXmNlN74Zx/JtSVKDSDTko2qH1lzRNwbd0aifLYqxMvq9GNV95h 8DY93mFoeVSSFXWJF8Virg/eJmJMFlknTFp1hsJQzeN1/gaJ1476qHZ3dO0y 5jIu+8XjJRBbIHlNBdACiWvoFiXRTgNTacs7DYzREbvz5EkxawHVMm5mfKC3 3ZSiUIr2Pncvd/tRv+AoTqkRtmLXKBZtBmk3FC7xvv8eSKf1/XCdSpsNEJGz iinFsrO7r0wV3HfuUmPwNpo1SodGfIVSLtE5ykwJ07vR2Mq7SwqQ7dZa/S7S lnYP+hK1FeNgCFWX3bLS1MMqDXkslTjOVUe0PYK8PyE2l+iOKMZJFapIu6QA 1+I2WlUq/3BsLa9PZdojnQTOrCKd58Z4PkNToXbLyz+O5Sb9Wtw3QyrUHvwl cI22Xgo6PT6lKGfx7OGIYMQ400OrOdSUsxKqu2a0oVclMjlCHBI43Gtc5Thi dc6P+SqHw/m51sI0mRRFEOblErvdRPuGaBnkIE+5HC7OcZ+e2t4bwn6SE/jE pHp9tPBGd3W9vthH6oKPVqRDVMVlHaIceNv95INQoMigStGbLvm6eKXDXJ+W UKHwxQY0t0U52ifbXMOSuNNVqOEi18hVuDx0tuZEvCL3DvxYBxUyVAoIfQIF yO6v/aOlj46sADTxQuYNdaRVeEcKQCLQi1t2RGJTikV1H4XtAIqdOztv6zX/ 1JtAlRbZS6FdnjWRNi+jEVnU9C6BdhXmcNUN2apI3rVFh1+8ObTeTAdfO0DP 4O0kBbSl98kwz0Vh7al0nh4ZW8oKQM0fWU20txHzT8zbJ5K+nIwXlC9KenUp 5yl5bxppiLMjbdyh2FskvDGqsQVagpeTxKiBG/Je+XddSlVHuKK7TnudysA9 lJem35CMxWnOrNmA+qOMxqInAnneSHbb0S2XMaiflBvhY5KnNUXrSBG8xee9 G9TKgUZANjvjEtaqAh3g9qwUHrvkhVarPk2aCnghlrF34eCCtIZqHSnAPd67 4Y8W6nyLjLu1VyQF5UAKuE1SErwkLc3r/dAw2KaTf/j9RXxDo8h1Me1vKLH2 bLcj2m6q5rYVeTPskDh9ALGpXsMYNK1x3c06AWnFyhPpVco7Uz4t6ZQDbQl7 NzJlEi0pWle6HVWdNMRiPEcbsTBi6FgnvD3FeIA3YkYsIbGYtzEYsa+NWNCM YgaEeY+4vXRiXg2TdJbRP52Oqt0eyOs13DBiRmzoxGJerGXEOiTmkqHhY+zE tE6du+QZNDZr2bnNl5aJLzpXjyGWdJTWEkMeF/hmQSsCvV1hxFXWy137DhHj btyN+2i4t02Tyk93PbrAN5HD5xh18HjT34gd4+t5dNMw2a/zf5yYSVkLTty/ 3+bfrmr+HsT+K/+u+3DuVZuXPVuPccw8usVkjJvl0ZHtf4E5QGJf7bablpgb rtz5PZIyQGLabWxHzJkyaK+EjWR/3s231vsgFrQH0H85JV35p6Ez4oM8uaMY MTH0+JFQ1Bo6aCkO0OTBKAZTHKCpEboMKt/DNIodUgwayNEFVPnip0ws5k3q SYf0IRHrqFKit9vL9zauPMWYt9t3RLF4/EU3fK8IrWVu43ZOpdj/99wfRiID L8x2TqDtD19btfKP9hkdQUcXIt9fMvSgAXUZwFV4kFJSDZTofu1F3Wko4I4q Rzj08Gd0Dh1pMwPpUHXqHfpiU2N54XeKLwm60D2zSI9PhkEQuGiUZLmSH45B UAmZx8hh4Re6e6EoT7LlMK1Hns4HOa1bJ7QI07o86nkw5DB5U0kOC79J3kul lHc/5TCtn7eeKcpnDXJY+OX4Xijy3XFEYgbCtK4geyYmu2/lsD0QFn51vReK W1R2iBjf5w+/iN4LHfbPgLwysLcFrQPfQDpkKTZv2ollhRuzGEsxr+vnljzk qUDrGz+BBtjSh1hHGb94X+rhxCGPXPxqG/TqoAQU65ZbjuS8bhp2mosp3aPk AidlBSjMwHYo9n/5r7pBWNVh5FaG83nxxNQVRn4FXiuMfbx02FByx3XkQ5H8 /aXmfZ/4ILbhbzaLbB5Luz/V8nXtwq2+0Bs42KuH/BaXwfTqT6l1bQHJmxS7 Nw46bkbkvGZI7+kJtwLohYxsmjJAwGk25a4E9Oi1eWrAna+5rXIYdINu0A36 AKDb8GOVw6AbdINu0HuAbsOPVQ6DbtANukHvAboNP1Y5DLpBv8rQ0XFpdjxP fVx6iYz8B9/RvoR6ZlaZRVSmL02ziF+dmElZhIUxxC/5t88Eonqz4og10vQb tfBSwxEzi3zv4AAZjbiTNOgG3aCPA7ot6qxyGHSDbtANeg/QbfixymHQDbpB N+g9QLfhxyqHQTfoBt2g9wDdhh+rHAbdoF9l6MUpfd2iQmF3IIel8YYXHlYy IqOB2ot0EB3khQKFIYc92rwxYX09d0hY7Ln9PRcardQ/3FE4v3+f869y3lLZ g+S2P7ndT9kWneB/N5OQMczpQhJyrFJalbjWXIt3v39e/J1d+z9Dr9hf\ \>"],ImageRangeCache->{{{0, 386}, {386, 0}} -> {-4.36204, -4.31291, \ 0.0218331, 0.0218331}}], 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.125 0.5 0.125 [ [.125 -0.0125 -6 -9 ] [.125 -0.0125 6 0 ] [.25 -0.0125 -6 -9 ] [.25 -0.0125 6 0 ] [.375 -0.0125 -6 -9 ] [.375 -0.0125 6 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.625 -0.0125 -3 -9 ] [.625 -0.0125 3 0 ] [.75 -0.0125 -3 -9 ] [.75 -0.0125 3 0 ] [.875 -0.0125 -3 -9 ] [.875 -0.0125 3 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [ 0 0 -0.125 0 ] [-0.0125 .125 -12 -4.5 ] [-0.0125 .125 0 4.5 ] [-0.0125 .25 -12 -4.5 ] [-0.0125 .25 0 4.5 ] [-0.0125 .375 -12 -4.5 ] [-0.0125 .375 0 4.5 ] [-0.0125 .5 -6 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .625 -6 -4.5 ] [-0.0125 .625 0 4.5 ] [-0.0125 .75 -6 -4.5 ] [-0.0125 .75 0 4.5 ] [-0.0125 .875 -6 -4.5 ] [-0.0125 .875 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 .125 0 m .125 1 L s .25 0 m .25 1 L s .375 0 m .375 1 L s .5 0 m .5 1 L s .625 0 m .625 1 L s .75 0 m .75 1 L s .875 0 m .875 1 L s 0 .125 m 1 .125 L s 0 .25 m 1 .25 L s 0 .375 m 1 .375 L s 0 .5 m 1 .5 L s 0 .625 m 1 .625 L s 0 .75 m 1 .75 L s 0 .875 m 1 .875 L s 0 g .125 0 m .125 .00625 L s [(-3)] .125 -0.0125 0 1 Mshowa .25 0 m .25 .00625 L s [(-2)] .25 -0.0125 0 1 Mshowa .375 0 m .375 .00625 L s [(-1)] .375 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .625 0 m .625 .00625 L s [(1)] .625 -0.0125 0 1 Mshowa .75 0 m .75 .00625 L s [(2)] .75 -0.0125 0 1 Mshowa .875 0 m .875 .00625 L s [(3)] .875 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(4)] 1 -0.0125 0 1 Mshowa .125 Mabswid .025 0 m .025 .00375 L s .05 0 m .05 .00375 L s .075 0 m .075 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .175 0 m .175 .00375 L s .2 0 m .2 .00375 L s .225 0 m .225 .00375 L s .275 0 m .275 .00375 L s .3 0 m .3 .00375 L s .325 0 m .325 .00375 L s .35 0 m .35 .00375 L s .4 0 m .4 .00375 L s .425 0 m .425 .00375 L s .45 0 m .45 .00375 L s .475 0 m .475 .00375 L s .525 0 m .525 .00375 L s .55 0 m .55 .00375 L s .575 0 m .575 .00375 L s .6 0 m .6 .00375 L s .65 0 m .65 .00375 L s .675 0 m .675 .00375 L s .7 0 m .7 .00375 L s .725 0 m .725 .00375 L s .775 0 m .775 .00375 L s .8 0 m .8 .00375 L s .825 0 m .825 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .925 0 m .925 .00375 L s .95 0 m .95 .00375 L s .975 0 m .975 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .125 m .00625 .125 L s [(-3)] -0.0125 .125 1 0 Mshowa 0 .25 m .00625 .25 L s [(-2)] -0.0125 .25 1 0 Mshowa 0 .375 m .00625 .375 L s [(-1)] -0.0125 .375 1 0 Mshowa 0 .5 m .00625 .5 L s [(0)] -0.0125 .5 1 0 Mshowa 0 .625 m .00625 .625 L s [(1)] -0.0125 .625 1 0 Mshowa 0 .75 m .00625 .75 L s [(2)] -0.0125 .75 1 0 Mshowa 0 .875 m .00625 .875 L s [(3)] -0.0125 .875 1 0 Mshowa 0 1 m .00625 1 L s [(4)] -0.0125 1 1 0 Mshowa .125 Mabswid 0 .025 m .00375 .025 L s 0 .05 m .00375 .05 L s 0 .075 m .00375 .075 L s 0 .1 m .00375 .1 L s 0 .15 m .00375 .15 L s 0 .175 m .00375 .175 L s 0 .2 m .00375 .2 L s 0 .225 m .00375 .225 L s 0 .275 m .00375 .275 L s 0 .3 m .00375 .3 L s 0 .325 m .00375 .325 L s 0 .35 m .00375 .35 L s 0 .4 m .00375 .4 L s 0 .425 m .00375 .425 L s 0 .45 m .00375 .45 L s 0 .475 m .00375 .475 L s 0 .525 m .00375 .525 L s 0 .55 m .00375 .55 L s 0 .575 m .00375 .575 L s 0 .6 m .00375 .6 L s 0 .65 m .00375 .65 L s 0 .675 m .00375 .675 L s 0 .7 m .00375 .7 L s 0 .725 m .00375 .725 L s 0 .775 m .00375 .775 L s 0 .8 m .00375 .8 L s 0 .825 m .00375 .825 L s 0 .85 m .00375 .85 L s 0 .9 m .00375 .9 L s 0 .925 m .00375 .925 L s 0 .95 m .00375 .95 L s 0 .975 m .00375 .975 L s .25 Mabswid 0 0 m 0 1 L s 0 .99375 m 0 1 L s .125 .99375 m .125 1 L s .25 .99375 m .25 1 L s .375 .99375 m .375 1 L s .5 .99375 m .5 1 L s .625 .99375 m .625 1 L s .75 .99375 m .75 1 L s .875 .99375 m .875 1 L s .125 Mabswid .025 .99625 m .025 1 L s .05 .99625 m .05 1 L s .075 .99625 m .075 1 L s .1 .99625 m .1 1 L s .15 .99625 m .15 1 L s .175 .99625 m .175 1 L s .2 .99625 m .2 1 L s .225 .99625 m .225 1 L s .275 .99625 m .275 1 L s .3 .99625 m .3 1 L s .325 .99625 m .325 1 L s .35 .99625 m .35 1 L s .4 .99625 m .4 1 L s .425 .99625 m .425 1 L s .45 .99625 m .45 1 L s .475 .99625 m .475 1 L s .525 .99625 m .525 1 L s .55 .99625 m .55 1 L s .575 .99625 m .575 1 L s .6 .99625 m .6 1 L s .65 .99625 m .65 1 L s .675 .99625 m .675 1 L s .7 .99625 m .7 1 L s .725 .99625 m .725 1 L s .775 .99625 m .775 1 L s .8 .99625 m .8 1 L s .825 .99625 m .825 1 L s .85 .99625 m .85 1 L s .9 .99625 m .9 1 L s .925 .99625 m .925 1 L s .95 .99625 m .95 1 L s .975 .99625 m .975 1 L s .25 Mabswid 0 1 m 1 1 L s .99375 0 m 1 0 L s .99375 .125 m 1 .125 L s .99375 .25 m 1 .25 L s .99375 .375 m 1 .375 L s .99375 .5 m 1 .5 L s .99375 .625 m 1 .625 L s .99375 .75 m 1 .75 L s .99375 .875 m 1 .875 L s .125 Mabswid .99625 .025 m 1 .025 L s .99625 .05 m 1 .05 L s .99625 .075 m 1 .075 L s .99625 .1 m 1 .1 L s .99625 .15 m 1 .15 L s .99625 .175 m 1 .175 L s .99625 .2 m 1 .2 L s .99625 .225 m 1 .225 L s .99625 .275 m 1 .275 L s .99625 .3 m 1 .3 L s .99625 .325 m 1 .325 L s .99625 .35 m 1 .35 L s .99625 .4 m 1 .4 L s .99625 .425 m 1 .425 L s .99625 .45 m 1 .45 L s .99625 .475 m 1 .475 L s .99625 .525 m 1 .525 L s .99625 .55 m 1 .55 L s .99625 .575 m 1 .575 L s .99625 .6 m 1 .6 L s .99625 .65 m 1 .65 L s .99625 .675 m 1 .675 L s .99625 .7 m 1 .7 L s .99625 .725 m 1 .725 L s .99625 .775 m 1 .775 L s .99625 .8 m 1 .8 L s .99625 .825 m 1 .825 L s .99625 .85 m 1 .85 L s .99625 .9 m 1 .9 L s .99625 .925 m 1 .925 L s .99625 .95 m 1 .95 L s .99625 .975 m 1 .975 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 .03186 0 365.73 arc s .5 .5 m .5 .5 .01 0 365.73 arc F newpath .39095 .60905 .15702 0 365.73 arc s newpath .60905 .39095 .15702 0 365.73 arc s newpath .60905 .60905 .15702 0 365.73 arc s newpath .39095 .39095 .15702 0 365.73 arc s newpath .39095 .60905 .0125 0 365.73 arc s newpath .60905 .39095 .0125 0 365.73 arc s newpath .60905 .60905 .0125 0 365.73 arc s newpath .39095 .39095 .0125 0 365.73 arc s .35151 .64849 m .35151 .64849 .01 0 365.73 arc F .64849 .35151 m .64849 .35151 .01 0 365.73 arc F .64849 .64849 m .64849 .64849 .01 0 365.73 arc F .35151 .35151 m .35151 .35151 .01 0 365.73 arc F .006 w .5 .5 m .35151 .64849 L s .5 .5 m .64849 .35151 L s .5 .5 m .64849 .64849 L s .5 .5 m .35151 .35151 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{382, 382}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXdty3LgRpTUaSZZkyRf5fpnx3bKT1OYpT0neEr2kUpU/cG2larfKW85u 5jn6Ef3DVu0PzKf4UxSxSXaTnAOoOQQJzkxP2SMJBBrdhw2gATQa//g8++Hf P32e/fj95+nff/n8nx9+/P6/0799/eUqaXQjSW78L/0/TdLfL5Ok+Lq8+nd5 nn6lKfL7X+jHdvLt4izhz2z+gZJ3ksv5LKl+Zsn88pIfX86Taoaz5OLb5VtA 9Ozi2zWl3mvqXOD000IyEbuRiffngua3i+Ts7IL+yqqnXBnNUZKVpWqS3+Vp KRtXTNNf7+h7nFzMChKXV2Wy/Kcg/ymge+pn5RMgkwvx1/xRgctsfpl8LGUv 0hCJt2XMz4T7+YxqRcwj0h8BC6dl0ouvM2f+TzVq6WeLvneISsEQw3F28aph kfn88rWzyLhaJJfzXXNYGN2sxipUJTKnuUKmnFDVGY2tmkLKm89/Jy3hNrCg JPRY9Orqz5y394Vuni1QSz6A/G49rHKAGSyk48cXZemK3oRocxPlQrX+oK5o Io2DQjXrR0z1FFPg15cnpxS2FvvDUL/fTn9Q1/sl/RqVUq/+SD+Fyu1sWNru gHixtGGlId244W46H5Vpn1qUbVOHivVzb9onb77m9Px1GOvGurG+oqyTvetn pF+GyRIjch7zZ5UQNtaNdWPdWDfWAes2/JhyGOvGurFurEdg3YYfUw5j3Vg3 1o31CKzb8GPKYawb65vMerZ7u+ChNV5dibI9aqfP1vbqSraXPyo7dNGLoty/ EZlR/grP6f+v6fd2+nc+oCSNnLrWQQuwS9QKa0HRYmu+Uiv8rla4+zTWjfWN Yt3mTKYcxrqxbqwb6xFYt+HHlMNYN9aNdWM9Aus2/JhyGOvGurFurEdg3YYf U45OWD9IS74CVCb8dFhcUyyIMeCL9kh30vRngPwTLnbA+d7HlWTKjIzB0yNm +CGo44TL3gZlR1z2VVwRX6TfW4x67em99JsIn4A67vDTB6DsHj+dtBeRt4xx LJs2W8ZPmc9b4OkDfnoH1HHM6D0GZQ+47DMlL9duLVdD4KAj/1qxHzPrSD/l 6TGo4xY/fepqF/T0SXuxC7+KcvAc8av4OSVDVX1HBEe5UmQeFocg7cBb4mv6 vaRPxrzdPv8DUPYuyPeM0T0EJfZB2nNA5Q5TeajkbymvntaN84T5vA+eSueF 5N5lNZmCsve8lJdqnAuhc9row13vG5ry0z1Qx5ifvgZl7/PTe+0lbzP2iN2M ek9k8iBAkXohsdEgjbq+HgFAfSuC4jXIh8QegbQ3gN4jkO9YyXNHUByBsmj4 eMM6gwDYAmlvARU0vEUR+xYoi8bUImBeOR9VniTwrb8DNJ6CfIdKPjsSHw1h yFYqopiV8yUJfN1oyoCmG8jc7XzefwCIoeH5Q+11l38ius8B3X0lT0HXCW4y JGjMlaoQYGg0j6KVaEhtLs4UUNmNKxgKB/YygPq9BHR3lDx1JCqaGqGpdsue xW+kmOS9So6sQ2QJhhhM/SZZFPGRQYSsv7cgH3rrWmNqgFCgt4hYfwPyobJa w9pPrx0UjQwN9O6aq3FzAPy65ee5pSEyrqQRgavPKcgfembp7k/OOfp1J0q/ XUlLlhmc/Qjox41zEzRsN+Zq7X6z0i+529aTfJ0r7caIWORFIk4APTTtQGI7 pyJ5viId1RtUxASQlXwvQL6bmykierMTZb0dmQphBENpL1oItrQJgJQDNXH/ QkkbwaS9d2TnhhZRu1W0YSISwwm2MAKIiMai34N8/iVLf5pmt3ltRVwwFdEM IICUDusQCepfeF9RQcliplS0qKkVGaWh/Y8R1/Z6MMLThA8tc3YifMlZKIjw ThvBN5sl63o3fYKW+p6AKtEGVyO5yYXqJfN0XuMpKXU3tYFkGTvCJzwZpXt9 Cb/FUDcVPoDar4MOrAQMKA1te28xDGilQrtS2zEk77jVoeXf9pBU+72iLrSs ORBA3jOTaBE4tI5QDrRV0yMa2vVfURX09DGgghxENMhkdTj6iADIVIMZlT+N QlppgROVKoa2/CHSpmaYZc2r9EFmRQDEyi6dxWWAWk85LUwfyjAFVS1K0m65 hEKGcv+LyIzyl5M5rP4h/aakp+DpkTLtEVP5I3j6z/T7WqdYfC+k1kO50b4R ZdPqO0p7yFTQ6oJ2r0vlrC33RIaG4tNiT1B6H/cAFeRuiOAh19PdnLJvESEw WuXLKDtBa7GLo+6ZAHO69ysAkwnVaPGlnNfEDwpd6HG5zGZFn9A4huDRQoby EUPb6wMel0LgaUFx56uuSrDebefQ8eJbR31cN+hJCy0LhdhtD2A1TazRrVwF e+j6+lDBLYYRmSghYczqKN7XmsEIuvbEiVYjBKkh1/uItOouW65z/W8ZjAo4 thmjNsPpMVPJQFG5YGhxWXppcJl+THhOZAUbVaiF5oipZNzrnY4G28rwqo50 WqhWraF/C9DTuiYOFrBqmpxya6RDtbRDpqL1vV8ReOQUshYKlCYnebXHRlYE npssGFrw0C6MCDza80QDXJJE8OwDwZrDI1TQCfMVhgc1i+bwiA4egToiw+Nb 3kd7/dKRIki0y/vSa2nPJ4aCZKltYQSEDL3IC0cLhIxu2qO6WiA62SJGQBxx RcipTLs3uscv5w6ow+cBH2FvFMEgRj3yhtTCsMswoNgIKwDDbYYB+b1qYdhh KgOBoYE3lESNQQho/WRkW8QdxGCArmB3mW20wK0VXqbZJ6COwQov0YTQdp9W eFmHcQfu6Et4ravjiVdyrdOjSI7iLQ1T8vvMM1oE10ous3d3uJpuveK0rskS LwrJq3VSFnkfgTq0vrzhvekp2txxjaxWRLxfccR0PVIWBXv0O6d+zR/FTuZ1 yOh0HyvAQOxzhTj+XccYoCMaU2bEH/9OzBEEhPbgiPSPjcLm+cXqCBlt2DwZ qZPqpgHSDmQYSztzdvwo0F4UULSR9GSfF/X1yCqUYopge2X36yJH5wfFpH0+ Ykb8gfUS4LWBtKKOR9ZKkuti7z2Og0LB4QNmBNnnxDq18l3+jToREgwdtJLR +WFcwe6DskjE56zkEo0t6x0Xun/ZMqVHU0BNosHVA3GmuZY5zHrNGcEFawo5 FKHZx4TVX9qrNqIA/YVO8DqjjyqAaBlWYAEIf+jEKb9GNMHb5qfIjVsC890G ipJ0fPQcrxegDkVyvWRsndJSkjYe3yFzsria0tOh9PS/1pxzQiLtHmn9tgsS FJfPOT1QyNFjdBVkuyAn9SnIJ5YSktNpV6J+UoZXbGFGxQ2JiNoNGtgnXnhG Of1auyk9ux46dGoNcTdAEMWLE5kOCDpph0nVLne23AmgLLF4/eFjogCFWELN SAsZiXMzTUFageBBUQQQBwGA6iAA7w5oUwk2T5CgVJycqNGEBsE1wRUGiBm4 myvExeyCH5FruqM9aSGS3RhkziBUxoyKNibGlOvYU3KlPaxzJmDMZ3JYh0D/ UuoZNIVMx1jHzhYudG+lY226MacGDr0bC3h/vHO8rKWhuBjNR05EGRkbKIIH MlQGGFJRpvONIHOasU7r12mkbblafGTTrP28wGfB4mcIUdR9Dnpi0Ga+ueSE qtZ40fg92Nno0isV/mk5JSEfzUGtVOD1qFpxtE3QZq0GXU5yxOy0XqNquhYp q6FIUOqCxy5B6wElqmXlvpG7tbIdLS9KWvpptLhMItYXWYexuLyk+P5Ng3q8 qEz8okXv8Qt37iGgllJGvMg7rM2ijLCc6ss/zq2ium2WflAUKfFLfBQDg9py F71I5P8r24bSSWu2DVk7ZMwb4LZhzf6uSYf6pTG/Y4RC3dxiFKR/R12mXNsw UYrQpceBM7AW6YdsFiJDxu11AUCR7gI51aKRonNQkCvKO2YEvTZxGUF4ICVx Ol/sc0VRXFCcbkfpRW4ltyOtuYzSRkyqS5+j1m5kEqEihI8V6vg6dyLTegg+ 8Irq9hDEorbxlzO3yBaSN/ADFm9YJLw2MuaQvGE32gl6o93fm57/kNMPCAHt +Q/N6Qc7BjN8GOQ4f+tDUZTUx9mwsCcESXjtwbg1PSG46mdGFZDYKePO4JFT CHZGHaRZhAMvPBYfwwuPRVfxwuN04g4TtMd/xfOKIrgQ78h5GqR1oKgsaVyh XPyu3fIeWLwxQS//yEw4YMix6is5b6T/EYOOZWlFXtn0a41MlAh1HcMTKyzi KiMYOTpnuaIQzTKyBjrHOIsNew163KLQGmpo1VuPsMRdhr5GTIz6A6znKxiI E3I3aRNk/Q5T6ccI6+PWhY/84gcdnX9FrlmwezJcL7CP6xXW4KKVPu5VWJ+L fOzCp9Bo2H1gNUDIy94ZT2cj74yz2wQpzzT9bQ3ulrRbRRt4yPjl7uQW2ZLc kd2DXjI7K3uF7vLCr98t0Ztx6fcG3N6u9VBGJ3i1Ttjo4OyGiVjkXRERkYcW OmLVuQM9OjSC8qFD+9pAlH7BFMAvYyOEFkwbX0MrWEcHftqIiFxHp8rG0OMZ P1TVBNBDb2zgIlJBR0udKsXZABHRohs6fYzMi34Pk6Os6PQbkmgzpEQr8Gh9 xWH5RwjhiGxhFD7ZH8NM0lCAAN/0voOIANU0tJSFVgFfg3za0KRoi6nRtlh4 O+HcyzBay3sD8mEXPh0Afnp+nnuM2NP83fnTELR+3YoCBWrPzdoudu1p3rSi iI86b31HDV882mvx96Qmea+SI+PLbYKIypd/NjcOooiKZgtOs5myNbdgowiG ZnoTb1l/HROQL0AoyeZmyj6XQOKQSo5dCvicy2oPWAQ1MNA6NFqnbNmj+JdN o2gj2mlCGwwhBlH/DkAU8ZGzBtprfsP66T+z4TeiJEif9ghjR2IjJz4URCP0 jAKF3IsMhfRzCIDQ80gUak97rrcjAOqB4NL/zvh6ThuhBg8Bqo205z7VrQaA XWTnVQfZJIvQ2yZA7z2WB6FCa7lE2LmCS2WRlSahMtxxHtQIiM8gS612hkNp clkHYk4iw6OhE4XbkrL+C0Yail12IiXB52Vf159TMlTVd0RwlCtF5pF6CNIO vCW+pt9lH9bipaeu2fO5uy/Qoi4jhP9yJdSBa/2mJJAoerpsw0sjOnPwcA6N 3QYLbdw85N4vxwP9QfE0m9Gqhhc0NL82Vp7z2iBK0gbCizLq0MRMEQgPjRcn XFYb1i6KiG+ZEfQSxlX1q9lhniB1ESQhsodVSGuT1+uizcXi2pmvOb0NY73R 3L8PhoPO+IeAsLFurBvrxrqxDli34ceUw1g31o11Yz0C6zb8mHIY68a6sW6s R2Ddhh9TDmPdWN9k1tHGajKbt9lYjSyRe7O89U3bkSUr3DAK95uqG8ZvRGaU v8LMleLX9NvlSlFcQ77CiFSD9i3cGb7CknVwibd1ksa6sW6sK1i3mZEph7Fu rBvrxnoE1m34MeUw1o11Y91Yj8C6DT+mHMa6sW6sG+sRWLfhx5TDWDfWN5n1 bKu77Jag2Lz3p6HatGXb1JFLxDvvpYu4kDjaoKjrkqYNdWtpm5eGdAN6fpQ/ 0lFQ4Kwv6VdutxROFakDTeo8k7dFIjyrZmGPkouFLBwNJXfNoNZcek6/ny/+ ntz4P9pZk7k=\ \>"],ImageRangeCache->{{{0, 381}, {381, 0}} -> {-4.36562, -4.31582, \ 0.0221314, 0.0221314}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"] }, Open ]] }, WindowSize->{844, 824}, WindowMargins->{{100, 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, 2069, 58, 192, "Input"], Cell[2629, 80, 2162, 77, 212, "Input"], Cell[CellGroupData[{ Cell[4816, 161, 18227, 517, 792, "Input"], Cell[23046, 680, 134, 4, 31, "Output"], Cell[23183, 686, 12619, 795, 395, 6713, 696, "GraphicsData", "PostScript", \ "Graphics"], Cell[35805, 1483, 134, 4, 31, "Output"], Cell[35942, 1489, 134, 4, 31, "Output"], Cell[36079, 1495, 12676, 796, 390, 6753, 696, "GraphicsData", "PostScript", \ "Graphics"], Cell[48758, 2293, 134, 4, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)