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