- 1、本文档共9页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
实用标准文案
精彩文档
2008-2009年(1)福建农林大学机电工程学院研究生《数值分析》课程试卷
姓名:郑金凤 专业年级:08级机械设计及理论 学号: 1081302 成绩:
注:以下试题编程语言任选。要求上机调试通过,提供原程序清单、计算结果。
分别用列主元法和Gauss-Seidel迭代法(要求)求解方程组。
(1)列主元法
#includestdio.h
#includemath.h
Gaussdiedai(n,a,x)
int n;
double *a,*x;
{
int i,j,k,r;
double m;
for(k=0;kn-1;k++)
{
r=k;
m=fabs(a[k*(n+1)+k]);
for(i=k+1;in;i++)
if(fabs(a[i*(n+1)+k])m)
{
r=i;
m=fabs(a[i*(n+1)+k]);
}
if(rk)
for(j=k;jn+1;j++)
{
m=a[k*(n+1)+j];
a[k*(n+1)+j]=a[r*(n+1)+j];
a[r*(n+1)+j]=m;
}
for(i=k+1;in;i++)
{
m=a[i*(n+1)+k]/a[k*(n+1)+k];
for(j=k+1;jn+1;j++)
a[i*(n+1)+j]-=m*a[k*(n+1)+j];
}
}
x[n-1]=a[(n-1)*(n+1)+n]/a[(n-1)*(n+1)+(n-1)];
for(i=n-2;i=0;i--)
{
m=a[i*(n+1)+n];
for(j=i+1;jn;j++)
m-=a[i*(n+1)+j]*x[j];
x[i]=m/a[i*(n+1)+i];
}
}
main()
{
double a[3][4]={{10,-2,-1,3},{-2,10,-3,15}, {-1,-2,5,10}},x[3];
int i;
Gaussdiedai(3,a,x);
printf(x1=%f\n,x[0]);
printf(x2=%f\n,x[1]);
printf(x3=%f\n,x[2]);
}
(2)Gauss-Seidel迭代法
#includestdio.h
#includemath.h
#includemalloc.h
GaussSeidel(n,a,b,x)
int n;
double *a,*b,*x;
{
int i,j;
double t,u,m=0,eps;
while(1)
{
eps=0;
for(i=0;in;i++)
{
t=x[i];
for(j=0;jn;j++)
if(j!=i)
m+=a[i*n+j]*x[j];
x[i]=(b[i]-m)/a[i*n+i];
m=0;
u=x[i];
if(fabs(u-t)eps)
eps=fabs(u-t);
}
if(eps1e-4) return 1;
}
}
main()
{
int i;
double a[3][3]={{10,-2,-1},{-2,10,-3},{-1,-2,5}},b[3]={3,15,10},x[3]={0,0,0};
GaussSeidel(3,a,b,x);
printf(%s\n,解得);
printf(x1=%f\n,x[0]);
printf(x2=%f\n,x[1]);
printf(x3=%f\n,x[2]);
}
用简单迭代法求解方程,要求
#include math.h
#include stdio.h
main()
{
double x1=0.0,x0
您可能关注的文档
- 阀盖机械制造实用工艺课程设计.doc
- 法规地识别及其合规性评价与衡量表.doc
- 法国乔治普罗迪地三十六种戏剧模式.doc
- 法律法规符合性评价与衡量报告材料(1).doc
- 法律法规符合性评价与衡量报告材料1.doc
- 法律法规和其他地要求获取更新及合规性评价与衡量须知(HNHS╱MI03).doc
- 法律逻辑学第六章模态命的题目.doc
- 法学概论案例分析报告.doc
- 翻译数值分析报告汽车盘式制动器尖叫.doc
- 翻转课堂教学模式.docx
- 广东省河源市高职单招2022-2023学年医学综合真题及答案.pdf
- 建筑制图及识图试题含答案.pdf
- 2024年深圳市高三年级第二次调研(二模) 语文试卷.pdf
- 2023届江苏省常熟市第一中学中考英语最后一模试卷(含解析).pdf
- 小升初|小学语文古诗填空100题(含答案),背过他,用得着!.pdf
- 2022-2023学年浙江省杭州市萧山区人教版三年级下册期末学科素养评价数学试卷.pdf
- 2022-2023学年黑龙江省绥化市统招专升本教育理论月考卷(含答案).pdf
- 2023年山西省大同市新荣区小升初数学试卷(含答案).pdf
- 2024年初一语文下册的教学计划范本(3篇).pdf
- 2022-2023学年四川省宜宾市叙州区人教版六年级上册期末学业监测数学试卷1625.pdf
文档评论(0)