[原创][函数]四舍五入到具体的有效位数

秋枫

在有些情况下，可能需要舍入一个值，到具体位数的有效数字。例如，也许希望这样表述1432187这个值，只保留两个有效数字(这就是变成1400000)。值9187877表述成保留三个有效数字，成为9180000。

3. (defun std-fraction (num)
4.   (- num (fix num))
5. )
6. (defun std-round (num)
7.   (if (>= (abs (std-fraction num)) 0.5)
8.     (if (minusp num)
9.       (1- (fix num))
10.       (1+ (fix num))
11.     )
12.     (fix num)
13.   )
14. )
15. (defun round (num n)
16.   (/ (std-round (* num (expt 10.0 n))) (expt 10.0 n))
17. )
18. (defun std-floor (num)
19.   (if (minusp num)
20.     (1- (fix num))
21.     (fix num)
22.   )
23. )
24. ;; 有效位数取整
25. (defun RoundDigits(num i)
26.   (round num (- i 1.0 (std-floor (/ (log (abs num)) (log 10.0)))))
27. )

(defun std-fraction (num)   (- num (fix num)) ) (defun std-round (num)   (if (>= (abs (std-fraction num)) 0.5)     (if (minusp num)       (1- (fix num))       (1+ (fix num))     )     (fix num)   ) ) (defun round (num n)   (/ (std-round (* num (expt 10.0 n))) (expt 10.0 n)) ) (defun std-floor (num)   (if (minusp num)     (1- (fix num))     (fix num)   ) ) ;; 有效位数取整 (defun RoundDigits(num i)   (round num (- i 1.0 (std-floor (/ (log (abs num)) (log 10.0))))) )

测试

_$ (rtos (rounddigits 34564.3442 2))
"35000.0000"
_$ (rtos (rounddigits 0.345643442 2))
"0.3500"
_$ (rtos (rounddigits 345643.442 4))
"345600.0000"
_$ (rtos (rounddigits 345643.442 5))
"345640.0000"
_$ (rtos (rounddigits -345643.442 5))
"-345640.0000"
_$ (rtos (rounddigits -345643.442 3))
"-346000.0000"
_$ (rtos (rounddigits -345643.442 9))
"-345643.4420"
_$ (rtos (rounddigits -345643.442 8))
"-345643.4400"
_$ (rtos (rounddigits -345643.442 7))
"-345643.4000"

yaojing38

谢谢大神们的分享

szmaicy

(defun RoundDigits (num i / a)
   (setq a (expt 10.0 i)
   num (/ (fix (+ (* num a) 0.5)) a)
   )
)

秋枫

2楼的，顶楼是“有效数字”， 不是到指定数量级。

szmaicy发表于2010-6-29 13:38:00(defun RoundDigits (num i / a)   (setq a (expt 10.0 i)   num (/ (fix (+ (* num a) 0.5)) a)   ))

秋枫

我说明一下：

 

RoundDigits用于我的批量打印程序中忽略图框比例的微小误差。
比如： 1：14999 -》1：15000；         1：14.9999-》1：15；                 1：2500000.12-》1：2500000
2498.798：1 -》 2500：1

这种情况，不能固定舍入到第几位。

2498.798：1 和 4.98566：1 舍到两位有效数字的话，需要 2498.798-》2500， 4.98566-》5.0
就是保留几位有效数字的问题。

我Google了一下，关于有人提问怎样设计这样一下保留几位有效数字的函数，N多人都是你这样答非所问的。

正确的应该是这样：
_$ (roundDigits 2498.798 2)
2500.0
_$ (roundDigits 2498.798 3)
2500.0
_$ (roundDigits 4.98566 3)
4.99
_$ (roundDigits 4.98566 2)
5.0

第二个参数表示取整到多少个有效数字。

秋枫

问：

_$ (roundDigits 2498.798 2)
2500.0
_$ (roundDigits 2498.798 3)
2500.0 

2和3,乍是一样的结果？ 

 

答：

显然是一样的。

2498.798 取整到2位有效数字和3位有效数字在数值上是一样的。
一个是 2.5X10^3, 第一个是 2.50X10^3, 它们在数值上是相同的。

狂刀lxx

貌似这样也差不多哈，写的这么短以至于我都怀疑写错了，帮验证一下

3. (defun rds (v f) ;; by lxx.2010.6
4.   (distof (rtos v 1 (- f 1)))
5. )

(defun rds (v f) ;; by lxx.2010.6   (distof (rtos v 1 (- f 1))) )

_$ (rds 2498.798 2)
2500.0
_$ (rds 2498.798 3)
2500.0
_$ (rds 4.98566 3)
4.99
_$ (rds 4.98566 2)
5.0

秋枫

狂刀的高！哈哈。

秋枫

就用这个了，哈。

3. (defun RoundDigits (v f) (distof (rtos v 1 (1- f ))))

(defun RoundDigits (v f) (distof (rtos v 1 (1- f ))))

yunlong300

狂刀的高，顶一个：）

wowan1314

收藏下！ 谢谢分享！