Var h1, p1, t1, v1, s1, p0, t0, t2a, v2a, s2a, h2a, t2, p2, h2, hp2, t3, p3, h3,
tk, h4, h5, p6, t6, h6, q0i, La, LB, Lkm, qk, QkH, Gx, Nkm, kx, kxB, kxx,
Vk1, taH, tax, a1, a2, a3, x1, x2, x3, y1, y2, y3:real;
Function LG2(t:real):real;
Begin
a1:= y1/((x1–x2)*(x1–x3));
a2:= y2/((x2–x1)*(x2–x3));
a3:= y3/((x3–x1)*(x3–x2)); a1:=(t–x2)*(t–x3)*a1;
a2:=(t–x1)*(t–x3)*a2; a3:=(t–x1)*(t–x2)*a3;
LG2:=a1+a2+a3;
end;
Begin CLrScr;
x1:=tH1; x2:=tH2; x3:=tH3; t0:=tL2–dti; t6:=t0; tk:=tK1+dtk; t3:=tk;
t1:=t3–dtp; y1:=hH12; y2:=hH22; y3:=hH32; h6:=LG2(t6);
y1:=pH1; y2:=pH2; y3:=pH3; p6:=LG2(t6); t3:=tk;
x1:=tB1; x2:=tB2; x3:=tB3; y1:=hB11; y2:=hB21; y3:=hB31; h3:=LG2(t3);
y1:=pB1; y2:=pB2; y3:=pB3; p3:=LG2(t3); x1:=tp11; x2:=tp12; x3:=tp13;
y1:=hp11; y2:=hp12; y3:=hp13; h1:=LG2(t1);
y1:=sp11; y2:=sp12; y3:=sp13; s1:=LG2(t1);
y1:=vp11; y2:=vp12; y3:=vp13; v1:=LG2(t1);
x1:=tp21; x2:=tp22; x3:=tp23;
y1:=sp21; y2:=sp22; y3:=sp23; t2a:=tp21;
Repeat
t2a:=t2a+1; s2a:=LG2(t2a);
Until s2a>s1;
y1:=hp21; y2:=hp22; y3:=hp23; h2a:=LG2(t2a); La:=h2a–h1;
h2:=h1+La/kik; LB:=h2–h1; t2:=t2a;
Repeat
t2:=t2+0.2; hp2:=LG2(t2);
Until hp2>h2;
h4:=h3–h1+h6; q0i:=h6–h4; Gx:=Q0/q0i; qk:=h2–h3; Vk1:=Gx*v1;
Nkm:=Lkm*Gx;
QkH:=Gx*qk; Lkm:=LB/kem; Nkm:=Lkm*Gx;
kx:=q0i/Lkm; taH:=1–Tkoc/((tL1+tL2)/2+Tk0);
tax:=1–Tkoc/(t0+Tk0); kxB:=q0i*abs(taH)/Lkm;
kxx:=q0i*abs(tax)/Lkm;
(Writeln ('qk=',qk:3:1,' QkH=',QkH:3:1,' Lkm=',Lkm:3:1,'
Nkm=',Nkm:3:1; 'kx=',kx:3:3,' kxB=', kxB:4:3, ' kxx=', kxx:4:3); end.
Файл результатов решения примера 3.1:
qk=184.9 QkH=9.8 Lkm=58.7 Nkm=3.1 kx=2.248 kxB=0.387 kxx=0.463