Mercurial > hg > octave-lyh

diff scripts/linear-algebra/condest.m @ 7310:dc9b00ab5aac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-12 22:08:58 by jwe]
author jwe
date Wed, 12 Dec 2007 22:08:58 +0000
parents 26f42a14d4f6
children 1b535aed87e2
line wrap: on
line diff
--- a/scripts/linear-algebra/condest.m
+++ b/scripts/linear-algebra/condest.m
@@ -112,11 +112,11 @@
   default_t = 5;
 
   if (ismatrix (varargin{1}))
-    n = size (varargin{1}, 1);
-    if (n != size (varargin{1}, 2))
+    A = varargin{1};
+    n = issquare (A);
+    if (! n)
       error ("condest: matrix must be square.");
     endif
-    A = varargin{1};
 
     if (nargin > 1)
       if (isscalar (varargin{2}))