Example #1
0
static VALUE rb_gsl_sf_laguerre_X(int argc, VALUE *argv, VALUE obj,
				  double (*f)(double, double))
{
  switch (argc) {
  case 2:
    return rb_gsl_sf_eval_double_double(f, argv[0], argv[1]);
    break;
  case 1:
    return rb_gsl_sf_eval_double_double(f, INT2FIX(0), argv[0]);
    break;
  default:
    rb_raise(rb_eArgError, "wrong number of arguments (%d for 1 or 2)", argc);
    break;
  }
}
Example #2
0
static VALUE rb_gsl_sf_conicalP_1(VALUE obj, VALUE lambda, VALUE x)
{
    return rb_gsl_sf_eval_double_double(gsl_sf_conicalP_1, lambda, x);
}
Example #3
0
static VALUE rb_gsl_sf_gegenpoly_3(VALUE obj, VALUE lambda, VALUE x)
{
  return rb_gsl_sf_eval_double_double(gsl_sf_gegenpoly_3, lambda, x);
}
Example #4
0
static VALUE rb_gsl_sf_gamma_inc(VALUE obj, VALUE a, VALUE x)
{
  return rb_gsl_sf_eval_double_double(gsl_sf_gamma_inc_P, a, x);
}
Example #5
0
static VALUE rb_gsl_sf_pochrel(VALUE obj, VALUE a, VALUE x)
{
  return rb_gsl_sf_eval_double_double(gsl_sf_pochrel, a, x);
}
Example #6
0
static VALUE rb_gsl_sf_lnpoch(VALUE obj, VALUE a, VALUE x)
{
  return rb_gsl_sf_eval_double_double(gsl_sf_lnpoch, a, x);
}
Example #7
0
static VALUE rb_gsl_sf_hydrogenicR_1(VALUE obj, VALUE Z, VALUE r)
{
  return rb_gsl_sf_eval_double_double(gsl_sf_hydrogenicR_1, Z, r);
}