9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
+
+
+
|
# Acausal bond graph to causal bond graph: mfile format
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.19 2001/07/03 23:51:10 gawthrop
## Now puts outline #Summary and #Description lines at top of lbl file
##
## Revision 1.18 2001/06/13 18:24:10 gawthrop
## Made "lin" default in place of "none"
## Still needs arg and cr alias clashes to be sorted ....
##
## Revision 1.17 2001/06/13 10:41:06 gawthrop
## Further changes towards aouto creation of lbl files.
## Prettified lbl files
|
209
210
211
212
213
214
215
216
217
218
219
220
221
222
|
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
|
+
+
|
cr["AE"] = "lin"; arg["AE"] = sprintf("%s%s", Name, s_arg);
cr["AF"] = "lin"; arg["AF"] = sprintf("%s%s", Name, s_arg);
cr["CDx"] = "lin"; arg["CDx"] = sprintf("%s%s", Name, s_arg);
cr["RS"] = lin; arg["RS"] = sprintf("flow,%s%s", Name, s_arg);
cr["RT"] = lin; arg["RT"] = sprintf("flow,%s%s", Name, s_arg);
cr["CT"] = lin; arg["CT"] = sprintf("effort,%s%s", Name, s_arg);
## Put in the explicit arguments
if (length(Arg)>0) {
arg[Component] = Arg;
if (match(Arg,"=")>0) # Its an equation type cr
cr[Component] = "cr"
else # assume a linear cr
|