vb6.0全部数学函数

vb6.0全部数学函数

vb数学函数用来完成一些基本的数学计算，其中一些函数的名称一与数学中相应函数的名称相同。表3.6中列出了常用的数学函数。





    在三角函数中，参数以弧度表示。例如，函数Sint（30）中的30是指弧度，它等于1718.87,而不是30度。为了将角度转换成弧度，可以将角度乘以pi/180.若将弧度转换成角度，则将弧度乘以180/pi.其中pi是数学常数，近似值为3.1415926535897932.


    Int函数和Fix函数的不同之处在于，如果参数n为负数，则Int返回小于或等于该参数的第一个负整数，而Fix则会返回大于或等上参数的第一个负整数。
    例如，Int（-8.4}=-9,而Fix（-8.4]=-8.


    函数Sqn将根据参数n的不同取值，返回不同的值。若n>0,则Sqn（n）=1;若n>0,则Sqn（n）=0;若n<0,则Sqn（n）=-l.

1.Exp 函数
返回 e（自然对数的底）的幂次方。
Exp(number)
number 参数可以是任意有效的数值表达式。
说明
如果 number 参数超过 709.782712893，则出现错误。常数 e 的值约为 2.718282。
注意 Exp 函数完成 Log 函数的反运算，并且有时引用为反对数形式。
下面的示例利用 Exp 函数返回 e 的幂次方:
Dim MyAngle, MyHSin ' 用弧度定义角。
MyAngle = 1.3 '计算双曲线的正弦。
MyHSin = (Exp(MyAngle) - Exp(-1 * MyAngle)) / 2
2.Log 函数
返回数值的自然对数。
Log(number)
number 参数是任意大于 0 的有效数值表达式。
说明
自然对数是以 e 为底的对数。常数 e 的值约为 2.718282。
用 n 的自然对数除 x 的自然对数，可以得到以 n 为底的 x 的对数。如下所示：
Logn(x) = Log(x) / Log(n)
以下示例为一个自定义的 Function 过程，该过程计算以 10 为底的对数：
Log10(X) 函数
Log10 = Log(X) / Log(10)
End Function
3.Sqr 函数
返回数值的平方根。
Sqr(number)
number 参数可以是任意有效的大于或等于零的数值表达式。
说明
下面的示例利用 Sqr 函数计算数值的平方根：
Dim MySqr
MySqr = Sqr(4) ' 返回 2。
MySqr = Sqr(23) ' 返回4.79583152331272。
MySqr = Sqr(0) ' 返回0。
MySqr = Sqr(-4) ' 产生实时错误。
4.下列是由固有数学函数派生的非固有数学函数：
函数 派生的等效公式
Secant（正割） Sec(X) = 1 / Cos(X)
Cosecant（余割） Cosec(X) = 1 / Sin(X)
Cotangent（余切） Cotan(X) = 1 / Tan(X)
Inverse Sine（反正弦） Arcsin(X) = Atn(X / Sqr(-X * X + 1))
Inverse Cosine（反余弦） Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Inverse Secant（反正割） Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) -1) * (2 * Atn(1))
Inverse Cosecant（反余割） Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
Inverse Cotangent（反余切） Arccotan(X) = Atn(X) + 2 * Atn(1)
Hyperbolic Sine（双曲正弦） HSin(X) = (Exp(X) - Exp(-X)) / 2
Hyperbolic Cosine（双曲余弦） HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperbolic Tangent（双曲正切） HTan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
Hyperbolic Secant（双曲正割） HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant（双曲余割） HCosec(X) = 2 / (Exp(X) - Exp(-X))
Hyperbolic Cotangent（双曲余切） HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
Inverse Hyperbolic Sine（反双曲正弦） HArcsin(X) = Log(X + Sqr(X * X + 1))
Inverse Hyperbolic Cosine（反双曲余弦） HArccos(X) = Log(X + Sqr(X * X - 1))
Inverse Hyperbolic Tangent（反双曲正切） HArctan(X) = Log((1 + X) / (1 - X)) / 2
Inverse Hyperbolic Secant（反双曲正割） HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)
Inverse Hyperbolic Cosecant（反双曲余割） HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) +1) / X)
Inverse Hyperbolic Cotangent（反双曲余切） HArccotan(X) = Log((X + 1) / (X - 1)) / 2
以 N 为底的对数 LogN(X) = Log(X) / Log(N)

参考资料：VBScript语言参考(CHM)