function [sub]=ind2sub2(siz,ind) WORKING, bljat', ind2sub Splits integer index IND to a multiindex SUB according to dimensions SIZ
0001 function [sub]=ind2sub2(siz,ind) 0002 % function [sub]=ind2sub2(siz,ind) 0003 % WORKING, bljat', ind2sub 0004 % Splits integer index IND to a multiindex SUB according to dimensions SIZ 0005 0006 d = max(size(siz)); 0007 sub = zeros(1,d); 0008 curnum = ind-1; 0009 for i=d:-1:2 0010 sub(i) = floor(curnum/prod(siz(1:i-1)))+1; 0011 curnum = mod(curnum, prod(siz(1:i-1))); 0012 end; 0013 sub(1)=curnum+1; 0014 0015 end