8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright (c) P.J.Gawthrop, 1996.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
# Revision 1.7 1997/03/18 17:25:24 peterg
# Now just generates names - formatting removed.
#
# Revision 1.6 1996/12/07 20:02:43 peterg
# Fixed symbolic parameter bug.
#
## Revision 1.5 1996/12/07 18:06:50 peterg
|
>
>
>
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# Copyright (c) P.J.Gawthrop, 1996.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.8 1998/02/16 12:08:38 peterg
## Put back the matrix declaration
##
# Revision 1.7 1997/03/18 17:25:24 peterg
# Now just generates names - formatting removed.
#
# Revision 1.6 1996/12/07 20:02:43 peterg
# Fixed symbolic parameter bug.
#
## Revision 1.5 1996/12/07 18:06:50 peterg
|
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
}
END {
# print the _sympar file
# printf("MTTNVar := %1.0f;\n", symbol_count);
if (symbol_count>0) {
printf("MATRIX MTTVar(MTTNVar,1);\n");
split(symbols,symbol);
for (i = 1; i <= symbol_count; i++) {
# printf("MTTVar(%1.0f,1) \t := %s\n", i, symbol[i]);
printf("%s\t%s\n", symbol[i], name);
}
}
}
|
|
|
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
}
END {
# print the _sympar file
# printf("MTTNVar := %1.0f;\n", symbol_count);
if (symbol_count>0) {
#printf("MATRIX MTTVar(MTTNVar,1);\n");
split(symbols,symbol);
for (i = 1; i <= symbol_count; i++) {
# printf("MTTVar(%1.0f,1) \t := %s\n", i, symbol[i]);
printf("%s\t%s\n", symbol[i], name);
}
}
}
|