追赶法(经典计算)_第1页
追赶法(经典计算)_第2页
追赶法(经典计算)_第3页
追赶法(经典计算)_第4页
追赶法(经典计算)_第5页
已阅读5页,还剩1页未读 继续免费阅读

下载本文档

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

文档简介

一、算法理论在一些实际问题中,例如解常微分方程边值问题,解热传导方程以及船体数学放样中建立三次样条函数等,都会要求解系数矩阵为对角占优的三对角线方程组,简记为.求解等价于解两个三角形方程组:;.从而得到解三对角线方程组的追赶法公式:(1) 计算的递推公式(2) 解(3) 解我们将计算系数将计算方程组的解二、 算法框图三、 算法程序#include #include #include#define N 20double aN, bN, cN-1, fN, rN;int n;void LUDecompose();/ LU分解void backSubs();/ 回代void main()printf(请输入方程的维数n);scanf(%d,&n);getchar();if(nN|n=0)printf(由于该维数过于犀利, 导致程序退出!);return;printf(n输入下三角元素n);printf(输入%d个a值: , n-1);for (int i=1; in; i+)scanf(%lf, &ai);getchar(); printf(n输入主对角线元素n);printf(输入%d个b值: , n);for (i=0; in; i+)scanf(%lf, &bi);getchar(); printf(n输入上三角元素n);printf(输入%d个c值: , n-1);for (i=0; in-1; i+)scanf(%lf, &ci);getchar();printf(n输入%d个方程组右端项: n, n);for (i=0; in; i+) scanf(%lf, &fi);getchar();LUDecompose();backSubs();printf(n线性方程组的解为: n);for (i=0; in; i+)printf(x%d=%lfn, i+1, fi);void LUDecompose()/被b取代, 被c取代, 以节省存储空间c0=c0/b0;for(int i=1;in-1;i+)ri=ai;bi=bi-ri*ci-1;ci=ci/bi;ri=ai;bi=bi-ri*ci-1;void backSubs()/ y被f取代, x也被f取代, 以节省存储空间f0=f0/b0;for(int i=1; i=0;i-)fi=fi-ci*fi+1;四、 算法实现例1用该程序计算三对角线方程组, 计算其方程组的解。解:运行程序(1) 显示出 请输入方程组的维数:n=5.,回车。(2) 显示出 请输入下三角元素 输入4个a值:-1 -1 -1 -1,回车。(3) 显示出 请输入主对角线元素 输入5个b值:2 2 2 2 2 ,回车。(4) 显示出 请输入上三角元素 输入4个c值:-1 -1 -1 -1,回车。(5) 显示出 请输入5个方程组右端顶:1 0 0 0 0,回车。其解为 例2用该程序计算三对角线方程组, 计算其方程组的解。解:运行程序(1)显示出 请输入方程组的维数:n=5.,回车。(2)显示出 请输入下三角元素 输入4个a值:1 1 1 1,回车。(3)显示出 请输入主对角线元素 输入5个b值:3 3 3 3 3 ,回车

温馨提示

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

评论

0/150

提交评论