(* 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[     16785,        421]
NotebookOptionsPosition[     16723,        398]
NotebookOutlinePosition[     17205,        419]
CellTagsIndexPosition[     17162,        416]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["", "Subtitle",
 CellChangeTimes->{{3.5113146463811073`*^9, 3.5113146600623074`*^9}, 
   3.622503660870175*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6212936580395184`*^9, 3.6212937239031405`*^9}, 
   3.6212937876917496`*^9, {3.6212939279513497`*^9, 3.62129397230215*^9}, {
   3.6212940131897497`*^9, 3.6212940146249495`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"hk", "=", 
   RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"Orange", ",", 
       RowBox[{"Cylinder", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", 
            RowBox[{"-", "0.5"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0.02"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", " ", "Black", ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "0.6"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6212929587151003`*^9, 3.6212930562000575`*^9}, {
   3.6212931423900576`*^9, 3.621293208862664*^9}, {3.621293262636898*^9, 
   3.6212932702654448`*^9}, {3.621293317050744*^9, 3.621293354819071*^9}, {
   3.621293397704295*^9, 3.6212934008711567`*^9}, {3.6212934513225265`*^9, 
   3.62129356000849*^9}, {3.621293591910694*^9, 3.6212936065279884`*^9}, {
   3.6212936390073967`*^9, 3.6212936521738806`*^9}, {3.6212938162865496`*^9, 
   3.62129382904735*^9}, 3.6212939754221497`*^9, {3.6212940177761497`*^9, 
   3.62129408117455*^9}, {3.6212941797041497`*^9, 3.6212942007954874`*^9}, {
   3.6212943039758716`*^9, 3.621294356970091*^9}, {3.621294402257762*^9, 
   3.621294461679304*^9}, {3.6212945001963615`*^9, 3.6212945390874104`*^9}, {
   3.62129475900202*^9, 3.6212947777533407`*^9}, {3.621295185241042*^9, 
   3.621295189297042*^9}, {3.6225013760552826`*^9, 3.622501376226883*^9}, {
   3.6225016775408826`*^9, 3.6225016776812825`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"rh", "=", 
   RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"Yellow", ",", 
       RowBox[{"Cylinder", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "2", ",", 
            RowBox[{"-", "0.5"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "2", ",", "0.02"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", " ", "Black", ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "1", ",", 
            RowBox[{"-", "0.6"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "3", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6212946527185388`*^9, 3.6212947055248775`*^9}, {
  3.621294755725999*^9, 3.6212947887202106`*^9}, {3.6212951818402424`*^9, 
  3.6212951821210423`*^9}, {3.622501373309683*^9, 3.6225013734812827`*^9}, {
  3.6225016744520826`*^9, 3.622501674608083*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"us", "=", 
   RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"Blue", ",", 
       RowBox[{"Cylinder", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", "4", ",", 
            RowBox[{"-", "0.5"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "4", ",", "0.02"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", " ", "Black", ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3", ",", "3", ",", 
            RowBox[{"-", "0.6"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5", ",", "5", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.621294808189042*^9, 3.621294877390642*^9}, {
  3.6212951152594423`*^9, 3.6212951159458423`*^9}, {3.6225013704236827`*^9, 
  3.6225013706108828`*^9}, {3.6225016713632827`*^9, 3.6225016715036826`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ea", "=", 
   RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"LightBlue", ",", 
       RowBox[{"Cylinder", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "6", ",", 
            RowBox[{"-", "0.5"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "6", ",", "0.02"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", " ", "Black", ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"5", ",", "5", ",", 
            RowBox[{"-", "0.6"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"7", ",", "7", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6212949001042423`*^9, 3.6212949424114423`*^9}, {
   3.621295032329842*^9, 3.6212950483354425`*^9}, {3.6212950882714424`*^9, 
   3.621295098208642*^9}, 3.6212951617630424`*^9, {3.6225013652600822`*^9, 
   3.6225013653692827`*^9}, {3.6225016687580824`*^9, 3.6225016688516827`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"hk2", "=", 
   RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"Green", ",", 
       RowBox[{"Cylinder", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"8", ",", "8", ",", 
            RowBox[{"-", "0.5"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "8", ",", "0.02"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", " ", "Black", ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"7", ",", "7", ",", 
            RowBox[{"-", "0.6"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "9", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.621295214257229*^9, 3.621295299918476*^9}, {
  3.6225013569608827`*^9, 3.6225013571012826`*^9}, {3.6225016652792826`*^9, 
  3.6225016653884826`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"km", "=", 
   RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"White", ",", 
       RowBox[{"Cylinder", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "3", ",", 
            RowBox[{"-", "0.5"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "3", ",", "0.02"}], "}"}]}], "}"}], 
        "]"}], ",", "\[IndentingNewLine]", " ", "Black", ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2", ",", 
            RowBox[{"-", "0.6"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "4", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6224991460885506`*^9, 3.6224991466488304`*^9}, {
  3.6224993644543004`*^9, 3.6224993781040297`*^9}, {3.6224994612996655`*^9, 
  3.6224995365767183`*^9}, {3.6224998402967443`*^9, 3.6225000154052534`*^9}, {
  3.6225000477264853`*^9, 3.6225000526859818`*^9}, {3.6225000904477572`*^9, 
  3.6225001120319157`*^9}, {3.622500149825694*^9, 3.622500176162328*^9}, {
  3.6225004059463043`*^9, 3.622500448730582*^9}, {3.6225005966006155`*^9, 
  3.6225006093770976`*^9}, {3.6225006449297256`*^9, 3.622500673633909*^9}, {
  3.6225007111208825`*^9, 3.622500888726883*^9}, {3.6225009919520826`*^9, 
  3.6225010579088826`*^9}, {3.622501351766083*^9, 3.6225013519064827`*^9}, {
  3.622501661160883*^9, 3.6225016612544823`*^9}}],

Cell["\<\
mn = Graphics3D[
{
    Red, Cylinder[{{1, 5, -0.5}, {1, 5, 0.02}}],
    Black, Cuboid[{{0, 4, -0.6}, {2, 6, 0}}]}, Boxed -> False]; \
\>", "Input",
 CellChangeTimes->{{3.6225010391264825`*^9, 3.6225011633336825`*^9}, {
  3.6225013468676825`*^9, 3.6225013470548825`*^9}, {3.6225016581500826`*^9, 
  3.6225016582592826`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"nt", " ", "=", " ", 
    RowBox[{"Graphics3D", "[", "\n", 
     RowBox[{
      RowBox[{"{", "\n", "    ", 
       RowBox[{"Purple", ",", " ", 
        RowBox[{"Cylinder", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3", ",", " ", "7", ",", " ", 
             RowBox[{"-", "0.5"}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"3", ",", " ", "7", ",", " ", "0.02"}], "}"}]}], "}"}], 
         "]"}], ",", "\n", "    ", "Black", ",", " ", 
        RowBox[{"Cuboid", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", " ", "6", ",", " ", 
             RowBox[{"-", "0.6"}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"4", ",", " ", "8", ",", " ", "0"}], "}"}]}], "}"}], 
         "]"}]}], "}"}], ",", " ", 
      RowBox[{"Boxed", " ", "->", " ", "False"}]}], "]"}]}], ";"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.6225011821316824`*^9, 3.6225012244700823`*^9}, {
  3.6225013366964827`*^9, 3.6225013368056827`*^9}, {3.6225016533608828`*^9, 
  3.6225016534856825`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ny", " ", "=", " ", 
    RowBox[{"Graphics3D", "[", "\n", 
     RowBox[{
      RowBox[{"{", "\n", "    ", 
       RowBox[{"Pink", ",", " ", 
        RowBox[{"Cylinder", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"5", ",", " ", "9", ",", " ", 
             RowBox[{"-", "0.5"}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"5", ",", " ", "9", ",", " ", "0.02"}], "}"}]}], "}"}], 
         "]"}], ",", "\n", "    ", "Black", ",", " ", 
        RowBox[{"Cuboid", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", " ", "8", ",", " ", 
             RowBox[{"-", "0.6"}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"6", ",", " ", "10", ",", " ", "0"}], "}"}]}], "}"}], 
         "]"}]}], "}"}], ",", " ", 
      RowBox[{"Boxed", " ", "->", " ", "False"}]}], "]"}]}], ";"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.6225012354836826`*^9, 3.622501277042083*^9}, {
  3.622501333950883*^9, 3.6225013340756826`*^9}, {3.6225016462940826`*^9, 
  3.6225016464032826`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
  "hk", ",", "rh", ",", "us", ",", "ea", ",", "hk2", ",", "km", ",", "mn", 
   ",", "nt", ",", "ny"}], "]"}]], "Input",
 CellChangeTimes->{{3.6212947099553056`*^9, 3.621294718582161*^9}, {
  3.62129479329104*^9, 3.621294799515442*^9}, {3.621294880994242*^9, 
  3.6212948835214424`*^9}, {3.621295166318242*^9, 3.6212951699374423`*^9}, {
  3.6212952800280933`*^9, 3.621295281728526*^9}, {3.6224995055935225`*^9, 
  3.622499508041012*^9}, {3.6225010651784825`*^9, 3.6225010659584827`*^9}, {
  3.622501168263283*^9, 3.6225011716328826`*^9}, {3.6225012284324827`*^9, 
  3.6225012297272825`*^9}, {3.6225012810356827`*^9, 3.6225012828920827`*^9}}],

Cell[BoxData[
 Graphics3DBox[{{
    {RGBColor[1, 0.5, 0], CylinderBox[{{0, 0, -0.5}, {0, 0, 0.02}}]}, 
    {GrayLevel[0], CuboidBox[{{-1, -1, -0.6}, {1, 1, 0}}]}}, {
    {RGBColor[1, 1, 0], CylinderBox[{{2, 2, -0.5}, {2, 2, 0.02}}]}, 
    {GrayLevel[0], CuboidBox[{{1, 1, -0.6}, {3, 3, 0}}]}}, {
    {RGBColor[0, 0, 1], CylinderBox[{{4, 4, -0.5}, {4, 4, 0.02}}]}, 
    {GrayLevel[0], CuboidBox[{{3, 3, -0.6}, {5, 5, 0}}]}}, {
    {RGBColor[0.87, 0.94, 1], CylinderBox[{{6, 6, -0.5}, {6, 6, 0.02}}]}, 
    {GrayLevel[0], CuboidBox[{{5, 5, -0.6}, {7, 7, 0}}]}}, {
    {RGBColor[0, 1, 0], CylinderBox[{{8, 8, -0.5}, {8, 8, 0.02}}]}, 
    {GrayLevel[0], CuboidBox[{{7, 7, -0.6}, {9, 9, 0}}]}}, {
    {GrayLevel[1], CylinderBox[{{-1, 3, -0.5}, {-1, 3, 0.02}}]}, 
    {GrayLevel[0], CuboidBox[{{-2, 2, -0.6}, {0, 4, 0}}]}}, {
    {RGBColor[1, 0, 0], CylinderBox[{{1, 5, -0.5}, {1, 5, 0.02}}]}, 
    {GrayLevel[0], CuboidBox[{{0, 4, -0.6}, {2, 6, 0}}]}}, {
    {RGBColor[0.5, 0, 0.5], CylinderBox[{{3, 7, -0.5}, {3, 7, 0.02}}]}, 
    {GrayLevel[0], CuboidBox[{{2, 6, -0.6}, {4, 8, 0}}]}}, {
    {RGBColor[1, 0.5, 0.5], CylinderBox[{{5, 9, -0.5}, {5, 9, 0.02}}]}, 
    {GrayLevel[0], CuboidBox[{{4, 8, -0.6}, {6, 10, 0}}]}}},
  AutomaticImageSize->True,
  Boxed->False,
  ImageSize->{383.55733548244024`, 376.38071088362096`},
  ViewAngle->0.3533787693601899,
  ViewCenter->{{0.5, 0.5, 0.5}, {0.5070825873598082, 0.4296522191360832}},
  ViewPoint->{0.10220529410533524`, 0.17221054007174774`, 3.377853994438641},
  ViewVertical->{-0.4145778949901239, 0.6184394395734496, 
   11.844091821366028`}]], "Output",
 CellChangeTimes->{
  3.6212948838022423`*^9, {3.621295170249442*^9, 3.6212951947258425`*^9}, {
   3.6212952826801443`*^9, 3.621295302882533*^9}, 3.6224995099043846`*^9, {
   3.6224995403954816`*^9, 3.622499566767394*^9}, {3.6224998456342783`*^9, 
   3.6224999169654107`*^9}, 3.6224999764863625`*^9, 3.622500018315545*^9, {
   3.622500078105523*^9, 3.622500114860198*^9}, {3.6225001528779993`*^9, 
   3.62250017878459*^9}, {3.622500418035513*^9, 3.6225004509698057`*^9}, 
   3.6225006773779335`*^9, {3.622500714755683*^9, 3.6225008106020823`*^9}, {
   3.6225008445632825`*^9, 3.6225008900060825`*^9}, 3.622501013729683*^9, 
   3.622501066847683*^9, 3.6225011728340826`*^9, 3.6225012305696826`*^9, 
   3.6225012838748827`*^9, 3.6225013401908827`*^9, 3.6225013791752825`*^9, 
   3.6225016812536826`*^9, 3.622503794905945*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"3", "K\:6df1\:7530\:667a\:6a39"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Mu]", "'"}], 
     "s\:306e\:30cf\:30a4\:30ec\:30be\:30d8\:30c3\:30c9\:30db\:30f3\:30a2\
\:30f3\:30d7\:306e\:30c7\:30b6\:30a4\:30f3\:3092\:518d\:73fe\:3057\:307e\:3057\
\:305f"}], "\:3002", "\[IndentingNewLine]", 
    "\:ff11\:3064\:4f5c\:3063\:305f\:3089\:8272\:3068\:5ea7\:6a19\:3092\:5909\
\:3048\:308b\:3060\:3051\:3060\:3063\:305f\:306e\:3067", "\:3001", 
    "\:8272\:4ee5\:5916\:306f\:305d\:3053\:307e\:3067\:82e6\:6226\:3057\:3066\
\:306a\:3044\:3067\:3059", "\:3002", "\[IndentingNewLine]"}]}]}]], "Input",
 CellChangeTimes->{{3.6225038026281433`*^9, 3.6225038243282995`*^9}, {
  3.622503859897211*^9, 3.622503861987665*^9}, {3.6225038921900396`*^9, 
  3.6225038934536715`*^9}, {3.622503936832896*^9, 3.622504069139889*^9}}]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1264, 888},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
ShowSelection->True,
Magnification->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[CellGroupData[{
Cell[1485, 35, 116, 2, 56, "Subtitle"],
Cell[1604, 39, 225, 3, 31, "Input"],
Cell[1832, 44, 1904, 40, 92, "Input"],
Cell[3739, 86, 1165, 29, 92, "Input"],
Cell[4907, 117, 1112, 28, 92, "Input"],
Cell[6022, 147, 1197, 29, 92, "Input"],
Cell[7222, 178, 1064, 28, 92, "Input"],
Cell[8289, 208, 1709, 38, 92, "Input"],
Cell[10001, 248, 333, 8, 82, "Input"],
Cell[10337, 258, 1157, 30, 92, "Input"],
Cell[11497, 290, 1152, 30, 92, "Input"],
Cell[CellGroupData[{
Cell[12674, 324, 688, 11, 31, "Input"],
Cell[13365, 337, 2424, 39, 391, "Output"]
}, Open  ]],
Cell[15804, 379, 903, 16, 112, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature mx0l074Lw@Ug#AKD#ClYHSu8 *)