Cod sursa(job #1232973)

Utilizator TarabanDragosTaraban Dragos-Petru TarabanDragos Data 24 septembrie 2014 13:27:40
Problema Algoritmul lui Gauss Scor 100
Compilator cpp Status done
Runda Arhiva educationala Marime 1.08 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;
}