Cod sursa(job #998620)

Utilizator wzrdwzrd tst wzrd Data 17 septembrie 2013 19:28:28
Problema Algoritmul lui Gauss Scor 10
Compilator cpp Status done
Runda Arhiva educationala Marime 0.99 kb
#include <iostream>
#include <iomanip>
#include <fstream>
#include <cstdlib>
#include <cmath>
#define EPS 1e-9
#define DN 305
using namespace std;

ifstream f("gauss.in");
ofstream g("gauss.out");

int n,m;
double s[305][305],x[305];

void elim(double s[DN][DN]) {
  for(int i=1,j=1,k;i<=n && j<=m;) {
    for(k=i;k<=n; ++k) if(fabs(s[k][j])>EPS) break;
    if(k>n) {
      ++j;
      continue;
    }
    for(int l=1; l<=m+1; ++l) swap(s[i][l],s[k][l]);
    for(k=i+1; k<=n; ++k) for(int l=m+1; l>=j; --l)
      s[k][l]-=((s[k][j]*s[i][l])/s[i][j]);
    ++i; ++j;
  }
  for(int i=m; i; --i) {
    for(int j=1; j<i; ++j) if(fabs(s[i][j])>EPS) {
      g<<"Imposibil";
      exit(0);
    }
    for(int j=i+1; j<=m; ++j) x[i]-=(x[j]*s[i][j]);
    x[i]+=s[i][m+1];
    x[i]/=s[i][i];
  }
}

int main()
{
  f>>n>>m;
  for(int i=1; i<=n; ++i) for(int j=1; j<=m+1; ++j) f>>s[i][j];
  elim(s);
  for(int i=1; i<=m; ++i) g<<fixed<<setprecision(8)<<x[i]<<' ';
  return 0;
}