Édition de activite-vegetaux.jps

[ retour ] Édition de activite-vegetaux.jps.

%% 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

Tapez les 3 lettres : AWE