double test_weibull1_pdf (double x) { return gsl_ran_weibull_pdf (x, 2.97, 1.0); }
double weibull (double x, void *p) { double * c = (double *)p; return gsl_ran_weibull_pdf (x, c[0], c[1]); }
double test_weibull_pdf (double x) { return gsl_ran_weibull_pdf (x, 3.14, 2.75); }