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

Вниз

Генератор случайных чисел.   Найти похожие ветки 

 
тт   (2004-11-07 23:15) [0]

Это правда, что на разных компьютерах функция random(n:integer) выдает разную
последовательность случайных чисел?
 И если да, то как создать функцию,очень быструю, генерирующую одинаковую посл.
на любом комп.
Заранее спасибо.


 
Defunct ©   (2004-11-07 23:31) [1]

Самый быстрый Random, что мне удалось сделать:
Наслаждайтесь. Последнюю строчку можете выбросить, она там нормировала цвет точки.
Code - слово запуска генератора, от него зависит последовательность генерируемых чисел.

Var Code : Integer = 555;

function MyRandom(Number:Integer):Cardinal;Assembler;
asm
 mov   ecx,  0F7F77B0Ah
 add   eax,  Code

 mul   ecx
 xor   ecx,edx
 mul   ecx

 shr   eax,8   // comment it if no RGB result needed
end;


 
palva ©   (2004-11-07 23:43) [2]

тт   (07.11.04 23:15)
Это неправда. Чтобы числа были разными нужно предварительно применить Randomize.
Самый быстрый генератор - это счетчик. Каждое следующее число на единицу больше предыдущего.


 
Defunct ©   (2004-11-07 23:48) [3]

palva ©   (07.11.04 23:43) [2]
> Самый быстрый генератор - это счетчик. Каждое следующее число на единицу больше предыдущего.

Вы вопрос вообще поняли?
Запустите функцию [1] она отвечает на поставленый вопрос полностью.


 
GuAV ©   (2004-11-07 23:49) [4]

palva ©   (07.11.04 23:43) [2]
Самый быстрый генератор - это счетчик.

Это неправда. Самый быстрый рандомайзер - любая целочисленая переменная ;-)


 
Defunct ©   (2004-11-07 23:53) [5]

[1]

PS: добавлю еще, что входной параметр (Number) это номер элемента последовательности.


 
GuAV ©   (2004-11-07 23:54) [6]

Defunct ©   (07.11.04 23:48) [3]
Он понял и ответил на вопрос правильно.

Это правда, ... ?
Это неправда.
И если да, ... ?


 
palva ©   (2004-11-08 00:11) [7]

If False Then False - верное утверждение



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

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

Наверх




Память: 0.45 MB
Время: 0.039 c
10-1053603853
Aleksandr
2003-05-22 15:44
2004.11.21
Как избежать подвисания клиента при попытке сконнектиться?


14-1099642305
anton2v
2004-11-05 11:11
2004.11.21
что такое reset ?


14-1099638640
anonim
2004-11-05 10:10
2004.11.21
Как крякнуть кряк?


14-1099639552
eukar
2004-11-05 10:25
2004.11.21
Простая школьная задачка


1-1099903691
Igit
2004-11-08 11:48
2004.11.21
Поиск строки в строке





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский