Source
15 setfontsize
2 setxyrapport
5.67 setxunit
7.5 setborder
90 setangle_repere
-5 65 setxrange
-6 70 setyrange
/quadrillagegray 0.4 def
5 setquadrillagexstep
10 setquadrillageystep
quadrillage
10 10 settkstep
5 .5 setsubtkstep
10 10 setmkstep
ticks
xsubticks
marks
traceaxes
axesarrow
/f {setxvar
#rpn#   27+0.5*x
} def
gsave
   bleu
   1 setlinewidth
   continu
   0 65 {f} Courbe

#latex#${y=p(t)}$
50 50 [1.5 1.5]  crtexlabel
grestore

setTimesItalic

(O) 0 0  dltext


rouge

36 45 dashpoint

noir

setTimesItalic

(y en euros) 0 ymax (0 -10) brtext
(t en minutes) xmax 0 (-20 0) ultext