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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

39
Программа расчета t
в2
методом половинного деления
Program POL_DEL;
Uses TABL1; { Подключение модуля расчета т/д параметров }
Const Cp=4,19; KPD:=0,99;
Var P1, t1,… : real;
Function F(tв2: real): real;
Begin { Начало функции}
delt:= (tв2-tв1)/ln((ts1-tв1)/(ts1-tв2));
Q1:= Gв*(tв2-tв1)*Cp;
Q2:= K*F* delt;
F:=Q1-Q2;
End; { Конец функции}
Begin {Начало основной программы}
{Ввод исходных данных в программе}
P1:=0,1; {МПа} t1:=240; {C} Gв:=100; {кг/c} tв1:=70; {C}
F:=380; {м
2
} K:=3; {КВт/(м
2
*К)}
Eps:=0,05; {Погрешность расчета}
{Конец ввода исходных данных}
h1:=H_PT(P1,t1); { Обращение к функции из модуля TABL1 }
ts1:=TSP(P1); { Обращение к функции из модуля TABL1 }
h1I:= TSW_P(P1); { Обращение к функции из модуля TABL1 }
a:=tв1+0.01;
b:=ts1-0.01;
Repeat
c:=(a+b)/2;
F1:=F(a)*F(c);
If F1<=0 then b=c else a=c;
Until (b-a)<=Eps;
tв2:=(a+b)/2;
Ned:=ts1-tв2; {Недогрев, °С}
Q:=Gв*(tв2-tв1)*Cp; {Тепловая нагрузка, кВт}
D:=Q/(h1-h1I)/KPD; {Расход пара, кг/с}
Writeln (Q:9:1, D:5:1, tв2:6:1);
Readln;
End. {Конец программы}

Страницы