计算方法实验代码及实验结果截图详解.docVIP

下载本文档

14
0
约5.92千字
约 13页
2017-05-26 发布于湖北
举报
版权申诉

计算方法实验代码及实验结果截图详解.doc

1、本文档共13页，可阅读全部内容。
2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

计算方法实验代码及实验结果截图详解

实验一：迭代法一 #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];