LISOUSI: Line Source Simulation

◆ coeff()

TFourier::Tcoeff FSECZ::coeff ( const double &  p) const
virtual

return expansion coefficient for given phase slowness

Implements ExpCoefficients.

Definition at line 51 of file wnintegration.cc.

References ExpCoefficients::Malphaq, and ExpCoefficients::Mbetaq.

52 {
53  TFourier::Tcoeff retval;
54  TFourier::Tcoeff pq=p*p;
55  TFourier::Tcoeff aq=(1./Malphaq)-pq;
56  TFourier::Tcoeff bq=(1./Mbetaq)-pq;
57  retval=std::sqrt(aq)+pq/std::sqrt(bq);
58  return(retval);
59 } // TFourier::Tcoeff FSECZ::coeff(const double& k) const
TFourier::Tcoeff Mbetaq
square of complex S-wave velocity
Definition: wnintegration.h:84
TFourier::Tcoeff Malphaq
square of complex P-wave velocity
Definition: wnintegration.h:82