计算方法实验代码及实验结果截图选编.doc

下载文档 降价啦

2
0
约5.92千字
约 13页
2017-04-27 发布于湖北
举报
版权申诉
保障服务

计算方法实验代码及实验结果截图选编.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

计算方法实验代码及实验结果截图选编

实验一：迭代法一 #includestdio.h #include MATH.H #define x0 2 #define maxrept 1000; #define G(x) pow(x+1/2.0,1.0/3) void main(){ int i; double x_k=x0,x_k1=x0; printf( k xk\n); for (i=0;i10;i++) { printf( %d %g\n,i,x_k1); x_k1=G(x_k); x_k=x_k1; } printf(迭代10后的结果是：%g\n,x_k); } 实验一:迭代法二 #includestdio.h #include MATH.H #define x0 0 #define maxrept 1000; #define G(x) 2*x*x*x-1 void main(){ int i; double x_k=x0,x_k1=x0; printf( k xk\n); for (i=0;i10;i++) { printf( %d %g\n,i,x_k1); x_k1=G(x_k); x_k=x_k1; } printf(迭代10后的结果是：%g\n,x_k); } 实验一：牛顿法一 #includestdio.h #include MATH.H #define x0 0 #define MAXREPT 1000 #define EPS 0.5E-5 #define G(x) x-(x*x*x-x-1)/(3*x*x-1) void main() { int i; double x_k=x0,x_k1=x0; printf( k xk\n); for (i=0;iMAXREPT;i++) { printf( %d %g\n,i,x_k1); x_k1=G(x_k); if(fabs(x_k1-x_k)EPS) { printf(The root is x=%g,k=%d\n,x_k1,i); return; } x_k=x_k1; } } 实验一：牛顿法二 #includestdio.h #include MATH.H #define x0 1.5 #define MAXREPT 1000 #define EPS 0.5E-5 #define G(x) x-(x*x*x-x-1)/(3*x*x-1) void main() { int i; double x_k=x0,x_k1=x0; printf( k xk\n); for (i=0;iMAXREPT;i++) { printf( %d %g\n,i,x_k1); x_k1=G(x_k); if(fabs(x_k1-x_k)EPS) { printf(The root is x=%g,k=%d\n,x_k1,i); return; } x_k=x_k1; } } 实验二：Gauss消元法 #includestdio.h #includemath.h #define N 4 static double aa[N][N+1]={{1,-1,1,-4,2},{5,-4,3,12,4},{2,1,1,11,3},{2,-1,7,-1,0}}; int gauss(double a[][N+2],double x[]); void putout(double a[][N+2]); void main() { int i,j,det; double a[N+1][N+2],x[N+1]; for(i=1;i=N;i++) for(j=1;j=N+1;j++) a[i][j]=aa[i-1][j-1]; det=gauss(a,x); if (det!=0) for (i=1;i=N;i++)printf( x[%d]=%g,i,x[i]); } int gauss(double a[][N+2],double x[]) {int i,j,k,r; double c; putout(a); for (k=1;k=N-1;k++) {if(fabs(a[k][k])1e-17) {printf(\n pivot element is 0. fail! \n);return(0);} for(i=k+1;i=N;i++) {c=a[i][k]/a[k][k]; for(j=k;j=N+1;j++) {a[i][j]=a[i][j]-c*a[k][j];