vb中三角函数.docVIP

1 把下面代码保存成一个模块，需要的时候就能直接调用了。集合了全部三角函数。很实用。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Function Sec(X) As Double 正割 Sec = 1 / Cos(Angle) End Function Function Csc(X) As Double 余割 Csc = 1 / Sin(Angle) End Function Function Cot(X) As Double 余切 Cot = 1 / Tan(Angle) End Function Function ArcSin(X) As Double 反正弦 ArcSin = Atn(X / Sqr(-X * X + 1)) End Function Function ArcCos(X) As Double 反余弦 ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) End Function Function ArcSec(X) As Double 反正割 ArcSec = Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2 * Atn(1)) End Function Function ArcCsc(X) As Double 反余割 ArcCsc = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1)) End Function Function ArcCot(X) As Double 反余切 ArcCot = Atn(X) + 2 * Atn(1) End Function Function HSin(X) As Double 双曲正弦 HSin = (Exp(X) - Exp(-X)) / 2 End Function Function HCos(X) As Double 双曲余弦 HCos = (Exp(X) + Exp(-X)) / 2 End Function Function HTan(X) As Double 双曲正切 HTan = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X)) End Function Function HSec(X) As Double 双曲正割 HSec = 2 / (Exp(X) + Exp(-X)) End Function Function HCsc(X) As Double 双曲余割 HCsc = 2 / (Exp(X) - Exp(-X)) End Function Function HCot(X) As Double 双曲余切 HCot = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X)) End Function Function HArcsin(X) As Double 反双曲正弦 HArcsin = Log(X + Sqr(X * X + 1)) End Function Function HArccos(X) As Double 反双曲余弦 HArccos = Log(X + Sqr(X * X - 1)) End Function Function HArctan(X) As Double 反双曲正切 HArctan = Log((1 + X) / (1 - X)) / 2 End Function Function HArcsec(X) As Double 反双曲正割 HArcsec = Log((Sqr(-X * X + 1) + 1) / X) End Function Function HArccsc(X) As Double 反双曲余割 HArccsc = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X) End Function Function HArccot(X) As Double 反双曲余切 HArccot = Log((X + 1) / (X - 1)) / 2 End Function Function LogN(N, X) 以 N 为底的对数 LogN = Log(X) / Log(N) End Function 函数名 功能 Abs 求绝对值 Atn 反正切函数 Cos 余弦函数 Exp 求指数 Fix 取整数，对负数取较大的 Int 取整数，对负数取较小的 Log 求对数 Rnd 产生一个０～１间的随机数 Sgn 求数字符号