Mercurial > hg > octave-nkf
changeset 5601:c8ed37d87923
[project @ 2006-01-21 20:08:33 by dbateman]
author | dbateman |
---|---|
date | Sat, 21 Jan 2006 20:08:33 +0000 |
parents | c5737b060f6c |
children | dfa2da0563e5 |
files | scripts/general/blkdiag.m |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/general/blkdiag.m +++ b/scripts/general/blkdiag.m @@ -60,7 +60,7 @@ # tests involving empty matrices %!assert(blkdiag([],[],[]),[]) %!assert(blkdiag([],[1,2;3,4],[],5,[]),[1,2,0;3,4,0;0,0,5]) -%!assert(blkdiag(zeros(1,0,1),[1,2,3],1,0,5,zeros(0,1,1)),[1,2,3,0,0,0;0,0,0,1,0,0;0,0,0,0,0,0;0,0,0,0,0,5]); +%!assert(blkdiag(zeros(1,0,1),[1,2,3],1,0,5,zeros(0,1,1)),[0,0,0,0,0,0,0;1,2,3,0,0,0,0;0,0,0,1,0,0,0;0,0,0,0,0,0,0;0,0,0,0,0,5,0]); # sanity checks %!test %! A = rand (round (rand (1, 2) * 10));