(* 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[ 16326, 404] NotebookOptionsPosition[ 16674, 392] NotebookOutlinePosition[ 17140, 412] CellTagsIndexPosition[ 17097, 409] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "Subsection", CellChangeTimes->{{3.5119105720077267`*^9, 3.5119106039409266`*^9}, { 3.5119106604597263`*^9, 3.5119106946705265`*^9}, {3.5119108409839263`*^9, 3.5119108630891266`*^9}, 3.6225042280798397`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Green", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", RowBox[{"-", "1.3"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.74", ",", "0.32"}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.74", ",", RowBox[{"-", "0.08"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.74", ",", RowBox[{"-", "0.48"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.74", ",", RowBox[{"-", "0.88"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.74", ",", RowBox[{"-", "1.222"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.226", ",", "0.32"}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.226", ",", RowBox[{"-", "0.08"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.226", ",", RowBox[{"-", "0.48"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.226", ",", RowBox[{"-", "0.88"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.226", ",", RowBox[{"-", "1.222"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.48", ",", RowBox[{"-", "1.222"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.48", ",", RowBox[{"-", "0.88"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.48", ",", RowBox[{"-", "0.48"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.48", ",", RowBox[{"-", "0.08"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.48", ",", "0.32"}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.25"}], ",", "0.48", ",", RowBox[{"-", "1.222"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.25"}], ",", "0.48", ",", RowBox[{"-", "0.88"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.25"}], ",", "0.48", ",", RowBox[{"-", "0.48"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.25"}], ",", "0.48", ",", RowBox[{"-", "0.08"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.25"}], ",", "0.48", ",", "0.32"}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.25"}], ",", "0.48", ",", RowBox[{"-", "0.48"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.8", ",", "0.12"}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.8", ",", RowBox[{"-", "0.28"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.8", ",", RowBox[{"-", "0.68"}]}], "}"}], ",", "0.2"}], "]"}], ",", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.8", ",", RowBox[{"-", "1.08"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0.8", ",", "0.12"}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0.8", ",", RowBox[{"-", "0.28"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0.8", ",", RowBox[{"-", "0.68"}]}], "}"}], ",", "0.2"}], "]"}], ",", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0.8", ",", RowBox[{"-", "1.08"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0.12", ",", "0.12"}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0.12", ",", RowBox[{"-", "0.28"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0.12", ",", RowBox[{"-", "0.68"}]}], "}"}], ",", "0.2"}], "]"}], ",", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0.12", ",", RowBox[{"-", "1.08"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.2", ",", "0.12"}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.2", ",", RowBox[{"-", "0.28"}]}], "}"}], ",", "0.2"}], "]"}], ",", "\[IndentingNewLine]", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.2", ",", RowBox[{"-", "0.68"}]}], "}"}], ",", "0.2"}], "]"}], ",", "Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.2", ",", RowBox[{"-", "1.08"}]}], "}"}], ",", "0.2"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{{3.622498856603607*^9, 3.6224988594135237`*^9}, { 3.6224988927419996`*^9, 3.6224989323970537`*^9}, {3.62249898598141*^9, 3.6224991391936073`*^9}, {3.6224991811052017`*^9, 3.622499373122208*^9}, { 3.622499405120199*^9, 3.6224994450251417`*^9}, {3.6224994832662525`*^9, 3.622499594719304*^9}, {3.622499641237606*^9, 3.622499647035765*^9}, { 3.6224996906623173`*^9, 3.6224997059794416`*^9}, {3.6224997615026417`*^9, 3.622499765887395*^9}, {3.6224998155362463`*^9, 3.6224999486744804`*^9}, { 3.6224999842621813`*^9, 3.622500045246376*^9}, {3.622500083860097*^9, 3.6225007891194425`*^9}, {3.622500890783991*^9, 3.622501184532531*^9}, { 3.622501216122733*^9, 3.622501269553076*^9}, {3.6225013160571055`*^9, 3.6225013366805696`*^9}, {3.6225014015462017`*^9, 3.622501455725696*^9}, { 3.6225015041799173`*^9, 3.6225019373316765`*^9}, {3.622501970590664*^9, 3.6225020130379915`*^9}, {3.6225020877935877`*^9, 3.622502092723219*^9}, { 3.6225021302258596`*^9, 3.6225021337046814`*^9}, {3.6225023290804567`*^9, 3.6225026483717966`*^9}, {3.622502707184928*^9, 3.6225027786330786`*^9}, 3.622502809052883*^9, {3.622502887738779*^9, 3.622503104547133*^9}, { 3.6225031420029736`*^9, 3.6225031823448315`*^9}, {3.622503225588309*^9, 3.6225039183583236`*^9}, {3.6225039703992567`*^9, 3.622504012175521*^9}, { 3.622504158113392*^9, 3.622504169454664*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0, 1, 0], TubeBox[{{0, 0, 1}, {0, 1, 1}}, 0.05]}, {RGBColor[0, 1, 0], TubeBox[{{0, 0.5, 1}, {0, 0.5, -1.3}}, 0.05]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0, 0.74, 0.32}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0, 0.74, -0.08}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0, 0.74, -0.48}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0, 0.74, -0.88}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0, 0.74, -1.222}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0, 0.226, 0.32}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0, 0.226, -0.08}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0, 0.226, -0.48}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0, 0.226, -0.88}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0, 0.226, -1.222}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0.3, 0.48, -1.222}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0.3, 0.48, -0.88}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0.3, 0.48, -0.48}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0.3, 0.48, -0.08}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0.3, 0.48, 0.32}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{-0.25, 0.48, -1.222}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{-0.25, 0.48, -0.88}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{-0.25, 0.48, -0.48}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{-0.25, 0.48, -0.08}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{-0.25, 0.48, 0.32}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{-0.25, 0.48, -0.48}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0.3, 0.8, 0.12}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0.3, 0.8, -0.28}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0.3, 0.8, -0.68}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0.3, 0.8, -1.08}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{-0.3, 0.8, 0.12}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{-0.3, 0.8, -0.28}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{-0.3, 0.8, -0.68}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{-0.3, 0.8, -1.08}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{-0.3, 0.12, 0.12}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{-0.3, 0.12, -0.28}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{-0.3, 0.12, -0.68}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{-0.3, 0.12, -1.08}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0.3, 0.2, 0.12}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0.3, 0.2, -0.28}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0.3, 0.2, -0.68}, 0.2]}, {RGBColor[0.5, 0, 0.5], SphereBox[{0.3, 0.2, -1.08}, 0.2]}}, AutomaticImageSize->True, Boxed->False, ImageSize->{384.088291207277, 558.470358798459}, ViewPoint->{2.5659703203234145`, -2.1112816993948758`, 0.6389725354189145}, ViewVertical->{1.401572858080754, -1.2348680190303378`, 0.5999115868270932}]], "Output", CellChangeTimes->{ 3.6225005816987944`*^9, {3.6225006208560495`*^9, 3.622500634100874*^9}, 3.6225007915998263`*^9, 3.622500866853744*^9, {3.622500920735799*^9, 3.622500925930565*^9}, {3.622500956256771*^9, 3.622501036456382*^9}, { 3.6225010846918907`*^9, 3.6225011768572817`*^9}, {3.6225012213643665`*^9, 3.62250127019268*^9}, 3.6225013378817854`*^9, 3.6225013809383373`*^9, { 3.6225014271461296`*^9, 3.6225014560533004`*^9}, 3.622501570324765*^9, { 3.6225016722569637`*^9, 3.62250170273995*^9}, 3.6225017466384993`*^9, { 3.6225017803030834`*^9, 3.6225018518910246`*^9}, 3.6225018964287386`*^9, 3.622501938501669*^9, {3.622501984427775*^9, 3.622502014051985*^9}, { 3.622502403493888*^9, 3.6225026025537157`*^9}, 3.622502649198612*^9, { 3.6225027085733547`*^9, 3.62250271718472*^9}, {3.6225027517700505`*^9, 3.622502779007476*^9}, {3.6225028916855536`*^9, 3.622502958390726*^9}, { 3.6225030043636312`*^9, 3.62250306036765*^9}, 3.6225031056859407`*^9, { 3.622503148352214*^9, 3.6225031835460396`*^9}, {3.622503276444635*^9, 3.6225037080711136`*^9}, 3.622503753920395*^9, {3.6225037952603016`*^9, 3.6225039185923204`*^9}, 3.6225040133455057`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{"3", "K", " ", "\:725b\:5c71", "\:3000", "\:614e\:4e00\:90ce"}], "\[IndentingNewLine]", RowBox[{"\:4f55\:306b\:3082\:601d\:3044\:6d6e\:304b\:3070\:306a\:304b\:3063\ \:305f\:306e\:3067", "\:3001", "\:30d6\:30c9\:30a6\:3092\:4f5c\:308a\:307e\:3057\:305f", "\:3002", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}], "Input", CellChangeTimes->{ 3.6225005212920427`*^9, {3.6225040403955593`*^9, 3.62250413291923*^9}}] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{1264, 888}, WindowMargins->{{12, Automatic}, {Automatic, 17}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, ShowSelection->True, 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, 224, 3, 49, "Subsection"], Cell[CellGroupData[{ Cell[1734, 42, 10428, 271, 772, "Input"], Cell[12165, 315, 4026, 63, 573, "Output"] }, Open ]], Cell[16206, 381, 452, 8, 92, "Input"] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature nuDc0bf9LK9uADwKLscfomUC *)