Mercurial > octave-nkf

comparison scripts/control/system/fir2sys.m @ 7136:59dcf01bb3e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 20:18:25 by jwe]
author jwe
date Thu, 08 Nov 2007 20:18:26 +0000
parents a1dbe9d80eee
children
comparison
equal deleted inserted replaced
7135:8aa770b6c5bf 7136:59dcf01bb3e3
85 ## adapted from tf2sys july 1996 85 ## adapted from tf2sys july 1996
86 86
87 function sys = fir2sys (num, tsam, inname, outname) 87 function sys = fir2sys (num, tsam, inname, outname)
88 88
89 ## Test for the correct number of input arguments 89 ## Test for the correct number of input arguments
90 if (nargin < 1 | nargin > 4) 90 if (nargin < 1 || nargin > 4)
91 print_usage (); 91 print_usage ();
92 endif 92 endif
93 93
94 ## let tf do the argument checking 94 ## let tf do the argument checking
95 den = [1,zeros(1,length(num)-1)]; 95 den = [1, zeros(1,length(num)-1)];
96 96
97 ## check sampling interval (if any) 97 ## check sampling interval (if any)
98 if (nargin <= 1) 98 if (nargin < 2 || isempty (tsam))
99 tsam = 1; # default 99 tsam = 1; # default
100 elseif (isempty(tsam))
101 tsam = 1;
102 endif 100 endif
103 101
104 ## Set name of input 102 ## Set name of input
105 if (nargin < 3) 103 if (nargin < 3)
106 inname = __sysdefioname__ (1, "u"); 104 inname = __sysdefioname__ (1, "u");