Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.06;
Скачать: CL | DM;

Вниз

Random глючит...   Найти похожие ветки 

 
han_malign ©   (2003-01-29 15:17) [40]

>RANDOM никогда не выдаст циклическую последовательность, неважно какой у него там регистр !

У Random - 32 битный регистр и если раз в милисекунду брать его значение - то через 49.7... дней мы выйдем на второй круг циклической последовательности...

system.pas
procedure _RandInt;
asm
{ ->EAX Range }
{ <-EAX Result }
IMUL EDX,RandSeed,08088405H
INC EDX
MOV RandSeed,EDX
MUL EDX
MOV EAX,EDX
end;



 
uw ©   (2003-01-29 15:19) [41]

>Dms

Выдаст!
Генераторы устроены примерно так. Есть внутренний регистр, например, 4-байтный. Randomize некоторым образом его инициализирует. Потом при каждом обращении к Random над этим регистром проделываются некоторые определенные манипуляции типа сдвига и XOR"а над определенными битами. Этот регистр однозначно отображается на заданный отрезок Range, и Random возвращает результат. Регистр, очевидно, имеет цикл, а вместе с ним и результирующая последовательность.
Когда я говорил, что "присутствует ровно 1 раз", то подразумевал последовательность значений регистра. Но статистические характеристики обеих последовательностей по сути одинаковы.


 
han_malign ©   (2003-01-29 15:20) [42]

если один раз было "после 75 - 12345" то это будет всегда...


 
Dms   (2003-01-29 15:24) [43]

вот это не так !!! я имел ввиду это утверждение, цикл длиной 2^32 пусть будет (это недостаток искусственных генераторов), но внутри этого цикла после 75 может идти что угодно, а не только 12345.


 
uw ©   (2003-01-29 15:54) [44]

>внутри этого цикла после 75 может идти что угодно, а не только 12345

Dms, я все понял - у тебя глючит комп!


 
Dms   (2003-01-29 16:06) [45]

Да ты что ? Неужели по твоему 75 можно получить только одним путем ? Таким, что если продолжить, то получится 12345 ... Если это так то почитай учебник 5го класса.
Если совсем времени не жалко - напиши простенькую программу и увидишь, что если a[i] = a[j], то из этого не следует, что ОБЯЗАТЕЛЬНО a[i+1] = a[j+1]


 
uw ©   (2003-01-29 16:09) [46]

Караул.


 
han_malign ©   (2003-01-29 16:24) [47]

Понял я ваши непонятки - при обрубании регистра по диапазону {Random(Max)} выходное 75 может получиться из разных значений регистра и повторение последовательности 75-12345 гарантированно произойдет только после выборки 2^32 Random-ов(хотя может и раньше, зависит от Max)...


 
Dms   (2003-01-29 16:34) [48]

Вот-вот, не всегда же после 75 идет 12345 :)


 
uw ©   (2003-01-29 17:36) [49]

А "Заменя пробелов" нас победила...



Страницы: 1 2 вся ветка

Текущий архив: 2003.02.06;
Скачать: CL | DM;

Наверх




Память: 0.55 MB
Время: 0.021 c
1-15644
Бук
2003-01-27 09:47
2003.02.06
Caps и Insert со товарищи


4-16006
Delphi5.01
2002-12-21 18:57
2003.02.06
MainMenu s Font


7-15947
GOD
2002-11-24 02:11
2003.02.06
Как отследить какая папка открывается и при необходимости запроси


4-16007
K_O_T
2002-12-25 00:41
2003.02.06
Создание ContextMenuHandlers


7-15968
Subdigger
2002-11-27 00:51
2003.02.06
Блокировка и разблокировка клавы с мыхом