lukasz.proszek.info

Powrót do listy plików

---

pivotgauss2.c

#include "pivotgauss.h"



main(int argc, char *argv[]){
  //Pliki otwarte do czytania
  FILE *skad_czytac_1; 
  FILE *skad_czytac_2; 
  //Pliki otwarte do pisania 
  //FILE *gdzie_pisac_1; 
  if( (skad_czytac_1= fopen(argv[1], "r")) == NULL) {
    printf("\n Nie moglem otworzyc pliku do czytania ");
  }
  else {
    printf("\n Poprawnie otwarlem plik do czytania");
  }

  if( (skad_czytac_2= fopen(argv[2], "r")) == NULL) {
    printf("\n Nie moglem otworzyc pliku do czytania ");
  }
  else {
    printf("\n Poprawnie otwarlem plik do czytania");
  }


    
 //deklaracja zmiennych;
  int n_wierszy;
  int n_wierszy2;
  int n_kolumn;
  int n_kolumn2;
  int i, j;
  typ **wsk_macierz_1 = NULL ; //wskaźnik do macierzy - nazwa pierwszej wczytanej macierzy
  typ **wsk_macierz_2 = NULL ; //wskaźnik do macierzy - nazwa wczytanej macierzy wyników
  //wywolanie funkcji do wczytania ,macierzy;
  wczytaj_macierz( skad_czytac_1, &wsk_macierz_1, &n_wierszy, &n_kolumn);
    
  printf("\nZwrocone przez funkcje rozmiary macierzy to: %d wierszy i %d kolumn\n", n_wierszy, n_kolumn);

  wczytaj_macierz( skad_czytac_2, &wsk_macierz_2, &n_wierszy2, &n_kolumn2);
 

  for(i=0;i<n_kolumn;i++){
    pivot(wsk_macierz_1, wsk_macierz_2, n_wierszy, n_kolumn, i);
    eliminacja(wsk_macierz_1, wsk_macierz_2, n_wierszy,n_kolumn, i);
  }

  for(i=0; i<n_wierszy; i++) {
    printf("\n");
    for(j=0; j<n_kolumn; j++) {
      printf("\t %f", wsk_macierz_1[i][j]);
    }
    printf("\t\t %f",wsk_macierz_2[i][0]);
  }

  printf("\n\nWYNIK:\n");

  for(i=0; i<n_wierszy; i++){
     printf("x%i= %f\n",i, wsk_macierz_2[i][0]/wsk_macierz_1[i][i]);
  }
 printf ("\n"); 
  return 0;
}

---

syntax highlighted by Code2HTML, v. 0.9.1
kod przerobiony z HTML na XHTML za pomocą HTML Tidy for Linux/x86