32 #include "ope_elementary.h" 41 Matrice _cl_vorton_pas_prevu (
const Matrice& so,
int) {
42 cout <<
"CL vorton not implemented" << endl ;
52 Matrice _cl_vorton_r_cheb (
const Matrice& source,
int) {
55 assert (n==source.get_dim(1)) ;
57 Matrice barre(source) ;
59 for (
int i=0 ; i<n-2 ; i++) {
60 for (
int j=0 ; j<n ; j++)
61 barre.set(i, j) = ((1+dirac)*source(i, j)-source(i+2, j))
67 for (
int i=0 ; i<n-4 ; i++)
68 for (
int j=0 ; j< n ; j++)
69 res.set(i, j) = barre(i, j)-barre(i+2, j) ;
77 Matrice _cl_vorton_r_chebu_trois (
const Matrice &source) {
80 assert (n == source.get_dim(1)) ;
82 Matrice barre(source) ;
84 for (
int i=0 ; i<n-2 ; i++) {
85 for (
int j=0 ; j<n ; j++)
86 barre.set(i, j) = ((1+dirac)*source(i, j)-source(i+2, j)) ;
90 Matrice tilde(barre) ;
91 for (
int i=0 ; i<n-4 ; i++)
92 for (
int j=0 ; j<n ; j++)
93 tilde.set(i, j) = (barre(i, j)-barre(i+2, j)) ;
96 for (
int i=0 ; i<n-4 ; i++)
97 for (
int j=0 ; j<n ; j++)
98 res.set(i, j) = (tilde(i, j)+tilde(i+1, j)) ;
103 Matrice _cl_vorton_r_chebu (
const Matrice &source,
int puis) {
105 assert (n == source.get_dim(1)) ;
112 res = _cl_vorton_r_chebu_trois(source) ;
137 cl_vorton[i] = _cl_vorton_pas_prevu ;
Matrice * ope_cl
Pointer on the banded-matrix of the operator.
virtual void do_ope_cl() const
Computes the banded-matrix of the operator.
Matrice * ope_mat
Pointer on the matrix representation of the operator.
int dzpuis
the associated dzpuis, if in the compactified domain.
int base_r
Radial basis of decomposition.
#define TRA_R
Translation en R, used for a bitwise shift (in hex)
virtual void do_ope_mat() const
Computes the matrix of the operator.
int get_dim(int i) const
Returns the dimension of the matrix.
#define R_CHEBU
base de Chebychev ordinaire (fin), dev. en 1/r
#define MAX_BASE
Nombre max. de bases differentes.
#define R_CHEB
base de Chebychev ordinaire (fin)