Главная страница
    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.095 c
9-1089867035
Evgeniy_K
2004-07-15 08:50
2004.11.21
Окно


14-1098880794
Aldor
2004-10-27 16:39
2004.11.21
Ура! Еду в Новосибирск!


1-1100078014
nik7777
2004-11-10 12:13
2004.11.21
Вопрос про отображение отчета


4-1097344970
dimon_programmer
2004-10-09 22:02
2004.11.21
Как электрикой правильно выставить значение на LPT


4-1097340955
Sergeika
2004-10-09 20:55
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский