Présentation de equ1_031.jps

/syracuse/texpng/jpv/database/btsmai/analyse/equadiff/equ1_031.jpg
autocrop -1 9 setxrange -6.5 1 setyrange 35 setxunit 10 setfontsize /A {.35 -.25} def /B {3 -1} def /C {5 -3.5} def /D {5.5 -5.5} def /alpha -30 def /V {alpha cos alpha sin 2 mulv} def [xmax 0 0 0 0 ymin] ligne /fillstyle {fill} def /objet { gsave currentpoint translate 0 0 .5 .25 frame* grestore } def /objet_dim {0 0 jtoppoint .5 .25 jtoppoint} def gsave 0 .2 stranslate [0 0 1 0] (->) ligne -.2 -.2 stranslate [0 0 0 -1] (->) ligne grestore %% a l'origine A (objet) ccpict %% a l'intant t B {alpha} (objet) ccpict [B dupp 1 0 V 1 0 scalprod mulv addv] (->) ligne [B dupp 0 1 V 0 1 scalprod mulv addv] (->) ligne [B dupp V addv] (->) ligne C () {-70} (objet) crpict D () {-90} (objet) crpict %% le parachure ouvert gsave D stranslate 0 180 0 .7 .5 Cercle [-.5 .7 .5 .7] ligne [-.5 .7 0 0 .5 .7] ligne [-.25 .7 0 0 .25 .7] ligne grestore %% la trajectoire .5 setlinewidth [A .. B {alpha dir} .. {-70 dir} C] draw %% le parachute en train de s'ouvrir /fillstyle {blanc fill} def /arg {argc} def gsave C stranslate 20 rotate [O {90 dir} .. -.4 .7 {100 dir} 2 2 .4 .7 {-100 dir} .. {-90 dir} O] draw* [.25 .7 .1 .4] ligne [.1 .8 .05 .4] ligne [-.1 .8 -.05 .4] ligne [-.25 .7 -.1 .4] ligne grestore <tex> \vbox {\hsize 40mm \` A l'instant $t = t_0$, ouverture du parachute } </tex> 5.5 -3.2 crtexlabel <tex> \` A l'instant $t$ </tex> 5.5 -1.5 crtexlabel <tex> $t = 0$ </tex> .05 -.7 crtexlabel setTimes (largage) .05 -1.1 crtext <tex> $\vec \imath $ </tex> .5 .2 uctexlabel <tex> $\vec \jmath $ </tex> -.2 -.5 cltexlabel <tex> $v_2 (t) \vec \jmath $ </tex> 3 -1.5 cltexlabel <tex> $v_1 (t) \vec \imath $ </tex> 3.7 -1 uctexlabel <tex> $\vec v (t) $ </tex> 4 -1.5 () {alpha} uctexlabel