se_Gauss_Seidel
简述
用高斯-赛德尔迭代法求解系数矩阵具有主元占优的线性方程组AX = B
se_Gauss_Seidel(A : TMatrix;B : array of real; var X : array of real) : integer;
名称 | 类型 | 说明 |
---|
A | TMatrix | 实型二维数组,N N。存放方程组的系数矩阵 |
B | array of real | 实型二维数组,N M。存放方程组右端的常数向量 |
X | array of real | 实型一维数组,N M。返回方程组的解向量 |
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_Gauss_Jordan se_Ldl se_Cholesky