Matematické funkce II - ASin, ACos, ACot
Funkce:
' arcus
sinus
Function ASin(value
As Double) As Double
If
Abs(value) <> 1 Then
ASin = Atn(value / Sqr(1 - value * value))
Else
ASin = 1.5707963267949 * Sgn(value)
End If
End Function
'
arcus kosinus
Function ACos(value As Double) As Double
If
Abs(value) <> 1 Then
ACos = 1.5707963267949 - Atn(value / Sqr(1
- value * value))
Else
ACos = 3.14159265358979 * Sgn(value)
End If
End Function
'
arcus kotangent
Function ACot(value As Double) As Double
ACot = Atn(1 / value)
End Function