请教，非四舍五入法难题

lianghui2018

请教各位老师，有个人难题就是我想将小数点第一个的数值小于5时将数值改为小数位数值等于5，小数点第一个的数值大于5时向整数进一~
例如（xxx 1.5 1.5）;;xxx表示为函数名，当数值为1.5 变为1.5
       （xxx 1.4 1.5）;;xxx表示为函数名 ，当数值为1.4 变为1.5
       （xxx 1.3 1.5）;;xxx表示为函数名 ，当数值为1.3 变为1.5
       （xxx 1.2 1.5）;;xxx表示为函数名 ，当数值为1.2变为1.5
       （xxx 1.1 1.5）;;xxx表示为函数名 ，当数值为1.1 变为1.5

       （xxx 1.6 2.0）;;xxx表示为函数名 ，当数值为1.6 变为2.0
       （xxx 1.7 2.0）;;xxx表示为函数名 ，当数值为1.7 变为2.0
       （xxx 1.8 2.0）;;xxx表示为函数名 ，当数值为1.8变为2.0
       （xxx 1.9 2.0）;;xxx表示为函数名 ，当数值为1.9变为2.0

Free-Lancer

lianghui2018 发表于 2014-3-20 11:58
(Defun XXX(a)
(if (equal (fix (+ 0.4999999 a)) (fix a) 0.0001)
     (+ 0.5 (fix a))(fix (+ 0.5 a)) ...

1. (defun xxx (n)
   
2.   (if (not (zerop (setq nn (rem n 0.5))))
   
3.     (+ n (- 0.5 nn))
   
4.     n
   
5.   )
   
6. )

(defun xxx (n)<br />   (if (not (zerop (setq nn (rem n 0.5))))<br />     (+ n (- 0.5 nn))<br />     n<br />   )<br /> )

lianghui2018

(Defun XXX(a)
(if (equal (fix (+ 0.4999999 a)) (fix a) 0.0001)
     (+ 0.5 (fix a))(fix (+ 0.5 a))
))
来自明经的cable2004老师

lianghui2018

Free-Lancer 发表于 2014-3-20 10:55

谢谢Free-Lancer老师