Курсовая работа: Сравнение ожидаемого выхода оксидов азота из газомазутного котла Пп 1000 25 - 545ГМ
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);