[Date Index] [Thread Index] [Author Index]

Re: ListAnimate and GIF format saving

• To: mathgroup at smc.vnet.net
• Subject: [mg83538] Re: ListAnimate and GIF format saving
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Thu, 22 Nov 2007 04:53:52 -0500 (EST)
• Organization: Uni Leipzig
• References: <fi0q7r$6ls$1@smc.vnet.net>
• Reply-to: kuska at informatik.uni-leipzig.de

Hi,

you wish to reduce the file size by a factor of 20 ?
And neither *.AVI nor *.GIF will have such a huge compression
ratio.
Mathematica will not do this, you can experiment with MPEG
(QuickTime the version that cost money) or any other video
processing software that comes with an MPEG encoder.

Regards
   Jens



nilaakash at gmail.com wrote:
> 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
>