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日