[asto]

السلام عليكم

ما هو كود arcsin اي يرجع لنا الزاوية بالدرجات من قيمة الجيب (sin)

[VB6DAO]

Public Function ArcCos (x As Variant) As Variant

Select Case x
Case -1
ArcCos = 4 * Atn(1)

Case 0:
ArcCos = 2 * Atn(1)

Case 1:
ArcCos = 0

Case Else:
ArcCos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)
End Select
End Function

Public Function ArcSin (x As Variant) As Variant

Select Case x
Case -1
ArcSin = 6 * Atn(1)

Case 0:
ArcSin = 0

Case 1:
ArcSin = 2 * Atn(1)

Case Else:
ArcSin = Atn(x / Sqr(-x * x + 1))
End Select
End Function