VB6(Visual Basic Ver6)には、Atan2(x, y)という関数がなかったので、自前で用意しました。 これで、この前の逆運動額検証用で計算した角度が狙い通りになりました。
Private Const PI As Double = 3.14159265358979
Public Function Atan2(x As Double, y As Double) As Double
If x > 0 Then Atan2 = Atn(y / x) ElseIf x < 0 Then Atan2 = Sgn(y) * (PI - Atn(Abs(y / x))) ElseIf y = 0 Then Atan2 = 0 Else Atan2 = Sgn(y) * PI / 2 End If
End Function
修正版逆運動額検証用ソフトです。
|
|
|