选主元素高斯法.pptVIP

选主元素高斯法 ° Main( for(k=1;k=n-1;k++) i p=k; q=k Irql: for(I=k; K=n; I++) for(j=;j=n: j++) f(fabs(e)fabs(allin) e=a[]订 p=;q=]; t=mkl m[k]=m[ql: q for(j=1j=n+1:j++) (t=a[kI[i] a[k]g]=alpl a[p]订]=t;} for(I=1;I=n;++) t=allal alla=allik allk=t for(I=k+l; K=n; I++) f(ak][k]!=0) [r=a[l[k]a[k]lk forge=; j=n+1; j++) alll=a[l[[] for (=1; K=n: I++) if(!=k)(a[k]q!=0) r=alqa[kllql for(j=l; j=n+:;j++) a[]=a[[]-ralkIlil mk=q: