XLPack 7.0
XLPack 数値計算ライブラリ (Excel ワークシート関数) リファレンスマニュアル
読み取り中…
検索中…
一致する文字列を見つけられません

◆ WDsysv()

Function WDsysv ( Uplo As  String,
N As  Long,
A As  Variant,
B As  Variant,
Optional Nrhs As  Long = 1 
)

連立一次方程式 AX = B の解 (対称行列)

目的
WDsysvは次の連立一次方程式を解く.
A * X = B
ここで, AはN×N対称行列, また, XおよびBはN×Nrhs行列である.

まず, 対角ピボット法によりAを次のように分解する.
A = U * D * U^T (Uplo = "U"の場合)
A = L * D * L^T (Uplo = "L"の場合)
ここで, U(またはL)は置換行列と対角要素が1の上(または下)三角行列の積, そして, Dは1×1または2×2対角ブロックよりなる対称なブロック対角行列である. 次に, 分解されたAを用いて連立方程式 A * X = B の解を求める.
戻り値
N+2 × Nrhs
列1列2・・・列Nrhs
行1〜N解行列 X
行N+11/条件数0・・・0
行N+2リターンコード0・・・0

リターンコード.
= 0: 正常終了.
= i > 0: 行列のi番目のピボットがゼロになった. (行列 A は特異)
引数
[in]Uplo= "U": Aの上三角部分を格納.
= "L": Aの下三角部分を格納.
[in]N連立方程式の数, すなわち, 行列Aの行および列数 (N >= 1)
[in]A(N × N) N×N対称行列 A. Uploに従い上三角部分あるいは下三角部分が参照される.
[in]B(N × Nrhs) N×Nrhs右辺行列 B.
[in]Nrhs(省略可)
右辺行列Bの列数. (Nrhs >= 1) (省略時 = 1)
出典
LAPACK
使用例
連立一次方程式 Ax = B を解く. また, Aの条件数の逆数の推定値(RCond)を求める. ただし, Aは対称行列で
( 2.2 -0.11 -0.32 ) ( -1.5660 )
A = ( -0.11 2.93 0.81 ), B = ( -2.8425 )
( -0.32 0.81 -2.37 ) ( -1.1765 )
とする.

WDsysv