Mercurial > octave-nkf

comparison scripts/linear-algebra/null.m @ 6431:ff87ad14403f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-03-22 18:20:31 by jwe]
author jwe
date Thu, 22 Mar 2007 18:20:32 +0000
parents 34f96dd5441b
children 93c65f2a5668
comparison
equal deleted inserted replaced
6430:215b141470b4 6431:ff87ad14403f
59 59
60 rank = sum (s > tol); 60 rank = sum (s > tol);
61 61
62 if (rank < cols) 62 if (rank < cols)
63 retval = V (:, rank+1:cols); 63 retval = V (:, rank+1:cols);
64 retval(abs (retval) < eps) = 0;
64 else 65 else
65 retval = zeros (cols, 0); 66 retval = zeros (cols, 0);
66 endif 67 endif
67 endif 68 endif
68 69