Mercurial > hg > octave-nkf
diff scripts/linear-algebra/onenormest.m @ 8506:bc982528de11
comment style fixes
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Tue, 13 Jan 2009 11:56:00 -0500 |
parents | df9519e9990c |
children | cadc73247d65 |
line wrap: on
line diff
--- a/scripts/linear-algebra/onenormest.m +++ b/scripts/linear-algebra/onenormest.m @@ -131,9 +131,14 @@ X = rand (n, t); X = X ./ (ones (n,1) * sum (abs (X), 1)); - been_there = zeros (n, 1); # Track if a vertex has been visited. - est_old = 0; # To check if the estimate has increased. - S = zeros (n, t); # Normalized vector of signs. The normalization is + ## Track if a vertex has been visited. + been_there = zeros (n, 1); + + ## To check if the estimate has increased. + est_old = 0; + + ## Normalized vector of signs. + S = zeros (n, t); if (issing) myeps = eps ("single");