(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 8.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. *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 835, 17] NotebookDataLength[ 50510, 1315] NotebookOptionsPosition[ 50700, 1303] NotebookOutlinePosition[ 51055, 1319] CellTagsIndexPosition[ 51012, 1316] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\:30ad\:30fc\:30dc\:30fc\:30c9 in \:5b66\:9662", "Section", CellChangeTimes->{{3.591660278928687*^9, 3.5916602808643084`*^9}, { 3.591660327317264*^9, 3.5916603357834096`*^9}, {3.591660383149486*^9, 3.5916603912386637`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Gray", ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "11", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5.5", ",", "11", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5", ",", "10", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.5", ",", "10", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.5", ",", "11", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "11", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.5", ",", "10", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.5", ",", "10", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "11", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "11", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", "11", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "11", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.5", ",", "11", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.5", ",", "11", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.5", ",", "10", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5", ",", "10", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.5", ",", "11", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.5", ",", "11", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"17", "/", "7"}], ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"17", "/", "7"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"27", "/", "7"}], ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"27", "/", "7"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"37", "/", "7"}], ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"37", "/", "7"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"47", "/", "7"}], ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"47", "/", "7"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"61", "/", "7"}], ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"61", "/", "7"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"71", "/", "7"}], ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"71", "/", "7"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"81", "/", "7"}], ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"81", "/", "7"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"88", "/", "7"}], ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"88", "/", "7"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"95", "/", "7"}], ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"95", "/", "7"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"102", "/", "7"}], ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"102", "/", "7"}], ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"112", "/", "7"}], ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"13", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"14", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2.8", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.8", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3.8", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.8", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4.8", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.8", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5.8", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.8", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6.8", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.8", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7.8", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7.8", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"8.8", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8.8", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"9.8", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9.8", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10.8", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10.8", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"11.8", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"12.8", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12.8", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"13.8", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"13.8", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"14.8", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"8.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"9.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"11.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"12.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"13.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"13.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"14.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"13", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"14", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2.1", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.8", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3.9", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.9", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6.1", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.1", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7.2", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7.4", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"8.45", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8.45", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"9.5", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9.5", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10.55", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10.55", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"11.6", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"12.85", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12.85", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"13.9", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"13.9", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"14.95", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"14.95", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"16.5", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"17.5", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17.5", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"18.5", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18.5", ",", "8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"19.5", ",", "9", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"16.5", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"17.5", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17.5", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"18.5", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18.5", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"19.5", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"20", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"21", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"22", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"23", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "7", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"16.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"17.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"18.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18.5", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"19.5", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"20", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"21", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"22", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"16.5", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"17.5", ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17.5", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"18.5", ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18.5", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"19.5", ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17.5", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"18.5", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"20", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"21", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"22", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"20", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"21", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"22", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"20", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"22", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "3", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"23", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "6", ",", "0.5"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"23", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "4", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"14.8", ",", "4", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "4", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "6", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"14.5", ",", "6", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"14.5", ",", "5", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"14.8", ",", "5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"16", ",", "4", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "6", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "4", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"20.4", ",", "8.6", ",", "0"}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"21.4", ",", "8.6", ",", "0"}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"22.4", ",", "8.6", ",", "0"}], "}"}], ",", "0.2"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{{3.5916541851621337`*^9, 3.5916542377734947`*^9}, { 3.5916542682410803`*^9, 3.591654278367325*^9}, {3.5916544175785313`*^9, 3.5916544237913647`*^9}, {3.591654532496441*^9, 3.591654588361029*^9}, { 3.591654648821027*^9, 3.5916546978549976`*^9}, {3.591654742347267*^9, 3.591654896851296*^9}, 3.591654940331481*^9, {3.591655082330098*^9, 3.5916550858722258`*^9}, {3.5916552334267197`*^9, 3.591655288295038*^9}, { 3.591655344395825*^9, 3.5916555005896726`*^9}, {3.59165556448695*^9, 3.5916555889785466`*^9}, {3.591655705147869*^9, 3.5916557684231157`*^9}, { 3.591655824327741*^9, 3.5916558454357653`*^9}, {3.5916558780713716`*^9, 3.5916560877754803`*^9}, {3.591656119543301*^9, 3.5916562186906633`*^9}, { 3.591656280299474*^9, 3.5916563425059643`*^9}, {3.591656388778249*^9, 3.5916566448564415`*^9}, {3.5916566942089224`*^9, 3.591656791173583*^9}, { 3.591656838162692*^9, 3.5916569434440784`*^9}, {3.5916569854085803`*^9, 3.591657082353709*^9}, {3.5916571228269434`*^9, 3.5916571960631533`*^9}, { 3.591657230092781*^9, 3.5916572792108774`*^9}, {3.5916573124777803`*^9, 3.591657404611201*^9}, {3.591657448655861*^9, 3.591657523125517*^9}, { 3.5916575581141653`*^9, 3.5916576083651185`*^9}, {3.591657651990817*^9, 3.591657677118735*^9}, {3.5916577297652874`*^9, 3.591657736100492*^9}, { 3.591657786997954*^9, 3.591657792654421*^9}, {3.591657869242323*^9, 3.5916578710754013`*^9}, {3.5916579527377167`*^9, 3.5916580182226534`*^9}, {3.591658059550412*^9, 3.5916580646531467`*^9}, { 3.59165810117994*^9, 3.5916581275461864`*^9}, {3.5916581993546085`*^9, 3.5916582046165295`*^9}, {3.591658247072261*^9, 3.5916584533321342`*^9}, { 3.5916584901235857`*^9, 3.5916585469695187`*^9}, {3.5916585896059217`*^9, 3.591658589963357*^9}, {3.5916587179165125`*^9, 3.5916587612130966`*^9}, { 3.5916588401839027`*^9, 3.591658856490193*^9}, {3.5916589287371073`*^9, 3.591658945336378*^9}, {3.5916589785742273`*^9, 3.5916590405800247`*^9}, { 3.5916590743552065`*^9, 3.591659151132519*^9}, {3.591659218428993*^9, 3.591659245490738*^9}, {3.5916592978535967`*^9, 3.591659470719486*^9}, 3.591659511849666*^9, {3.591659542288148*^9, 3.591659545120974*^9}, 3.591659672723769*^9, {3.591659749967946*^9, 3.5916598256925335`*^9}, { 3.59165986129937*^9, 3.591660026021515*^9}, {3.5916600634301777`*^9, 3.5916600712527437`*^9}}], Cell[BoxData[ Graphics3DBox[{ {GrayLevel[0.5], Polygon3DBox[{{0, 0, 0}, {25, 0, 0}, {25, 11, 0}, {5.5, 11, 0}, { 4.5, 10, 0}, {0, 10, 0}}], Polygon3DBox[{{0, 0, 0}, {0, 0, -1}, {25, 0, -1}, {25, 0, 0}}], Polygon3DBox[{{0, 0, -1}, {0, 10, -3}, {4.5, 10, -3}, {5.5, 11, -3}, {25, 11, -3}, {25, 0, -1}}], Polygon3DBox[{{0, 10, 0}, {0, 10, -3}, {4.5, 10, -3}, {4.5, 10, 0}}], Polygon3DBox[{{0, 0, 0}, {0, 10, 0}, {0, 10, -3}, {0, 0, -1}}], Polygon3DBox[{{25, 0, 0}, {25, 11, 0}, {25, 11, -3}, {25, 0, -1}}], Polygon3DBox[{{25, 11, 0}, {25, 11, -3}, {5.5, 11, -3}, {5.5, 11, 0}}], Polygon3DBox[{{4.5, 10, 0}, {4.5, 10, -3}, {5.5, 11, -3}, {5.5, 11, 0}}], CuboidBox[ NCache[{{1, 2, 0}, {Rational[17, 7], 3, 0.5}}, {{1, 2, 0}, { 2.4285714285714284`, 3, 0.5}}]], CuboidBox[ NCache[{{Rational[17, 7], 2, 0}, {Rational[27, 7], 3, 0.5}}, {{ 2.4285714285714284`, 2, 0}, {3.857142857142857, 3, 0.5}}]], CuboidBox[ NCache[{{Rational[27, 7], 2, 0}, {Rational[37, 7], 3, 0.5}}, {{ 3.857142857142857, 2, 0}, {5.285714285714286, 3, 0.5}}]], CuboidBox[ NCache[{{Rational[37, 7], 2, 0}, {Rational[47, 7], 3, 0.5}}, {{ 5.285714285714286, 2, 0}, {6.714285714285714, 3, 0.5}}]], CuboidBox[ NCache[{{Rational[47, 7], 2, 0}, {Rational[61, 7], 3, 0.5}}, {{ 6.714285714285714, 2, 0}, {8.714285714285714, 3, 0.5}}]], CuboidBox[ NCache[{{Rational[61, 7], 2, 0}, {Rational[71, 7], 3, 0.5}}, {{ 8.714285714285714, 2, 0}, {10.142857142857142`, 3, 0.5}}]], CuboidBox[ NCache[{{Rational[71, 7], 2, 0}, {Rational[81, 7], 3, 0.5}}, {{ 10.142857142857142`, 2, 0}, {11.571428571428571`, 3, 0.5}}]], CuboidBox[ NCache[{{Rational[81, 7], 2, 0}, {Rational[88, 7], 3, 0.5}}, {{ 11.571428571428571`, 2, 0}, {12.571428571428571`, 3, 0.5}}]], CuboidBox[ NCache[{{Rational[88, 7], 2, 0}, {Rational[95, 7], 3, 0.5}}, {{ 12.571428571428571`, 2, 0}, {13.571428571428571`, 3, 0.5}}]], CuboidBox[ NCache[{{Rational[95, 7], 2, 0}, {Rational[102, 7], 3, 0.5}}, {{ 13.571428571428571`, 2, 0}, {14.571428571428571`, 3, 0.5}}]], CuboidBox[ NCache[{{Rational[102, 7], 2, 0}, {16, 3, 0.5}}, {{ 14.571428571428571`, 2, 0}, {16, 3, 0.5}}]], CuboidBox[{{1, 3, 0}, {3, 4, 0.5}}], CuboidBox[{{3, 3, 0}, {4, 4, 0.5}}], CuboidBox[{{4, 3, 0}, {5, 4, 0.5}}], CuboidBox[{{5, 3, 0}, {6, 4, 0.5}}], CuboidBox[{{6, 3, 0}, {7, 4, 0.5}}], CuboidBox[{{7, 3, 0}, {8, 4, 0.5}}], CuboidBox[{{8, 3, 0}, {9, 4, 0.5}}], CuboidBox[{{9, 3, 0}, {10, 4, 0.5}}], CuboidBox[{{10, 3, 0}, {11, 4, 0.5}}], CuboidBox[{{11, 3, 0}, {12, 4, 0.5}}], CuboidBox[{{12, 3, 0}, {13, 4, 0.5}}], CuboidBox[{{13, 3, 0}, {14, 4, 0.5}}], CuboidBox[{{14, 3, 0}, {16, 4, 0.5}}], CuboidBox[{{1, 4, 0}, {2.8, 5, 0.5}}], CuboidBox[{{2.8, 4, 0}, {3.8, 5, 0.5}}], CuboidBox[{{3.8, 4, 0}, {4.8, 5, 0.5}}], CuboidBox[{{4.8, 4, 0}, {5.8, 5, 0.5}}], CuboidBox[{{5.8, 4, 0}, {6.8, 5, 0.5}}], CuboidBox[{{6.8, 4, 0}, {7.8, 5, 0.5}}], CuboidBox[{{7.8, 4, 0}, {8.8, 5, 0.5}}], CuboidBox[{{8.8, 4, 0}, {9.8, 5, 0.5}}], CuboidBox[{{9.8, 4, 0}, {10.8, 5, 0.5}}], CuboidBox[{{10.8, 4, 0}, {11.8, 5, 0.5}}], CuboidBox[{{11.8, 4, 0}, {12.8, 5, 0.5}}], CuboidBox[{{12.8, 4, 0}, {13.8, 5, 0.5}}], CuboidBox[{{13.8, 4, 0}, {14.8, 5, 0.5}}], CuboidBox[{{1, 5, 0}, {2.5, 6, 0.5}}], CuboidBox[{{2.5, 5, 0}, {3.5, 6, 0.5}}], CuboidBox[{{3.5, 5, 0}, {4.5, 6, 0.5}}], CuboidBox[{{4.5, 5, 0}, {5.5, 6, 0.5}}], CuboidBox[{{5.5, 5, 0}, {6.5, 6, 0.5}}], CuboidBox[{{6.5, 5, 0}, {7.5, 6, 0.5}}], CuboidBox[{{7.5, 5, 0}, {8.5, 6, 0.5}}], CuboidBox[{{8.5, 5, 0}, {9.5, 6, 0.5}}], CuboidBox[{{9.5, 5, 0}, {10.5, 6, 0.5}}], CuboidBox[{{10.5, 5, 0}, {11.5, 6, 0.5}}], CuboidBox[{{11.5, 5, 0}, {12.5, 6, 0.5}}], CuboidBox[{{12.5, 5, 0}, {13.5, 6, 0.5}}], CuboidBox[{{13.5, 5, 0}, {14.5, 6, 0.5}}], CuboidBox[{{1, 6, 0}, {2, 7, 0.5}}], CuboidBox[{{2, 6, 0}, {3, 7, 0.5}}], CuboidBox[{{3, 6, 0}, {4, 7, 0.5}}], CuboidBox[{{4, 6, 0}, {5, 7, 0.5}}], CuboidBox[{{5, 6, 0}, {6, 7, 0.5}}], CuboidBox[{{6, 6, 0}, {7, 7, 0.5}}], CuboidBox[{{7, 6, 0}, {8, 7, 0.5}}], CuboidBox[{{8, 6, 0}, {9, 7, 0.5}}], CuboidBox[{{9, 6, 0}, {10, 7, 0.5}}], CuboidBox[{{10, 6, 0}, {11, 7, 0.5}}], CuboidBox[{{11, 6, 0}, {12, 7, 0.5}}], CuboidBox[{{12, 6, 0}, {13, 7, 0.5}}], CuboidBox[{{13, 6, 0}, {14, 7, 0.5}}], CuboidBox[{{14, 6, 0}, {15, 7, 0.5}}], CuboidBox[{{15, 6, 0}, {16, 7, 0.5}}], CuboidBox[{{1, 8, 0}, {2.1, 9, 0.5}}], CuboidBox[{{2.8, 8, 0}, {3.9, 9, 0.5}}], CuboidBox[{{3.9, 8, 0}, {5, 9, 0.5}}], CuboidBox[{{5, 8, 0}, {6.1, 9, 0.5}}], CuboidBox[{{6.1, 8, 0}, {7.2, 9, 0.5}}], CuboidBox[{{7.4, 8, 0}, {8.45, 9, 0.5}}], CuboidBox[{{8.45, 8, 0}, {9.5, 9, 0.5}}], CuboidBox[{{9.5, 8, 0}, {10.55, 9, 0.5}}], CuboidBox[{{10.55, 8, 0}, {11.6, 9, 0.5}}], CuboidBox[{{11.8, 8, 0}, {12.85, 9, 0.5}}], CuboidBox[{{12.85, 8, 0}, {13.9, 9, 0.5}}], CuboidBox[{{13.9, 8, 0}, {14.95, 9, 0.5}}], CuboidBox[{{14.95, 8, 0}, {16, 9, 0.5}}], CuboidBox[{{16.5, 8, 0}, {17.5, 9, 0.5}}], CuboidBox[{{17.5, 8, 0}, {18.5, 9, 0.5}}], CuboidBox[{{18.5, 8, 0}, {19.5, 9, 0.5}}], CuboidBox[{{16.5, 6, 0}, {17.5, 7, 0.5}}], CuboidBox[{{17.5, 6, 0}, {18.5, 7, 0.5}}], CuboidBox[{{18.5, 6, 0}, {19.5, 7, 0.5}}], CuboidBox[{{20, 6, 0}, {21, 7, 0.5}}], CuboidBox[{{21, 6, 0}, {22, 7, 0.5}}], CuboidBox[{{22, 6, 0}, {23, 7, 0.5}}], CuboidBox[{{23, 6, 0}, {24, 7, 0.5}}], CuboidBox[{{16.5, 5, 0}, {17.5, 6, 0.5}}], CuboidBox[{{17.5, 5, 0}, {18.5, 6, 0.5}}], CuboidBox[{{18.5, 5, 0}, {19.5, 6, 0.5}}], CuboidBox[{{20, 5, 0}, {21, 6, 0.5}}], CuboidBox[{{21, 5, 0}, {22, 6, 0.5}}], CuboidBox[{{22, 5, 0}, {23, 6, 0.5}}], CuboidBox[{{16.5, 2, 0}, {17.5, 3, 0.5}}], CuboidBox[{{17.5, 2, 0}, {18.5, 3, 0.5}}], CuboidBox[{{18.5, 2, 0}, {19.5, 3, 0.5}}], CuboidBox[{{17.5, 3, 0}, {18.5, 4, 0.5}}], CuboidBox[{{20, 4, 0}, {21, 5, 0.5}}], CuboidBox[{{21, 4, 0}, {22, 5, 0.5}}], CuboidBox[{{22, 4, 0}, {23, 5, 0.5}}], CuboidBox[{{20, 3, 0}, {21, 4, 0.5}}], CuboidBox[{{21, 3, 0}, {22, 4, 0.5}}], CuboidBox[{{22, 3, 0}, {23, 4, 0.5}}], CuboidBox[{{20, 2, 0}, {22, 3, 0.5}}], CuboidBox[{{22, 2, 0}, {23, 3, 0.5}}], CuboidBox[{{23, 4, 0}, {24, 6, 0.5}}]}, {RGBColor[0, 0, 1], CuboidBox[{{23, 2, 0}, {24, 4, 0.5}}], Polygon3DBox[{{14.8, 4, 0.5}, {16, 4, 0.5}, {16, 6, 0.5}, { 14.5, 6, 0.5}, {14.5, 5, 0.5}, {14.8, 5, 0.5}}], Polygon3DBox[{{16, 4, 0.5}, {16, 6, 0.5}, {16, 6, 0}, {16, 4, 0}}]}, {RGBColor[0, 1, 0], SphereBox[{20.4, 8.6, 0}, 0.2], SphereBox[{21.4, 8.6, 0}, 0.2], SphereBox[{22.4, 8.6, 0}, 0.2]}}, AutomaticImageSize->True, Boxed->False, ImageSize->{404.76256414002796`, 201.01547594637023`}, ViewPoint->{1.6934989479799323`, -1.849067745525759, 2.272225733866942}, ViewVertical->{0.35692502826142547`, 0.7331087096727534, 6.26194579931698}]], "Output", CellChangeTimes->{ 3.5916595128974504`*^9, 3.591659546695092*^9, 3.5916597828578815`*^9, { 3.591659964402938*^9, 3.5916600007275753`*^9}, 3.5916600733905215`*^9}] }, Open ]], Cell["\<\ \:30003\:5e74J\:7d4414\:756a\:7c73\:6fa4\:548c\:4e5f \:7d76\:5999\:306a\:89d2\:5ea6\:306b\:6ce8\:76ee\:3057\:3066\:3044\:305f\:3060\ \:304d\:305f\:3044\:3002\ \>", "Text", CellChangeTimes->{{3.5916604614132338`*^9, 3.591660582365144*^9}}], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{{3.5916545675391197`*^9, 3.591654577332438*^9}, { 3.5916550976636944`*^9, 3.5916552184349337`*^9}, {3.59165586829563*^9, 3.59165587134231*^9}, {3.5916560135782948`*^9, 3.591656020096123*^9}, { 3.5916561283571167`*^9, 3.5916561304529*^9}, {3.5916562297291727`*^9, 3.59165627318006*^9}, {3.591657251533057*^9, 3.591657255875021*^9}, { 3.5916572918187838`*^9, 3.5916572993776674`*^9}, {3.591657439666258*^9, 3.591657442282569*^9}, {3.591660404962824*^9, 3.591660425558341*^9}}] }, Open ]] }, WindowSize->{1016, 640}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (2012\:5e7412\:670811\ \:65e5)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1257, 32, 235, 3, 75, "Section"], Cell[CellGroupData[{ Cell[1517, 39, 40888, 1094, 2492, "Input"], Cell[42408, 1135, 7455, 148, 216, "Output"] }, Open ]], Cell[49878, 1286, 249, 5, 49, "Text"], Cell[50130, 1293, 554, 7, 52, "Input"] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature sv0hR#hjJppH6A19eEH8Ij4x *)