[功能] 数字圆整(round 数 最后数字倍数 小数位数)

自贡黄明儒

[功能] 数字圆整(round 数 最后数字倍数 小数位数)
;;当在看尺子的时候，为了方便尾数最好是0或者5
;;圆整个位数为5或0, (round 311.67 5 0);返回310.0
;;圆整十位数为5或0, (* (round (/ 311.67 10) 5 0) 10);返回300.0
;;圆整尾数为5或0,保留小数1位,(round 311.67 5 1),返回311.5
(defun round (number w n / NUM)
  (setq num (fix (+ (/ (* number (expt 10 n)) w) 0.5)))
  (/ (* num w) (expt 10.0 n))
)