（XD::Matrix:Align）构造对齐变换矩阵

newer

1. ;|
   
2. 构造对齐矩阵
   
3. 参数：
   
4.    pj ---- 基点
   
5.    vs ---- 源向量
   
6.    vd ---- 目标向量
   
7. 返回值：矩阵
   
8. |;
   
9. 
   
10. (defun XD::Matrix:Align (pj vs vd / fromx fromy from tox toy to mMat)
    
11.   (setq fromx (xdrx_vector_normalize vs)
    
12.         fromy (xdrx_vector_perpvector fromx)
    
13.         fromz (xdrx_vector_crossproduct fromx fromy)
    
14.         from (list pj fromx fromy fromz)
    
15.         tox (xdrx_vector_normalize vd)
    
16.         toy (xdrx_vector_perpvector tox)
    
17.         toz (xdrx_vector_crossproduct tox toy)
    
18.         to (list pj tox toy toz)
    
19.         mMat (xdrx_matrix_aligncoordsystem from to)
    
20.   )
    
21.   mMat
    
22. )
    
23. 
    

;|<br /> 构造对齐矩阵<br /> 参数：<br />    pj ---- 基点<br />    vs ---- 源向量<br />    vd ---- 目标向量<br /> 返回值：矩阵<br /> |;<br /> <br /> (defun XD::Matrix:Align (pj vs vd / fromx fromy from tox toy to mMat)<br />   (setq fromx (xdrx_vector_normalize vs)<br />         fromy (xdrx_vector_perpvector fromx)<br />         fromz (xdrx_vector_crossproduct fromx fromy)<br />         from (list pj fromx fromy fromz)<br />         tox (xdrx_vector_normalize vd)<br />         toy (xdrx_vector_perpvector tox)<br />         toz (xdrx_vector_crossproduct tox toy)<br />         to (list pj tox toy toz)<br />         mMat (xdrx_matrix_aligncoordsystem from to)<br />   )<br />   mMat<br /> )<br /> <br />

wujiazhi14

要学习的东西太多，只能拿来主义

iLisp

1. (defun XD::Matrix:Align        (pj vs vd / _getcoorsystem)
   
2.   (defun _getcoorsystem        (pj xdir / _xdir _ydir _zdir)
   
3.     (setq _xdir        (xdrx_vector_normalize xdir)
   
4.           _ydir        (xdrx_vector_perpvector _xdir)
   
5.           _zdir        (xdrx_vector_crossproduct _xdir _ydir)
   
6.     )
   
7.     (list pj _xdir _ydir _zdir)
   
8.   )
   
9.   (xdrx_matrix_aligncoordsystem
   
10.     (_getcoorsystem pj vs)
    
11.     (_getcoorsystem pj vd)
    
12.   )
    
13. )
    

(defun XD::Matrix:Align        (pj vs vd / _getcoorsystem)<br />   (defun _getcoorsystem        (pj xdir / _xdir _ydir _zdir)<br />     (setq _xdir        (xdrx_vector_normalize xdir)<br />           _ydir        (xdrx_vector_perpvector _xdir)<br />           _zdir        (xdrx_vector_crossproduct _xdir _ydir)<br />     )<br />     (list pj _xdir _ydir _zdir)<br />   )<br />   (xdrx_matrix_aligncoordsystem<br />     (_getcoorsystem pj vs)<br />     (_getcoorsystem pj vd)<br />   )<br /> )<br />

newer

iLisp 发表于 2014-12-22 19:47

_getcoorsystem 这个可以单独拿出去做个函数吧？ 不知道函数库有这个函数了没。

qyming2000

不错，收藏   
来自: 微社区