1つ以上の表面を示す等高線図おそらく透明度もあります。f(x,y,z)=(const.)
Mathematicaでは、
ContourPlot3D[
Abs[Sin[\[Pi] x] Sin[\[Pi] y] Sin[\[Pi] z]]^2 == 1/2,
{x, -1, 1}, {y, -1, 1}, {z, -1, 1}]
一定の確率0.2、0.5、0.8の曲面を表示します。
ContourPlot3D[
Abs[Sin[\[Pi] x] Sin[\[Pi] y] Sin[\[Pi] z]]^2,
{x, -1, 1}, {y, -1, 1}, {z, -1, 1}, Contours -> {0.2, 0.5, 0.8},
ContourStyle -> (Directive[#, Opacity[0.25]] & /@ {Yellow, Orange, Red}),
Lighting -> "Neutral", Mesh -> None]
切り抜きやスライスを使用して、何らかのタイプのボリュームの視覚化を行うことができます。3Dの各ポイントに色と不透明度を割り当てることができます。さらに高度なツールを使用すると、伝達関数を選択できます。
imgdata =
Table[Abs[Sin[\[Pi] x] Sin[\[Pi] y] Sin[\[Pi] z]]^2,
{x, -1., 1, .01}, {y, -1., 1, .01}, {z, -1., 1, .01}];
img = Image3D[imgdata, ClipRange -> {{150, 200}, {0, 100}, {0, 200}}]
特に、表示するスライスをインタラクティブに制御できる場合は、スライスが役立ちます。
Image3DSlices[img, Range[1, 200, 10]]