| Re: Расчёт M и D ID:9205 ответ на 9196 |
Чт, 8 июля 2004 06:21 [#] |
|
|
//Прочее
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 тысяч сдач всего.
|
|
|