The seemingly random and chaotic motion of 5,000 particles are captured in just 20 frames which repeat in a mere 2 second long loop, but results in a much longer apparent motion. If the motion of any single particle is followed it takes about 30 minutes for the particle to return to its original location.
In[]:=
G[p_,q_,a_,b_,c_,t_]:=Graphics[Table[{Opacity[.7],White,Disk[{.71*Cos[a(.05*t+n)*Pi/500+p],Cos[b(.05*t+n)*Pi/500+q]},.002*Cos[c(.05*t+n)*Pi/500]+.005]},{n,1,1000}],PlotRange{{-.715,.715},{-1.005,1.005}},BackgroundRGBColor[54/255,70/255,93/255],ImageSize500];
In[]:=
Manipulate[Show[G[0,.2,29,13,11,t],G[0,.2,19,31,9,t],G[.3,.29,3,23,17,t],G[0,.3,43,7,3,t],G[.1,.13,31,19,2,t]],{t,1,20,1}]
Out[]=
