Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.054 c