(* 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[     21108,        507]
NotebookOptionsPosition[     21707,        505]
NotebookOutlinePosition[     22060,        521]
CellTagsIndexPosition[     22017,        518]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Graphics3D", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", "                        ", 
     RowBox[{"Gray", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0.01"}], "}"}]}], "}"}], ",", "0.1"}],
        "]"}], ",", "\[IndentingNewLine]", "                        ", 
      "Yellow", ",", " ", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", 
            RowBox[{"-", "0.01"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.099", ",", "0.2", ",", "0.005"}], "}"}]}], "}"}], ",", 
        "0.006"}], "]"}], ",", "\[IndentingNewLine]", 
      "                        ", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0.02"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.099", ",", "0.2", ",", "0.005"}], "}"}]}], "}"}], ",", 
        "0.006"}], "]"}], " ", ",", "\[IndentingNewLine]", 
      "                        ", "Yellow", ",", " ", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.099", ",", "0.2", ",", "0.005"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.11", ",", "0.29", ",", "0.005"}], "}"}]}], "}"}], ",", 
        "0.009"}], "]"}], ",", "\[IndentingNewLine]", 
      "                       ", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.11", ",", "0.29", ",", "0.005"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.06", ",", "0.29", ",", "0.005"}], "}"}]}], "}"}], ",", 
        "0.006"}], "]"}], ",", "\[IndentingNewLine]", 
      "                       ", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.06", ",", "0.29", ",", "0.005"}], "}"}], ",", 
          RowBox[{"{", " ", 
           RowBox[{"0.06", ",", "0.29", ",", "0.06"}], "}"}]}], "}"}], ",", 
        "0.006"}], "]"}], " ", ",", "                          ", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.06", ",", "0.29", ",", "0.005"}], "}"}], ",", 
          RowBox[{"{", " ", 
           RowBox[{"0.06", ",", "0.29", ",", 
            RowBox[{"-", "0.05"}]}], "}"}]}], "}"}], ",", "0.006"}], "]"}], 
      " ", ",", "   ", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.06", ",", "0.29", ",", 
            RowBox[{"-", "0.04"}]}], "}"}], ",", 
          RowBox[{"{", " ", 
           RowBox[{"0.06", ",", "0.29", ",", 
            RowBox[{"-", "0.062"}]}], "}"}]}], "}"}], ",", "0.008"}], "]"}], 
      " ", ",", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.06", ",", "0.29", ",", "0.05"}], "}"}], ",", 
          RowBox[{"{", " ", 
           RowBox[{"0.06", ",", "0.29", ",", "0.072"}], "}"}]}], "}"}], ",", 
        "0.008"}], "]"}], " ", ",", "\[IndentingNewLine]", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.06", ",", "0.29", ",", "0.07"}], "}"}], ",", 
          RowBox[{"{", " ", 
           RowBox[{"0.016", ",", "0.3", ",", "0.07"}], "}"}]}], "}"}], ",", 
        "0.008"}], "]"}], ",", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.06", ",", "0.29", ",", 
            RowBox[{"-", "0.06"}]}], "}"}], ",", 
          RowBox[{"{", " ", 
           RowBox[{"0.016", ",", "0.3", ",", 
            RowBox[{"-", "0.06"}]}], "}"}]}], "}"}], ",", "0.008"}], "]"}], 
      " ", ",", "\[IndentingNewLine]", "Yellow", ",", " ", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.11", ",", "0.22", ",", "0.005"}], "}"}], ",", "   ", 
          RowBox[{"{", 
           RowBox[{"0.29", ",", "0.01", ",", "0.005"}], "}"}]}], "}"}], ",", 
        "0.009"}], "]"}], " ", ",", "                 ", 
      "\[IndentingNewLine]", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.11", ",", "0.22", ",", "0.005"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.33", ",", "0.22", ",", "0.005"}], "}"}]}], "}"}], ",", 
        "0.009"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", " ", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.29", ",", "0.01", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.29", ",", "0.01", ",", "0.001"}], "}"}]}], "}"}], ",", 
        "0.05"}], "]"}], ",", " ", "\[IndentingNewLine]", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.29", ",", "0.01", ",", "0.01"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.29", ",", "0.01", ",", "0.011"}], "}"}]}], "}"}], ",", 
        "0.05"}], "]"}], ",", " ", "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.33", ",", "0.22", ",", "0.005"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.29", ",", "0.01", ",", "0.005"}], "}"}]}], "}"}], ",", 
        "0.009"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.33", ",", "0.22", ",", "0.005"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.34", ",", "0.3", ",", "0.005"}], "}"}]}], "}"}], ",", 
        "0.009"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.33", ",", "0.2", ",", "0.005"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.38", ",", "0.15", ",", "0.005"}], "}"}]}], "}"}], ",", 
        "0.009"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.38", ",", "0.15", ",", "0.005"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.5", ",", "0", ",", 
            RowBox[{"-", "0.009"}]}], "}"}]}], "}"}], ",", "0.006"}], "]"}], 
      ",", "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.38", ",", "0.15", ",", "0.005"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.5", ",", "0", ",", "0.015"}], "}"}]}], "}"}], ",", 
        "0.006"}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.5", ",", "0", ",", "0.015"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.29", ",", "0.01", ",", "0.01"}], "}"}]}], "}"}], ",", 
        "0.004"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.5", ",", "0", ",", 
            RowBox[{"-", "0.009"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.29", ",", "0.01", ",", "0"}], "}"}]}], "}"}], ",", 
        "0.004"}], "]"}], ",", "\[IndentingNewLine]", "Gray", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.5", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.5", ",", "0", ",", "0.01"}], "}"}]}], "}"}], ",", 
        "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Brown", ",", 
      RowBox[{"Polygon", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.38", ",", "0.3", ",", "0.05"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.38", ",", "0.3", ",", 
           RowBox[{"-", "0.05"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.25", ",", "0.3", ",", "0.003"}], "}"}]}], "}"}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Polygon", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.38", ",", "0.32", ",", "0.05"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.38", ",", "0.32", ",", 
           RowBox[{"-", "0.05"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.25", ",", "0.32", ",", "0.003"}], "}"}]}], "}"}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Polygon", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.25", ",", "0.3", ",", "0.003"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.25", ",", "0.32", ",", "0.003"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.38", ",", "0.32", ",", "0.05"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.38", ",", "0.3", ",", "0.05"}], "}"}]}], "}"}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Polygon", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.25", ",", "0.3", ",", "0.003"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.25", ",", "0.32", ",", "0.003"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.38", ",", "0.32", ",", 
           RowBox[{"-", "0.05"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.38", ",", "0.3", ",", 
           RowBox[{"-", "0.05"}]}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Polygon", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.38", ",", "0.32", ",", "0.05"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.38", ",", "0.32", ",", 
           RowBox[{"-", "0.05"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.38", ",", "0.3", ",", 
           RowBox[{"-", "0.05"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.38", ",", "0.3", ",", "0.05"}], "}"}]}], "}"}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.38", ",", "0.31", ",", "0.05"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.38", ",", "0.31", ",", 
            RowBox[{"-", "0.05"}]}], "}"}]}], "}"}], ",", "0.01"}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.38", ",", "0.31", ",", "0.05"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.25", ",", "0.31", ",", "0.003"}], "}"}]}], "}"}], ",", 
        "0.01"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.38", ",", "0.31", ",", 
            RowBox[{"-", "0.05"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.25", ",", "0.31", ",", "0.003"}], "}"}]}], "}"}], ",", 
        "0.01"}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.29", ",", "0.01", ",", "0.02"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.29", ",", "0.06", ",", "0.02"}], "}"}]}], "}"}], ",", 
        "0.005"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Cuboid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.3", ",", "0.06", ",", "0.02"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.27", ",", "0.065", ",", "0.06"}], "}"}]}], "}"}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.29", ",", "0.01", ",", 
            RowBox[{"-", "0.01"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.29", ",", 
            RowBox[{"-", "0.05"}], ",", 
            RowBox[{"-", "0.01"}]}], "}"}]}], "}"}], ",", "0.005"}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Cuboid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.3", ",", 
           RowBox[{"-", "0.05"}], ",", 
           RowBox[{"-", "0.01"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.27", ",", 
           RowBox[{"-", "0.06"}], ",", 
           RowBox[{"-", "0.05"}]}], "}"}]}], "}"}], "]"}]}], 
     "\[IndentingNewLine]", "}"}], ",", 
    RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.6212938539276457`*^9, 3.6212939079030423`*^9}, {
   3.621294293231571*^9, 3.621294856532896*^9}, {3.6212949114153833`*^9, 
   3.6212949214463863`*^9}, {3.621295197774531*^9, 3.6212952869845304`*^9}, {
   3.6212953717635307`*^9, 3.621295481179531*^9}, {3.6224988656010056`*^9, 
   3.6224988879679093`*^9}, {3.6224989934819098`*^9, 
   3.6224990159919095`*^9}, {3.6224990485499096`*^9, 
   3.6224991064179096`*^9}, {3.6224991517599096`*^9, 
   3.6224993545789094`*^9}, {3.6224993854409094`*^9, 3.622499554232909*^9}, {
   3.6224995934439096`*^9, 3.6224996727627344`*^9}, {3.6224997112004204`*^9, 
   3.6224997467095203`*^9}, {3.622499783098797*^9, 3.622500115411578*^9}, {
   3.6225001905990963`*^9, 3.622500293833419*^9}, {3.622500339466982*^9, 
   3.6225006187259045`*^9}, {3.622500683465378*^9, 3.62250103332036*^9}, {
   3.6225011619322195`*^9, 3.6225015381998425`*^9}, {3.6225015753385563`*^9, 
   3.6225017517276845`*^9}, {3.622501802003684*^9, 3.622501844159684*^9}, {
   3.6225018748946843`*^9, 3.6225019110996847`*^9}, {3.6225019459136844`*^9, 
   3.6225020716676846`*^9}, {3.6225021409986844`*^9, 3.6225021634036846`*^9}, 
   3.6225021973376846`*^9, {3.6225023771356845`*^9, 3.6225026692609515`*^9}, {
   3.6225027118032055`*^9, 3.6225030731583376`*^9}, {3.6225031638974104`*^9, 
   3.62250318999502*^9}, {3.6225032443314533`*^9, 3.622503518118829*^9}, {
   3.6225035488389006`*^9, 3.6225036289409103`*^9}, {3.622503659130929*^9, 
   3.622503692778293*^9}, {3.6225037328643017`*^9, 3.6225038207040844`*^9}, {
   3.6225041940154123`*^9, 3.6225046517101765`*^9}, {3.622504748992446*^9, 
   3.622505179160921*^9}, {3.622505249112916*^9, 3.6225053628622894`*^9}, {
   3.623104317705515*^9, 3.6231044899055147`*^9}, {3.6231045691165147`*^9, 
   3.623104573174515*^9}, {3.623104672056245*^9, 3.6231046978488235`*^9}, {
   3.623104735865625*^9, 3.623104859217959*^9}, {3.6231048990109377`*^9, 
   3.623104990783513*^9}, {3.623105056597513*^9, 3.623105121203513*^9}, {
   3.623105204611513*^9, 3.6231052081295133`*^9}, {3.623105247632513*^9, 
   3.623105261485513*^9}, {3.623105357960513*^9, 3.6231054703665133`*^9}, {
   3.6231055167345133`*^9, 3.623105519959513*^9}, {3.623105553756513*^9, 
   3.6231055560015135`*^9}, {3.6231055860565133`*^9, 
   3.6231055942255135`*^9}, {3.6231056696306887`*^9, 
   3.6231056755568733`*^9}, {3.623105707256212*^9, 3.6231058237705097`*^9}, 
   3.623105858447444*^9, 3.623105902566266*^9, 3.6231059394116335`*^9, {
   3.623105979854615*^9, 3.6231061356331916`*^9}, {3.623106195534181*^9, 
   3.6231062848351107`*^9}, {3.623106344619088*^9, 3.623106347558382*^9}, {
   3.6231063813257585`*^9, 3.62310643924755*^9}, {3.6231065034869733`*^9, 
   3.623106701332898*^9}, {3.6231067895518985`*^9, 3.6231067995508986`*^9}, {
   3.6231068550658984`*^9, 3.6231068585538983`*^9}, {3.623106910726898*^9, 
   3.6231069957628984`*^9}, {3.6231070422868986`*^9, 3.623107134372898*^9}, {
   3.6231071756408987`*^9, 3.6231071783428984`*^9}, {3.6231072306108985`*^9, 
   3.623107234497898*^9}, {3.623107267681898*^9, 3.6231073513777633`*^9}, {
   3.6231073896665916`*^9, 3.623107448564481*^9}, {3.6231074848221064`*^9, 
   3.623107495878212*^9}, {3.6231075296075845`*^9, 3.6231077642560472`*^9}, {
   3.6231078018458056`*^9, 3.6231078323288536`*^9}, {3.623107916725292*^9, 
   3.623107924181038*^9}, {3.623107977960415*^9, 3.62310817502312*^9}, {
   3.6231082075043674`*^9, 3.623108409162531*^9}, {3.623108441033718*^9, 
   3.6231084811147256`*^9}, {3.6231086678583984`*^9, 3.62310880879149*^9}, {
   3.623108968317441*^9, 3.623109003319941*^9}}],

Cell[BoxData[{
 Graphics3DBox[{
   {GrayLevel[0.5], CylinderBox[{{0, 0, 0}, {0, 0, 0.01}}, 0.1]}, 
   {RGBColor[1, 1, 0], TubeBox[{{0, 0, -0.01}, {0.099, 0.2, 0.005}}, 0.006], 
    TubeBox[{{0, 0, 0.02}, {0.099, 0.2, 0.005}}, 0.006]}, 
   {RGBColor[1, 1, 0], 
    TubeBox[{{0.099, 0.2, 0.005}, {0.11, 0.29, 0.005}}, 0.009], 
    TubeBox[{{0.11, 0.29, 0.005}, {0.06, 0.29, 0.005}}, 0.006], 
    TubeBox[{{0.06, 0.29, 0.005}, {0.06, 0.29, 0.06}}, 0.006], 
    TubeBox[{{0.06, 0.29, 0.005}, {0.06, 0.29, -0.05}}, 0.006], 
    TubeBox[{{0.06, 0.29, -0.04}, {0.06, 0.29, -0.062}}, 0.008], 
    TubeBox[{{0.06, 0.29, 0.05}, {0.06, 0.29, 0.072}}, 0.008], 
    TubeBox[{{0.06, 0.29, 0.07}, {0.016, 0.3, 0.07}}, 0.008], 
    TubeBox[{{0.06, 0.29, -0.06}, {0.016, 0.3, -0.06}}, 0.008]}, 
   {RGBColor[1, 1, 0], 
    TubeBox[{{0.11, 0.22, 0.005}, {0.29, 0.01, 0.005}}, 0.009], 
    TubeBox[{{0.11, 0.22, 0.005}, {0.33, 0.22, 0.005}}, 0.009]}, 
   {GrayLevel[0.5], CylinderBox[{{0.29, 0.01, 0}, {0.29, 0.01, 0.001}}, 0.05],
     CylinderBox[{{0.29, 0.01, 0.01}, {0.29, 0.01, 0.011}}, 0.05]}, 
   {RGBColor[1, 1, 0], 
    TubeBox[{{0.33, 0.22, 0.005}, {0.29, 0.01, 0.005}}, 0.009], 
    TubeBox[{{0.33, 0.22, 0.005}, {0.34, 0.3, 0.005}}, 0.009], 
    TubeBox[{{0.33, 0.2, 0.005}, {0.38, 0.15, 0.005}}, 0.009], 
    TubeBox[{{0.38, 0.15, 0.005}, {0.5, 0, -0.009}}, 0.006]}, 
   {RGBColor[1, 1, 0], 
    TubeBox[{{0.38, 0.15, 0.005}, {0.5, 0, 0.015}}, 0.006]}, 
   {RGBColor[1, 1, 0], TubeBox[{{0.5, 0, 0.015}, {0.29, 0.01, 0.01}}, 0.004], 
    TubeBox[{{0.5, 0, -0.009}, {0.29, 0.01, 0}}, 0.004]}, 
   {GrayLevel[0.5], CylinderBox[{{0.5, 0, 0}, {0.5, 0, 0.01}}, 0.1]}, 
   {RGBColor[0.6, 0.4, 0.2], 
    Polygon3DBox[{{0.38, 0.3, 0.05}, {0.38, 0.3, -0.05}, {0.25, 0.3, 0.003}}],
     Polygon3DBox[{{0.38, 0.32, 0.05}, {0.38, 0.32, -0.05}, {0.25, 0.32, 
     0.003}}], 
    Polygon3DBox[{{0.25, 0.3, 0.003}, {0.25, 0.32, 0.003}, {0.38, 0.32, 
     0.05}, {0.38, 0.3, 0.05}}], 
    Polygon3DBox[{{0.25, 0.3, 0.003}, {0.25, 0.32, 0.003}, {0.38, 
     0.32, -0.05}, {0.38, 0.3, -0.05}}], 
    Polygon3DBox[{{0.38, 0.32, 0.05}, {0.38, 0.32, -0.05}, {0.38, 
     0.3, -0.05}, {0.38, 0.3, 0.05}}], 
    TubeBox[{{0.38, 0.31, 0.05}, {0.38, 0.31, -0.05}}, 0.01], 
    TubeBox[{{0.38, 0.31, 0.05}, {0.25, 0.31, 0.003}}, 0.01], 
    TubeBox[{{0.38, 0.31, -0.05}, {0.25, 0.31, 0.003}}, 0.01]}, 
   {RGBColor[1, 1, 0], 
    TubeBox[{{0.29, 0.01, 0.02}, {0.29, 0.06, 0.02}}, 0.005], 
    CuboidBox[{{0.3, 0.06, 0.02}, {0.27, 0.065, 0.06}}], 
    TubeBox[{{0.29, 0.01, -0.01}, {0.29, -0.05, -0.01}}, 0.005], 
    CuboidBox[{{0.3, -0.05, -0.01}, {0.27, -0.06, -0.05}}]}},
  AutomaticImageSize->True,
  Boxed->False,
  ImageSize->{295.4246488762694, 277.2299003626308},
  ViewPoint->{2.801282842961884, 1.5780428204662227`, 1.054796326549535},
  ViewVertical->{0.2916852992478062, 
   1.5355922932145776`, -1.1991059475099484`}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{
  "\:81ea\:8ee2\:8eca\:304b\:306a\:3068\:601d\:3063\:3066\:3082\:3089\:3048\
\:308c\:3070\:5e78\:3044\:3067\:3059", "\:3002", 
   "\:30bb\:30f3\:30b9\:306e\:306a\:3044\:8272\:4f7f\:3044\:306f\:6c17\:306b\
\:3057\:306a\:3044\:3067\:304f\:3060\:3055\:3044", "\:3002"}]}]}], "Input",
 CellChangeTimes->{{3.623109022742883*^9, 3.6231090820418124`*^9}, {
  3.6231091259662046`*^9, 3.623109206449252*^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[1463, 33, 16889, 408, 832, "Input"],
Cell[18355, 443, 3348, 60, 348, InheritFromParent]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature fuDcHu8DmZW3fD1C4EPaZNPD *)