Стр. 6 ГОСТ 25645.204—83
Выходная информация содержится в COMMON-области.описанной в п. 1.2.3, и параметре 1.1.
L1 —> максимальное количество пересечений (плюс 1) луча с поверхностями до выхода из объектз (КР (L !)=0).
1.8. Вычисление толщин вещества фантоман защдш £г осуществляется раздельным суммированиемрасстоянии,
пройденных лучом в фантоме а защите в направлении U, умноженным на плотность вещества в соответствующих зонах.
19. Анализируется попадание величин ||. £* к £ = £ |+ £* в заданные интервалы толщин Д£,.
В программе используется следующая сетка разбиения дли Is,! :
/ 1... ..ю
AJ/-1.
о<е<ю
45,-2.Ю^5<20
/ 11.....15
20 <6<10Э
/-16,. ...31
45,-5.
45,=10.
10<5<290
Все случаи, когда $>290, фиксируются и иакоаителе 1= 51.
1-
32,. ...50
в накопитель информациидобавляется 1.
на число историй (1STOR) и соответствующую ши
При попадании s to. Й) в соответствующий интервал Д |,
1.10. Конечные функционалы получаются делением величин
рину интервала Д|,.
На печать выдаются распределенияоч’^ и w2l,\l= 1, . . . . 50, а также соответствующие величины вероят
ное™:
pW-vlO.
Д4<; р«/>-»<*>.Д£/ и
р ’П ^ П .М ’.
1.11. Пакет программ содержит все необходимые для проведения расчетов вспомогательные подпрограммы, включая
датчик случайных чисел для ЕС ЭВМ(подпрограмма RANDU). Для проведения расчетов на ЭВМ БЭСМ-5 реко
мендуется использовать генератор случайных чисел RNDN (библиотечная программа мониторкой системы «Дубна»). В
втох случае необходимо заменить функцию RANNO на следующую:
FUNCTION RANNO (NMB)
RANNO=RNDM (-1)
RETURN-
END