trigonometriske funkcije u visual basicu

[ lupco_1959 @ 28.12.2012. 11:40 ] @

treba mi pomoc oko trigonometriskih funkcija u vb6 tacnije kako da predstavim inverzne funkcije sinusa ,kosinusa i tangensa

[ loto17 @ 28.12.2012. 13:11 ] @

Code:

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]}

[ shpiki @ 28.12.2012. 16:40 ] @

. i koristi CODE tagove (ono [ code ] i [/ code ]...