Mercurial > hg > octave-lyh

diff scripts/control/system/sysdup.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 b5238ac1dca9
children b8105302cfe8
line wrap: on
line diff
--- a/scripts/control/system/sysdup.m
+++ b/scripts/control/system/sysdup.m
@@ -61,7 +61,7 @@
     usage("retsys = sysdup(Asys,output_list,input_list)");
   endif
 
-  if( !is_struct(Asys))
+  if( !isstruct(Asys))
     error("Asys must be a system data structure (see ss2sys, tf2sys, or zp2sys)")
   endif
 
@@ -78,7 +78,7 @@
   endif
 
   ## first duplicate inputs
-  if(is_vector(input_list))
+  if(isvector(input_list))
     for ii=1:length(input_list);
       bb(:,mm+ii) = bb(:,input_list(ii));
       dd(:,mm+ii) = dd(:,input_list(ii));