Arkuscosinus in VB5

[Anonym]

Wie ist es möglich in VB5 aus einem Wert den Winkel (Arcuskosinus) berechnen (nicht im Bogenmass sondern in Winkelgrad(°)

[Reinhard_Kraasch]

Public Const Pi = 3.14159265358979
Public Function ACos(X As double)As double
 ACos = Atn(-X / Sqr(-X\*X + 1)) + 2 \* Pi/4
End Function
Public Function ACosInGrad(X As double)As double
 ACosInGrad = (ACos(X)/Pi) \* 180#
End Function

Reinhard