Mercurial > hg > octave-lyh

diff scripts/general/blkdiag.m @ 8120:8f0150a0d19e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix blkdiag to not rely on Matlab-incompatible behaviour
author Jaroslav Hajek <highegg@gmail.com>
date Thu, 18 Sep 2008 21:54:00 +0200
parents a1dbe9d80eee
children eb63fbe60fab
line wrap: on
line diff
--- a/scripts/general/blkdiag.m
+++ b/scripts/general/blkdiag.m
@@ -49,7 +49,10 @@
   retval = zeros (csz(end,:));
 
   for p = 1:nargin
-    retval((csz(p,1)+1):csz(p+1,1),(csz(p,2)+1):csz(p+1,2)) = varargin{p};
+    vp = varargin{p};
+    if (! isempty (vp))
+      retval((csz(p,1)+1):csz(p+1,1),(csz(p,2)+1):csz(p+1,2)) = vp;
+    endif
   endfor
 
 endfunction