WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

アップグレード情報：

Graphics`Shapes`

RotateShape，TranslateShape，AffineShapeの機能が，新規に加わったカーネル関数のRotate，Translate，Scale，GeometricTransformationで提供されるようになった．
Sphere，Cylinder，Coneが新しい組込みカーネル関数のSphere，Cylinder，Coneとして利用できるようになった．
TorusとMoebiusStripがカーネル関数のExampleDataで利用できるようになった．

3Dの形を表示する：

Version 5.2 << Graphics`Shapes`; Show[Graphics3D[MoebiusStrip[3, 1]]]
Wolfram Language code: ExampleData[{"Geometry3D", "MoebiusStrip"}]

座標軸の方向にスケールする：

Version 5.2 << Graphics`Shapes`; Show[AffineShape[Graphics3D[Cylinder[]], {2, 1, 1}]]
Wolfram Language code: Graphics3D[Scale[Cylinder[], {2, 1, 1}, {0, 0, 0}]]

形を変換する：

Version 5.2 << Graphics`Shapes`; Show[Graphics3D[Torus[3, 1]], TranslateShape[Graphics3D[Torus[3, 1]], {3, 0, 0}]]
Wolfram Language code: Show[{ExampleData[{"Geometry3D", "Torus"}], ExampleData[{"Geometry3D", "Torus"}] /. Graphics3D[gr_, opt___] :> Graphics3D[Translate[gr, {3, 0, 0}], opt]}]

メビウスの環をオイラー角 ，， 分だけ回転させる：

Version 5.2 << Graphics`Shapes`; Show[RotateShape[Graphics3D[MoebiusStrip[3, 1]], Pi/4, Pi/3, Pi/2]]
Wolfram Language code: mat = RotationMatrix[Pi - Pi / 2, {0, 0, 1}].RotationMatrix[Pi / 3, {1, 0, 0}].RotationMatrix[Pi - Pi / 4, {0, 0, 1}]; ExampleData[{"Geometry3D", "MoebiusStrip"}] /. Graphics3D[gr_, opt___] :> Graphics3D[GeometricTransformation[gr, mat], opt]

以下の関数は以前のバージョンの Mathematica で利用できたが，Web ( library.wolfram.co.jp/infocenter/MathSource/6793)でも利用できるようになった．

DoubleHelix
Helix
OutlinePolygons
PerforatePolygons
ShrinkPolygons
WireFrame