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.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.
##
|
>
>
>
|
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.5 1999/12/08 02:04:46 peterg
## Removed bug - uj := MTTU(j,1); not commented out
##
## 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.
##
|
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
rm -f cse2csm_r.log
# Use reduce to accomplish the transformation
reduce >cse2csm_r.log << EOF
in "$1_def.r";
in "$1_$rep.r";
in "$1_cr.r";
%%in "$1_sympar.r";
OFF Echo;
OFF Nat;
% Get rid of the old mttx and u - now use mkid instead
clear MTTx, MTTu;
|
|
|
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
rm -f cse2csm_r.log
# Use reduce to accomplish the transformation
reduce >cse2csm_r.log << EOF
in "$1_def.r";
in "$1_$rep.r";
%%in "$1_cr.r";
%%in "$1_sympar.r";
OFF Echo;
OFF Nat;
% Get rid of the old mttx and u - now use mkid instead
clear MTTx, MTTu;
|