Mercurial > octave

comparison scripts/linear-algebra/null.m @ 904:3470f1e25a79

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-11-09 21:22:15 by jwe]
author jwe
date Wed, 09 Nov 1994 21:22:15 +0000
parents 4fcd2e68dd3b
children 9fc405c8c06c
comparison
equal deleted inserted replaced
903:b3692d63cca3 904:3470f1e25a79
20 s = diag (S); 20 s = diag (S);
21 21
22 if (nargin == 1) 22 if (nargin == 1)
23 tol = max (size (A)) * s (1) * eps; 23 tol = max (size (A)) * s (1) * eps;
24 else (nargin != 2) 24 else (nargin != 2)
25 error("usage: null(A [, tol])"); 25 usage ("null(A [, tol])");
26 endif 26 endif
27 27
28 rank = sum (s > tol); 28 rank = sum (s > tol);
29 29
30 if (rank < cols) 30 if (rank < cols)