Animator

This notebook stores a sequece of .GIF images that can be be converted to a gif animation using the standard linux command:
 convert -delay 100 -loop 0 diff*.GIF anim.gif

FileName[filehead_,n_,gtype_]:=filehead<>
		ToString[PaddedForm[n,2,NumberPadding->{"0","0"}]]<>
			"."<>gtype

AniGif[plotfun_,imin_,imax_,filename_,gtype_]:=Do[Export[FileName[filename,i,gtype],plotfun[i],gtype],{i,imin,imax}]

Plotter[i_]:=Plot[Exp[-4*x*x/i]/Sqrt[i],{x,-2,2},PlotRange->{0,1}]

AniGif makes a Mathematica animation that can be viewed in the conventional way AND it stores a sequence of GIF animations. 

This first arguement in AniGif is any function with an integer argument that makes a plot.  The next two integers is the range of the integers.  The next is the base name for the sequence.  The last  is the graphics format type.

The example here makes diffuse001.GIF, diffuse002.GIF, ...

AniGif[Plotter,1,4,"diffuse","GIF"]