Чем рисовать анимированный график?

Question

[Russiancold]

Надо нарисовать красивый анимированный график для довольно нетривиальной функции в 2D. Что посоветуете? Язык или тулзы какие-нибудь, чтобы быстро и просто. В вольфраме попробовал - как-то это ущербно выглядит. И да, не знаю как тут относятся к таким вопросам, но на стеке бы меня точно распнули. Не серчайте, если что.
UPD: Анимировать, конечно по t. A,B,C,a,h - константы. "Ущербно" - в плане 2 FPS.
Вот что у меня получилось:
Вот что я хочу:

Comments

[longclaps]

Не распнули, а напялили распяли.

[Russiancold]

longclaps, Я проверил - такое слово есть :D

[Moskus]

Russiancold, не слово, а форма слова - в будущем времени, но не в прошедшем.

[youngmysteriouslight]

Уточните, что именно Вы хотите построить. Что параметры? От каких действительных переменных зависит выражение? По какому параметру нужно делать анимацию? Как рассматривать комплексное значение функции: как двумерный вектор или по абс. величине?

В любом случае, если у Вас есть WM, проще будет сделать в нём, чем учиться новым инструментам. Нужно только чётко сформулировать требования к результату и недостатки предложенного решения (т.е. расскрыть смысл фразы как-то это ущербно выглядит). Ну и доки покурить или здешних знатоков нарячь вместо Вас их курить, благо, они подробные.

[Russiancold]

youngmysteriouslight, выкатил апдейт. По абсолютной величине. WM я скачал только для этого и тут же с ним разбирался, так что разницы нет)

Answer 1

[youngmysteriouslight]

Wolfram Mathematica (8.0)

f[x_, t_] := Abs[Sin[x] Exp[I t] + Sin[3 x] Exp[I t] + Sin[5 x] Exp[3 I t]];

xmax = 2; tmax = 10;
fmax = NMaxValue[{f[x, t], 0 < x < xmax, 0 < t < tmax}, {x, t}]

frames = Table[Plot[f[x, t], {x, 0, xmax},
    PlotRange -> {-(1/5) fmax, 6/5 fmax},
    ImageSize -> 500,
    PlotStyle -> Directive[Thickness[0.01], RGBColor[99/256, 100/256, 202/256]],
    Axes -> None,
    Background -> RGBColor[66/256, 69/256, 136/256]
    ], {t, 0, tmax, 0.1}];

ListAnimate[frames]

Export["/disk/animation.gif", frames, "DisplayDurations" -> 0.02]

Стили взяты из приведённого Вами желаемого вида.
Здесь строится явно список кадров, так удобнее экспортировать в GIF и комбинаровать их с другим набором кадров.

Comments

[Russiancold]

Вы прегенерите таблицу, а потом её отрисовываете, да? А я просто пытался Animate'ом отрисовывать Plot, и как я ни менял dt плавнее не становилось, спасибо!

[youngmysteriouslight]

Я предпочитаю работать с кадрами явно.
Вы можете написать
Animate[Plot[...], {t, 0, tmax, 0.1}]
результат будет тот же.
Правда, я не знаю, нужно ли какие-то дополнительные параметры указывать, чтобы экспортировать в gif. Но в ноутбуке анимация будет в точности такой же.

[Russiancold]

Все, я понял в чем была проблема - вольфрам не причем. Просто специфика функции - dt надо брать 10^(-7), чтобы было красиво.

Answer 2

[ой всё]

вы тут распугали всех своей квантовой физикой :)

разве что искать "math functions plot" и пробовать их по очереди, если что-то подойдет

как вариант, написать javascript, который дает какой-то массив данных в виде json и потом рендерить красивые графики с https://www.highcharts.com/demo

Comments

[Russiancold]

Вау, второй вариант - классный, если получится апроксимировать. Просто из интереса попробую.

Answer 3

[Griboks]

Matlab

Comments

[Russiancold]

Думаю, что в matlab'е получится то же, что и в вольфраме. Вы пробовали? Как вышло?

[Griboks]

Russiancold, чем меньше интервал дискретизации, тем плавнее анимация)