Как произвольно переставлять столбцы в 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{:});