高斯消去法和列主元高斯消去法解线性方程组的程序(C语言)

/Gauss消去法解线性方程组/参考教材计算方法教程第二版，西安交通大学出版社#includeint main(void)float A77=3,-5,6,4,-2,-3,8,1,1,-9,15,1,-9 ,2,2,-1,7,5,-1,6,11,-1,1,3,2,7,-1,-2,4,3,1,-7,2,1,1,2,9,-8,11,-1,-4,-1,7,2,-1, 2,7,-1,9;float b7=11,2,29,9,5,8,25;float x7=0;float Aik,S;int i,j,k;int size=7;printf(An);for(i=0;isize;i+)for(j=0;jsize;j+)printf(%f ,Aij);printf(n);printf(bn);for(i=0;isize;i+)printf(%f ,bi);printf(nn);/消去过程for(k=0;ksize-1;k+)if(!Akk)return -1;for(i=k+1;isize;i+)Aik=Aik/Akk;for(j=k;jsize;j+)Aij=Aij-Aik*Akj;bi=bi-Aik*bk;/消去的结果printf(An);for(i=0;isize;i+)for(j=0;jsize;j+)printf(%f ,Aij);printf(n);printf(bn);for(i=0;i=0;k-)S=bk;for(j=k+1;jsize;j+)S=S-Akj*xj;xk=S/Akk;/solutionprintf(The solution x=n);for(i=0;isize;i+)printf(%f ,xi);return 0;/列主元Gauss消去法解线性方程组/参考教材计算方法教程第二版，西安交通大学出版社#include#includeint main(void)float A77=3,-5,6,4,-2,-3,8,1,1,-9,15,1,-9 ,2,2,-1,7,5,-1,6,11,-1,1,3,2,7,-1,-2,4,3,1,-7,2,1,1,2,9,-8,11,-1,-4,-1,7,2,-1, 2,7,-1,9;float b7=11,2,29,9,5,8,25;float x7=0;float Aik,S,temp;int i,j,k;float max;/列主元的绝对值int col;/列主元所在的行int size=7;printf(An);for(i=0;isize;i+)for(j=0;jsize;j+)printf(%f ,Aij);printf(n);printf(bn);for(i=0;isize;i+)printf(%f ,bi);printf(nn);/-消去过程-for(k=0;ksize-1;k+)max=fabs(Akk);col=k;/查找最大元素所在的行for(i=k;isize;i+)if(maxfabs(Aik)max=fabs(Aik);col=i;printf(col:%dn,col);for(j=k;jsize;j+)temp=Acolj;Acolj=Akj;Akj=temp;temp=bcol;bcol=bk;bk=temp;if(!Akk)return -1;for(i=k+1;isize;i+)Aik=Aik/Akk;for(j=k;jsize;j+)Aij=Aij-Aik*Akj;bi=bi-Aik*bk;/消去的结果printf(An);for(i=0;isize;i+)for(j=0;jsize;j+)printf(%f ,Aij);printf(n);printf(bn);for(i=0;i=0;k-)S=bk;for(j=k+1;jsize;j+)S=S-Akj*xj;