Mercurial > hg > octave-lyh

diff scripts/linear-algebra/onenormest.m @ 8507:cadc73247d65

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
style fixes
author John W. Eaton <jwe@octave.org>
date Tue, 13 Jan 2009 14:08:36 -0500
parents bc982528de11
children e07e93c04080
line wrap: on
line diff
--- a/scripts/linear-algebra/onenormest.m
+++ b/scripts/linear-algebra/onenormest.m
@@ -189,7 +189,7 @@
       S(:,partest) = replacements;
     endif
     ## Now test for parallel vectors within S.
-    partest = any ( (S' * S - eye (t)) == n );
+    partest = any ((S' * S - eye (t)) == n);
     if (any (partest))
       numpar = sum (partest);
       replacements = 2*(rand (n,numpar) < 0.5) - 1;