Source
25 setxunit
7.5 setborder
90 setangle_repere
-6 3 setxrange
-4 8 setyrange
1 1 settkstep
1 1 setmkstep
ticks
marks
traceaxes
axesarrow
unites
/f {setxvar
#rpn#   x^2
} def
/g {setxvar
#rpn#   (x+2)^2
} def
/h {setxvar
#rpn#   (x+2)^2-3
} def
gsave
   bleu
   .75 setlinewidth
   continu
   {f} courbe
grestore
gsave
   bleu
   .75 setlinewidth
   pointilles
   {g} courbe
grestore
gsave
   bleu
   1 setlinewidth
   continu
   {h} courbe
grestore

[-2 dup f  -4 dup g] (->) ligne
[-4 dup g -4 dup h](->) ligne
<tex>
$-2\overrightarrow{i}$
</tex>
-3 -2 f [1.5 dup] uctexlabel
<tex>
$-3\overrightarrow{j}$
</tex>
-4 -4 g -4 h add 2 div [1.5 dup] bltexlabel
bleu
<tex>
$x^2$
</tex>
-2.3 -2.8 f [1.5 dup] {-2.8 2 mul 1 atan} crtexlabel
<tex>
$(x+2)^2$
</tex>
-4.3 -4.8  g [1.5 dup] {-4.5 2 mul 1 atan} crtexlabel   
<tex>
$f(x)$
</tex>
-2.5 dup h [1.5 dup] cltexlabel