Сделать покерный калькулятор

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин

Mexo

Дата: Пятница, 01.12.2017, 22:54 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 60

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Здравствуйте! Ищу помощь в создании UDF для калькулятора (вероятно рекурсивной) которая подставляет возможные комбинации со значениями(размещая до 9ти значений), чтобы использовать ее в формулах. Есть пример калькулятора(не доделанного), в котором вычисления сделаны в дополнительном массиве на листе формулами без UDF. Голубые ячейки - ячейки для ввода данных. Справа от калькулятора массив, в нем есть ячейки с длинными формулами, слагаемые выражения в которых представляют собой комбинацию. Нужно эти слагаемые заменить функцией. И вместо массива на листе сделать его в vba. И нужно чтобы скорость вычисления была не очень медленной. Простите если не понятно объяснил, но как смог, по ходу появления вопросов постараюсь объяснять более конкретней.
ПС: Пример сюда не влез

Ответить

Mexo

Дата: Воскресенье, 03.12.2017, 00:04 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 60

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Приложил таблицу, где вычисляется вероятность занять определенное место в турнире игроками, исходя из количества фишек у них. Формула для вероятности занять первое или последнее место простая, но вот формулы для вероятности занять другие места уже получаются большими. Чем выше место,тем больше "комбинаций выражений" в формуле.
ПС: Мне достаточно будет хотя бы только эту UDF, остальное смогу доделать самостоятельно.

К сообщению приложен файл: __.xlsm (12.5 Kb)

Ответить

Mexo

Дата: Воскресенье, 03.12.2017, 00:41 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 60

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Объясню откуда комбинации в формулах.
Имеется 10 игроков, обозначенных буквами латинского алфавита.
Когда считаю вероятность занять 2е место игроком A, складываю все вероятности когда игрок A - на втором месте, а на 1м месте каждый из оставшихся девяти игроков: игрок А на 2-м месте = BA + CA + DA+ ... т.е. должно получиться 9 комбинаций.
Когда считаю вероятность занять 3е место игроком A, складываю все вероятности когда игрок A должен быть на третьем месте, на 1е место подставляю любого из оставшихся 9ти игроков, а на 2е место - любого из оставшихся 8ми игроков: игрок А на 3-м месте = BCA + BDA + BEA+ ... Должно получиться 72 комбинации(9*8=72).

Ответить

InExSu

Дата: Воскресенье, 03.12.2017, 00:42 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 648

Репутация: 96 ±

Замечаний: 0% ±

Excel 2010, 365

Привет!
Написал в личку.
Заказ свободен. Мне, пока, не по силам.

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Сообщение отредактировал InExSu - Воскресенье, 03.12.2017, 17:25

Ответить

Mexo

Дата: Среда, 06.12.2017, 01:31 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 60

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Может быть можно решить задачу встроенными средствами не создавая пользовательскую функцию..?
К примеру функцию назову "COMB", в параметрах этой функции будут ссылки на ячейки с числовыми значениями.
Возьму длинную формулу из таблицы в файле примере:

И вместо этой длинной формулы запишу примерно такое:
[vba]

Код

=СУММ(
СУММ(F6*(COMB(D7:D14)/(D4-D6))*(D5/D4-D6-COMB(D7:D14))));
СУММ(F7*(COMB(D7;D8:D14)/(D4-D6))*(D5/D4-D6-COMB(D7;D8:D14))));
СУММ(F8*(COMB(D6:D7;D9:D14)/(D4-D6))*(D5/D4-D6-COMB(D6:D7;D9:D14))));
СУММ(F9*(COMB(D6:D8;D10:D14)/(D4-D6))*(D5/D4-D6-COMB(D6:D8;D10:D14))));
СУММ(F10*(COMB(D6:D9;D11:D14)/(D4-D6))*(D5/D4-D6-COMB(D6:D9;D11:D14))));
СУММ(F11*(COMB(D6:D10;D12:D14)/(D4-D6))*(D5/D4-D6-COMB(D6:D10;D12:D14))));
СУММ(F12*(COMB(D6:D11;D13:D14)/(D4-D6))*(D5/D4-D6-COMB(D6:D11;D13:D14))));
СУММ(F13*(COMB(D6:D12;D14)/(D4-D6))*(D5/D4-D6-COMB(D6:D12;D14))));
СУММ(F14*(COMB(D6:D13)/(D4-D6))*(D5/D4-D6-COMB(D6:D13)))))

[/vba]