Matlab: Bagaimana cara menghitung kemungkinan cara membentuk pasangan dari daftar

Question

Misalkan saya memiliki daftar panjang 2k, katakanlah {1,2,...,2k}. Jumlah kemungkinan cara untuk mengelompokkan 2kangka menjadi kpasangan (tidak berurutan) adalah n(k) = 1*3* ... *(2k-1). Jadi untuk k=2, kami memiliki tiga cara berbeda untuk membentuk 2 pasangan

(1 2)(3 4)

(1 3)(2 4)

(1 4)(2 3)

Bagaimana saya dapat menggunakan Matlab untuk membuat daftar di atas, yaitu membuat matriks n(k)*(2k)sedemikian rupa sehingga setiap baris berisi cara yang berbeda untuk mengelompokkan daftar 2kangka menjadi kpasangan.

Answer 1

clear
k = 3;
set = 1: 2*k;
p = perms(set); % get all possible permutations
% sort each two column
[~, col] = size(p);
for i = 1: 2: col
    p(:, i:i+1) = sort(p(:,i:i+1), 2);
end
p = unique(p, 'rows'); % remove the same row
% sort each row
[row, col] = size(p);
for i = 1: row
    temp = reshape(p(i,:), 2, col/2)';
    temp = sortrows(temp, 1);
    p(i,:) = reshape(temp', 1, col);
end
pairs = unique(p, 'rows'); % remove the same row

pairs =
    
         1     2     3     4     5     6
         1     2     3     5     4     6
         1     2     3     6     4     5
         1     3     2     4     5     6
         1     3     2     5     4     6
         1     3     2     6     4     5
         1     4     2     3     5     6
         1     4     2     5     3     6
         1     4     2     6     3     5
         1     5     2     3     4     6
         1     5     2     4     3     6
         1     5     2     6     3     4
         1     6     2     3     4     5
         1     6     2     4     3     5
         1     6     2     5     3     4

Karena seseorang berpikir jawaban saya sebelumnya tidak berguna, saya memposting ini.

Answer 2

Saya memiliki cara brute force berikut untuk menghitung pasangan. Tidak terlalu efisien. Ini juga dapat menyebabkan masalah memori ketika k> 9. Dalam hal ini, saya hanya dapat menghitung tetapi tidak membuat Z dan menyimpan hasilnya di dalamnya.

function Z = pair2(k)
   count = [2*k-1:-2:3];
   tcount = prod(count);
   Z = zeros(tcount,2*k);
   x = [ones(1,k-2) 0];
   z = zeros(1,2*k);
   for i=1:tcount
       for j=k-1:-1:1
           if x(j)<count(j)
              x(j) = x(j)+1;
              break
            end
            x(j) = 1;
       end
       y = [1:2*k];
       for j=1:k-1
           z(2*j-1) = y(1);
           z(2*j) = y(x(j)+1);
           y([1 x(j)+1]) = [];
       end
       z(2*k-1:2*k) = y;
       Z(i,:) = z;
   end