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