blob: 7f327950b139f60d4a106329306aeafb3b42b1b8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
PARAMETER XSM :: ::: XSM_FILE XSM ; ;
LINKED_LIST BENCH4 DISCRF LIBRARY LIBRARY2 CP CALC ;
MODULE GEO: SYBILT: LIB: MAC: AUTO: ASM: FLU: EDI: DELETE: ;
*
BENCH4 := GEO: :: CAR2D 3 3 (*ASSEMBLAGE 7 X 7*)
X- DIAG X+ REFL
Y- SYME Y+ DIAG
CELL C1 C2 C3
C2 C3
C4
::: C1 := GEO: CAR2D 1 1 (*CELLULE HOMOGENE*)
MESHX 0.0 1.25
MESHY 0.0 1.25
MIX 4
;
::: C2 := GEO: CARCEL 2 (*CELLULE NORMALE*)
MESHX 0.0 1.25
MESHY 0.0 1.25
RADIUS 0.0 0.410 0.455
MIX 1 2 4
;
::: C3 := GEO: C2 (*CELLULE PERIPHERIQUE*)
MESHX 0.0 1.50
;
::: C4 := GEO: C3 (*CELLULE DE COIN*)
MESHY 0.0 1.50
RADIUS 0.0 0.510 0.555
;
;
DISCRF := SYBILT: BENCH4 ::
TITLE 'SECOL - BENCHMARK 6 U238 EN ASSEMBLAGE 3 X 3 25-04-89'
MAXR 16 ;
LIBRARY := LIB: ::
EDIT 1 ANIS 1 NMIX 4
SUBG
MIXS LIB: DRAGON FIL: DUMMYDA
MIX 1 973.16
u238 = '2387001' 2.2E-02 1
pu240 = '2407001' 8.7E-04 1
'16' 4.574E-2
MIX 2 973.16
'52' 1.48E-2
'55' 9.0E-4
'56' 5.3E-2
'58' 6.9E-3
MIX 4 973.16
'1' 5.0E-2
'16' 2.5E-2
;
LIBRARY2 := AUTO: LIBRARY DISCRF :: EDIT 3 MAXT 50000 ;
LIBRARY2 := MAC: LIBRARY2 ::
READ INPUT
MIX 4 FIXE
1.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0
;
CP := ASM: LIBRARY2 DISCRF :: PIJ ;
CALC := FLU: CP LIBRARY2 DISCRF :: TYPE S EXTE 1 ;
XSM := EDI: CALC LIBRARY2 DISCRF ::
EDIT 2 SAVE
MERG MIX 1 0 0 0
SAVE MICR 2 u238 pu240 ;
QUIT "LIST" .
|
