[LISP函数]原创平移矩阵。

eachy

1. ;;矩阵平移一个向量
   
2. (defun ea:matrix_SetTranslation (matrix ve / m1 m2 m3)
   
3.   (setq m1 (car matrix)
   
4.         m2 (cadr matrix)
   
5.         m3 (nth 2 matrix)
   
6.   )
   
7.   (list (list (car m1) (cadr m1) (nth 2 m1) (car ve))
   
8.         (list (car m2) (cadr m2) (nth 2 m2) (cadr ve))
   
9.         (list (car m3)(cadr m3)(nth 2 m3)(last ve)) '(0.0 0.0 0.0 1.0)
   
10.   )
    
11. )
    

;;矩阵平移一个向量<br /> (defun ea:matrix_SetTranslation (matrix ve / m1 m2 m3)<br />   (setq m1 (car matrix)<br />         m2 (cadr matrix)<br />         m3 (nth 2 matrix)<br />   )<br />   (list (list (car m1) (cadr m1) (nth 2 m1) (car ve))<br />         (list (car m2) (cadr m2) (nth 2 m2) (cadr ve))<br />         (list (car m3)(cadr m3)(nth 2 m3)(last ve)) '(0.0 0.0 0.0 1.0)<br />   )<br /> )<br />

梦断江南

矩阵的平移为什么不用矩阵相乘的方法?
直接这么做,会不会破坏了原来的矩阵?
(为了方便,测试时候改命令名为简写)
(ea:mt '((1 0 0 0)(0 1 0 0)(0 0 1 0)(0 0 0 1)) '(2 2 1))
->((1 0 0 2) (0 1 0 2) (0 0 1 1) (0.0 0.0 0.0 1.0))
(ea:mt '((2 0 0 1)(0 2 0 0)(0 0 3 1)(0 0 0 1)) '(2 2 1))
->((2 0 0 2) (0 2 0 2) (0 0 3 1) (0.0 0.0 0.0 1.0)) ->?????

and:
(setq m (ea:mt '((1 0 0 0)(0 1 0 0)(0 0 1 0)(0 0 0 1)) '(2 2 1)))
m -> ((1 0 0 2) (0 1 0 2) (0 0 1 1) (0.0 0.0 0.0 1.0))
(ea:mt m '(2 2 1))
-> ((1 0 0 2) (0 1 0 2) (0 0 1 1) (0.0 0.0 0.0 1.0))

eachy

最初由 梦断江南 发布
[B]矩阵的平移为什么不用矩阵相乘的方法?
直接这么做,会不会破坏了原来的矩阵?
(为了方便,测试时候改命令名为简写)
(ea:mt '((1 0 0 0)(0 1 0 0)(0 0 1 0)(0 0 0 1)) '(2 2 1))
->((1 0 0 2) (0 1 0 2) (0 0 1 1) (... [/B]

上述函数有误