《Gauss列主元消去法实验报告》由会员分享,可在线阅读,更多相关《Gauss列主元消去法实验报告(3页珍藏版)》请在金锄头文库上搜索。
1、#include#include#includeintmain()floatA33=0.001/2.000,3.000,-1.000,3.712,4.623,-2.000,1.072,5.643;floatb3=1.000z2.000,3.000;floatx3=0;floatAik,S,temp;inti,j,k;floatmax;/列主元的绝对值intcol;/列主元所在的行intsize=3;prWAn“);for(i=0;isize;i+)for(j=0;jsize;j+)printf(%fn,Aij);printf(n);printf(bn);for(i=0;ik=k);co-馴前洲
2、sfflshfo7kHASjze=+)宀if(max4abs(二g)宀maxufabs(An=k)jCO-Aprintf(=corT%dvrno-)jfokjAsjzQj+)ffmpHcosjAKOSIIASSAgulltemp;rempHbco-Ubno-nbkjbkurempFAsg)erum止for(Hk+l=Asizej+)宀kui=k=k=fo?kjAsizejj+)宀shsa天*asbi=bi-Aik*bk;pintf(“An“);for(i=0;isize;i+)forQ=0;jsize;j+)prWW);printf(bn);for(i=0;i=0;k-)S=bk;forQ=k+l;jsize;j+)S=S-Akj*xj;xk=S/Akk;/solutionprintf(Thesolution刈=n);for(i=0;isize;i+)return0;