Реферат Математичне моделювання теплової роботи обертової печі

p> var TG, FF, FW, PC, PH, PS, LR, K1, K2: real;

Begin

{Середня температура факела на малій ділянці, В° C}

TG: = (TP + TF)/2;

{Розрахункова поверхню малого ділянки факела, м2}

FF: = 2 * PI * RF * D0;

{Внутрішня поверхня стінки печі, м2}

FW: = PI * DW * D0;

{Об'ємні частки випромінювальних газів}

PC: = P1 * PG + PT; {вуглекислий газ + паливо}

PH: = P2 * PG; {водяна пара}

PS: = PC + PH; {трьохатомні гази}

{Ефективна товщина випромінюючого шару, м}

LR: = 1.8 * RF;

{Коефіцієнт поглинання при температурі газів, 1/м}

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);

< p> {Наведена ступінь чорноти}

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);

Writeln (file1, 'X LF GT GB EG AG ES HF TF QF');

End;

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

Procedure tFurnace. Result;

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

Begin

Append (File1);

if X mod 2 = 0 then

Writel...