Public Function ArcSin(a As Double) As Double
'Inverse Sine Function
ArcSin = Atn(a / Sqr(1 - a * a))
End Function
Public Function ArcCos(a As Double) As Double
'Inverse Cosine Function
If a = 1 Then
ArcCos = 0
Else
ArcCos = 2 * Atn(1) - Atn(a / Sqr(1 - a * a))
End If
End Function
[Ovu poruku je menjao loto17 dana 29.12.2012. u 12:35 GMT+1]
[Ovu poruku je menjao loto17 dana 29.12.2012. u 12:36 GMT+1]