Overview
| Comment: | Matrix initialisation for smxa |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
d875314a8e4bb231316d558cfe37ccce |
| User & Date: | gawthrop@users.sourceforge.net on 2000-05-13 13:16:52 |
| Other Links: | branch diff | manifest | tags |
Context
|
2000-05-15
| ||
| 08:51:55 | Now zaps comments (lines starting with #) check-in: d1439881e3 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
2000-05-13
| ||
| 13:16:52 | Matrix initialisation for smxa check-in: d875314a8e user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 11:52:16 | A now matrix in smxa rep check-in: c06f6cb5a8 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/mtt_m2p from [af19030bfe] to [fe00ece6d6].
| ︙ | ︙ | |||
11 12 13 14 15 16 17 18 19 20 21 22 23 24 | # Copyright (c) P.J.Gawthrop 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.43 2000/05/11 19:35:16 peterg ## Major revisions for new paprameter passing versions ## ## Revision 1.42 2000/04/18 11:11:44 peterg ## mtt_parameters ---> mttpar ## mtt_n_parameters ---> mttnpar ## | > > > | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | # Copyright (c) P.J.Gawthrop 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.44 2000/05/13 11:52:16 peterg ## A now matrix in smxa rep ## ## Revision 1.43 2000/05/11 19:35:16 peterg ## Major revisions for new paprameter passing versions ## ## Revision 1.42 2000/04/18 11:11:44 peterg ## mtt_parameters ---> mttpar ## mtt_n_parameters ---> mttnpar ## |
| ︙ | ︙ | |||
416 417 418 419 420 421 422 |
for (k=1;k<i;k++) printf(" %s,\n",global[k])
printf("%s : REAL;\n", global[i])
# printvar("x",Nx);
# printvar("u",Nu);
# printvar("y",Ny);
printvar("_t",Nt);
| | | | 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 |
for (k=1;k<i;k++) printf(" %s,\n",global[k])
printf("%s : REAL;\n", global[i])
# printvar("x",Nx);
# printvar("u",Nu);
# printvar("y",Ny);
printvar("_t",Nt);
printf("VAR mtt_i, mtt_j : INTEGER;\n");
#if ( (rep=="smxa")||(rep=="smxax") ) {
# printvar("_t",Nt);
#}
printf("\nBEGIN{%s}\n", Sys_rep)
if (rep=="smxa"){
printf("FOR mtt_i:= 1 to %i DO\n\tFOR mtt_j:= 1 to %i DO\n\tmtta[mtt_i,mtt_j] := 0;\n", Nx,Nx);
}
if (rep=="smxax"){
printf("FOR mtt_i:= 1 to %i DO\n\tmttax[mtt_i] := 0;\n", Nx);
}
}
doing_header = 0;
}
|
| ︙ | ︙ |