Проблемно-ориентированная информатика химико-технологических процессов. Кравцов А.В - 21 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

ΔP
H
d
w
э
г
=⋅ ⋅
⋅
λ
ρ
2
2
где H - высота слоя, м,
d
э
- эквивалентный диаметр, м,
ρ - плотность газа, кг/м
3
,
w
г
- скорость газа, м/с.
Коэффициент гидравлического сопротивления рассчитывается по
формуле:
⎩
⎨
⎧
≥
<
=
40Re,Re16
40Re,Re140
2.0
λ
где Re - критерий Рейнольдса – равен:
Re =
⋅
⋅
wd
гэ
ρ
μ
.
μ - динамическая вязкость газа, Па⋅с.
Рассмотрим пример решения задачи с использованием оператора
цикла
WHILE ... DO.
VAR dP, L, H, d, w, p, Re, m, wn, wk, hw:real;
BEGIN
H:=1; d:=0.005; p:=1.35; m:=2.45E-6;
writeln(’ wn wk hw’);
readln(wn,wk,hw);
writeln(’ w Re L dP’);
w:=wn;
WHILE w<=wk DO
BEGIN
Re:=w∗d∗p/m;
IF Re<40 THEN L:=140/Re ELSE L:=16/exp(0.2∗ln(Re));
dP:=L∗H/d∗sqr(w)∗p/2;
writeln(w:5:2,’ ’,Re:10,’ ’,L:10,’ ’,dP:10);
w:=w+wh;
END;
END.
Рассмотрим пример решения задачи с использованием оператора
цикла
REPEAT ... UNTIL.
VAR dP, L, H, d, w, p, Re, m, wn, wk, hw:real;
21

Страницы