实数取整，又来麻烦各位

别晨 · 发表于 2006-3-11 11:03:00

不好意思，这段时间恐怕少不了常来麻烦各位高手同志呵呵

不知道lisp中有没有实数取整的函数，能够四舍五入的。
或者实现这一功能的代码

ljpnb · 发表于 2006-3-11 11:10:00

(setq a 7.55)
(setq a(fix (+ a 0.5)))

别晨 · 发表于 2006-3-11 14:31:00

ljpnb发表于2006-3-11 11:10:00(setq a 7.55)(setq a(fix (+ a 0.5)))

谢谢

xyp1964 · 发表于 2006-3-11 15:39:00

(setq a 7.55)
(setq b (rtos a 2 0))

别晨 · 发表于 2006-3-11 19:00:00

xyp1964发表于2006-3-11 15:39:00(setq a 7.55)(setq b (rtos a 2 0))

这个能自动四舍五入，不错不错
原来rtos还能这样用呵呵
谢谢^_^

rdhhb · 发表于 2006-3-12 10:19:00

rtos 的功能蛮大的。呵

gzkang · 发表于 2012-3-28 09:24:20

rtos 原来rtos还能这样用呵呵

paulpipi · 发表于 2020-12-8 22:29:15

学习了

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