Mercurial > hg > octave-lyh
changeset 7310:dc9b00ab5aac
[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 +++ b/scripts/ChangeLog @@ -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 +++ 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}))