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.9 1996/11/06 15:49:33 peterg
# Cahged $MATRIX to $RMATRIX
#
# Revision 1.8 1996/08/25 09:31:49 peter
# More error handling.
#
## Revision 1.7 1996/08/25 09:22:55 peter
|
>
>
>
>
|
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.10 1996/12/04 21:51:02 peterg
# Now uses filenum instead of line name.
# Uses fopen
#
# Revision 1.9 1996/11/06 15:49:33 peterg
# Cahged $MATRIX to $RMATRIX
#
# Revision 1.8 1996/08/25 09:31:49 peter
# More error handling.
#
## Revision 1.7 1996/08/25 09:22:55 peter
|
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
#Inform user
echo Creating $1_cbg.m
echo Creating $1_type.sh
# Use matrix manipulation to accomplish the transformation
$RMATRIX >abg2cbg_m.log 2>mtt_error.txt << EOF
infofile= '$infofile';
typefile = '$typefile';
infofilenum = fopen(infofile,'w');
typefilenum = fopen(typefile,'w');
%Convert from acausal to causal bond graph in m-file form.
system_name='$1'
port_bonds = [];
[cbonds,status] = abg2cbg(system_name, '', '', port_bonds, ...
typefilenum, infofile);
EOF
cat mtt_info.txt
# cp $1_$1_cbg.m $1_cbg.m 2>> mtt_error.txt
# Print errors, if any.
mtt_error mtt_error.txt
|
|
|
>
|
|
|
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
#Inform user
echo Creating $1_cbg.m
echo Creating $1_type.sh
# Use matrix manipulation to accomplish the transformation
$MATRIX >abg2cbg_m.log 2>mtt_error.txt << EOF
infofile= '$infofile';
typefile = '$typefile';
infofilenum = fopen(infofile,'w');
typefilenum = fopen(typefile,'w');
%Convert from acausal to causal bond graph in m-file form.
system_name='$1';
port_bonds = [];
port_status = [];
[cbonds,status] = abg2cbg(system_name, '', '', port_bonds, port_status, ...
typefilenum, infofilenum);
EOF
cat mtt_info.txt
# cp $1_$1_cbg.m $1_cbg.m 2>> mtt_error.txt
# Print errors, if any.
mtt_error mtt_error.txt
|