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
|