Visual Basic - Funciones trigonométricas

Life is soft - evento anual de software empresarial
 
Vista:

Funciones trigonométricas

Publicado por Carlos (42 intervenciones) el 13/07/2002 00:34:18
Desearía saber como puedo aplicar las funciones arco seno, arco coseno, etc. que no figuran en el visual. Gracias. Carlos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Funciones trigonométricas

Publicado por Santiago (25 intervenciones) el 14/07/2002 17:23:52
Aqui te mando los modulos que hacen eso, los pones en un modulo y listo
Esta claro que X debe ser un valor entre -1 y 1
Espero que te sirva.
Para mas funciones busca en la ayuda de Vb "Funciones matematicas complementarias" o algo por el estilo

'Calcula el ArcCos de un valor
Public Function ArcCos(X As Double) As Double
'Coseno inverso Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
If X <> 1 And X <> -1 Then
ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
ElseIf X = 1 Then
ArcCos = 0 '0 pi
Else
ArcCos = PI 'Definir PI como una constante en "Declaraciones"
End If
End Function

'Calcula el ArcSen de un valor
Public Function ArcSen(X As Double) As Double
'Seno inverso Arcsin(X) = Atn(X / Sqr(-X * X + 1))
If X <> 1 And X <> -1 Then
ArcSen = Atn(X / Sqr(-X * X + 1))
ElseIf X = 1 Then
ArcSen = PI / 2 'PI
Else
ArcSen = -PI / 2 '3 / 2 * PI
End If
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar