\documentclass[a4paper]{article}
\usepackage{animate,multido,pst-hertz}
\definecolor{rougesombre}{rgb}{0.5 0 0}
\begin{document}
\begin{center}
\begin{animateinline}[controls,loop,
                     begin={\begin{pspicture}(-7,-8)(7,8)},
                     end={\end{pspicture}}]{10}% 10 images/s
\multiframe{100}{i=0+1}{%
\psHertzDipole[t=\i,linewidth=1pt,linecolor=orange,doublecolor={[rgb]{0 0.5 0}},BiColorLines]
\psline{<->}(0,8)(0,0)(7,0)
\uput[r](0,7.5){\textcolor{rougesombre}{E(z=0,x,t)}}
\psset{xunit=1pt}
\multido{\i=-200+50}{9}{
\psline(\i,-7.2)(\i,-6.8)}
\psset{xunit=1pt}
\multido{\i=-200+50}{9}{
\psline(\i,-7.2)(\i,-6.8)}
\uput[d](-200,-7.2){$-2\lambda$}
\uput[d](-150,-7.2){$-\frac{3\lambda}{2}$}
\uput[d](-100,-7.2){$-\lambda$}
\uput[d](-50,-7.2){$-\frac{\lambda}{2}$}
\uput[d](200,-7.2){$2\lambda$}
\uput[d](150,-7.2){$\frac{3\lambda}{2}$}
\uput[d](100,-7.2){$\lambda$}
\uput[d](50,-7.2){$\frac{\lambda}{2}$}
\uput[d](0,-7.2){$0$}}
\end{animateinline}
\end{center}
\end{document}