Mercurial > hg > octave-lyh

diff scripts/control/system/sysscale.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 7923abdeb4e5
children b8105302cfe8
line wrap: on
line diff
--- a/scripts/control/system/sysscale.m
+++ b/scripts/control/system/sysscale.m
@@ -49,7 +49,7 @@
 
   if( (nargin < 3) || (nargin > 5)  )
     usage("retsys = sysscale(Asys,output_list,input_list{,inname,outname})");
-  elseif (!is_struct(sys))
+  elseif (!isstruct(sys))
     error("sys must be a structured system");
   endif
 
@@ -110,7 +110,7 @@
   sysc = outscale*sysc;
   sysd = outscale*sysd*inscale;
 
-  if( !is_square(outscale) )
+  if( !issquare(outscale) )
     ## strip extra output names (if any)
     sysoutname = sysoutname(1:min(rows(outscale),columns(outscale)));
     if( nargin < 4)
@@ -121,7 +121,7 @@
   else
     outname = sysoutname;
   endif
-  if( !is_square(inscale) )
+  if( !issquare(inscale) )
     ## strip extra output names (if any)
     sysinname = sysinname(1:min(rows(inscale),columns(inscale)));
     if(nargin < 5)