50 setxyrapport
20 setxunit
7.5 setborder
90 setangle_repere
-0.9 12.9 setxrange
-30 550 setyrange
1 100 settkstep
1 100 setsubtkstep
1 100 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 [1 2 3 4 5 6 7 8 9 10 11 12 
] def
%% definition de la serie 1
/l2 [300 450 130 200 280 410 200 250 320 500 210 250
] def
%% dessin du nuage
gsave 
rouge
l1 l2 fuz { point } plot
grestore


(Trimestre) 12.9 30 cltext

(Chiffre d'affaires) 0.2 530 crtext

(0) 0 0 dltext