（XD::Vec:vxv）向量叉积

marting

1. ;|
   
2. 函数名称:        XD::Vec:vxv
   
3. 调用格式:        (XD::Vec:vxv  v1 v2)
   
4. 参数说明:        v1 ------ 向量
   
5. v2 ------ 向量
   
6. 返回值:        向量
   
7. 函数简介:        向量叉积
   
8. 函数来源:        原创
   
9. 函数作者:        marting
   
10. 适用版本:        不限
    
11. 最后更新时间:        2017-06-05
    
12. 备注:        向量-- 用点表示
    
13. 向量点积的几何意义：等于垂直于两向量确定平面的的向量
    
14. |;
    
15. (defun XD::Vec:vxv ( v1 v2 )
    
16.   (list
    
17.     (- (* (cadr v1) (caddr v2)) (* (cadr v2) (caddr v1)))
    
18.     (- (* (car  v2) (caddr v1)) (* (car  v1) (caddr v2)))
    
19.     (- (* (car  v1) (cadr  v2)) (* (car  v2) (cadr  v1)))
    
20.   )
    
21. )
    

;|<br /> 函数名称:        XD::Vec:vxv<br /> 调用格式:        (XD::Vec:vxv  v1 v2)<br /> 参数说明:        v1 ------ 向量<br /> v2 ------ 向量<br /> 返回值:        向量<br /> 函数简介:        向量叉积<br /> 函数来源:        原创<br /> 函数作者:        marting<br /> 适用版本:        不限 <br /> 最后更新时间:        2017-06-05<br /> 备注:        向量-- 用点表示<br /> 向量点积的几何意义：等于垂直于两向量确定平面的的向量<br /> |;<br /> (defun XD::Vec:vxv ( v1 v2 )<br />   (list<br />     (- (* (cadr v1) (caddr v2)) (* (cadr v2) (caddr v1)))<br />     (- (* (car  v2) (caddr v1)) (* (car  v1) (caddr v2)))<br />     (- (* (car  v1) (cadr  v2)) (* (car  v2) (cadr  v1)))<br />   )<br /> )<br />