multiple animations
A student in my PDE class asked about having two functions in animation at the same time. Here is how I suggested doing this:
> f:=(t,x)->sin(t)*x*(1-x);
> g:=(t,x)->cos(t)*x*(1-x);
> N:=50;
> for n from 0 to N do
J[n]:=plot([f(2*Pi*n/N,x),g(2*Pi*n/N,x)],x=0..1):
od:
n:='n':
> plots[display]([seq(J[n],n=0..N)],insequence=true);
Is there a simpler way?
Jim Herod
Loading Comments & Answers
