Mercurial > octave-nkf

comparison scripts/control/system/zpout.m @ 7133:1d0d7be2d0f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 16:25:44 by jwe]
author jwe
date Thu, 08 Nov 2007 16:25:44 +0000
parents a1dbe9d80eee
children 59dcf01bb3e3
comparison
equal deleted inserted replaced
7132:b01db194c526 7133:1d0d7be2d0f8
28 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu> 28 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu>
29 ## Created: June 1995 29 ## Created: June 1995
30 30
31 function zpout (zer, pol, k, x) 31 function zpout (zer, pol, k, x)
32 32
33 if (nargin < 3 ) | (nargin > 4) | (nargout != 0 ) 33 if (nargin < 3 || nargin > 4)
34 print_usage (); 34 print_usage ();
35 endif 35 endif
36 36
37 if( !(isvector(zer) | isempty(zer)) | !(isvector(pol) | isempty(pol)) ) 37 if( !(isvector(zer) | isempty(zer)) | !(isvector(pol) | isempty(pol)) )
38 error("zer, pol must be vectors or empty"); 38 error("zer, pol must be vectors or empty");