（XD::Mat:RemoveDisp）去除4阶矩阵的平移部分

marting

1. (defun XD::Mat:RemoveDisp (m)
   
2.   (if (= 4 (xd::mat:ismatrix m))
   
3.     (reverse
   
4.       (cdr (reverse (mapcar '(lambda (x) (list (car x) (cadr x) (caddr x))) m)))
   
5.     )
   
6.   )
   
7. )
   

(defun XD::Mat:RemoveDisp (m)<br />   (if (= 4 (xd::mat:ismatrix m))<br />     (reverse<br />       (cdr (reverse (mapcar '(lambda (x) (list (car x) (cadr x) (caddr x))) m)))<br />     )<br />   )<br /> )<br />