18 setfontsize
3.33 setxyrapport
9.484 setxunit
7.5 setborder
90 setangle_repere
-4.5 50 setxrange
-9 199 setyrange
/quadrillagegray 0.5 def
3 setquadrillagexstep
10 setquadrillageystep
quadrillage
1 10 settkstep
.5 .5 setsubtkstep
5 50 setmkstep
ticks
marks
traceaxes
axesarrow
/f {setxvar
#rpn#   2.5*x+45
} def
/g {setxvar
#rpn#   10+4*x
} def
gsave
   bleu
   1 setlinewidth
   continu
 0 xmax  {f} Courbe
grestore
gsave
   rouge
   1 setlinewidth
   continu
 0 xmax  {g} Courbe
grestore

/M {23.33 103.33} def
M dashpoint

<latex>
\begin{center}Nombre de \\ cassettes louées \end{center}
</latex>
boxit
50 1.5 [1.5 1.5] ultexlabel

<latex>
\begin{center}Prix total \\ (en euros) \end{center}
</latex>
boxit
0.5 200 [1.5 1.5] drtexlabel

#latex#${M\left(\displaystyle{\frac{70}{3}};\displaystyle{\frac{310}{3}}\right)}$
M [1.5 1.5]  drtexlabel

/A {0 45} def
/B {0 10} def

#tex# Tarif 1 : $y=2,5x+45$
36 140 [1.5 1.5] {37} crtexlabel

#tex# Tarif 2 : $y=4x+10$
36 160 [1.5 1.5] {50} crtexlabel