在Mathematica中使用Plot3D绘制2D空间+时间的绘图功能

Question

是否有通过设置时间 t 来绘制函数 f（x，y，t）= Exp [t-x-y] 的简单方法？我尝试了

的几种变体

Plot3D[Evaluate[f[t,x,y],t->0],{x,0,1},{y,0,1},PlotRange -> All]

但是我无法使其正常工作。我希望能够更改 t 并查看曲线图如何变化，但我还将方程 f 用于微分方程，所以我采用了偏需要 t 作为笔记本其他部分的象征。还是有一种制作随时间更新的情节视频的方法？

Answer 1

扩展评论。

交互式操作情节

f[x_, y_, t_] := Sin[t x] Sin[t y]
Manipulate[Plot3D[f[x, y, t], {x, -Pi, 2 Pi}, {y, -Pi, Pi}], {t, 0, 3, 1/8}]

生成地块列表

plots = Table[Plot3D[f[x, y, t], {x, -Pi, 2 Pi}, {y, -Pi, Pi}], {t, 0, 3, 1/8}];

将绘图导出到GIF动画

Export["plots.gif", plots]