Расширение комментариев.
Интерактивное управление графиком
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]
![enter image description here](https://i.stack.imgur.com/15Few.gif)