ГОСТ 25645.118—84 С. 39
ПРИЛОЖЕНИЕ J
Справочное
ПРОГРАММА РАСЧЕТА ХАРАКТЕРИСТИК ЭНЕРГЕТИЧЕСКИХ СПЕКТРОВ
КОСМИЧЕСКОГО РЕНТГЕНОВСКОГО ИЗЛУЧЕНИЯ ДИСКРЕТНЫХ
ИСТОЧНИКОВ в ДИАПАЗОНЕ ОТ 20 ДО ROOк»В
В Х О Д Н О Й П А Р А М Е Т Р
£ — энергия фотона
В Ы Х О Д Н О Й П А Р А М Е Т Р
/. {.К. С) - - спектральная плотность потока фотонов
DIMENSION 5(14). GM(I4), SI (14)
DATA A/0. 0022. 0.00029. 0.029. 0.00057. 0.0061. 0.0004. 0.0002.
• 0.00195. 0.0033. 0.001. 0.018. 0.01. 0.016, 0.0075/, GM/1.3, 1.56,
* 2.3. 1.2. 332. 13. 1.38. 1.72. 19. 2.1. 4.1. 2.2. 1.85. 1.72/
AM —0
K l - 1
K 2-0
PC?INT 2
20 DO 1N—-1, 2
E = 20.
K1=K1+K2
K2—K2-I-7
DO 10L=I. 10
PRINT 3
IF (N.EQ.2) GOTO 80
PRINT 73
GOTO 81
80 PRINT 74
81 ,42=29
IF (L.EQ 10) М2—30
DO l00M=rl, М2
DO 5K-K1. K2
5 SI <K)-A(K)*<E/20.)**(-GM(K>)
PRINT 7. E. (S1(K). K=KI. K2)
IF (E.LT.100.) GOTO II
IF (E.LT 200.) GOTO 22
IF (E.LT.400.) GOTO 33
E= E+10.
GOTO 44
II E = E + 0.5
GOTO 44
22 E = E + 2.
GOTO 44
33 E -E + 5.
44 Ml= M1+ M
IF (M1.F.Q582) GOTO 21
100 CONTINUE
10 PRINT 13
1 CONTINUE
2 FORMAT (’l’,/////87X .’ТАБЛИЦАГ.//БХ. ’ЭНЕРГЕТИЧЕСКИЕ-.