re,
je ne comprends pas pourquoi dans l'ECM ci-dessous le point qui tourne le moins vite, censé être en rouge est en noir.
Code : Tout sélectionner
\documentclass[11pt,a4paper]{article}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[french]{babel}
\usepackage{geometry}
\usepackage{pst-all}
\usepackage{animate}
\begin{document}
\noindent\psframebox{
\psset{unit=1cm,dimen=middle}
\noindent\psframebox{
\begin{pspicture}(-3,-0.5)(3,0.5)
\rput(0,0){
${\blue \omega_b} = 5\times{\red \omega_r}$
}
\end{pspicture}
}
\psframebox{
\begin{pspicture*}(-5,-0.5)(5,0.5)
\rput(0,0){
${\blue s_b(t)=3\sin(\omega_b t)}\quad {\red s_r(t)=3\sin(\omega_r t)}$
}
\end{pspicture*}
}
}\\
\noindent\psframebox{
\begin{animateinline}[controls]{5}
\multiframe{91}{rA=0.0+5}{%
\psset{unit=1cm,dimen=middle}
\psframebox{
\begin{pspicture}(-3,-4)(3,4)
\rput(0,0){%
\pscircle[linecolor=lightgray,linewidth=1pt](0,0){3}
\psdot[linecolor=red,dotsize=4pt](! \rA\space cos 3 mul \rA\space sin 3 mul )
\psline[linecolor=red,linewidth=0.4pt](! 0.01 0.00)(! 0.01 \rA\space sin 3 mul)
\psdot[linecolor=blue,dotsize=4pt](! \rA\space 5 mul cos 3 mul \rA\space 5 mul sin 3 mul)
\psline[linecolor=blue,linewidth=0.4pt](! -0.01 0.00)(! -0.01 \rA\space 5 mul sin 3 mul)
}
\end{pspicture}
}
\psframebox{
\begin{pspicture*}(-5,-4)(5,4)
% grille
\psgrid[gridlabels=0pt,gridcolor=black!50,subgridcolor=black!15,subgriddots=10]
% graduations
\multirput(-5,0)(0.2,0){50}{\psline[linewidth=0.8pt](0,0.1)(0,-0.1)}
\multirput(0,-4)(0,0.2){40}{\psline[linewidth=0.8pt](-0.1,0)(0.1,-0)}
% cadre
\psline[linecolor=black!100,linewidth=1.2pt](-5,-4)(-5,4)(5,4)(5,-4)(-5,-4)
% courbe 1
\psplot[plotstyle=curve,linestyle=dashed,algebraic,linecolor=red,linewidth=1.2pt,plotpoints=200]{-5}{5}{3*sin(0.25*3.14*(x+5))}
% point mobile sur la courbe 1
\psdot[linecolor=red,dotsize=4pt](! \rA\space 8 mul 360 div 5 sub \rA\space sin 3 mul)
% courbe 2
\psplot[plotstyle=curve,linestyle=dashed,algebraic,linecolor=blue,linewidth=1.2pt,plotpoints=400]{-5}{5}{3*sin(1.25*3.14*(x+5))}
% point courbe 2
\psdot[linecolor=blue,dotsize=4pt](! \rA\space 4 mul 2 mul 360 div 5 sub \rA\space 5 mul sin 3 mul)
\end{pspicture*}
}
}
\end{animateinline}
}
\end{document}
Merci de votre attention