Example #1
0
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;
  }
}
Example #2
0
static VALUE rb_gsl_sf_dilog(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(gsl_sf_dilog, x);
}
Example #3
0
static VALUE rb_fresnel_s1(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(fresnel_s1, x);
}
Example #4
0
static VALUE rb_gsl_sf_gammainv(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(gsl_sf_gammainv, x);
}
Example #5
0
static VALUE rb_gsl_sf_gammastar(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(gsl_sf_gammastar, x);
}
Example #6
0
static VALUE rb_gsl_sf_erf_Q(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(gsl_sf_erf_Q, x);
}
Example #7
0
static VALUE rb_gsl_sf_debye_4(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(gsl_sf_debye_4, x);
}
Example #8
0
static VALUE rb_gsl_sf_legendre_Q1(VALUE obj, VALUE x)
{
    return rb_gsl_sf_eval1(gsl_sf_legendre_Q1, x);
}
Example #9
0
static VALUE rb_gsl_sf_angle_restrict_pos(VALUE obj, VALUE theta)
{
  return rb_gsl_sf_eval1(gsl_sf_angle_restrict_pos, theta);
}
Example #10
0
static VALUE rb_gsl_sf_lncosh(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(gsl_sf_lncosh, x);
}
Example #11
0
static VALUE rb_gsl_sf_transport_5(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(gsl_sf_transport_5, x);
}
Example #12
0
static VALUE rb_gsl_sf_fermi_dirac_3half(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(gsl_sf_fermi_dirac_3half, x);
}
Example #13
0
static VALUE rb_gsl_sf_synchrotron_2(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(gsl_sf_synchrotron_2, x);
}
Example #14
0
static VALUE rb_gsl_sf_hazard(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(gsl_sf_hazard, x);
}
Example #15
0
static VALUE rb_gsl_sf_psi(VALUE obj, VALUE x)
{
    return rb_gsl_sf_eval1(gsl_sf_psi, x);
}
Example #16
0
static VALUE rb_gsl_sf_psi_1piy(VALUE obj, VALUE x)
{
    return rb_gsl_sf_eval1(gsl_sf_psi_1piy, x);
}
Example #17
0
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);
}
Example #18
0
static VALUE rb_gsl_sf_clausen(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(gsl_sf_clausen, x);
}
Example #19
0
static VALUE rb_gsl_sf_sinc(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(gsl_sf_sinc, x);
}
Example #20
0
static VALUE rb_gsl_sf_lngamma(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(gsl_sf_lngamma, x);
}
Example #21
0
static VALUE rb_gsl_sf_log_erfc(VALUE obj, VALUE x)
{
  return rb_gsl_sf_eval1(gsl_sf_log_erfc, x);
}