在 Mathematica 中使用 Plot3D 绘制 2D space + 时间的函数
Plotting function of 2D space + time using Plot3D in Mathematica
有没有简单的方法通过设置时间 t[=21 来绘制函数 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 对笔记本的其他部分具有象征意义。或者有没有办法制作一个随时间更新的剧情视频？
扩展评论。
交互操作剧情
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]
有没有简单的方法通过设置时间 t[=21 来绘制函数 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 对笔记本的其他部分具有象征意义。或者有没有办法制作一个随时间更新的剧情视频？
扩展评论。
交互操作剧情
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]