(* 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[ 28304, 747] NotebookOptionsPosition[ 28611, 734] NotebookOutlinePosition[ 29121, 756] CellTagsIndexPosition[ 29078, 753] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[StyleBox["Rubik\[CloseCurlyQuote]s Cube", "Title"]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "2.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "2.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "4.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "4.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "0", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "0", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "0", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "0", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2.1", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "2.1", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "2.1", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4.1", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "4.1", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "4.1", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2.1", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "2.1", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4.1", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "4.1", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "4.1", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Green", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", RowBox[{"-", "0.1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", RowBox[{"-", "0.1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2", ",", RowBox[{"-", "0.1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", RowBox[{"-", "0.1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", RowBox[{"-", "0.1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "2.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4", ",", RowBox[{"-", "0.1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "2.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", RowBox[{"-", "0.1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "4.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", RowBox[{"-", "0.1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "4.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6", ",", RowBox[{"-", "0.1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6.1", ",", "2", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "2.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6.1", ",", "4", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6.1", ",", "6", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "0", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6.1", ",", "2", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "0", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6.1", ",", "2", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "2.1", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6.1", ",", "4", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4.1", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6.1", ",", "6", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "2.1", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6.1", ",", "4", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4.1", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6.1", ",", "6", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6.1", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6.1", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6.1", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "6", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6.1", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "6", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6.1", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "6", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6.1", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "6", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6.1", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "6", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6.1", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "6", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6.1", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "6.1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "6.1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2", ",", "6.1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2.1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "6.1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "2.1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4", ",", "6.1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "2.1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "6.1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4.1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "6.1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "4.1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "6.1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "4.1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6", ",", "6.1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "White", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "2.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "4.1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "2.1", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "4.1", ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "2.1", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "4.1", ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Orange", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Orange", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", RowBox[{"-", "0.1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Orange", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", RowBox[{"-", "0.1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Orange", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.1"}], ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Orange", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", RowBox[{"-", "0.1"}], ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Orange", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", RowBox[{"-", "0.1"}], ",", "2.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Orange", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.1"}], ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Orange", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", RowBox[{"-", "0.1"}], ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Orange", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", RowBox[{"-", "0.1"}], ",", "4.1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6", ",", "6"}], "}"}]}], "]"}], ","}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "\[IndentingNewLine]", "]"}]], "Input"], Cell[BoxData[ Graphics3DBox[{ {GrayLevel[0], CuboidBox[{0, 0, 0}, {2, 2, 2}]}, {GrayLevel[0], CuboidBox[{2.1, 0, 0}, {4, 2, 2}]}, {GrayLevel[0], CuboidBox[{4.1, 0, 0}, {6, 2, 2}]}, {GrayLevel[0], CuboidBox[{0, 2.1, 0}, {2, 4, 2}]}, {GrayLevel[0], CuboidBox[{0, 4.1, 0}, {2, 6, 2}]}, {GrayLevel[0], CuboidBox[{2.1, 2.1, 0}, {4, 4, 2}]}, {GrayLevel[0], CuboidBox[{4.1, 2.1, 0}, {6, 4, 2}]}, {GrayLevel[0], CuboidBox[{2.1, 4.1, 0}, {4, 6, 2}]}, {GrayLevel[0], CuboidBox[{4.1, 4.1, 0}, {6, 6, 2}]}, {GrayLevel[0], CuboidBox[{0, 0, 2.1}, {2, 2, 4}]}, {GrayLevel[0], CuboidBox[{2.1, 0, 2.1}, {4, 2, 4}]}, {GrayLevel[0], CuboidBox[{4.1, 0, 2.1}, {6, 2, 4}]}, {GrayLevel[0], CuboidBox[{0, 0, 4.1}, {2, 2, 6}]}, {GrayLevel[0], CuboidBox[{2.1, 0, 4.1}, {4, 2, 6}]}, {GrayLevel[0], CuboidBox[{4.1, 0, 4.1}, {6, 2, 6}]}, {GrayLevel[0], CuboidBox[{0, 2.1, 4.1}, {2, 4, 6}]}, {GrayLevel[0], CuboidBox[{2.1, 2.1, 4.1}, {4, 4, 6}]}, {GrayLevel[0], CuboidBox[{4.1, 2.1, 4.1}, {6, 4, 6}]}, {GrayLevel[0], CuboidBox[{0, 4.1, 4.1}, {2, 6, 6}]}, {GrayLevel[0], CuboidBox[{2.1, 4.1, 4.1}, {4, 6, 6}]}, {GrayLevel[0], CuboidBox[{4.1, 4.1, 4.1}, {6, 6, 6}]}, {GrayLevel[0], CuboidBox[{0, 2.1, 2.1}, {2, 4, 4}]}, {GrayLevel[0], CuboidBox[{4.1, 2.1, 2.1}, {6, 4, 4}]}, {GrayLevel[0], CuboidBox[{0, 4.1, 2.1}, {2, 6, 4}]}, {GrayLevel[0], CuboidBox[{2.1, 4.1, 2.1}, {4, 6, 4}]}, {GrayLevel[0], CuboidBox[{4.1, 4.1, 2.1}, {6, 6, 4}]}, {RGBColor[0, 1, 0], CuboidBox[{0, 0, 0}, {2, 2, -0.1}]}, {RGBColor[0, 1, 0], CuboidBox[{2.1, 0, 0}, {4, 2, -0.1}]}, {RGBColor[0, 1, 0], CuboidBox[{4.1, 0, 0}, {6, 2, -0.1}]}, {RGBColor[0, 1, 0], CuboidBox[{0, 2.1, 0}, {2, 4, -0.1}]}, {RGBColor[0, 1, 0], CuboidBox[{0, 4.1, 0}, {2, 6, -0.1}]}, {RGBColor[0, 1, 0], CuboidBox[{2.1, 2.1, 0}, {4, 4, -0.1}]}, {RGBColor[0, 1, 0], CuboidBox[{4.1, 2.1, 0}, {6, 4, -0.1}]}, {RGBColor[0, 1, 0], CuboidBox[{2.1, 4.1, 0}, {4, 6, -0.1}]}, {RGBColor[0, 1, 0], CuboidBox[{4.1, 4.1, 0}, {6, 6, -0.1}]}, {RGBColor[0, 0, 1], CuboidBox[{6, 0, 0}, {6.1, 2, 2}]}, {RGBColor[0, 0, 1], CuboidBox[{6, 2.1, 0}, {6.1, 4, 2}]}, {RGBColor[0, 0, 1], CuboidBox[{6, 4.1, 0}, {6.1, 6, 2}]}, {RGBColor[0, 0, 1], CuboidBox[{6, 0, 2.1}, {6.1, 2, 4}]}, {RGBColor[0, 0, 1], CuboidBox[{6, 0, 4.1}, {6.1, 2, 6}]}, {RGBColor[0, 0, 1], CuboidBox[{6, 2.1, 2.1}, {6.1, 4, 4}]}, {RGBColor[0, 0, 1], CuboidBox[{6, 4.1, 2.1}, {6.1, 6, 4}]}, {RGBColor[0, 0, 1], CuboidBox[{6, 2.1, 4.1}, {6.1, 4, 6}]}, {RGBColor[0, 0, 1], CuboidBox[{6, 4.1, 4.1}, {6.1, 6, 6}]}, {RGBColor[1, 0, 0], CuboidBox[{0, 6, 0}, {2, 6.1, 2}]}, {RGBColor[1, 0, 0], CuboidBox[{2.1, 6, 0}, {4, 6.1, 2}]}, {RGBColor[1, 0, 0], CuboidBox[{4.1, 6, 0}, {6, 6.1, 2}]}, {RGBColor[1, 0, 0], CuboidBox[{0, 6, 2.1}, {2, 6.1, 4}]}, {RGBColor[1, 0, 0], CuboidBox[{0, 6, 4.1}, {2, 6.1, 6}]}, {RGBColor[1, 0, 0], CuboidBox[{2.1, 6, 2.1}, {4, 6.1, 4}]}, {RGBColor[1, 0, 0], CuboidBox[{4.1, 6, 2.1}, {6, 6.1, 4}]}, {RGBColor[1, 0, 0], CuboidBox[{2.1, 6, 4.1}, {4, 6.1, 6}]}, {RGBColor[1, 0, 0], CuboidBox[{4.1, 6, 4.1}, {6, 6.1, 6}]}, {RGBColor[1, 1, 0], CuboidBox[{0, 0, 6}, {2, 2, 6.1}]}, {RGBColor[1, 1, 0], CuboidBox[{2.1, 0, 6}, {4, 2, 6.1}]}, {RGBColor[1, 1, 0], CuboidBox[{4.1, 0, 6}, {6, 2, 6.1}]}, {RGBColor[1, 1, 0], CuboidBox[{0, 2.1, 6}, {2, 4, 6.1}]}, {RGBColor[1, 1, 0], CuboidBox[{2.1, 2.1, 6}, {4, 4, 6.1}]}, {RGBColor[1, 1, 0], CuboidBox[{4.1, 2.1, 6}, {6, 4, 6.1}]}, {RGBColor[1, 1, 0], CuboidBox[{0, 4.1, 6}, {2, 6, 6.1}]}, {RGBColor[1, 1, 0], CuboidBox[{2.1, 4.1, 6}, {4, 6, 6.1}]}, {RGBColor[1, 1, 0], CuboidBox[{4.1, 4.1, 6}, {6, 6, 6.1}]}, {GrayLevel[1], CuboidBox[{-0.1, 0, 0}, {0, 2, 2}]}, {GrayLevel[1], CuboidBox[{-0.1, 2.1, 0}, {0, 4, 2}]}, {GrayLevel[1], CuboidBox[{-0.1, 4.1, 0}, {0, 6, 2}]}, {GrayLevel[1], CuboidBox[{-0.1, 0, 2.1}, {0, 2, 4}]}, {GrayLevel[1], CuboidBox[{-0.1, 2.1, 2.1}, {0, 4, 4}]}, {GrayLevel[1], CuboidBox[{-0.1, 4.1, 2.1}, {0, 6, 4}]}, {GrayLevel[1], CuboidBox[{-0.1, 0, 4.1}, {0, 2, 6}]}, {GrayLevel[1], CuboidBox[{-0.1, 2.1, 4.1}, {0, 4, 6}]}, {GrayLevel[1], CuboidBox[{-0.1, 4.1, 4.1}, {0, 6, 6}]}, {RGBColor[1, 0.5, 0], CuboidBox[{0, -0.1, 0}, {2, 0, 2}]}, {RGBColor[1, 0.5, 0], CuboidBox[{2.1, -0.1, 0}, {4, 0, 2}]}, {RGBColor[1, 0.5, 0], CuboidBox[{4.1, -0.1, 0}, {6, 0, 2}]}, {RGBColor[1, 0.5, 0], CuboidBox[{0, -0.1, 2.1}, {2, 0, 4}]}, {RGBColor[1, 0.5, 0], CuboidBox[{2.1, -0.1, 2.1}, {4, 0, 4}]}, {RGBColor[1, 0.5, 0], CuboidBox[{4.1, -0.1, 2.1}, {6, 0, 4}]}, {RGBColor[1, 0.5, 0], CuboidBox[{0, -0.1, 4.1}, {2, 0, 6}]}, {RGBColor[1, 0.5, 0], CuboidBox[{2.1, -0.1, 4.1}, {4, 0, 6}]}, {RGBColor[1, 0.5, 0], CuboidBox[{4.1, -0.1, 4.1}, {6, 0, 6}]}, {GrayLevel[0], CuboidBox[{0, 0, 0}, {6, 6, 6}]}}, AutomaticImageSize->True, Boxed->False, ImageSize->{382.15100874847315`, 395.048401759664}, ViewPoint->{0.8081564732579372, 3.1208314493983007`, 1.028248111682095}, ViewVertical->{-0.37569783891497566`, 0.8555262476037445, -0.3562667167946978}]], "Output"] }, Open ]], Cell["3\:5e74C\:7d4437\:756a\:6c34\:91ce\:3000\:4ec1\:535a", "Text"], Cell[BoxData[""], "Input"] }, WindowSize->{1008, 632}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Visible->True, ScrollingOptions->{"VerticalScrollRange"->Fit}, ShowCellBracket->False, Deployed->True, CellContext->Notebook, TrackCellChangeTimes->False, 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[1463, 33, 74, 0, 58, "Text"], Cell[CellGroupData[{ Cell[1562, 37, 21712, 600, 1892, "Input"], Cell[23277, 639, 5218, 88, 410, "Output"] }, Open ]], Cell[28510, 730, 68, 0, 30, "Text"], Cell[28581, 732, 26, 0, 31, "Input"] } ] *) (* End of internal cache information *) (* NotebookSignature SxD9b9pBYOzhBBwqlmPy#AN2 *)