-6 6 setxrange
-2 6 setyrange

quadrillage

.7 setlinewidth
tracerepere

1.2 setlinewidth
1 ymax div xmax (1 exch div) Courbe
xmin 1 ymin div (1 exch div) Courbe

<tex>
$\vec \imath $
</tex>
.4 -.1 [1.2 dup] dctexlabel

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

<tex>
$\cal H$ 
</tex>
-5 -.8 [1.2 dup] urtexlabel

setTimesItalic
   (x) xmax 0 (-10 0) dltext
   (y) 0 ymax  (0 -10) dltext