QQ登录

只需要一步,快速开始

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

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

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

1

主题

3

听众

35

积分

升级  31.58%

该用户从未签到

新人进步奖

#include<iostream>
! x7 j8 J5 S! V4 |5 w  v#include<cmath>& D, c% v4 z  U/ ]) j" Y
using namespace std;
* B% U! b: f8 fint main()
  \! `) J" X: a* f. @3 I{
% ]6 G% G6 i2 ^        int i;
! l( o( _- Z% m4 d        float *x;  k( A! z; y' J. B$ Z* }' G; t: j
        float c[3][4] ={0.101,2.304,3.555,1.183,
. A  H! g3 j5 a  ~3 p+ z3 X; U8 @                                        -1.347,3.712,4.623,2.137,
* e" ^1 Y4 W  w' U, r/ Y$ v" ^                                        -2.835,1.072,5.643,3.035};! u7 ]& ]+ l# W* h7 ~
        float *ColPivot(float *,int);3 a; q9 G, }: g% ~3 r' ^+ Z
        x=ColPivot(c[0],3);
. E4 ]+ F+ h2 \, Z' N6 G5 v& ^        for( i=0;i<=2;i++ )& ^- q8 m' e+ |0 P/ \" Q! T# {
                cout<<"x("<<i<<")="<<x[i]<<endl;
; D+ Z+ x3 R! A( }" `% g}) ^8 T/ q9 o& \7 _5 I
2 `3 g9 L! o. y0 w- O- m& H
float *ColPivot( float *c,int n ). E4 x! }" x' E8 \
{
4 y3 y5 L: R+ w: K2 \; R        int i,j,t,k;) g8 H( I+ r& [% G
        float *x,p;
1 H  [' I9 _; s' s, h( @         x=new float[n*sizeof(float)];$ j2 {: m! Y" k8 D
        for( i=0;i<=n-2;i++)( C- D+ D1 L( i
        {! l# }& ]# m6 n
                k=i;
7 w3 @) O- B: X' E6 _9 ^                for(j=i+1;j<=n-1;j++)! @; R! H+ C* c9 C5 J7 l
                        if(fabs(*(c+j*(n+1)+i))>(fabs(*(c+k*(n+1)+i))))4 u6 i$ u& x0 i% ^1 o
                                k=j;
9 f6 }6 P% `* w( h. I                        if(k!=i)$ Z. _9 P4 c4 `$ _
                                for( j=i;j<=n;j++ ): |+ {) f4 |  v. c+ p: E. G5 P8 ^# ~
                                {/ {+ a/ Q( u  p7 E9 U% O. V3 r
                                        p=*(c+i*(n+1)+j);" @; a' ]9 G' A; V3 Z
                                        *(c+i*(n+1)+j)=*(c+k*(n+1)+j);# I" V6 n, |5 v/ o) ~; o9 G: N4 o: q
                                        *(c+k*(n+1)+j)=p;8 x( u: A6 W. B4 g& d
                                }: t" m6 Q& E# L: Z
                for( j=i+1;j<=n-1;j++ )
! I4 y# H3 V( V. a/ ^0 z: L) g                {; u- P% l3 n/ z+ j
                        p=(*(c+j*(n+1)+i))/(*(c+i*(n+1)+i));
/ \. I) H: j8 A9 ~' m2 T. V) x                        for( t=i;t<=n;t++ )5 V: N4 \- S: @% z
                                *(c+j*(n+1)+t)-=p*(*(c+i*(n+1)+t));" [% T( J- {1 T' ?
                }% n/ E6 y: X7 {7 r
        }
, j0 w! s: w! ?1 R. x        for( i=n-1;i>=0;i--)
; _) t  R* o/ _! Z/ m6 w7 X0 t        {6 k) G. `3 z, p' C
                for( j=n-1;j>=i+1;j--)$ ?4 g4 ~. h8 M0 E9 ~
                        (*(c+i*(n+1)+n))-=x[j]*(*(c+i*(n+1)+j));  K7 {. M) c$ H. [4 o8 Q
                x[i]=*(c+i*(n+1)+n)/(*(c+i*(n+1)+i));- y, V9 c: L0 Z% H
        }
3 d: c% u; F" R; m8 t- D8 n        return x;' C* z# c8 x/ j* r$ D1 m
}
回复

使用道具 举报

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-1-1 09:09 , Processed in 1.201965 second(s), 85 queries .

    回顶部