（XD::Vec:Normalize）求单位向量

marting

1. ;|
   
2. 函数名称:        XD::Vec:Normalize
   
3. 调用格式:        (XD::Vec:Normalize v)
   
4. 参数说明:        v ------ 向量
   
5. 返回值:        向量
   
6. 函数简介:        单位向量
   
7. 函数来源:        原创
   
8. 函数作者:        marting
   
9. 适用版本:        不限
   
10. 最后更新时间:        2017-06-06
    
11. 备注:        向量-- 用点表示
    
12. |;
    
13. (defun XD::VEC:Normalize (v)
    
14.   ( (lambda (n)
    
15.       (if (equal 0.0 n 1e-14)
    
16.         nil
    
17.         (XD::VEC:v*s v (/ 1.0 n))
    
18.       )
    
19.     )
    
20.     (XD::VEC:length v)
    
21.   )
    
22. )
    

;|<br /> 函数名称:        XD::Vec:Normalize<br /> 调用格式:        (XD::Vec:Normalize v)<br /> 参数说明:        v ------ 向量<br /> 返回值:        向量<br /> 函数简介:        单位向量<br /> 函数来源:        原创<br /> 函数作者:        marting<br /> 适用版本:        不限 <br /> 最后更新时间:        2017-06-06<br /> 备注:        向量-- 用点表示<br /> |;<br /> (defun XD::VEC:Normalize (v)<br />   ( (lambda (n)<br />       (if (equal 0.0 n 1e-14)<br />         nil<br />         (XD::VEC:v*s v (/ 1.0 n))<br />       )<br />     )<br />     (XD::VEC:length v)<br />   )<br /> )<br />