Mercurial > hg > octave-nkf
changeset 4071:3827a03c72f0
[project @ 2002-09-27 17:10:19 by jwe]
author | jwe |
---|---|
date | Fri, 27 Sep 2002 17:10:19 +0000 |
parents | e0e95e9aad7b |
children | 3cc39e3b8fa5 |
files | test/ChangeLog test/octave.test/linalg/qr-7.m |
diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +2002-09-27 Paul Kienzle <pkienzle@users.sf.net> + + * qr-7.m: Remove randomness from complex matrix generator. + Increase tolerance on rosser matrix test. + 2002-09-26 Paul Kienzle <pkienzle@users.sf.net> * octave.test/linalg/qr-7.m: Replace large random matrix tests
--- a/test/octave.test/linalg/qr-7.m +++ b/test/octave.test/linalg/qr-7.m @@ -28,7 +28,7 @@ [q,r,p]=qr(a,0); t(j++) = testqr(q,r,a,p); [q,r,p]=qr(a',0); t(j++) = testqr(q,r,a',p); -a = a+1i*randn(size(a))*sqrt(eps); +a = a+1i*eps; [q,r]=qr(a,0); t(j++) = testqr(q,r,a); [q,r]=qr(a',0); t(j++) = testqr(q,r,a'); [q,r,p]=qr(a,0); t(j++) = testqr(q,r,a,p); @@ -41,7 +41,7 @@ [q,r,p]=qr(a); t(j++) = testqr(q,r,a,p); [q,r,p]=qr(a'); t(j++) = testqr(q,r,a',p); -a = a+1i*randn(size(a))*sqrt(eps); +a = a+1i*eps; [q,r]=qr(a); t(j++) = testqr(q,r,a); [q,r]=qr(a'); t(j++) = testqr(q,r,a'); [q,r,p]=qr(a); t(j++) = testqr(q,r,a,p); @@ -53,7 +53,7 @@ [q,r,p]=qr(a,0); t(j++) = testqr(q,r,a,p); [q,r,p]=qr(a',0); t(j++) = testqr(q,r,a',p); -a = a+1i*randn(size(a))*sqrt(eps); +a = a+1i*eps; [q,r]=qr(a,0); t(j++) = testqr(q,r,a); [q,r]=qr(a',0); t(j++) = testqr(q,r,a'); [q,r,p]=qr(a,0); t(j++) = testqr(q,r,a,p); @@ -71,4 +71,4 @@ ]; [q,r] = qr(a); -all (t) && norm(q*r-a) < 2000*eps +all (t) && norm(q*r-a) < 5000*eps