25char som_phi_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Non_class_members/Operators/som_phi.C,v 1.5 2014/10/13 08:53:26 j_novak Exp $" ;
82 (
double*,
const int,
const double,
double*) {
83 cout <<
"Mtbl_cf::val_point: phi basis not implemented yet ! "
89 (
double* ti,
const int np,
const double phi,
double* xo) {
94 for (
int k=2 ; k<np-1 ; k +=2 ) {
96 *xo += ti[k] *
cos(m * phi) ;
97 *xo += ti[k+1] *
sin(m * phi) ;
99 *xo += ti[np] *
cos(np/2 * phi) ;
103 (
double* ti,
const int np,
const double phi,
double* xo) {
108 for (
int k=2 ; k<np-1 ; k +=2 ) {
110 *xo += ti[k] *
cos(m * phi) ;
111 *xo += ti[k+1] *
sin(m * phi) ;
113 *xo += ti[np] *
cos(np * phi) ;
117 (
double* ti,
const int np,
const double phi,
double* xo) {
119 *xo = ti[0] *
cos(phi) + ti[2] *
sin(phi) ;
122 for (
int k=3 ; k<np ; k +=2 ) {
124 *xo += ti[k] *
cos(m * phi) ;
125 *xo += ti[k+1] *
sin(m * phi) ;
Cmp sin(const Cmp &)
Sine.
Cmp cos(const Cmp &)
Cosine.