epv
30 de Mayo del 2006

Buenas,

Necesito saber con que funcion puedo calcular el arcoseno de un angulo. Las funciones sin(), cos() y tan() si que me funcionan pero no conozco ninguna que me de el arco tan, arco sin o arc cos.

Alguien sabe algo¿?¿?

epv
30 de Mayo del 2006

Public Function ArcCos(A As Double) As Double

\'Inverse Cosine

On Error Resume Next

If A = 1 Then
ArcCos = 0
Exit Function
End If

ArcCos = Atn(-A / Sqr(-A * A + 1)) + 2 * Atn(1)
On Error GoTo 0

End Function

Public Function ArcSin(x As Double) As Double

\'Inverse Sine

On Error Resume Next
ArcSin = Atn(x / Sqr(-x * x + 1))
On Error GoTo 0

End Function

Public Function ArcTan(x As Double) As Double

\'Inverse Tangent

On Error Resume Next
ArcTan = Atn(x) * (180 / PI)
On Error GoTo 0

End Function