holas
Estaba haciendo uno de mis proyc y se me planteo la necesidad de usar estas dos funciones, AcrSen y ArcCos.
Anduve buscando y se encuentra bastante pero no se porque las pruebo y no funcionan como deberían..
Algunos de los códigos que use son:
->http://www.a1vbcode.com/snippet-3311.asp (http://www.a1vbcode.com/snippet-3311.asp)
->http://www.visiblevisual.com/index.php/AutoCad-VB/ArcTan-ArcCos-ArcSin.html (http://www.visiblevisual.com/index.php/AutoCad-VB/ArcTan-ArcCos-ArcSin.html)
y en otras q perdí la dir y tampoko tuvo resultado.
Las comprobé con las equivalencias:
x = ArcSin( Sin( x ) )
y
x = ArcCos( Cos( x) )
Si logran sacar o ya tienen algo que pueda hacer esto les pido si pueden publicarlo aka. ;D
Gr4(145 S4¬ i)4 477. <[(x)]> .
Fijate en esta a mi me funciona:
Dim a As Double
Dim ArcSeno_a As Double
Private Sub Form_Load()
a = InputBox("Ingrese numero", "Programa")
ArcSeno_a = ArcSen(a)
MsgBox ArcSeno_a, vbOKOnly
End Sub
Public Function ArcSen(y As Double) As Double
' Calcula el seno inverso de y
If y = 1 Or y = -1 Then
ArcSen = pi / 2 * Sgn(y)
Else
ArcSen = Atn(y / Sqr(1 - y ^ 2))
End If
End Function
hola
El código q pusiste es bastante similar a el que esta en las paginas q deje por ahi arriba.
Pero me tome el trabajo de probar con esta =dad que saq con la calculadora científica tu código asi:
Private Sub Form_Load()
Dim ArcSeno_a As Double
ArcSeno_a = ArcSen(Sin(3))
Text1.Text = ArcSeno_a
End Sub
Public Function ArcSen(y As Double) As Double
Const pi = 3.14159265358979
If y = 1 Or y = -1 Then
ArcSen = pi / 2 * Sgn(y)
Else
ArcSen = Atn(y / Sqr(1 - y ^ 2))
End If
End Function
Dime si lo estoy utilizando mal, el valor de text1.text después de haberse ejecutado la función Form_load queda en '0,141592653589793' y tendría que ser 3.