Fichier 093.jps — Modifié le 21 Mars 2006 à 17 h 49
%% auteur :
1 1 setsubtkstep
2 setxyrapport
-4 6 setxrange
-4 7.5 setyrange
30 setxunit
quadrillage
/A {1 -2} def
/B {0 6} def
/C {0 4} def
/A' {5 1} def
/B' {3 5} def
/C' {-2 -3} def
/u {A dupp A' vecteur 1 3 div mulv} def
/v {B dupp B' vecteur 2 3 div mulv} def
/w {C dupp C' vecteur 5 7 div mulv} def
A dupp u addv /M defpoint
B dupp v addv /N defpoint
C dupp w addv /P defpoint
tracerepere
[A B C A' B' C' M N P] points
<tex>
$\vec \imath $
</tex>
.3 0 [1.5 dup] dctexlabel
<tex>
$\vec \jmath $
</tex>
0 .1 [1.5 dup] ultexlabel
<tex>
$\vec u$
</tex>
A M milieu [1.5 dup] drtexlabel
<tex>
$\vec v$
</tex>
B N milieu [1.5 dup] urtexlabel
<tex>
$\vec w$
</tex>
C P milieu [1.5 dup] ultexlabel
.6 setlinewidth
[A A'] ligne
[B B'] ligne
[C C'] ligne
1 setlinewidth
[A M] (->) ligne
[B N] (->) ligne
[C P] (->) ligne
setTimesItalic
(O) O dltext
(A) A dctext
(B) B ultext
(C) C ultext
(M) M drtext
(N) N urtext
(P) P ultext