ГСЧ борется сам с собой

[1450]

Дано:
1) Label на форме;
2)

var
SpinsCount,bet,spin,i,Win:integer;
begin
SpinsCount:=10000;
Win:=strtoint(Label1.Caption);
for i := 1 to SpinsCount do
begin
  Randomize;
  spin:=Random(2);
  bet:=Random(2);
  If bet = spin Then Win := Win+1
  Else Win := Win-1;
end;
Label1.Caption:=inttostr(Win);
end;

По моему представлению переменная Win должна по мере бОльшего и бОльшего кол-ва запусков стремиться к 0. Однако она либо начинает расти, либо начинает ползти вниз. Вопрос - почему, и как сделать то что я хочу?

UPD: Есть подозрения, что мой ГСЧ не такой уж ГСЧ. Но все же - в чем причина именно либо положительной, либо отрицательной динамики?

[doktor255]

1) Что такое ГСЧ? Просьба использовать общепринятый Русский язык без сокращения слов при формировании вопросов/ответов.
2) Задача какая? При формировании ответа смотрим первый пункт.
3) Ну и так, чисто для себя. А что значит UPD?

[raxp]

...рекомендовал бы в качестве ГПСЧ использовать линейный конгруэнтный метод или вихрь Мерсенна.

И да, ваш ГСЧ не ГСЧ, а псевдо ГСЧ, причем хреновый. Хотите реальный ГСЧ - используйте шумящие биты АЦП аудиокарты, к примеру.

Что такое ГСЧ? Просьба использовать общепринятый Русский язык без сокращения слов при формировании вопросов/ответов.

ГСЧ - это общепринятый технический термин.

[Smitt&Wesson]

Сообщение от doktor255

1) Что такое ГСЧ?

ГСЧ, это - Генератор Случайных Чисел.

[Arigato]

Во-первых, вы ошиблись на счет стремления переменной к нулю. У вас 50 на 50 +1 или -1.
Во-вторых, вынесите Randomize из цикла.
В-третьих, у вас не ГСЧ, а ГПСЧ. И этим все объясняется.

[type_Oleg]

Сообщение от 1450

По моему представлению переменная Win должна по мере бОльшего и бОльшего кол-ва запусков стремиться к 0.

Нет, она должна стремиться к этому

Win:=strtoint(Label1.Caption);

то есть, к начальному значению , обозначимwin нач
Конечное значение:
win кон = win нач + x1 + x2 + ... x10000, где
x1,x2, ... - независимые дискретные случайные выличины, принимающие начения -1 или +1 с вероятностями 0,5
У каждого из низ мат.ожидание M(x1)=M(x2)=..=0
дисперсии D(x1)=D(x2)=..=1
По свойствам M и D , для суммы
M(x1 + x2 + ... x10000)= M(x1)+M(x2)+.. = 0
для дисперсии, для независимых
D(x1 + x2 + ... x10000)= D(x1)+D(x2)+.. = 10000
То есть мат.ожидание win кон : M(win кон )= win нач +0=
= win нач
Дисперсия D(win кон )= 0 + 10000 = 10000

Среднеквадратичное отклонение (сигма)= корень из D = 100

По правилу " трех сигм " ожидаемое значение win кон вероятнее всего будет болтаться вокруг M(win кон ) плюс-минус 3 сигмы.
То есть в интервале (win нач-300;win нач+300) - где-то так. Это при SpinsCount=10000. При увеличении SpinsCount интервал будет расти. Так что все правильно.

Если в самом деле Random хорошо работает. Он вроде ниче-так ...

PS А зачем Randomize внутри цикла. Можно и вне.

[1450]

Сообщение от doktor255

1) Что такое ГСЧ? Просьба использовать общепринятый Русский язык без сокращения слов при формировании вопросов/ответов.
2) Задача какая? При формировании ответа смотрим первый пункт.
3) Ну и так, чисто для себя. А что значит UPD?

1. ГСЧ как было замечено - Генератор Случайных Чисел. Вроде известный термин.
2. Задача - один ГСЧ загадывает 0 либо 1, второй пытается угадать. Цель - изучить динамику изменения соотношения угадал\не угадал.
3. UPD значит что я в исходное сообщение методом редактирования добавил новую информацию, которую пытаюсь выделить на фоне исходного сообщения.

Сообщение от raxp

И да, ваш ГСЧ не ГСЧ, а псевдо ГСЧ, причем хреновый. Хотите реальный ГСЧ - используйте шумящие биты АЦП аудиокарты, к примеру.

Сообщение от Arigato

В-третьих, у вас не ГСЧ, а ГПСЧ. И этим все объясняется.

Я считал, что функция Randomize НЕ является ГПЧС.
Некий абсолютный ГСЧ мне в общем-то не нужен, лишь нормальное его подобие. Извиняюсь, слаб в теории; Мне достаточно, если я смогу, скажем, 1000 раз сгенерировать массив из 1000 случайных чисел, чтобы ни один из них не совпадал. Ф-ия Randomize этого не дает?

Сообщение от Arigato

Во-первых, вы ошиблись на счет стремления переменной к нулю. У вас 50 на 50 +1 или -1.

При моих вычислениях +\- 1 не играет роли, а так да, справедливо!

type_Oleg
За теорию спасибо, из дома прочитаю! Не углублялся еще, решил с простого начать

[type_Oleg]

Randomize удали из цикла. Перед for его поставь.
Я попробовал, в этом случае нормально - число прыгает около 0 , то + , то -

[evg_m]

Ф-ия Randomize этого не дает?

Randomize это "ВЫБОР начальной точки" в бесконечной последовательности.
Постоянное (она у вас в цикле) ее использование приводит к постоянному выбору (почти) одной точки старта. Отсюда и неверные результаты.

Во-вторых, вынесите Randomize из цикла.

[1450]

Помогло, большое спасибо, тему можно закрывать!