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
26
|
+
+
+
+
|
# Acausal bond graph to causal bond graph: mfile format
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.26 2002/04/28 18:41:26 geraint
## Fixed [ 549658 ] awk should be gawk.
## Replaced calls to awk with call to gawk.
##
## Revision 1.25 2001/10/15 14:27:00 gawthrop
## Now handles [1:N] style port labels
##
## Revision 1.24 2001/08/02 03:24:48 geraint
## Replaced mtt_version.sh with mtt_banner.sh - I think this was the intent.
##
## Revision 1.23 2001/07/26 04:08:35 gawthrop
|
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
|
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
|
+
+
+
+
+
|
cr["De"] = "SS"; arg["De"] = "external";
cr["Df"] = "SS"; arg["Df"] = "external";
cr["R"] = lin; arg["R"] = sprintf("flow,%s%s", Name, s_arg);
cr["C"] = lin; arg["C"] = sprintf("effort,%s%s", Name, s_arg);
cr["I"] = lin; arg["I"] = sprintf("flow,%s%s", Name, s_arg);
cr["INTF"] = lin; arg["INTF"] = "";
cr["CS"] = "lin"; arg["CS"] = sprintf("effort,%s;%s_x0%s", Name, Name, s_arg);
cr["IS"] = "lin"; arg["IS"] = sprintf("flow,%s;%s_x0%s", Name, Name, s_arg);
cr["INTFS"] = "lin"; arg["INTFS"] = sprintf("%s_x0%s", Name, s_arg);
cr["TF"] = "lin"; arg["TF"] = sprintf("flow,%s%s", Name, s_arg);
cr["GY"] = "lin"; arg["GY"] = sprintf("flow,%s%s", Name, s_arg);
##cr["EMTF"] = sprintf("%s", Name); arg["EMTF"] = sprintf("l%s", s_arg);
cr["EMTF"] = "lin"; arg["EMTF"] = sprintf("flow,%s%s", Name, s_arg);
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);
|
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
|
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
|
-
+
|
if (match(Arg,"=")>0) # Its an equation type cr
cr[Component] = "cr"
else # assume a linear cr
cr[Component] = "lin";
}
## Print component header
if (Component !~ OldComponent) print "\n## Component type", Component_type
if (Component != OldComponent) print "\n## Component type", Component_type
## Print Component
printf("\t%s\t", Name);
if (Component in cr)
printf("%s\t\t", cr[Component])
else
printf("%s\t\t", default_cr);
|