二维空间的绘图功能&x2B;在Mathematica中使用Plot3D计时

二维空间的绘图功能&x2B;在Mathematica中使用Plot3D计时,plot,wolfram-mathematica,Plot,Wolfram Mathematica,是否有一种通过设置时间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,所以我取了partials,我不需要对笔记本的其他部分表示。或者有没有办法制作随时间更新的情节视频?在评论上展开 以交互方式操纵绘图 f[x_, y_, t_] := Sin[

是否有一种通过设置时间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,所以我取了partials,我不需要对笔记本的其他部分表示。或者有没有办法制作随时间更新的情节视频?

在评论上展开

以交互方式操纵绘图

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]

这不是一部电影,但这样行吗
Plot3D[Table[f[x,y,t],{t,0,3,1/4}],{x,0,1},{y,0,1},PlotRange->All]
很有趣,感谢您提供的解决方案,它非常有用。我唯一改变的是不写f[x,y,t],我只需要写f。这将在同一个图上绘制不同时间点的数据,我将研究是否有一种简单的方法可以划分为多个图。再次感谢你!