blob: 9f9d82f27a563fd5687e5e6200bfc0ff59264735 (
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
|
*----
* TEST CASE tst2016_4.c2m (geometry only)
* MACROSCOPIC CROSS SECTIONS
* 4-group eighth UOX assembly with AIC in DRAGON
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST GEON2 MACRO4G TRACKN2 SYS FLUX2 EDIT ;
MODULE GEO: G2S: SALT: MCCGT: END: ;
SEQ_ASCII UOX_AIC FIG_AIC ;
SEQ_BINARY TF_EXC ;
INTEGER an2d := 12 ;
REAL densur := 25.0 ;
REAL erra DELTA ;
REAL Rcomb1 Rcomb2 Rcomb3 Rcomb4 R_int_TG R_ext_TG R_int_TI R_ext_TI
R_int_G R_ext_G Cote RmodeN1 Lame Rtub1 Rtub2 ;
REAL Raic1 Raic2 Raic3 Raic4 R_int_AIC R_ext_AIC ;
PROCEDURE assertS ;
*----
* Input geometry data
*----
EVALUATE Cote := 1.26 ;
EVALUATE Lame := 0.042 ;
EVALUATE Rcomb4 := 0.4083 ;
EVALUATE Rcomb1 := 0.5 SQRT Rcomb4 * ;
EVALUATE Rcomb2 := 0.8 SQRT Rcomb4 * ;
EVALUATE Rcomb3 := 0.95 SQRT Rcomb4 * ;
EVALUATE Rtub1 := 0.1897 ;
EVALUATE Rtub2 := 0.3794 ;
EVALUATE R_int_TG := 0.5691 ;
EVALUATE R_ext_TG := 0.6095 ;
EVALUATE R_int_TI := 0.5691 ;
EVALUATE R_ext_TI := 0.6095 ;
EVALUATE R_int_G := 0.4165 ;
EVALUATE R_ext_G := 0.4775 ;
EVALUATE Raic4 := 0.431656 ;
EVALUATE Raic1 := 0.5 SQRT Raic4 * ;
EVALUATE Raic2 := 0.8 SQRT Raic4 * ;
EVALUATE Raic3 := 0.95 SQRT Raic4 * ;
EVALUATE R_int_AIC := 0.437 ;
EVALUATE R_ext_AIC := 0.484 ;
REAL mesh1 := Cote ;
REAL mesh2 := mesh1 Cote + ;
REAL mesh3 := mesh2 Cote + ;
REAL mesh4 := mesh3 Cote + ;
REAL mesh5 := mesh4 Cote + ;
REAL mesh6 := mesh5 Cote + ;
REAL mesh7 := mesh6 Cote + ;
REAL mesh8 := mesh7 Cote + ;
REAL mesh9 := mesh8 Cote + ;
REAL mesh10 := mesh9 Lame + ;
*
GEON2 := GEO: :: CAR2D 10 10
EDIT 0
X- DIAG X+ REFL
Y- SYME Y+ DIAG
CELL
TI C0201 C0301 T1 C0501 C0601 T2 C0801 C0901 Lame_V
C0202 C0302 C0402 C0502 C0602 C0702 C0802 C0902 Lame_V
C0303 C0403 C0503 C0603 C0703 C0803 C0903 Lame_V
T1 C0504 C0604 T2 C0804 C0904 Lame_V
C0505 C0605 C0705 C0805 C0905 Lame_V
T2 C0706 C0806 C0906 Lame_V
C0707 C0807 C0907 Lame_V
C0808 C0908 Lame_V
C0909 Lame_V
Lame_C
MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>>
<<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>>
MESHY 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>>
<<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>>
::: Lame_C := GEO: CAR2D 1 1
MESHX 0.0 <<Lame>> MESHY 0.0 <<Lame>>
MIX 1 ;
::: Lame_V := GEO: CAR2D 1 1
MESHX 0.0 <<Lame>> MESHY 0.0 <<Cote>>
SPLITY 3 MIX 1 ;
::: C0201 := GEO: CARCEL 6
MESHX 0.0 <<Cote>>
MESHY 0.0 <<Cote>>
SECT 4 6
RADIUS 0.0 <<Rcomb1>> <<Rcomb2>> <<Rcomb3>> <<Rcomb4>>
<<R_int_G>> <<R_ext_G>>
MIX 3 4 5 6 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0202 := GEO: C0201
MIX 9 10 11 12 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0301 := GEO: C0201
MIX 13 14 15 16 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0302 := GEO: C0201
MIX 17 18 19 20 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0303 := GEO: C0201
MIX 21 22 23 24 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0402 := GEO: C0201
MIX 26 27 28 29 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0403 := GEO: C0201
MIX 30 31 32 33 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0501 := GEO: C0201
MIX 34 35 36 37 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0502 := GEO: C0201
MIX 46 47 48 49 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0503 := GEO: C0201
MIX 50 51 52 53 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0504 := GEO: C0201
MIX 54 55 56 57 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0505 := GEO: C0201
MIX 58 59 60 61 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0601 := GEO: C0201
MIX 62 63 64 65 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0602 := GEO: C0201
MIX 66 67 68 69 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0603 := GEO: C0201
MIX 70 71 72 73 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0604 := GEO: C0201
MIX 74 75 76 77 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0605 := GEO: C0201
MIX 78 79 80 81 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0702 := GEO: C0201
MIX 82 83 84 85 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0703 := GEO: C0201
MIX 86 87 88 89 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0705 := GEO: C0201
MIX 90 91 92 93 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0706 := GEO: C0201
MIX 94 95 96 97 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0707 := GEO: C0201
MIX 98 99 100 101 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0801 := GEO: C0201
MIX 102 103 104 105 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0802 := GEO: C0201
MIX 106 107 108 109 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0803 := GEO: C0201
MIX 110 111 112 113 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0804 := GEO: C0201
MIX 114 115 116 117 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0805 := GEO: C0201
MIX 118 119 120 121 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0806 := GEO: C0201
MIX 122 123 124 125 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0807 := GEO: C0201
MIX 126 127 128 129 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0808 := GEO: C0201
MIX 130 131 132 133 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0901 := GEO: C0201
MIX 134 135 136 137 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0902 := GEO: C0201
MIX 138 139 140 141 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0903 := GEO: C0201
MIX 142 143 144 145 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0904 := GEO: C0201
MIX 146 147 148 149 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0905 := GEO: C0201
MIX 150 151 152 153 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0906 := GEO: C0201
MIX 154 155 156 157 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0907 := GEO: C0201
MIX 158 159 160 161 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0908 := GEO: C0201
MIX 162 163 164 165 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0909 := GEO: C0201
MIX 166 167 168 169 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: T2 := GEO: CARCEL 8
MESHX 0.0 <<Cote>>
MESHY 0.0 <<Cote>>
SECT 3 6
RADIUS 0.0 <<Raic1>> <<Raic2>> <<Raic3>> <<Raic4>>
<<R_int_AIC>> <<R_ext_AIC>> <<R_int_TI>> <<R_ext_TI>>
MIX 38 39 40 41 7 25
1 1 1 1 1 1 1 1
25 25 25 25 25 25 25 25
1 1 1 1 1 1 1 1 ;
::: T1 := GEO: T2
MIX 42 43 44 45 7 25
1 1 1 1 1 1 1 1
25 25 25 25 25 25 25 25
1 1 1 1 1 1 1 1 ;
::: TI := GEO: CARCEL 4
MESHX 0.0 <<Cote>>
MESHY 0.0 <<Cote>>
SECT 3 1
RADIUS 0.0 <<Rtub1>> <<Rtub2>> <<R_int_TI>> <<R_ext_TI>>
MIX 1
1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2
1 1 1 1 1 1 1 1 ;
;
UOX_AIC FIG_AIC := G2S: GEON2 :: DRAWMIX ;
TRACKN2 TF_EXC := SALT: UOX_AIC ::
EDIT 3
ALLG
ANIS 2 TSPC EQW2 <<an2d>> <<densur>> REND
;
*
TRACKN2 := MCCGT: TRACKN2 TF_EXC ::
EDIT 2
LCMD 3 AAC 150 TMT SCR 0 EPSI 1E-5
MAXI 1 KRYL 0 HDD 0.0 LDC ;
ECHO "test tst2016_4 completed" ;
END: ;
|
