(* 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[     10398,        278]
NotebookOptionsPosition[     10859,        271]
NotebookOutlinePosition[     11212,        287]
CellTagsIndexPosition[     11169,        284]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"dice", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"White", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "5", ",", "5"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", "Black", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.0001"}], ",", "2.5", ",", "2.5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.1", ",", "2.5", ",", "2.5"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.0001"}], ",", "1.2", ",", "1.2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5.0001", ",", "1.2", ",", "1.2"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.0001"}], ",", "3.8", ",", "1.2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.1", ",", "3.8", ",", "1.2"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.0001"}], ",", "1.2", ",", "3.8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.1", ",", "1.2", ",", "3.8"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.0001"}], ",", "3.8", ",", "3.8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5.0001", ",", "3.8", ",", "3.8"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.2", ",", 
            RowBox[{"-", "0.0001"}], ",", "1.2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1.2", ",", "5.0001", ",", "1.2"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3.8", ",", 
            RowBox[{"-", "0.0001"}], ",", "3.8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3.8", ",", "5.0001", ",", "3.8"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2.5", ",", 
            RowBox[{"-", "0.0001"}], ",", "2.5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2.5", ",", "0.1", ",", "2.5"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.2", ",", "4.9", ",", "3.8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1.2", ",", "5.0001", ",", "3.8"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3.8", ",", "4.9", ",", "1.2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3.8", ",", "5.0001", ",", "1.2"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.2", ",", "1.4", ",", 
            RowBox[{"-", "0.0001"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1.2", ",", "1.4", ",", "0.1"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2.5", ",", "1.4", ",", 
            RowBox[{"-", "0.0001"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2.5", ",", "1.4", ",", "0.1"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3.8", ",", "1.4", ",", 
            RowBox[{"-", "0.0001"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3.8", ",", "1.4", ",", "0.1"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.2", ",", "3.6", ",", 
            RowBox[{"-", "0.0001"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1.2", ",", "3.6", ",", "0.1"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2.5", ",", "3.6", ",", 
            RowBox[{"-", "0.0001"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2.5", ",", "3.6", ",", "0.1"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3.8", ",", "3.6", ",", 
            RowBox[{"-", "0.0001"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3.8", ",", "3.6", ",", "0.1"}], "}"}]}], "}"}], ",", 
        "0.45"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2.5", ",", "2.5", ",", "4.9"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2.5", ",", "2.5", ",", "5.0001"}], "}"}]}], "}"}], ",", 
        "0.9"}], "]"}], ","}], "\[IndentingNewLine]", "}"}], ",", 
    RowBox[{"Boxed", "\[Rule]", "False"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{
  3.622499668805492*^9, {3.62249973154994*^9, 3.6224997884945493`*^9}, {
   3.622499882275236*^9, 3.622499918753236*^9}, {3.62250019518777*^9, 
   3.622500236018852*^9}, {3.6225002886771173`*^9, 3.6225003414613953`*^9}, {
   3.6225004121844673`*^9, 3.62250042591684*^9}, {3.622500492651513*^9, 
   3.622500512443492*^9}, {3.6225005776770144`*^9, 3.622500794481883*^9}, {
   3.6225008827316484`*^9, 3.6225013667635155`*^9}, {3.6225014185847225`*^9, 
   3.6225016954150496`*^9}, {3.622501740077277*^9, 3.622501788421057*^9}, {
   3.622501826968163*^9, 3.6225018399783964`*^9}, {3.6225033485128956`*^9, 
   3.6225036629932957`*^9}, {3.6225036941776953`*^9, 3.622504032120496*^9}, {
   3.622504065785679*^9, 3.6225041022121463`*^9}, {3.6225041459239063`*^9, 
   3.62250428033523*^9}, {3.6225043589131417`*^9, 3.622504362969142*^9}, 
   3.622504460203942*^9}],

Cell[BoxData[
 Graphics3DBox[{
   {GrayLevel[1], CuboidBox[{0, 0, 0}, {5, 5, 5}]}, 
   {GrayLevel[0], CylinderBox[{{-0.0001, 2.5, 2.5}, {0.1, 2.5, 2.5}}, 0.45], 
    CylinderBox[{{-0.0001, 1.2, 1.2}, {5.0001, 1.2, 1.2}}, 0.45], 
    CylinderBox[{{-0.0001, 3.8, 1.2}, {0.1, 3.8, 1.2}}, 0.45], 
    CylinderBox[{{-0.0001, 1.2, 3.8}, {0.1, 1.2, 3.8}}, 0.45], 
    CylinderBox[{{-0.0001, 3.8, 3.8}, {5.0001, 3.8, 3.8}}, 0.45], 
    CylinderBox[{{1.2, -0.0001, 1.2}, {1.2, 5.0001, 1.2}}, 0.45], 
    CylinderBox[{{3.8, -0.0001, 3.8}, {3.8, 5.0001, 3.8}}, 0.45], 
    CylinderBox[{{2.5, -0.0001, 2.5}, {2.5, 0.1, 2.5}}, 0.45], 
    CylinderBox[{{1.2, 4.9, 3.8}, {1.2, 5.0001, 3.8}}, 0.45], 
    CylinderBox[{{3.8, 4.9, 1.2}, {3.8, 5.0001, 1.2}}, 0.45], 
    CylinderBox[{{1.2, 1.4, -0.0001}, {1.2, 1.4, 0.1}}, 0.45], 
    CylinderBox[{{2.5, 1.4, -0.0001}, {2.5, 1.4, 0.1}}, 0.45], 
    CylinderBox[{{3.8, 1.4, -0.0001}, {3.8, 1.4, 0.1}}, 0.45], 
    CylinderBox[{{1.2, 3.6, -0.0001}, {1.2, 3.6, 0.1}}, 0.45], 
    CylinderBox[{{2.5, 3.6, -0.0001}, {2.5, 3.6, 0.1}}, 0.45], 
    CylinderBox[{{3.8, 3.6, -0.0001}, {3.8, 3.6, 0.1}}, 0.45]}, 
   {RGBColor[1, 0, 0], 
    CylinderBox[{{2.5, 2.5, 4.9}, {2.5, 2.5, 5.0001}}, 0.9]}},
  Boxed->False]], "Output",
 CellChangeTimes->{3.622504560621142*^9}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.622504885381942*^9}],

Cell[BoxData[
 RowBox[{"\:ff13B", "\:3000", "\:5c71\:672c"}]], "Input",
 CellChangeTimes->{{3.622504598217142*^9, 3.622504666311142*^9}}],

Cell[BoxData[{"\:5927\:597d\:304d\:306a\:30b5\:30a4\:30b3\:30ed\:3092\:4f5c\
\:308a\:307e\:3057\:305f", "\[IndentingNewLine]", 
 RowBox[{"\:30b5\:30a4\:30b3\:30ed\:3071\:3089\:30c0\:30a4\:30b9", 
  "\:ff01"}]}], "Input",
 CellChangeTimes->{{3.622504668635542*^9, 3.6225046956703415`*^9}, {
  3.622504726480342*^9, 3.6225048066331415`*^9}, {3.622505020743142*^9, 
  3.6225050649537916`*^9}}]
},
WindowSize->{707, 760},
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, 7443, 194, 432, "Input"],
Cell[8931, 231, 1289, 22, 406, "Output"]
}, Open  ]],
Cell[10235, 256, 87, 1, 52, "Input"],
Cell[10325, 259, 137, 2, 31, "Input"],
Cell[10465, 263, 390, 6, 52, "Input"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature oxpz7#MJjPW2CDwfDR@i0f1p *)