1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
function write_cbg(system_name,system_type,system,Flipped)
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.3 1998/08/25 20:05:33 peterg
## Write flipped port info
##
## Revision 1.2 1998/08/25 06:21:19 peterg
## Just writes additional information; basic info from the abg structure.
##
## Revision 1.1 1998/08/25 05:55:10 peterg
## Initial revision
##
###############################################################
fid=fopen([system_name,"_cbg.m"], "w");# Open file
StatusFormat = " %s.%s.%s.status = %i;\n";
Bformat = " %s.bonds = [\n";
Iformat = " %s.%s.%s.connections(%i) = %i;\n";
fprintf(fid,"function [%s] = %s_cbg\n", system_name, system_name);
|
>
>
>
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
function write_cbg(system_name,system_type,system,Flipped)
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.4 1998/08/26 12:26:17 peterg
## Replaced if N>0 by if (N>0)&&(M>0) # Flipped ports exist
##
## Revision 1.3 1998/08/25 20:05:33 peterg
## Write flipped port info
##
## Revision 1.2 1998/08/25 06:21:19 peterg
## Just writes additional information; basic info from the abg structure.
##
## Revision 1.1 1998/08/25 05:55:10 peterg
## Initial revision
##
###############################################################
fid=fopen([system_name,"_cbg.m"], "wt");# Open file
StatusFormat = " %s.%s.%s.status = %i;\n";
Bformat = " %s.bonds = [\n";
Iformat = " %s.%s.%s.connections(%i) = %i;\n";
fprintf(fid,"function [%s] = %s_cbg\n", system_name, system_name);
|