Курсовая работа: Математическое моделирование тепловой работы вращающейся печи

ROB:=1.293; {Плотность воздуха, кг/м3 (н.у.)}

NB:=ROB*VB0/R0; {Стехиометрический коэффициент, кг/кг}

GB0:=NB*G0*ALB; {Начальный расход горячего воздуха, кг/с}

TB:=550; {Температура горячего воздуха,°C}

HB:=(1.287+0.0001201*TB)*TB; {Энтальпия горячего воздуха, кДж/кг}

{Объем продуктов горения, м3/м3 топлива}

V1:= 1; {Углекислый газ}

V2:= 2.12; {Водяной пар}

V3:= 7.49; {Азот}

VG0:=10.61; {Продукты стехиометрического горения}

End;

{============================================================================}

Procedure tFurnace. Fakel;

{============================================================================}

{Расчет параметров диффузионного факела}

varGP, ROP, HBP, HHF, HHB, ROD, RS, GTB, MG, ZT: real;

XX, XB, XXB, LX, LXB, SC1, SC2: real;

Begin

Date;

ROF:=R0; ROV:=1.3; CF:=1.5;

Names;

WhileGB*G0<=GB0 dobegin {переход к очередному сечению}

{Расстояние от горелки до расчетного сечения, D0*м}

X:=X+1;

{Параметры факела в предыдущем сечении}

GP:=GB; ROP:=ROF; TP:=TF; QP:=QF;

repeat {начало итераций}

{Средняя плотность факела на очередном малом участке, кг/м3}

ROD:=(ROP+ROF)/2;