G-S迭代法解线性方程组2页.doc

/5-1 G-S迭代法解线性方程组【源程序】： double temp; /判断是否主对角占优 for(i=0;in;i+) temp=0; for(j=0;jn;j+)if(j!=i) temp+=fabs(Aij); if(Aiitemp) exit(0);coutendl输入x的初始向量：;for(i=0;iX0i;while(1) /使用G-S算法求解方程组 for(i=0;in;i+) X1i=X0i; for(i=0;in;i+) double temp1=0,temp2=0; for(j=0;ji;j+) temp1+=Aij*X0j; for(j=i+1;jn;j+) temp2+=Aij*X1j; X0i=(