cheng5276 发表于 2012-5-24 23:13:04

请教如何取得实数（不是字符串）的精度

本帖最后由 cheng5276 于 2012-5-24 23:32 编辑

请教各位大侠，比如我有(1.1 1.11 1.111),这么几个数值，如何能够取得其实际精度?
或者说，如何能够将A按照其实际精度，转换为字符串？
我本想用FIX的方式去取得，也不行，请高人指点
(DEFUN JD(A)
(SETQ I 0)
(WHILE (>(SETQ A (- A (FIX A))) 0)
(setQ A (* 10.0 A))
(SETQi (1+ i))
)
i
)

经院长提醒，可以用(vl-prin1-to-string 1.11) 去得到"1.11"



zark 发表于 2012-5-24 23:13:05

;(JD 12.3456)   返回4，4就是小数点后面的位置，不懂是不是你需要的
(defun JD (a /)
(setq str (vl-prin1-to-string a))
(setq p (vl-string-search "." str))
(setq len (strlen str))
(if (Not p) 0 (- len p 1))
)

qq229918602 发表于 2012-5-25 19:59:44

有点复杂。板凳等待版主。

xgr 发表于 2012-5-25 22:23:11

(mapcar 'vl-prin1-to-string '(1.1 1.11 1.111))

cheng5276 发表于 2012-5-25 23:17:16

谢谢各位的热情帮助，看来基本功很重要，竟不知道这个函数的妙用vl-prin1-to-string
页: [1]
查看完整版本: 请教如何取得实数（不是字符串）的精度