如何将一个实数保留小数后2位 并四舍五入呢？

icefrog

如何将一个实数保留小数后2位 并四舍五入呢？
召唤各种大神~~  帮帮小弟~~

Andyhon

Command: (rtos 12.34567 2 3)
"12.346"
Command: (rtos 12.34567 2 2)
"12.35"
Command: (rtos 12.34567 2 1)
"12.3"

Gu_xl

回复 icefrog 的帖子

2. 
   
3. ;;;gxl-NumJD1 Num1 Jd 按数字修约原则
   
4. 数字保留小数点位数
   
5. ;|数字修约原则
   
6. 1. “四舍六入五成双” 例：3.148－3.1，0.736－0.74，75.5－76         
   
7. 当测量值中被修约的数字是5，而其后还有数字时，进位。 如：2.451－2.5
   
8. 一次修约。  如：13.4748－13.47
   
9. |;
   
10. ;(gxl-NumJD1 47.7451 2) 返回 47.75
    
11. ;(gxl-NumJD1 47.745 2) 返回 47.74
    
12. ;(gxl-NumJD1 47.7351 2) 返回 47.74
    
13. ;(gxl-NumJD1 47.735 2) 返回 47.74
    
14. (defun gxl-NumJD1 (Num JD / Num1 Num2 Num3 a b c d)
    
15.   (if (> Num 0)
    
16.     (setq d 0.5)
    
17.     (setq d -0.5)
    
18.     )
    
19.   (setq Num1 (expt 10. JD))
    
20.   (setq Num2 (* Num1 10.)
    
21.         Num3 (* 10. Num2)
    
22.         )
    
23.   (setq a (fix (* Num Num1))
    
24.         b (fix (* Num Num2))
    
25.         c (fix (* Num Num3))
    
26.         )
    
27.   (if (= (rem b 10) 5)
    
28.     (if (/= (rem c 10) 0)
    
29.       (/ (fix (+ (* Num Num1) d)) Num1)
    
30.       
    
31.       (if (= (rem a 2) 0)
    
32.         ;;;直接四舍五入
    
33.         ;(/ (fix (+ (* Num Num1) d)) Num1)
    
34.         (/ (fix (* Num Num1)) Num1)
    
35.         ;;;奇进偶不进
    
36.        (/ (fix (+ (* Num Num1) d)) Num1)
    
37.      )
    
38.       )
    
39.     (/ (fix (+ (* Num Num1) d)) Num1)
    
40.     )
    
41.   )
    

<br /> ;;;gxl-NumJD1 Num1 Jd 按数字修约原则 <br /> 数字保留小数点位数<br /> ;|数字修约原则 <br /> 1. “四舍六入五成双” 例：3.148－3.1，0.736－0.74，75.5－76          <br /> 当测量值中被修约的数字是5，而其后还有数字时，进位。 如：2.451－2.5 <br /> 一次修约。  如：13.4748－13.47<br /> |;<br /> ;(gxl-NumJD1 47.7451 2) 返回 47.75<br /> ;(gxl-NumJD1 47.745 2) 返回 47.74<br /> ;(gxl-NumJD1 47.7351 2) 返回 47.74<br /> ;(gxl-NumJD1 47.735 2) 返回 47.74<br /> (defun gxl-NumJD1 (Num JD / Num1 Num2 Num3 a b c d)<br />   (if (> Num 0)<br />     (setq d 0.5)<br />     (setq d -0.5)<br />     )<br />   (setq Num1 (expt 10. JD))<br />   (setq Num2 (* Num1 10.)<br />         Num3 (* 10. Num2)<br />         )<br />   (setq a (fix (* Num Num1))<br />         b (fix (* Num Num2))<br />         c (fix (* Num Num3))<br />         )<br />   (if (= (rem b 10) 5)<br />     (if (/= (rem c 10) 0)<br />       (/ (fix (+ (* Num Num1) d)) Num1)<br />       <br />       (if (= (rem a 2) 0)<br />         ;;;直接四舍五入<br />         ;(/ (fix (+ (* Num Num1) d)) Num1)<br />         (/ (fix (* Num Num1)) Num1)<br />         ;;;奇进偶不进<br />        (/ (fix (+ (* Num Num1) d)) Num1)<br />      )<br />       )<br />     (/ (fix (+ (* Num Num1) d)) Num1)<br />     )<br />   )<br />

露水2

http://bbs.mjtd.com/thread-84780-1-1.html
最后一题的题目 试着把你的要求扩展一下。

xhq1954425

学习！谢谢Gu_xl

chpmould

还可以用判断长度的方法，也可以实现，这要看你的要求。。。

自贡黄明儒

;如下写法也可
(setvar "dimzin" 0)                        ;rtos时保留小数位数
  (setvar "dimazin" 0)                        ;rtos时角度保留小数位数
(if        (>= ed5-st 100.0)
      (setq ed5-st (rtos ed5-st 2 1))
      (setq ed5-st (rtos ed5-st 2 2))
    )

461045462

谢谢楼上
学习了
7楼的方式使用较多