Mercurial > hg > octave-lyh

diff scripts/general/common_size.m @ 4854:4b0f3b055331

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-04-07 02:37:05 by jwe]
author jwe
date Wed, 07 Apr 2004 02:38:06 +0000
parents e0b7a493e5a8
children 4c8a2e4e0717
line wrap: on
line diff
--- a/scripts/general/common_size.m
+++ b/scripts/general/common_size.m
@@ -49,8 +49,20 @@
     error ("common_size: only makes sense if nargin >= 2");
   endif
 
+  len = 2;
   for i = 1 : nargin
-    s(i,:) = size (varargin{i});
+    sz =  size (varargin{i});
+    if (length (sz) < len)
+      s(i,:) = [sz, ones(1,len - length(sz))];
+    else
+      if (length (sz) > len)
+	if (i > 1)
+	  s = [s, ones(size(s,1), length(sz) - len)];
+	endif
+	len = length (sz);
+      endif
+      s(i,:) = sz;
+    endif
   endfor
 
   m = max (s);