Cod sursa(job #2893442)

Utilizator mircea_007Mircea Rebengiuc mircea_007 Data 25 aprilie 2022 21:53:48
Problema Algoritmul lui Gauss Scor 10
Compilator cpp-64 Status done
Runda Arhiva educationala Marime 1.45 kb
// This program was written on 25.04.2022
// for problem gauss
// by Mircea Rebengiuc

#include <stdio.h>
#include <ctype.h>

#include <valarray>

#define EPS 1e-7

#define MAXN 300
#define MAXM 300

std::valarray<double> e[MAXN];
double rez[MAXM];

inline bool null( const double &t ){
  return std::abs( t ) <= EPS;
}

FILE *fin, *fout;

int main(){
  fin  = fopen( "gauss.in",  "r" );
  fout = fopen( "gauss.out", "w" );
  
  int n, m, i, j, k;
  
  fscanf( fin, "%d%d", &n, &m );
  for( i = 0 ; i < n ; i++ ){
    e[i].resize( m + 1 );
    
    for( j = 0 ; j <= m ; j++ )
      fscanf( fin, "%lf", &e[i][j] );
  }
  
  for( i = j = 0 ; i < n && j < m ; j++ ){
    if( null( e[i][j] ) ){// nu avem variabila 'dominanta'
      // gasim alta ecuatie cu coeficient nenul
      k = i + 1;
      while( k < n && null( e[k][j] ) )
        k++;
      
      if( k < n )
        std::swap( e[i], e[k] );// O(1)
    }
    
    if( !null( e[i][j] ) ){
      // facem toti coeficientii de la variabila j nuli
      for( k = 0 ; k < n ; k++ )
        if( k != i && !null( e[k][j] ) )
          e[k] -= e[i] * (e[k][j] / e[i][j]);
      
      i++;
    }
  }
  
  // scoatem variabilele din matrice
  for( i = 0 ; i < n ; i++ ){
    j = 0;
    while( j < m && null( e[i][j] ) )
      j++;
    
    if( j < m )
      rez[j] = e[i][m] / e[i][j];
  }
  
  for( j = 0 ; j < m ; j++ )
    fprintf( fout, "%.10lf ", rez[j] );
  fputc( '\n', fout );
  
  fclose( fin );
  fclose( fout );
  return 0;
}