1 / 5
文档名称:

数值分析实验报告(五).doc

格式:doc   大小:62KB   页数:5页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

数值分析实验报告(五).doc

上传人:ttteee8 2020/8/13 文件大小:62 KB

下载得到文件列表

数值分析实验报告(五).doc

文档介绍

文档介绍:数值分析实验报告(五)实验名称:解方穆纽的迭代法实验目的:运用雅可比法、高斯赛徳尔法求方程组的根分别用雅可比法、-11__8_210-:(1)雅可比法:#include<>#include<>#definem100#definen3#(floata[n][n],floatx[n],floatb[n]){boolisTrue;inti,j,k=O;floaty[n],t,d;for(i=0;i<n;i++){x[i]=;1while(l){d=;k++;for(i=0;i<n;i++)floats=;for(j=0;j<n;j++)if(j==i)continue;elses=s+a[i]Lj]*x[j];y[i]=(b[i]-s)/a[i][i];}t=fabs(x[i]-y[i]);if(d<t)for(intp=();pvn;p++){x[p]=y[p];}if(d<eps){isTrue=true;break;}if(k>m){isTrue=false;break;returnisTrue;}voidmain(){boolX;floata[n][n],x[n],b[n];cout«"输入系数矩阵a"«endl;for(inti=O;i<n;i++){for(intj=O;j<n;j++){cin»a[i][j];}cout«endl;}cout«M输入方程组右端系数矩阵bH«endl;for(i=0;i<n;i++)X=YKB(a,x,b);if(X==true){coutvv”用雅克比迭代法迭代的结果n«endl;for(inti=0;ivn;i++)cout«x[i]«endl;}elsecoutvv”该方稈听过雅克比迭代法迭代无解”vvendl;(2)高斯赛徳尔法:#include<>#include<>#definem100#definen3#defineepsO.()O(X)OIfloatGSS(floata[n][n],floatxfn],floatb[n|){boolisTrue;floattemp,t,d;inti,j,k=l;for(i=0;i<n;i++){x[i]=;}vvhile(l){d=0;k++;for(i=0;i<n;i++){floats=;tenip=x[i];for(j=0;j<n;j++){if(i==j)continue;elses=s+a[i][j]*xfj];x[i]=(b[i]-s)/a[i][i];t=fabs(x[ij-temp);if(d<t)d=t;}if(d<eps){isTrue=true;break;}if(k>m){isTrue=false;break;}}returnisTrue;}voidmain(){boolX;floa