static VALUE rb_gsl_sf_debye_n(int argc, VALUE *argv, VALUE obj)
{
int n;
VALUE x;
switch (argc) {
case 1:
n = 1;
x = argv[0];
break;
case 2:
CHECK_FIXNUM(argv[0]);
n = FIX2INT(argv[0]);
x = argv[1];
break;
default:
rb_raise(rb_eArgError, "wrong number of arguments (%d for 1 or 2)", argc);
break;
}
switch (n) {
case 1:
return rb_gsl_sf_eval1(gsl_sf_debye_1, x);
break;
case 2:
return rb_gsl_sf_eval1(gsl_sf_debye_2, x);
break;
case 3:
return rb_gsl_sf_eval1(gsl_sf_debye_3, x);
break;
case 4:
return rb_gsl_sf_eval1(gsl_sf_debye_4, x);
break;
#ifdef GSL_1_8_LATER
case 5:
return rb_gsl_sf_eval1(gsl_sf_debye_5, x);
break;
case 6:
return rb_gsl_sf_eval1(gsl_sf_debye_6, x);
break;
#endif
default:
rb_raise(rb_eRuntimeError, "n must be 1, 2, 3, or 4");
break;
}
}
static VALUE rb_gsl_sf_dilog(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_dilog, x);
}
static VALUE rb_fresnel_s1(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(fresnel_s1, x);
}
static VALUE rb_gsl_sf_gammainv(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_gammainv, x);
}
static VALUE rb_gsl_sf_gammastar(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_gammastar, x);
}
static VALUE rb_gsl_sf_erf_Q(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_erf_Q, x);
}
static VALUE rb_gsl_sf_debye_4(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_debye_4, x);
}
static VALUE rb_gsl_sf_legendre_Q1(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_legendre_Q1, x);
}
static VALUE rb_gsl_sf_angle_restrict_pos(VALUE obj, VALUE theta)
{
return rb_gsl_sf_eval1(gsl_sf_angle_restrict_pos, theta);
}
static VALUE rb_gsl_sf_lncosh(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_lncosh, x);
}
static VALUE rb_gsl_sf_transport_5(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_transport_5, x);
}
static VALUE rb_gsl_sf_fermi_dirac_3half(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_fermi_dirac_3half, x);
}
static VALUE rb_gsl_sf_synchrotron_2(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_synchrotron_2, x);
}
static VALUE rb_gsl_sf_hazard(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_hazard, x);
}
static VALUE rb_gsl_sf_psi(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_psi, x);
}
static VALUE rb_gsl_sf_psi_1piy(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_psi_1piy, x);
}
static VALUE rb_gsl_sf_cos(VALUE obj, VALUE x)
{
if (COMPLEX_P(x) || VECTOR_COMPLEX_P(x) || MATRIX_COMPLEX_P(x))
return rb_gsl_math_complex_eval(gsl_complex_cos, x);
return rb_gsl_sf_eval1(gsl_sf_cos, x);
}
static VALUE rb_gsl_sf_clausen(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_clausen, x);
}
static VALUE rb_gsl_sf_sinc(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_sinc, x);
}
static VALUE rb_gsl_sf_lngamma(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_lngamma, x);
}
static VALUE rb_gsl_sf_log_erfc(VALUE obj, VALUE x)
{
return rb_gsl_sf_eval1(gsl_sf_log_erfc, x);
}