blob: 8942af51b41873cd89a2176d14e0597019747864 (
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
|
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST GEOM ;
SEQ_BINARY TRKFILN2 ;
SEQ_ASCII G2S_tst :: FILE './G2S_tst.txt' ;
SEQ_ASCII FIG_tst :: FILE './FIG_tst.ps' ;
MODULE GEO: G2S: END: ;
REAL Rcomb4 := 0.39218 ;
REAL Rtub1 := 0.1897 ;
REAL Rtub2 := 0.3794 ;
REAL R_int_TI := 0.56134 ;
REAL R_ext_TI := 0.60198 ;
REAL R_int_G := 0.40005 ;
REAL R_ext_G := 0.45720 ;
REAL Cote := 0.62992 2. * ;
REAL lpitch := 10.75182 2. * ;
REAL Rcomb1 := 0.5 SQRT Rcomb4 * ;
REAL Rcomb2 := 0.8 SQRT Rcomb4 * ;
REAL Rcomb3 := 0.95 SQRT Rcomb4 * ;
REAL mesh1 := Cote ;
REAL mesh2 := mesh1 Cote + ;
REAL mesh3 := mesh2 Cote + ;
GEOM := GEO: :: CAR2D 3 2
EDIT 0
X+ REFL X- REFL Y- REFL Y+ SYME
CELL CF CF CF
CF TI CF
MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>>
MESHY 0.0 <<mesh1>> <<mesh2>>
::: CF := GEO: CARCEL 5
MESHX 0.0 <<Cote>>
MESHY 0.0 <<Cote>>
SECT 4 5
RADIUS 0.0 <<Rcomb1>> <<Rcomb2>> <<Rcomb3>> <<Rcomb4>>
<<R_ext_G>>
MIX 62 63 64 65 4
68 68 68 68 68 68 68 68 68 68 68 68 ;
::: TI := GEO: CARCEL 2
MESHX 0.0 <<Cote>>
MESHY 0.0 <<Cote>>
SECT 2 0
RADIUS 0.0
<<R_int_TI>>
<<R_ext_TI>>
MIX 66 66 66 66 66 66 66 66
2 2 2 2 2 2 2 2
67 67 67 67 67 67 67 67 ;
;
G2S_tst FIG_tst := G2S: GEOM ;
ECHO "test tst2019_1 completed" ;
END: ;
QUIT .
|
