19.2 行列

Next: 19.3 回転行列 Up: 19 座標系，空間の記述 Previous: 19.1 ベクトル

19.2 行列


eus$ (setq m1 (make-matrix 4 4
          '((2 1 1 0)
            (1 1 1 1)
            (5 3 2 1)
            (4 2 3 1))))  ;;; 初期値を与える．
#2f((2.0 1.0 1.0 0.0)
    (1.0 1.0 1.0 1.0)
    (5.0 3.0 2.0 1.0)
    (4.0 2.0 3.0 1.0))
;;;
eus$ (m* m1 m1)
#2f((10.0 6.0 5.0 2.0)
    (12.0 7.0 7.0 3.0)
    (27.0 16.0 15.0 6.0)
    (29.0 17.0 15.0 6.0))
;;;
eus$ (transform m1 v1)  ;;; 行列へ右からかける
#f(7.0 10.0 21.0 21.0)
eus$ (transform v1 m1)  ;;; 行列へ左からかける
#f(35.0 20.0 21.0 9.0)
;;;
eus$ (inverse-matrix m1)   ;;; 逆行列
#2f((-3.0 -2.0 1.0 1.0)
    (5.0 3.0 -1.0 -2.0)
    (2.0 1.0 -1.0 -1.788139e-07)
    (-4.0 -1.0 1.0 1.0))
eus$ (transpose m1)        ;;; 転置行列
#2f((2.0 1.0 5.0 4.0)
    (1.0 1.0 3.0 2.0)
    (1.0 1.0 2.0 3.0)
    (0.0 1.0 1.0 1.0))
;;;
eus$ (setq u (unit-matrix 3))  ;;; 単位行列
#2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))
eus$ (unit-matrix 2)
#2f((1.0 0.0) (0.0 1.0))
eus$ (unit-matrix 1)
#2f((1.0))
;;;
eus$ (setq a (float-vector 1 2 3))
#f(1.0 2.0 3.0)
eus$ (setq b (float-vector 2 -1 0))
#f(2.0 -1.0 0.0)
eus$ (v* a b)                ;;; 外積
#f(3.0 6.0 -5.0)

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