Сравнение ожидаемого выхода оксидов азота из газомазутного котла Пп 1000 25 - 545ГМ (стр. 1 из 3)

Курсовая работа

по информатике

«Сравнение ожидаемого выхода оксидов азота из газомазутного котла Пп – 1000 – 25 – 545ГМ»

Введение

Область применения современных языков программирования весьма обширна.

Не секрет что любая программа создается именно на языках программирования. Современные языки программирования наделены практически безграничными возможностями, и они нашли свое применение во всех областях научной и хозяйственной деятельности человека.

Языки программирования используются для записи алгоритма и последующего переводов этой записи на язык машинных команд. Структура языков программирования схожа с естественными языками общения, по этому их более или менее легко освоить. Любая программа нацелены на облегчение жизни человеку и на экономию его времени. На создание любой программы уходит меньше времени, чем на и найти в ней ошибку намного легче, достаточно внести коррективы в алгоритм, а потом исправить эти ошибки и в самой программе.

Современным инженерам легче начертить чертеж в специальных графических программах, чем сделать это вручную, да и чертеж получается более точным. При разработке новой техники сократилось время между периодом ее испытаний и внедрением в массовое производство, потому что с помощью специальных программ можно однозначно задать те нагрузки, которые она будет получать во время эксплуатации. Языки программирования высокого уровня дают возможность программирования трехмерных динамических изображений, в частности это нашло свое применение в гидрогазодинамике. Программы, нацеленные на решение сложных дифференциальных уравнений, существенно экономят время.

Задание

Сравнить ожидаемый выход оксидов азота из газомазутного котла Пп – 1000 – 25 – 545ГМ (ТГМП – 314А) при сжигании мазута с рециркуляцией газов 5 и 15% через шлицы под горелки и в кольцевой канал горелки.

Блок – схема программы

Текстпрограммы

PROGRAM sravnit;

uses crt;

const

a=357.2;

b=151.7;

c=0.55;

r1=0.05;

r2=0.15;

label zanovo;

var

Tt, Sc, bet, q, vg, Tm4, Tm3, z, p, Tm2, Tm1, Wf, Ta, cg, cv, k, t, Vgaz, Vv, Aiv, Ap, Agor, Qm, Tp1, Tp2, Tp3, Tp4, Tg1, Tg2, Tg3, Tg4, j1, j2, j3, j4:real;

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;

begin

No2tr:=7030*exp (ln(Co)*0.5)*exp (-10860/Tm)*(jp/f);

end;

Function No2tl (Nr, Tm, r:real):real;

begin

No2tl:=(0.4–0.1*Nr)*Nr*sqr((Agor+r)/(1+r))*((2100-Tm)/125);

end;

begin

textbackground(2);

textcolor(3);

clrscr;

gotoxy (30,7); write ('Курсовая работа');

gotoxy (10,9); write ('Сравнить ожидаемый выход оксидов азота из газомазутного котла');

gotoxy (23,12); write ('Выполнил студент группы ЭТ-21');

gotoxy (30,14); write ('Женжера Антон');

gotoxy (21,20); write ('Нажмите лубую кнопку для продолжения…');

readkey;

zanovo:

clrscr;

textbackground(1);

textcolor(15);

clrscr;

assign (l, 'd:\infa');

rewrite(l);

writeln ('Введите значение:');

writeln ('Теоритического объема газа, необходимого для сжигания топлива, Vgaz (м3/кг)');

write ('Vgaz='); readln(Vgaz);

writeln ('Введите значение: ');

writeln ('Теоритического объема воздуха, необходимого для сжиганиятоплива, Vv (м3/кг)');

write ('Vv='); readln(Vv);

writeln ('Введите значение:');

writeln ('Избытка воздуха на выходе из топки, Aiv');

write ('Aiv='); readln(Aiv);

writeln ('Введите значение:');

writeln ('Присосов в топке, Ap');

write ('Ap='); readln(Ap);

if Ap>Aiv then exit;

Qgv:=(Aiv-Ap)*4502;

writeln ('Введите значение:');

writeln ('Теплоты сгорания мазута, Qm (МДж/кг)');

write ('Qm='); readln(Qm);

writeln ('Тепловыделение в зоне горения, Qt (кДж/кг)');

Qt:=Qm*(exp (ln(10)*3))+Qgv;

writeln ('Qt=', Qt:6:2);

writeln (l, 'Тепловыделение в зоне горения, Qt (кДж/кг)', 'Qt=', Qt:6:2);

writeln ('Коэффициент избытка воздуха в зоне горения, Agor');

Agor:=Aiv-0.5*Ap;

writeln ('Agor=', Agor:2:3);

writeln (l, 'Коэффициент избытка воздуха в зоне горения, Agor', 'Agor=', Agor:2:3);

writeln(l);

textcolor(5);

gotoxy (21,24);

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

readkey;

clrscr;

textbackground(0);

textcolor(12);

clrscr;

gotoxy (8,1);

writeln ('Расчет теплоемкости воздуха при высоких температурах (более 1600С)');

gotoxy (20,2);

writeln ('в зоне горения факела, cv (кДж/(м3*К)');

t:=1950*(1+0.36*Qt*0.00001)/Agor;

k:=(t-1200)/1000;

cg:=1.58+0.122*k;

cv:=1.46+0.092*k;

writeln ('cv=', cv:4:3);

writeln (l, 'Расчет теплоемкости воздуха при высоких температурах (более 1600С) в зоне горения факела, cv (кДж/(м3*К)');

write (l, 'cv=', cv:4:3);

writeln(l);

gotoxy (21,24);

textcolor(5);

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

readkey;

clrscr;

textbackground(0);

textcolor(11);

clrscr;

gotoxy (8,1);

writeln ('Расчетная адиабатная температура в зоне горения, градус Цельсия');

Ta:=(Qt/(Vgaz*cg+1.016*(Agor-1)*Vv*cv))+273;

writeln ('Ta=', Ta:6:2);

writeln (l, 'Расчетная адиабатная температура в зоне горения, градус Цельсия', 'Ta=', Ta:6:2);

writeln(l);

gotoxy (21,24);

textcolor(5);

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

readkey;

clrscr;

textbackground(1);

textcolor(10);

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;

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

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

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

writeln ('шлицы под горелки, Tm1-Tm2 (С):');

p:=abs (Tm1-Tm2);

writeln ('Tm1-Tm2= ', (Tm1-Tm2):3:1);

writeln (l, 'Разность между максимальными температурами при разной рециркуляции газов через шлицы под горелки, Tm1-Tm2 (С)');

writeln (l, 'Tm1-Tm2= ', (Tm1-Tm2):3:1);

writeln ('При вводе 5% рециркуляции газов в кольцевой канал горелки, С');

Tm3:=2110*(1 – (exp (ln(0.05)*1.15)))+273;

writeln ('Tm3=', Tm3:5:1);

writeln (l, 'При вводе 5% рециркуляции газов в кольцевой канал горелки, С', 'Tm3=', Tm3:5:1);

Writeln ('При вводе 15% рециркуляции газов в кольцевой канал горелки, С');

Tm4:=2110*(1 – (exp (ln(0.15)*1.45)))+273;

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

Writeln (l, 'При вводе 15% рециркуляции газов в кольцевой канал горелки, С', 'Tm4=', Tm4:4:1);

writeln ('Разность между максимальными температурами при разной рециркуляции газов');

writeln ('при вводе в кольцевой канал горелки Tm3-Tm4 (С):');

z:=Tm3-Tm4;

writeln ('Tm3-Tm4=', (Tm3-Tm4):3:1);

writeln (l, 'Разность между максимальными температурами при разной рециркуляции газов при вводе в кольцевой');

writeln (l, 'канал горелки Tm3-Tm4 (С)');

writeln (l, 'Tm3-Tm4=', (Tm3-Tm4):3:1);

writeln(l);

gotoxy (22,24);

textcolor(5);

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

readkey;

clrscr;

textbackground(0);

textcolor(9);

clrscr;

gotoxy (3,1);

writeln ('Температурный интервал активной реакции образования оксидов азота, Tp(С):');

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

Tp1:=Tp(Tm1);

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

writeln (l, 'Температурный интервал активной реакции образования оксидов азота, Tp(С):');

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

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

Tp2:=Tp(Tm2);

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

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

writeln ('При вводе 5% рециркуляции газов в кольцевой канал горелки, С');

Tp3:=Tp(Tm3);

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

writeln (l, 'При вводе 5% рециркуляции газов в кольцевой канал горелки, С', ' Tp3= ', Tp3:6:1);

writeln ('При вводе 15% рециркуляции газов в кольцевой канал горелки, С');

Tp4:=Tp(Tm4);

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

writeln (l, 'При вводе 15% рециркуляции газов в кольцевой канал горелки, С', ' Tp4= ', Tp4:6:1);

writeln(l);

gotoxy (22,24);

textcolor(5);

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

readkey;

clrscr;

textbackground(0);

gotoxy (15,1);

textcolor(13);

Writeln ('Расчет температуры газов в топке, Tg(C):');

writeln (l, 'Расчет температуры газов в топке, Tg(C):');