[LISP程序]：讨论：Member函数的理论与实际应用。

lsjjm · 发表于 2003-8-9 06:46:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

在实际工作中我们可能要经常判断一个点是否在所指定的点表中。
我们可以利用lisp提供的Member函数:
(Member 表达式表) 其功能是从左到右在<表>中查找与<表达式>的值相同的元素，如果找到，返回这个匹配的位置后的全部元素构成的表，未找到，返回nil。
例如我们判断点 '(1.2 2.0 0.0)  是否在点表  '((1.0 1.0 0.0)(1.2 2.0 0.0)(1.5 3.0 0.0)) 中，就可以利用这个函数。
然我们在实际使用中往往失误--就是看似是同一点的坐标值由于计算误差，理论上他们的值是不相同的。如点 '(1.2 2.0 0.0) 和点  '(1.200001 2.0 0.0) 可是在机械制图中这两个点又有什么不同呢？这时就不能利用Member函数了（实际情况大致如此）。
笔者目前用的是下面的函数：
(defun ptinlist (p pl)
  (setq ret nil)
  (foreach i pl (if (equal p i 0.0001)(setq ret T)))
  ret
);
这里利用了equal 函数判断两个点是否重合，其误差值0.0001可根据需要设置。诸位有何高见，请示。

aeo · 发表于 2003-8-9 14:26:29

(<(distance p pl) 1e-4) 我有时这么判断

XDSoft · 发表于 2003-8-9 14:38:56

下面是晓东工具箱LISP通用库里面的一个MEMBER函数，在XDLSP.LSP里面。

[font=courier]
(defun $xdlsp_points_member (pt pts / i tf)
(setq i 0
tf t
)
(while (and
tf
(car pts)
)
(if (equal pt (car pts) 1e-5)
(setq tf nil)
(setq i (1+ i)
pts (cdr pts)
)
)
)
pts
)
[/font]

可以改写为设置误差参数，参数tol是误差，一般取1e-5

[font=courier]
(defun $xdlsp_points_member (pt pts tol / i tf)
(setq i 0
tf t
)
(while (and
tf
(car pts)
)
(if (equal pt (car pts1) tol)
(setq tf nil)
(setq i (1+ i)
pts (cdr pts)
)
)
)
pts
)
[/font]

aeo · 发表于 2003-8-9 17:28:53

(defun points_member (pt ptn)
(member 't (mapcar '(lambda(x)(equal x pt 1e-5) )ptn))
)

其实还是distance好,因为点有两维和三维的,不好统一

(defun points_member (pt ptn)
(member 't (mapcar '(lambda(x)(<(distance pt x) 1e-5) )ptn))
)

taner · 发表于 2008-12-29 10:24:28

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

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

[LISP程序]：讨论：Member函数的理论与实际应用。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子