2-D particle in a box

Needs["Graphics`Animation`"]

?Animate

Animate[command, iterator, options...] uses the iterator to run the specified graphics command, and animates the results. More…

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]

0.444288

14.1421

About 21 frames seem to work.

[Graphics:../HTMLFiles/MATH5_TUT1_561.gif]


Created by Mathematica  (September 7, 2006) Valid XHTML 1.1!