エクセル版サーキットシミュレーション作成方法第四回

明日はお休みです。

では４回目
今回は減速側の計算です。






入力が面倒な人は以下をマル写ししてください。
Sub DeceleCal()
axmax = Cells(2, 2) * 9.806
aydmax = Cells(3, 2) * 9.806
P = Cells(9, 2)
Q = P + 15
Range(Cells(Q - P, 2), Cells(Q - 1, 2)).ClearContents
Range(Cells(Q - P, 3), Cells(Q, 7)).ClearContents
For k =1 To P
dX = Cells(Q, 22)
V0 = Cells(Q, 2)
V1 = Cells(Q - 1, 1)
dV = V0 - V1
R = Cells(Q - 1, 21)
If dV >= 0 Then
Cells(Q - 1, 2) = V1
Else
UT = 2
dVmax = (-V0 + (V0 ^ 2 + 2 * aydmax * dX) ^ 0.5)
Do Until UT <= 1
dV = V0 - V1
VM = (V0 + V1) / 2
dT = dX / VM
ay = dV / dT
ax = V1 ^ 2 / R
UT = ((ax / axmax) ^ 2 + (ay / aydmax) ^ 2) ^ 0.5
Cells(Q, 7) = UT
If dV >= 0 Then
UT = 1
End If
If Abs(dV) > dVmax Then
rV = Abs(dV) - dVmax
Else
rV = dVmax / 100
End If
Cells(Q - 1, 2) = V1
V1 = V1 - rV
Loop
Cells(Q, 3) = dV
Cells(Q, 4) = dT
Cells(Q, 6) = ay
Cells(Q, 5) = ax
End If
Q = Q - 1
Cells(9, 7) = Q
Next k
End Sub