Blame view

Giac_maj/giac-1.4.9/src/gauss.h 3.13 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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
  /*
   *  Copyright (C) 2000,2014 B. Parisse, Institut Fourier, 38402 St Martin d'Heres
   *
   *  This program is free software; you can redistribute it and/or modify
   *  it under the terms of the GNU General Public License as published by
   *  the Free Software Foundation; either version 3 of the License, or
   *  (at your option) any later version.
   *
   *  This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
   */
  #ifndef _GIAC_GAUSS_H
  #define _GIAC_GAUSS_H
  #include "first.h"
  #include "gen.h"
  
  #ifndef NO_NAMESPACE_GIAC
  namespace giac {
  #endif // ndef NO_NAMESPACE_GIAC
  
    vecteur quad(int &b,const gen & q, const vecteur & x,GIAC_CONTEXT);
    // find matrix of a quadratic form
    // q=symbolic expression with respect to the vecteur of variables x
    // b=2 if q is quadratique,=0,1 ou 3 si il y des termes d'ordre 0,1 ou 3
    vecteur qxa(const gen &q,const vecteur & x,GIAC_CONTEXT);
    gen _q2a(const gen & args,GIAC_CONTEXT);
    extern const unary_function_ptr * const  at_q2a;
  
    vecteur gauss(const gen & q, const vecteur & x, vecteur & D, vecteur & U, vecteur & P,GIAC_CONTEXT);
    vecteur gauss(const gen & q,const vecteur & x,GIAC_CONTEXT);
    gen _gauss(const gen & args,GIAC_CONTEXT);
    extern const unary_function_ptr * const  at_gauss;
  
    extern const unary_function_ptr * const  at_a2q;
    gen axq(const vecteur &A,const vecteur & x,GIAC_CONTEXT);
    gen _a2q(const gen & args,GIAC_CONTEXT);
    vecteur qxac(const gen &q,const vecteur & x,GIAC_CONTEXT);
  
    // rational parametrization of a conic, given cartesian equation and point over
    gen conique_ratparam(const gen & eq,const gen & M,GIAC_CONTEXT);
  
    // given a 2-var 2nd order equation `equation_conique'
    // and the vecteur of variables 'nom_des_variables'
    // conique_reduite returns
    // the coordinates of the center of the conic in x0 and y0
    // the eigenvectors in V1 and V2
    // a parameter `propre'
    // and the reduced equation in equation_reduite
    // param_curves is a vecteur containing vecteurs of size 2 (lines) 
    // or 5 (parametric curves with equation,identificateur,tmin,tmax,tstep)
    bool conique_reduite(const gen & equation_conique,const gen & pointsurconique,const vecteur & nom_des_variables,gen & x0, gen & y0, vecteur & V1, vecteur &V2, gen & propre,gen & equation_reduite, vecteur & param_curves,gen & ratparam,bool numeric,GIAC_CONTEXT);
    bool quadrique_reduite(const gen & q,const gen & pointsurquadrique,const vecteur & vxyz,gen & x,gen & y,gen & z,vecteur & u,vecteur & v,vecteur & w,vecteur & propre,gen & equation_reduite,vecteur & param_surface,vecteur & centre,bool numeric,GIAC_CONTEXT);
  
    extern const unary_function_ptr * const  at_conique_reduite;
    gen _conique_reduite(const gen & args,GIAC_CONTEXT);
    gen _quadrique_reduite(const gen & args,GIAC_CONTEXT);
  
  #ifndef NO_NAMESPACE_GIAC
  } // namespace giac
  #endif // ndef NO_NAMESPACE_GIAC
  
  #endif // _GIAC_GAUSS_H