Генератор псевдослучайных чисел

[ram_scan]

Я прикинул сейчас в уме, разница в десяток тактов, не больше. Вообще, нужно будет найти список полиномов и выбрать такой, чтоб попроще кодился...

Для сдвигового 16-битного регистра с обратной связью такой полином только один, который я и использовал. Можно конечно генератор перекодить, если с неочевидным битовым трюкачеством быстро суметь четность посчитать (под четностью понимается четное/нечетное количество единичных битов в слове). Я литературу проштудировал на этот счет, но мне показалось все-таки в лоб проще сделать, не хватает "аккумуляторов" на Z80 для того чтобы изящно сделать. На писюке четность с битовыми трюками считается быстро и изящно. Но там и классический генератор любой разрядности с делением закодить несложно, либо сопроцессор за вымя потрогать.

Для 32 бит есть других полиномов, они собсно все в литературе описаны.

[Advertiser]

[introspec]

Для сдвигового 16-битного регистра с обратной связью такой полином только один, который я и использовал.

Вот тут лежат коэффициенты всех 2048 возможных линейных сдвиговых генераторов с полным периодом: http://www.ece.cmu.edu/~koopman/lfsr/index.html

Не все они могут оказаться "хорошими", потому что степень "замешивания" битов не проверяется. Тем не менее, наверняка, в этом списке найдутся достойные альтернативы вашему варианту.

[jerri]

Переписанный генератор из ПЗУ бейсика

random
	ld	de,0
seed	equ	$-2
	xor	a
	ld	h,a,l,a,b,a
	add	hl,de
	adc	a,b
	add	hl,hl
	adc	a,a
	add	hl,hl
	adc	a,a
	add	hl,hl
	adc	a,a
	add	hl,de
	adc	a,b
	add	hl,hl
	adc	a,a
	add	hl,hl
	adc	a,a
	add	hl,de
	adc	a,b
	add	hl,hl
	adc	a,a
	add	hl,de
	adc	a,b
	sub	#4a
	neg
	ld	c,a
	add	hl,bc
	ld	(seed),hl
	ret

формулу не помню, но генерит идеально

[denpopov]

юзал другой, мне хватило..

random:
R1:LD C,$15+3
R2:LD A,#70
 ADD A,C:LD C,A
 LD (R1+1),A
R3:LD A,#FD
 SUB C:LD C,A,(R2+1),A
 RRCA:LD (R3+1),A
 LD A,C

[Shadow Maker]

Программу (сурсы?) для тестов в студию.

[Shadow Maker]

Я не уверен, что ram_scan так проверяет. Вот и уточняю.

[psb]

and %00000111

плохой способ для LCG.

[alone]

RND-генератор с ОЧЕНЬ большим периодом:

        II. Основанный на LFSR
         генератор случайных байт

   Как  написано в умных книжках [4], один
из таких генераторов  придуман Mitchell'ом
и Moore'ом и имеет вид:
 

    X[n] = ( X[n-24] + X[n-55] ) mod m

   Если m=2^k, то период такого генератора
(2^55-1)·2^(k-1), что  для  случая  байтов 
составит 2^(55-1)·2^7 ў 2^62 ў 4.6·10^18.

   Можно  заметить, что  для младшего бита
такой  генератор  представляет собой LFSR-
генератор (в данном  случае  N=55, K=24 ).
Можно было бы вместо сложения использовать
операцию  XOR, в этом случае мы имели бы 8
55-битовых  LFSR,  генерирующих  различные
фазы  последовательности длиной 2^55-1 бит
и  комбинируемые  в  1 байт. Вместо LFSR с
параметрами  N=55, K=24 можно использовать
любой  другой с последовательностью макси─
мальной длины.

  Реализация на Z80 (с таблицей 256 байт):

 DO_RND 
      ;OUT: A или B или C - случайный байт
 

         LD    H,'PRT_RND ; 256-байтовая
                         ;таблица
 CURND   LD    A,0 
         INC   A
        LD    (CURND+1),A ; не случайный
                        ;номер, а лишь
                       ;указатель в таблице
         LD    L,A
         LD    B,(HL)
         ADD   A,55-24
         LD    L,A
         LD    C,(HL)
         ADD   A,24
         LD    L,A
         LD    A,B
         ADD   A,C
        LD    (HL),A
;в регистрах A, B и С находятся случайные 
;величины, отстоящие друг от друга на 
 ;несколько десятков отсчётов 
        RET

   Перед  использованием такого генератора
следует  записать хотя бы 1 ненулевой байт
в таблицу PRT_RND, а чтобы случайные числа
получались  хорошими  сразу - лучше запол─
нить таблицу каким-нибудь данными с более-
менее   равномерным   распределением  всех
байт.

http://zxpress.ru/article.php?id=8675

[zebest]

http://www.worldofspectrum.org/forum...ad.php?t=39632
и там же еще ссылка. У поляков тоже тема есть давно, и с примерами..

[denpopov]

А если построить огибающий колокол?