Mercurial > hg > octave-lyh

comparison scripts/general/blkdiag.m @ 5569:f7b4dfd541d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-12-08 16:57:31 by jwe]
author jwe
date Thu, 08 Dec 2005 16:57:31 +0000
parents bcc328604953
children 234751865ca2
comparison
equal deleted inserted replaced
5568:e9cde940b271 5569:f7b4dfd541d1
35 if (! all (cell2mat (cellfun (@isnumeric, varargin)))) 35 if (! all (cell2mat (cellfun (@isnumeric, varargin))))
36 error ("blkdiag: all arguments must be numeric"); 36 error ("blkdiag: all arguments must be numeric");
37 endif 37 endif
38 38
39 ## Note: trailing singletons are automatically (correctly) ignored. 39 ## Note: trailing singletons are automatically (correctly) ignored.
40 if (! all (cellfun (@ndims, varargin) == 2)) 40 if (! all (cellfun ("ndims", varargin) == 2))
41 error ("all of the arguments to blkdiag must be two-dimensional matrices"); 41 error ("all of the arguments to blkdiag must be two-dimensional matrices");
42 endif 42 endif
43 43
44 ## Ignore empty matrices. 44 ## Ignore empty matrices.
45 notempty = ! cellfun (@isempty, varargin); 45 notempty = ! cellfun (@isempty, varargin);