不透明度を使って関数を見る

最も不透明度が高いであろう値の区間を与えることで，立体のさまざまな構造に焦点を当てる．

In[1]:=

cf = (Blend[{XYZColor[0.3651259694591164, 0.5882434929515259, 0.08575524579794143], XYZColor[0.44154536812995837, 0.22482156190870056, 0.041237128840346395], XYZColor[0.24982301302021226, 0.24942975572041332, 0.7394759844029367]}, #] &);

In[2]:=

func = Sum[ Cos[5 Norm[{x, y, z} - {Sin[\[Theta]], Cos[\[Theta]], 0}]], {\[Theta], 0., 2 \[Pi] - (2 \[Pi])/3, (2 \[Pi])/3}];

In[3]:=

Grid[Partition[ Table[DensityPlot3D[func, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, OpacityFunction -> Interval[{a, a + .1}], ColorFunction -> cf, PlotTheme -> "Web"], {a, 0, .9, .2}], 2]]

動画を開始

動画を中止