qichelilun.rar_平衡_阻力 检测

Private Sub Command1_Click() '驱动力与行驶阻力平衡图

Form1.Caption = "驱动力与行驶阻力平衡图"

Picture1.Cls

Picture1.Scale (-11, 15300)-(145, -800)

Picture1.Line (0, 0)-(140, 0)

Picture1.Line (0, 0)-(0, 15000)

Picture1.Line (133, 150)-(135, 0)

Picture1.Line (1, 14600)-(0, 14900)

Picture1.Line (133, -150)-(135, 0)

Picture1.Print "Ft(N)"

For x = 0 To 120 Step 10

Picture1.Line (x, 0)-(x, 200)

Picture1.CurrentX = x - 4

Picture1.CurrentY = -150

Picture1.Print x

Next x

For Y = 1000 To 14000 Step 1000

Picture1.Line (0, Y)-(1.5, Y)

Picture1.CurrentX = -12

tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n

/ 1000) ^ 4

Ft = tq * iq * 5.83 * 0.85 / 0.367

ua = (0.377 * 0.367 * n) / (iq * 5.83)

Picture1.PSet (ua, Ft)

Next n

For n = 600 To 4000 Step 0.1 '四档

iq = 1

tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n

/ 1000) ^ 4

For n = 600 To 4000 Step 0.1 '三档

iq = 1.644

tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n

Ft = tq * iq * 5.83 * 0.85 / 0.367

ua = (0.377 * 0.367 * n) / (iq * 5.83)

Picture1.PSet (ua, Ft)

Next n

/ 1000) ^ 4

Picture1.PSet (ua, Ft)

Next n

For n = 600 To 4000 Step 0.1 '一档

iq = 5.56

tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n

/ 1000) ^ 4

Ft = tq * iq * 5.83 * 0.85 / 0.367

ua = (0.377 * 0.367 * n) / (iq * 5.83)

Picture1.PSet (ua, Ft)

Next n

'五挡行驶阻力 , 和最高车速

f = 18000 * 0.013 + (2.77 / 21.25) * ua ^ 2

tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n

/ 1000) ^ 4

Ft = (tq * 0.793 * 5.83 * 0.85) / 0.367

c = Ft - f

If -0.1 ^ 1000000 < c < 0 Then: x = ua: Y = Ft: uamax = ua

Picture1.PSet (ua, f)

Next n

Picture1.Line (x, 0)-(x, Y)

Picture1.CurrentX = x - 15: Picture1.CurrentY = Y + 1000: Picture1.Print " 最 大 速 度 为 :";

Format(x, "###.#"); "Km/h"

End Sub

Picture1.Line (0, 0)-(180, 0)

Picture1.Line (0, 0)-(0, 4.8)

Picture1.CurrentX = 160: Picture1.CurrentY = -0.2: Picture1.Print "Ua(km/h)"

Picture1.CurrentX = 3: Picture1.CurrentY = 4.8: Picture1.Print "a(m/s^2)"

For x = 0 To 120 Step 20

Picture1.Line (x, 0)-(x, 0.05)

Picture1.CurrentX = x - 4.5

Picture1.CurrentY = Y + 0.05

Picture1.Print Y

Next Y

ig = 0.793

tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n

Ft = (tq * ig * 5.83 * 0.85) / 0.367

Ff = 18000 * 0.013

ua = (0.377 * 0.367 * n) / (ig * 5.83)

a = (Ft - Ff - Fw) / (s * 1800)

If a < 0 Then Exit For

Next n

For n = 600 To 4000 Step 0.1 '四档

ig = 1

tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n

/ 1000) ^ 4

Ft = (tq * ig * 5.83 * 0.85) / 0.367

Ff = 18000 * 0.013

ua = (0.377 * 0.367 * n) / (ig * 5.83)

Fw = (2.77 / 21.25) * ua ^ 2

s = 1 + (1.198 * 2 + 3.598 * 4) / (1800 * 0.367 ^ 2) + (0.218 * 5.83 ^ 2 * ig ^ 2 * 0.85) / (1880 *

0.367 ^ 2)

For n = 600 To 4000 Step 0.1 '三档

ig = 1.644

tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n

Ft = (tq * ig * 5.83 * 0.85) / 0.367

Ff = 18000 * 0.013

ua = (0.377 * 0.367 * n) / (ig * 5.83)

Fw = (2.77 / 21.25) * ua ^ 2

0.367 ^ 2)

For n = 600 To 4000 Step 0.1 '二档

ig = 2.769

tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n

/ 1000) ^ 4

Ft = tq * ig * 5.83 * 0.85 / 0.367

Ff = 18000 * 0.013

ua = (0.377 * 0.367 * n) / (ig * 5.83)

Fw = (2.77 / 21.25) * ua ^ 2

s = 1 + (1.198 * 2 + 3.598 * 4) / (1800 * 0.367 ^ 2) + (0.218 * 5.83 ^ 2 * ig ^ 2 * 0.85) / (1880 *

0.367 ^ 2)

a = (Ft - Ff - Fw) / (s * 1800)

For n = 600 To 4000 Step 0.1 '一档

ig = 5.56

tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n

/ 1000) ^ 4

Ft = tq * ig * 5.83 * 0.85 / 0.367

Ff = 18000 * 0.013

ua = (0.377 * 0.367 * n) / (ig * 5.83)

Fw = (2.77 / 21.25) * ua ^ 2

s = 1 + (1.198 * 2 + 3.598 * 4) / (1800 * 0.367 ^ 2) + (0.218 * 5.83 ^ 2 * ig ^ 2 * 0.85) / (1880 *

0.367 ^ 2)

a = (Ft - Ff - Fw) / (s * 1800)

Picture1.PSet (ua, a)

Next n

End Sub