>
with(plots):
>
cykloida:= plot( [t-sin(t), 1-cos(t), t=0..4*Pi]):
animate( pointplot, [ [t-sin(t), 1-cos(t)], symbol=circle, symbolsize=20],
t=0..4*Pi, frames=60, background=cykloida );
>