發(fā)動機設(shè)計課程設(shè)計說明書-閱讀頁
2024-08-22 01:47本頁面
【正文】 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 SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Command4_Click() (, 120)(, 10) = vbBlack (0, 0)(, 0) 39。畫Y軸 = : = : V (L) = : = 115: P (bar) For y = 0 To 110 Step 5 39。畫箭頭 (0, 115)(, ) For x = To 1 Step 39。畫箭頭 (1, 0)(, 2) Vc = vh / (e 1) = vbBlue = Vc + : = 10: Vc (Vc, 120)(Vc, 0) 39。畫P0線 = : = 4: P0 Va = vh + vh / (e 1) Vc = vh / (e 1) = vbGreen 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。畫加熱線 End SubPrivate 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。柴油機 暫時先賦的值 39。kkk = * nn / n 39。殘余廢氣收縮系數(shù) 39。t = 20 * (110 * n) / (110 * nn) t = 20 39。進氣壓力 yy = (tt + t) * pr / tr / (e * pa pr) 39。 ta = (t + tt + yy * fa * tr * (pa / pr) ^ ((n 1) / n)) / (1 + yy * fa) 39。進氣溫度 nv = tt * pa * e * (e * pa pr) / (tt + t) / (10 * po) / (e 1) / e / pa 39。===================================壓縮過程========================= 39。平均壓縮多變指數(shù) pc = Int(100 * (pa * e ^ (n1))) / 100 39。壓縮終點溫度 39。實際分子變更系數(shù) 39?；瘜W(xué)損失 khu = 0 cv1 = ( + * tc) * 39。 熱量利用系數(shù)選取 39。 Else: qq = 39。柴油機 bbb = ( + / a) * tz = Int((bbb + (bbb ^ 2 + 4 * aaa * ccc) ^ ) / 2 / aaa) 39。 l8 = u * tz / tc 39。柴油機預(yù)期膨脹比 pz = Int(100 * (ylsgb * pc)) / 100 39。=================================膨脹=========================================== 39。膨脹終點壓力 tb = Int(tz / (e ^ (n2 1))) 39。平均指示壓力 pm = (1 + n / 1000) * 39。 機械效率 ni = Int(10000 * * m1 * tt * pi / hu / 10 / po / nv) / 10000 39。指示燃油消耗率 ne = nm * ni 39。平均有效壓力 ge = 3600000 / hu / ne 39。汽缸容積 nne = i * v * pe * n / 1224 39。 Int(10000 * ni) / 10000 Text7(3).Text = Int(100 * gi) / 100 Text7(4).Text = 0 amp。 Int(100 * pa) / 100: = Int(ta * 10) / 10 = pz: = tz: = tb: = pb = pc: = tceee:End Sub程序運行結(jié)果 圖21 195柴油機工作過程計算及PV圖顯示 23
化學(xué)相關(guān)推薦
鄂ICP備17016276號-1