9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Acausal bond graph to causal bond graph: mfile format
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.10 2000/01/26 10:11:10 peterg
## Added I component
##
## Revision 1.9 1999/11/10 00:47:08 peterg
## Replaced ifs by a table of cr/arg information
##
## Revision 1.8 1999/11/09 22:32:41 peterg
|
>
>
>
|
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.11 2000/09/19 11:14:30 peterg
## Now writes the first component type header correctely
##
## Revision 1.10 2000/01/26 10:11:10 peterg
## Added I component
##
## Revision 1.9 1999/11/10 00:47:08 peterg
## Replaced ifs by a table of cr/arg information
##
## Revision 1.8 1999/11/09 22:32:41 peterg
|
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
cr["IS"] = "lin"; arg["IS"] = sprintf("flow,%s;x_0%s", $2, s_arg);
cr["TF"] = "lin"; arg["TF"] = sprintf("flow,%s%s", $2, s_arg);
cr["GY"] = "lin"; arg["GY"] = sprintf("flow,%s%s", $2, s_arg);
cr["AE"] = "lin"; arg["AE"] = sprintf("%s%s", $2, s_arg);
cr["AF"] = "lin"; arg["AF"] = sprintf("%s%s", $2, s_arg);
## Heading
if (Component !~ OldComponent) print "\n% Component type", Component
## Component
print "\t" $2 "\t" cr[Component] "\t\t" arg[Component];
OldComponent=Component;
|
>
>
|
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
cr["IS"] = "lin"; arg["IS"] = sprintf("flow,%s;x_0%s", $2, s_arg);
cr["TF"] = "lin"; arg["TF"] = sprintf("flow,%s%s", $2, s_arg);
cr["GY"] = "lin"; arg["GY"] = sprintf("flow,%s%s", $2, s_arg);
cr["AE"] = "lin"; arg["AE"] = sprintf("%s%s", $2, s_arg);
cr["AF"] = "lin"; arg["AF"] = sprintf("%s%s", $2, s_arg);
cr["CDx"] = "lin"; arg["CDx"] = sprintf("%s%s", $2, s_arg);
## Heading
if (Component !~ OldComponent) print "\n% Component type", Component
## Component
print "\t" $2 "\t" cr[Component] "\t\t" arg[Component];
OldComponent=Component;
|