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

/db_自贡黄明儒_

[功能] 数字圆整(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))
)

rq28

支持黄工多出新思想新程序

newer

很好的函数，支持你通过函数发布发表下吧。

laibinwu

有用的函数

aeo

四舍五入才是常用的。

aeo

四舍五入如果我要写，我会写成
(round 33.33 0.1) ==>33.3
(round 55.55555 0.001)==>55.556
(round 127  1) ==>130
(round 33333 100) ==>33300

st788796

四舍五入在统计的时候可能产生较大误差

aeo

而且没有考虑 负值

XDSoft

aeo 发表于 2013-10-28 23:06
四舍五入如果我要写，我会写成
(round 33.33 0.1) ==>33.3
(round 55.55555 0.001)==>55.556

AEO给写个函数上来吧。

aeo

XDSoft 发表于 2013-10-28 23:23
AEO给写个函数上来吧。

2. 
   
3. ;;取整
   
4. (defun Aeo-fix(n)
   
5.   (if(< n 0)(fix(- n 0.5))(fix(+ n 0.5)))
   
6. )
   

<br /> ;;取整<br /> (defun Aeo-fix(n)<br />   (if(< n 0)(fix(- n 0.5))(fix(+ n 0.5)))<br /> )<br />

其实没意思，零时写就可以

2. 
   
3. ;;n  要四舍五入的数  d  10的整数次方
   
4. (defun Aeo-round(n d)
   
5.   (* d(Aeo-fix(/ n d)))
   
6. )
   

<br /> ;;n  要四舍五入的数  d  10的整数次方<br /> (defun Aeo-round(n d)<br />   (* d(Aeo-fix(/ n d)))<br /> )<br />

命令: (rtos(Aeo-round -0.333888 0.001)2 6)
"-0.334000"
命令: (rtos(Aeo-round 555.5555 0.01)2 6)
"555.560000"
命令: (rtos(Aeo-round 0.39898 0.001)2 6)
"0.399000"
命令: (rtos(Aeo-round 555.5555 100)2 6)
"600.000000"
命令: (rtos(Aeo-round 555.5555 10)2 6)
"560.000000"

2. 
   
3. ;;n  要四舍五入的数  d  要取的位数，负值就是小数
   
4. (defun Aeo-round1(n d)
   
5.   (* (expt 10.0 d)(Aeo-fix(/ n (expt 10.0 d))))
   
6. )
   

<br /> ;;n  要四舍五入的数  d  要取的位数，负值就是小数<br /> (defun Aeo-round1(n d)<br />   (* (expt 10.0 d)(Aeo-fix(/ n (expt 10.0 d))))<br /> )<br />

命令: (rtos(Aeo-round1 -0.333888 -3)2 6)
"-0.334000"
命令: (rtos(Aeo-round1 555.5555 2)2 6)
"600.000000"
命令: (rtos(Aeo-round1 555.5555 -2)2 6)
"555.560000"

/db_自贡黄明儒_

aeo 发表于 2013-10-29 00:28
其实没意思，零时写就可以命令: (rtos(Aeo-round -0.333888 0.001)2 6)
"-0.334000"
命令: (rtos(Aeo-r ...

你的真简洁
关于四舍五入，这是我原来写的，发表在明经上，因为考虑到本论坛高手太多，免招笑话，没有发表

2. 
   
3. ;;162.2 [功能] 保留小数位数(四舍五入)
   
4. ;|(rtos 数 mode 小数位数)
   
5. mode
   
6. 1  Scientific
   
7. 2  Decimal
   
8. 3  Engineering (feet and decimal inches)
   
9. 4  Architectural (feet and fractional inches)
   
10. 5  Fractional
    
11. |;
    
12. ;;示例1 保留一位小数，四舍五入(HH:rtosr1 2.555 1)；"2.6"
    
13. ;;示例2 取整数，四舍五入(read(HH:rtosr1 215.46 0))，返回215
    
14. ;;示例3 十位数，四舍五入(* (read(HH:rtosr1 (/ 215.46 10) 0)) 10)，返回220
    
15. ;;示例4 保留一位小数，四舍五入(read(HH:rtosr1 215.46 1))，返回215.5
    
16. (defun HH:rtosr1 (RealNum n / DIMZIN1 SHORTREAL1)
    
17.   (setq DimZin1 (getvar "DIMZIN"))
    
18.   (setvar "DIMZIN" 0)
    
19.   (setq ShortReal1 (rtos RealNum 2 n))
    
20.   (setvar "DIMZIN" DimZin1)
    
21.   ShortReal1
    
22. )
    

<br /> ;;162.2 [功能] 保留小数位数(四舍五入)<br /> ;|(rtos 数 mode 小数位数)<br /> mode<br /> 1  Scientific <br /> 2  Decimal <br /> 3  Engineering (feet and decimal inches)<br /> 4  Architectural (feet and fractional inches) <br /> 5  Fractional<br /> |;<br /> ;;示例1 保留一位小数，四舍五入(HH:rtosr1 2.555 1)；"2.6"<br /> ;;示例2 取整数，四舍五入(read(HH:rtosr1 215.46 0))，返回215<br /> ;;示例3 十位数，四舍五入(* (read(HH:rtosr1 (/ 215.46 10) 0)) 10)，返回220<br /> ;;示例4 保留一位小数，四舍五入(read(HH:rtosr1 215.46 1))，返回215.5<br /> (defun HH:rtosr1 (RealNum n / DIMZIN1 SHORTREAL1)<br />   (setq DimZin1 (getvar "DIMZIN"))<br />   (setvar "DIMZIN" 0)<br />   (setq ShortReal1 (rtos RealNum 2 n))<br />   (setvar "DIMZIN" DimZin1)<br />   ShortReal1<br /> )<br />

newer

/db_自贡黄明儒_ 发表于 2013-10-29 08:10
你的真简洁
关于四舍五入，这是我原来写的，发表在明经上，因为考虑到本论坛高手太多，免招笑话，没有 ...

不要有这种想法啊，你说的本论坛高手多这个我同意，但是这里的朋友都同时很热心的，以后有好东西就发上来和大家分享吧，共同提高。

/db_自贡黄明儒_

newer 发表于 2013-10-28 11:00
很好的函数，支持你通过函数发布发表下吧。

明经和本论坛还是很不同的，我在明经上随便发表什么，好象都可以。

newer

/db_自贡黄明儒_ 发表于 2013-10-29 09:03
明经和本论坛还是很不同的，我在明经上随便发表什么，好象都可以。

这里有什么限制吗{:soso_e132:}