- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
数值计算(实验一)曹龙腾
重 庆 大 学
学 生 实 验 报 告
实验课程名称 数值计算
开课实验室 DS1502
学院 软件学院 年级 2009 专业班 数媒二班
学 生 姓 名 曹龙腾 学 号
开课时间 2010 至 2011 学年第 一 学期
总 成 绩 教师签名
软件学院制
开课学院、实验室: DS1502 实验时间 : 2010 年 12 月 25日
课程
名称 数值计算 实验项目
名 称 线性方程组数值解法 实验项目类型 验证 演示 综合 设计 其他 指导
教师 谭宏 成 绩 √ 一、实验目的
1 .掌握方程组的解法,迭代法及其收敛性。
2 .能熟练掌握高斯消去法,列主元高斯消去法,三角分解法。
3 .掌握雅可比迭代法,高斯 = 赛德尔迭代求线性方程组的解。
二、实验内容
1 .求解方程组:
( 1 ) 准确解为:
( 2 )
2 .编写列主元高斯消去法程序。
3 .调试运行列主元高斯消去法程序。
4 .并用程序计算出上面两个方程组的解,分析运行结果。
三、实验原理
列主元高斯消去法程序
#includeiostream
#includevector
#includealgorithm
using namespace std;
int main()
{
//线性方程组的阶数
int N=0;
cout请输入线性方程组的阶数:\n;
cinN;
//构造增广矩阵
vectorvectorfloat expand_matrix;
//输入线性方程组的相关系数
cout请逐个输入线性方程组的相关系数:\n;
vectorfloat tempvec;
float tempval;
for(int i=0;iN;i++)
{
for(int j=0;j=N;j++)
{
cintempval;
tempvec.push_back(tempval);
}
expand_matrix.push_back(tempvec);
tempvec.clear();
}
//逐行消元
for(int i=0;iN-1;++i)
{
//找出第i列中绝对值最大的元素
float max_value = expand_matrix[i][i];
int volume_nbr = i;
for(int j=i+1;jN;++j)
{
//用平方来代替绝对值的比较
if((max_value*max_value)(expand_matrix[j][i]*expand_matrix[j][i]))
{
max_value = expand_matrix[j][i];
volume_nbr = j;
}
}
if(max_value==0)
{
cerr该方程组无确定解!endl;
return 1;
}
if(volume_nbr != i)
{
//交换两行
tempvec = expand_matrix[volume_nbr];
expand_matrix[volume_nbr] = expand_matrix[i];
expand_matrix[i] = tempvec;
}
//消元
for(int j=i+1;jN;++j)
{
float divide_nbr = expand_matrix[j][i]/expand_matrix[i][i];
for(int k=i;kN+1;++k)
expand_matrix[j][k] = expand_matrix[j][k] - divide_nbr*expand_matrix[i][k];
}
}
//回代,求解
vectorfloat resultvec;
float result;
for(int i=N-1;i=0;--i)
{
float sub_value =0;
for(int k=i+1;kN;++k)
sub_value = sub_value + expand_matrix[i][k]*resultvec[N-k-1];
您可能关注的文档
最近下载
- 电路电流练习.doc VIP
- 安全生产标准重大危险源管理人员培训记录.docx VIP
- 商业写字楼智能化初步设计在2025年的智能化物业管理系统评估报告.docx
- DB32_T 4342-2022工业企业全过程环境管理指南.docx VIP
- 传感器数字式传感器详解.ppt VIP
- 马工程外国文学史第一章古代文学.pptx VIP
- 低空经济行业市场前景及投资研究报告:Joby,Archer,国内eVTOL产业.pdf VIP
- 《数据可视化技术》课件.ppt VIP
- Unit 1 Helping at home 第5课时 Part B Let’s learn&Listen and chant(教学设计)英语人教PEP版四年级上册.pdf
- 《普通遗传学》第9章近亲繁殖和杂种优势.ppt
文档评论(0)