WDgbsv WDgesv WDgtsv WDtrtrs

WDgesv() Function WDgesv ( N As  Long, A As  Variant, B As  Variant, Optional Nrhs As  Long = 1  ) 連立一次方程式 AX = B の解 (一般行列) 目的 WDgesvは次の連立一次方程式を解く. A * X = B ここで, AはN×N行列, また, XおよびBはN×Nrhs行列である. 行交換によるピボットの部分選択を行うLU分解を用いて, 次のようにAを分解する. A = P * L * U ここで, Pは置換行列, Lは対角要素が1の下三角行列, そして, Uは上三角行列である. 次に, 分解されたAを用いて連立方程式 A * X = B の解を求める. 戻り値 N+2 × Nrhs 列1 列2 ・・・ 列Nrhs 行1〜N 解行列 X 行N+1 1/条件数 0 ・・・ 0 行N+2 リターンコード 0 ・・・ 0 リターンコード. = 0: 正常終了. = i > 0: 行列のi番目のピボットがゼロになった. (行列 A は特異) 引数 [in] N 連立方程式の数, すなわち, 行列Aの行および列数. (N >= 1) [in] A (N × N) N×N係数行列 A. [in] B (N × Nrhs) N×Nrhs右辺行列 B. [in] Nrhs (省略可) 右辺行列Bの列数. (Nrhs >= 1) (省略時 = 1) 出典 LAPACK 使用例 連立一次方程式 Ax = B を解く. また, Aの条件数の逆数の推定値(RCond)を求める. ただし, ( 0.2 -0.11 -0.93 ) ( -0.3727 ) A = ( -0.32 0.81 0.37 ), B = ( 0.4319 ) ( -0.8 -0.92 -0.29 ) ( -1.4247 ) とする.