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.4 1996/08/16 14:28:45 peter
## Some debugging lines removed.
##
## Revision 1.3 1996/08/08 18:06:55 peter
## Unified naming scheme.
##
## Revision 1.2 1996/08/05 11:25:00 peter
## Removed bonds argument from abg2cbg.
## Removed call to $1_abg.
##
|
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
-
+
-
-
-
|
infofile= '$infofile';
%Convert from acausal to causal bond graph in m-file form.
system_name = '$1';
% THIS IS A NASTY BUG WORKROUND FOR OCTAVE
abg2cbg('RC','RC' ,'', [], infofile);
% abg2cbg('RC','RC' ,'', [], infofile);
port_bonds = [];
[cbonds,status] = abg2cbg(system_name, '', '', port_bonds,infofile);
EOF
cat mtt_info.txt
cp $1_$1_cbg.m $1_cbg.m
|