Mercurial > octave-nkf

comparison scripts/sparse/svds.m @ 15535:fe159d11b864 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
increase tolerance for svds test * svds.m: Increase tolerance for svds (speye (10)) test.
author John W. Eaton <jwe@octave.org>
date Wed, 17 Oct 2012 10:46:15 -0400
parents 4d917a6a858b
children 94d21131fefd
comparison
equal deleted inserted replaced
15524:15628a84a4fa 15535:fe159d11b864
285 %! assert (s2, zeros (k)); 285 %! assert (s2, zeros (k));
286 %! assert (v2, eye (10, 7)); 286 %! assert (v2, eye (10, 7));
287 %! 287 %!
288 %!testif HAVE_ARPACK 288 %!testif HAVE_ARPACK
289 %! s = svds (speye (10)); 289 %! s = svds (speye (10));
290 %! assert (s, ones (6, 1), 2*eps); 290 %! assert (s, ones (6, 1), 4*eps);
291 291
292 %!test 292 %!test
293 %! ## Restore random number generator seeds at end of tests 293 %! ## Restore random number generator seeds at end of tests
294 %! rand ("state", rand_state); 294 %! rand ("state", rand_state);
295 %! randn ("state", randn_state); 295 %! randn ("state", randn_state);