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

UptoLike

ВУЗ: 

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

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

Рубрика: 

F:=25; {Расход питания}
W:=20; {Расход куба}
L:=42;
:=6; {Расход пара}
дистиллята}
{Концентрация жидкой фазы в питании}
ффициент массопередачи}
; {Коэффициент пропорциональности}
{Равновесная концентрация пара уходящего из куба}
L);
I:=1 to N-1 DO BEGIN
[I-1]);
КЕ= ',Y[I]:8:7);readln;
O N-1 DO BEGIN
];
НЦ.ДИСТИЛЛЯТА XD= ', XD:8:7);read;
= ',M:8:7);readln;
6440
РА НА 2 ТАРЕЛКЕ= 1.0925299
0646068
.ПАРА НА 4 ТАРЕЛКЕ= 1.0378260
ЛКЕ= 1.0121408
ОНЦ.ПАРА НА 7 ТАРЕЛКЕ= 0.9638796
{Расход орошения}
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))·(YZ[I]-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.121
КОНЦ.ПА
КОНЦ.ПАРА НА 3 ТАРЕЛКЕ= 1.
КОНЦ
КОНЦ.ПАРА НА 5 ТАРЕ
КОНЦ.ПАРА НА 6 ТАРЕЛКЕ= 0.9875063
К
КОНЦ.ПАРА НА 8 ТАРЕЛКЕ= 0.9412195
72
F:=25;             {Расход питания}
W:=20;              {Расход куба}
L:=42;             {Расход орошения}
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-1 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.1216440

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

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

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

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

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

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

КОНЦ.ПАРА НА 8 ТАРЕЛКЕ= 0.9412195

                                        72

Страницы