2-D particle in a box
Needs["Graphics`Animation`"]
?Animate
Lx=2;T=20;nnx=3;
Ly=2;vel=(1/15);nny=3;
w = N[(vel Pi) (Sqrt[(nnx/Lx)^2 + (nny/Ly)^2])]
T = N[2 Pi/w]
About 21 frames seem to work.
Created by Mathematica (September 7, 2006) | ![]() |