15 setfontsize
.000025 setxyrapport
.014173 setxunit
7.5 setborder
90 setangle_repere
-2000 22000 setxrange
-.05 .35 setyrange
/quadrillagegray 0.4 def
2000 setquadrillagexstep
.05 setquadrillageystep
quadrillage
5000 .05 settkstep
.5 .5 setsubtkstep
5000 .1 setmkstep
ticks
marks
traceaxes
axesarrow
/f {setxvar
#rpn#   .3-800/x
} def
gsave
   bleu
   1 setlinewidth
   continu
 3000 20000  {f} Courbe
grestore

bleu
#latex#${y = p(x)}$
18000 0.28 [1.5 1.5]  cltexlabel



noir
setTimesItalic

(O) 0 0  dltext


noir

setTimesItalic

(y) 0 ymax (0 -10) brtext
(x en km) xmax 0 (-20 0) ultext