Function Arccos(x As Double) As Double
'**********************************************************
' 逆三角関数ACOSを返します。
'**********************************************************
  Dim Acos As Double
  Acos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)
  Arccos = Acos
End Function