二元一次方程高斯消元法计算函数

最新推荐文章于 2025-03-02 00:16:57 发布

siow

最新推荐文章于 2025-03-02 00:16:57 发布

阅读量2.8k

点赞数

CC 4.0 BY-SA版权

分类专栏：软件技术文章标签： integer c function

本文链接：https://blog.youkuaiyun.com/siow/article/details/1474571

软件技术专栏收录该内容

40 篇文章

订阅专栏

本文介绍了一个使用高斯消元法求解二元一次方程组的函数实现。该函数通过矩阵操作逐步简化方程组，最终求得未知数的精确解。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

  TRS=array[1..2] of Real;

{二元一次方程高斯消元法计算函数}
function X1Y1_2(const ia1,ib1,ic1,ia2,ib2,ic2:Real):TRS;
const //为数组的行数与列数
  Rows = 2;
  Cols = 3;
var
  C: array[1..Rows, 1..Cols] of Real; //系数及常数项
  R1, R2: Real;
  m,n,i: Integer;
begin
  C[1,1]:=ia1;
  C[1,2]:=ib1;
  C[1,3]:=ic1;
  C[2,1]:=ia2;
  C[2,2]:=ib2;
  C[2,3]:=ic2;

  //高斯消元
  for n := 1 to Rows do
  begin
    R1 := C[n,n];
    for m := 1 to Cols do C[n,m] := C[n,m] / R1; //使每个方程对角线上的系数为1
    for i := 1 to Rows do
      if i <> n then //依次对其它方程的第n项进行消元
      begin
        R2 := C[i,n];
        for m := 1 to Cols do C[i,m] := C[i,m] - C[n,m]*R2;
      end;
  end;
  Result[1]:=C[1,3];
  Result[2]:=C[2,3];
end;