Разработка методов компьютерного контроля газодинамических параметров потока газа в горне печи
Дипломная работа - Разное
Другие дипломы по предмету Разное
Pd_CI = (1 + d_Pd_Ati ) * 101325_CI = d_Qd_Ati / 60_CI = d_Td_Ati + 273_CI = 3.14 * (t_Df_Ati) ^ 2 / 4
-------------------------------------------------------------------------------------------i = 1 To 19UTeplG (i) . tu_k_r > Td_CI ThenNot i = 19 Then= UteplG(i) . tu_k_r - Td_CI= UteplG(i + 1) . tu_k_r - Td_CImp1 >= mp2 Then= i + 1_ EpmGG - 4
plk1 = 1If= 19If
Exit For
End If
Next= UteplG(plk1) . air_r= UteplG(plk1) . O2_r= UteplG(plk1) . N2_r= UteplG(plk1) . H2_r= UteplG(plk1) . CO_r= UteplG(plk1) . CO2_rO = UteplG(plk1) . Par_r= UteplG(plk1) . CH4_r
------------------------Расход смешанного газа------------------------------------
Qg_CI = D_Qg_Ati * t_proizv / 86400_CI = D_Qg_Ati / 3600 = 0.0203 * (Qd_CI + Qg_CI) / Qg_CI Доля сгорающего природного газа
Qcm_CI = Qd_CI + Qg_CI + 0.75 * ndGaza * Qg_CI
--------------------Хим. состав газовой фазы--------------------------------------
aCO2 = 0.5 * ndGaza * Qg_CI / Qcm_CI * 100
aCO = aCO2= ndGaza * Qg_CI / Qcm_CI * 100O = aH2= (Qg_CI * D_O2 - 1.25 * ndGaza * Qg_CI) / Qcm_CI * 100= (1 - ndGaza) * Qg_CI / Qcm_CI * 100= 100 - aCO2 - aCO - aH2 - aH2O - aO2 - aCH4
--------------------Нормальная плотность смеси газов--------------------------= 1 / 100 * (aCO * 1.25 + aCO2 * 1.963 + aH2 * 0.0898 + aH2O * 0.806 + aO2 * 1.429 + aCH4 * 0.717 + aN2 * 1.25)
-------------------Удельная массовая теплоемкость-----------------------------
cvD = cpD - 372
cvCH4 = cpCH4 - 372
cvCO = cpCO - 372
cvCO2 = cpCO2 - 372
cvH2 = cpH2 - 372
cvH2O = cpH2O - 372
cvO2 = cpO2 - 372
cvN2 = cpN2 - 372
Module _ EpmGG - 5
----------------------Количество тепла, внесенное дутьем----------------------
Gd_CI = cvD * Qd_CI * Td_CI_CI = cvCH4 * Qg_CI * 273 + d_Tg_Ati_CI = 1348.15 * 1000 * 0.5 * ndGaza * Qg_CI_CI = 35608.73 * 1000 * 0.5 * ndGaza * Qg_CI_sum = Gd_CI + Gg_CI + Gng_CI + Gpg_CI
-------------------------------------------------------------------------------------------= 0.5 * ndGaza * Qg_CI * (cvCO + cvCO2)= ndGaza * Qg_CI * (cvH2 + cvH2O)= (1 - ndGaza) * Qg_CI * cvCH4= (Qd_CI * D_O2 - 1.25 * ndGaza * Qg_CI) * cvO2= aN2 / 100 * Qcm_CI * cvN2_sum = Z1 + Z2 + Z3 + Z4 + Z5
----------------------Температура смеси газов-----!-------------------------------
Tcm_CI = G_sum / Z_sum
Ekkd = 68877.6 * (Pocm * Qcm_CI ^ 3 * Tcm_CI ^ 2) / (t_n ^ 3 * Sf_CI ^ 2 * Pd_CI ^ 2)
Epmkd = 371.2 * (Qcm_CI * Tcm_CI) / t_n + Ekkd
----------------------Выход горнового газа----------------------------------------
Qgg_CI = Qd_CI * (2 * D_O2 + D_f) + 2 * Qg_CI + Qd_CI * (1 - D_O2)
----------------------Теоретическая температура горения-----------------------
TT1 = 1700 * Qg_CI + 10521.9 * D_O2 * (Qd_CI - Qg_CI * (0.5 + (1 - D_O2) / (2 * D_O2))) + 1.4 * Qd_CI * Td_CI + 2340 * D_O2 * (Qd_CI - Qg_CI * (0.5 + (1 - D_O2) / (2 * D_O2))) - 10806 * Qd_CI * D_f
TT2 = 1.5 * (3 + (1 - D_O2) / (2 * D_O2)) * Qg_CI + 1.5 * (2 + (1 - D_O2) / D_O2) * (Qd_CI - Qg_CI * (0.5 + (1 - D_O2) / (2 * D_O2))) * D_O2 + 1.5 * 1.5 * Qd_CI * D_f
Tgg_CI = 273 + TT1 / TT2
------------------------Полная энергия потока горнового газа------------------
Epgg = (371 * Qgg_CI * Tgg_CI) / 20 + Ekkd
Lzg = 0.4826 +1.4 * 10 ^ -7 * Ekkd + 1 * 10 ^ - 13 * Ekkd ^ 2
------------------------Рекомендованное количество фурм----------------------
a_Fr = 371.2 * gTagDb.GetTag(TehnParam\SAverageQgg_CI)*gTagDb.GetTag
(TehnParam\SAverageTgg_CI)_Fr = 68877.6 * (1.3 * gTagDb.GetTag(TehnParam\SAverageQgg_CI) ^ 3 *.GetTag(TehnParam\SAverageTgg_CI)^2)/gTagDb.GetTag(TehnParam\_CI)^2
------------------------Средняя Epgg за 30 дней------------------------------------
Epgg_OB = gTagDb.GetTag(TehnParam\EpggOB)/30 * 1000_Fr = -(2 * a_Fr ^ 3)/(27 * EpggOB ^ 3) - b_Fr / (Epgg_OB * Sf_CI ^ 2)_Fr = -a_Fr ^ 2 / (3 * Epgg_OB ^ 2)_Fr = a_Fr / (3 * Epgg_OB)_ EpmGG - 6
_Fr = (-g_Fr / 2 + Sqr (g_Fr ^ 2 / 4 + c_Fr ^ 3 / 27)) ^ 0.333333333 +
(-g_Fr / 2 + Sqr (g_Fr ^ 2 / 4 + c_Fr ^ 3 / 27)) ^ 0.333333333 + h_Fr
SubWriteParam ()Error Resume Next.GetTag (TehnParam\ndGaza) = ndGaza.GetTag (TehnParam\Qcm_CI) = Qcm_CI.GetTag (TehnParam\Pocm) = Pocm.GetTag (TehnParam\Tcm_CI) = Tcm_CI.GetTag (TehnParam\Epmkd) = Epmkd / 1000.GetTag (TehnParam\Qgg_CI) = Qgg_CI.GetTag (TehnParam\Tgg_CI) = Tgg_CI.GetTag (TehnParam\Epgg) = Epgg / 1000.GetTag (TehnParam\Ekkd) = Ekkd / 1000.GetTag (TehnParam\Lzg) = Lzg.GetTag (TehnParam\T_n) = n_Fr.GetTag(TehnParam\SAverageQgg_CI) = (gTagDb.GetTag
(TehnParam\SAverageQgg_CI) * 0.95 + Qgg_CI * 0.05).GetTag(TehnParam\SAverageEpmkd_CI) = (gTagDb.GetTag
(TehnParam\SAverageEpmkd_CI) * 0.95 + Epmkd * 0.05).GetTag(TehnParam\SAverageTgg_CI) = (gTagDb.GetTag
(TehnParam\SAverageTgg_CI) * 0.95 + Tgg_CI * 0.05).GetTag(TehnParam\SAverageEkkd) = (gTagDb.GetTag
(TehnParam\SAverageEkkd) * 0.95 + Ekkd * 0.05).GetTag(TehnParam\SAverageEpgg) = (gTagDb.GetTag
(TehnParam\SAverageEpgg) * 0.95 + Epgg * 0.05).GetTag(TehnParam\SaverageT_n) = (gTagDb.GetTag
(TehnParam\SAverageT_n) * 0.95 + T_n * 0.05).GetTag(TehnParam\SAveragePd_CI) = (gTagDb.GetTag
(TehnParam\SAveragePd_CI) * 0.95 + Pd_CI * 0.05)SubDimensionUT ()Error Resume Next(1).tu_k_r = 273: UTeplG(1).air_r = 1296: UTeplG(1).O2_r = 1305:(1).N2_r = 1294: UTeplG(1).H2_r = 1276: UTeplG(1).CO_r = 1298:(1).CO2_r = 1599: UTeplG(1).Par_r = 1493: UTeplG(1).CH4_r = 1549:(2).tu_k_r = 373: UTeplG(2).air_r = 1299: UTeplG(2).O2_r = 1317:(2).N2_r = 1295: UTeplG(2).H2_r = 1290: UTeplG(2).CO_r = 1301:(2).CO2_r = 1699: UTeplG(2).Par_r = 1504: UTeplG(2).CH4_r = 1641:(3).tu_k_r = 473: UTeplG(3).air_r = 1306: UTeplG(3).O2_r = 1334:(3).N2_r = 1299: UTeplG(3).H2_r = 1296: UTeplG(3).CO_r = 1306:_ EpmGG - 7
(3).CO2_r = 1786: UTeplG(3).Par_r = 1522: UTeplG(3).CH4_r = 1758:(4).tu_k_r = 573: UTeplG(4).air_r = 1316: UTeplG(4).O2_r = 1355:(4).N2_r = 1306: UTeplG(4).H2_r = 1298: UTeplG(4).CO_r = 1316:(4).CO2_r = 1861: UTeplG(4).Par_r = 1541: UTeplG(4).CH4_r = 1885:(5).tu_k_r = 673: UTeplG(5).air_r = 1328: UTeplG(5).O2_r = 1376:(5).N2_r = 1315: UTeplG(5).H2_r = 1301: UTeplG(5).CO_r = 1328:(5).CO2_r = 1928: UTeplG(5).Par_r = 1564: UTeplG(5).CH4_r = 2014:(6).tu_k_r = 773: UTeplG(6).air_r = 1342: UTeplG(6).O2_r = 1397:(6).N2_r = 1327: UTeplG(6).H2_r = 1304: UTeplG(6).CO_r = 1342:(6).CO2_r = 1987: UTeplG(6).Par_r = 1598: UTeplG(6).CH4_r = 2139:(7).tu_k_r = 873: UTeplG(7).air_r = 1356: UTeplG(7).O2_r = 1416:(7).N2_r = 1339: UTeplG(7).H2_r = 1307: UTeplG(7).CO_r = 1356:(7).CO2_r = 2040: UTeplG(7).Par_r = 1613: UTeplG(7).CH4_r = 2259:(8).tu_k_r = 973: UTeplG(8).air_r = 1370: UTeplG(8).O2_r = 1433:(8).N2_r = 1353: UTeplG(8).H2_r = 1311: UTeplG(8).CO_r = 1371:(8).CO2_r = 2087: UTeplG(8).Par_r = 1640: UTeplG(8).CH4_r = 2375:(9).tu_k_r = 1073: UTeplG(9).air_r = 1383: UTeplG(9).O2_r = 1449:(9).N2_r = 1366: UTeplG(9).H2_r = 1316: UTeplG(9).CO_r = 1385:(9).CO2_r = 2130: UTeplG(9).Par_r = 1667: UTeplG(9).CH4_r = 2492:(10).tu_k_r = 1173: UTeplG(10).air_r = 1397: UTeplG(10).O2_r = 1463:(10).N2_r = 1379: UTeplG(10).H2_r = 1322: UTeplG(10).CO_r = 1398:(10).CO2_r=2168: UTeplG(10).Par_r=1694: UTeplG(10).CH4_r = 2601:(11).tu_k_r = 1273: UTeplG(11).air_r = 1409: UTeplG(11).O2_r = 1467:(11).N2_r = 1391: UTeplG(11).H2_r = 1328: UTeplG(11).CO_r = 1412:(11).CO2_r=2202: UTeplG(11).Par_r=1722: UTeplG(11).CH4_r = 2697:(12).tu_k_r = 1373: UTeplG(12).air_r = 1420: UTeplG(12).O2_r = 1488:(12).N2_r = 1402: UTeplG(12).H2_r = 1335: UTeplG(12).CO_r = 1424:(12).CO2_r=2233: UTeplG(12).Par_r=1749: UTeplG(12).CH4_r=2784:(13).tu_k_r = 1473: UTeplG(13).air_r = 1432: UTeplG(13).O2_r = 1499:(13).N2_r = 1413: UTeplG(13).H2_r = 1342: UTeplG(13).CO_r = 1435:(13).CO2_r=2262: UTeplG(13).Par_r=1776: UTeplG(13).CH4_r=2861:(14).tu_k_r = 1573: UTeplG(14).air_r = 1442: UTeplG(14).O2_r = 1509:(14).N2_r = 1424: UTeplG(14).H2_r = 1350: UTeplG(14).CO_r = 1445:(14).CO2_r=2288: UTeplG(14).Par_r=1802: UTeplG(14).CH4_r=2930:(15).tu_k_r = 1673: UTeplG(15).air_r = 1452: UTeplG(15).O2_r = 1519:(15).N2_r = 1434: UTeplG(15).H2_r = 1358: UTeplG(15).CO_r = 1456:(15).CO2_r=2312: UTeplG(15).Par_r=1822: UTeplG(15).CH4_r = 2990:(16).tu_k_r = 1773: UTeplG(16).air_r = 1461: UTeplG(16).O2_r = 1528:(16).N2_r = 1443: UTeplG(16).H2_r = 1366: UTeplG(16).CO_r = 1465:(16).CO2_r=2334: UTeplG(16).Par_r=1851: UTeplG(16).CH4_r=3060:(17).tu_k_r = 1873: UTeplG(17).air_r = 1470: UTeplG(17).O2_r = 1537:(17).N2_r = 1452: UTeplG(17).H2_r = 1374: UTeplG(17).CO_r = 1474:(17).CO2_r=2354: UTeplG(17).Par_r=1875: UTeplG(17).CH4_r=0:_ EpmGG - 8
(18).tu_k_r = 1973: UTeplG(18).air_r = 1478: UTeplG(18).O2_r = 1545:(18).N2_r = 1460: UTeplG(18).H2_r = 1382: UTeplG(18).CO_r = 1481:(18).CO2_r = 2373: UTeplG(18).Par_r = 1898: UTeplG(18).CH4_r = 0:(19).tu_k_r = 2073: UTeplG(19).air_r = 1486: UTeplG(1).O2_r = 1553:(19).N2_r = 1468: UTeplG(19).H2_r = 1391: UTeplG(19).CO_r = 1489:(19).CO2_r = 3390: UTeplG(19).Par_r = 1920: UTeplG(19).CH4_r = 0:SubCalcKol_voFurm ()= 0Fr = 1 To 24gTagDb.GetTag(Delta \ F + LTrim (str(Fr))) > 2 Then= ObKolFr + 1If_voFurm = ObKolFr
End Function
_EggAverage - 1Sub EpggAverage ( )Error Resume Next. GetTag (TehnParam\EpggOB) = 0ti = 1 To 30
'MslDate = Format (ComboBoxl .Value, yymmdd)= Format (Date - ti, yymmdd)mConnectionA = New ADODB. Connection.CursorLocation =