21 char ope_poisson_pseudo_1d_cl_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Ope_elementary/Ope_poisson_pseudo_1d/ope_poisson_pseudo_1d_cl.C,v 1.3 2014/10/13 08:53:35 j_novak Exp $" ;
32 #include "ope_elementary.h"
36 Matrice _cl_poisson_pseudo_1d_pas_prevu (
const Matrice & so) {
37 cout <<
"Combinaison lineaire pas prevu..." << endl ;
48 Matrice _cl_poisson_pseudo_1d_r_cheb (
const Matrice &source) {
51 assert (n == source.get_dim(1)) ;
53 Matrice barre(source) ;
55 for (
int i=0 ; i<n-2 ; i++) {
56 for (
int j=0 ; j<n ; j++)
57 barre.set(i, j) = ((1+dirac)*source(i, j)-source(i+2, j))
63 for (
int i=0 ; i<n-4 ; i++)
64 for (
int j=0 ; j<n ; j++)
65 res.set(i, j) = barre(i, j)-barre(i+2, j) ;
76 Matrice _cl_poisson_pseudo_1d_r_chebp (
const Matrice &source) {
79 assert (n == source.get_dim(1)) ;
81 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) ;
108 Matrice _cl_poisson_pseudo_1d_r_chebi (
const Matrice &source) {
110 assert (n == source.get_dim(1)) ;
112 Matrice barre(source) ;
114 for (
int i=0 ; i<n-2 ; i++)
115 for (
int j=0 ; j<n ; j++)
116 barre.set(i, j) = source(i, j)-source(i+2, j) ;
118 Matrice tilde(barre) ;
119 for (
int i=0 ; i<n-4 ; i++)
120 for (
int j=0 ; j<n ; j++)
121 tilde.set(i, j) = barre(i, j)-barre(i+2, j) ;
124 for (
int i=0 ; i<n-4 ; i++)
125 for (
int j=0 ; j<n ; j++)
126 res.set(i, j) = tilde(i, j)-tilde(i+1, j) ;
146 cl_poisson_pseudo_1d[i] = _cl_poisson_pseudo_1d_pas_prevu ;
149 cl_poisson_pseudo_1d[
R_CHEBP >>
TRA_R] = _cl_poisson_pseudo_1d_r_chebp ;
150 cl_poisson_pseudo_1d[
R_CHEBI >>
TRA_R] = _cl_poisson_pseudo_1d_r_chebi ;
151 cl_poisson_pseudo_1d[
R_CHEB >>
TRA_R] = _cl_poisson_pseudo_1d_r_cheb ;