Combinations

combinations.m

function [ comb ] = combinations( set, length )

    comb = [];
    for i=1:(size(set,2) - length + 1)
        if(length > 1)
            chcombs = combinations(set(i+1:end), length - 1);
            for i_c=1:size(chcombs, 1)
                comb(end + 1,:) = [set(i) chcombs(i_c,:)];
            end
        else
            comb(end + 1,:) = set(i);
        end
    end
end