Mercurial > octave-nkf

changeset 5601:c8ed37d87923

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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	Thu Jan 19 16:39:37 2006 +0000
+++ b/scripts/general/blkdiag.m	Sat Jan 21 20:08:33 2006 +0000
@@ -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));