blob: 9fba7d5f3e8b73aea1304e58df203d5bbe09bb35 (
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
|
*==============================================================*
* Procedure : PdevL.c2m *
* Purpose : LZC-devices descriptions using DONJON-4 *
* Author : D. Sekki (07/07) *
*==============================================================*
PARAMETER DEVICE INDEX ::
::: LINKED_LIST DEVICE INDEX ; ;
MODULE END: LZC: ;
STRING Lbl ;
REAL yFul1 yFul2 ;
:: >>Lbl<< ;
REAL fmean := 0.5 ; ! filling level
REAL lp := 28.5750 ; ! lattice pitch
*--
* X- and X+ positions:
*--
REAL LmU12 LpU12 LmU34 LpU34 LmU56 LpU56 :=
197.1125 225.6875 368.5625 397.1375 540.0125 568.5875 ;
*--
* devices mixture numbers:
*--
INTEGER m23M m23E m23F m12M m12E m12F m01M m01E m01F :=
17 18 19 20 21 22 23 24 25 ;
*--
* Y reference lengths:
*--
REAL yL1 yL2 yL3 yL4 yL5 :=
lp 8.504 * lp 8. * lp 7.489 * lp 7. * lp 7. * ;
*--
* Y lengths for all LZC:
*--
REAL L01 L02 L03 L04 L05 L06 L07
L08 L09 L10 L11 L12 L13 L14 :=
yL1 yL2 yL3 yL4 yL5 yL1 yL2
yL1 yL2 yL3 yL4 yL5 yL1 yL2 ;
*--
* Y+ reference coordinates:
*--
REAL yP1 yP2 yP3 yP4 yP5 :=
354.2750 582.8750 239.9750 440.0000 640.0250 ;
*--
* Y+ coordinates for all LZC:
*--
REAL yP01 yP02 yP03 yP04 yP05 yP06 yP07
yP08 yP09 yP10 yP11 yP12 yP13 yP14 :=
yP1 yP2 yP3 yP4 yP5 yP1 yP2
yP1 yP2 yP3 yP4 yP5 yP1 yP2 ;
*--
* Y- coordinates for all LZC:
*--
REAL yM01 := yP01 L01 - ;
REAL yM02 := yP02 L02 - ;
REAL yM03 := yP03 L03 - ;
REAL yM04 := yP04 L04 - ;
REAL yM05 := yP05 L05 - ;
REAL yM06 := yP06 L06 - ;
REAL yM07 := yP07 L07 - ;
REAL yM08 := yP08 L08 - ;
REAL yM09 := yP09 L09 - ;
REAL yM10 := yP10 L10 - ;
REAL yM11 := yP11 L11 - ;
REAL yM12 := yP12 L12 - ;
REAL yM13 := yP13 L13 - ;
REAL yM14 := yP14 L14 - ;
*--
* maximum filling-level coordinate:
*--
IF Lbl "DONJON" = THEN
EVALUATE yFul1 yFul2 := 170.1827 53.8898 ;
ELSE
IF Lbl "HQ" = THEN
EVALUATE yFul1 yFul2 := 111.275 25.975 ;
ELSE
IF Lbl "OPTEX" = THEN
EVALUATE yFul1 yFul2 := 125.675 68.525 ;
ELSE
ECHO "WRONG OPTION " Lbl ;
ENDIF ;
ENDIF ;
ENDIF ;
*--
* liquid zone controllers descriptions:
*--
DEVICE INDEX := LZC: DEVICE INDEX :: EDIT 1 NUM-LZC 14
LZC 1
MAXPOS <<LmU12>> <<LpU12>> <<yM01>> <<yP01>> 152.530 202.060
MAX-FULL <<yFul1>> AXIS Y
LEVEL <<fmean>>
EMPTY-MIX <<m12E>> <<m12M>>
FULL-MIX <<m12F>> <<m12M>>
*
LZC 2
MAXPOS <<LmU12>> <<LpU12>> <<yM02>> <<yP02>> 152.530 202.060
MAX-FULL <<yM02>> AXIS Y
LEVEL <<fmean>>
EMPTY-MIX <<m01E>> <<m01M>>
FULL-MIX <<m01F>> <<m01M>>
*
LZC 3
MAXPOS <<LmU34>> <<LpU34>> <<yM03>> <<yP03>> 152.530 202.060
MAX-FULL <<yFul2>> AXIS Y
LEVEL <<fmean>>
EMPTY-MIX <<m23E>> <<m23M>>
FULL-MIX <<m23F>> <<m23M>>
*
LZC 4
MAXPOS <<LmU34>> <<LpU34>> <<yM04>> <<yP04>> 152.530 202.060
MAX-FULL <<yM04>> AXIS Y
LEVEL <<fmean>>
EMPTY-MIX <<m12E>> <<m12M>>
FULL-MIX <<m12F>> <<m12M>>
*
LZC 5
MAXPOS <<LmU34>> <<LpU34>> <<yM05>> <<yP05>> 152.530 202.060
MAX-FULL <<yM05>> AXIS Y
LEVEL <<fmean>>
EMPTY-MIX <<m01E>> <<m01M>>
FULL-MIX <<m01F>> <<m01M>>
*
LZC 6
MAXPOS <<LmU56>> <<LpU56>> <<yM06>> <<yP06>> 152.530 202.060
MAX-FULL <<yFul1>> AXIS Y
LEVEL <<fmean>>
EMPTY-MIX <<m12E>> <<m12M>>
FULL-MIX <<m12F>> <<m12M>>
*
LZC 7
MAXPOS <<LmU56>> <<LpU56>> <<yM07>> <<yP07>> 152.530 202.060
MAX-FULL <<yM07>> AXIS Y
LEVEL <<fmean>>
EMPTY-MIX <<m01E>> <<m01M>>
FULL-MIX <<m01F>> <<m01M>>
*
LZC 8
MAXPOS <<LmU12>> <<LpU12>> <<yM08>> <<yP08>> 400.180 449.710
MAX-FULL <<yFul1>> AXIS Y
LEVEL <<fmean>>
EMPTY-MIX <<m12E>> <<m12M>>
FULL-MIX <<m12F>> <<m12M>>
*
LZC 9
MAXPOS <<LmU12>> <<LpU12>> <<yM09>> <<yP09>> 400.180 449.710
MAX-FULL <<yM09>> AXIS Y
LEVEL <<fmean>>
EMPTY-MIX <<m01E>> <<m01M>>
FULL-MIX <<m01F>> <<m01M>>
*
LZC 10
MAXPOS <<LmU34>> <<LpU34>> <<yM10>> <<yP10>> 400.180 449.710
MAX-FULL <<yFul2>> AXIS Y
LEVEL <<fmean>>
EMPTY-MIX <<m23E>> <<m23M>>
FULL-MIX <<m23F>> <<m23M>>
*
LZC 11
MAXPOS <<LmU34>> <<LpU34>> <<yM11>> <<yP11>> 400.180 449.710
MAX-FULL <<yM11>> AXIS Y
LEVEL <<fmean>>
EMPTY-MIX <<m12E>> <<m12M>>
FULL-MIX <<m12F>> <<m12M>>
*
LZC 12
MAXPOS <<LmU34>> <<LpU34>> <<yM12>> <<yP12>> 400.180 449.710
MAX-FULL <<yM12>> AXIS Y
LEVEL <<fmean>>
EMPTY-MIX <<m01E>> <<m01M>>
FULL-MIX <<m01F>> <<m01M>>
*
LZC 13
MAXPOS <<LmU56>> <<LpU56>> <<yM13>> <<yP13>> 400.180 449.710
MAX-FULL <<yFul1>> AXIS Y
LEVEL <<fmean>>
EMPTY-MIX <<m12E>> <<m12M>>
FULL-MIX <<m12F>> <<m12M>>
*
LZC 14
MAXPOS <<LmU56>> <<LpU56>> <<yM14>> <<yP14>> 400.180 449.710
MAX-FULL <<yM14>> AXIS Y
LEVEL <<fmean>>
EMPTY-MIX <<m01E>> <<m01M>>
FULL-MIX <<m01F>> <<m01M>>
*--
* create lzc-devices groups:
*--
CREATE LZC-GR 2
GROUP-ID 1 LZC-ID 1 2 6 7 8 9 13 14
GROUP-ID 2 LZC-ID 3 4 5 10 11 12 ;
END: ;
QUIT .
|
