求Acos(x)=dx/l

Question

cos(Alfa) = dx/l
如果dx = 1 : L=2
求角度Alfa

Answer 1

'角度为弧度
Private Sub Form_Load()
Dim Alfa, dx, L As Double
dx = 1
L = 2
x = dx / L
Alfa = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)
MsgBox AlfaEnd Sub

Answer 2

'Inverse Cosine
Public Function ACos(ByVal Number As Double) As Double
  ACos = Atn(-Number / Sqr(-Number * Number + 1)) + 2 * Atn(1)
End FunctionSub llss()
  nn = ACos(30 / 42.4264)
End Sub

Answer 3

Function aArcCos(X As Double) As Double
  Dim Temp As Double
  If X = 0 Then
    Temp = Pi / 2
  Else
    Temp = Atn(Sqr(1 - X * X) / X)
  End If
  aArcCos = Temp
End Function
''
Sub ssMSMSM()
  Dim GG As Double
  GG = aArcCos(1 / 2)
End Sub
''
Function Pi() As Double
  Pi = Atn(1) * 4
End Function