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

GT: = XX/X0/NB * (LX/XX/SC1 + SC2/SC1 * exp (ln (XX/LX)/SC2) - 1);

{Середня ентальпія газів в розрахунковому перерізі факела, кДж/кг}

HHF: = (H0 + HB * GB + QT * (1-GT))/(1 + GB); {без теплообміну}

HF: = HHF-QF/(1 + GB)/G0; {c теплообміном}

{Середня температура в розрахунковому перерізі факела, В° C}

ZT: = TF; TF: = (HF-fHDis)/CF; TK: = TF +273;

{Щільність газів в розрахунковому перерізі факела, кг/м3}

ROF: = ROV * 273/TK;

GasPost; Gasheat; HeatLine;

until ABS (1-ZT/TF) <0.0001; {кінець ітерацій}

{Радіус фронту полум'я, м}

FR: = XX/7.9 * sqrt (exp (ln (LX/XX)/SC2) - 1);

{Висновок результатів на друк}

Result;

end;

{-}

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

GTB: = GT; GB: = GB0/G0; HHB: = HHF; RF: = DW/2;

XB: = X; XXB: = XB + X0; LXB: = LX;

MG: = (1-exp (ln (XXB/LXB)/SC2))/NB/X0/GTB;

While GT> 0.01 do begin {перехід до чергового перетину}

{Відстань від пальника до розрахункового перерізу, D0 * м}

X: = X +1;

{Параметри факела в попередньому перерізі}

TP: = TF; QP: = QF;

repeat {початок ітерацій}

{Витрата незгорілого палива через розрахунковий переріз, кг/с}

GT: = GTB * exp (MG * (XB-X));

{Середня ентальпія газів в розрахунковому перерізі факела, кДж/кг}

HHF: = HHB + QT * (GTB-GT)/(1 + GB); {без теплообміну}

HF: = HHF-QF/(1 + GB)/G0; {c теплообміном}

{Середня температура в розрахунковому перерізі факела, В° C}

ZT: = TF; TF: = (HF-fHDis)/CF; TK: = TF +273;

{Щільність газів в розрахунковому перерізі факела, кг/м3}

ROF: = ROV * 273/TK;

Gasheat; HeatLine;

until ABS (1-ZT/TF) <0.0001; {кінець ітерацій}

{Висновок результатів на друк}

Result;

end;

Nomina;

End;

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

Procedure tFurnace. GasPost;

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

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

var RO1, RO2, RO3, ROG, VT, VB, VG, VF: real;

Begin

P1: = V1/VG0; P2: = V2/VG0; P3: = V3/VG0;

RO1: = 44/22.41;

RO2: = 18/22.41;

RO3: = 28/22.41;

{Щільність стехиометрических продуктів горіння, кг/м3 (н.у.)}

ROG: = RO1 * P1 + RO2 * P2 + RO3 * P3;

{Питома витрата незгорілого палива, м3/с (н.у.)}

VT: = GT * G0/RO;

{Об'ємна витрата повітря, м3/с (н.у.)}

VB: = (GB - (1-GT) * NB) * G0/ROB;

{Питома витрата продуктів горіння, м3/с (н.у.)}

VG: = (1-GT) * (1 + NB) * G0/ROG;

{Питома витрата газоподібного середовища, м3/с (н.у.)}

VF: = VT + VB + VG;

{Об'ємні частки компонентів в газоподібному сере...