20
if EP <> 0.0 then begin
DPMG:=0.001*EP*PMG;
QCalc(NRQ,TMG,PMG+DPMG,DPM,YA,YY,DD20,DT20,RIM,BET,RE,KSH,KK,-
ROSC,QC1,VCV1,VC1,VM1,R01,KAP1,MU1,HSX);
QCalc(NRQ,TMG,PMG-DPMG,DPM,YA,YY,DD20,DT20,RIM,BET,RE,KSH,KK,
ROSC,QC2,VCV2,VC2,VM2,R02,KAP2,MU2,HSX);
TETP:=PMG*(QC1-QC2)/(2.0*DPMG)/QC
end;
EYR:=0.0;
if (NSUBA[NNIT]=0) and (NVARYA[NNIT]=0) then
for I := 1 to 16 do
if(RIM[I] <> 0.0) and (EROSA[I+6] <> 0.0) then begin
DRIM:=0.001*EROSA[I+6]*RIM[I];
RIMX[I]:=RIM[I]+DRIM;
for J := 1 to 16 do
if (J<>I) and (RIM[J]<>0.0) then
RIMX[J]-RIM[J]1.0-DRIM/1.0-RIM[I]));
QCalc(NRQ,TMG,PMG,DPM,YA,YY,DD20,DT20,RIMX,BET,RE,KSH,KK,ROSl,
QC1,VCV1,VC1,VM1,R01,KAP1,MU1,HSX);
RIMX[I]:=RIM[I]-DRIM;
for J := 1 to 16 do
if (J<>I) and (RJM[J]<>0.0) then
RIMX[J]:=RIM[J]*(1.0+DRIM/(1.0-RIM[I]));
QCalc(NRQ,TMG,PMG,DPM,YA,YY,DD20,DT20,RJMX,BET,RE,KSH,KK,ROS2,
QC2,VCV2,VC2,VM2,R02,KAP2,MU2,HSX);
TETYI[I]:=500.0*(QCl-QC2)/QC/EROSA[I+6];
EYR:=EY.+sqr(TETYI[I])*(sqr(EROSA[6+I])+sqr(DVY[I]))
end; {endif}
EQR:=sqrt(sqr(TETDP)*(sqr(EDPR)+sqr(DVDP))+sqr(TETP)*
(sqr(EPR)+sqr(DVPG))+sqr(TETT)*(sqr(ETR)+sqr(DVTG))+
sqr(TETROS)*(sqr(EROSR)+sqr(DVR))+sqr(TETYA)*
(sqr(EROSA[17])+sqr(DVAY[1]))+sqr(TETYY)*
(sqr(EROSA[18])+sqr(DVAY[2]))+EYR+sqr(TETRO*EROWR));
EQS:=sqrt(sqr(TETDP*EDPS)+sqr(TETP*EPS)+
sqr(TETT*ETS)+sqr(TETROS*EROSS)+sqr(TETC*ERC)+.
sqr(TETEPS*EEPS)+sqr(TETDD*EDD)+sqr(TETDTEDT)+
sqr(TETRO* ERO)+sqr(TETKAP* EKAP)+sqr(TETMU* EVIS));
EQ1 := sqrt(sqr(EQS)+sqr(EQR));
ifERRTAU = 0.0 then ERRTAU:=100.0*DHD/(60*TAUAV);
EVC := sqrt(sqr(EQS)+sqr(EQR)+sqr(ERRTAU));
HSP(RIM, YA, YY, ERRH1, ERRH2);
if ERRH1 = 0.0 then begin
EH[1]:=0.0; EH[2]:=0.0
end else begin
EH[1]:=sqrt(sqr(ERRH1)+sqr(EVC));
EH [2] :=sqrt(sqr(ERRH2)+sqr(EVC))
end; {endif}
HSV[1]:=Hs[1]*VCV;HSV[2]:=Hs[2]*VCV
end else begin
case IERR of
1: begin
writeln(Fl,