(* 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[     25901,        803]
NotebookOptionsPosition[     24901,        759]
NotebookOutlinePosition[     25257,        775]
CellTagsIndexPosition[     25214,        772]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6206896216211805`*^9, 3.6206896216371818`*^9}, 
   3.6231052940740576`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"doutai", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "Red", "]"}], ",", "Black", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10", ",", "4", ",", "4"}], "}"}]}], "]"}]}], "}"}], "]"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.6206894470967293`*^9, 3.6206894491199317`*^9}, {
   3.6225043278126063`*^9, 3.6225043516497717`*^9}, {3.6231045166987057`*^9, 
   3.6231045477801332`*^9}, 3.623104583841552*^9, 3.623105192054857*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"taiya1", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.5", ",", "3", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1.5", ",", "4.1", ",", "0"}], "}"}]}], "}"}], ",", "1"}], 
       "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231051950791593`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"taiya2", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.5", ",", "1", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1.5", ",", 
            RowBox[{"-", "0.1"}], ",", "0"}], "}"}]}], "}"}], ",", "1"}], 
       "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6212913563806973`*^9, 3.6212913569422975`*^9}, {
   3.6231045372489223`*^9, 3.623104550981413*^9}, 3.6231045974289846`*^9, 
   3.6231051981354647`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"taiya3", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"7", ",", "3", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"7", ",", "4.1", ",", "0"}], "}"}]}], "}"}], ",", "1"}], 
       "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105201047756*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"taiya4", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"7", ",", "1", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"7", ",", 
            RowBox[{"-", "0.1"}], ",", "0"}], "}"}]}], "}"}], ",", "1"}], 
       "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105203911042*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mado1", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Gray", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.1", ",", "3.5", ",", "1.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "4.1", ",", "3.8"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105208439495*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mado2", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Gray", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2.1", ",", "3.5", ",", "1.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4.1", ",", "4.1", ",", "3.8"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105213303982*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mado3", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Gray", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4.2", ",", "3.5", ",", "1.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6.2", ",", "4.1", ",", "3.8"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105216008252*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mado4", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Gray", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"6.3", ",", "3.5", ",", "1.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"8.3", ",", "4.1", ",", "3.8"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052182634773`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mado5", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Gray", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"8.4", ",", "3.5", ",", "1.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"9.8", ",", "4.1", ",", "3.8"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052203756886`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mado6", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Gray", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.1", ",", "0.5", ",", "1.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{"-", "0.1"}], ",", "3.8"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105223752026*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mado7", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Gray", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2.1", ",", "0.5", ",", "1.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4.1", ",", 
          RowBox[{"-", "0.1"}], ",", "3.8"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105225960247*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mado8", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Gray", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4.2", ",", "0.5", ",", "1.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6.2", ",", 
          RowBox[{"-", "0.1"}], ",", "3.8"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052286165123`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mado9", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Gray", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"6.3", ",", "0.5", ",", "1.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"8.3", ",", 
          RowBox[{"-", "0.1"}], ",", "3.8"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105231448796*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mado10", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Gray", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"8.4", ",", "0.5", ",", "0.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"9.8", ",", 
          RowBox[{"-", "0.1"}], ",", "3.8"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052341360645`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mado11", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Gray", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"9.9", ",", "0.1", ",", "1.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10.01", ",", "3.9", ",", "3.8"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052361042614`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mado12", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Gray", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.01"}], ",", "0.1", ",", "1.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.01", ",", "3.9", ",", "3.8"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052387765284`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"light1", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "White", "]"}], ",", "White", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"9.9", ",", "0.1", ",", "0.7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10.01", ",", "1.5", ",", "1.1"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052410487556`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"light2", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "White", "]"}], ",", "White", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"9.9", ",", "2.5", ",", "0.7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10.01", ",", "3.9", ",", "1.1"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105243080959*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"light3", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"9.9", ",", "2.7", ",", "0.75"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10.01", ",", "3.7", ",", "1.05"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105245625213*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"light4", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"9.9", ",", "0.2", ",", "0.75"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10.01", ",", "1.4", ",", "1.05"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052477844296`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sen1", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"9.9", ",", "1.5", ",", "0.75"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10.01", ",", "2.5", ",", "0.8"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052500246534`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sen2", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"9.9", ",", "1.5", ",", "0.7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10.01", ",", "2.5", ",", "0.65"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105252280879*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sen3", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"9.9", ",", "1", ",", "0.6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10.01", ",", "3", ",", "0.55"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052580734577`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sen4", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"9.9", ",", "1", ",", "0.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10.01", ",", "3", ",", "0.45"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052603296833`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nampure", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "White", "]"}], ",", "White", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"9.99", ",", "0.9", ",", "0.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10.1", ",", "3.1", ",", 
          RowBox[{"-", "0.4"}]}], "}"}]}], "]"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{3.6231052632579765`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nampure2", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "White", "]"}], ",", "White", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.1"}], ",", "0.9", ",", "0.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.01", ",", "3.1", ",", 
          RowBox[{"-", "0.4"}]}], "}"}]}], "]"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{3.623105266985349*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sen5", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"9.9", ",", "1.5", ",", "0.9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10.01", ",", "2.5", ",", "0.85"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105269561607*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sen6", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "Yellow", "]"}], ",", "Black", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.1", ",", "3.9", ",", "0.95"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"8", ",", "4.001", ",", "1.45"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105271961847*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sen7", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "Yellow", "]"}], ",", "Black", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.1", ",", 
          RowBox[{"-", "0.001"}], ",", "0.95"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"8.35", ",", "0.1", ",", "1.45"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052742980804`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mahura", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "Black", "]"}], ",", "Gray", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.7"}], ",", "3.5", ",", "0.5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.1", ",", "3.5", ",", "0.3"}], "}"}]}], "}"}], ",", 
        "0.2"}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105276922343*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"taiya5", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "White", "]"}], ",", "White", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.5", ",", "3", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1.5", ",", "4.11", ",", "0"}], "}"}]}], "}"}], ",", 
        "0.6"}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105279450596*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"taiya6", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "White", "]"}], ",", "White", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.5", ",", "1", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1.5", ",", 
            RowBox[{"-", "0.11"}], ",", "0"}], "}"}]}], "}"}], ",", "0.6"}], 
       "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105281433794*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"taiya7", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "White", "]"}], ",", "White", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"7", ",", "3", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"7", ",", "4.11", ",", "0"}], "}"}]}], "}"}], ",", "0.6"}],
        "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052838180323`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"taiya8", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "White", "]"}], ",", "White", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"7", ",", "1", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"7", ",", 
            RowBox[{"-", "0.11"}], ",", "0"}], "}"}]}], "}"}], ",", "0.6"}], 
       "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052863782883`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mokusi", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "Black", "]"}], ",", "Black", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"9.5", ",", "0", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"10.5", ",", "0", ",", "3.8"}], "}"}]}], "}"}], ",", 
        "0.05"}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.6231052979464445`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mokusi2", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "Black", "]"}], ",", "Black", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"10.5", ",", "0", ",", "3.8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"10.5", ",", "0", ",", "3.5"}], "}"}]}], "}"}], ",", 
        "0.05"}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105300250675*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mokusi3", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "White", "]"}], ",", "White", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"10.4", ",", 
          RowBox[{"-", "0.35"}], ",", "3.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10.6", ",", "0.35", ",", "2.7"}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.623105303018952*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Show", "[", 
   RowBox[{
   "doutai", ",", "taiya1", ",", "taiya2", ",", "taiya3", ",", "taiya4", ",", 
    "taiya5", ",", "taiya6", ",", "taiya7", ",", "taiya8", ",", "mado1", ",", 
    "mado2", ",", "mado3", ",", "mado4", ",", "mado5", ",", "mado6", ",", 
    "mado7", ",", "mado8", ",", "mado9", ",", "mado10", ",", "mado11", ",", 
    "mado12", ",", "light1", ",", "light2", ",", "light3", ",", "light4", ",",
     "sen1", ",", "sen2", ",", "sen3", ",", "sen4", ",", "sen5", ",", "sen6", 
    ",", "sen7", ",", "nampure", ",", "nampure2", ",", "mahura", ",", 
    "mokusi", ",", "mokusi2", ",", "mokusi3", ",", 
    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
    RowBox[{"Boxed", "\[Rule]", " ", "False"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.623105391022752*^9, 3.623105429455594*^9}, 
   3.6231055626209097`*^9}],

Cell[BoxData[
 Graphics3DBox[{
   {GrayLevel[0], Glow[
     RGBColor[1, 0, 0]], CuboidBox[{0, 0, 0}, {10, 4, 4}]}, 
   {GrayLevel[0], CylinderBox[{{1.5, 3, 0}, {1.5, 4.1, 0}}, 1]}, 
   {GrayLevel[0], CylinderBox[{{1.5, 1, 0}, {1.5, -0.1, 0}}, 1]}, 
   {GrayLevel[0], CylinderBox[{{7, 3, 0}, {7, 4.1, 0}}, 1]}, 
   {GrayLevel[0], CylinderBox[{{7, 1, 0}, {7, -0.1, 0}}, 1]}, 
   {GrayLevel[1], Glow[
     GrayLevel[1]], CylinderBox[{{1.5, 3, 0}, {1.5, 4.11, 0}}, 0.6]}, 
   {GrayLevel[1], Glow[
     GrayLevel[1]], CylinderBox[{{1.5, 1, 0}, {1.5, -0.11, 0}}, 0.6]}, 
   {GrayLevel[1], Glow[
     GrayLevel[1]], CylinderBox[{{7, 3, 0}, {7, 4.11, 0}}, 0.6]}, 
   {GrayLevel[1], Glow[
     GrayLevel[1]], CylinderBox[{{7, 1, 0}, {7, -0.11, 0}}, 0.6]}, 
   {GrayLevel[0.5], CuboidBox[{0.1, 3.5, 1.5}, {2, 4.1, 3.8}]}, 
   {GrayLevel[0.5], CuboidBox[{2.1, 3.5, 1.5}, {4.1, 4.1, 3.8}]}, 
   {GrayLevel[0.5], CuboidBox[{4.2, 3.5, 1.5}, {6.2, 4.1, 3.8}]}, 
   {GrayLevel[0.5], CuboidBox[{6.3, 3.5, 1.5}, {8.3, 4.1, 3.8}]}, 
   {GrayLevel[0.5], CuboidBox[{8.4, 3.5, 1.5}, {9.8, 4.1, 3.8}]}, 
   {GrayLevel[0.5], CuboidBox[{0.1, 0.5, 1.5}, {2, -0.1, 3.8}]}, 
   {GrayLevel[0.5], CuboidBox[{2.1, 0.5, 1.5}, {4.1, -0.1, 3.8}]}, 
   {GrayLevel[0.5], CuboidBox[{4.2, 0.5, 1.5}, {6.2, -0.1, 3.8}]}, 
   {GrayLevel[0.5], CuboidBox[{6.3, 0.5, 1.5}, {8.3, -0.1, 3.8}]}, 
   {GrayLevel[0.5], CuboidBox[{8.4, 0.5, 0.2}, {9.8, -0.1, 3.8}]}, 
   {GrayLevel[0.5], CuboidBox[{9.9, 0.1, 1.5}, {10.01, 3.9, 3.8}]}, 
   {GrayLevel[0.5], CuboidBox[{-0.01, 0.1, 1.5}, {0.01, 3.9, 3.8}]}, 
   {GrayLevel[1], Glow[
     GrayLevel[1]], CuboidBox[{9.9, 0.1, 0.7}, {10.01, 1.5, 1.1}]}, 
   {GrayLevel[1], Glow[
     GrayLevel[1]], CuboidBox[{9.9, 2.5, 0.7}, {10.01, 3.9, 1.1}]}, 
   {GrayLevel[0], CuboidBox[{9.9, 2.7, 0.75}, {10.01, 3.7, 1.05}]}, 
   {GrayLevel[0], CuboidBox[{9.9, 0.2, 0.75}, {10.01, 1.4, 1.05}]}, 
   {GrayLevel[0], CuboidBox[{9.9, 1.5, 0.75}, {10.01, 2.5, 0.8}]}, 
   {GrayLevel[0], CuboidBox[{9.9, 1.5, 0.7}, {10.01, 2.5, 0.65}]}, 
   {GrayLevel[0], CuboidBox[{9.9, 1, 0.6}, {10.01, 3, 0.55}]}, 
   {GrayLevel[0], CuboidBox[{9.9, 1, 0.5}, {10.01, 3, 0.45}]}, 
   {GrayLevel[0], CuboidBox[{9.9, 1.5, 0.9}, {10.01, 2.5, 0.85}]}, 
   {GrayLevel[0], Glow[
     RGBColor[1, 1, 0]], CuboidBox[{0.1, 3.9, 0.95}, {8, 4.001, 1.45}]}, 
   {GrayLevel[0], Glow[
     RGBColor[1, 1, 0]], CuboidBox[{0.1, -0.001, 0.95}, {8.35, 0.1, 1.45}]}, 
   {GrayLevel[1], Glow[
     GrayLevel[1]], CuboidBox[{9.99, 0.9, 0.2}, {10.1, 3.1, -0.4}]}, 
   {GrayLevel[1], Glow[
     GrayLevel[1]], CuboidBox[{-0.1, 0.9, 0.2}, {0.01, 3.1, -0.4}]}, 
   {GrayLevel[0.5], Glow[], 
    CylinderBox[{{-0.7, 3.5, 0.5}, {0.1, 3.5, 0.3}}, 0.2]}, 
   {GrayLevel[0], Glow[], CylinderBox[{{9.5, 0, 3}, {10.5, 0, 3.8}}, 0.05]}, 
   {GrayLevel[0], Glow[], 
    CylinderBox[{{10.5, 0, 3.8}, {10.5, 0, 3.5}}, 0.05]}, 
   {GrayLevel[1], Glow[
     GrayLevel[1]], CuboidBox[{10.4, -0.35, 3.5}, {10.6, 0.35, 2.7}]}},
  AutomaticImageSize->True,
  Axes->False,
  Boxed->False,
  ImageSize->{422.3195229127575, 229.243087817965},
  ViewPoint->{2.2814546633154174`, -2.4915912433281, 0.1921918193031868},
  ViewVertical->{0.46554710416502487`, -0.7952801543027319, 
   1.8793070867561246`}]], "Output",
 CellChangeTimes->{
  3.623105328680518*^9, {3.6231054130239515`*^9, 3.6231054250231514`*^9}, 
   3.6231055643080783`*^9}]
}, Open  ]],

Cell[BoxData[{"\:ff13\:5e74B\:7d44\:671b\:6708\:6dbc\:4ecb", "\
\[IndentingNewLine]", 
 RowBox[{"\:4e8c\:968e\:5efa\:3066\:306b\:3059\:308b\:306e\:306f\:6642\:9593\
\:304c\:306a\:304f\:7121\:7406\:3060\:3063\:305f", "\:3002", 
  "BKB\:30d2\:30a7\:30a7\:30a7\:30a7\:30a7\:30a7\:30a2", "\:ff01", "\:ff01", 
  "\:ff01"}]}], "Input",
 CellChangeTimes->{{3.6231057749159756`*^9, 3.623105806256778*^9}, {
  3.623105848205536*^9, 3.623105903445136*^9}}]
},
WindowSize->{1212, 760},
WindowMargins->{{-22, Automatic}, {Automatic, 1}},
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[1463, 33, 124, 2, 31, "Input"],
Cell[1590, 37, 641, 16, 31, "Input"],
Cell[2234, 55, 495, 15, 31, "Input"],
Cell[2732, 72, 653, 18, 31, "Input"],
Cell[3388, 92, 489, 15, 31, "Input"],
Cell[3880, 109, 517, 16, 31, "Input"],
Cell[4400, 127, 423, 13, 31, "Input"],
Cell[4826, 142, 425, 13, 31, "Input"],
Cell[5254, 157, 425, 13, 31, "Input"],
Cell[5682, 172, 427, 13, 31, "Input"],
Cell[6112, 187, 427, 13, 31, "Input"],
Cell[6542, 202, 449, 14, 31, "Input"],
Cell[6994, 218, 451, 14, 31, "Input"],
Cell[7448, 234, 453, 14, 31, "Input"],
Cell[7904, 250, 451, 14, 31, "Input"],
Cell[8358, 266, 454, 14, 31, "Input"],
Cell[8815, 282, 430, 13, 31, "Input"],
Cell[9248, 297, 456, 14, 31, "Input"],
Cell[9707, 313, 480, 14, 31, "Input"],
Cell[10190, 329, 478, 14, 31, "Input"],
Cell[10671, 345, 431, 13, 31, "Input"],
Cell[11105, 360, 433, 13, 31, "Input"],
Cell[11541, 375, 430, 13, 31, "Input"],
Cell[11974, 390, 428, 13, 31, "Input"],
Cell[12405, 405, 426, 13, 31, "Input"],
Cell[12834, 420, 426, 13, 31, "Input"],
Cell[13263, 435, 505, 15, 31, "Input"],
Cell[13771, 452, 529, 16, 31, "Input"],
Cell[14303, 470, 428, 13, 31, "Input"],
Cell[14734, 485, 477, 14, 31, "Input"],
Cell[15214, 501, 508, 15, 31, "Input"],
Cell[15725, 518, 578, 17, 31, "Input"],
Cell[16306, 537, 546, 16, 31, "Input"],
Cell[16855, 555, 573, 17, 31, "Input"],
Cell[17431, 574, 543, 16, 31, "Input"],
Cell[17977, 592, 571, 17, 31, "Input"],
Cell[18551, 611, 549, 16, 31, "Input"],
Cell[19103, 629, 551, 16, 31, "Input"],
Cell[19657, 647, 507, 15, 31, "Input"],
Cell[CellGroupData[{
Cell[20189, 666, 887, 16, 92, "Input"],
Cell[21079, 684, 3357, 63, 244, "Output"]
}, Open  ]],
Cell[24451, 750, 446, 7, 52, "Input"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature ixTS6jqOTTvXfBwyfW2QLF#z *)