comparison Problems/private/sampgrid.m @ 16:41a5a3c26961

(none)

 %
 %  November 2007
 
 
 p = ndims(x);
+if (p==2 && any(size(x)==1) && length(blocksize)==1)
+  p = 1;
+end
 
 if (numel(blocksize)==1)
   blocksize = ones(1,p)*blocksize;
 end
 

     ids(j) = ids(j)+1;
     block_ids{j} = varargin{j}(ids(j)) : varargin{j}(ids(j))+blocksize(j)-1;
   end
 end
 
-
-% 
-% p = ndims(x);
-% 
-% n = zeros(1,p);
-% for i = 1:p
-%   n(i) = length(varargin{i});
-% end
-% 
-% nsamps = prod(n);
-% 
-% % create y of the same class as x
-% y = zeros(prod(blocksize),nsamps,class(x));
-% 
-% id = cell(p,1);
-% for k = 1:nsamps
-%   [id{:}] = ind2sub(n,k);
-%   for j = 1:p
-%     id{j} = varargin{j}(id{j}) : varargin{j}(id{j})+blocksize(j)-1;
-%   end
-%   block = x(id{:});
-%   y(:,k) = block(:);
-% end
-