EN:=EN*1000/3600;
W:=GN*(1-XN/XK);
D1:=0.5*(W+EN);
W1:=D1;
D2:=D1-EN;
W2:=D2;
X1:=GN*XN/(GN-W1);
X2:=XK;
T1:=TVP1+DTGS1;
WRITELN('ТЕМПЕРАТУРА КИПЕНИЯ СУСПЕНЗИИ В ПЕРВОМ СЕПАРАТОРЕ, ГРАД=',T1:6:3);
PK:=1-PV;
V:=PK;
FOR J:=1 TO 54 DO
IF A[2,J]>=V THEN
BEGIN
V:=M;
F:=J;
END;
TVP2:=A[1,F]-((A[1,F]-A[1,F-1])*(A[2,F]-PK)/(A[2,F]-A[2,F-1]));
T2:=TVP2+DTGS2;
WRITELN('ТЕМПЕРАТУРА КИПЕНИЯ ВО ВТОРОМ СЕПАРАТОРЕ, ГРАД=',T2:6:3);
V:=T1;
FOR J:=1 TO 54 DO
IF A[1,J]>=V THEN
BEGIN
V:=M;
F:=J;
END;
P1:=A[2,F]-((A[2,F]-A[2,F-1])*(A[1,F]-T1)/(A[1,F]-A[1,F-1]));
V:=T2;
FOR J:=1 TO 54 DO
IF A[1,J]>=V THEN
BEGIN
V:=M;
F:=J;
END;
P2:=A[2,F]-((A[2,F]-A[2,F-1])*(A[1,F]-T2)/(A[1,F]-A[1,F-1]));
WRITELN('ВВЕДИТЕ ПЛОТНОСТЬ ДРОЖЖЕВОЙ СУСПЕНЗИИ ПРИ ТЕМПЕРАТУРЕ=',T1:6:2);
WRITE('И КОНЦЕНТРАЦИИ АСВ=',X1:6:2);
WRITE(' RO1=');
READLN(RO1);
PSR1:=P1+(RO1*G*H)/196200;
WRITELN('ВВЕДИТЕ ПЛОТНОСТЬ ДРОЖЖЕВОЙ СУСПЕНЗИИ ПРИ ТЕМПЕРАТУРЕ=',T2:6:2);
WRITE('И КОНЦЕНТРАЦИИ АСВ=',X2:6:2);
WRITE(' RO2=');
READLN(RO2);
PSR2:=P2+(RO2*G*H)/196200;
V:=PSR1;
FOR J:=1 TO 54 DO
IF A[2,J]>=V THEN
BEGIN
V:=M;
F:=J;
END;
TKIP1:=A[1,F]-((A[1,F]-A[1,F-1])*(A[2,F]-PSR1)/(A[2,F]-A[2,F-1]));
V:=PSR2;
FOR J:=1 TO 54 DO
IF A[2,J]>=V THEN
BEGIN
V:=M;
F:=J;
END;
TKIP2:=A[1,F]-((A[1,F]-A[1,F-1])*(A[2,F]-PSR2)/(A[2,F]-A[2,F-1]));
DTGEF1:=TKIP1-T1;
DTGEF2:=TKIP2-T2;
DTPOT:=DTGS1+DTGS2+DTGEF1+DTGEF2;
P:=PN;
V:=PN;
FOR J:=1 TO 54 DO
IF A[2,J]>=V THEN
BEGIN
V:=M;
F:=J;
END;
TGP:=A[1,F]-((A[1,F]-A[1,F-1])*(A[2,F]-PN)/(A[2,F]-A[2,F-1]));
DTPOL1:=TGP-TKIP1;
DTPOL2:=TVP1-TKIP1;
SDTPOL1:=DTPOL1+DTPOL2;
SDTPOL2:=TGP-TVP2-DTPOT;
WRITELN('РЕЗУЛЬТАТЫ ПРЕДВАРИТЕЛЬНОГ РАСЧЕТА');
WRITELN('ОБЩЕЕ КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ W, КГ/С=',W:6:3);
WRITELN('КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ В ПЕРВОМ КОРПУСЕ W1, КГ/С',W1:6:3);
WRITELN('КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ ВО ВТОРОМ КОРПУСЕ W2, КГ/С',W2:6:3);
WRITELN('КОЛИЧЕСТВО ГРЕЮЩЕГО ПАРА В ПЕРВОМ КОРПУСЕ D1, КГ/С',D1:6:3);
WRITELN('КОЛИЧЕСТВО ГРЕЮЩЕГО ПАРА ВО ВТОРОМ КОРПУСЕ D2, КГ/С',D2:6:3);
WRITELN('СРЕДНЯЯ ТЕМПЕРАТУРА КИПЕНИЯ СУСПЕНЗИИ В ПЕРВОМ КОРПУСЕ ТКИП1, ГРАД=',TKIP1:6:3);
WRITELN('СРЕДНЯЯ ТЕМПЕРАТУРА КИПЕНИЯ СУСПЕНЗИИ ВО ВТОРОМ КОРПУСЕ ТКИП2, ГРАД=',TKIP2:6:3);
WRITELN('ПОЛЕЗНАЯ РАЗНОСТЬ ТЕМПЕРАТУР В ПЕРВОМ КОРПУСЕ ТПОЛ1, ГРАД=',DTPOL1:6:3);
WRITELN('ПОЛЕЗНАЯ РАЗНОСТЬ ТЕМПЕРАТУР В ПЕРВОМ КОРПУСЕ ТПОЛ2, ГРАД=',DTPOL2:6:3);
WRITE('СУММАРНАЯ ПОЛЕЗНАЯ РАЗНОСТЬ ТЕМПЕРАТУР, ГРАД=',SDTPOL1:6:3);
WRITELN('ИЛИ',SDTPOL2:6:3);
{МЕТОД ТИЩЕНКО}
V:=TKIP1;
FOR J:=1 TO 54 DO
IF A[1,J]>=V THEN
BEGIN
V:=M;
F:=J;
END;
I1:=A[4,F]-((A[4,F]-A[4,F-1])*(A[1,F]-TKIP1)/(A[1,F]-A[1,F-1]))/4.19;
V:=TKIP2;
FOR J:=1 TO 54 DO
IF A[1,J]>=V THEN
BEGIN
V:=M;
F:=J;
END;
I2:=A[4,F]-((A[4,F]-A[4,F-1])*(A[1,F]-TKIP2)/(A[1,F]-A[1,F-1]))/4.19;
BETA1:=(TN-TKIP1)/(I1-TKIP1);
BETA2:=(TKIP1-TKIP2)/(I2-TKIP2);
WRITELN('ВВЕДИТЕ ТЕПЛОЕМКОСТЬ ДРОЖЖЕВОЙ СУСПЕНЗИИ ПРИ ТЕМПЕРАТУРЕ=',TN:6:2);
WRITE('И КОНЦЕНТРАЦИИ АСВ=',XN:6:2);
WRITE(' CN=');
READLN(CN);
D1T:=(W-GN*CN*(2*BETA1+BETA2)+EN)/(2-BETA2);
W1T:=D1T+GN*CN*BETA1;
D2T:=W1T-EN;
W2T:=D2T+(GN*CN-W1T)*BETA2;
WT:=W1T+W2T;
WRITELN('РЕЗУЛЬТАТЫ РАСЧЕТА ПО МЕТОДУ ТИЩЕНКО');
WRITELN('ОБЩЕЕ КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ W, КГ/С=',WT:6:3);
WRITELN('КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ В ПЕРВОМ КОРПУСЕ W1, КГ/С',W1T:6:3);
WRITELN('КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ ВО ВТОРОМ КОРПУСЕ W2, КГ/С',W2T:6:3);
WRITELN('КОЛИЧЕСТВО ГРЕЮЩЕГО ПАРА В ПЕРВОМ КОРПУСЕ D1, КГ/С',D1T:6:3);
WRITELN('КОЛИЧЕСТВО ГРЕЮЩЕГО ПАРА ВО ВТОРОМ КОРПУСЕ D2, КГ/С',D2T:6:3);
{МЕТОД КОСТЕНКО}
B1:=GN*CN*BETA1*DELTA1;
B2:=GN*CN*(BETA1*DELTA1*DELTA2+BETA2*DELTA2-DELTA1*DELTA2*BETA1*BETA2)-EN*DELTA2;
A2:=(A1-A1*BETA2)*DELTA2;
D1K:=(W-(B1+B2))/(A1+A2);
W1K:=D1K*A1+B1;
D2K:=W1K-EN;
W2K:=D1K*A2+B2;
WK:=D1K*(A1+A2)+(B1+B2);
WRITELN('РЕЗУЛЬТАТЫ РАСЧЕТА ПО МЕТОДУ КОСТЕНКО');
WRITELN('ОБЩЕЕ КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ W, КГ/С=',WK:6:3);
WRITELN('КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ В ПЕРВОМ КОРПУСЕ W1, КГ/С',W1K:6:3);
WRITELN('КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ ВО ВТОРОМ КОРПУСЕ W2, КГ/С',W2K:6:3);
WRITELN('КОЛИЧЕСТВО ГРЕЮЩЕГО ПАРА В ПЕРВОМ КОРПУСЕ D1, КГ/С',D1K:6:3);
WRITELN('КОЛИЧЕСТВО ГРЕЮЩЕГО ПАРА ВО ВТОРОМ КОРПУСЕ D2, КГ/С',D2K:6:3);
{ТЕПЛОВОЙБАЛАНС}
V:=TGP;
FOR J:=1 TO 54 DO
IF A[1,J]>=V THEN
BEGIN
V:=M;
F:=J;
END;
LAMBDA1:=A[4,F]-((A[4,F]-A[4,F-1])*(A[1,F]-TGP)/(A[1,F]-A[1,F-1]))/4.19;
TAU1:=A[3,F]-((A[3,F]-A[3,F-1])*(A[1,F]-TGP)/(A[1,F]-A[1,F-1]))/4.19;
V:=TKIP1;
FOR J:=1 TO 54 DO
IF A[1,J]>=V THEN
BEGIN
V:=M;
F:=J;
END;
TAU2:=A[3,F]-((A[3,F]-A[3,F-1])*(A[1,F]-TKIP1)/(A[1,F]-A[1,F-1]))/4.19;
C1:=GN*CN*TN;
C2:=EN*I1;
WRITELN('ВВЕДИТЕ ТЕПЛОЕМКОСТЬ ДРОЖЖЕВОЙ СУСПЕНЗИИ ПРИ ТЕМПЕРАТУРЕ=',T2:6:2);
WRITE('И КОНЦЕНТРАЦИИ АСВ=',XK:6:2);
WRITE(' CK=');
READLN(CK);
GK:=GN-W;
C3:=GK*CK*T2;
QPOT1:=((D1*LAMBDA1+C1)-(C2+W2*I2+D1*TAU1+D2*TAU2+C3))*100/(D1*LAMBDA1+C1);
QPOT2:=((D1T*LAMBDA1+C1)-(C2+W2*I2+D1T*TAU1+D2*TAU2+C3))*100/(D1T*LAMBDA1+C1);
QPOT3:=((D1K*LAMBDA1+C1)-(C2+W2*I2+D1K*TAU1+D2*TAU2+C3))*100/(D1K*LAMBDA1+C1);
WRITELN('ТЕМПЕРАТУРА ГРЕЮЩЕГО ПАРА TGP=',TGP:8:3);
WRITELN('ДАВЛЕНИЕ P1=',P1:6:3);
WRITELN('ДАВЛЕНИЕ P2=',P2:6:3);
WRITELN('ТЕМПЕРАТУРА TVP2=',TVP2:8:3);
WRITELN('ТЕПЛОВЫЕ ПОТЕРИ');
WRITELN('ПО ПРЕДВАРИТЕЛЬНОМУ РАСЧЕТУ QPOT=',QPOT1:6:3);
WRITELN('ПО МЕТОДУ ТИЩЕНКО QPOT=',QPOT2:6:3);
WRITELN('ПО МЕТОДУ КОСТЕНКО QPOT=',QPOT3:6:3);
READLN;
END.
Результаты работы программы
ИСХОДНЫЕ ДАННЫЕ:
РАСХОД ДРОЖЖЕВОЙ СУСПЕНЗИИ, ПОСТУПАЮЩЕЙ НА ВЫПАРКУ GN, М3/Ч=42
НАЧАЛЬНАЯ КОНЦЕНТРАЦИЯ ДРОЖЖЕВОЙ СУСПЕНЗИИ XN, % МАСС=12.4
КОНЕЧНАЯ КОНЦЕНТРАЦИЯ ДРОЖЖЕВОЙ СУСПЕНЗИИ XК, % МАСС=21
ТЕМПЕРАТУРА ДРОЖЖЕВОЙ СУСПЕНЗИИ ТН, ГРАД=90
КОЛИЧЕСТВО ОТВОДИМОГО ЭКСТРАПАРА ЕН, Т/Ч=1.32
ДАВЛЕНИЕ ГРЕЮЩЕГО ПАРА РН, АТМ=1.47
ДАВЛЕНИЕ В БАРОМКОНДЕНСАТОРЕ РВ, АТМ=0.77
ВВЕДИТЕ ПЛОТНОСТЬ ДРОЖЖЕВОЙ СУСПЕНЗИИ ПРИ ТЕМПЕРАТУРЕ= 90.00
И КОНЦЕНТРАЦИИ АСВ= 12.40 RO=1008
ТЕМПЕРАТУРА КИПЕНИЯ СУСПЕНЗИИ В ПЕРВОМ СЕПАРАТОРЕ, ГРАД=90.500
ТЕМПЕРАТУРА КИПЕНИЯ ВО ВТОРОМ СЕПАРАТОРЕ, ГРАД=62.000
ВВЕДИТЕ ПЛОТНОСТЬ ДРОЖЖЕВОЙ СУСПЕНЗИИ ПРИ ТЕМПЕРАТУРЕ= 90.50
И КОНЦЕНТРАЦИИ АСВ= 15.80 RO1=1025
ВВЕДИТЕ ПЛОТНОСТЬ ДРОЖЖЕВОЙ СУСПЕНЗИИ ПРИ ТЕМПЕРАТУРЕ= 62.00
И КОНЦЕНТРАЦИИ АСВ= 21.00 RO2=1040
РЕЗУЛЬТАТЫ ПРЕДВАРИТЕЛЬНОГ РАСЧЕТА
ОБЩЕЕ КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ W, КГ/С= 4.827
КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ В ПЕРВОМ КОРПУСЕ W1, КГ/С 2.354
КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ ВО ВТОРОМ КОРПУСЕ W2, КГ/С 2.479
КОЛИЧЕСТВО ГРЕЮЩЕГО ПАРА В ПЕРВОМ КОРПУСЕ D1, КГ/С 2.060
КОЛИЧЕСТВО ГРЕЮЩЕГО ПАРА ВО ВТОРОМ КОРПУСЕ D2, КГ/С 2.232
СРЕДНЯЯ ТЕМПЕРАТУРА КИПЕНИЯ СУСПЕНЗИИ В ПЕРВОМ КОРПУСЕ ТКИП1, ГРАД=106.369
СРЕДНЯЯ ТЕМПЕРАТУРА КИПЕНИЯ СУСПЕНЗИИ ВО ВТОРОМ КОРПУСЕ ТКИП2, ГРАД=102.415
ПОЛЕЗНАЯ РАЗНОСТЬ ТЕМПЕРАТУР В ПЕРВОМ КОРПУСЕ ТПОЛ1, ГРАД=13.562
ПОЛЕЗНАЯ РАЗНОСТЬ ТЕМПЕРАТУР В ПЕРВОМ КОРПУСЕ ТПОЛ2, ГРАД=12.929
СУММАРНАЯ ПОЛЕЗНАЯ РАЗНОСТЬ ТЕМПЕРАТУР, ГРАД= 26.558
ВВЕДИТЕ ТЕПЛОЕМКОСТЬ ДРОЖЖЕВОЙ СУСПЕНЗИИ ПРИ ТЕМПЕРАТУРЕ= 97.00
И КОНЦЕНТРАЦИИ АСВ= 12.40 CN=3.55
РЕЗУЛЬТАТЫ РАСЧЕТА ПО МЕТОДУ ТИЩЕНКО
ОБЩЕЕ КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ W, КГ/С= 4.844
КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ В ПЕРВОМ КОРПУСЕ W1, КГ/С 2.383
КОЛИЧЕСТВО ВЫПАРИВАЕМОЙ ВОДЫ ВО ВТОРОМ КОРПУСЕ W2, КГ/С 2.463
КОЛИЧЕСТВО ГРЕЮЩЕГО ПАРА В ПЕРВОМ КОРПУСЕ D1, КГ/С 2.397
КОЛИЧЕСТВО ГРЕЮЩЕГО ПАРА ВО ВТОРОМ КОРПУСЕ D2, КГ/С 2.067
ТЕМПЕРАТУРА ГРЕЮЩЕГО ПАРА TGP= 109.541
ДАВЛЕНИЕ P1= 0.71
ДАВЛЕНИЕ P2= 0.23
ТЕМПЕРАТУРА TVP2= 64.199
ТЕПЛОВЫЕ ПОТЕРИ
ПО МЕТОДУ ТИЩЕНКО QPOT= 344,35
| Обозначение | Расшифровка |
| А | матрица табличных данных |
| tvp1, tvp2 | Температуры конденсации вторичных паров в 1 и 2 корпусе |
| Dtgs1, dtgs2 | Температурные потери от гидравлических сопротивлений |
| Tgp | Полезные разности температур в 1 и 2 корпусе |
| H | Высота от верхнего уровня жидкости в сепараторе до середины греющих труб |
| ρ0, ρ02 | Плотности суспензии при температурах Т1 и Т2 |
| Gn | Начальный расход выпариваемого раствора |
| Xn, xk | Начальная и конечная концентрации суспензии |
| tn | Начальная температура |
| En | Количество отводимого экстра-пара в сепараторе |
| T1, t2 | Температуры кипения суспензии в 1 и 2 сепараторе |
| Pn | Давление греющего пара |
| Pв | Давление в баромконденсаторе |
| P1,P2 | Давление в 1 и 2 сепараторах |
| Psr1, Psr2 | Давление в среднем слое выпариваемой суспензии в 1 и 2корпусе |
| W | Общее количество выпариваемой воды |
| W1, W2 | Количество выпариваемой воды в1 и 2 корпусе |
| Tkip1, Tkip2 | Средние температуры кипения в 1 и 2 корпусе |
| Tpol1, Tpol2 | Полезные разности температур в 1 и 2 корпусе |
| D1, D2 | Количество греющего пара в 1 и 2 корпусе |
| Dtgf1, Dtgf2 | Температурные потери от гидростатического эффекта |
| Dtpot | Сумма всех температурных потерь для установки |
| Tgp | Температура греющего пара |
| a1,a2,b1,b2 | Числовые коэффициенты |
| i1, i2 | Удельная энтальпия пара |
| Qpot1,Qpot2, Qpot3 | Тепловые потери |
| Beta1, Beta2 | Коэффициенты самоиспарения |
| Cn, Ck | Теплоемкости дрожжевой суспензии |
| Tau1, Tau2 | Удельные энтальпии жидкости |
| Lamda1,lamda2 | Теплопроводность дрожжевой суспензии |
| J | Количество выбранных табличных значений |
| F | Номер выбранных табличных значений |
| G | Ускорение свободного падения |
Список идентификаторов к программе