（XD::Vec:v*v）向量乘法

marting

1. ;|
   
2. 函数名称:        XD::Vec:v*v
   
3. 调用格式:        (XD::Vec:v*v v1 v2)
   
4. 参数说明:        v1 ------ 向量
   
5. v2 ------ 向量
   
6. 返回值:        向量
   
7. 函数简介:        向量乘法
   
8. 函数来源:        原创
   
9. 函数作者:        marting
   
10. 适用版本:        不限
    
11. 最后更新时间:        2017-06-05
    
12. 备注:        向量-- 用点表示
    
13. |;
    
14. (defun XD::Vec:v*v (v1 v2)
    
15.   (mapcar '* v1 v2)
    
16. )
    
17. 
    

;|<br /> 函数名称:        XD::Vec:v*v<br /> 调用格式:        (XD::Vec:v*v v1 v2)<br /> 参数说明:        v1 ------ 向量<br /> v2 ------ 向量<br /> 返回值:        向量<br /> 函数简介:        向量乘法<br /> 函数来源:        原创<br /> 函数作者:        marting<br /> 适用版本:        不限 <br /> 最后更新时间:        2017-06-05<br /> 备注:        向量-- 用点表示<br /> |;<br /> (defun XD::Vec:v*v (v1 v2)<br />   (mapcar '* v1 v2)<br /> )<br /> <br />