29
label
1,3,5,7;
Procedure LinVent1;
var
I: byte;
const
Lvent11: array [1..10] of real = (
0.5,0.5,1.5,1.5,1.5,1.5,2.5,2.5,3.5,3.5);
Lvent21: array [1.. 10] of real = (
0.0,0.5,0.5,0.5,0.5,0.5,0.5,1.5,2.5,3.5);
Lvent31: array [1..10] of real = (
0.5,0.5,0.5,1.0,1.5,1.5,1.5,2.5,3.5,4.5);
Lvent41: array [1..10] of real = (
0.0,0.0,0.0,0.5,0.5,0.5,1.0,1.5,2.0,3.0);
Lvent51: array [1..10] of real = (
0.5,0.5,0.5,0.5,1.5,1.5,2.5,2.5,2.5,3.5);
Lvent6l: array [1..10] of real = (
0.5,0.5.0.5,0.5,8.5,12.5,17.5,23.5,27.5,29.9);
label
1;
begin { LinVent1 }
case NRA[1] of
10: for I: = 1 to 10 do Lvent[I] := Lvent11[I];
4: for I: =1 to 10 do Lvent[I] := Lvent21 [I];
5: for I:=1 to 10 do Lvent[I] := Lvent31[I];
6: for I =1 to 10 do Lvent[I] = Lvent41[I];
11: for I := 1 to 10 do Lvent[I] := Lvent51[I];
12: for I := 1 to 10 do Lvent[I] := Lvent61 [I];
end;
L1:=0.0;
if BET < ВЕТI[1] then begin L1:=Lvent[1]; goto 1 end;
if BET > BETI[10] then begin L1:=Lvent[10]; goto 1 end;
for I := 1 to 9 do
if (BET >= ВЕТI[I]) and (BET <= ВЕТI[I+1) then begin
if(Lvent[I] = 0.0) or (Lvent[I+1] = 0.0) then goto 1;
L1:=Lvent[I]+(Lvent[I+1]-Lvent[I])*(BET-BETI[I])/0.05; goto 1
end;
1: if L1 = 0.0 then exit; if LRA[1] < L1 then ierr:= 1
end; { LinVent1 }
Procedure LinVent2;
var
J: byte;
const
Lventl2: array [1.. 10] of real = (
1.5,2.5,2.5,3.5,3.5,4.5,4.5,4.5,5.5,5.5);
Lvent22: array [1..10] of real = (
0.5,1.5,2.5,4.5,5.5,6.5,8.5,9.5,10.5,11.5);
Lvent32: array [1..10] of real = (
1.5,1.5,1.5.2.5,2.5,3.5,3.5,4.5,5.5,6.5);
Lvent42: array [1..10] of real = (
0.5,0.5,0.5.1.0,1.5,2.5,3.0,4.0,4.0,4.5);
Lvent52: array [1..10] of real = (