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

Procedure Fakel;

Procedure GasPost;

Procedure GasHeat;

Procedure HeatLine;

Function fHdis:real;

Procedure Names;

Procedure Result;

Procedure Nomina;

end;

var Furnace: tFurnace;

Var File1: text;

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

Procedure tFurnace. Date;

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

{Исходныеданные}

Begin

DK:=6.2; {Диаметр корпуса печи, м}

HW:=0.265; {Толщина футеровки, м}

HW1:=HW*0.2; {Толщина гарнисажного слоя, м}

DW:=4.6–2*(HW+HW1); {Внутренний диаметр печи, м}

TM:=1465; {Температура обжигаемого материала,°C}

EW1:=0.7; {Степень черноты внутренней поверхности стенки}

QT:=35510; {Низшая теплота сгорания топлива, кДж/кг}

R0:=0.740; {Плотность топлива, кг/м3 (н.у.)}

BT:=7000; {Расход топлива через горелку, м3/ч (н.у.)}

G0:=BT*R0/3600; {Расход топлива через горелку, кг/с}

U0:=160; {Скорость истечения топлива из горелки, м/с}

D0:=Sqrt (4*G0/R0/U0/Pi); {Диаметр горелки, м}

ALB:=1.12; {Коэффициент избытка воздуха}