四舍五入

文化人的剑

$ (rtos (LL 41.0000 3) 2 8)
"41" 请教一下,如果想得到41.000,应该如何

xqyhome

(SETQ A 31.2564)


(fix (+ A 0.5))


31


(SETQ A 31.8564)


(fix (+ A 0.5))


32

ZZXXQQ

将DIMZIN改为零：(SETVAR "DIMZIN" 0) 后再用RTOS函数就能得到小数后的位数。

hhc

广而告之:


数位长度(包括小数点)在17位之内,用rtos和read不会丢失信息,如要对一个数保留8位小数:


(setq a (read (rtos 123.123456789 2 8)))        ,


用编辑器中的"检验"工具或在命令行执行此表达式,将返回123.123,看似丢失了信息,其实是显示的问题.它受系统变量DIMDEC影响,将DIMDEC值设得高些,就会显示的多些,而系统内部保存的仍然是8位小数,不信可做以下测试:


(rtos a 2 8),将返回123.12345678,


可见仍然是8位小数.包括系统在运算过程中都是按规定的位数运算.但数位超过17,就会丢失信息,要另想办法,飞哥已有这个函数

TANER

http://www.xdcad.net/forum/showthread.php?s=&threadid=455456