blob: d7cc5fa7ab0a5706e064527301aaf750c7abf1bf (
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
|
*----
* TEST CASE TCM06
* MACROSCOPIC CROSS SECTIONS
* BUCKLING SEARCH PROBLEM WITHOUT FISSION SOURCE
* HOMOGENEOUS GEOMETRY
*
* REF: none
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST
WATER TRACK MACRO SYS FLUX EDITION ;
MODULE
GEO: SYBILT: MAC: ASM: FLU: EDI: END: ;
PROCEDURE assertS ;
*----
* Macroscopic XS
*----
MACRO := MAC: ::
EDIT 2 NGRO 1 ANIS 2 NMIX 1 NIFI 0
READ INPUT
MIX 1 TOTAL 3.59 SCAT 1 1 3.57 1 1 2.38
;
*----
* Geometry : WATER - Homogeneous geometry
* Tracking : SYBILT
*----
WATER := GEO: :: HOMOGE
MIX 1
;
TRACK := SYBILT: WATER ::
TITLE 'TCM06: ENE6101 EXAM'
MAXR 1
;
*----
* Solution : TYPE L
* Leakage : B0 PNL, P0 PNL, B1 PNL, P1 PNL
*----
SYS := ASM: MACRO TRACK ;
FLUX := FLU: SYS MACRO TRACK ::
TYPE L B0 SIGS EXTE 5 1.0E-5 BUCK -0.07 ;
assertS FLUX :: 'B2 B1HOM' 1 -2.14440E-01 ;
EDITION := EDI: MACRO TRACK FLUX ::
EDIT 3 SAVE ;
FLUX := FLU: FLUX SYS MACRO TRACK ::
TYPE L P0 SIGS EXTE 5 1.0E-5 BUCK -0.07 ;
assertS FLUX :: 'B2 B1HOM' 1 -2.15400E-01 ;
EDITION := EDI: EDITION MACRO TRACK FLUX ::
EDIT 3 SAVE ;
FLUX := FLU: FLUX SYS MACRO TRACK ::
TYPE L B1 SIGS EXTE 5 1.0E-5 BUCK -0.07 ;
assertS FLUX :: 'B2 B1HOM' 1 -7.22773E-02 ;
EDITION := EDI: EDITION MACRO TRACK FLUX ::
EDIT 3 SAVE ;
FLUX := FLU: FLUX SYS MACRO TRACK ::
TYPE L P1 SIGS EXTE 5 1.0E-5 BUCK -0.07 ;
assertS FLUX :: 'B2 B1HOM' 1 -7.25999E-02 ;
EDITION := EDI: EDITION MACRO TRACK FLUX ::
EDIT 3 SAVE ;
ECHO "test TCM06 completed" ;
END: ;
QUIT "LIST" .
|
