Wolfram言語

立体の可視化

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

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

完全なWolfram言語入力を表示する
In[1]:=
Click for copyable input
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]:=
Click for copyable input
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]:=
Click for copyable input
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]]
動画を開始
動画を中止

関連する例

de en es fr ko pt-br ru zh