Текущий архив: 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.076 c