【正文】 pac = ((e ) ^ 2) / ((e 1) ^ 2) 39。殘余廢氣收縮系數(shù) 39。 pad = 1 paa * pab * pac * (1 / (fa ^ 2)) 39。t = 20 * (110 * n) / (110 * nn) t = 20 39。t 進氣溫升 取的 20 pa = * po * 10 39。進氣壓力 yy = (tt + t) * pr / tr / (e * pa pr) 39。 殘余廢氣系數(shù) yy 39。 ta = (t + tt + yy * fa * tr * (pa / pr) ^ ((n 1) / n)) / (1 + yy * fa) 39。進氣溫度 ta = (tt + t + yy * tr) / (1 + yy) 39。進氣溫度 nv = tt * pa * e * (e * pa pr) / (tt + t) / (10 * po) / (e 1) / e / pa 39。充氣系數(shù) 39。===================================壓縮過程========================= 39。n1 = * nn / n 39。平均壓縮多變指數(shù) pc = Int(100 * (pa * e ^ (n1))) / 100 39。壓縮終點壓力 tc = Int(10 * ta * e ^ (n1 1)) / 10 39。壓縮終點溫度 39。===============================燃燒過程=========================== lo = 1 / * (gc / 12 + gh / 4 g0 / 32) m1 = a * lo: m2 = a * lo + gh / 4 + g0 / 32 u0 = m2 / m1 u = (u0 + yy) / (1 + yy) 39。實際分子變更系數(shù) 39。khu = 58000 * (1 a) 39?；瘜W損失 khu = 0 cv1 = ( + * tc) * 39。 If n 2400 Then 39。 熱量利用系數(shù)選取 39。 qq = / 1300 * n + 39。 Else: qq = 39。End If qq = Val() ccc = (qq * (hu khu) / m1 / (1 + yy) + cv1 * tc) / u aaa = ( / a + ) * / 10000 39。柴油機 bbb = ( + / a) * tz = Int((bbb + (bbb ^ 2 + 4 * aaa * ccc) ^ ) / 2 / aaa) 39。燃燒終點溫度 39。 l8 = u * tz / tc 39。壓力升高比 ylsgb = Val() p = u * tz / ylsgb / tc 39。柴油機預期膨脹比 pz = Int(100 * (ylsgb * pc)) / 100 39。最高燃燒壓力 39。=================================膨脹=========================================== 39。n2 = + * nn / n pb = Int(100 * (pz / (e ^ n2))) / 100 39。膨脹終點壓力 tb = Int(tz / (e ^ (n2 1))) 39。膨脹終點溫度 pi1 = pc / (e 1) * (ylsgb * p / (n2 1) * (1 1 / e ^ (n2 1)) 1 / (n1 1) * (1 1 / e ^ (n1 1))) pi = fi * pi1 39。平均指示壓力 pm = (1 + n / 1000) * 39。機械損失壓力 nm = 1 pm / pi 39。 機械效率 ni = Int(10000 * * m1 * tt * pi / hu / 10 / po / nv) / 10000 39。指示熱效率 gi = 3600000 / hu / ni 39。指示燃油消耗率 ne = nm * ni 39。有效熱效率 pe = pi * nm 39。平均有效壓力 ge = 3600000 / hu / ne 39。有效燃油消耗率 vh = Int(10000 * * (d / 2) ^ 2 * r / 10 ^ 6) / 10000 v = Int(10000 * (vh / e + vh)) / 10000 39。汽缸容積 nne = i * v * pe * n / 1224 39。有效功率 Text7(1).Text = 0 amp。 Int(10000 * ni) / 10000 Text7(3).Text = Int(100 * gi) / 100 Text7(4).Text = 0 amp。 Int(10000 * ne) / 10000 Text7(5).Text = Int(1000 * pe) / 1000 Text7(6).Text = Int(100 * ge) / 100 Text7(7).Text = Int(100 * nne) / 100 = pr: = Int(10 * tr) / 10: = 0 amp。 Int(100 * pa) / 100: = Int(ta * 10) / 10 = pz: = tz: = tb: = pb = pc: = tceee:End Sub程序運行結(jié)果 圖21 195柴油機工作過程計算及PV圖顯示 23