Контрольная работа: Расчёт насадочного абсорбера

xk:=xn+g*(yn-yk)/l;

writeln;

writeln(' Raschetnie parametri ');

writeln;

Writeln(' yn= ', yn:4:6,' yk= ', yk:4:6,' xn= ',xn:4:6,' xk= ',xk:4:6);

Writeln(' g= ', g:4:6,' ga= ', ga:4:6,' lm= ',lm:4:6);

Writeln(' l= ', l:4:6,' xkp= ', xkp:4:6,' m= ',m:4:6);

Writeln;

n:=50;

dy:=(yn-yk)/n;

yc:=yk+(dy/2);

S:=0;

repeat

xc:=xn+g*(yc-yk)/l;

ypc:=m*ml*ma*xc/(mg*(ml*xc+ma-m*ml*xc));

S:=s+dy/(yc-ypc);

Yc:=yc+dy;

until (yc>yn);

Dys:=(yn-yk)/s;

ys:=(yn+yk)/2;

Ysp:=ys-dys;

xs:=ma*mg*ysp/(ml*(m*ma+mg*(m-1)*ysp));

Rog:=1.293*p*273/(0.1033*(273+t));

Vg:=sqrt((9.81*rol*e1*e1*e1/(s1*rog))*exp(-0.16*ln(vil)+5.07e-2-4.03*exp(0.25*ln(L/g)+0.125*ln(rog/rol))));

Vg:=Vg*0.8;

qv:=v0*(273+t)*0.1033/(3600*273*p); {m^3/s}

Dk:=sqrt(4*qv/(pi*vg));

h1:=44.3*e1*(ln(L/(m*g))/ln(10))*exp(0.2*ln(vg*rog)+0.342*ln(g/L)+0.19*ln(rol/rog)+

0.038*ln(vig/vil))/(exp(0.2*ln(vig)+1.2*ln(s1))*(1-m*g/L));