3D Graphics


おまちかね,3次元のグラフを書いてみよう(Plot3D).
In[49]:=
Plot3D[ Sin[x y], {x,-Pi,Pi}, {y,-Pi,Pi} ]
Out[49]=
-SurfaceGraphics-
PlotPointsオプションで計算する点を増やす(デフォールト値は15).
In[50]:=
Plot3D[ Sin[x y], {x,-Pi,Pi}, {y,-Pi,Pi},
	PlotPoints->30 ]
Out[50]=
-SurfaceGraphics-
ViewPointオプションは,視点の座標を指定する.
In[51]:=
Plot3D[ Sin[x y], {x,-Pi,Pi}, {y,-Pi,Pi},
	PlotPoints->30, Axes->False, Boxed->False,
	ViewPoint->{1.5,-1,3} ]
Out[51]=
-SurfaceGraphics-
等高線表示(ContourPlot).
In[52]:=
ContourPlot[ Sin[x y], {x,-Pi,Pi}, {y,-Pi,Pi} ]
Out[52]=
-ContourGraphics-
濃度表示(DensityPlot).多数の格子点で計算するときは,メッシュの線を消したほうが美しい.
In[53]:=
DensityPlot[ Sin[x y], {x,-Pi,Pi}, {y,-Pi,Pi},
	PlotPoints->50, Mesh->False ]
Out[53]=
-DensityGraphics-
In[54]:=
DensityPlot[Sin[x/y], {x,-2,2}, {y,-2,2},
	PlotPoints->100, Mesh->False ]
Out[54]=
-DensityGraphics-
おまけ.2項係数を8で割った余りを濃度として表示(ListDensityPlot).
In[55]:=
ListDensityPlot[
	Table[Mod[Binomial[i,j],8], {i,0,127}, {j,0,127}],
	Mesh->False ]
Out[55]=
-DensityGraphics-

最初に戻る 前へ 次へ
Dept. CS / Faculty of Eng. / Kobe Univ. / Naoyuki Tamura