1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
# Bourne shell script: rbg2abg_m
#
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.20 2004/02/19 12:05:49 gawthrop
## Fix prob. when no bonds
##
## Revision 1.19 2002/04/28 18:55:03 geraint
## Fixed [ 549658 ] awk should be gawk.
## Replaced calls to awk with call to gawk.
##
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
# Bourne shell script: rbg2abg_m
#
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.21 2004/09/12 22:27:27 geraint
## Appended 't' to fopen mode string to open in text mode.
##
## Revision 1.20 2004/02/19 12:05:49 gawthrop
## Fix prob. when no bonds
##
## Revision 1.19 2002/04/28 18:55:03 geraint
## Fixed [ 549658 ] awk should be gawk.
## Replaced calls to awk with call to gawk.
##
|
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
end;
[n_bonds,m_bonds] = size(rbonds);
if n_bonds>0
rbonds = rbonds(:,1:6); # Strip the directional information
endif
[bonds,components,n_vector_bonds] = rbg2abg(name,rbonds,rstrokes,rcomponents,port_coord,port_name,\
infofile,errorfile);
%Write the function m-file for the causal bond graph
write_abg(name,bonds,components,n_vector_bonds);
EOF
## Sets the units for the abg file
|
|
|
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
|
end;
[n_bonds,m_bonds] = size(rbonds);
if n_bonds>0
rbonds = rbonds(:,1:6); # Strip the directional information
endif
[bonds,components,n_vector_bonds] = rbg2abg(name,rbonds,rstrokes,rcomponents,port_coord,port_name, ...
infofile,errorfile);
%Write the function m-file for the causal bond graph
write_abg(name,bonds,components,n_vector_bonds);
EOF
## Sets the units for the abg file
|