10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
# Copyright (c) P.J.Gawthrop, 1991, 1994.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
###############################################################
# Inform user
echo Creating $1_csm.r
# Remove the old log file
rm -f cse2csm_r.log
# Use reduce to accomplish the transformation
reduce >cse2csm_r.log << EOF
in "$1_def.r";
in "$1_cse.r";
in "$1_cr.r";
in "$1_sympar.r";
OFF Echo;
OFF Nat;
% Find MTTA : the A matrix
matrix MTTA(MTTNx,MTTNx);
|
>
>
>
|
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
# Copyright (c) P.J.Gawthrop, 1991, 1994.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
# Revision 1.1 1996/08/25 10:13:37 peter
# Initial revision
#
###############################################################
# Inform user
echo Creating $1_csm.r
# Remove the old log file
rm -f cse2csm_r.log
# Use reduce to accomplish the transformation
reduce >cse2csm_r.log << EOF
in "$1_def.r";
in "$1_cse.r";
in "$1_cr.r";
%%in "$1_sympar.r";
OFF Echo;
OFF Nat;
% Find MTTA : the A matrix
matrix MTTA(MTTNx,MTTNx);
|
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
FOR j := 1:MTTNu DO
BEGIN
xj := MTTU(j,1);
MTTD(i,j) := df(MTTY(i,1), xj, 1);
END;
%Substitute the ss values
in "$1_ss.r";
%Create the output file
OUT "$1_csm.r";
%Write out the matrices.
IF MTTNx>0 THEN
BEGIN
|
|
|
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
FOR j := 1:MTTNu DO
BEGIN
xj := MTTU(j,1);
MTTD(i,j) := df(MTTY(i,1), xj, 1);
END;
%Substitute the ss values
in "$1_sspar.r";
%Create the output file
OUT "$1_csm.r";
%Write out the matrices.
IF MTTNx>0 THEN
BEGIN
|