Export Animations
Export Animations
After creating or editing an animation, you can export it for use in other programs.
Create and export a Manipulate object:
m = Manipulate[Plot3D[Sin[x y + a], {x, 0, 6}, {y, 0, 6}], {a, 0, 4}]Export["manipulate1.swf", %]