/* 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; }
/* 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]); }