(* 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[      8347,        244]
NotebookOptionsPosition[      8885,        239]
NotebookOutlinePosition[      9239,        255]
CellTagsIndexPosition[      9196,        252]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Opacity", "[", "0.2", "]"}], ",", "Black", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "1", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "3", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "2", ",", "0"}], "}"}]}], "}"}], "]"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "3", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "4", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "2", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "1", ",", "2"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "2", ",", "2"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "3", ",", "2"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "2", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "1", ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "1", ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "2", ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "3", ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", 
          RowBox[{"-", "1"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "2", ",", 
          RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Opacity", "[", "1", "]"}], ",", "Red", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "2", ",", "1"}], "}"}]}], "}"}], "]"}], ","}], 
    "\[IndentingNewLine]", "}"}], ",", 
   RowBox[{"Boxed", "\[Rule]", "False"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.622505315266261*^9, 3.6225053241660404`*^9}}],

Cell[BoxData[
 Graphics3DBox[{
   {GrayLevel[0], Opacity[0.2], CuboidBox[{{0, 0, 0}, {1, 1, 1}}], 
    CuboidBox[{{2, 0, 0}, {3, 1, 1}}], CuboidBox[{{1, 2, 0}, {0, 3, 1}}], 
    CuboidBox[{{2, 2, 0}, {3, 3, 1}}], CuboidBox[{{1, 0, 0}, {2, -1, 1}}], 
    CuboidBox[{{0, 1, 1}, {-1, 2, 0}}], CuboidBox[{{1, 3, 0}, {2, 4, 1}}], 
    CuboidBox[{{3, 1, 1}, {4, 2, 0}}], CuboidBox[{{1, 0, 1}, {2, 1, 2}}], 
    CuboidBox[{{1, 1, 1}, {0, 2, 2}}], CuboidBox[{{1, 2, 1}, {2, 3, 2}}], 
    CuboidBox[{{2, 1, 2}, {3, 2, 1}}], CuboidBox[{{2, 1, 2}, {1, 2, 3}}], 
    CuboidBox[{{1, 0, 0}, {2, 1, -1}}], CuboidBox[{{2, 2, 0}, {3, 1, -1}}], 
    CuboidBox[{{1, 1, 0}, {0, 2, -1}}], CuboidBox[{{2, 2, 0}, {1, 3, -1}}], 
    CuboidBox[{{1, 1, -1}, {2, 2, -2}}]}, 
   {RGBColor[1, 0, 0], Opacity[1], CuboidBox[{{1, 1, 0}, {2, 2, 1}}]}},
  Boxed->False,
  ImageSize->{511.99321335678485`, 504.},
  ViewCenter->{{0.5, 0.5, 0.5}, {0.44782785778588874`, 0.4403746946124445}},
  ViewPoint->{1.1048561952706928`, -3.108401636031406, 0.753081706648917},
  ViewVertical->{0.07417121028142727, -0.3952333184959444, 
   0.9155813756931013}]], "Output",
 CellChangeTimes->{{3.6225053111264334`*^9, 3.622505324818171*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\:30dd\:30ea\:30b4\:30f3\:306e\:96c6\:5408\:4f53\:306e\:30a4\:30e1",
   "\:30fc", "\:30b8\:3067\:3059", "\:3002", 
  "\:771f\:3093\:4e2d\:306e\:8d64\:3044\:30dd\:30ea\:30b4\:30f3\:306f\:30b3\
\:30a2\:3067\:3059", "\:3002", "\[IndentingNewLine]", 
  RowBox[{
  "3", "\:5e74F\:7d4433\:756a", "\:3000", 
   "\:5b89\:85e4\:7950\:8f1d"}]}]], "Input",
 CellChangeTimes->{{3.622505346040415*^9, 3.6225054615235066`*^9}}]
},
WindowSize->{1264, 888},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
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, 5748, 170, 492, "Input"],
Cell[7236, 207, 1193, 19, 519, "Output"]
}, Open  ]],
Cell[8444, 229, 437, 8, 52, "Input"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature TwDuq0n#MR6xLAgqh7@lP6an *)