【正文】 Int(100 * pa) / 100: = Int(ta * 10) / 10 = pz: = tz: = tb: = pb = pc: = tc eee: End Sub 程序運(yùn)行結(jié)果 圖 21 195 柴油機(jī)工作過程計(jì)算及 PV圖顯示 。 Int(10000 * ni) / 10000 Text7(3).Text = Int(100 * gi) / 100 Text7(4).Text = 0 amp。汽缸容積 nne = i * v * pe * n / 1224 39。平均有效壓力 ge = 3600000 / hu / ne 39。指示燃油消耗率 ne = nm * ni 39。 機(jī)械效率 ni = Int(10000 * * m1 * tt * pi / hu / 10 / po / nv) / 10000 39。平均指示壓力 課 程 設(shè) 計(jì) 說 明 書 22 pm = (1 + n / 1000) * 39。膨脹終點(diǎn)壓力 tb = Int(tz / (e ^ (n2 1))) 39。=================================膨脹 =========================================== 39。柴油機(jī)預(yù)期膨脹比 pz = Int(100 * (ylsgb * pc)) / 100 39。 l8 = u * tz / tc 39。柴油機(jī) bbb = ( + / a) * tz = Int((bbb + (bbb ^ 2 + 4 * aaa * ccc) ^ ) / 2 / aaa) 39。 Else: qq = 39。 熱量利用系數(shù)選取 39。化學(xué)損失 khu = 0 cv1 = ( + * tc) * 39。實(shí)際分子變更系數(shù) 39。壓縮終點(diǎn)溫度 39。平均壓縮多變指數(shù) pc = Int(100 * (pa * e ^ (n1))) / 100 39。===================================壓縮過程 ========================= 39。進(jìn)氣溫度 nv = tt * pa * e * (e * pa pr) / (tt + t) / (10 * po) / (e 1) / e / pa 39。 ta = (t + tt + yy * fa * tr * (pa / pr) ^ ((n 1) / n)) / (1 + yy * fa) 39。進(jìn)氣壓力 yy = (tt + t) * pr / tr / (e * pa pr) 39。t = 20 * (110 * n) / (110 * nn) t = 20 39。殘余廢氣收縮系數(shù) 暫時(shí)取的 39。kkk = * nn / n 39。柴油機(jī) 暫時(shí)先賦的值 39。畫加熱線 End Sub Private Sub Command1_Click() s = Val(): d = Val() n = Val(): po = Val() / 10: e = Val(): tt = Val(): fa = Val(): r = Val() l = Val() / / ((d / 2) ^ 2) gc = Val(): gh = Val(): g0 = Val() a = Val(): mt = Val(): fi = Val(): i = Val() n1 = Val(): n2 = Val() 39。===================================畫膨脹曲線 ========================= For φx = To Step Vbx = vh / 2 * ((1 Cos(φx)) + (1 Cos(2 * φx)) * 1 / 4 / 4) + Vc Pbx = pb * (Va / Vbx) ^ n2 If Pbx = pz Then (Vbx, Pbx) Else: (Vc, pz)(Vbx, pz) End If Next φx Vb1 = vh / 2 * ((1 Cos()) + (1 Cos(2 * )) * 1 / 4) + Vc (Va, pa)(Va, pb) 39。畫 P0線 = : = 4: P0 Va = vh + vh / (e 1) Vc = vh / (e 1) = vbGreen 39。畫箭頭 (1, 0)(, 2) Vc = vh / (e 1) = vbBlue = Vc + : = 10: Vc (Vc, 120)(Vc, 0) 39。畫箭頭 (0, 115)(, ) For x = To 1 Step 39。畫 Y 軸 = : = : V (L) = : = 115: P (bar) For y = 0 To 110 Step 5 39。 【參考 文獻(xiàn)】 ［ 1］曾東建 .汽車發(fā)動機(jī)設(shè)計(jì) . 西華大學(xué)， 2020. ［ 2］魏遠(yuǎn)文 .發(fā)動機(jī)工作過程計(jì)算 .西華大學(xué)， 2020 ［ 3］周龍保，高宗英 .內(nèi)燃機(jī)學(xué)［ M］ .機(jī)械工業(yè)出版社， 2020 ［ 4］楊寶剛 .開展企業(yè)管理信息化工作的步驟［ J］，企業(yè)管理， 2020（ 11）： 12～ 15 ［ 5］ Islamabad. Software tools for fery detection［ J］ . Business . (5） . 29～32 ［ 6］何華，曾馨 .發(fā)動機(jī)結(jié)構(gòu)［ M］ .北京：北京理工大學(xué)出版社， 2020. ［ 7］西華大學(xué)交通與汽車工程學(xué)院 .內(nèi)燃機(jī)課程設(shè)計(jì)指導(dǎo)書 ［ 8］臧杰，閻巖 .汽車構(gòu)造［ M］ .北京：機(jī)械工業(yè)出版社， 2020. 課 程 設(shè) 計(jì) 說 明 書 19 附錄： 195 柴油機(jī)額定工況工作過程計(jì)算程序 程序核心代碼 Option Explicit Dim n, nn, pr, po As Single Dim tr, pa, Va, s, d, vh, kkk As Single Dim pab, e, paa, pad, pac As Single Dim tt, t, yy, fa, ta As Single Dim nv, n1, tc, pc, fx As Single Dim l, Vc, gc, gh, g0 As Single Dim Vcx, r, lo, a, mt, m1, m2, u0, u As Single Dim khu, cv1, cv2, tz, ccc, hu, qq, aaa, bbb As Single Dim l8, n2, pz, tb, pi1, pi, p As Single Dim fi, pm, nm, ni, gi, ne, pe, ge, nne, i, v, pb As Double Dim ylsgb As Single Dim P0, Pcx, Tcx, Pbx, Tbx, Vbx As Single Dim x, y As Integer Dim φx, Vb1 Private Sub Command2_Click() End Sub Private Sub Command3_Click() End End Sub Private Sub Command4_Click() (, 120)(, 10) = vbBlack (0, 0)(, 0) 39。 其次，我也十分感謝在整個課程設(shè)計(jì)實(shí)驗(yàn)中給予我?guī)椭耐瑢W(xué)和室友，感謝他們在學(xué)習(xí)中給我的幫助。 在此 也 感謝我們的 曾 老師 .，老師嚴(yán)謹(jǐn)細(xì)致、一絲不茍的作風(fēng)一直是我工作、學(xué)習(xí)中的榜樣；老師循循善誘的教導(dǎo)和不拘一格的思路給予我無盡的啟迪；這次 發(fā)動機(jī) 設(shè)計(jì)的每個細(xì)節(jié)和每個數(shù)據(jù)，都離不開老師您的細(xì)心指導(dǎo)。