next up previous
Next: 2.2 リスト行列の転置 Up: 2 例題：行列表現と演算 Previous: 2 例題：行列表現と演算

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

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

(defun v+ (a b) (mapcar #'+ a b))
(defun v- (a b) (mapcar #'- a b))

(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))

> (v+ '(1 2 3) '(1 2 3))
(2 4 6)
> (v- '(1 2 3) '(1 2 3))
(0 0 0)

> (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月6日