Overview
| Comment: | Writes out the new MTTNx and MTTNy |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
48cce03818721362a15f0691124bd038 |
| User & Date: | gawthrop@users.sourceforge.net on 1999-11-22 23:49:50 |
| Other Links: | branch diff | manifest | tags |
Context
|
1999-11-23
| ||
| 00:59:14 | Now does ssm.m check-in: 27f7935f4a user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
1999-11-22
| ||
| 23:49:50 | Writes out the new MTTNx and MTTNy check-in: 48cce03818 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 23:44:47 | Now does scse as well check-in: 833c405f9c user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/cse2csm_r from [ee6e7c76db] to [8290302bf0].
| ︙ | ︙ | |||
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.2 1998/07/13 09:56:31 peterg ## Back under RCS for major revision ## # Revision 1.1 1996/08/25 10:13:37 peter # Initial revision # ############################################################### | > > > > | 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | # 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 ## # Revision 1.1 1996/08/25 10:13:37 peter # Initial revision # ############################################################### |
| ︙ | ︙ | |||
98 99 100 101 102 103 104 105 106 107 108 109 110 111 |
END;
%Substitute the ss values
in "$1_sspar.r";
%Create the output file
OUT "$1_$2.r";
%Write out the matrices.
IF MTTNx>0 THEN
BEGIN
write "matrix MTTE(", MTTNx, ",", MTTNx, ");";
FOR i := 1:MTTNx DO
FOR j := 1:MTTNx DO IF MTTE(i,j) NEQ 0 THEN
| > > > > > > > | 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 |
END;
%Substitute the ss values
in "$1_sspar.r";
%Create the output file
OUT "$1_$2.r";
% Constants
write "% New constants";
write "MTTNx := ", MTTNx, ";";
write "MTTNy := ", MTTNy, ";";
%Write out the matrices.
IF MTTNx>0 THEN
BEGIN
write "matrix MTTE(", MTTNx, ",", MTTNx, ");";
FOR i := 1:MTTNx DO
FOR j := 1:MTTNx DO IF MTTE(i,j) NEQ 0 THEN
|
| ︙ | ︙ |