Государственная система обеспечения единства измерений. Измерение расхода и количества жидкостей и газов методом переменного перепада давления. Процедура и модуль расчетов. Программное обеспечение
Действие завершено 01.01.2007
Заменяет
Страница 1
Страница 2
Страница 3
Страница 4
Страница 5
Страница 6
Страница 7
Страница 8
Страница 9
Страница 10
Страница 11
Страница 12
Страница 13
Страница 14
Страница 15
Страница 16
Страница 17
Страница 18
Страница 19
Страница 20
Страница 21
Страница 22
Страница 23
Страница 24
Страница 25
Страница 26
Страница 27
Страница 28
Страница 29
Страница 30
Страница 31
Страница 32
Страница 33
Страница 34
Страница 35
Страница 36
Страница 37
Страница 38
Страница 39
Страница 40
Страница 41
Страница 42
Страница 43
Страница 44
Страница 45
ГОСТ 8.563.3-97
МЕЖГОСУДАРСТВЕННЫЙ СТАНДАРТ
ГОСУДАРСТВЕННАЯ СИСТЕМА ОБЕСПЕЧЕНИЯ
ЕДИНСТВА ИЗМЕРЕНИЙ
ИЗМЕРЕНИЕ РАСХОДА И КОЛИЧЕСТВА ЖИДКОСТЕЙ И ГАЗОВ
МЕТОДОМ ПЕРЕМЕННОГО ПЕРЕПАДА ДАВЛЕНИЯ
ПРОЦЕДУРА И МОДУЛЬ РАСЧЕТОВ
ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ
МЕЖГОСУДАРСТВЕННЫЙ СОВЕТ
ПО СТАНДАРТИЗАЦИИ, МЕТРОЛОГИИ И СЕРТИФИКАЦИИ
Минск
Предисловие
1 РАЗРАБОТАН Фирмой «Газприборавтоматика» РАО «Газпром», Всероссийским научно-исследовательским центром стандартизации, информации и сертификации сырья, материалов и веществ (ВНИЦСМВ) Госстандарта России
ВНЕСЕН Госстандартом России
2 ПРИНЯТ Межгосударственным Советом по стандартизации, метрологии и сертификации (протокол № 11-97 от 25 апреля 1997 г.)
За принятие проголосовали:
|
Наименование государства |
Наименование национального органа по стандартизации |
|
Азербайджанская республика |
Азгосстандарт |
|
Республика Армения |
Армгосстандарт |
|
Республика Белоруссия |
Госстандарт Белоруссии |
|
Грузия |
Грузстандарт |
|
Республика Казахстан |
Госстандарт Республики Казахстан |
|
Киргизская Республика |
Киргизстандарт |
|
Республика Молдова |
Молдовастандарт |
|
Российская Федерация |
Госстандарт России |
|
Республика Таджикистан |
Таджикгосстандарт |
|
Туркменистан |
Главная государственная инспекция Туркменистана |
|
Республика Узбекистан |
Узгосстандарт |
3 Постановлением Государственного комитета Российской Федерации по стандартизации, метрологии и сертификации от 11 декабря 1997 г. № 410 межгосударственный стандарт ГОСТ 8.563.3-97 введен в действие непосредственно в качестве государственного стандарта Российской Федерации с 1 января 1999 г.
4 ВЗАМЕН ГОСТ 23720-79, ГОСТ 26969-86, РД 50-213-80, МИ 2204-92, МИ 2346-95
СОДЕРЖАНИЕ
|
1 ОБЛАСТЬ ПРИМЕНЕНИЯ 2 2 НОРМАТИВНЫЕ ССЫЛКИ 2 3 ПРОЦЕДУРА РАСЧЕТА РАСХОДА И КОЛИЧЕСТВА ЖИДКОСТЕЙ И ГАЗОВ 2 4 МОДУЛЬ РАСЧЕТА ПОГРЕШНОСТИ ОПРЕДЕЛЕНИЯ РАСХОДА И КОЛИЧЕСТВА ЖИДКОСТЕЙ И ГАЗОВ 9 |
МЕЖГОСУДАРСТВЕННЫЙ СТАНДАРТ
Государственная система обеспечения единства измерений
Измерение расхода и количества жидкостей и газов методом переменного перепада давления
ПРОЦЕДУРА И МОДУЛЬ РАСЧЕТОВ. ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ
State system for ensuring the uniformity of measurements.
Measurement of liquids and gases flow rate and quantity by differential pressure method. Procedure and module of calculations. Software
Дата введения 1999-01-01
1 ОБЛАСТЬ ПРИМЕНЕНИЯ
Настоящий стандарт устанавливает программное обеспечение расчета расхода и количества жидкостей и газов (далее — среда), а также расчета погрешностей определения расхода 1 и количества сред.
Листинги программ, приведенные в настоящем стандарте, разработаны согласно требованиям, изложенным в ГОСТ 8.563.1 и ГОСТ 8.563.2.
2 НОРМАТИВНЫЕ ССЫЛКИ
В настоящем стандарте использованы ссылки на следующие стандарты:
ГОСТ 8.563.1-97 ГСИ. Измерение расхода и количества жидкостей и газов методом переменного перепада давления. Диафрагмы, сопла ИСА 1932 и трубы Вентури, установленные в заполненных трубопроводах круглого сечения. Технические условия
ГОСТ 8.563.2-97 ГСИ. Измерение расхода и количества жидкостей и газов методом переменного перепада давления. Методика выполнения измерений с помощью сужающих устройств
ГОСТ 30319.1-96 Газ природный. Методы расчета физических свойств. Определение физических свойств природного газа, его компонентов и продуктов его переработки
ГОСТ 30319.2-96 Газ природный. Методы расчета физических свойств. Определение коэффициента сжимаемости
ГОСТ 30319.3-96 Газ природный. Методы расчета физических свойств. Определение физических свойств по уравнению состояния
3 ПРОЦЕДУРА РАСЧЕТА РАСХОДА И КОЛИЧЕСТВА ЖИДКОСТЕЙ И ГАЗОВ
Процедура расчета расхода и количества жидкостей и газов (далее — процедура) написана на алгоритмическом языке ТУРБО ПАСКАЛЬ 7.0. Обращение к процедуре — QCALC.
3.1 Исходные данные
Исходные данные передаются в процедуру QCALC в виде глобальных параметров; для работы процедуры необходимо использовать модули Dos и Сп.
3.1.1 NNit — порядковый номер измерительного трубопровода.
3.1.2 NSubA[NNit] — номер среды (таблица 1).
Таблица 1 — Наименование и номер среды
|
Среда |
NSubA[NNit] |
Среда |
NSubA[NNIT] |
|
Природный газ |
0 |
Метанол |
16 |
|
Метан |
1 |
Метилмеркаптан |
17 |
|
Этан |
2 |
Моноксид углерода |
18 |
|
Пропан |
3 |
Диоксид углерода |
19 |
|
Изобутан |
4 |
Сероводород |
20 |
|
н-Бутан |
5 |
Диоксид серы |
21 |
|
Изопентан |
6 |
Водяной пар |
22 |
|
н-Пентан |
7 |
Вода |
23 |
|
Гексан |
8 |
Кислород |
24 |
|
Гептан |
9 |
Воздух |
25 |
|
Октан |
10 |
Гелий |
26 |
|
Ацетилен |
11 |
Неон |
27 |
|
Этилен |
12 |
Аргон |
28 |
|
Пропилен |
13 |
Водород |
29 |
|
Бензол |
14 |
Аммиак |
30 |
|
Толуол |
15 |
Азот |
31 |
3.1.3 NMethKA[NNit] — номер метода расчета коэффициента сжимаемости природного газа по ГОСТ 30319.2 (таблица 2).
Таблица 2 — Наименование и номер метода расчета
|
Метод расчета |
NMethKA[NNit] |
|
NX19 мод. |
0 |
|
GERG-91 мод. |
1 |
|
AGA8-92DC |
2 |
|
ВНИЦСМВ |
3 |
3.1.4 NSuzA[NNit] — номер типа сужающего устройства (таблица 3).
Таблица 3 — Наименование и номер типа сужающего устройства
|
Тип сужающего устройства |
NsuzA[NNit] |
|
Диафрагма |
0 |
|
Сопло ИСА 1932 |
1 |
|
Сопло Вентури |
2 |
|
Труба Вентури (литой входной конус) |
3 |
|
Труба Вентури (обработанный входной конус) |
4 |
|
Труба Вентури (сварной входной конус) |
5 |
3.1.5 YR — массив концентраций 16 компонентов природного газа, молярные доли (таблица 4).
Таблица 4 — Наименование компонента и его порядковый номер в массиве
|
Наименование компонента |
Порядковый номер |
|
Метан |
1 |
|
Этан |
2 |
|
Пропан |
3 |
|
н-Бутан |
4 |
|
Изобутан |
5 |
|
н-Пентан |
6 |
|
Изопентан |
7 |
|
Гексан |
8 |
|
Гептан |
9 |
|
Октан |
10 |
|
Азот |
11 |
|
Диоксид углерода |
12 |
|
Сероводород |
13 |
|
Гелий |
14 |
|
Моноксид углерода |
15 |
|
Водород |
16 |
3.1.6 Параметры среды
Roc — плотность природного газа при стандартных условиях, кг/м3.
(стандартные условия: рс = 1,01325 бар, tс = 20 °С)1).
Ya — концентрация азота в природном газе, молярные доли.
Yy — концентрация диоксида углерода в природном газе, молярные доли.
Р — давление среды, бар.
Т — температура среды, °С.
1) Условные обозначения параметров при стандартных условиях — по ГОСТ 8.563.1 и ГОСТ 8.563.2.
3.1.7 Характеристики сужающего устройства
AlfaSU — температурный коэффициент линейного расширения материала сужающего устройства, 1/°С.
Dd20 — диаметр отверстия сужающего устройства при 20 °С, мм.
Rn — начальный радиус закругления входной кромки диафрагмы, мм.
TauP — период поверки диафрагмы, год.
Dp — перепад давления на сужающем устройстве, бар.
3.1.8 SodSuA[NNit] — номер способа отбора давления на диафрагме:
1) 0 — угловой;
2) 1 — фланцевый;
3) 2 — трехрадиусный.
3.1.9 Характеристики измерительного трубопровода
AlfaT — температурный коэффициент линейного расширения материала измерительного трубопровода, 1/°С.
Dt20 — внутренний диаметр измерительного трубопровода при 20 °С, мм.
Rsh — эквивалентная шероховатость материала измерительного трубопровода, мм.
3.1.10 TauAv — время, за которое определяют количество среды, ч.
3.1.11 VarRoA[NNit] — номер способа определения плотности природного газа при рабочих условиях.
1) 0 — плотность рассчитывают по ГОСТ 30319.1;
2) 1 — плотность измеряют. Rot — измеренное значение плотности.
3.2 Выходные данные
Ro — плотность среды при рабочих условиях, кг/м3.
КZ — коэффициент сжимаемости среды.
Кaрра — показатель адиабаты среды.
Mu — динамическая вязкость среды, мкПа·с.
Qc — объемный расход среды, приведенный к стандартным условиям, м3/ч.
Vc — объем среды (количество среды, выраженное в кубических метрах), приведенный к стандартным условиям, м3.
Vm — масса среды (количество среды, выраженное в тоннах), т.
Нs[1] — высшая удельная теплота сгорания среды, МДж/м3.
Hs[2] — низшая удельная теплота сгорания среды, МДж/м3.
3.3 Листинг процедуры расчета расхода и количества жидкостей и газов
В нижеприведенной процедуре вызываются две внешние программы:
1) TpNg.exe — расчет теплофизических свойств природного газа в соответствии с требованиями ГОСТ 30319.2 и ГОСТ 30319.3;
2) TpSubs.exe — расчет теплофизических свойств компонентов природного газа и продуктов его переработки в соответствии с требованиями ГОСТ 30319.1.
Типы используемых переменных: Fl: text; NNit: byte, Dd, Dt, Dd20, Dt20, RSh, Rn, TauP, AlfaT, AlfaSU, Roc, Ya, Yy, Dp, P, T, Ro, Rot, Mu, Kappa, KZ, Eps, KSh, Kk, Cb, KRe, Re, Vc, Vm, TauAv: real; NSubA, NSuzA, SodSuA, NMethKA, VarRoA: array[1..30] of byte; YR: anay[l..16] of real; Hs: array[1..2] of real;
Procedure Qcalc;
var
I, IBeg, IFin: byte; Code: integer;
Bet, Bet4, Ec, Rd, Psi, Rk, LI, L2, Alfa, Qcb, ARe, RO, KCb, Qc, Vcv, Log: real;
HsS: string[10];
label
1,3;
const
RocSubs: array[1..31] of real = (0.6682, 1.2601, 1.8641, 2.488,
2.4956, 3.147, 3.174, 3.898, 4.755,
5.812, 1.09, 1.1733, 1.776, 3.469,
4.294, 1.587, 2.045, 1.1649, 1.8393,
1.4311, 2.718, 0.787, 998.23,
1.33116, 1.20445, 0.16631, 0.8385,
1.6618, 0.08375, 0.716, 1.1649);
HsSubsl: array[1..31] of real = (37.12, 65.43, 93.85, 122.8, 123.6, 0.0,
0.0, 0.0, 0.0,0.0, 54.47, 59.04, 86.88,
0.0, 0.0, 0.0, 52.70, 11.77, 0.0, 23.61,
0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
11.88, 16.11, 0.0);
HsSubs2: array[1..31] of real = (33.43, 59.87, 86.37, 113.4, 114.1, 0.0,
0.0, 0.0, 0.0, 0.0, 52.62, 55.34, 81.29,
0.0, 0.0, 0.0, 48.94, 11.77, 0.0, 21.75,
0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
10.04, 13.32, 0.0);
CalcTpNg = ‘TpNg.exe’; CalcTpSubs = ‘TpSubs.exe’;
begin { QCalc }
{Расчет физических свойств среды}
assign(Fl. ‘IRD’); rewrite(Fl);
if NSubA[NNit] = 0 then begin
writeln(Fl, NMethKA[NNit]);
ifNMethKA[NNit] >= 2 then begin
IBeg:= 1;
repeat
I Fin := IBeg + 3;
for I := IBeg to IFin do write(Fl, YR[I]:14,BL);
writeln(Fl);
IBeg := IFin + 1
until IBeg > 16;
end
else
writeln(Fl, Roc:14, Bl, Ya:14, Bl, Yy:14);
end
else
writeln(Fl, NSubA[NNIT]);
writeln(Fl, P:14, Bl, T:14);
close(Fl);
TextColor(7);
gotoxy( 19,9);
writeln(‘| |’);
gotoxy(19,10);
writeln(‘| |’);
gotoxy(19,11);
write(‘| |’);
TextColor(135);
write(‘ЖДИТЕ’);
TextColor(7);
writeln(‘| |’);
gotoxy(19,12);
writeln(‘| |’);
gotoxy(19,13);
writeln(‘|ВЫПОЛНЯЕТСЯ РАСЧЕТ|’);
gotoxy(19,14);
writeln(‘| |’);
gotoxy(19,15);
writeln(‘| |’);
if NSubA[NNIT] = 0 then begin
gotoxy(21,12);
swapvectors; exec(CalcTpNg, CalcTpNg); swapvectors;
TextColor(7);
gocoxy(19,9);
writeln(‘| |’);
gotoxy(19,10);
writeln(‘| |’);
gotoxy(19,11);
write(‘| |’);
TextColor(135);
write(‘ЖДИТЕ’);
TextColor(7);
writeln(‘| |’);
gotoxy(19,12);
writeln(‘| |’);
gotoxy(19,13);
writeln(‘|ВЫПОЛНЯЕТСЯ РАСЧЕТ|’);
gotoxy(19,14);
writeln(‘| |’);
gotoxy(19,15);
writeln(‘| |’);
end
else begin
swapvectors; exec(CalcTpSubs. CalcTpSubs); swapvectors;
Roc := RocSubs[NSubA[NNit]]
end;
assign(Fl, ‘IRD’): reset(R);
if (NSubA[NNit] = 0) and (NMethKA[NNit] >= 2) then
readln(Fl, Roc);
if NSubA[NNit] = 0 then begin
readln(Fl, Hs[1], Hs[2]);
for I := I to 2 do begin
Str(Hs[1]:10,HsS);Val(HsS,Hs[1],Code)
end;
end
else begin
Hs[1] := HsSubs1[NSubA[NNit]]; Hs[2] := HsSubs2[NSubA[NNIT]]
end;
readln(Fl, Ro, Kappa, Mu);
close(Fl); erase(Fl);
if (NSubA[NNit] = 0) and (VarRoA[NNit] = 1) then Ro := Rot;
KZ := P * Roc * 293.15 / Ro / (Т + 273.15) / 1.01325;
if NSubA[NNit] = 0 then str(Roc:6:4, RocStr);
{Расчет: 1) диаметров сужающего устройства и измерительного трубопровода при рабочей температуре; 2) относительного диаметра; 3) коэффициента скорости входа}
Dd := (1.0 + AlfaSU * (Т — 20.0)) * Dd20;
Dt := (1.0 + AlfaT * (Т — 20.0)) * Dt20;
Bet := Dd / Dt; Bet4 := sqr(Bet) * sqr(Bet);
Ec := 1.0/sqrt1.0 — Bet4);
{Расчет коэффициента расширения}
Eps := 1.0;
if NSubA[NNIT] <> 23 then begin
if NSuzA[NNit] = 0 then
Eps := 1.0 — (0.41 + 0.35 * Bet4) * Dp / P / Kappa;
if NSuzA[NNit] <> 0 then begin
Psi := 1.0 — Dp/ P;
Eps := Kappa * r_(Psi, 2.0 / Kappa) / (Kappa — 1.0) *
(1.0 — Bet4) / (1.0 — Bet4 * r_(Psi, 2.0 / Kappa))*
(1.0 — r_(Psi, (Kappa — 1.0) / Kappa)) /
(1.0 — Psi);
Eps := sqn(Eps)
end;
end;
{Расчет поправочного коэффициента на шероховатость внутренней поверхности измерительного трубопровода без учета числа Рейнольдса}
KSh := 1.0;
if(NSuzA[NNIT] <= 2) and (RSh <> 0.0) then begin
ARe := 0.5; Rd := RSh / Dt; Log := Ln(Rd * 1.e4) / 2.3026;
ifNSuzA[NNit] = 0 then begin
if Log <= (1.0 / 10.0 / Bet4 + 8.0) / 14.0 then begin
R0 := 0.0; goto 1;
end;
R0 := 0.07 *Log — 0.04
end
else begin
if Log <= (1.0 / 10.0 / Bet4 + 5.0) / 9.0 then begin
R0:= 0.0; goto 1;
end;
R0 := 0.045 * Log — 0.025
end;
KSh :== 1.0 + Bet4 * R0 * ARe
end;
1:;
{Расчет поправочного коэффициента на притупление входной кромки отверстия диафрагмы}
Kk:= 1.0;
if (NSuzA[NNIT] = 0) and (Dd20 < 125.0) then begin
ifTauP = 0.0 then Rk := Rn;
ifTauP = 1.0 then Rk := 0.0292 + 0.85 * Rn;
if(TauP <> 0.0) and (TauP <> 1.0).then
Rk := 0.195 — (0.195 — Rn) * (1.0 — Exp(-TauP / 3.0)) *
3.0 / TauP;
Kk := 1.0547 — 0.0575 * Exp(-149.0 * Rk / Dd) end;
{Расчет коэффициента истечения при числе Рейнольдса, стремящемся к бесконечности}
if NSuzA[NNit] == 0 then begin
L1 := 0.0; L2 := 0.0;
if SodSuA[NNit] = 1 then begin
L1 :=25.4/Dt; L2 := L1;
if L1 >= 0.4333 then L1 := 0.039 else L1 := 0.09 * LI
end;
ifSodSuA[NNit] = 2 then begin L1 := 0.039; L2 := 0.47 end;
Cb := 0.5959 + 0.0312 * r_(Bet, 2.1) — 0.184 sqr(Bet4) +
L1 Bet4 / (1.0 — Bet4) — 0.0337 * L2 * r_(Bet, 3)
end;
if NSuzA[NNit] = 1 then Cb := 0.99 — 0.2262 * r_(Bet, 4.1);
{ Для сопла Вентури Cb = С, так как KRe = 1 }
ifNSuzA[NNit] = 2 then Cb := 0.9858 — 0.196 r_(Bet, 4.5);
{ Для труб Вентури Cb = С = const, так как KRe = 1 и Re > 2.е5 }
case NSuzA[NNit] of
3: Cb = 0.984;
4: Cb = 0.995;
5: Cb = 0.985 end;
{Расчет коэффициента расхода сужающего устройства и расхода при числе Рейнольдса, стремящемся к бесконечности}
Alfa := Cb * Ее;
Qcb := 0.039986 Alfa * KSh * Kk * Eps * sqr(Dd) *
sqrt(1.e3 * Dp* Ro) / Roc;
Re := 4.e6 * Qcb * Roc / 3.6 / 3.141592653 / Mu / Dt;
{ Расчет поправочного коэффициента на число Рейнольдса }
case NSuzA[NNit] of
0: KRe = 1.0 + 1.426 / (1.0 + Cb * r_(Re, 0.75) / 64.28 / r_(Bet, 2.5));
1: KRe = 1.0 + 0.86 / (1.0 + Cb * г (Re, 1.15) / 923.9 / sqr(Bet) / (33.0 *
г_(Bet, 2.15)- 17.5));
2: KRe = 1.0;
3: KRe = 1.0;
4: KRe = 1.0;
5: KRe = 1.0;
end;
{Определение действительного значения числа Рейнольдса}
Re := Re * KRe;
{Расчет поправочного коэффициента на шероховатость внутренней поверхности измерительного трубопровода с учетом числа Рейнольдса для всех сужающих устройств, кроме труб Вентури}
if (NSuzA[NNIT] <= 2) and (RSh <> 0.0) then begin
Qcb := Qcb / KSh;
if Re > 1.e4 then begin
if Re < 1.e6 then ARe := 1.0 - sqr(Ln(Re) / 2.3026 - 6.0) / 4.0
elseARe := 1.0;
KSh:= 1.0 + Bet4* RO-ARe
end;
if (Re <= 1.e4) or (KSh <= 1.0005) then KSh := 1.0;
Qcb := Qcb * KSh
end;
{Определение коэффициента истечения для труб Вентури в зависимости от числа Рейнольдса}
if (Re < 2.e5) and (NSuzA[NNit] > 2) then
case NSuzA[NNit] of
3: begin
if Re <= 6.e4 then Cb := 0,957;
if (Re > 6.e4) and (Re <= 1.e5) then Cb := 0.966;
if (Re > 1.e5) and (Re <= 1.5e5) then Cb := 0.976;
if Re > 1.5e5 then Cb := 0.982
end;
4: begin
if Re s.= 4-e4 then Cb := 0.970;
if (Re > 4.e4) and (Re <= 8.e4) then Cb := 0.977;
if (Re > 8.e4) and (Re <= 1.2e5) then Cb := 0.992;
ifRe> 1.2e5 then Cb := 0.998
end;
5: begin
if Re <= 6.e4 then Cb := 0.960;
if (Re > 6.e4) and (Re <= 1.e5) then Cb :-= 0.970;
if Re > 1.e5 then Cb := 0.980
end;
end;
KCb:= 1.0;
{Определение поправки на коэффициент истечения для труб Вентури в зависимости от числа Рейнольдса}
if (Re < 2.e5) and (NSuzA[NNit] > 2) then
case NSuzA[NNIT] of
3: KCb = Cb/0.984;
4: KCb = Cb/0.995;
5: KCb = Cb/0.985;
end;
{Расчет расхода и количества среды при действительном значении числа Рейнольдса} Qc := Qcb * Kke * KCb; Vcv := Qc * TauAv; Vc := Vcv;
if(NSubA[NNit] — 22) or (NSubA[NNit] = 23) then
Vm := Vcv * Roc / 1000.0;
end; { QCalc }
{————————————————————————————-}
function r_(A, R: real): real;
function r_; begin r_:=exp(R*ln(A)) end;
4 МОДУЛЬ РАСЧЕТА ПОГРЕШНОСТИ ОПРЕДЕЛЕНИЯ РАСХОДА И КОЛИЧЕСТВА ЖИДКОСТЕЙ И ГАЗОВ
Все процедуры и функции модуля расчета погрешности определения расхода и количества жидкостей и газов (далее — модуль ERRQSNX) написаны на алгоритмическом языке ТУРБО ПАСКАЛЬ 7.0. Обращение к модулю ERRQSNX осуществляется с помощью оператора вызова основной процедуры QS.
4.1 Исходные данные
Исходные данные передаются в процедуры модуля ERRQSNX в виде глобальных параметров; для работы процедур модуля необходимо использовать модули dos и Crt.
4.1.1 NSubA[NNit], NSuzA[NNit], NMethKA[NNit], SodSuA[NNit], VarRoA[NNit], Dd20, Dt20, AlfaT, AlfaSU, RSh, Rn, TauP, TauAv — см. 3.1.
4.1.2 VarPA[NNit] — номер варианта измерения давления:
1) 0 — измеряют избыточное давление;
2) 1 — измеряют абсолютное давление.
4.1.3 NVarYA[NNit] — номер варианта задания концентраций компонентов природного газа:
1) 0 — задание полного компонентного состава (см. 3.1.5);
2) 1 — задание концентраций азота и диоксида углерода.
4.1.4 Характеристики гидравлических сопротивлений
AmountR — количество гидравлических сопротивлений до сужающего устройства (от 2 до 9).
NRA[J] — массив номеров, характеризующих тип гидравлических сопротивлений, которые расположены до сужающего устройства (1 ≤ J ≤ 9) (таблица 5).
Таблица 5 — Наименование (тип) гидравлических сопротивлений и их номер
|
Наименование (тип) гидравлического сопротивления |
Номер |
|
Пробковый кран |
1 |
|
Запорный клапан (вентиль) |
2 |
|
Затвор (заслонка) |
3 |
|
Конфузор, сужение |
4 |
|
Диффузор, расширение |
Разбираем, что такое инертные материалы в строительстве, какие виды к ним относятся, где применяются
Ошибиться в расчете кирпича в любую сторону – одинаково плохо. Купишь меньше нужного: придется
Если вы собираетесь строить — дом, магазин или склад — вам наверняка предстоит столкнуться
Ремонт квартиры — это всегда важное событие, но зачем довольствоваться стандартными вариантами, если можно
|
