Fichier stat_01.jps — Modifié le 12 Avril 2006 à 03 h 35
%% source : Gazette nucléaire no 157/158, mai 1997
%% publication du GSIEN, rue François Villon, ORSAY
%% http://membres.lycos.fr/yvesrenaud/Gazette/
350 setwidth
500 setheight
1979 1992 setxrange
-20 450 setyrange
1980 0 setorigine
traceaxes
1 100 setmkstep
/baton4 {10 bat@n} def
/dates
[1981 1982 1983 1984 1985 1987 1988 1989 1990 1991
] def
/valeurs
[86 148 131 143 108 135 233 265 390 273]
def
dates valeurs fuz {baton4} plot
/xmarkstyle {(0 -5) dctext} def
10 setfontsize
dates {xmark} apply
ymarks
10 setfontsize
/chaine 4 string def
setCourrier
/i 0 def
valeurs length
{
valeurs i get chaine cvs
dates i get
valeurs i get
uctext
/i i 1 add store
}
repeat
18 setfontsize
setTimes
(Cas d'hydrocéphalies en Ukraine) 1982 425 text