Mercurial > octave-nkf

changeset 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
files scripts/ChangeLog scripts/linear-algebra/condest.m
diffstat 2 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Wed Dec 12 22:05:38 2007 +0000
+++ b/scripts/ChangeLog	Wed Dec 12 22:08:58 2007 +0000
@@ -1,7 +1,7 @@
 2007-12-12  John W. Eaton  <jwe@octave.org>
 
 	* linear-algebra/condest.m: Use nargin instead of size(varargin,2).	
-	Allow 6 arguments.
+	Allow 6 arguments.  Use issquare.
 
 	* plot/__go_draw_axes__.m: Handle the axes layer property.
 
--- a/scripts/linear-algebra/condest.m	Wed Dec 12 22:05:38 2007 +0000
+++ b/scripts/linear-algebra/condest.m	Wed Dec 12 22:08:58 2007 +0000
@@ -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}))