24char map_af_lap_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Map/map_af_lap.C,v 1.7 2014/10/13 08:53:02 j_novak Exp $" ;
181 assert (uu.
get_etat() != ETATNONDEF) ;
191 assert( uu.
get_etat() == ETATQCQ ) ;
206 if (
get_mg()->get_type_r(nzm1) == UNSURR) {
223 Valeur d2ff = ff.d2sdx2() ;
259 ff = double(2) * (
dxdr * dff) +
xsr * ff ;
260 ff.base = sauve_base ;
271 sauve_base = d2ff.
base ;
273 ff.base = sauve_base ;
302 switch (zec_mult_r) {
309 sauve_base = ffext.
base ;
311 ffext.
base = sauve_base ;
315 sauve_base = ffext.
base ;
316 ffext = ffext / (
xsr*
xsr) ;
317 ffext.
base = sauve_base ;
325 sauve_base = ffext.
base ;
327 ffext.
base = sauve_base ;
333 ffext = ffext.
sx2() ;
335 sauve_base = ffext.
base ;
337 ffext.
base = sauve_base ;
342 cout <<
"Map_af::laplacien : unknown value of zec_mult_r !"
343 << endl <<
" zec_mult_r = " << zec_mult_r << endl ;
355 ff.base = base_entree ;
369 assert (uu.
get_etat() != ETATNONDEF) ;
379 assert( uu.
get_etat() == ETATQCQ ) ;
394 if (
get_mg()->get_type_r(nzm1) == UNSURR) {
411 Valeur d2ff = ff.d2sdx2() ;
447 ff = double(2) * (
dxdr * dff) +
xsr * ff ;
448 ff.base = sauve_base ;
459 sauve_base = d2ff.
base ;
461 ff.base = sauve_base ;
490 switch (zec_mult_r) {
497 sauve_base = ffext.
base ;
499 ffext.
base = sauve_base ;
503 sauve_base = ffext.
base ;
504 ffext = ffext / (
xsr*
xsr) ;
505 ffext.
base = sauve_base ;
513 sauve_base = ffext.
base ;
515 ffext.
base = sauve_base ;
521 ffext = ffext.
sx2() ;
523 sauve_base = ffext.
base ;
525 ffext.
base = sauve_base ;
530 cout <<
"Map_af::laplacien : unknown value of zec_mult_r !"
531 << endl <<
" zec_mult_r = " << zec_mult_r << endl ;
543 ff.base = base_entree ;
551 assert (uu.
get_etat() != ETATNONDEF) ;
561 assert( uu.
get_etat() == ETATQCQ ) ;
Bases of the spectral expansions.
Component of a tensorial field *** DEPRECATED : use class Scalar instead ***.
int get_etat() const
Returns the logical state.
Valeur va
The numerical value of the Cmp
void annule(int l)
Sets the Cmp to zero in a given domain.
void set_etat_qcq()
Sets the logical state to ETATQCQ (ordinary state).
void set_etat_zero()
Sets the logical state to ETATZERO (zero).
void set_dzpuis(int)
Set a value to dzpuis.
bool check_dzpuis(int dzi) const
Returns false if the last domain is compactified and *this is not zero in this domain and dzpuis is n...
const Map * get_mp() const
Returns the mapping.
virtual void laplacien(const Scalar &uu, int zec_mult_r, Scalar &lap) const
Computes the Laplacian of a scalar field.
virtual void lapang(const Scalar &uu, Scalar &lap) const
Computes the angular Laplacian of a scalar field.
Coord xsr
in the nucleus; \ 1/R in the non-compactified shells; \ in the compactified outer domain.
Coord dxdr
in the nucleus and in the non-compactified shells; \ in the compactified outer domain.
const Mg3d * get_mg() const
Gives the Mg3d on which the mapping is defined.
const Mg3d * mg
Pointer on the multi-grid Mgd3 on which this is defined
int get_nzone() const
Returns the number of domains.
int get_type_r(int l) const
Returns the type of sampling in the radial direction in domain no.
Tensor field of valence 0 (or component of a tensorial field).
int get_dzpuis() const
Returns dzpuis.
virtual void set_etat_qcq()
Sets the logical state to ETATQCQ (ordinary state).
bool check_dzpuis(int dzi) const
Returns false if the last domain is compactified and *this is not zero in this domain and dzpuis is n...
virtual void set_etat_zero()
Sets the logical state to ETATZERO (zero).
virtual void annule(int l_min, int l_max)
Sets the Scalar to zero in several domains.
Valeur & set_spectral_va()
Returns va (read/write version)
const Valeur & get_spectral_va() const
Returns va (read only version)
int get_etat() const
Returns the logical state ETATNONDEF (undefined), ETATZERO (null) or ETATQCQ (ordinary).
const Base_val & get_spectral_base() const
Returns the spectral bases of the Valeur va
void set_dzpuis(int)
Modifies the dzpuis flag.
Values and coefficients of a (real-value) function.
const Valeur & sx2() const
Returns (r -sampling = RARE ) \ Id (r sampling = FIN ) \ (r -sampling = UNSURR )
void ylm()
Computes the coefficients of *this.
void coef_i() const
Computes the physical value of *this.
void coef() const
Computes the coeffcients of *this.
const Valeur & d2sdx2() const
Returns of *this.
Base_val base
Bases on which the spectral expansion is performed.
const Valeur & lapang() const
Returns the angular Laplacian of *this.
void mult2_xm1_zec()
Applies the following operator to *this : \ Id (r sampling = RARE, FIN ) \ (r -sampling = UNSURR )
const Map & get_mp() const
Returns the mapping.