Friday, December 27, 2019

Animated Plots


Animate[Plot[Exp[-(-t+k/4)^2]*Sin[2Pi*(t+k/4)],
{t,-3,3},PlotRange->{-1,1},Filling->Axis,
PlotStyle->Hue[.05k],ImageSize->500,AspectRatio->1],{k,20},
AnimationRate->.5,AnimationRunning->False]

Posted by at
Labels: , ,

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)