treba mi pomoc oko trigonometriskih funkcija u vb6 tacnije kako da predstavim inverzne funkcije sinusa ,kosinusa i tangensa
trigonometriske funkcije u visual basicu
Zaključano
Zakačeno
izmenjeno 2 puta, poslednji put loto17 29.12.2012. u 12:36
Izmene poruke
- loto1729.12.2012. u 12:36zapis iz teksta poruke
- loto1729.12.2012. u 12:35zapis iz teksta poruke
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
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
. i koristi CODE tagove (ono [ code ] i [/ code ]...
Potpis
There are only 10 types of people in the world:
those who understand binary, and those who don't.
those who understand binary, and those who don't.