放热率计算
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB计算发动机放热率
半球形燃烧室的482Q汽油机缸径为82mm，行程为86mm，压缩比为8.2，进气门迟闭角为10CA；排气门提前角为9.5CA。当转速为3200r/mi，油门开度为92%，充气效率为0.74，空燃比为15.3，点火提前角为20CA，平均有效压力为7.92bar，有效功率为38.4kW，比油耗为282g/kW.h时，根据不同曲轴转角下已知的气缸压力，本文通过VB编程语言计算出：
1.缸内温度随曲轴转角的变化规律，缸内最高温度及其对应的曲轴转角；
2.缸内压力升高率随曲轴转角的变化规律；最大压力升高率及其对应的曲轴转角；
3.平均指示压力、指示功率、指示热效率、机械效率。以下是部分程序及结果。
'压力升高率
Private Sub Command1_Click()
'定义常数
Dim Ang(1 To 682) As Double '曲轴转角
Dim pre(1 To 682) As Double '缸内压力
Dim dp(1 To 680) As Double '压力升高率
Dim mdp As Single '最大压力升高率
Dim mdpang As Single '最大压力升高率对应的曲轴转角
'载入数据
Dim i As Double
Dim ii As Double
Dim j As Double
fileno = FreeFile
Open App.Path & "\shuju.txt" For Input As #fileno
i = 1
Do While Not EOF(fileno)
Input #fileno, Ang(i), pre(i)
i = i + 1
Loop
Close #fileno
'计算压力升高率
For ii = 1 To 680
dp(ii) = (pre(ii + 1) - pre(ii)) / 0.5 / 1000
Next ii
'求最大压力升高率及对应的曲轴转角
mdp = dp(1)
mdpang = Ang(1)
For j = 2 To 680
If dp(j) > mdp Then
mdp = dp(j)
mdpang = Ang(j)
End If
Next j
'绘制压力升高率随曲轴转角的变化并显示最大压力升高率及对应的曲轴转角
Picture1.Cls
Picture1.ScaleMode = 2
Picture1.Scale (-200, 0.25)-(200, -0.15) '自定义坐标系
Picture1.ForeColor = RGB(255, 255, 0)
Picture1.DrawWidth = 3
Picture1.Line (0, -140)-(0, 270) '画Y轴
Picture1.Line (-200, 0)-(200, 0) '画X 轴
Picture1.DrawWidth = 6
Picture1.PSet (0, 0), RGB(0, 255, 0) '画原点
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.CurrentX = 2
Picture1.CurrentY = -2
Picture1.Print "o" '标记原点
Picture1.ForeColor = RGB(0, 100, 255)
Picture1.CurrentX = -50
Picture1.CurrentY = -0.13
Picture1.Print "压力升高率随曲轴转角的变化关系"
Picture1.ForeColor = RGB(255, 0, 255)
Picture1.CurrentX = 7
Picture1.CurrentY = 0.2
Picture1.Print "最高压力升高率为" & mdp & "MPa/℃A" & " 其对应的曲轴转角为" & mdpang & "℃"
Picture1.DrawWidth = 2
Picture1.ForeColor = RGB(255, 0, 0)
For k = 1 To 680
Picture1.PSet (Ang(k), dp(k))
Next k
End Sub
Private Sub Command2_Click()
Dim a As Double
Dim t(1 To 682) As Double
Dim v(1 To 682) As Double
Dim b As Integer
Dim bb As Integer
Dim y As Integer
Dim mt As Double
Dim mtang As Double
Dim Ang(1 To 682) As Double '曲轴转角
Dim pre(1 To 682) As Double '缸内压力
fileno = FreeFile
Open App.Path & "\shuju.txt" For Input As #fileno
a = 1
Do While Not EOF(fileno)
Input #fileno, Ang(a), pre(a)
a = a + 1