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

K1:=PS*((0.78+1.6*PH)/sqrt (PS*LR) – 0.1)*(1–0.37*(TG+273)/1000);

{Степень черноты факела}

EG:=1-exp (-K1*LR);

{Коэффициент поглощения при температуре стенки, 1/м}

K2:=PS*((0.78+1.6*PH)/sqrt (PS*LR) – 0.1)*(1–0.37*(TM+273)/1000);

{Поглощательная способность факела}

AG:=1-exp (-K2*LR);

{Приведенная степень черноты}

ES:=1/(1/AG+(1/EW1–1)*FF/FW);

{Поток результирующего излучения факела, кВт}

QF:=QP+ES*SI*(EG/AG*sqr (sqr(TG+273)) – sqr (sqr(TM+273)))*FF/1000;

End;

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

Procedure tFurnace. Names;

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

Begin

Assign (File1,'Furnace.txt'); Rewrite(File1);

Writeln(File1); Writeln (file1,' ИСХОДНЫЕДАННЫЕ:');

Writeln (file1,' Внутреннийдиаметрпечи DW:=', DW:5:2,' м');

Writeln (file1,' Toлщинафутеровки HW:=', HW*1000:4:0,' мм');

Writeln (file1,' Температура обжигаемого материала TM:=', TM:5:0,'°C');

Writeln (file1,' Низшая теплота сгорания топлива QT:=', QT:5:0,' кДж/кг');

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

Writeln (file1,' Расход топлива через горелку G0:=', G0:5:3,' кг/с');

Writeln (file1,' Скорость истечения топлива из горелки U0:=', U0:5:1,' м/с');

Writeln (file1,' Диаметр горелки D0:=', D0*1000:3:0,' мм');

Writeln (file1,' Коэффициент избытка воздуха ALB:=', ALB:3:2);

Writeln (file1,' Температура горячего воздуха TB:=', TB:4:0,'°C');

Writeln(File1);