MATLAB_排列组合_摸球组合生成

已知有n个各不相同的球，从中选出m个球（m<=n）,列举出所有可能的组合。

%% 摸球组合生成
% 设有n个各不相同的球，从中选取m个球，列举出所有组合。
function COM = Combination_select(n,m)
%% 参数设置
com = 1:m; % 当前组合
com_end = n-m+1:n; % 最后一个组合
COM = zeros(prod(n-m+1:n)/prod(1:m),m);
COM(1,:) = com; % 所有组合
id_com = 1; % 组合的数量
%% 函数体
while ~isequal(com,com_end)
    com(end) = com(end) + 1;
    for i_m = m:-1:2
        if com(i_m)>com_end(i_m)
            com(i_m-1) = com(i_m-1) + 1;
            com(i_m) = 0;
        end
    end
    i_0 = com == 0;
    com(i_0) = com(m-sum(i_0))+1:com(m-sum(i_0))+sum(i_0);
    id_com = id_com + 1;
    COM(id_com,:) = com;
end
end