26
E1TRC := sqrt(sqr(E[6]) + sqr(E[7]))
end;
end; {endif}
E2TS := E[8]*(T1HO-T1LO);
E3TS := Е[9]*(иН-ии;
EDTS := sqrt(sqr(E1TSC)+sqr(E2TS)+sqr(E3TS)+sqr(E[10])+ sqr(E[11]));
If (E[12]<>0) or (E[13]<>0) then
begin
ET1SC := E[12];
ET1RC := E[13]
end
else begin
if E[14]<>0 then
begin
ET1SC := E[14];
ET1RC :=0
end
else begin
ET1SC := sqrt(sqr(E[15]) + sqr(E[16]));
ET1RC := sqrt(sqr(E[17]) + sqr(E[18]))
end;
end; (endif)
ET2S := E[19]*(T2HO-T2LO);
EVTS :- sqn(sqr(ET1SC)+sqr(ET2S)+sqr(E[20])+sqr(E[21]));
If SIZMTD = 6 then begin
If (E[22]<>0) or (E[23]<>0) then
begin
ET2SC := E[22];
ET2RC := E[23]
end
else begin
if E[24]<>0 then
begin
ET2SC := E[24];
ET2RC := 0.0
end
else begin
ET2SC := sqrt(sqr(E[25]) + sqr(E[26]));
ET2RC := sqn(sqr(E[27]) + sqr(E[28]))
end;
end; {endif}
ETXS := E[29]*(T2HO-T2LO);
EXTS := sqrt(sqr(ET2SC)+sqr(ETXS)+sqr(E[30])+sqr(E[31]));
end; {endif}
end; {endif}
DET := (E[34]-E[35])/(TA+273.15);
YT[1]:=DET; YT[2]:=2.0*sqrt(DET);
case SIZMTD of
0: begin
ETSY := YT[1]*E1TSC;
ETRA:=YT[1]*E1TRC
end;