Constructor.
Constructor Set Vavilov parameters kappa and beta2 and define whether to calculate density fcn or distribution fcn
50 const double xp[9] = {9.29, 2.47, .89, .36, .15, .07, .03, .02, 0.0};
51 const double xq[7] = {.012, .03, .08, .26, .87, 3.83, 11.0};
53 double q, u,
x,
c1, c2, c3, c4,
d1, h4, h5, h6, q2, x1,
d, ll, ul, xf1, xf2, rv;
67 h_[4] = 1. - beta2 * 0.42278433999999998 + 7.6 / kappa;
70 h4 = -7.6 / kappa - (beta2 * .57721566 + 1);
77 for (lp = 0; lp < 9; ++lp) {
82 for (lq = 0; lq < 7; ++lq) {
93 h_[0] = kappa * (beta2 * .57721566 + 2.) + 9.9166128600000008;
97 h_[1] = beta2 * kappa;
99 h_[3] = omega_ * 1.5707963250000001;
103 d =
exp(kappa * (beta2 * (.57721566 - h5) + 1.)) * .31830988654751274;
106 a_[n - 1] = omega_ * .31830988654751274;
110 for (k = 1; k <
n; ++
k) {
118 xf1 = kappa * (beta2 * c1 - c4) - x * c2;
119 xf2 = x * c1 + kappa * (c3 + beta2 * c2) +
t0_ * x;
121 d1 = q * d * omega_ *
exp(xf1);
122 a_[l - 1] = d1 *
cos(xf2);
123 b_[l - 1] = -d1 *
sin(xf2);
125 d1 = q * d *
exp(xf1) /
k;
126 a_[l - 1] = d1 *
sin(xf2);
127 b_[l - 1] = d1 *
cos(xf2);
128 a_[n - 1] += q2 *
a_[l - 1];
static std::vector< std::string > checklist log
double expint(double x)
Private version of the sine integral.
void sincosint(double x, double &sint, double &cint)
Sin< T >::type sin(const T &t)
const int mode_
returns the limits on the non-zero (mode=0) or normalized region (mode=1)
int dzero(double a, double b, double &x0, double &rv, double eps, int mxf, F func)
Exp< T >::type exp(const T &t)
Cos< T >::type cos(const T &t)
double f1(double x, double const *h_)
Private version of the exponential integral.
double f2(double x, double const *h_)
static constexpr float d1