0.33 setxyrapport
3 setxunit
7.5 setborder
90 setangle_repere
-5 99 setxrange
-2 24 setyrange
10 5 settkstep
10 5 setsubtkstep
10 5 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
12 setfontsize
setTimes
/fillstyle {blanc fill} def
/A {xmin xmax add 2 div ymax ymin sub abs 4 div ymax exch sub} def
/B {A 0 20 ptojpoint addv} def
/C {B 0 20 ptojpoint addv} def
/D {xmin xmax add 2 div ymin 0 5 ptojpoint addv} def
%% definition de la serie 1
/l1 [10 20 30 40 50 60 70 80 90] def
%% definition de la serie 1
/l2 [16.5 11.5 9.0 7.5 6.8 6.6 7.0 7.5 9.0
] def
%% dessin du nuage
gsave 
rouge
l1 l2 fuz { point } plot
grestore


(Vitesse en km/h) 98 1.5 cltext

(Consommation en L pour 100 km) 1 21 crtext

(0) 0 0 dltext