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.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
##
|
>
>
>
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# Copyright (c) P.J.Gawthrop, 1991, 1994.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.4 1999/11/22 23:49:50 peterg
## Writes out the new MTTNx and MTTNy
##
## 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
##
|
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
% Find MTTD : the D matrix
matrix MTTD(MTTNy,MTTNu);
FOR i := 1:MTTNy DO
FOR j := 1:MTTNu DO
BEGIN
uj := MTTU(j,1);
uj := mkid(MTTu,j);
MTTD(i,j) := df(MTTY(i,1), uj, 1);
END;
%Substitute the ss values
in "$1_sspar.r";
|
|
|
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
% Find MTTD : the D matrix
matrix MTTD(MTTNy,MTTNu);
FOR i := 1:MTTNy DO
FOR j := 1:MTTNu DO
BEGIN
%uj := MTTU(j,1);
uj := mkid(MTTu,j);
MTTD(i,j) := df(MTTY(i,1), uj, 1);
END;
%Substitute the ss values
in "$1_sspar.r";
|