[Mercator]

Чисто теоретический вопрос.
Какова вероятность, что к риверу доска окажется такой, что настом сможет быть только сет?
Т.е. неспаренная, нефлешовая, нестритовая доска.

[Andy Sopl]

Простого изящного решения тут нет. Объем и сложность расчетов не стоят ценности результата

[hasufelisc1]

Тангес угла наклона твоего винрейта равен производной от функции твоего винрейта. (Сорри за оффтоп, не сдержался после прочтения предыдущей темы)

[RabiPoker]

Ну конечно, никто не считает - все ведь знают - придет CorwinXX и быстренько все посчитает оптимальным способом, да еще и выводы сделает . А ведь полезно такие вещи считать, чтобы потом, если вдруг сложилась ситуация, где нужно было бы знать какую-то похожую вещь, проще было бы прикинуть ориентировочное число.

[vanvan]

Знаю только что вероятность доски без пары и чего старше порядка 50%.

Осталось отбросить 3 флэш, 3 стрит, 4 стрит, 4 флэш

[EgorK]

Вероятность неспаренной доски 48/51*44/50*40/49*36/48 = 2112/4165. Для неспаренной доски вероятность отсутствия три-флеша 75/128. Осталось посчитать вероятость отсутствия три-стрита. Для этого я написал нехитрую программку и получилось, что доска без три стрита бывает очень редко - всего с вероятностью 79/1287. Таким образов общая вероятность - около 1.82%.

[vanvan]

Чего то не уверен. Надо проверять. 4 флэш 4 стрит считал?

[Geplew]

Сообщение от vanvan писал ср, 12 декабря 2007 12:45

Чего то не уверен. Надо проверять. 4 флэш 4 стрит считал?

Я тоже помоделировал немного.
На 100 000 000 раздач - 1,822%.

[EgorK]

Сообщение от vanvan писал ср, 12 декабря 2007 12:45

Чего то не уверен. Надо проверять. 4 флэш 4 стрит считал?

Как подслучаи три-флеша и три-стрита

[Litle]

Сообщение от Andy Sopl писал ср, 12 декабря 2007 11:18

Простого изящного решения тут нет. Объем и сложность расчетов не стоят ценности результата

Ничего сложного

Для пятикарточного покера.

Общее кол-во комбинациий.


Кол-во сетов см. ниже


Посчитать самому легко, для любой руки....не только для сета

[Litle]

Кто любит сам считать....
К сожелению, не помню где взял...но расчеты понятны и так.
http://forum.cgm.ru/lofi/f4/th5090.html

[jugaster]

2Mercator
Точно - нужно считать.
-Вероятность, что на доске из 3ти карт не может быть стрита - 46% (могу ошибаться с небольшой вероятностью, возможно 54%) . Полгода назад была интересная ветка на эту тему.
-Вероятность, что на 5тикарточной доске будет 3 карты конкретной масти 8,15% (ГИПЕРГЕОМЕТ(3,5,13,52)) итого - 32,6%, ну плюс еще надо добавить 4 масти 1,07% и 5 мастей 0,05% итого 37%
-Ну и как было показано - вероятность пары - 50%

Если принять, что события: мастевость, стритовость и ненеспаренность независымы, то выходит около 17%. Естественно, например стритовость и спаренность сильно коррелируют (если доска нестритовая, то она скорей с большей вероятностью спаренная, чем неизвесная) поэтому реальный результат будет по чуйке в районе 12-15%, при условии, что я не ошибся с пунктом 1.

[vanvan]

Модельнул - не уверен что все правильно но получилось так:

Upd: неправильно

[CorwinXX]

Сообщение от TCEgor писал ср, 12 декабря 2007 12:30

Вероятность неспаренной доски 48/51*44/50*40/49*36/48 = 2112/4165. Для неспаренной доски вероятность отсутствия три-флеша 75/128. Осталось посчитать вероятость отсутствия три-стрита. Для этого я написал нехитрую программку и получилось, что доска без три стрита бывает очень редко - всего с вероятностью 79/1287. Таким образов общая вероятность - около 1.82%.

Со всем согласен, но у меня один вопрос.

Как ты получил 75/128?

У меня получилось (240 + 360)/1024, то есть то же самое. Но, похоже, ты считал более оптимальным способом.

[Litle]

Сообщение от CorwinXX писал ср, 12 декабря 2007 19:09

Со всем согласен, но у меня один вопрос.

Как ты получил 75/128?

У меня получилось (240 + 360)/1024, то есть то же самое. Но, похоже, ты считал более оптимальным способом.

Зачем всё это?

[vanvan]

Дебажу програму модель - все равно цифра отличная от ваших

Upd: Сам лоханулся

[Geplew]

Мой код, если кому интересно. На кривость не ругацца!

bool TestStraight(int a, int b, int c)
{
#define min(z, x)  (((z) < (x)) ? (z) : (x))
#define max(z, x)  (((z) > (x)) ? (z) : (x))

	int minV, maxV;

	minV = min(min(a, b), c);
	maxV = max(max(a, b), c);

	if(maxV - minV < 5) return true;

	if(a == 1) a = 14;
	if(b == 1) b = 14;
	if(c == 1) c = 14;

	minV = min(min(a, b), c);
	maxV = max(max(a, b), c);

	if(maxV - minV < 5) return true;

	return false;
}
//—————————————————————————————————————-
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	int i, j, k, n;
	int board[5];
	int value[5];
	int suit[5];
	int noDraws;

	randomize();
	noDraws = 0;

	for(i = 0; i < Edit1->Text.ToInt(); i++)
	{
		// Генерация борда
		board[0] = board[1] = board[2] = board[3] = board[4] = -1;
		for(j = 0; j < 5; j++)
		{
			do {
				n = random(52);
				if(n == board[0] || n == board[1] || n == board[2] || n == board[3] || n == board[4])
				{ continue; }
				else
				{ board[j] = n; break; }
			} while(true);
		}

		// Проверка на флеш-дро
		for(j = 0; j < 5; j++)
			suit[j] = board[j] / 13;
		n = 0;
		for(j = 0; j < 5; j++)
			if(suit[j] == 0) n++;
		if(n >= 3) continue;
		n = 0;
		for(j = 0; j < 5; j++)
			if(suit[j] == 1) n++;
		if(n >= 3) continue;
		n = 0;
		for(j = 0; j < 5; j++)
			if(suit[j] == 2) n++;
		if(n >= 3) continue;
		n = 0;
		for(j = 0; j < 5; j++)
			if(suit[j] == 3) n++;
		if(n >= 3) continue;

		// Проверка на пары
		for(j = 0; j < 5; j++)
			value[j] = board[j] % 13 + 1;
		n = 0;
		for(j = 0; j < 4; j++)
			for(k = j + 1; k < 5; k++)
				if(value[j] == value[k]) n++;
		if(n) continue;

		// Проверка на стрит-дро
		// 11100
		if(TestStraight(value[0], value[1], value[2])) continue;
		// 11010
		if(TestStraight(value[0], value[1], value[3])) continue;
		// 11001
		if(TestStraight(value[0], value[1], value[4])) continue;
		// 10110
		if(TestStraight(value[0], value[2], value[3])) continue;
		// 10101
		if(TestStraight(value[0], value[2], value[4])) continue;
		// 10011
		if(TestStraight(value[0], value[3], value[4])) continue;
		// 01110
		if(TestStraight(value[1], value[2], value[3])) continue;
		// 01101
		if(TestStraight(value[1], value[2], value[4])) continue;
		// 01011
		if(TestStraight(value[1], value[3], value[4])) continue;
		// 00111
		if(TestStraight(value[2], value[3], value[4])) continue;


		// Дров нет!
		noDraws++;
	}

	Label4->Caption = i;
	Label5->Caption = noDraws;
	Label6->Caption = 100 * float(noDraws) / float(i);
}

[vanvan]

Посыпаю голову пеплом - лох я а не программист.

ROYAL NO IS 0
STR8FLUSH NO IS 133
CARE NO IS 2445
FULLHOUSE NO IS 13909
FLUSH NO IS 19245
STR8 NO IS 39167
THREE NO IS 209714
TWO PAIRS NO IS 475222
PAIR NO IS 4224129
CHETFLUSH NO IS 296846
TRIFLUSH NO IS 1773389
CHETSTR8 NO IS 575493
TRISTR8 NO IS 2186150
NOTHING NO IS 184158
—————————————
TOTAL IS 10000000

Подтверждаю цифру 1,8%

[EgorK]

Сообщение от CorwinXX писал ср, 12 декабря 2007 19:09

Со всем согласен, но у меня один вопрос.

Как ты получил 75/128?

У меня получилось (240 + 360)/1024, то есть то же самое. Но, похоже, ты считал более оптимальным способом.

Я так же получил, только дробь потом сократил