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

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;

{Объемные доли компонентов в газообразной среде}

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