Mercurial > hg > octave-avbm

comparison scripts/control/system/zp.m @ 6046:34f96dd5441b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-10 16:10:25 by jwe]
author jwe
date Tue, 10 Oct 2006 16:10:31 +0000
parents 4c8a2e4e0717
children 93c65f2a5668
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
58 58
59 function outsys = zp (zer, pol, k, tsam, inname, outname) 59 function outsys = zp (zer, pol, k, tsam, inname, outname)
60 60
61 ## Test for the correct number of input arguments 61 ## Test for the correct number of input arguments
62 if ((nargin < 3) || (nargin > 6)) 62 if ((nargin < 3) || (nargin > 6))
63 usage("outsys = zp(zer,pol,k[,tsam,inname,outname])"); 63 print_usage ();
64 endif 64 endif
65 65
66 ## check input format 66 ## check input format
67 if( ! (isvector(zer) | isempty(zer) ) ) 67 if( ! (isvector(zer) | isempty(zer) ) )
68 error("zer must be a vector or empty"); 68 error("zer must be a vector or empty");