下载此文档

雅克比迭代法求解线性方程组的程序.doc


文档分类:高等教育 | 页数:约2页 举报非法文档有奖
1/2
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/2 下载此文档
文档列表 文档介绍
雅克比迭代法求解线性方程组的程序:
#include ""
#include ""
#include ""
#define N 50
#define eps 1e-8
void main()

double x[3]={0,0,0},y[3],a[3][3]={5,2,1,2,8,-3,1,-3,-6},b[3]={8,21,1},s1,s2;
int i,k=0,j;
   do
 {
      s2=0; 
 k=k+1;
ﻩ for(i=0;i<3;i++)
 {s1=0;
ﻩ for(j=0;j<3;j++)
ﻩﻩ {
ﻩﻩﻩ if(i==j)continue;
ﻩ     s1+=a[i][j]*x[j];
ﻩ  }
y[i]=(b[i]-s1)/a[i][i];
ﻩﻩ s2+=fabs(x[i]-y[i]);
ﻩ }
    if(s2<eps)printf("迭代次数K=%d\n",k);
ﻩ if(k>N){printf("不收敛!");exit();}

   for(i=0;i<3;i++)
ﻩ x[i]=y[i];
ﻩ }while(s2>eps);
ﻩ for(i=0;i<3;i++)
ﻩ printf("x[%d]=%lf\n",i,x[i]);
ﻩ }

雅克比迭代法求解线性方程组的程序 来自淘豆网www.taodocs.com转载请标明出处.

非法内容举报中心
文档信息
  • 页数2
  • 收藏数0 收藏
  • 顶次数0
  • 上传人薇薇安
  • 文件大小21 KB
  • 时间2021-09-19