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 108.jps
Retour
%% 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
\bf \Times \vbox {\hsize 50mm \centerline {Consommation d'eau pour la } \centerline {centrale nucléaire de Civaux} }
boxit /fillstyle {AntiqueWhite fill} def noir 2003 135 [1.2 dup] dctexlabel
Tapez les 3 lettres : AWE