\DocumentMetadata{}
\documentclass[pstricks]{standalone}
\usepackage{multido,pst-hertz}
\definecolor{rougesombre}{rgb}{0.5 0 0}
\begin{document}
\multido{\i=0+1}{100}{%
  \begin{pspicture}(-8,-8)(8,8)
  \psclip{\psframe(-8,-7)(8,8)}
  \psHertzDipole[t=\i,linewidth=1.2pt,linecolor=orange,doublecolor={[rgb]{0 0.5 0}},BiColorLines]%
  \endpsclip%
  \psline{<->}(0,8)(0,0)(8,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{pspicture}}
\end{document}