Mercurial > octave-nkf
changeset 12999:12df4a154618 stable
dMatrix.cc: Fix tests introduced by changeset f217edac2c71. Declare variables
Mt and rvt as shared, and increase tolerance for tests which fail on cygwin.
| author | Marco atzeri <marco.atzeri@gmail.com> |
|---|---|
| date | Tue, 23 Aug 2011 20:58:54 -0400 |
| parents | bac0858b92ee |
| children | c85ee092fa6d |
| files | liboctave/dMatrix.cc |
| diffstat | 1 files changed, 5 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/dMatrix.cc Wed Aug 24 12:19:00 2011 -0400 +++ b/liboctave/dMatrix.cc Tue Aug 23 20:58:54 2011 -0400 @@ -3111,18 +3111,17 @@ */ /* Test some simple identities -%!shared M, cv, rv +%!shared M, cv, rv, Mt, rvt %! M = randn(10,10)+100*eye(10,10); %! Mt = M'; %! cv = randn(10,1); -%! cvt = cv'; %! rv = randn(1,10); %! rvt = rv'; %!assert([M*cv,M*cv],M*[cv,cv],1e-14) -%!assert([M'*cv,M'*cv],M'*[cv,cv],1e-14) -%!assert([rv*M;rv*M],[rv;rv]*M,1e-14) -%!assert([rv*M';rv*M'],[rv;rv]*M',1e-14) -%!assert(2*rv*cv,[rv,rv]*[cv;cv],1e-14) +%!assert([M'*cv,M'*cv],M'*[cv,cv],3e-14) +%!assert([rv*M;rv*M],[rv;rv]*M,3e-14) +%!assert([rv*M';rv*M'],[rv;rv]*M',3e-14) +%!assert(2*rv*cv,[rv,rv]*[cv;cv],3e-14) %!assert(M'\cv,Mt\cv,1e-14) %!assert(M'\rv',Mt\rvt,1e-14) */