Index: mttroot/mtt/bin/trans/sm2sr_m ================================================================== --- mttroot/mtt/bin/trans/sm2sr_m +++ mttroot/mtt/bin/trans/sm2sr_m @@ -14,20 +14,23 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## 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 ## Initial revision ## ############################################################### echo Creating $1_sr.dat $MATRIX << EOF | awk '$1 !~ /[A-MO-Zb-cf-z]/ && NF>0 {print} ' >$1_sr.dat - tmax=0.01; tstep=tmax/100; + tmax=10.0; tstep=tmax/100; T = [0:tstep:tmax]'; [A,B,C,D,E] = $1_dm($1_numpar); y = dm2sr(A,B,C,D,E,T); [Ny,Nu]=size(D);