[ 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 ]...