Моделирование систем. Давыдов Р.В - 78 стр.

UptoLike

ВУЗ: 

АГТА | Ангарск

Составители: 

Рубрика: 

XF,R,P,B,XD,XW,M:REAL;
:=20; {Расход куба}
L:=45; {
:=6; {Расход пара}
дистиллята}
нцентрация жидкой фазы в питании}
ент массопередачи}
; {Коэффициент пропорциональности}
{Равновесная концентрация пара уходящего из куба}
L);
I:=1 to N DO BEGIN
Z[I]-Y[I-1]);
ТАРЕЛКЕ= ',Y[I]:8:7);readln;
O N-1 DO BEGIN
];
НЦ.ДИСТИЛЛЯТА XD= ', XD:8:7);read;
= ',M:8:7);readln;
8504
РА НА 2 ТАРЕЛКЕ= 1.0890336
0594943
.ПАРА НА 4 ТАРЕЛКЕ= 1.0311796
ЛКЕ= 1.0040386
ОНЦ.ПАРА НА 7 ТАРЕЛКЕ= 0.9530855
BEGIN
F:=27; {Расход питания}
W
Расход орошения}
G
D:=0.3; {Расход
XF:=0.8; {Ко
P:=22; {Тарелка питания}
R:=0.3; {Приведённый коэффици
B:=1.8
XW:=XF·0.8;
YP:=XW·B;
X[1]:=(G·YP+W·XW)/(F+
Y[0]:=YP;
FOR
YZ[I]:=X[I]·B;
Y[I]:=Y[I-1]+(1-EXP(-R/G))·(Y
IF I<=P THEN
S:=L+F
ELSE S:=L;
X[I+1]:=(G·Y[I]+S·X[I]-G·Y[I-1])/S;
WRITELN('КОНЦ.ПАРА НА ',I,'
END;
WRITELN;
FOR I:=0 T
WRITELN('КОНЦ.ЖИДК НА ',I+1,' ТАРЕЛКЕ= ',X[N-I]:8:7);readln;
END;
XD:=Y[N-1
M:=F·XF-D·XD-W·XW;
WRITELN ('КО
WRITELN ('МАТЕРИАЛЬНЫЙ
БАЛАНС M
END.
КОНЦ.ПАРА НА 1 ТАРЕЛКЕ= 1.119
КОНЦ.ПА
КОНЦ.ПАРА НА 3 ТАРЕЛКЕ= 1.
КОНЦ
КОНЦ.ПАРА НА 5 ТАРЕ
КОНЦ.ПАРА НА 6 ТАРЕЛКЕ= 0.9780228
К
78
XF,R,P,B,XD,XW,M:REAL;
BEGIN
F:=27;        {Расход питания}
W:=20;        {Расход куба}
L:=45;        {Расход орошения}
G:=6;        {Расход пара}
D:=0.3;      {Расход дистиллята}
XF:=0.8;      {Концентрация жидкой фазы в питании}
P:=22;       {Тарелка питания}
R:=0.3;      {Приведённый коэффициент массопередачи}
B:=1.8;      {Коэффициент пропорциональности}
XW:=XF·0.8;
YP:=XW·B;        {Равновесная концентрация пара уходящего из куба}
X[1]:=(G·YP+W·XW)/(F+L);
Y[0]:=YP;
   FOR I:=1 to N DO BEGIN
YZ[I]:=X[I]·B;
Y[I]:=Y[I-1]+(1-EXP(-R/G))·(YZ[I]-Y[I-1]);
   IF I<=P THEN
S:=L+F
   ELSE S:=L;
X[I+1]:=(G·Y[I]+S·X[I]-G·Y[I-1])/S;
WRITELN('КОНЦ.ПАРА НА ',I,' ТАРЕЛКЕ= ',Y[I]:8:7);readln;
   END;
WRITELN;
   FOR I:=0 TO N-1 DO BEGIN
WRITELN('КОНЦ.ЖИДК НА ',I+1,' ТАРЕЛКЕ= ',X[N-I]:8:7);readln;
END;
XD:=Y[N-1];
M:=F·XF-D·XD-W·XW;
WRITELN ('КОНЦ.ДИСТИЛЛЯТА XD= ', XD:8:7);read;
WRITELN ('МАТЕРИАЛЬНЫЙ БАЛАНС M= ',M:8:7);readln;
END.


КОНЦ.ПАРА НА 1 ТАРЕЛКЕ= 1.1198504

КОНЦ.ПАРА НА 2 ТАРЕЛКЕ= 1.0890336

КОНЦ.ПАРА НА 3 ТАРЕЛКЕ= 1.0594943

КОНЦ.ПАРА НА 4 ТАРЕЛКЕ= 1.0311796

КОНЦ.ПАРА НА 5 ТАРЕЛКЕ= 1.0040386

КОНЦ.ПАРА НА 6 ТАРЕЛКЕ= 0.9780228

КОНЦ.ПАРА НА 7 ТАРЕЛКЕ= 0.9530855

                                        78

Страницы