| Адаптивная БС под остаток карт в башмаке. ID:2308 |
Ср, 3 августа 2005 17:23 [#] [») |
|
|
Всем известно что стандартная БС оптимальна для нескончаемой колоды.
Если же число колод ограниченное количество (например 6) то применяя счет карт и обнаруживая перекосы вероятности, при коррекции базовой стратегии игрок получает большее преимущество перед казино.
В БД я новичек но вот как программист кое чего стою  .
Я хочу разработать программу которая бы рассчитывала оптимальную стратегию игры для каждого конкретного случая оставшихся в башмаке карт, так сказать адаптивную БС.
Например если известно что в отбой вышло пять семерок, шесть десяток, три туза, и т.д. то программа будет высчитывать оптимальную стратегию с учетом оставшихся в башмаке карт.
Конечно это программа носит чисто академический характер, и применения ее для конкретной игры невозможно, но вот платформой для исследований, программа может послужить очень хорошей, также на базе этой программы можно будет разработать тренажер для игроков.
Для разработки программы мне нужны математическая модель, формулы, алгоритмы расчета оптимальной стратеги для нескончаемой колоды, оттолкнувшись от нее я смогу рассчитывать оптимальную стратегию для остаточного количества карт в башмаке.
Всем кто поможет информацией обещаю внести в список благодарности в программе а также все получать копию проги, при существенной помощи готов даже поделиться исходниками будещей прграммы.
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2309 ответ на 2308 |
Ср, 3 августа 2005 17:38 («] [#] [») |
|
|
Идея неплоха, но практической пользы не видно. Ты говоришь, тренажёр сделать? Ну во-первых, их уже много, ты идёшь на очень конкурентный рынок. Во-вторых, я не очень понимаю, зачем "адаптивная" БС нужна в смысле тренировок.
Что касается изменений базовой стратегии в зависисмости от счёта - поздравляю, ты изобрёл велосипед. Это называется "индексы" и они есть в любой грамотной книге, интернете и вообще давно посчитаны и опубликованы.
А что касается информации во этому вопросу - обязательно прочитай "Теорию блэкджека" Гриффина, там усё написано. А на сайте bjmath.com есть программа с исходниками.
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2310 ответ на 2308 |
Ср, 3 августа 2005 17:39 («] [#] [») |
|
|
|
А что касается фразы "Всем известно что стандартная БС оптимальна для нескончаемой колоды", то позволь не согласиться. Например, БС на этом форуме посчитана именно для 6 колод.
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2311 ответ на 2308 |
Ср, 3 августа 2005 17:40 («] [#] [») |
|
|
|
Дело в том что я не хочу использывать уже разработаные системы счета а хочу построить программу исключительно на математической модели.
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2312 ответ на 2308 |
Ср, 3 августа 2005 17:42 («] [#] [») |
|
|
Описание базовых функций (C) Korovin corp.
procedure KartOut(k: integer);
begin
ArKard[k]:=ArKard[k]-1; NumKar:=NumKar-1;
end;
procedure KartInp(k: integer);
begin
ArKard[k]:=ArKard[k]+1; NumKar:=NumKar+1;
end;
function mDil2(fi,sd,td: Integer): Double;
var i,fd,ts,tt: Integer; v: Double;
begin Result:=0;
for i:=1 to 10 do if ArKard[i]>0 then begin ts:=sd+i;
if (ts<12) and ((i=1) or (td=1)) then tt:=1 else tt:=0;
fd:=ts+tt*10; if (fd>16) then begin
if (fd>21) or (fd<fi) then Result:=Result+ArKard[i]/NumKar;
if (fd<22) and (fd>fi) then Result:=Result-ArKard[i]/NumKar;
end else begin v:=ArKard[i]/NumKar; KartOut(i);
Result:=Result+mDil2(fi,ts,tt)*v; KartInp(i);
end;
end;
end;
function mDil1(si,ti,sd: Integer): Double;
var i,fi,fd,ts,tt: Integer; v: Double;
begin Result:=0; fi:=si+ti*10;
for i:=1 to 10 do if ArKard[i]>0 then begin ts:=sd+i;
if (ts<12) and ((i=1) or (sd=1)) then tt:=1 else tt:=0;
fd:=ts+tt*10; if (fd>16) then begin
if (fd>21) or (fd<fi) then Result:=Result+ArKard[i]/NumKar;
if (fd>fi) or (fd=21) then Result:=Result-ArKard[i]/NumKar;
end else begin v:=ArKard[i]/NumKar; KartOut(i);
Result:=Result+mDil2(fi,ts,tt)*v; KartInp(i);
end;
end;
end;
function mDubl(si,ti,sd: Integer): Double;
var i,ts,tt: Integer; v: Double;
begin Result:=0;
for i:=1 to 10 do if ArKard[i]>0 then begin ts:=si+i;
if (ts<12) and ((i=1) or (ti=1)) then tt:=1 else tt:=0;
if (ts>21) then Result:=Result-2*ArKard[i]/NumKar
else begin v:=ArKard[i]/NumKar; KartOut(i);
Result:=Result+2*mDil1(ts,tt,sd)*v; KartInp(i);
end;
end;
end;
function mHits(si,ti,sd: Integer): Double;
var i,ts,tt: Integer; v: Double;
begin Result:=0;
for i:=1 to 10 do if ArKard[i]>0 then begin ts:=si+i;
if (ts<12) and ((i=1) or (ti=1)) then tt:=1 else tt:=0;
if (ts>21) then Result:=Result-ArKard[i]/NumKar
else begin v:=ArKard[i]/NumKar; KartOut(i);
Result:=Result+max(mDil1(ts,tt,sd),mHits(ts,tt,sd) )*v;
KartInp(i);
end;
end;
end;
function mSplt(si,sd,sp: Integer): Double;
var i,ts,tt: Integer; h,d,s,p: Double;
begin Result:=0;
for i:=1 to 10 do if ArKard[i]>0 then begin KartOut(i); ts:=si+i;
if (i=1) or (si=1) then tt:=1 else tt:=0; s:=mDil1(ts,tt,sd);
if (si<>1) then h:=mHits(ts,tt,sd) else h:=-5;
if (si<>1) then d:=mDubl(ts,tt,sd) else d:=-5;
if (i =si) and (sp<3) then p:=mSplt(si,sd,sp+1) else p:=-5;
KartInp(i); Result:=Result+2*max(s,max(h,max(d,p)))*ArKard[i]/NumKar;
end;
end;
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2313 ответ на 2308 |
Ср, 3 августа 2005 17:44 («] [#] [») |
|
|
Хорошо, счёт забыли. Играем computer-optimal. Вопрос - зачем? Предполагаемые варианты ответов:
1. Сделать скрытый компьютер.
2. Простое желание прграммиста сделать что-то интересное.
В первом случае не советую этого делать по причине того, что здоровье дороже. Во втором случае никаких проблем, делай что хочешь, но, повторяю, практического смысла не вижу.
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2314 ответ на 2308 |
Ср, 3 августа 2005 18:02 («] [#] [») |
|
|
Впринципе пока руководствуюсь только 2-м вариантом
но мысли о первом тоже были 
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2315 ответ на 2308 |
Ср, 3 августа 2005 18:17 («] [#] [») |
|
|
Хотя если и рисковать здоровьем, то лучше уже использовать схему с внешним оператором:
1. на игрока цепляем микровидео камеру чтобы оператор мог видеть столи и вводить вышедшие карты
2. оборудуем игрока сигнализаторами например вибромоторами в каблуки
Оператор вводит вышедшие карты в комп, тот расчитывает оптимальный следующий ход для игрока и оператор по средствам сигнализаторов передает игроку что делать брать еще карту, сплитовать, удваеввать и т.п.
Кто еще что предложит?
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2316 ответ на 2308 |
Ср, 3 августа 2005 18:22 («] [#] [») |
|
|
Приветствую!
2 Sergey30
Красиво все описАл, но сдается мне что скорость игры будет ну просто никакая.
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2317 ответ на 2308 |
Ср, 3 августа 2005 18:25 («] [#] [») |
|
|
Я бы предложил играть так в Русский покер на 4 бокса баксов по 500 в анте 
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2318 ответ на 2308 |
Ср, 3 августа 2005 18:25 («] [#] [») |
|
|
Приветствую!
2 Korovin
| Цитата: | | Описание базовых функций (C) Korovin corp. |
Спасибо.
Описание праметров функций будет?
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2319 ответ на 2308 |
Ср, 3 августа 2005 18:34 («] [#] [») |
|
|
А чего там комментировать? Кстати, это у меня на сайте 2 года лежало.
Вот еще идея есть: Подключится к видеокамере что над столм висит, тогда вообще никакого палева не будет. Ну найдут наушник в ухе, ну и что?
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2320 ответ на 2308 |
Ср, 3 августа 2005 19:38 («] [#] [») |
|
|
Приветствую!
2 Korovin
| Цитата: | | Кстати, это у меня на сайте 2 года лежало. |
На сайте описание функций видел.
Почему-то подумалось, что здесь полнее.
Короче я разобрался.
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2398 ответ на 2308 |
Вт, 9 августа 2005 06:00 («] [#] [») |
|
|
| Sergey30 писал ср, 03 августа 2005 19:17 | Хотя если и рисковать здоровьем, то лучше уже использовать схему с внешним оператором:
1. на игрока цепляем микровидео камеру чтобы оператор мог видеть столи и вводить вышедшие карты
2. оборудуем игрока сигнализаторами например вибромоторами в каблуки
Оператор вводит вышедшие карты в комп, тот расчитывает оптимальный следующий ход для игрока и оператор по средствам сигнализаторов передает игроку что делать брать еще карту, сплитовать, удваеввать и т.п.
Кто еще что предложит? |
Тогда уж микрокамеру лучше на дилера цеплять, чтобы видеть раздаваемые карты снизу Особенно на покере хорошо знать игру дилера
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2399 ответ на 2308 |
Вт, 9 августа 2005 06:58 («] [#] [») |
|
|
1. Сделать скрытый компьютер.
А почему бы не сделать эту програмку для честного интернет-казино (если в такие кто-то верит), и еще вмонтировать как-то ее в софт казино , пусть сама играет, идеально как Хофман в "Человеке Дождя"
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2400 ответ на 2308 |
Вт, 9 августа 2005 11:09 («] [#] [») |
|
|
|
Честных интернет-казино с положительными правилами не встречал.
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2401 ответ на 2308 |
Ср, 10 августа 2005 07:36 («] [#] [») |
|
|
| Korovin писал вт, 09 августа 2005 12:09 | | Честных интернет-казино с положительными правилами не встречал. |
Казино от Криптолоджика предлагают игры с подрезкой 3/8. Возможен просто огромный спред.
Честность проверяется звестными аудиторскими фирмами
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2402 ответ на 2308 |
Ср, 10 августа 2005 16:36 («] [#] [») |
|
|
|
А МО в нуле какое?
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2403 ответ на 2308 |
Ср, 10 августа 2005 19:32 («] [#] [») |
|
|
блэкджек МО=-0,5%, что конечно преодолевается но всё же не фонтан. А вот понтун всего -0,17%(ранее я ошибочно запостил что -0,62%). Так что вполне можно играть в +.
|
|
|
| Re: Адаптивная БС под остаток карт в башмаке. ID:2404 ответ на 2308 |
Ср, 10 августа 2005 19:36 («] [#] [») |
|
|
|
А разве понтун на 8-ми колодах играется? Мне казалось что на одной, шафл после каждой сдачи. Но могу ошибаться.
|
|
|
