Source de picturebouasse1.tex
Retour    vers le bas
\begin{center}
\begin{pspicture}(-7,-12)(7,6)
\pscircle[fillstyle=solid,fillcolor=MonGris]{\radius}
\psarcn{->}(0,0){6}{45}{20}
\psdots[dotsize=0.2](0,0)
\psline(-5,0)(5,0)
\psline(0,-1)(0,5)
\uput[180](0,5){$y$}
\uput[90](5,0){$x$}
\uput[45](0,0){\textbf{O}}
\masselotteB{\temps}
\psdots(B)
\masselotteC{\temps}
\psdots(C)
\masselotteD{\temps}
\psdots(D)
\masselotteE{\temps}
\psdots(E)
\masselotteA{\temps}
\psdots(A)
\uput[-45](E){\textbf{E}}
\uput[90](A){\textbf{A}}
\uput[45](B){\textbf{B}}
\uput[135](C){\textbf{C}}
\uput[45](D){\textbf{D}}
\pnode(A){A0}
\pnode(B){B0}
\pnode(C){C0}
\pnode(D){D0}
\pnode(E){E0}
\psline(1;225)
\psarcn{->}(0,0){0.75}{-90}{225}
\uput[247.5](0.75;247.5){$\THETA$}
% trajectoires des masselottes B,C,D,E
% trajectoire de la masselotte A
\trajectoires
% cercle intermédiaire
% \TrajectoireIndividuelle{100} % angle en paramètre
\renewcommand\temps{0.7}
\parametricplot[plotpoints=360]{0}{360}{%
    /rayon \radius\space dup mul
           \Vitesse\space dup mul
           \temps\space dup mul mul
            add sqrt def
     /xCercle rayon t cos mul def
     /yCercle rayon t sin mul def
     xCercle yCercle}
% lieu des points occupés par les masselottes à un instant donné
\parametricplot[plotpoints=360]{0}{360}{%
    /rayon \radius\space dup mul
           \Vitesse\space dup mul
           \temps\space dup mul mul
            add sqrt def
     /Ycentre \g\space \temps\space dup mul mul 2 div neg
     def
     /xCercle rayon t cos mul def
     /yCercle rayon t sin mul Ycentre add def
     xCercle yCercle}
\masselotteA{\temps}
\psdot(A)
\uput[180](A){$\ALPHA$}
\masselotteB{\temps}
\psdot(B)
\uput[-30](B){$\BETA$}
\masselotteC{\temps}
\psdot(C)
\uput[-90](C){$\GAMMA$}
\masselotteD{\temps}
\psdot(D)
\uput[0](D){$\DELTA$}
\masselotteE{\temps}
\psdot(E)
\uput[-70](E){$\EPSILON$}
\PtempA{\temps}
\psdot(a)
\uput[90](a){a}
\psline(A0)(a)(A)
\PtempB{\temps}
\psdot(b)
\uput[135](b){b}
\psline(B0)(b)(B)
\PtempC{\temps}
\psdot(c)
\uput[90](c){c}
\psline(C0)(c)(C)
\PtempD{\temps}
\psdot(d)
\uput[45](d){d}
\psline(D0)(d)(D)
\PtempE{\temps}
\psdot(e)
\uput[225](e){e}
\psline(E0)(e)(E)
% les flèches à l'extrémité des trajectoires
\renewcommand{\temps}{1}
\masselotteA{\temps}
\masselotteB{\temps}
\masselotteC{\temps}
\masselotteD{\temps}
\masselotteE{\temps}
\pnode(A){A1}
\pnode(B){B1}
\pnode(C){C1}
\pnode(D){D1}
\pnode(E){E1}
\renewcommand{\temps}{1.05}
\masselotteA{\temps}
\masselotteB{\temps}
\masselotteC{\temps}
\masselotteD{\temps}
\masselotteE{\temps}
\pnode(A){A2}
\pnode(B){B2}
\pnode(C){C2}
\pnode(D){D2}
\pnode(E){E2}
\psset{arrowsize=0.1,arrowinset=0.1}
\psline{->}(A1)(A2)
\psline{->}(B1)(B2)
\psline{->}(C1)(C2)
\psline{->}(D1)(D2)
\psline{->}(E1)(E2)
%\ParaboleSecurity{8}
%\TexteParaboleSecurity{3}
\end{pspicture}
\end{center}

 

Validation CSS Validation XHTML — Syracuse — Dernière modification : 13 juillet 2002 (0.08s - 3208728 - 5 juillet 2008) vers le haut