(* 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[ 11378, 372] NotebookOptionsPosition[ 11497, 357] NotebookOutlinePosition[ 11852, 373] CellTagsIndexPosition[ 11809, 370] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\:7ae5\:5fc3\:3092\:5fd8\:308c\:305a\:306b\:3002", "Title", CellChangeTimes->{{3.591051201274372*^9, 3.591051202007799*^9}, { 3.5910512846398783`*^9, 3.5910512960895367`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"a1", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "20", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "20", ",", "60"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a2", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "4"}], ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", RowBox[{"-", "4"}], ",", "60"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a3", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "4"}], ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", RowBox[{"-", "4"}], ",", "40"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a4", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "20", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "20", ",", "40"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a5", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", RowBox[{"-", "4"}], ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "20", ",", "50"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a6", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "12", ",", "10"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a7", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "5", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "12", ",", "20"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a8", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "5", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "12", ",", "80"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a9", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "5", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "12", ",", "90"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a10", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "5", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "5", ",", "90"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a11", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "12", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "12", ",", "90"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a12", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "5", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "5", ",", "80"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a13", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "5", ",", "10"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a14", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "12", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "12", ",", "90"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a15", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "12", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "12", ",", "80"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a16", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "5", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "5", ",", "20"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a17", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "12", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "12", ",", "10"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a18", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "12", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "12", ",", "20"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a19", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "20", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "20", ",", "40"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a20", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", RowBox[{"-", "4"}], ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", RowBox[{"-", "4"}], ",", "40"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n"}], "Input", CellChangeTimes->{{3.5898449834181824`*^9, 3.589844983421112*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "1", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "16", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"13", ",", "5", ",", "95"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "12", ",", "97"}], "}"}]}], "]"}], ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"13", ",", "5", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "12", ",", "3"}], "}"}]}], "]"}], ",", "Red", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"13", ",", "3", ",", "45"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "14", ",", "55"}], "}"}]}], "]"}], ",", "Blue", ",", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "26", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "10"}], ",", "102"}], "}"}]}], "}"}], "]"}], ",", "Red", ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.02", "]"}], ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a19", ",", "a20"}], "}"}], ",", "Yellow", ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", "a6", ",", "a7", ",", "a8", ",", "a9", ",", "a10", ",", "a11", ",", "a12", ",", "a13", ",", "a14", ",", "a15", ",", "a16", ",", "a17", ",", "a18"}], "}"}]}], "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{{3.589844991459507*^9, 3.589845007482583*^9}}], Cell[BoxData[ Graphics3DBox[{CuboidBox[{15, 1, 100}, {13, 16, 0}], CuboidBox[{13, 5, 95}, {9, 12, 97}], CuboidBox[{13, 5, 5}, {9, 12, 3}], {RGBColor[1, 0, 0], CuboidBox[{13, 3, 45}, {11, 14, 55}]}, {RGBColor[0, 0, 1], CuboidBox[{{-2, 26, -2}, {0, -10, 102}}]}, {RGBColor[1, 0, 0], {Thickness[0.02], Line3DBox[{{0, 20, 60}, {11, 20, 60}}], Line3DBox[{{0, -4, 60}, {11, -4, 60}}], Line3DBox[{{0, -4, 40}, {11, -4, 40}}], Line3DBox[{{0, 20, 40}, {11, 20, 40}}], Line3DBox[{{11, -4, 50}, {11, 20, 50}}], Line3DBox[{{11, 20, 60}, {11, 20, 40}}], Line3DBox[{{11, -4, 60}, {11, -4, 40}}]}}, {RGBColor[1, 1, 0], {Thickness[0.01], Line3DBox[{{17, 5, 10}, {17, 12, 10}}], Line3DBox[{{17, 5, 20}, {17, 12, 20}}], Line3DBox[{{17, 5, 80}, {17, 12, 80}}], Line3DBox[{{17, 5, 90}, {17, 12, 90}}], Line3DBox[{{17, 5, 90}, {14, 5, 90}}], Line3DBox[{{17, 12, 90}, {14, 12, 90}}], Line3DBox[{{17, 5, 80}, {14, 5, 80}}], Line3DBox[{{17, 5, 10}, {14, 5, 10}}], Line3DBox[{{17, 12, 90}, {14, 12, 90}}], Line3DBox[{{17, 12, 80}, {14, 12, 80}}], Line3DBox[{{17, 5, 20}, {14, 5, 20}}], Line3DBox[{{17, 12, 10}, {14, 12, 10}}], Line3DBox[{{17, 12, 20}, {14, 12, 20}}]}}}, AutomaticImageSize->True, Boxed->False, ImageSize->{397.5287410299623, 108.87397650515166`}, ViewPoint->{0.6561057076116198, -2.664615787248334, -1.9797343273243508`}, ViewVertical->{ 4.926600001476733, -0.8155628632536697, -0.3319751103519656}]], "Output", CellChangeTimes->{{3.5898449922212553`*^9, 3.589845008139835*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ 3 - K\:3000\:91d1\:8ce2\:624d \ \>", "Subsubtitle", CellChangeTimes->{{3.5910513174721937`*^9, 3.5910513293163986`*^9}}], Cell[BoxData[ RowBox[{"\:3042\:306e\:6709\:540d\:306a\:516c\:5712\:306e\:904a\:5177\:3092\ \:4f5c\:3063\:3066\:307f\:307e\:3057\:305f", "\:3002", "\:7ae5\:5fc3\:3092\:601d\:3044\:51fa\:3057\:3066\:307f\:3093\:306a\:3067\ \:904a\:3093\:3067\:307f\:308b\:306e\:3082\:307e\:305f\:3088\:304d\:3053\:3068\ \:304b\:306a\:3068\:601d\:3044\:307e\:3059", "\:3002", "\:541b\:3068\:50d5\:3068\:3067\:30ec\:30c3\:30c4\:30b7", "\:30fc", "\:30bd", "\:30fc", "\:30b2", "\:30fc", "\:30e0", "\:ff01"}]], "Input", CellChangeTimes->{{3.591051360643773*^9, 3.5910513939272776`*^9}}] }, Open ]] }, Open ]] }, WindowSize->{707, 504}, WindowMargins->{{86, Automatic}, {Automatic, 0}}, FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (2011\:5e7410\:670815\ \:65e5)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1257, 32, 184, 2, 83, "Title"], Cell[1444, 36, 5722, 206, 432, "Input"], Cell[CellGroupData[{ Cell[7191, 246, 1908, 53, 132, "Input"], Cell[9102, 301, 1623, 33, 124, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10762, 339, 131, 4, 47, "Subsubtitle"], Cell[10896, 345, 573, 8, 72, "Input"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature zvDK8hps1#UapBgZv6oL6iuw *)