三角函数
来源:互联网 发布:打开azw3的软件 编辑:程序博客网 时间:2024/04/29 13:13
Function Sec(X) As Double '正割 Sec = 1 / Cos(Angle)End FunctionFunction Csc(X) As Double '余割 Csc = 1 / Sin(Angle)End FunctionFunction Cot(X) As Double '余切 Cot = 1 / Tan(Angle)End FunctionFunction ArcSin(X) As Double '反正弦 ArcSin = Atn(X / Sqr(-X * X + 1))End FunctionFunction ArcCos(X) As Double '反余弦 ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)End FunctionFunction ArcSec(X) As Double '反正割 ArcSec = Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2 * Atn(1))End FunctionFunction ArcCsc(X) As Double '反余割 ArcCsc = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))End FunctionFunction ArcCot(X) As Double '反余切 ArcCot = Atn(X) + 2 * Atn(1)End FunctionFunction HSin(X) As Double '双曲正弦 HSin = (Exp(X) - Exp(-X)) / 2End FunctionFunction HCos(X) As Double '双曲余弦 HCos = (Exp(X) + Exp(-X)) / 2End FunctionFunction HTan(X) As Double '双曲正切 HTan = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))End FunctionFunction HSec(X) As Double '双曲正割 HSec = 2 / (Exp(X) + Exp(-X))End FunctionFunction HCsc(X) As Double '双曲余割 HCsc = 2 / (Exp(X) - Exp(-X))End FunctionFunction HCot(X) As Double '双曲余切 HCot = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))End FunctionFunction HArcsin(X) As Double '反双曲正弦 HArcsin = Log(X + Sqr(X * X + 1))End FunctionFunction HArccos(X) As Double '反双曲余弦 HArccos = Log(X + Sqr(X * X - 1))End FunctionFunction HArctan(X) As Double '反双曲正切 HArctan = Log((1 + X) / (1 - X)) / 2End FunctionFunction HArcsec(X) As Double '反双曲正割 HArcsec = Log((Sqr(-X * X + 1) + 1) / X)End FunctionFunction HArccsc(X) As Double '反双曲余割 HArccsc = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)End FunctionFunction HArccot(X) As Double '反双曲余切 HArccot = Log((X + 1) / (X - 1)) / 2End FunctionFunction LogN(N, X) '以 N 为底的对数 LogN = Log(X) / Log(N)End Function