QQ登录

只需要一步,快速开始

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

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

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

1

主题

3

听众

35

积分

升级  31.58%

该用户从未签到

新人进步奖

#include<iostream>0 i8 |; R/ z( G7 O3 D$ t
#include<cmath>
& \3 Q. ]" P0 s4 k0 U% v3 _% ^using namespace std;$ o; V4 c" ?8 f
int main()4 {5 A1 A' A" c9 n* E! J7 `) V& |
{, v3 o" y+ q7 T
        int i;" E0 {! z" U  @  L7 I
        float *x;
  Z% K: b7 z  P: f+ u        float c[3][4] ={0.101,2.304,3.555,1.183,
% M8 Y3 l& }! \: p2 X# j                                        -1.347,3.712,4.623,2.137,
, [' c# y; d: n# h) l                                        -2.835,1.072,5.643,3.035};
( P9 b4 m5 z' h& Q        float *ColPivot(float *,int);
* d! k2 e2 ?, c" D' N        x=ColPivot(c[0],3);6 L9 N1 j/ r) ~* |7 h
        for( i=0;i<=2;i++ )  l4 z8 N( I4 e( ?/ z: i
                cout<<"x("<<i<<")="<<x[i]<<endl;1 x& R. e* C* @2 o
}+ m! d8 E  `. Q9 U* {. v
) [, I0 \" `" ~2 U  S. w- D* t
float *ColPivot( float *c,int n )
+ v8 n7 u- M" d" J- A{+ |- r( e$ ?6 O8 X
        int i,j,t,k;; S7 t- S& T7 A; m( i
        float *x,p;/ y& R* I7 }( o2 V9 j
        x=new float[n*sizeof(float)];: m& d& ~1 V  e/ w
        for( i=0;i<=n-2;i++)1 T4 C% u  @2 V7 v
        {6 g8 t1 ^7 T9 ~4 ], ]* ?
                k=i;
( B# V4 d1 \; r& h; k. \, ]. y, p                for(j=i+1;j<=n-1;j++)
& _# }. r6 D) l6 [                        if(fabs(*(c+j*(n+1)+i))>(fabs(*(c+k*(n+1)+i))))% E/ E. |8 d0 q
                                k=j;5 C; p* ]: [3 e- p0 y$ Y6 I  i
                        if(k!=i)6 ~0 m$ c6 R. e& D+ [" D
                                for( j=i;j<=n;j++ )6 e4 Q; |% k9 E! ~1 t5 c# g+ W& ^
                                {$ i) i2 _5 q% U  W
                                        p=*(c+i*(n+1)+j);
# ~8 n5 a8 N( D, ~                                        *(c+i*(n+1)+j)=*(c+k*(n+1)+j);) r/ M7 G3 Y! j& T
                                        *(c+k*(n+1)+j)=p;
: ~; f. y3 K3 j# I& B, }/ e# X                                }
1 U0 h3 _1 Y, G. f& B6 J7 M0 ~                for( j=i+1;j<=n-1;j++ ), }# H, K" N" V0 s
                {2 d, F" n. s3 i3 h
                        p=(*(c+j*(n+1)+i))/(*(c+i*(n+1)+i));
! ], j3 N% d8 E+ a                        for( t=i;t<=n;t++ )' g/ o& L3 p7 q$ y2 ?
                                *(c+j*(n+1)+t)-=p*(*(c+i*(n+1)+t));
9 g9 D1 D2 c: |5 W4 o; n                }$ w7 F1 B% k, [  w" v- n
        }
0 s8 W( ?1 F, w  S& e        for( i=n-1;i>=0;i--)' `: _# \. P! K) p8 q; Z4 \0 U1 u
        {
+ p* Z/ k9 e/ |9 n; U& I1 M                for( j=n-1;j>=i+1;j--)
, l, J: U4 s: y" v  K7 @+ D                        (*(c+i*(n+1)+n))-=x[j]*(*(c+i*(n+1)+j));# T  Q# [3 _3 @. H1 j
                x[i]=*(c+i*(n+1)+n)/(*(c+i*(n+1)+i));
4 H! e( e- h" Q$ f  M        }7 s) [8 u; R, v; L, Z( W1 F% U
        return x;4 B# G9 ]' k. i8 L! L% C# h  s. ~  c8 f
}
回复

使用道具 举报

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国赛实训

    回复

    使用道具 举报

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

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-5-27 15:11 , Processed in 0.510649 second(s), 85 queries .

    回顶部