1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
+
+
+
+
|
#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
# Bourne shell script: rbg2abg_m
#
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.13 2000/03/16 12:53:26 peterg
## Added copy of the %VAR declarations
## Put in the endfunction statement
##
## Revision 1.12 1998/07/28 19:07:48 peterg
## Writes out N_ports as well as n_ports
##
## Revision 1.11 1998/07/25 16:14:44 peterg
## *** empty log message ***
##
## Revision 1.10 1998/07/08 15:34:56 peterg
|
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
-
+
+
|
N_ports = 0;
for i=1:n_ports # Count the true number of ports.
[subport,n_sub] = split_port(port_list(i,:), ',');
N_ports = N_ports+n_sub;
end;
rbonds = rbonds(:,1:6); # Strip the directional information
[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);
# filename = '$1_abg.m';
|