我会编小学加减法～～～

这种发帖的态度，什么编写要求都没有，谁帮你

不好意思 公式没写 1．发动机外特性拟合公式T



补充 发动机最大功率275kw，发动机最大功率时的转速2100r/min，
发动机最大转矩1570N m，发动机最大转矩时的转速1400r/min
冷藏半挂车的有关数据：
汽车总重量42000kg
车轮半径0.536m
滚动阻力系数0.013
主减速器的传动比4.77
轴距3.2m
质心高度（满载）0.9m
质心至前轴距离（满载）a=1.947m
迎风面积
汽车传动系的传动效率0.85
变速器的档位为八档
用vb绘制汽车动力性曲线
绘制汽车驱动力与行驶阻力平衡图，汽车功率平衡图


谢谢提醒

好吧 我承认我的发帖水平有点水 请多指教

，vb略微懂一点不懂发动机，帮不了的路过、、、

谢谢路过

Private Sub Command1_Click()
Picture1.DrawWidth = 1
Picture1.Cls
Dim i, j, n As Integer
Dim Ft, Ff, Fw, Ua, Umax, Uamax, Tq, X(1 To 5) As Single
Picture1.Scale (-20, 16000)-(140, -1000)
Picture1.Line (0, 0)-(120, 0): Picture1.Line (0, 0)-(0, 15000)
Picture1.CurrentX = 124: Picture1.CurrentY = 0: Picture1.Print "Ua(km/h)"
Picture1.CurrentX = 120: Picture1.CurrentY = 200: Picture1.Print "→"
Picture1.CurrentX = 0: Picture1.CurrentY = 16000: Picture1.Print "F/N"
Picture1.CurrentX = -1.5: Picture1.CurrentY = 15400: Picture1.Print "↑"
Picture1.CurrentX = -5: Picture1.CurrentY = -5: Picture1.Print "0"
For i = 20 To 120 Step 20
Picture1.Line (i, 0)-(i, 150)
Picture1.CurrentX = i - 4: Picture1.CurrentY = -10: Picture1.Print i
Next i
For i = 3000 To 15000 Step 3000
Picture1.Line (0, i)-(1.5, i)
Picture1.CurrentX = -12: Picture1.CurrentY = i + 200: Picture1.Print i
Next i
Picture1.DrawWidth = 2
For n = 600 To 4000
Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4
For j = 1 To 5
X(1) = 5.56: X(2) = 2.769: X(3) = 1.644: X(4) = 1: X(5) = 0.793
Ft = Tq * 5.83 * 0.85 * X(j) / 0.367
Ff = 0.013 * 9.8 * 3880
Ua = 0.377 * 0.367 * n / (5.83 * X(j))
Fw = 2.77 * (Ua) ^ 2 / 21.15
Picture1.PSet (Ua, Ft), vbBlue
Picture1.PSet (Ua, (Ff + Fw)), vbRed
If Ft >= Fw + Ff Then
Umax = Ua
Else
Umax = Umax
End If
Next j
Next n
Uamax = CInt(Umax * 100) / 100
Picture1.CurrentX = 40: Picture1.CurrentY = 16000: Picture1.Print "最高车速为："; Uamax; "km/h"
End Sub

来，姐姐来告诉你吧

以上是5档变速器的，8档同理，仅供参考
突然发现这是个坟，不好意思，沉了吧

姐姐 您来的有点晚啊 我都做完了 不过还是谢谢你啊