發(fā)動機(jī)工作過程計算

1、第 2 組西華大學(xué)實驗報告開課學(xué)院及實驗室： 實驗時間：2012 年 4 月 7 日學(xué) 生 姓 名學(xué) 號 實 驗 成 績課 程 名 稱發(fā)動機(jī)工作過程的計算課 程 代 碼8200250實驗項目名稱發(fā)動機(jī)工作過程計算上機(jī)實驗項 目 代 碼指 導(dǎo) 教 師項 目 學(xué) 分實驗課考勤實驗工作表現(xiàn)實驗報告1、實驗?zāi)康?、實驗設(shè)備、儀器及材料3、實驗容3.1 一般實驗（非上機(jī)實驗）：3.1.1實驗方案設(shè)計與選擇（設(shè)計性、創(chuàng)新性實驗需寫該項容）3.1.2實驗原理及實驗步驟（實驗工作原理或?qū)嶒灥闹饕僮鬟^程）3.1.3實驗記錄（核心代碼及調(diào)試過程）3.2 上機(jī)實驗：3.2.1上機(jī)實驗的容及要求3.2.2算法設(shè)計思

2、想與算法實現(xiàn)步驟3.2.3程序核心代碼，程序調(diào)試過程中出現(xiàn)的問題及解決方法3.2.4 程序運行的結(jié)果注解：理工科實驗需記錄實驗過程中的數(shù)據(jù)、圖表、計算、現(xiàn)象觀察等，實驗過程中出現(xiàn)的問題；其它如在計算機(jī)上進(jìn)行的編程、仿真性或模擬性實驗需記錄程序核心代碼以及程序在調(diào)式過程中出現(xiàn)的問題及解決方法；記錄程序執(zhí)行的結(jié)果。4、實驗總結(jié)4.1實驗結(jié)果分析及問題討論4.2實驗總結(jié)心得體會注解：實驗總結(jié)的容根據(jù)不同學(xué)科和類型實驗要求不一樣，一般理工科類的實驗需要對實驗結(jié)果進(jìn)行分析，并且對實驗過程中問題進(jìn)行討論；在計算機(jī)上進(jìn)行的編程、仿真性或模擬性實驗需要對上機(jī)實踐結(jié)果進(jìn)行分析，上機(jī)的心得體會及改進(jìn)意見。其它實驗

3、應(yīng)總結(jié)實驗過程寫出心得體會及改進(jìn)意見。說明：各門實驗課程實驗報告的格式及容要求，請按照實驗指導(dǎo)書的要求手工書寫。1. 實驗?zāi)康?. 實驗儀器，設(shè)備及材料3. 實驗容 MsgBox " 西華大學(xué) 2009級 交通與汽車工程學(xué)院 熱能與動力工程（汽車發(fā)動機(jī)） 3班 唐俊End Sub運行結(jié)果依次如下： 進(jìn)入界面時：Private Sub Command1_Click() Form1.Show Form2.HideEnd Sub運行出的圖像如下：Private Sub Command2_Click() MsgBox " 西華大學(xué) 2009級 交通與汽車工程學(xué)院 熱能與動力工程（汽

4、車發(fā)動機(jī)） 3班 唐俊End Sub當(dāng)進(jìn)入主界面之后可對發(fā)動機(jī)類型，是否需要增壓，經(jīng)驗參數(shù)以及發(fā)動機(jī)參數(shù)進(jìn)行選擇和修改。選擇界面如下：主程序的詳細(xì)代碼如下：Dim As Single, S As Single, n As Integer, nh As Integer, As Single, vc, vh, pa, n1, , pz, vz, n2, jx, zyPrivate Sub Command1_Click() Picture1.Scale (-0.05, -0.5)-(1.05, 11) Picture1.Line (0, 10)-(1, 10) '畫X軸 Picture1.L

5、ine (0.98, 9.9)-(1, 10) Picture1.Line (0.98, 10.1)-(1, 10) Picture1.CurrentX = 0.98: Picture1.CurrentY = 10.2: Picture1.Print "V/L" For i = 0 To 0.9 Step 0.1 Picture1.Line (i, 9.9)-(i, 10) Picture1.Print "0" & i Next i Picture1.Line (0, 10)-(0, 0) '畫Y軸 Picture1.Line (0, 0

6、)-(-0.01, 0.3) Picture1.Line (0.01, 0.3)-(0, 0) Picture1.CurrentX = -0.04: Picture1.CurrentY = -0.4: Picture1.Print "P/Mpa" For i = 9 To 1 Step -1 Picture1.Line (0.01, i)-(0, i) Picture1.Print 10 - i Next i Picture1.ForeColor = vbRed '畫P0線 Picture1.Line (0, 9.9)-(1, 9.9) Picture1.Curre

7、ntX = 1: Picture1.CurrentY = 9.4: Picture1.Print "P0" Picture1.ForeColor = vbBlue '畫Vc線 '壓縮曲線 = Val(Text2.Text) d = Text4.Text S = Text3.Text r = S / 2 vh = 3.14 * d 2 * S / 4 * 10 -6 Text16.Text = vh vc = vh / ( - 1) Picture1.CurrentX = vc + 0.01: Picture1.CurrentY = 1: Picture1.P

8、rint "Vc" Picture1.Line (vc, 10)-(vc, 0) Va = vc + vh l = Text15.Text Picture1.ForeColor = vbGreen For x = 3.14 To 0 Step -0.0001 vcx = vh / 2 * (1 - Cos(x) + (1 - Cos(2 * x) * Rl / 4) + vc 'vcx = (3.14 * d 2 * r * (1 - Cos(x) + r * (1 - Cos(2 * x) / 4 / l) / 4) * 10 -8 + vc pcx = pa *

9、 (Va / vcx) n1 Picture1.PSet (vcx, 10 - pcx) Next x '燃燒過程曲線 Picture1.Line (vcx, 10 - pcx)-(vcx, 10 - pcx * ) '膨脹過程曲線 For x = 0 To 3.14 Step 0.0001 vbx = vh / 2 * (1 - Cos(x) + (1 - Cos(2 * x) * Rl / 4) + vc 'vcx = (3.14 * d 2 * r * (1 - Cos(x) + r * (1 - Cos(2 * x) / 4 / l) / 4 + vc) * 1

10、0 -6 pbx = pz * (vc / vbx) n2 Picture1.PSet (vbx, 10 - pbx) Next x Picture1.Line (vbx, 10 - pbx)-(vbx, 10 - pa) Picture1.ForeColor = vbBlackEnd SubPrivate Sub Command2_Click() Picture1.Cls = Val(Text2.Text) d = Text4.Text S = Text3.Text r = S / 2 l = Text15.Text vh = 3.14 * d 2 * S / 4 * 10 -6 Text1

11、6.Text = vh '排氣過程 n = Val(Text5.Text) nh = Val(Text6.Text) If zy = 1 Then pr = 0.1 + 0.03 * n / nh ElseIf zy = 2 Then pk = Text45.Text pr = 2 * 10 -8 * n 2 pr = pk + pr End If Text18.Text = pr = Val(Text1.Text) = Val(Text2.Text) If = 1 Then MsgBox ("壓縮比不能為“1”，請重新輸入！") Text2.Text = &quo

12、t;" End If Tr = 350 / (1.2 / Log10(n) + 0.005 * ( - 3) + 0.01 * ( - 1) '調(diào)用自定義函數(shù)就以10為底的對數(shù) Text17.Text = Tr '進(jìn)氣過程 T = 10 * (110 - 0.0125 * n) / (110 - 0.0125 * nh) '10為Tn,選取 = 0.75 = 0.5 k = 1.35 'a = vh / f p0 = Text7.Text 'Pa = P0 * (1 - n 2 / 2*9.8*k*p0 / 2 * ( - ) / ( - 1)

13、 2) k / (k - 1) pa = Int(10 4 * (p0 * (1 - (10 * n 2 / 520 / 10 6) / 10.6 2 / 0.75 2) * ( - ) 2 / ( - 1) 2) (k / (k - 1) / 10 4 Text20.Text = pa t0 = Text8.Text = Int(10 4 * (t0 + T) * pr / Tr / ( * pa - pr) / 10 4 '殘余廢氣系數(shù) Text21.Text = ta = (t0 + T + * * Tr * (pa / pr) (n - 1) / n) / (1 + * ) T

14、ext19.Text = ta v = * pa * t0 / ( - 1) / p0 / ta / (1 + ) '充氣效率 Text22.Text = v '壓縮過程 n1 = 1.46 - 0.05 * nh / n Text25.Text = n1 pc = pa * n1 Text29.Text = pc tc = ta * (n1 - 1) Text28.Text = tc '燃燒過程： gc = Val(Text9.Text) gh = Val(Text10.Text) go = Val(Text11.Text) gs = Val(Text12.Text)

15、 l0 = 1 / 0.21 * (gc / 12 + gh / 4 - go / 32) '理論空氣量 mt = Text13.Text If jx = 1 Then m1 = * l0 + 1 / mt '汽油機(jī)新鮮充量 ElseIf jx = 2 Then m1 = * l0 End If If > 1 Then 'm2燃燒產(chǎn)物總量 m2 = * l0 + gh / 4 + go / 32 ElseIf < 1 Then m2 = 0.79 * * l0 + gc / 12 + gh / 2 End If 0 = m2 / m1 '理論分子變更

16、系數(shù) = (0 + ) / (1 + ) '實際分子變更系數(shù) Text34.Text = If < 1 Then hu = 58000 * (1 - ) '化學(xué)損失 End If 'Tz的計算 = Text23.Text If jx = 1 Then hu = 44100 ElseIf jx = 2 Then hu = 42500 End If q1 = * (hu - hu) '加熱工質(zhì)的熱量 cv1 = 4.815 + 0.415 * 10 -3 * (tc + t0) / 2 Select Case Case 0.8 To 1 If jx = 1 T

17、hen aa = (3.7 + 3.3 * ) * 10 -4 * bb = (4.4 + 0.62 * ) * cc = -(q1 / m1 / (1 + ) + cv1 * tc) tz = (-bb + (bb 2 - 4 * aa * cc) 0.5) / 2 / aa / 2.5 Text31.Text = tz = * tz / tc Text33.Text = pz = * pc Text32.Text = pz ElseIf jx = 2 Then = Text33.Text aa = * (3.7 + 3.3 * ) * 10 -4 bb = (6.385 + 0.62 *

18、) * cc = -( * hu / m1 / (1 + ) + (cv1 + 1.98 * ) * tc) tz = (-bb + (bb 2 - 4 * aa * cc) 0.5) / 2 / aa / 2.5 Text31.Text = tz pz = * pc Text32.Text = pz = * tz / / tc Text30.Text = End If Case 1 To 2 If jx = 1 Then aa = (3.7 + 3.3 / ) * 10 -4 * bb = (4.8 + 0.22 / ) * cc = -(q1 / m1 / (1 + ) + cv1 * t

19、c) tz = (-bb + (bb 2 - 4 * aa * cc) 0.5) / 2 / aa / 2.5 Text31.Text = tz = * tz / tc Text33.Text = pz = * pc Text32.Text = pz ElseIf jx = 2 Then = Text33.Text aa = (3.7 + 3.3 / ) * 10 -4 * bb = (6.785 + 0.22 / ) * cc = -( * hu / m1 / (1 + ) + (cv1 + 1.98 * ) * tc) tz = (-bb + (bb 2 - 4 * aa * cc) 0.

20、5) / 2 / aa / 2.5 Text31.Text = tz pz = * pc Text32.Text = pz = * tz / / tc Text30.Text = End If End Select '膨脹過程： n2 = 1.2 + 0.039 * nh / n Text26.Text = n2 ' = / 'Text37.Text = pb = pz / n2 Text36.Text = pb tb = tz / (n2 - 1) Text35.Text = tb '發(fā)動機(jī)性能分析 = 1 Text30.Text = = 0 Text37.T

21、ext = Pii = pc * ( * (1 - 1 / (n2 - 1) / (n2 - 1) - (1 - 1 / (n1 - 1) / (n1 - 1) / ( - 1) 'Pii = pa * n1 * ( * ( - 1) + * / (n2 - 1) * (1 - 1 / (n2 - 1) - (1 - 1 / (n1 - 1) / (n1 - 1) / ( - 1) i = Text24.Text pi = i * Pii Text39.Text = pi i = 8.314 * m1 * t0 * pi / hu / p0 / v Text38.Text = i gi = 3.6 * 10 6 / hu / i Text40.Text = gi pm = 0.04 * (1 + n / 1000) m = 1 - pm / pi Text27.Text = m e = i * m Text42.Text = e pe = pi * m Text41.Text = pe ge = 3.6 * 10 6 / hu / e Text43.Text