全主元高斯消去法.doc

《全主元高斯消去法.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、#include#includeusingnamespacestd;intmain(){intn,i,j,l,k,t,s,k1,k2;floatp;cout<<"请输入方程个数n"<>n;floatA[n][n+1],X[n],Y[n];cout<<"将方程组用增广矩阵A表示，请按行依次输入矩阵A"<>A[i][j];for(i=0;i

2、=i;k2=i;for(l=i;lfabs(A[k1][k2]))k1=l,k2=j;}//if(A[k][i]==0)break;if(k1!=i)for(j=0;j<=n;j++){p=A[i][j];A[i][j]=A[k1][j];A[k1][j]=p;}if(k2!=i){p=Y[i];Y[i]=Y[k2];Y[k2]=p;for(j=0;j

3、;t=0;i--){for(j=n-1;j>=i+1;j--){A[i][n]=A[i][n]-A[i][j]*X[j];}X[j]=A[i][n]/A[i][i];}cout<<"方程组的解是："<