next up previous
Next: 1.3 リスト行列の転置 Up: 1 リスト行列 Previous: 1.1 ベクトル

1.2 リスト行列の足し算，引き算

行列の足し算m+，引き算m-は，行ベクトルの足し算v+， 引き算v-を作って， 

(defun m+ (a b) (mapcar* #'v+ a b))
(defun m- (a b) (mapcar* #'v- a b))
と作ることができ，次のように実行できる． 
> (setq a '(( 1  2  3  4)
               ( 5  6  7  8)
               ( 9 10 11 12)))
((1 2 3 4) (5 6 7 8) (9 10 11 12))

> (m+ a a)
((2 4 6 8) (10 12 14 16) (18 20 22 24))
> (m- a a)
((0 0 0 0) (0 0 0 0) (0 0 0 0))

generated through LaTeX2HTML. M.Inaba 平成18年5月7日