手机上网行为监控:有没有人知道VB 里sin cos 的反函数命令怎么样的???

来源:百度文库 编辑:神马品牌网 时间:2024/04/30 07:58:47
有没有人知道VB 里sin cos 的反函数命令怎么样的???

Inverse Sine
(反正弦)
Arcsin(X) = Atn(X / Sqr(-X * X + 1))
Inverse Cosine
(反余弦)
Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)

public function Arcsin(X as double) as double
on error resume next
Arcsin = Atn(X / Sqr(-X * X + 1))
end function

public function Arccos(X as double) as double
on error resume next
Arccos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
end function