Mercurial > octave-nkf

comparison scripts/control/system/sys2zp.m @ 4030:22bd65326ec1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-08-09 18:58:13 by jwe]
author jwe
date Fri, 09 Aug 2002 19:00:16 +0000
parents 3234a698073a
children b8105302cfe8
comparison
equal deleted inserted replaced
4029:2cc57b6169cf 4030:22bd65326ec1
40 40
41 function [zer, pol, k, tsam, inname, outname] = sys2zp (sys) 41 function [zer, pol, k, tsam, inname, outname] = sys2zp (sys)
42 42
43 if(nargin != 1) 43 if(nargin != 1)
44 usage("[zer,pol,k,tsam,inname,outname] = sys2zp(sys)"); 44 usage("[zer,pol,k,tsam,inname,outname] = sys2zp(sys)");
45 elseif( !is_struct(sys)) 45 elseif( !isstruct(sys))
46 error("sysconnect: sys must be in system data structure form") 46 error("sysconnect: sys must be in system data structure form")
47 elseif (! is_siso(sys) ) 47 elseif (! is_siso(sys) )
48 [n, nz, m, p] = sysdimensions(sys); 48 [n, nz, m, p] = sysdimensions(sys);
49 error(["system is not SISO (",num2str(m)," inputs, ... 49 error(["system is not SISO (",num2str(m)," inputs, ...
50 ", num2str(p)," outputs"]); 50 ", num2str(p)," outputs"]);