Пример #1
0
/* Function:  esl_hxp_cdf()
 *
 * Purpose:   Returns the cumulative distribution function $P(X \leq x)$
 *            for quantile <x>, given hyperexponential parameters <h>.
 */
double
esl_hxp_cdf(double x, ESL_HYPEREXP *h)
{
  double cdf = 0.;
  int    k;
  
  if (x < h->mu) return 0.;

  for (k = 0; k < h->K; k++)
    cdf += h->q[k] * esl_exp_cdf(x, h->mu, h->lambda[k]);
  return cdf;
}
Пример #2
0
/* Function:  esl_exp_generic_cdf()
* Incept:    SRE, Sun Aug 21 12:25:25 2005 [St. Louis]
*
* Purpose:   Generic-API version of CDF.
*/
double
esl_exp_generic_cdf(double x, void *params)
{
    double *p = (double *) params;
    return esl_exp_cdf(x, p[0], p[1]);
}