(* 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[     10678,        320]
NotebookOptionsPosition[     10811,        305]
NotebookOutlinePosition[     11193,        322]
CellTagsIndexPosition[     11150,        319]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:30d6\:30e9\:30f3\:30b3", "Section",
 CellChangeTimes->{{3.5910512089653964`*^9, 3.5910512526213694`*^9}},
 Background->RGBColor[0.94, 0.88, 0.94]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"s1", "=", 
   RowBox[{"Line", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "8", ",", "2"}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"s2", "=", 
   RowBox[{"Line", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "8", ",", "2"}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"s3", "=", 
   RowBox[{"Line", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"14", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"14", ",", "8", ",", "2"}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"s4", "=", 
   RowBox[{"Line", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"14", ",", "0", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"14", ",", "8", ",", "2"}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"s5", "=", 
   RowBox[{"Line", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "8", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"14", ",", "8", ",", "2"}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"s6", "=", 
   RowBox[{"Line", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "8", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2.5", ",", "2"}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"s7", "=", 
   RowBox[{"Line", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "2.5", ",", "2"}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"s8", "=", 
   RowBox[{"Line", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"10", ",", "8", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "2.5", ",", "2"}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"s9", "=", 
   RowBox[{"Line", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"13", ",", "8", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"13", ",", "2.5", ",", "2"}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"s10", "=", 
   RowBox[{"Line", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"5.5", ",", "8", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5.5", ",", "2.5", ",", "2"}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"s11", "=", 
    RowBox[{"Line", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"8.5", ",", "8", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8.5", ",", "2.5", ",", "2"}], "}"}]}], "}"}], "]"}]}], ";"}],
   "\[IndentingNewLine]"}], "\n", 
 RowBox[{"Graphics3D", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.025", "]"}], ",", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"0", ",", "0", ",", "0.5"}], "]"}], ",", "s1", ",", "s2", ",",
        "s3", ",", "s4"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.0228", "]"}], ",", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"0", ",", "0", ",", "0.5"}], "]"}], ",", "s5"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.008", "]"}], ",", "s6", ",", "s7", ",", 
       "s8", ",", "s9", ",", "s10", ",", "s11"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"Brown", ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2.2", ",", "1.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "2.5", ",", "2.5"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", "Brown", ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"10", ",", "2.2", ",", "1.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"13", ",", "2.5", ",", "2.5"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", "Brown", ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"5.5", ",", "2.2", ",", "1.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"8.5", ",", "2.5", ",", "2.5"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "2.5", ",", "1.2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"8", ",", "5.3", ",", "2.8"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "2.5", ",", 
           RowBox[{"-", "0.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6.7", ",", "3.2", ",", "1.3"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"7.3", ",", "2.5", ",", 
           RowBox[{"-", "0.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"8", ",", "3.2", ",", "1.3"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "2.5", ",", 
           RowBox[{"-", "0.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6.7", ",", "0.7", ",", "0.2"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"7.3", ",", "2.5", ",", 
           RowBox[{"-", "0.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"8", ",", "0.7", ",", "0.2"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", "Red", ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{"{", 
         RowBox[{"7", ",", "6.2", ",", "2"}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "Gray", ",", 
       RowBox[{"Polygon", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "0", ",", 
            RowBox[{"-", "1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"15", ",", "0", ",", 
            RowBox[{"-", "1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"15", ",", "0", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "0", ",", "5"}], "}"}]}], "}"}], "]"}]}],
       "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}], ",", 
   RowBox[{"Boxed", "\[Rule]", "False"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.5898450346777115`*^9, 3.589845034678688*^9}, {
   3.5910496845538054`*^9, 3.5910496988575745`*^9}, {3.591049803184119*^9, 
   3.5910498762913237`*^9}, 3.591050085747676*^9, {3.591052194888997*^9, 
   3.591052200992747*^9}}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0, 0, 0.5], Thickness[0.025], Line3DBox[{{0, 0, 0}, {0, 8, 2}}], 
    Line3DBox[{{0, 0, 4}, {0, 8, 2}}], Line3DBox[{{14, 0, 0}, {14, 8, 2}}], 
    Line3DBox[{{14, 0, 4}, {14, 8, 2}}]}, 
   {RGBColor[0, 0, 0.5], Thickness[0.0228], 
    Line3DBox[{{0, 8, 2}, {14, 8, 2}}]}, 
   {Thickness[0.008], Line3DBox[{{1, 8, 2}, {1, 2.5, 2}}], 
    Line3DBox[{{4, 8, 2}, {4, 2.5, 2}}], 
    Line3DBox[{{10, 8, 2}, {10, 2.5, 2}}], 
    Line3DBox[{{13, 8, 2}, {13, 2.5, 2}}], 
    Line3DBox[{{5.5, 8, 2}, {5.5, 2.5, 2}}], 
    Line3DBox[{{8.5, 8, 2}, {8.5, 2.5, 2}}]}, {
    {RGBColor[0.6, 0.4, 0.2], CuboidBox[{1, 2.2, 1.5}, {4, 2.5, 2.5}]}, 
    {RGBColor[0.6, 0.4, 0.2], CuboidBox[{10, 2.2, 1.5}, {13, 2.5, 2.5}]}, 
    {RGBColor[0.6, 0.4, 0.2], CuboidBox[{5.5, 2.2, 1.5}, {8.5, 2.5, 2.5}]}, 
    {RGBColor[1, 0, 0], CuboidBox[{6, 2.5, 1.2}, {8, 5.3, 2.8}]}, 
    {RGBColor[1, 0, 0], CuboidBox[{6, 2.5, -0.5}, {6.7, 3.2, 1.3}]}, 
    {RGBColor[1, 0, 0], CuboidBox[{7.3, 2.5, -0.5}, {8, 3.2, 1.3}]}, 
    {RGBColor[1, 0, 0], CuboidBox[{6, 2.5, -0.5}, {6.7, 0.7, 0.2}]}, 
    {RGBColor[1, 0, 0], CuboidBox[{7.3, 2.5, -0.5}, {8, 0.7, 0.2}]}, 
    {RGBColor[1, 0, 0], SphereBox[{7, 6.2, 2}]}, 
    {GrayLevel[0.5], 
     Polygon3DBox[{{-1, 0, -1}, {15, 0, -1}, {15, 0, 5}, {-1, 0, 5}}]}}},
  AutomaticImageSize->True,
  Boxed->False,
  ImageSize->{365.4104416172113, 228.38946452540821`},
  ViewPoint->{-1.1440332978672052`, 0.8193959830228529, -3.077300446231583},
  ViewVertical->{-0.11365254334413528`, 
   1.851051331869352, -0.9632734600543323}]], "Output",
 CellChangeTimes->{3.589845037268632*^9, 3.591050085749628*^9},
 Background->GrayLevel[1]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:ff13\:5e74K\:7d44\:672c\:5408\:5f18\:6a39", "Subsection",
 CellChangeTimes->{{3.5910513693260465`*^9, 3.591051583360632*^9}}],

Cell["\:30d6\:30e9\:30f3\:30b3\:3068\:305d\:308c\:306b\:5ea7\:3063\:3066\:3044\
\:308b\:4eba\:3092\:4f5c\:3063\:3066\:307f\:307e\:3057\:305f\:3002", "Text",
 CellChangeTimes->{{3.5910516012148333`*^9, 3.5910516604495296`*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1008, 632},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
CellLabelAutoDelete->True,
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (2011\:5e7410\:670815\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1257, 32, 154, 2, 75, "Section"],
Cell[CellGroupData[{
Cell[1436, 38, 7263, 220, 592, "Input"],
Cell[8702, 260, 1682, 31, 243, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10421, 296, 133, 1, 36, "Subsection"],
Cell[10557, 299, 226, 2, 29, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature nvDiqYVdrkhvYDw3Z3EGU1iM *)