WOLFRAM

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

アップグレード情報：

Graphics`Graphics3D`

ListPointPlot3Dが組込みのMathematicaカーネルに加わった．
ListSurfacePlot3Dが組込みのMathematicaカーネルに加わった．
BarChart3Dが組込みのMathematicaカーネルに加わった．
Histogram3Dが組込みのMathematicaカーネルに加わった．

ScatterPlot3Dの機能が，組込みのMathematicaカーネル関数ListPointPlot3Dで利用できるようになった：

Version 5.2 << Graphics`Graphics3D`; ScatterPlot3D[Table[{Cos[t], Sin[t], Sqrt[t]}, {t, 0, 4 Pi, 0.2}]]
Wolfram Language code: ListPointPlot3D[Table[{Cos[t], Sin[t], Sqrt[t]}, {t, 0, 4 Pi, 0.2}], BoxRatios -> Automatic]

ListSurfacePlot3Dが組込みのMathematica関数になった：

Version 5.2 << Graphics`Graphics3D`; ListSurfacePlot3D[ Table[{Cos[t] Cos[u], Sin[t] Cos[u], Sin[u]}, {t, 0, \[Pi], \[Pi]/5}, {u, 0, \[Pi]/2, \[Pi]/10}]]
Wolfram Language code: ListSurfacePlot3D[Table[{Cos[t] Cos[u], Sin[t] Cos[u], Sin[u]}, {t, 0, π, π / 5}, {u, 0, π / 2, π / 10}]//Flatten[#, 1]&]

Histogram3Dが組込みのMathematica関数になった：

Version 5.2 << Graphics`Graphics3D`; Histogram3D[{{7, 0}, {0, 8}, {0, 8}, {3, 7}, {1, 6}, {1, 10}, {4, 9}, {1, 5}, {10, 6}, {0, 2}, {5, 0}, {7, 6}, {9, 7}, {0, 9}, {3, 9}}]
Wolfram Language code: Histogram3D[{{7, 0}, {0, 8}, {0, 8}, {3, 7}, {1, 6}, {1, 10}, {4, 9}, {1, 5}, {10, 6}, {0, 2}, {5, 0}, {7, 6}, {9, 7}, {0, 9}, {3, 9}}, BoxRatios -> {1, 1, 1}, ChartStyle -> Directive[EdgeForm[Black], White], Lighting -> Automatic]

BarChart3Dが組込みのMathematica関数になった：

Version 5.2 << Graphics`Graphics3D`; BarChart3D[{{2, 1, 6, 7, 4}, {7, 9, 1, 0, 4}, {5, 2, 6, 2, 7}, {4, 3, 0, 0, 10}, {8, 9, 1, 0, 9}}]
Wolfram Language code: BarChart3D[{{2, 1, 6, 7, 4}, {7, 9, 1, 0, 4}, {5, 2, 6, 2, 7}, {4, 3, 0, 0, 10}, {8, 9, 1, 0, 9}}//Transpose, BarSpacing -> {0, 0}, ChartElementFunction -> "Cube", ChartLayout -> "Grid", ChartStyle -> Directive[EdgeForm[Black], White], Lighting -> Automatic]

積み重なった2Dプロットを表示する：

Version 5.2 << Graphics`Graphics3D`; StackGraphics[Table[Plot[Sin[x]^n, {x, 0, \[Pi]}], {n, 5}]]
Wolfram Language code: Graphics3D[MapIndexed[Cases[#, Line[L_] :> Line[Thread[{L[[All, 1]], #2[[1]] / 5, L[[All, 2]]}]], -1]&, Table[Plot[Sin[x] ^ n, {x, 0, π}], {n, 5}]], Axes -> True, BoxRatios -> {1, 1, 1}]

SkewGraphics3DおよびTransformGraphics3Dの機能が，組込みのMathematicaカーネル関数GeometricTransformationで利用できるようになった：

Version 5.2 << Graphics`Graphics3D`; Show[SkewGraphics3D[ Graphics3D[ Plot3D[Sin[x + Cos[y]], {x, 0, 2 \[Pi]}, {y, 0, 2 \[Pi]}]], {{1, 0, 1}, {0, 1, 0}, {0, 0, 1}}]]
Wolfram Language code: Plot3D[Sin[x + Cos[y]], {x, 0, 2π}, {y, 0, 2π}, PlotRange -> All] /. Graphics3D[gr_, opts___] :> Graphics3D[GeometricTransformation[gr, {{1, 0, 1}, {0, 1, 0}, {0, 0, 1}}], opts]

グラフィックスオブジェクトを平面上に投影する：

Version 5.2 << Graphics`Graphics3D`; bell = ParametricPlot3D[{Sin[t], Sin[2 t] Sin[u], Sin[2 t] Cos[u]}, {t, -\[Pi]/2, \[Pi]/2}, {u, 0, 2 \[Pi]}] Project[bell, {1, 1, 0}]
Wolfram Language code: ParametricPlot3D[{Sin[t], Sin[2t] Sin[u], Sin[2t] Cos[u]}, {t, -π / 2, π / 2}, {u, 0, 2π}, PlotRange -> All] /. Graphics3D[gr_, opts___] :> Graphics3D[GeometricTransformation[gr, ScalingTransform[10 ^ -3, {1, 1, 0}, {1, 1, 0}]], opts]

Shadow，ShadowPlot3D，ListShadowPlot3Dの機能は組込みMathematicaカーネル関数Scaleを使って得られる：

Version 5.2 << Graphics`Graphics3D`; Shadow[Plot3D[Sin[x y], {x, 0, 3}, {y, 0, 3}]]
Wolfram Language code: Plot3D[Sin[x y], {x, 0, 3}, {y, 0, 3}, PlotRange -> All] /. Graphics3D[gr_, opts___] :> Graphics3D[{gr, Scale[gr, #, {-1, -1, -1}]& /@ (1 + 10 ^ -3 - IdentityMatrix[3])}, opts]

もとのパッケージはWeb(library.wolfram.co.jp/infocenter/MathSource/6766)から利用できるようになった．