Lässt sich quasi 1:1 übersetzen:
\documentclass[preview,multi]{standalone}
\usepackage{tikz}
% static point
% #1 : half of the number of points
% #2 : ith point
\def\x[#1,#2]{(3*cos(deg(pi/#1*#2)))}
\def\y[#1,#2]{(3*sin(deg(pi/#1*#2)))}
% oscillated point
% #1 : half of the number of points
% #2 : ith point
% #3 : time parameter
\def\X[#1,#2]#3{(\x[#1,#2]*cos(deg(#3+pi/#1*#2)))}
\def\Y[#1,#2]#3{(\y[#1,#2]*cos(deg(#3+pi/#1*#2)))}
% single frame
% #1 : half of the number of points
% #2 : time parameter
\def\Frame#1#2{%
\begin{tikzpicture}[x=.3cm,y=.3cm]
\filldraw (0,0) circle (3*.3cm+2pt);
\foreach \i in {1,...,#1}{
\draw[yellow]({\x[#1,\i]},{\y[#1,\i]}) -- ({-\x[#1,\i]},{-\y[#1,\i]});
}
\foreach \i in {1,...,#1}{
\filldraw[white] ({\X[#1,\i]{#2}},{\Y[#1,\i]{#2}}) circle (2pt);
}
\end{tikzpicture}}
\begin{document}
\foreach \t in {0,...,24}
{
\preview
\Frame{1}{2*pi*\t/25} \quad \Frame{2}{2*pi*\t/25} \quad \Frame{3}{2*pi*\t/25} \quad \Frame{5}{2*pi*\t/25} \quad \Frame{10}{2*pi*\t/25}
\endpreview
}
\end{document}
> ![alt text][1]
[1]: http://http://texwelt.de/wissen/upfiles/r_9.gif
