0.05 setxunit
8 setborder
90 setangle_repere
-450 6400 setxrange
-250 3400 setyrange
2000 1000 settkstep
1000 1000 setsubtkstep
2000 1000 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
11 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 [4000 2000 6000 3000 3000 6000
] def
%% definition de la serie 1
/l2 [2400 1200 3000 1500 1200 2700] def
%% dessin du nuage
gsave 
rouge
l1 l2 fuz { point } plot
grestore

(Nombre d'unités B) 6300 200 cltext

(Nombre d'unités C) 200 3300 crtext

(0) 0 0 dltext

bleu
/G {4000 2000}def
G point

(G) G drtext