运用Doolitle分解法解线性方程组

#include<stdio.h>
 
const int maxn=1100;
 
double b[maxn],x[maxn],y[maxn];
double a[1100][1100];
double l[1100][1100];
double u[1100][1100];
int n;
 
int main(){
    scanf("%d",&n);
    for(int i=1;i<=n;i++)
        for(int j=1;j<=n;j++)
            scanf("%lf",&a[i][j]);
    for(int i=1;i<=n;i++) scanf("%lf",&b[i]);
    for(int i=1;i<=n;i++)
        l[i][i]=1;
    for(int k=1;k<=n;k++){
        if(k==1){
            for(int j=1;j<=n;j++) u[1][j]=a[1][j];   
            for(int i=2;i<=n;i++) l[i][1]=a[i][1]/u[1][1];
        }
        else{
            for(int j=k;j<=n;j++){
                double tmp=0;
                for(int s=1;s<=k-1;s++)
                    tmp+=l[k][s]*u[s][j];
                u[k][j]=a[k][j]-tmp;
            }
            for(int i=k+1;i<=n;i++){
                double tmp=0;
                for(int s=1;s<=k-1;s++)
                    tmp+=l[i][s]*u[s][k];
                l[i][k]=(a[i][k]-tmp)/u[k][k];
            }
        }
    }
    y[1]=b[1];
    for(int k=2;k<=n;k++){
        double tmp=0;
        for(int s=1;s<=k-1;s++)
            tmp+=l[k][s]*y[s];
        y[k]=b[k]-tmp;
    }
    x[n]=y[n]/u[n][n];
    for(int k=n-1;k;k--){
        double tmp=0;
        for(int s=k+1;s<=n;s++)
            tmp+=u[k][s]*x[s];
        x[k]=(y[k]-tmp)/u[k][k];
    }
    for(int i=1;i<=n;i++){
        for(int j=1;j<=n;j++) printf("%.6f ",l[i][j]);
        puts("");
    }
    for(int i=1;i<=n;i++){
        for(int j=1;j<=n;j++) printf("%.6f ",u[i][j]);
        puts("");
    }
    for(int i=1;i<=n;i++) printf("y[%d]=%.6f\n",i,y[i]);
    for(int i=1;i<=n;i++) printf("x[%d]=%.6f\n",i,x[i]);
    return 0;
}
/*
3
1 2 -1
1 -1 5
4 1 -2
3 0 2
*/
评论 4
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

豆沙睡不醒

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值