ListAnimate and GIF format saving
- To: mathgroup at smc.vnet.net
- Subject: [mg83495] ListAnimate and GIF format saving
- From: "nilaakash at gmail.com" <nilaakash at gmail.com>
- Date: Wed, 21 Nov 2007 03:04:37 -0500 (EST)
Hi,
I am sending a small code (in Mathematica 6.0). Here data plots
as animation and I want to save as a .gif file.
I have saved as an .avi file but its size is huge (~37Mb). Is it
possible to save as .gif or any other movie type file within ~2Mb
size ?
Please reply.
Thanks.
a = 0.33; b = 0.22; c = 353;
f = a (1 - x/c)^b;
data = Table[{x, f}, {x, 352.5, 300, -0.5}];
p = ListAnimate[
Table[ListPlot[Take[data, i], Frame -> True, Axes -> False,
Mesh -> All, ImageSize -> 500,
PlotRange -> {{353, 300}, {0.075, 0.22}}], {i, Length[data]}],
AnimationRepetitions -> 2]
Export["test.avi", p, "AVI"];
With regards.
nilaakash