Как произвольно переставлять столбцы в 3D-матрице в MATLAB
у меня есть 3D-матрица (10000 x 60 x 20), и мне нужно переставить 2-й и 3-й размеры, сохраняя столбцы неповрежденными.
для 2D-Матрицы я использую RANDPERM:
pidx = randperm(size(A,2));
Aperm = A(:,pidx);
Я не могу просто применить RANDPERM дважды-сначала индекс столбца, затем индекс страницы. Недостаточно рандомизации.
одно из решений-изменить матрицу из 3D в 2D, сжимая столбцы и страницы в столбцы, переставлять их, а затем изменять обратно. Но я также хотел бы сделать перестановку таким образом, чтобы столбцы, изменяемые независимо для каждой страницы. Что-то вроде:
Aperm = zeros(size(A));
for p=1:size(A,3)
pidx = randperm(size(A,2));
Aperm(:,:,p) = A(:,pidx,p);
end
могу я сделать его более эффективно? Есть способы получше?
3 ответов
Решение#1: столбцы переставляются на всех страницах
измените матрицу с 3D на 2D сжатие столбцов и страниц в столбцы, переставить их, а затем изменить форму назад!--6-->
A = randi(10, [3 4 2]); %# some random 3D matrix
[r c p] = size(A);
Aperm = reshape(A, [r c*p]);
Aperm = reshape(Aperm(:,randperm(c*p)), [r c p]);
решение#2: Столбцы переставляются внутри каждой страницы независимо (эквивалентно вашему for-loop)
Я также хотел бы сделать перестановку в таким образом, столбцы переставляются независимо для каждого страница
A = randi(10, [3 4 2]); %# some random 3D matrix
[r c p] = size(A);
Aperm = reshape(A, [r c*p]);
[~,idx] = sort(rand(p,c),2); %# this is what RANDPERM does
idx = reshape(bsxfun(@plus, idx',0:c:c*(p-1)),1,[]); %'#
Aperm = reshape(Aperm(:,idx), [r c p]);
вот одно решение, которое достигнет того же результата, что и ваш цикл for (т. е. различная перестановка столбцов для каждой страницы):
%# Solution 1:
[r,c,p] = size(A);
Aperm = reshape(A,r,c*p);
index = arrayfun(@randperm,c.*ones(1,p),'UniformOutput',false);
index = [index{:}]+kron(0:c:c*(p-1),ones(1,c));
Aperm = reshape(Aperm(:,index),r,c,p);
и, как и со многими проблемами в MATLAB, есть несколько различных способов решить эту проблему. Вот еще одно решение, которое позволяет избежать изменения матрицы, используя только линейный индексации на A
:
%# Solution 2:
[r,c,p] = size(A);
Aperm = zeros([r c p]);
index1 = repmat(1:r,1,c*p);
[~,index2] = sort(rand(c,p)); %# A variation on part of Amro's answer
index2 = kron(index2(:),ones(r,1)).'; %'
index3 = kron(1:p,ones(1,r*c));
index = sub2ind([r c p],index1,index2,index3);
Aperm(:) = A(index);
вот решение, которое совпадает с вашим циклом, но без использования kron
как в ответе gnovice. Хотя я предпочитаю kron
, это более безопасная альтернатива, если вы случайно делитесь кодом с людьми, которые не поймут, что kron
здесь (я говорю из опыта). Однако я должен отметить, что это повлияет на производительность, если pages
становится большим (в вашем случае, это нормально).
[rows,cols,pages]=size(A);
randCols=arrayfun(@(x)randperm(cols),1:pages,'UniformOutput',false);
Aperm=arrayfun(@(x)A(:,randCols{x},x),1:pages,'UniformOutput',false);
Aperm=cat(3,Aperm{:});