-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

medium setcourbelinewidth
unites
0 xmax Tracecourbe

setTimesItalic
   (O) O downlefttext
   (C) .8 dup f uptext