(* 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[ 41133, 892] NotebookOptionsPosition[ 41286, 879] NotebookOutlinePosition[ 41641, 895] CellTagsIndexPosition[ 41598, 892] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["\:30bf\:30a4\:30e0\:30de\:30b7\:30f3", FontColor->RGBColor[1., 1., 1.], Background->RGBColor[0., 0., 1.]]], "Section", CellChangeTimes->{3.591659516729184*^9}], Cell[BoxData[ RowBox[{"g1", "=", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", "\t", RowBox[{"Blue", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", RowBox[{"-", "1.8"}], ",", RowBox[{"-", "1.7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "3.5", ",", RowBox[{"-", "1.7"}]}], "}"}]}], "}"}], ",", "0.3"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Blue", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.5", ",", RowBox[{"-", "1.8"}], ",", RowBox[{"-", "1.7"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", "3.5", ",", RowBox[{"-", "1.7"}]}], "}"}]}], "}"}], ",", "0.3"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", RowBox[{"-", "1.3"}], ",", RowBox[{"-", "1.7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", RowBox[{"-", "1.3"}], ",", "1"}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", RowBox[{"-", "1.3"}], ",", "0.95"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.5"}], ",", "1.7"}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Red", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "0.5", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", "3", ",", RowBox[{"-", "1.5"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\t", "Red", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "2.5", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", "3", ",", "0.5"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.8", ",", "4", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.8", ",", "5.5", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.8", ",", "5.5", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.8", ",", "4", ",", RowBox[{"-", "1.2"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.8", ",", "4", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.8", ",", "5.5", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.6", ",", "5.5", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.6", ",", "4", ",", RowBox[{"-", "1.2"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.6", ",", "4", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.6", ",", "5.5", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5.5", ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", RowBox[{"-", "1.8"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5.5", ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5.5", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.8", ",", "4", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.8", ",", "4", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.6", ",", "4", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.8", ",", "5.5", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.8", ",", "5.5", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.6", ",", "5.5", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5.5", ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5.5", ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.3", ",", "4.35", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4.35", ",", RowBox[{"-", "1.2"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Red", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4.35", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", "0.15"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.3", ",", "4.75", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4.75", ",", RowBox[{"-", "1.2"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Red", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4.75", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", "0.15"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.3", ",", "5.15", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5.15", ",", RowBox[{"-", "1.2"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Red", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "5.15", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", "0.15"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Blue", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "6", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Yellow", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.5", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "0.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", RowBox[{"-", "0.9"}], ",", RowBox[{"-", "0.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.1", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "0.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.1", ",", RowBox[{"-", "0.9"}], ",", RowBox[{"-", "0.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.7", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "0.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.7", ",", RowBox[{"-", "0.9"}], ",", RowBox[{"-", "0.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "\t", "Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "0.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", RowBox[{"-", "0.9"}], ",", RowBox[{"-", "0.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}]}], "\[IndentingNewLine]", "\t", "\[IndentingNewLine]", "\t", "}"}], ",", RowBox[{"Axes", "\[Rule]", "Automatic"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.5777454404141893`*^9, 3.5777456426042824`*^9}, { 3.5777461227268734`*^9, 3.57774613114235*^9}, {3.577746173467766*^9, 3.5777462006877036`*^9}, {3.57774624842*^9, 3.577746317981954*^9}, { 3.577746365585353*^9, 3.577746613113825*^9}, 3.577746785537513*^9, { 3.589840837180257*^9, 3.5898408885464873`*^9}, {3.5898409368388443`*^9, 3.5898409407741394`*^9}, {3.589840972315089*^9, 3.5898410255265274`*^9}, { 3.5898410569932632`*^9, 3.589841058427742*^9}, {3.589841094386378*^9, 3.5898411225183663`*^9}, {3.5898411780499687`*^9, 3.5898413503743205`*^9}, {3.5898414953867245`*^9, 3.589841636346239*^9}, { 3.5898416671716413`*^9, 3.589841683106823*^9}, {3.589841716915739*^9, 3.589841893215477*^9}, {3.5898419298643456`*^9, 3.58984197516003*^9}, { 3.5898420590743847`*^9, 3.5898421014666376`*^9}, {3.589842132931713*^9, 3.5898422814481583`*^9}, {3.589842316623337*^9, 3.58984239568106*^9}, { 3.589842580035795*^9, 3.5898425950070734`*^9}, {3.5898426501888795`*^9, 3.5898426688224077`*^9}, {3.5898441405069337`*^9, 3.5898441581521425`*^9}, {3.5898445642243757`*^9, 3.589844644848565*^9}, 3.5910496372247696`*^9, {3.5910502238674183`*^9, 3.591050236819087*^9}, { 3.5910503694833612`*^9, 3.5910506022530413`*^9}, {3.591050639166568*^9, 3.5910506401168003`*^9}, {3.5910508080646553`*^9, 3.591050869978165*^9}, { 3.5910509332843075`*^9, 3.5910509345470505`*^9}, {3.591050978339748*^9, 3.5910510469845724`*^9}, {3.5910511352738433`*^9, 3.5910511658470817`*^9}, {3.591051216171009*^9, 3.5910512715912905`*^9}, { 3.5910513564856586`*^9, 3.5910514020743237`*^9}, {3.591051501457046*^9, 3.5910515602845*^9}, 3.5910519361104546`*^9, {3.5910519752096124`*^9, 3.5910523450470552`*^9}, {3.5910524995813103`*^9, 3.5910525199815073`*^9}, {3.591052560789715*^9, 3.5910525658865905`*^9}, { 3.5910526191747694`*^9, 3.591052686256447*^9}, {3.591052728945586*^9, 3.5910527301048098`*^9}, 3.5910527874273233`*^9, {3.591052850224657*^9, 3.5910528505938115`*^9}, 3.5910529904214463`*^9, {3.5910530249003096`*^9, 3.5910530990454197`*^9}, {3.591053168443322*^9, 3.5910534524124517`*^9}, { 3.591053518287142*^9, 3.59105352874448*^9}, {3.591053643905609*^9, 3.591053644783573*^9}, {3.5910536837538195`*^9, 3.5910539661914225`*^9}, { 3.5910540052007327`*^9, 3.5910540345602584`*^9}, {3.591054079626442*^9, 3.5910540949873834`*^9}, {3.5910541554174385`*^9, 3.5910544898970785`*^9}, {3.591054654331127*^9, 3.5910546655053844`*^9}, { 3.5910550064530463`*^9, 3.591055008498047*^9}, {3.591055184106161*^9, 3.591055206820527*^9}, {3.5910555731569786`*^9, 3.591055575026191*^9}, { 3.591656296578328*^9, 3.5916562981680703`*^9}, 3.591657253436371*^9, { 3.591658403325252*^9, 3.5916585098615694`*^9}}], Cell[BoxData[ RowBox[{"g2", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1.5", RowBox[{"Cos", "[", "t", "]"}], RowBox[{"Cos", "[", "s", "]"}]}], ",", RowBox[{"1.5", RowBox[{"Sin", "[", "t", "]"}], RowBox[{"Cos", "[", "s", "]"}]}], ",", RowBox[{ RowBox[{"1.5", RowBox[{"Sin", "[", "s", "]"}]}], "+", "0.5"}]}], "}"}], ",", "\[IndentingNewLine]", "\t", RowBox[{"{", RowBox[{"t", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"0.2", "Pi"}], ",", RowBox[{"0.8", "Pi"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Yellow"}], ",", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.591055214222397*^9, 3.591055314356613*^9}, { 3.591055352977188*^9, 3.5910553826715765`*^9}, {3.591055429440523*^9, 3.591055446999791*^9}, {3.591055673667674*^9, 3.591055689323549*^9}, { 3.5916545056998076`*^9, 3.5916545285735407`*^9}, {3.5916545752613735`*^9, 3.5916545761812363`*^9}, 3.591654606482032*^9, {3.591655672110145*^9, 3.5916557246852446`*^9}, {3.59165577615363*^9, 3.591655806382164*^9}, { 3.591656010156231*^9, 3.591656015148099*^9}, {3.5916561001416826`*^9, 3.591656123490774*^9}, {3.591656182279003*^9, 3.591656277444787*^9}, { 3.591657437599693*^9, 3.5916574395177355`*^9}, {3.59165751185645*^9, 3.5916575122070503`*^9}, {3.591657714098591*^9, 3.591657736714694*^9}, { 3.5916577793550034`*^9, 3.591658011388327*^9}, {3.591658556029358*^9, 3.59165857338061*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"g1", ",", "g2"}], "]"}]], "Input", CellChangeTimes->{{3.591656044458723*^9, 3.5916560521554956`*^9}, { 3.5916575793404875`*^9, 3.591657614449257*^9}, {3.591657650861788*^9, 3.591657660795763*^9}}], Cell[BoxData[ Graphics3DBox[{{ {RGBColor[0, 0, 1], TubeBox[{{-2.5, -1.8, -1.7}, {-2.5, 3.5, -1.7}}, 0.3]}, {RGBColor[0, 0, 1], TubeBox[{{2.5, -1.8, -1.7}, {2.5, 3.5, -1.7}}, 0.3]}, {RGBColor[1, 1, 0], CylinderBox[{{-2.5, -1.3, -1.7}, {-2.5, -1.3, 1}}, 0.1]}, {RGBColor[1, 1, 0], CylinderBox[{{-2.5, -1.3, 0.95}, {-0.5, -0.5, 1.7}}, 0.1]}, {RGBColor[1, 0, 0], CuboidBox[{-1.5, 0.5, -2}, {1.5, 3, -1.5}]}, {RGBColor[1, 0, 0], CuboidBox[{-1.5, 2.5, -2}, {1.5, 3, 0.5}]}, {RGBColor[1, 1, 0], Polygon3DBox[{{2.8, 4, -2}, {2.8, 5.5, -2}, {2.8, 5.5, -1.2}, { 2.8, 4, -1.2}}]}, {RGBColor[1, 1, 0], Polygon3DBox[{{2.8, 4, -1.2}, {2.8, 5.5, -1.2}, {2.6, 5.5, -1.2}, { 2.6, 4, -1.2}}]}, {RGBColor[1, 1, 0], Polygon3DBox[{{2.6, 4, -1.2}, {2.6, 5.5, -1.2}, {2, 5.5, -1.8}, { 2, 4, -1.8}}]}, {RGBColor[1, 1, 0], Polygon3DBox[{{2, 4, -1.8}, {2, 5.5, -1.8}, {2, 5.5, -2}, {2, 4, -2}}]}, {RGBColor[1, 1, 0], Polygon3DBox[{{2.8, 4, -2}, {2.8, 4, -1.2}, {2.6, 4, -1.2}, { 2, 4, -1.8}, {2, 4, -2}}]}, {RGBColor[1, 1, 0], Polygon3DBox[{{2.8, 5.5, -2}, {2.8, 5.5, -1.2}, {2.6, 5.5, -1.2}, { 2, 5.5, -1.8}, {2, 5.5, -2}}]}, {RGBColor[1, 1, 0], CylinderBox[{{2.3, 4.35, -1.5}, {2, 4.35, -1.2}}, 0.1]}, {RGBColor[1, 0, 0], SphereBox[{2, 4.35, -1.2}, 0.15]}, {RGBColor[1, 1, 0], CylinderBox[{{2.3, 4.75, -1.5}, {2, 4.75, -1.2}}, 0.1]}, {RGBColor[1, 0, 0], SphereBox[{2, 4.75, -1.2}, 0.15]}, {RGBColor[1, 1, 0], CylinderBox[{{2.3, 5.15, -1.5}, {2, 5.15, -1.2}}, 0.1]}, {RGBColor[1, 0, 0], SphereBox[{2, 5.15, -1.2}, 0.15]}, {RGBColor[0, 0, 1], Polygon3DBox[{{-3, -3, -2}, {-3, 6, -2}, {3, 6, -2}, {3, -3, -2}}]}, {RGBColor[1, 1, 0], CuboidBox[{-2, -2, -2}, {2, -1, 0}]}, {RGBColor[1, 1, 0], Polygon3DBox[{{2, -1, -1.2}, {-2, -1, -1.2}, {-2, 0, -2}, {2, 0, -2}}]}, {RGBColor[1, 1, 0], Polygon3DBox[{{2, -1, -1.2}, {2, 0, -2}, {2, -1, -2}}]}, {RGBColor[1, 1, 0], Polygon3DBox[{{-2, -1, -1.2}, {-2, 0, -2}, {-2, -1, -2}}]}, {RGBColor[1, 0, 0], CylinderBox[{{1.5, -1, -0.5}, {1.5, -0.9, -0.5}}, 0.1]}, {RGBColor[1, 0, 0], CylinderBox[{{1.1, -1, -0.5}, {1.1, -0.9, -0.5}}, 0.1]}, {RGBColor[1, 0, 0], CylinderBox[{{0.7, -1, -0.5}, {0.7, -0.9, -0.5}}, 0.1]}, {RGBColor[0, 1, 0], CylinderBox[{{-1.5, -1, -0.5}, {-1.5, -0.9, -0.5}}, 0.1]}}, GraphicsComplex3DBox[CompressedData[" 1:eJxtmXlcztkXx6vBMJSUbA0TKcqSUVE8uqUsZRnLGESZdjJjl4ayK4QZtGhB poUZBiUtenTbJVTCTM1IJYrIEsk2+n2/nXtv03n9+ud5Pe/nfM/93M89937v vQ10XTnHQ01FRaVYVUXlM+nzkePt4HDvV2RCwom4uZMPWd1rMV3pqPuGWC/U a3rX0EgWl8/7ZD31JuF8XO2CT46bX5K80OcH5pZXCT5YSz1q/uJnJD/K7x/F mEeC5800WSZ/fzvSrFn+nfNR34/tKj+fPl1zwCIpH+fuCydVE6m9qrXuHd9L 7XM+42Pi9hrvEMXqRaCXcxeIp9Uo3gTyUyXKnwN66HukZyDop9eQfgvoL72B +kvAH7oa+cP8pNMLNOL/62dKssnD8gUviV5un7GX5v5iVbQ/KKEm5C0xLNFe s/3xC/JCPdBwQ3UR4bxmx/UPgyY+J0M8bCfb6N4TfM6sQq9PXz0h2aUNd+JP PBTcR6d4pfy917pxafLvnFsF1jpaS88HxPqa6Uv5ODcyMzJaL7U3/KuorXL7 nLtPO5y9d9BhxegU0Mv5YIinI1D8eMhPA1H+daCH9kF6vgH99ArSXwX9peao vwbgD+2t0d4f5ictGbexnZ/b6ux6r25oIGUvbEY1Gu+zWjrm8blDOe9JDyt7 d8cRDeRajM+Rb2MKCefhd1fOSn1TT6bGLzN2fFsuuLtm4JnXHnXkkX7H+7dP 3Rfc1+jZHvl77L38Rvl3zkMaXZcslJ63Sp6zTc7Huatpz+o5UnvGYYv85fY5 t9TO2h247RfFd49AL+dOEE+HofjDkJ8SlN8H9NA4pMcF9NMnSH8o9JfOQ/3t Dv7QBuQP85Pa9Kpv52dLQbdl2449IqPU/llZPyzQylbjue03ER/J9y8HtPip PCK6hdrDch7nEc7Hurk5Lx5ZS5qWmKz90umO4L9rGxptITVkVv/ov/tcuCf4 590S7eXvGzq/cJV/5zwlYth1Xen5AysjAuR8nE+k0VlZUnuJZRna/lL7nJ91 n5anOTRIcfYq6OXcCuIpjr8I+enPKH8H0EN9kZ5ToJ9+h/SbQ39pC+qvM/hD xyB/mJ/U/1uPVf/10y+y61n/ivtkVJ5N2Y6sbVae0QHGwT0+ES2VRdle7vfJ 2iuzTp8szCScT7K387NoqSIW7096VjmXCP5Sf6ha4pYKMmd7Q88pAX8JbvXw Xtxk6XvA9VRH+XfOlV3+qK2Unn9qohMp5+N8xL/zQ+Ol9j57MLRUbp/zPfsH BCmKdyrUokAv58YQTzug+HTITxtQ/vGgh+5Bep6Bfjof6beF/lJr1F9N8Ifu Qf4wP+mKnNPt/Kxb9m/lgL3lZKSewZg/uvha1ZQrtoQOaiF2qVuGj64tIx0j C4o2picTztVmJO+KVfuLOJ1wUzlklC+4Rq/fycXmW6Q4KmZHXVmx4H23OzTU St//7nd0k/w757t9Bs49KD3fyXLFOTkf52ELS+f/JLW3UO2hjdw+50sVNVfe DPNTRHmDXs4PQzx1RPEBkJ/i/Dqgh95FerqCfnoH6VeB/tKlqL+24A8dhPxh flK7Y0nt/Bz3MXbgnbyrZErIdyeqbJZaaZ65bu5R0EIuTSgbtkzvKinL07oX /SKecD6n2OXNKosr5EGQ1lNXp2TBn/czDHA3zCUOs71DzvbIFLxQ9YC9/H2J fVy2/DvnetPHT5CfN5u0SW+1lI/zKeXn3I5L7d3cv9JGbp/zac/7b7n94w+K l0wv57YQT0tR/FeQn5qj/AWgh36P9DSAfjoT6f8G+kufof6mgj+0CfnD/KT/ uNa183P4yB/+LDufq1zk6PzC7Se3dBX4s768d6J51+G5yhnruo+K9f5VyfkO p0LFtNhspeaKDVUrXicInmY/umDCiExlp133z3a/kSZ4YExPc/n7Z/E5b+Xf Od/6vu+38vM/nQt1lvNxfqa/vUqM1N7CprDJcvuc7z8SfDi71DMtg+nl/BTE KxxR/BbIr9iI8u8EPYqOSE8K6Fd0Rfq3Q38VfVB/08EfhTvyh/mp8I4obeen G/P/R6jnDO5/NRuvjzBelHMfNr6f72sdX8G760I9uEM9CF7D6mcz1I/gtqze FkK9Cb6c1ec7qE/BN0A9K/v9C3o592L1/x7FT2TzBeevZvNrK9KjDvqJF9K/ js3fHqi/VWy+981v7w/zk6i61bXz8yNbT2xgfc6oZuvJQrb+9IH1h3Kuw9ar VbBeCT6ArW+PYX0T3JSth/WwHgoewdbPPrB+Cv47W29XwHor+BZYn5WJsD4L Hs/Wcxx/hK3/fVH+Uex98RTp+ZK9X54j/drsfbQR9Xc+e3+ZI3+Yn2QBrM/C z13s/TgO9hsZHuz9qMvep37wPqWcz2j//hVcdTC8r53hfS24A3u/h8D7XfA8 th9ogv2A4OZs/9AN9g+CB8N+Q9kV9huCm7L9iTqKz2H7mTco/xS2/zmC9PzL 9ktuSP90tr+aivrbj+3HDiJ/mJ/EF/Ybws/OsB+llrB/zrBm+72lbH+oD/tD yrk1209+hP2k4Als/7kI9p+Ca7P96mbYrwpO2f42DPa3gjuw/fAl2A8Lngr7 Z2Uy08v5ZLbfTkfxl9n+HOfvzvbzW5Cec2z/74r0T2DnhU7ft++vFztfWCF/ mJ9kF+yfhZ+B7PxSAefBDE92funNzjs34bxDOT/Gzkcz4Xwk+LL25ynB/dj5 6xScvwSPYOc1OzivCe7Fznej4Hwn+AQ4DyoXw3lQcH5+/BrFH2HnzUko/0Z2 Pv0d6fFk59nnSH8kO/86ov7qsPNyI/KH+Ukmw3lQ+JnKzuMD4X4j4xo7jw9l 5/dXcL9BOa9l531jOO8LPo/dD+TC/YDgvu3vEwS3ZvcPe+D+QfDh7L5iJNxX CO4J9xtKM7jfENyQ3YfgeH5/shfl5/ctukgPv58pQPr5fY4F6u8Qdv/TT6O9 P8xPUgr3G8LPOna/xO7rMirRfdQiuI+inFuy+yt2Xye4PrvvyoP7LsFz2f3Y G7gfE5zfp7H7OsHZfR2thPs3wafDfZ1yFdzXCe7S/n5P8JHt7wMFz2b3h++Q Hj1231iI9I9l95M3UH+t2H3mauQP85NMg/s64WfBqgrT8afTSMTeKQ3m+oEk bLGfnU5jC/lLVacs1SWV3LB6p2aoeULwi7lmvcdVXiT75/t0Xu93WvC3scvD 3tgmkvgkk7vyJ+c3vPPd1klxHUc1OsjPcR4T5jbNQMobHmH6Vm6H84q44Y9G SzocajOtZF2c/wmcYn4C8lCc5zq0Szuhdt+ATnoK6UyEftEQ1K874AMtRz4w 32gm8s1ADeI7kNZ4Gsr4B5b/AeQX3GA56JwGOgX/m/WrDvol+JB48CEKfBBc DzjB/C/mM84zKg7G6z74IPhbNr5Pkc6BB09ezpzZSLr3zi4/uDWTXDprNG+v SzPZmHQ8fukPjWTE+WOf68w/aMU5i6fG/z+eapt26vzf+GXhr6I+M0kjv2V6 vG36N1T46XNm7o3nk1JI8fv+a1294wV3H/r364jAHGVz4g6trHmnxfml1G/T rn6jk8iunjOWdtQ931af89eUNe/MUvYJD7lg0iFZxBudtftSjrO83T9bfo7H m4I/tAr5s7l/dY6LpKNnxK5mWRePvxd22kTOq/awRvWt1A7PP6Le0P+11J/H 68MS5f7x+OTTy55SSffqVcEakVI/xPmug7W94+bFitd5NcnFt9viw/29u/nu PqRU/mYXu/fntnOiEeSn9Sj/YYhX4Hg/0E91kP5E0KPAeoaAP3Qc8mcw1C2Z juq2GPynu5H/vs5dSOXEy4qmT6P/kD5F/nUwvrQcjW8TjJdiABovL6gTegXV iT7MO6KJ5l0my9/rQ2t+wbX8QWcq6BQ8j/mzBPwR3If5bOnT6rPglTBeyin5 reMl+Bo27uNQfC6rH5xfE/SQdKQng9X/QKSfzy82HymeX2w+ZqD5SIxRvEoz 2bZg2ivyyTKq2No9S7wvVBm/D1z834dx2oK4H4yv8iUa3wqYFwo8L1xh/iq+ uNB+/jI9tBrp4esMWzdEvxaz+vwJ6lP448jm9SbEc1M2KeqqTpKgiWV1fQoO k4jpAZq7PraQdxfqS8x6xpHp+hbh0Y+PCl5bt7roicUJEhD7ulPopBjBP2nF X9VVDSdbDC2uNB+LF9y8KVj72rF9ZFRn6x+a75wSfETf6LoHJl6kaOLAdYZF vwk+eYG/9cTZ2+iFqeeatDa1cbefu5lJ+uh451QXWS/nU6q2vj/++Cg9vsyy i7mkl/MnL/rnh0yKob53W3o9lfRynpVkeETSR3PS3q39UtLL+QP1WbMlfVS3 KHTPdUmv6C9woop4DuQhaShPA7RL1qN27UEnOYZ0ekC/CO6XA/hAsA9fgW8U +zYafKbY548wLhSPywMYR7objWMzjDudg8Y9C+qEhqI6cU4F/oVtK6ecz7sI PjteavVH8G1JkL/b4Nb8gn9RDeNo6N3qj+DHtUG/5pBW/YI/YPVwB3wTvIH5 UAI+CJ7G6mq+faufgmczP9fZtvopeBKrT8yT2bjgPPWsznG7NWx8sc65j2Ae dYhr9V9wr5dQP3VQP4JvBt+INvJtDvhM3JHPz37c5zPR4xTJsogtPK51UIzX nYofw57qZiu7HPtLfUmHJLHORNpb+3vejyN3j6u/Wb01UsQPdWjldH90Kxf5 l4FOWoN0zoN+UTXUL906Ay27xhTl3aFf5dZWtt3T9iyaNFtuL3lMxwS5fR6f B5zajm3lIs/w7ywTup85p2zZVKYR37/tvRz37JWW3M/kc+dC5X7zeO3nrZzO Pd/KRZ5ik6yTXS5FKiP3R3VV82zbD8xbfPybA4YbyJPFM868Pts2v+qB04NO rVzkWXiqqfTlz9sVvmPnRO041ZZnJovHeWpYfpzHZNyOM8sfxytuZXh1vFPd 1q9foV8U90sT+kVwv47CfCE90HzpDPOL4Pm1d+mfRlqH0xW3yGMN3X8yRLu2 +os7H538Kx0ywniG9CnaTQVOooCLPIOhTkgoqpNFsD4QHbQ+mNv1PdlPas++ UeWY1L5odxLLPxi1m870RKB2t7/z2+XcIUlh9F73slzXPI82q58UVFe5rN7s UF2FjejyMq5/jiJH2fumplRfPM8TmEf0BppHOopZfaJrG8lRZ6qS+uE8CR5S 0DE08w3ntBzxcMivTED594P/yhLk/w7olxL3azTUiRLXiTvUoRLXYSHUuQLX uTHMIwWeR/1gnirwPP0axksxE43XLVhPFFpoPem3Gs6DD+A8KPYbaWy/+gr2 q4KzePJFUPt47ifzmSKfSTniBvVBkfL+vqLy9IaN0vmA65kA5wfqNvqXy+++ WWAlzqcQr/iA4lPY+Uszq71Oloec1GxR/jdP894zK+T3sdNU9ff10nuD18mg C64P5ffE7mDzTFvpvcF5gAbsN9JgXyHq8JBDUgV51khUzUbm2t88aMX7FbQC 6tDEsrUORfxOyENuoTwajfmXrri+oivW3FeZsjxB7Et3Qx4yHuVRZ/EmEC/2 mVyP1y9HZD0ZXA/LT0xQfhZPWbzQnw8+kGbwAfeXsv6K/EwP+RHpYX4SH+Qn 85+eR/6r0CXzosdfo047a9Plz7PJhcP1drSQ0qbbA5dYZlNPg9We8if/f5N3 uIb6Vv9cYvQiy0tnZomIL+lXbbDzh3Sy9viC9UGleSLe4kZC524jSskirdjo 86vSRLydteqakLkFxOzlsa42nRJE/NSWh73OD7pFzvyZfjOCnCA8/rCfVvqC qKvEKmaO5TWdsLb/F48o8hk4N4fMX+86eqzTNhKXkfnrhSqRhxb8/zzU7f/n oSEojyXop/ZI/2TQT4ci/cvBHzoU+XMT/KFrkD8fM1r9Jy7I/xLwnyxF/q+f mt7X41oatTPb8LVZhZLGMp3rU1flBHkmkwoHzTW9DlHBZ859qDM5PJsstCrr e2NFnOAl61O0s6qz6NLUvNtnov8QXD+0qSE4LZFOtHxb+vuLTMHfU8cS0wol uTHYM0Bun/NoawezsZ8VUA8H00tOXxYJ/WaVqZ3MV+TRV8amD3t8uEK75U/4 4uvfpPcvxJOlON6k3scxKpuM2RccdWlcoYhfzOrhbxhHEe8yZPa0XvmlpMe9 YpU/9RMEP7VEy8+vrohE5695sKsoQeT5pdjERh6P+JxbgfL48Pju1r4t/gtv UveUq7NLL2YKPvV62Zyg5Bv083t6G3yPpoo8e549PXBOqgP/vTF6cl3w+JAe Q4pvSs9/Knk6YLOUj/OrCzRCh/WntPO4jlMbDa6LPAdADzmD9Hw/8foSyRdS kxAfJ/vK+aoLO4MlH0nn8aousq88TzqbF7uhnkWdOG1QlD5PKiaLVhYmbtkX J+KvmKXZyPU3ZvfXhXI98vjKsLXqsj6DsSrewyW9PD4yY+231lJ9f7BQPyTX u/i/9knPsA2SL+F/jNwm+8TjcyE/sUL5nyTv+E4aVxJT8Fu5NM4i/n8bbvok "], { {RGBColor[1, 1, 0], EdgeForm[None], GraphicsGroup3DBox[Polygon3DBox[CompressedData[" 1:eJxNmgn4l1MWx98rZG+SoiQVFZVUKiW0aBFKC0WKVhKSInsiQklRlmRJtigp SilFWpBoGGOMZRi7McYMhhnrnI/7eZ//PE/nufe999xzzj33nHO/v/uv3rBz +47ZpiiKvpWKIv4V/w3iu2rQHkHbBm0XtHfQzkG7BNW23TWoWpHXwbe7a/mu 7rrtg2oF7eT6PYMqB+0QVMN5vvdR3m5BNYN2dM0lqSh+ivbHoAOC9nK+njai s74ttuyv3eivG/Q7+fZznrkGzqP/QOVhY0PHsLFbUJugQ4MaObaXtIP2NXYd vmlii2+aqxsbW9hiY1v3gM6Dg/aVr6Xz2HiI7f7qb6j+0g7Wt3KefRyk7+oE tVM2drXXpqZBRymXdR3UjY2HyVvy1VbWkUHN5Ouubmw/XD50dnJv2N5F2a2D utpie2fn0d1RnS2cb+DejlY2tm8TZ/1xtKcFHese0Nkz6AjtOkF96DnGPcDX y3n2d7wtOvtqBz7oZ8v63s6zjxOVx5n3cYw1/R3DB0Ncw/xJ2t0j6GRbbBlo i+0Ppmz3oKBTtQ+7RrgHdA5VHjYOs+3n/o9X3wD1o2+486wfqQxsJMbrFjme Rmkfdj2csk1nBu0Q/c/Uc4Zy4fs56APt/CXow6DBQdsG/yfue/vof6q9RfQ/ ck87Rf9z7dol+n9zf7tF/wttHBj9xkGVgnYP+lL9e0T/H9o7JfrXBJ3FXqL9 e7Sn69d2nvHCGJ8W9JVz/d3D0TG2V9DX+D7amkHfcG7R7hn0L8472hpB/3Rv PT2P42KsVtC3+Dra2kHfRX92tNODqgc9F3RFjN0YNKPI/UmcQYzXCfoP5xbt PkHfR//aaC+iDdoQ/fVBi4PWBT0btCjo+pi7OOiSoJnKuzLoqZhbGTQv6CbH rgqaGzQt6Iag52NuU9CSoI34DXuDnk5Z561Bq6O/Kmh+0NqgNUH3B90ec9cV Wf+dypseNMexqdhA3AQ9EnSHY+h+JtZfZv8u1+GTu//PN/ODbg6aFXSfLbYt dA/ovLfIe4PvfudvCXrA9lb1z1F/aQfrHwq6rcj7mKfvkLVI2di1WJvuCXoy 6EHXLVU3Nj4qb8k3Q1lLlAvfWbHfJkFVgh6Tj7kn3Bu2r1D2gqCVtti+zHn2 9Lg6WdMrZO0d9O/or3Jv+Ob9oN8HvYqfi6wPW55XB7JfsOV81rpP+Na4H76f dR173eT+Wf+cdmD7Ouf5flF52LIxaLlrNju2OmjflOdeD9oS9LQ6X7bFlq3a jf6XXAffK84/4/6eVf8f1bfJPa/TxtX6g/N8zbH10hP69Q3X4Zs/2eKbt9WN je/YYiN4BGwABnjLvcH3rvPY+Bdb9nFg7Ldeyvp/KDIeor6+5zz7+LO+QxZY p5o6wDvgCjBGiZPABOAFcAMYYlvnWfOmtiOrsvM19N0iz3V7x5ALHgJvgFfA Svuo40f7YKed1QnfjvKi+5XY09agq/UFmKSudoA36quHO7mB8rjnue+5V8AC zbSD+RJn7e96bG/k+tqua6J+MEmJ3Q6QD93NlVvip8ZFBWZq7je1v11RgY1a qrOV3+gDa7R2Dy1d38CxVkUFfmqjnvbKxZa2znG/ch8O0N52ztXSjgPd0+Gu xxfgjSPUCV7opE1H+Y0O8EAPbWK+ozZ1ka/ETF3Uhx3d1d/Db+zuJl9zZXTQ jmPVgS3caT3lAxucoE4wRm9tZf44/d7BdR2dP76owDQnFRVYqldRgZ/6akt/ dXTXZ/3dwwnydZa3j/7t7roSJ6GjpnfvFeoAUwxW52l+I5f7fqS2Mz9Ie4fI h46hfqMfDDJc+0b6XWKsodp7hnL7yTvMPY9y7siUMRP4Zka0N6aMk9qmjJnA Se1SxkzgocOiX4hfD08ZP4GZOqeMacA9HVLGTOCkjiljJnDSESljLPAZmG2U /umUMpYCDx0lfgIzlb95yJUp4hqwRA3xzqVFxjLcXeAHsBV4Y3SRMVEl7/LG 4qbLi4yDuJcmFfmOAgeBP/YST00s8n0IxplcZLwD9qGe1BErXeNZcp+CCdAJ rgBzlLgHO8E34AhsAGeBmaYUGTOfUuT4BCuBOcAfM1PGi19p30x1YN9Nfq8X q4FLVoq5wDfzxVL4YZW4CeyxSfw0S/vAFLdp7xy/kTuvyHc/GAqMBUbBpjvk Yx9z/S7x0F3ad4/f2HGnfNhyr3Kny8scNs13jm/qP3ch+AgsAX4ocdL92gr2 eFBbF/hdYiZwCPcpd91m9TyqXGxa7Pdc9bCmxG3ztf0x+bB1id/Yt9RveLmX H9emZX5jEzhiuTat8LvESSu07ym/0b3K74XavUpbn/YbW9f4PV+dS7VvrXPY 9GyR8Qbz4Id12rTe78ecX+v6da6Zo00LtBt8skFbwRibigoc9ry2vuj3Kn38 ovvc5HowN+d3jXZv8TzQDd54Wd1giq3a8qrfyAJnvKm9W13DHl6T77qQXzdl jFbioTe06U2/sQO89bo2vqVc7Hjb7xIz8U19pbYNKiqw0bvqf89v8NH72vCy 8++47zfUxx7ed02JF9FzYqxtGvRrkev7R+q8m1y3xi6I9qGyX+T45nwGxNhB QSloXFCzoAZBg4IODtou5fpO3R0SdFp8Nw+qnHJ9p74yPyy+WwTtmHLtp8Yz PzK+WwbtnPKdQZ1mflR8HxK0a8r3CTV7hDr4jcwddEHMtQpqGHROUOugqkFt gqpZ/6nr1O/y7qGuj/T7S8eQ9bG+uSjWHRrUKOge6pk1cBY1TR8uj/ZR74CT ou2qfx6RF52bvReot4Oj311fPRn0mHcAdZu7eFLQuTHWT7tfsc4Tw8Ojf6x+ 2+K9wLrTo99Tv60IWuo9cWa0x+s35HK/ULMvju/9UsbWY6Lto6/A2YyBT9u6 P94E9k8Z44JvwaX06xgzP8tzc8pyf3D+J3mI5Z+N50tTfgtALjHI3X02/k/5 bsZO4vEXYxJbuQe5O4g77vdzPB/6p3r+vFtxbuOjPdmYJNa2Nx6JU3jGRP/x aO9N+Q4mZsEJ58b45Sm/ZWxnzLJ2rLEMD7HWzbPFhlNTxhmVjWWwynmcX8q/ MzmLK1J+4+C8Jqb8PgJ//5SxC7KGpow/4Hki5Tt+sjmxg3lDHuxkrpAH4Jbx 5sEu5sqIlDHTzuYQ/ONi/JRo27uvK1N+Z8HPB6Rct6hL5AoY6YLoX53y20o1 Y597/8Ii23ZfyphmQtDolHONvGEtudPZdciZnPK7DHF1dspYqqo5gcwyF8FU 5N+t+DvlXCPGa+p/8gtcBabqap+Y4Zz39CyWRftAyhiIPGOcXCO/wE8Tza1a 5kEPxzl3agYY7/wi5xN6ySnqBrZNKHJu1fJ8ySHwGbFJroHDwGD97LP366Ot n3Kdxk+1PS/yGKxGLrPXOsrnHLhHuO+4W1hHbd/o3AbzADlXOY/896N/S8pv 9OTobSnfSZzt+SljXM6InCbf+S1OPdjb2Lgs5fdB8oVaiB+oh+eljKcZvzBl 7Mu53J7y3viNTh6BX8Gus50nTq5K+e0Gvd3lIe/6GNv4mbzhbiAXyGNym7xP 9s8x9smrz6wbTT138ph8/lj7mymffCVvydeJ9seau+Q5deIKZZ5nvh9sDJAr 5Mznxn8bz4XcIt/Ivyvtj9dPxM0X7reV+yLmWxsD5HhXbSbeySXivZH9C419 dH1p3Wjpufxs/aWucl/T/9C62E6ZhWeEr8bZ/1j/tNcng+x/oh8Od7+n2f9U vx2hr4bZ/0z/H6mvRtrHP2CAdp4XfuugzbsYb6V/OumTc+wTX6Pkx58XyP+F 9aO1PPQ768PdjT3O4iL7+JAa0EU/zLLP/VvNtV/qq6b6rYZnQW3gju5mv7Ex yv1LPTha/1ADqEHfWj+768/B8nxt/e8h/5CUazv1Y6hrxyqzh+PUj+P053D7 31q3ezpOneyj38jRXvr2dPtl7SGHv1NmT8dragN6z5BnnLWwm3HSRPlgA2pV X/0MTuidKmpMb88R24do/xj5y7XUO+oZWOUE+/j7RH3e1v6vxmx/z6ur/TLX BxhL7ewnz+okz6ibfcapSye7lzrqneAeGedOBwMMtM+5cX7cfeQ6+fCJ5z7Q M20vzxjjp58+aS//dp75YPvkzameew/71DHqDXlFTnWX/2vlbKPeY/Qn/PzO 5Tc5v2U5w9M9x172ucfJlTM8R/KS/AQntLBPnhJrQx0nR0cYS8TXcMePtf+t 9R+Zu8o/Ul3c6dTtKsYIsVjVODrT2OBOGW1scN9w74D1sHOUMg+xT473di3j TZRPbN/h2irG22j1dlIvPC217XP9M0I7qRPUFGoFd9NYY2CgZ8+dRZyO0X5i hBgtz5Z+eQ+ztrqxM96YOdk4Q85h9ok3atX57p16T/2idlGTqE3U9TkpY+D4 99ue4G+oP7GH3Omk/VX1xwR5yB3uuV9dO0GfIP9C9wi2Rj73+aHqpR6OlQcb OmpbQ+0f5166KJ8cnJvyuw93EHnBXUhsE3vcQ8Qb53ilZ4dvuWvJkWb2kXm0 a8/1vCZ5RsQ5dzC1qLl9Yr63Mscbn9zH5+nPq7SZ31W8qXH3cdaT9VVf++Qm Z3q1PjnLtcRMG8c5a37L8u422v3y2413Lt7EGOcd7M6U8dIfHJvieAttI3de cB1/2ztA/n2VPVU7eZucoa6p9vntPEMexu9KGTv9tci/JflbKn+n5Lc263l3 u1Y7GZ9pnzMCP8y0f4N9cDQ5BP6rYgyAoasbgzcbh5z7LOOK2tPDs5iir7k3 lxkPvAHCd5P7Ymy2emcrv5HtbHUd6L7qKW+WMpsZe2ASfHabfob3dv3AOGcA 9uUdj3dJ3urIQ36jle+Tc1OFb+ZqD3LwaX1558mPv+/WfnDU3Z7FU/Jdrg/v 0c/8puGNElzNmwdvoPxWJffuc3y1fX6X/fYemPJbIG+JrOXtkN8fjIPt8csD 9pH3kOe71vEp8i+z31M+3l2naRvn+4E2DbJdoBzeqHlf4DfUQvv8HwPeEha7 R8YedhyZC+0/Yh/5nBNvF8Q8fx+nf6ljixwfqD7ewzkb5PNuyt/W0Ve+S/P7 EJ9R45bqq6+16XJzZIFngb94B55lDHMf/OS6Ja7ljuY3RiV9/4Tj0/Vbdc/z ceXzd3nW81sMvLfcOASD8TsQW3hzfl4eeFfY5116tfLvs8+57iPP9+7jSfdL rK00VrF3lWsZe0p7FstD/8WU60j5fk3L39lfSvmdHZ/TrrPPW/daYwMe3o94 iyevuWP4LYfMNfLM14abjc01qeKdnHXTPNN1nusi9U51fLl6H1AvMsAb4Apq +L3ua55nzzv/jfpkgzHH3zZ5q9roPn+rm0X+u8AG/cZ5Mz9bv20yBpZ6Loxd 61r2tVUezujllGUh5wX3Dw8YcbP2Mw/fc+7vJf22Rv6ntXW9+9gsz6XK3+La Z/T5Ze6Vcd4EwA2vaM9G90uOb1Evtn3j90Tjbas++R8K/I27 "]]]}, {}, {}, {}, {}}, VertexNormals->CompressedData[" 1:eJx1WXtcTlkXTmPShBAZZRrdc1eRW68245JcMhQfIakYzbg3xEiMTBKSUqJ0 k0j3SKWX1Y2YigaVLnKnkDAy7r5zZq99mrO/b/zT733edZ79rGevs9+1FwPX VbOWqKqoqFxpp6LyhfD3llHvNV73msiHsOr64oX+Ntc+t9gYXblLZpdVTpo+ polcMdBzaNexhDA87mbpRyOHR2TBt4+763pVSXivTs5n9465T4Z0dwjua3xb wmt29pkkfn5/yfCd+D3Dwyrt3HWE54/mafc1FvgYXmfQofqzRgmpavltgbg+ w7u9H5+6PXC34oAx1XsV8WoaD3x8MOUHnr+a6oEPnB5tqh+GcvpjaL7wA5ev I/UHnnD+oJ/QpaPHzX/6+WryYz9Dg0ekymm93Zvi32y0zrofGKL3kFjmr2pO 2f2QtJ5sv2pGWDFheLjq0I8FVfdJ72cDtw/Qui7hdwMsJjpq3yXtdcbo7ayu J90Qj/qmR6i/8Nl9uvcm8XsW389pwqP+wvPzer03LBT4GL6mfHVve2G9oH4V KqnC+gyvzdVJdfPdqQi3o3oZvpzGAx9vSvnBieM/RPXAEk7PLaofNFA/w8No vmCM+bK8LKg/0OWU3B/0E36yfyPzM7ll0JmYP++RB60D9KeVbLMZ9ufw0KL2 TaTjdfPwfZ73iOWK+CUjCwsIw5c2RltVvL1D6ldO+kbx/R9kOOJ12qeCIixv kYBatRu979yQ4lvvBLuKn4f4OD8Tv2d4buzT/dbC8/2NR8wR+Rj+nWHO2BHC enpnHh0X12f8cTrJHTVU/RSjnlO9LN6GxgOLZ3g25Qee/yXVA5acnmqqH/Zy +t1pvnAP82W4BvUH7NAfphP9hErNSJmfjnULI5I8bpMnqsahIx/42Mxd1pTm seEJCZ0Kjg4qt8llV937qSPOEoa3Dh5yzSTkJplU2fTMxLuMzEN8lK7/nU+J NeTuMu1HS7yuS3ha5no/8XOUS+jgz8L3DD9sNLqr+HyPx+XqpgIf409LHKCa IqxnaL3FVVyfxV9qrr+RpbtNcQn1MjyRxgOLZzyRlB94/lSqB2I4PVZUP9xH /Sz+Jc0XHDBfhu+n/sBL9IfxoJ+QsLpe5uf3V9zHzDKrIeMWqJamJXvZNFSq B55f3kwKTlxOufXbDdLyVcGoALfThOEZi9OPxiRWkZjpVg2V185LeGyhbvL6 E9fIqrmPep9aeEXCHeqv7TgpfE67afJI/J7hs1z3DRWf3/f4wmWRj+HBM9dd 9BfWa29+p1Bcn+E5yr7u789tUnxRQfUyfA+NBzUu3p7yA8//PdUD6ZyeGKof 1nP602m+kMzli/5AJw25P+gnkLS9Mj8PTfpEQO0P8rP2yo2eaqttarwSEi/e eEa2mcy+uP5gBZm/saOH/YxUwvCUpZMzzVMvk6u/Dkkq3H1WwrUu3nWMjP6d WHVfoTrR+ryEd022iJogfDba+Ee8+D3DO0YNLC4Qnv9qWmOTyMdwT69e66YJ 61knh1eJ6zM8YvOB2rclaxVatlQvw1fReFBw8WqUH9Q4fk2qB4w5PZpUP4zk 9CfTfOEOl68v9Qd8OX/QT7hxrlzmp/fHFT0DBxeQ2pxRPZ8McLHpGZRnW5/V Qv64NlpvUn4+WZdZdHVAWBRh+Ioeg/580nqOmC8pGl3zR4qEPzHyX1h38wxx Wz6ypHF5loR3TtFyFT/3zbZIFb9n+K9L4mfeEJ5/qTZjwFOBj+EuZaS2n7De nZPRA8T1GW45xePz3T9dFa9RL8Pn0Xjg430oP/D8Hake6M/peUj1ww+c/h9p vmDD5Yv+wGHOH/QTGscdkvk5unG05/qwPMWGDX2fDPlrnrXK3/+eQ4LbF7bu D84oukb0GGseGK5geJp3znvNuhxFfvCrypDnxyR8mmt41rF9WYq0uU8vLRqa IeHtV+RsED+nWTq9Fr9neDv7cl3x+ddNF/t2EfgYvtesU9JgYb2yF32cxfUZ fkb/QvHclc6jPqFehu+i8Uo+/uP0v/mVPL8q1aNM5/TYUf3KTE5/Ms1XWcrl G0/9UZpz/qCfyt0bimR+hmN9tMrrGZqxnhPk+wXRWM8u8v0FbWNazzvk9QBD sJ5ny+sHMrGejTrI6g2CsZ4/yusTZmI9a32S1TPswXrm41Oxnnn+wVjPczg9 Pah+2MXpP4z1vJrL9wnWcznnD/oJqt/J6hkS8XzehudzNT1PIAjP5/V4/jC8 BM/nJ3heMbw/ns+2eL4x3ADP51F4HjLcCM9nAzw/Gb4Xz+cpeN4yPAnPZwM8 nxm+A89nOy7eAM9nnh/1gDWnxxTP56mc/mI8n99x+e7F8zmC8wf9hId4PjN8 PvYb07DfqKe/j3AZ+4332G8wXIn9xgn8/WV4EvYbPvh7zXAX7Ddy8Ped4U7Y b0RgP8DwSOw3umL/wPDz2G9oYr/B8HDsN/h45IdIjt8Z+40znJ7j2G9s5/Sf wX4ji8u3DPsNbQ25P+gn2GG/IenBfrQV++c5tN+DQ9g/38D+cDbiKkNo/zwT +0kW/x32z43YfzI8G/vnY9ivMjwR++c+2N8y/lzsn82wH2Z4BfbPV1Av48nE /pnFOyJ+FPtnnj8L++cTqIfhNtg/P0X9DP+I/fMizHe23B/4hP4wPegnZGL/ zPA0vA824X3Qkt5foAveB4fjfccCcQ+8D97C+xHD7+B9cB/epxj+Fu+DVnj/ YvxKvA8Owvsai5+I90F9vN8xPAHvgwq8DzIevD+CARefh/fBwRz/G7wPjkY9 DL+J98EQTv8yvA8+4vLVxPvgNM4f9BNq8D7IdL7G+UY1zjc06X0chuN84w3O N7ogfgjnG9/gfZ/F38f5hhrOB1h8HM43luI8geEDcb6xAOcPjMcT5xshOK9g 8bdwvhGB8w0WvxLnG3w8zk+A8XdFHOct8AOnB+cz0JnTj/McMOXyHYbzDS2c bzAc/YTlON9geAM3r7tO50uA8yhSjvOoSsRjcV43H+dXDOfndYznBs7r3uJ8 jMXvx3ndEZynsfganNddx/kbw9m8LgzndQyvwnldJRe/D+d18cjP1mXzOjY/ ZPFsXmfB6Y/Ged1SzJfhDty8juHoJ2jivI7hfjEhhle/ySC/uC1SHK7xIZcq jqavaW4hQXPcHpiMSyfdEmNTLfPDJPxFesSluH4pRP2BffqbWXESPsVidJ8o p+PEYtLjX8S/DB9qu/07MU5tbLjmEeE5hm/vU5trIfDmdSt/J67DcLObQVYH BR31zyr7iboYrkdx4HFfygNKjseSrgvq3LqTqU4Yzul8RvMCTS6vQOoDGHI+ /EZ9g0TOtyL0bR7GX6Q4zMigvo1HfoavRH+WoE6Gl6E/LZgXwwPQn+4t1AeG b0V/ePwS+vOc4zmAPmxHHxg+leqEyZzOQctvfVDxaCTaP6d4FaqcJvY2dy90 3nafHHl+3X9XUCMJCb126sK3O2wYPpDGw8j/Hw+rDy7M+mf8xKVxy1R/Tye7 k3bEvDwW2LZf1ro/PO6QRs4eufps0L3Dbf7fNnxhpHFG8dYgZfGAUXHS/aXo /duMDc0nSMbqbrsWbDzaVp/rwvVb52crSteXTHjslCLFWzWmm4hxU1dfVd0o PMfiD2I9b+X8cTAb+KWoY235gmhRF4v3+f3+/iaBN8Wv9j/iOtJ9cE9DwnMh n+dHuniJ+bH4ipKIw/0F3U9CV3c31mi796l+sbXu4adZirjBzRsDRrbVueGs e0tas/wV73bPN9f8se3+GED5gefvTeOVfPz3VD+s4fSXUz3Kp5yeYdQfsOf8 WYHvF1+356j/cIrz/72NWv/Hv55UHnH08hT+SvwT6f5CObe/tnS/lNe4/ZpA 6wQyuTopwPf0R+69S8L6+Tae8jNc5wOtk1bUyfBM3N9K9Ifhr3AfTeOpzwwf i/tVi/vF8BbcFzMuPh395/l7Uj3wjtNzHP0ZxOn/l/cR/uV9hH95H0Hl1ec5 pblNkBhn8uMc82zp9wJx4os4+/8dPp7hn+j+KmK5/d1E3wsl/15so++vsoOh /P1tx63L9PzLuQEb8f2Nxfpk/nhh3cZxuNOUd0d3VkWT3Ln6VgYuAcRwqXrP Be9byNSJgT1f6EYSy8Jf8rRfhEi4pVXz2b2vw4i6X4SzXuZBCU/sVFz3Q1IQ SfRvdZ7SL0rCTezdXHf08CWlTpUv4wNjJFxR1j/A77EzGVadH6czLFbCF+kf U/niay8wrPvZPvtDW7xfj6UT9V0C4NjmmGpRL8MtxibNFPRB/7uxi0W9DL/3 xExd0AdTNp34NkjQy/DkiKH6gj7wNZ05fZmgl+Hjv7p9W9AHZxty5/sLehk+ geIkicMzKA/x5nia6LpkMreuJdVJ+nE6d9C8CJ+XG/WB8D70p74B75sh9Rl4 n4/TfYHj3L5Y0H0EDW4fbem+w3Bu3+fQOoGLXJ2YTqX1s3ieDIc1kdSfh3J/ oN0kWleZcn7IRH9uyv0B7c60rn7aKdMP5trUtzU+Mt8gCuvNar7MB/gL/dwr 9xPal9M6PCL3E16izzz+CusziOOJRP/5dVEneHI6i9H/dLn/sPMprdtb8vqB D7gv2Zxvq6jP8IzzOTpqYfyv42PIf17X5mwp8pP2q/fm4J+tTXIUrpv7nPVJ P9F2LmXP/nBz0GHSBCftY2cHS/Ejcii+KF+GQyDVSWo5nSV4PqRweW3cadkr vTlN8cvw604NW05L63YeVnM7RuB9NXnBuAZhHbauL+KpdjIcSgI3lS7SO6pw PKrvcdM7V+Kpb2wp8hHyNFn3e66YN+NZ3UTxQDkODX2qVql5ByvKlRXuKZZt /YDepus9ujesJHYhQy9O79P2ft1HPFuOg9EuW51m2KCMfVVo4rSrjac7jQee px5xnsfmTWrQ3t1RyvMOAQvWbGvrN2ppXsDntZzmBXxe3en7Avz7koHnZAP3 fmVMvN+7k2umcnjl86+0gk9J6345pCLL1DkcAvbt6WbmHC6tG4u4WbAMB0ta J7CEqxNjej7AGu58uLwtr7ibsF7d69kewvrSuh0oP/Hn1o1H3JBbN3nazA5C HSuHv7mSINY14+lE6wf4utqGeDpXV3rBi8cJ9aT8te+SXS5CfTGeKPoewTLu Pbr47kf9rUObiJmP45zW+ARyfphL5tqke6SE4rAe8WLE9Sm/wpPjP0n9V1hx /qfSvBRWXF7jaJ0oirk6Mad1qIjh6rCO1rnyMlfnF+h7pOTfIy/6nio3ce9p Gd0vZQO3X73oeaJcwZ0nSrxH1+F9kPUb3niveYb9KsPz8P7YyV0ej34SU/Tz AvUTeJ8Z7rfnjLHY35tW7o1+I9wPmJ6+tB+F78o0+s20+t5GujfReOUMLv4X 7Kt7Jst1Ig/R7Xii7z953mfoRYu/E94uyrhA4feE1cnXhgfGC78TcHq1rcqX 4u854qnYV5jckvUVsMLtufeJMU0k+dCY9OyCHTaYF1GPpud5k7wOIQX7lhEc T7dwZ3uNmiZobB7U7tSoY1JfqkZ54B3Hg/FkP8azPhP1wLCfSv/WU4I+s/hQ jp+PZ/q3ow92a2Q+/E++HL+kn+lBP0kk5yf6D82c/7O3PB6Zb1ZIbOZO2Cz+ Df4zx3rrvBbQPXyh2mdaDrHaMW7oFuEv+/+m3WXLuqnMyoPhY1NurTl7noRg /C7lWJ25kzNhwpbSF7m9zkrxU5QHOnZVXIRHpwu1S1vTJf7BW5Ne54zIB9un 19zbnUyQ4l0cb3qG+l4i1t8e/Xrj5zDGTzo7dLr6QKuAOGwvis0tCZT+n1cx ZlnUwOJccunFoPGvTL2IxSeVmglVQp9MecDl//OAL8djTXmg90s5z3Sqn9Rx +s2pfjKc07+X+kN4f/ZQf8gkzh8H6j+M5fz/mvoPozj/39R6Lx1vmUF8y+NL DW1OEnOqE162jk3r0pACNjuyXmt2ypJw0NmxdmFZDngdX2eoDImUcI+XdrrJ 1dlkQoXvSM/8IxJes9Z2zJq/jhPVv6bojAo7LeEJ/R8FCOvB0KJnqeL6DM+v 9Cs3Vs0n4+vLTJu0iqV8J16f6vwiWEkOBh60WPEWSFf1j67jdgv3fRoPEzF+ H8ZP2r8nakNFDhiruy3z9i6Q4jfiPm6Q7yNU7SzI1VO/BPlXIWltbYLE0zt0 8cdZh4ph68nxdR3OHZN4lgNJFvdjqJNulrg/zGeP2TGOHw1KiHl09tdFtqcl /iH+Qbs7XCki85q0371bli7xdIievOh3oQ4ScrYPEOuC8ZQs3+lRKDyf2HOf j8jH9Jhbn9LUO3eKpJmm1r4uKpR4llE9oOD0jB3o/7hRqxiaS3V0TARfGR46 Qe3C8rcAWfbJVaKvjKcf1nOOvJ4hZEbf3VOMzoMRcXvmmBcpxWu8eJ0s1p9p eqmfWI8sniyJOynqKzZWiRT1svjNDodWqwj1nVih3il3RNv/g3+l2+Iu+pLn +XOS6BOLV6f8MIDjjzROGSXsKww6PcJwY0WOFP9fw0tUFw== "]]}, AutomaticImageSize->True, Axes->Automatic, ImageSize->{374.4493710000388, 226.59414027876042`}, ViewPoint->{-2.5803190486689878`, 2.0274693112445004`, 0.8254221944179367}, ViewVertical->{-0.4276941518698129, 0.24647601715082582`, 2.084076729917767}]], "Output", CellChangeTimes->{3.591659361569906*^9}] }, Open ]], Cell["\<\ 3\:5e74C\:7d4433\:756a\:3000\:7530\:4e2d\:8056\:4eba \:30c9\[FilledCircle]\:3048\:3082\:3093\:306e\:30a2\:30ec\:3002\ \>", "Text", CellChangeTimes->{{3.5916593844477377`*^9, 3.591659500007839*^9}}] }, Open ]] }, WindowSize->{1008, 632}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (2012\:5e7412\:670811\ \:65e5)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1257, 32, 186, 3, 75, "Section"], Cell[1446, 37, 15946, 409, 652, "Input"], Cell[17395, 448, 1624, 35, 52, "Input"], Cell[CellGroupData[{ Cell[19044, 487, 250, 5, 31, "Input"], Cell[19297, 494, 21750, 375, 242, "Output"] }, Open ]], Cell[41062, 872, 208, 4, 49, "Text"] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature CvpBeJJa@aaedAKwNJjbJqgS *)