Mercurial > octave-nkf

diff scripts/control/base/dare.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 99ab64f4a09d
children c76a32c6f90c
line wrap: on
line diff
--- a/scripts/control/base/dare.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/dare.m	Fri Aug 09 19:00:16 2002 +0000
@@ -93,7 +93,7 @@
       warning ("dare: a,c are not observable");
     endif
 
-    if ((p = is_square (c)) == 0)
+    if ((p = issquare (c)) == 0)
       c = c'*c;
       p = rows (c);
     endif
@@ -101,7 +101,7 @@
     ## Check r dimensions.
     n = rows(a);
     m = columns(b);
-    if ((m1 = is_square (r)) == 0)
+    if ((m1 = issquare (r)) == 0)
       warning ("dare: r is not square");
     elseif (m1 != m)
       warning ("b,r are not conformable");