判断两条直线是否共线

marting

利用向量叉积的数学意义，叉积等于0，两向量共线

1. ;;;-----------------------------------------------------------;;
   
2. ;;; 两个2d向量的叉积的数值                                    ;;
   
3. ;;; 输入: 两个点（或者两个向量）                              ;;
   
4. ;;; 输出: 一个数值.如果为正则是逆时针,两向量形成的平面法线向量;;
   
5. ;;;       向上，为负则是顺时针，为零则两向量共线或平行。      ;;
   
6. ;;;       这个数值也为原点,P1,P2三点面积的两倍。              ;;
   
7. ;;;-----------------------------------------------------------;;
   
8. 
   
9. (defun MAT:Det2V (v1 v2)
   
10.   (- (* (car v1) (cadr v2)) (* (car v2) (cadr v1)))
    
11. )
    
12. ; l1 = (list p1 p2)
    
13. ; l2 = (list p3 p4)
    
14. ; l1,l2直线两端点表
    
15. (defun _isCollinear ( l1 l2 / v1 v2)
    
16.    (setq v1 (mapcar '- (car l1)(cadr l1))
    
17.          v2 (mapcar '- (car l2)(cadr l2))
    
18.    )
    
19.    (equal (mat:det2v v1 v2) 0.0 1e-5)
    
20. )

;;;-----------------------------------------------------------;;<br /> ;;; 两个2d向量的叉积的数值                                    ;;<br /> ;;; 输入: 两个点（或者两个向量）                              ;;<br /> ;;; 输出: 一个数值.如果为正则是逆时针,两向量形成的平面法线向量;;<br /> ;;;       向上，为负则是顺时针，为零则两向量共线或平行。      ;;<br /> ;;;       这个数值也为原点,P1,P2三点面积的两倍。              ;;<br /> ;;;-----------------------------------------------------------;;<br /> <br /> (defun MAT:Det2V (v1 v2)<br />   (- (* (car v1) (cadr v2)) (* (car v2) (cadr v1)))<br /> )<br /> ; l1 = (list p1 p2)<br /> ; l2 = (list p3 p4)<br /> ; l1,l2直线两端点表<br /> (defun _isCollinear ( l1 l2 / v1 v2)<br />    (setq v1 (mapcar '- (car l1)(cadr l1))<br />          v2 (mapcar '- (car l2)(cadr l2))<br />    )<br />    (equal (mat:det2v v1 v2) 0.0 1e-5)<br /> )

cable2004

我只是路过打酱油的

yoyoho

感谢 marting 分享程序,收藏学习!

bbbxxxccclt

学习了，谢谢