如何确定在哪个四元组中

gsc · 发表于 2022-7-5 15:16:00

你好

我如何确定pt2相对于pt1在哪个象限？

登录/注册后可看大图

Tharwat · 发表于 2022-7-5 15:25:41

你好

你可以通过两点之间的角度值来识别，所以如果角度大于180小于270，那么你就在那里了。

Aftertouch · 发表于 2022-7-5 15:35:47

或者X-Y公司。

+X+Y=1
+X-Y=秒
-X-Y=第三个
-X+Y=第四

Grrr · 发表于 2022-7-5 15:39:35

有一些事情需要调查：

copy

_$ (setq p1 '(10. 10. 10.))
(10.0 10.0 10.0)
_$ (setq p2 '(5. 13. -4.))
(5.0 13.0 -4.0)
_$ (setq p (mapcar '- p2 p1))
(-5.0 3.0 -14.0)
_$ (setq res (mapcar 'minusp p))
(T nil T)
_$ (setq res (apply '(lambda (a b c) (list a b)) res))
(T nil)
; +X +Y = 1st
; +X -Y = second
; -X -Y = third
; -X +Y = fourth
_$ (vl-some '(lambda (x) (if (equal (cdr x) res) (car x)))
 '(
   (1st nil nil)
   (2nd nil T)
   (3rd T T)
   (4th T nil)
 )
)
4TH

或者只使用p1和p2的角度函数，并用cond确定其是否在0/90/180/270之间。

gsc · 发表于 2022-7-5 15:46:04

啊，当然。。。愚蠢！谢谢

lrm · 发表于 2022-7-5 15:55:10

或

copy

(setq q (fix (+  1 (/ (angle p1 p2) (/ pi 2)))))

Lee Mac · 发表于 2022-7-5 15:57:46

另一个-

copy

(defun quadrant ( bpt pnt )
   (vl-position (mapcar 'minusp (mapcar '- pnt bpt '(0 0))) '(() (nil nil) (t nil) (t t) (nil t)))
)

Grrr · 发表于 2022-7-5 16:08:50

非常好的结果，李！已添加到我的库中。。

gsc · 发表于 2022-7-5 16:11:23

Thanx！有用的代码

gsc · 发表于 2022-7-5 16:20:53

嗨，Lee和Irm的代码都返回q=3，其中对于以下2个坐标，它应该是q=4。。。这是正确的吗？

p1（bpt）=494487.365727352.41
p2（pnt）=494497.365725787.41

修改：抱歉计算错误。。。代码正确

[编程交流] 如何确定在哪个四元组中

发表回复

精选推荐