[求助]：已知两点,如何求得三点与已知两点构成直线时的垂足.

userzhluserzhl · 发表于 2009-6-25 23:06:46

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

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

×

已知两点,如何求得三点与已知两点构成直线时的垂足.

eryue30 · 发表于 2009-6-26 16:54:58

什么意思，没有看懂。

gysjy · 发表于 2009-6-26 21:37:14

[PHP](defun per (p1 p2 p3 / a d p4)
  (setq a (angle p1 p2) a (+ (/ pi 2) a)
      d (distance p1 p2) p4 (polar p3 a d)
      p0 (inters p1 p2 p3 p4 nil)
  )
  p0
)[/PHP]

userzhluserzhl · 发表于 2009-6-27 07:25:11

谢谢 gysjy
这样会不会更简单：
(inters p1 p2 p3 (polar p3 (+ (angle p1 p2) (/ pi 2)) 1) nil)

gysjy · 发表于 2009-6-27 08:07:57

是更简单些，将三句并做了一句。不过，在编程过程中，长句中如出现错误，就比较难以发现。

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

[求助] [求助]：已知两点,如何求得三点与已知两点构成直线时的垂足.

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

相关帖子