Mercurial > hg > octave-thorsten
diff liboctave/fMatrix.cc @ 9528:ec066ba012c8
more fixes & tests for matrix multiply
| author | Jaroslav Hajek <highegg@gmail.com> |
|---|---|
| date | Sun, 16 Aug 2009 08:25:24 +0200 (2009-08-16) |
| parents | 6a9fd5f653c9 |
| children | 3d6a9aea2aea |
line wrap: on
line diff
--- a/liboctave/fMatrix.cc +++ b/liboctave/fMatrix.cc @@ -3157,9 +3157,11 @@ %! M = single(randn(10,10)); %! cv = single(randn(10,1)); %! rv = single(randn(1,10)); -%!assert([M*cv,M*cv],M*[cv,cv],5e-7) -%!assert([rv*M;rv*M],[rv;rv]*M,5e-7) -%!assert(2*rv*cv,[rv,rv]*[cv;cv],5e-7) +%!assert([M*cv,M*cv],M*[cv,cv],5e-6) +%!assert([M'*cv,M'*cv],M'*[cv,cv],5e-6) +%!assert([rv*M;rv*M],[rv;rv]*M,5e-6) +%!assert([rv*M';rv*M'],[rv;rv]*M',5e-6) +%!assert(2*rv*cv,[rv,rv]*[cv;cv],5e-6) */ static const char *