Writeln('s1=',s1:3:3,' sd1=',sd1:4:3,' s2=',s2:3:3,' sd2=',sd2:4:3);
tb:=t12–t21; tm:=t11–t22;
dtp:= (tb–tm)/ln(tb/tm);
Writeln('tb=',tb:3:1,' tm=',tm:4:1,' At=',At:4:3,' dtp=',dtp:4:1);
R:= (t22–t21)/(t11–t12);
P:=(t11–t12)/(t11–t21);
xe1:=(1–P)/(1–P*R);
xL1:= R*exp(ln(xe1)/m)–1;
xL2:= (R–1)/xL1;
dtc:=–P*(t11–t21)/(m*ln(1+At*ln(xL2))); eRP:= dtc/dtp;
Writeln('P=',P:4:3,' R=',R:4:2,' dtc=',dtc:4:1,' eRP=',eRP:4:2);
tc1:=(t11+t12)/2; TFS1(tc1);
Writeln('tc1=',tc1:3:1,' r1=',r1:4:3,' cp1=',cp1:4:3,' Lm1=',Lm1:4:3,
' Pr1=',Pr1:4:3,' a1=',a1:5,' nu1=',nu1:5);
F1:=Nt*pi*sqr(db/2); u1:=V1/F1; Re1:=u1*db/nu1;
rs1:=Xm(Re1,0.8); ps1:=Xm(Pr1,0.43);
Ns1:=0.021*rs1*ps1;
ak1:=Lm1*Ns1/db; rt1:=1/ak1;
Writeln('F1=',F1:3:2,' u1=',u1:4:2,' Re1=',Re1:5,
' Ns1=',Ns1:5:2,' ak1=',ak1:4:1);
en:=(e1+e2+(nt2–2))/nt2;
if s12<2 then es:=exp(ln(s12)/6) else es:=1.12;
tc2:=(t21+t22)/2; TFS2(tc2);
Writeln('tc2=',tc2:3:1,' r2=',r2:4:2,' cp2=',cp2:3:1,' Lm2=',Lm2:4:3,
' a2=',a2:4,' nu2=',nu2:4,' Pr2=',Pr2:3:2);
Q2:= cp2*r2*V2*(t22–t21);
Lt1:=2*Bt;
Repeat
Lt1:=Lt1–0.01;
F2:=Lt1*(Bt–dh*Nt1);
u2:=V2/F2; Re2:=u2*dh/nu2;
rs2:=Xm(Re2,0.6);
ps2:=Xm(Pr2,0.33);
if (Re2>1e3) and (Re2<1e5) then begin
Ns2:=0.41*rs2*ps2*es;
ak2:=Ns2*lm2/dh; aks2:=en*ak2; end;
rt2:=1/aks2; kt:=1/(rt1+rt2+rtw);
Qt:=pi*dc*Nt*2*Lt1*kt*dtc;
Until Qt<Q2;
At:=pi*dc*Nt*2*Lt1;
Writeln('Lt1=',Lt1:4:2, 'At=',At:4:2,' kt=',kt:4:2,' Qt=',Qt/kp:3:2); end.