Blame view

Giac_maj/giac-1.4.9/src/TmpLESystemSolver.H 1.45 KB
6663b6c9   adorian   projet complet av...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
  #ifdef HAVE_CONFIG_H
  #include "config.h"
  #endif
  #include "first.h"
  #ifdef HAVE_LIBCOCOA
  #ifndef CoCoA_LESystemSolver_H
  #define CoCoA_LESystemSolver_H
  
  //   Copyright (c)  2006  Stefan Kaspar
  
  //   This file is part of the source of CoCoALib, the CoCoA Library.
  
  //   CoCoALib is free software; you can redistribute it and/or modify
  //   it under the terms of the GNU General Public License (version 3)
  //   as published by the Free Software Foundation.  A copy of the full
  //   licence may be found in the file COPYING in this directory.
  
  //   CoCoALib 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 General Public License for more details.
  
  //   You should have received a copy of the GNU General Public License
  //   along with CoCoA; if not, see <http://www.gnu.org/licenses/>
  
  #include <CoCoA/matrix.H>
  
  namespace CoCoADortmund
  {
  
    /*! \brief Solve the linear system M*x0 = b using Gauss' algorithm.
     *
     *  Computes a solution of M*x0 = b if there exists any using Gauss' algorithm.
     *  The solution will be stored in x0.
     *
     *  \param x0 Will hold the solution of A*x0 = b.
     *  \param M A matrix.
     *  \param b A vector.
     *  \return true, if a solution exists, false else.
     */
    bool LESystemSolver(CoCoA::matrix& x0, const CoCoA::matrix& M, const CoCoA::matrix& b);
  
  } // end of namespace CoCoADortmund
  
  #endif
  #endif