Présentation de synt_002b.jps

-6 6 setxrange
-12 8 setyrange

/A {3 3} def
/B {-3 6} def
/C {-3 -9} def
/E {-1 5} def
/F {0 1} def

/D {C B A vecteur addv} def

/delta {F 2 0} def 
delta A C interdroite /J defpoint

3 3 setmkstep
marks
quadrillage
.7 setlinewidth
1 1 setsubtkstep
tracerepere

[A B C D E F J] points

1 setlinewidth
[A B C D] polygone
[A C] ligne
delta droite

C A B angledroit
<tex>
$\vec \imath $
</tex>
.4 -.1 [1.5 dup] dctexlabel

<tex>
$\vec \jmath $ 
</tex>
-.1 .2 [1.5 dup] ultexlabel

setTimesItalic
   (x) xmax 0 (-10 0) ultext
   (y) 0 ymax  (0 -10) drtext
   (A) A urtext
   (B) B urtext
   (C) C dltext
   (D) D urtext
   (E) E urtext
   (F) F urtext
   (J) J uctext

setSymbol
   (D) -5 3.5 dctext