求一个另类的舍入的方法

lisp_beginner · 发表于 2016-9-1 17:34:01

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有个应用，我想让数舍入到最近的5或者0，比如：

12  ---》  10
13 ----》  15
112 --》  110
113 --》  115
118 --》 120

请大师们帮帮忙。

st788796 · 发表于 2016-9-1 17:46:33

本帖最后由 st788796 于 2016-9-1 17:54 编辑

(defun f (a / b) (setq b (rem a 5))( (+ (- a b) (if (< b 3) 0 5)))

lisp_beginner · 发表于 2016-9-1 17:50:54

st788796 发表于 2016-9-1 17:46
(defun f (a )(fix (- (+ a 3)(rem (+ a 3) 5)))

谢谢，试了，不行，再帮看看。

命令: (f 112)
113

命令: (f 114)
113

命令: (f 3)
3

命令: (f 4)
3

HLCAD · 发表于 2016-9-2 08:03:10

(defun f (a / b) (setq b (rem a 5)) (+ (- a b) (if (< b 3) 0 5)))

/db_自贡黄明儒_ · 发表于 2016-9-2 08:11:08

没有另类，只有通用的四舍五入
Command: (* (read(HH:rtosr1 (/ 215.46 5) 0)) 5)
215

Command: (* (read(HH:rtosr1 (/ 215.46 10) 0)) 10)
220

Command: (* (read(HH:rtosr1 (/ 215.46 50) 0)) 50)
200

lisp_beginner · 发表于 2016-9-2 09:04:46

/db_自贡黄明儒_ 发表于 2016-9-2 08:11
没有另类，只有通用的四舍五入
Command: (* (read(HH:rtosr1 (/ 215.46 5) 0)) 5)
215

HH:rtosr1 这个在哪？

lisp_beginner · 发表于 2016-9-2 09:06:59

HLCAD 发表于 2016-9-2 08:03
(defun f (a / b) (setq b (rem a 5)) (+ (- a b) (if (< b 3) 0 5)))

谢谢，这个代码能用。

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

[求助] 求一个另类的舍入的方法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评