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}}
— Syracuse — Dernière modification : 13 juillet 2002 (0.07s - 3201552 - 4 juillet 2008)
