Arcus Funktionen

Arcus Funktionen oder auch inverse Funktionen sind die Umkehr­funk­tionen. Für den Arcus Tangens gibt es in VBA die Funktion atn für den Arcus­sinus oder Arcus­co­sinus gibt es diese Möglichkeit leider nicht. Diese müssen aus dem Arcustangens abgeleitet werden.

Die folgenden Funktionen habe ich nicht selbst geschrieben sondern auf dbwiki.net gefunden.

Arcus Cosinus

'Erstellen der Funktion ArcCos
Public Function ArcCos(ByVal x As Double) As Double
   If x = 1# Then
      ArcCos = 0#
   ElseIf x = -1 Then
      ArcCos = PI
   ElseIf x < 1# And x > -1# Then
      ArcCos = Atn(-x / Sqr((-x * x) + 1)) + PI / 2#
   End If
End Function

Arcus Sinus

'Erstellen der Fuinktion ArcSin
Public Function ArcSin(ByVal x As Double) As Double
   If x = 1 Then
      ArcSin = PI / 2#
   ElseIf x = -1 Then
      ArcSin = -PI / 2#
   ElseIf x < 1# And x > -1# Then
      ArcSin = Atn(x / Sqr((-x * x) + 1))
   End If
End Function