|
|
◆ Dlange()
| Function Dlange |
( |
Norm As |
String, |
|
|
M As |
Long, |
|
|
N As |
Long, |
|
|
A() As |
Double, |
|
|
Optional Info As |
Long |
|
) |
| |
行列の1ノルム, フロベニウスノルム, 無限ノルム, または, 要素の最大絶対値 (一般行列)
- 目的
- 本ルーチンは行列Aの1ノルム, フロベニウスノルム, 無限ノルム, または, 要素の最大絶対値を返す.
- 戻り値
- Double
max(abs(Aij)) (Norm = "M"の場合),
norm1(A) (Norm = "1"または"O"の場合),
normI(A) (Norm = "I"の場合), または
normF(A) (Norm = "F"または"E"の場合).
ここで, norm1は行列の1ノルム(列の合計の最大値), normIは行列の無限ノルム(行の合計の最大値), そして, normFは行列のフロベニウスノルム(二乗和の平方根)を表す. max(abs(Aij))は正しくは行列のノルムではないことに注意せよ.
- 引数
-
| [in] | Norm | 上に説明されているようにDlangeが返す値を指定する. |
| [in] | M | 行列 A の行数. (M >= 0) (M = 0 の場合, 0を返す) |
| [in] | N | 行列 A の列数. (N >= 0) (N = 0 の場合, 0を返す) |
| [in] | A() | 配列 A(LA1 - 1, LA2 - 1) (LA1 >= M, LA2 >= N)
M×N行列 A. |
| [out] | Info | (省略可)
= 0: 正常終了.
= -1: パラメータ Norm の誤り. (Norm <> "M", "1", "O", "I", "F"および"E")
= -2: パラメータ M の誤り. (M < 0)
= -3: パラメータ N の誤り. (N < 0)
= -4: パラメータ A() の誤り. |
- 出典
- LAPACK
- 使用例
- 行列Aのノルムを求める. ただし,
( 0.2 -0.11 -0.93 )
A = ( -0.32 0.81 0.37 )
( -0.8 -0.92 -0.29 )
Sub Ex_Dlange()
Const N As Long = 3
Dim A(N - 1, N - 1) As Double
Dim ANormM As Double, ANorm1 As Double, ANormI As Double, ANormF As Double
A(0, 0) = 0.2: A(0, 1) = -0.11: A(0, 2) = -0.93
A(1, 0) = -0.32: A(1, 1) = 0.81: A(1, 2) = 0.37
A(2, 0) = -0.8: A(2, 1) = -0.92: A(2, 2) = -0.29
ANormM = Dlange("M", N, N, A())
ANorm1 = Dlange("1", N, N, A())
ANormI = Dlange("I", N, N, A())
ANormF = Dlange("F", N, N, A())
Debug.Print "max(abs(Aij)), norm1(A), normI(A), normF(A) ="
Debug.Print ANormM, ANorm1, ANormI, ANormF
End Sub
- 実行結果
max(abs(Aij)), norm1(A), normI(A), normF(A) =
0.93 1.84 2.01 1.83926615800976
|
1.9.6