四舍五入

无痕 · 发表于 2004-3-30 23:02

9494什么？有时候问题不像看起来那样简单： (setq aaa 3.6548 bbb (atof (rtos aaa 2 1))) ->3.7
(setq aaa 352556.6548 bbb (atof (rtos aaa 2 2))) ->352557.0
(setq aaa 352624.6548 bbb (atof (rtos aaa 2 1))) ->352625.0
(setq aaa 352524.6542 bbb (atof (rtos aaa 2 3))) ->352525.0

cy956 · 发表于 2004-3-31 08:21

还有student的写法对负数应该会出错，记得以前写的碰上过。

无痕 · 发表于 2004-4-3 01:36

革命尚未成功，顶一下！～～～～～～～～～

龙龙仔 · 发表于 2004-4-6 12:54

革命不是早就成功了嗎?只是新人都不手! (defun LL (NOS KSY / EE EX NOS1)
(if (and NOS KSY (/= NOS 0) (>= KSY 0))
(+ (fix NOS)
(/ (fix (+ (* (- NOS (fix NOS)) (expt 10.0 KSY))
(if (> NOS 0)
(setq EE 0.5)
(setq EE -0.5)
)
)
)
(expt 10.0 KSY)
)
)
NOS
)
)

无痕 · 发表于 2004-4-6 18:17

是么？ _$ (ll 4124.34 3)
4124.34
_$ (ll 4124.343523 3)
4124.34
_$ (ll 4124.343523 4)
4124.34
_$ (ll 4124.343523 1)
4124.3
_$ (ll 41.343523 3)
41.344
_$ (ll 41.343523 4)
41.3435
_$ (ll 41.343523 5)
41.3435
_$ (ll 41.343523 6)
41.3435

龙龙仔 · 发表于 2004-4-7 08:19

(rtos (LL 4124.34 3) 2 8)
(rtos (LL 4124.343523 3) 2 8)
(rtos (LL 4124.343523 4) 2 8)
(rtos (LL 4124.343523 1) 2 8)
(rtos (LL 41.343523 3) 2 8)
(rtos (LL 41.343523 4) 2 8)
(rtos (LL 41.343523 5) 2 8)
(rtos (LL 41.343523 6) 2 8)

wjm3 · 发表于 2004-5-15 16:34

今天自己抽空写了一个四舍五入的程序:test.vlx

函数: ljx_get_sswr

用法:    (ljx_get_sswr 123.123456 2) ---> 123.12

   (ljx_get_sswr 123.123456 -2) ---> 100

   (ljx_get_sswr 123.123456 0) ---> 123

(ljx_get_sswr -123.123456 2) ---> -123.12

   (ljx_get_sswr -123.123456 -2) ---> -100

   (ljx_get_sswr -123.123456 0) ---> -123

此函数四舍五入后的值应没问题,但如果数值太长,想要看到四舍五入后的效果,就得跟龙版主写的程序一样,要用(rtos (ljx_get_sswr 123456789.123456789 7) 2 8)

各位有兴趣的话请试试.

meflying · 发表于 2004-5-15 16:51

既然这样,给个VLX有什么用?

wjm3 · 发表于 2004-5-15 19:31

不好意思,现重传.请指教,谢谢!

SWAYWOOD · 发表于 2005-4-17 10:08

_$ (ljx_get_sswr 123.456789 4)
123.457
_$ (ljx_get_sswr 123.456789 5)
123.457 还是没有突破无痕老兄说的6位数字，顶一下

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

四舍五入

本帖子中包含更多资源

本帖子中包含更多资源