Страницы: 1
RSS
Комбинаторика и ГИПЕРГЕОМЕТ: вывод сочетаний с условием ограниченной выборки
 
Уважаемые эксперты, Доброго времени суток!

В темах форума достаточно много примеров различного подхода к выводу массива комбинаций неповторяющихся сочетаний m по n, изложенных в макросах и даже формулах Рабочего листа.
Озадачила проблема возможности разработки кода в VBA Среде, позволяющего произвести выборку из массива по условию неповторяющихся комбинаций X, Включающих комбинации M, из совокупности N. Количество данных комбинаций позволяет определить с помощью функции ГИПЕРГЕОМЕТ, как результат деления на нее : 1/ГИПЕРГЕОМЕТ. В качестве примера идет речь о выборе 5 чисел из 10, из которх в зачет идет 3 (всего 12 вариантов, которые необходимо перечислить). В качестве вывода всех возможных вариантов использовал предложенный MCH код, но адаптировать его под решение и автоматизацию вывода всех вариантов данного примера не смог.

Прошу предложить варианты, поскольку данный код предполагает выборку из массива сочетаний.
Файл примера прикрепляю к данному сообщению.
 
Количество комбинаций успешных выборок должна определятся по формуле
Код
=ЧИСЛКОМБ(A5;A3)*ГИПЕРГЕОМЕТ(A2;A3;A4;A5)

или
Код
=ЧИСЛКОМБ(A4;A2)*ЧИСЛКОМБ(A5-A4;A3-A2)

Второй вариант используя две генерации сочетаний можно реализовать макросом
 
MCH,  странно, количество комбинаций уменьшилось, по сравнению с гипергеометрическим распределением... правильно ли понимаю, что процедура вывода комбинаций предполагает загрузку массива сочетаний 5 из 10 и последующую фильтрацию по принципу - первое вхождение 3 повторяющихся значений? Ума не приложу, как допиливать предлагаемый Вами код в посте
 
MCH,, Физический смысл данной задачи сводится к выводу всех комбинаций (сочетаний), состоящих из 5 цифр от 1 до 10, в которых нет 3 повторяющихся значений, верно понимаю?
Изменено: AleChe - 20.11.2019 20:13:55 (Не правильно указан адресат)
 
Цитата
AleChe написал:  AleChe , Физический смысл данной задачи...
И как часто Вы сами с собой разговариваете? :)
 
vikttur, Да, забавно получилось:) Но вопрос адресовал MCH
Страницы: 1
Наверх