Navigation alternative
Figures / Images
BBgraf
MetaPost
PSTricks
Format SVG
Asymptote
EPiX
Gnuplot
TeXGraph
Librairie GD
PostScript
SWFtools
Calculs
BC
Giac / Xcas
Maxima
Pari / GP
Scilab
Scripts p*
Documents
TeX au collège
TeX png
Lua(La)TeX
Cours etc.
Contributions
Le cours d'Ismaël
Astronomie
Bases
Base Brevet
Base Collège
Base Graphisme
Base Ipe
Base JPS (BBgraf)
Base MetaPost
Base PSTricks
Dépôt Git
Fichier JPS
Accueil
Présentation
Exemples
Papiers
Banque d'images
Albums et animations
Formulaires
Célébrités
Postscript
Chimie
Documentation
Sources et téléchargement
Édition du fichier activite-vegetaux.jps
Retour
%% 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
\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)} }
boxit noir 15 850 [1.8 dup] cctexlabel
Tapez les 3 lettres : AWE