Mercurial > octave-nkf

comparison scripts/control/base/freqchkw.m @ 7125:f084ba47812b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 02:29:23 by jwe]
author jwe
date Thu, 08 Nov 2007 02:29:24 +0000
parents a1dbe9d80eee
children
comparison
equal deleted inserted replaced
7124:d07cb867891b 7125:f084ba47812b
27 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu> 27 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu>
28 ## Created: July 1996 28 ## Created: July 1996
29 29
30 function USEW = freqchkw (w) 30 function USEW = freqchkw (w)
31 31
32 if (nargin != 1)
33 print_usage ();
34 endif
35
32 if (isempty (w)) 36 if (isempty (w))
33 USEW = 0; 37 USEW = 0;
34 elseif (! isvector (w)) 38 elseif (! isvector (w))
35 error ("w (%dx%d): must be [], a vector or a scalar", 39 error ("w (%dx%d): must be [], a vector or a scalar",
36 rows (w), columns (w)); 40 rows (w), columns (w));