I am learning how to do animations in Maple, and I need to export an animation I made to animated gif file.
nTerms := 20:
lam := evalf([BesselJZeros(0,1..nTerms)]):
c := seq(1/lam[n]^2*BesselJ(1,lam[n]/2)/BesselJ(1,lam[n])^2,n=1..nTerms):
mySol := proc(r,t)
local n;
4/Pi*sum(c[n]*BesselJ(0,lam[n]*r)*sin(lam[n]*t),n=1..nTerms);
end proc:
maxTime := 5: (*seconds*)
delay := 0.03:
nFrames := round(maxTime/delay):
frames := Array([seq(0,i=1..nFrames)]):
frames := [seq( plot3d([ r, theta, mySol(r,(i*delay)) ],
r = 0..1,
theta = 0..2*Pi,
coords = cylindrical,
axes = none,
title = sprintf("%s %3.2f %s","time ",(i*delay),"seconds")
),
i=0..nFrames-1)
]:
plots:-display(convert(frames,list),insequence=true);
And the above makes
