19
TETRO:=0.0;
if EROW <> 0.0 then begin
DROS:=0.001*EROW*RoM; R01:==RoM+DROS;R02:=RoM-DROS;
QCalc(NRQ,TMG,PMG,DPM,YA,YY,DD20,DT20,RIM,BET,RE,KSH,KK,ROSC,
QC1,VCV1,VC1,VM1,R01,KAPPA, MU,HS);
QCalc(NRQ,TMG,PMG,DPM,YA,YY,DD20,DT20,RIM,BET,RE,KSH,KK,ROSC,
QC2,VCV2,VC2,VM2,R02,KAPPA,MU,HS);
TETRO:=RoM*(QCl-QC2)/(2.0*DROS)/QC
end;
end;
NRQ:=1;
TETYA:=0.0; TETYY:=0.0; for I:= 1 to 16 do TETYI[I]:=0.0;
if (NSUBA[NNIT]<>0) or (NVARYA[NNIT]=0) then TETROS:=1.0
else begin
TETROS:=0.0;
if EROS <> 0.0 then begin
DROS:=O.OOrEROS*ROSC; ROS1:=ROSC+DROS;ROS2:=ROSC-DROS;
QCalc(NRQ,TMG,PMG,DPM,YA,YY,DD20,DT20,RIM,BET,RE,KSH,KK,ROSl,
QC1,VCV1,VC1,VM1,R01,KAP1,MU1,HSX);
QCalc(NRQ,TMG,PMG,DPM,YA,YY,DD20,DT20,RIM,BET,RE,KSH,KK,ROS2,
QC2,VCV2,VC2,VM2,R02,KAP2,MU2,HSX);
TETROS:=ROSC*(QCl-QC2)/(2.0*DROS)/QC;
end;
if(YA <> 0.0) and (EROSA[17] <> 0.0) then begin
DYA:=O.OOPEROSA[17]*YA; YA1:=YA+DYA; YA2:=YA-DYA;
QCalc(NRQ,TMG,PMG,DPM,YAl,YY,DD20,DT20,RIM,BET,RE,KSH,KK,ROSC,
QC1,VCV1,VC1,VM1,R01,KAP1,MU1,HSX);
QCalc(NRQ,TMG,PMG,DPM,YA2,YY,DD20,DT20,RIM,BET,RE,KSH,KK,ROSC,
QC2,VCV2,VC2,VM2,R02,KAP2,MU2,HSX);
TETYA:=YA*(QC1-QC2)/(2.0*DYA)/QC
end;
if (YY <> 0.0) and (EROSA[18] <> 0.0) then begin
DYY:=0.001*EROSA[18]*YY; YY1:=YY+DYY; YY2:=YY-DYY;
QCalc(NRQ,TMG,PMG,DPM,YA,Yyl,DD20,DT20,RIM,BET,RE,KSH,KK,ROSC,
QC1,VCV1,VC1,VM1,R01,KAP1,MU1,HSX);
QCalc(NRQ,TMG,PMG,DPM,YA,YY2,DD20,DT20,RIM,BET,RE,KSH,KK,ROSC,
QC2,VCV2,VC2,VM2,R02,KAP2,MU2,HSX);
TETYY:=YY* (QC 1 -QC2)/(2.0* DYY)/QC
end;
end; {endif}
TETT:==0.0;
if ET <> 0.0 then begin
DTMG:=0.001*ET*(TMG+273.15);
QCalc(NRQ,TMG+DTMG,PMG.DPM,YA,YY,DD20,DT20,RIM,BET,RE,KSH,KK,
ROSC,QC1,VCV1,VC1,VM1,R01,KAP1,MU1,HSX);
QCalc(NRQ,TMG-DTMG,PMG,DPM,YA.YY,DD20,DT20,RIM,BET,RE,ICSH,KK,
ROSC,QC2,VCV2,VC2,VM2,R02,KAP2,MU2,HSX);
TETT:=(TMG+273.15)*(QC1-QC2)/(2.0*DTMG)/QC
end;
TETP:=0.0;