如何将数值的小数部分向上圆整至1/4级?

peng197806

如何将数值的小数部分向上圆整至1/4级?比如:


22.083—>22.25                                 


1.33 —> 1.5


5.65—>5.75


7.8989—>8

meflying

(defun mod(real / n d)
(setq n (fix real))
(setq d (- real n))
(cond
((< d 0.25) (setq d 0.25))
((< 0.25 d 0.5) (setq d 0.5))
((< 0.5 d 0.75) (setq d 0.75))
((> d 0.75) (setq d 0.0) (setq n (1+ n)))
)
(+ n d)
)

peng197806

谢谢飞哥!