Просмотреть всю тему "Расчёт M и D" »»
Re: Расчёт M и D   ID:9205   ответ на 9196 Чт, 8 июля 2004 06:21 [#]
korovin Закрыть блок (иконки IM) Форумы CasinoGames
//Прочее
for i1:=4 to 12 do
for i2:=3 to i1-1 do
for i3:=2 to i2-1 do
for i4:=1 to i3-1 do
for i5:=0 to i4-1 do begin n:=n+1;
p1:=Random(4)+1;
ArShaf[n,1]:=i1*4+p1; ArShaf[n,2]:=i2*4+p1;
ArShaf[n,3]:=i3*4+p1; ArShaf[n,4]:=i4*4+p1;
ArShaf[n,5]:=i5*4+p1; ArShaf[n,0]:=1; n:=n+1;

p2:=p1; p3:=p1; p4:=p1; p5:=p1;
while (p1=p2) and (p1=p3) and (p1=p4) and (p1=p5) do begin
p2:=Random(4)+1; p3:=Random(4)+1; p4:=Random(4)+1; p5:=Random(4)+1;
end;

ArShaf[n,1]:=i1*4+p1; ArShaf[n,2]:=i2*4+p2;
ArShaf[n,3]:=i3*4+p3; ArShaf[n,4]:=i4*4+p4;
ArShaf[n,5]:=i5*4+p5; ArShaf[n,0]:=255;
end;

Отдельно одномастные, отдельно все остальные. Заманухи на стрит описаны полностью, на флеш формируются среднестантистически из за случайной генерации мастей.

Мой цикл не описывает строго сжатие мастей, но практика показала что 30-50 циклов достаточно для оценки МО на любом боксе, а это 200-300 тысяч сдач всего.