如何找到点阵中距离点阵外一点最近的点？

tm20038175 · 发表于 2012-8-29 19:36:02

例如点阵｛p1，p2，……｝，和一点pt，如何找到距离pt最近的那个点？

tm20038175 · 发表于 2012-8-29 20:58:04

自己来顶一个………

Gu_xl · 发表于 2012-8-29 21:05:26

本帖最后由 Gu_xl 于 2012-8-29 21:05 编辑

(car(vl-sort pl '(lambda (a b) (< (distance a pt) (distance b pt)))))

Andyhon · 发表于 2012-8-29 21:28:39

例如点阵｛p1，p2，……｝...

若点阵很巨大,就得在算法上作计较...

namezg · 发表于 2012-8-29 22:07:20

本帖最后由 namezg 于 2012-8-29 22:13 编辑

(nth (car (vl-sort-i (mapcar '(lambda(x) (distance pt x)) ptlst) '<)) ptlst)

tm20038175 · 发表于 2012-8-30 06:24:42

嗯，谢谢大家啦，很受用！……

拖拖_拉拉_ · 发表于 2014-6-29 13:22:02

学习了

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