se_Gauss_Jordan
简述
用全主元高斯-约当(Gauss-Jordan)消去法同时求解系数矩阵相同而常数向量不同的m个n阶线性方程组AX = B
se_Gauss_Jordan(A : TMatrix; B : TMatrix; var X : TMatrix) : Integer
A:=array((1,0,0),
(0,2,0),
(0,0,3));
B:=array((1,3),
(4,6),
(9,9));
se_Gauss_Jordan(A,B,X);
return X;
//结果:
X=
se_Gauss se_Ldl se_Cholesky se_Gauss_Seidel