Fichier 108.jps — Modifié le 12 Avril 2006 à 03 h 51
%% auteur :
%autocrop
usecolor
%%-2 53 --> decembre 2003
1995.5 2009.5 setxrange
1996 2005 setxrange
-15 136 setyrange
-15 120 setyrange
50 setxunit
2 setyunit
10 setfontsize
1996 0 setorigine
%20 setxunit
1 10 settkstep
1 10 setmkstep
/subticks {} def
0 ymax setyrange
traceaxes
axesarrow
marks
gsave
mixte
xmin 107.295
2005 107.295
droite
xmin 36.212
2005 36.212
droite
grestore
%% les x
/les_x [
1998
1999
2000
2001
2002
2003
2004
] def
%% les y
/les_y_prel [
76.377
82.016
107.907
92.820
111.790
106.265
111.849
96.196
107.295
] def
/les_y_evap [
2.092
6.025
31.045
23.421
40.996
42.013
47.879
24.265
36.212
] def
/baton {10 bat@n} def
gsave
DeepSkyBlue2
-5 0 translate
les_x les_y_prel fuz
dup {baton} plot
grestore
rouge
les_x les_y_evap fuz
dup {baton} plot
%% legende
noir
setTimes
#tex# maximum légal$^{*}$ pour le prélèvement
2005 107.295 [1 dup] crtexlabel
#tex# maximum légal$^{*}$ pour l'évaporation
2005 36.212 [1 dup] crtexlabel
#tex# $*$ en moyenne annuelle
2005 20 [1 dup] crtexlabel
gsave
2006 60 stranslate
90 rotate
DeepSkyBlue2
0 10 baton
noir
(volume annuel prélevé) 0 0 {-90} crtext
grestore
gsave
2006 50 stranslate
90 rotate
rouge
0 10 baton
noir
(volume annuel évaporé) 0 0 {-90} crtext
grestore
(millions m^3) Ox ymax uctext
(année) xmax 0 crtext
/arrowscale {.8 dup} def
1997.8 0 (A) enode
1998 -10 (B) enode
/armB 0 def
/angleB 180 def
/angleA -90 def
(A) (B) (<-) ncangle
(divergence réacteur 1) (B) nodepoint crtext
1999.8 0 (C) enode
2000 -7 (D) enode
/armB 0 def
/angleB 180 def
/angleA -90 def
(C) (D) (<-) ncangle
(divergence réacteur 2) (D) nodepoint crtext
<tex>
\bf \Times
\vbox {\hsize 50mm
\centerline {Consommation d'eau pour la }
\centerline {centrale nucléaire de Civaux}
}
</tex>
boxit
/fillstyle {AntiqueWhite fill} def
noir
2003 135 [1.2 dup] dctexlabel