数值分析与实验.doc_第1页
数值分析与实验.doc_第2页
数值分析与实验.doc_第3页
数值分析与实验.doc_第4页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

文章来源 毕业论文网 数值分析与实验文章来源 毕业论文网 论文关键词: 列主元高斯消去法  雅可比法  高斯赛德尔迭代法  幂法论文摘要:本文通过实例对线性方程组数值解法和矩阵的特征值及特向量的计算进行了探讨。在对线性方程组数值解法的讨论下用到了列主元高斯消去法、雅可比法和高斯赛德尔迭代法。正是高斯消去法在消元时存在一些必须的条件,才启发我们通过列主元高斯消去法来对线性方程组数值解法作进一步的研究,达到了很好的的效果。同时用雅可比法和高斯赛德尔迭代法对相类似的问题的探讨来比较它们的优劣,使我们在分析问题时能更好的把握方法。在求矩阵按模最大的特征值及对应特征向量时,本文用到了幂法,可以使现实中很多复杂的计算简单。第一章:线性方程组数值解法实验目的熟悉求解线性方程组的有关理论和方法 ;会编制列主元消去法,雅可比及高斯-赛德尔迭代法的程序 ;通过实际计算,进一步了解各种方法的优缺点,选择合适的数值方法。实验内容列主元高斯消去法求解线形方程组;雅可比法和高斯赛德尔迭代法解方程组;1.1  题目:列主元高斯消去法求解线形方程组 方程组为: 1.1.1  列主元高斯消去法算法 将方程用增广矩阵 表示1)            消元过程对k=1,2,.,n-1 1 选主元,找 使得 2 如果 则矩阵a奇异,程序结束;否则执行33 如果 则交换第k行与第 行对应元素位置, j=k,n+14 消元,对i=k+1,n计算 对j=k+1,n+1计算 2)  回代过程1 若 则矩阵a奇异,程序结束;否则执行22  ;对i=n-1,2,1计算 1.1.2   程 序#include <stdio.h>#include <math.h>void colpivot(float *c,int n,float x)  int i,j,t,k;  float p;  for(i=0;i<=n-2;i+)k=i;for(j=i+1;j<=n-1;j+)if(fabs(*(c+j*(n+1)+i)>(fabs(*(c+k*(n+1)+i)k=j;  if(k!=i)  for(j=i;j<=n;j+)       p=*(c+i*(n+1)+j);    *(c+i*(n+1)+j)=*(c+k*(n+1)+j);    *(c+k*(n+1)+j)=p;   for(j=i+1;j<=n-1;j+)  p=(*(c+j*(n+1)+i)/(*(c+i*(n+1)+i);for(t=i;t<=n;t+)*(c+j*(n+1)+t)-=p*(*(c+i*(n+1)+t);  for(i=n-1;i>=0;i-)    for(j=n-1;j>=i+1;j-)    (*(c+i*(n+1)+n)-=xj*(*(c+i*(n+1)+j);  xi=*(c+i*(n+1)+n)/(*(c+i*(n+1)+i);  void main() void colpivot(float*,int,float); int i; float x4; float c45=1,-1,2,-1,-8,2,-2,3,-3,-20,1,1,1,0,-2,1,-1,4,3,4,;colpivot(c0,4,x);for(i=0;i<=3;i+)printf(“x%d=%fn”,i,xi);1.1.3  输出结果1.1.4结果分析从

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论