( XD::Math:Round)四舍五入（2）

newer · 发表于 2013-10-29 09:38:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;n 要四舍五入的数 d 10的整数次方
(defun XD::Math:Round (n d)
(* d (XD::Math:Fix (/ n d)))
)

dyjwyqz5221 · 发表于 2021-5-8 17:35:43

这个函数应该是写错了，测试结果达不到演示的效果

dyjwyqz5221 · 发表于 2021-5-8 17:38:23

(defun xd::math:round (n d)
(* (xdrx-math-round (/ n (expt 10. d)) 2) (expt 10. d))
)

这个函数，涵盖了xd::math:round及xd::math:round1，是个通用函数。

dyjwyqz5221 · 发表于 2021-5-8 17:40:10

n、d同函数xd::math:round及xd::math:round1的说明

dyjwyqz5221 · 发表于 2021-5-8 17:43:47

(list
(xd::math:round 555.5555 0)
(xd::math:round 555.5555 1)
(xd::math:round 555.5555 2)
(xd::math:round 555.5555 -1)
(xd::math:round 555.5555 -2)
(xd::math:round 555.5555 -3)
)

测试结果：
(556.0 560.0 600.0 555.6 555.56 555.556)

Le9988 · 发表于 2021-6-17 10:05:30

学习，学习。

账号		自动登录	找回密码
密码			立即注册

[数学] ( XD::Math:Round)四舍五入（2）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。