ГОСТ 25М5.117—84 Стр. 7
ПРИЛОЖЕНИЕ
2
•
Справочное
ПРОГРАММА РАСЧЕТА ЭНЕРГЕТИЧЕСКОГО РАСПРЕДЕ
Л
ЕНИЯ ДИФФУЗНЫХ
ВНЕГА
Л
АКТИЧЕСКИХ РЕНТГЕНОВСКОГО И ГАММА-ИЗ
Л
УЧЕНИЙ
ВХОДНОЙ ПАРАМЕТР
Е
—энергия фотона
ВЫХОДНОЙ ПАРАМЕТР
SI
—
енная к единице телесного угла.
DIMENSION А( ). GM(5)
отнес
спектральная плотность потока фотоаоэ,
DATA А/4.3. 98..
5
178, 124.. 13500./, GM/1.15, 2,25. 2.38, 2.09. 2.79/
READ (o.l)E
1 FORMAT (F9.2)
1F(E.GE.2..AND.E.1.T.20.)K-1
1F
i
E.GE.20 .. AND.E.LT.100 )K=2
IF(E.GE.100 .. AND.E.LT.1000.)K—3
JF(E-GE.1000.. AND.E.LT.10000.)K=4
1F(E.GE.10000.. AND.E.l.E.150000.)K -5
S t—A/K)*E**(—GM(K))
WR1TE(6.7)
WRITE(6,2)SI
2 FORMAT(///40X.’спектральная плотность потока фотона. /
249Х/ отиссепнап к единице телесного угла’/
340X/I. фотон.(l/c*i*42)-(t/c) - (1/кэВ)’,ЗХ,’—’.G10-3//)
7
FORMAT
(////
39
Х,’результаты
расчета’)
STOP
END
Редактор //. At.
Уварова
Технический редактор б.
И. Тушева
Корректор О.
Т. Илюнима
Сдано в кэб. 03XT,85 Подо,
в
печ li.COM 0,625 уел.
в. л.
0.63 уел. ар -отт 0 .«
уч. н х
л.
Ордена «Знак Почет*» Итдлтельстно стандартов, 123в40. Москва. ГСП, Нсвопреешискн# в«р,3
Тиа. «Мссаооскмй печгтмкк». Мсосав. Лялкн о«р, 6. Зак, 107
ГОСТ 25645.117
-84
Тир. ЯХО_______________________________________________________________________Цеил
-
3
л
ков.