Compute a common logarithm

[nn.araujo]

Dear all

How can I compute a common logarithm (base 10) in AutoLISP. I only know how to compute the natural logarithm (base e).

Best regards

Nuno

[lpseifert · Accepted solution]

(defun log10 (num)
  (/ (log num) (log 10))
  )

usage

_$ (log10 10000)
4.0
_$ (log10 35.6)
1.55145

[nn.araujo]

Perfect.

Thank you.