[求助]怎么将小数约等于整数（lisp）

gaoliang286 · 发表于 2009-2-9 17:59:00

例如1.54就四舍五入为2

qjcpj · 发表于 2009-2-9 18:02:00

本帖最后由作者于 2009-2-9 18:05:59 编辑

使用rtos函数。

;;; _$ (setq tt 1.89)
;;; 1.89
;;; _$ (rtos tt 2 0)
;;; "2"
;;; _$

gaoliang286 · 发表于 2009-2-9 19:15:00

感谢，小弟初学。。。。
万分感谢。祝您元宵节快乐。。。

gaoliang286 · 发表于 2009-2-9 20:34:00

返回的是字符串啊。怎么变成数

qjcpj · 发表于 2009-2-9 23:07:00

;;; _$ (distof (rtos 1.54 2 0))
;;; 2.0
;; _$ (fix (distof (rtos 1.54 2 0)))
;;; 2
;; _$

elitefish · 发表于 2009-2-11 10:01:00

(fix (+ 1.54 0.5)) ;加0.5 后取整

caoyin · 发表于 2009-2-11 10:20:00

(equal 1.54 2 0.5)

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

[求助]怎么将小数 约等于整数（lisp）