Методы оптимизации и расчеты на ЭВМ технико-экономических задач. Ромашова О.Ю. - 30 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

30
5.
Сравниваем
c
α
и
∗
α
c
. Если ε>
α
α−α
∗
c
cc
, где
ε
– наперед задан-
ная погрешность, то полагаем
cc
α=α
∗
и расчет повторяем, начиная с п. 2.
В противном случае переходим к п. 6.
6.
Рассчитываем подогреватель П3, не входящий в замкнутый
контур, и определяем расход пара
3
α
:
)(98,0))()()((
3в031с.в.1333 k
hhhhhh
′
−
⋅
α
=
⋅
′
−
′
⋅
α+α+
′
−⋅α
. (1.10)
Блок-схема расчета относительных расходов рабочего тела для
схемы на рис. 1.18 приведена на рис. 1.20.
Перед составлением программы расчета относительных расходов
требуется переписать уравнения (1.7–1.10), выразив из них соответст-
вующие переменные:
)/()99,0(
2c2c2cс.п.
hhhh
′
−
′
⋅
α
−
⋅⋅
α
=α ; (a)
c.п.cc.в.
α−α=α ; (b)
)/())(98,0/)((
1112с.в.3в1в01
hhhhhh
′
−
′
−
′
⋅
α
−
−⋅α=α ; (c)
...
3
=α (d)
Программа, соответствующая алгоритму на рис. 1.20, представле-
на ниже.
PROGRAM ITERAC;
USES TABL1;
VAR h0,h1,h2,hc,hk,… : VAR;
BEGIN
{ Ввод исходных данных } A0:=1; Eps=0.005; …
Ac:=0.8; { Начальное приближение }
REPEAT
Ac_p:= …; { Из уравнения a}
Ac_w:= …; { Из уравнения b }
A1:=…; { Из уравнения c }
AAс:=Aс; { Переприсвоение }
Ac:=A0-A1; { Уточнение }
B:=(AAc-Ac)/Ac;
UNTIL ABS(B)<=Eps;
A3:=…; { Из уравнения d }
WRITELN(‘A1=’,A1:7:4,’Ac=’, Ac:7:4, …);
READLN;
END.

Страницы