Index: mttroot/mtt/bin/trans/sm2sr_m ================================================================== --- mttroot/mtt/bin/trans/sm2sr_m +++ mttroot/mtt/bin/trans/sm2sr_m @@ -14,10 +14,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.13 1997/06/13 12:52:18 peterg +## Removed extra ; from $PARAMS +## # Revision 1.12 1996/09/12 18:45:31 peter # Back to rcs. # # Revision 1.11 1996/08/24 14:02:39 peter # Included glabal parameter passing. @@ -61,34 +64,25 @@ rm -f sm2sr_m.log rm -f $1_sr.m rm -f $1_sro.m rm -f mtt_error -if [ "$2" = "" ]; -then - PARAMS='T=[0:0.1:10];u0=ones(nu,1);x0=zeros(nx,1);' - echo Using default parameter $PARAMS -else - PARAMS=$2; -fi # PARAMS="$PARAMS ;" $MATRIX << EOF > sm2sr_m.log 2>mtt_error.txt % Read in the numeric system parameters $1_numpar; + + % Read in the simulation parameters + $1_simpar; [nx,ny,nu,nz,nyz] = $1_def; t=0; %Just in case it appears in the parameter list. - $PARAMS - - %Defaults - if exist('T')==0 - T=[0:0.1:10] - end; + T=[0:DT:LAST]' if exist('u0')==0 u0 = ones(nu,1); end;