g = Table[ Plot3D[Sin[2Pi(t/10 - 0.5*Sqrt[(x - 4)^2 + y^2])]
/Sqrt[(x - 4)^2 + y^2] +
Sin[2Pi(t/10 - 0.5*Sqrt[(x + 4)^2 + y^2])]/ Sqrt[(x + 4)^2 + y^2],
{x, -8, 8}, {y, -8, 8}, PlotPoints -> 80,
Mesh -> False, Axes -> False, Boxed -> False,
PlotRange -> {-5, 5}], {t,0, 10, 0.5}]
画像として保存するとき
Export["kyuu.gif", g, "GIF"]
