Overview
Comment: | Fiddled about with parameter passing - still not right |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | origin/master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
e3ec643207c4f37ba51c221ae16d559a |
User & Date: | gawthrop@users.sourceforge.net on 1996-08-12 20:19:06 |
Other Links: | branch diff | manifest | tags |
Context
1996-08-12
| ||
20:19:52 | Arguments now passed via $1_args.m file check-in: ead13b5877 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
20:19:06 | Fiddled about with parameter passing - still not right check-in: e3ec643207 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
19:09:13 | Initial revision check-in: 56a25313fe user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/sm2sr_m from [3179a86b5f] to [8d38ce92ce].
︙ | ︙ | |||
12 13 14 15 16 17 18 19 20 21 22 23 24 25 | # Copyright (c) P.J.Gawthrop, 1996. ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.3 1996/08/11 10:38:30 peter ## Minor debugging changes. ## ## Revision 1.2 1996/08/11 10:06:50 peter ## Now allows e format and NaN numbers. ## ## Revision 1.1 1996/08/11 09:45:46 peter | > > > | 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | # Copyright (c) P.J.Gawthrop, 1996. ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.4 1996/08/11 19:48:04 peter ## Parameter passing added. ## ## Revision 1.3 1996/08/11 10:38:30 peter ## Minor debugging changes. ## ## Revision 1.2 1996/08/11 10:06:50 peter ## Now allows e format and NaN numbers. ## ## Revision 1.1 1996/08/11 09:45:46 peter |
︙ | ︙ | |||
34 35 36 37 38 39 40 41 42 43 | then PARAMS='t=[0:0.1:10]' echo Using default parameter $PARAMS else PARAMS=$2; fi $MATRIX << EOF | awk '$1 !~ /[A-MO-Zb-cf-z]/ && NF>0 {print} ' >$1_sr.dat | > > | < | 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 | then PARAMS='t=[0:0.1:10]' echo Using default parameter $PARAMS else PARAMS=$2; fi PARAMS="$PARAMS ;" echo $PARAMS $MATRIX << EOF | awk '$1 !~ /[A-MO-Zb-cf-z]/ && NF>0 {print} ' >$1_sr.dat $PARAMS [n,m]=size(t); if m>n t=t'; end; [A,B,C,D,E] = $1_dm($1_numpar); y = dm2sr(A,B,C,D,E,t); [Ny,Nu]=size(D); NN = Ny*Nu; |
︙ | ︙ |