dimanche 28 février 2016

Ondes Hertziennes : complément à l'article de Carlo Alberini.

On considère que la source est périodique(sinusoïdale), et on représente la propagation de l'onde le long de l'axe, lorsque le champ en chaque point du milieu varie périodiquement comme la source. C'est donc le couple (E(t),B(t)) qui est dessiné en différents points de l'axe.

Les fichiers ondesHertziennes.pdf et ondesHertziennes.tex sont dans :

L'animation dans le fichier pdf, dans les 2 exemples celui de Carlo et le mien, a été réalisée avec le package animate d'Alexander Grahn.


Pour produire les images de l'animation Gif, le listing suivant est à compiler par : LaTeX->DVIPS->ps2pdf :

\documentclass{article}
\usepackage[paperwidth=20cm,paperheight=9cm,hmargin={0cm,0cm},vmargin={0cm,0cm},dvips]{geometry}
\usepackage[garamond]{mathdesign}
\usepackage{pst-plot,pst-3d,pst-node}
\psset{plotpoints=1000}
\psset{dimen=middle}
\title{Ondes hertziennes}
\date{27 février 2016}
\pagestyle{empty}
\begin{document}

\begin{center}
\multido{\rt=0+0.062832}{100}{% T=2Pi
\begin{pspicture}(-1,-7)(19,2)
\psframe(-1,-7)(19,2)
\psset{viewpoint=0.5 -1 0.75}
\ThreeDput[normal=0 -1 0](0,0,0){%
\psgrid[subgriddiv=0,gridcolor=black,griddots=10,gridlabels=0pt](0,-2)(20,2)
\psframe(0,-2)(20,0)}
\ThreeDput[normal=0 0 -1](0,0,0){%
\psframe[linewidth=1.5\pslinewidth](0,-2)(20,2)
\psgrid[subgriddiv=0,gridcolor=black,griddots=10,gridlabels=0pt,gridwidth=1.2pt](0,-2)(20,2)
\pstVerb{/ti \rt \space def
/pi 3.14159 def
/RadtoDeg { 180 mul pi div } bind def
/tabArrows { % 40 points
    [0 0.5 20 {/xi exch def %
      xi
      0
      xi
      ti xi sub RadtoDeg sin
      } for
    ]
} def}%
\pscustom[fillstyle=solid,fillcolor=blue!50,linestyle=none,opacity=0.6]{%
\psparametricplot[algebraic]{0}{20}{t|sin(ti-t)}
\psline(!20 0)(0,0)}
\multido{\i=0+4}{40}{%
\psline[linecolor=blue,arrowinset=0,linewidth=0.04]{->}(!tabArrows \i\space get tabArrows \i\space 1 add get)(!tabArrows \i\space 2 add get tabArrows \i\space 3 add get)}}
\ThreeDput[normal=0 -1 0](0,0,0){%
\psgrid[subgriddiv=0,gridcolor=black,griddots=10,gridlabels=0pt](0,-2)(20,2)
\psframe(0,0)(20,2)
\pscustom[fillstyle=solid,fillcolor=red!20,linestyle=none,opacity=0.6]{%
\psparametricplot[algebraic]{0}{20}{t|sin(ti-t)}
\psline(!20 0)(0,0)}
\multido{\i=0+4}{40}{%
\psline[linecolor=red,arrowinset=0]{->}(!tabArrows \i\space get tabArrows \i\space 1 add get)(!tabArrows \i\space 2 add get tabArrows \i\space 3 add get)}}
\ThreeDput[normal=1 0 0](0,0,0){%
    \uput[0](0.2,1){\red $\overrightarrow{E\hspace{0.2em}}$}
    \uput[90](-1,0){\blue $\overrightarrow{B\hspace{0.2em}}$}
    }
\ThreeDput[normal=0 0 -1](0,0,0){%
    \psline[arrowinset=0,linecolor=blue]{->}(0,1)}
\ThreeDput[normal=0 -1 0](0,0,0){%
    \psline[arrowinset=0,linecolor=red]{->}(0,1)}
\end{pspicture}\newpage}
\end{center}
\end{document}



Aucun commentaire:

Enregistrer un commentaire