Mercurial > jwe > octave

diff scripts/sparse/svds.m @ 21116:ba3c66f4e1ca stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
svds.m: Modify BIST test for sigma=0 to reliably pass. * svds.m: Only compare whatever was returned from svds to the correct values. This may be fewer values then requested.
author Rik <rik@octave.org>
date Wed, 20 Jan 2016 06:56:52 -0800
parents df437a52bcaf
children c1df36373272 e169fe73b57e
line wrap: on
line diff
--- a/scripts/sparse/svds.m	Tue Jan 19 13:49:18 2016 -0500
+++ b/scripts/sparse/svds.m	Wed Jan 20 06:56:52 2016 -0800
@@ -277,8 +277,8 @@
 %! [u2,s2,v2,flag] = svds (A,k,0,opts);
 %! s2 = diag (s2);
 %! assert (flag, !1);
-%! tol = 10 * eps() * norm(s2, 1);
-%! assert (s2, s(k:-1:1), tol);
+%! tol = 100 * eps() * norm(s2, 1);
+%! assert (s2, s(length(s2):-1:1), tol);
 %!
 %!testif HAVE_ARPACK, HAVE_UMFPACK
 %! idx = floor (n/2);