Функция построения 2D-пространства + время с использованием Plot3D в Mathematica - PullRequest
0 голосов
/ 17 декабря 2018

Существует ли простой способ построения функции f (x, y, t) = Exp [txy] путем установки времени t ?Я пробовал несколько вариантов

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

Но я не могу заставить его работать.Я хочу иметь возможность изменить t и посмотреть, как меняется график, но я также использую уравнение f для дифференциального уравнения, поэтому я беру частичные числа и мне нужно t символично для других частей ноутбука.Или есть способ сделать сюжетный ролик, который обновляется со временем?

1 Ответ

0 голосов
/ 17 декабря 2018

Расширение комментариев.

Интерактивное управление графиком

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

...