1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
function sub = ind2subv(siz,index)
%IND2SUBV Subscript vector from linear index.
% IND2SUBV(SIZ,IND) returns a vector of the equivalent subscript values
% corresponding to a single index into an array of size SIZ.
% If IND is a vector, then the result is a matrix, with subscript vectors
% as rows.
%sub = ind2subvTest(siz, index);
n = length(siz);
if n==0, sub = index; return; end % added by KPM 17 Nov 07
cum_size = cumprod(siz(:)');
prev_cum_size = [1 cum_size(1:end-1)];
index = index(:) - 1;
sub = rem(repmat(index,1,n),repmat(cum_size,length(index),1));
sub = floor(sub ./ repmat(prev_cum_size,length(index),1))+1;
% slow way
%for dim = n:-1:1
% sub(:,dim) = floor(index/cum_size(dim))+1;
% index = rem(index,cum_size(dim));
%end
|
