[求助]如何判断一个点是否在一个点集里面？

lazybones

这个问题我有切肤之痛，曾经浪费了整整一天时间才找到原因。


使用不同方法得到的理论上相同的两个点，计算机却可能认为不相等。例如，使用(getpoint)捕捉到的两条直线的交点和使用(inters)计算得到的交点使用(equal pt1 pt2)进行判断，结果很可能是nil。造成这种结果是由于存储精度导致的。解决方法就是设定误差值，(equal pt1 pt2 0.000001)。

无痕

10楼的回答已经很完美了：）

lei6699

我有个想法，就是用member，
（if （caar（member pt pts））
（。。。。）
）
就是说如果是一个子表的话，返回的形式类似（（）（））
取回pt的第一个x坐标，我现在用的还没问题。。。。 如果还要加上判断精度的话，就不如10楼的好了

无痕

Ea发表于2004-3-29 11:43:00(defun ptisIN (pt pts)  (member 'T (mapcar '(lambda (x) (equal x pt 1e-5)) pts)))

用ｍｅｍｂｅｒ还不能做出判断，程序应该返回T,或者nil

3. (defun ptisIN2 (pt pts)
4.   (apply 'or (mapcar '(lambda (x) (equal x pt 1e-5)) pts))
5. )

(defun ptisIN2 (pt pts)   (apply 'or (mapcar '(lambda (x) (equal x pt 1e-5)) pts)) )