gauss主元素法c语言,【大神在哪里】高斯-列主元消去法

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

#include

#include

main()

{

int k,i,j,my;

int n=3;

double m=1e-8,mx;

double a[3][3]={{4,2,-2},{2,2,-3},{-2,-3,14}};

double b[3]={10,5,4},det[3];/*定义、输入值*/

for(k=0;k

{mx=0,my=0;

for(i=0;i

if(fabs(a[i][k])>mx)

{mx=fabs(a[i][k]);

my=i;}/*列选最大*/

if(fabs(mx)

printf("It is wrong!\n");/*判断*/

if(my!=k)

{double t,p;

for(i=k;i

{t=a[k][i];

a[k][i]=a[my][i];

a[my][i]=t;}

p=b[k];

b[k]=b[my];

b[my]=p;

}/*交换*/

for(i=k+1;i

{det[i]=a[i][k]/a[k][k];

b[i]=b[i]-det[i]*b[k];

for(j=k+1;j

a[i][j]=a[i][j]-det[i]*a[k][j];

}/*消去*/

}

det[0]=0;

for(i=0;i

{for(j=i+1;j

det[i]=det[i]+a[i][j]*b[j];}

for(i=0;i

b[i]=det[i]/a[i][i];

b[n-1]=b[n-1]/a[n][n];/*回代*/

for(i=0;i

printf("Result is %lf\n",b[i]);/*输出*/

}

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值