blob: 69ff58629c4395df85949fc0e8b3b3c59f7eb4ea (
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
|
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST TRACKM GEOM ;
SEQ_BINARY TRKFILM ;
MODULE GEO: G2S: SALT: TLM: END: ;
SEQ_ASCII Fil_SAL_fl :: FILE './Fil_ssym_fl.ps' ;
SEQ_ASCII Fil_SAL.tdt :: FILE './Fil_ssym.tdt' ;
SEQ_ASCII Lines.m :: FILE './Lines_ssym.m' ;
REAL side rfuel rclad := 1.63600 0.51500 0.60300 ;
REAL densur := 10.0 ;
INTEGER an2d := 6 ;
GEOM := GEO: :: CAR2D 9 5
EDIT 0
X- VOID X+ VOID
Y- SSYM Y+ VOID
CELL
C1 C1 C1 C2 C2 C2 C1 C1 C1
C0 C1 C1 C2 C2 C2 C1 C1 C0
C0 C0 C1 C1 C1 C1 C1 C0 C0
C0 C0 C1 C1 C1 C1 C1 C0 C0
C0 C0 C0 C1 C1 C1 C0 C0 C0
::: C2 := GEO: CARCEL 2 1 1
MESHX 0.0 <<side>>
MESHY 0.0 <<side>>
RADIUS 0.0 <<rfuel>> <<rclad>>
MIX 1 2 3
;
::: C1 := GEO: CAR2D 1 1
MESHX 0.0 <<side>>
MESHY 0.0 <<side>>
MIX 4
;
::: C0 := GEO: CAR2D 1 1
MESHX 0.0 <<side>>
MESHY 0.0 <<side>>
MIX 0
;
;
Fil_SAL.tdt Fil_SAL_fl := G2S: GEOM
;
TRACKM TRKFILM := SALT: Fil_SAL.tdt ::
EDIT 2
TISO <<an2d>> <<densur>> REND LONG
TITLE 'TRACKING FOR TISO'
;
Lines.m := TLM: TRACKM TRKFILM ::
EDIT 1
MIXTURE
NTPO 1
DIRECTIONS NoPause DIR 0
;
ECHO "test tst2019_3 completed" ;
END: ;
|
