1.1全选主元高斯消去法 一、能 用全选主元高斯(Gauss)消去法求解线性代数方程组AX=B。 二、方法议明 高斯带去法分两步进行。 第一步消去过程 在这一过程中，为了保证数值计算的稳定性，本子程序采用了全速主元， 对于=1,2，…一1，作以下三步 ()全港主元，即从系数矩阵的第k行，第是列开始的右下子阵中选取绝对值最大的 元素，并将它交换到主元素的位置上。 《2)日一化.即 ,/n→a,=克十1，m,酒 b/au-h (3)消去.即 ,-a6→4，J=k+1,-n 第二步时代过程 a blu-r 〔2) -2ig-121 三、子程序通句 SUBROUTINE AGAUS(A.B.N,X.L.JS) 巴、形参说明 A一—双箱发实型二维数组，体积为NXN,输入鑫数。存放方程组的系数矩阵，返回 时将被破坏。 B—双度实型一数组长度为,输入参数。存放方程组右着向量，这回时将 N一整理变金，输入鸯数。存流方程组的阶数」 &一双精度实型一维数组，长度为N,物出参数.返回方程组的解向. L一盛型变量，输出参数。若返回L=0,说明方程组的系数矩阵奇异，求解失废：若 L≠0，说明正常这回。 1