21char ope_vorton_non_dege_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Ope_elementary/Ope_vorton/ope_vorton_non_dege.C,v 1.4 2014/10/13 08:53:37 j_novak Exp $" ;
32#include "ope_elementary.h"
39Matrice _vorton_non_dege_pas_prevu (
const Matrice& so,
int,
int) {
40 cout <<
"vorton non dege : not implemented" << endl ;
50Matrice _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) ;
70Matrice _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) ;
96Matrice _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) ;
Time evolution with partial storage (*** under development ***).
int get_dim(int i) const
Returns the dimension of the matrix.
int base_r
Radial basis of decomposition.
Matrice * ope_cl
Pointer on the banded-matrix of the operator.
Matrice * non_dege
Pointer on the non-degenerated matrix of the operator.
virtual void do_non_dege() const
Computes the non-degenerated matrix of the operator.
int l_quant
quantum number
int dzpuis
the associated dzpuis, if in the compactified domain.
virtual void do_ope_cl() const
Computes the banded-matrix of the operator.
#define MAX_BASE
Nombre max. de bases differentes.
#define R_CHEBU
base de Chebychev ordinaire (fin), dev. en 1/r
#define TRA_R
Translation en R, used for a bitwise shift (in hex)
#define R_CHEB
base de Chebychev ordinaire (fin)