Mercurial > hg > octave-lyh
diff scripts/linear-algebra/null.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | eb63fbe60fab |
children | a8ce6bdecce5 |
line wrap: on
line diff
--- a/scripts/linear-algebra/null.m +++ b/scripts/linear-algebra/null.m @@ -53,9 +53,9 @@ if (nargin == 1) if (isa (A, "single")) - tol = max (size (A)) * s (1) * eps ("single"); + tol = max (size (A)) * s (1) * eps ("single"); else - tol = max (size (A)) * s (1) * eps; + tol = max (size (A)) * s (1) * eps; endif elseif (nargin != 2) print_usage (); @@ -66,9 +66,9 @@ if (rank < cols) retval = V (:, rank+1:cols); if (isa (A, "single")) - retval(abs (retval) < eps ("single")) = 0; + retval(abs (retval) < eps ("single")) = 0; else - retval(abs (retval) < eps) = 0; + retval(abs (retval) < eps) = 0; endif else retval = zeros (cols, 0);