Cod sursa(job #2309429)

Utilizator patcasrarespatcas rares danut patcasrares Data 28 decembrie 2018 23:40:40
Problema Algoritmul lui Gauss Scor 0
Compilator cpp-64 Status done
Runda Arhiva educationala Marime 1.3 kb
#include<fstream>
#include<iostream>
#include<iomanip>
#include<algorithm>
#include<cmath>
using namespace std;
ifstream fin("minesweeper.in");
ofstream fout("minesweeper.out");
const double eps=1e-10;
int n,m,nr,a[35][35],k,poz;
long double r[605][605],sol[605],f,g,val;
void elg()
{
    for(int j=1;j<=nr;j++)
        for(int i=j;i<=m;i++)
            if(abs(r[i][j])>eps)
            {
                for(int h=1;h<=nr+1;h++)
                    swap(r[j][h],r[i][h]);
                for(int h=j+1;h<=m;h++)
                    if(abs(r[h][j])>eps)
                    {
                        val=r[h][j]/r[j][j];
                        r[h][j]=0;
                        for(int c=j+1;c<=nr+1;c++)
                            r[h][c]-=val*r[j][c];
                    }
            }
    for(int i=m;i>0;i--)
    {
        poz=1;
        while(poz<=nr&&abs(r[i][poz])<eps)
            poz++;
        if(poz==nr+1)
            continue;
        sol[i]=r[i][nr+1];
        for(int j=poz+1;j<=nr;j++)
            sol[i]-=sol[j]*r[i][j];
        sol[i]/=r[i][poz];
    }
}
int main()
{
    fin>>m>>nr;
    for(int i=1;i<=m;i++)
        for(int j=1;j<=nr+1;j++)
            fin>>r[i][j];
    elg();
    for(int i=1;i<=nr;i++)
        fout<<fixed<<setprecision(8)<<sol[i]<<' ';
}