请教个问题：怎么样判断两条线垂直?

xiayuxue213 · 发表于 2017-7-2 10:05:42

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

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

×

想判断两条相交的直线是否垂直
不知道怎么样获得直线的方位角

Lisphk · 发表于 2017-7-2 10:10:41

直线有两端点，求出直线角度，角度差转到0-PI之间，如果等于（PI / 2）就是垂直了。

newer · 发表于 2017-7-2 10:12:55

用垂直或者垂线搜索论坛。

newer · 发表于 2017-7-2 10:23:38

看看下面帖子，计算机常用图形算法，http://bbs.xdcad.net/thread-704410-1-1.html，
去里面看看点积的几何意义。

如果两向量点积=0，说明两向量垂直。

直线的端点P1,P2，那么直线的向量是(mapcar '- p2 p1),

你点积下两个向量，凭结果判断。

求点积的函数，去通用LISP函数库，用点积搜索。现成的。

xiayuxue213 · 发表于 2017-7-2 10:46:55

newer 发表于 2017-7-2 10:23

好的。谢谢！

marting · 发表于 2017-7-2 22:22:58

xiayuxue213 发表于 2017-7-2 10:46

这样写

(defun isPerp-p(p1 p2 t1 t2 / v1 v2)
(setq v1 (mapcar '- p2 p1)
v2 (mapcar '- t2 t1))
(equal (xd::vec:dot v1 v2) 0.0 1e-4)
)

longer1000 · 发表于 2017-7-3 08:39:08

xiayuxue213 · 发表于 2017-7-4 11:55:33

marting 发表于 2017-7-2 22:22

多谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

dyjwyqz5221 · 发表于 2018-10-25 10:05:27

marting 发表于 2017-7-2 22:22
这样写

最后一句对斜向的直线来说有问题，似乎修改为：(equal (xdrx_vector_dotProduct v1 v2) 0.0 1e-4)更合适。

kqqt6236 · 发表于 2018-10-27 00:13:43

论坛高手好多啊！

evayleung · 发表于 2018-10-27 01:14:13

进来学习一下，，，谢谢。。。

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

[求助] 请教个问题：怎么样判断两条线垂直?

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

点评