雅可比迭代法.docVIP

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

雅可比迭代法

班级:计算062姓名:王保翔3060811028

目的意义:设方程组Ax=b的系数矩阵A非奇异而且,将A分裂为A=D+L+U,可以使计算简便。其中

思想:A=D+L+U,其中

将方程组乘以,得到等价的方程组,i=1,2,…n

算法:

Step1:给定一组x,即初值。

Step2:用for循环计算:

x[k+1]=(b[i]-)/a[k][k].

Step3:当abs(x[k+1]-x[k])eps时停止。

程序:

#includestdio.h

#definep0.1

#defineN5

voidmain()

{

inti,j,k,s,n;

doublex[N],a[N][N],b[N],q[N],c[N],d[N];

doublet,u;

printf(Inputn:);

scanf(%d,n);

for(i=0;i=n;i++)

{

printf(Inputx[%d],b[%d]:,i,i);

scanf(%lf,%lf,x[i],b[i]);

}

for(i=0;i=n;i++)

for(j=0;j=n;j++)

{

printf(Inputa[%d][%d]:,i,j);

scanf(%lf,a[i][j]);

}

for(i=0;i=n;i++)

for(j=0;j=n;j++)

printf(a=%lf\n,a[i][j]);

for(k=0;;k++)

{

t=0;

for(s=0;s=n;s++)

d[s]=x[s];

for(i=0;i=n;i++)

{

u=0;

d[i]=x[i];

for(j=0;j=n;j++)

{

if(j!=i)

u=u+a[i][j]*d[j];

elsecontinue;

}

printf(u=%lf\n,u);

x[i]=(b[i]-u)/a[i][i];

q[i]=x[i]-d[i];

printf(x[%d]=%lf\n,i,x[i]);

}

for(i=0;i=n;i++)

{

if(q[i]=0)

c[i]=q[i];

elsec[i]=-q[i];

t=t+c[i];

}

if(tp)

break;

}

printf(k=%d\n,k);

for(i=0;i=n;i++)

printf(x[%d]=%lf\n,i,x[i]);

}算例及运算结果:

分析:输入初始向量和矩阵为数经过k次迭代后输出x的值,结果正确可靠。

参考文献

[1]刑志栋,矩阵数值分析,陕西:陕西科学技术出版社,2005。

[2]谭浩强,C语言程序设计,北京:清华大学出版社,2005。

[3]翁惠玉,c语言程序设计思想与方法,北京:人民邮电出版社,2008

您可能关注的文档

文档评论(0)

ranfand + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档