QQ登录

只需要一步,快速开始

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

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

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

1

主题

3

听众

35

积分

升级  31.58%

该用户从未签到

新人进步奖

#include<iostream>) D0 H! h, A7 z+ {
#include<cmath>8 Q$ K, G8 m3 c, `( A2 V1 N/ w- ^. Q
using namespace std;
" Z6 G, L6 ~4 Y( h4 j/ t. u+ ]( Q/ vint main()' Y  ^: O& C8 g/ R% e* `; ]
{$ x7 _& v7 S! ^5 H+ |3 n
        int i;9 ?9 ^, P4 a4 f4 f4 {
        float *x;
* _9 V7 L# O2 K8 [8 c$ c( @        float c[3][4] ={0.101,2.304,3.555,1.183,
" U9 `0 v, `6 D& j& x: z                                        -1.347,3.712,4.623,2.137,
$ [- r' k, u8 |# I: R( j                                        -2.835,1.072,5.643,3.035};
% S; r. Y" ]4 V3 }% e        float *ColPivot(float *,int);
$ i" q2 Z/ y! E) g" v        x=ColPivot(c[0],3);9 s' F$ c# D# ]4 e
        for( i=0;i<=2;i++ )
% Y% i) }) e5 \5 s+ O                cout<<"x("<<i<<")="<<x[i]<<endl;
' x0 C" B: h" R}9 }1 [$ I& i! W8 I* d+ M$ B' k
8 h1 n' |! P/ C% m
float *ColPivot( float *c,int n )2 \2 X: y  y( S( {. }& ^
{
9 L" y5 Q+ S8 o3 |6 b$ x6 s        int i,j,t,k;
! s7 T. d1 y; ]6 G        float *x,p;
3 ^! m: v% M8 S7 [         x=new float[n*sizeof(float)];& r6 M7 ^$ j: r! l- [
        for( i=0;i<=n-2;i++)
: ^1 n; B# N/ k. Z* X. _2 V        {: C+ T. C! b, ^1 K( P
                k=i;
5 [6 s* @; R7 E                for(j=i+1;j<=n-1;j++)# k1 z  U$ v8 C% K" O, F6 t
                        if(fabs(*(c+j*(n+1)+i))>(fabs(*(c+k*(n+1)+i)))). V  `" J% u: @( M" W
                                k=j;# Q3 C+ x) u( H- U3 V$ o1 |( I
                        if(k!=i)
3 k6 v6 W( A, H; H" t) P% B                                for( j=i;j<=n;j++ )0 M0 Q* ~. M# J1 `7 n
                                {% Z6 v% h: v( K  Z7 k) G
                                        p=*(c+i*(n+1)+j);5 E* |9 M% {# u1 t; |
                                        *(c+i*(n+1)+j)=*(c+k*(n+1)+j);9 W5 S; R& `/ O$ N+ [5 z
                                        *(c+k*(n+1)+j)=p;
  s/ V3 j4 \# n. I! Z5 I0 O4 _& O) K                                }
! k9 |; D  v* f2 {                for( j=i+1;j<=n-1;j++ )4 y" D. }5 u1 r) W6 S8 U  R% r
                {
+ A6 q3 P8 L$ l* V( m3 s                        p=(*(c+j*(n+1)+i))/(*(c+i*(n+1)+i));0 P$ ^5 n  p# W* I) O( C9 C' U+ ^
                        for( t=i;t<=n;t++ )/ a% k9 G+ U# E# ~9 k
                                *(c+j*(n+1)+t)-=p*(*(c+i*(n+1)+t));6 F& ^% J) y% J0 ?" w- f
                }
1 H, [, o) a" a6 k- ?9 H        }: Y1 X8 W9 c( N5 E! T: T4 D$ t! C; x1 ~
        for( i=n-1;i>=0;i--)
# D4 t$ G; Z3 ^7 l1 o7 c- q        {
. `9 h- H1 q: d* k9 G5 P! U6 F                for( j=n-1;j>=i+1;j--)# r; @* c6 _' b4 K. ~
                        (*(c+i*(n+1)+n))-=x[j]*(*(c+i*(n+1)+j));% R. r, K% q5 V' A
                x[i]=*(c+i*(n+1)+n)/(*(c+i*(n+1)+i));( M# S; f8 I% s/ b2 Y! q
        }% M% G7 W* @# R+ J) v0 ?. `
        return x;
  L) |. x6 I) i, a9 j6 _}
回复

使用道具 举报

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, 2025-11-11 21:46 , Processed in 0.763118 second(s), 85 queries .

    回顶部