Source
15 setfontsize
0.1 setxyrapport
0.0567 setxunit
7.5 setborder
90 setangle_repere
-500 10000 setxrange
-50 750 setyrange
/quadrillagegray 0.4 def
500 setquadrillagexstep
50 setquadrillageystep
quadrillage
1000 100 settkstep
500 50 setsubtkstep
1000 100 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
/f {setxvar
#rpn#   0.07*x
} def
/g {setxvar
#rpn#   0.049*x+56
} def
gsave
   bleu
   1 setlinewidth
   continu
 0 10000  {f} Courbe
grestore
gsave
   rouge
   1 setlinewidth
   continu
 0 10000  {g} Courbe
grestore

bleu
#latex#${y = f(x)}$
9500 675 [2 2]  cltexlabel

rouge
#latex#${y = g(x)}$
9500 425 [2 2]  cltexlabel

noir
setTimesItalic

(O) 0 0  dltext


vert

2666.67 186.67 dashpoint

noir

setTimesItalic

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