blob: 315c06b9f1abeb061e90c7af6ed7babf2a2263ef (
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
|
*----
* Windmill geometry constructed with G2S:
* UOX or MOX assembly with control rods out
* 1 HEX ; 1 HEXCEL
*----
SEQ_ASCII HEX_FIG ;
SEQ_ASCII HEX_PIN ;
SEQ_ASCII HEXCEL_FIG :: FILE './HEXCEL_P32_FIG.ps' ;
SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL_P32_PIN.dat' ;
LINKED_LIST GEOM GEOM2 ;
MODULE GEO: G2S: END: ;
* 1 HEX
GEOM := GEO: :: HEX 1
HBC S30 REFL
* SECT -1 0
MIX 1
SIDE 1. ;
HEX_PIN HEX_FIG := G2S: GEOM :: DRAWNOD ;
* 1 HEXCEL
GEOM2 := GEO: :: HEXCEL 2
HBC S30 REFL
SECT -1 2
OFFCENTER 0.25 0.3
RADIUS 0. 0.3 0.4
MIX 1 1 1 1 1 1
2
3
SIDE 1. ;
HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ;
ECHO "test hex_P3_JST2 completed" ;
END: ;
|
