-0.2 2.2 setxrange
-0.2 1.5 setyrange

/f {
   setxvar
   -2 x mul Exp
   x 1 add
   4 3 div mul mul
} def


traceaxes
marks
axesarrow

unites
1.5 setlinewidth
0 xmax {f} Courbe

setTimesItalic
   (O) O dltext
   (C) .8 dup f urtext