（XD::Vec:Dot）向量点积

marting

1. ;|
   
2. 函数名称:        XD::Vec:Dot
   
3. 调用格式:        (XD::Vec:Dot  v1 v2)
   
4. 参数说明:        v1 ------ 向量
   
5. v2 ------ 向量
   
6. 返回值:        实数
   
7. 函数简介:        向量点积
   
8. 函数来源:        原创
   
9. 函数作者:        marting
   
10. 适用版本:        不限
    
11. 最后更新时间:        2017-06-05
    
12. 备注:        向量-- 用点表示
    
13. 向量点积的几何意义：等于两向量夹角的余弦
    
14. |;
    
15. (defun XD::Vec:Dot (v1 v2)
    
16.   (apply '+ (mapcar '* v1 v2))
    
17. )
    

;|<br /> 函数名称:        XD::Vec:Dot<br /> 调用格式:        (XD::Vec:Dot  v1 v2)<br /> 参数说明:        v1 ------ 向量<br /> v2 ------ 向量<br /> 返回值:        实数<br /> 函数简介:        向量点积<br /> 函数来源:        原创<br /> 函数作者:        marting<br /> 适用版本:        不限 <br /> 最后更新时间:        2017-06-05<br /> 备注:        向量-- 用点表示<br /> 向量点积的几何意义：等于两向量夹角的余弦<br /> |;<br /> (defun XD::Vec:Dot (v1 v2)<br />   (apply '+ (mapcar '* v1 v2))<br /> )<br />