Mercurial > octave
changeset 25549:8925207dbc26 stable
eigs.m: Decrease opts.maxit in UnconvergedEigenvalues BIST (bug #54179).
* eigs.m: Decrease opts.maxit from 5 to 4 in order for ARPACK to definitely
fail to converge.
author | Rik <rik@octave.org> |
---|---|
date | Wed, 04 Jul 2018 07:00:59 -0700 |
parents | d068c71d4eed |
children | 8cc9e21b15a7 5f9fa229cc8a |
files | scripts/sparse/eigs.m |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/sparse/eigs.m Sun Jul 01 21:29:09 2018 -0700 +++ b/scripts/sparse/eigs.m Wed Jul 04 07:00:59 2018 -0700 @@ -1400,7 +1400,7 @@ %! A = toeplitz ([0, 1, zeros(1, 8)], [0, -1, zeros(1, 8)]); %! A = kron (A, eye (10)) + kron (eye (10), A); %! opts.v0 = (1:100)'; -%! opts.maxit = 5; +%! opts.maxit = 4; %! warning ("off", "Octave:eigs:UnconvergedEigenvalues", "local"); %! d = eigs (A, 4, "lm", opts); %! assert (d(3:4), [NaN+1i*NaN; NaN+1i*NaN]); @@ -1440,7 +1440,7 @@ %! A = kron (A, eye (10)) + kron (eye (10), A); %! Afun = @(x) A * x; %! opts.v0 = (1:100)'; -%! opts.maxit = 5; +%! opts.maxit = 4; %! warning ("off", "Octave:eigs:UnconvergedEigenvalues", "local"); %! d = eigs (Afun, 100, 4, "lm", opts); %! assert (d(3:4), [NaN+1i*NaN; NaN+1i*NaN]);