Mercurial > octave-nkf
diff scripts/control/system/fir2sys.m @ 7136:59dcf01bb3e3
[project @ 2007-11-08 20:18:25 by jwe]
author | jwe |
---|---|
date | Thu, 08 Nov 2007 20:18:26 +0000 |
parents | a1dbe9d80eee |
children |
line wrap: on
line diff
--- a/scripts/control/system/fir2sys.m Thu Nov 08 18:54:10 2007 +0000 +++ b/scripts/control/system/fir2sys.m Thu Nov 08 20:18:26 2007 +0000 @@ -87,18 +87,16 @@ function sys = fir2sys (num, tsam, inname, outname) ## Test for the correct number of input arguments - if (nargin < 1 | nargin > 4) + if (nargin < 1 || nargin > 4) print_usage (); endif ## let tf do the argument checking - den = [1,zeros(1,length(num)-1)]; + den = [1, zeros(1,length(num)-1)]; ## check sampling interval (if any) - if (nargin <= 1) + if (nargin < 2 || isempty (tsam)) tsam = 1; # default - elseif (isempty(tsam)) - tsam = 1; endif ## Set name of input