以下摘自math.pas单元,在delphi7/source/common目录下面,里面有很多数学函数:
{ Logorithmic functions }
function LnXP1(const X: Extended): Extended;
{ Ln(X + 1), accurate for X near zero }
function Log10(const X: Extended): Extended;
{ Log base 10 of X }
function Log2(const X: Extended): Extended;
{ Log base 2 of X }
function LogN(const Base, X: Extended): Extended;
{ Log base N of X }
{ Exponential functions }
{ IntPower: Raise base to an integral power. Fast. }
function IntPower(const Base: Extended;
const Exponent: Integer): Extended register;
{ Power: Raise base to any power.
For fractional exponents, or |exponents| > MaxInt, base must be > 0. }
function Power(const Base, Exponent: Extended): Extended;