行主元素消去法求解线性方程组的Pascal代码
来源:互联网 发布:js获取复选框选中的值 编辑:程序博客网 时间:2024/04/28 04:55
N是未知数个数,A是系数矩阵,X是右端项矩阵,同时存放解,右端项矩阵允许有M列。
function GAUE(var A: TDoubleExtendedArray; var X: TDoubleExtendedArray; N, M: longint): boolean;
var
i, j, k, jk: longint;
B, Max, Eps: Extended;
begin
Eps := 1E-8;
for k := 0 to N - 1 do begin
Max := 0;
for j := k to N - 1 do
if Abs(A[j, k]) > Max then begin
jk := j;
Max := Abs(A[j, k]);
end;
if Max < Eps then begin
Result := false;
exit;
end;
Max := 1 / A[jk, k];
for j := 0 to N - 1 do begin
B := A[jk, j] * Max;
A[jk, j] := A[k, j];
A[k, j] := B;
end;
for j := 0 to M - 1 do begin
B := X[jk, j] * Max;
X[jk, j] := X[k, j];
X[k, j] := B;
end;
for i := k + 1 to N - 1 do begin
B := A[i, k];
for j := k + 1 to N - 1 do A[i, j] := A[i, j] - A[k, j] * B;
for j := 0 to M - 1 do X[i, j] := X[i, j] - X[k, j] * B;
end;
end;
for i := N - 1 downto 1 do
for j := 0 to M - 1 do
for k := 0 to i - 1 do
X[k, j] := X[k, j] - A[k, i] * X[i, j];
end;
- 行主元素消去法求解线性方程组的Pascal代码
- 求解线性方程组--主元消去法
- 计算方法列主元素消去法求线性方程组的解
- 求解线性方程组--全主元消去法
- Gauss消去法求解线性方程组
- 全主元高斯消去法求解线性方程组
- 主元高斯消去法求解线性方程组 C#源码
- 求解线性方程组--高斯消去法
- 求解线性方程组之Gauss_Jordan消去法
- 计算方法总体选主元素消去法求线性方程组的解
- 求解线性方程组之Gauss-Jordan消去法求矩阵的逆
- Gauss-Jordan消去法中完全选主元法求解线性方程组
- 列主元消去法求解线性方程组(C++实现)
- Gauss消去法求线性方程组
- 计算方法Gauss-Jordan消去法求线性方程组的解
- 高斯消去法_解线性方程组的直接解法
- 高斯列主元消去法_解线性方程组的直接解法
- 解线性方程组的直接方法——高斯消去和LU消去法
- 小议手机软件平台开发 [转]
- Beyond Programmer : To Be a Software Engineer
- Debian APT HOWTO
- APT and Dpkg 快速参考表
- 学习得提上来了
- 行主元素消去法求解线性方程组的Pascal代码
- “弱肉强食”的中国让工人命陷“血汗工厂”
- 浅谈软件项目风险管理
- 补记:引入NullPtr处理空指针
- 穷人与富人的区别(转载)
- 华南理工大学
- 应届生如何迎接求职大战?
- Programming Windows Batch Script
- 如何准备OCP考试(转载)