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

clrscr;

gotoxy (10,1);

writeln ('Коэффициент тепловой эффективности стен зоны горения факела');

gotoxy (22,2);

writeln ('на 1,5 м выше верхнего яруса горелок');

Wf:=(a*c+b*(0.1+c))/(a+2*b);

writeln ('Wf=', Wf:1:6);

writeln (l, 'Коэффициент тепловой эффективности стен зоны горения факела на 1,5 м выше верхнего яруса горелок');

write (l, 'Wf=', Wf:1:6);

writeln(l);

gotoxy (22,24);

textcolor(5);

writeln ('Нажмителюбуюклавишудляпродолжения…');

readkey;

clrscr;

textcolor(15);

gotoxy (4,1);

writeln ('Максимальная температура зоны горения с учетом отвода теплоты с экранов');

gotoxy (13,2);

writeln ('степени выгорания топлива и влияния рециркуляции газов');

textcolor(0);

writeln (l, 'Максимальная температура зоны горения с учетом отвода теплоты с экранов степени выгорания топлива');

write (l, 'и влияния рециркуляции газов');

writeln ('при 5% рециркуляции газов через шлицы под горелки, С');

Tm1:=0.98*Ta*(exp (ln(1-Wf)*0.25))*(1 – (exp (ln(0.05)*1.325)))+273;

writeln ('Tm1=', Tm1:4:1);

writeln (l, 'при5% рециркуляциигазовчерезшлицыподгорелки, С', 'Tm1=', Tm1:5:1);

writeln ('при 15% рециркуляции газов через шлицы под горелки, С');

Tm2:=2110*(1 – (exp (ln(0.15)*1.975)))+273;