arcsin function

How do I do the formula

B= 180-arcsin((Ri-Cl/Re)

Try this...

Quote:

---

B = 180 - arcsin((Ri-Cl/Re)

Derived math function for Arcsin...
Arcsin(X) = Atn(X / Sqr(-X * X + 1))

Substituting for x, we get.
B = 180 - Atn((Ri-Cl/Re) / Sqr(-(Ri-Cl/Re) * (Ri-Cl/Re) + 1))

---

Hope this helps :)

Laterz

Code:

---

Public Function arcSin(x As Double) As Double
    arcSin = Atn(x / Sqr(-x * x + 1))
End Function

---

Try something like this, but don't forget to test for acceptable values. All the degree measures are in radians.

- Dim A