Mercurial > hg > octave-lyh

diff scripts/general/blkdiag.m @ 5989:e049385342f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-09-14 02:10:46 by jwe]
author jwe
date Thu, 14 Sep 2006 02:10:46 +0000
parents 067948dc39bf
children 34f96dd5441b
line wrap: on
line diff
--- a/scripts/general/blkdiag.m
+++ b/scripts/general/blkdiag.m
@@ -32,7 +32,7 @@
     usage ("blkdiag (a, b, c, ...)");
   endif
 
-  if (! all (cell2mat (cellfun (@isnumeric, varargin))))
+  if (! all (cellfun (@isnumeric, varargin)))
     error ("blkdiag: all arguments must be numeric");
   endif
 
@@ -43,7 +43,8 @@
 
   ## size is an option for cellfun, but it's a bit different from
   ## calling size directly.
-  csz = cumsum ([0 0; (cell2mat (cellfun (@size, varargin')))], 1);
+  tmp = cell2mat (cellfun (@size, varargin', "UniformOutput", false));
+  csz = cumsum ([0 0; tmp], 1);
   retval = zeros (csz(end,:));
 
   for p = 1:nargin