40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
## Interpret the connections from the fig version
[rbonds,rstrokes,rcomponents,port_coord,port_name,port_list] = $1_rbg;
[n_ports, junk] = size(port_list);
## Strip the directional information
rbonds = rbonds(:,1:6);
[bonds] = \
rbg2ibg(name,rbonds,rstrokes,rcomponents,port_coord,port_name, \
infofile,errorfile);
## Write the intermediate bond graph m-file
write_ibg(name,bonds);
EOF
# Errors and info
|
|
|
|
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
## Interpret the connections from the fig version
[rbonds,rstrokes,rcomponents,port_coord,port_name,port_list] = $1_rbg;
[n_ports, junk] = size(port_list);
## Strip the directional information
rbonds = rbonds(:,1:6);
[bonds] = ...
rbg2ibg(name,rbonds,rstrokes,rcomponents,port_coord,port_name, ...
infofile,errorfile);
## Write the intermediate bond graph m-file
write_ibg(name,bonds);
EOF
# Errors and info
|