关于取对数的有关问题

关于取对数的问题
如:我要计算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对数}