Mercurial > hg > octave-lyh

diff scripts/control/base/dlyap.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 bdbee5282954
line wrap: on
line diff
--- a/scripts/control/base/dlyap.m
+++ b/scripts/control/base/dlyap.m
@@ -63,11 +63,11 @@
 
 function x = dlyap (a, b)
 
-  if ((n = is_square (a)) == 0)
+  if ((n = issquare (a)) == 0)
     warning ("dlyap: a must be square");
   endif
 
-  if ((m = is_square (b)) == 0)
+  if ((m = issquare (b)) == 0)
     [n1, m] = size (b);
     if (n1 == n)
       b = b*b';