【エクセルVBA】初期速度、放射角度から放物線を計算する方法！

こんにちは、ヒガシです。

このページではエクセルVBAを使って、以下の図に示すように、物体の初期速度と放射角度から放物線を計算する方法をご紹介していきます。

初期条件を設定するだけで簡単に計算できるようになっていますので、ぜひご活用ください。

それではさっそくやっていきましょう！

※今回の計算は空気抵抗等は一切考慮しない計算になっています。あらかじめご了承ください。

物体の放物線を計算するサンプルコード
サンプルコードの実行結果確認
初期条件を変更して実行した結果
おわりに

物体の放物線を計算するサンプルコード

いきなりですが、本題である物体放物線を計算するサンプルコードをご紹介します。

Sub calc_parabola()
    Dim Vini As Single, Angle As Single
    Dim G_accele As Single
    Dim total_time As Single, dt As Single
    Dim data_num As Integer
    '初期速度、発射角度、計算時間を指定
    Vini = 10
    Angle = 45
    total_time = 1.5
    '重力加速度、計算刻み時間を指定
    G_accele = -9.8
    dt = 0.1
    '放物線計算処理
    pi_v = WorksheetFunction.Pi
    Vinix = Vini * Cos(2 * pi_v * Angle / 360)
    Viniy = Vini * Sin(2 * pi_v * Angle / 360)
    data_num = total_time / dt
    Cells(1, 1) = "TIME"
    Cells(1, 2) = "X"
    Cells(1, 3) = "Y"
    For i = 0 To data_num
        time_v = i * dt
        Cells(2 + i, 1) = time_v
        Cells(2 + i, 2) = Vinix * time_v
        Cells(2 + i, 3) = Viniy * time_v + 1 / 2 * G_accele * time_v * time_v
    Next
End Sub

あなたがやるべきことは６～１２行目の初期条件や計算条件を決めてあげるだけでOKです。