32 #include "ope_elementary.h" 39 Matrice _vorton_non_dege_pas_prevu (
const Matrice& so,
int,
int) {
40 cout <<
"vorton non dege : not implemented" << endl ;
50 Matrice _vorton_non_dege_r_cheb (
const Matrice& source,
int,
int) {
55 Matrice res(n-non_dege, n-non_dege) ;
57 for (
int i=0 ; i<n-non_dege ; i++)
58 for (
int j=0 ; j<n-non_dege ; j++)
59 res.set(i, j) = source(i, j+non_dege) ;
70 Matrice _vorton_non_dege_r_chebu_trois (
const Matrice &lap,
int l) {
74 Matrice res(n-1, n-1) ;
76 for (
int i=0 ; i<n-1 ; i++)
77 for (
int j=0 ; j<n-1 ; j++)
78 res.set(i, j) = lap(i, j+1) ;
84 Matrice res(n-2, n-2) ;
86 for (
int i=0 ;i<n-2 ; i++)
87 for (
int j=0 ; j<n-2 ; j++)
88 res.set(i, j) = lap(i, j+2) ;
96 Matrice _vorton_non_dege_r_chebu (
const Matrice &lap,
int l,
int puis) {
100 return _vorton_non_dege_r_chebu_trois (lap, l) ;
104 return Matrice(0, 0) ;
123 vorton_non_dege[i] = _vorton_non_dege_pas_prevu ;
126 vorton_non_dege[
R_CHEB >>
TRA_R] = _vorton_non_dege_r_cheb ;
127 vorton_non_dege[
R_CHEBU >>
TRA_R] = _vorton_non_dege_r_chebu ;
Matrice * ope_cl
Pointer on the banded-matrix of the operator.
int l_quant
quantum number
virtual void do_ope_cl() const
Computes the banded-matrix of the operator.
int dzpuis
the associated dzpuis, if in the compactified domain.
int base_r
Radial basis of decomposition.
virtual void do_non_dege() const
Computes the non-degenerated matrix of the operator.
#define TRA_R
Translation en R, used for a bitwise shift (in hex)
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.
Matrice * non_dege
Pointer on the non-degenerated matrix of the operator.
#define R_CHEB
base de Chebychev ordinaire (fin)