QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 786|回复: 0
打印 上一主题 下一主题

重要的算法C语言实现源代码7

[复制链接]
字体大小: 正常 放大

398

主题

13

听众

1347

积分

  • TA的每日心情
    慵懒
    2015-12-12 14:33
  • 签到天数: 81 天

    [LV.6]常住居民II

    跳转到指定楼层
    1#
    发表于 2015-8-28 16:46 |只看该作者 |倒序浏览
    |招呼Ta 关注Ta
    7.雅克比迭代,求解方程近似解

    C/C++ code
    #include <stdio.h>
    #include <math.h>
    #define N 20
    #define MAX 100
    #define e 0.00001
    int main()
    { int n;
    int i,j,k;
    float t;
    float a[N][N],b[N][N],c[N],g[N],x[N],h[N];
    printf("\nInput dim of n:");   scanf("%d",&n);
    if(n>N)
    { printf("Faild! Check if 0<n<N!\n"); getch(); return 1; }
    if(n<=0)
    {printf("Faild! Check if 0<n<N!\n"); getch(); return 1;}
    printf("Input a[i,j],i,j=0…%d:\n",n-1);
    for(i=0;i<n;i++)
       for(j=0;j<n;j++)
       scanf("%f",&a[j]);
    printf("Input c,i=0…%d:\n",n-1);
    for(i=0;i<n;i++)
    scanf("%f",&c);
    for(i=0;i<n;i++)
       for(j=0;j<n;j++)
       { b[j]=-a[j]/a;   g=c/a; }
      for(i=0;i<MAX;i++)
       { for(j=0;j<n;j++)
         h[j]=g[j];
         { for(k=0;k<n;k++)
           { if(j==k) continue; h[j]+=b[j][k]*x[k]; }
         }
         t=0;
         for(j=0;j<n;j++)
         if(t<fabs(h[j]-x[j])) t=fabs(h[j]-x[j]);
         for(j=0;j<n;j++)
         x[j]=h[j];
         if(t<e)
         { printf("x_i=\n");
           for(i=0;i<n;i++)     
    printf("x[%d]=%f\n",i,x);
           getch();
           return 0;
         }
         printf("after %d repeat , return\n",MAX);
         getch();
         return 1;
       }
       getch();
    }



    关于本帖内容欢迎大家踊跃讨论,与在下交流!

    zan
    转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-4-13 23:20 , Processed in 0.393784 second(s), 54 queries .

    回顶部