Гистограмма распределения СЧ

Главная / ЭКВМ / Программы для ЭКВМ / Служебные программы и утилиты

	Программа предназначена для проверки качества генератора случайных чисел (ГСЧ) ЭКВМ.
	После запуска программа генерирует 4096 случайных чисел и распределяет их по 128 интервалам в регистры 1000-1127.
	После генерации программа строит гистограмму распределения, высота столбика пропорциональна количеству чисел, попавших в данный интервал. Математическое ожидание количества чисел соответствует середине экрана - значению 32.

После построения гистограммы для выхода из программы нажмите любую клавишу.

Программа "Гистограмма распределения СЧ"

	0	1	2	3	4	5	6	7	8	9
00	Cx	1	0	0	0	П A	1	2	8	П B
10	П 0	ИП 0	ИП A	+	П C	Cx	K П C	F L0	11	K П A
20	4	0	9	6	П 0	K СЧ	ИП B	×	ИП A	+
30	П C	K ИП C	1	+	K П C	F L0	25	2	PP П	90
40	10	ИП B	П 0	Cx	П 4	6	3	B↑	ИП 4	PP П
50	90	00	ИП A	ИП 4	+	П C	6	3	K ИП C	-
60	ИП 4	PP П	90	12	K ИП 4	F L0	45	K ГРФ	PP ИП	90
70	29	K NOT	F x≠0	68	С/П

Контрольная сумма ADD 11863, контрольная сумма XOR 137, при условии, что остальные байты содержат 0FFh.

Текст программы для кросс-компилятора

.CHARSET 1251
; Файл gistsch - гистограмма распределения СЧ 
.ORG 0
	CX
	1000 MA
	128 MB
	; обнуление регистров 1000-1128
	M0
A0:	RM0 RMA + MC
	CX K MC
	FL0 A0
	K MA
	
	;накопление данных
	4096 M0
A1:	K RAN
	RMB * RMA + MC
	KRMC 1 + KMC
	FL0 A1

	;вывод
	2 PP M 9010
	RMB M0 CX M4
A2:	63
	ENT
	RM4
	PP M 9000	; координаты нижней точки
	RMA RM4 + MC
	63 KRMC	-
	RM4
	PP M 9012
	KRM4
	FL0 A2
	
	K GRPH
A3:	PP RM 9029
	K NOT
	F X!=0 A3
	R/S	
.END

НПП "СЕМИКО" (383) 271-01-25 (многоканальный)