Mercurial > hg > octave-lyh
diff scripts/control/system/sysappend.m @ 4030:22bd65326ec1
[project @ 2002-08-09 18:58:13 by jwe]
author | jwe |
---|---|
date | Fri, 09 Aug 2002 19:00:16 +0000 |
parents | b5238ac1dca9 |
children | cef48c4b902d |
line wrap: on
line diff
--- a/scripts/control/system/sysappend.m +++ b/scripts/control/system/sysappend.m @@ -82,9 +82,9 @@ empty_list_elements_ok = 1; ## check input arguments - if ( (nargin < 2) | (nargin > 7) | (!is_struct(sys))) + if ( (nargin < 2) | (nargin > 7) | (!isstruct(sys))) usage("retsys = sysappend(sys,b,c[,d,outname,inname,yd]) "); - elseif(!is_struct(sys)) + elseif(!isstruct(sys)) error("sys must be a system data structure"); endif @@ -149,7 +149,7 @@ ## construct new yd entries if(nargin == 7) - if(!is_vector(yd)) + if(!isvector(yd)) error(sprintf("yd(%dx%d) must be a vector",rows(yd),columns(yd))) elseif(rows(c) != length(yd) & rows(d) != length(yd)) error(sprintf("length(yd) = %d; c(%dx%d), d(%dx%d); mismatch", ...