Animations


アニメーションを表示させよう.
In[112]:=
Needs["Graphics`Animation`"]
図のすぐ右にある線のさらに少し右側をマウスでクリックしてから, Animate Selected Graphicsメニューを選ぶと絵が動く. ウィンドウの下に表示される下矢印をマウスでクリックすると動きが 少し遅くなる.ウィンドウ中でマウスをクリックすると終わる.
In[113]:=
Animate[ Plot[Sin[n x], {x,0,2Pi}], {n,1,6,0.5} ]
In[114]:=
Animate[
	Plot3D[Sin[n x] Sin[n y], {x,0,2Pi}, {y,0,2Pi},
			PlotRange->{-1,1} ],
	{n,1,2,0.1} ]

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