Overview
Comment:Removed bug - uj := MTTU(j,1); not commented out
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 77f5b6a38658a0840e05ce639cac9c3c5164c2dd95ccf3bd229ca066b96c2aca
User & Date: gawthrop@users.sourceforge.net on 1999-12-08 02:04:46
Other Links: branch diff | manifest | tags
Context
1999-12-08
02:06:00
Now incudes csm rep. check-in: 02de45c103 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
02:04:46
Removed bug - uj := MTTU(j,1); not commented out check-in: 77f5b6a386 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1999-12-07
23:09:56
Put in View option to momitor progress graphically check-in: 323dea6866 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/cse2csm_r from [8290302bf0] to [007a79f5ee].

︙︙
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";
︙︙

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