[LISP函数-点集]：点集的最大包盒对角点

eachy

2. 
   
3. ;;求点集的最大包盒对角点
   
4. ;;返回值: (<左下点> <右上点> )
   
5. (defun xd-points_box (ptl /)
   
6.   (list        (apply 'mapcar (cons 'min ptl))
   
7.         (apply 'mapcar (cons 'max ptl))
   
8.   )
   
9. )

<br /> ;;求点集的最大包盒对角点<br /> ;;返回值: (<左下点> <右上点> )<br /> (defun xd-points_box (ptl /)<br />   (list        (apply 'mapcar (cons 'min ptl))<br />         (apply 'mapcar (cons 'max ptl))<br />   )<br /> )

taner

我也贴一个
[PHP](defun ll-ur(pointlist)
(list
(list (apply 'min (mapcar 'car PointList))
             (apply 'min (mapcar 'cadr PointList))
       )

    (list (apply 'max (mapcar 'car PointList))
           (apply 'max (mapcar 'cadr PointList))
     )
)
        )[/PHP]

xyp1964

点集的最大包盒对角点→点集的最小外包盒对角点

netbee

(apply 'mapcar (cons 'min ptl))
能解析一下这一句命令的执行过程吗？
不太明白。。。。

fools

最初由 netbee 发布
[B](apply 'mapcar (cons 'min ptl))
能解析一下这一句命令的执行过程吗？
不太明白。。。。 [/B]

2楼的程序就是1楼的解析过程，对于3维点表
(apply 'mapcar (cons 'min ptl))
等价于

1. 
   
2. (list
   
3.   (apply 'min (mapcar 'car pt1))
   
4.   (apply 'min (mapcar 'cadr pt1))
   
5.   (apply 'min (mapcar 'caddr pt1))
   
6. )
   

复制代码

xyz518mm

那如果是多顶点的封闭区间
这函数适用吗?
想求出封闭区间的点与点的最大
及次大距离值