[原创]：[LSP函数]直单位向量的叉积(XY定Z轴正向)

eachy

2. 
   
3. ;|两个矢量的叉积
   
4. 　　　　| i 　j 　k　|
   
5. v1xv2 = | x1　y1　z1 |= (y1z2-y2z1, z1x2-z2x1, x1y2-x2y1)
   
6. 　　　　| x2　y2　z2 |
   
7. 　　　　　　
   
8. |;
   
9. ;;向量的差积;
   
10. (defun ea:vector_CrossProduct
    
11.                               (ve1 ve2 / x1 y1 z1 x2 y2 z2)
    
12.   (setq        x1 (car ve1)
    
13.         y1 (cadr ve1)
    
14.         z1 (last ve1)
    
15.         x2 (car ve2)
    
16.         y2 (cadr ve2)
    
17.         z2 (last ve2)
    
18.   )
    
19.   (list        (- (* y1 z2) (* y2 z1))
    
20.         (- (* z1 x2) (* z2 x1))
    
21.         (- (* x1 y2) (* x2 y1))
    
22.   )
    
23. )

<br /> ;|两个矢量的叉积<br /> 　　　　| i 　j 　k　|<br /> v1xv2 = | x1　y1　z1 |= (y1z2-y2z1, z1x2-z2x1, x1y2-x2y1)<br /> 　　　　| x2　y2　z2 |<br /> 　　　　　　<br /> |;<br /> ;;向量的差积;<br /> (defun ea:vector_CrossProduct<br />                               (ve1 ve2 / x1 y1 z1 x2 y2 z2)<br />   (setq        x1 (car ve1)<br />         y1 (cadr ve1)<br />         z1 (last ve1)<br />         x2 (car ve2)<br />         y2 (cadr ve2)<br />         z2 (last ve2)<br />   )<br />   (list        (- (* y1 z2) (* y2 z1))<br />         (- (* z1 x2) (* z2 x1))<br />         (- (* x1 y2) (* x2 y1))<br />   )<br /> )