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; {Коефіцієнт надлишку повітря}
VB0: = 9.45; {Обсяг теоретично необхідного повітря, м3/м3}
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;
{============================================== ==============================}
{Розрахунок параметрів дифузійного факела}
var GP, 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;
While GB * G0 <= GB0 do begin {перехід до чергового перетину}
{Відстань від пальника до розрахункового перерізу, D0 * м}
X: = X +1;
{Параметри факела в попередньому перерізі}
GP: = GB; ROP: = ROF; TP: = TF; QP: = QF;
repeat {початок ітерацій}
{Середня щільність факела на черговому малій ділянці, кг/м3}
ROD: = (ROP + ROF)/2;
{Витрата повітря, залученого в струмінь, G0 * кг/c}
GB: = GP +0.322 * sqrt (ROD/R0);
{Середня щільність факела на розрахунковій ділянці, кг/м3}
Ro: = R0 * sqr (GB/X/0.322);
RS: = sqrt (Ro/R0); {Співвідношення густин}
{Відстань до полюса струменя, D0 * м}
X0: = 2.37/RS;
{Розрахункова довжина факела, D0 * м}
LF: = X0 * ((NB +1) * (2 * SC +1) - 1);
{Відстань від полюса струменя до розрахункового перерізу і кінця факела, D0 * м}
XX: = X + X0; LX: = LF + X0;
{Радіус турбулентної струменя, м}
RF: = 0.211 * XX * D0;
{Витрата незгорілого палива через розрахунковий переріз, G0 * кг/с}
SC2: = 2 * SC; SC1: = SC2 +1; ...
