关于取对数的有关问题

关于取对数的问题
如：我要计算log(p1/（p2*p3））的值，p1,p2,p3都是double型变量，应该怎么实现呢？谢谢

[解决办法]

Delphi(Pascal) code

1)        函数 LnXP1(const X: Extended): Extended; { Ln(X + 1), accurate for X near zero }2)        函数 Log10(const X: Extended): Extended;              { 基数为10的X对数}3)        函数 Log2(const X: Extended): Extended;               {基数为2的X对数}4)        函数 LogN(const Base, X: Extended): Extended;          {基数为N的X对数}