Here I show how to export an animation as a GIF in mathematica
Essentially all you need to do is: Export["anim.gif", frames], where frames is a list of same-dimension images. E.g. Export["wave.gif", Table[Plot[Sin[x + t], {x, 0, 2 Pi}], {t, 0, 2 Pi, 2 Pi/50}][[;; -2]]]
Final gif: [ Ссылка ]
My blog: [ Ссылка ]
Twitter: [ Ссылка ]
Ещё видео!