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.21 2001/07/06 00:46:50 gawthrop
## Added -cr option -- forces cr to be loaded before the ese.r file
## This avoids causality problems when using multi-port Rs to represent
## arbitary equations
##
## Revision 1.20 2001/07/04 05:19:57 gawthrop
## Added RT & CT to list
|
>
>
>
>
|
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.22 2001/07/08 03:28:11 gawthrop
## Fixed a bug: abg2sympar_m2txt neads a _lbl.txt file when using
## "usinglabel" option
##
## Revision 1.21 2001/07/06 00:46:50 gawthrop
## Added -cr option -- forces cr to be loaded before the ese.r file
## This avoids causality problems when using multi-port Rs to represent
## arbitary equations
##
## Revision 1.20 2001/07/04 05:19:57 gawthrop
## Added RT & CT to list
|
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
sys="-s ${system}"
else
sys=${system}
fi
# Remove unwanted files
rm -f abg2lbl_fig2txt.log
rm -f $1_cbg.m
rm -f $typefile
|
<
<
|
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
sys="-s ${system}"
else
sys=${system}
fi
# Remove unwanted files
rm -f abg2lbl_fig2txt.log
rm -f $infofile
rm -f mtt_junk*
## Create lbl files beneath this one
mtt -q -u -l 1 ${sys} sub sh # Create the list
sh $1_sub.sh "abg2lbl_fig2txt " " $sensitivity"
|
229
230
231
232
233
234
235
236
237
238
239
240
241
242
|
cr["GY"] = "lin"; arg["GY"] = 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);
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) {
|
>
>
|
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
|
cr["GY"] = "lin"; arg["GY"] = 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);
cr["FMR"] = lin; arg["FMR"] = sprintf("effort,%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) {
|