Cod sursa(job #1384431)

Utilizator TarabanDragosTaraban Dragos-Petru TarabanDragos Data 11 martie 2015 08:58:42
Problema Algoritmul lui Gauss Scor 100
Compilator cpp Status done
Runda Arhiva educationala Marime 1.43 kb
#include<cstdio>
int n,m,i,j,k,l;
double x[310][310],v[310],e=0.00000001;
FILE *f,*g;
void chg(double x,double y){
    double aux=x;
    x=y;
    y=aux;
}
double modul(double a){
    if(a<0)
        return -a;
    return a;
}
int main(){
    f=fopen("gauss.in","r");
    g=fopen("gauss.out","w");
    fscanf(f,"%d%d",&n,&m);
    for(i=1;i<=n;i++){
        for(j=1;j<=m+1;j++){
            fscanf(f,"%lf",&x[i][j]);
        }
    }
    i=j=1;
    while(i<=n&&j<=m){
        k=i;
        while(modul(x[k][j])<e&&k<=n){
            k++;
        }
        if(k==n+1){
            j++;
            continue;
        }
        if(i!=k){
            for(l=j;l<=m+1;l++){
                chg(x[i][l],x[k][l]);
            }
        }
        for(k=j+1;k<=m+1;k++){
            x[i][k]/=x[i][j];
        }
        x[i][j]=1;
        for(k=i+1;k<=n;k++){
            for(l=j+1;l<=m+1;l++){
                x[k][l]-=x[k][j]*x[i][l];
            }
            x[k][j]=0;
        }
        i++;
        j++;
    }
    for(i=n;i>=1;i--){
        j=1;
        while(modul(x[i][j])<e){
            j++;
        }
        if(j==m+1){
            fprintf(g,"Imposibil\n");
            return 0;
        }
        v[j]=x[i][m+1];
        for(k=j+1;k<=m;k++){
            v[j]-=x[i][k]*v[k];
        }
    }
    for(i=1;i<=m;i++){
    fprintf(g,"%.8lf ",v[i]);
    }
    fclose(f);
    fclose(g);
    return 0;
}