（XD::Vec:Length）向量长度

marting

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

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

qxlonmsn

十分感谢大神的代码