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

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

本帖最后由 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))
(SETQ i (1+ i))
)
i
)

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

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

;(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

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

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

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

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

谢谢各位的热情帮助，看来基本功很重要，竟不知道这个函数的妙用vl-prin1-to-string

账号		自动登录	找回密码
密码			注册

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

最佳答案

点评

相关帖子

浏览过的版块