(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 9.0' *) (*************************************************************************) (* *) (* The Mathematica License under which this file was created prohibits *) (* restricting third parties in receipt of this file from republishing *) (* or redistributing it by any means, including but not limited to *) (* rights management or terms of use, without the express consent of *) (* Wolfram Research, Inc. For additional information concerning CDF *) (* licensing and redistribution see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1063, 20] NotebookDataLength[ 52926, 1369] NotebookOptionsPosition[ 53453, 1364] NotebookOutlinePosition[ 53808, 1380] CellTagsIndexPosition[ 53765, 1377] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Green", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.1", ",", "0", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1", ",", "6", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.25", ",", "6.7", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4", ",", "6", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4", ",", "0", ",", "0.1"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1", ",", "0", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1", ",", "6", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.1", ",", "6", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.25", ",", "7", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.25", ",", "6.7", ",", "0.1"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.25", ",", "7", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.25", ",", "6.7", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4", ",", "6", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", "6", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", "6", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4", ",", "0", ",", "0.1"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.1", ",", "0", ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.1", ",", "6", ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.25", ",", "6.7", ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.4", ",", "6", ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.4", ",", "0", ",", RowBox[{"-", "0.1"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1", ",", "0", ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.1", ",", "6", ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.1", ",", "6", ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.25", ",", "7", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.25", ",", "6.7", ",", RowBox[{"-", "0.1"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.25", ",", "7", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.25", ",", "6.7", ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.4", ",", "6", ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", "6", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", "6", ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4", ",", "0", ",", RowBox[{"-", "0.1"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Cone", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.25", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.25", ",", "2", ",", "0"}], "}"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.25", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.25", ",", RowBox[{"-", "0.9"}], ",", "0"}], "}"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "0.9"}], ",", "0.19"}], "}"}], ",", RowBox[{"{", RowBox[{"0.55", ",", RowBox[{"-", "0.9"}], ",", "0.19"}], "}"}], ",", RowBox[{"{", RowBox[{"0.55", ",", RowBox[{"-", "2"}], ",", "0.19"}], "}"}], ",", RowBox[{"{", RowBox[{"0.02", ",", RowBox[{"-", "2"}], ",", "0.19"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "1.7"}], ",", "0.19"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "0.9"}], ",", RowBox[{"-", "0.19"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.55", ",", RowBox[{"-", "0.9"}], ",", RowBox[{"-", "0.19"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.55", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0.19"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.02", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0.19"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "1.7"}], ",", RowBox[{"-", "0.19"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "0.9"}], ",", "0.19"}], "}"}], ",", RowBox[{"{", RowBox[{"0.55", ",", RowBox[{"-", "0.9"}], ",", "0.19"}], "}"}], ",", RowBox[{"{", RowBox[{"0.55", ",", RowBox[{"-", "0.9"}], ",", RowBox[{"-", "0.19"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "0.9"}], ",", RowBox[{"-", "0.19"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "0.9"}], ",", "0.19"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "0.9"}], ",", RowBox[{"-", "0.19"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "1.7"}], ",", RowBox[{"-", "0.19"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "1.7"}], ",", "0.19"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.02", ",", RowBox[{"-", "2"}], ",", "0.19"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "1.7"}], ",", "0.19"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "1.7"}], ",", RowBox[{"-", "0.19"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.02", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0.19"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.55", ",", RowBox[{"-", "2"}], ",", "0.19"}], "}"}], ",", RowBox[{"{", RowBox[{"0.02", ",", RowBox[{"-", "2"}], ",", "0.19"}], "}"}], ",", RowBox[{"{", RowBox[{"0.02", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0.19"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.55", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0.19"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.55", ",", RowBox[{"-", "0.9"}], ",", "0.19"}], "}"}], ",", RowBox[{"{", RowBox[{"0.55", ",", RowBox[{"-", "0.9"}], ",", RowBox[{"-", "0.19"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.55", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0.19"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.55", ",", RowBox[{"-", "2"}], ",", "0.19"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Polygon", "\[IndentingNewLine]", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.26", ",", RowBox[{"-", "1.3"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{"0.25", ",", RowBox[{"-", "1.6"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.15"}], ",", RowBox[{"-", "1.7"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.15"}], ",", RowBox[{"-", "2.7"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.11"}], ",", RowBox[{"-", "2.8"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.11"}], ",", RowBox[{"-", "2.9"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", RowBox[{"-", "2.8"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "2.2"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "1.4"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "1.2"}], ",", "0.22"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Polygon", "\[IndentingNewLine]", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.26", ",", RowBox[{"-", "1.3"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.25", ",", RowBox[{"-", "1.6"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.15"}], ",", RowBox[{"-", "1.7"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.15"}], ",", RowBox[{"-", "2.7"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.11"}], ",", RowBox[{"-", "2.8"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.11"}], ",", RowBox[{"-", "2.9"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", RowBox[{"-", "2.8"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "2.2"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "1.2"}], ",", RowBox[{"-", "0.22"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Polygon", "\[IndentingNewLine]", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.11"}], ",", RowBox[{"-", "2.9"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.11"}], ",", RowBox[{"-", "2.9"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", RowBox[{"-", "2.8"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", RowBox[{"-", "2.8"}], ",", "0.22"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Polygon", "\[IndentingNewLine]", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", RowBox[{"-", "2.8"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", RowBox[{"-", "2.8"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "2.2"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "2.2"}], ",", RowBox[{"-", "0.22"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Polygon", "\[IndentingNewLine]", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "2.2"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "2.2"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "1.4"}], ",", "0.22"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Polygon", "\[IndentingNewLine]", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", RowBox[{"-", "1.2"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6", ",", RowBox[{"-", "1.1"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{"0.8", ",", RowBox[{"-", "1.2"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", RowBox[{"-", "2.2"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", RowBox[{"-", "2.3"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{"1.3", ",", RowBox[{"-", "2.3"}], ",", "0.22"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{"1.3", ",", RowBox[{"-", "2.2"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6", ",", RowBox[{"-", "1.6"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"-", "1.5"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3", ",", RowBox[{"-", "1.4"}], ",", "0.22"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Polygon", "\[IndentingNewLine]", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", RowBox[{"-", "1.2"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.6", ",", RowBox[{"-", "1.1"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.8", ",", RowBox[{"-", "1.2"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", RowBox[{"-", "2.2"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", RowBox[{"-", "2.3"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.3", ",", RowBox[{"-", "2.3"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{"1.3", ",", RowBox[{"-", "2.2"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.6", ",", RowBox[{"-", "1.6"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"-", "1.5"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.3", ",", RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.22"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Polygon", "\[IndentingNewLine]", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.8", ",", RowBox[{"-", "1.2"}], ",", "0.22"}], "}"}], ",", RowBox[{"{", RowBox[{"0.8", ",", RowBox[{"-", "1.2"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", RowBox[{"-", "2.2"}], ",", RowBox[{"-", "0.22"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", RowBox[{"-", "2.2"}], ",", "0.22"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.13", ",", "0.5", ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.05", ",", "0.53", ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.05", ",", "1.5", ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.13", ",", "1.65", ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "2.1", ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", "1.6", ",", "0.13"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", RowBox[{"-", "0.5"}], ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", RowBox[{"-", "0.55"}], ",", "0.13"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.13", ",", "0.5", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.05", ",", "0.53", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.05", ",", "1.5", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.13", ",", "1.65", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "2.1", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", "1.6", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", RowBox[{"-", "0.55"}], ",", RowBox[{"-", "0.13"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.15", ",", RowBox[{"-", "0.55"}], ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", RowBox[{"-", "0.55"}], ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", RowBox[{"-", "0.5"}], ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.13"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", RowBox[{"-", "0.5"}], ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", "1.6", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", "1.6", ",", "0.13"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", "1.6", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", "1.6", ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "2.1", ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15", ",", "2.1", ",", RowBox[{"-", "0.13"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.37", ",", "0.5", ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.45", ",", "0.53", ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.45", ",", "1.5", ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.37", ",", "1.65", ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.35", ",", "2.1", ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.59", ",", "1.6", ",", "0.13"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{"0.59", ",", RowBox[{"-", "0.5"}], ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.35", ",", RowBox[{"-", "0.55"}], ",", "0.13"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.37", ",", "0.5", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.45", ",", "0.53", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.45", ",", "1.5", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.37", ",", "1.65", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.35", ",", "2.1", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.59", ",", "1.6", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{"0.59", ",", RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.35", ",", RowBox[{"-", "0.55"}], ",", RowBox[{"-", "0.13"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.35", ",", RowBox[{"-", "0.55"}], ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.35", ",", RowBox[{"-", "0.55"}], ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.59", ",", RowBox[{"-", "0.5"}], ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.59", ",", RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.13"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.59", ",", RowBox[{"-", "0.5"}], ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.59", ",", RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.59", ",", "1.6", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.59", ",", "1.6", ",", "0.13"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.59", ",", "1.6", ",", RowBox[{"-", "0.13"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.59", ",", "1.6", ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.35", ",", "2.1", ",", "0.13"}], "}"}], ",", RowBox[{"{", RowBox[{"0.35", ",", "2.1", ",", RowBox[{"-", "0.13"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.09", ",", RowBox[{"-", "2"}], ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.09", ",", RowBox[{"-", "3"}], ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.41", ",", RowBox[{"-", "3"}], ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.41", ",", RowBox[{"-", "2"}], ",", "0.1"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.09", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.09", ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.41", ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.41", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0.1"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.09", ",", RowBox[{"-", "2"}], ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.09", ",", RowBox[{"-", "3"}], ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.09", ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.09", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0.1"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.41", ",", RowBox[{"-", "3.3"}], ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.41", ",", RowBox[{"-", "2"}], ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.41", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.41", ",", RowBox[{"-", "3.3"}], ",", RowBox[{"-", "0.1"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.09", ",", RowBox[{"-", "3.3"}], ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.41", ",", RowBox[{"-", "3.3"}], ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.41", ",", RowBox[{"-", "3.3"}], ",", RowBox[{"-", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.09", ",", RowBox[{"-", "3.3"}], ",", RowBox[{"-", "0.1"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "2"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "2.3"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "2.4"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "2"}], ",", "0.11"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "2.3"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "2.4"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0.11"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "2"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "2.3"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "2.3"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0.11"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "2.4"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "2"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "2.4"}], ",", RowBox[{"-", "0.11"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "2.7"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "2.8"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "3.31"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "3.31"}], ",", "0.11"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "2.7"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "2.8"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "3.31"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "3.31"}], ",", RowBox[{"-", "0.11"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "2.7"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "3.31"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "3.31"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "2.8"}], ",", "0.11"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "2.7"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "3.31"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "3.31"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "2.8"}], ",", RowBox[{"-", "0.11"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "3.31"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "3.31"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "2.8"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "2.8"}], ",", "0.11"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "3.31"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "3.31"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "2.7"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "2.7"}], ",", "0.11"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "3.31"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "3.31"}], ",", "0.11"}], "}"}], ",", RowBox[{"{", RowBox[{"0.42", ",", RowBox[{"-", "3.31"}], ",", RowBox[{"-", "0.11"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "3.31"}], ",", RowBox[{"-", "0.11"}]}], "}"}]}], "}"}], "]"}], ","}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{{3.6224992132451353`*^9, 3.6224992700181355`*^9}, { 3.6224993064641356`*^9, 3.6224993229111357`*^9}, 3.6224993580291357`*^9, { 3.6224994176571355`*^9, 3.6224995530871353`*^9}, {3.6224996017721357`*^9, 3.622499708884084*^9}, {3.6224997419640055`*^9, 3.6224997588150587`*^9}, { 3.622500035521077*^9, 3.622500100040978*^9}, {3.6225001479035487`*^9, 3.622500203544675*^9}, {3.622500280104556*^9, 3.622500281674713*^9}, { 3.622500318329378*^9, 3.6225003735789022`*^9}, {3.622500422921393*^9, 3.6225006149032726`*^9}, {3.62250064853638*^9, 3.6225006508450613`*^9}, { 3.6225007027124014`*^9, 3.622500703305171*^9}, {3.6225007345347695`*^9, 3.622501554728366*^9}, 3.6225015853049545`*^9, {3.6225016251169195`*^9, 3.622501682494085*^9}, {3.6225017607587833`*^9, 3.6225017887762036`*^9}, { 3.6225019960715475`*^9, 3.6225020728245316`*^9}, {3.6225021280024395`*^9, 3.622502130311269*^9}, {3.6225025302691965`*^9, 3.622502865125606*^9}, { 3.622502911114406*^9, 3.622503047365344*^9}, {3.622503080484357*^9, 3.622503201899935*^9}, {3.622503237140561*^9, 3.622503243396201*^9}, { 3.622503281445076*^9, 3.622503462642561*^9}, {3.6225035039209547`*^9, 3.6225035866961465`*^9}, {3.6225036538398376`*^9, 3.622503840681067*^9}, { 3.6225038727076616`*^9, 3.622504113431151*^9}, {3.622504143523744*^9, 3.622504151292594*^9}, {3.6225042999147463`*^9, 3.6225043131281776`*^9}, 3.6225045099883633`*^9, {3.6225045689106965`*^9, 3.622504649096238*^9}, { 3.6225048336610365`*^9, 3.6225048704770365`*^9}, {3.622505082809552*^9, 3.6225050902508473`*^9}, {3.6225052453168354`*^9, 3.6225053435980954`*^9}, {3.6231038547289124`*^9, 3.6231038751070604`*^9}, {3.6231039885774307`*^9, 3.6231042450450845`*^9}, {3.6231043113243375`*^9, 3.623104327885649*^9}, { 3.6231044053276544`*^9, 3.623104442479369*^9}, {3.6231044762687483`*^9, 3.623104510766197*^9}, {3.623104543934514*^9, 3.6231045563187523`*^9}, { 3.6231046094730673`*^9, 3.623104671696289*^9}, {3.623104718131932*^9, 3.6231047215602746`*^9}, {3.623104861257243*^9, 3.6231048653536525`*^9}, { 3.6231049036894855`*^9, 3.623105043898505*^9}, {3.6231050874058557`*^9, 3.623105091597275*^9}, {3.623105137612876*^9, 3.623105174012515*^9}, { 3.6231052557736907`*^9, 3.6231053515023136`*^9}, {3.6231053930299253`*^9, 3.6231057588505983`*^9}, {3.6231057927337985`*^9, 3.6231058107829986`*^9}, {3.6231058587529984`*^9, 3.6231058721533985`*^9}, {3.6231059253961983`*^9, 3.6231059294989986`*^9}, {3.6231059728981986`*^9, 3.6231064979473987`*^9}, {3.6231065943246613`*^9, 3.6231066071167436`*^9}, {3.6231066509218245`*^9, 3.623106774022214*^9}, { 3.6231068085920353`*^9, 3.6231069635313215`*^9}, {3.6231069945129213`*^9, 3.6231070548849216`*^9}, {3.6231070900317216`*^9, 3.6231071261457214`*^9}, {3.623107176096922*^9, 3.6231071928669214`*^9}, { 3.623107223676922*^9, 3.623107242381322*^9}, {3.6231072970593214`*^9, 3.6231074203617215`*^9}, {3.6231074553213215`*^9, 3.6231075460823903`*^9}, {3.623107661025401*^9, 3.6231076860170813`*^9}, { 3.6231077356104355`*^9, 3.623107745844232*^9}, {3.6231077902270856`*^9, 3.623108086769923*^9}, {3.623108116987317*^9, 3.623108615958864*^9}, { 3.6231086592209916`*^9, 3.623108907091199*^9}, {3.6231090176519423`*^9, 3.623109079024309*^9}, {3.623109254918317*^9, 3.6231093180055256`*^9}, { 3.6231094526508512`*^9, 3.6231095211042027`*^9}, 3.6231096610189075`*^9, { 3.6231096941368585`*^9, 3.6231096965859957`*^9}, {3.623109763445881*^9, 3.623109786736084*^9}, {3.623709008363888*^9, 3.6237091935004*^9}, { 3.623709275677617*^9, 3.623709298621911*^9}, {3.6237093381431875`*^9, 3.6237093881811934`*^9}, {3.6237094414668484`*^9, 3.6237095074110346`*^9}, {3.623709539365424*^9, 3.623709541588869*^9}, { 3.6237096238713217`*^9, 3.6237099858656235`*^9}, {3.6237100169867353`*^9, 3.623710036661703*^9}, {3.6237101738711367`*^9, 3.623710370527277*^9}, { 3.6237104040978312`*^9, 3.6237105789704685`*^9}, {3.6237106131806107`*^9, 3.6237109267397313`*^9}, {3.623710987954131*^9, 3.623711122114131*^9}, { 3.623711154936531*^9, 3.623711155669731*^9}, {3.623711199037731*^9, 3.623711366130018*^9}, {3.623711398952629*^9, 3.6237114006842403`*^9}, { 3.6237114358780656`*^9, 3.623711444692122*^9}, {3.62371148182036*^9, 3.623711534689099*^9}, {3.6237116056383533`*^9, 3.623711631300518*^9}, { 3.6237116826716475`*^9, 3.6237121166664295`*^9}, {3.623712154683873*^9, 3.6237121600815077`*^9}, {3.623712199112958*^9, 3.623712423863599*^9}, { 3.623712479633956*^9, 3.6237125638120956`*^9}, 3.623712606259968*^9, { 3.623712638583375*^9, 3.6237127838827066`*^9}, {3.623712814848905*^9, 3.6237132196871*^9}, {3.6237132801374874`*^9, 3.623713300948021*^9}, { 3.623713337327454*^9, 3.6237134330340676`*^9}, {3.6237134804583716`*^9, 3.623713486589211*^9}, {3.6237135285846806`*^9, 3.623713633994556*^9}, { 3.6237136673631697`*^9, 3.6237139105843287`*^9}, {3.6237139431105375`*^9, 3.623713982048387*^9}, {3.6237140129989853`*^9, 3.623714104992775*^9}, { 3.623714273411455*^9, 3.6237145422954288`*^9}, {3.623714712259608*^9, 3.623714813317239*^9}, {3.6237148465454516`*^9, 3.6237148664511795`*^9}, { 3.6237149006621985`*^9, 3.623715017694149*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0, 1, 0], Polygon3DBox[{{0.1, 0, 0.1}, {0.1, 6, 0.1}, {0.25, 6.7, 0.1}, { 0.4, 6, 0.1}, {0.4, 0, 0.1}}]}, {RGBColor[0, 1, 0], Polygon3DBox[{{0, 0, 0}, {0.1, 0, 0.1}, {0.1, 6, 0.1}, {0, 6, 0}}]}, {RGBColor[0, 1, 0], Polygon3DBox[{{0.1, 6, 0.1}, {0, 6, 0}, {0.25, 7, 0}, {0.25, 6.7, 0.1}}]}, {RGBColor[0, 1, 0], Polygon3DBox[{{0.25, 7, 0}, {0.25, 6.7, 0.1}, {0.4, 6, 0.1}, { 0.5, 6, 0}}]}, {RGBColor[0, 1, 0], Polygon3DBox[{{0.4, 6, 0.1}, {0.5, 6, 0}, {0.5, 0, 0}, {0.4, 0, 0.1}}]}, {RGBColor[0, 1, 0], Polygon3DBox[{{0.1, 0, -0.1}, {0.1, 6, -0.1}, {0.25, 6.7, -0.1}, { 0.4, 6, -0.1}, {0.4, 0, -0.1}}]}, {RGBColor[0, 1, 0], Polygon3DBox[{{0, 0, 0}, {0.1, 0, -0.1}, {0.1, 6, -0.1}, {0, 6, 0}}]}, {RGBColor[0, 1, 0], Polygon3DBox[{{0.1, 6, -0.1}, {0, 6, 0}, {0.25, 7, 0}, {0.25, 6.7, -0.1}}]}, {RGBColor[0, 1, 0], Polygon3DBox[{{0.25, 7, 0}, {0.25, 6.7, -0.1}, {0.4, 6, -0.1}, { 0.5, 6, 0}}]}, {RGBColor[0, 1, 0], Polygon3DBox[{{0.4, 6, -0.1}, {0.5, 6, 0}, {0.5, 0, 0}, {0.4, 0, -0.1}}]}, {GrayLevel[0.5], ConeBox[{{0.25, 0, 0}, {0.25, 2, 0}}, 0.2]}, {GrayLevel[0.5], CylinderBox[{{0.25, 0, 0}, {0.25, -0.9, 0}}, 0.2]}, {GrayLevel[0.5], Polygon3DBox[{{-0.1, -0.9, 0.19}, {0.55, -0.9, 0.19}, {0.55, -2, 0.19}, { 0.02, -2, 0.19}, {-0.1, -1.7, 0.19}}]}, {GrayLevel[0.5], Polygon3DBox[{{-0.1, -0.9, -0.19}, {0.55, -0.9, -0.19}, { 0.55, -2, -0.19}, {0.02, -2, -0.19}, {-0.1, -1.7, -0.19}}]}, {GrayLevel[0.5], Polygon3DBox[{{-0.1, -0.9, 0.19}, {0.55, -0.9, 0.19}, { 0.55, -0.9, -0.19}, {-0.1, -0.9, -0.19}}]}, {GrayLevel[0.5], Polygon3DBox[{{-0.1, -0.9, 0.19}, {-0.1, -0.9, -0.19}, {-0.1, -1.7, -0.19}, {-0.1, -1.7, 0.19}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.02, -2, 0.19}, {-0.1, -1.7, 0.19}, {-0.1, -1.7, -0.19}, { 0.02, -2, -0.19}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.55, -2, 0.19}, {0.02, -2, 0.19}, {0.02, -2, -0.19}, { 0.55, -2, -0.19}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.55, -0.9, 0.19}, {0.55, -0.9, -0.19}, { 0.55, -2, -0.19}, {0.55, -2, 0.19}}]}, {RGBColor[0, 0, 1], Polygon3DBox[{{0.26, -1.3, 0.22}, {0.25, -1.6, 0.22}, {-0.15, -1.7, 0.22}, {-0.15, -2.7, 0.22}, {-0.11, -2.8, 0.22}, {-0.11, -2.9, 0.22}, {-0.3, -2.8, 0.22}, {-0.4, -2.2, 0.22}, {-0.4, -1.4, 0.22}, {-0.1, -1.2, 0.22}}]}, {RGBColor[0, 0, 1], Polygon3DBox[{{0.26, -1.3, -0.22}, { 0.25, -1.6, -0.22}, {-0.15, -1.7, -0.22}, {-0.15, -2.7, -0.22}, {-0.11, \ -2.8, -0.22}, {-0.11, -2.9, -0.22}, {-0.3, -2.8, -0.22}, {-0.4, -2.2, -0.22}, \ {-0.4, -1.4, -0.22}, {-0.1, -1.2, -0.22}}]}, {RGBColor[0, 0, 1], Polygon3DBox[{{-0.11, -2.9, 0.22}, {-0.11, -2.9, -0.22}, {-0.3, -2.8, -0.22}, {-0.3, -2.8, 0.22}}]}, {RGBColor[0, 0, 1], Polygon3DBox[{{-0.3, -2.8, -0.22}, {-0.3, -2.8, 0.22}, {-0.4, -2.2, 0.22}, {-0.4, -2.2, -0.22}}]}, {RGBColor[0, 0, 1], Polygon3DBox[{{-0.4, -2.2, 0.22}, {-0.4, -2.2, -0.22}, {-0.4, -1.4, -0.22}, {-0.4, -1.4, 0.22}}]}, {RGBColor[0, 0, 1], Polygon3DBox[{{0.4, -1.2, 0.22}, {0.6, -1.1, 0.22}, {0.8, -1.2, 0.22}, { 1.5, -2.2, 0.22}, {1.5, -2.3, 0.22}, {1.3, -2.3, 0.22}, {1.3, -2.2, 0.22}, {0.6, -1.6, 0.22}, {0.5, -1.5, 0.22}, {0.3, -1.4, 0.22}}]}, {RGBColor[0, 0, 1], Polygon3DBox[{{0.4, -1.2, -0.22}, {0.6, -1.1, -0.22}, { 0.8, -1.2, -0.22}, {1.5, -2.2, -0.22}, {1.5, -2.3, -0.22}, { 1.3, -2.3, -0.22}, {1.3, -2.2, -0.22}, {0.6, -1.6, -0.22}, { 0.5, -1.5, -0.22}, {0.3, -1.4, -0.22}}]}, {RGBColor[0, 0, 1], Polygon3DBox[{{0.8, -1.2, 0.22}, {0.8, -1.2, -0.22}, {1.5, -2.2, -0.22}, { 1.5, -2.2, 0.22}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.13, 0.5, 0.13}, {0.05, 0.53, 0.13}, {0.05, 1.5, 0.13}, { 0.13, 1.65, 0.13}, {0.15, 2.1, 0.13}, {-0.09, 1.6, 0.13}, {-0.09, -0.5, 0.13}, {0.15, -0.55, 0.13}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.13, 0.5, -0.13}, {0.05, 0.53, -0.13}, {0.05, 1.5, -0.13}, {0.13, 1.65, -0.13}, {0.15, 2.1, -0.13}, {-0.09, 1.6, -0.13}, {-0.09, -0.5, -0.13}, {0.15, -0.55, -0.13}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.15, -0.55, -0.13}, {0.15, -0.55, 0.13}, {-0.09, -0.5, 0.13}, {-0.09, -0.5, -0.13}}]}, {GrayLevel[0.5], Polygon3DBox[{{-0.09, -0.5, 0.13}, {-0.09, -0.5, -0.13}, {-0.09, 1.6, -0.13}, {-0.09, 1.6, 0.13}}]}, {GrayLevel[0.5], Polygon3DBox[{{-0.09, 1.6, -0.13}, {-0.09, 1.6, 0.13}, {0.15, 2.1, 0.13}, {0.15, 2.1, -0.13}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.37, 0.5, 0.13}, {0.45, 0.53, 0.13}, {0.45, 1.5, 0.13}, { 0.37, 1.65, 0.13}, {0.35, 2.1, 0.13}, {0.59, 1.6, 0.13}, {0.59, -0.5, 0.13}, {0.35, -0.55, 0.13}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.37, 0.5, -0.13}, {0.45, 0.53, -0.13}, {0.45, 1.5, -0.13}, {0.37, 1.65, -0.13}, {0.35, 2.1, -0.13}, {0.59, 1.6, -0.13}, {0.59, -0.5, -0.13}, {0.35, -0.55, -0.13}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.35, -0.55, -0.13}, {0.35, -0.55, 0.13}, {0.59, -0.5, 0.13}, {0.59, -0.5, -0.13}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.59, -0.5, 0.13}, {0.59, -0.5, -0.13}, {0.59, 1.6, -0.13}, {0.59, 1.6, 0.13}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.59, 1.6, -0.13}, {0.59, 1.6, 0.13}, {0.35, 2.1, 0.13}, { 0.35, 2.1, -0.13}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.09, -2, 0.1}, {0.09, -3, 0.1}, {0.41, -3, 0.1}, { 0.41, -2, 0.1}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.09, -2, -0.1}, {0.09, -3, -0.1}, {0.41, -3, -0.1}, { 0.41, -2, -0.1}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.09, -2, 0.1}, {0.09, -3, 0.1}, {0.09, -3, -0.1}, { 0.09, -2, -0.1}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.41, -3.3, 0.1}, {0.41, -2, 0.1}, {0.41, -2, -0.1}, { 0.41, -3.3, -0.1}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.09, -3.3, 0.1}, {0.41, -3.3, 0.1}, {0.41, -3.3, -0.1}, { 0.09, -3.3, -0.1}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.08, -2, 0.11}, {0.08, -2.3, 0.11}, {0.42, -2.4, 0.11}, { 0.42, -2, 0.11}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.08, -2, -0.11}, {0.08, -2.3, -0.11}, { 0.42, -2.4, -0.11}, {0.42, -2, -0.11}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.08, -2, 0.11}, {0.08, -2.3, 0.11}, {0.08, -2.3, -0.11}, { 0.08, -2, -0.11}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.42, -2.4, 0.11}, {0.42, -2, 0.11}, {0.42, -2, -0.11}, { 0.42, -2.4, -0.11}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.42, -2.7, 0.11}, {0.08, -2.8, 0.11}, {0.08, -3.31, 0.11}, {0.42, -3.31, 0.11}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.42, -2.7, -0.11}, {0.08, -2.8, -0.11}, { 0.08, -3.31, -0.11}, {0.42, -3.31, -0.11}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.42, -2.7, 0.11}, {0.42, -3.31, 0.11}, {0.08, -3.31, 0.11}, {0.08, -2.8, 0.11}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.42, -2.7, -0.11}, {0.42, -3.31, -0.11}, { 0.08, -3.31, -0.11}, {0.08, -2.8, -0.11}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.08, -3.31, 0.11}, {0.08, -3.31, -0.11}, { 0.08, -2.8, -0.11}, {0.08, -2.8, 0.11}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.42, -3.31, 0.11}, {0.42, -3.31, -0.11}, { 0.42, -2.7, -0.11}, {0.42, -2.7, 0.11}}]}, {GrayLevel[0.5], Polygon3DBox[{{0.08, -3.31, 0.11}, {0.42, -3.31, 0.11}, { 0.42, -3.31, -0.11}, {0.08, -3.31, -0.11}}]}}, AutomaticImageSize->True, Boxed->False, ImageSize->{544.4314399309799, 387.04876790423}, ViewPoint->{-0.7775985205852189, -0.48047126408928065`, 3.257988321828078}, ViewVertical->{2.8350425901313776`, 0.32818695287950383`, 18.44021588370646}]], "Output", CellChangeTimes->{3.623715048488746*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"3", "-", RowBox[{ "A", "\:3000", "8", "\:756a", "\:3000\:3000", "\:6cb3\:5185", "\:3000", "\:5cfb"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\:5287\:5834\:7248\:6a5f\ \:52d5\:6226\:58eb\:30ac\:30f3\:30c0\:30e0OO\:3088\:308a", "\ \[IndentingNewLine]", RowBox[{"GN\:30bd", "\:30fc", "\:30c9V\:3092\:4f5c\:308a\:307e\:3057\:305f", "\:3002", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}], "Input", CellChangeTimes->{{3.623715118657996*^9, 3.6237152706341705`*^9}}] }, WindowSize->{707, 760}, WindowMargins->{{24, Automatic}, {Automatic, 30}}, FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (2013\:5e741\:670828\ \:65e5)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1485, 35, 43536, 1141, 2852, "Input"], Cell[45024, 1178, 7829, 169, 402, "Output"] }, Open ]], Cell[52868, 1350, 581, 12, 172, "Input"] } ] *) (* End of internal cache information *) (* NotebookSignature KvTtCky6bjkU6Cg5#yB#REYQ *)