smith.c

Go to the documentation of this file.

/*
 
  $Id: smith.c 1641 2016-03-02 08:20:19Z coelho $
 
  Copyright 1989-2016 MINES ParisTech
 
  This file is part of Linear/C3 Library.
 
  Linear/C3 Library is free software: you can redistribute it and/or modify it
  under the terms of the GNU Lesser General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  any later version.
 
  Linear/C3 Library is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  See the GNU Lesser General Public License for more details.
 
  You should have received a copy of the GNU Lesser General Public License
  along with Linear/C3 Library.  If not, see <http://www.gnu.org/licenses/>.
*/
 
#include <stdio.h>
#include <stdlib.h>
 
#include "arithmetique.h"
#include "matrix.h"
 
int main(void)
{
  int m, n;
  Pmatrix A, P, D, Q;
  matrix_fscan(stdin, &A, &m, &n);
  P = matrix_new(m, m);
  D = matrix_new(m, n);
  Q = matrix_new(n, n);
  // compute Smith normal form: D = P.A.Q
  matrix_smith(A, P, D, Q);
  fprintf(stdout, "# A =\n");
  matrix_fprint(stdout, A);
  fprintf(stdout, "# P =\n");
  matrix_fprint(stdout, P);
  fprintf(stdout, "# D =\n");
  matrix_fprint(stdout, D);
  fprintf(stdout, "# Q =\n");
  matrix_fprint(stdout, Q);
  return 0;
}