%% auteur : 
500 setwidth
300 setheight
%%25 setborder
-250 1000 setxrange
-1000000 16000000 setyrange
%%50 setxsubtkstep
%%50 setxtkstep
50 setxmkstep
50 xmark
%%1000000 ymark
1000000 setymkstep
50 1000000 setquadrillagestep
quadrillage
/f {setxvar 
    11878 x mul} def
/g {setxvar 
     0.08 x 3 exp mul 64.8 x 2 exp mul sub 20000 x mul add} def
bleu
0 1000 {f} Courbe
rouge
0 1000 {g} Courbe
noir
setTimesItalic
6 setfontsize
(y) -50 15000999 text
(y=C(q)) 650 15000999 text
(q) 950 -500000 text
(y=R(q)) 800 11000000 text

(10) -50 1000000 text
(6) exposant
%%marks
traceaxes