ГОСТ 2S64S.323-88 С. 27
ПРИЛОЖЕНИЕ 4
Рекомендуемое
ТЕКСТ ПРОГРАММЫ РАСЧЕТА ХАРАКТЕРИСТИЧЕСКИХ ПАРАМЕТРОВ
РАДИАЦИОННОЙ УДЕЛЬНОЙ ОБЪЕМНОЙ ЭЛЕКТРОПРОВОДИМОСТИ
С ОСНОВНАЯ ПРОГРАММА QRET
j
DIMENSION А1»И>,1><10. 10). АА(ЦП.В(1Я1. ОНИ»),
I
S(10).RL(I0. 1Я>. RI.LU0).
U(1 0)
1 E’O
D
R
I
M
M
A
E
T
NS
(4
IO
15
N
)
PPl(5|,GGI<S),ARfU0. DR<I0. 10)
2 FORMAT C6F8 3)
3 FORMAT (2X, АВАРИЙНЫЙ ОСТАНОВ’. ЗХ. ’МАКСИМ ИСКЛЮЧЕНИЙ’)
4 FORMAT (7Х. ’КОНЕЧНЫЕ РЕЗУЛЬТАТЫ’)
СВВОД ИСХОДНЫХ ДАННЫХ
ГМ0 - ЧИСЛООБРАЗЦОВ (СТРОК)
С NJ3 - ЧИСЛО ИЗМЕРЕНИЙ (СТОЛБЦЫ)
С N5N РАЗМЕРНОСТЬ МАССИВА ГР)-С
Nfi\ РАЗМЕРНОСТЬ МАССИВА ОСИ
СМАССИВ ARМАССИВ ЛОГАРИФМА МОЩНОСТИПОГЛОЩЕННОЙЛО-
СЗЫ
СМАССИВ ОНМАССИВ ЛОГАРИФМА РАДИАЦИОННОЙ ЭЛЕКГКОПРО-
сводимости
READ I.M0.N0.NSN, N6N
READ 2. (AR(I), I = 1.N0)
DO 5 I * IM ff
5READ 2.CDR»I. H.J « I.W )
I Н»FORMAT (|0X. ’ИСХОДНЫЕ ДАННЫЕ’)
111 FORMAT iSX.’M «=\ 13. 5X. ’N * \ 13)
PRINT 110
PRINT III.M 0.N0
112FORMAT I3X. ’МАССИВ ЛОГАРИФМА МОЩНОСТИ ПОГЛОЩЕННОЙ;
♦ДОЗЫ)
PRINT 112
PRINT 2. CAR (1). I - I.N0)
113 FORMAT (ЗХ. МАССИВ ЛОГАРИФМА РАДИАЦИОННОЙ ЭЛЕКТРОПРО
ВОДИМОСТИ)
PRINT ИЗ
DO 114 |* |, 40
114 PRINT 2. (DR (I.J).J - 1.N0I
ОВВОД ТРЕХ ВЕЛИЧИИ ДЛЯ ПРОВЕРКИ
СX ТОЧКА ПРОГНОЗА
СМАССИВ PPIВКРОЯТН. БЕЗОТКАЗ. РАБОТЫ
СМАССИВ ОС.1 ДОВЕРИТ ВЕРОЯТНОСТЬ
READ 2.Х
XX ALOCilB(X)
READ 2.СРРЦЦ I = I. NSN)
READ 2. COO!Cl >, I * I. N6N)