Mercurial > hg > octave-max
diff test/build_sparse_tests.sh @ 5681:233d98d95659
[project @ 2006-03-16 17:48:55 by dbateman]
author | dbateman |
---|---|
date | Thu, 16 Mar 2006 17:48:56 +0000 |
parents | 512d0d11ae39 |
children | faafc2d98b8d |
line wrap: on
line diff
--- a/test/build_sparse_tests.sh +++ b/test/build_sparse_tests.sh @@ -935,7 +935,7 @@ %!test %! ds = alpha * spdiags([1:11]',0,10,11); %! df = full(ds); -%! xf = beta * ones(10,1); +%! xf = beta * ones(10,2); %! xs = speye(10,10); %!assert(ds\xf,df\xf,100*eps) %!assert(ds\xs,sparse(df\xs,true),100*eps) @@ -947,7 +947,7 @@ %!test %! ds = alpha * spdiags([1:11]',0,11,10); %! df = full(ds); -%! xf = beta * ones(11,1); +%! xf = beta * ones(11,2); %! xs = speye(11,11); %!assert(ds\xf,df\xf,100*eps) %!assert(ds\xs,sparse(df\xs,true),100*eps) @@ -971,18 +971,21 @@ %! assert(us\xf,r\c,100*eps) %!test %! [c,r] = spqr (us, xs); +%! r = matrix_type(r,"Singular"); ## Force Matrix Type %! assert(us\xs,r\c,100*eps) %!test %! pus = us(:,[1:8,10,9]); %!test %! [c,r] = spqr (pus, xf); +%! r = matrix_type(r,"Singular"); ## Force Matrix Type %! assert(pus\xf,r\c,100*eps) %!test %! [c,r] = spqr (pus, xs); +%! r = matrix_type(r,"Singular"); ## Force Matrix Type %! assert(pus\xs,r\c,100*eps) %!test %! ls = alpha*[speye(9,11);[1,sparse(1,8),1,0]]; -%! xf = beta * ones(10,1); +%! xf = beta * ones(10,2); %! xs = speye(10,10); %!assert(ls*(ls\xf),xf,100*eps) %!assert(ls*(ls\xs),xs,100*eps) @@ -992,21 +995,24 @@ %!assert(pls*(pls\xs),xs,100*eps) %!test %! ls = alpha*[speye(10,10),sparse(10,1);[1;1],sparse(2,9),[1;1]]; -%! xf = beta * ones(12,1); +%! xf = beta * ones(12,2); %! xs = speye(12,12); %!test %! [c,r] = spqr (ls, xf); %! assert(ls\xf,r\c,100*eps) %!test %! [c,r] = spqr (ls, xs); +%! r = matrix_type(r,"Singular"); ## Force Matrix Type %! assert(ls\xs,r\c,100*eps) %!test %! pls = ls(:,[1:8,10,9]); %!test %! [c,r] = spqr (pls, xf); +%! r = matrix_type(r,"Singular"); ## Force Matrix Type %! assert(pls\xf,r\c,100*eps) %!test %! [c,r] = spqr (pls, xs); +%! r = matrix_type(r,"Singular"); ## Force Matrix Type %! assert(pls\xs,r\c,100*eps) EOF