[LISP函数]：求助高手：如何解决这个世纪难题？？？

TYEEXDD

请在命令行中键入：
( - 9.24  ( *  4.2  2.2 ) )
回车，得到：
-1.77636e-015

4.2*2.2 应该 = 9.24，可是为什么会得出这样的结果？？而且使用的是lisp的最基本内建函数“*”和“-”！请大家在自己机器上试验一下看是否也会这样，并请高手帮忙分析一下如何解决，这个问题严重影响到我的程序的计算精度！先谢过了！！

yuer0103

这主要应该是浮点运算精度的问题，从而使得出错。AutoCAD的浮点运算精度是有限的，15位左右吧。

xshrimp

世纪难题？？？ 是不是还有宇宙难题？？

Underway

二进位的小数与十进位
存在着换算精度的问题

1/2 = 0.5
1/4 = 0.25
1/8 = 0.125
.............
那
1/3 用二进位如何表示
0.2 又如何表示

wuzz

( - 8.61 ( * 4.1 2.1 ) )=0

???疑问中......

eachy

你用计算器算等多少呢？

_$ (- 8.61 (* 4.1 2.1))
0.0
_$ (rtos (- 8.61 (* 4.1 2.1)) 2 16)
"0"
_$ (setvar "dimzin" 0)
0
_$ (rtos (- 8.61 (* 4.1 2.1)) 2 16)
"0.000000000000000"
_$

sony123

(rtos (- 8.61 (* 4.1 2.1)) 2 16)

看到了后面的两个了吗?? 2 和 16是函数格式的

xiaojinwen

(RTOS(- 9.24 ( * 4.2 2.2)) 2 3)
结果为 0

TYEEXDD

_$ (rtos  (* 4.2 2.2)  2 16)
"9.2400000000000001"
我说的就是这个意思，我不要这个小数点后的...001！ACAD为什么不能给我提供一个正确的答案？？？这样的结果使得我的程序不能正常运行！！郁闷！！
rtos函数只是将这个数值显示出来而已（转换为字符串），精度低一点看起来就会正常，可是问题是它的真正的运算结果是一个错误的数据！！这能有办法解决吗？？？？请高手赐教！！！

Underway

(equal ( - 9.24 ( * 4.2 2.2 ) ) 0.0 1e-14)
or
(equal  9.24 ( * 4.2 2.2 )  1e-14)

fqlh

我也曾经遇到过这种问题，最后只好用10楼楼主的这种办法解决，因为我们计算的精度不需要这么高。

litss

这样的计算结果谈不上错误吧？只是精度问题。
用(equal x x x)，应该能解决问题吧？
计算器对零的判断本来就只是无穷小，至于到底有多小，这好像没有界限的。

雨箭风刀

成了数学问题了

whfdchst

请问各位高手“(RTOS(- 9.24 ( * 4.2 2.2)) 2 3)” 最后的2   3   分别代表什么意思？多谢！

tjchkys

(rtos, value [, mode, precision])

按 mode 和 precision 指定的格式将给定的 value 作为实数值进行编辑，这和同类 AutoLISP 函数的定义一样。 如果 mode 和 precision 被省略，则使用由 UNITS 命令选择的当前值。

按 mode 和 precision 指定的格式，将给定的 value 作为实数进行编辑。如果省略 mode 和 precision，则使用由 UNITS 命令选择的当前值。

这个帮助里都有!

一楼说的那个问题,我觉得不算个问题吧!
你的数字是一位的,而CAD系统给了你一个-15位的,已经相当精确,参加到运算中是不会影响你的结果的吧!
不明白为什么说"这个问题严重影响到我的程序的计算精度！"