[功能] 直线与射线交点

WhoCanSay · 发表于 2016-6-1 11:01:52

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

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

×

;;[功能] 直线与射线交点
;;p1 p2在射线PR1 PR2异侧，侧有交点
;;(IntersPointRay (getpoint) (getpoint) (getpoint)(getpoint))
(defun IntersPointRay (p1 p2 PR1 PR2)
  (cond ((not (equal (minusp (det p1 PR1 PR2)) (minusp (det p2 PR1 PR2))))
   (inters p1 p2 PR1 PR2 nil)
)
  )
)

;;174.2 [功能] 叉积(外积) By Highflybird
;;1 三角形之倍面积
;;2 p1 p2 p3 逆时针为正。
;;3 三点共线为0
(defun det (p1 p2 p3 / x2 y2)
  (setq x2 (car p2)
y2 (cadr p2)
  )
  (- (* (- x2 (car p3)) (- y2 (cadr p1))) (* (- x2 (car p1)) (- y2 (cadr p3))))
)

吴外安放 · 发表于 2020-7-26 14:54:08

谢谢版主分享....

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

[每日一码] [功能] 直线与射线交点

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