(* 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[ 30081, 756] NotebookOptionsPosition[ 29271, 717] NotebookOutlinePosition[ 29628, 733] CellTagsIndexPosition[ 29585, 730] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.6212895552831016`*^9, 3.621289568460988*^9}, 3.621289851770559*^9, 3.622505337822158*^9}, EmphasizeSyntaxErrors->True], Cell[BoxData[{ RowBox[{"cre1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "42"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "55.4", ",", "42"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "55.4", ",", "0"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{"cre2", "=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "55.4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "55.4", ",", "0"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.6212898744705715`*^9, 3.621289937571106*^9}, { 3.6212899681744003`*^9, 3.6212899845015593`*^9}, {3.6212901025365477`*^9, 3.6212901636670976`*^9}, {3.621290448732136*^9, 3.621290502092806*^9}, { 3.6212905638201485`*^9, 3.6212906009927673`*^9}, {3.6212908251921844`*^9, 3.6212908517688427`*^9}, {3.621290922589924*^9, 3.62129092565423*^9}, { 3.6212910178074446`*^9, 3.621291142308893*^9}, {3.6212911860632687`*^9, 3.6212912283104925`*^9}, {3.621291263752036*^9, 3.6212915118304358`*^9}, { 3.6212915648399153`*^9, 3.621291565822728*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.6224994855735292`*^9, 3.622499485591571*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.6224994846714597`*^9, 3.622499484689501*^9}}], Cell[BoxData[ RowBox[{"cre3", "=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "42"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6212915350747337`*^9, 3.6212915751360474`*^9}, { 3.6212916234498243`*^9, 3.6212916241986294`*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.6224994836611414`*^9, 3.622499483679182*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.621291943454505*^9, 3.621291943470105*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"cre4", "=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "55.4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "55.4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "55.4", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "55.4", ",", "42"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.621291644853162*^9, 3.621291701855927*^9}, { 3.6212917492178307`*^9, 3.621291814239047*^9}, {3.6212918538945017`*^9, 3.621291880929475*^9}, {3.621291927012105*^9, 3.621291947448105*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.622499482151677*^9, 3.6224994821697187`*^9}}], Cell[BoxData[ RowBox[{"cre5", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"225", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "55.4", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "55.4", ",", "0"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"cre5", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "42"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "55.4", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "55.4", ",", "42"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6212945491443543`*^9, 3.6212946281603804`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"cre6", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"225", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "55.4", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"225", ",", "55.4", ",", "0"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.6212946509837656`*^9, 3.6212946809209332`*^9}, { 3.6212947195001326`*^9, 3.621294724819767*^9}}], Cell[BoxData[ RowBox[{"hon1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", "0", ",", "167"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0", ",", "187"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.621292322534505*^9, 3.621292329289305*^9}, { 3.6212926574236603`*^9, 3.6212926861118765`*^9}, {3.6212927608041973`*^9, 3.621292826074179*^9}, {3.6212928665403194`*^9, 3.6212928854785986`*^9}, { 3.6212929209839706`*^9, 3.621292934743082*^9}, {3.6212929910746436`*^9, 3.6212929967062435`*^9}, {3.6212930327890434`*^9, 3.6212930439898434`*^9}, { 3.6212930780446434`*^9, 3.6212931161242437`*^9}, {3.6212931560290437`*^9, 3.6212931706930437`*^9}, {3.621293278395444*^9, 3.6212932962418437`*^9}, { 3.6212933806846437`*^9, 3.621293404193844*^9}, {3.6212935012882433`*^9, 3.6212935016782436`*^9}, {3.6212944992074738`*^9, 3.6212945048860197`*^9}}], Cell[BoxData[ RowBox[{"hon2", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "55.4", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", "55.4", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", "55.4", ",", "167"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "55.4", ",", "187"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.621292340630505*^9, 3.6212923423152475`*^9}, { 3.621292969671444*^9, 3.6212929756618433`*^9}, {3.6212932445434437`*^9, 3.6212932663522434`*^9}, {3.6212935213966436`*^9, 3.6212935634542437`*^9}, { 3.6212944881935916`*^9, 3.6212944918128843`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"hon3", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0", ",", "187"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "55.4", ",", "187"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "55.4", ",", "40"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.6212923468234744`*^9, 3.6212923523300624`*^9}, { 3.6212935857778435`*^9, 3.621293643950244*^9}, {3.6212936772406435`*^9, 3.6212937341026435`*^9}, {3.6212937684226437`*^9, 3.621293774038644*^9}, { 3.621294468193879*^9, 3.621294483388668*^9}, {3.622504411062542*^9, 3.622504420672265*^9}}], Cell[BoxData[ RowBox[{"hon4", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"210", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", "0", ",", "167"}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", "55.4", ",", "167"}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", "55.4", ",", "20"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6212923574310665`*^9, 3.6212923591470003`*^9}, { 3.6212937949738436`*^9, 3.6212938657822437`*^9}, {3.621294014294244*^9, 3.6212940257290435`*^9}}], Cell[BoxData[ RowBox[{"hon5", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0", ",", "187"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "55.4", ",", "187"}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", "55.4", ",", "167"}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", "0", ",", "167"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6212923620016904`*^9, 3.6212923648095827`*^9}, { 3.621294146941044*^9, 3.6212942541754436`*^9}, {3.6212943447646437`*^9, 3.6212943507706437`*^9}, {3.6212943835306435`*^9, 3.6212944625309334`*^9}}], Cell[BoxData[ RowBox[{"hon6", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"159", ",", "0", ",", "172"}], "}"}], ",", RowBox[{"{", RowBox[{"159", ",", "55.4", ",", "172"}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", "55.4", ",", "167"}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", "0", ",", "167"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.622499668586856*^9, 3.622499687450818*^9}, { 3.6224998004254045`*^9, 3.6224998191717763`*^9}, {3.622499870016025*^9, 3.6224998763369207`*^9}}], Cell[BoxData[ RowBox[{"dengen", "=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "48", ",", "168"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "30", ",", "175"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6212947535083504`*^9, 3.621294765458027*^9}, { 3.6212949085161486`*^9, 3.6212949225562387`*^9}, {3.621294966252119*^9, 3.6212950464362636`*^9}, {3.621295083392664*^9, 3.6212951257934637`*^9}}], Cell[BoxData[ RowBox[{"reset", "=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "48", ",", "161"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "30", ",", "154"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6212919535165052`*^9, 3.6212919535321054`*^9}, { 3.6212951396150637`*^9, 3.621295175058264*^9}}], Cell[BoxData[ RowBox[{"eject", "=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "48", ",", "57"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "30", ",", "50"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6212952178646636`*^9, 3.621295239533064*^9}}], Cell[BoxData[ RowBox[{"sd", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "48", ",", "84"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "30", ",", "140"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.621295274087064*^9, 3.621295305240264*^9}}], Cell[BoxData[ RowBox[{"disk", "=", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "20", ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "10", ",", "175"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.621295348530264*^9, 3.62129540877763*^9}, { 3.6212954720992475`*^9, 3.6212954726296577`*^9}}], Cell[BoxData[ RowBox[{"usbl", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"210.005", ",", "27", ",", "157"}], "}"}], ",", RowBox[{"{", RowBox[{"210.005", ",", "37", ",", "157"}], "}"}], ",", RowBox[{"{", RowBox[{"210.005", ",", "37", ",", "137"}], "}"}], ",", RowBox[{"{", RowBox[{"210.005", ",", "27", ",", "137"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.622499970387216*^9, 3.622499972247588*^9}, { 3.6225002259103107`*^9, 3.6225002349077487`*^9}, {3.62250028272853*^9, 3.622500390956352*^9}, {3.62250042854211*^9, 3.622500461103366*^9}, { 3.6225006415574093`*^9, 3.622500657574011*^9}, {3.622500796625148*^9, 3.622500804815358*^9}}], Cell[BoxData[ RowBox[{"usbr", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"210.005", ",", "40", ",", "157"}], "}"}], ",", RowBox[{"{", RowBox[{"210.005", ",", "50", ",", "157"}], "}"}], ",", RowBox[{"{", RowBox[{"210.005", ",", "50", ",", "137"}], "}"}], ",", RowBox[{"{", RowBox[{"210.005", ",", "40", ",", "137"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.622500464382694*^9, 3.62250049334359*^9}, { 3.6225005344016953`*^9, 3.622500541713426*^9}, {3.6225006003882933`*^9, 3.622500626868941*^9}, {3.622500813348777*^9, 3.622500820696565*^9}}], Cell[BoxData[ RowBox[{"usbmawari", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"210.0001", ",", "25", ",", "157"}], "}"}], ",", RowBox[{"{", RowBox[{"210.0001", ",", "52", ",", "157"}], "}"}], ",", RowBox[{"{", RowBox[{"210.0001", ",", "52", ",", "137"}], "}"}], ",", RowBox[{"{", RowBox[{"210.0001", ",", "25", ",", "137"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6225006964538984`*^9, 3.622500786313284*^9}}], Cell[BoxData[ RowBox[{"tuuki", "=", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Cuboid", "\[IndentingNewLine]", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"210.005", ",", RowBox[{"2.7", "+", RowBox[{"10", "n"}]}], ",", RowBox[{"118", "-", RowBox[{"10", "m"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"210.005", ",", RowBox[{"10.7", "+", RowBox[{"10", "n"}]}], ",", RowBox[{"110", "-", RowBox[{"10", "m"}]}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "4"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.622500898213667*^9, 3.6225009001948795`*^9}, { 3.6225009701463003`*^9, 3.622501161488886*^9}, 3.6225012108339005`*^9, { 3.6225012666060395`*^9, 3.622501467193411*^9}, {3.622501540779555*^9, 3.6225015443364005`*^9}, {3.622501574959467*^9, 3.6225016598552113`*^9}, { 3.622501699448265*^9, 3.6225017017258797`*^9}, {3.6225018329695206`*^9, 3.622501885978464*^9}, {3.6225019209848638`*^9, 3.62250199004634*^9}, { 3.622502080700265*^9, 3.622502094397416*^9}, {3.622502186626981*^9, 3.622502195846817*^9}, {3.622502293068245*^9, 3.6225023727691555`*^9}, { 3.6225024971175528`*^9, 3.622502553948717*^9}, {3.622502726652628*^9, 3.6225027687728977`*^9}, {3.6225028030151176`*^9, 3.6225028993924065`*^9}, {3.6225030020405393`*^9, 3.6225030524603853`*^9}, {3.6225030824907703`*^9, 3.6225032923758574`*^9}, {3.622503346461404*^9, 3.622503365961529*^9}}], Cell[BoxData[ RowBox[{"sekigai", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"210.001", ",", "20", ",", "45"}], "}"}], ",", RowBox[{"{", RowBox[{"210.001", ",", "20", ",", "52"}], "}"}], ",", RowBox[{"{", RowBox[{"210.001", ",", "22.5", ",", "55"}], "}"}], ",", RowBox[{"{", RowBox[{"210.001", ",", "25", ",", "55"}], "}"}], ",", RowBox[{"{", RowBox[{"210.001", ",", "25", ",", "45"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6225034408264084`*^9, 3.622503503882013*^9}, { 3.6225035545667377`*^9, 3.6225035833177223`*^9}, {3.6225036706309757`*^9, 3.6225036846553755`*^9}, {3.6225037154497757`*^9, 3.622503787724576*^9}, { 3.622504010804576*^9, 3.622504015110176*^9}}], Cell[BoxData[ RowBox[{"dengencoad", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"210.001", ",", "30", ",", "45"}], "}"}], ",", RowBox[{"{", RowBox[{"210.001", ",", "30", ",", "52"}], "}"}], ",", RowBox[{"{", RowBox[{"210.001", ",", "35", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"210.001", ",", "40", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"210.001", ",", "40", ",", "45"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.622503827598176*^9, 3.6225038403121758`*^9}, { 3.6225038755837755`*^9, 3.6225039278437757`*^9}, {3.622503961570976*^9, 3.622504003675376*^9}}], Cell[BoxData[ RowBox[{"eizou", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"210.001", ",", "20", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"210.001", ",", "20", ",", "35"}], "}"}], ",", RowBox[{"{", RowBox[{"210.001", ",", "30", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"210.001", ",", "40", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"210.001", ",", "40", ",", "30"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{ 3.622502162321557*^9, 3.622503410265813*^9, {3.6225040343295565`*^9, 3.6225042062459645`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ "cre1", ",", "cre2", ",", "cre3", ",", "cre4", ",", "cre5", ",", "cre6", ",", "hon1", ",", "hon2", ",", "hon3", ",", "hon4", ",", "hon5", ",", "hon6", ",", "dengen", ",", "reset", ",", "eject", ",", "sd", ",", "disk", ",", "usbl", ",", "usbr", ",", "usbmawari", ",", "tuuki", ",", "sekigai", ",", "dengencoad", ",", "eizou"}], "]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/UqYb5fA71eOiSl7d4PosMxfx0H0rWvqJ0B0Bcf7 y2A6PvgKiI6y+/8MRF+J/vAcRG+KvlsoCKQttlkUgei8xP5FIHqLZcJSEM1y nP8AiN5r5Aim/f9VXAXRBlxTroHotZ4Xn4Locxl7n4FogZOTxIRA9kUtEAfR MRbffEA08wEZPxD9ZfHUShBd1nYXTP+aPKUTRAv8Owmm/UNrJ4Lo09uOg+kV OWdmguj3996C6eQ6/uUg+pF01SoQbcF7vSHu7yvHPiXTJhAtF39uLYh2OBG2 DkT/8Nr3F0Rvdn4EpnVeWUrEA+lVfvJSIPrd3KnGIHrnc2kTEL1lSU1BApBO mrIETB+67bwORDu6VYDp5E079oPoU+0KB0D0g0ds90B0RKARmAYA5gThuA== "]], Cell[BoxData[ Graphics3DBox[{ {GrayLevel[1], Polygon3DBox[{{0, 0, 0}, {0, 0, 42}, {0, 55.4, 42}, {0, 55.4, 0}}]}, {GrayLevel[1], Polygon3DBox[{{0, 0, 0}, {225, 0, 0}, {225, 55.4, 0}, {0, 55.4, 0}}]}, {GrayLevel[1], Polygon3DBox[{{0, 0, 0}, {225, 0, 0}, {225, 0, 20}, {0, 0, 42}}]}, {GrayLevel[1], Polygon3DBox[{{0, 55.4, 0}, {225, 55.4, 0}, {225, 55.4, 20}, { 0, 55.4, 42}}]}, {GrayLevel[1], Polygon3DBox[{{0, 0, 42}, {225, 0, 20}, {225, 55.4, 20}, {0, 55.4, 42}}]}, {GrayLevel[1], Polygon3DBox[{{225, 0, 0}, {225, 0, 20}, {225, 55.4, 20}, { 225, 55.4, 0}}]}, {GrayLevel[1], Polygon3DBox[{{5, 0, 40}, {210, 0, 20}, {210, 0, 167}, {5, 0, 187}}]}, {GrayLevel[1], Polygon3DBox[{{5, 55.4, 40}, {210, 55.4, 20}, {210, 55.4, 167}, { 5, 55.4, 187}}]}, {GrayLevel[1], Polygon3DBox[{{5, 0, 40}, {5, 0, 187}, {5, 55.4, 187}, {5, 55.4, 40}}]}, {GrayLevel[1], Polygon3DBox[{{210, 0, 20}, {210, 0, 167}, {210, 55.4, 167}, { 210, 55.4, 20}}]}, {GrayLevel[1], Polygon3DBox[{{5, 0, 187}, {5, 55.4, 187}, {210, 55.4, 167}, {210, 0, 167}}]}, {GrayLevel[1], Polygon3DBox[{{159, 0, 172}, {159, 55.4, 172}, {210, 55.4, 167}, {210, 0, 167}}]}, {GrayLevel[1], CuboidBox[{5, 48, 168}, {4, 30, 175}]}, {GrayLevel[1], CuboidBox[{5, 48, 161}, {4, 30, 154}]}, {GrayLevel[1], CuboidBox[{5, 48, 57}, {4, 30, 50}]}, {GrayLevel[1], CuboidBox[{5, 48, 84}, {4, 30, 140}]}, {GrayLevel[0], CuboidBox[{5, 20, 50}, {4, 10, 175}]}, {GrayLevel[0], Polygon3DBox[{{210.005, 27, 157}, {210.005, 37, 157}, { 210.005, 37, 137}, {210.005, 27, 137}}]}, {GrayLevel[0], Polygon3DBox[{{210.005, 40, 157}, {210.005, 50, 157}, { 210.005, 50, 137}, {210.005, 40, 137}}]}, {GrayLevel[0.5], Polygon3DBox[{{210.0001, 25, 157}, {210.0001, 52, 157}, { 210.0001, 52, 137}, {210.0001, 25, 137}}]}, {{ {GrayLevel[0], CuboidBox[{210.005, 2.7, 118}, {210.005, 10.7, 110}]}, {GrayLevel[0], CuboidBox[{210.005, 2.7, 108}, {210.005, 10.7, 100}]}, {GrayLevel[0], CuboidBox[{210.005, 2.7, 98}, {210.005, 10.7, 90}]}, {GrayLevel[0], CuboidBox[{210.005, 2.7, 88}, {210.005, 10.7, 80}]}, {GrayLevel[0], CuboidBox[{210.005, 2.7, 78}, {210.005, 10.7, 70}]}}, { {GrayLevel[0], CuboidBox[{210.005, 12.7, 118}, {210.005, 20.7, 110}]}, {GrayLevel[0], CuboidBox[{210.005, 12.7, 108}, {210.005, 20.7, 100}]}, {GrayLevel[0], CuboidBox[{210.005, 12.7, 98}, {210.005, 20.7, 90}]}, {GrayLevel[0], CuboidBox[{210.005, 12.7, 88}, {210.005, 20.7, 80}]}, {GrayLevel[0], CuboidBox[{210.005, 12.7, 78}, {210.005, 20.7, 70}]}}, { {GrayLevel[0], CuboidBox[{210.005, 22.7, 118}, {210.005, 30.7, 110}]}, {GrayLevel[0], CuboidBox[{210.005, 22.7, 108}, {210.005, 30.7, 100}]}, {GrayLevel[0], CuboidBox[{210.005, 22.7, 98}, {210.005, 30.7, 90}]}, {GrayLevel[0], CuboidBox[{210.005, 22.7, 88}, {210.005, 30.7, 80}]}, {GrayLevel[0], CuboidBox[{210.005, 22.7, 78}, {210.005, 30.7, 70}]}}, { {GrayLevel[0], CuboidBox[{210.005, 32.7, 118}, {210.005, 40.7, 110}]}, {GrayLevel[0], CuboidBox[{210.005, 32.7, 108}, {210.005, 40.7, 100}]}, {GrayLevel[0], CuboidBox[{210.005, 32.7, 98}, {210.005, 40.7, 90}]}, {GrayLevel[0], CuboidBox[{210.005, 32.7, 88}, {210.005, 40.7, 80}]}, {GrayLevel[0], CuboidBox[{210.005, 32.7, 78}, {210.005, 40.7, 70}]}}, { {GrayLevel[0], CuboidBox[{210.005, 42.7, 118}, {210.005, 50.7, 110}]}, {GrayLevel[0], CuboidBox[{210.005, 42.7, 108}, {210.005, 50.7, 100}]}, {GrayLevel[0], CuboidBox[{210.005, 42.7, 98}, {210.005, 50.7, 90}]}, {GrayLevel[0], CuboidBox[{210.005, 42.7, 88}, {210.005, 50.7, 80}]}, {GrayLevel[0], CuboidBox[{210.005, 42.7, 78}, {210.005, 50.7, 70}]}}}, {RGBColor[1, 0.5, 0], Polygon3DBox[{{210.001, 20, 45}, {210.001, 20, 52}, {210.001, 22.5, 55}, { 210.001, 25, 55}, {210.001, 25, 45}}]}, {GrayLevel[0], Polygon3DBox[{{210.001, 30, 45}, {210.001, 30, 52}, {210.001, 35, 60}, { 210.001, 40, 60}, {210.001, 40, 45}}]}, {GrayLevel[0], Polygon3DBox[{{210.001, 20, 30}, {210.001, 20, 35}, {210.001, 30, 40}, { 210.001, 40, 40}, {210.001, 40, 30}}]}}, AutomaticImageSize->True, ImageSize->{462.9168625607798, 264.2992154392693}, ViewPoint->{-1.8828042848644295`, -1.6337229421256199`, 2.288230183628511}, ViewVertical->{-0.35058711527234643`, 1.540152922560488, 1.0303294561535528`}]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{ 3.622504021350176*^9, {3.6225041781964455`*^9, 3.622504208866832*^9}, 3.6225053764948425`*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.622505381736476*^9, 3.6225053841232915`*^9}}, NumberMarks->False], Cell[BoxData[""], "Input", CellChangeTimes->{{3.6225055339466515`*^9, 3.6225055355846624`*^9}}], Cell[BoxData[ RowBox[{"Wii\:3067\:3059", "\:3002", "\:30af\:30ec\:30a4\:30c9\:30eb\:90e8\:5206\:304c\:5c11\:3057\:5927\:5909\ \:3067\:3057\:305f", "\:3002"}]], "Input", CellChangeTimes->{{3.622505380628869*^9, 3.6225054529353323`*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.622504017777776*^9, 3.622504020070976*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.6225040194313755`*^9, 3.6225040194469757`*^9}}] }, WindowSize->{624, 868}, WindowMargins->{{Automatic, 232}, {-22, Automatic}}, 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, 226, 4, 72, "Input"], Cell[1692, 39, 1834, 42, 272, "Input"], Cell[3529, 83, 94, 1, 31, "Input"], Cell[3626, 86, 94, 1, 31, "Input"], Cell[3723, 89, 756, 18, 132, "Input"], Cell[4482, 109, 94, 1, 31, "Input"], Cell[4579, 112, 92, 1, 31, "Input"], Cell[4674, 115, 913, 21, 152, "Input"], Cell[5590, 138, 94, 1, 31, "Input"], Cell[5687, 141, 597, 16, 132, "Input"], Cell[6287, 159, 665, 17, 132, "Input"], Cell[6955, 178, 772, 20, 152, "Input"], Cell[7730, 200, 1273, 25, 132, "Input"], Cell[9006, 227, 878, 20, 132, "Input"], Cell[9887, 249, 967, 23, 152, "Input"], Cell[10857, 274, 775, 19, 132, "Input"], Cell[11635, 295, 823, 19, 132, "Input"], Cell[12461, 316, 773, 19, 132, "Input"], Cell[13237, 337, 641, 14, 92, "Input"], Cell[13881, 353, 541, 13, 92, "Input"], Cell[14425, 368, 486, 12, 92, "Input"], Cell[14914, 382, 459, 12, 72, "Input"], Cell[15376, 396, 536, 13, 92, "Input"], Cell[15915, 411, 929, 21, 132, "Input"], Cell[16847, 434, 830, 19, 132, "Input"], Cell[17680, 455, 693, 17, 132, "Input"], Cell[18376, 474, 1917, 39, 192, "Input"], Cell[20296, 515, 977, 22, 132, "Input"], Cell[21276, 539, 876, 21, 132, "Input"], Cell[22155, 562, 822, 21, 132, "Input"], Cell[CellGroupData[{ Cell[23002, 587, 880, 17, 72, "Input"], Cell[23885, 606, 4716, 89, 279, "Output"] }, Open ]], Cell[28616, 698, 115, 2, 31, "Input"], Cell[28734, 702, 96, 1, 31, "Input"], Cell[28833, 705, 240, 4, 31, "Input"], Cell[29076, 711, 92, 1, 31, "Input"], Cell[29171, 714, 96, 1, 31, "Input"] } ] *) (* End of internal cache information *) (* NotebookSignature xvTI@LPLFgviDBKQ2GfGSRwg *)