我为你写了一些 C 代码。也许它可以提供帮助。这是一个将密集矩阵分解为 L, U 的过程,其中 L*U=A,L - 下三角,U - 上三角,L[i,i]=U[i,i](对角线元素相等) . 这种分解也称为 LU(sq)。
#include <math.h>
// A, L, U each allocates at least N*N doubles
// A contains elements of given matrix, written row by row
void decompose(unsigned N, double *A, double *L, double *U) {
#define _(M,i,j) M[N*i + j]
#define _A(i,j) _(A,i,j)
#define _L(i,j) _(L,i,j)
#define _U(i,j) _(U,i,j)
_L(0,0) = sqrt(_A(0,0));
_U(0,0) = sqrt(_A(0,0));
for ( int i = 0; i < N; ++i ) {
_L(i,0) = _A(i,0) / _A(0,0);
_U(0,i) = _A(0,i) / _A(0,0);
_L(0,i) = _U(i,0) = 0.0;
double s = 0.0;
for ( int k = 0; k < i; ++k ) {
s += _L(i,k) * _U(k,i);
}
_L(i,i) = _U(i,i) = sqrt(_A(i,i) - s);
for ( int j = 1; j < i; ++j ) {
double s = 0.0;
for ( int k = 0; k < j; ++k ) {
s += _L(i,k) * _U(k,j);
}
_L(i,j) = (_A(i,j) - s) / _L(i,i);
_L(j,i) = 0.0;
double s = 0.0;
for ( int k = 0; k < i; ++k ) {
s += _L(i,k) * _U(k,j);
}
_U(j,i) = (_A(i,j) - s) / _U(i,i);
_U(i,j) = 0.0;
}
}
}
不幸的是,我现在没有时间检查代码中的错误。我有一些我有信心的公式(几年前使用过):
我的代码基于这些公式。当然,如果你想使用一些特定的适合你的数据稀疏格式,你需要改变程序,而不是公式。