Курсовая работа: Сравнение ожидаемого выхода оксидов азота из газомазутного котла Пп 1000 25 - 545ГМ

Co2, Qgv, Qt, jp1, jp2, jp3, jp4, f1, f2, f3, f4, Arz, po2, Co1, No2tr1, No2tr2, No2tr3, No2tr4, No2tl1, No2tl2, No2tl3, No2tl4, Nr:real;

No2o1, No2o2, No2o3, No2o4:real;

ch, df:char;

l:text;

Function Tp (Tm: real):real;

begin

Tp:=exp (ln(Tm)*2)*exp (ln(10)*(-5))/(0.614+Tm*exp (ln(10)*(-5)));

end;

Function Tg (Tm: real):real;

begin

Tg:=0.84*(exp (ln((exp (ln(Tm)*4)+exp (ln(1453)*4)))*0.25));

end;

Function j (Tg, r:real):real;

begin

j:=(273*bet)/(q*Tg*vg*Aiv*(1+r));

end;

function jp (Tp, j:real):real;

begin

jp:=(Tp/(Ta-1453))*(exp (ln((Tt*Sc)/300)*0.5))*j;

end;

Function f (Tm:real):real;

begin

f:=0.024*exp (54290/Tm-23);

end;

Function Co (po2, Arz, r:real):real;

begin

Co:=0.21*Vv*((Agor-1)+r*(Arz/Agor))*po2/(Vgaz+(Agor-1)*Vv)*(1+r)

end;

Function No2tr (Co, Tm, jp, f:real):real;