%% sources : magazine "Controle" no 138, janvier 2001, Direction de
%% Surete des installations nucleaires (DSIN)

-1500 6200 setyrange
-5 30 setxrange

%% pour localiser la legende
/xlegende 15 def
/ylegende 5800 def
/llegende 2 def
/interline -400 def

300 setheight
700 setwidth

/hrule {
   [ exch 0 exch dupp exch pop xmax exch ] ligne
} def

gsave
   .4 setgray
   6000 hrule
   5000 hrule
   4000 hrule
   3000 hrule
   2000 hrule
   1000 hrule
   0 hrule
   [0 0 0 ymax] ligne
grestore

[6000 5000 4000 3000 2000 1000] (ymark) apply

/fillstyle {blanc fill} def
xlegende 1 sub 4800
xmax .5 sub ymax .5 sub 
frame*

/fillstyle {fill} def

%%% le MOX

orange
[
1  6000
3  3250
5  2600
7  2400
9  2250
10 2050
11 1900
12 1750
13 1650
14 1550
15 1450
16 1400
17 1300
18 1250
19 1200
20 1050
21 950
22 800
23 700
24 650
25 550
26 450
27 300
28 200
] dup
ligne
{times2} plot

[xlegende ylegende dupp llegende 0 addv] ligne
xlegende ylegende dupp llegende 0 addv milieu times2

%%% l'UOX1

rouge
[
1  2250
3  1050
5  700
7  550
9  500
10 460
11 375
12 310
13 290
14 250
15 240
16 240
17 230
18 200
19 150
20 130
21 120
22 80
23 60
24 50
25 25
26 20
27 10
28 10
] dup
ligne
{point} plot

[xlegende ylegende 0 interline addv dupp llegende 0 addv] ligne
xlegende ylegende 0 interline addv dupp llegende 0 addv milieu point

%%% l'UOX1

bleu
[
2  1950
4  1200
6  800
8  750
9  700
11 550
13 450
15 325
17 300
21 200
27 20
] dup
ligne
{square*} plot

[xlegende ylegende 0 2 interline mul addv dupp llegende 0 addv] ligne
xlegende ylegende 0 2 interline mul addv dupp llegende 0 addv milieu square*

10 setfontsize

noir
setTimes
   ( UOX1 taux de combustion 33 GWj/t) 
      xlegende ylegende llegende -50  addv 0 interline addv rtext
   ( UOX2 taux de combustion 43, 5 GWj/t) 
      xlegende ylegende llegende -50  addv 0 2 interline mul addv rtext
   ( MOX taux de combustion 43, 5 GWj/t) 
      xlegende ylegende llegende -50  addv rtext


12 setfontsize
setTimesBold
gsave
   -3 -500 stranslate
   90 rotate
   0 0 moveto
   (Puissance résiduelle par assemblage (W)) show
grestore
(Temps de refroidissement (années)) 8 -800 text
10 setfontsize
setTimes
(Evolution de la puissance thermique résiduelle d'un assemblage UOX1,
UOX2, MOX en fonction du temps de refroidissement) 1 -1400 text

[2 10 1 stepto] (xmark) apply

10 setfontsize
setCourrier
   (15) 11 -60 dtext 11 xtick
   (20) 12 -60 dtext 12 xtick
   (25) 13 -60 dtext 13 xtick
   (30) 14 -60 dtext 14 xtick
   (35) 15 -60 dtext 15 xtick
   (40) 16 -60 dtext 16 xtick
   (45) 17 -60 dtext 17 xtick
   (50) 18 -60 dtext 18 xtick
   (60) 19 -60 dtext 19 xtick
   (70) 20 -60 dtext 20 xtick
   (80) 21 -60 dtext 21 xtick
   (100) 22 -60 dtext 22 xtick
   (120) 23 -60 dtext 23 xtick
   (150) 24 -60 dtext 24 xtick
   (180) 25 -60 dtext 25 xtick
   (230) 26 -60 dtext 26 xtick
   (330) 27 -60 dtext 27 xtick
   (500) 28 -60 dtext 28 xtick