VBAで数値計算 10 逆行列と疑似逆行列
- 3. 逆行列 3
- 4. 逆行列とは 𝐀𝐀がn次の正方行列（n×n行列）で、式(1)と式(2)を満たすと き、𝐀𝐀−𝟏𝟏を𝐀𝐀の逆行列という。逆行列を用いると、式(3)の様に 行列の方程式を簡単に解くことができる。 4 𝐀𝐀−𝟏𝟏 𝐀𝐀 = 𝐀𝐀𝐀𝐀−𝟏𝟏 = 𝐈𝐈 (1)𝐀𝐀 ≠ 𝟎𝟎 (2) * 𝐀𝐀 は𝐀𝐀の行列式で、式(1)を満 たした行列を正則行列という。 𝐀𝐀𝐁𝐁 = 𝐂𝐂 (3)𝐀𝐀−𝟏𝟏 𝐀𝐀𝐁𝐁 = 𝐀𝐀−𝟏𝟏 𝐂𝐂 𝐁𝐁 = 𝐀𝐀−𝟏𝟏 𝐂𝐂
- 5. 逆行列のアルゴリズム 掃き出し法を用いて、逆行列を求めることができる。 5 𝐀𝐀𝐀𝐀−1 = 𝐈𝐈 𝑎𝑎11 ⋯ 𝑎𝑎1𝑛𝑛 ⋮ ⋱ ⋮ 𝑎𝑎 𝑚𝑚1 ⋯ 𝑎𝑎 𝑚𝑚𝑚𝑚 𝒃𝒃1, ⋯ , 𝒃𝒃𝑛𝑛 = 1 ⋯ 0 ⋮ ⋱ ⋮ 0 ⋯ 1 𝒃𝒃𝑗𝑗 ：𝐀𝐀−1の列ベクトル 𝑎𝑎11 ⋯ 𝑎𝑎1𝑛𝑛 ⋮ ⋱ ⋮ 𝑎𝑎 𝑚𝑚1 ⋯ 𝑎𝑎 𝑚𝑚𝑚𝑚 𝒃𝒃1 = 1 ⋮ 0 𝑎𝑎11 ⋯ 𝑎𝑎1𝑛𝑛 ⋮ ⋱ ⋮ 𝑎𝑎 𝑚𝑚1 ⋯ 𝑎𝑎 𝑚𝑚𝑚𝑚 𝒃𝒃𝑛𝑛 = 0 ⋮ 1 𝑎𝑎11 ⋯ 𝑎𝑎1𝑛𝑛 ⋮ ⋱ ⋮ 𝑎𝑎 𝑚𝑚1 ⋯ 𝑎𝑎 𝑚𝑚𝑚𝑚 𝒃𝒃𝑗𝑗 = 𝛿𝛿1 ⋮ 𝛿𝛿𝑚𝑚 𝛿𝛿𝑖𝑖 = � 1, 𝑖𝑖 = 𝑗𝑗 0, 𝑖𝑖 ≠ 𝑗𝑗 係数行列の列ベクトルと単位行列の列ベクトルの関係に注目してみる。 一般化して書き直すと↓の様になる。
- 6. 6 既知 未知 これは、掃き出し法で使った構造と同じですね！？ 結論 𝑎𝑎11 ⋯ 𝑎𝑎1𝑛𝑛 ⋮ ⋱ ⋮ 𝑎𝑎 𝑚𝑚1 ⋯ 𝑎𝑎 𝑚𝑚𝑚𝑚 1 ⋯ 0 ⋮ ⋱ ⋮ 0 ⋯ 1 1 ⋯ 0 ⋮ ⋱ ⋮ 0 ⋯ 1 ́𝑏𝑏11 ⋯ ́𝑏𝑏1𝑛𝑛 ⋮ ⋱ ⋮ ́𝑏𝑏𝑚𝑚1 ⋯ ́𝑏𝑏𝑚𝑚𝑚𝑚 これを こうしてしまう 𝑎𝑎11 ⋯ 𝑎𝑎1𝑛𝑛 ⋮ ⋱ ⋮ 𝑎𝑎 𝑚𝑚1 ⋯ 𝑎𝑎 𝑚𝑚𝑚𝑚 𝒃𝒃𝑗𝑗 = 𝛿𝛿1 ⋮ 𝛿𝛿𝑚𝑚 𝛿𝛿𝑖𝑖 = � 1, 𝑖𝑖 = 𝑗𝑗 0, 𝑖𝑖 ≠ 𝑗𝑗 𝒃𝒃1 𝒃𝒃𝑛𝑛 𝐀𝐀−1 実線で示された四角の枠 内が逆行列である。
- 7. 逆行列を求めるアルゴリズム 逆行列を求めるアルゴリズムは複数あるが、ここでは以下の様に考えたい。 一度に計算した方が速いが、資産（作ったプログラム）を活用したい そこで、逆行列を列ベクトル単位で求める 求めた列ベクトルをArrayに順番に格納してもそのままでは転置状態 matrix = Array(vect1, vect2, vect3)で行列を作ると、転置状態となる。 転置状態の行列を転置して逆行列を得る。 テストとして元の行列と逆行列の積を計算し、単位行列を得るか確認 7 𝑎𝑎11 ⋯ 𝑎𝑎1𝑛𝑛 ⋮ ⋱ ⋮ 𝑎𝑎 𝑚𝑚1 ⋯ 𝑎𝑎 𝑚𝑚𝑚𝑚 𝒃𝒃𝑗𝑗 = 𝛿𝛿1 ⋮ 𝛿𝛿𝑚𝑚 𝛿𝛿𝑖𝑖 = � 1, 𝑖𝑖 = 𝑗𝑗 0, 𝑖𝑖 ≠ 𝑗𝑗 つまり、→の計算を𝑗𝑗 = 1 から𝑚𝑚まで繰り返す。
- 8. 逆行列を求める 関数の実装例 8 Function matrix_inverse(matrix) Dim delta As Variant delta = Array() ReDim delta(UBound(matrix)) inverse = matrix ' コピーはしているが、ただ同じサイズの行列が欲しいだけ For i = 0 To UBound(matrix) For k = 0 To UBound(delta) If k = i Then delta(k) = 1 Else delta(k) = 0 End If Next k b = get_x_2(delta, matrix) inverse(i) = b Next i inverse = matrix_t(inverse) matrix_inverse = inverse End Function @VBA 転置 Array()の入れ子を想定 実用上は正方行列であるこ とや、行列式が0にならない 事を確認した方がいい。 逆行列の列ベクトルの計算 単位行列の列ベクトル を格納する変数 単位行列のi列における列 ベクトルを作っている
- 11. 最小二乗法とは 計算結果と観測値との差の2乗値の和（合計値）を最小にする 係数を求める手法を最小二乗法という。回帰式を求める際に よく利用される。 11 例えば、左の例では𝑦𝑦 = 𝑥𝑥2 + 1にノイ ズを加えて作った点に近似曲線𝑦𝑦 = 𝑎𝑎𝑥𝑥2 + 𝑏𝑏𝑏𝑏 + 𝑐𝑐 を当てはめたものである。 この例では、予測値と実測値との差の 二乗和が最小になるように 𝑎𝑎と𝑏𝑏と𝑐𝑐が 決定される。 最小を目指すので、和の関数を各係数 で偏微分した値が0になるように調整 するのだが詳細は省略する。
- 12. 観測値Yにノイズがある場 合の連立方程式の解法は？ ところで、観測値にノイズ（ランダムな観測誤差）がある場 合、解の精度が劣化する。そこで最小二乗法の出番である。 結論を述べると、未知数の数pに対し方程式の数（観測の数） qをp<qとし、行列Aから作成した擬似逆行列を逆行列の替わ りに利用する。 観測値に誤差がある場合は多数の観測により計算精度を上げ ることができることは直感的に理解できると思う。なお、p<q の場合はAが正方行列にならないので逆行列は求まらない。 12 𝐀𝐀𝐱𝐱 = 𝐲𝐲 (4)𝐀𝐀−𝟏𝟏 𝐀𝐀𝐱𝐱 = 𝐀𝐀−𝟏𝟏 𝐲𝐲 𝐱𝐱 = 𝐀𝐀−𝟏𝟏 𝒚𝒚 観測値にノイズのない連立方程式は、式(4)に示すように式に 逆行列をかけることで簡単に解ける。 近似曲線𝑦𝑦 = 𝑎𝑎𝑥𝑥2 + 𝑏𝑏𝑏𝑏 + 𝑐𝑐 の𝑎𝑎と𝑏𝑏と𝑐𝑐が𝐱𝐱に格納されて いると思ってほしい。
- 13. 擬似逆行列 擬似逆行列は式(5)で求める。擬似逆行列であることを示すた めに、行列の右上に+マークがついている。 13 𝐀𝐀+ = (𝐀𝐀𝐓𝐓 𝐀𝐀)−𝟏𝟏 𝐀𝐀𝐓𝐓 (5)
- 14. 擬似逆行列の実装例 擬似逆行列の実装例を以下に示す。 14 Function matrix_pseudo_inverse(m) ' 疑似逆行列を返す matrix_pseudo_inverse = matrix_cross(matrix_inverse(matrix_cross(matrix_t(m), m)), matrix_t(m)) End Function @VBA
- 16. その他 16
- 17. 参考文献 SAK Streets - VB 開発言語資料 http://sak.cool.coocan.jp/w_sak3/doc/sysbrd/sak3vb.htm 基本的にVB6.0の解説だが、VBAにほぼそのまま適用できる。かなり詳しい。 擬似逆行列（一般化逆行列） http://imagingsolution.net/math/pseudoinversematrix/ 最小二乗法と特異値 http://www.comp.tmu.ac.jp/kzmurota/lect-keieisuri/1401singval160101.pdf 17