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

9494什么？


有时候问题不像看起来那样简单：


(setq aaa 3.6548       bbb (atof (rtos aaa 2 1))) -&gt;3.7<BR>(setq aaa 352556.6548       bbb (atof (rtos aaa 2 2))) -&gt;352557.0<BR>(setq aaa 352624.6548       bbb (atof (rtos aaa 2 1))) -&gt;352625.0<BR>(setq aaa 352524.6542       bbb (atof (rtos aaa 2 3))) -&gt;352525.0

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

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

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

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

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

革命不是早就成功了嗎?只是新人都不手!


(defun LL (NOS KSY / EE EX NOS1)<BR>       (if (and NOS KSY (/= NOS 0) (&gt;= KSY 0))<BR>                       (+ (fix NOS)<BR>                                               (/ (fix (+ (* (- NOS (fix NOS)) (expt 10.0 KSY))<BR>                       (if (&gt; NOS 0)<BR>                                       (setq EE 0.5)<BR>                                       (setq EE -0.5)<BR>                       )<BR>                                                       )<BR>               )<BR>               (expt 10.0 KSY)<BR>                                               )<BR>                       )<BR>                       NOS<BR>       )<BR>)

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

是么？


_$ (ll 4124.34 3)<BR>4124.34<BR>_$ (ll 4124.343523 3)<BR>4124.34<BR>_$ (ll 4124.343523 4)<BR>4124.34<BR>_$ (ll 4124.343523 1)<BR>4124.3<BR>_$ (ll 41.343523 3)<BR>41.344<BR>_$ (ll 41.343523 4)<BR>41.3435<BR>_$ (ll 41.343523 5)<BR>41.3435<BR>_$ (ll 41.343523 6)<BR>41.3435

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

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

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

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


函数: ljx_get_sswr


用法:       (ljx_get_sswr 123.123456 2) ---&gt; 123.12


                                                                       (ljx_get_sswr 123.123456 -2) ---&gt; 100


                                                                       (ljx_get_sswr 123.123456 0) ---&gt; 123


                                                                                (ljx_get_sswr -123.123456 2) ---&gt; -123.12


                                                                       (ljx_get_sswr -123.123456 -2) ---&gt; -100


                                                                       (ljx_get_sswr -123.123456 0) ---&gt; -123


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


各位有兴趣的话请试试.

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

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

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

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

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

_$ (ljx_get_sswr 123.456789 4)<BR>123.457<BR>_$ (ljx_get_sswr 123.456789 5)<BR>123.457


还是没有突破无痕老兄说的6位数字，顶一下
页: 1 [2] 3
查看完整版本: 四舍五入