Fichier activite-vegetaux.jps — Modifié le 12 Avril 2006 à 03 h 36
%% les données utilisées proviennent du bulletin de surveillance de
%% l'environnement publié par le centre atomique EDF de Civaux
-2 39 setxrange
-200 1050 setyrange
50 setxyrapport
20 setxunit
1 50 setquadrillagestep
1 50 settkstep
1 50 setmkstep
/subticks {} def
-40 ymax setyrange
traceaxes
axesarrow
ymarks
%% les x
/les_x-2000 [2 3 4 5 6 7 8 9 10 11 12] def
/les_x-2001 [2 4 5 6 7 8 9 10 11 12] def
/les_x-2002 [2 3 4 5 6 7 8 9 10 11] def
/les_x
[
les_x-2000
aload pop
les_x-2001 {12 add} apply
aload pop
les_x-2002 {24 add} apply
aload pop
]
def
%% les y
/les_y-2000 [345 395 77 65 305 195 295 285 217 370 205] def
/les_y-2001 [330 134 170 145 145 220 185 118 170 350] def
/les_y-2002 [32 235 100 910 850 835 545 885 1010 870] def
/les_y
[
les_y-2000
aload pop
les_y-2001
aload pop
les_y-2002
aload pop
]
def
les_x les_y fuz
dup {times2} plot
gsave
rouge ligne
grestore
gsave
mixte bleu
[xmin 146 xmax 146] ligne
grestore
/fillstyle {jaune fill} def
/affiche {0 {90} cltext} def
/dx_boxit 2 def
/dy_boxit 2 def
setTimes
boxit
(janvier 2000) 1 affiche
(février) 2 affiche
(mars) 3 affiche
(avril) 4 affiche
(mai) 5 affiche
(juin) 6 affiche
(juillet) 7 affiche
(août) 8 affiche
(septembre) 9 affiche
(octobre) 10 affiche
(novembre) 11 affiche
(décembre) 12 affiche
/affiche {12 add 0 {90} cltext} def
boxit
(janvier 2001) 1 affiche
(février) 2 affiche
(mars) 3 affiche
(avril) 4 affiche
(mai) 5 affiche
(juin) 6 affiche
(juillet) 7 affiche
(août) 8 affiche
(septembre) 9 affiche
(octobre) 10 affiche
(novembre) 11 affiche
(décembre) 12 affiche
/affiche {24 add 0 {90} cltext} def
boxit
(janvier 2002) 1 affiche
(février) 2 affiche
(mars) 3 affiche
(avril) 4 affiche
(mai) 5 affiche
(juin) 6 affiche
(juillet) 7 affiche
(août) 8 affiche
(septembre) 9 affiche
(octobre) 10 affiche
(novembre) 11 affiche
(décembre) 12 affiche
(Bq/kg) 0 ymax drtext
(date) xmax 0 dltext
bleu
(Valeur moyenne avant démarrage de la centrale) 12 146 dctext
<tex>
\bf \Times
\vbox {\hsize 50mm
\centerline {\' Evolution de la radioactivité dans les végétaux}
\centerline {autour de la centrale nucléaire de Civaux}
\smallskip
\centerline {(sources~: EDF)}
}
</tex>
boxit
noir
15 850 [1.8 dup] cctexlabel