[求助]：在lisp中对数函数log值和计算器算出值不一样

橄榄滋味

在lisp中对数函数log
Command: (log 4.5)
1.50408
Command: (log 1.22)
0.198851
可是用计算器算结果分别是0.6532, 0.0863， 这是怎么回事，
请教了

eachy

ln 4.5 -> 1.5040773967762740733732583523869
ln 1.22 -> 0.19885085874516519013263831551506

橄榄滋味

对不起，你并没有回答我的问题呀，我说的是两种算法值不一样

eachy

Lisp 的 log 是自然对数 e，和 计算器的 Log 不一样，对应计算器的 ln
_$ (exp (log 4.5))
4.5
_$ (exp (log 1.22))
1.22

xyp1964

(log number)功能及参数
此函数是用来返回 number 的自然对数值。
(log 4.5)→1.50408
(expt 2.71828 1.50408)→4.50001

橄榄滋味

那么在计算器中的LOG，也就是平常在一般公式中用的LOG，怎么用LISP来表达呢？

yshf

(/ (log 4.5) (log 10))
0.653213

xyp1964

2. [FONT=courier new](defun lg (number / num)
   
3.   (if (> number 0)
   
4.     (setq num (/ (log number) (log 10)))
   
5.   )
   
6.   (if num
   
7.     num
   
8.   )
   
9. )[/FONT]

[FONT=courier new](defun lg (number / num)<br />   (if (> number 0)<br />     (setq num (/ (log number) (log 10)))<br />   )<br />   (if num<br />     num<br />   )<br /> )[/FONT]

(lg 4.5) → 0.653213
(lg 1.22) → 0.0863598