21 char 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"
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 ;