Overview
Comment:Back under RCS for major revision
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 929cf15e7959131aad5e05f4ba25030c9d062b616c694dfdec83b9bfdf8dda86
User & Date: gawthrop@users.sourceforge.net on 1998-07-13 09:56:31.000
Other Links: branch diff | manifest | tags
Context
1998-07-15
09:26:50
Reinstated the second column of the sympar file - the system name check-in: 595cf61fa1 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1998-07-13
09:56:31
Back under RCS for major revision check-in: 929cf15e79 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1998-07-10
09:01:42
Added error + info file in new form check-in: b3ebb38395 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
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

MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]