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

довищі}

PT: = VT/VF; {Паливо}

PB: = VB/VF; {Повітря}

PG: = VG/VF; {Продукти горіння}

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

ROV: = RO * PT + ROB * PB + ROG * PG;

End;

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

Procedure tFurnace. GasHeat;

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

{Розрахунок теплоємності газоподібного середовища}

var CB, CT, C1, C2, C3: real;

Begin

{Об'ємна теплоємність природного газу, кДж/м3 * К (н.у.)}

IF TF = 0 THEN CT: = 2.522 +0.0005815 * TF ELSE

CT: = (-317.9 +2.522 * TF +0.0005815 * sqr (TF) +86840/(TF +273))/TF;

{Об'ємна теплоємність повітря, кДж/м3 * К (н.у.)}

CB: = 1.287 +0.0001201 * TF;

{Об'ємна теплоємність вуглекислого газу, кДж/(м3 * К) (н.у.)}

IF TF = 0 THEN C1: = 2.081 +0.0002017 * TF ELSE

C1: = (-139.5 +2.081 * TF +0.0002017 * sqr (TF) +38110/(TF +273))/TF;

{Об'ємна теплоємність водяної пари, кДж/(м3 * К) (н.у.)}

C2: = 1.49 +0.0002303 * TF;

{Об'ємна теплоємність азоту, кДж/(м3 * К) (н.у.)}

C3: = 1.28 +0.0001103 * TF;

{Об'ємна теплоємність продуктів горіння, кДж/м3 * К (н.у.)}

CG: = C1 * P1 + C2 * P2 + C3 * P3;

{Об'ємна теплоємність газів у факелі, кДж/(м3 * К) (н.у.)}

CV: = CT * PT + CB * PB + CG * PG;

{Масова теплоємність газів у факелі, кДж/кг * К}

CF: = CV/ROV;

End;

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

Function tFurnace.fHdis: real;

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

{Розрахунок теплоти дисоціації факела}

var PCO2, PH2O, KCO2, KH2O, ACO2, AH2O, PS, LR, K1, K2: real;

Begin

fHdis: = 0;

if TF> 1500 then begin

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

PCO2: = P1 * PG; {... вуглекислого газу}

PH2O: = P2 * PG; {... водяної пари}

{Константа рівноваги для вуглекислого газу}

KCO2: = exp (ln (10) * (4.47-14700/TF));

{Константа рівноваги для водяної пари}

KH2O: = exp (ln (10) * (3.05-13160/TF));

{Ступінь дисоціації вуглекислого газу}

ACO2: = exp (ln (2 * sqr (KCO2)/PCO2)/3);

{Ступінь дисоціації водяної пари}

AH2O: = exp (ln (2 * sqr (KH2O)/PH2O)/3);

{Теплота дисоціації трьохатомних газів, кДж/кг}

fHdis: = (12630 * ACO2 * PCO2 +10800 * AH2O * PH2O)/ROV;

end;

End;

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

Procedure tFurnace. HeatLine;

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

{Розрахунок результуючого випромінювання факела}

<...