Fichier 042.jps — Modifié le 1 Octobre 2006 à 16 h 15
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