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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

132
η
t
t
0
η
t
max
t
0
опт
tfP
КР КР
=( )
а
b
′′=
f()St
00S
=
fP()S
КК
′
=
fP()S
КК
′
=
fP()S
КК
′′
=
f()ht
00
′′
S
XSSSS
КККК
t
=
(-)/(-)
0
′′ ′ ′
′′
η′′ ′′′
t
=
(-)/(-)hh hh
00
КК
t
hXhh
ККККК
tt
= h ′′′′
+(-)⋅
Ввод
, Pt
К
0S
Вывод
η
t1
η
tt1
= -
η
Pf
0
=
()t
0S
=
fP()S
КК
′′
Рис. 4.21. Зависимость термического
КПД цикла Ренкина от начальной
температуры пара:
а – сухой насы-
щенный пар; b – перегретый пар
Рис. 4.22. Блок-схема расчета
термического КПД цикла Ренкина
сухого насыщенного пара
5. Программа расчета максимального значения КПД методом
перебора
Программа составлена в соответствии с алгоритмом метода пере-
бора (см. рис. 2.9). Ввод исходных данных для простоты приведен в тек-
сте основной программы.
Program KPDmax;
Uses TABL1;
Var t0min, t0max, … : real;
Function KPDt(t0S:real):real; {Начало функции}
Begin P0:=PST(t0S);
…
KPDt:= … ;
End; {Конец функции}
Begin {Начало основной программы}
PK:=0.005; {МПа}
Pkr:=22; {МПа}
DELT:=1; { Шаг изменения начальной температуры, °С };
t0min:=TSP(PK);
t0max:=TSP(Pkr);
KPDmin:= 1E10;
REPEAT
t1:=t0min; f1:= – KPDt(t1);
If f1<=KPDmin then Begin KPDmin:=f1;
t0opt:=t1 End;
t1:=t1+DELt;
UNTIL t1> t0max;
KPDmax:= – KPDmin;
Writeln (‘KPDmax=’, KPDmax:6:4, ‘Оптим. tos=’, t0opt:6:1); End.

Страницы