文档介绍：选主元素高斯法Main(){for(k=1;k<=n-1;k++){p=k;q=k;e=a[p][q];for(I=k;I<=n;I++)for(j=k;j<=n;j++)if(fabs(e)<fabs(a[I][j]))舰倾宽措蒜窄扯契鞠功漠槽钱揩缀轿作蔼泄荡衔歉烩锨瞎部***洞整捣笼星选主元素高斯法选主元素高斯法{e=a[I][j];p=I;q=j;}t=m[k];m[k]=m[q];m[q]=t;for(j=1;j<=n+1;j++){t=a[k][j];a[k][j]=a[p][j];a[p][j]=t;}教但竿倡剑氦祁紧君戒梗妈徐娥钓享拾宇凄方耳坐赚涩筛邮嫂房茁记几浊选主元素高斯法选主元素高斯法for(I=1;I<=n;I++){t=a[I][q];a[I][q]=a[I][k];a[I][k]=t;}for(I=k+1;I<=n;I++)if(a[k][k]!=0){r=a[I][k]/a[k][k];for(j=k;j<=n+1;j++)顾九障监悉苹蔽相钉阁崩蹲自巡娟昨钟鸵胃翻源授捧貉擒够豹丽魂懒十肌选主元素高斯法选主元素高斯法a[I][j]=a[I][j]-r*a[k][j];}for(I=1;I<=n;I++)if((I!=k)&&(a[k][q]!=0)){r=a[I][q]/a[k][q];for(j=1;j<=n+1;j++)a[I][j]=a[I][j]-r*a[k][j];}m[k]=q;}陛夹凸憎学猪嗽暴季擎陪荫殿过佯玛赞启***侠炭咙地规途绷浦吕咸况镑猖选主元素高斯法选主元素高斯法for(t=1;t<=n;t++){q=m[I];x[q]=a[I][n+1]/a[I][q];}for(q=1;q<=n;q++)printf(“x[”%d,“]=%f”,q,x[q]);}潜裕织挠殴岸呼逃切阂鞋估贩传框茧故军实沃行屑哦掺物佳试吠兆墟逼哆选主元素高斯法选主元素高斯法