Как мы с Леной играли в казино.

[thesz]

(спустили $200, по-моему, такого плана)

Сперва мы сели за стол, где можно было играть в блекджек с расширением - можно было ставить на появление некоторых "рук" из покера - флеш рояль и тп.

Поскольку я довольно хорошо помню "таблицу ходов" блекджека и даже умею считать карты, то мы некоторое время были в прибыли - ажно до $120 дошло, со стартовых

Comments

[greenkrokodilla]

Докладываю - много лет назад со мной произошло 1:1 то же самое в Вегасе

[p2004r]

А в районе 5-6 хода вероятность сохранить свою стартовую сумму становиться меньше 0.05 :)

100 ставок по 1 с проигрышем и выигрышем по 1.

table(replicate(1000000,
which(((10+cumsum(sample(c(rep(1, 36/2),
rep(-1, 36/2+1)),
100,
replace=T)))<=10)==TRUE)[1

[thesz]

Это вы тут что написали?

[p2004r]

Инференцию в R прикинул. Через "случайное блуждание".

Ставки на красное-черное. Стартовый капитал 10. Каждый раз ставим 1. Выигрыш 1, проигрыш -1

table( ## построить таблицу числа исходов
replicate(1000000, ## повторить указанное число раз
which( ## найти в каких индексах массива TRUE
((10+cumsum(sample(c(rep(1, 36/2), ## накопительный результат серии в 100 ставок со старткап. 10
rep(-1, 36/2+1)), ## одно ЗЕРО + черное
100, ## длинна серии ставок
replace=T)))<=10)==TRUE)[1]), ## взять только первый индекс TRUE
useNA="always")/1000000 ## посчитать вместо числа исходов в ячейках таблицы их долю

NA в таблице последняя ячейка, её название съело форматирование.

PS вот не фиксируя ГСЧ

> sample(c(rep(1, 36/2),rep(-1, 36/2+1)), 100, replace=T

[geniepro]

Казино строят не для того, что бы посетители в них выигрывали ))

[thesz]

$20!!!

[fasttrol]

Общался с теми кто работал крупье.
Их доход зависит от того как хорошо они умеют тасовать колоду и обманывать игроков.

[thesz]

В лас Вегасе-то? Не верю.