[编程申请]：3个点是否是一条直线和一个凸度问题

小狼

怎样判断一个点在另外两点形成的直线上?
随便问下,怎么将一个角度转换成凸度

lsjjm

"怎样判断一个点在另外两点形成的直线上?"
有许多方法, 其中之一:
(or (equal (angle p1 p2)(angle p1 p3) 0.001)(equal (angle p1 p2)(angle p3 p1) 0.001))

小狼

非常谢谢,我找到一个计算凸度的方法,不知道是否还有更简单的方法?

(defun CALCBULGE (VX1 VX2 BLG / ARCRAD CENDIR HLFANG)
  (setq HLFANG (* 2 (atan BLG))
CENDIR ((if (< BLG 0)
    -
    +
  )
   (- (angle VX1 VX2) HLFANG)
   (/ pi 2)
        )
ARCRAD (abs (/ (/ (distance VX1 VX2) 2.0) (sin HLFANG)))
  )
  (list (polar VX1 CENDIR ARCRAD) ARCRAD (* (abs HLFANG) 2.0))
)