10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Copyright (c) P.J.Gawthrop, 1991, 1994.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.2 1998/07/13 09:56:31 peterg
## Back under RCS for major revision
##
# Revision 1.1 1996/08/25 10:13:37 peter
# Initial revision
#
###############################################################
|
>
>
>
>
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# Copyright (c) P.J.Gawthrop, 1991, 1994.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.3 1999/11/22 23:38:51 peterg
## Now does scse 2 scsm as well.
## Uses mkid.
##
## Revision 1.2 1998/07/13 09:56:31 peterg
## Back under RCS for major revision
##
# Revision 1.1 1996/08/25 10:13:37 peter
# Initial revision
#
###############################################################
|
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
END;
%Substitute the ss values
in "$1_sspar.r";
%Create the output file
OUT "$1_$2.r";
%Write out the matrices.
IF MTTNx>0 THEN
BEGIN
write "matrix MTTE(", MTTNx, ",", MTTNx, ");";
FOR i := 1:MTTNx DO
FOR j := 1:MTTNx DO IF MTTE(i,j) NEQ 0 THEN
|
>
>
>
>
>
>
>
|
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
END;
%Substitute the ss values
in "$1_sspar.r";
%Create the output file
OUT "$1_$2.r";
% Constants
write "% New constants";
write "MTTNx := ", MTTNx, ";";
write "MTTNy := ", MTTNy, ";";
%Write out the matrices.
IF MTTNx>0 THEN
BEGIN
write "matrix MTTE(", MTTNx, ",", MTTNx, ");";
FOR i := 1:MTTNx DO
FOR j := 1:MTTNx DO IF MTTE(i,j) NEQ 0 THEN
|