(* 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[     28890,        771]
NotebookOptionsPosition[     27950,        732]
NotebookOutlinePosition[     28378,        749]
CellTagsIndexPosition[     28335,        746]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox["SmartPhone",
  FontFamily->"Lucida Handwriting",
  FontSize->24,
  FontWeight->"Plain",
  FontColor->RGBColor[0., 0.5019607843137255, 0.]]], "Input",
 CellChangeTimes->{{3.5922599966796303`*^9, 3.5922600135474653`*^9}, {
  3.592260104704286*^9, 3.592260125608409*^9}, {3.5922601688903446`*^9, 
  3.5922601778652983`*^9}}],

Cell[BoxData[
 RowBox[{"doutai", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Glow", "[", "White", "]"}], ",", "Black", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"12", ",", "6", ",", "0.9"}], "}"}]}], "]"}]}], "}"}], ",", 
    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
    RowBox[{"Boxed", "\[Rule]", " ", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.592259894461838*^9, 3.5922599006300435`*^9}}],

Cell[BoxData[
 RowBox[{"gamen", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Black", "]"}], ",", "Black", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1.5", ",", "0.3", ",", "0.8"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"10.2", ",", "5.7", ",", "0.9"}], "}"}]}], "]"}]}], "}"}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"fureme1", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Red", "]"}], ",", "Red", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"12", ",", 
         RowBox[{"-", "0.2"}], ",", "0.9"}], "}"}]}], "]"}]}], "}"}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"fureme2", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Red", "]"}], ",", "Red", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "6", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"12", ",", "6.2", ",", "0.9"}], "}"}]}], "]"}]}], "}"}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"fureme3", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Red", "]"}], ",", "Red", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.2"}], ",", "6", ",", "0.9"}], "}"}]}], "]"}]}], 
    "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"fureme4", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Red", "]"}], ",", "Red", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"12", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"12.2", ",", "6", ",", "0.9"}], "}"}]}], "]"}]}], "}"}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"camera", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Black", "]"}], ",", "Black", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.5", ",", "5", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.5", ",", "5", ",", 
           RowBox[{"-", "0.0001"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "3"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"light", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Opacity", "[", "0.2", "]"}], ",", "Gray", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.5", ",", "4", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.5", ",", "4", ",", 
           RowBox[{"-", "0.0001"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "5"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"ura", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Opacity", "[", "0.1", "]"}], ",", "Gray", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"11", ",", "6", ",", 
         RowBox[{"-", "0.1"}]}], "}"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"botan", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "White", "]"}], ",", "Black", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11", ",", "3", ",", "0.8"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"11", ",", "3", ",", "0.9"}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "2"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"sikaku", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Opacity", "[", "0.1", "]"}], ",", "White", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"10.78", ",", "2.78", ",", "0.8"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"11.15", ",", "3.15", ",", "0.9"}], "}"}]}], "]"}]}], "}"}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"ueten1", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Black", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.4", ",", "3", ",", "0.89999"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.4", ",", "3", ",", "0.9"}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "7"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"ueten2", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Black", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0.89999"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0.9"}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "10"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"ueten3", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Black", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2.5", ",", "0.89999"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2.5", ",", "0.9"}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "16"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"ueten4", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{"Black", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "3.5", ",", "0.89999"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3.5", ",", "0.9"}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "16"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"ueten5", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Black", "]"}], ",", "Black", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"1", "-", 
          RowBox[{"1", "/", "16"}]}], ",", "2.5", ",", "0.89999"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"1", "+", 
          RowBox[{"1", "/", "16"}]}], ",", "3.5", ",", "0.9"}], "}"}]}], 
      "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"purasu", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "White", "]"}], ",", "White", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.5", ",", "0", ",", "0.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.5", ",", 
           RowBox[{"-", "0.25"}], ",", "0.5"}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "4"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"mainasu", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "White", "]"}], ",", "White", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"4.5", ",", "0", ",", "0.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4.5", ",", 
           RowBox[{"-", "0.25"}], ",", "0.5"}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "4"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"sokumenbotan", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "White", "]"}], ",", "White", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1.2", ",", "0", ",", "0.25"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2.2", ",", 
         RowBox[{"-", "0.25"}], ",", "0.75"}], "}"}]}], "]"}]}], "}"}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"aka", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Red", "]"}], ",", "Red", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1.4", ",", "0", ",", "0.55"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2.0", ",", 
         RowBox[{"-", "0.25"}], ",", "0.65"}], "}"}]}], "]"}]}], "}"}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"iyahon", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Gray", "]"}], ",", "Gray", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11", ",", "1.5", ",", "0.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"12.21", ",", "1.5", ",", "0.5"}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "4"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"iyahon2", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Black", "]"}], ",", "Black", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11", ",", "1.5", ",", "0.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"12.211", ",", "1.5", ",", "0.5"}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "5"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"keibu1", "=", "  ", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Gray", "]"}], ",", "Gray", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11", ",", "2.7", ",", "0.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"12.21", ",", "2.7", ",", "0.5"}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "8"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"keibu2", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Gray", "]"}], ",", "Gray", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11", ",", "3.3", ",", "0.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"12.21", ",", "3.3", ",", "0.5"}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "8"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"keibu3", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Gray", "]"}], ",", "Gray", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"11", ",", "2.7", ",", 
         RowBox[{"0.5", "-", 
          RowBox[{"1", "/", "8"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"12.21", ",", "3.3", ",", 
         RowBox[{"0.5", "+", 
          RowBox[{"1", "/", "8"}]}]}], "}"}]}], "]"}]}], "}"}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"keibu4", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Black", "]"}], ",", "Black", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11", ",", "2.8", ",", "0.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"12.21", ",", "2.8", ",", "0.5"}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "10"}]}], "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5922599394313383`*^9, 3.5922599455507135`*^9}}],

Cell[BoxData[
 RowBox[{"keibu5", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Black", "]"}], ",", "Black", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11", ",", "3.2", ",", "0.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"12.21", ",", "3.2", ",", "0.5"}], "}"}]}], "}"}], ",", 
       RowBox[{"1", "/", "10"}]}], "]"}]}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"keibu6", "=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Glow", "[", "Black", "]"}], ",", "Black", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"11", ",", "2.8", ",", 
         RowBox[{"0.5", "-", 
          RowBox[{"1", "/", "10"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"12.21", ",", "3.2", ",", 
         RowBox[{"0.5", "+", 
          RowBox[{"1", "/", "10"}]}]}], "}"}]}], "]"}]}], "}"}], 
   "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
  "doutai", ",", "iyahon", ",", "iyahon2", ",", "gamen", ",", "fureme1", ",", 
   "fureme2", ",", "fureme3", ",", "fureme4", ",", "camera", ",", "light", 
   ",", "ura", ",", "botan", ",", "sikaku", ",", "ueten1", ",", "ueten2", ",",
    "ueten3", ",", "ueten4", ",", "ueten5", ",", "purasu", ",", "mainasu", 
   ",", "sokumenbotan", ",", "aka", ",", "keibu1", ",", "keibu2", ",", 
   "keibu3", ",", "keibu4", ",", "keibu5", ",", "keibu6"}], "]"}]], "Input"],

Cell[BoxData[
 Graphics3DBox[{
   {GrayLevel[0], Glow[
     GrayLevel[1]], CuboidBox[{0, 0, 0}, {12, 6, 0.9}]}, 
   {GrayLevel[0.5], Glow[
     GrayLevel[0.5]], 
    CylinderBox[{{11, 1.5, 0.5}, {12.21, 1.5, 0.5}}, NCache[
     Rational[1, 4], 0.25]]}, 
   {GrayLevel[0], Glow[], 
    CylinderBox[{{11, 1.5, 0.5}, {12.211, 1.5, 0.5}}, NCache[
     Rational[1, 5], 0.2]]}, 
   {GrayLevel[0], Glow[], CuboidBox[{1.5, 0.3, 0.8}, {10.2, 5.7, 0.9}]}, 
   {RGBColor[1, 0, 0], Glow[
     RGBColor[1, 0, 0]], CuboidBox[{0, 0, 0}, {12, -0.2, 0.9}]}, 
   {RGBColor[1, 0, 0], Glow[
     RGBColor[1, 0, 0]], CuboidBox[{0, 6, 0}, {12, 6.2, 0.9}]}, 
   {RGBColor[1, 0, 0], Glow[
     RGBColor[1, 0, 0]], CuboidBox[{0, 0, 0}, {-0.2, 6, 0.9}]}, 
   {RGBColor[1, 0, 0], Glow[
     RGBColor[1, 0, 0]], CuboidBox[{12, 0, 0}, {12.2, 6, 0.9}]}, 
   {GrayLevel[0], Glow[], 
    CylinderBox[{{0.5, 5, 0}, {0.5, 5, -0.0001}}, NCache[
     Rational[1, 3], 0.3333333333333333]]}, 
   {GrayLevel[0.5], Opacity[0.2], 
    CylinderBox[{{0.5, 4, 0}, {0.5, 4, -0.0001}}, NCache[
     Rational[1, 5], 0.2]]}, 
   {GrayLevel[0.5], Opacity[0.1], CuboidBox[{1, 0, 0}, {11, 6, -0.1}]}, 
   {GrayLevel[0], Glow[
     GrayLevel[1]], 
    CylinderBox[{{11, 3, 0.8}, {11, 3, 0.9}}, NCache[Rational[1, 2], 0.5]]}, 
   {GrayLevel[1], Opacity[0.1], 
    CuboidBox[{10.78, 2.78, 0.8}, {11.15, 3.15, 0.9}]}, 
   {GrayLevel[0], 
    CylinderBox[{{0.4, 3, 0.89999}, {0.4, 3, 0.9}}, NCache[
     Rational[1, 7], 0.14285714285714285`]]}, 
   {GrayLevel[0], 
    CylinderBox[{{1, 2, 0.89999}, {1, 2, 0.9}}, NCache[
     Rational[1, 10], 0.1]]}, 
   {GrayLevel[0], 
    CylinderBox[{{1, 2.5, 0.89999}, {1, 2.5, 0.9}}, NCache[
     Rational[1, 16], 0.0625]]}, 
   {GrayLevel[0], 
    CylinderBox[{{1, 3.5, 0.89999}, {1, 3.5, 0.9}}, NCache[
     Rational[1, 16], 0.0625]]}, 
   {GrayLevel[0], Glow[], 
    CuboidBox[
     NCache[{Rational[15, 16], 2.5, 0.89999}, {0.9375, 2.5, 0.89999}], 
     NCache[{Rational[17, 16], 3.5, 0.9}, {1.0625, 3.5, 0.9}]]}, 
   {GrayLevel[1], Glow[
     GrayLevel[1]], 
    CylinderBox[{{3.5, 0, 0.5}, {3.5, -0.25, 0.5}}, NCache[
     Rational[1, 4], 0.25]]}, 
   {GrayLevel[1], Glow[
     GrayLevel[1]], 
    CylinderBox[{{4.5, 0, 0.5}, {4.5, -0.25, 0.5}}, NCache[
     Rational[1, 4], 0.25]]}, 
   {GrayLevel[1], Glow[
     GrayLevel[1]], CuboidBox[{1.2, 0, 0.25}, {2.2, -0.25, 0.75}]}, 
   {RGBColor[1, 0, 0], Glow[
     RGBColor[1, 0, 0]], CuboidBox[{1.4, 0, 0.55}, {2., -0.25, 0.65}]}, 
   {GrayLevel[0.5], Glow[
     GrayLevel[0.5]], 
    CylinderBox[{{11, 2.7, 0.5}, {12.21, 2.7, 0.5}}, NCache[
     Rational[1, 8], 0.125]]}, 
   {GrayLevel[0.5], Glow[
     GrayLevel[0.5]], 
    CylinderBox[{{11, 3.3, 0.5}, {12.21, 3.3, 0.5}}, NCache[
     Rational[1, 8], 0.125]]}, 
   {GrayLevel[0.5], Glow[
     GrayLevel[0.5]], CuboidBox[{11, 2.7, 0.375}, {12.21, 3.3, 0.625}]}, 
   {GrayLevel[0], Glow[], 
    CylinderBox[{{11, 2.8, 0.5}, {12.21, 2.8, 0.5}}, NCache[
     Rational[1, 10], 0.1]]}, 
   {GrayLevel[0], Glow[], 
    CylinderBox[{{11, 3.2, 0.5}, {12.21, 3.2, 0.5}}, NCache[
     Rational[1, 10], 0.1]]}, 
   {GrayLevel[0], Glow[], CuboidBox[{11, 2.8, 0.4}, {12.21, 3.2, 0.6}]}},
  AutomaticImageSize->True,
  Axes->False,
  Boxed->False,
  ImageSize->{552.2462293099755, 653.3425092629662},
  ViewPoint->{-2.155330004380081, -0.7672571012729931, 2.4931644776799486`},
  ViewVertical->{-0.8427558535439638, -1.0212975614931168`, \
-1.1133469071518298`}]], "Output",
 CellChangeTimes->{3.59225979750206*^9, 3.59225991289028*^9, 
  3.5922599513429284`*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnXecXVW1x0/mTsvMpJcJaTMkpEx6NUCARIFgwPAUlAcoJWIg4VEMBOFF
AqFJETAC0pUqEuk8mqH3LjWCkRJBMIJ0QxXyPGvt2WefM7+9z153n5m/Zj6f
3Htz7tm/79prrXvKPrvMm79k4YID5y9ZtM/85u0Omf/jhYv2ObR5zsGH/GdT
qUsUVYz+z7/TmqP484Yoan1J/sbEL+aWzg2dGzo3dG7o3NC+G16P30rx4bgr
baCPrfvwhxm852v0VsXfG//iI3l1/F0FfSy1bmwjsFbvVBX/N6rckD4H8HeV
9B0wYzqrvKL3rI3/SzvW2MpM4zIv6TJ18X8rVHVxmalcZg0oU2G6iP/Z2VNY
50WgUyXRmcw6L4AytVqxVqI4iRVXa8u6ap16ic5E1nkuXcPMng0SxQms+Azw
WU+JznjWeQro9JHojGOdPzp931+iOJYVnwC+30iio36+jwGdwRKdFtZ5xBnD
IRLF0az4EPD9xhKdUazzoNP3m0gUR7Li/cBnoyQ6I1jnXqAzRqLDxkd3O30/
VqI4nBXvBL6fKNEZxjq3A50pEh0OeLTKGcPpEsVmVrwN+H5TiU4T69zi9P1m
EsWhrHgT8NmWEh3+sUU3Ap3ZEh0+DEQ3OH2/tURxECteB3y/rY2CdAayzjVO
38+RKPKhM7oK+Gx7ic4A1lkJdOZJdBpZ50qn778tUeSTTHQF8P3OEp1+rHO5
0/fflSj2ZcVLgc92lejwiTm6GOh8X6LTm3Uucvp+T4liL1b8NfD9fIkOX8JE
Fzh9/0OJYg9WPA/4bF+JTnfWOQfoLJLodGOds52+P0CiyJeP0VnA9wdLdPjC
NjoD6Bwi0aljnRXOGB4qUeT7ruh04PvDJTp8CxCdCnQWxtuoSA+JYg0r/twZ
TdKuFmtXs/bJIB4L2StSRb6pik50RoZ+FQ1i7UrWPsHm2+5ixRIrHmdT7CVW
5JvT6Nj8aPUVa3dh7eW2aDWKFaPoKGeg9otfN5LIfsWyR9o8Olgi9iWLLbWJ
NUnE/s1i/5sfmWES2S9Y9nBbUEZIxD5nscPygzJKIvsZyx5q8+MYidinLLbY
JjZeIvYJi/04PyiTJLIfs+xBICh0Jp0iEVvPYgfkB2W6RPZfLLu/zY+bSsQ+
YrGFQKwp3kYH8tnxp5kS2Q9Zdl8gSzdIlcq36rw2M/60lQTwAQMWOOM/WAN6
akPoNnO2BPU+o/ZxhnGg/raf/kTNl1tLUO8xaj5w2yC9LdXQpApS88AcCepd
Ru3lRA0GKGpUmytBvcOoPQAKAYaAbdQws72OpAf0nwz9gTNBEGoo2EaNYvMk
+LcZv7uuc3IgQYBmsI3aqb4tgb7F0F3TjvZwbw9doif4lpqldpYY8g82ZBcQ
8SYA6K73q1i3/q0PMt92AyWoZWoXiUnr2KTvApM2BoAGvV+Vp0lUsV0lJv2d
TbI2ABB+GEDVa+NqgXENoAQF/fsS495k476jUUkCDweAOr1fPTCpHpSgo8ye
EpPeYJP+Kx1ClKyZbcazsdg4MrABmImeodGBfb7EzL+xmfPSZtKnkQBQo/fr
4WkSNXP9SGLS62zSDsCkUQBQA/zVExhXC8pS29m+EuP4yaS9pY/MbAEoA6/N
JB9WqLJtSlAz3CKJcX9l476pPZf8DMZ6mtRNm1QHSlD72wESk9aySXPSwczs
hIxDPwP0a0U5R817B0vMfJXN3CZtJn2aAACGb7Rxtdpz6ABCJi2WmPQKm/QN
YNJkT5OqtEnoHEBNjUskJr3MJn3dtjuhpgJUPTCuQhvXHZQgkw6XGPcSGzdL
+ytJ/ukAwCeeylaT6LtWW6gQuWepxIK/sAVbpiOW2elrVlvyz9p05bNMYtIa
Nmlm2iT6tDkADLRBj5ZA/8zQzQB0SwBo1PsR4FgJ6kVGzQCo2XpbvzTgBAmA
u0Kko9Ym5bdJA5KbuJMkqD8xalq6Lpmd6EBKWUvnPeoiQ08hTpGgVjNqCnAb
XQnUaLedJpF9nmUnAVlqkFghEXuOxSbYxM6UiD3LYuOdYSTZsyWyz7DsWG1j
csyhFo9zJWJPs1iLM/7U9nGBRPYplh1l8+NvJGLcO4Xv9pDYJRKxJ1kM9auo
TfvxMonsEyw7zBaUKyRij7NYc35QVkpkH2PZoTY/Xi0Re5TFBtvErpOIPcJi
A4EYee8GidjDLIZ6G2UifJNE9iGWbUzbiIJya7wJNf2gLnnc/cc4XWT8uEoi
9gCL9bGJ3SkRu98Qy+xek/bj3RLZ+7I2VqfF7pOI3ctifbUY6l1JQXlQInuP
IdvajTOKWt8Tfz5sSyAkercR6ZKu7qMSibuy1Y3SvVGpqfwJieKdrNjb6UBq
2H1KInsHyyaNyqjPzd7x67MS2dtZ1rdZldpTV0sAqwy7Uc5ndqe20xckgD9k
HYN22i1+XSORvQ3bHVl2p2bHlyWAWxnQS9uNjn7UTrdWInuLIZuxGwGore01
CeBmBqj8Nr53RJWaz96QUG4yKMbxQlUFlfhW/LpOwvg/k4F7qaNic+PXtyWg
GxnUB1fGen/wroRxg8nAlUEguud5XwK6nkF9hV6jBpCPJKDrTFB6d9+8mxW/
fiyBXiuDomPkFvHrZxLoNQztFwClZoAvJNCr7dCSp3vpueZXEuhVDEX9332h
09W7o5M/Iv/eTq70JE/R5CoJeaWMjKI7UZNrJeQruVBjAHm8JtdJyL+zk6s8
vT1Wk7tJyFdwoQEB5NGa3FNC/q2dXO1JHqHJfSTky2VkFOfhmtxPQr6MC6E7
Q19ysyYPkJAvtZNrABl5e6gmD5KQL+FCAwPIgzR5qIR8MRcaFODtAZq8sYR8
kZ2M6ozI/TV5uIT8Gy6UO0LJQe6jySMl5F9zodyRTI4499LkFgn5Qi40NIDc
XZPHScgXcKGmgAzrpsnjJeTz7WTfOJdJPo8LNQeQGzR5goR8LhfKHePmiHO3
8sjncKFhHU8+W0Z2x1lE/hUXGt7x5LO4UO7Iw+LJZ3KhEYXEeaKEfAYXGgl2
lx9JqM7ZJg0b+Zd2cpne9iWv4EK5I0OLJ/+CC40OiHP38sinc6GWAHImw3zJ
p8nIbm+LyKdyodyRu8WTeWBN/gjf4smncKFxhWSYiHwyF0IPfeUZNklCPklG
dntbRD6RC03oePLPuFDu2O/iySdwoUmFZJiIfDwXmgx2l5+rJtvIqJiDLPe2
iHwcF8odm188mYebpTuYdQz5GC40rZAME5GXy8juOk+RkI/mQrkzJhRPPooL
oT5X7UxexoVmdDz5SC6UO6+EV4aJyD+Vkd11niohL+VCuTNfFE/m4ZHpLpAd
Qz6CC80sJM4i8uEyMpIok/wTLrRFId6eJiEfxoVy50QpnryEC23V8WSeEICf
YAZnmIh8iIzszjAReTEXml2It6dLyDymF3aJb2cyT0nBj8c7lnyQnVwLyO4M
E5EP5EK5Mwl5ZRiRfVuleCIR7vUQ7O2vScj/w4XQrEftTN6fC6HZkdqZvCic
3L088kIutF3Hk/fjQt8sxNszJGSevoe7J3UseYGdjI4kHhnme+f+Iy6ExvGV
GWdf8j5caIeOJ/N0T9zfrZg4+5J56io4r1k7k/e2k+UZJiLvxYV2LCTOIjJP
OMZ9JzuWvAcXQrPNyeO8qYT8AztZHmcRmSeM4/6wwd4WkXfnQjt1PHk3LoQm
A2hnMk/zB2cNlGfYZhLyf9vJ8gwTkXfhQt8rxNsiMiOVAR1KZjcrp3comZMa
zicpz7DNJeSd7GR5honIfPBSP+tQb4vIfMBWh7IOJfPpEc732c7kHe1keZxn
Ssh8GWSfZ6j9yHzRqS4QQr0tIvOFNpyFtZ3JfHOhLgQ7lDzXTpbHeQsJmW9f
1WV3fp2RRJlkvmWHs+TKvS0iczMFnE23ncnb2sm+cS6TzA1h6mY2NMO2lJC5
8U/dwId6W0TmBk84jV87k7l5Gc6z3M7k2XayPMNE5FlcaL9CMmwrCZkf2qim
wFBvi8j8oArOg93O5C3sZHmcRWR+IKkamzuUzI9/VQN76LlqloTMj7zh7OTy
OIvI/JhfPUjpUPIMO1keZxGZO5Kox1aFZFhvT7JaRwrNHl9mhvmS1WpUaMrh
MuPsS55qJ5cZZ1+yWgVrcSFkuhpCY1wRWa2bhWb3941zprUCDclDxdT6WmgV
AHmGUUscGp6GiqkVuZYUkmH0LBYNmELkCXayPM7Uk6XJk6zW+jqsEDL1NEXD
WRBZrQ72k0IyjEY5oaEdqJhaRQytDyGPM40pQ8McEFmtO3ZEIWQaR4c63iNy
i50sj/NIdrkfeTQXss7fLyJvEr+gDtmIzFFRnfJCM4zGiKIuwqiYWivtp4XE
uWlDhDutIvIIO1nu7SHxC+o6ishqPbYjCyEPjF9QZ0ZEVuu2LSskzjTyGnXs
Q8XUSm9HFUKm0eazPMlqbbijC8kwGmGPOj8hcrOdLI8zLdSCuiAhchMXWl4I
mRadQZ1iEFmtTndMIXGuj19QNw1UTK1nh9alkZNpNQnUWQIVG2wny71N02+i
x/eIrFbKO64QMs0xhB4oI7JaW+/4Qsg0Jwt6uIrIag2+E0LjTFPQoKebaMYj
tWDfz0KhNNkOetSGoI12qK+PaYo2mlYIPXFCULUA4Imhgf0k3oQevCCoWi3w
pFD3ro837e0JVQsKnhwK/TDeZG0Mp9zub0eJIvlevAm1x1ZpVAUoq5Y8PCUU
/068CTWNommYHIZYV3rzTS6aSA213VVoZ2DyqaHBprniklWXUP9mhTotFPWm
RhklIjlUFOLX0/VDgUVTUyr86aF4mrUQNZmhqadKdkN+EZphr6b9gMo6EnxF
aOxfSuPr1Y/cKKuzoZ8diay2ItegdIs/NDjg6hj6y9C4v5Cub7d4v5Itxmrl
1TNCoc+nod0d9USxVmacGRrr55yON2aDbTMJpPL+WaEWPA28n8wJLOKKUu7J
DZZfewNQcdvyq9BkeNzmg65OrnUJWl/uIygJkf9wYqoDzjmhKfCQMxQVSVDE
Zogy4gFbFFw/TgU/NxR+ryQde+C0ULacF5oWd2lbMo7o7eSeH8q9Iz8d3RZc
EJqJq/IzsZ/YAjqAltQXanf6At0YkBm32TKx0Qm/EMArdFmRBTdL0rHR8ftQ
Jyqemq4G7cJUNhVP0GxNmBttiTrQ6Seeoa/Nt7y4cJWJ0dWot5lwfX7ODuT4
R/q4beGXhHwK1LX5GTsUlFWeuMjlieq0JYk1VmOussWj2W7CxRnbIyNVzd1F
ibEyPyoOky7JupN/N2EmXZEfqOF2ky7VdfE1BB3jyJDLbEEakYMvM0jWg+2l
8aam+BMlIGrxREcbh5mXZbxUmc1gkX0XafvouDUXuKwl/qRugi53hgjdzFpz
5UJNprbg7bQySuTRdn/8FocozLjztXE0wTIaK5uk9Digok4JPO9x5nBH36gD
ELLKmtXnaKuo4X5bEKxx+lM/04Ly3GPNGlrHaag2xOqezLaxQE+Z+bs8R6H2
Cat9Z0ocpZqer6S3tucD9X80TbU1fVbY+Ci3x2hLVJv/SnpL/66lbiAzTgdm
iLLYNIjXYak0fWLzi9Wgn0viop43/R5khvoM5wGzJsXJkqCgVFUG0Wz5pTbx
z8OfKA5G61VF/PlqsLvovuP48lJSPVa+BuB9bzoIf0waLz+gOgzxDUOy2KJv
CqouDNcGQCn2y0JTTxlyXaghS8VhoE+q48z1oUl4hMT5Y2RQa8QP86yzRxiU
STeEmnSoxA+qX9yNAJrc+FrvK62psDg0J5VdvF5P0Xe9B5WXqKrHJq9TVMzN
7wGSWE3x4ItuOcmERaGhUmbdXKxZ+5YXI9Vv+5bM7lFUwO3WglBPKeNuDTDO
mtM/jDfR+dz3poI+bZpnkjxye8Wb6IxK917Uv6ZGb7NmtxrTcVvBkSOT9og3
Uce9am1SnY6mKIbKzD/ogpWhxu0eb6I+nPQlXQg26E8eMVRjj1Zpk3xvn62Z
vlu8iW6aqftYsqRoErjxoKwy5HbsES+TrPm9S7xprjYJLQJjPdGSwbMN44K9
RCbtHG+iDm494k/JoqYovdUQxDsCfGM15Dvxph20IckyqL5JrYzjdSwLuE8m
q3aMN83TEUMjMlA2q5GxdxVlCyX0t/TviRRpHAKtMZWsoOpObdOq5Joos5PI
PdtvaD0S1WqT6LySLCNqDR99qwZs311o0LbTjqrTVnXVVnmETw2dv0c5xLSq
1SDRXf028aYmbdAkHUMPN2X0lGn3ZiKnHeV7w092fUPbJbo+UfM43KeN7+oJ
pTSeHW8app2RrF7vTl4TGnJnQaOAN9EpsbVnoqqZQu4PxdNECjTkoEbjPVyu
Jmd5IBRPY6zoJq3kWfuMijLkwVBDaOo4NEoP1V5NBPRQAJRSb5qGeiRcAVCq
6eQ01J1maoKph0OhEyXuVTN5PRIKHSdxr4I+Ggptkbh3j4Kgo/Pdi+qs8I+F
4kdI6rw3Qx8PhQ6LN6HRrSil1GSPT4RCmyUppaBPhkKHSNy7oCDooHz3ojor
/B9D8RtJ6swdsKOnQqH9JSml5gN+OhTaV5JSDqjvRQ9Be0ncq+aZfia0pj3K
SymFfxYUTDr5R/ldiMiGbpKKq+nMnwNkvpeUN+TUAX4msdTE8c8DapnNx0Su
Kc/7DmtKaWsyIbC6oEoSArVmwWqnM3w7kRG+VJ4flCF/ojd347mvOcu1DzI/
evqk1sZ4wQMoSoZlnp5favKtfcATLyp5XzPQKGN3BJRBL9KbqJ9aA1A7wtMN
ahGcP2NqGS3xaOoAd8WVCWsyBY3IC5JuiTPpljPqL3on1edFmmSLPb17rMEz
vKuk+MjepgeDrxHufm3I08qcl0D1ff17oGfN1TJtL5s1T/5EyP3TSGvtFPKV
ApBoyFvGtfTpJANpnCnSkZYm1wJPF6u1Fl/F9eXkqs4mV6tV6JiBhjS6E0qZ
sLYAl8/3rLVaz/OvBSD3TCOttVTI1+gNdPyJyrloQdOyohRbYcItUS77ELKb
p9PVMr2vC52Ozg9okmd3kin43wqI+Pd0fdHZQS39/EYBoJ2cjkX9iUx4YYcS
NEM+SjK1xPibuOaBSTbP6YskydTa7n8Xuh8lGVpvw51kCr6ugNijPsuJq3lQ
RvQP00JVUN/pJX6Gtx4IOsfpZJRwpiHm4Sso1mi+EpRwF7P+W/Tm7I4cRd7X
3F93+iBJNO5YH70NQuDbbQCFYKs03ppqCv/PADyqPVr3Drme+6dH72AUMskL
v7nT+SgBhYb4PpNEa1siP3D/6uhdH3wUQT+gLJju9EOShNyNOHqP3gp4FDs1
zbVmn+K+r3xqcluRvg9b0XrEyNPXGEjL8cX3OeoEp3dRlin4B476+sLRquao
vtxDNPowk0WRi4dSqUVXFp1IuP9l9JHeibR9O0GPEjtS8f5VHg9NQIh8dzOk
+LbDJt3FfGuleOvjt1IbWQeqKY3KVIO7pEUfg1qjuqDou7tyJahVjPrEE2Wd
VUrkNgfU14HW7liZ+nEPo+jTAFR/cf0U9LOA+PVJQzO1uocBnwcA0IzIyIHc
hyP6IiBBeogd6ID6Rq2bZ/24c0T07wBUna5fcqSdAPZTqC8DolaT70r6lrsH
RF8FoKo8HfiYHeXrwJI4QRR0QwDU+uN60tDuIgFkFFEKmNoVQNs6/qSk08sa
86cN7ZKntmWWlHrglmdz5JFbkodgySe0Hwqxyav05BEgewEatdYzU6HVBgAl
e9ZfkWVbUjUUcZNS7RmVGhWbTFRa3ydo4IuGeA0Qz13F2/Rb4pk1ObJ2m9tk
EoqsKV8rsrqNfDK072VDtCsQRZfNFtEWYLMpXxcmP1LbvLY40U206GuGaD0Q
RfdnFlE0u4Ep3+ApX62+MeUVgid1IMPfMJTR2Rvdy1oMbwKGm/LdgTy6RbfI
D9E2r8sRRTa7vDFQK79lKPcIM3cj4A1THi3BjNqNLPKN2uZ3DFG+vsS1tMyR
1R/Y2VaybDv7aDvfN0R7y+3spYU+NIR4Aoc2O1s0eoK6mmp9RWrJded6QyM7
AMJRJfRAL0+qRkPNFhn+sk5/96mh0h+oVJm/BuMvsgQ36dX0uaGcDIVJzsbZ
c3oUZY6oCmTqDMBur9XylVr+y2yxkqq4NZ02GCWoRSNpUOpifDXStFvZ2GYn
+hvTuaFzQ+eGzg2dGzo30Iaoy/8DGQI6rQ==\
\>"]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"3", "E15", "\:3000", 
  "\:5c0f\:753a\:4fca\:6a39"}], "\[IndentingNewLine]", 
 RowBox[{"\:3042\:308b\:4f1a\:793e\:306e\:30b9\:30de", "\:30fc", 
  RowBox[{
  "\:30c8\:30d5\:30a9\:30f3\:3092\:30d1\:30af\:3063\:3066\:4f5c\:3063\:3066\
\:307f\:307e\:3057\:305f", "..."}], "\:3002", "\:7b11"}]}], "Input",
 CellChangeTimes->{{3.5922602378295145`*^9, 3.592260317533747*^9}, {
  3.5922603534462595`*^9, 3.592260396679364*^9}, {3.59226045172933*^9, 
  3.5922604519373455`*^9}, {3.59226049396142*^9, 3.592260571963439*^9}}]
},
WindowSize->{1008, 632},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (2011\:5e7410\:670815\
\:65e5)",
StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", 
  CharacterEncoding -> "ShiftJIS"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[1235, 30, 346, 8, 56, "Input"],
Cell[1584, 40, 585, 15, 41, "Input"],
Cell[2172, 57, 405, 12, 41, "Input"],
Cell[2580, 71, 420, 13, 41, "Input"],
Cell[3003, 86, 395, 12, 41, "Input"],
Cell[3401, 100, 420, 13, 41, "Input"],
Cell[3824, 115, 396, 12, 41, "Input"],
Cell[4223, 129, 520, 15, 41, "Input"],
Cell[4746, 146, 519, 15, 41, "Input"],
Cell[5268, 163, 414, 12, 41, "Input"],
Cell[5685, 177, 489, 14, 41, "Input"],
Cell[6177, 193, 412, 12, 41, "Input"],
Cell[6592, 207, 448, 13, 41, "Input"],
Cell[7043, 222, 445, 13, 41, "Input"],
Cell[7491, 237, 449, 13, 41, "Input"],
Cell[7943, 252, 449, 13, 41, "Input"],
Cell[8395, 267, 540, 17, 41, "Input"],
Cell[8938, 286, 522, 15, 41, "Input"],
Cell[9463, 303, 523, 15, 41, "Input"],
Cell[9989, 320, 437, 13, 41, "Input"],
Cell[10429, 335, 424, 13, 41, "Input"],
Cell[10856, 350, 495, 14, 41, "Input"],
Cell[11354, 366, 499, 14, 41, "Input"],
Cell[11856, 382, 501, 14, 41, "Input"],
Cell[12360, 398, 495, 14, 41, "Input"],
Cell[12858, 414, 526, 16, 41, "Input"],
Cell[13387, 432, 568, 15, 41, "Input"],
Cell[13958, 449, 498, 14, 41, "Input"],
Cell[14459, 465, 530, 16, 41, "Input"],
Cell[CellGroupData[{
Cell[15014, 485, 506, 8, 82, "Input"],
Cell[15523, 495, 11869, 223, 678, 3450, 83, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[27407, 721, 539, 9, 62, "Input"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature 0upFw1Zxtd0BJAgsJQOgI4lX *)