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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

14
SfPt
000
= ( , )
SfP
11
'' = ( )
SS
01
> ''
SfP
11
' = ( )
xSSSS
10111t
= ( - ') / ( '' - ' ))
hfP
11
' = ( )
hfP
11
'' = ( )
hhxhh
11111tt
= ' + *( '' - ')
h fP S
110t
= ( , )
Мокрый пар
(рис. 1.4, )б
Перегретый пар
(рис 1.4, ) а
Да
Рис. 1.5
Приведем пример программы, работающей по этому алгоритму.
Program PROCESS1;
Uses TABL1;
Var P0,t0,h0,S0,S1,h1t,S1I,S1II,h1I,h1II,x1t : real;
Begin
Writeln (‘ Введите P0 [МПа], t0 [C], P1[МПа] ’);
Readln (P0, t0, P1);
h0:=H_PT(P0, t0); S0:=S_PT(P0, t0);
S1II:=SSP_P(P1);
If S0>S1II then begin {перегретый пар в конце теор. расширения}
h1t:=H_PS(P1,S0) end
else begin {мокрый пар в конце теор. расширения}
S1I:=SSW_P(P1);
x1t:=(S0-S1I)/(S1II-S1I);
h1I:=HSW_P(P1);
h1II:=HSP_P(P1);
h1t:= h1I+x1t*(h1II-h1I) end;
Writeln (‘h1t=’, h1t:7:1);
Readln;
End.

Страницы