(* 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[     28213,        747]
NotebookOptionsPosition[     28279,        732]
NotebookOutlinePosition[     29017,        756]
CellTagsIndexPosition[     28974,        753]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{"tutu1", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "0.2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.2", ",", "0.2", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu2", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.8", ",", "0.2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.8", ",", "0.2", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu3", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1.4", ",", "0.2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1.4", ",", "0.2", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu4", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2.0", ",", "0.2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2.0", ",", "0.2", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu5", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2.6", ",", "0.2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2.6", ",", "0.2", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu6", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.2", ",", "0.2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.2", ",", "0.2", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu7", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.8", ",", "0.2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.8", ",", "0.2", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu8", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "0.8", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.2", ",", "0.8", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu9", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "1.4", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.2", ",", "1.4", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu10", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.2", ",", "2", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}], 
      "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu11", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "2.6", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.2", ",", "2.6", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu12", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "3.2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.2", ",", "3.2", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu13", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "3.8", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.2", ",", "3.8", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu14", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "4.4", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.2", ",", "4.4", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu15", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "5", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.2", ",", "5", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}], 
      "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu16", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "5.6", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.2", ",", "5.6", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu17", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.8", ",", "0.8", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.8", ",", "0.8", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu18", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.8", ",", "1.4", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.8", ",", "1.4", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu19", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.8", ",", "2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.8", ",", "2", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}], 
      "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu20", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.8", ",", "2.6", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.8", ",", "2.6", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu21", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.8", ",", "3.2", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.8", ",", "3.2", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu22", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.8", ",", "3.8", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.8", ",", "3.8", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu23", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.8", ",", "4.4", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.8", ",", "4.4", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu24", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.8", ",", "5", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.8", ",", "5", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}], 
      "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu25", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.8", ",", "5.6", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.8", ",", "5.6", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu26", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.8", ",", "5.6", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.8", ",", "5.6", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu27", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1.4", ",", "5.6", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1.4", ",", "5.6", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu28", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2.0", ",", "5.6", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2.0", ",", "5.6", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu29", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2.6", ",", "5.6", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2.6", ",", "5.6", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tutu30", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Pink", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.2", ",", "5.6", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.2", ",", "5.6", ",", "1"}], "}"}]}], "}"}], ",", "0.2"}],
       "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"hako1", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Red", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{"-", "3"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4.0", ",", "5.8", ",", 
         RowBox[{"-", "3.3"}]}], "}"}]}], "]"}]}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"hako2", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Red", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.2"}], ",", 
         RowBox[{"-", "0.2"}], ",", 
         RowBox[{"-", "3.3"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4.2", ",", "6", ",", 
         RowBox[{"-", "3.6"}]}], "}"}]}], "]"}]}], "}"}], "]"}]}]}], "Input",
 CellChangeTimes->{
  3.621293917330959*^9, {3.6212940370461264`*^9, 3.621294094251693*^9}, {
   3.621294134640352*^9, 3.6212941444840145`*^9}, {3.6212941859022803`*^9, 
   3.6212945163596735`*^9}, {3.6212946387284265`*^9, 
   3.6212946781971855`*^9}, {3.621294718118353*^9, 3.621294760145561*^9}, {
   3.62129492583447*^9, 3.621294954897456*^9}, {3.621295015722246*^9, 
   3.6212950173758564`*^9}, {3.62129506782658*^9, 3.6212951412094507`*^9}, {
   3.621295199975027*^9, 3.621295220005555*^9}, {3.6212952633582335`*^9, 
   3.6212952647934427`*^9}, {3.6212952991136627`*^9, 3.621295299846867*^9}, {
   3.6224993929281745`*^9, 3.6224995258747587`*^9}, {3.6224995970369883`*^9, 
   3.62249962747169*^9}, {3.6225029786049643`*^9, 3.622503091392964*^9}, {
   3.6225031421560745`*^9, 3.6225031551043234`*^9}, {3.622503200298393*^9, 
   3.622503201047207*^9}, {3.622503238019918*^9, 3.6225032426844077`*^9}, {
   3.622503289204502*^9, 3.6225034231796484`*^9}, {3.6225034667507277`*^9, 
   3.62250355762131*^9}, {3.6225036662448063`*^9, 3.6225036989270163`*^9}, {
   3.622503743231056*^9, 3.6225037607186565`*^9}, {3.6225038016842566`*^9, 
   3.6225038295458565`*^9}, {3.6225038737094564`*^9, 
   3.6225039896798563`*^9}, {3.6225041131850567`*^9, 3.6225042665526*^9}, {
   3.6225045073914814`*^9, 3.6225047156996164`*^9}, {3.622504921215334*^9, 
   3.6225049299513903`*^9}, {3.622505044237718*^9, 3.6225052142363935`*^9}, {
   3.623709086873844*^9, 3.6237091146030707`*^9}, {3.623709220124694*^9, 
   3.6237092501356936`*^9}, {3.623709363893694*^9, 3.6237094491406937`*^9}, 
   3.623709528464694*^9, {3.62370972780273*^9, 3.623709729578085*^9}, {
   3.6237097643360353`*^9, 3.6237098856799955`*^9}, {3.623709917711198*^9, 
   3.623709960577484*^9}, {3.623710009617388*^9, 3.623710025874013*^9}, {
   3.6237100580822334`*^9, 3.6237100598894143`*^9}, {3.623710094489874*^9, 
   3.6237101294083652`*^9}, {3.6237101918756113`*^9, 3.623710199779402*^9}, 
   3.623715128300417*^9, 3.624314133284356*^9, {3.6243141789273567`*^9, 
   3.6243141807343564`*^9}, {3.6243142471883564`*^9, 
   3.6243142613123565`*^9}, {3.624315282048573*^9, 3.624315289313299*^9}, {
   3.624315327705535*^9, 3.624315331351264*^9}, {3.624315393666724*^9, 
   3.6243154138607626`*^9}, {3.624316632878638*^9, 3.624317095604906*^9}, 
   3.6256307342879033`*^9, 3.6256307876711035`*^9}],

Cell[BoxData[{
 RowBox[{"a", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Red", ",", 
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "0", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"b", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Red", ",", 
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "5.8", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "5.8", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "5.8", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"c", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Red", ",", 
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "5.8", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "0", ",", "2"}], "}"}]}], "}"}], "]"}]}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"d", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Red", ",", 
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "5.8", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "5.8", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "0", ",", "2"}], "}"}]}], "}"}], "]"}]}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"e", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Red", ",", 
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "5.8", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "0", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"f", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Red", ",", 
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "5.8", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "5.8", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"g", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Red", ",", 
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "5.8", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"h", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Red", ",", 
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "5.8", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "5.8", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], 
   "]"}]}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzUsowwEAx/G/zWtaLVnUWvOYlqaYYhvlsZNH5rC05DFjSVGURm0KszQ5
uHCwktqBE7XDIm1IqGHTmuaxiSW2DJuJVtqa/2+HX5/Lr77Fg+OyIQpBEGxy
kJ57cKlIhCS/fbUOyCoveISBsOgNKu45n9Al1P3A9q+NP3jij1L6Sf114UzI
b1bT4XaWVQxbHKo2mDPp74AzxkoZDGYTcjjPtHdDbfxQAZeMpjG4m7Y2Ac29
I1poXayag0p3RJf6Bx4M0K2LLsMpr3AV2pyXJvhNa9yDY9RqG2zqmT6GH7Gz
81Q/PeaCDP3oNdyscd3CdUrCB6/UN0+QOSV9hkUL7CD8eumMQrZ/h6IkFb7m
ZUCZ3smABs1rSl5JPhe6tyw8eKq54ENLUlUBabIVMbxrPWqAIh+LP0BaZh8W
QGbkgmtOhiScLmop9EoFhx7iXSKnxVMWFs6ewuB+vQf+A+d2/u0=
  "]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
  "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", "h", 
   ",", "tutu1", ",", "tutu2", ",", "tutu3", ",", "tutu4", ",", "tutu5", ",", 
   "tutu6", ",", "tutu7", ",", "tutu8", ",", "tutu9", ",", "tutu10", ",", 
   "tutu11", ",", "tutu12", ",", "tutu13", ",", "tutu14", ",", "tutu15", ",", 
   "tutu16", ",", "tutu17", ",", "tutu18", ",", "tutu19", ",", "tutu20", ",", 
   "tutu21", ",", "tutu22", ",", "tutu23", ",", "tutu24", ",", "tutu25", ",", 
   "tutu26", ",", "tutu27", ",", "tutu28", ",", "tutu29", ",", "tutu30", ",", 
   "hako1", ",", "hako2", ",", 
   RowBox[{"Boxed", "\[Rule]", "\[IndentingNewLine]", "False"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.622502798658964*^9, 3.6225028150701637`*^9}, {
   3.62250310861543*^9, 3.622503111345482*^9}, {3.622503373992133*^9, 
   3.622503376410179*^9}, {3.622503582706271*^9, 3.6225035955295534`*^9}, {
   3.6225036284457645`*^9, 3.6225036302241755`*^9}, {3.622503717257056*^9, 
   3.6225037197062564`*^9}, {3.622504005825856*^9, 3.6225040284770565`*^9}, {
   3.622504332948328*^9, 3.6225043484240236`*^9}, 3.622504745605008*^9, {
   3.622505234190584*^9, 3.6225052661734543`*^9}, {3.623709266877694*^9, 
   3.6237092809236937`*^9}, {3.623709316888694*^9, 3.623709330250694*^9}, {
   3.623709462313694*^9, 3.6237094729556937`*^9}, {3.6237099774351697`*^9, 
   3.6237099804624724`*^9}, {3.6237101426826925`*^9, 
   3.6237101464140663`*^9}, {3.6237147925695105`*^9, 
   3.6237147981543465`*^9}, {3.6237149944351006`*^9, 3.623714995542715*^9}, {
   3.623715158408803*^9, 3.6237152178143644`*^9}, {3.6243142744883566`*^9, 
   3.6243142849973564`*^9}, {3.62431435661773*^9, 3.6243143948613777`*^9}, {
   3.6243145544182825`*^9, 3.6243145930640097`*^9}, 3.6243154304470787`*^9, {
   3.6243159035977173`*^9, 3.624315946349992*^9}, 3.62431601424078*^9}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 0, 0], Polygon3DBox[{{0, 0, 1}, {2, 0, 2}, {4, 0, 1}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{0, 5.8, 1}, {2, 5.8, 2}, {4, 5.8, 1}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{0, 0, 1}, {0, 5.8, 1}, {2, 0, 2}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{0, 5.8, 1}, {2, 5.8, 2}, {2, 0, 2}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{0, 5.8, 1}, {0, 0, 1}, {4, 0, 1}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{0, 5.8, 1}, {4, 0, 1}, {4, 5.8, 1}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{2, 0, 2}, {4, 0, 1}, {4, 5.8, 1}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{2, 0, 2}, {2, 5.8, 2}, {4, 5.8, 1}}]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{0.2, 0.2, -3}, {0.2, 0.2, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{0.8, 0.2, -3}, {0.8, 0.2, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{1.4, 0.2, -3}, {1.4, 0.2, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{2., 0.2, -3}, {2., 0.2, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{2.6, 0.2, -3}, {2.6, 0.2, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{3.2, 0.2, -3}, {3.2, 0.2, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{3.8, 0.2, -3}, {3.8, 0.2, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{0.2, 0.8, -3}, {0.2, 0.8, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{0.2, 1.4, -3}, {0.2, 1.4, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{0.2, 2, -3}, {0.2, 2, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{0.2, 2.6, -3}, {0.2, 2.6, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{0.2, 3.2, -3}, {0.2, 3.2, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{0.2, 3.8, -3}, {0.2, 3.8, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{0.2, 4.4, -3}, {0.2, 4.4, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{0.2, 5, -3}, {0.2, 5, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{0.2, 5.6, -3}, {0.2, 5.6, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{3.8, 0.8, -3}, {3.8, 0.8, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{3.8, 1.4, -3}, {3.8, 1.4, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{3.8, 2, -3}, {3.8, 2, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{3.8, 2.6, -3}, {3.8, 2.6, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{3.8, 3.2, -3}, {3.8, 3.2, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{3.8, 3.8, -3}, {3.8, 3.8, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{3.8, 4.4, -3}, {3.8, 4.4, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{3.8, 5, -3}, {3.8, 5, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{3.8, 5.6, -3}, {3.8, 5.6, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{0.8, 5.6, -3}, {0.8, 5.6, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{1.4, 5.6, -3}, {1.4, 5.6, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{2., 5.6, -3}, {2., 5.6, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{2.6, 5.6, -3}, {2.6, 5.6, 1}}, 0.2]}, 
   {RGBColor[1, 0.5, 0.5], CylinderBox[{{3.2, 5.6, -3}, {3.2, 5.6, 1}}, 0.2]}, 
   {RGBColor[1, 0, 0], CuboidBox[{0, 0, -3}, {4., 5.8, -3.3}]}, 
   {RGBColor[1, 0, 0], CuboidBox[{-0.2, -0.2, -3.3}, {4.2, 6, -3.6}]}},
  AutomaticImageSize->True,
  Boxed->False,
  ImageSize->{365.5758412242652, 377.85739925264164`},
  ViewPoint->{1.5788497173495442`, -2.866807696533663, 0.8594458686389852},
  ViewVertical->{0.18457336695262525`, -0.3471037185336226, 
   1.0281305978670283`}]], "Output",
 CellChangeTimes->{
  3.6237151510455084`*^9, {3.623715182947917*^9, 3.6237151945856667`*^9}, 
   3.6237153662346673`*^9, 3.6243142972273564`*^9, {3.624314372145835*^9, 
   3.624314397420889*^9}, {3.6243145567447476`*^9, 3.624314595439485*^9}, 
   3.6243154313492594`*^9, 3.624315907368094*^9, 3.6243159419825554`*^9, 
   3.624316014966853*^9, 3.624316593736724*^9, 3.6243166693672867`*^9, 
   3.6243171049258375`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"3", "\:5e74B\:7d44\:98ef\:7530\:9686\:592a\:90ce"}]], "Input",
 CellChangeTimes->{{3.625630833628703*^9, 3.625630867324703*^9}}]
},
WindowToolbars->"EditBar",
WindowSize->{1264, 763},
WindowMargins->{{0, Automatic}, {Automatic, 2}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
Magnification:>1.25 Inherited,
FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (2012\:5e7412\:670811\
\:65e5)",
StyleDefinitions->Notebook[{}, Visible -> False, FrontEndVersion -> 
  "9.0 for Microsoft Windows (32-bit) (2012\:5e7412\:670811\:65e5)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[1463, 33, 16730, 480, 750, "Input"],
Cell[18196, 515, 4156, 122, 198, "Input"],
Cell[CellGroupData[{
Cell[22377, 641, 1873, 28, 106, "Input"],
Cell[24253, 671, 3855, 54, 490, "Output"]
}, Open  ]],
Cell[28123, 728, 152, 2, 38, "Input"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature Bv0n#zAXL71mvBKsqjbdkIIf *)