Source de macropicbouasse.tex
% masselotte quelconque
% \masselotte{date}{angle}
\newcommand\masselotte[2]{%
\pnode(!
    /xPoint \radius\space #2 sin mul neg
            \Vitesse\space #2 cos mul #1 mul sub def
    /yPoint \radius\space #2 cos mul neg
            \Vitesse\space #2 sin mul #1 mul add
            \g\space #1 dup mul mul 2 div sub def
    xPoint yPoint){M}}
\newcommand\masselotteA[1]{%
\pnode(!
    /xPoint \radius\space 0 sin mul neg
            \Vitesse\space 0 cos mul #1 mul sub def
    /yPoint \radius\space 0 cos mul neg
            \Vitesse\space 0 sin mul #1 mul add
            \g\space #1 dup mul mul 2 div sub def
    xPoint yPoint){A}}
\newcommand\masselotteB[1]{%
\pnode(!
    /xPoint \radius\space 45 sin mul neg
            \Vitesse\space 45 cos mul #1 mul sub def
    /yPoint \radius\space 45 cos mul neg
            \Vitesse\space 45 sin mul #1 mul add
            \g\space #1 dup mul mul 2 div sub def
    xPoint yPoint){B}}
\newcommand\masselotteC[1]{%
\pnode(!
    /xPoint \radius\space 135 sin mul neg
            \Vitesse\space 135 cos mul #1 mul sub def
    /yPoint \radius\space 135 cos mul neg
            \Vitesse\space 135 sin mul #1 mul add
            \g\space #1 dup mul mul 2 div sub def
    xPoint yPoint){C}}
\newcommand\masselotteD[1]{%
\pnode(!
    /xPoint \radius\space 225 sin mul neg
            \Vitesse\space 225 cos mul #1 mul sub def
    /yPoint \radius\space 225 cos mul neg
            \Vitesse\space 225 sin mul #1 mul add
            \g\space #1 dup mul mul 2 div sub def
    xPoint yPoint){D}}
\newcommand\masselotteE[1]{%
\pnode(!
    /xPoint \radius\space -45 sin mul neg
            \Vitesse\space -45 cos mul #1 mul sub def
    /yPoint \radius\space -45 cos mul neg
            \Vitesse\space -45 sin mul #1 mul add
            \g\space #1 dup mul mul 2 div sub def
    xPoint yPoint){E}}
% points de construction intermédiaires
\newcommand\PtempA[1]{%
\pnode(!
    /xPoint \radius\space 0 sin mul neg
            \Vitesse\space 0 cos mul #1 mul sub def
    /yPoint \radius\space 0 cos mul neg
            \Vitesse\space 0 sin mul #1 mul add
            def
    xPoint yPoint){a}}
\newcommand\PtempB[1]{%
\pnode(!
    /xPoint \radius\space 45 sin mul neg
            \Vitesse\space 45 cos mul #1 mul sub def
    /yPoint \radius\space 45 cos mul neg
            \Vitesse\space 45 sin mul #1 mul add
             def
    xPoint yPoint){b}}
\newcommand\PtempC[1]{%
\pnode(!
    /xPoint \radius\space 135 sin mul neg
            \Vitesse\space 135 cos mul #1 mul sub def
    /yPoint \radius\space 135 cos mul neg
            \Vitesse\space 135 sin mul #1 mul add
            def
    xPoint yPoint){c}}
\newcommand\PtempD[1]{%
\pnode(!
    /xPoint \radius\space 225 sin mul neg
            \Vitesse\space 225 cos mul #1 mul sub def
    /yPoint \radius\space 225 cos mul neg
            \Vitesse\space 225 sin mul #1 mul add
            def
    xPoint yPoint){d}}
\newcommand\PtempE[1]{%
\pnode(!
    /xPoint \radius\space -45 sin mul neg
            \Vitesse\space -45 cos mul #1 mul sub def
    /yPoint \radius\space -45 cos mul neg
            \Vitesse\space -45 sin mul #1 mul add
            def
    xPoint yPoint){e}}
\newcommand\TexteParaboleSecurity[1]{%
\pstextpath[l]{%
    \parametricplot[linestyle=none]{-#1}{#1}{%
        /h \Vitesse\space dup mul 2 div \g\space div def
        /xAbscisse t def
        /yOrdonnee t dup mul neg
            \radius\space dup mul 4 h dup mul mul add
             add 4 h mul div 0.25 add def
        xAbscisse yOrdonnee}}
    {Parabole de sûreté}}
\newcommand\ParaboleSecurity[1]{%
    \parametricplot{-#1}{#1}{%
        /h \Vitesse\space dup mul 2 div \g\space div def
        /xAbscisse t def
        /yOrdonnee t dup mul neg
            \radius\space dup mul 4 h dup mul mul add
             add 4 h mul div def
        xAbscisse yOrdonnee}}
\newcommand\trajectoires{%
\multido{\iangle=45+90}{4}{%
    \parametricplot[plotpoints=100]{0}{1}{%
        /xPoint \radius\space \iangle\space sin mul neg
                \Vitesse\space \iangle\space cos mul t mul sub def
        /yPoint \radius\space \iangle\space cos mul neg
                \Vitesse\space \iangle\space sin mul t mul add
                \g\space t dup mul mul 2 div sub def
        xPoint yPoint}}
% trajectoire de la masselotte A
\parametricplot[plotpoints=100]{0}{1}{%
        /xPoint \Vitesse\space t mul neg def
        /yPoint \radius\space neg
                \g\space t dup mul mul 2 div sub def
        xPoint yPoint}}
\newcommand\TrajectoireIndividuelleOld[1]{% angle en degrés
   \parametricplot[plotpoints=100]{0}{1}{%
        /xPoint \radius\space #1 sin mul neg
                \Vitesse\space #1 cos mul t mul sub def
        /yPoint \radius\space #1 cos mul neg
                \Vitesse\space #1 sin mul t mul add
                \g\space t dup mul mul 2 div sub def
        xPoint yPoint}
   \psline(!
    /xPoint \radius\space #1 sin mul neg def
    /yPoint \radius\space #1 cos mul neg def
    xPoint yPoint)}
\newcommand{\TrajectoireIndividuelle}[2]{% angle en degrés
   \parametricplot[plotpoints=100]{0}{#2}{%
        /xPoint \radius\space #1 sin mul neg
                \Vitesse\space #1 cos mul t mul sub def
        /yPoint \radius\space #1 cos mul neg
                \Vitesse\space #1 sin mul t mul add
                \g\space t dup mul mul 2 div sub def
        xPoint yPoint}}

 

Validation CSS Validation XHTMLSyracuse — Dernière modification : 13 juillet 2002 (0.07s - 3201552 - 4 juillet 2008) vers le haut