textcolor(6);
writeln ('при 5% рециркуляции газов через шлицы под горелки, С');
Tg1:=Tg(Tm1);
writeln (' Tg1= ', Tg1:2:3);
writeln (l, 'при 5% рециркуляции газов через шлицы под горелки, С', ' Tg1= ', Tg1:2:3);
writeln ('при 15% рециркуляции газов через шлицы под горелки, С');
Tg2:=Tg(Tm2);
writeln (' Tg2= ', Tg2:2:3);
writeln (l, 'при 15% рециркуляции газов через шлицы под горелки, С', ' Tg2= ', Tg2:2:3);
writeln ('При вводе 5% рециркуляции газов в кольцевой канал горелки, С');
Tg3:=Tg(Tm3);
writeln (' Tg3= ', Tg3:2:3);
writeln (l, 'При вводе 5% рециркуляции газов в кольцевой канал горелки, С', ' Tg3= ', Tg3:2:3);
writeln ('При вводе 15% рециркуляции газов в кольцевой канал горелки, С');
Tg4:=Tg(Tm4);
writeln (' Tg4= ', Tg4:2:3);
writeln (l, 'При вводе 15% рециркуляции газов в кольцевой канал горелки, С', ' Tg4= ', Tg4:2:3);
writeln(l);
gotoxy (22,24);
textcolor(5);
writeln ('Нажмите любую клавишу для продолжения…');
readkey;
clrscr;
textbackground(0);
textcolor(5);
writeln ('Введитезначение:');
writeln ('Коэффициента заполнения сечения топки восходящими потокомами газов, bet');
write ('bet='); readln(bet);
writeln ('Введите значение:');
writeln ('Теплового напряжения топочного обьема, q (МВт/м3)');
write ('q='); readln(q);
writeln ('Введите значение:');
writeln ('Удельного приведенного объема газов, vg (м3/МДж)');
write ('vg='); readln(vg);
textcolor(14);
gotoxy (14,10);
writeln ('Время пребывания газов в топочной камере, j(сек)');
writeln (l, 'Время пребывания газов в топочной камере, j(сек)');
writeln ('при 5% рециркуляции газов через шлицы, сек');
j1:=j (Tg1, r1);
writeln ('j1= ', j1:1:5);
writeln (l, 'при 5% рециркуляции газов через шлицы, сек', 'j1= ', j1:1:5);
writeln ('при 15% рециркуляции газов через шлицы, сек');
j2:=j (Tg2, r2);
writeln ('j2=', j2:1:5);
writeln (l, 'при 15% рециркуляции газов через шлицы, сек', 'j2=', j2:1:5);
writeln ('при вводе 5% рециркуляции газов в горелку, сек');
j3:=j (Tg3, r1);
writeln ('j3=', j3:1:5);
writeln (l, 'при вводе 5% рециркуляции газов в горелку, сек', 'j3=', j3:1:5);
writeln ('при вводе 15% рециркуляции газов в горелку, сек');
J4:=j (Tg4, r2);
writeln ('j4=', j4:1:5);
writeln (l, 'при вводе 15% рециркуляции газов в горелку, сек', 'j4=', j4:1:5);
writeln(l);
textcolor(5);
writeln ('Введите значение:');
writeln ('Теплового напряжения сечения, Tt (МВт/м) 2');
write ('Tt='); readln(Tt);
writeln ('Введите значение:');
writeln ('Cечения топочной камеры, Sc(м)');
write ('Sc='); readln(Sc);
textcolor(14);
writeln ('Расчетное время реакции образования оксидов азота в топке, jp(сек)');
writeln (l, 'Расчетное время реакции образования оксидов азота в топке, jp(сек)');
writeln ('при 5% рециркуляции газов через шлицы, сек');
jp1:=abs (jp(Tp1, j1));
writeln ('jp1= ', jp1:1:4);
writeln (l, 'при 5% рециркуляции газов через шлицы, сек', 'jp1= ', jp1:1:4);
writeln ('при 15% рециркуляции газов через шлицы, сек');
jp2:=abs (jp(Tp2, j2));
writeln ('jp2=', jp2:1:4);
writeln (l, 'при 15% рециркуляции газов через шлицы, сек', 'jp2=', jp2:1:4);
writeln ('при вводе 5% рециркуляции газов в горелку, сек');
jp3:=abs (jp(Tp3, j3));
writeln ('jp3=', jp3:1:4);
writeln (l, 'при вводе 5% рециркуляции газов в горелку, сек', 'jp3=', jp3:1:4);
writeln ('при вводе 15% рециркуляции газов в горелку, сек');
jp4:=abs (jp(Tp4, j4));
writeln ('jp4=', jp4:1:4);
writeln (l, 'при вводе 15% рециркуляции газов в горелку, сек', 'jp4=', jp4:1:4);
writeln(l);
readkey;
clrscr;
textbackground(0);
gotoxy (15,1);
textcolor(14);
writeln ('Расчет теоретического времени достижения равновесия, сек');
writeln (l, 'Расчет теоретического времени достижения равновесия, сек');
textcolor(15);
writeln ('при 5% рециркуляции газов через шлицы, сек');
f1:=f(Tm1);
writeln ('f1= ', f1:5:5);
writeln (l, 'при 5% рециркуляции газов через шлицы, сек', 'f1= ', f1:5:5);
writeln ('при 15% рециркуляции газов через шлицы, сек');
f2:=f(Tm2);
writeln ('f2= ', f2:5:5);
writeln (l, 'при 15% рециркуляции газов через шлицы, сек', 'f2= ', f2:5:5);
writeln ('при вводе 5% рециркуляции газов в горелку, сек');
f3:=f(Tm3);
writeln ('f3= ', f3:5:5);
writeln (l, 'при вводе 5% рециркуляции газов в горелку, сек', 'f3= ', f3:5:5);
writeln ('при вводе 15% рециркуляции газов в горелку, сек');
f4:=f(Tm4);
writeln ('f4= ', f4:5:5);
writeln (l, 'при вводе 15% рециркуляции газов в горелку, сек', 'f4= ', f4:5:5);
writeln(l);
gotoxy (22,24);
textcolor(5);
writeln ('Нажмите любую клавишу для продолжения…');
readkey;
clrscr;
textcolor(3);
writeln ('Введите значение:');
writeln ('Плотности кислорода при атмосферном давлении, po2 (кг/м3)');
write ('po2='); readln(po2);
writeln ('Коэффициента избытка воздуха в газах рециркуляции, Arz');
write ('Arz='); readln(Arz);
textcolor(14);
gotoxy (1,6);
writeln ('Концентрация остаточного(избыточного) кислорода в зоне горения реакции, Co2 (кг/м3)');
writeln;
writeln (l, 'Концентрация остаточного(избыточного) кислорода в зоне горения реакции, Co2 (кг/м3)');
textcolor(3);
writeln ('при 5% рециркуляции газов через шлицы под горелки');
Co1:=abs (Co(po2, Arz, r1));
writeln ('Co1=', Co1:1:6);
writeln (l, 'при5% рециркуляциигазовчерезшлицыподгорелки', 'Co1=', Co1:1:6);
writeln ('при вводе 15% рециркуляции газов в горелку');
Co2:=abs (Co(po2, Arz, r2));
writeln ('Co2=', Co2:1:6);
writeln (l, 'привводе 15% рециркуляциигазоввгорелку', 'Co2=', Co2:1:6);
writeln(l);
gotoxy (21,24);
textcolor(5);
writeln ('Нажмителюбуюклавишудляпродолжения…');
readkey;
clrscr;
textcolor(11);
gotoxy (10,1);
writeln ('Концентрациятермическихоксидовазота, No2tr (г/м3):');
writeln (l, 'Концентрация термических оксидов азота, No2tr (г/м3):');
textcolor(2);
writeln ('при 5% рециркуляции газов через шлицы под горелки, г/м3');
No2tr1:=No2tr (Co1, Tm1, jp1, f1);
writeln (' No2tr1= ', No2tr1:1:6);
writeln (l, 'при 5% рециркуляции газов через шлицы под горелки, г/м3', ' No2tr1= ', No2tr1:1:6);
writeln ('при 15% рециркуляции газов через шлицы под горелки, г/м3');
No2tr2:=abs (No2tr(Co1, Tm2, jp2, f2));
writeln (' No2tr2= ', No2tr2:1:6);
writeln (l, 'при 15% рециркуляции газов через шлицы под горелки, г/м3', ' No2tr2= ', No2tr2:1:6);
writeln ('При вводе 5% рециркуляции газов в кольцевой канал горелки, г/м3');
No2tr3:=abs (No2tr(Co1, Tm3, jp3, f3));
writeln (' No2tr3= ', No2tr3:1:6);
writeln (l, 'При вводе 5% рециркуляции газов в кольцевой канал горелки, г/м3', ' No2tr3= ', No2tr3:1:6);
Writeln ('При вводе 15% рециркуляции газов в кольцевой канал горелки, г/м3 ');
No2tr4:=abs (No2tr(Co1, Tm4, jp4, f4));
writeln (' No2tr4= ', No2tr4:1:6);
Writeln (l, 'При вводе 15% рециркуляции газов в кольцевой канал горелки, г/м3', ' No2tr4= ', No2tr4:1:6);
writeln(l);
readkey;
clrscr;
writeln ('Введите значение:');
writeln ('Содержания азота в топливе, Nr(%)');
write ('Nr='); readln(Nr);
GOTOXY (15,4);
textcolor(14);
writeln ('Топливныеибыстрыеоксидыазота, No2tl (г/м3):');
writeln (l, 'Топливные и быстрые оксиды азота, No2tl (г/м3):');
textcolor(12);
writeln ('при 5% рециркуляции газов через шлицы под горелки, г/м3');
No2tl1:=abs (No2tl(Nr, Tm1, r1));
writeln ('No2tl1= ', No2tl1:1:6);
writeln (l, 'при5% рециркуляциигазовчерезшлицыподгорелки, г/м3', 'No2tl1= ', No2tl1:1:6);
writeln ('при 15% рециркуляции газов через шлицы под горелки, г/м3');
No2tl2:=abs (No2tl(Nr, Tm2, r2));
writeln ('No2tl2= ', No2tl2:1:6);
writeln (l, 'при 15% рециркуляциигазовчерезшлицыподгорелки, г/м3', 'No2tl2= ', No2tl2:1:6);
writeln ('При вводе 5% рециркуляции газов в кольцевой канал горелки, г/м3');
No2tl3:=abs (No2tl(Nr, Tm3, r1));
writeln ('No2tl3= ', No2tl3:1:6);
writeln (l, 'Привводе5% рециркуляциигазоввкольцевойканалгорелки, г/м3', 'No2tl3= ', No2tl3:1:6);
Writeln ('При вводе 15% рециркуляции газов в кольцевой канал горелки, г/м3');
No2tl4:=abs (No2tl(Nr, Tm4, r2));
writeln ('No2tl4= ', No2tl4:1:6);
Writeln (l, 'Привводе 15% рециркуляциигазоввкольцевойканалгорелки, г/м3', 'No2tl4= ', No2tl4:1:6);
writeln(l);
readkey;
clrscr;
textbackground(9);
clrscr;
gotoxy (4,1);
textcolor(15);
writeln ('Суммарныйвыходоксидовазота, No2o (г/м3)');
writeln (l, 'Суммарный выход оксидов азота, No2o (г/м3)');
textcolor(2);
writeln ('при 5% рециркуляции газов через шлицы под горелки');
No2o1:=No2tr1+No2tl1;
writeln ('No2o1=', No2o1:2:4);
writeln (l, 'при 5% рециркуляции газов через шлицы под горелки', 'No2o1=', No2o1:2:4);
writeln ('при 15% рециркуляции газов через шлицы под горелки');
No2o2:=No2tr2+No2tl2;
writeln ('No2o2=', No2o2:2:4);
writeln (l, 'при 15% рециркуляции газов через шлицы под горелки', 'No2o2=', No2o2:2:4);
writeln ('При вводе 5% рециркуляции газов в кольцевой канал горелки');
No2o3:=No2tr3+No2tl3;
writeln ('No2o3=', No2o3:2:4);
writeln (l, 'При вводе 5% рециркуляции газов в кольцевой канал горелки', 'No2o3=', No2o3:2:4);
Writeln ('При вводе 15% рециркуляции газов в кольцевой канал горелки');
No2o4:=No2tr4+No2tl4;
writeln ('No2o4=', No2o4:2:4);
Writeln ('При вводе 15% рециркуляции газов в кольцевой канал горелки', 'No2o4=', No2o4:2:4);
readkey;
close(l);
clrscr;
writeln ('Желаете повторить расчет');
writeln ('1-нет');
writeln ('2-да');
repeat
ch:=readkey;
until ch in ['1', '2'];
case ch of
'1':halt;
'2':goto zanovo
end;
ENd.
Описание работы программы
Данная программа способна сравнивать ожидаемый выход оксидов азота из газомазутного котла Пп – 1000 – 25 – 545ГМ (ТГМП – 314) при сжигании мазута при заранее заданной рециркуляции, тепловой эффективности стен зоны горения. В данной программе использованы функции, которые избавляют от необходимости многократно повторять в тексте программы аналогичными фрагментами, задавая их изменяющимися переменными. С помощью оператора цикла с постустусловием, в зависимости от нажатия клавиш ‘1’ или ‘2’, работа программы либо завершается, либо выполняется еще раз. Процедура assign позволяет выводить результаты работы программы во внешний файл, при заранее указанном пути.
Результаты работы программы
Тепловыделение в зоне горения, Qt (кДж/кг) Qt=43491.96
Коэффициент избытка воздуха в зоне горения, AgorAgor=1.005
Расчет теплоемкости воздуха при высоких температурах (более 1600С) в зоне горения факела, cv (кДж/(м3*К)
cv=1.556
Расчетная адиабатная температура в зоне горения, градус ЦельсияTa=2582.93
Коэффициент тепловой эффективности стен зоны горения факела на 1,5 м выше верхнего яруса горелок
Wf=0.446662
Максимальная температура зоны горения с учетом отвода теплоты с экранов степени выгорания топлива
и влияния рециркуляции газовпри 5% рециркуляции газов через шлицы под горелки, СTm1=2414.9