-5 8 setxrange
-3 8 setyrange

%.5 .5 setquadrillagestep
quadrillage
tracerepere
marks

1 setlinewidth
-4 3 2 1 droite         %% D3
0 -2 2 -2 droite	%% D2
-3 0 -1 1 droite	%% D1

/h {
   setxvar
   x dup mul neg 
   x 2 mul add
   4 add
} def

gsave
.6 setgray
{h} courbe
grestore

/f {-2 div 4 add} def
{f} courbe
/g {2 mul 4 sub} def
{g} courbe

<tex>
$y = 2x-4$
</tex>
5 dup g [1.2 dup] {2 1 atan} uctexlabel

<tex>
$$y = -{x\over2}+4$$
</tex>
-3 dup f [1.2 dup] {-.5 1 atan} uctexlabel

<tex>
$y = f (x)$
</tex>
4 -2.5 [1.2 dup] crtexlabel

setTimesItalic
   (D) -2 -2 ultext
setTimes
   (2) indice
setTimesItalic
   (D) 6 5 urtext
setTimes
   (1) indice
setTimesItalic
   (D) -3 2.7 dltext
setTimes
   (3) indice