タツゥのブログ一覧

今日はこれから伊勢原で飲み会にでかけます。
なので、出かける前にがんばって第五回を書きました。
がしかし、１枚目を書くの忘れてました。そのうち追加します。

では５回目
今回は加速側です。
加速側は、横Ｇ限界速度、タイヤ使用率、車輌加速性能で速度が決まるため、減速側よりちょっと複雑です。
さらに別のシートで各速度における車輌性能で決まる加速度を事前に計算しておく必要があります。

２枚目からどうぞ








マル写しはこちら
Sub AcceleCal()
axmax = Cells(2, 2) * 9.806
ayamax = Cells(4, 2) * 9.806
kxg = Cells(6, 2)
P = Cells(9, 2)
Q = 15
Range(Cells(Q + 1, 8), Cells(Q + P, 8)).ClearContents
Range(Cells(Q, 9), Cells(Q + P, 14)).ClearContents
For k = 1 To P
dX = Cells(Q + 1, 22)
V0 = Cells(Q, 8)
V1 = Cells(Q + 1, 1)
dV = V1 - V0
R = Cells(Q + 1, 21)
If dV <= 0 Then
Cells(Q + 1, 8) = V1
Else
Cells(Q, 9) = dV
VM = (V0 + V1) / 2
dT = dX / VM
ay = dV / dT
ayemax = Application.WorksheetFunction.Lookup(V0, Worksheets("Power").Range("I36:I2136"), Worksheets("Power").Range("H36:H2136"))
Cells(Q, 13) = ayemax
If ay > ayemax Then
ax = V0 ^ 2 / R
ay = ayemax - Abs(ax) * kxg
dT = (-V0 + (V0 ^ 2 + 2 * ay * dX) ^ 0.5) / ay
End If
dVmax = ay * dT
V1 = V0 + dVmax
Cells(Q + 1, 8) = V1
UT = 2
Do Until UT <= 1
dV = V1 - V0
VM = (V0 + V1) / 2
dT = dX / VM
ay = dV / dT
ax = V1 ^ 2 / R
UT = ((ax / axmax) ^ 2 + (ay / ayamax) ^ 2) ^ 0.5
Cells(Q, 14) = UT
If dV <= 0 Then
UT = 1
End If
V1 = V1 - dVmax / 100
Cells(Q + 1, 8) = V1
Loop
Cells(Q, 9) = dV
Cells(Q, 10) = dT
Cells(Q, 11) = ax
Cells(Q, 12) = ay
End If
Q = Q + 1
Cells(8, 7) = Q
Next k
End Sub