QQ登录

只需要一步,快速开始

 注册地址  找回密码
12
返回列表 发新帖
楼主: god
打印 上一主题 下一主题

[讨论]高斯消元法的程序对比

[复制链接]
字体大小: 正常 放大
11#
无效楼层,该帖已经被删除
12#
无效楼层,该帖已经被删除
hduscimc        

1

主题

3

听众

35

积分

升级  31.58%

该用户从未签到

新人进步奖

#include<iostream>3 O( O4 R% O2 P* z( }4 s" h6 p
#include<cmath>
) ]0 a9 v0 V4 k/ a$ h) Zusing namespace std;
' ?9 z) g" D, Q) q' |int main()1 H+ z! ~5 b; k. k' y
{6 d3 f. Z4 K, e7 D/ W. @: \3 q* t* n
        int i;
* L9 |, Z) X) f4 W% i  n: E        float *x;6 |' ~7 f! Z& o3 X* |+ c0 J
        float c[3][4] ={0.101,2.304,3.555,1.183,% m6 n+ B! c; U3 y5 U4 `
                                        -1.347,3.712,4.623,2.137,' P0 u5 e8 V6 D/ h6 w  e. f
                                        -2.835,1.072,5.643,3.035};& H* W. E) c2 h& l; J% a
        float *ColPivot(float *,int);2 S% D6 J3 \0 ?3 U
        x=ColPivot(c[0],3);
2 ^* L( I5 t! X2 _% d' [9 d        for( i=0;i<=2;i++ )5 {3 K' Q9 [/ ]/ D+ p6 K3 q; G8 o
                cout<<"x("<<i<<")="<<x[i]<<endl;5 `( p1 _5 `5 S" r/ L9 |
}
9 p+ f( m. M( ]* l  _9 a7 }4 d7 o! ]! z' k/ B2 _
float *ColPivot( float *c,int n )7 T# C) Q& [7 M
{
4 P7 i- V+ g! o. G        int i,j,t,k;
* B* U! b. S0 ?        float *x,p;5 ]/ }2 q2 W; [. U
        x=new float[n*sizeof(float)];$ ^& R$ [$ m. ]9 |( H
        for( i=0;i<=n-2;i++), Y3 m2 l! o5 r- t, \# e
        {/ z8 _) y; H; w4 q7 A3 W8 p
                k=i;
* \8 c5 H, n' W9 F5 P* s. g+ g3 J5 D                for(j=i+1;j<=n-1;j++)2 T7 P/ ^4 v9 C
                        if(fabs(*(c+j*(n+1)+i))>(fabs(*(c+k*(n+1)+i))))
& i, {+ F8 L& g8 x: f/ w( V* {* U% N                                k=j;# ~- S( F3 P% \3 X
                        if(k!=i)7 g( O! [0 o# m) F
                                for( j=i;j<=n;j++ )
; P; `0 p: Q: a1 B$ e                                {2 d$ a+ Y5 U7 d* Q9 N: q' P" E3 [
                                        p=*(c+i*(n+1)+j);6 @0 s6 T$ e, I5 V
                                        *(c+i*(n+1)+j)=*(c+k*(n+1)+j);; Z2 z2 y7 r; ^: @6 F: M
                                        *(c+k*(n+1)+j)=p;4 P+ M& J' e* j4 h
                                }
9 A# w% @2 L/ m( v  B                for( j=i+1;j<=n-1;j++ )
. `  l# y$ j+ O* C0 Z                {
: b4 N1 ^) N+ g6 G% a! x                        p=(*(c+j*(n+1)+i))/(*(c+i*(n+1)+i));9 B% t& Y. H9 r% u! u! b4 m/ u
                        for( t=i;t<=n;t++ )/ y. X4 ]+ G5 l, w# x/ [! f' X
                                *(c+j*(n+1)+t)-=p*(*(c+i*(n+1)+t));
/ t% m( y  X) ?% H4 f                }( c: l& Q( W3 t$ \
        }
  p3 V4 _- @9 m- O2 C/ A        for( i=n-1;i>=0;i--)* Q5 l5 X) U, S; B
        {
: Q8 u$ h2 k! l/ Q* l8 r* n* T                for( j=n-1;j>=i+1;j--)4 Z+ ]) B. N4 V; m; s
                        (*(c+i*(n+1)+n))-=x[j]*(*(c+i*(n+1)+j));
+ `9 O& P* z. U5 t2 \0 v4 ^/ ~8 ~                x[i]=*(c+i*(n+1)+n)/(*(c+i*(n+1)+i));* B$ o" @0 z& o
        }( \8 y2 C, q6 ?# l' w2 K$ H! }
        return x;
; t7 m# Q, i0 P" ~6 }9 d, @}
回复

使用道具 举报

0

主题

5

听众

14

积分

升级  9.47%

该用户从未签到

新人进步奖

回复

使用道具 举报

deven1985 实名认证       

23

主题

3

听众

2433

积分

智慧的蓝色小毛驴

  • TA的每日心情
    开心
    2011-12-5 23:03
  • 签到天数: 106 天

    [LV.6]常住居民II

    自我介绍
    200 字节以内
    不支持自定义 Discuz! 代码

    新人进步奖

    回复

    使用道具 举报

    Rekcahpu 实名认证       

    0

    主题

    3

    听众

    13

    积分

    升级  8.42%

    该用户从未签到

    回复

    使用道具 举报

    0

    主题

    7

    听众

    435

    积分

    升级  45%

  • TA的每日心情
    衰
    2014-10-29 08:07
  • 签到天数: 96 天

    [LV.6]常住居民II

    群组: Matlab讨论组

    群组: 数学趣味、游戏、IQ等

    群组: 交朋友

    群组: 中国科学院软件研究所

    群组: 学术交流A

    回复

    使用道具 举报

    弘道        

    0

    主题

    13

    听众

    541

    积分

    升级  80.33%

  • TA的每日心情
    开心
    2015-1-11 23:28
  • 签到天数: 21 天

    [LV.4]偶尔看看III

    自我介绍
    qu

    社区QQ达人

    群组: IE与建模

    群组: LINGO

    群组: Mathematica研究小组

    群组: 数学建模培训课堂1

    群组: 第四届cumcm国赛实训

    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    fastpost qq
    收缩
    • 电话咨询

    • 04714969085

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-11-1 08:21 , Processed in 0.336582 second(s), 85 queries .

    回顶部