多个矩阵左乘函数

newer

1. (defun  XD::Matrix:product (matL  / _m1 _m2)
   
2.   (if (> (length matl) 1)
   
3.     (progn
   
4.       (setq _m1 (reverse matL)
   
5.             _m2 (car _m1)
   
6.       )
   
7.       (while (setq _m1 (cdr _m1))
   
8.         (setq _m2 (xdrx_matrix_product (car _m1) _m2))
   
9.       )
   
10.       _m2
    
11.     )
    
12.   )
    
13. )
    
14. 
    

(defun  XD::Matrix:product (matL  / _m1 _m2)<br />   (if (> (length matl) 1)<br />     (progn<br />       (setq _m1 (reverse matL)<br />             _m2 (car _m1)<br />       )<br />       (while (setq _m1 (cdr _m1))<br />         (setq _m2 (xdrx_matrix_product (car _m1) _m2))<br />       )<br />       _m2<br />     )<br />   )<br /> )<br /> <br />