26char tensor_change_triad_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Tensor/tensor_change_triad.C,v 1.9 2014/10/13 08:53:44 j_novak Exp $" ;
107 int ind =
nbvc->get_align() * (
bvc->get_align()) ;
132 "Tensor::change_basis : general value of rot_phi "
133 <<
" not contemplated yet, sorry !" <<
endl ;
140 "Tensor::change_basis : unexpected value of ind !" <<
endl ;
166 int nz =
mp->get_mg()->get_nzone() ;
167 for (
int i=0;
i<nz;
i++) {
175 for (
int i=1;
i<=3;
i++) {
176 mp->comp_x_from_spherical(
operator()(1,
i),
operator()(2,
i),
177 operator()(3,
i),
tmp.set(1,
i)) ;
178 mp->comp_y_from_spherical(
operator()(1,
i),
operator()(2,
i),
179 operator()(3,
i),
tmp.set(2,
i)) ;
180 mp->comp_z_from_spherical(
operator()(1,
i),
operator()(2,
i),
tmp.set(3,
i) ) ;
182 for (
int i=1;
i<=3;
i++) {
213 int nz =
mp->get_mg()->get_nzone() ;
214 for (
int i=0;
i<nz;
i++) {
222 for (
int i=1;
i<=3;
i++) {
223 mp->comp_r_from_cartesian(
operator()(1,
i),
operator()(2,
i),
224 operator()(3,
i),
tmp.set(1,
i)) ;
225 mp->comp_t_from_cartesian(
operator()(1,
i),
operator()(2,
i),
226 operator()(3,
i),
tmp.set(2,
i)) ;
227 mp->comp_p_from_cartesian(
operator()(1,
i),
operator()(2,
i),
tmp.set(3,
i)) ;
229 for (
int i=1;
i<=3;
i++) {
244 cout <<
"Tensor::change_triad : case not treated yet !" <<
endl ;
Cartesian vectorial bases (triads).
Spherical orthonormal vectorial bases (triads).
Vectorial bases (triads) with respect to which the tensorial components are defined.
Time evolution with partial storage (*** under development ***).
const Map *const mp
Mapping on which the numerical values at the grid points are defined.
virtual void change_triad(const Base_vect &new_triad)
Sets a new vectorial basis (triad) of decomposition and modifies the components accordingly.
int valence
Valence of the tensor (0 = scalar, 1 = vector, etc...)
Itbl type_indice
1D array of integers (class Itbl ) of size valence containing the type of each index: COV for a cov...
Scalar & set(const Itbl &ind)
Returns the value of a component (read/write version).
const Base_vect * triad
Vectorial basis (triad) with respect to which the tensor components are defined.