С. 38 ГОСТ 25643.118—84
п р и ло ж е н и е
2
Справочное
ПРОГРАММА РАСЧЕТА ХАРАКТЕРИСТИК ЭНЕРГЕТИЧЕСКИХ
СПЕКТРОВ РЕНТГЕНОВСКОГО ИЗЛУЧЕНИЯ ДИСКРЕТНЫХ
ИСТОЧНИКОВ В ДИАПАЗОНЕ ОТ 2 ДО 20 кэВ
В Х О Д Н О Й П А Р А М Е Т Р
Еэнергия фотона
В Ы Х О Д Н О Й П А Р А М Е Т Р
S! (С. К) — спектральная плотность потока фотонов
DIMENSION А (16). GM (16). ЕА (16). SI (2. )6)
ДАТА А/4.43, 178!.. 6480.. 1515.. 13.63. 25.. 8.43. 1ь.»9 21.77, 17 05
2.33.18. 190. 4.46. 166. 60 5. 10 42/.
3GM/2.I. 4 5. 3.87, 6.75. 2.43. 3.13. 2 48. 263. 2 47. 2.95. 2.63, 1.95
4. 2.6. 1.79, 3.17. 2.5/.
5ЕАЛ.5. 3.175. 3.06. 3.13, 2.85, 3 6,3.. 3 , 3075. 3.225. 305.
6. 1.7. 1.9. 2 8. 1.63. 235/
READ (5.1) Е
FORMAT (F9.2)
WRITE (6.7)
WRITE (6.4)
1.3-1
L4—8
D03L-1.2
D02K-L3. 1.4
SI (L. K)=-A (К) *(EXP(—(EA(K)/Е) **(8/3.))) *E” (-GM(K»>
WRITE (6.5)E. (SI(L. K). K=L3 1.4)
IF (L.E0.2) ПОТОВ
WRITE (69)
L 3 -9
L4= 16
WRITE (6,6)
FORMATF4. 1, 4X, I’. 8(010.3. IX. ’Г )///)
FORMAT (111 (’*’)/’! ЭНЕРГИЯ!’. ИХ.’СПЕКТРАЛЬНАЯ ПЛОТНОСТЬ’
2. ’ПОТОКА ФОТОНОВ, I, ФОТОН. (1/CM**2).(I/C)-(1/
ki
B) ’Г I*.
з У м ’• ’) /’ 1 ФОТОНА. Г .ИХ. ,V \fV . ИХ. ’V
Ь В (ИХ /1#)1 11)
-
-------Г . ИХ. ’V
3.96 Г*’)/ I ФОТОНА. I’. 8 (ИХ. Г )/
4,’ 4U053I+2I 1 4f 1516—56
8
I
(
4U1617—15 I 41.4658 - 48 I 41,1702—36 Г
5 / 4UI73S- 28 I 4U1744-26 I 401758-20 Г /’ I Е. кэВ Г.
FORMAT ( i ll (’♦
1
)/’ 1ЭНЕРГИЯ Г. ИХ. ’СПЕКТРАЛЬНАЯ ПЛОТНОСТЬ’
2. ’ПОТОКА ФОТОНОВ. I, ФОТОН. (1/СМ **2)1|/С).(1/«В)ТГ. ПХ.Т
4/ 4U1175
’
251 41/1811—171401813
’
14 1401820-30 1401908+001’
5.’ 401956 4-351.1 4UI958+35H! 4U2I42+38 IТ I F.. к»В Г
FORMAT (////Й хР Е З У Л Ь Т А Т Ы Р АСЧЕ Т А7/)
FORMAT (//91X, ’ПРОДОЛЖЕНИЕ ТАБЛИЦЫ’)
STOP
END