[LISP函数-点]：判断点与直线上的位置关系

eachy

2. 
   
3. ;;判断点在直线上的位置 ;
   
4. ;;功能:判断点在直线上的位置
   
5. ;;参数:p1,p2：直线上的两点，例如直线上的起点和端点
   
6. ;;     p3：所要判断的点
   
7. ;;返回值:点的位置，等于0时(equal k 0.0 0.00000001)点在线上，
   
8. ;;       大于0时点在线的左侧，小于0时点在线的右侧
   
9. ;;示例:(setq k (xd-pntonline p1 p2 p3))
   
10. (defun xd-point_online (p1 p2 p3 / p c)
    
11.   (setq p p3)
    
12.   (apply '+
    
13.          (mapcar '(lambda (b)
    
14.                     (setq c (- (* (car p) (cadr b)) (* (cadr p) (car b)))
    
15.                           p b
    
16.                     )
    
17.                     c
    
18.                   )
    
19.                  (list p1 p2 p3)
    
20.          )
    
21.   )
    
22. )

<br /> ;;判断点在直线上的位置 ;<br /> ;;功能:判断点在直线上的位置<br /> ;;参数:p1,p2：直线上的两点，例如直线上的起点和端点<br /> ;;     p3：所要判断的点<br /> ;;返回值:点的位置，等于0时(equal k 0.0 0.00000001)点在线上，<br /> ;;       大于0时点在线的左侧，小于0时点在线的右侧<br /> ;;示例:(setq k (xd-pntonline p1 p2 p3))<br /> (defun xd-point_online (p1 p2 p3 / p c)<br />   (setq p p3)<br />   (apply '+<br />          (mapcar '(lambda (b)<br />                     (setq c (- (* (car p) (cadr b)) (* (cadr p) (car b)))<br />                           p b<br />                     )<br />                     c<br />                   )<br />                  (list p1 p2 p3)<br />          )<br />   )<br /> )

机械小男人雄起

正好是要找的东西