我也出个题目，判求矩形左上角点。

urljit · 发表于 2005-1-25 16:57:23

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

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

×

题目如下：
一矩形，横平竖直，四角点坐标[I]（若先知道两对角点呢？）[/I]已知，如何[B] 最简捷 [/B]的判定那个点为左上角点？

lijiao · 发表于 2005-1-25 17:43:09

排序

xyp1964 · 发表于 2005-1-25 18:26:21

[php](defun c:test ()
  (setq pt1 '(0 0)
pt2 '(1000 0)
pt3 '(0 1000)
pt4 '(1000 1000)
  )
  (setq pt (list (min (car pt1) (car pt2) (car pt3) (car pt4))
      (max (cadr pt1) (cadr pt2) (cadr pt3) (cadr pt4))
      )
  )
  pt
)[/php]
或
[php](defun pt-LU (pt1 pt2 pt3 pt4)
  (setq pt (list (min (car pt1) (car pt2) (car pt3) (car pt4))
      (max (cadr pt1) (cadr pt2) (cadr pt3) (cadr pt4))
      )
  )
  pt
)[/php]

Free-Lancer · 发表于 2005-1-25 22:42:38

;;点集外框的右上角点
(defun _rupt (pts)
(list (apply 'max (mapcar 'car pts))
(apply 'max (mapcar 'cadr pts))
(apply 'max (mapcar 'last pts))
)
)
;;点集外框的左下角点
(defun _lbpt (pts)
(list (apply 'min (mapcar 'car pts))
(apply 'min (mapcar 'cadr pts))
(apply 'min (mapcar 'last pts))
)
)
;;点集外框的左上角点
(defun _lupt (pts)
(list (apply 'min (mapcar 'car pts))
(apply 'max (mapcar 'cadr pts))
(apply 'min (mapcar 'last pts))
)
)
;;点集外框的右下角点
(defun _rbpt (pts)
(list (apply 'max (mapcar 'car pts))
(apply 'min (mapcar 'cadr pts))
(apply 'min (mapcar 'last pts))
)
)

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

我也出个题目，判求矩形左上角点。

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

相关帖子

浏览过的版块