1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
+
+
+
|
function write_abg(system_name,bonds,connections,n_vector_bonds);
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.10 2004/08/09 14:47:28 gawthrop
## Changed arg to args to avoid strange octave bug
##
## Revision 1.9 2001/04/15 21:15:41 geraint
## Added interface definition rep: _ICD.(txt|c|cc|m).
##
## Revision 1.8 1999/10/18 22:41:41 peterg
## Corrected vector junction expansion
##
## Revision 1.7 1999/10/18 05:16:51 peterg
|
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
-
+
|
##
## Revision 1.1 1998/08/25 06:22:02 peterg
## Initial revision
##
###############################################################
fid=fopen([system_name,"_abg.m"], "w");
fid=fopen([system_name,"_abg.m"], "wt");
[N,M]=size(connections);
Sformat = " %s.subsystems.%s.%s = \"%s\";\n";
PSformat = " %s.ports.%s.%s = \"%s\";\n";
Iformat = " %s.subsystems.%s.%s = %i;\n";
PIformat = " %s.ports.%s.%s = %i;\n";
Cformat = " %s.subsystems.%s.connections = [";
PCformat = " %s.ports.%s.connections = [";
|