ГОСТ 8.563.3-97
"ГСИ. Измерение расхода и количества жидкостей и газов методом переменного перепада давления. Процедура и модуль расчетов. Программное обеспечение"

Статус документа: Не действующий
Дата вступления в действие: 1999-01-01
Документ доступен для скачивания с сайта:
Что бы скачать ГОСТ 8.563.3-97 нажмите кнопку вверху этой страницы.
Печатная форма документа:
Нажмите здесь для заказа официального издания и получения дополнительной информации о документе: ГОСТ 8.563.3-97
Документ относится к следующим разделам классификатора:
Нормативно-технические документы. Национальные стандарты
Метрология и измерения. Физические явления
Измерения параметров потока жидкости *Включая измерительные приборы и установки
Поток в открытых каналах


Окончание документа (для ознакомления)
...re HSP;
const
DHS: array[1..31] of real = (0.11,0.11,0.28,0.42,0.42,0.0,0.0,0.0,
0.0,0.0,0.14.0.22.0.28,0.0,0.0,0.0,
0.41,0.14,0.0.0.41,0.0,0.0,0.0,0.0,
0.0,0.0,0.0,0.0,0.11,0.5,0.0);
HsNg1: array[1..16] of real = (37.04,64.91,92.29,119.7,119.3,
147.0,146.8,174.5,201.8,229.2,0.0,
0.0,23.37,0.0,11.76.11.89);
HsNg2: array[1..16] of real = (33.37,59.39,84.94,110.5,110.1,
136.0,135.7,161.6,187.1,212.7,0.0,
0.0,21.53,0.0,11.76,10.05);
var
H1,H2,SH1,SH2 : real; I : byte;
begin { HSP }
if NSUBA[NNIT] = 0 then begin
if (NMETHKA[NNIT] = 0) or (NMETHKA[NNIT] = 1) then begin
H1:=(0.51447*ROSC+0.05603-0.65689*YA-YY);
H2:=(0.52190*ROSC+0.04242-0.65197*YA-YY);
ERRH1:=sqrt(sqr(0.51447*ROSC*EROS)+sqr(YY*EROSA[18])+
sqr(0.65689 * YA*EROSA[17]))/Hl;
ERRH2:=sqrt(sqr(0.52190*ROSC*EROS)+sqr(YY*EROSA[18])+
sqr(0.65197*YA*EROSA[17]))/H2
end else begin
SH1:=0.0; SH2:=0.0; ERRH1:=0.0; ERRH2:=0.0; Zc:=0.0;
for I := 1 to 16 do begin
Zc := Zc + RIM[I] * Bi[I]; SH1:=SH1+RIM[I]*HSNG1[I];
SH2:=SH2+RIM[I]*HSNG2[I];
ERRH1:= : ERRH1+sqr(RIM[I]*HSNGl[I]*EROSA[I+6]);
ERRH2:=ERRH2+sqr(RIM[I]*HSNG2[I]*EROSA[I+6])
end; {endfor}
Zc := 1.0 - sqr(Zc); ERRH1:=Zc*sqrt(ERRH1)/SHl;
ERRH2:=Zc*sqrt(ERRH2)/SH2
end; {endif}
end else begin
ERRH1:=DHS[NSUBA[NNIT]]; ERRH2:=ERRH1
end; {endif}
end; { HSP }
{---------------------------------------------------}
function r_; begin r_:=exp(R*ln(A)) end;
END. { ERRQSNX }


Похожие документы:


  Статистика системы:

Всего документов:
37546 шт.
 - действующих:36542 шт.
 - отмененных:1004 шт.
©© 2003 — 2012, ООО «Медиа Сервис». Все права защищены.
Пишите нам: info@docinfo.ru
Телефон: +7 (495) 781-41-52