[LISP函数-矩阵]：矩阵相乘

eachy

2. 
   
3. ;;矩阵相乘
   
4. (defun xd-matrix_compose (m1 m2 / n i j tmp ret)
   
5.   (setq i 0)
   
6.   (repeat (setq n (length (car m1)))
   
7.     (setq j   0
   
8.           tmp nil
   
9.     )
   
10.     (repeat n
    
11.       (setq tmp        (append        tmp
    
12.                         (list (apply
    
13.                                 '+
    
14.                                 (mapcar
    
15.                                   '*
    
16.                                   (nth i m1)
    
17.                                   (mapcar '(lambda (x) (nth j x)) m2)
    
18.                                 )
    
19.                               )
    
20.                         )
    
21.                 )
    
22.             j        (1+ j)
    
23.       )
    
24.     )
    
25.     (setq ret (append ret (list tmp))
    
26.           i   (1+ i)
    
27.     )
    
28.   )
    
29.   ret
    
30. )

<br /> ;;矩阵相乘<br /> (defun xd-matrix_compose (m1 m2 / n i j tmp ret)<br />   (setq i 0)<br />   (repeat (setq n (length (car m1)))<br />     (setq j   0<br />           tmp nil<br />     )<br />     (repeat n<br />       (setq tmp        (append        tmp<br />                         (list (apply<br />                                 '+<br />                                 (mapcar<br />                                   '*<br />                                   (nth i m1)<br />                                   (mapcar '(lambda (x) (nth j x)) m2)<br />                                 )<br />                               )<br />                         )<br />                 )<br />             j        (1+ j)<br />       )<br />     )<br />     (setq ret (append ret (list tmp))<br />           i   (1+ i)<br />     )<br />   )<br />   ret<br /> )

aeo

(mapcar '(lambda (x) (nth j x)) m2)  ;;就是把矩阵竖起来读.

(apply
                                '+
                                (mapcar
                                  '*
                                  (nth i m1)
                                  (mapcar '(lambda (x) (nth j x)) m2)
                                )
                              )
那就是点积了.