| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 510 人关注过本帖
标题:求助!!!雅克比迭代法求线性方程组,怎么实现不了啊??????究竟是哪 ...
只看楼主 加入收藏
那又怎样
Rank: 2
等 级:论坛游民
帖 子:22
专家分:58
注 册:2011-4-11
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:3 
求助!!!雅克比迭代法求线性方程组,怎么实现不了啊??????究竟是哪里出错了????
#include <stdio.h>
#include <math.h>
#include <malloc.h>

void Jacobidiedai(int n, double *a, double *b,double *x)
{
    int i,j;
    double *x0,m=0,eps=0;
    x0= (double *) malloc(n*sizeof(double));
    for(i=0;i<n;i++)
        x0[i]=x[i];
    while(1)
    {
        for(i=0;i<n;i++)
        {
            for(j=0;j<n;j++)
                m+=a[i*n+j]*x0[j];
            m-=a[i*n+i]*x0[i];
            x[i]=(b[i]-m)/a[i*n+i];
            m=0;
        }
        for(i=0;i<n;i++)
        {
            if(eps<fabs(x[i]-x0[i]))
                eps=fabs(x[i]-x0[i]);
        }
        if(eps<1e-3)
            return;
        for(i=0;i<n;i++)
            x0[i]=x[i];
    }
    free(x0);
}

void main()
{
    int i,j,n;
    double *a;
    double *b;
    double *x;
   
    printf("please enter n\n");
    scanf("%d",&n);
    a = (double *)malloc(sizeof(double)*n*n);
    b = (double *)malloc(sizeof(double)*n);
    x = (double *)malloc(sizeof(double)*n);
    memset(x,0,n);
    printf("please enter a[i][j]\n");
    for (i=0;i<n*n;i++) scanf("%f",&a[i]);
    printf("please enter b[j]\n");
    for (j=0;j<n;j++) scanf("%f",&b[j]);
    Jacobidiedai(n,a,b,x);
    for(i=0;i<n;i++)
        printf("x[%d]=%f\n",i,x[i]);
}
搜索更多相关主题的帖子: include double 
2011-04-14 16:40
qq1023569223
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
来 自:湖南科技大学
等 级:贵宾
威 望:26
帖 子:2753
专家分:13404
注 册:2010-12-22
收藏
得分:14 
这个公式早忘了!

   唯实惟新 至诚致志
2011-04-14 17:33
那又怎样
Rank: 2
等 级:论坛游民
帖 子:22
专家分:58
注 册:2011-4-11
收藏
得分:0 
回复 2楼 qq1023569223
。。。
2011-04-14 22:02
那又怎样
Rank: 2
等 级:论坛游民
帖 子:22
专家分:58
注 册:2011-4-11
收藏
得分:0 
。。。
2011-04-15 10:28
快速回复:求助!!!雅克比迭代法求线性方程组,怎么实现不了啊??????究竟 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023032 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved